GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 01:18:57 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Som) Add conditional

Browse Source
This commit is contained in:
Inari Listenmaa
2019-06-28 17:55:04 +02:00
parent 890e29f628
commit 8fe4fd7362
1 changed files with 5 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/somali/ResSom.gf
View File

@@ -709,11 +709,11 @@ oper
<Pres,Simul> => {fin = presV vp ; inf = [] } ; <Pres,Simul> => {fin = presV vp ; inf = [] } ;
<Pres,Anter> => {fin = presV copula ; inf = vp.s ! VInf } ; ---- just guessing <Pres,Anter> => {fin = presV copula ; inf = vp.s ! VInf } ; ---- just guessing
<Past,Simul> => {fin = pastV vp ; inf = [] } ; <Past,Simul> => {fin = pastV vp ; inf = [] } ;
<Past,Anter> => {fin = pastV (aux "jir" vp) ; inf = []} ; <Past,Anter> => {fin = pastV (cSug "jir") ; inf = vp.s ! VInf} ;
<Fut,Simul> => {fin = presV (aux "doon" vp) ; inf = []} ; <Fut,Simul> => {fin = presV (cSug "doon") ; inf = vp.s ! VInf} ;
<Fut,Anter> => {fin = pastV (aux "doon" vp) ; inf = []} ; <Fut,Anter> => {fin = pastV (cSug "doon") ; inf = vp.s ! VInf} ;
<_,Simul> => {fin = presV vp ; inf = []} ; -- TODO conditional <Cond,Simul> => {fin = presV have_V ; inf = vp.s ! VInf} ; -- TODO check
<_,Anter> => {fin = pastV vp ; inf = []} -- TODO conditional <Cond,Anter> => {fin = pastV have_V ; inf = vp.s ! VInf} -- TODO check
} }
where { where {
pastV : Verb -> Str = \v -> pastV : Verb -> Str = \v ->
@@ -721,9 +721,6 @@ oper
Pos => v.s ! VPast Simple agr } ; Pos => v.s ! VPast Simple agr } ;
presV : Verb -> Str = \v -> v.s ! VPres Simple agr p ; presV : Verb -> Str = \v -> v.s ! VPres Simple agr p ;
aux : Str -> Verb -> Verb = \jir,v ->
let jir : Verb = cSug jir in {s = \\vf => v.s ! VInf ++ jir.s ! vf}
} ; } ;
stmarker : Agreement => Polarity => Str = \\a,b => stmarker : Agreement => Polarity => Str = \\a,b =>