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

;;; Authors: 
;;; 2005-2006 Berthold Crysmann

;;; Copyright: DFKI GmbH


;;; Imperative

vx-pres-sg-imp-2_suffix_infl_rule := 
%suffix (* e) (e e) (!cel !cle)  
				     vx_fin_infl_lrule & 
				     [synsem.loc.cont.message [pred imp_m_rel],
				      morph <! [head vmorph-head &
						     [mclass vclass-reg,
						      fin [e imp,
							   uniagr c-s-g & [png 2-s-g ]]]] !> ].

vx-pres-sg-imp-2-base_suffix_infl_rule := 
%suffix (!t !t) (!v!m !v!m) (!r!m !r!m) (!vh!m !vh!m) (!c!c !c!c) (!i !i) (!s !s) (ch ch)  
				     vx_fin_infl_lrule & 
				     [synsem.loc.cont.message [pred imp_m_rel],
				      morph <! [head vmorph-head &
						     [mclass vclass-reg,
						      fin [e imp,
							   uniagr c-s-g & [png 2-s-g ]]]] !> ].



vx-imp-pl-2_suffix_infl_rule :=  
%suffix (!t !tt) (!v!m !v!mt) (!r!m !r!mt) (!vh!m !vh!mt) (mm mmt) (nn nnt) (!v !vt) (!s !st) (!d !det) (!l!m !l!met) (!ch!m !ch!met)
				 vx_fin_infl_lrule & 
				 [synsem.loc.cont.message [pred imp_m_rel],
				  morph <! [head vmorph-head &
						 [mclass vclass-reg,
						  fin [e imp,
						       uniagr c-p-g & [png 2-p-g ]  ]]] !> ].

;;; Non-imperatives
vx-pres-pl-1-3_suffix_infl_rule := 
%suffix (!l !len) (!m !men) (h hen) (!ce!r !ce!rn) (!c!r !c!ren) (!c!uer !c!ueren) (!i!r !i!ren) (ie!r ie!ren) (!i !ien) 
				   vx_fin_infl_lrule & 
				   [morph <! [head vmorph-head &
						   [mclass vclass-reg,
						    fin [e prs,
							 uniagr c-p-g & [png 13-p-g & [_per [1+2 [list #ini & 1per-list,
												   last #end],
											      1 [list #ini,
												 last #mid],
											      2 [list #mid,
												 last #end]]]]] ]] !> ].


vx-pres-ind-sg-2-3-pl-2_suffix_infl_rule := 
%suffix (!s !st) 
						    vx_fin_infl_lrule & 
						    [morph <! [head vmorph-head &
								    [mclass vclass-reg,
								     fin [e prs-ind,
									  uniagr [png 23-s-g+2-p-g & [_PER.1 <! !>]]]]] !> ].

vx-pres-ind-sg-3-pl-2_suffix_infl_rule :=  
%suffix (!t !tt) (!v!m !v!mt) (!r!m !r!mt) (!vh!m !vh!mt) (mm mmt) (nn nnt) (!v !vt) (!d !det) (!l!m !l!met) (!ch!m !ch!met)
						   vx_fin_infl_lrule & 
						   [morph <! [head vmorph-head &
								   [mclass vclass-reg,
								    fin [e prs-ind,
									 uniagr [png 3-s-g+2-p-g & [_PER.1 <! !>]] ]]] !> ].


				

vx-pres-sg-1_suffix_infl_rule := 
%suffix (* e) (!cel !cle) 
				 vx_fin_infl_lrule & 
				 [morph <! [head vmorph-head &
						 [mclass vclass-reg,
						  fin [e prs,
						       uniagr c-s-g & [png 1-s-g ]]]] !> ].

vx-pres-sg-conj-3_suffix_infl_rule := 
%suffix (* e) (!cel !cle)
				      vx_fin_infl_lrule & 
				      [morph <! [head vmorph-head &
						      [mclass vclass-reg,
						       fin [e prs-sbj,
							    uniagr c-s-g & [png 3-s-g ]]]] !> ].


vx-pres-sg-2_suffix_infl_rule := 
%suffix (!d !dest) (!l!m !l!mest)
				     vx_fin_infl_lrule & 
				     [morph <! [head vmorph-head &
						     [mclass vclass-reg,
						      fin [e prs,
							   uniagr c-s-g & [png 2-s-g ]] ]] !> ].
				
vx-pres-ind-sg-2_suffix_infl_rule := 
%suffix (!t !tst) (!v!m !v!mst) (!r!m !r!mst) (!vh!m !vh!mst) (mm mmst) (nn nnst) (!v !vst)
				     vx_fin_infl_lrule & 
				     [morph <! [head vmorph-head &
						     [mclass vclass-reg,
						      fin [e prs-ind,
							   uniagr c-s-g & [png 2-s-g ]] ]] !> ].


vx-pres-conj-sg-2_suffix_infl_rule := 
%suffix (!e !eest) (!v!m !v!mest) (!r!m !r!mest) (!vh!m !vh!mest) (mm mmest) (nn nnest) (!v !vest)
				      vx_fin_infl_lrule & 
				      [morph <! [head vmorph-head &
						      [mclass vclass-reg,
						       fin [e prs-sbj,
							    uniagr c-s-g & [png 2-s-g ]] ]] !> ].


vx-pres-conj-pl-2_suffix_infl_rule := 
%suffix (!e !eet) (!v!m !v!met) (!r!m !r!met) (!vh!m !vh!met) (mm mmet) (nn nnet) (!v !vet) (!d !det) (!l!m !l!met) (!ch!m !ch!met) (!r !rt)
				      vx_fin_infl_lrule & 
				      [morph <! [head vmorph-head &
						      [mclass vclass-reg,
						       fin [e prs-sbj,
							    uniagr c-p-g & [png 2-p-g ]] ]] !> ].


vx-past-sg-1-3_suffix_infl_rule := 
%suffix (!t !tte) (!v!m !v!mte) (!r!m !r!mte) (!vh!m !vh!mte) (mm mmte) (nn nnte) (!v !vte) (!s !ste) (!d !dete) (!l!m !l!mete) (!vh!m !vh!mte) (!ch!m !ch!mete) 
				   vx_fin_infl_lrule & 
				   [morph <! [head vmorph-head &
						   [mclass vclass-reg,
						    fin [e pst,
							 uniagr c-s-g & [png 13-s-g ]] ]] !> ].


			  ; 
vx-past-sg-2_suffix_infl_rule := 
%suffix (!t !ttest) (!v!m !v!mtest) (!r!m !r!mtest) (!vh!m !vh!mtest) (mm mmtest) (nn nntest) (!v !vtest) (!s !stest) (!d !detest) (!l!m !l!metest) (!vh!m !vh!mtest) (!ch!m !ch!metest)  
				 vx_fin_infl_lrule & 
				 [morph <! [head vmorph-head &
						 [mclass vclass-reg,
						  fin [e pst,
						       uniagr c-s-g & [png 2-s-g ]] ]] !> ].


vx-past-pl-1-3_suffix_infl_rule :=  
%suffix (!t !tten) (!v!m !v!mten) (!r!m !r!mten) (!vh!m !vh!mten) (mm mmten) (nn nnten) (!v !vten) (!s !sten) (!d !deten) (!l!m !l!meten) (!vh!m !vh!mten) (!ch!m !ch!meten)
				    vx_fin_infl_lrule & 
				    [morph <! [head vmorph-head &
						    [mclass vclass-reg,
						     fin [e pst,
							  uniagr c-p-g & [png 13-p-g & [_per [1+2 [list #ini & 1per-list,
												   last #end],
											      1 [list #ini,
												 last #mid],
											      2 [list #mid,
												 last #end]]]]] ]] !> ].


vx-past-pl-2_suffix_infl_rule := 
%suffix (!t !ttet) (!v!m !v!mtet) (!r!m !r!mtet) (!vh!m !vh!mtet) (mm mmtet) (nn nntet) (!v !vtet) (!s !stet)  (!d !detet) (!l!m !l!metet) (!vh!m !vh!mtet) (!ch!m !ch!metet) 
				 vx_fin_infl_lrule & 
				 [morph <! [head vmorph-head &
						 [mclass vclass-reg,
						  fin [e pst,
						       uniagr c-p-g & [png 2-p-g  ]]]] !> ].



vx-ge_prefix_infl_rule :=
%prefix (* ge)
			 pre_infl_lrule &
			 [needs-affix +,
			  lr [lr_inflected -,
			      p -],
			  morph <! [head vx-sup-perf & [mclass vclass-reg]] !>,
			  args <[synsem.loc.cat.head.flip -,
				 lr [lr_inflected -,
				     p +]]>].


			 

vx-sup-perf_suffix_infl_rule :=
%suffix (!t !tt) (!v!m !v!mt) (!r!m !r!mt) (!vh!m !vh!mt) (mm mmt) (nn nnt) (!v !vt) (!s !st) (!d !det) (!l!m !l!met) (!ch!m !ch!met)
			       vx_nonfin_infl_lrule &
			       [needs-affix +,
				lr [p -,
				    lr_inflected +],
				morph <! [head vx-sup-perf &
					       [mclass vclass-reg]] !>,
				args <[synsem.loc.cat.head.flip -,
				       lr [p -,
					   lr_inflected -]]>].


vx-sup-bare_suffix_infl_rule :=
%suffix (!l !len) (!m !men) (h hen) (!ce!r !ce!rn) (!c!r !c!ren) (!c!uer !c!ueren) (!i!r !i!ren) (ie!r ie!ren) (!i !ien) (tu tun) (sei sein) (müss müssen)
			       vx_nonfin_infl_lrule &
			       [needs-affix +,
				lr [lr_inflected +],
				morph <! [head vx-sup-bare &
					       [mclass vclass,
						fin.e [mood no_mood]]] !>].


vx-zu_prefix_infl_rule :=
%prefix (* zu)
			 pre_infl_lrule &
			 [needs-affix +,
			  lr [lr_inflected -,
			      p na],
			  morph <! [head vx-sup-zu & [mclass vclass]] !>,
			  args <[synsem.loc.cat.vcomp <particle-sep-or-nonsep-synsem, ...>,
				 lr.p bool]>].



vx-sup-zu_suffix_infl_rule :=
%suffix (!l !len) (!m !men) (h hen)(!ce!r !ce!rn) (!c!r !c!ren) (!i!r !i!ren) (ie!r ie!ren) (sei sein) 
			       vx_nonfin_infl_lrule &
			       [needs-affix +,
				lr [lr_inflected +,
				    p -],
				morph <! [head vx-sup-zu &
					       [mclass vclass]] !>,
				args <[synsem.loc.cat.vcomp <particle-sep-or-nonsep-synsem, ...>,
				       lr [lr_inflected -,
					   p na ]]>].



participle-bse-rule_infl_rule := 
%suffix (en end)		       
		       participle-bse-rule & 
		       [needs-affix +,
			args <[morph <! [head vx-sup-bare] !>]>]. 


participle-zu-inf_infl_rule := 
%suffix (en end)		       
		       participle-zu-inf-lrule-1 & 
		       [needs-affix +,
			args <[morph <! [head vx-sup-zu] !>]>]. 

participle-zu-inf-pp1_infl_rule := 
%suffix (en end)		       
		       participle-zu-inf-lrule-pp-1 & 
		       [needs-affix +,
			args <[morph <! [head vx-sup-zu] !>]>]. 

participle-zu-inf-pp2_infl_rule := 
%suffix (en end)		       
		       participle-zu-inf-lrule-pp-2 & 
		       [needs-affix +,
			args <[morph <! [head vx-sup-zu] !>]>]. 

participle-zu-inf-sep_infl_rule := 
%suffix (en end)		       
		       participle-zu-inf-sep-lrule-1 & 
		       [needs-affix +,
			args <[morph <! [head vx-sup-bare] !>]>]. 

participle-zu-inf-sep-pp1_infl_rule := 
%suffix (en end)		       
		       participle-zu-inf-sep-lrule-pp-1 & 
		       [needs-affix +,
			args <[morph <! [head vx-sup-bare] !>]>]. 

participle-zu-inf-sep-pp2_infl_rule := 
%suffix (en end)		       
		       participle-zu-inf-sep-lrule-pp-2 & 
		       [needs-affix +,
			args <[morph <! [head vx-sup-bare] !>]>].