added GN & SN categories for constructing names

2022-12-15 08:44:42 +01:00
parent d0e433cd46
commit 7085acacc9
55 changed files with 371 additions and 43 deletions
@@ -37,6 +37,18 @@ lin
    s2 = inflPN (\c -> pn.s ! c)
    } ;

+  InflectionGN = \pn -> {
+    t  = "s" ;
+    s1 = heading1 "Etunimi" ;
+    s2 = inflPN (\c -> pn.s ! c)
+    } ;
+
+  InflectionSN = \pn -> {
+    t  = "s" ;
+    s1 = heading1 "Sukunimi" ;
+    s2 = inflPN (\c -> pn.s ! c)
+    } ;
+
  InflectionA, InflectionA2 = \adj -> {
    t  = "a" ;
    s1 = heading1 (heading adjective_Category) ;