Subversion Repositories gelsvn

Rev

Rev 68 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 68 Rev 71
Line 3... Line 3...
3 
    if 0;
 3 
    if 0;
4 
 
 4 
 
5 
# ******************************************************************
 5 
# ******************************************************************
6 
#      Author: Chad Elliott
 6 
#      Author: Chad Elliott
7 
#        Date: 4/8/2004
 7 
#        Date: 4/8/2004
8 
#         $Id: combine_dsw.pl 68 2005-08-24 13:26:10Z bj $
 8 
#         $Id: combine_dsw.pl 71 2005-08-25 08:41:49Z bj $
9 
# Description: Combined multiple dsw's into a single dsw
 9 
# Description: Combined multiple dsw's into a single dsw
10 
# ******************************************************************
 10 
# ******************************************************************
11 
 
 11 
 
12 
# ******************************************************************
 12 
# ******************************************************************
13 
# Pragma Section
 13 
# Pragma Section
Line 19... Line 19...
19 
 
 19 
 
20 
# ******************************************************************
 20 
# ******************************************************************
21 
# Data Section
 21 
# Data Section
22 
# ******************************************************************
 22 
# ******************************************************************
23 
 
 23 
 
24 
my($version) = '$Id: combine_dsw.pl 68 2005-08-24 13:26:10Z bj $';
 24 
my($version) = '$Id: combine_dsw.pl 71 2005-08-25 08:41:49Z bj $';
25 
$version =~ s/.*\s+(\d+[\.\d]+)\s+.*/$1/;
 25 
$version =~ s/.*\s+(\d+[\.\d]+)\s+.*/$1/;
26 
 
 26 
 
27 
# ******************************************************************
 27 
# ******************************************************************
28 
# Subroutine Section
 28 
# Subroutine Section
29 
# ******************************************************************
 29 
# ******************************************************************
Line 36... Line 36...
36 
  print STDERR "Combine DSW v$version\n",
 36 
  print STDERR "Combine DSW v$version\n",
37 
               "Usage: ", basename($0),
 37 
               "Usage: ", basename($0),
38 
               " [-u] <output file> <input files...>\n\n",
 38 
               " [-u] <output file> <input files...>\n\n",
39 
               "-u  Each input file will be removed after successful ",
 39 
               "-u  Each input file will be removed after successful ",
40 
               "combination\n\n",
 40 
               "combination\n\n",
41 
               "Combined multiple dsw's into a single dsw.  You can use ",
 41 
               "Combine multiple dsw's into a single dsw.  You can use ",
42 
               "MPC to generate\n",
 42 
               "MPC to generate\n",
43 
               "dynamic projects and then generate static projects using ",
 43 
               "dynamic projects and then generate static projects using ",
44 
               "the -static,\n",
 44 
               "the -static,\n",
45 
               "-name_modifier and -apply_project options together.  You ",
 45 
               "-name_modifier and -apply_project options together.  You ",
46 
               "can then run this\n",
 46 
               "can then run this\n",
Line 57... Line 57...
57 
my(@input)  = ();
 57 
my(@input)  = ();
58 
 
 58 
 
59 
for(my $i = 0; $i <= $#ARGV; $i++) {
 59 
for(my $i = 0; $i <= $#ARGV; $i++) {
60 
  my($arg) = $ARGV[$i];
 60 
  my($arg) = $ARGV[$i];
61 
  if ($arg =~ /^-/) {
 61 
  if ($arg =~ /^-/) {
62 
    if ($arg eq "-u") {
 62 
    if ($arg eq '-u') {
63 
      $unlink = 1;
 63 
      $unlink = 1;
64 
    }
 64 
    }
65 
    else {
 65 
    else {
66 
      usageAndExit("Unknown option: $arg");
 66 
      usageAndExit("Unknown option: $arg");
67 
    }
 67 
    }