Subversion Repositories DevTools

Rev

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

Rev 6138 Rev 6177
Line 1... Line 1...
1
########################################################################
1
########################################################################
2
# Copyright (c) VIX TECHNOLOGY (AUST) LTD
2
# COPYRIGHT - VIX IP PTY LTD ("VIX"). ALL RIGHTS RESERVED.
3
#
3
#
4
# Module name   : jats_sandbox.pl
4
# Module name   : jats_sandbox.pl
5
# Module type   : JATS Utility
5
# Module type   : JATS Utility
6
# Compiler(s)   : Perl
6
# Compiler(s)   : Perl
7
# Environment(s): JATS
7
# Environment(s): JATS
Line 693... Line 693...
693
                #   Locate the build files in each package
693
                #   Locate the build files in each package
694
                #   Scan the build files and extract dependancy information
694
                #   Scan the build files and extract dependancy information
695
                #
695
                #
696
                my $bscanner = BuildFileScanner( $pname, 'build.pl',
696
                my $bscanner = BuildFileScanner( $pname, 'build.pl',
697
                                                         '--LocateAll',
697
                                                         '--LocateAll',
698
#                                                         '--LimitDepth=3',
698
                                                         '--LimitDepth=4',
699
                                                         '--ScanDependencies' );
699
                                                         '--ScanDependencies' );
700
                unless ($bscanner->setLocation($_)) {
700
                unless ($bscanner->setLocation($_)) {
701
                    Verbose("Build file missing: Force full scan");
701
                    Verbose("Build file missing: Force full scan");
702
                    @build_list = ();
702
                    @build_list = ();
703
                    last;
703
                    last;
Line 722... Line 722...
722
        my @locationData;
722
        my @locationData;
723
        foreach my $pname ( glob("*") )
723
        foreach my $pname ( glob("*") )
724
        {
724
        {
725
            next if ( $pname =~ m~^\.~ );
725
            next if ( $pname =~ m~^\.~ );
726
            next if ( $pname =~ m~dpkg_archive$~ );
726
            next if ( $pname =~ m~dpkg_archive$~ );
727
            next if ( $pname =~ m~^CVS$~ );
727
            next if ( $pname eq 'CSV' );
-
 
728
            next if ( $pname eq 'lost+found' );
728
            next unless ( -d $pname );
729
            next unless ( -d $pname );
729
            Verbose ("Package discovered: $pname");
730
            Verbose ("Package discovered: $pname");
730
 
731
 
731
            if ( -f "$pname/stop" || -f "$pname/stop.$GBE_MACHTYPE" )
732
            if ( -f "$pname/stop" || -f "$pname/stop.$GBE_MACHTYPE" )
732
            {
733
            {
Line 739... Line 740...
739
            #   Locate the build files in each package
740
            #   Locate the build files in each package
740
            #   Scan the build files and extract dependancy information
741
            #   Scan the build files and extract dependancy information
741
            #
742
            #
742
            my $bscanner = BuildFileScanner( $pname, 'build.pl',
743
            my $bscanner = BuildFileScanner( $pname, 'build.pl',
743
                                                     '--LocateAll',
744
                                                     '--LocateAll',
744
#                                                     '--LimitDepth=3',
745
                                                     '--LimitDepth=4',
745
                                                     '--ScanDependencies' );
746
                                                     '--ScanDependencies' );
746
            $bscanner->scan();
747
            $bscanner->scan();
747
            my @blist = $bscanner->getInfo();
748
            my @blist = $bscanner->getInfo();
748
            unless ($quiet) {
749
            unless ($quiet) {
749
                Warning ("Package does not have build files: $pname") unless ( @blist );
750
                Warning ("Package does not have build files: $pname") unless ( @blist );