Add relative clauses

2026-05-22 01:22:51 -06:00 · 2008-02-27 13:29:05 +00:00
parent 0c8a84512e
commit 3fccfd4bef
6 changed files with 63 additions and 1 deletions
--- a/lib/resource/bulgarian/ResBul.gf
+++ b/lib/resource/bulgarian/ResBul.gf
@@ -162,9 +162,16 @@ resource ResBul = ParamX ** open Prelude in {
                 NFVocative => NFVocative
               } ;

+    numNForm : NForm -> Number
+      = \nf -> case nf of {
+                 NF n spec  => n ;
+                 NFSgDefNom => Sg ;
+                 NFPlCount  => Pl ;
+                 NFVocative => Sg
+               } ;
+      
  oper
 -- For $Verb$.
-
    Verb : Type = {
      s  : VForm => Str ;
      vtype : VType
@@ -545,4 +552,12 @@ resource ResBul = ParamX ** open Prelude in {
                 QIndir => wh.s2 ++ cls ! Main
               }
      } ;
+
+    whichRP : GenNum => Str
+            = table {
+                GSg Masc => "êîéòî" ;
+                GSg Fem  => "êîÿòî" ;
+                GSg Neut => "êîåòî" ;
+                GPl      => "êîèòî"
+              } ;
 }