;;; Hey, emacs(1), this is -*- Mode: TDL; Coding: utf-8; -*- got it?

;;; Author(s):
;;; 2008 Berthold Crysmann



abstr_v_rel := arg1_v_mtr &
	       [INPUT.RELS <[PRED "de:abstr_v_rel"]>,
		OUTPUT.RELS <[PRED ellipsis_ref_rel]>].

bark_bellen_v_mtr := arg1_v_mtr &
		   [INPUT.RELS <[PRED "de:_bellen_v_haben_rel"]>,
		    OUTPUT.RELS <[PRED "_bark_v_1_rel"]>].

lachen_laugh_v_mtr := arg1_v_mtr &
		   [INPUT.RELS <[PRED "de:_lachen_v_haben_rel"]>,
		    OUTPUT.RELS <[PRED "_laugh_v_at_rel"]>].

weinen_cry_v_mtr := arg1_v_mtr &
		   [INPUT.RELS <[PRED "de:_weinen_v_haben_rel"]>,
		    OUTPUT.RELS <[PRED "_cry_v_1_rel"]>].


jagen_hunt_v_mtr := arg12_v_omtr &
		  [INPUT.RELS < [ PRED "de:_jagen_v_haben_rel"] > ,
		   OUTPUT.RELS < [ PRED "_hunt_v_1_rel"] > ] . 

jagen_chase_v_mtr := arg12_v_mtr &
		  [INPUT.RELS < [ PRED "de:_jagen_v_haben_rel"] > ,
		   OUTPUT.RELS < [ PRED "_chase_v_1_rel"] > ] . 


sich-oeffnen_open_v_mtr := arg1_v_mtr &
		  [INPUT.RELS < [ PRED "de:_öffnen_v_refl-haben_rel"] > ,		   OUTPUT.RELS < [ PRED "_open_v_1_rel" ] > ] . 

oeffnen_open_v_mtr := arg1_v_mtr &
		  [INPUT.RELS < [ PRED "de:_öffnen_v_haben_rel"] > ,
		   OUTPUT.RELS < [ PRED "_open_v_cause_rel" ] > ] . 


regnen_rain_v_mtr := expl_v_mtr &
		  [INPUT.RELS < [ PRED "de:_regnen_v_expl-haben_rel" ] > ,
		   OUTPUT.RELS < [ PRED "_rain_v_1_rel" ] > ] .

reichen_hand_v_mtr := arg123_v_mtr &
		  [INPUT.RELS < [ PRED "de:_reichen_v_haben_rel" ] > ,
		   OUTPUT.RELS < [ PRED "_hand_v_1_rel" ] > ] .


ankommen_arrive_v_mtr := arg1_v_mtr &
		  [INPUT.RELS < [ PRED "de:_ankommen_v_sein_rel"] > ,
		   OUTPUT.RELS < [ PRED "_arrive_v_1_rel"] > ] . 

sich-fragen_wonder_v_mtr := arg12_v_mtr &
		  [INPUT.RELS < [ PRED "de:_fragen_v_refl-haben_rel"] > ,
		   OUTPUT.RELS < [ PRED "_wonder_v_1_rel"] > ]. 


stoeren_bother_v_mtr :=
		 arg12_v_mtr &
		 [INPUT.RELS < [ PRED "de:_stoeren_v_haben_rel"] > ,
		  OUTPUT.RELS < [ PRED "_bother_v_1_rel"] > ]. 




wetten-mit_bet_v_mtr := monotonic_mtr &
		      [INPUT.RELS <[ PRED "de:_wetten_v_um-haben_rel",
				     LBL #l,
				     ARG0 #0,
				     ARG1 #1,
				     ARG2 #2,
				     ARG3 #4],
				   [ PRED "de:_mit_p_rel",
				     ARG1 #0,
				     LBL #l,
				     ARG2 #3]
				   >,
		       OUTPUT.RELS <[PRED "_bet_v_on_rel",
				     LBL #l,
				     ARG0 #0,
				     ARG1 #1,
				     ARG2 #2,
				     ARG3 #3,
				     ARG4 #4]>].

wetten_bet_v_mtr := monotonic_mtr &
		  [INPUT.RELS <[ PRED "de:_wetten_v_um-haben_rel",
				 LBL #l,
				 ARG0 #0,
				 ARG1 #1,
				 ARG2 #2,
				 ARG3 #4]
			       >,
		   OUTPUT.RELS <[PRED "_bet_v_on_rel",
				 LBL #l,
				 ARG0 #0,
				 ARG1 #1,
				 ARG2 #2,
				 ARG3 x,
				 ARG4 #4]>].


wissen_know_v_mtr := arg12_v_mtr &
		   [INPUT.RELS < [PRED "de:_wissen_v_haben_rel"] >,
		    OUTPUT.RELS < [PRED "_know_v_1_rel"] > ] . 
  

moegen_like__v_mtr := arg12_v_mtr &
		   [INPUT.RELS < [PRED "de:_mögen_v_haben_rel"] >,
		    OUTPUT.RELS < [PRED "_like_v_1_rel"] > ]. 

finden_find__v_mtr := arg12_v_mtr &
		   [INPUT.RELS < [PRED "de:_finden_v_haben_rel"] >,
		    OUTPUT.RELS < [PRED "_find_v_1_rel"] > ]. 

versprechen_promise_v_mtr := arg123_v_mtr &
		   [INPUT.RELS < [PRED "de:_versprechen_v_haben_rel"] >,
		    OUTPUT.RELS < [PRED "_promise_v_1_rel"] > ]. 

stoeren_bother_v_mtr := arg12_v_mtr &
		   [INPUT.RELS < [PRED "de:_stören_v_haben_rel"] >,
		    OUTPUT.RELS < [PRED "_bother_v_1_rel"] > ]. 

erscheinen_strike_v_mtr := arg12_arg21_v_mtr &
		   [INPUT.RELS < [PRED "de:_erscheinen_v_sein_rel"] >,
		    OUTPUT.RELS < [PRED "_strike_v_as_rel"] > ]. 

ueberlassen_leave-to_v_mtr := arg123_v_mtr &
		   [INPUT.RELS < [PRED "de:_überlassen_v_expl-haben_rel"] >,
		    OUTPUT.RELS < [PRED "_leave_v_to_rel"] > ]. 


versuchen_try-to_v_mtr := 
			  arg12_v_mtr &
			  [INPUT.RELS < [PRED "de:_versuchen_v_haben_rel",
					 ARG2 h] >,
			   OUTPUT.RELS < [PRED "_try_v_1_rel"] > ]. 

koennen_can_v_mtr := 
		     arg1_v_mtr &
		     [INPUT.RELS < [PRED "de:_können_v_haben_rel",
				    ARG0 e & [MOOD indicative],
				    ARG1 h] >,
		      OUTPUT.RELS < [PRED _can_v_modal_rel] > ]. 

koennen_could_v_mtr := 
		     arg1_v_mtr &
		     [INPUT.RELS < [PRED "de:_können_v_haben_rel",
				    ARG0 e & [MOOD subjunctive],
				    ARG1 h] >,
		      OUTPUT.RELS < [PRED _could_v_modal_rel] > ]. 


kommen_arrive_v_mtr := 
			  arg1_v_omtr &
			  [INPUT.RELS < [PRED "de:_kommen_v_sein_rel"] >,
			   OUTPUT.RELS < [PRED "_arrive_v_1_rel"] > ]. 

kommen_come_v_mtr := 
			  arg1_v_mtr &
			  [INPUT.RELS < [PRED "de:_kommen_v_sein_rel"] >,
			   OUTPUT.RELS < [PRED "_come_v_1_rel"] > ]. 


geben-exist_be-there_v_mtr := arg1_v_mtr &
		   [INPUT.RELS <[PRED "de:_geben-exist_v_expl-haben_rel"]>,
		    OUTPUT.RELS <[PRED _be_v_there_rel]>].


brauchen_take_v_mtr := monotonic_omtr &
		       [INPUT.RELS <[PRED "de:_brauchen_v_haben_rel",
				     LBL #l,
				     ARG0 #0,
				     ARG1 #3,
				     ARG2 #2]>,
			OUTPUT [RELS <[PRED "_take_v_1_rel",
				       LBL #l,
				       ARG0 #0,
				      ARG1 #1,
				      ARG2 #2,
				      ARG3 #3],
				     [PRED pronoun_q_rel,
				      LBL h,
				      BODY h,
				      ARG0 #1,
				      RSTR #harg],
				     [PRED pron_rel,
				      LBL #larg,
				      ARG0 #1 & [PERS 3,
						 NUM sg,
						 GEND n,
						 PRONTYPE std_pron]]>,
				HCONS <qeq & [HARG #harg,
					      LARG #larg]>]].


brauchen_need_v_mtr := arg12_v_mtr &
		   [INPUT.RELS <[PRED "de:_brauchen_v_haben_rel",
				 ARG2 x]>,
		    OUTPUT.RELS <[PRED "_need_v_1_rel"]>].

reinstopfen_squeeze-in_v_mtr := arg12_v_mtr &
		   [INPUT.RELS <[PRED "de:_reinstopfen_v_haben_rel",
				 ARG2 x]>,
		    OUTPUT.RELS <[PRED "_squeeze_v_in_rel"]>].

reinzwaengen_squeeze-in_v_mtr := arg12_v_mtr &
		   [INPUT.RELS <[PRED "de:_reinzwängen_v_haben_rel",
				 ARG2 x]>,
		    OUTPUT.RELS <[PRED "_squeeze_v_in_rel"]>].


sperren_put_v_mtr := arg12_v_mtr &
		   [INPUT.RELS <[PRED "de:_sperren_v_haben_rel"]>,
		    OUTPUT.RELS <[PRED "_put_v_1_rel"]>].