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

allow for negated CAdv

Browse Source
This commit is contained in:
Krasimir Angelov
2018-07-15 10:55:03 +02:00
parent 4c203cfd81
commit 19e8bab1a4
6 changed files with 16 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/english/AdverbEng.gf
+3 -3
View File
@@ -3,10 +3,10 @@ concrete AdverbEng of Adverb = CatEng ** open ResEng, Prelude in {
lin
PositAdvAdj a = {s = a.s ! AAdv} ;
ComparAdvAdj cadv a np = {
s = cadv.s ++ a.s ! AAdv ++ cadv.p ++ np.s ! npNom
s = cadv.s ! Pos ++ a.s ! AAdv ++ cadv.p ++ np.s ! npNom
} ;
ComparAdvAdjS cadv a s = {
s = cadv.s ++ a.s ! AAdv ++ cadv.p ++ s.s
s = cadv.s ! Pos ++ a.s ! AAdv ++ cadv.p ++ s.s
} ;
PrepNP prep np = {s = preOrPost prep.isPre prep.s (np.s ! NPAcc)} ;
@@ -16,6 +16,6 @@ concrete AdverbEng of Adverb = CatEng ** open ResEng, Prelude in {
SubjS = cc2 ;
AdnCAdv cadv = {s = cadv.s ++ cadv.p} ;
AdnCAdv cadv = {s = cadv.s ! Pos ++ cadv.p} ;
}