From 1b702098f2b449671eead0830b1d5acafbc837ca 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.

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

diff --git a/src/abstract/Lang.gf b/src/abstract/Lang.gf
index 44840f72..e80bfd91 100644
--- a/src/abstract/Lang.gf
+++ b/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/src/finnish/DocumentationFinFunctor.gf b/src/finnish/DocumentationFinFunctor.gf
index a20f9f84..cdceaba5 100644
--- a/src/finnish/DocumentationFinFunctor.gf
+++ b/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/src/finnish/LangFin.gf b/src/finnish/LangFin.gf
index 525a8220..8343c07d 100644
--- a/src/finnish/LangFin.gf
+++ b/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/src/french/DocumentationFreFunctor.gf b/src/french/DocumentationFreFunctor.gf
index 7585ecd7..f8ca038d 100644
--- a/src/french/DocumentationFreFunctor.gf
+++ b/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/src/swedish/DocumentationSwe.gf b/src/swedish/DocumentationSwe.gf
index e93f85ee..88d3ee8d 100644
--- a/src/swedish/DocumentationSwe.gf
+++ b/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/src/swedish/DocumentationSweFunctor.gf b/src/swedish/DocumentationSweFunctor.gf
index 7ccabc09..a1f16a3d 100644
--- a/src/swedish/DocumentationSweFunctor.gf
+++ b/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
+-} 
+
 }