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

VV rules

Browse Source
This commit is contained in:
aarne
2005-11-30 12:26:55 +00:00
parent 198b527658
commit 0c99efe54a
7 changed files with 35 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
lib/resource-1.0/gf/SentenceEng.gf
View File

@@ -43,7 +43,23 @@ concrete SentenceEng of Sentence = CatEng ** open ResEng in {
} ;
c2 = v2.c2
} ;
--- PredVP (np ** {lock_NP =<>}) (UseV (v2 ** {lock_V = <>})) ** {c2 = v2.c2} ;
--- not possible:
--- PredVP (np ** {lock_NP =<>}) (UseV (v2 ** {lock_V = <>})) ** {c2 = v2.c2} ;
SlashVVV2 np vv v2 = {
s = \\t,a,b,o =>
let
agr = np.a ;
verb = (predV vv).s ! t ! a ! b ! o ! agr ;
inf = "to" ++ v2.s ! VInf ;
subj = np.s ! Nom
in
case o of {
ODir => subj ++ verb.fin ++ verb.inf ++ inf ;
OQuest => verb.fin ++ subj ++ verb.inf ++ inf
} ;
c2 = v2.c2
} ;
AdvSlash slash adv = {
s = \\t,a,b,o => slash.s ! t ! a ! b ! o ++ adv.s ;