WebSVN – DevTools – Diff – /core_devl/branches/dpurdie_3.5.10000.cr/TOOLS/jmake.pl



my %common_cmd;                             # Short circuit some commands
my %gbe_platform;                           # Nice form of GBE_PLATFORM
 
#
#   Known commands
#   A hash of known commands and information about the commands
#       common      - Command operation modifiers
#                     Flags: 1 - Command not executed for debug+prod
#                     Flags: 2 - Command is only executed ONCE per platform
#       local       - The command is handled locally.
#       nomakecheck - Don't check for makefile being out of date
#       IFLAG       - iteration flag,

    #
    'exec_tests'            => { 'nomakecheck' => 1, 'tag' => 1, 'IFLAG' => 3},
    'exec_unit_tests'       => { 'nomakecheck' => 1, 'tag' => 1, 'IFLAG' => 3},
    'preprocess_tests'      => { 'nomakecheck' => 1, 'tag' => 'process_tests'},
    'postprocess_tests'     => { 'nomakecheck' => 1, 'tag' => 'process_tests'},
    'collate_test_results'  => { 'nomakecheck' => 1, 'tag' => 'process_tests', 'common' => 2},
    
    #
    #   Following commands should NOT be a part of a composite command
    #
    'clean'                 => { 'nomakecheck' => 1},

    {
        $tag = $commands{$cmd}{tag};
        $tag = $cmd if ( $tag eq '1' );
    }
 
    #   Ensure this element is defined
    #       Simplifies testing in the remainder of the code
    $commands{$cmd}{'common'} = 0 
        unless exists($commands{$cmd}{'common'});
 
    if ( $commands{$cmd}{'common'} & 1 )
    {
        InvokeSubMake( $::Cwd, $platform_ref ,$cmd, $tag, 1, 'C' );
    }
    else
    {
        InvokeSubMake( $::Cwd, $platform_ref ,$cmd, $tag, 1, 'D' ) if $do_debug;
        InvokeSubMake( $::Cwd, $platform_ref ,$cmd, $tag, 0, 'P' ) if $do_prod;
    }
}
 
#-------------------------------------------------------------------------------
# Function        : InvokeSubMake

#
# Inputs          : $dir
#                   $pref                   - Ref to an array of platforms
#                   $cmd
#                   $tag
#                   $do_debug               - 0:Production, 1:Debug
#                   $text                   - Single Char display text (C, P or D)
#
# Returns         : 
#
sub InvokeSubMake
{
    my ( $dir, $pref, $cmd, $tag, $do_debug, $text) = @_;
 
    #
    #   Ensure the current directory is known to the Tags database
    #
    $Tags = ReadMaketags( $dir );

    #
    #   Process commands in the current directory
    #   If the command is tagged, then we may be able to skip it
    #   Otherwise we need to do it
    #
    InvokeMake( $dir, $pref, $cmd, $tag, $do_debug, $text );
 
    #
    #   Recurse into any subdirectories that may be a part of the build
    #
    unless ( exists $defs{NORECURSE} && $defs{NORECURSE}  )

        #   Otherwise we need to do it
        #
        foreach my $subdir (@{$Tags->{$dir}{subdirs}} )
        {
 
            InvokeSubMake( CleanDirName( "$dir/$subdir"), $pref, $cmd, $tag, $do_debug, $text );
        }
    }
}
 
#-------------------------------------------------------------------------------

#
# Inputs          : $dir
#                   $pref
#                   $cmd
#                   $tag
#                   $do_debug               - 0:Production, 1:Debug
#                   $text                   - Single Char display text (C, P or D)
#
#
# Returns         : 
#
sub InvokeMake
{
    my ( $dir, $pref, $cmd, $tag, $do_debug, $text ) = @_;
 
 
    Verbose2 ("InvokeMake: $dir");
    #
    #   Ensure that the current directory actually has makefile targets
    #   Not all makefile.pl create .mk files

                next;
            }
        }
 
        #
        #   common modifier mask=2, (Bit-1)
        #       Only process target ONCE for each platform
        #       Don't care when its used
        #
        if ( $commands{$cmd}{'common'} & 2 )
        {
            if ( $common_cmd{$cmd}{$text}{$target} )
            {
                Verbose2 "Already performed $cmd for $target in mode $text";
                next;
            }
            $common_cmd{$cmd}{$text}{$target} = 1;
        }
 
        #
        #   Is the build limited to only debug or production
        #
        unless ( $commands{$cmd}{'common'} & 1 )
        {
            if ( $do_debug == 0 ) {
                next unless ( $Tags->{$dir}{platforms}{$target}{prod} );
 
 
            } elsif  ( $do_debug == 1 ) {
                next unless ( $Tags->{$dir}{platforms}{$target}{debug} );
 
            }
        }
 
        #
        #   Final sanity test

 Where flags are of the form Name=Value
    SHOWENV=1           - Show make environment
    LEAVETMP=1          - Leave temp working files
    NODEPEND=1          - Ignore dependency checking
    EXPERT=1            - Ignore dependency on makefiles
    UTF_POSTPROCESS=1   - Enable Unit Test Post Processing
    OPTIONS=[opt]       - Maketime options [args,allargs,filter...]
 
 Valid targets include:
    all                 - build and install everything(p*)
    build               - build everything (pu)

This flag will supress dependency checking between object files and the
generated makefile. This option can be used while test building a large build
when the makefile has been rebuilt but the user does not wish all the object
files to be rebuilt.
 
=item B<UTF_POSTPROCESS=1>
 
This flag will enable post processing of test results.
 
Post processing allows the details of the test results to be captured by the build system.
 
Post processing is normally only performed within the automated build environment. This flag 
will force the processing within a user development environment.
 
UTF_POSTPROCESS=1   - Enable Unit Test Post Processing
 
=item B<OPTIONS=list,list>
 
This flags passes a list of comma seperated options into the makefile. The exact
set of available options is target specific. Refer to the JATS manual.
 

Rev 4836	Rev 4837
Line 69...	Line 69...
69	`my %common_cmd; # Short circuit some commands`	69	`my %common_cmd; # Short circuit some commands`
70	`my %gbe_platform; # Nice form of GBE_PLATFORM`	70	`my %gbe_platform; # Nice form of GBE_PLATFORM`
71		71
72	`#`	72	`#`
73	`# Known commands`	73	`# Known commands`
74	`# A hash of known commands an information about the commands`	74	`# A hash of known commands and information about the commands`
75	`# common - Command is not executed for Debug and Production`	75	`# common - Command operation modifiers`
76	`# Flags: 1 - Command not executed for debug+prod`	76	`# Flags: 1 - Command not executed for debug+prod`
77	`# Flags: 2 - Command is only executed ONCE per platform`	77	`# Flags: 2 - Command is only executed ONCE per platform`
78	`# local - The command is handled locally.`	78	`# local - The command is handled locally.`
79	`# nomakecheck - Don't check for makefile being out of date`	79	`# nomakecheck - Don't check for makefile being out of date`
80	`# IFLAG - iteration flag,`	80	`# IFLAG - iteration flag,`
Line 158...	Line 158...
158	`#`	158	`#`
159	`'exec_tests' => { 'nomakecheck' => 1, 'tag' => 1, 'IFLAG' => 3},`	159	`'exec_tests' => { 'nomakecheck' => 1, 'tag' => 1, 'IFLAG' => 3},`
160	`'exec_unit_tests' => { 'nomakecheck' => 1, 'tag' => 1, 'IFLAG' => 3},`	160	`'exec_unit_tests' => { 'nomakecheck' => 1, 'tag' => 1, 'IFLAG' => 3},`
161	`'preprocess_tests' => { 'nomakecheck' => 1, 'tag' => 'process_tests'},`	161	`'preprocess_tests' => { 'nomakecheck' => 1, 'tag' => 'process_tests'},`
162	`'postprocess_tests' => { 'nomakecheck' => 1, 'tag' => 'process_tests'},`	162	`'postprocess_tests' => { 'nomakecheck' => 1, 'tag' => 'process_tests'},`
163	`'collate_test_results' => { 'nomakecheck' => 1, 'tag' => 'process_tests'},`	163	`'collate_test_results' => { 'nomakecheck' => 1, 'tag' => 'process_tests', 'common' => 2},`
164		164
165	`#`	165	`#`
166	`# Following commands should NOT be a part of a composite command`	166	`# Following commands should NOT be a part of a composite command`
167	`#`	167	`#`
168	`'clean' => { 'nomakecheck' => 1},`	168	`'clean' => { 'nomakecheck' => 1},`
Line 545...	Line 545...
545	`{`	545	`{`
546	`$tag = $commands{$cmd}{tag};`	546	`$tag = $commands{$cmd}{tag};`
547	`$tag = $cmd if ( $tag eq '1' );`	547	`$tag = $cmd if ( $tag eq '1' );`
548	`}`	548	`}`
549		549
-		550	`# Ensure this element is defined`
-		551	`# Simplifies testing in the remainder of the code`
-		552	`$commands{$cmd}{'common'} = 0`
-		553	`unless exists($commands{$cmd}{'common'});`
-		554
550	`if ( $commands{$cmd}{'common'} )`	555	`if ( $commands{$cmd}{'common'} & 1 )`
551	`{`	556	`{`
552	`InvokeSubMake( $::Cwd, $platform_ref ,$cmd, $tag, 1 );`	557	`InvokeSubMake( $::Cwd, $platform_ref ,$cmd, $tag, 1, 'C' );`
553	`}`	558	`}`
554	`else`	559	`else`
555	`{`	560	`{`
556	`InvokeSubMake( $::Cwd, $platform_ref ,$cmd, $tag, 1 ) if $do_debug;`	561	`InvokeSubMake( $::Cwd, $platform_ref ,$cmd, $tag, 1, 'D' ) if $do_debug;`
557	`InvokeSubMake( $::Cwd, $platform_ref ,$cmd, $tag, 0 ) if $do_prod;`	562	`InvokeSubMake( $::Cwd, $platform_ref ,$cmd, $tag, 0, 'P' ) if $do_prod;`
558	`}`	563	`}`
559	`}`	564	`}`
560		565
561	`#-------------------------------------------------------------------------------`	566	`#-------------------------------------------------------------------------------`
562	`# Function : InvokeSubMake`	567	`# Function : InvokeSubMake`
Line 567...	Line 572...
567	`#`	572	`#`
568	`# Inputs : $dir`	573	`# Inputs : $dir`
569	`# $pref - Ref to an array of platforms`	574	`# $pref - Ref to an array of platforms`
570	`# $cmd`	575	`# $cmd`
571	`# $tag`	576	`# $tag`
572	`# $do_prod`	577	`# $do_debug - 0:Production, 1:Debug`
-		578	`# $text - Single Char display text (C, P or D)`
573	`#`	579	`#`
574	`# Returns :`	580	`# Returns :`
575	`#`	581	`#`
576	`sub InvokeSubMake`	582	`sub InvokeSubMake`
577	`{`	583	`{`
578	`my ( $dir, $pref, $cmd, $tag, $do_debug) = @_;`	584	`my ( $dir, $pref, $cmd, $tag, $do_debug, $text) = @_;`
579		585
580	`#`	586	`#`
581	`# Ensure the current directory is known to the Tags database`	587	`# Ensure the current directory is known to the Tags database`
582	`#`	588	`#`
583	`$Tags = ReadMaketags( $dir );`	589	`$Tags = ReadMaketags( $dir );`
Line 586...	Line 592...
586	`#`	592	`#`
587	`# Process commands in the current directory`	593	`# Process commands in the current directory`
588	`# If the command is tagged, then we may be able to skip it`	594	`# If the command is tagged, then we may be able to skip it`
589	`# Otherwise we need to do it`	595	`# Otherwise we need to do it`
590	`#`	596	`#`
591	`InvokeMake( $dir, $pref, $cmd, $tag, $do_debug );`	597	`InvokeMake( $dir, $pref, $cmd, $tag, $do_debug, $text );`
592		598
593	`#`	599	`#`
594	`# Recurse into any subdirectories that may be a part of the build`	600	`# Recurse into any subdirectories that may be a part of the build`
595	`#`	601	`#`
596	`unless ( exists $defs{NORECURSE} && $defs{NORECURSE} )`	602	`unless ( exists $defs{NORECURSE} && $defs{NORECURSE} )`
Line 601...	Line 607...
601	`# Otherwise we need to do it`	607	`# Otherwise we need to do it`
602	`#`	608	`#`
603	`foreach my $subdir (@{$Tags->{$dir}{subdirs}} )`	609	`foreach my $subdir (@{$Tags->{$dir}{subdirs}} )`
604	`{`	610	`{`
605		611
606	`InvokeSubMake( CleanDirName( "$dir/$subdir"), $pref, $cmd, $tag, $do_debug );`	612	`InvokeSubMake( CleanDirName( "$dir/$subdir"), $pref, $cmd, $tag, $do_debug, $text );`
607	`}`	613	`}`
608	`}`	614	`}`
609	`}`	615	`}`
610		616
611	`#-------------------------------------------------------------------------------`	617	`#-------------------------------------------------------------------------------`
Line 615...	Line 621...
615	`#`	621	`#`
616	`# Inputs : $dir`	622	`# Inputs : $dir`
617	`# $pref`	623	`# $pref`
618	`# $cmd`	624	`# $cmd`
619	`# $tag`	625	`# $tag`
620	`# $do_debug`	626	`# $do_debug - 0:Production, 1:Debug`
-		627	`# $text - Single Char display text (C, P or D)`
621	`#`	628	`#`
622	`#`	629	`#`
623	`# Returns :`	630	`# Returns :`
624	`#`	631	`#`
625	`sub InvokeMake`	632	`sub InvokeMake`
626	`{`	633	`{`
627	`my ( $dir, $pref, $cmd, $tag, $do_debug ) = @_;`	634	`my ( $dir, $pref, $cmd, $tag, $do_debug, $text ) = @_;`
628	`my $text = 'C';`	-
629		635
630	`Verbose2 ("InvokeMake: $dir");`	636	`Verbose2 ("InvokeMake: $dir");`
631	`#`	637	`#`
632	`# Ensure that the current directory actually has makefile targets`	638	`# Ensure that the current directory actually has makefile targets`
633	`# Not all makefile.pl create .mk files`	639	`# Not all makefile.pl create .mk files`
Line 668...	Line 674...
668	`next;`	674	`next;`
669	`}`	675	`}`
670	`}`	676	`}`
671		677
672	`#`	678	`#`
673	`# common mode == 2`	679	`# common modifier mask=2, (Bit-1)`
674	`# Only process target ONCE for each platform`	680	`# Only process target ONCE for each platform`
675	`# Don't care when its used`	681	`# Don't care when its used`
676	`#`	682	`#`
677	`if ( exists $commands{$cmd}{'common'} && $commands{$cmd}{'common'} & 2 )`	683	`if ( $commands{$cmd}{'common'} & 2 )`
678	`{`	684	`{`
679	`if ( $common_cmd{$cmd}{$target} )`	685	`if ( $common_cmd{$cmd}{$text}{$target} )`
680	`{`	686	`{`
681	`Verbose2 "Already performed $cmd for $target";`	687	`Verbose2 "Already performed $cmd for $target in mode $text";`
682	`next;`	688	`next;`
683	`}`	689	`}`
684	`$common_cmd{$cmd}{$target} = 1;`	690	`$common_cmd{$cmd}{$text}{$target} = 1;`
685	`}`	691	`}`
686		692
687	`#`	693	`#`
688	`# Is the build limited to only debug or production`	694	`# Is the build limited to only debug or production`
689	`#`	695	`#`
690	`unless ( exists $commands{$cmd}{'common'} )`	696	`unless ( $commands{$cmd}{'common'} & 1 )`
691	`{`	697	`{`
692	`if ( $do_debug == 0 ) {`	698	`if ( $do_debug == 0 ) {`
693	`next unless ( $Tags->{$dir}{platforms}{$target}{prod} );`	699	`next unless ( $Tags->{$dir}{platforms}{$target}{prod} );`
694	`$text = 'P';`	-
695		700
696	`} elsif ( $do_debug == 1 ) {`	701	`} elsif ( $do_debug == 1 ) {`
697	`next unless ( $Tags->{$dir}{platforms}{$target}{debug} );`	702	`next unless ( $Tags->{$dir}{platforms}{$target}{debug} );`
698	`$text = 'D';`	-
699	`}`	703	`}`
700	`}`	704	`}`
701		705
702	`#`	706	`#`
703	`# Final sanity test`	707	`# Final sanity test`
Line 1546...	Line 1550...
1546	`Where flags are of the form Name=Value`	1550	`Where flags are of the form Name=Value`
1547	`SHOWENV=1 - Show make environment`	1551	`SHOWENV=1 - Show make environment`
1548	`LEAVETMP=1 - Leave temp working files`	1552	`LEAVETMP=1 - Leave temp working files`
1549	`NODEPEND=1 - Ignore dependency checking`	1553	`NODEPEND=1 - Ignore dependency checking`
1550	`EXPERT=1 - Ignore dependency on makefiles`	1554	`EXPERT=1 - Ignore dependency on makefiles`
-		1555	`UTF_POSTPROCESS=1 - Enable Unit Test Post Processing`
1551	`OPTIONS=[opt] - Maketime options [args,allargs,filter...]`	1556	`OPTIONS=[opt] - Maketime options [args,allargs,filter...]`
1552		1557
1553	`Valid targets include:`	1558	`Valid targets include:`
1554	`all - build and install everything(p*)`	1559	`all - build and install everything(p*)`
1555	`build - build everything (pu)`	1560	`build - build everything (pu)`
Line 1683...	Line 1688...
1683	`This flag will supress dependency checking between object files and the`	1688	`This flag will supress dependency checking between object files and the`
1684	`generated makefile. This option can be used while test building a large build`	1689	`generated makefile. This option can be used while test building a large build`
1685	`when the makefile has been rebuilt but the user does not wish all the object`	1690	`when the makefile has been rebuilt but the user does not wish all the object`
1686	`files to be rebuilt.`	1691	`files to be rebuilt.`
1687		1692
-		1693	`=item B<UTF_POSTPROCESS=1>`
-		1694
-		1695	`This flag will enable post processing of test results.`
-		1696
-		1697	`Post processing allows the details of the test results to be captured by the build system.`
-		1698
-		1699	`Post processing is normally only performed within the automated build environment. This flag`
-		1700	`will force the processing within a user development environment.`
-		1701
-		1702	`UTF_POSTPROCESS=1 - Enable Unit Test Post Processing`
-		1703
1688	`=item B<OPTIONS=list,list>`	1704	`=item B<OPTIONS=list,list>`
1689		1705
1690	`This flags passes a list of comma seperated options into the makefile. The exact`	1706	`This flags passes a list of comma seperated options into the makefile. The exact`
1691	`set of available options is target specific. Refer to the JATS manual.`	1707	`set of available options is target specific. Refer to the JATS manual.`
1692		1708

Subversion Repositories DevTools

(root)/core_devl/branches/dpurdie_3.5.10000.cr/TOOLS/jmake.pl – Rev 4836 → 4837