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

scandinavian agreement to object

Browse Source
This commit is contained in:
aarne
2008-06-24 12:00:40 +00:00
parent 9945a5b08e
commit c122bc52d8
5 changed files with 51 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/resource-1.4/scandinavian/SentenceScand.gf
View File

@@ -21,20 +21,21 @@ incomplete concrete SentenceScand of Sentence =
mkClause
(np.s ! nominative) np.a
vp **
{c2 = vp.c2} ;
{n3 = vp.n3 ; c2 = vp.c2} ;
AdvSlash slash adv = {
s = \\t,a,b,o => slash.s ! t ! a ! b ! o ++ adv.s ;
n3 = slash.n3 ;
c2 = slash.c2
} ;
SlashPrep cl prep = cl ** {c2 = {s = prep.s ; hasPrep = True}} ;
SlashPrep cl prep = cl ** {n3 = \\_ => [] ; c2 = {s = prep.s ; hasPrep = True}} ;
SlashVS np vs slash =
mkClause
(np.s ! nominative) np.a
(insertObj (\\_ => conjThat ++ slash.s ! Sub) (predV vs)) **
{c2 = slash.c2} ;
{n3 = slash.n3 ; c2 = slash.c2} ;
EmbedS s = {s = conjThat ++ s.s ! Sub} ;
EmbedQS qs = {s = qs.s ! QIndir} ;
@@ -52,6 +53,7 @@ incomplete concrete SentenceScand of Sentence =
} ;
UseSlash t a p cl = {
s = \\o => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! o ;
n3 = cl.n3 ;
c2 = cl.c2
} ;