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

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

;;; Morphological type system 

;;; p-n-g hierarchy modelled after GG

sign :+ 
	[MORPH morph_min].

lexkeys :+ 
	   [--MCLASS mclass].

lex-item :+ 
	    [MORPH.MCLASS #mc, 
	     SYNSEM.LKEYS.--MCLASS #mc].

morph_min := avm & [MCLASS mclass,
		    COMPLETE luk].

;;; Syntactic Multiwourd Units:
;;; [COMPLETE luk] 

;;; E.g., total reduplication

;;; [COMPLETE -] right head (does not block lexical rules)
;;; [COMPLETE na] left non-head (block lexical rules)

;;; joji-jojin 

mclass := avm.

;;; See Newman (2000) for reference

;;; INH-GENDER specifies whether or not GENDER is inherently specified
;;; Mostly needed for nouns with alternating gender and adjectives.

nclass := mclass & [INH-GEND luk]. 


n-pl-none := nclass. 

n-pl2-gem+pl-5 := nclass.

n-pl-1 := nclass. 
n-pl-2 := nclass. 
n-pl-3 := nclass. 
n-pl-4 := nclass. 
n-pl-5 := n-pl2-gem+pl-5. 
n-pl-6 := nclass. 
n-pl-7 := nclass. 
n-pl-8 := nclass. 
n-pl-9 := nclass. 
n-pl-9i := n-pl-9. 
n-pl-9u := n-pl-9. 
n-pl-10 := nclass. 
n-pl-11 := nclass. 
n-pl-12 := nclass. 
n-pl-13 := nclass. 
n-pl-14 := nclass. 
n-pl-15 := nclass. 

n-pl-2_reg := n-pl-2.
n-pl-2_gem := n-pl-2 & n-pl2-gem+pl-5.
n-pl-2_nas := n-pl-2.
n-pl-2_redup := n-pl-2.

n-pl-3_C2aC3e := n-pl-3.
n-pl-3_CaCe := n-pl-3.
n-pl-3_aye := n-pl-3.

n-pl-6_una := n-pl-6.
n-pl-6_una_reg := n-pl-6_una.
n-pl-6_una_red := n-pl-6_una.
n-pl-6_una_gem := n-pl-6_una.

n-pl-8_eCani := n-pl-8.
n-pl-8_CaCCaki := n-pl-8.

vclass := mclass & [_HEAD verbal]. 

v-vn-reg-gr := vclass.
v-vn-non-wa-gr := vclass. 
v-vn-wa-gr := vclass. 

v-vclass := vclass.
vn-vclass := vclass. 
v-vn-irr-gr := vn-vclass.
v-vn-irr-m-gr := v-vn-irr-gr.
v-vn-irr-f-gr := v-vn-irr-gr.



v-itr-gr := v-vclass.
v-tr-gr := v-vclass.
v-high-do-gr :=  v-tr-gr. ;;; Grades 1 and 4
v-low-do-gr := v-tr-gr. ;;; Grades 2 and 6
v-short-C-gr := v-tr-gr. ;;; Grades 1, 2 and 4
v-reg-short-C-gr := v-short-C-gr. ;;; Grades 1 and 4: shortening w/o segmental alternation.
v-id-C-gr :=  v-tr-gr. ;;; Grades 0, 4, and 6
v-long-B-gr := v-tr-gr. ;;; Grades 0 and 6
v-non-id-C-gr := v-tr-gr & v-itr-gr.

v-gr0 := v-id-C-gr & v-long-B-gr & [_HEAD verb].
v-gr0a := v-gr0.
v-gr0b := v-gr0.
v-gr1 := v-reg-short-C-gr & v-high-do-gr & v-non-id-C-gr. 
v-gr2 := v-short-C-gr & v-low-do-gr & v-non-id-C-gr & [_HEAD verb]. 
v-gr3 := v-itr-gr & [_HEAD verb]. 
v-gr4 := v-high-do-gr & v-id-C-gr & v-reg-short-C-gr. 
v-gr5 := v-tr-gr. ;;; Needs more qualification. 
v-gr6 := v-low-do-gr & v-id-C-gr. 
v-gr7 := v-itr-gr. 

v-vn-gr0 := v-gr0 & v-vn-non-wa-gr.
v-vn-gr0a := v-vn-gr0 & v-gr0a.
v-vn-gr0b := v-vn-gr0 & v-gr0b.
v-vn-gr1 := v-gr1 & v-vn-wa-gr.
v-vn-gr2-3 := v-vn-non-wa-gr.
v-vn-gr2 := v-gr2 & v-vn-gr2-3.
v-vn-gr3 := v-gr3 & v-vn-gr2-3.
v-vn-gr4 := v-gr4 & v-vn-wa-gr.
v-vn-gr5 := v-gr5 & v-vn-wa-gr.
v-vn-gr6 := v-gr6 & v-vn-wa-gr.
v-vn-gr7 := v-gr7 & v-vn-wa-gr.


v-vn-reg-gr0 := v-vn-gr0 & v-vn-reg-gr.
v-vn-reg-gr1 := v-vn-gr1 & v-vn-reg-gr.
v-vn-reg-gr2 := v-vn-gr2 & v-vn-reg-gr.
v-vn-reg-gr3 := v-vn-gr3 & v-vn-reg-gr.
v-vn-reg-gr4 := v-vn-gr4 & v-vn-reg-gr.
v-vn-reg-gr5 := v-vn-gr5 & v-vn-reg-gr.
v-vn-reg-gr6 := v-vn-gr6 & v-vn-reg-gr.
v-vn-reg-gr7 := v-vn-gr7 & v-vn-reg-gr.

;;; Incompatible grade 
v-vn-irr-gr0 := v-vn-gr0.
v-vn-irr-gr1 := v-vn-gr1.
v-vn-irr-gr2 := v-vn-gr2.
v-vn-irr-gr3 := v-vn-gr3.
v-vn-irr-gr4 := v-vn-gr4.
v-vn-irr-gr5 := v-vn-gr5.
v-vn-irr-gr6 := v-vn-gr6.
v-vn-irr-gr7 := v-vn-gr7.


;;; Unified png types for nouns (-n/-r)

p-n-g := avm &
	 [PN pn,
	  GEND gender].

p-n-m+p-p-g := p-n-g. 
	       
p-s-g := p-n-g & [PN sg].
p-p-g := p-n-m+p-p-g & [PN pl].

p-n-m := p-n-m+p-p-g & [GEND m]. 
p-n-f := p-n-g & [GEND f]. 

p-s-m := p-n-m & p-s-g.
p-s-f := p-n-f & p-s-g.

p-p-m := p-n-m & p-p-g.
p-p-f := p-n-f & p-p-g.