1
0
forked from GitHub/gf-rgl

(Som) Minor cleanup: renaming + moving things around

This commit is contained in:
Inari Listenmaa
2019-09-26 15:21:14 +02:00
parent 819bdacc65
commit a399abed83
3 changed files with 45 additions and 38 deletions
+14
View File
@@ -115,4 +115,18 @@ concrete QuestionSom of Question = CatSom ** open
QuestQVP : IP -> QVP -> QCl ; -- who buys what where
-}
oper
-- Question clauses: subject pronoun not included, STM is
cl2qcl : ClType -> Bool -> ClSlash -> Clause = \cltyp ->
let hasSubjPron : Bool = False ;
isRel : Bool = False ;
in mkClause cltyp isRel hasSubjPron ;
-- Question clause with wh-word as object: subject pronoun is included
cl2qclslash : Bool -> ClSlash -> Clause =
let hasSubjPron : Bool = True ;
isRel : Bool = False ;
in mkClause PolarQuestion isRel hasSubjPron ;
}