GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 19:22:50 -06:00
Code Issues Packages Projects Releases Wiki Activity
Files
295f4afd54a590d3cf5baac680330cd87104b7a7
gf-core/lib/src/polish/PronounMorphoPol.gf
adam.slaski ad1a116dfc polish demo
2010-05-26 22:34:20 +00:00

712 lines
21 KiB
Plaintext
Raw Blame History

--# -path=.:../../prelude:../common
--# -coding=utf8
--1 A polish Resource Morphology
--
-- Ilona Nowak, Wintersemester 2007/08
--
-- Adam Slaski, 2009 <adam.slaski@gmail.com>
--
resource PronounMorphoPol = ResPol ** open Prelude, (Predef=Predef) in {
flags coding=utf8;
--4 Pronouns
--4.1 General
--4.2 Personal pronouns and their possessive forms
-- for "I", "my", "mine"
oper pronJa: Pron = pronJaFoo PNoGen;
oper pronJaFoo: PronGen -> Pron = \gender ->
{ nom = "ja";
voc = "ja";
dep = table {
(GenNoPrep|GenPrep) => "mnie";
DatNoPrep => "mi";
DatPrep => "mnie";
(AccNoPrep|AccPrep) => "mnie";
InstrC => "mną";
LocPrep => "mnie"
};
sp = table {
AF (MascPersSg|MascAniSg|MascInaniSg) Nom => "mój";
AF (MascPersSg|MascAniSg|MascInaniSg) Gen => "mojego";
AF (MascPersSg|MascAniSg|MascInaniSg) Dat => "mojemu";
AF MascInaniSg Acc => "mój"; -- widzę mój stół
AF (MascPersSg|MascAniSg|MascInaniSg) Acc => "mojego"; -- widzę mojego psa / przyjaciela
AF (MascPersSg|MascAniSg|MascInaniSg) Instr => "moim";
AF (MascPersSg|MascAniSg|MascInaniSg) Loc => "moim";
AF (MascPersSg|MascAniSg|MascInaniSg) VocP => "mój";
AF FemSg Nom => "moja" ;
AF FemSg Gen => "mojej";
AF FemSg Dat => "mojej";
AF FemSg Acc => "moją";
AF FemSg Instr => "moją";
AF FemSg Loc => "mojej";
AF FemSg VocP => "moja";
AF NeutSg Nom => "moje" ;
AF NeutSg Gen => "mojego";
AF NeutSg Dat => "mojemu";
AF NeutSg Acc => "moje";
AF NeutSg Instr => "moim";
AF NeutSg Loc => "moim";
AF NeutSg VocP => "moje";
AF MascPersPl Nom => "moi";
AF (MascPersPl|OthersPl) Nom => "moje";
AF (MascPersPl|OthersPl) Gen => "moich";
AF (MascPersPl|OthersPl) Dat => "moim";
AF MascPersPl Acc => "moich";
AF (MascPersPl|OthersPl) Acc => "moje";
AF (MascPersPl|OthersPl) Instr => "moimi";
AF (MascPersPl|OthersPl) Loc => "moich";
AF MascPersPl VocP => "moi";
AF (MascPersPl|OthersPl) VocP=> "moje"
};
n = Sg;
p = P1 ;
g = gender
};
-- for "you", "yours"
oper pronTy: Pron = pronTyFoo PNoGen;
oper pronTyFoo: PronGen -> Pron = \gender ->
{ sp = table {
AF (MascPersSg|MascAniSg|MascInaniSg) Nom => "twój";
AF (MascPersSg|MascAniSg|MascInaniSg) Gen => "twojego";
AF (MascPersSg|MascAniSg|MascInaniSg) Dat => "twojemu"; -- zróbmy to po twojemu
AF MascInaniSg Acc => "twój";
AF (MascPersSg|MascAniSg|MascInaniSg) Acc => "twojego";
AF (MascPersSg|MascAniSg|MascInaniSg) Instr => "twoim";
AF (MascPersSg|MascAniSg|MascInaniSg) Loc => "twoim";
AF (MascPersSg|MascAniSg|MascInaniSg) VocP => "twój";
AF FemSg Nom => "twoja" ;
AF FemSg Gen => "twojej";
AF FemSg Dat => "twojej";
AF FemSg Acc => "twoją";
AF FemSg Instr => "twoją";
AF FemSg Loc => "twojej";
AF FemSg VocP => "twoja";
AF NeutSg Nom => "twoje" ;
AF NeutSg Gen => "twojego";
AF NeutSg Dat => "twojemu";
AF NeutSg Acc => "twoje";
AF NeutSg Instr => "twoim";
AF NeutSg Loc => "twoim";
AF NeutSg VocP => "twoje";
AF MascPersPl Nom => "twoi";
AF (MascPersPl|OthersPl) Nom => "twoje";
AF (MascPersPl|OthersPl) Gen => "twoich";
AF (MascPersPl|OthersPl) Dat => "twoim";
AF MascPersPl Acc => "twoich";
AF (MascPersPl|OthersPl) Acc => "twoje";
AF (MascPersPl|OthersPl) Instr => "twoimi";
AF (MascPersPl|OthersPl) Loc => "twoich";
AF MascPersPl VocP => "twoi";
AF (MascPersPl|OthersPl) VocP => "twoje"
};
nom = "ty" ;
voc = "ty" ;
dep = table { -- it is simplyfied to avoid variants
GenNoPrep => "cię";
GenPrep => "ciebie";
DatNoPrep => "tobie";
DatPrep => "ci";
AccNoPrep => "cię";
AccPrep => "ciebie";
InstrC => "tobą";
LocPrep => "tobie"
};
n = Sg;
p = P2 ;
g = gender
};
-- for "you polite" (very idiomatic: pron you = 'sir') male version
oper pronPan: Pron =
{ nom = "pan" ;
voc = "panie" ;
dep = table {
GenNoPrep => "pana"; --"go"};
GenPrep => "pana";
DatNoPrep => "panu"; --"mu"};
DatPrep => "panu";
AccNoPrep => "pana"; --"go" };
AccPrep => "pana";
InstrC => "panem";
LocPrep => "panu"
};
sp = \\_ => "pana";
n = Sg;
p = P3 ;
g = PGen (Masc Personal)
};
-- for "you polite" (very idiomatic: pron you = 'madam') female version
oper pronPani: Pron =
{ nom = "pani" ;
voc = "pani" ;
dep = table {
GenNoPrep => "pani"; --"go"};
GenPrep => "pani";
DatNoPrep => "pani"; --"mu"};
DatPrep => "pani";
AccNoPrep => "panią"; --"go" };
AccPrep => "panią";
InstrC => "panią";
LocPrep => "pani"
};
sp = \\_ => "pani";
n = Sg;
p = P3 ;
g = PGen (Fem)
};
-- for "he", "his"
oper pronOn: Pron =
{ nom = "on" ;
voc = "on" ;
dep = table {
GenNoPrep => "jego"; --"go"};
GenPrep => "niego";
DatNoPrep => "jemu"; --"mu"};
DatPrep => "niemu";
AccNoPrep => "jego"; --"go" };
AccPrep => "niego";
InstrC => "nim";
LocPrep => "nim"
};
sp = \\_ => "jego";
n = Sg;
p = P3 ;
g = PGen (Masc Personal)
};
-- for "she", "her", "hers"
oper pronOna: Pron =
{ nom = "ona" ;
voc = "ona" ;
dep = table {
GenNoPrep => "jej";
GenPrep => "niej";
DatNoPrep => "jej";
DatPrep => "niej";
AccNoPrep => "ją";
AccPrep => "nią";
InstrC => "nią";
LocPrep => "niej"
};
sp = \\_ => "jej";
n = Sg;
p = P3 ;
g = PGen Fem;
};
-- for "it", "its"
oper pronOno: Pron =
{ nom = "ono" ;
voc = "ono" ;
dep= table {
GenNoPrep => "jego"; --"go"};
GenPrep => "niego";
DatNoPrep => "jemu"; --"mu"};
DatPrep => "niemu";
AccNoPrep => "je";
AccPrep => "nie";
InstrC => "nim";
LocPrep => "nim"
};
sp = \\_ => "jej";
n = Sg;
p = P3 ;
g = PGen Neut
};
-- for "we", "our", "us", "ours"
oper pronMy: Pron =
{ nom = "my";
voc = "my";
dep = table {
(GenNoPrep|GenPrep) => "nas";
(DatNoPrep|DatPrep) => "nam";
(AccNoPrep|AccPrep) => "nas";
InstrC => "nami";
LocPrep => "nas"
};
sp = table {
AF (MascPersSg|MascAniSg|MascInaniSg) Nom => "nasz";
AF (MascPersSg|MascAniSg|MascInaniSg) Gen => "naszego";
AF (MascPersSg|MascAniSg|MascInaniSg) Dat => "naszemu"; -- zróbmy to po naszemu
AF MascInaniSg Acc => "nasz";
AF (MascPersSg|MascAniSg|MascInaniSg) Acc => "naszego";
AF (MascPersSg|MascAniSg|MascInaniSg) Instr => "naszym";
AF (MascPersSg|MascAniSg|MascInaniSg) Loc => "naszym";
AF (MascPersSg|MascAniSg|MascInaniSg) VocP => "nasz";
AF FemSg Nom => "nasza" ;
AF FemSg Gen => "naszej";
AF FemSg Dat => "naszej";
AF FemSg Acc => "naszą";
AF FemSg Instr => "naszą";
AF FemSg Loc => "naszej";
AF FemSg VocP => "nasza";
AF NeutSg Nom => "nasze" ;
AF NeutSg Gen => "naszego";
AF NeutSg Dat => "naszemu";
AF NeutSg Acc => "nasze";
AF NeutSg Instr => "naszym";
AF NeutSg Loc => "naszym";
AF NeutSg VocP => "nasze";
AF MascPersPl Nom => "nasi";
AF (MascPersPl|OthersPl) Nom => "nasze";
AF (MascPersPl|OthersPl) Gen => "naszych";
AF (MascPersPl|OthersPl) Dat => "naszym";
AF MascPersPl Acc => "naszych";
AF (MascPersPl|OthersPl) Acc => "nasze";
AF (MascPersPl|OthersPl) Instr => "naszymi";
AF (MascPersPl|OthersPl) Loc => "naszych";
AF MascPersPl VocP => "nasi";
AF (MascPersPl|OthersPl) VocP => "nasze"
};
n = Pl;
p = P1 ;
g = PNoGen
};
-- for "you", "yours", "your"
oper pronWy: Pron =
{ nom = "wy" ;
voc = "wy" ;
dep = table {
(GenNoPrep|GenPrep) => "was";
(DatNoPrep|DatPrep) => "wam";
(AccNoPrep|AccPrep) => "was";
InstrC => "wami";
LocPrep => "was"
};
sp = table {
AF (MascPersSg|MascAniSg|MascInaniSg) Nom => "wasz";
AF (MascPersSg|MascAniSg|MascInaniSg) Gen => "waszego";
AF (MascPersSg|MascAniSg|MascInaniSg) Dat => "waszemu"; -- zróbmy to po waszemu
AF MascInaniSg Acc => "wasz";
AF (MascPersSg|MascAniSg|MascInaniSg) Acc => "waszego";
AF (MascPersSg|MascAniSg|MascInaniSg) Instr => "waszym";
AF (MascPersSg|MascAniSg|MascInaniSg) Loc => "waszym";
AF (MascPersSg|MascAniSg|MascInaniSg) VocP => "wasz";
AF FemSg Nom => "wasza" ;
AF FemSg Gen => "waszej";
AF FemSg Dat => "waszej";
AF FemSg Acc => "waszą";
AF FemSg Instr => "waszą";
AF FemSg Loc => "waszej";
AF FemSg VocP => "wasza";
AF NeutSg Nom => "wasze" ;
AF NeutSg Gen => "waszego";
AF NeutSg Dat => "waszemu";
AF NeutSg Acc => "wasze";
AF NeutSg Instr => "waszym";
AF NeutSg Loc => "waszym";
AF NeutSg VocP => "wasze";
AF MascPersPl Nom => "wasi";
AF (MascPersPl|OthersPl) Nom => "wasze";
AF (MascPersPl|OthersPl) Gen => "waszych";
AF (MascPersPl|OthersPl) Dat => "waszym";
AF MascPersPl Acc => "waszych";
AF (MascPersPl|OthersPl) Acc => "wasze";
AF (MascPersPl|OthersPl) Instr => "waszymi";
AF (MascPersPl|OthersPl) Loc => "waszych";
AF MascPersPl VocP => "wasi";
AF (MascPersPl|OthersPl) VocP => "wasze"
};
n = Pl;
p = P2 ;
g = PNoGen
};
-- for "they", "their", "theirs" (Sg he)= Masculinum
oper pronOni: Pron =
{ nom = "oni" ;
voc = "oni" ;
dep = table {
GenNoPrep => "ich";
GenPrep => "nich";
DatNoPrep => "im";
DatPrep => "nim";
AccNoPrep => "ich";
AccPrep => "nich";
InstrC => "nimi";
LocPrep => "nich"
};
sp = \\_ => "ich";
n = Pl;
p = P3 ;
g = PGen (Masc Personal)
};
-- for "they", "their", "theirs" (Sg she, it)= Fem), Neut)
oper pronOneFem: Pron =
{ nom = "one" ;
voc = "one" ;
dep = table {
GenNoPrep => "ich";
GenPrep => "nich";
DatNoPrep => "im";
DatPrep => "nim";
AccNoPrep => "je";
AccPrep => "nie";
InstrC => "nimi";
LocPrep => "nich"
};
sp = \\_ => "ich";
n = Pl;
p = P3 ;
g = PGen Fem
};
oper pronOneNeut: Pron =
{ nom = "one" ;
voc = "one" ;
dep = table {
GenNoPrep => "ich";
GenPrep => "nich";
DatNoPrep => "im";
DatPrep => "nim";
AccNoPrep => "je";
AccPrep => "nie";
InstrC => "nimi";
LocPrep => "nich"
};
sp = \\_ => "ich";
n = Pl;
p = P3 ;
g = PGen Neut
};
--4.3 Interrogative pronouns
{-
-- for "who", "whose"
oper pronKto : Pron =
{ s = table {
PF Nom _ NonPoss => "kto" ;
(GenNoPrep|GenPrep) NonPoss => "kogo";
(DatNoPrep|DatPrep) NonPoss => "komu";
(AccNoPrep|AccPrep) NonPoss => "kogo";
InstrC NonPoss => "kim";
LocPrep NonPoss => "kim";
PF VocP _ NonPoss => nonExist;
PF _ _ (Poss _ _) => nonExist -- exists in my opinion [asl] : czyje
};
n = Sg;
p = P3 ;
g = PGen (Masc Personal);
pron = False
};
-- for "what"
oper pronCo : Pron =
{ s = table {
PF Nom _ NonPoss => "co";
(GenNoPrep|GenPrep) NonPoss => "czego";
(DatNoPrep|DatPrep) NonPoss => "czemu";
(AccNoPrep|AccPrep) NonPoss => "co";
InstrC NonPoss => "czym";
LocPrep NonPoss => "czym";
PF VocP _ NonPoss => nonExist;
PF _ _ (Poss _ _) => nonExist
};
n = Sg;
p = P3 ;
g = PGen (Masc Personal);
pron = False
};
--4.4 Indefinite pronouns
-- for "somebody", "someone", "someone's"
-- in negative sentence, question for "anybody", "anyone"
-- ktoś
-- for "someone", "somebody", "someone's", "somebody's"
-- in question for "anyone", "anybody", "anyone's", "anybody's"
oper pronKtokolwiek : Pron =
{ s = table {
PF Nom _ NonPoss => "ktokolwiek";
(GenNoPrep|GenPrep) NonPoss => "kogokolwiek";
(DatNoPrep|DatPrep) NonPoss => "komukolwiek";
(AccNoPrep|AccPrep) NonPoss => "kogokolwiek";
InstrC NonPoss => "kimkolwiek";
LocPrep NonPoss => "kimkolwiek";
PF VocP _ NonPoss => nonExist;
PF _ _ (Poss _ _) => nonExist
};
n = Sg;
p = P3 ;
g = PGen (Masc Personal);
pron = False
};
-- for "something", "its"
-- in negativ sentence, question or if-sentence for "anything"
-- coś
-- for "something", "its"
-- in question for "anything"
-- doesn't seam to true, doesn't seam to be necessary
-- oper pronCokolwiek : Pron =
-- { s = table {
-- PF Nom _ NonPoss => "cokolwiek";
-- (GenNoPrep|GenPrep) NonPoss => "czegokolwiek";
-- (DatNoPrep|DatPrep) NonPoss => "czemukolwiek";
-- (AccNoPrep|AccPrep) NonPoss => "cokolwiek";
-- InstrC NonPoss => "czymkolwiek";
-- LocPrep NonPoss => "czymkolwiek";
-- PF VocP _ NonPoss => nonExist;
-- PF _ _ (Poss _ _) => nonExist
-- };
-- n = Sg;
-- p = P3 ;
-- g = PGen (Neut));
-- pron = False
-- };
--4.5 Negation pronouns
-- for "nobody". Sg and Pl forms given. It is used like
-- an adjective before a noun. So the end product of this
-- oper is an adjectiv and no pronoun.
-- oper pronZaden : Str -> Adjective = \zaden ->
-- let x = fleetingEminus zaden
-- in
-- table {
-- AF (MascPersSg|MascAniSg|MascInaniSg) Nom => zaden;
-- AF (MascPersSg|MascAniSg|MascInaniSg) Gen => x +"ego";
-- AF (MascPersSg|MascAniSg|MascInaniSg) Dat => x +"emu";
-- AF MascInaniSg Acc => zaden;
-- AF (MascPersSg|MascAniSg|MascInaniSg) Acc => x +"ego";
-- AF (MascPersSg|MascAniSg|MascInaniSg) VocP => zaden;
-- AF (MascPersSg|MascAniSg|MascInaniSg) _ => x + "ym";
-- ---------------------------
-- AF FemSg Nom => x +"a";
-- AF FemSg Acc => x +"ą";
-- AF FemSg Instr => x + "ą";
-- AF FemSg VocP => x + "a";
-- AF FemSg _ => x + "ej";
-- ---------------------------
-- AF NeutSg Gen => x +"ego";
-- AF NeutSg Dat => x +"emu";
-- AF NeutSg Instr => x + "ym";
-- AF NeutSg Loc => x + "ym";
-- AF NeutSg _ => x + "e";
-- -----------------------------
-- AF MascPersPl Nom => x;
-- AF MascPersPl Dat => x + "ym";
-- AF MascPersPl Instr => x + "ymi";
-- AF MascPersPl VocP => x;
-- AF MascPersPl _ => x + "ych";
-- ---------------------------
-- AF (MascPersPl|OthersPl) Nom => x + "e";
-- AF (MascPersPl|OthersPl) Dat => x +"ym";
-- AF (MascPersPl|OthersPl) Acc => x + "e";
-- AF (MascPersPl|OthersPl) Instr => x + "mi";
-- AF (MascPersPl|OthersPl) VocP => x + "e";
-- AF (MascPersPl|OthersPl) _ => x + "ych"
-- };
--
--
-}
--4.6 Demonstrativ pronouns
-- for "ten" ("this") and "tamten" ("that")
oper demPronTen: Str -> { s,sp : AForm => Str } = \s ->
let
x = Predef.tk 3 s
in
{ s,sp = table {
AF (MascPersSg|MascAniSg|MascInaniSg) Nom => x + "ten";
AF (MascPersSg|MascAniSg|MascInaniSg) Gen => x + "tego";
AF (MascPersSg|MascAniSg|MascInaniSg) Dat => x + "temu";
AF MascInaniSg Acc => x + "ten";
AF (MascPersSg|MascAniSg|MascInaniSg) Acc => x + "tego";
AF (MascPersSg|MascAniSg|MascInaniSg) VocP => "[" ++ x +"ten" ++ [": the vocative form does not exist]"];
AF (MascPersSg|MascAniSg|MascInaniSg) _ => x + "tym";
---------------------------
AF FemSg Nom => x + "ta";
AF FemSg Acc => x + "tę";
AF FemSg Instr => x + "tą";
AF FemSg VocP => "["+x + "ten"++[": the vocative form does not exist]"];
AF FemSg _ => x + "tej";
---------------------------
AF NeutSg Nom => x + "to";
AF NeutSg Gen => x + "tego";
AF NeutSg Dat => x + "temu";
AF NeutSg Acc => x + "to";
AF NeutSg VocP => "["+x + "ten"++[": the vocative form does not exist]"];
AF NeutSg _ => x + "tym";
----------------------------
AF MascPersPl Nom => x + "ci";
AF MascPersPl Dat => x + "tym";
AF MascPersPl Instr => x + "tymi";
AF MascPersPl VocP => "["+x + "ten"++[": the vocative form does not exist]"];
AF MascPersPl _ => x + "tych";
---------------------------
AF (MascPersPl|OthersPl) Nom => x + "te";
AF (MascPersPl|OthersPl) Dat => x + "tym";
AF (MascPersPl|OthersPl) Acc => x + "te";
AF (MascPersPl|OthersPl) Instr => x + "tymi";
AF (MascPersPl|OthersPl) VocP => "["+x + "ten"++[": the vocative form does not exist]"];
AF (MascPersPl|OthersPl) _ => x + "tych"
} } ;
oper wszystek : AForm => Str =
table {
AF (MascPersSg|MascAniSg|MascInaniSg) Nom => "wszystek";
AF (MascPersSg|MascAniSg|MascInaniSg) Gen => "wszystkiego";
AF (MascPersSg|MascAniSg|MascInaniSg) Dat => "wszystkiemu";
AF MascInaniSg Acc => "wszystek"; -- wszystky stół widzę
AF (MascPersSg|MascAniSg) Acc => "wszystkiego"; -- wszystkego psa / przyjaciela widzę
AF (MascPersSg|MascAniSg|MascInaniSg) Instr => "wszystkim";
AF (MascPersSg|MascAniSg|MascInaniSg) Loc => "wszystkim";
AF (MascPersSg|MascAniSg|MascInaniSg) VocP => "wszystek";
AF FemSg Nom => "wszystka";
AF FemSg Gen => "wszystkiej";
AF FemSg Dat => "wszystkiej";
AF FemSg Acc => "wszystką";
AF FemSg Instr => "wszystką";
AF FemSg Loc => "wszystkiej";
AF FemSg VocP => "wszystka";
AF NeutSg Nom => "wszystkie" ;
AF NeutSg Gen => "wszystkiego";
AF NeutSg Dat => "wszystkiemu";
AF NeutSg Acc => "wszystkie";
AF NeutSg Instr => "wszystkim";
AF NeutSg Loc => "wszystkim";
AF NeutSg VocP => "wszystkie";
AF MascPersPl Nom => "wszyscy";
AF OthersPl Nom => "wszystkie";
AF (MascPersPl|OthersPl) Gen => "wszystkich";
AF (MascPersPl|OthersPl) Dat => "wszystkim";
AF MascPersPl Acc => "wszystkich";
AF (MascPersPl|OthersPl) Acc => "wszystkie";
AF (MascPersPl|OthersPl) Instr => "wszystkimi";
AF (MascPersPl|OthersPl) Loc => "wszystkich";
AF MascPersPl VocP => "wszyscy";
AF OthersPl VocP => "wszystkie"
};
{-
--
-- -- oper for "a"
-- oper jedenDet: Str -> Adjective = \s ->
-- table {
-- AF (MascPersSg|MascAniSg|MascInaniSg) Nom => "jeden";
-- AF (MascPersSg|MascAniSg|MascInaniSg) Gen => "jednego";
-- AF (MascPersSg|MascAniSg|MascInaniSg) Dat => "jednemu";
-- AF MascInaniSg Acc => "jeden";
-- AF (MascPersSg|MascAniSg|MascInaniSg) Acc => "jednego";
-- AF (MascPersSg|MascAniSg|MascInaniSg) VocP => nonExist;
-- AF (MascPersSg|MascAniSg|MascInaniSg) _ => "jednym";
-- ---------------------------
-- AF FemSg Nom => "jedna";
-- AF FemSg Acc => "jedną";
-- AF FemSg Instr => "jedną";
-- AF FemSg VocP => nonExist;
-- AF FemSg _ => "jednej";
-- ---------------------------
-- AF NeutSg Nom => "jedno";
-- AF NeutSg Gen => "jedno";
-- AF NeutSg Dat => "jednemu";
-- AF NeutSg Acc => "jedno";
-- AF NeutSg VocP => nonExist;
-- AF NeutSg _ => "jednym";
-- ----------------------------
-- AF MascPersPl Nom => "jedni";
-- AF MascPersPl Dat => "jednym";
-- AF MascPersPl Instr => "jednymi";
-- AF MascPersPl VocP => nonExist;
-- AF MascPersPl _ => "jednych";
-- ---------------------------
-- AF (MascPersPl|OthersPl) Nom => "jedne";
-- AF (MascPersPl|OthersPl) Dat => "jednym";
-- AF (MascPersPl|OthersPl) Acc => "jedne";
-- AF (MascPersPl|OthersPl) Instr => "jednymi";
-- AF (MascPersPl|OthersPl) VocP => nonExist;
-- AF (MascPersPl|OthersPl) _ => "jednych"
-- };
--
--
--
-- --4.7 Generalized pronouns ?????????????????
--
-- --???????????????????????????? english
-- -- pronoun "all"
--
--4.8 Pronouns used in funtion of DET, PREDET
-- Here, I have to define "wszystek" again, but only for the plural.
-- I need it in declension of pronKazdy, because "każdy" has only
-- sg forms. In pl they are used forms of "wszyscy".
-- oper pronWszystekDet : Str -> Adjective = \wszyscy ->
-- table {
-- AF MascPersPl Nom => "wszyscy";
-- AF (MascPersPl|OthersPl) _) Nom => "wszystkie";
-- AF (MascPersPl|OthersPl) _) Gen => "wszystkich";
-- AF (MascPersPl|OthersPl) _) Dat => "wszystkim";
-- AF MascPersPl Acc => "wszystkich";
-- AF (MascPersPl|OthersPl) _) Acc => "wszystkie";
-- AF (MascPersPl|OthersPl) _) Instr => "wszystkimi";
-- AF (MascPersPl|OthersPl) _) Loc => "wszystkich";
-- _ => nonExist
-- };
-- I need this oper for building of pronouns like "każdy".
-- This pronoun has not any plural forms. For plural it is used
-- the pronoun "wszyscy" ( Pl form of "wszystek")
-- oper pronKazdy : (x : Str ) -> {s : Number => Adjective} = \x ->
-- {s = table {
-- Sg => table {af => ((AdjectivDeclension "każdy") ! af)};
-- Pl => table {af => ((pronWszystekDet "wszyscy") ! af)}
-- }};
-}
}
Reference in New Issue View Git Blame Copy Permalink