Subversion Repositories DevTools

Rev

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

Rev 3559 Rev 3967
Line 87... Line 87...
87 
our %BUILD_KNOWNFILES       = ();               # Files that will be known
 87 
our %BUILD_KNOWNFILES       = ();               # Files that will be known
88 
 
 88 
 
89 
our $Makelib                = "";
 89 
our $Makelib                = "";
90 
our $GBE_CORE;                                  # Root of JATS
 90 
our $GBE_CORE;                                  # Root of JATS
91 
our $InterfaceVersion;                          # Interface directory format version
 91 
our $InterfaceVersion;                          # Interface directory format version
- 
 
 92 
our $ScmRoot;                                   # Package Root
92 
our $ScmInterface;                              # Interface directory
 93 
our $ScmInterface;                              # Interface directory
93 
our $ScmBuildFilter;                            # Build Filter when build was created
 94 
our $ScmBuildFilter;                            # Build Filter when build was created
94 
 
 95 
 
95 
 
 96 
 
96 
my  $DeleteDPACKAGE         = 0;                # Must clobber DPACKAGE
 97 
my  $DeleteDPACKAGE         = 0;                # Must clobber DPACKAGE
Line 139... Line 140...
139 
#.. Parse command line
 140 
#.. Parse command line
140 
#
 141 
#
141 
    $ScmBuildSrc = $0;                          # Name of the build file
 142 
    $ScmBuildSrc = $0;                          # Name of the build file
142 
    $Cwd = shift @ARGV;
 143 
    $Cwd = shift @ARGV;
143 
    $Cwd =~ tr~\\/~/~s;;                        # Need / in path, Remove doubles
 144 
    $Cwd =~ tr~\\/~/~s;;                        # Need / in path, Remove doubles
- 
 
 145 
    $::ScmRoot = StripDrive($Cwd);
144 
    $Makelib = shift @ARGV;                     # Only for legacy build.pl files
 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,
Line 174... Line 176...
174 
    Debug( "ForceBuild :   ", $ForceBuild );
 176 
    Debug( "ForceBuild :   ", $ForceBuild );
175 
    Debug( "$IgnorePkgs :  ", $IgnorePkgs );
 177 
    Debug( "$IgnorePkgs :  ", $IgnorePkgs );
176 
 
 178 
 
177 
#.. Command
 179 
#.. Command
178 
#
 180 
#
- 
 
 181 
 
179 
    $CmdSwitch = lc shift @ARGV;
 182 
    $CmdSwitch = (lc shift @ARGV) if @ARGV;
180 
    Debug( "CmdSwitch:     ", $CmdSwitch );
 183 
    Debug( "CmdSwitch:     ", $CmdSwitch );
181 
 
 184 
 
182 
    if ( $CmdSwitch )
 185 
    if ( $CmdSwitch )
183 
    {
 186 
    {
184 
        if ( $CmdSwitch eq "interface" ) {
 187 
        if ( $CmdSwitch eq "interface" ) {
Line 3879... Line 3882...
3879 
    $path .= '/'. $file;
 3882 
    $path .= '/'. $file;
3880 
    $path =~ tr~/~/~s;
 3883 
    $path =~ tr~/~/~s;
3881 
    $BUILD_KNOWNFILES {$file} = $path
 3884 
    $BUILD_KNOWNFILES {$file} = $path
3882 
        unless ( defined($noadd) && $noadd);
 3885 
        unless ( defined($noadd) && $noadd);
3883 
    push @CLOBBERFILES, $path;
 3886 
    push @CLOBBERFILES, $path;
- 
 
 3887 
    ToolsetFile( $path )
- 
 
 3888 
        unless ($Clobber);
3884
3889 
 
3885 
    return $path;
 3890 
    return $path;
3886 
}
 3891 
}
3887 
 
 3892 
 
3888 
#-------------------------------------------------------------------------------
 3893 
#-------------------------------------------------------------------------------
3889 
# Function        : Usage
 3894 
# Function        : Usage