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

IComp questions in resource added

Browse Source
This commit is contained in:
aarne
2006-04-20 15:32:48 +00:00
parent fe0d2f4896
commit 34a8f1b12f
15 changed files with 142 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/resource-1.0/scandinavian/CatScand.gf
View File

@@ -25,7 +25,8 @@ incomplete concrete CatScand of Cat =
QCl = {s : Tense => Anteriority => Polarity => QForm => Str} ;
IP = {s : NPForm => Str ; gn : GenNum} ;
IAdv = {s : Str} ;
IAdv = {s : Str} ;
IComp = {s : AFormPos => Str} ;
IDet = {s : Gender => Str ; n : Number ; det : DetSpecies} ;
-- Relative

16
lib/resource-1.0/scandinavian/QuestionScand.gf
View File

@@ -48,6 +48,18 @@ incomplete concrete QuestionScand of Question =
}
} ;
QuestIComp icomp np = {
s = \\t,a,p =>
let
cls =
(mkClause (np.s ! nominative) np.a (predV verbBe)).s ! t ! a ! p ;
why = icomp.s ! agrAdj np.a.gn DIndef
in table {
QDir => why ++ cls ! Inv ;
QIndir => why ++ cls ! Sub
}
} ;
PrepIP p ip = {
s = p.s ++ ip.s ! accusative
} ;
@@ -59,8 +71,10 @@ incomplete concrete QuestionScand of Question =
IDetCN idet num ord cn = let g = cn.g in {
s = \\c =>
idet.s ! g ++ num.s ! g ++ ord.s ++ cn.s ! idet.n ! idet.det ! caseNP c ;
idet.s ! g ++ num.s ! g ++ ord.s ++ cn.s !idet.n ! idet.det ! caseNP c ;
gn = gennum g idet.n
} ;
CompIAdv a = {s = \\_ => a.s} ;
}