diff options
| author | Fred Drake <fdrake@acm.org> | 1998-10-19 16:33:06 (GMT) |
|---|---|---|
| committer | Fred Drake <fdrake@acm.org> | 1998-10-19 16:33:06 (GMT) |
| commit | 649e8c1f7ffa6bf1597513aadf4965845b1a1b01 (patch) | |
| tree | e8140ce83b62669319cd7435171037a7584548c9 /Doc/perl | |
| parent | f61618c98ebdd1f67f9d4b144ccc60e03757ccf6 (diff) | |
| download | cpython-649e8c1f7ffa6bf1597513aadf4965845b1a1b01.zip cpython-649e8c1f7ffa6bf1597513aadf4965845b1a1b01.tar.gz cpython-649e8c1f7ffa6bf1597513aadf4965845b1a1b01.tar.bz2 | |
ArabictoRoman(): Removed, since it wasn't used anywhere.
Diffstat (limited to 'Doc/perl')
| -rw-r--r-- | Doc/perl/python.perl | 23 |
1 files changed, 0 insertions, 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 <donahue@cfassp48.harvard.edu>, - # fixed by Fred Drake <fdrake@acm.org>, - # 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. |