From 649e8c1f7ffa6bf1597513aadf4965845b1a1b01 Mon Sep 17 00:00:00 2001 From: Fred Drake Date: Mon, 19 Oct 1998 16:33:06 +0000 Subject: ArabictoRoman(): Removed, since it wasn't used anywhere. --- Doc/perl/python.perl | 23 ----------------------- 1 file changed, 23 deletions(-) diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl index 9eaf36c..bffd46f 100644 --- a/Doc/perl/python.perl +++ b/Doc/perl/python.perl @@ -32,29 +32,6 @@ sub swallow_newline{ s/[\n]?//o; } -sub ArabictoRoman { - # Written by Robert Donohue , - # fixed by Fred Drake , - # kept around in case it becomes useful. - my $a = @_; - my($b,@c,$i); - my(@D0,@D1,@D2); - - @D0 = ("", "I", "II", "III", "IV", "V", "VI", "VII", "VIII", "IX"); - @D1 = ("", "X", "XX", "XXX", "XL", "L", "LX", "LXX", "LXXX", "XC"); - @D2 = ("", "C", "CC", "CCC", "CD", "D", "DC", "DCC", "DCCC", "CM"); - - $b = $a; - $i = 0; - while($b > 0) { - $c[$i] = ($b % 10); - $b -= ($b % 10); - $b /= 10; - $i++; - } - return $D2[$c[2]] . $D1[$c[1]] . $D0[$c[0]]; -} - # This is a fairly simple hack; it supports \let when it is used to create # (or redefine) a macro to exactly be some other macro: \let\newname=\oldname. -- cgit v0.12