From 0a197ec126c9fd81aec0a89e61e9ffdb1cc63732 Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Mon, 7 Sep 2026 16:10:44 +0200
Subject: [PATCH] skip the compilation of InflectionCl for Present

---
 src/bulgarian/DocumentationBul.gf     |  6 +++++-
 src/english/DocumentationEng.gf       | 13 +++++++++++++
 src/german/DocumentationGerFunctor.gf | 12 ++++++++++++
 3 files changed, 30 insertions(+), 1 deletion(-)

diff --git a/src/bulgarian/DocumentationBul.gf b/src/bulgarian/DocumentationBul.gf
index e8c3c57b..a618e4b5 100644
--- a/src/bulgarian/DocumentationBul.gf
+++ b/src/bulgarian/DocumentationBul.gf
@@ -1,4 +1,3 @@
---# -path=.:../abstract:../common
 concrete DocumentationBul of Documentation = CatBul ** open 
   ResBul, Prelude, ParamX, HTML in {
 flags coding=utf8 ;
@@ -181,6 +180,8 @@ lin
     s3= ""
     } ;
 
+{-
+-} --# notpresent
   InflectionCl = \cl -> {
     t = "изр" ;
     s1 = heading1 ("Изречение") ;
@@ -286,6 +287,9 @@ lin
     s3 = ""
   } ;
 
+{-  --# notpresent
+-}
+
   InflectionV v = {
     t = "гл" ;
     s1= heading1 ("Глагол") ++
diff --git a/src/english/DocumentationEng.gf b/src/english/DocumentationEng.gf
index aa315965..1515b3a1 100644
--- a/src/english/DocumentationEng.gf
+++ b/src/english/DocumentationEng.gf
@@ -111,6 +111,9 @@ lin
     s3= ""
     } ;
 
+{-
+-}  --# notpresent
+
   InflectionCl = \cl -> {
     t  = "cl" ;
     s1 = heading1 "Clause" ;
@@ -126,6 +129,9 @@ lin
          )
     } ;
 
+{-  --# notpresent
+-}
+
   InflectionV v = {
     t = "v" ;
     s1= heading1 "Verb" ++
@@ -242,6 +248,10 @@ lin
     } ;
 
 oper
+
+{-
+-}  --# notpresent
+
   inflClauseTense : Str -> Str -> ResEng.Tense -> Cl -> Str = \simple,perfect,tense,cl ->
     tr (intagAttr "th" "rowspan=\"2\"" simple ++
         td (cl.s ! tense ! Simul ! CPos       ! ODir False) ++
@@ -254,6 +264,9 @@ oper
         td (cl.s ! tense ! Anter ! CNeg True  ! ODir False) ++
         td (cl.s ! tense ! Anter ! CNeg True  ! OQuest)) ;
 
+{-  --# notpresent
+-}
+
   inflVerb : Verb -> Str = \verb ->
     frameTable (
       tr (th "infinitive"    ++ td (verb.s ! VInf)) ++
diff --git a/src/german/DocumentationGerFunctor.gf b/src/german/DocumentationGerFunctor.gf
index 7be8ec1b..b7de0139 100644
--- a/src/german/DocumentationGerFunctor.gf
+++ b/src/german/DocumentationGerFunctor.gf
@@ -134,6 +134,9 @@ lin
     s2 = paragraph (S.mkAdv (lin Prep p) (S.mkNP S.a_Det L.computer_N)).s
     } ;
 
+{-
+-}  --# notpresent
+
   InflectionCl = \cl -> {
     t  = "satz" ;
     s1 = heading1 "Satz" ;
@@ -157,6 +160,9 @@ lin
          )
     } ;
 
+{-  --# notpresent
+-}
+
   InflectionV v = {
     t  = "v" ;
     s1 = heading1 (heading verb_Category) ++  
@@ -237,6 +243,9 @@ lin
   MkTag i = ss i.t ;
 
 oper
+{-
+-}  --# notpresent
+
   inflClauseTense : Str -> Str -> ResGer.Tense -> Cl -> Str = \simple,perfect,tense,cl ->
     tr (intagAttr "th" "rowspan=2" simple ++
         td (cl.s ! MIndic ! tense ! Simul ! Pos ! Main) ++
@@ -249,6 +258,9 @@ oper
         td (cl.s ! MIndic ! tense ! Anter ! Neg ! Main) ++
         td (cl.s ! MIndic ! tense ! Anter ! Neg ! Inv)) ;
 
+{-  --# notpresent
+-}
+
   verbExample : CatGer.Cl -> Str = \cl ->
      (S.mkUtt cl).s 
      ++ ";" ++ (S.mkUtt (S.mkS S.anteriorAnt cl)).s  --# notpresent