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

;;; HAG (Hausa Grammar)
;;; Author: Berthold Crysmann 
;;; 2009

;;; Non-inflectional lexical rules

;;; Valency alternation 


opt-do_lr := opt-do-lex-rule.
opt-io_lr := opt-io-lex-rule.
opt-comp2_lr := opt-comp2-lex-rule.


comp-extra_lr := comp-extra-lex-rule.
comp2-extra_lr := comp2-extra-lex-rule.
ocomp-extra_lr := ocomp-extra-lex-rule.


nbar-mod-prep_lr := 
		    nbar-mod-prep-lrule.

vp-mod-prep_lr := 
		  vp-mod-prep-lrule.


poss-tr-lr := noun-poss-tr-lex-rule.

adj-tr-lr := adj-tr-lex-rule.

;;; Demonstrative type raising rules

dem-prox-high_lr := 
		    noun-dem-proximate-tr-lex-rule &
		    [SUPRA [TONE #tone,
			    LEN [LIST #llist,
				 LAST #llast],
			    TONES.LAST < <low>, ... >],
		     DTR [SUPRA [TONE #tone & [LIST <high, ...  >],
				 LEN [LIST #llist,
				      LAST #llast] ]]].

dem-prox-low_lr := 
		   noun-dem-proximate-tr-lex-rule &
		   [SUPRA [TONE #tone,
			   LEN [LIST #llist,
				LAST #llast],
			   TONES.LAST < <fall>, ... >],
		    DTR [SUPRA [TONE #tone & [LIST <low-final, ...  >],
				LEN [LIST #llist,
				     LAST #llast] ]]].

dem-rem-high_lr := 
		    noun-dem-remote-tr-lex-rule &
		    [SUPRA [TONE [LIST <fall . #tlist>,
				  LAST #tlast],
			    LEN [LIST #llist,
				 LAST #llast],
			    TONES.LAST < <high>, ... > ],
		     DTR [SUPRA [TONE [LIST <high . #tlist >,
				       LAST #tlast],
				 LEN [LIST #llist,
				      LAST #llast] ]]].


dem-rem-low_lr := 
		    noun-dem-remote-tr-lex-rule &
		    [SUPRA [TONE #tone,
			    LEN [LIST #llist,
				 LAST #llast],
			    TONES.LAST < <high>, ... >],
		     DTR [SUPRA [TONE #tone & [LIST <low-final, ...  >],
				 LEN [LIST #llist,
				      LAST #llast] ]]].