skip the compilation of InflectionCl for Present

This commit is contained in:
Krasimir Angelov
2026-09-07 16:10:44 +02:00
parent c97cbb530c
commit 0a197ec126
3 changed files with 30 additions and 1 deletions
+12
View File
@@ -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