Subversion Repositories DevTools

Rev

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

Rev 6177 Rev 7372
Line 360... Line 360...
360 
    print VERSIONC
 360 
    print VERSIONC
361 
        "\n" .
 361 
        "\n" .
362 
        "static char what[] = \"@(#) $BUILDNAME $::CurrentDate $CompanyName\";\n" .
 362 
        "static char what[] = \"@(#) $BUILDNAME $::CurrentDate $CompanyName\";\n" .
363 
        "\n";
 363 
        "\n";
364 
 
 364 
 
- 
 
 365 
    print VERSIONC
- 
 
 366 
       "const char *\n$Prefix"."GetWhatString(void)\n" .
- 
 
 367 
       "{\n".
- 
 
 368 
       "    return what;\n" .
- 
 
 369 
       "}\n";
365 
 
 370 
 
366 
    my @PACKAGEVERS = PackageEntry::GetPackageVersionList();
 371 
    my @PACKAGEVERS = PackageEntry::GetPackageVersionList();
367 
    if ( $Type eq "array" )
 372 
    if ( $Type eq "array" )
368 
    {                                           # new style
 373 
    {                                           # new style
369 
        print VERSIONC
 374 
        print VERSIONC