better inflection table for clauses

This commit is contained in:
Krasimir Angelov
2026-09-01 11:09:19 +02:00
parent fda7e1595d
commit a412e8d85e
+2 -3
View File
@@ -177,11 +177,10 @@ oper
{-
-} --# notpresent
clauseTense : Str -> ResRus.Tense -> Cl -> Str = \label,tense,cl ->
tr (th (label ++ " (полож.)") ++
tr (intagAttr "th" "rowspan=\"2\"" label ++
td (clauseForm tense Pos cl) ++
td (clauseForm tense Pos cl)) ++
tr (th (label ++ " (отриц.)") ++
td (clauseForm tense Neg cl) ++
tr (td (clauseForm tense Neg cl) ++
td (clauseForm tense Neg cl)) ;
clauseForm : ResRus.Tense -> Polarity -> Cl -> Str = \tense,pol,cl ->