better inflection table for clauses
This commit is contained in:
1 parent
fda7e1595d
commit
a412e8d85e
1 file changed
+2
-3
@@ -177,11 +177,10 @@ oper
|
|||||||
{-
|
{-
|
||||||
-} --# notpresent
|
-} --# notpresent
|
||||||
clauseTense : Str -> ResRus.Tense -> Cl -> Str = \label,tense,cl ->
|
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) ++
|
||||||
td (clauseForm tense Pos cl)) ++
|
td (clauseForm tense Pos cl)) ++
|
||||||
tr (th (label ++ " (отриц.)") ++
|
tr (td (clauseForm tense Neg cl) ++
|
||||||
td (clauseForm tense Neg cl) ++
|
|
||||||
td (clauseForm tense Neg cl)) ;
|
td (clauseForm tense Neg cl)) ;
|
||||||
|
|
||||||
clauseForm : ResRus.Tense -> Polarity -> Cl -> Str = \tense,pol,cl ->
|
clauseForm : ResRus.Tense -> Polarity -> Cl -> Str = \tense,pol,cl ->
|
||||||
|
|||||||
Reference in new issue
Block a user