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

=Corrected DetQuant for no_Quant

Browse Source
This commit is contained in:
David Bamutura
2019-05-19 08:44:30 +02:00
parent 9b0cbc63ec
commit 3aef8a9f7e
3 changed files with 16 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/rukiga/NounCgg.gf
View File

@@ -72,9 +72,9 @@ lin
accS = np.s ! Acc; accS = np.s ! Acc;
in in
case <predet.isMWE, predet.isInflected> of { case <predet.isMWE, predet.isInflected> of {
<False, True> => {s = \\_ =>nomS ++ mkPredetPref a ++ Predef.BIND ++ predet.s ; agr = a}; <False, True> => {s = \\_ =>nomS ++ mkPredetPref a ++ predet.s ; agr = a};
<True, True > => {s = \\_ =>nomS ++ mkPredetPref a ++ Predef.BIND ++ predet.s ++ <True, True > => {s = \\_ =>nomS ++ mkPredetPref a ++ predet.s ++
mkPredetPref a ++ Predef.BIND ++ predet.s2; agr = a}; mkPredetPref a ++ predet.s2; agr = a};
<False,False> => {s = \\_ =>nomS ++ predet.s ; agr = a}; <False,False> => {s = \\_ =>nomS ++ predet.s ; agr = a};
<True,False> => {s = \\_ =>nomS ++ predet.s ++ predet.s2; agr = a} -- never seen this case <True,False> => {s = \\_ =>nomS ++ predet.s ++ predet.s2; agr = a} -- never seen this case
}; };
@@ -92,7 +92,10 @@ lin
-- The determiner has a fine-grained structure, in which a 'nucleus' -- The determiner has a fine-grained structure, in which a 'nucleus'
-- quantifier and an optional numeral can be discerned. -- quantifier and an optional numeral can be discerned.
--DetQuant : Quant -> Num -> Det ; -- these five --DetQuant : Quant -> Num -> Det ; -- these five
DetQuant quant num = {s=[]; s2 = quant.s2; ntype = Incomplete; num = num.n; pos=PreDeterminer; doesAgree = quant.doesAgree}; -- DetQuant quant num = case quant.isPron of {
True => {s=[]; s2 = quant.s2; ntype = Incomplete; num = num.n; pos=PreDeterminer; doesAgree = quant.doesAgree};
False => {s= quant.s.s ! Nom; s2 =\\_ =>[]; ntype = Incomplete; num = num.n; pos=PreDeterminer; doesAgree = quant.doesAgree} --
};
--DetQuantOrd : Quant -> Num -> Ord -> Det ; -- these five best --DetQuantOrd : Quant -> Num -> Ord -> Det ; -- these five best
DetQuantOrd quant num ord = { DetQuantOrd quant num ord = {

7
src/rukiga/PhraseCgg.gf
View File

@@ -20,6 +20,13 @@ lin
Neg => (mkSubjClitic (AgMUBAP2 Sg)) ++ imp.s!ImpNeg Neg => (mkSubjClitic (AgMUBAP2 Sg)) ++ imp.s!ImpNeg
} }
};--: Pol -> Imp -> Utt ; -- (do not) walk ----s };--: Pol -> Imp -> Utt ; -- (do not) walk ----s
--UttImpPl : Pol -> Imp -> Utt ; -- (don't) love yourselves
UttImpPl pol imp ={s =
case pol.p of {
Pos => imp.s!ImpPos;
Neg => (mkSubjClitic (AgMUBAP2 Pl)) ++ imp.s!ImpNeg
}
};
{- {-
--1 Phrase: Phrases and Utterances --1 Phrase: Phrases and Utterances

2
src/rukiga/StructuralCgg.gf
View File

@@ -218,6 +218,8 @@ lin
so_AdA = {s="munônga"; position1=Post};--: AdA ; so_AdA = {s="munônga"; position1=Post};--: AdA ;
too_AdA = {s="munônga"; position1=Post}; --: AdA ; too_AdA = {s="munônga"; position1=Post}; --: AdA ;
very_AdA = {s="munônga"; position1=Post}; --: AdA ; very_AdA = {s="munônga"; position1=Post}; --: AdA ;
please_Voc = ss ", nyabura we"; --: Voc ;
{- {-
--1 Structural: Structural Words --1 Structural: Structural Words
-- --