Remove some unused perl scripts

#!/usr/local/bin/perl

while (<>)

	{

	print

	last if (/^# DO NOT DELETE THIS LINE/);

	}

#!/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);

#!/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);

	}

#!/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++;

	}