;;; -*- 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 ].