Remove some unused perl scripts

Reviewed-by: Viktor Dukhovni <viktor@openssl.org>

diff --git a/util/deleof.pl b/util/deleof.pl
deleted file mode 100755 (executable)
index 155acd8..0000000
--- a/util/deleof.pl
+++ /dev/null
@@ -1,7 +0,0 @@
-#!/usr/local/bin/perl
-
-while (<>)
-       {
-       print
-       last if (/^# DO NOT DELETE THIS LINE/);
-       }

diff --git a/util/err-ins.pl b/util/err-ins.pl
deleted file mode 100755 (executable)
index 31b70df..0000000
--- a/util/err-ins.pl
+++ /dev/null
@@ -1,33 +0,0 @@
-#!/usr/local/bin/perl
-#
-# tack error codes onto the end of a file
-#
-
-open(ERR,$ARGV[0]) || die "unable to open error file '$ARGV[0]':$!\n";
-@err=<ERR>;
-close(ERR);
-
-open(IN,$ARGV[1]) || die "unable to open header file '$ARGV[1]':$!\n";
-
-@out="";
-while (<IN>)
-       {
-       push(@out,$_);
-       last if /BEGIN ERROR CODES/;
-       }
-close(IN);
-
-open(OUT,">$ARGV[1]") || die "unable to open header file '$ARGV[1]':$1\n";
-print OUT @out;
-print OUT @err;
-print OUT <<"EOF";
- 
-#ifdef  __cplusplus
-}
-#endif
-#endif
-
-EOF
-close(OUT);
-
-

diff --git a/util/src-dep.pl b/util/src-dep.pl
deleted file mode 100755 (executable)
index ad997e4..0000000
--- a/util/src-dep.pl
+++ /dev/null
@@ -1,147 +0,0 @@
-#!/usr/local/bin/perl
-
-# we make up an array of
-# $file{function_name}=filename;
-# $unres{filename}="func1 func2 ...."
-$debug=1;
-#$nm_func="parse_linux";
-$nm_func="parse_solaris";
-
-foreach (@ARGV)
-       {
-       &$nm_func($_);
-       }
-
-foreach $file (sort keys %unres)
-       {
-       @a=split(/\s+/,$unres{$file});
-       %ff=();
-       foreach $func (@a)
-               {
-               $f=$file{$func};
-               $ff{$f}=1 if $f ne "";
-               }
-
-       foreach $a (keys %ff)
-               { $we_need{$file}.="$a "; }
-       }
-
-foreach $file (sort keys %we_need)
-       {
-#      print " $file $we_need{$file}\n";
-       foreach $bit (split(/\s+/,$we_need{$file}))
-               { push(@final,&walk($bit)); }
-
-       foreach (@final) { $fin{$_}=1; }
-       @final="";
-       foreach (sort keys %fin)
-               { push(@final,$_); }
-
-       print "$file: @final\n";
-       }
-
-sub walk
-       {
-       local($f)=@_;
-       local(@a,%seen,@ret,$r);
-
-       @ret="";
-       $f =~ s/^\s+//;
-       $f =~ s/\s+$//;
-       return "" if ($f =~ "^\s*$");
-
-       return(split(/\s/,$done{$f})) if defined ($done{$f});
-
-       return if $in{$f} > 0;
-       $in{$f}++;
-       push(@ret,$f);
-       foreach $r (split(/\s+/,$we_need{$f}))
-               {
-               push(@ret,&walk($r));
-               }
-       $in{$f}--;
-       $done{$f}=join(" ",@ret);
-       return(@ret);
-       }
-
-sub parse_linux
-       {
-       local($name)=@_;
-
-       open(IN,"nm $name|") || die "unable to run 'nn $name':$!\n";
-       while (<IN>)
-               {
-               chop;
-               next if /^\s*$/;
-               if (/^[^[](.*):$/)
-                       {
-                       $file=$1;
-                       $file="$1.c" if /\[(.*).o\]/;
-                       print STDERR "$file\n";
-                       $we_need{$file}=" ";
-                       next;
-                       }
-
-               @a=split(/\s*\|\s*/);
-               next unless $#a == 7;
-               next unless $a[4] eq "GLOB";
-               if ($a[6] eq "UNDEF")
-                       {
-                       $unres{$file}.=$a[7]." ";
-                       }
-               else
-                       {
-                       if ($file{$a[7]} ne "")
-                               {
-                               print STDERR "duplicate definition of $a[7],\n$file{$a[7]} and $file \n";
-                               }
-                       else
-                               {
-                               $file{$a[7]}=$file;
-                               }
-                       }
-               }
-       close(IN);
-       }
-
-sub parse_solaris
-       {
-       local($name)=@_;
-
-       open(IN,"nm $name|") || die "unable to run 'nn $name':$!\n";
-       while (<IN>)
-               {
-               chop;
-               next if /^\s*$/;
-               if (/^(\S+):$/)
-                       {
-                       $file=$1;
-                       #$file="$1.c" if $file =~ /^(.*).o$/;
-                       print STDERR "$file\n";
-                       $we_need{$file}=" ";
-                       next;
-                       }
-               @a=split(/\s*\|\s*/);
-               next unless $#a == 7;
-               next unless $a[4] eq "GLOB";
-               if ($a[6] eq "UNDEF")
-                       {
-                       $unres{$file}.=$a[7]." ";
-                       print STDERR "$file needs $a[7]\n" if $debug;
-                       }
-               else
-                       {
-                       if ($file{$a[7]} ne "")
-                               {
-                               print STDERR "duplicate definition of $a[7],\n$file{$a[7]} and $file \n";
-                               }
-                       else
-                               {
-                               $file{$a[7]}=$file;
-                               print STDERR "$file has $a[7]\n" if $debug;
-                               }
-                       }
-               }
-       close(IN);
-       }
-

diff --git a/util/tab_num.pl b/util/tab_num.pl
deleted file mode 100755 (executable)
index a81ed0e..0000000
--- a/util/tab_num.pl
+++ /dev/null
@@ -1,17 +0,0 @@
-#!/usr/local/bin/perl
-
-$num=1;
-$width=40;
-
-while (<>)
-       {
-       chop;
-
-       $i=length($_);
-
-       $n=$width-$i;
-       $i=int(($n+7)/8);
-       print $_.("\t" x $i).$num."\n";
-       $num++;
-       }
-