Polish resource grammar

2026-04-29 14:32:51 -06:00 · 2009-10-23 12:44:58 +00:00
parent 604c6e44f2
commit 2c57206b75
27 changed files with 8319 additions and 0 deletions
--- a/lib/src/polish/StructuralPol.gf
+++ b/lib/src/polish/StructuralPol.gf
@@ -0,0 +1,121 @@
+--# -path=.:../abstract:../common:../prelude
+
+-- Ilona Nowak Wintersemester 2007/08  
+
+-- Adam Slaski, 2009 <adam.slaski@gmail.com>
+
+-- In Polish language they aren't determiners like in english or german.
+
+concrete StructuralPol of Structural = CatPol ** 
+  open ResPol, MorphoPol, ParadigmsPol, Prelude in {
+
+
+  flags optimize=all; coding=utf8;
+
+lin
+
+  above_Prep = mkPrep "nad" Instr; 
+  after_Prep = mkPrep "po"  Loc;
+
+  all_Predet = { s=wszystek; np=wszystko; adj=True };
+  almost_AdA, almost_AdN = ss "prawie";
+  although_Subj = ss "pomimo";
+  always_AdV = ss "zawsze";
+  and_Conj = {s1=""; s2 = "i";  sent1=""; sent2=["i"]};
+  at_least_AdN = ss "co najmniej";
+  at_most_AdN = ss "co najwyżej";
+  because_Subj = ss "ponieważ";
+  before_Prep = mkPrep "przed" Instr;
+  behind_Prep = mkPrep "za" Instr;
+  between_Prep = mkPrep "między" Instr;
+  both7and_DConj = {s1="zarówno"; s2=["jak i"]; sent1="zarówno"; sent2=[", jak i"]};
+  but_PConj = ss "ale";
+  by8agent_Prep = mkPrep "przez" Acc;
+  by8means_Prep = mkPrep "przez" Acc;
+  can8know_VV = mkItVerb (mkMonoVerb "umieć" conj101 Imperfective);
+  can_VV  = mkItVerb (mkMonoVerb "móc" conj27 Imperfective);
+  during_Prep  = mkPrep "podczas" Gen; -- def. in ParadigmsPol
+  either7or_DConj = {s1="albo"; s2="albo";  sent1="albo"; sent2=[", albo"]};
+  every_Det  = kazdyDet;
+  everybody_NP = wszyscy ** {lock_NP=<>};
+  everything_NP  = wszystko ** {lock_NP=<>};
+  everywhere_Adv = ss "wszędzie";
+  except_Prep = mkPrep "z wyjątkiem" Acc;
+  few_Det = pareDet;
+  for_Prep = mkPrep "dla" Gen;
+  from_Prep  = mkPrep "z" Gen; -- def. in ParadigmsPol
+  have_V2 = dirV2 (mkMonoVerb "mieć" conj100 Imperfective); 
+  he_Pron  = pronOn;
+  here_Adv = ss "tutaj";
+  here7to_Adv = ss "tutaj";
+  here7from_Adv = ss "stąd";
+  how_IAdv  = ss "jak";
+  how8many_IDet = ileDet; 
+  i_Pron   = pronJa;
+  if_Subj    = ss "jeśli";
+  if_then_Conj = {s1="jeżeli"; s2=[", to"];  sent1="jeżeli"; sent2=[", to"]};
+  in8front_Prep  = mkPrep "przed" Instr;
+  in_Prep  =  mkPrep "w" Loc;
+  it_Pron    = pronOno;
+  language_title_Utt = ss "polski";
+  less_CAdv = {s,sn = "mniej" ; p,pn = "niż" } ;
+  many_Det  = wieleDet;
+  more_CAdv = {s = "bardziej" ; pn,p = "niż"; sn="więcej"} ;
+  most_Predet = { s=wszystek; np={nom="większość"; voc="większości"; 
+    dep=table{AccPrep|AccNoPrep=>"większość"; InstrPrep|InstrNoPrep=>"większością"; _=>"większości"}; 
+    p=P3; gn=FemSg}; adj=False };
+  much_Det   = duzoDet;
+  must_VV = mkItVerb (mkMonoVerb "musieć" conj93 Imperfective);
+  no_Quant = zadenQuant;
+  no_Utt  = ss "nie";
+  nobody_NP = niktNP;
+  not_Predet = { s=zadenQuant.s; np=wszystko; adj=True };
+  nothing_NP = nicNP;
+  on_Prep = mkPrep "nа" Loc; 
+  only_Predet = { s=\\_=>"tylko"; np=wszystko; adj=True };
+  or_Conj  = {s1=""; s2="lub";  sent1=""; sent2=["lub"]};
+  otherwise_PConj  = ss "inaczej"; 
+  part_Prep = mkPrep "z" Gen; 
+  please_Voc = ss "proszę";
+  possess_Prep  = mkPrep "" Gen; --overgenerating with pronouns
+  quite_Adv = ss "całkiem";
+  she_Pron   = pronOna;
+  so_AdA = ss "tak";
+  somebody_NP = ktos ** {lock_NP = <>};
+  someSg_Det = pewienDet;
+  somePl_Det = pewniDet;
+  something_NP  = cos ** {lock_NP = <>};
+  somewhere_Adv  = ss "gdzieś";
+  that_Quant = demPronTen "tamten";
+  there_Adv = ss "tam";
+  there7to_Adv = ss "tam";
+  there7from_Adv = ss "stamtąd";
+  therefore_PConj  = ss "dlatego";
+  they_Pron = pronOni;-- pronOneFem; pronOneNeut};
+  this_Quant = demPronTen "ten";
+  through_Prep  = mkPrep "przez" Acc;
+  to_Prep = mkPrep "do" Gen; -- def. in ParadigmsPol.gf
+  too_AdA = ss "za"; 
+  under_Prep = mkPrep "pod" Instr; -- with Acc too
+  very_AdA = ss "bardzo";
+  want_VV = mkV "chcieć" conj45 "zechcieć" conj45;
+  we_Pron = pronMy;
+  whatPl_IP = co;
+  whatSg_IP = co;
+  when_IAdv = ss "kiedy";
+  when_Subj = ss "jeśli";
+  where_IAdv = ss "gdzie";
+  which_IQuant = { s = ktory };
+  whoPl_IP = kto;
+  whoSg_IP = kto;
+  why_IAdv = ss "dlaczego";
+  with_Prep = mkPrep "z" Instr;
+  without_Prep = mkPrep "bez" Gen; -- def. in ParadigmsPol.gf
+  youPl_Pron = pronWy;
+  yes_Utt = ss "tak";
+  youSg_Pron = pronTy;
+  youPol_Pron =  pronTy;
+
+  as_CAdv = { s,sn="tak"; p,pn="jak"} ;
+
+};