WebSVN – DevTools – Diff – /core_devl/trunk/TOOLS/makelib.pl2



 
#.. Get the stuff from the build configuration file
#
    ConfigLoad();
 
    if ( (%::ScmBuildPlatforms) )        # Interface/build.cfg
    {
        AddPlatformArg( split( /$;/, $::ScmBuildPlatforms{ $ScmPlatform } ));
    }
 
    if ( (%::ScmBuildIncludes) )         # Interface/build.cfg
    {
        my( @includes ) = split( ',', $::ScmBuildIncludes{ $ScmPlatform } );
        my( $global ) = $ScmGlobal;
 
        $ScmGlobal = 1;                         # Follow defs are "global's" ...

            AddIncDir( "*", $elem ) if ($elem);
        }
        $ScmGlobal = $global;                   # Restore global status ...
    }
 
    if ( (%::ScmBuildLibraries) )        # Interface/build.cfg
    {
        my( @libraries ) = split( ',', $::ScmBuildLibraries{ $ScmPlatform } );
        my( $global ) = $ScmGlobal;
 
        $ScmGlobal = 1;                         # Follow defs are "global's" ...

    $file = Require( "$::GBE_CONFIG", "Rules", "Common rules " );
    push( @ScmDepends, "$file" );
 
#.. Platform (defines ScmToolset)
#
    if ( ( %::ScmBuildProducts ) &&      # interface/build.cfg
            $::ScmBuildProducts{ $ScmPlatform } )
    {
        my( @args ) = split( ',', $::ScmBuildProducts{ $ScmPlatform } );
 
        $ScmProduct = $args[0];

            $libp->addItem('ARGS', $_);
            
            next;
        }
 
        if ( %::ScmToolsetProgSource )
        {
            #
            #   Toolset provides support for some file types
            #   to be passed directly to the librarian builder
            #

            Debug( "ShLibArgs: arg  $_" );
            $libp->addItem('ARGS', $_);
            next;
        }
 
        if ( %::ScmToolsetProgSource )
        {
            #
            #   Toolset provides support for some file types
            #   to be passed directly to the program builder
            #

            Debug( "TestProg: arg $_" );
            $pProg->addItem('ARGS', $_);
            next;
        }
 
        if ( %::ScmToolsetProgSource )
        {
            #
            #   Toolset provides support for some file types
            #   to be passed directly to the program builder
            #

            Debug( "Prog: arg $_" );
            $pProg->addItem('ARGS', $_);
            next;
        }
 
        if ( %::ScmToolsetProgSource )
        {
            #
            #   Toolset provides support for some file types
            #   to be passed directly to the program builder
            #

Rev 367	Rev 369
Line 343...	Line 343...
343		343
344	`#.. Get the stuff from the build configuration file`	344	`#.. Get the stuff from the build configuration file`
345	`#`	345	`#`
346	`ConfigLoad();`	346	`ConfigLoad();`
347		347
348	`if ( defined(%::ScmBuildPlatforms) ) # Interface/build.cfg`	348	`if ( (%::ScmBuildPlatforms) ) # Interface/build.cfg`
349	`{`	349	`{`
350	`AddPlatformArg( split( /$;/, $::ScmBuildPlatforms{ $ScmPlatform } ));`	350	`AddPlatformArg( split( /$;/, $::ScmBuildPlatforms{ $ScmPlatform } ));`
351	`}`	351	`}`
352		352
353	`if ( defined(%::ScmBuildIncludes) ) # Interface/build.cfg`	353	`if ( (%::ScmBuildIncludes) ) # Interface/build.cfg`
354	`{`	354	`{`
355	`my( @includes ) = split( ',', $::ScmBuildIncludes{ $ScmPlatform } );`	355	`my( @includes ) = split( ',', $::ScmBuildIncludes{ $ScmPlatform } );`
356	`my( $global ) = $ScmGlobal;`	356	`my( $global ) = $ScmGlobal;`
357		357
358	`$ScmGlobal = 1; # Follow defs are "global's" ...`	358	`$ScmGlobal = 1; # Follow defs are "global's" ...`
Line 361...	Line 361...
361	`AddIncDir( "*", $elem ) if ($elem);`	361	`AddIncDir( "*", $elem ) if ($elem);`
362	`}`	362	`}`
363	`$ScmGlobal = $global; # Restore global status ...`	363	`$ScmGlobal = $global; # Restore global status ...`
364	`}`	364	`}`
365		365
366	`if ( defined(%::ScmBuildLibraries) ) # Interface/build.cfg`	366	`if ( (%::ScmBuildLibraries) ) # Interface/build.cfg`
367	`{`	367	`{`
368	`my( @libraries ) = split( ',', $::ScmBuildLibraries{ $ScmPlatform } );`	368	`my( @libraries ) = split( ',', $::ScmBuildLibraries{ $ScmPlatform } );`
369	`my( $global ) = $ScmGlobal;`	369	`my( $global ) = $ScmGlobal;`
370		370
371	`$ScmGlobal = 1; # Follow defs are "global's" ...`	371	`$ScmGlobal = 1; # Follow defs are "global's" ...`
Line 601...	Line 601...
601	`$file = Require( "$::GBE_CONFIG", "Rules", "Common rules " );`	601	`$file = Require( "$::GBE_CONFIG", "Rules", "Common rules " );`
602	`push( @ScmDepends, "$file" );`	602	`push( @ScmDepends, "$file" );`
603		603
604	`#.. Platform (defines ScmToolset)`	604	`#.. Platform (defines ScmToolset)`
605	`#`	605	`#`
606	`if ( defined( %::ScmBuildProducts ) && # interface/build.cfg`	606	`if ( ( %::ScmBuildProducts ) && # interface/build.cfg`
607	`$::ScmBuildProducts{ $ScmPlatform } )`	607	`$::ScmBuildProducts{ $ScmPlatform } )`
608	`{`	608	`{`
609	`my( @args ) = split( ',', $::ScmBuildProducts{ $ScmPlatform } );`	609	`my( @args ) = split( ',', $::ScmBuildProducts{ $ScmPlatform } );`
610		610
611	`$ScmProduct = $args[0];`	611	`$ScmProduct = $args[0];`
Line 4177...	Line 4177...
4177	`$libp->addItem('ARGS', $_);`	4177	`$libp->addItem('ARGS', $_);`
4178		4178
4179	`next;`	4179	`next;`
4180	`}`	4180	`}`
4181		4181
4182	`if ( defined %::ScmToolsetProgSource )`	4182	`if ( %::ScmToolsetProgSource )`
4183	`{`	4183	`{`
4184	`#`	4184	`#`
4185	`# Toolset provides support for some file types`	4185	`# Toolset provides support for some file types`
4186	`# to be passed directly to the librarian builder`	4186	`# to be passed directly to the librarian builder`
4187	`#`	4187	`#`
Line 4378...	Line 4378...
4378	`Debug( "ShLibArgs: arg $_" );`	4378	`Debug( "ShLibArgs: arg $_" );`
4379	`$libp->addItem('ARGS', $_);`	4379	`$libp->addItem('ARGS', $_);`
4380	`next;`	4380	`next;`
4381	`}`	4381	`}`
4382		4382
4383	`if ( defined %::ScmToolsetProgSource )`	4383	`if ( %::ScmToolsetProgSource )`
4384	`{`	4384	`{`
4385	`#`	4385	`#`
4386	`# Toolset provides support for some file types`	4386	`# Toolset provides support for some file types`
4387	`# to be passed directly to the program builder`	4387	`# to be passed directly to the program builder`
4388	`#`	4388	`#`
Line 4909...	Line 4909...
4909	`Debug( "TestProg: arg $_" );`	4909	`Debug( "TestProg: arg $_" );`
4910	`$pProg->addItem('ARGS', $_);`	4910	`$pProg->addItem('ARGS', $_);`
4911	`next;`	4911	`next;`
4912	`}`	4912	`}`
4913		4913
4914	`if ( defined %::ScmToolsetProgSource )`	4914	`if ( %::ScmToolsetProgSource )`
4915	`{`	4915	`{`
4916	`#`	4916	`#`
4917	`# Toolset provides support for some file types`	4917	`# Toolset provides support for some file types`
4918	`# to be passed directly to the program builder`	4918	`# to be passed directly to the program builder`
4919	`#`	4919	`#`
Line 4994...	Line 4994...
4994	`Debug( "Prog: arg $_" );`	4994	`Debug( "Prog: arg $_" );`
4995	`$pProg->addItem('ARGS', $_);`	4995	`$pProg->addItem('ARGS', $_);`
4996	`next;`	4996	`next;`
4997	`}`	4997	`}`
4998		4998
4999	`if ( defined %::ScmToolsetProgSource )`	4999	`if ( %::ScmToolsetProgSource )`
5000	`{`	5000	`{`
5001	`#`	5001	`#`
5002	`# Toolset provides support for some file types`	5002	`# Toolset provides support for some file types`
5003	`# to be passed directly to the program builder`	5003	`# to be passed directly to the program builder`
5004	`#`	5004	`#`

Subversion Repositories DevTools

(root)/core_devl/trunk/TOOLS/makelib.pl2 – Rev 367 → 369