Remove unused ssl utils

This code is the reason perl has a name as a write only language.

ok deraadt miod

1 files changed, 0 insertions, 147 deletions

diff --git a/src/lib/libcrypto/util/src-dep.pl b/src/lib/libcrypto/util/src-dep.pl
deleted file mode 100644
index ad997e4746..0000000000
--- a/src/lib/libcrypto/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);
-        }
-