(Som) bugfix in QuestIAdv: add subject also when STM is negative

This commit is contained in:
Inari Listenmaa
2019-09-10 15:11:41 +02:00
parent 1c367530f0
commit d01aec2d64

View File

@@ -27,10 +27,12 @@ concrete QuestionSom of Question = CatSom ** open
sbj = clRaw.subj ; sbj = clRaw.subj ;
cl : ClSlash = clRaw ** { cl : ClSlash = clRaw ** {
stm = \\clt,p => case <clt,p> of { stm = \\clt,p => case <clt,p> of {
-- IAdv is focused -- IAdv is focused with baa, and subject comes after
<_,Pos> => "baa" ++ sbj.pron ++ sbj.noun; <_,Pos> => "baa" ++ sbj.pron ++ sbj.noun;
_ => clRaw.stm ! clt ! p } ; -- TODO how do negative questions work
subj = {noun, pron = [] ; isP3 = True}} _ => clRaw.stm ! Question ! p ++ sbj.pron ++ sbj.noun } ;
subj = sbj ** {noun, pron = []} -- to force subject after baa
} ;
in cl2qcl cl ; in cl2qcl cl ;
-- : IComp -> NP -> QCl ; -- where is John? -- : IComp -> NP -> QCl ; -- where is John?