(Som) Restructure relatives and questions

This commit is contained in:
Inari Listenmaa
2019-09-03 16:40:12 +02:00
parent c42d3e33e9
commit 8ac75e8550
8 changed files with 156 additions and 197 deletions
+4 -4
View File
@@ -6,17 +6,17 @@ concrete QuestionSom of Question = CatSom ** open
lin
-- : Cl -> QCl ;
QuestCl cl = mergeQCl (cl.s ! Question) ;
QuestCl = cl2qcl ;
-- : IP -> VP -> QCl ;
QuestVP ip vp = -- TODO: if we want to contract baa + subj. pronoun, change ResSom.predVP
let clRaw : ClLite = predVPlite ip vp ;
cl : ClLite = clRaw ** {
let clRaw : ClSlash = predVP ip vp ;
cl : ClSlash = clRaw ** {
stm = \\clt,p => case <clt,p> of {
<_,Pos> => "baa" ;
_ => clRaw.stm ! clt ! p }
}
in wordOrderLite Question cl ;
in cl2qcl cl ;
-- : IP -> ClSlash -> QCl ; -- whom does John love
--QuestSlash ip cls = ;