mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 08:58:55 -06:00
added pronouns
This commit is contained in:
@@ -22,5 +22,6 @@ lincat Num = {s : Str; n : Number} ;
|
|||||||
lincat Quant = {s : Str; spec : Species} ;
|
lincat Quant = {s : Str; spec : Species} ;
|
||||||
lincat Det = {s : Str; spec : Species; n : Number} ;
|
lincat Det = {s : Str; spec : Species; n : Number} ;
|
||||||
lincat NP = {s: Case => Str; a : Agr} ;
|
lincat NP = {s: Case => Str; a : Agr} ;
|
||||||
|
lincat Pron = {s: Case => Str; acc_clit, dat_clit : Str; a : Agr} ;
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -1,7 +1,8 @@
|
|||||||
concrete GrammarSqi of Grammar =
|
concrete GrammarSqi of Grammar =
|
||||||
NounSqi,
|
NounSqi,
|
||||||
AdjectiveSqi,
|
AdjectiveSqi,
|
||||||
NumeralSqi
|
NumeralSqi,
|
||||||
|
StructuralSqi
|
||||||
** {
|
** {
|
||||||
|
|
||||||
} ;
|
} ;
|
||||||
|
|||||||
@@ -8,6 +8,8 @@ concrete NounSqi of Noun = CatSqi ** open MorphoSqi, ResSqi in {
|
|||||||
a = agrgP3 cn.g det.n
|
a = agrgP3 cn.g det.n
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
UsePron p = p ;
|
||||||
|
|
||||||
DetQuant quant num = {
|
DetQuant quant num = {
|
||||||
s = quant.s ++ num.s ;
|
s = quant.s ++ num.s ;
|
||||||
n = num.n ;
|
n = num.n ;
|
||||||
|
|||||||
@@ -1235,7 +1235,15 @@ mkQuant : Str -> Quant = \s -> lin Quant {s=s; spec=Indef} ;
|
|||||||
mkDet : Str -> Number -> Det = \s,n -> lin Det {s=s; spec=Indef; n=n} ;
|
mkDet : Str -> Number -> Det = \s,n -> lin Det {s=s; spec=Indef; n=n} ;
|
||||||
mkConj : Str -> Conj = \s -> lin Conj {s=s} ;
|
mkConj : Str -> Conj = \s -> lin Conj {s=s} ;
|
||||||
mkPConj : Str -> PConj = \s -> lin PConj {s=s} ;
|
mkPConj : Str -> PConj = \s -> lin PConj {s=s} ;
|
||||||
mkPron : Str -> Pron = \s -> lin Pron {s=s} ;
|
|
||||||
|
mkPron : (nom,acc,dat,ablat,acc_clit,dat_clit : Str) -> GenNum -> Person -> Pron =
|
||||||
|
\nom,acc,dat,ablat,acc_clit,dat_clit,gn,p -> lin Pron
|
||||||
|
{s = table Case [nom; acc; dat; ablat];
|
||||||
|
acc_clit = acc_clit;
|
||||||
|
dat_clit = dat_clit;
|
||||||
|
a = {gn=gn; p=p}
|
||||||
|
} ;
|
||||||
|
|
||||||
mkCard : Str -> Card = \s -> lin Card {s=s} ;
|
mkCard : Str -> Card = \s -> lin Card {s=s} ;
|
||||||
mkACard : Str -> ACard = \s -> lin ACard {s=s} ;
|
mkACard : Str -> ACard = \s -> lin ACard {s=s} ;
|
||||||
mkPredet : Str -> Predet = \s -> lin Predet {s=s} ;
|
mkPredet : Str -> Predet = \s -> lin Predet {s=s} ;
|
||||||
|
|||||||
12
src/albanian/StructuralSqi.gf
Normal file
12
src/albanian/StructuralSqi.gf
Normal file
@@ -0,0 +1,12 @@
|
|||||||
|
concrete StructuralSqi of Structural = CatSqi ** open ResSqi, ParadigmsSqi in {
|
||||||
|
|
||||||
|
lin i_Pron = mkPron "unë" "mua" "mua" "meje" "më" "më" (GSg Masc) P1 ;
|
||||||
|
lin youSg_Pron = mkPron "ti" "ty" "ty" "teje" "të" "të" (GSg Masc) P2 ;
|
||||||
|
lin he_Pron = mkPron "ai" "atë" "atij" "atij" "e" "i" (GSg Masc) P3 ;
|
||||||
|
lin she_Pron = mkPron "ajo" "atë" "asaj" "asaj" "e" "i" (GSg Fem) P3 ;
|
||||||
|
lin it_Pron = mkPron "ai" "atë" "atij" "atij" "e" "i" (GSg Masc) P3 ;
|
||||||
|
lin we_Pron = mkPron "ne" "ne" "neve" "nesh" "na" "na" GPl P1 ;
|
||||||
|
lin youPl_Pron = mkPron "ju" "ju" "juve" "jush" "ju" "ju" GPl P2 ;
|
||||||
|
lin they_Pron = mkPron "ata" "ata" "atyre" "atyre" "i" "u" GPl P3 ;
|
||||||
|
|
||||||
|
}
|
||||||
Reference in New Issue
Block a user