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

tidy up res; bug fix in ShellState.addTransfer

Browse Source
This commit is contained in:
aarne
2005-12-05 16:14:12 +00:00
parent 3442d42d3b
commit 18986bfdd4
17 changed files with 164 additions and 268 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
lib/resource-1.0/english/QuestionEng.gf
View File

@@ -13,16 +13,9 @@ concrete QuestionEng of Question = CatEng ** open ResEng in {
} ---- "whether" in ExtEng
} ;
QuestVP qp vp = {
s = \\t,a,b,q =>
let
agr = {n = qp.n ; p = P3} ;
verb = vp.s ! t ! a ! b ! ODir ! agr ;
subj = qp.s ! Nom ;
compl = vp.s2 ! agr
in
subj ++ verb.fin ++ verb.inf ++ compl
} ;
QuestVP qp vp =
let cl = mkS (qp.s ! Nom) {n = qp.n ; p = P3} vp.s vp.s2
in {s = \\t,a,b,_ => cl.s ! t ! a ! b ! ODir} ;
QuestSlash ip slash = {
s = \\t,a,p =>