further work on tutorial

doc/tutorial/Makefile

@@ -0,0 +1,6 @@
+html:
+	txt2tags -thtml --toc gf-tutorial2.txt
+tex:
+	txt2tags -ttex --toc gf-tutorial2.txt
+	pdflatex gf-tutorial2.tex
+	pdflatex gf-tutorial2.tex 

lib/resource-1.0/finnish/CatFin.gf

@@ -1,4 +1,4 @@
-concrete CatFin of Cat = CommonX ** open ResFin, Prelude in {
+concrete CatFin of Cat = CommonX - [Adv] ** open ResFin, Prelude in {
 
   flags optimize=all_subs ;
 
@@ -70,24 +70,28 @@ concrete CatFin of Cat = CommonX ** open ResFin, Prelude in {
     Conj = {s : Str ; n : Number} ;
     DConj = {s1,s2 : Str ; n : Number} ;
     Subj = {s : Str} ;
-    Prep = Compl ;
 
 -- Open lexical classes, e.g. Lexicon
 
-    V, VS, VQ = Verb1 ; -- = {s : VForm => Str ; sc : Case} ;
+    V = ResFin.V ;
-    V2, VA = Verb1 ** {c2 : Compl} ;
+    V2 = ResFin.V2 ;
-    V2A = Verb1 ** {c2, c3 : Compl} ;
+    VA = ResFin.VA ;
-    VV = Verb1 ; ---- infinitive form
+    VS = ResFin.VS ;
-    V3 = Verb1 ** {c2, c3 : Compl} ;
+    VQ = ResFin.VQ ;
+    V2A = ResFin.V2A ;
+    VV = ResFin.VV ;
+    V3 = ResFin.V3 ;
 
-    A  = {s : Degree => AForm => Str} ;
+    A  = ResFin.A ;
-    A2 = {s : Degree => AForm => Str ; c2 : Compl} ;
+    A2 = ResFin.A2 ;
 
-    N  = {s : NForm => Str} ;
+    N  = ResFin.N ;
-    N2 = {s : NForm => Str} ** {c2 : Compl} ;
+    N2 = ResFin.N2 ;
-    N3 = {s : NForm => Str} ** {c2,c3 : Compl} ;
+    N3 = ResFin.N3 ;
-    PN = {s : Case  => Str} ;
+    PN = ResFin.PN ;
+
+    Adv = ResFin.Adv ;
+    Prep = ResFin.Prep ;
 
-oper Verb1 = {s : VForm => Str ; sc : NPForm} ;
 
 }

lib/resource-1.0/finnish/GrammarFin.gf

@@ -11,7 +11,7 @@ concrete GrammarFin of Grammar =
   RelativeFin,
   ConjunctionFin,
   PhraseFin,
-  TextX,
+  TextX - [Adv],
   IdiomFin,
   StructuralFin
   ** {

lib/resource-1.0/finnish/ParadigmsFin.gf

@@ -25,8 +25,7 @@
 resource ParadigmsFin = open 
   (Predef=Predef), 
   Prelude, 
-  MorphoFin,
+  MorphoFin
-  CatFin
   in {
 
   flags optimize=noexpand ;

lib/resource-1.0/finnish/ResFin.gf

@@ -569,4 +569,26 @@ oper
     a = agrP3 Sg ;  -- does not matter (--- at least in Slash)
     isPron = False  -- has no special accusative
     } ;
+
+-- To export
+
+    N : Type =  {s : NForm => Str} ;
+    N2 = {s : NForm => Str} ** {c2 : Compl} ;
+    N3 = {s : NForm => Str} ** {c2,c3 : Compl} ;
+    PN = {s : Case  => Str} ;
+
+    A  = {s : Degree => AForm => Str} ;
+    A2 = {s : Degree => AForm => Str ; c2 : Compl} ;
+
+    V, VS, VQ = Verb1 ; -- = {s : VForm => Str ; sc : Case} ;
+    V2, VA = Verb1 ** {c2 : Compl} ;
+    V2A = Verb1 ** {c2, c3 : Compl} ;
+    VV = Verb1 ; ---- infinitive form
+    V3 = Verb1 ** {c2, c3 : Compl} ;
+
+    Verb1 = {s : VForm => Str ; sc : NPForm} ;  
+
+    Prep = Compl ;
+    Adv = {s : Str} ;
+
 }