1
0
forked from GitHub/gf-rgl

(Som) Add ImpVP and UttImp{Sg,Pl,Pol}

This commit is contained in:
Inari Listenmaa
2019-09-25 11:53:27 +02:00
parent 9973349270
commit 1f62af0e2c
3 changed files with 9 additions and 7 deletions
+3 -3
View File
@@ -29,12 +29,12 @@ lin
-- : Temp -> Pol -> ClSlash -> SSlash ; -- (that) she had not seen
UseSlash t p cls = {
s = \\isSubord => let cl = 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
} ;
--2 Imperatives
-- : VP -> Imp ;
--ImpVP vp = { s = linVP vp } ;
ImpVP vp = {s = \\num,pol => linVP (VImp num pol) Statement vp} ;
--2 Embedded sentences
@@ -54,7 +54,7 @@ lin
-- : Temp -> Pol -> Cl -> S ;
UseCl t p cls = {
s = \\isSubord => let cl = 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
} ;
-- : Temp -> Pol -> QCl -> QS ;