;;; -*- Mode: TDL; Coding: utf-8 -*- ;;; Authors: ;;; 2007 Berthold Crysmann ;;; 2007 Nicolai Kilian ;;; Copyright: DFKI GmbH ;;MAL+punct_comma_orule := ;; mal_punctuation_comma_rule & ;; [ MAL +, ;; SIGNPUNCT.RPUNCT.PUNCTACCURACY partialpunct ]. #| MAL_punct_comma_orule := mal_punctuation_comma_rule & [ NEEDS-AFFIX -, MAL +, MALRULE.MAL-COMMA-INFL +, LR.PUNCT-LR-ARG non-punct-lr-arg, SIGNPUNCT.RPUNCT.PUNCTACCURACY partialpunct, MORPH #morph & , ARGS < word-or-arche-form & [ MALRULE.MAL-COMMA-INFL -, MORPH #morph & ] > ]. |# MAL-adj-comp-umlaut+_infl_rule := %suffix (u ü) (u!c ü!c) (uch üch) (uchs üchs) (ucht ücht) (uchter üchter) (uck ück) (uden üden) (uder üder) (udt üdt) (ufen üfen) (uft üft) (ugel ügel) (ugen ügen) (uhl ühl) (uhn ühn) (uld üld) (ulf ülf) (ull üll) (ult ült) (ulz ülz) (umm ümm) (ummer ümmer) (umpf ümpf) (umt ümt) (und ünd) (unft ünft) (ung üng) (ungel üngel) (unk ünk) (unn ünn) (unsch ünsch) (unst ünst) (untel üntel) (unz ünz) (upf üpf) (upfel üpfel) (upst üpst) (urb ürb) (urcht ürcht) (urf ürf) (urkt ürkt) (urt ürt) (urm ürm) (ursch ürsch) (urten ürten) (urzt ürzt) (uss üss) (uß üß) (ust üst) (usten üsten) (uter üter) (utt ütt) (utter ütter) (utz ütz) (a ä) (a!c ä!c) (ach äch) (achs ächs) (acht ächt) (achter ächter) (ack äck) (aden äden) (ader äder) (adt ädt) (afen äfen) (aft äft) (agel ägel) (agen ägen) (ahl ähl) (ahn ähn) (ald äld) (alf älf) (all äll) (alt ält) (alz älz) (amm ämm) (ammer ämmer) (ampf ämpf) (amt ämt) (and änd) (anft änft) (ang äng) (angel ängel) (ank änk) (ann änn) (ansch änsch) (anst änst) (antel äntel) (anz änz) (apf äpf) (apfel äpfel) (apst äpst) (arb ärb) (archt ärcht) (arf ärf) (arkt ärkt) (art ärt) (arm ärm) (arsch ärsch) (arten ärten) (arzt ärzt) (ass äss) (aß äß) (ast äst) (asten ästen) (ater äter) (att ätt) (atter ätter) (atz ätz) (o ö) (o!c ö!c) (och öch) (ochs öchs) (ocht öcht) (ochter öchter) (ock öck) (oden öden) (oder öder) (odt ödt) (ofen öfen) (oft öft) (ogel ögel) (ogen ögen) (ohl öhl) (ohn öhn) (old öld) (olf ölf) (oll öll) (olt ölt) (olz ölz) (omm ömm) (ommer ömmer) (ompf ömpf) (omt ömt) (ond önd) (onft önft) (ong öng) (ongel öngel) (onk önk) (onn önn) (onsch önsch) (onst önst) (ontel öntel) (onz önz) (opf öpf) (opfel öpfel) (opst öpst) (orb örb) (orcht örcht) (orf örf) (orkt örkt) (ort ört) (orm örm) (orsch örsch) (orten örten) (orzt örzt) (oss öss) (oß öß) (ost öst) (osten östen) (oter öter) (ott ött) (otter ötter) (otz ötz) (au äu) (au!c äu!c) (auch äuch) (aupt äupt) (ausch äusch) (aust äust) (arz ärz) pre_infl_lrule & [MAL +, MALRULE.MAL-INFL [MAL-ADJ-INFL +, MAL-DET-INFL -], needs-affix +, lr [u -], args <[synsem.lkeys.mclass #mc, lr [u #u], morph ]>]. MAL-adj-comp-umlaut-_infl_rule := pre_infl_lrule & [MAL +, MALRULE.MAL-INFL.MAL-ADJ-INFL +, needs-affix -, morph , lr [u -], args <[synsem.lkeys.mclass #mc, lr [u #u], morph ]>]. MAL-ax-em_infl_rule := %suffix (!a !aem_+++) (el lem_+++) (iel ielem_+++) (e em_+++) (eitel eitlem_+++) (hoch hohem_+++) (zwanzigst zwanzigstem_+++) (dreißigst dreißigstem_+++) (vierzigst vierzigstem_+++) (fuenfzigst fuenfzigstem_+++) (sechzigst sechzigstem_+++) (siebzigst siebzigstem_+++) (achtzigst achtzigstem_+++) (neunzigst neunzigstem_+++) (hundert hundertstem_+++) (tausend tausendstem_+++) mal-adj-inflr & [needs-affix +, synsem.loc.cont.hook.xarg index, args < [ lr [u #u], morph ] > ]. MAL-ax-es_infl_rule := %suffix (!a !aes_+++) (el les_+++) (iel ieles_+++) (e es_+++) (eitel eitles_+++) (hoch hohes_+++) (zwanzigst zwanzigstes_+++) (dreißigst dreißigstes_+++) (vierzigst vierzigstes_+++) (fuenfzigst fuenfzigstes_+++) (sechzigst sechzigstes_+++) (siebzigst siebzigstes_+++) (achtzigst achtzigstes_+++) (neunzigst neunzigstes_+++) (hundert hundertstes_+++) (tausend tausendstes_+++) (_generic_ord_ _generic_ord_) mal-adj-inflr & [needs-affix +, synsem.loc.cont.hook.xarg index, args < [ lr [u #u], morph ] > ]. MAL-ax-er_infl_rule := %suffix (!a !aer_+++) (el ler_+++) (iel ieler_+++) (e er_+++) (eitel eitler_+++) (hoch hoher_+++) (zwanzigst zwanzigster_+++) (dreißigst dreißigster_+++) (vierzigst vierzigster_+++) (fuenfzigst fuenfzigster_+++) (sechzigst sechzigster_+++) (siebzigst siebzigster_+++) (achtzigst achtzigster_+++) (neunzigst neunzigster_+++) (hundert hundertster_+++) (tausend tausendster_+++) (_generic_ord_ _generic_ord_) mal-adj-inflr & [needs-affix +, synsem.loc.cont.hook.xarg index, args < [ lr [u #u], morph ] > ]. MAL-ax-e_infl_rule := %suffix (!a !ae_+++) (el le_+++) (iel iele_+++) (eitel eitle_+++) (hoch hohe_+++) (zwanzigst zwanzigste_+++) (dreißigst dreißigste_+++) (vierzigst vierzigste_+++) (fuenfzigst fuenfzigste_+++) (sechzigst sechzigste_+++) (siebzigst siebzigste_+++) (achtzigst achtzigste_+++) (neunzigst neunzigste_+++) (hundert hundertste_+++) (tausend tausendste_+++) (!0 !0.) mal-adj-inflr & [needs-affix +, synsem.loc.cont.hook.xarg index, args < [ lr [u #u], morph ] > ]. MAL-ax-en_infl_rule := %suffix (!a !aen_+++) (el len_+++) (iel ielen_+++) (e en_+++) (eitel eitlen_+++) (hoch hohen_+++) (zwanzigst zwanzigsten_+++) (dreißigst dreißigsten_+++) (vierzigst vierzigsten_+++) (fuenfzigst fuenfzigsten_+++) (sechzigst sechzigsten_+++) (siebzigst siebzigsten_+++) (achtzigst achtzigsten_+++) (neunzigst neunzigsten_+++) (hundert hundertsten_+++) (tausend tausendsten_+++) (_generic_ord_ _generic_ord_) mal-adj-inflr & [needs-affix +, synsem.loc.cont.hook.xarg index, args < [lr [u #u], morph ] > ]. MAL-det-die_infl_rule := %suffix (der die) mal_lex2lex_infl_lrule & [mal +, MALRULE.MAL-INFL [MAL-DET-INFL +, MAL-ADJ-INFL -], new-orth #orth, LR [lr_inflected +], needs-affix +, args < dx_infl_lrule & [morph , new-orth #orth] > ]. MAL-det-das_infl_rule := %suffix (___do_not_apply_this_rule___ ___do_not_apply_this_rule___) mal_lex2lex_infl_lrule & [mal +, MALRULE.MAL-INFL [MAL-DET-INFL +, MAL-ADJ-INFL -], new-orth #orth, needs-affix +, args < dx_infl_lrule & [morph , new-orth #orth] > ]. MAL-det-der_infl_rule := %suffix (___do_not_apply_this_rule___ ___do_not_apply_this_rule___) mal_lex2lex_infl_lrule & [mal +, MALRULE.MAL-INFL [MAL-DET-INFL +, MAL-ADJ-INFL -], new-orth #orth, needs-affix +, args < dx_infl_lrule & [morph , new-orth #orth] > ]. MAL-det-des_infl_rule := %suffix (___do_not_apply_this_rule___ ___do_not_apply_this_rule___) mal_lex2lex_infl_lrule & [mal +, MALRULE.MAL-INFL [MAL-DET-INFL +, MAL-ADJ-INFL -], new-orth #orth, needs-affix +, args < dx_infl_lrule & [morph , new-orth #orth] > ]. MAL-det-den_infl_rule := %suffix (___do_not_apply_this_rule___ ___do_not_apply_this_rule___) mal_lex2lex_infl_lrule & [mal +, MALRULE.MAL-INFL [MAL-DET-INFL +, MAL-ADJ-INFL -], new-orth #orth, needs-affix +, args < dx_infl_lrule & [morph , new-orth #orth] > ]. MAL-det-dem_infl_rule := %suffix (___do_not_apply_this_rule___ ___do_not_apply_this_rule___) mal_lex2lex_infl_lrule & [mal +, MALRULE.MAL-INFL [MAL-DET-INFL +, MAL-ADJ-INFL -], new-orth #orth, LR [lr_inflected +], needs-affix +, args < dx_infl_lrule & [morph , new-orth #orth] > ]. MAL-det-eines_infl_rule := %suffix (___do_not_apply_this_rule___ ___do_not_apply_this_rule___) mal_lex2lex_infl_lrule & [mal +, MALRULE.MAL-INFL [MAL-DET-INFL +, MAL-ADJ-INFL -], new-orth #orth, needs-affix +, args < dx_infl_lrule & [morph , new-orth #orth] > ]. MAL-det-ein-null_infl_rule := %suffix (___do_not_apply_this_rule___ ___do_not_apply_this_rule___) mal_lex2lex_infl_lrule & [mal +, MALRULE.MAL-INFL [MAL-DET-INFL +, MAL-ADJ-INFL -], new-orth #orth, needs-affix +, args < dx_infl_lrule & [morph , new-orth #orth] > ]. MAL-det-einer_infl_rule := %suffix (___do_not_apply_this_rule___ ___do_not_apply_this_rule___) mal_lex2lex_infl_lrule & [mal +, MALRULE.MAL-INFL [MAL-DET-INFL +, MAL-ADJ-INFL -], new-orth #orth, needs-affix +, args < dx_infl_lrule & [morph , new-orth #orth] > ]. MAL-det-einem_infl_rule := %suffix (___do_not_apply_this_rule___ ___do_not_apply_this_rule___) mal_lex2lex_infl_lrule & [mal +, MALRULE.MAL-INFL [MAL-DET-INFL +, MAL-ADJ-INFL -], new-orth #orth, needs-affix +, args < dx_infl_lrule & [morph , new-orth #orth] > ]. MAL-det-eine_infl_rule := %suffix (___do_not_apply_this_rule___ ___do_not_apply_this_rule___) mal_lex2lex_infl_lrule & [mal +, MALRULE.MAL-INFL [MAL-DET-INFL +, MAL-ADJ-INFL -], new-orth #orth, needs-affix +, args < dx_infl_lrule & [morph , new-orth #orth] > ]. MAL-det-einen_infl_rule := %suffix (___do_not_apply_this_rule___ ___do_not_apply_this_rule___) mal_lex2lex_infl_lrule & [mal +, MALRULE.MAL-INFL [MAL-DET-INFL +, MAL-ADJ-INFL -], new-orth #orth, needs-affix +, args < dx_infl_lrule & [morph , new-orth #orth] > ]. #| MAL-dass_infl_rule := %suffix (das dass) mal_lex2lex_infl_lrule & [needs-affix +, mal +, MALRULE.MAL-INFL.MAL-DAS-INFL +, LR [lr_inflected +], new-orth #orth, args < unflex-rel-pron-np-le & [new-orth #orth]>]. MAL-dasz_infl_rule := %suffix (das daß) mal_lex2lex_infl_lrule & [needs-affix +, mal +, MALRULE.MAL-INFL.MAL-DAS-INFL +, LR [lr_inflected +], new-orth -, args < unflex-rel-pron-np-le & [new-orth +]>]. MAL-das_infl_rule := %suffix (dass das) mal_lex2lex_infl_lrule & [needs-affix +, mal +, MALRULE.MAL-INFL.MAL-DAS-INFL +, LR [lr_inflected +], new-orth #orth, args < non-mod-comp-le & [new-orth #orth]>]. |# #| ;;; S/V-Agreement MAL-verb-en_infl_rule := %suffix (e en) (et en) (!ht !hen) (est en) (!hst !hen) old2new_post_infl_lrule & [needs-affix +, mal +, MALRULE.MAL-INFL.MAL-VERB-INFL +, LR [lr_inflected +], new-orth #orth, args < [morph , new-orth #orth]>]. MAL-verb-st_infl_rule := %suffix (e est) (!he !hst) (t st) (!hen !hst) (en est) old2new_post_infl_lrule & [needs-affix +, mal +, MALRULE.MAL-INFL.MAL-VERB-INFL +, LR [lr_inflected +], new-orth #orth, args < [morph , new-orth #orth]>]. MAL-verb-t_infl_rule := %suffix (!he !ht) (!hst !ht) (!hen !ht) old2new_post_infl_lrule & [needs-affix +, mal +, MALRULE.MAL-INFL.MAL-VERB-INFL +, LR [lr_inflected +], new-orth #orth, args < [morph , new-orth #orth]>]. MAL-verb-et_infl_rule := %suffix (e et) (est et) (en et) old2new_post_infl_lrule & [needs-affix +, mal +, MALRULE.MAL-INFL.MAL-VERB-INFL +, LR [lr_inflected +], new-orth #orth, args < [morph , new-orth #orth]>]. MAL-verb-e_infl_rule := %suffix (en e) (et e) (!ht !he) (est e) (!hst !he) old2new_post_infl_lrule & [needs-affix +, mal +, MALRULE.MAL-INFL.MAL-VERB-INFL +, LR [lr_inflected +], new-orth #orth, args < [morph , new-orth #orth]>]. |#