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