forked from GitHub/gf-rgl
=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?
This commit is contained in:
@@ -6,7 +6,7 @@ concrete CatCgg of Cat = CommonX -[Adv,IAdv, AdA]**
|
||||
lincat
|
||||
|
||||
|
||||
Imp = {s : Bool => Str} ;
|
||||
Imp = {s : Res. ImpPol=> Str} ;
|
||||
QS = {s : Str} ;
|
||||
|
||||
-- Note: SS is a shorthand for {s:Str}, defined in Prelude.gf
|
||||
|
||||
@@ -16,8 +16,8 @@ lin
|
||||
UttAdv adv = {s = adv.s}; --: Adv -> Utt ; -- in the house
|
||||
UttImpSg pol imp = {s =
|
||||
case pol.p of {
|
||||
Pos => imp.s!True;
|
||||
Neg => (mkSubjClitic (AgMUBAP2 Sg)) ++ imp.s!False
|
||||
Pos => imp.s!ImpPos;
|
||||
Neg => (mkSubjClitic (AgMUBAP2 Sg)) ++ imp.s!ImpNeg
|
||||
}
|
||||
};--: Pol -> Imp -> Utt ; -- (do not) walk ----s
|
||||
{-
|
||||
|
||||
@@ -35,6 +35,8 @@ param
|
||||
GenPrep2 |
|
||||
GenAdj |
|
||||
SStandPron ; --Self-standing pronouns
|
||||
|
||||
ImpPol = ImpPos | ImpNeg;
|
||||
{-
|
||||
--there are several and i.e.
|
||||
-- na (two nouns, 2 Noun Phrases, 2 Pronouns, 2 relative subject clauses, )
|
||||
|
||||
@@ -83,8 +83,8 @@ lin
|
||||
|
||||
ImpVP vp = {
|
||||
s =table{
|
||||
True=> vp.s ++ Predef.BIND ++ vp.morphs!VFInf!RestOfVerb ++ vp.comp;
|
||||
False => case vp.isCompApStem of { -- How do I make the number dynamic use case?
|
||||
ImpPos => vp.s ++ Predef.BIND ++ vp.morphs!VFInf!RestOfVerb ++ vp.comp;
|
||||
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 ++
|
||||
vp.morphs!VFInf!RestOfVerb ++ (mkAdjPronNoIVClitic (AgMUBAP2 Sg)) ++ vp.comp;
|
||||
False => vp.morphs!VFPres!SecNegM ++ Predef.BIND ++ vp.s ++ Predef.BIND ++
|
||||
|
||||
Reference in New Issue
Block a user