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

;;; Authors: 
;;; 1997-2000 Walter Kasper & Stefan Müller
;;; 2000-2002 Stefan Müller
;;; 2002-2006 Berthold Crysmann

;;; Copyright: DFKI GmbH

fin-lrule := fin-lrule.

unpers-SILR-lrule := unpers-SILR-lrule-type & 
		     [synsem.loc.cont.hook.index.e #e,
		      morph <! [head.fin.e #e] !>].

pers-SILR-lrule := pers-SILR-lrule-type & 
		   [synsem.loc.cont.hook.index.e #e,
		    morph <! [head.fin.e #e] !>].

non-fin-SILR-lrule := non-fin-SILR-lrule.

perfective-non-fin-lrule := perfective-non-fin-lrule.

tensed-non-fin-lrule := tensed-non-fin-lrule.


pers-passiv-lrule-1 := pers-passiv-lrule-1.

pers-passiv-lrule-2 := pers-passiv-lrule-2.

pers-passiv-lrule-3 := pers-passiv-lrule-3.


pers-passiv-pp-lrule-1 := pers-passiv-pp-lrule-1.

pers-passiv-pp-lrule-2 := pers-passiv-pp-lrule-2.

pers-passiv-pp-lrule-3 := pers-passiv-pp-lrule-3.


unpers-passiv-pp-lrule-1 := unpers-passiv-pp-lrule-1.

unpers-passiv-pp-lrule-2 := unpers-passiv-pp-lrule-2.

unpers-passiv-pp-lrule-3 := unpers-passiv-pp-lrule-3.

unpers-passiv-pp-lrule-0 := unpers-passiv-pp-lrule-0.



state-reflexive-lrule-1 := state-reflexive-lrule-1.






unpers-passiv-lrule :=
		      --tpc-nonloc-reent &
   no-rel-inher-nonloc-lrule &  [
   morph  #m,
   synsem non-fin-verb-synsem & [
          loc [ cat [ head  passive-verb-head & [
                               subj    #erg,
                               aux     #aux & -,
                               flip    #flip
                               ],
		      ucomps #uc,
                      subcat #lex-subcat,
                      vcomp  #vcomp
                    ],
		cont #cont & [hook [index event & [--psv +,
					     e.stative -]]
		]],
          v2 #v2
          ],
   lr.basic  -,
   ARGS <   
            [
            morph  #m & 
            [ LIST.FIRST.HEAD [ fin.e [tense no_tense],
                                VFORM ppp-sm
                              ]
            ],           
            synsem no-particle-verb-synsem & [ 
                   loc [ cat [ head   ppp-verb-head & [
                                          aux     #aux,
                                          flip    #flip
                                        ],
                                          subj    < ref-comp-noun-synsem & [
                                                    loc.cont.hook.index.sort agentive
                                                    ] >,
			       ucomps #uc,
                               subcat #lex-subcat,
                               vcomp  #vcomp
                               ],
                           erg     #erg & < >,
                          cont #cont
                         ],
                     v2 #v2
                  ],
            lr.basic  +
            ]
        >
   ].




;;; BC: Temporarily deactivated for debugging
#|
comp-adj-rule :=
   general-adj-lrule &
   [c-cont [rels <! [lbl #l,
		     pred "comp_rel",
		     arg0 event & [e no_tam,
				   --psv -],
		     arg1 #adj,
		     arg2 #arg] !>],
    synsem adj-synsem & 
	   [loc [ cat [ head   #h & [subj <[loc.uniagr._cas.first #cng ]>],
			subcat [list < comp-pp-synsem & [
				 loc [ uniagr #cng,
				       cat.head [extra +,
						 pform als_sprep-pform],
				       CONT [ hook [index #arg] ] ]
				 ] . #sc
				       >,
                                last #last
				     ]],
		  cont [hook [ltop #l,
			      index #adj]]
		      ],
	    nonloc #nl
		],
    ARGS <   [synsem adj-prd-synsem & 
		     [loc [ cat [ head   #h,
				  subcat [list #sc,
					  last #last]
					 ],
			    cont [hook [ltop #l,
					index #adj]]
				],
		      nonloc #nl & undef-nonlocs
			  ]
		     ]
	     >,
    MORPH <! [ head.cpr comp] !>
	   ].
|#


norm-adj-prd-lr  := norm-adj-prd-lrule-pos.

;norm-adj-prd-lr-comp := norm-adj-prd-lrule-comp.

;norm-adj-prd-lr-sup  := norm-adj-prd-lrule-sup.

norm-adj-non-prd-lr  := norm-adj-non-prd-lrule-pos.

;norm-adj-non-prd-lr-comp := norm-adj-non-prd-lrule-comp.

;norm-adj-non-prd-lr-sup  := norm-adj-non-prd-lrule-sup.

adv-lrule := adv-pos-lrule.

;adv-comp-lrule := adv-comp-lrule.


prep-noun-to-noun-mod-lrule :=
			      clex-id-lrule & 
			      [synsem #synsem & 
				      [loc.cont [key [arg0 event & [e no_tam],
						      arg1 index]]],
			       ARGS <   [synsem #synsem & 
						[loc.cat.head noun-mod-prep-or-postp-head
							      ]
						]
					>
				      ].


full-postp-noun-to-verb-mod-lrule :=
   clex-lrule & [
   synsem full-adj-or-verb-mod-postposition-synsem & [
          loc [ cat [head.mod.loc.cat.head prd-adj-or-participle-or-verb-head,
		     subcat #sc],
                cont #cont
              ]
          ],
   ARGS < [
            synsem full-noun-mod-postposition-synsem & [
                   loc [ cat.subcat #sc,
                         cont #cont & [key [arg1 event ,
					    arg0 event & [e no_tam]]]
                       ]
                   ]
            ]
        >
   ].

prep-pron-to-verb-mod-lrule :=
    clex-lrule & [
    synsem adj-or-verb-mod-prep-synsem & [
           loc [ cat [head [extra na_or_-,
			    mod.loc.cat.head prd-adj-or-participle-or-verb-head],
                    subcat #sc],
                 cont #cont
               ]
           ],
    ARGS <   [
             synsem pron-noun-mod-pp-synsem & [
                    loc [ cat [ head.verbmodposs +,
                                subcat #sc
                              ],
                          cont #cont & [key [arg1 event ,
					     arg0 event & [e no_tam]]]
                        ]
                    ]
             ]
         >
    ].

def-prep-noun-to-verb-mod-lrule :=
   clex-lrule & [
   synsem def-adj-or-verb-mod-preposition-synsem & [
          loc [ cat [head.mod.loc.cat.head prd-adj-or-participle-or-verb-head,
		     subcat #sc],
		cont #cont & [key [arg1 event,
				   arg0 event & [e no_tam]]]
              ]
          ],
   ARGS <   [
            synsem def-noun-mod-preposition-synsem & [
                   loc [ cat [ head.verbmodposs +,
                               subcat #sc
                             ],
                         cont #cont
                       ]
                   ]
            ]
        >
   ].

full-prep-noun-to-verb-mod-lrule :=
   clex-lrule & [
   synsem full-adj-or-verb-mod-preposition-synsem & [
          loc [ cat [head.mod.loc.cat.head prd-adj-or-participle-or-verb-head,
		     subcat #sc],
		cont #cont & [key [arg1 event ,
				   arg0 event & [e no_tam]]]
              ]
          ],
   ARGS <   [
            synsem full-noun-mod-preposition-synsem & [
                   loc [ cat [ head.verbmodposs +,
                               subcat #sc
                             ],
                         cont #cont
                       ]
                   ]
            ]
        >
   ].



pron-adv-lrule :=
   clex-id-lrule & [
   synsem #synsem,
   ARGS <   [
            synsem #synsem & d-pron-comp-pp-synsem
            ]
        >
   ].

rp-pron-adv-lrule :=
   final-lrule & [
   synsem [ loc #loc,
            nonloc contains-slash & [ rel   <! !>,
				      _slash #sl,
				      slash #sl & singleton-diff-list &
					    [ LIST.FIRST local & [
					cat.head rp-head
                                        ]
                           ]
                   ]
          ],
   ARGS <   [
            synsem d-pron-comp-pp-synsem & [
                   loc #loc
                   ]
            ]
        >
   ].


;adv-flex-lr-0-0 := adv-flex-lr-0-0.

;adv-flex-lr-0-2 := adv-flex-lr-0-2.


;adv-flex-lr-1 := adv-flex-lr-1.

;adv-flex-lr-2 := adv-flex-lr-2.



#|
year-mod-lr := year-mod-lrule.
|#