mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 17:08:54 -06:00
more structural words
This commit is contained in:
@@ -42,7 +42,9 @@ lincat Cl = {s : ResMkd.Tense => Anteriority => Polarity => Order => Str} ;
|
|||||||
lincat QCl = {s : ResMkd.Tense => Anteriority => Polarity => Str} ;
|
lincat QCl = {s : ResMkd.Tense => Anteriority => Polarity => Str} ;
|
||||||
lincat RCl = {s : GenNum => ResMkd.Tense => Anteriority => Polarity => Str} ;
|
lincat RCl = {s : GenNum => ResMkd.Tense => Anteriority => Polarity => Str} ;
|
||||||
lincat RP = {s : GenNum => Str} ;
|
lincat RP = {s : GenNum => Str} ;
|
||||||
lincat IP = {s : Str} ;
|
lincat IP = {s : Str; g : GenNum} ;
|
||||||
|
lincat IQuant = {s : GenNum => Str} ;
|
||||||
|
lincat IDet = {s : Gender => Str; n : Number} ;
|
||||||
lincat Subj = {s : Str} ;
|
lincat Subj = {s : Str} ;
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -1164,12 +1164,35 @@ mkVoc : Str -> Voc = \s -> lin Voc {s=s} ;
|
|||||||
mkPrep : Str -> Prep = \s -> lin Prep {s=s; c=Acc} ;
|
mkPrep : Str -> Prep = \s -> lin Prep {s=s; c=Acc} ;
|
||||||
noPrep : Prep = lin Prep {s=""; c=Acc} ;
|
noPrep : Prep = lin Prep {s=""; c=Acc} ;
|
||||||
|
|
||||||
mkIP : Str -> IP = \s -> lin IP {s=s} ;
|
mkIP : Str -> GenNum -> IP = \s,g -> lin IP {s=s; g=g} ;
|
||||||
mkIAdv : Str -> IAdv = \s -> lin IAdv {s=s} ;
|
mkIAdv : Str -> IAdv = \s -> lin IAdv {s=s} ;
|
||||||
mkIQuant : Str -> IQuant = \s -> lin IQuant {s=s} ;
|
|
||||||
mkIDet : Str -> IDet = \s -> lin IDet {s=s} ;
|
mkIQuant : Str -> Str -> Str -> Str -> IQuant = \m,f,n,pl ->
|
||||||
|
lin IQuant {
|
||||||
|
s=table {
|
||||||
|
GSg Masc => m;
|
||||||
|
GSg Fem => f;
|
||||||
|
GSg Neuter => n;
|
||||||
|
GPl => pl
|
||||||
|
}
|
||||||
|
} ;
|
||||||
|
|
||||||
|
mkIDet = overload {
|
||||||
|
mkIDet : Str -> IDet = \s -> lin IDet {s=\\_=>s; n=Pl} ;
|
||||||
|
mkIDet : Str -> Str -> Str -> IDet = \m,f,n ->
|
||||||
|
lin IDet {
|
||||||
|
s=table {
|
||||||
|
Masc => m ;
|
||||||
|
Fem => f ;
|
||||||
|
Neuter => n
|
||||||
|
} ;
|
||||||
|
n=Sg;
|
||||||
|
} ;
|
||||||
|
} ;
|
||||||
|
|
||||||
mkMU : Str -> MU = \s -> lin MU {s=s; isPre = False} ;
|
mkMU : Str -> MU = \s -> lin MU {s=s; isPre = False} ;
|
||||||
mkSubj : Str -> Subj = \s -> lin Subj {s=s} ;
|
mkSubj : Str -> Subj = \s -> lin Subj {s=s} ;
|
||||||
|
|
||||||
mkQuant : Str -> Str -> Str -> Str -> Quant = \m,f,n,pl ->
|
mkQuant : Str -> Str -> Str -> Str -> Quant = \m,f,n,pl ->
|
||||||
lin Quant {
|
lin Quant {
|
||||||
s=table {
|
s=table {
|
||||||
|
|||||||
@@ -11,5 +11,13 @@ lin youPol_Pron = mkPron "вие" "вас" "ве" "вам" "ви" "вас" "ва
|
|||||||
lin they_Pron = mkPron "тие" "нив" "ги" "ним" "им" "нив" "нивен" "нивниот" "нивна" "нивната" "нивно" "нивното" "нивни" "нивните" "им" GPl P3 ;
|
lin they_Pron = mkPron "тие" "нив" "ги" "ним" "им" "нив" "нивен" "нивниот" "нивна" "нивната" "нивно" "нивното" "нивни" "нивните" "им" GPl P3 ;
|
||||||
lin this_Quant = mkQuant "овој" "оваа" "ова" "овие" ;
|
lin this_Quant = mkQuant "овој" "оваа" "ова" "овие" ;
|
||||||
lin that_Quant = mkQuant "тој" "таа" "тоа" "тие" ;
|
lin that_Quant = mkQuant "тој" "таа" "тоа" "тие" ;
|
||||||
|
lin how_IAdv = mkIAdv "как" ;
|
||||||
|
lin how8many_IDet = mkIDet "колку" ;
|
||||||
|
lin how8much_IAdv = mkIAdv "колку" ;
|
||||||
|
lin when_IAdv = mkIAdv "кога" ;
|
||||||
|
lin where_IAdv = mkIAdv "каде" ;
|
||||||
|
lin which_IQuant = mkIQuant "кој" "која" "кое" "кои" ;
|
||||||
|
lin whoSg_IP = mkIP "кој" (GSg Masc) ;
|
||||||
|
lin whoPl_IP = mkIP "кои" GPl ;
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user