GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

place verb particle after negation in Scandinavian

Browse Source
This commit is contained in:
aarne
2016-05-10 17:49:14 +00:00
parent 82a0634103
commit 49924883f9
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/src/scandinavian/CommonScand.gf
View File

@@ -302,8 +302,8 @@ oper
insertObjPron : Bool -> (Agr => Str) -> VP -> VP = \isPron,obj,vp -> vp ** { insertObjPron : Bool -> (Agr => Str) -> VP -> VP = \isPron,obj,vp -> vp ** {
n1 = \\a => if_then_Str isPron (obj ! a ++ vp.n2 ! a) [] ; n1 = \\a => vp.n1 ! a ++ if_then_Str isPron (obj ! a) [] ;
n2 = \\a => if_then_Str isPron [] (obj ! a ++ vp.n2 ! a) ; n2 = \\a => vp.n2 ! a ++ if_then_Str isPron [] (obj ! a) ;
en2 = notB isPron ; en2 = notB isPron ;
} ; } ;

4
lib/src/scandinavian/ResScand.gf
View File

@@ -44,7 +44,7 @@ interface ResScand = DiffScand ** open CommonScand, Prelude in {
vf : Bool -> Str -> Str -> {fin,inf : Str ; a1 : Polarity => Agr => Str * Str} = \hasInf, fin,inf -> { vf : Bool -> Str -> Str -> {fin,inf : Str ; a1 : Polarity => Agr => Str * Str} = \hasInf, fin,inf -> {
fin = fin ; fin = fin ;
inf = inf ++ verb.part ; --- not always right after the verb: hon ser (inte) vacker ut ; spotta ut snusen inf = inf ;
a1 : Polarity => Agr => Str*Str = \\p,a => case hasInf of { a1 : Polarity => Agr => Str*Str = \\p,a => case hasInf of {
True => <negation ! p, []> ; True => <negation ! p, []> ;
False => <[], negation ! p> False => <[], negation ! p>
@@ -79,7 +79,7 @@ interface ResScand = DiffScand ** open CommonScand, Prelude in {
VRefl => reflPron a ; VRefl => reflPron a ;
_ => [] _ => []
} ; } ;
n2 : Agr => Str = \\a => [] ; n2 : Agr => Str = \\a => verb.part ; ---- check: hon ser (inte) vacker ut ; spotta (inte) ut snusen
a2 : Str = [] ; a2 : Str = [] ;
ext : Str = [] ; ext : Str = [] ;
en2,ea2,eext : Bool = False -- indicate if the field exists en2,ea2,eext : Bool = False -- indicate if the field exists