summaryrefslogtreecommitdiff
path: root/grammars/resource/swedish/SyntaxSwe.gf
diff options
context:
space:
mode:
authoraarne <unknown>2003-11-06 14:56:29 +0000
committeraarne <unknown>2003-11-06 14:56:29 +0000
commit9199b65173e6bced29ae7c03dac163c20b2e52e0 (patch)
tree3092df7dcc5603f8ef34cc50cfca32934425f372 /grammars/resource/swedish/SyntaxSwe.gf
parent49c17be41a7d572d27df74eb7351b672e85953a1 (diff)
Finishing Swedish.
Diffstat (limited to 'grammars/resource/swedish/SyntaxSwe.gf')
-rw-r--r--grammars/resource/swedish/SyntaxSwe.gf10
1 files changed, 5 insertions, 5 deletions
diff --git a/grammars/resource/swedish/SyntaxSwe.gf b/grammars/resource/swedish/SyntaxSwe.gf
index 25dcd3e18..c26a07bc8 100644
--- a/grammars/resource/swedish/SyntaxSwe.gf
+++ b/grammars/resource/swedish/SyntaxSwe.gf
@@ -488,7 +488,7 @@ oper
-- "s" passive form.
passVerb : Bool -> Verb -> VerbPhrase = \b,se -> ---- passive not yet
- se ** {
+ {s = table {VPres m _ => se.s ! VPres m Pass} ;
s2 = negation b ;
s3 = \\_,_ => []
} ;
@@ -582,7 +582,7 @@ oper
\Jag, serdiginte ->
let {
jag = Jag.s ! PNom ;
- ser = serdiginte.s ! Indicat ;
+ ser = serdiginte.s ! VPres Indicat Act ;
dig = serdiginte.s3 ! Jag.g ! Jag.n ;
inte = serdiginte.s2
} in
@@ -625,7 +625,7 @@ oper
\b, Jag, se ->
let {
jag = Jag.s ! PNom ;
- ser = se.s ! Indicat ;
+ ser = se.s ! VPres Indicat Act ;
inte = negation b
} in
{s = table {
@@ -699,7 +699,7 @@ oper
relVerbPhrase : RelPron -> VerbPhrase -> RelClause = \som,sover ->
{s = \\gn =>
- som.s ! RNom ! gn ++ sover.s2 ++ sover.s ! Indicat ++
+ som.s ! RNom ! gn ++ sover.s2 ++ sover.s ! VPres Indicat Act ++
sover.s3 ! mkGenderRel som.g (genGN gn) ! numGN gn
} ;
@@ -893,7 +893,7 @@ oper
Imperative = SS1 Number ;
imperVerbPhrase : VerbPhrase -> Imperative = \titta ->
- {s = \\n => titta.s ! Imperat ++ titta.s2 ++ titta.s3 ! Utr ! n} ;
+ {s = \\n => titta.s ! VPres Imperat Act ++ titta.s2 ++ titta.s3 ! Utr ! n} ;
imperUtterance : Number -> Imperative -> Utterance = \n,I ->
ss (I.s ! n ++ "!") ;