;;; -*- 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-adj-en_infl_rule := %suffix (e en) (er en) (es en) (em en) old2new_post_infl_lrule & [needs-affix +, mal +, MALRULE.MAL-INFL [MAL-ADJ-INFL +, MAL-DET-INFL -], LR [lr_inflected +], new-orth #orth, args < [morph , new-orth #orth]>]. MAL-adj-es_infl_rule := %suffix (e es) (er es) (en es) (em es) old2new_post_infl_lrule & [needs-affix +, mal +, MALRULE.MAL-INFL [MAL-ADJ-INFL +, MAL-DET-INFL -], LR [lr_inflected +], new-orth #orth, args < [morph , new-orth #orth]>]. MAL-adj-er_infl_rule := %suffix (e er) (es er) (en er) (em er) old2new_post_infl_lrule & [needs-affix +, mal +, MALRULE.MAL-INFL [MAL-ADJ-INFL +, MAL-DET-INFL -], LR [lr_inflected +], new-orth #orth, args < [morph , new-orth #orth]>]. MAL-adj-em_infl_rule := %suffix (e em) (es em) (en em) (er em) old2new_post_infl_lrule & [needs-affix +, mal +, MALRULE.MAL-INFL [MAL-ADJ-INFL +, MAL-DET-INFL -], LR [lr_inflected +], new-orth #orth, args < [morph , new-orth #orth]>]. MAL-adj-e_infl_rule := %suffix (em e) (es e) (en e) (er e) old2new_post_infl_lrule & [needs-affix +, mal +, MALRULE.MAL-INFL [MAL-ADJ-INFL +, MAL-DET-INFL -], LR [lr_inflected +], new-orth #orth, args < [morph , new-orth #orth]>]. 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]>].