Subversion Repositories DevTools

Rev

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

Rev 1429 Rev 2074
Line 10226... Line 10226...
10226 
        #
 10226 
        #
10227 
        #   The body of the copy
 10227 
        #   The body of the copy
10228 
        #
 10228 
        #
10229 
        MakePadded( 4, "$dest:" );
 10229 
        MakePadded( 4, "$dest:" );
10230 
        MakePrint "\t$fname\n";
 10230 
        MakePrint "\t$fname\n";
10231 
        MakePrint $codecmd->( $dest, $fname, $entry->{'dir'}, $fmode );
 10231 
        MakePrint $codecmd->( $dest, $fname, $fmode );
10232 
        MakeNewLine();
 10232 
        MakeNewLine();
10233 
 
 10233 
 
10234 
 
 10234 
 
10235 
        #
 10235 
        #
10236 
        #   Unwind conditionals
 10236 
        #   Unwind conditionals
Line 10319... Line 10319...
10319 
    return "\$(call RmFiles,$list)";
 10319 
    return "\$(call RmFiles,$list)";
10320 
}
 10320 
}
10321 
 
 10321 
 
10322 
sub InstallCmd
 10322 
sub InstallCmd
10323 
{
 10323 
{
10324 
    my( $dest, $file, $path, $fmode ) = @_;
 10324 
    my( $dest, $file, $fmode ) = @_;
10325 
 
 10325 
 
10326 
    $path =~ s~/$~~;                        # remove trailing "/"
 - 
 
10327 
    $fmode = "-w"                           # default, read-only
 10326 
    $fmode = "-w"                           # default, read-only
10328 
        if ( !defined( $fmode ) || $fmode eq "" );
 10327 
        if ( !defined( $fmode ) || $fmode eq "" );
10329 
 
 10328 
 
10330 
    return "\t\$(call InstallFile,$dest,$file,$path,$fmode)";
 10329 
    return "\t\$(call InstallFile,$dest,$file,$fmode)";
10331 
}
 10330 
}
10332 
 
 10331 
 
10333 
sub UninstallCmd
 10332 
sub UninstallCmd
10334 
{
 10333 
{
10335 
    my( $file ) = @_;
 10334 
    my( $file ) = @_;
Line 10337... Line 10336...
10337 
    return "\t\$(call UninstallFile,$file)";
 10336 
    return "\t\$(call UninstallFile,$file)";
10338 
}
 10337 
}
10339 
 
 10338 
 
10340 
sub PackageCmd
 10339 
sub PackageCmd
10341 
{
 10340 
{
10342 
    my( $dest, $file, $path, $fmode ) = @_;
 10341 
    my( $dest, $file, $fmode ) = @_;
10343 
 
 10342 
 
10344 
    $path =~ s~/$~~;                        # remove trailing "/"
 - 
 
10345 
    $fmode = "-w"                           # default, read-only
 10343 
    $fmode = "-w"                           # default, read-only
10346 
        if ( !defined( $fmode ) || $fmode eq "" );
 10344 
        if ( !defined( $fmode ) || $fmode eq "" );
10347 
 
 10345 
 
10348 
    return "\t\$(call PackageFile,$dest,$file,$path,$fmode)";
 10346 
    return "\t\$(call PackageFile,$dest,$file,$fmode)";
10349 
}
 10347 
}
10350 
 
 10348 
 
10351 
sub UnpackageCmd
 10349 
sub UnpackageCmd
10352 
{
 10350 
{
10353 
    my( $file ) = @_;
 10351 
    my( $file ) = @_;