Subversion Repositories DevTools

Rev

Rev 7447 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7447 Rev 7452
Line 94... Line 94...
94 
#
 94 
#
95 
my @stopped = ();                               # Stopped entries
 95 
my @stopped = ();                               # Stopped entries
96 
my @build_order = ();                           # Build Ordered list of entries
 96 
my @build_order = ();                           # Build Ordered list of entries
97 
my %extern_deps;                                # Hash of external dependencies
 97 
my %extern_deps;                                # Hash of external dependencies
98 
my %packages;                                   # Hash of packages
 98 
my %packages;                                   # Hash of packages
99 
my $currentPkgTag;                              # Tag of the current package - if any
99 
my $currentPkgTag;                              # Tag of the current package - if any
100 
my $scanDepth;                                  # Depth for build file scan
 100 
my $scanDepth;                                  # Depth for build file scan
101 
my $maxDname = 0;                               # Pretty display
 101 
my $maxDname = 0;                               # Pretty display
102 
 
 102 
 
103 
#
 103 
#
104 
#   Known files
 104 
#   Known files
Line 627... Line 627...
627 
    #
 627 
    #
628 
    #   Process all packages in the sandbox
 628 
    #   Process all packages in the sandbox
629 
    #
 629 
    #
630 
    foreach my $linkFile ( glob "$GBE_DPKG_SBOX/*/*.lnk")
 630 
    foreach my $linkFile ( glob "$GBE_DPKG_SBOX/*/*.lnk")
631 
    {
 631 
    {
632 
        my $pkg = getPackageLink( TagFileRead($linkFile) );
 632 
        my $pkg = getPackageLink( $linkFile );
633 
        unless ( -d $pkg )
 633 
        unless ( -d $pkg )
634 
        {
 634 
        {
635 
            if ($opt_delete)
 635 
            if ($opt_delete)
636 
            {
 636 
            {
637 
                Message ("Delete: $linkFile");
 637 
                Message ("Delete: $linkFile");
Line 810... Line 810...
810 
    my ($fe) = @_;
 810 
    my ($fe) = @_;
811 
 
 811 
 
812 
    #
 812 
    #
813 
    #   Determine the packages 'interface' directory
 813 
    #   Determine the packages 'interface' directory
814 
    #
 814 
    #
815 
    my $ifaceDir = catdir($GBE_SANDBOX, 'sandbox_dpkg_archive', $fe->{name}, 'sandbox' . ($opt_exact ? $fe->{version} : $fe->{prj}) . '.int');
 815 
    my $ifaceDir = catdir($GBE_SANDBOX, 'sandbox_dpkg_archive', $fe->{name}, 'sandbox.' . ($opt_exact ? $fe->{version} : $fe->{prj}) . '.int');
816 
    return unless -f $ifaceDir;
816 
    return unless -f $ifaceDir;
817 
    $ifaceDir = TagFileRead($ifaceDir);
 817 
    $ifaceDir = TagFileRead($ifaceDir);
818 
    $ifaceDir =~ s~\\~/~g;
 818 
    $ifaceDir =~ s~\\~/~g;
819 
    $ifaceDir =~ s~GBE_SANDBOX/~$GBE_SANDBOX/~;
 819 
    $ifaceDir =~ s~GBE_SANDBOX/~$GBE_SANDBOX/~;
820 
    return $ifaceDir;
820 
    return $ifaceDir;
Line 2367... Line 2367...
2367 
    if ($preBuilt) {
 2367 
    if ($preBuilt) {
2368 
        $txt .= ' [dPkg]';
 2368 
        $txt .= ' [dPkg]';
2369 
        $statusP = 'E';
 2369 
        $statusP = 'E';
2370 
    }
 2370 
    }
2371
2371
- 
 
 2372 
    my $plink;
- 
 
 2373 
    if ($opt_exact) {
- 
 
 2374 
        $plink = catdir( $GBE_DPKG_SBOX, $fe->{name}, $fe->{version} . '.lnk' );
- 
 
 2375 
    } else {
2372 
    my $plink = catdir( $GBE_DPKG_SBOX, $fe->{name}, 'sandbox.' . $fe->{prj} . '.lnk' );
 2376 
        $plink = catdir( $GBE_DPKG_SBOX, $fe->{name}, 'sandbox.' . $fe->{prj} . '.lnk' );
- 
 
 2377 
    }
2373 
    my $linkTarget = getPackageLink ($plink);
 2378 
    my $linkTarget = getPackageLink ($plink);
2374 
 
 2379 
 
2375 
    Verbose ("Sandbox link: $plink -> $linkTarget");
 2380 
    Verbose ("Sandbox link: $plink -> $linkTarget");
2376 
    if (-d $linkTarget) {
 2381 
    if (-d $linkTarget) {
2377 
        $txt .= ' [Local]';
 2382 
        $txt .= ' [Local]';