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

(Som) Update FocusObj and UseSlash to new type of SSlash

Browse Source
This commit is contained in:
Inari Listenmaa
2019-10-03 17:59:00 +02:00
parent 5871f9c165
commit c2e0c709a7
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/somali/ExtendSom.gf
View File

@@ -11,11 +11,7 @@ lin
GenModNP num np cn = DetCN (DetQuant IndefArt num) (genModCN cn np) ; GenModNP num np cn = DetCN (DetQuant IndefArt num) (genModCN cn np) ;
-- : NP -> SSlash -> Utt ; -- her I love -- Saeed p. 189- -- : NP -> SSlash -> Utt ; -- her I love -- Saeed p. 189-
FocusObj np sslash = -- FIXME: preposition disappears in negative sentences FocusObj np sslash = {s = sslash.s ! False ++ objpron np ! Abs} ;
let ss = sslash.s ! False ;
ssSub = sslash.s ! True ; -- the negative particle is the same as subordinate, but verb forms come from main clause
obj = objpron np ! Abs ;
in {s = ssSub.beforeSTM ++ "waxa" ++ ssSub.stm ++ ss.afterSTM ++ obj} ;
-- FocusAdv : Adv -> S -> Utt ; -- today I will sleep -- FocusAdv : Adv -> S -> Utt ; -- today I will sleep
-- FocusAdV : AdV -> S -> Utt ; -- never will I sleep -- FocusAdV : AdV -> S -> Utt ; -- never will I sleep

6
src/somali/SentenceSom.gf
View File

@@ -28,7 +28,11 @@ lin
-} -}
-- : Temp -> Pol -> ClSlash -> SSlash ; -- (that) she had not seen -- : Temp -> Pol -> ClSlash -> SSlash ; -- (that) she had not seen
UseSlash t p cls = { UseSlash t p cls = {
s = \\isSubord => let cl = cl2sentence isSubord cls in s = \\isSubord =>
let cls' : ClSlash = cls ** {
stm = modSTM "waxa" "waxa aan" cls.stm -- Saeed p. 195
} ;
cl : Clause = cl2sentence isSubord cls' in
t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p
} ; } ;