Subversion Repositories DevTools

Rev

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

Rev 313 Rev 315
Line 1174... Line 1174...
1174
    my $relaxed_version_name = 0;
1174
    my $relaxed_version_name = 0;
1175
    my @args;
1175
    my @args;
1176
 
1176
 
1177
    Debug( "BuildName(@arguments)" );
1177
    Debug( "BuildName(@arguments)" );
1178
 
1178
 
1179
    Error( "Platform(s) not defined...\n" .
1179
    Error( "Platform(s) not defined.",
1180
            "BuildAlias, BuildProduct and BuildPlatform directives must be defined prior to BuildName()." )
1180
            "BuildAlias, BuildProduct and BuildPlatform directives must be defined prior to BuildName()." )
1181
        unless( scalar @BUILDPLATFORMS );
1181
        unless( scalar @BUILDPLATFORMS );
1182
 
1182
 
1183
#.. Parse arguments
1183
#.. Parse arguments
1184
#.
1184
#.
Line 3112... Line 3112...
3112
#                                               Supported styles:
3112
#                                               Supported styles:
3113
#                                                   "C" - Default
3113
#                                                   "C" - Default
3114
#                                                   "CSharp"
3114
#                                                   "CSharp"
3115
#                                                   "WinRC"
3115
#                                                   "WinRC"
3116
#                                                   "Delphi"
3116
#                                                   "Delphi"
-
 
3117
#                                                   "VB"
3117
#                       --File=name             Specifies the output file name
3118
#                       --File=name             Specifies the output file name
3118
#                                               Default is determined by the style
3119
#                                               Default is determined by the style
3119
#
3120
#
3120
#                   Also allows for an 'old' style format in which
3121
#                   Also allows for an 'old' style format in which
3121
#                   the first three arguments are prefix,type and defs
3122
#                   the first three arguments are prefix,type and defs
Line 3206... Line 3207...
3206
    } elsif ( $Style =~ /^WinRC/i ) {
3207
    } elsif ( $Style =~ /^WinRC/i ) {
3207
        BuildVersionWinRC( $FileName, @opts );
3208
        BuildVersionWinRC( $FileName, @opts );
3208
 
3209
 
3209
    } elsif ( $Style =~ /^Delphi/i ) {
3210
    } elsif ( $Style =~ /^Delphi/i ) {
3210
        BuildVersionDelphi( $FileName, $Prefix );
3211
        BuildVersionDelphi( $FileName, $Prefix );
-
 
3212
 
-
 
3213
    } elsif ( $Style =~ /^VB/i ) {
-
 
3214
        BuildVersionVB( $FileName, $Prefix );
3211
        
3215
        
3212
    } elsif ( $Style eq "C" ) {
3216
    } elsif ( $Style eq "C" ) {
3213
        BuildVersionC    ( $FileName, $Prefix, $Type )     if ( $VersionFiles );
3217
        BuildVersionC    ( $FileName, $Prefix, $Type )     if ( $VersionFiles );
3214
        BuildVersionCdefs( $FileName, $Mode, $ModePrefix ) if ( $Mode );
3218
        BuildVersionCdefs( $FileName, $Mode, $ModePrefix ) if ( $Mode );
3215
 
3219