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
@@ -0,0 +1,14 @@
+concrete ExtendAfr of Extend =
+  CatAfr ** ExtendFunctor
+  with
+    (Grammar = GrammarAfr) **
+
+  open
+    ResAfr in {
+
+lin GivenName, Surname = \n -> n ;
+lin FullName gn sn = {
+       s = \\c => gn.s ! NPNom ++ sn.s ! c ; 
+    } ;
+
+}