forked from GitHub/gf-core
712 lines
21 KiB
Plaintext
712 lines
21 KiB
Plaintext
--# -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)}
|
|
-- }};
|
|
-}
|
|
}
|