GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-07-03 04:28:33 -06:00
Code Issues Packages Projects Releases Wiki Activity

added iSimple to Swedish as well

Browse Source
This commit is contained in:
Krasimir Angelov
2018-05-31 09:34:50 +02:00
parent 9558094911
commit 2668e58ab6
4 changed files with 24 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/scandinavian/CommonScand.gf
+7 -2
View File
@@ -297,7 +297,8 @@ oper
a2 : Str ; -- A2 idag ---s6
ext : Str ; -- S-Ext att hon går ---s7
--- ea1,ev2, --- these depend on params of v and a1
en2,ea2,eext : Bool -- indicate if the field exists
en2,ea2,eext : Bool ; -- indicate if the field exists
isSimple : Bool
} ;
@@ -305,6 +306,7 @@ oper
n1 = \\a => vp.n1 ! a ++ if_then_Str isPron (obj ! a) [] ;
n2 = \\a => vp.n2 ! a ++ if_then_Str isPron [] (obj ! a) ;
en2 = notB isPron ;
isSimple = False
} ;
insertObj : (Agr => Str) -> VP -> VP = insertObjPron False ;
@@ -312,16 +314,19 @@ oper
insertObjPost : (Agr => Str) -> VP -> VP = \obj,vp -> vp ** {
n2 = \\a => vp.n2 ! a ++ obj ! a ;
en2 = True ;
isSimple = False
} ;
insertAdv : Str -> VP -> VP = \adv,vp -> vp ** {
a2 = vp.a2 ++ adv ;
ea2 = True ;
isSimple = False
} ;
insertExt : Str -> VP -> VP = \ext,vp -> vp ** {
ext = vp.ext ++ ext ;
eext = True ;
isSimple = False
} ;
insertAdV : Str -> VP -> VP = \adv -> insertAdVAgr (\\_ => adv) ;
@@ -389,4 +394,4 @@ oper
-- har inte älskat dig
-- älskar dig inte
-- har jag inte älskat dig
-- älskar jag dig inte
-- älskar jag dig inte