msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

unbounded dep in resource with SlashVS

Browse Source
This commit is contained in:
aarne
2007-11-03 20:41:29 +00:00
parent 6f0009b11b
commit 7003654ca6
18 changed files with 452 additions and 347 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
lib/resource-1.0/finnish/CatFin.gf
View File

@@ -9,6 +9,7 @@ concrete CatFin of Cat = CommonX ** open ResFin, Prelude in {
S = {s : Str} ;
QS = {s : Str} ;
RS = {s : Agr => Str ; c : NPForm} ;
SlashS = {s : Str ; c2 : Compl} ;
-- Sentence

16
lib/resource-1.0/finnish/SentenceFin.gf
View File

@@ -53,6 +53,16 @@ concrete SentenceFin of Sentence = CatFin ** open Prelude, ResFin in {
c2 = prep
} ;
SlashVS np vs slash = {
s = \\t,a,p =>
(mkClause (subjForm np vs.sc) np.a
(insertExtrapos ("että" ++ slash.s)
(predV vs))
).s ! t ! a ! p ! SDecl ;
c2 = slash.c2
} ;
EmbedS s = {s = "että" ++ s.s} ;
EmbedQS qs = {s = qs.s} ;
EmbedVP vp = {s = infVP (NPCase Nom) Pos (agrP3 Sg) vp} ; --- case,pol,agr
@@ -63,7 +73,11 @@ concrete SentenceFin of Sentence = CatFin ** open Prelude, ResFin in {
s = \\r => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! r ;
c = cl.c
} ;
UseSlash t a p cl = {
s = t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ;
c2 = cl.c2
} ;
AdvS a s = {s = a.s ++ "," ++ s.s} ;
AdvS a s = {s = a.s ++ s.s} ;
}