scripts/removeMSPragma.pl

   1 use strict;
   2
   3 my @dirs =
   4 (
   5         "3dsparse",
   6         "common",
   7         "coms",
   8         "dialogs",
   9         "engine",
  10         "GLEXT",
  11         "GLW",
  12         "landscape",
  13         "landscapedef",
  14         "client",
  15         "server",
  16         "actions",
  17         "cgext",
  18         "scorched",
  19         "sprites",
  20         "tankai",
  21         "target",
  22         "XML",
  23         "ships",
  24         "tankgraph",
  25         "tank",
  26         "boids",
  27         "placement",
  28         "sound",
  29         "weapons"
  30 );
  31
  32 my $dir;
  33 foreach $dir (@dirs)
  34 {
  35         opendir(IN, "../src/$dir") || die "ERROR: DIR \"$dir\"";
  36         my @files = grep { /\.h/ } readdir(IN);
  37         closedir(IN);
  38
  39         my $file;
  40         foreach $file (@files)
  41         {
  42                 open (INFILE, "../src/$dir/$file") || die "ERROR: File \"../$dir/$file\"";
  43                 my @filelines = <INFILE>;
  44                 close (INFILE);
  45
  46                 my $index = -1;
  47                 for (my $i=0; $i<=$#filelines; $i++)
  48                 {
  49                         if ($filelines[$i] =~ /pragma once/)
  50                         {
  51                                 $index = $i;
  52                         }
  53                 }
  54
  55                 if ($index != -1)
  56                 {
  57                         my $incline = "__INCLUDE_".$file."_INCLUDE__";
  58                         $incline =~ s/\.//g;
  59
  60                         print "$dir/$file\n";
  61
  62                         $filelines[$index] = "#if !defined($incline)\n#define $incline\n";
  63                         push @filelines, "\n#endif // $incline\n";
  64
  65                         open(OUTFILE, ">../src/$dir/$file") || die "ERROR: Out $file";
  66                         print OUTFILE @filelines;
  67                         close (OUTFILE);
  68                 }
  69         }
  70 }