Subversion Repositories DevTools

Rev

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

Rev 331 Rev 333
Line 88... Line 88...
88 
our $BUILDPHASE             = 0;                # In Build Phase
 88 
our $BUILDPHASE             = 0;                # In Build Phase
89 
our @CLOBBERDIRS            = ();               # Directories to clobber
 89 
our @CLOBBERDIRS            = ();               # Directories to clobber
90 
our @CLOBBERFILES           = ();               # Files to clobber
 90 
our @CLOBBERFILES           = ();               # Files to clobber
91 
our %BUILD_KNOWNFILES       = ();               # Files that will be known
 91 
our %BUILD_KNOWNFILES       = ();               # Files that will be known
92 
 
 92 
 
- 
 
 93 
our $Makelib                = "";
93 
our $GBE_CORE;                                  # Root of JATS
 94 
our $GBE_CORE;                                  # Root of JATS
94 
our $InterfaceVersion;                          # Interface directory format version
 95 
our $InterfaceVersion;                          # Interface directory format version
95 
our $ScmInterface;                              # Interface directory
 96 
our $ScmInterface;                              # Interface directory
96 
 
 97 
 
97 
 
 98 
 
Line 140... Line 141...
140 
#.. Parse command line
 141 
#.. Parse command line
141 
#
 142 
#
142 
    $ScmBuildSrc = $0;                          # Name of the build file
 143 
    $ScmBuildSrc = $0;                          # Name of the build file
143 
    $Cwd = shift @ARGV;
 144 
    $Cwd = shift @ARGV;
144 
    $Cwd =~ tr~\\/~/~s;;                        # Need / in path, Remove doubles
 145 
    $Cwd =~ tr~\\/~/~s;;                        # Need / in path, Remove doubles
- 
 
 146 
    $Makelib = shift @ARGV;                     # Only for legacy build.pl files
145 
 
 147 
 
146 
    Verbose ("Command Line: @ARGV");
 148 
    Verbose ("Command Line: @ARGV");
147 
    my $result = GetOptions( "help|h:+"      => \$opt_help,
 149 
    my $result = GetOptions( "help|h:+"      => \$opt_help,
148 
                             "man:3"         => \$opt_help,
 150 
                             "man:3"         => \$opt_help,
149 
                             "debug:+"       => \$::ScmDebug,
 151 
                             "debug:+"       => \$::ScmDebug,
Line 158... Line 160...
158 
                             );
 160 
                             );
159 
    Usage() if ( $opt_help || !$result );
 161 
    Usage() if ( $opt_help || !$result );
160 
 
 162 
 
161 
    Debug( "Host:          ", $ScmHost );
 163 
    Debug( "Host:          ", $ScmHost );
162 
    Debug( "Cwd:           ", $Cwd );
 164 
    Debug( "Cwd:           ", $Cwd );
- 
 
 165 
    Debug( "Makelib:       ", $Makelib );
163 
    Debug( "BuildFile:     ", $ScmBuildSrc );
 166 
    Debug( "BuildFile:     ", $ScmBuildSrc );
164 
    Debug( "Debug:         ", $::ScmDebug );
 167 
    Debug( "Debug:         ", $::ScmDebug );
165 
    Debug( "Verbose:       ", $::ScmVerbose );
 168 
    Debug( "Verbose:       ", $::ScmVerbose );
166 
    Debug( "Expert:        ", $Expert );
 169 
    Debug( "Expert:        ", $Expert );
167 
    Debug( "All:           ", $All );
 170 
    Debug( "All:           ", $All );