added GN & SN categories for constructing names

src/finnish/CatFin.gf

@@ -95,7 +95,7 @@ concrete CatFin of Cat = CommonX ** open ResFin, StemFin, Prelude in {
     N  = SNoun ;
     N2 = SNoun ** {c2 : Compl ; isPre : Bool ; postmod : Number => Str} ;
     N3 = SNoun ** {c2,c3 : Compl ; isPre,isPre2 : Bool} ;
-    PN = SPN ;
+    GN, SN, PN = SPN ;
 
   linref
     SSlash = \ss -> ss.s ++ ss.c2.s.p1  ;

src/finnish/DocumentationFinFunctor.gf

@@ -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) ;

src/finnish/ExtendFin.gf

@@ -240,4 +240,11 @@ lin CardCNCard card cn = {
 lin UttAccNP np = {s = P.addNegation np.isNeg ++ np.s ! NPAcc} ;
 lin AdjAsCN ap = {s = ap.s ! True ; postmod = \\_ => ap.p ; h = Back} ; ---- Harmony just a guess
 lin AdjAsNP ap = MassNP (AdjAsCN ap) ;
+
+lin GivenName, Surname = \n -> n ;
+lin FullName gn sn = {
+       s = \\c => gn.s ! Nom ++ sn.s ! c
+    } ;
+
+
 }