msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

remove obsolete code

Browse Source
This commit is contained in:
Krasimir Angelov
2026-09-21 17:18:18 +02:00
parent 93bc02834a
commit 1e6aa119fe
3 changed files with 14 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/telugu/DocumentationTel.gf
+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))
) ;
}
src/telugu/ParadigmsTel.gf
+3 -3
View File
@@ -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 = <>} ;
} ;
src/telugu/ResTel.gf
+2 -18
View File
@@ -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 ;