Subversion Repositories DevTools

Rev

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

Rev 227 Rev 229
Line 2836... Line 2836...
2836 
    #   Determine the style of version file to create
 2836 
    #   Determine the style of version file to create
2837 
    #
 2837 
    #
2838 
    if ( $Style =~ /^CSharp/i ) {
 2838 
    if ( $Style =~ /^CSharp/i ) {
2839 
        BuildVersionCSharp( $FileName );
 2839 
        BuildVersionCSharp( $FileName );
2840 
 
 2840 
 
- 
 
 2841 
    } elsif ( $Style =~ /^Properties/i ) {
- 
 
 2842 
        BuildVersionProperties( $FileName, $Prefix );
- 
 
 2843 
 
2841 
    } elsif ( $Style =~ /^WinRC/i ) {
 2844 
    } elsif ( $Style =~ /^WinRC/i ) {
2842 
        BuildVersionWinRC( $FileName );
 2845 
        BuildVersionWinRC( $FileName );
2843 
 
 2846 
 
2844 
    } elsif ( $Style eq "C" ) {
 2847 
    } elsif ( $Style eq "C" ) {
2845 
        BuildVersionC    ( $Prefix, $Type )     if ( $VersionFiles );
 2848 
        BuildVersionC    ( $Prefix, $Type )     if ( $VersionFiles );
Line 3299... Line 3302...
3299 
 
 3302 
 
3300 
        #
 3303 
        #
3301 
        #   Create a .bat file for WIN32
 3304 
        #   Create a .bat file for WIN32
3302 
        #   This may be consumed by user wrapper programs
 3305 
        #   This may be consumed by user wrapper programs
3303 
        #
 3306 
        #
- 
 
 3307 
        #   Features: No Echo
- 
 
 3308 
        #             Use of SETLOCAL to prevent pollution of environment
- 
 
 3309 
        #
3304 
        my $fh = ::ConfigurationFile::New( "$BUILDINTERFACE/set_$platform.bat", '--NoEof', '--Type=bat' );
 3310 
        my $fh = ::ConfigurationFile::New( "$BUILDINTERFACE/set_$platform.bat", '--NoEof', '--Type=bat' );
- 
 
 3311 
        $fh->Write ( "\@echo off\n");
3305 
        $fh->Header( "Buildlib ($BuildVersion)","Shared Library Paths" );
 3312 
        $fh->Header( "Buildlib ($BuildVersion)","Shared Library Paths" );
- 
 
 3313 
        $fh->Write ( "\nSETLOCAL\n");
3306 
        foreach ( reverse @dos_paths )
 3314 
        foreach ( reverse @dos_paths )
3307 
        {
 3315 
        {
3308 
            $_ =~ s~/~\\~g;
 3316 
            $_ =~ s~/~\\~g;
3309 
            $fh->Write ( "PATH=$_;\%PATH\%\n" );
 3317 
            $fh->Write ( "PATH=$_;\%PATH\%\n" );
3310 
        }
 3318 
        }
3311 
        $fh->Write ( "\n%*\n" );
 3319 
        $fh->Write ( "\n%*\n" );
- 
 
 3320 
        $fh->Write ( "\nENDLOCAL\n");
- 
 
 3321 
        $fh->Write ( "EXIT %ERRORLEVEL%\n");
3312 
        $fh->Close();
 3322 
        $fh->Close();
3313 
 
 3323 
 
3314 
        #
 3324 
        #
3315 
        #   Create a .sh file for WIN32
 3325 
        #   Create a .sh file for WIN32
3316 
        #   This may be consumed by a shell - as used within JATS
 3326 
        #   This may be consumed by a shell - as used within JATS
Line 3343... Line 3353...
3343 
        my @unix_paths = BuildSharedLibFiles_list( $platform, $BUILDINFO{$platform}{EXT_SHARED} );
 3353 
        my @unix_paths = BuildSharedLibFiles_list( $platform, $BUILDINFO{$platform}{EXT_SHARED} );
3344 
 
 3354 
 
3345 
        #
 3355 
        #
3346 
        #   Create a .sh file for Unix
 3356 
        #   Create a .sh file for Unix
3347 
        #
 3357 
        #
- 
 
 3358 
        my $file = "$BUILDINTERFACE/set_$platform.sh";
3348 
        my $fh = ::ConfigurationFile::New( "$BUILDINTERFACE/set_$platform.sh", '--NoEof', '--Type=sh' );
 3359 
        my $fh = ::ConfigurationFile::New( $file , '--NoEof', '--Type=sh' );
3349 
        $fh->Header( "Buildlib ($BuildVersion)","Shared Library Paths" );
 3360 
        $fh->Header( "Buildlib ($BuildVersion)","Shared Library Paths" );
3350 
        foreach ( reverse @unix_paths )
 3361 
        foreach ( reverse @unix_paths )
3351 
        {
 3362 
        {
3352 
            $fh->Write ( "export LD_LIBRARY_PATH=$_:\$LD_LIBRARY_PATH\n" );
 3363 
            $fh->Write ( "export LD_LIBRARY_PATH=$_:\$LD_LIBRARY_PATH\n" );
3353 
        }
 3364 
        }
3354 
        $fh->Write ( "\n\$*\n" );
 3365 
        $fh->Write ( "\n\$*\n" );
3355 
        $fh->Close();
 3366 
        $fh->Close();
- 
 
 3367 
 
- 
 
 3368 
        #
- 
 
 3369 
        #   Make the file executable under unix
- 
 
 3370 
        #
- 
 
 3371 
        chmod 0755, $file;
3356 
    }
 3372 
    }
3357 
}
 3373 
}
3358 
 
 3374 
 
3359 
#-------------------------------------------------------------------------------
 3375 
#-------------------------------------------------------------------------------
3360 
# Function        : BuildSharedLibFiles_list
 3376 
# Function        : BuildSharedLibFiles_list