GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-06 17:52:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

added ExtAdvNP and ExtAdvVP in the resource grammar

Browse Source
This commit is contained in:
kr.angelov
2013-09-03 08:59:47 +00:00
parent fd17023eeb
commit d3d4400c0e
5 changed files with 13 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -31,6 +31,11 @@ concrete NounEng of Noun = CatEng ** open MorphoEng, ResEng, Prelude in {
a = np.a
} ;
ExtAdvNP np adv = {
s = \\c => np.s ! c ++ "," ++ adv.s ++ finalComma;
a = np.a
} ;
DetQuant quant num = {
s = quant.s ! num.hasCard ! num.n ++ num.s ! Nom;
sp = \\c => case num.hasCard of {

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

@@ -37,6 +37,7 @@ concrete VerbEng of Verb = CatEng ** open ResEng, Prelude in {
UseComp comp = insertObj comp.s (predAux auxBe) ;
AdvVP vp adv = insertObj (\\_ => adv.s) vp ;
ExtAdvVP vp adv = insertObj (\\_ => "," ++ adv.s ++ finalComma) vp ;
AdVVP adv vp = insertAdV adv.s vp ;
AdvVPSlash vp adv = insertObj (\\_ => adv.s) vp ** {c2 = vp.c2 ; gapInMiddle = vp.gapInMiddle} ;