more updates from Codex

src/ukrainian/CatUkr.gf

@@ -3,7 +3,13 @@ concrete CatUkr of Cat = CommonX ** open ResUkr, (R = ParamX) in {
 lincat N = N ;
 lincat N2 = N ** {c2 : Compl} ;
 lincat N3 = N ** {c2,c3 : Compl} ;
-lincat Pron = {s: Case => Str; g: Gender; n : Number; p: Person} ;
+lincat Pron = {
+  s : Case => Str ;
+  poss : Case => Gender => Number => Str ;
+  g : Gender ;
+  n : Number ;
+  p : Person
+  } ;
 lincat V = V ;
 lincat VV,VS,VQ,VA = V ;
 lincat V2 = V ** {c2 : Compl} ;

src/ukrainian/ExtendUkr.gf

@@ -1,16 +1,213 @@
 --# -path=.:../abstract:../common:prelude
-concrete ExtendUkr of Extend = CatUkr ** open ResUkr, ParadigmsUkr in {
+concrete ExtendUkr of Extend = CatUkr **
+  open ResUkr, (R = ParamX), ParadigmsUkr, Prelude in {
+
+lincat
+  VPS = {s : Gender => Number => Person => Str} ;
+  [VPS] = {s1,s2 : Gender => Number => Person => Str} ;
+  VPI = {s : Str} ;
+  [VPI] = {s1,s2 : Str} ;
+  VPS2 = {s : Gender => Number => Person => Str; c : Compl; post : Str} ;
+  [VPS2] = {s1,s2 : Gender => Number => Person => Str; c : Compl; post : Str} ;
+  VPI2 = {s : Str; c : Compl; post : Str} ;
+  [VPI2] = {s1,s2 : Str; c : Compl; post : Str} ;
+  [Comp] = {s1,s2 : Gender => Number => Str} ;
+  [Imp] = {s1,s2 : R.Polarity => Number => Str} ;
+  RNP = {s : Case => Str} ;
+  RNPList = {s1,s2 : Case => Str} ;
+  X = {s : Str} ;
 
 lin
-  UttAdV adv = {s = adv.s} ;
+  GenModNP num np cn = {
+    s = \\c => cn.s ! c ! num.n ++ np.s ! Gen ;
+    g = cn.g ;
+    n = num.n ;
+    p = P3
+  } ;
+  EmptyRelSlash cls = {s = \\_,_ => cls.s ! R.Pres ! R.Pos} ;
 
-  iFem_Pron      = mkPron "я" "мене" "мені" "мене" "мені" "мною" Fem Sg P1 ;
+  MkVPS temp pol vp = {s = \\g,n,p => vp.s ! temp.t ! pol.p ! g ! n ! p} ;
-  youFem_Pron    = mkPron "ти" "тeбе" "тобі" "мене" "тобі" "тобою" Fem Sg P2 ;  
+  BaseVPS x y = {s1=x.s; s2=y.s} ;
-  weFem_Pron     = mkPron "ми" "нас" "нам" "нас" "наc" "нами" Fem Pl P1 ;
+  ConsVPS x xs = {s1=\\g,n,p => x.s ! g ! n ! p ++ "," ++ xs.s1 ! g ! n ! p; s2=xs.s2} ;
-  youPlFem_Pron  = mkPron "ви" "вас" "вам" "вас" "вас" "вами" Fem Pl P2 ;  
+  ConjVPS conj xs = {s = \\g,n,p => conj.s1 ++ xs.s1 ! g ! n ! p ++ conj.s2 ++ xs.s2 ! g ! n ! p} ;
-  theyFem_Pron   = mkPron "вони" "їх" "їм" "їх" "них" "ними" Fem Pl P3 ;  
+  PredVPS np vps = {s = np.s ! Nom ++ vps.s ! np.g ! np.n ! np.p} ;
-  youPolFem_Pron = mkPron "ви" "вас" "вам" "вас" "вас" "вами" Fem Pl P2 ;
+  SQuestVPS np vps = {s = np.s ! Nom ++ vps.s ! np.g ! np.n ! np.p} ;
-  youPolPl_Pron  = mkPron "ви" "вас" "вам" "вас" "вас" "вами" Masc Pl P2 ;
+  QuestVPS ip vps = {s = ip.s ! Nom ++ vps.s ! ip.g ! ip.n ! ip.p} ;
-  youPolPlFem_Pron = mkPron "ви" "вас" "вам" "вас" "вас" "вами" Fem Pl P2 ;
+  RelVPS rp vps = {s = \\g,n => rp.s ! g ! n ! Nom ++ vps.s ! g ! n ! P3} ;
 
+  ExistS temp pol np = {s = case pol.p of {R.Pos => "є" ++ np.s ! Nom ; R.Neg => "немає" ++ np.s ! Gen}} ;
+  ExistNPQS temp pol np = {s = case pol.p of {R.Pos => "є" ++ np.s ! Nom ; R.Neg => "немає" ++ np.s ! Gen}} ;
+  ExistIPQS temp pol ip = {s = "що є" ++ ip.s ! Nom} ;
+
+  MkVPI vp = {s = vp.inf} ;
+  BaseVPI x y = {s1=x.s; s2=y.s} ;
+  ConsVPI x xs = {s1=x.s ++ "," ++ xs.s1; s2=xs.s2} ;
+  ConjVPI conj xs = {s = conj.s1 ++ xs.s1 ++ conj.s2 ++ xs.s2} ;
+  ComplVPIVV vv vpi = {
+    s = \\t,pol,g,n,p => finiteVerb vv t pol g n p ++ vpi.s ;
+    inf = vv.infinitive ++ vpi.s ;
+    imp = \\pol,n => neg pol ++ vv.imperative2 ! n ++ vpi.s
+  } ;
+
+  MkVPS2 temp pol slash = {s = \\g,n,p => slash.s ! temp.t ! pol.p ! g ! n ! p; c=slash.c; post=slash.post} ;
+  BaseVPS2 x y = {s1=x.s; s2=y.s; c=y.c; post=y.post} ;
+  ConsVPS2 x xs = {s1=\\g,n,p => x.s ! g ! n ! p ++ "," ++ xs.s1 ! g ! n ! p; s2=xs.s2; c=xs.c; post=xs.post} ;
+  ConjVPS2 conj xs = {s = \\g,n,p => conj.s1 ++ xs.s1 ! g ! n ! p ++ conj.s2 ++ xs.s2 ! g ! n ! p; c=xs.c; post=xs.post} ;
+  ComplVPS2 vps2 np = {s = \\g,n,p => vps2.s ! g ! n ! p ++ prepNP vps2.c np ++ vps2.post} ;
+  ReflVPS2 vps2 rnp = {s = \\g,n,p => vps2.s ! g ! n ! p ++ prepNP vps2.c rnp ++ vps2.post} ;
+  MkVPI2 slash = {s=slash.inf; c=slash.c; post=slash.post} ;
+  BaseVPI2 x y = {s1=x.s; s2=y.s; c=y.c; post=y.post} ;
+  ConsVPI2 x xs = {s1=x.s ++ "," ++ xs.s1; s2=xs.s2; c=xs.c; post=xs.post} ;
+  ConjVPI2 conj xs = {s=conj.s1 ++ xs.s1 ++ conj.s2 ++ xs.s2; c=xs.c; post=xs.post} ;
+  ComplVPI2 vpi2 np = {s = vpi2.s ++ prepNP vpi2.c np ++ vpi2.post} ;
+
+  BaseComp x y = {s1=x.s; s2=y.s} ;
+  ConsComp x xs = {s1=\\g,n => x.s ! g ! n ++ "," ++ xs.s1 ! g ! n; s2=xs.s2} ;
+  ConjComp conj xs = {s = \\g,n => conj.s1 ++ xs.s1 ! g ! n ++ conj.s2 ++ xs.s2 ! g ! n} ;
+  BaseImp x y = {s1=x.s; s2=y.s} ;
+  ConsImp x xs = {s1=\\pol,n => x.s ! pol ! n ++ "," ++ xs.s1 ! pol ! n; s2=xs.s2} ;
+  ConjImp conj xs = {s = \\pol,n => conj.s1 ++ xs.s1 ! pol ! n ++ conj.s2 ++ xs.s2 ! pol ! n} ;
+
+  ProDrop pron = pron ** {s = \\_ => []} ;
+  ICompAP ap = {s = ap.s ! Nom ! GSg Neuter} ;
+  IAdvAdv adv = adv ;
+  CompIQuant iq = {s = iq.s ! Nom ! Masc ! Sg} ;
+  PrepCN prep cn = {s = prep.s ++ cn.s ! prep.c ! Sg} ;
+  FocusObj np sslash = {s = np.s ! Acc ++ sslash.s} ;
+  FocusAdv adv s = {s = adv.s ++ s.s} ;
+  FocusAdV adv s = {s = adv.s ++ s.s} ;
+  PresPartAP vp = {s=\\c,gn => vp.inf} ;
+  EmbedPresPart vp = {s = vp.inf} ;
+  PastPartAP slash = {s=\\c,gn => slash.inf} ;
+  PastPartAgentAP slash np = {s=\\c,gn => slash.inf ++ prepNP {s="ким"; c=Instr} np} ;
+  PassVPSlash slash = {
+    s = \\t,pol,g,n,p => copula t pol g n p ++ slash.inf ++ slash.post ;
+    inf = "бути" ++ slash.inf ++ slash.post ;
+    imp = \\pol,n => neg pol ++ "будь" ++ slash.inf ++ slash.post
+  } ;
+  PassAgentVPSlash slash np = {
+    s = \\t,pol,g,n,p => copula t pol g n p ++ slash.inf ++ prepNP {s="ким"; c=Instr} np ++ slash.post ;
+    inf = "бути" ++ slash.inf ++ prepNP {s="ким"; c=Instr} np ++ slash.post ;
+    imp = \\pol,n => neg pol ++ "будь" ++ slash.inf ++ prepNP {s="ким"; c=Instr} np ++ slash.post
+  } ;
+  ProgrVPSlash slash = slash ;
+  ExistsNP np = {s = \\t,pol => "існує" ++ np.s ! Nom} ;
+  ComplBareVS vs s = {
+    s = \\t,pol,g,n,p => finiteVerb vs t pol g n p ++ s.s ;
+    inf = vs.infinitive ++ s.s ;
+    imp = \\pol,n => neg pol ++ vs.imperative2 ! n ++ s.s
+  } ;
+  SlashBareV2S v s = {
+    s = \\t,pol,g,n,p => finiteVerb v t pol g n p ;
+    inf = v.infinitive ;
+    imp = \\pol,n => neg pol ++ v.imperative2 ! n ;
+    c = v.c2 ;
+    post = s.s
+  } ;
+  ComplDirectVS vs utt = {
+    s = \\t,pol,g,n,p => finiteVerb vs t pol g n p ++ utt.s ;
+    inf = vs.infinitive ++ utt.s ;
+    imp = \\pol,n => neg pol ++ vs.imperative2 ! n ++ utt.s
+  } ;
+  ComplDirectVQ vq utt = {
+    s = \\t,pol,g,n,p => finiteVerb vq t pol g n p ++ utt.s ;
+    inf = vq.infinitive ++ utt.s ;
+    imp = \\pol,n => neg pol ++ vq.imperative2 ! n ++ utt.s
+  } ;
+  FrontComplDirectVS np vs utt = {s = \\t,pol => utt.s ++ np.s ! Nom ++ finiteVerb vs t pol np.g np.n np.p} ;
+  FrontComplDirectVQ np vq utt = {s = \\t,pol => utt.s ++ np.s ! Nom ++ finiteVerb vq t pol np.g np.n np.p} ;
+  PredAPVP ap vp = {s = \\t,pol => ap.s ! Nom ! GSg Neuter ++ vp.inf} ;
+  AdjAsCN ap = constN (ap.s ! Nom ! GSg Masc) Masc ;
+  AdjAsNP ap = {s=\\_=>ap.s ! Nom ! GSg Masc; g=Masc; n=Sg; p=P3} ;
+  PredIAdvVP iadv vp = {s = \\t,pol => iadv.s ++ vp.inf} ;
+  EmbedSSlash ss = {s = ss.s} ;
+
+  ReflRNP slash rnp = {
+    s = \\t,pol,g,n,p => slash.s ! t ! pol ! g ! n ! p ++ prepNP slash.c rnp ++ slash.post ;
+    inf = slash.inf ++ prepNP slash.c rnp ++ slash.post ;
+    imp = \\pol,n => slash.imp ! pol ! n ++ prepNP slash.c rnp ++ slash.post
+  } ;
+  ReflPron = {s = \\_ => "себе"} ;
+  ReflPoss num cn = {s = \\c => possIy "св" c cn.g num.n ++ cn.s ! c ! num.n} ;
+  PredetRNP pred rnp = {s = \\c => pred.s ! c ! Masc ! Sg ++ rnp.s ! c} ;
+  AdvRNP np prep rnp = {s = \\c => np.s ! c ++ prepNP prep rnp} ;
+  AdvRVP vp prep rnp = vp ** {
+    s = \\t,pol,g,n,p => vp.s ! t ! pol ! g ! n ! p ++ prepNP prep rnp
+  } ;
+  AdvRAP ap prep rnp = ap ** {
+    s = \\c,gn => ap.s ! c ! gn ++ prepNP prep rnp
+  } ;
+  ReflA2RNP a rnp = a ** {
+    s = \\c,gn => a.s ! c ! gn ++ prepNP a.c2 rnp
+  } ;
+  PossPronRNP pron num cn rnp = {
+    s = \\c => pron.poss ! c ! cn.g ! num.n ++ cn.s ! c ! num.n ++ rnp.s ! Gen ;
+    g = cn.g ;
+    n = num.n ;
+    p = P3
+  } ;
+  Base_rr_RNP x y = {s1=x.s; s2=y.s} ;
+  Base_nr_RNP x y = {s1=x.s; s2=y.s} ;
+  Base_rn_RNP x y = {s1=x.s; s2=y.s} ;
+  Cons_rr_RNP x xs = {s1=\\c=>x.s ! c ++ "," ++ xs.s1 ! c; s2=xs.s2} ;
+  Cons_nr_RNP x xs = {s1=\\c=>x.s ! c ++ "," ++ xs.s1 ! c; s2=xs.s2} ;
+  ConjRNP conj xs = {s = \\c => conj.s1 ++ xs.s1 ! c ++ conj.s2 ++ xs.s2 ! c} ;
+  ReflPossPron = {s = \\c,g,n => possIy "св" c g n} ;
+
+  CompoundN n1 n2 = n2 ** {
+    s = \\c,n => n2.s ! c ! n ++ n1.s ! Gen ! Sg ;
+    voc = \\n => n2.voc ! n ++ n1.s ! Gen ! Sg
+  } ;
+  CompoundAP n a = {s=\\c,gn=>n.s ! Nom ! Sg ++ a.s ! c ! gn} ;
+  GerundCN vp = constN vp.inf Neuter ;
+  GerundNP vp = {s=\\_=>vp.inf; g=Neuter; n=Sg; p=P3} ;
+  GerundAdv vp = {s=vp.inf} ;
+  WithoutVP vp = {s="без" ++ vp.inf} ;
+  ByVP vp = {s=vp.inf} ;
+  ApposNP np app = np ** {s = \\c => np.s ! c ++ "," ++ app.s ! Nom} ;
+  AdAdV ada adv = {s = ada.s ++ adv.s} ;
+  UttAdV adv = adv ;
+  PositAdVAdj a = {s = a.s ! Nom ! GSg Neuter} ;
+  CompS s = {s=\\_,_=>s.s} ;
+  CompQS qs = {s=\\_,_=>qs.s} ;
+  UttVPShort vp = {s=vp.inf} ;
+  ComplSlashPartLast slash np = {
+    s = \\t,pol,g,n,p => slash.s ! t ! pol ! g ! n ! p ++ prepNP slash.c np ++ slash.post ;
+    inf = slash.inf ++ prepNP slash.c np ++ slash.post ;
+    imp = \\pol,n => slash.imp ! pol ! n ++ prepNP slash.c np ++ slash.post
+  } ;
+  UseComp_estar comp = {
+    s = \\t,pol,g,n,p => copula t pol g n p ++ comp.s ! g ! n ;
+    inf = "бути" ++ comp.s ! Masc ! Sg ;
+    imp = \\pol,n => neg pol ++ "будь" ++ comp.s ! Masc ! n
+  } ;
+  UseComp_ser = UseComp_estar ;
+  SubjRelNP np rs = np ** {s=\\c=>np.s ! c ++ rs.s ! np.g ! np.n} ;
+  UttAccNP np = {s=np.s ! Acc} ;
+  UttDatNP np = {s=np.s ! Dat} ;
+  UttAccIP ip = {s=ip.s ! Acc} ;
+  UttDatIP ip = {s=ip.s ! Dat} ;
+  UseDAP dap = {s=\\c=>dap.s ! c ! Masc; g=Masc; n=dap.n; p=P3} ;
+  UseDAPMasc dap = {s=\\c=>dap.s ! c ! Masc; g=Masc; n=dap.n; p=P3} ;
+  UseDAPFem dap = {s=\\c=>dap.s ! c ! Fem; g=Fem; n=dap.n; p=P3} ;
+  CardCNCard card cn = {s=card.s ++ cn.s ! Nom ! Pl; n=Pl} ;
+  TPastSimple = {s=[]; t=R.Past} ;
+  SubjunctRelCN cn rs = cn ** {s=\\c,n=>cn.s ! c ! n ++ rs.s ! cn.g ! n} ;
+
+  iFem_Pron = mkPron "я" "мене" "мені" "мене" "мені" "мною"
+    (possIy "м") Fem Sg P1 ;
+  youFem_Pron = mkPron "ти" "тeбе" "тобі" "мене" "тобі" "тобою"
+    (possIy "тв") Fem Sg P2 ;
+  weFem_Pron = mkPron "ми" "нас" "нам" "нас" "наc" "нами"
+    (possAsh "н") Fem Pl P1 ;
+  youPlFem_Pron = mkPron "ви" "вас" "вам" "вас" "вас" "вами"
+    (possAsh "в") Fem Pl P2 ;
+  theyFem_Pron = mkPron "вони" "їх" "їм" "їх" "них" "ними"
+    possTheir Fem Pl P3 ;
+  youPolFem_Pron = mkPron "ви" "вас" "вам" "вас" "вас" "вами"
+    (possAsh "в") Fem Pl P2 ;
+  youPolPl_Pron = mkPron "ви" "вас" "вам" "вас" "вас" "вами"
+    (possAsh "в") Masc Pl P2 ;
+  youPolPlFem_Pron = mkPron "ви" "вас" "вам" "вас" "вас" "вами"
+    (possAsh "в") Fem Pl P2 ;
 }

src/ukrainian/NounUkr.gf

@@ -3,7 +3,7 @@ lin
   UseN n = n ;
 
   DetCN det cn = {
-    s = \\c => det.s ! c ! cn.g ++ cn.s ! Nom ! Sg ;
+    s = \\c => det.s ! c ! cn.g ++ cn.s ! c ! det.n ;
     g = cn.g ;
     n = det.n ;
     p = P3
@@ -46,13 +46,13 @@ lin
   IndefArt = {s = \\_,_,_ => []} ;
   DefArt = {s = \\_,_,_ => []} ;
   MassNP cn = {
-    s = \\_ => cn.s ! Nom ! Sg ;
+    s = \\c => cn.s ! c ! Sg ;
     g = cn.g ;
     n = Sg ;
     p = P3
   } ;
   PossPron p = {
-    s = \\_,g,n => possPron p.p p.g p.n g n
+    s = p.poss
   } ;
 
   ComplN2 n2 np = n2 ** {
@@ -79,7 +79,7 @@ lin
     s = \\c,n => cn.s ! c ! n ++ sc.s
   } ;
   ApposCN cn np = cn ** {
-    s = \\c,n => cn.s ! c ! n ++ np.s ! Nom
+    s = \\c,n => cn.s ! c ! n ++ np.s ! c
   } ;
   PossNP cn np = cn ** {
     s = \\c,n => cn.s ! c ! n ++ np.s ! Gen

src/ukrainian/ParadigmsUkr.gf

@@ -1171,8 +1171,29 @@ oper
     }
   } ;
 
-  mkPron : (_,_,_,_,_,_ : Str) -> Gender -> Number -> Person -> Pron =
+  forcePluralN : N -> N = \n -> n ** {
-    \nom,acc,dat,gen,loc,instr,g,n,p -> lin Pron {
+    s = \\c,_ => n.s ! c ! Pl ;
+    voc = \\_ => n.voc ! Pl
+  } ;
+
+  wholeA : A = {
+    s = table {
+      Nom => table {GSg Masc => "весь"; GSg Fem => "вся"; GSg Neuter => "все"; GPl => "всі"} ;
+      Acc => table {GSg Masc => "весь"; GSg Fem => "всю"; GSg Neuter => "все"; GPl => "всі"} ;
+      Dat => table {GSg Masc => "всьому"; GSg Fem => "всій"; GSg Neuter => "всьому"; GPl => "всім"} ;
+      Gen => table {GSg Masc => "всього"; GSg Fem => "всієї"; GSg Neuter => "всього"; GPl => "всіх"} ;
+      Loc => table {GSg Masc => "всьому"; GSg Fem => "всій"; GSg Neuter => "всьому"; GPl => "всіх"} ;
+      Instr => table {GSg Masc => "всім"; GSg Fem => "всією"; GSg Neuter => "всім"; GPl => "всіма"}
+    }
+  } ;
+
+  wholePredet : Predet = lin Predet {
+    s = \\c,g,n => wholeA.s ! c ! genNum g n
+  } ;
+
+  mkPron : (_,_,_,_,_,_ : Str) ->
+    (Case -> Gender -> Number -> Str) -> Gender -> Number -> Person -> Pron =
+    \nom,acc,dat,gen,loc,instr,poss,g,n,p -> lin Pron {
       s = table {
             Nom => nom ;
             Acc => acc ;
@@ -1181,6 +1202,7 @@ oper
             Loc => loc ;
             Instr => instr
           } ;
+      poss = \\c,g,n => poss c g n ;
       g = g ;
       n = n ;
       p = p

src/ukrainian/ResUkr.gf

@@ -178,11 +178,15 @@ oper neg : R.Polarity -> Str = \p -> case p of {
   R.Neg => "не"
   } ;
 
-oper auxBe : R.Tense -> Number -> Person -> Str =
+oper auxBe : R.Tense -> Gender -> Number -> Person -> Str =
-  \t,n,p -> case t of {
+  \t,g,n,p -> case t of {
     R.Pres => [] ;
     R.Past => case n of {
-      Sg => "був" ;
+      Sg => case g of {
+        Masc => "був" ;
+        Fem => "була" ;
+        Neuter => "було"
+        } ;
       Pl => "були"
       } ;
     R.Fut => case <p,n> of {
@@ -202,13 +206,13 @@ oper auxBe : R.Tense -> Number -> Person -> Str =
 oper finiteVerb : V -> R.Tense -> R.Polarity -> Gender -> Number -> Person -> Str =
   \v,t,pol,g,n,p -> neg pol ++ case t of {
     R.Pres => (v.active ! Imperf).pres ! p ! n ;
-    R.Past => (v.active ! Imperf).pres ! p ! n ;
+    R.Past => v.participle ! g ! n ;
-    R.Fut  => auxBe R.Fut n p ++ v.infinitive ;
+    R.Fut  => auxBe R.Fut g n p ++ v.infinitive ;
-    R.Cond => (v.active ! Imperf).pres ! p ! n ++ "би"
+    R.Cond => v.participle ! g ! n ++ "би"
     } ;
 
 oper copula : R.Tense -> R.Polarity -> Gender -> Number -> Person -> Str =
-  \t,pol,g,n,p -> neg pol ++ auxBe t n p ;
+  \t,pol,g,n,p -> neg pol ++ auxBe t g n p ;
 
 oper prepNP : Compl -> {s : Case => Str} -> Str =
   \prep,np -> prep.s ++ np.s ! prep.c ;
@@ -220,28 +224,52 @@ oper constN : Str -> Gender -> N =
     g = g
   } ;
 
-oper possPron : Person -> Gender -> Number -> Gender -> Number -> Str =
+oper possIy : Str -> Case -> Gender -> Number -> Str =
-  \p,pg,pn,g,n -> case <p,pg,pn,g,n> of {
+  \b,c,g,n -> case <c,g,n> of {
-    <P1,_,Sg,Masc,Sg> => "мій" ;
+    <Nom,Masc,Sg> => b+"ій" ; <Nom,Fem,Sg> => b+"оя" ;
-    <P1,_,Sg,Fem,Sg> => "моя" ;
+    <Nom,Neuter,Sg> => b+"оє" ; <Nom,_,Pl> => b+"ої" ;
-    <P1,_,Sg,Neuter,Sg> => "моє" ;
+    <Acc,Masc,Sg> => b+"ій" ; <Acc,Fem,Sg> => b+"ою" ;
-    <P1,_,Sg,_,Pl> => "мої" ;
+    <Acc,Neuter,Sg> => b+"оє" ; <Acc,_,Pl> => b+"ої" ;
-    <P1,_,Pl,Masc,Sg> => "наш" ;
+    <Dat,Masc,Sg> => b+"оєму" ; <Dat,Fem,Sg> => b+"оїй" ;
-    <P1,_,Pl,Fem,Sg> => "наша" ;
+    <Dat,Neuter,Sg> => b+"оєму" ; <Dat,_,Pl> => b+"оїм" ;
-    <P1,_,Pl,Neuter,Sg> => "наше" ;
+    <Gen,Masc,Sg> => b+"ого" ; <Gen,Fem,Sg> => b+"оєї" ;
-    <P1,_,Pl,_,Pl> => "наші" ;
+    <Gen,Neuter,Sg> => b+"ого" ; <Gen,_,Pl> => b+"оїх" ;
-    <P2,_,Sg,Masc,Sg> => "твій" ;
+    <Loc,Masc,Sg> => b+"оєму" ; <Loc,Fem,Sg> => b+"оїй" ;
-    <P2,_,Sg,Fem,Sg> => "твоя" ;
+    <Loc,Neuter,Sg> => b+"оєму" ; <Loc,_,Pl> => b+"оїх" ;
-    <P2,_,Sg,Neuter,Sg> => "твоє" ;
+    <Instr,Masc,Sg> => b+"оїм" ; <Instr,Fem,Sg> => b+"оєю" ;
-    <P2,_,Sg,_,Pl> => "твої" ;
+    <Instr,Neuter,Sg> => b+"оїм" ; <Instr,_,Pl> => b+"оїми"
-    <P2,_,Pl,Masc,Sg> => "ваш" ;
+  } ;
-    <P2,_,Pl,Fem,Sg> => "ваша" ;
+
-    <P2,_,Pl,Neuter,Sg> => "ваше" ;
+oper possAsh : Str -> Case -> Gender -> Number -> Str =
-    <P2,_,Pl,_,Pl> => "ваші" ;
+  \b,c,g,n -> case <c,g,n> of {
-    <P3,Masc,Sg,_,_> => "його" ;
+    <Nom,Masc,Sg> => b+"аш" ; <Nom,Fem,Sg> => b+"аша" ;
-    <P3,Fem,Sg,_,_> => "її" ;
+    <Nom,Neuter,Sg> => b+"аше" ; <Nom,_,Pl> => b+"аші" ;
-    <P3,_,Pl,_,_> => "їхній" ;
+    <Acc,Masc,Sg> => b+"аш" ; <Acc,Fem,Sg> => b+"ашу" ;
-    _ => "свій"
+    <Acc,Neuter,Sg> => b+"аше" ; <Acc,_,Pl> => b+"аші" ;
+    <Dat,Masc,Sg> => b+"ашому" ; <Dat,Fem,Sg> => b+"ашій" ;
+    <Dat,Neuter,Sg> => b+"ашому" ; <Dat,_,Pl> => b+"ашим" ;
+    <Gen,Masc,Sg> => b+"ашого" ; <Gen,Fem,Sg> => b+"ашої" ;
+    <Gen,Neuter,Sg> => b+"ашого" ; <Gen,_,Pl> => b+"аших" ;
+    <Loc,Masc,Sg> => b+"ашому" ; <Loc,Fem,Sg> => b+"ашій" ;
+    <Loc,Neuter,Sg> => b+"ашому" ; <Loc,_,Pl> => b+"аших" ;
+    <Instr,Masc,Sg> => b+"ашим" ; <Instr,Fem,Sg> => b+"ашою" ;
+    <Instr,Neuter,Sg> => b+"ашим" ; <Instr,_,Pl> => b+"ашими"
+  } ;
+
+oper possTheir : Case -> Gender -> Number -> Str =
+  \c,g,n -> case <c,g,n> of {
+    <Nom,Masc,Sg> => "їхній" ; <Nom,Fem,Sg> => "їхня" ;
+    <Nom,Neuter,Sg> => "їхнє" ; <Nom,_,Pl> => "їхні" ;
+    <Acc,Masc,Sg> => "їхній" ; <Acc,Fem,Sg> => "їхню" ;
+    <Acc,Neuter,Sg> => "їхнє" ; <Acc,_,Pl> => "їхні" ;
+    <Dat,Masc,Sg> => "їхньому" ; <Dat,Fem,Sg> => "їхній" ;
+    <Dat,Neuter,Sg> => "їхньому" ; <Dat,_,Pl> => "їхнім" ;
+    <Gen,Masc,Sg> => "їхнього" ; <Gen,Fem,Sg> => "їхньої" ;
+    <Gen,Neuter,Sg> => "їхнього" ; <Gen,_,Pl> => "їхніх" ;
+    <Loc,Masc,Sg> => "їхньому" ; <Loc,Fem,Sg> => "їхній" ;
+    <Loc,Neuter,Sg> => "їхньому" ; <Loc,_,Pl> => "їхніх" ;
+    <Instr,Masc,Sg> => "їхнім" ; <Instr,Fem,Sg> => "їхньою" ;
+    <Instr,Neuter,Sg> => "їхнім" ; <Instr,_,Pl> => "їхніми"
   } ;
 
 }

src/ukrainian/StructuralUkr.gf

@@ -1,13 +1,22 @@
 concrete StructuralUkr of Structural = CatUkr ** open ResUkr, ParadigmsUkr in {
 lin
-  i_Pron = mkPron "я" "мене" "мені" "мене" "мені" "мною" Masc Sg P1 ;
+  i_Pron = mkPron "я" "мене" "мені" "мене" "мені" "мною"
-  youSg_Pron = mkPron "ти" "тeбе" "тобі" "мене" "тобі" "тобою" Masc Sg P2 ;  
+    (possIy "м") Masc Sg P1 ;
-  he_Pron = mkPron "він" "його" "йому" "його" "ньому" "ним" Masc Sg P3 ;  
+  youSg_Pron = mkPron "ти" "тебе" "тобі" "тебе" "тобі" "тобою"
-  she_Pron = mkPron "вона" "її" "їй" "її" "ній" "нею" Fem Sg P3 ;  
+    (possIy "тв") Masc Sg P2 ;
-  it_Pron = mkPron "воно" "його" "йому" "його" "ньому" "ним" Neuter Sg P3 ;  
+  he_Pron = mkPron "він" "його" "йому" "його" "ньому" "ним"
-  we_Pron = mkPron "ми" "нас" "нам" "нас" "наc" "нами" Masc Pl P1 ;
+    (\_,_,_ -> "його") Masc Sg P3 ;
-  youPl_Pron = mkPron "ви" "вас" "вам" "вас" "вас" "вами" Masc Pl P2 ;  
+  she_Pron = mkPron "вона" "її" "їй" "її" "ній" "нею"
-  youPol_Pron = mkPron "ви" "вас" "вам" "вас" "вас" "вами" Masc Pl P2 ;  
+    (\_,_,_ -> "її") Fem Sg P3 ;
-  they_Pron = mkPron "вони" "їх" "їм" "їх" "них" "ними" Masc Pl P3 ;
+  it_Pron = mkPron "воно" "його" "йому" "його" "ньому" "ним"
+    (\_,_,_ -> "його") Neuter Sg P3 ;
+  we_Pron = mkPron "ми" "нас" "нам" "нас" "наc" "нами"
+    (possAsh "н") Masc Pl P1 ;
+  youPl_Pron = mkPron "ви" "вас" "вам" "вас" "вас" "вами"
+    (possAsh "в") Masc Pl P2 ;
+  youPol_Pron = mkPron "ви" "вас" "вам" "вас" "вас" "вами"
+    (possAsh "в") Masc Pl P2 ;
+  they_Pron = mkPron "вони" "їх" "їм" "їх" "них" "ними"
+    possTheir Masc Pl P3 ;
   as_CAdv = {s="так само"; p="як"} ;
 }