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

insertObject in AdVP in tutorial/syntax

Browse Source
This commit is contained in:
aarne
2007-10-23 21:03:06 +00:00
parent 8f100593c0
commit bd7123902c
1 changed files with 2 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
examples/tutorial/syntax/GrammarEng.gf
View File

@@ -61,15 +61,9 @@ concrete GrammarEng of Grammar = open Prelude, MorphoEng in {
ModCN ap cn = {s = \\n => ap.s ++ cn.s ! n} ; ModCN ap cn = {s = \\n => ap.s ++ cn.s ! n} ;
AdVP adv vp = { AdVP adv = insertObject adv.s ;
s = \\o,b,n =>
let vps = vp.s ! o ! b ! n in {
fin = vps.fin ;
inf = vps.inf ++ adv.s
}
} ;
AdAP ada ap = {s = ada.s ++ ap.s} ; AdAP ada ap = {s = ada.s ++ ap.s} ;
IDetCN det cn = {s = det.s ++ cn.s ! det.n ; n = det.n} ; IDetCN det cn = {s = det.s ++ cn.s ! det.n ; n = det.n} ;