added GN & SN categories for constructing names

src/german/CatGer.gf

@@ -100,6 +100,7 @@ concrete CatGer of Cat =
     N  = ResGer.Noun ;
     N2 = ResGer.Noun ** {c2 : Preposition} ;
     N3 = ResGer.Noun ** {c2,c3 : Preposition} ;
+    GN, SN = {s : Case => Str; g : Gender} ;
     PN = {s : Case => Str; g : Gender; n : Number} ;
 
 -- tense with possibility to choose conjunctive forms

src/german/ExtendGer.gf

@@ -140,5 +140,11 @@ lin
       (Grammar.DetCN (Grammar.DetQuant Grammar.IndefArt (Grammar.NumCard card)) cn).s ! NPC c ;
     n = Pl
     } ;
-  
+
+lin GivenName, Surname = \n -> n ** { n = Sg } ;
+lin FullName gn sn = {
+       s = \\c => gn.s ! Nom ++ sn.s ! c ;
+       g = gn.g ;
+       n = Sg
+    } ;
 }