Remove some unused perl scripts
Reviewed-by: Viktor Dukhovni <viktor@openssl.org>
This commit is contained in:
Rich Salz
Rich Salz
parent
919ba00942
commit
0b0443af64
4 changed files with 0 additions and 204 deletions
|
|
@ -1,7 +0,0 @@
|
||||||
#!/usr/local/bin/perl
|
|
||||||
|
|
||||||
while (<>)
|
|
||||||
{
|
|
||||||
print
|
|
||||||
last if (/^# DO NOT DELETE THIS LINE/);
|
|
||||||
}
|
|
||||||
|
|
@ -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);
|
|
||||||
|
|
||||||
|
|
||||||
147
util/src-dep.pl
147
util/src-dep.pl
|
|
@ -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);
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
@ -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++;
|
|
||||||
}
|
|
||||||
|
|
||||||
Loading…
Reference in a new issue