mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-09-03 09:56:59 -06:00
Merge branch 'master' of github.com:GrammaticalFramework/gf-rgl
This commit is contained in:
@@ -122,6 +122,9 @@ lin
|
||||
inflClauseTense (heading past_Parameter)
|
||||
(heading past_Parameter ++ " " ++ heading perfect_Parameter)
|
||||
RPast cl ++
|
||||
inflClauseTense (heading past_Parameter)
|
||||
(heading past_Parameter ++ " " ++ heading perfect_Parameter)
|
||||
RPasse cl ++
|
||||
inflClauseTense (heading future_Parameter)
|
||||
(heading future_Parameter ++ " " ++ heading perfect_Parameter)
|
||||
RFut cl ++
|
||||
|
||||
@@ -112,6 +112,9 @@ lin
|
||||
inflClauseTense (heading past_Parameter)
|
||||
(heading past_Parameter ++ " " ++ heading perfect_Parameter)
|
||||
RPast cl ++
|
||||
inflClauseTense (heading past_Parameter)
|
||||
(heading past_Parameter ++ " " ++ heading perfect_Parameter)
|
||||
RPasse cl ++
|
||||
inflClauseTense (heading future_Parameter)
|
||||
(heading future_Parameter ++ " " ++ heading perfect_Parameter)
|
||||
RFut cl ++
|
||||
|
||||
@@ -112,6 +112,9 @@ lin
|
||||
inflClauseTense (heading past_Parameter)
|
||||
(heading past_Parameter ++ " " ++ heading perfect_Parameter)
|
||||
RPast cl ++
|
||||
inflClauseTense (heading past_Parameter)
|
||||
(heading past_Parameter ++ " " ++ heading perfect_Parameter)
|
||||
RPasse cl ++
|
||||
inflClauseTense (heading future_Parameter)
|
||||
(heading future_Parameter ++ " " ++ heading perfect_Parameter)
|
||||
RFut cl ++
|
||||
|
||||
@@ -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 ->
|
||||
|
||||
@@ -120,6 +120,9 @@ lin
|
||||
inflClauseTense (heading past_Parameter)
|
||||
(heading past_Parameter ++ " " ++ heading perfect_Parameter)
|
||||
RPast cl ++
|
||||
inflClauseTense (heading past_Parameter)
|
||||
(heading past_Parameter ++ " " ++ heading perfect_Parameter)
|
||||
RPasse cl ++
|
||||
inflClauseTense (heading future_Parameter)
|
||||
(heading future_Parameter ++ " " ++ heading perfect_Parameter)
|
||||
RFut cl ++
|
||||
|
||||
Reference in New Issue
Block a user