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

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

;;; Non-inflectional lexical rules

;;; Valency alternation 

;;;supra-reent_lr := supra-reent-lex-rule.

opt-comp_lr := opt-do-lex-rule.
opt-comp2_B-C_lr := opt-comp2-lex-rule &
		    [SYNSEM.LOCAL.CAT.VAL.COMPS frame-B-C-val-cons,
		     DTR.SYNSEM.LOCAL.CAT.VAL.COMPS frame-B-C-val-cons ].


opt-comp2_D_lr := opt-comp2-lex-rule & 
		  [SYNSEM.LOCAL.CAT.VAL.COMPS frame-D-val-cons,
		   DTR.SYNSEM.LOCAL.CAT.VAL.COMPS frame-D-val-cons ].


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

mod-to-prd_lr := mod-to-prd-tr-lex-rule. 

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] ]]].