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



decade_ersatz := generic-count-noun-le &
 [ MORPH.LIST.FIRST.STEM < "decadeersatz" >,
   SYNSEM [LKEYS [ --SUBJOPT -,
		  KEYAGR c-p-n,
		  MCLASS nclass-2_-u,
		  KEYTAG #carg,
		  KEYREL "_decade_n_rel",
		   KEYSORT anything ],
	   LOC.CONT.KEY.CARG #carg & *top*]].

finden-mental-r-np-var := ditrans-nerg-verb-le &
 [ MORPH.LIST.FIRST.STEM < "find" >,
   SYNSEM [ LKEYS [ MCLASS vclass-irr,
		    --COMPOPT -,
                    --COMPSORT abstract,
                    --OCOMPAGR a-n-g,
                    --OCOMPOPT -,
                    --OCOMPSORT anything,
                    --SUBJOPT -,
                    --SUBJSORT human,
                    KEYREL "_finden_v_haben_rel",
                    KEYSORT mental_sit ],
            LOC.CAT.SUBCAT.LIST.FIRST.LOC.CONT.KEY pron_rel ] ,
   TOKENS.+LIST.FIRST.+TRAIT native_trait].



wuerde-hv-vmfin := intrans-nerg-verb-le &
 [ MORPH [ LAST #1,
           LIST [ FIRST [ HEAD vmorph-fin-head & [ FIN.e pst-sbj ],
                          STEM < "werd" > ],
                  REST #1 ] ],
   SYNSEM.LKEYS [ MCLASS vclass-irr,
		  --SUBJOPT -,
                    --SUBJSORT human,
                    KEYFORM haben-auxf,
                    KEYREL "_wollen_v_rel",
                    KEYSORT mental_sit ],
   TOKENS.+LIST.FIRST.+TRAIT native_trait ].

haben-t := trans-nerg-str-verb-le &
 [ MORPH.LIST.FIRST.STEM < "hab" >,
   SYNSEM [ LKEYS [ MCLASS vclass-irr,
		    --COMPOPT -,
                    --COMPSORT anything,
                    --SUBJOPT -,
                    --SUBJSORT anything,
                    KEYFORM haben-auxf,
                    KEYREL "_haben_v_n-a-haben_rel",
                    KEYSORT anything ],
            LOC.CAT.HEAD.PASSIVE psv- ],
   TOKENS.+LIST.FIRST.+TRAIT native_trait ].

schreiben-var := trans-nerg-str-verb-le &
 [ MORPH.LIST.FIRST.STEM < "schreib" >,
   SYNSEM [ LKEYS [ MCLASS vclass-irr,
		    --COMPOPT -,
                    --COMPSORT anything,
                    --SUBJOPT -,
                    --SUBJSORT human,
                    KEYFORM haben-auxf,
                    KEYREL "_schreiben_v_n-a-haben_rel",
                    KEYSORT situation ],
            LOC.CAT.SUBCAT.LIST.FIRST.LOC.CONT.HOOK.INDEX non_refl_ind ],
   TOKENS.+LIST.FIRST.+TRAIT native_trait ].

;;; Entry still needs debugging: 


; schreiben_sich-var := ditrans-nerg-verb-le &
;  [ MORPH.LIST.FIRST.STEM < "schreib" >,
;    SYNSEM [ LKEYS [ MCLASS vclass-irr,
; 		    --COMPOPT -,
;                     --OCOMPAGR a-n-g,
;                     --OCOMPOPT -,
;                     --SUBJOPT -,
;                     KEYREL "_schreiben_v_n-a-refl-haben_rel"],
;             LOC.CAT.SUBCAT.LIST < [LOC.CONT refl-pron-no-sem-type], ...>   ],
;    TOKENS.+LIST.FIRST.+TRAIT native_trait ].