mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 17:08:54 -06:00
(Pes) Add a constructor for N that doesn't pattern match
This commit is contained in:
@@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user