WebSVN – DevTools – Diff – /core_devl/trunk/TOOLS/buildlib.pl



    #   an alias that has not been expanded.
    #
    #   One result will be that alias platforms, such as DEVLINUX, that don't
    #   expand on WIN32 will be shown as DEVLINUX and not its components.
    #
    unless ( $pInfo->{NOT_AVAILABLE} || exists $BUILDINFO{$target} )
    {
        unless ( Exists( "$::GBE_CONFIG/PLATFORM", $base_target  ) )
        {
            UniquePush (\@BUILD_BADNAME, $target );
            $pInfo->{NOT_AVAILABLE} = 1;

    #   Generate a list of platforms that are completely unknown to JATS
    #   May be the result of a user type or a guess
    #
    if ( @BUILD_BADNAME )
    {
        Log( "Unknown Pl . " . PrintPlatforms(\@BUILD_BADNAME, $sep) );
         Warning ("The following platform names are not known to JATS", "@BUILD_BADNAME");
    }
    
    #
    #   Generate a list of active platforms

Subversion Repositories DevTools

(root)/core_devl/trunk/TOOLS/buildlib.pl – Rev 279 → 281

Rev 279		Rev 281
Line 799...		Line 799...
799	`# an alias that has not been expanded.`	799	`# an alias that has not been expanded.`
800	`#`	800	`#`
801	`# One result will be that alias platforms, such as DEVLINUX, that don't`	801	`# One result will be that alias platforms, such as DEVLINUX, that don't`
802	`# expand on WIN32 will be shown as DEVLINUX and not its components.`	802	`# expand on WIN32 will be shown as DEVLINUX and not its components.`
803	`#`	803	`#`
804	`unless ($pInfo->{NOT_AVAILABLE} )`	804	`unless ( $pInfo->{NOT_AVAILABLE} \|\| exists $BUILDINFO{$target} )`
805	`{`	805	`{`
806	`unless ( Exists( "$::GBE_CONFIG/PLATFORM", $base_target ) )`	806	`unless ( Exists( "$::GBE_CONFIG/PLATFORM", $base_target ) )`
807	`{`	807	`{`
808	`UniquePush (\@BUILD_BADNAME, $target );`	808	`UniquePush (\@BUILD_BADNAME, $target );`
809	`$pInfo->{NOT_AVAILABLE} = 1;`	809	`$pInfo->{NOT_AVAILABLE} = 1;`
Line 1230...		Line 1230...
1230	`# Generate a list of platforms that are completely unknown to JATS`	1230	`# Generate a list of platforms that are completely unknown to JATS`
1231	`# May be the result of a user type or a guess`	1231	`# May be the result of a user type or a guess`
1232	`#`	1232	`#`
1233	`if ( @BUILD_BADNAME )`	1233	`if ( @BUILD_BADNAME )`
1234	`{`	1234	`{`
1235	`Log( "Unknown Pla . " . PrintPlatforms(\@BUILD_BADNAME, $sep) );`	1235	`Log( "Unknown Pl . " . PrintPlatforms(\@BUILD_BADNAME, $sep) );`
1236	`Warning ("The following platform names are not known to JATS", "@BUILD_BADNAME");`	1236	`Warning ("The following platform names are not known to JATS", "@BUILD_BADNAME");`
1237	`}`	1237	`}`
1238		1238
1239	`#`	1239	`#`
1240	`# Generate a list of active platforms`	1240	`# Generate a list of active platforms`