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
--- a/src/catalan/ExtendCat.gf
+++ b/src/catalan/ExtendCat.gf
@@ -15,5 +15,10 @@ concrete ExtendCat of Extend = CatCat ** ExtendRomanceFunctor--  -
  ParadigmsCat in {
    -- put your own definitions here

+lin GivenName, Surname = \n -> n ;
+lin FullName gn sn = {
+       s = gn.s ++ sn.s ; 
+       g = gn.g
+    } ;

 } ;