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

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

;;; Non-inflectional lexical rules

;;; Valency alternation 


;;; Now in lrules_min.tdl
;;; canon_comps_lr := canon-do-lex-rule.

non-canon_comps_lr := non-canon-do-lex-rule. 

canon_subj_lr := canon-subj-lex-rule.

non-canon_subj_lr := non-canon-subj-lex-rule.


null-pron-subj_lr := 
		     null-pron-subj-lex-rule.

;;; Now in lrules_min.tdl

; null-pron-comp_lr := 
; 		     null-pron-do-lex-rule.

#|
opt-comp2_B-C_lr := null-pron-do2-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 := null-pron-do2-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.


gr5-da-particle_lr :=
		     gr5-da-particle-lex-rule.

applic-tr-0_lr := applic-tr-lex-rule & 
		  [SYNSEM.LOCAL.CAT.VAL.COMPS <[LOCAL.CAT.VAL.COMPS <>] . #comps>,
		   DTR.SYNSEM.LOCAL.CAT.VAL.COMPS #comps].

applic-tr-1_lr := applic-tr-lex-rule & 
		  [SYNSEM.LOCAL.CAT.VAL.COMPS <[LOCAL.CAT.VAL.COMPS <#c & canonical-synsem>], #c . #comps>,
		   DTR.SYNSEM.LOCAL.CAT.VAL.COMPS #comps].

; applic-tr-2_lr := applic-tr-lex-rule & 
; 		  [SYNSEM.LOCAL.CAT.VAL.COMPS <[LOCAL.CAT.VAL.COMPS <#c>], [BOUND +], #c . #comps>,
; 		   DTR.SYNSEM.LOCAL.CAT.VAL.COMPS #comps].

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

;;; Now in lrules_min.tdl
; poss-tr-lr := noun-poss-tr-lex-rule.

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

;;; Demonstrative type raising rules

;;; Now in lrules_min.tdl
; dem-prox-high_lr := 
; 		    noun-dem-proximate-tr-lex-rule &
; 		    [SUPRA [TONE #tone,
; 			    LEN [LIST #llist,
; 				 LAST #llast]],
; 		     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]],
; 		    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] ],
; 		    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]],
; 		     DTR [SUPRA [TONE #tone & [LIST <low-final, ...  >],
; 				 LEN [LIST #llist,
; 				      LAST #llast] ]]].