(Pes) Add a constructor for N that doesn't pattern match

This commit is contained in:
Inari Listenmaa
2019-03-13 15:48:11 +01:00
parent 0c91baf08d
commit 9b9ef18242

View File

@@ -97,7 +97,7 @@ oper
isCmpd : CmpdStatus -- Affects possession: awkward to use poss. suff. with compound nouns isCmpd : CmpdStatus -- Affects possession: awkward to use poss. suff. with compound nouns
} ; } ;
mkN : (x1,x2 : Str) -> Animacy -> Noun = \sg,pl,ani -> { mkN : (x1,x2 : Str) -> Animacy -> Noun = \sg,pl,ani -> indeclN sg ** {
s = table { s = table {
Sg => table {Bare => sg ; Sg => table {Bare => sg ;
Ezafe => mkEzafe sg ; Ezafe => mkEzafe sg ;
@@ -106,10 +106,13 @@ oper
Pl => table {Bare => pl ; Pl => table {Bare => pl ;
Ezafe => mkEzafe pl ; Ezafe => mkEzafe pl ;
Clitic => mkEnclic pl ; Clitic => mkEnclic pl ;
Poss => mkPossStem pl } Poss => mkPossStem pl }}
} ; } ;
animacy = ani ; isCmpd = NotCmpd
} ; indeclN : Str -> Noun = \s -> {
s = \\_,_ => s ;
animacy = Inanimate ; isCmpd = NotCmpd
} ;
-- masculine nouns end with alif, choTi_hay, ain Translitration: (a, h, e) -- masculine nouns end with alif, choTi_hay, ain Translitration: (a, h, e)
-- Arabic nouns ends with h. also taken as Masc -- Arabic nouns ends with h. also taken as Masc