Skip to content

Commit

Permalink
fix the gender agreement in DetQuantOrd
Browse files Browse the repository at this point in the history
  • Loading branch information
krangelov committed Dec 15, 2023
1 parent 441c830 commit 4aa8f87
Show file tree
Hide file tree
Showing 5 changed files with 5 additions and 14 deletions.
3 changes: 1 addition & 2 deletions src/russian/CatRus.gf
Original file line number Diff line number Diff line change
Expand Up @@ -72,13 +72,12 @@ lincat
Det, DAP = {
s : DetTable ;
type : DetType ; -- main purpose is to avoid emptiness of articles, but can be reused later for something else
g : Gender ;
c : Case ;
size : NumSize
} ;
Predet = ResRus.Adjective ** {size : NumSize} ;
IQuant = ResRus.Adjective ** {g: Gender; c: Case} ;
Quant = ResRus.Adjective ** {g: Gender; c: Case; type: DetType} ;
Quant = ResRus.Adjective ** {c: Case; type: DetType} ;
Numeral = NumeralForms ;
Num = NumDet ;
Card = NumDet ;
Expand Down
2 changes: 0 additions & 2 deletions src/russian/ConjunctionRus.gf
Original file line number Diff line number Diff line change
Expand Up @@ -15,7 +15,6 @@ concrete ConjunctionRus of Conjunction =
preferShort : ShortFormPreference
} ;
[DAP] = {s1,s2 : DetTable ;
g : Gender ;
c : Case ;
size : NumSize
} ;
Expand Down Expand Up @@ -67,7 +66,6 @@ concrete ConjunctionRus of Conjunction =

-- : DAP -> DAP -> ListDAP ; --
BaseDAP x y = twoTable3 Gender Animacy Case x y ** {
g = conjGender x.g y.g ;
c = y.c ;
size = conjSize x.size y.size ; -- different genders -> plural?
} ;
Expand Down
2 changes: 1 addition & 1 deletion src/russian/ExtendRus.gf
Original file line number Diff line number Diff line change
Expand Up @@ -218,7 +218,7 @@ lin
} ;

UseDAP det =
let g = det.g in {
let g = Neut in {
s=case det.type of {
EmptyIndef => \\cas => a_Det.s ! g ! Inanimate ! cas ++ det.s ! g ! Inanimate ! cas ;
EmptyDef => \\cas => the_Det.s ! g ! Inanimate ! cas ++ det.s ! g ! Inanimate ! cas ;
Expand Down
7 changes: 2 additions & 5 deletions src/russian/NounRus.gf
Original file line number Diff line number Diff line change
Expand Up @@ -45,7 +45,7 @@ lin

-- : Det -> NP ; -- these five
DetNP det =
let g = det.g in {
let g = Neut in {
s=case det.type of {
EmptyIndef => \\cas => a_Det.s ! g ! Inanimate ! cas ++ det.s ! g ! Inanimate ! cas ;
EmptyDef => \\cas => the_Det.s ! g ! Inanimate ! cas ++ det.s ! g ! Inanimate ! cas ;
Expand Down Expand Up @@ -102,7 +102,7 @@ lin
DetQuantOrd quant num ord = {
s=\\g,a,cas => num.s ! g ! a ! cas
++ quant.s ! (gennum g (numSizeNumber num.size)) ! a ! cas
++ (adjFormsAdjective ord).s ! gennum quant.g (animNumSizeNum Inanimate cas num.size) ! Inanimate ! numSizeCase cas num.size ;
++ (adjFormsAdjective ord).s ! gennum g (animNumSizeNum Inanimate cas num.size) ! Inanimate ! numSizeCase cas num.size ;
type=quant.type ;
g=quant.g ;
c=quant.c ;
Expand Down Expand Up @@ -139,7 +139,6 @@ lin
s=mkPronTable pron.poss ;
type=NormalDet ;
short=\\a=>[] ;
g=Neut ;
c=Nom ;
preferShort=PreferFull
} ;
Expand Down Expand Up @@ -226,7 +225,6 @@ lin
type=EmptyDef ;
short=\\a=>[] ;
c=Nom ;
g=Neut ;
size=Num1 ;
preferShort=PreferFull
} ;
Expand All @@ -236,7 +234,6 @@ lin
type=EmptyIndef ;
short=\\a=>[] ;
c=Nom ;
g=Neut ;
size=Num1 ;
preferShort=PreferFull
} ;
Expand Down
5 changes: 1 addition & 4 deletions src/russian/StructuralRus.gf
Original file line number Diff line number Diff line change
Expand Up @@ -27,21 +27,18 @@ lin
this_Quant = (adjFormsAdjective this_forms) ** {
type=NormalDet ;
preferShort=PreferFull ;
g=Neut ;
c=Nom
} ;
-- : Quant ;
that_Quant = (adjFormsAdjective that_forms) ** {
type=NormalDet ;
preferShort=PreferFull ;
g=Neut ;
c=Nom
} ;
-- : Quant ;
no_Quant = (adjFormsAdjective (makeAdjectiveForms "никакой" "" "3b" PreferFull)) ** {
type=NormalDet ;
preferShort=PreferFull ;
g=Neut ;
c=Nom
} ;

Expand Down Expand Up @@ -193,4 +190,4 @@ lin
language_title_Utt = ss "русский" ;
yes_Utt = ss ["да"] ;
no_Utt = ss ["нет"] ;
}
}

0 comments on commit 4aa8f87

Please sign in to comment.