(Som) Add QuestSlash + make it possible for IPs to contract with stm

This commit is contained in:
Inari Listenmaa
2019-09-10 16:54:19 +02:00
parent 4f9927d12b
commit 67ac5ae5e3
5 changed files with 37 additions and 13 deletions

View File

@@ -776,6 +776,9 @@ oper
insertComp : VPSlash -> NounPhrase -> VerbPhrase = \vp,np ->
vp ** insertCompLite vp (nplite np) ;
insertCompCl : ClSlash -> NounPhrase -> ClSlash = \cls,np ->
cls ** insertCompLite cls (nplite np) ;
insertAdv : VerbPhrase -> Adverb -> VerbPhrase = \vp,adv ->
vp ** insertAdvLite vp adv ;
@@ -931,11 +934,10 @@ oper
in mkClause Subord isRel hasSubjPron hasSTM ;
-- Question clauses: subject pronoun not included, STM is
cl2qcl : ClSlash -> Clause =
cl2qcl : Bool -> ClSlash -> Clause =
let hasSubjPron : Bool = False ;
hasSTM : Bool = True ;
isRel : Bool = False ;
in mkClause Question isRel hasSubjPron hasSTM ;
in mkClause Question isRel hasSubjPron ;
-- Sentence: include subject pronoun and STM.
-- When subordinate, include "in".