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


;;; Authors: 
;;; 1997-2000 Walter Kasper & Stefan Müller
;;; 2000-2002 Stefan Müller
;;; 2002-2008 Berthold Crysmann
;;; 2007 Nicolai Kilian
;;; 2007      Nicolai Kilian

;;; Copyright: DFKI GmbH



utterance-v-scnd-nopunct :=
		   sign & 
		   [synsem complete-synsem & 
			   [loc [ cat.head initial_+_fin-verb-head
					   ],
			    V2 v2 ], 
                    RESTR-COLL.SPANNING-ONLY -,
		    SIGNPUNCT.RPUNCT no_punct ].


utterance-v-scnd :=
		   sign & 
		   [synsem complete-synsem & 
			   [loc [ cat.head initial_+_fin-verb-head
					   ],
			    V2 v2 ], 
                    RESTR-COLL.got-rpunct-msgpred +,
		    SIGNPUNCT [ LPUNCT advers_comma_punct_min,
                                RPUNCT clause_punct_min & [ PUNCTACCURACY considerpunct ],
				PAREN advers_comma_punct_min ] ].

utterance-non-v :=
		  sign & 
		  [synsem complete-synsem & 
			  [loc.cat.head non-verbal-root-head],
		   vf -,
		   lr lr-syntax
			  ].

utterance-int-clause :=
 sign & [
 synsem int-clause-synsem,
 RESTR-COLL.got-rpunct-msgpred +,
 SIGNPUNCT [ LPUNCT advers_comma_punct_min,
	     RPUNCT clause_or_no_punct & [ PUNCTACCURACY considerpunct ],
	     PAREN advers_comma_punct_min ]
 ].

utterance-turn-seq :=
 sign & [
 synsem complete-synsem & [
        loc.cat.head turn-seq-head
            ],
 RESTR-COLL.got-rpunct-msgpred +,
 SIGNPUNCT [ LPUNCT advers_comma_punct_min,
	     RPUNCT clause_or_no_punct & [ PUNCTACCURACY considerpunct ],
	     PAREN advers_comma_punct_min ]
        ].



utterance-coord :=
 sign & [
 synsem complete-synsem & [
        loc [ cat.head coord-head & [ 
                       spec complete-synsem,
                       coordform normal-coord
                       ]
            ]
       ],
 RESTR-COLL.got-rpunct-msgpred +,
 SIGNPUNCT [ LPUNCT advers_comma_punct_min,
	     RPUNCT clause_punct_min & [ PUNCTACCURACY considerpunct ],
	     PAREN advers_comma_punct_min ]
 ].

complete-word := sign & 
		 [LR.LR_INFLECTED +].


utterance-v-scnd-ignp :=
		   sign & 
		   [synsem complete-synsem & 
			   [loc [ cat.head initial_+_fin-verb-head
					   ],
			    V2 v2 ], 
                    RESTR-COLL.SPANNING-ONLY -,
		    SIGNPUNCT.RPUNCT.PUNCTACCURACY ignorepunct ].

utterance-int-clause-ignp :=
 sign & [
 synsem int-clause-synsem,
 RESTR-COLL.SPANNING-ONLY -,
 SIGNPUNCT.RPUNCT.PUNCTACCURACY ignorepunct ].

utterance-turn-seq-ignp :=
 sign & [
 synsem complete-synsem & [
        loc.cat.head turn-seq-head
            ],
 RESTR-COLL.SPANNING-ONLY -,
SIGNPUNCT.RPUNCT.PUNCTACCURACY ignorepunct ].
      

utterance-coord-ignp :=
 sign & [
 synsem complete-synsem & [
        loc [ cat.head coord-head & [ 
                       spec complete-synsem,
                       coordform normal-coord
                       ]
            ]
       ],
 RESTR-COLL.SPANNING-ONLY -,
 SIGNPUNCT.RPUNCT.PUNCTACCURACY ignorepunct ].

MAL-utterance-v-scnd :=
		   sign & 
		   [MAL +,
		    synsem complete-synsem & 
			   [loc [ cat.head initial_+_fin-verb-head
					   ],
			    V2 v2
				],
		    RESTR-COLL.got-rpunct-msgpred +,
		    SIGNPUNCT [ LPUNCT advers_comma_punct_min,
                                RPUNCT clause_punct_min,
				PAREN advers_comma_punct_min ]].



MAL-utterance-non-v :=
		  sign & 
		  [MAL +,
		   synsem complete-synsem & 
			  [loc [ cat.head non-verbal-root-head]],
		   vf -,
		   lr lr-syntax
			  ].

MAL-utterance-int-clause :=
 sign & [MAL +,
	 synsem int-clause-synsem ,
	 RESTR-COLL.got-rpunct-msgpred +,
	 SIGNPUNCT [ LPUNCT advers_comma_punct_min,
                                RPUNCT clause_punct_min,
				PAREN advers_comma_punct_min ]
	     ].


MAL-utterance-turn-seq :=
		     sign & 
		     [MAL +,
		      synsem complete-synsem & 
			  [loc [ cat.head turn-seq-head ]
			       ],
		      RESTR-COLL.got-rpunct-msgpred +,
		      SIGNPUNCT [ LPUNCT advers_comma_punct_min,
                                RPUNCT clause_punct_min,
				PAREN advers_comma_punct_min ]
			  ].

MAL-utterance-coord :=
		      sign & [MAL +,
			      synsem complete-synsem & 
				  [loc [ cat.head coord-head & 
						  [spec complete-synsem,
						   coordform normal-coord
							]
						  ]
				       ],
			      RESTR-COLL.got-rpunct-msgpred +,
			      SIGNPUNCT [ LPUNCT advers_comma_punct_min,
                                RPUNCT clause_punct_min,
				PAREN advers_comma_punct_min ]
				  ].



complete-word := 
		 infl_lrule & 
		 [synsem.loc.cat.vcomp *vc-eps-list*].