mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-24 10:41:15 -06:00
(Som) Add QuestSlash + make it possible for IPs to contract with stm
This commit is contained in:
@@ -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".
|
||||
|
||||
Reference in New Issue
Block a user