perl 5.000perl-5.000

[editor's note: this commit combines approximate 4 months of furious
releases of Andy Dougherty and Larry Wall - see pod/perlhist.pod for
details.  Andy notes that;
 
Alas neither my "Irwin AccuTrack" nor my DC 600A quarter-inch cartridge 
backup tapes from that era seem to be readable anymore.  I guess 13 years 
exceeds the shelf life for that backup technology :-(.
]

1 files changed, 0 insertions, 42 deletions

diff --git a/protos b/protos
deleted file mode 100755
index ff399654c9..0000000000
--- a/protos
+++ /dev/null
@@ -1,42 +0,0 @@
-#!/usr/bin/perl
-
-$/ = "\n{\n";
-
-while (<>) {
-    chop; next unless chop($_) eq "{";
-    s/[^\0]*\n\n//;
-    $* = 1;
-    s/^#.*\n//g;
-    $* = 0;
-    tr/\n/ /;
-    s#\*/#\200#g;
-    s#/\*[^\200]*\200##g;
-    /\b\w+\(/ || next;
-    $funtype = $`;
-    $name = $&;
-    $_ = $';
-    /\)\s*/ || next;
-    $args = $`;
-    $types = $';
-    $args =~ tr/ \t//d;
-    @args = split(/,/,$args);
-    @types = split(/;\s*/, $types);
-    %type = ();
-    foreach $type (@types) {
-	$type =~ /.*\b(\w+)/;
-	$type{$1} = $type;
-    }
-    foreach $arg (@args) {
-	$arg = $type{$arg} || $arg;
-	$arg =~ s/register //;
-    }
-    $funtype =~ s/\* $/*/;
-    $funtype =~ s/^ *//;
-    chop $name;
-    if (@args) {
-	print $funtype, $name, " P((", join(', ', @args), "));\n";
-    }
-    else {
-	print $funtype, $name, " P((void));\n";
-    }
-}