add UseSlash

This commit is contained in:
Meowyam
2023-02-23 15:31:36 +08:00
parent 5ed93e6a03
commit ebd4a462eb

View File

@@ -37,13 +37,16 @@ lin
-- : VP -> SC ;
EmbedVP vp = {s = vp.s ! Root ! Pos} ;
-- : Temp -> Pol -> ClSlash -> SSlash ; -- (that) she had not seen
UseSlash t p cl = {
s = cl.subj ++ t.s ++ p.s ++ cl.pred ! Active ! p.p;
} ;
{-
-- : NP -> VS -> SSlash -> ClSlash ; -- (whom) she says that he loves
SlashVS np vs ss = {} ;
-- : Temp -> Pol -> ClSlash -> SSlash ; -- (that) she had not seen
UseSlash t p cls = {} ;
--2 Imperatives
-- : VP -> Imp ;