remove obsolete code

This commit is contained in:
Krasimir Angelov committed 2026-09-21 17:18:18 +02:00
1 parent 93bc02834a
commit 1e6aa119fe
3 files changed
+14 -33

No files matched your search

+9 -12
View File
@@ -107,13 +107,16 @@ concrete DocumentationTel of Documentation = CatTel ** open
tr (th "Request" ++ td (verb.s ! VImp Pl Pos)) ++
tr (th "Future request" ++ td (verb.s ! VReqFut))
) ++
heading2 "Imperfect" ++ genderNumberTable verb VImpf ++
heading2 "Perfect" ++ genderNumberTable verb VPerf ++
heading2 "Subjunctive" ++ personTable verb VSubj ++
heading2 "Past" ++
heading3 "Masculine" ++ personTable verb (VPast Masc) ++
heading3 "Feminine" ++ personTable verb (VPast Fem) ++
heading3 "Neuter" ++ personTable verb (VPast Neutr) ++
heading2 "Subjunctive" ++
personTable verb VSubj ++
heading2 "Future" ++
heading3 "Masculine" ++ futureTable verb Masc ++
heading3 "Feminine" ++ futureTable verb Fem ++
heading3 "Neuter" ++ futureTable verb Neutr ;
heading3 "Masculine" ++ personTable verb (VFuture Masc) ++
heading3 "Feminine" ++ personTable verb (VFuture Fem) ++
heading3 "Neuter" ++ personTable verb (VFuture Neutr) ;
genderNumberTable : Verb -> (Gender -> Number -> VForm) -> Str = \verb,form ->
frameTable (
@@ -130,10 +133,4 @@ concrete DocumentationTel of Documentation = CatTel ** open
tr (th "Pl" ++ td (verb.s ! form Pl P1) ++ td (verb.s ! form Pl P2) ++ td (verb.s ! form Pl P3))
) ;
futureTable : Verb -> Gender -> Str = \verb,gender ->
frameTable (
tr (th "" ++ th "P1" ++ th "P2" ++ th "P3") ++
tr (th "Sg" ++ td (verb.s ! VFuture gender Sg P1) ++ td (verb.s ! VFuture gender Sg P2) ++ td (verb.s ! VFuture gender Sg P3)) ++
tr (th "Pl" ++ td (verb.s ! VFuture gender Pl P1) ++ td (verb.s ! VFuture gender Pl P2) ++ td (verb.s ! VFuture gender Pl P3))
) ;
}