mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-28 12:26:30 -06:00
(Som) Fixes in question clauses
This commit is contained in:
@@ -697,6 +697,11 @@ oper
|
||||
np : NPLite ; -- NP from PrepNP can be promoted into a core argument.
|
||||
} ;
|
||||
|
||||
IAdv : Type = Adverb ** {
|
||||
contractSTM : Bool ;
|
||||
s : Str -- alone, in one-word question, e.g. Waayo? 'Why?'
|
||||
} ;
|
||||
|
||||
prepNP : Prep -> NounPhrase -> Adverb = \prep,np -> prep ** {
|
||||
np = case prep.isPoss of {
|
||||
True => nplite emptyNP ;
|
||||
@@ -939,6 +944,12 @@ oper
|
||||
isRel : Bool = False ;
|
||||
in mkClause Question isRel hasSubjPron ;
|
||||
|
||||
-- Question clauses: subject pronoun is included
|
||||
cl2qclslash : Bool -> ClSlash -> Clause =
|
||||
let hasSubjPron : Bool = True ;
|
||||
isRel : Bool = False ;
|
||||
in mkClause Question isRel hasSubjPron ;
|
||||
|
||||
-- Sentence: include subject pronoun and STM.
|
||||
-- When subordinate, include "in".
|
||||
cl2sentence : Bool -> ClSlash -> Clause = \isSubord,cls -> {
|
||||
|
||||
Reference in New Issue
Block a user