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

future tense 'komma att' in scandinavian

Browse Source
This commit is contained in:
malin
2011-11-09 19:23:46 +00:00
parent 18ca88f9ed
commit 1ba9ffcff7
21 changed files with 82 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/src/scandinavian/RelativeScand.gf
View File

@@ -6,19 +6,19 @@ incomplete concrete RelativeScand of Relative =
lin
RelCl cl = {
s = \\t,a,p,ag =>
s = \\t,a,p,ag,_ =>
pronSuch ! gennumAgr ag ++ conjThat ++ cl.s ! t ! a ! p ! Sub ;
c = NPAcc
} ;
RelVP rp vp = {
s = \\t,ant,b,ag =>
s = \\t,ant,b,ag,rc =>
let
agr = case rp.a of {
RNoAg => ag ;
RAg g n p => {g = g ; n = n ; p = p}
} ;
cl = mkClause (rp.s ! ag.g ! ag.n ! RNom) agr vp
cl = mkClause (rp.s ! ag.g ! ag.n ! rc) agr vp
in
cl.s ! t ! ant ! b ! Sub ;
c = NPNom
@@ -29,7 +29,7 @@ incomplete concrete RelativeScand of Relative =
-- and the empty relative ("huset hon bor i") are defined in $ExtraScand$.
RelSlash rp slash = {
s = \\t,a,p,ag =>
s = \\t,a,p,ag,_ =>
let
agr = case rp.a of {
RNoAg => ag ;