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

English and Swedish resource functions for Query

Browse Source
This commit is contained in:
aarne
2010-10-20 16:19:33 +00:00
parent 43cbc6693d
commit 8a29598f3c
16 changed files with 103 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
lib/src/scandinavian/QuestionScand.gf
View File

@@ -98,4 +98,23 @@ incomplete concrete QuestionScand of Question =
CompIAdv a = {s = \\_ => a.s} ;
CompIP ip = {s = \\_ => ip.s ! nominative} ;
lincat
QVP = CommonScand.VP ;
lin
ComplSlashIP vp np = insertObj (\\_ => vp.c2.s ++ np.s ! accusative) vp ;
AdvQVP vp adv = insertObjPost (\\_ => adv.s) vp ;
AddAdvQVP vp adv = insertObjPost (\\_ => adv.s) vp ;
QuestQVP qp vp = {
s = \\t,a,b,q =>
let
somo = case q of {
QIndir => <"som",Sub> ;
_ => <[], Main>
} ;
cl = mkClause (qp.s ! nominative ++ somo.p1) {g = qp.g ; n = qp.n ; p = P3} vp
in
cl.s ! t ! a ! b ! somo.p2
} ;
}