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
2018-06-26 12:26:41 +02:00
parent 39bca7b395
commit a730a3194b
3 changed files with 25 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/english/ExtendEng.gf
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
} ;