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]';