From 1e6aa119fe1dd7404c649788a0716491af764ebd Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Mon, 21 Sep 2026 17:18:18 +0200
Subject: [PATCH] remove obsolete code

---
 src/telugu/DocumentationTel.gf | 21 +++++++++------------
 src/telugu/ParadigmsTel.gf     |  6 +++---
 src/telugu/ResTel.gf           | 20 ++------------------
 3 files changed, 14 insertions(+), 33 deletions(-)

diff --git a/src/telugu/DocumentationTel.gf b/src/telugu/DocumentationTel.gf
index c455db0b..8f7eedf7 100644
--- a/src/telugu/DocumentationTel.gf
+++ b/src/telugu/DocumentationTel.gf
@@ -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))
-        ) ;
 }
diff --git a/src/telugu/ParadigmsTel.gf b/src/telugu/ParadigmsTel.gf
index 0853cfd0..89df401e 100644
--- a/src/telugu/ParadigmsTel.gf
+++ b/src/telugu/ParadigmsTel.gf
@@ -67,9 +67,9 @@ oper
   mkV = overload {
     mkV : Str -> V
       = \s -> regVerb s ** {lock_V = <>} ;
-    mkV : (x1,_,_,_,_,_,_,_,_,_,_,_,_,_,x15 : Str) -> V
-      = \inf,stem,ims,imp,ifs,ifp,pms,pmp,pfs,pfp,ss1,ss2,sp2,sp3,r ->
-           mkVerb inf stem ims imp ifs ifp pms pmp pfs pfp ss1 ss2 sp2 sp3 r **
+    mkV : (x1,_,_,_,_,_,x7 : Str) -> V
+      = \inf,stem,ss1,ss2,sp2,sp3,r ->
+           mkVerb inf stem ss1 ss2 sp2 sp3 r **
              {lock_V = <>} ;
     } ;
 
diff --git a/src/telugu/ResTel.gf b/src/telugu/ResTel.gf
index 54f6157f..581772fe 100644
--- a/src/telugu/ResTel.gf
+++ b/src/telugu/ResTel.gf
@@ -75,8 +75,6 @@ resource ResTel = ParamX ** open Prelude in {
      | VRelativePresent
      | VPastPart
      | VHortative
-     | VImpf Gender Number
-     | VPerf Gender Number
      | VSubj Number Person
      | VAbs
      | VImp Number Polarity
@@ -86,25 +84,13 @@ resource ResTel = ParamX ** open Prelude in {
   oper
     Verb = {s, passive : VForm => Str} ;
 
-    mkVerb : (x1,_,_,_,_,_,_,_,_,_,_,_,_,_,x15 : Str) -> Verb =
-      \inf,stem,ims,imp,ifs,ifp,pms,pmp,pfs,pfp,ss1,ss2,sp2,sp3,r -> {
+    mkVerb : (x1,_,_,_,_,_,x7 : Str) -> Verb =
+      \inf,stem,ss1,ss2,sp2,sp3,r -> {
         s =
         let ga : Number -> Gender -> Str = \_,_ -> []
         in table {
           VInf => inf ;
           VStem => stem ;
-          VImpf Masc Sg => ims ;
-          VImpf Masc Pl => imp ;
-          VImpf Fem  Sg => ifs ;
-          VImpf Fem  Pl => ifp ;
-          VImpf Neutr Sg => ifs ;
-          VImpf Neutr Pl => ifp ;
-          VPerf Masc Sg => pms ;
-          VPerf Masc Pl => pmp ;
-          VPerf Fem  Sg => pfs ;
-          VPerf Fem  Pl => pfp ;
-          VPerf Neutr Sg => pfs ;
-          VPerf Neutr Pl => pfp ;
           VSubj Sg   P1 => ss1 ;
           VSubj Sg   _  => ss2 ;
           VSubj Pl   P2 => sp2 ;
@@ -150,8 +136,6 @@ resource ResTel = ParamX ** open Prelude in {
         VRelativePresent => relativePresent verb ;
         VPastPart => pastStem verb + "ిన" ;
         VHortative => root + "దాం" ;
-        VImpf g n => nonPastStem verb + "ున్న" ;
-        VPerf g n => pastStem verb ;
         VSubj n p => nonPastStem verb + finiteEnding (Ag Masc n p) ;
         VAbs => pastStem verb + "ి" ;
         VImp Sg Pos => verb ;