GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 17:08:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

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

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

10
src/arabic/ConjunctionAra.gf
View File

@@ -6,6 +6,7 @@ lincat
[S] = {s1,s2 : Order => Str} ; [S] = {s1,s2 : Order => Str} ;
[Adv] = {s1,s2 : Str} ; [Adv] = {s1,s2 : Str} ;
[NP] = {s1,s2 : Case => Str ; a : Agr ; empty : Str; isHeavy : Bool} ; [NP] = {s1,s2 : Case => Str ; a : Agr ; empty : Str; isHeavy : Bool} ;
[CN] = {s1,s2 : NTable ; g : Gender ; h : Species ; isDual : Bool ; np : Case => Str ; isHeavy : Bool} ;
[AP] = {s1,s2 : Species => Gender => Number => State => Case => Str} ; [AP] = {s1,s2 : Species => Gender => Number => State => Case => Str} ;
lin lin
@@ -34,8 +35,17 @@ lin
ConsAP = consrTable5 Species Gender Number State Case comma ; ConsAP = consrTable5 Species Gender Number State Case comma ;
ConjAP = conjunctDistrTable5 Species Gender Number State Case ; ConjAP = conjunctDistrTable5 Species Gender Number State Case ;
BaseCN cn1 cn2 = leanCN cn1 ** twoTable3 Number State Case (leanCN cn1) (leanCN cn2) ;
ConsCN cn cns = leanCN cn ** consrTable3 Number State Case comma (leanCN cn) cns ;
ConjCN conj cns = cns ** conjunctDistrTable3 Number State Case conj cns ;
oper oper
leanCN : CN -> CN = \cn -> cn ** {
np = \\_ => [] ;
s = \\n,s,c => cn2str cn n s c
} ;
conjAgr : Agr -> Agr -> Agr = \a,b -> { conjAgr : Agr -> Agr -> Agr = \a,b -> {
isPron = False ; isPron = False ;
pgn = let gnA = pgn2gn a.pgn ; gnB = pgn2gn b.pgn in pgn = let gnA = pgn2gn a.pgn ; gnB = pgn2gn b.pgn in