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

CompoundN in ExtendSwe and ExtendBul

Browse Source
This commit is contained in:
Krasimir Angelov
2018-05-12 17:41:12 +02:00
parent 38852ee672
commit 9544bd8e6b
4 changed files with 30 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/swedish/ExtendSwe.gf
+7 -2
View File
@@ -8,7 +8,8 @@ concrete ExtendSwe of Extend = CatSwe **
MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS,
ICompAP,
RNP, RNPList, ReflRNP, ReflPron, ReflPoss, PredetRNP, ConjRNP,
Base_rr_RNP, Base_nr_RNP, Base_rn_RNP, Cons_rr_RNP, Cons_nr_RNP
Base_rr_RNP, Base_nr_RNP, Base_rn_RNP, Cons_rr_RNP, Cons_nr_RNP,
CompoundN
]
with (Grammar = GrammarSwe)
**
@@ -143,6 +144,10 @@ concrete ExtendSwe of Extend = CatSwe **
Cons_rr_RNP x xs = consrTable Agr comma x xs ;
Cons_nr_RNP x xs = consrTable Agr comma {s = \\a => x.s ! NPAcc} xs ;
CompoundN n1 n2 = {
s = \\n,s,c => n1.co ++ BIND ++ n2.s ! n ! s ! c ;
co = n1.co ++ BIND ++ n2.co ;
g = n2.g
} ;
}