Subversion Repositories DevTools

Rev

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

Rev 3527 Rev 3890
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 3879... Line 3881...
3879 
    $path .= '/'. $file;
 3881 
    $path .= '/'. $file;
3880 
    $path =~ tr~/~/~s;
 3882 
    $path =~ tr~/~/~s;
3881 
    $BUILD_KNOWNFILES {$file} = $path
 3883 
    $BUILD_KNOWNFILES {$file} = $path
3882 
        unless ( defined($noadd) && $noadd);
 3884 
        unless ( defined($noadd) && $noadd);
3883 
    push @CLOBBERFILES, $path;
 3885 
    push @CLOBBERFILES, $path;
- 
 
 3886 
    ToolsetFile( $path )
- 
 
 3887 
        unless ($Clobber);
3884
3888 
 
3885 
    return $path;
 3889 
    return $path;
3886 
}
 3890 
}
3887 
 
 3891 
 
3888 
#-------------------------------------------------------------------------------
 3892 
#-------------------------------------------------------------------------------
3889 
# Function        : Usage
 3893 
# Function        : Usage