vs_postclean.pl

   1 #! /usr/bin/perl
   2 eval '(exit $?0)' && eval 'exec perl -w -S $0 ${1+"$@"}'
   3     & eval 'exec perl -w -S $0 $argv:q'
   4     if 0;
   5
   6 # ******************************************************************
   7 #      Author: Chad Elliott
   8 #        Date: 7/10/2008
   9 # Description: Visual Studio doesn't support a post clean build step,
  10 #              so this script will do it.
  11 # ******************************************************************
  12
  13 # ******************************************************************
  14 # Pragma Section
  15 # ******************************************************************
  16
  17 use strict;
  18 use FileHandle;
  19 use File::Basename;
  20 use Cwd;
  21
  22 # ******************************************************************
  23 # Data Section
  24 # ******************************************************************
  25
  26 my $version = '1.0';
  27
  28 # ******************************************************************
  29 # Subroutine Section
  30 # ******************************************************************
  31
  32 sub read_proj {
  33   my($cfg, $file) = @_;
  34   my $fh = new FileHandle();
  35   my $cmd;
  36
  37   if (open($fh, $file)) {
  38     my $cfg_ok;
  39     my $next_name;
  40     my $next_command;
  41     while(<$fh>) {
  42       ## Locate the start of a Configuration section
  43       if (/<Configuration\s*$/) {
  44         $next_name = 1;
  45       }
  46       ## Next, find the configuration name
  47       elsif ($next_name && /Name="(.+)"/) {
  48         $cfg_ok = ($1 eq $cfg);
  49         $next_name = undef;
  50       }
  51       ## Next, find the post clean event
  52       elsif ($cfg_ok && /Name="VCPostCleanEventTool"/) {
  53         $next_command = 1;
  54       }
  55       ## And finally, get the postclean command line
  56       elsif ($next_command && /CommandLine="(.+)"/) {
  57         $cmd = $1;
  58         last;
  59       }
  60     }
  61     close($fh);
  62   }
  63
  64   ## Convert frequently used XML sequences to plain characters.
  65   $cmd =~ s/&amp;/&/g;
  66   $cmd =~ s/&quot;/\"/g;
  67   $cmd =~ s/&gt;/>/g;
  68   $cmd =~ s/&lt;/</g;
  69
  70   ## Return the command line (undef if there was no postclean)
  71   return $cmd;
  72 }
  73
  74 sub clean_proj {
  75   my($cfg, $file) = @_;
  76
  77   ## Read the postclean command from the project
  78   my $cmd = read_proj($cfg, $file);
  79
  80   ## Move to the directory of the project and run the command
  81   if (defined $cmd) {
  82     my $current_dir = getcwd();
  83     if (chdir(dirname($file))) {
  84       system($cmd);
  85       chdir($current_dir);
  86     }
  87     else {
  88       ## We'll only warn about files that we can't deal with.
  89       print "WARNING: Unable to postclean $file\n";
  90     }
  91   }
  92 }
  93
  94 sub clean_sln {
  95   my($cfg, $file) = @_;
  96   my $fh = new FileHandle();
  97
  98   ## For a solution, just read in and clean each project file we find.
  99   if (open($fh, $file)) {
 100     while (<$fh>) {
 101       if (/^Project\([^)]+\)\s*=\s*"[^\"]+",\s*"([^\"]+)"/) {
 102         clean_proj($cfg, $1);
 103       }
 104     }
 105     close($fh);
 106   }
 107 }
 108
 109 # ******************************************************************
 110 # Main Section
 111 # ******************************************************************
 112
 113 if ($#ARGV == -1) {
 114   print "PostClean v$version\n",
 115         "Usage: ", basename($0), " [CFG=<configuration>] <project or solution files>\n\n",
 116         "Executes the MPC generated VCPostCleanEventTool commands in a project.\n",
 117         "These events are ignored by VisualStudio and must be handled by an outside\n",
 118         "tool (i.e., this script).\n";
 119   exit(0);
 120 }
 121
 122 ## Determine the project or solution configuration (defaulting to the
 123 ## default created by MPC).
 124 my $cfg = 'Debug|Win32';
 125 if ($ARGV[0] =~ /^CFG=(.+)/) {
 126   $cfg = $1;
 127   shift(@ARGV);
 128 }
 129
 130 foreach my $file (@ARGV) {
 131   if ($file =~ /\.sln$/) {
 132     clean_sln($cfg, $file);
 133   }
 134   else {
 135     ## It's not a solution file, we'll assume it's a project
 136     clean_proj($cfg, $file);
 137   }
 138 }