added top-level punctuation to tagged Finnish

lib/src/finnish/tagged/LargeFin.gf

@@ -17,6 +17,14 @@ concrete LargeFin of LargeFinAbs =
   IdiomFin,
   TenseX,
   ExtraFin,
-  WordsFin
-  ;
+  WordsFin ** open TagFin, StemFin in {
 
+lincat
+  Top = {s : Str} ;
+  Punct = {s : Str} ;
+lin
+  PhrPunctTop phr pu = {s = phr.s ++ pu.s} ;
+  PhrTop phr = phr ;
+  
+  fullstopPunct = {s = tagPOS "PUNCT" "."} ;
+}

lib/src/finnish/tagged/LargeFinAbs.gf

@@ -15,6 +15,18 @@ abstract LargeFinAbs =
   Structural,
   Tense,
   ExtraFinAbs,
-  WordsFinAbs
-  ;
+  WordsFinAbs ** {
+
+flags startcat = Top ;
+
+cat
+  Top ;
+  Punct ;
+fun
+  PhrPunctTop : Phr -> Punct -> Top ;
+  PhrTop : Phr -> Top ;
+  fullstopPunct : Punct ;
+  
+}
+
 

lib/src/finnish/tagged/StemFin.gf

@@ -7,7 +7,7 @@ flags coding = utf8 ;
 oper
 -- other classes not treated below are POS tagged when the grammar is used with Omorfi
 
-  tagPOS : Str -> Str -> Str = \p,s -> tagWord p s ;
+  tagPOS : Str -> Str -> Str = \p,s -> tagWord ("+" + p) s ;
 
 oper
   SNForm : Type = Predef.Ints 0 ; --- not really needed