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

added ByVP, InOrderToVP and CompoundAP

Browse Source
This commit is contained in:
Krasimir Angelov committed 2018-06-26 12:26:41 +02:00
1 parent 39bca7b395
commit a730a3194b
3 files changed
+25 -7
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

src/english/ExtendEng.gf
+3 -2
View File
@@ -251,12 +251,13 @@ concrete ExtendEng of Extend =
SlashBareV2S v s = insertExtrac s.s (predVc v) ;
CompoundN noun cn = {
s = (\\n,c => noun.s ! Sg ! Nom ++ cn.s ! n ! c) ;
s = \\n,c => noun.s ! Sg ! Nom ++ cn.s ! n ! c ;
g = cn.g
} ;
CompoundAP noun adj = {
s = (\\_ => noun.s ! Sg ! Nom ++ adj.s ! AAdj Posit Nom) ;
s = variants {\\_ => noun.s ! Sg ! Nom ++ adj.s ! AAdj Posit Nom ;
\\_ => noun.s ! Sg ! Nom ++ BIND++"-"++BIND ++ adj.s ! AAdj Posit Nom} ;
isPre = True
} ;