added InflectionCl in some languages

This commit is contained in:
Krasimir Angelov committed 2026-08-29 18:25:38 +02:00
1 parent c7ddbd2fc6
commit 5587c14083
5 files changed
+232 -1

No files matched your search

+27
View File
@@ -111,6 +111,21 @@ lin
s3= ""
} ;
InflectionCl = \cl -> {
t = "cl" ;
s1 = heading1 "Clause" ;
s2 = frameTable (
tr (intagAttr "th" "colspan=\"3\"" "Simple tenses" ++
intagAttr "th" "colspan=\"3\"" "Perfect tenses") ++
tr (th "tense" ++ th "declarative" ++ th "interrogative" ++
th "tense" ++ th "declarative" ++ th "interrogative") ++
inflClauseTense "present" "present perfect" Pres cl ++
inflClauseTense "past" "past perfect" Past cl ++
inflClauseTense "future" "future perfect" Fut cl ++
inflClauseTense "conditional" "conditional perfect" Cond cl
)
} ;
InflectionV v = {
t = "v" ;
s1= heading1 "Verb" ++
@@ -227,6 +242,18 @@ lin
} ;
oper
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) ++
td (cl.s ! tense ! Simul ! CPos ! OQuest) ++
intagAttr "th" "rowspan=\"2\"" perfect ++
td (cl.s ! tense ! Anter ! CPos ! ODir False) ++
td (cl.s ! tense ! Anter ! CPos ! OQuest)) ++
tr (td (cl.s ! tense ! Simul ! CNeg True ! ODir False) ++
td (cl.s ! tense ! Simul ! CNeg True ! OQuest) ++
td (cl.s ! tense ! Anter ! CNeg True ! ODir False) ++
td (cl.s ! tense ! Anter ! CNeg True ! OQuest)) ;
inflVerb : Verb -> Str = \verb ->
frameTable (
tr (th "infinitive" ++ td (verb.s ! VInf)) ++