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

RelNP and ApposNP should put a final comma after the inserted phrase.

Browse Source
This commit is contained in:
kr.angelov
2013-09-03 08:00:59 +00:00
parent ee7307fbfb
commit b9192ccccf
3 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/src/english/NounEng.gf
View File

@@ -22,7 +22,7 @@ concrete NounEng of Noun = CatEng ** open MorphoEng, ResEng, Prelude in {
} ; } ;
RelNP np rs = { RelNP np rs = {
s = \\c => np.s ! c ++ "," ++ rs.s ! np.a ; s = \\c => np.s ! c ++ "," ++ rs.s ! np.a ++ finalComma ;
a = np.a a = np.a
} ; } ;

2
lib/src/english/ParseEng.gf
View File

@@ -133,7 +133,7 @@ lin
} ; } ;
ApposNP np1 np2 = { ApposNP np1 np2 = {
s = \\c => np1.s ! c ++ "," ++ np2.s ! npNom ; s = \\c => np1.s ! c ++ "," ++ np2.s ! npNom ++ finalComma ;
a = np1.a a = np1.a
} ; } ;

1
lib/src/english/ResEng.gf
View File

@@ -523,5 +523,6 @@ resource ResEng = ParamX ** open Prelude in {
} }
} ; } ;
finalComma : Str = pre {"," | "." => []; "" => ","; _ => []} ;
} }