mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-29 04:46:30 -06:00
(Som) Restructure relatives and questions
This commit is contained in:
@@ -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 = ;
|
||||
|
||||
Reference in New Issue
Block a user