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 );