From 95a2ebe5697f3b86664b1b01922ec57cac374ed3 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Tue, 25 Feb 2014 07:37:03 +0000
Subject: [PATCH] commented out Documentation definitions in notpresent mode.
 It was not enough to do this in the import list in Lang, since the import
 list parsing seems to be done without preprocessing.

---
 lib/src/abstract/Lang.gf                   |  2 +-
 lib/src/finnish/DocumentationFinFunctor.gf | 10 ++++++++--
 lib/src/finnish/LangFin.gf                 |  2 +-
 lib/src/french/DocumentationFreFunctor.gf  |  6 ++++++
 lib/src/swedish/DocumentationSwe.gf        |  8 ++++++++
 lib/src/swedish/DocumentationSweFunctor.gf |  7 +++++++
 6 files changed, 31 insertions(+), 4 deletions(-)

diff --git a/lib/src/abstract/Lang.gf b/lib/src/abstract/Lang.gf
index 44840f728..e80bfd915 100644
--- a/lib/src/abstract/Lang.gf
+++ b/lib/src/abstract/Lang.gf
@@ -9,7 +9,7 @@ abstract Lang =
   Grammar, 
   Lexicon
   ,Construction  --- could be compiled here, but not in concretes, as they call Syntax and Grammar
-  ,Documentation
+  ,Documentation  --# notpresent
   ,Markup - [stringMark]
   ** {
   flags startcat=Phr ;
diff --git a/lib/src/finnish/DocumentationFinFunctor.gf b/lib/src/finnish/DocumentationFinFunctor.gf
index a20f9f845..cdceaba53 100644
--- a/lib/src/finnish/DocumentationFinFunctor.gf
+++ b/lib/src/finnish/DocumentationFinFunctor.gf
@@ -12,12 +12,14 @@ incomplete concrete DocumentationFinFunctor of Documentation = CatFin ** open
   HTML
 in {
 
-
 lincat
   Inflection = {t : Str; s1,s2 : Str} ;
   Document = {s : Str} ;
   Tag = {s : Str} ;
 
+{-
+-} --# notpresent
+
 oper
   heading : N -> Str = \n -> (nounHeading n).s ;
 
@@ -129,7 +131,8 @@ lin
 
 oper 
   verbExample : CatFin.Cl -> Str = \cl -> (S.mkUtt cl).s ;
-
+{-
+-} --# notpresent
   inflVerb : CatFin.V -> Str = \verb0 ->
      let 
        verb = sverb2verbSep verb0 ;
@@ -290,4 +293,7 @@ lin
   MkDocument b i e = ss (i.s1 ++ paragraph b.s ++ i.s2 ++ paragraph e.s) ;  -- explanation appended in a new paragraph
   MkTag i = ss (i.t) ;
 
+{- --# notpresent
+-} 
+
 }
diff --git a/lib/src/finnish/LangFin.gf b/lib/src/finnish/LangFin.gf
index 525a82201..8343c07d1 100644
--- a/lib/src/finnish/LangFin.gf
+++ b/lib/src/finnish/LangFin.gf
@@ -4,7 +4,7 @@ concrete LangFin of Lang =
   GrammarFin, 
   LexiconFin
   , ConstructionFin
-  , DocumentationFin
+  , DocumentationFin --# notpresent
   ** {
 
 flags startcat = Phr ; unlexer = text ; lexer = finnish ;
diff --git a/lib/src/french/DocumentationFreFunctor.gf b/lib/src/french/DocumentationFreFunctor.gf
index 7585ecd70..f8ca038d8 100644
--- a/lib/src/french/DocumentationFreFunctor.gf
+++ b/lib/src/french/DocumentationFreFunctor.gf
@@ -18,6 +18,9 @@ lincat
   Document = {s : Str} ;
   Tag = {s : Str} ;
   
+{-
+-} --# notpresent
+
 oper
    heading : N -> Str = \n -> (nounHeading n).s ;
    
@@ -209,4 +212,7 @@ oper
           tr (th (heading present_Parameter) ++ td (vfin VGer))
           ) ; 
 
+{- --# notpresent
+-} 
+
 }
diff --git a/lib/src/swedish/DocumentationSwe.gf b/lib/src/swedish/DocumentationSwe.gf
index e93f85ee5..88d3ee8dc 100644
--- a/lib/src/swedish/DocumentationSwe.gf
+++ b/lib/src/swedish/DocumentationSwe.gf
@@ -9,6 +9,10 @@ lincat
   Document = {s : Str} ;
   Tag = {s : Str} ;
 
+{-
+-} --# notpresent
+
+
 lin
   InflectionN, InflectionN2, InflectionN3 = \noun -> {
     t  = "s" ;
@@ -230,4 +234,8 @@ oper
     ) ;
     
   pp : Str -> Str = \s -> "&lt;"+s+"&gt;";
+
+{- --# notpresent
+-}
+
 }
diff --git a/lib/src/swedish/DocumentationSweFunctor.gf b/lib/src/swedish/DocumentationSweFunctor.gf
index 7ccabc09b..a1f16a3d4 100644
--- a/lib/src/swedish/DocumentationSweFunctor.gf
+++ b/lib/src/swedish/DocumentationSweFunctor.gf
@@ -18,6 +18,10 @@ in {
 lincat
   Inflection = {s : Str} ;
   Document = {s : Str} ;
+
+{-
+-} --# notpresent
+
   
 oper
    tdf : Str -> Str = \s -> td (intag "i" s) ;
@@ -121,4 +125,7 @@ oper
        ))
      } ;
 
+{- --# notpresent
+-} 
+
 }