msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

(Pes) Add {Base,Cons,Conj}CN

Browse Source
This commit is contained in:
Inari Listenmaa
2019-04-10 14:18:44 +02:00
parent 8717ad2eb9
commit 0a4b42b610
1 changed files with 14 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/persian/ConjunctionPes.gf
View File

@@ -35,11 +35,25 @@ concrete ConjunctionPes of Conjunction =
BaseAP x y = y ** twoTable Mod x y ; BaseAP x y = y ** twoTable Mod x y ;
ConsAP xs x = xs ** consrTable Mod comma xs x ; -- Table3 Number Gender Case comma xs x ;-- ** {isPre = andB xs.isPre x.isPre} ; ConsAP xs x = xs ** consrTable Mod comma xs x ; -- Table3 Number Gender Case comma xs x ;-- ** {isPre = andB xs.isPre x.isPre} ;
BaseCN cn1 cn2 = leanCN cn1 ** twoTable2 Number Mod (leanCN cn1) (leanCN cn2) ;
ConsCN cn cns = leanCN cn ** consrTable2 Number Mod comma (leanCN cn) cns ;
ConjCN conj cns = cns ** conjunctDistrTable2 Number Mod conj cns ;
lincat lincat
[S] = {s1,s2 : VVForm => Str} ; [S] = {s1,s2 : VVForm => Str} ;
[Adv] = {s1,s2 : Str} ; [Adv] = {s1,s2 : Str} ;
[NP] = {s1,s2 : Mod => Str} ** BaseNP ; [NP] = {s1,s2 : Mod => Str} ** BaseNP ;
[CN] = {s1,s2 : Number => Mod => Str ;
animacy : Animacy ;
isCmpd : CmpdStatus;
hasAdj : Bool ;
compl : Number => Str} ;
[AP] = {s1,s2 : Mod => Str ; adv : Str ; isPre : Bool} ; [AP] = {s1,s2 : Mod => Str ; adv : Str ; isPre : Bool} ;
[RS] = {s1,s2 : Agr => Str ; rp : RelPron => Str} ; [RS] = {s1,s2 : Agr => Str ; rp : RelPron => Str} ;
oper
leanCN : CN -> CN = \cn -> cn ** {
compl = \\n => [] ;
s = \\n,m => cn.s ! n ! m ++ cn.compl ! n ;
} ;
} }