added pronouns

This commit is contained in:
Krasimir Angelov
2024-12-05 19:32:22 +01:00
parent 108bfb4163
commit 7b7752c308
5 changed files with 26 additions and 2 deletions

View File

@@ -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} ;
} }

View File

@@ -1,7 +1,8 @@
concrete GrammarSqi of Grammar = concrete GrammarSqi of Grammar =
NounSqi, NounSqi,
AdjectiveSqi, AdjectiveSqi,
NumeralSqi NumeralSqi,
StructuralSqi
** { ** {
} ; } ;

View File

@@ -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 ;

View File

@@ -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} ;

View 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 ;
}