Win32 pacifying from mjd.
[perl.git] / Porting / fixvars
1 #!/usr/local/bin/perl -w
2 use Data::Dumper;
3
4 my $targ = (@ARGV) ? join(' ',@ARGV) : 'miniperl' ;
5
6 my $work = 1;
7 while ($work)
8  {
9   open(PIPE,"make $targ 2>&1 |") || die "Cannot open pipe to make:$!";
10   my %fix;
11   while (<PIPE>)
12    {
13     if (/^(.*):(\d+):\s+\`(\w+)'\s+undeclared/ && -f $1 )
14      {
15       my ($file,$line,$var) = ($1,$2,$3);
16       $fix{$file} = [] unless exists $fix{$file}; 
17       push(@{$fix{$file}},[$line => $var]) unless ($var =~ /^PL_/ || $file =~ /\.h$/);
18      }
19     print;
20    }
21   close(PIPE);
22   warn "Make retured $?\n";
23   last unless $?;
24   my $changed = 0;
25   foreach my $file (keys %fix)
26    {          
27     my @ar = sort( { $a->[0] <=> $b->[0] } @{delete $fix{$file}});
28     my @miss;
29     my $fixed = 0;
30     unless (-w $file)
31      {
32       system("d4","edit",$file);
33      }             
34     @ARGV = ($file);
35     $. = 0;
36     local $^I = '.sav';
37     while (<>)
38      {
39       while (@ar && $. == $ar[0][0])
40        {
41         my ($line,$var) = @{shift(@ar)};
42         if (s/\b$var\b/PL_$var/)
43          {
44           warn "$file:$line: FIX $var\n"; 
45           $fixed++;
46           $changed++;
47          }
48         else
49          {
50           push(@miss,[$line,$var,$_]);
51          }
52        }
53       print;
54      }
55     unless ($fixed)
56      {
57       rename("$file$^I",$file);
58       if (@miss)
59        {
60         while (@miss)
61          {
62           my ($line,$var,$txt) = @{shift(@miss)};
63           warn "$file:$line:$var | $txt";
64          }
65        }
66      }    
67    }
68   last unless $changed;
69  }