added GN & SN categories for constructing names

2026-07-02 03:58:34 -06:00 · 2022-12-15 08:44:42 +01:00
parent d0e433cd46
commit 7085acacc9
55 changed files with 371 additions and 43 deletions
@@ -92,6 +92,30 @@ lin
    s3 = ""
    } ;

+  InflectionGN = \pn -> {
+    t = "същ.с.л." ;
+    s1= heading1 ("Собствено Име"++
+                  case pn.g of {
+                    Masc => "(м.р.)" ;
+                    Fem  => "(ж.р.)" ;
+                    Neut => "(ср.р.)"
+                  }) ;
+    s2 = pn.s ;
+    s3 = ""
+    } ;
+
+  InflectionSN = \pn -> {
+    t = "същ.с.ф." ;
+    s1= heading1 ("Фамилно Име"++
+                  case pn.g of {
+                    Masc => "(м.р.)" ;
+                    Fem  => "(ж.р.)" ;
+                    Neut => "(ср.р.)"
+                  }) ;
+    s2 = pn.s ;
+    s3 = ""
+    } ;
+
  InflectionA, InflectionA2 = \a -> {
    t = "пр" ;
    s1= heading1 ("Прилагателно") ;