skip the compilation of InflectionCl for Present

This commit is contained in:
Krasimir Angelov committed 2026-09-07 16:10:44 +02:00
1 parent c97cbb530c
commit 0a197ec126
3 files changed
+30 -1

No files matched your search

+13
View File
@@ -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)) ++