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
@@ -49,7 +49,16 @@ concrete CatTur of Cat = CommonX - [CAdv,AdN] ** open ResTur, HarmonyTur, Prelud
    N  = Noun ;
    N2 = Noun ** {c : Prep} ;
    N3 = Noun ** {c1,c2 : Prep} ;
-    PN = Noun ;
+    GN, SN = {
+      s   : Case => Str ;
+      h   : Harmony
+    } ;
+    PN = {
+      s   : Case => Str ;
+      h   : Harmony ;
+      n   : Number
+    } ;
+

 linref
    V = \v -> v.s ! VInfinitive ;