GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-06-02 06:38: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

11
lib/resource-1.0/finnish/QuestionFin.gf
View File

@@ -28,6 +28,15 @@ concrete QuestionFin of Question = CatFin ** open ResFin, Prelude in {
s = \\t,a,p => iadv.s ++ cl.s ! t ! a ! p ! SDecl
} ;
QuestIComp icomp np = {
s = \\t,a,p =>
let
vp = predV (verbOlla ** {sc = NPCase Nom}) ;
cl = mkClause (subjForm np vp.sc) np.a vp ;
in
icomp.s ! np.a ++ cl.s ! t ! a ! p ! SDecl
} ;
PrepIP p ip = {s =
appCompl True Pos p (ip ** {a = agrP3 ip.n ; isPron = False})} ;
@@ -54,4 +63,6 @@ concrete QuestionFin of Question = CatFin ** open ResFin, Prelude in {
n = n
} ;
CompIAdv a = {s = \\_ => a.s} ;
}