GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-27 03:46:29 -06:00
Code Issues Packages Projects Releases Wiki Activity

Failed for IdentQuantN in Question: error about Num

Browse Source
This commit is contained in:
David Bamutura
2019-05-14 04:50:00 +02:00
parent 38b29c7071
commit ef5783853f
3 changed files with 16 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/rukiga/QuestionCgg.gf
+9 -3
View File
@@ -14,11 +14,17 @@ concrete QuestionCgg of Question = CatCgg ** open ResCgg, Prelude in {
--QuestIComp : IComp -> NP -> QCl ; -- where is John
--IdetCN : IDet -> CN -> IP ; -- which five songs
IdentCN idet cn = case idet.requiresSubjPrefix of {
True => {s = \\n => cn!n!Complete ++ mkSubjPrefix mkAgreement(cn.gender P3 n) ++ idet.s};
False => { s = \\n => cn!n!Complete ++ idet.s}
IdetCN idet cn = case idet.requiresSubjPrefix of {
True => {s = cn.s!idet.n!Complete ++ mkSubjPrefix (mkAgreement cn.gender P3 idet.n) ++ idet.s; other =[]; n = idet.n; isVerbSuffix=False; requiresIPPrefix=True; aux= "ni"; endOfSentence = True};
False => { s = cn.s!idet.n!Complete ++ idet.s; isVerbSuffix=False; other =[]; n=idet.n; requiresIPPrefix=True; aux= "ni"; endOfSentence = True}
};
--IdetIP : IDet -> IP ; -- which five
--Noun Class has been ignored
IdetIP idet = { s = idet.s ; other = idet.s; isVerbSuffix=False; n=idet.n; requiresIPPrefix=True; aux= "ni"; endOfSentence = True};
--IdetQuant : IQuant -> Num -> IDet ; -- which (five)
--IdetQuant iquant num = { s = iquant.s ! num.n ; requiresSubjPrefix=True};
{-
--1 Question: Questions and Interrogative Pronouns