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

allow compound nouns with dash

Browse Source
This commit is contained in:
Krasimir Angelov
2018-08-24 10:53:38 +02:00
parent 07b99f455f
commit 1e3e42e308
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/english/ExtendEng.gf
View File

@@ -251,10 +251,11 @@ 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 = variants {\\n,c => noun.s ! Sg ! Nom ++ cn.s ! n ! c ;
\\n,c => noun.s ! Sg ! Nom ++ BIND++"-"++BIND ++ cn.s ! n ! c} ;
g = cn.g
} ;
CompoundAP noun adj = {
s = variants {\\_ => noun.s ! Sg ! Nom ++ adj.s ! AAdj Posit Nom ;
\\_ => noun.s ! Sg ! Nom ++ BIND++"-"++BIND ++ adj.s ! AAdj Posit Nom} ;