diff options
author | Rich Salz <rsalz@akamai.com> | 2015-12-17 22:20:01 -0500 |
---|---|---|
committer | Rich Salz <rsalz@openssl.org> | 2016-01-06 11:26:36 -0500 |
commit | 0b0443af6462724acf7b1ff2c624b124113f11a4 (patch) | |
tree | 8295091033c0458ecd3d74d99721b93e376cc11c /util | |
parent | 919ba009429b3617e975933f37a23be996a33b8d (diff) |
Remove some unused perl scripts
Reviewed-by: Viktor Dukhovni <viktor@openssl.org>
Diffstat (limited to 'util')
-rwxr-xr-x | util/deleof.pl | 7 | ||||
-rwxr-xr-x | util/err-ins.pl | 33 | ||||
-rwxr-xr-x | util/src-dep.pl | 147 | ||||
-rwxr-xr-x | util/tab_num.pl | 17 |
4 files changed, 0 insertions, 204 deletions
diff --git a/util/deleof.pl b/util/deleof.pl deleted file mode 100755 index 155acd88ff..0000000000 --- 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 index 31b70df8d0..0000000000 --- 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 index ad997e4746..0000000000 --- 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 index a81ed0edc2..0000000000 --- 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++; - } - |