;;; -*- Mode: TDL; Coding: utf-8 -*- 

;;; Authors: 
;;; 2002-2006 Berthold Crysmann

;;; Copyright: DFKI GmbH




generic_adja := adj-non-prd-le &
 [ LR.LR_INFLECTED -,
   MORPH.LIST.FIRST.STEM < "generic-stem" >,
   SYNSEM.LKEYS [ KEYREL "_generic_a_rel",
		  KEYSORT anything ] ].

generic_adjd := adj-prd-le &
 [ LR.LR_INFLECTED -,
   MORPH.LIST.FIRST.STEM < "generic-stem" >,
   SYNSEM.LKEYS [ KEYREL "_generic_a_rel",
                    KEYSORT anything ] ].

generic_adverb := intersect-adv-le &
 [ LR.LR_INFLECTED -,
   MORPH.LIST.FIRST.STEM < "generic-stem" >,
   SYNSEM.LKEYS.KEYREL "_generic_a_rel" ].

generic_count_noun := generic-count-noun-le &
 [ MORPH.LIST.FIRST.STEM < "generic-stem" >,
   SYNSEM [LKEYS [ --SUBJOPT -,
		  KEYAGR c-n-g,
		  MCLASS nclass-generic,
		  KEYTAG #carg,
		  KEYREL "_generic_n_rel",
		   KEYSORT anything ],
	   LOC.CONT.KEY.CARG #carg & *top*]].

generic_name := unknown-proper-name-le &
 [ MORPH.LIST.FIRST.STEM < "generic-stem" >,
   SYNSEM.LKEYS [ KEYAGR *top*,
                    KEYSORT *top* ] ].


generic_number := cardinal-number-le &
 [ MORPH.LIST.FIRST.STEM < "generic-stem" >,
   SYNSEM.LKEYS [ KEYAGR c-p-g,
                    KEYAGR2 p-p-g,
                    KEYSORT *top*,
                    KEYTAG *top* ] ].

generic_year := cardyear-noun-ty-le &
 [ MORPH.LIST.FIRST.STEM < "generic-stem" >].

generic_ordinal := ordinal-number-le &
 [ MORPH.LIST.FIRST.STEM < "generic-stem" >,
   SYNSEM.LKEYS [ KEYAGR c-n-g,
                    KEYAGR2 p-n-g,
                    KEYSORT *top*,
                    KEYTAG *top* ] ].


generic_itr_verb := 
			intrans-nerg-verb-le &
			[ MORPH.LIST.FIRST [STEM < "generic-stem" >],
			  SYNSEM.LKEYS [ KEYREL "_generic_v_rel"] ].

generic_tr_verb := 
		     trans-nerg-str-verb-le &
		       [ MORPH <! [STEM < "generic-stem" >] !>,
			 SYNSEM.LKEYS [ KEYREL "_generic_v_rel"] ].

generic_scomp_verb := 
		     np-scomp-nerg-verb-le &
		      [ MORPH <! [STEM < "generic-stem" >] !>,
			SYNSEM.LKEYS [ KEYREL "_generic_v_rel"] ].


generic_itr_part_verb := 
			intrans-nerg-particle-verb-le &
			[ MORPH.LIST.FIRST [STEM < "generic-stem" >],
			  SYNSEM [LKEYS [ KEYREL "_generic_v_rel"]] ].

generic_tr_part_verb := 
		      trans-nerg-str-particle-verb-le &
		      [ MORPH.LIST.FIRST [STEM < "generic-stem" >],
			SYNSEM [LKEYS [ KEYREL "_generic_v_rel"]] ].

generic_scomp_part_verb := 
			   np-scomp-nerg-particle-verb-le &
			   [ MORPH.LIST.FIRST [STEM < "generic-stem" >],
			     SYNSEM [LKEYS [ KEYREL "_generic_v_rel"]] ].


#|
generic_itr_fin_verb := 
			intrans-nerg-verb-le &
			[ MORPH.LIST.FIRST [STEM < "generic-stem" >,
					    HEAD vmorph-fin-head & 
						 [fin.e [TENSE syn_tense,
							 PERFECTIVE -]]],
			  SYNSEM.LKEYS [ KEYREL "_generic_v_rel"] ].

generic_tr_fin_verb := 
		     trans-nerg-str-verb-le &
		       [ MORPH <! [STEM < "generic-stem" >,
				   HEAD vmorph-fin-head & 
					[fin.e [TENSE syn_tense,
					    PERFECTIVE -]] ] !>,
			 SYNSEM.LKEYS [ KEYREL "_generic_v_rel"] ].

|#

#|
generic_itr_fin_particle_verb := 
				 intrans-nerg-particle-verb-le &
				 [ MORPH <! [STEM < "generic-stem" >,
					     HEAD  vmorph-fin-head & 
						  [fin.e [TENSE present+past,
							  PERFECTIVE -]] ] !>, 
				   SYNSEM [LOC.CAT [HEAD initial_+_fin-verb-head],
				   LKEYS [ KEYREL "_generic_v_rel",
					   --VCOMPFORM ab-sp-form] ]].


generic_tr_fin_particle_verb := 
				trans-nerg-str-particle-verb-le &
				[ MORPH <! [STEM < "generic-stem" >,
					    HEAD vmorph-fin-head & 
						 [fin.e [TENSE present+past,
						     PERFECTIVE -]] ] !>,
				  SYNSEM [LOC.CAT.HEAD initial_+_fin-verb-head,
					  LKEYS [ KEYREL "_generic_v_rel"] ]].
|#

#|
generic_itr_pp_verb := 
			intrans-nerg-verb-le &
			[ MORPH <! [STEM < "generic-stem" >,
				    HEAD vx-sup-perf  ] !>,
			  SYNSEM.LKEYS [ KEYREL "_generic_v_rel"] ].


generic_tr_pp_verb := 
		      trans-nerg-str-verb-le &
		      [ MORPH <! [STEM < "generic-stem" >,
				  HEAD vx-sup-perf  ] !>,
			SYNSEM.LKEYS [ KEYREL "_generic_v_rel"] ].

generic_itr_inf_verb := 
			intrans-nerg-verb-le &
			[ MORPH <! [STEM < "generic-stem" >,
				    HEAD vx-sup-bare  ] !>,
			  SYNSEM.LKEYS [ KEYREL "_generic_v_rel"] ].


generic_tr_inf_verb := 
		      trans-nerg-str-verb-le &
		      [ MORPH <! [STEM < "generic-stem" >,
				  HEAD vx-sup-bare  ] !>,
			SYNSEM.LKEYS [ KEYREL "_generic_v_rel"] ].

generic_itr_izu_verb := 
			intrans-nerg-particle-verb-le &
			[ MORPH <! [STEM < "generic-stem" >,
				    HEAD vx-sup-zu  ] !>,
			  SYNSEM.LKEYS [ KEYREL "_generic_v_rel"] ].


generic_tr_izu_verb := 
		      trans-nerg-str-particle-verb-le &
		      [ MORPH <! [STEM < "generic-stem" >,
				  HEAD vx-sup-zu  ] !>,
			SYNSEM.LKEYS [ KEYREL "_generic_v_rel"] ].

|#

#|
generic_email := unknown-proper-name-le &
 [ MORPH.LIST.FIRST.STEM < "generic-stem" >,
   SYNSEM.LKEYS [KEYAGR *top*,
		 KEYSORT *top* ] ].
|#

#|
generic_mass_noun := generic-mass-noun-le &
 [ MORPH.LIST.FIRST.STEM < "generic-stem" >,
   SYNSEM.LKEYS [KEYAGR c-s-g,
		 MCLASS nclass-0,
		 KEYREL "_generic_n_rel",
		 KEYSORT anything ] ].
|#

#|
generic_money := currency-noun-le &
 [ MORPH.LIST.FIRST.STEM < "generic-stem" >,
   SYNSEM.LKEYS [KEYAGR c-n-g,
		 MCLASS nclass-generic,
		 KEYREL currency_rel,
		 KEYSORT thing ] ].
|#



#|
generic_ordinal := ordinal-number-le &
 [ MORPH.LIST.FIRST.STEM < "generic-stem" >,
   SYNSEM.LKEYS [ KEYAGR2 p-s-g,
                    KEYTAG *top* ] ].

generic_time := unk-time-mod-noun-ty-le &
 [ MORPH.LIST.FIRST.STEM < "generic-stem" >,
   SYNSEM.LKEYS [ --SUBJOPT +,
		  MCLASS nclass-generic,
		  ALTKEYREL "unspec_mod_rel",
		  KEYAGR c-s-g,
		  KEYSORT time ] ].

generic_title_noun := title-noun-le &
 [ MORPH.LIST.FIRST.STEM < "generic-stem" >,
   SYNSEM.LKEYS [ KEYAGR c-n-mf,
		  KEYREL "_generic-title_n_rel",
		  KEYSORT human ] ].

|#