#!/usr/bin/perl

$debug = 0;

my %varname;
my $varnum = 0;
my %subname;
my $subnum;

my $sub = 0;

$infile = $ARGV[0];

open(IN, "<$infile");
@prog = <IN>;
close IN;

open(TIDY, "|perltidy --mangle -st");

foreach $line (@prog)
{
   @token = split (/[^A-Za-z0-9_\$\@\%\\]+|\\./, "$line");
   foreach $tok (@token)
   {
      if ("$tok" eq "sub")
      {
         $sub = 1;
      }
      elsif ($sub)
      {
         $subnum++;
         $sub = 0;
         if ($subname{$tok} eq "")
         {
            $subname{$tok} =~ s/[a-z0-9]*/s_$subnum/;
         }
      }
   }
}

foreach $line (@prog)
{
   if ($debug)
   {
      print "$line";
   }

   # "$first$last" comes out as one token, so split them
   $line =~
     s/(\".*)(\$[A-Za-z0-9_\-]*)(\$[A-Za-z0-9_\-]*)(.*\")/\1\2\".\"\3\4/g;
   @token = split (/[^A-Za-z0-9_\$\@\%\\\#]+|\\./, "$line");
   foreach $tok (@token)
   {
      if ($debug)
      {
         print "$tok:";
      }
      if ($tok =~ m/[\$\@\%\#][a-z][a-z0-9]*/)
      {
         $oldname = "$tok";

         $oldname =~ s/[\$\@\%\#]*//;
         if ($varname{$oldname} eq "")
         {
            $varname{$oldname} =~ s/[a-z0-9]*/v_$varnum/;
            $varnum++;
         }
         $line =~ s/([\$\%\@]#?)$oldname([^a-z0-9A-Z])/\1$varname{$oldname}\2/g;
      }
   }
   while (($oldname, $newname) = each %subname)
   {
      $line =~ s/$oldname([ \(\;])/$newname\1/g;
      $line =~ s/sub *$oldname([^a-zA-Z])/sub $newname\1/g;
   }

   $line =~ s/^\s*//g;
   unless (($line =~ m/^$/) || ($line =~ m/^#[^\!\-]/))
   {
      $outline++;
      if ($debug)
      {
         print "\n$line\n\n";
      }
      else
      {
         print TIDY "$line";
      }
   }
   if ($line =~ m/[\$\@\%]\{[^v]/)
   {
      print STDERR
        "Warning: bracketed variable not changed line $outline:\n$line";
   }
}
print "\n\n";

close TIDY;