From fac2e5cf13dd9d15ffd8bb227d9d6490073687e1 Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Mon, 23 Jun 2008 17:30:23 +0000
Subject: [PATCH] russin: implement -to pronouns in terms of the base ones.

---
 lib/resource-1.4/russian/MorphoRus.gf | 42 ++++++++-------------------
 1 file changed, 12 insertions(+), 30 deletions(-)

diff --git a/lib/resource-1.4/russian/MorphoRus.gf b/lib/resource-1.4/russian/MorphoRus.gf
index bffa54b67..7156c6458 100644
--- a/lib/resource-1.4/russian/MorphoRus.gf
+++ b/lib/resource-1.4/russian/MorphoRus.gf
@@ -270,36 +270,6 @@ oper pronKto: Pronoun =
     pron = False
   } ;
 
-oper pronKtoTo: Pronoun =
-  { s = table {
-    PF Nom _ _  => "кто-то"  ;
-    PF Gen _ _ => "кого-то" ;
-    PF Dat _  _ => "кому-то" ;
-    PF Acc _  _ => "кого-то" ;
-    PF Inst _ _ => "кем-то" ;
-    PF (Prepos _) _ _ => "ком-то"
-    } ;
-    g = PGen  Masc;
-    n = Sg ;
-    p = P3 ;
-    pron = False
-  } ;
-
-oper pronChtoTo: Pronoun =
-  { s = table {
-    PF Nom _ _  => "что-то"  ;
-    PF Gen _ _ => "чего-то" ;
-    PF Dat _  _ => "чему-то" ;
-    PF Acc _  _ => "что-то" ;
-    PF Inst _ _ => "чем-то" ;
-    PF (Prepos _) _ _ => "чём-то"
-    } ;
-    g = PGen  Masc;
-    n = Sg ;
-    p = P3 ;
-    pron = False
-  } ;
-
 oper pronChto: Pronoun =
   { s = table {
     PF Nom _ _  => "что"  ;
@@ -315,6 +285,18 @@ oper pronChto: Pronoun =
     pron = False
   } ;
 
+oper pron_add_to : Pronoun -> Pronoun = \p -> 
+  { s = \\pf => (p.s!pf) + "-то" ;
+    g = p.g ;
+    n = p.n ;
+    p = p.p ;
+    pron = p.pron
+  } ;
+
+oper pronKtoTo : Pronoun = pron_add_to pronKto ;
+
+oper pronChtoTo: Pronoun = pron_add_to pronChto ;
+
 oper pronEti: Pronoun =
   { s = table {
     PF Nom _ _  => "эти"  ;