msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

=Corrected the type of Imp because Bool produced False as default hence negative form of Imperative be = taba instead of ba. Why does GF compute for false first by default? Is it data Bool = False | True?

Browse Source
This commit is contained in:
David Bamutura
2019-05-19 06:31:16 +02:00
parent 115989e017
commit 9b0cbc63ec
4 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/rukiga/CatCgg.gf
View File

@@ -6,7 +6,7 @@ concrete CatCgg of Cat = CommonX -[Adv,IAdv, AdA]**
lincat lincat
Imp = {s : Bool => Str} ; Imp = {s : Res. ImpPol=> Str} ;
QS = {s : Str} ; QS = {s : Str} ;
-- Note: SS is a shorthand for {s:Str}, defined in Prelude.gf -- Note: SS is a shorthand for {s:Str}, defined in Prelude.gf

4
src/rukiga/PhraseCgg.gf
View File

@@ -16,8 +16,8 @@ lin
UttAdv adv = {s = adv.s}; --: Adv -> Utt ; -- in the house UttAdv adv = {s = adv.s}; --: Adv -> Utt ; -- in the house
UttImpSg pol imp = {s = UttImpSg pol imp = {s =
case pol.p of { case pol.p of {
Pos => imp.s!True; Pos => imp.s!ImpPos;
Neg => (mkSubjClitic (AgMUBAP2 Sg)) ++ imp.s!False Neg => (mkSubjClitic (AgMUBAP2 Sg)) ++ imp.s!ImpNeg
} }
};--: Pol -> Imp -> Utt ; -- (do not) walk ----s };--: Pol -> Imp -> Utt ; -- (do not) walk ----s
{- {-

2
src/rukiga/ResCgg.gf
View File

@@ -35,6 +35,8 @@ param
GenPrep2 | GenPrep2 |
GenAdj | GenAdj |
SStandPron ; --Self-standing pronouns SStandPron ; --Self-standing pronouns
ImpPol = ImpPos | ImpNeg;
{- {-
--there are several and i.e. --there are several and i.e.
-- na (two nouns, 2 Noun Phrases, 2 Pronouns, 2 relative subject clauses, ) -- na (two nouns, 2 Noun Phrases, 2 Pronouns, 2 relative subject clauses, )

4
src/rukiga/SentenceCgg.gf
View File

@@ -83,8 +83,8 @@ lin
ImpVP vp = { ImpVP vp = {
s =table{ s =table{
True=> vp.s ++ Predef.BIND ++ vp.morphs!VFInf!RestOfVerb ++ vp.comp; ImpPos => vp.s ++ Predef.BIND ++ vp.morphs!VFInf!RestOfVerb ++ vp.comp;
False => case vp.isCompApStem of { -- How do I make the number dynamic use case? ImpNeg => case vp.isCompApStem of { -- How do I make the number dynamic use case?
True =>vp.morphs!VFPres!SecNegM ++ Predef.BIND ++ vp.s ++ Predef.BIND ++ True =>vp.morphs!VFPres!SecNegM ++ Predef.BIND ++ vp.s ++ Predef.BIND ++
vp.morphs!VFInf!RestOfVerb ++ (mkAdjPronNoIVClitic (AgMUBAP2 Sg)) ++ vp.comp; vp.morphs!VFInf!RestOfVerb ++ (mkAdjPronNoIVClitic (AgMUBAP2 Sg)) ++ vp.comp;
False => vp.morphs!VFPres!SecNegM ++ Predef.BIND ++ vp.s ++ Predef.BIND ++ False => vp.morphs!VFPres!SecNegM ++ Predef.BIND ++ vp.s ++ Predef.BIND ++