forked from GitHub/gf-rgl
(Som) Add ImpVP and UttImp{Sg,Pl,Pol}
This commit is contained in:
@@ -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 ;
|
||||
|
||||
Reference in New Issue
Block a user