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