| Line 1... |
Line -... |
| 1 |
#! perl
|
- |
|
| 2 |
########################################################################
|
1 |
########################################################################
|
| 3 |
# Copyright ( C ) 2004 ERG Limited, All rights reserved
|
2 |
# Copyright (C) 1998-2012 Vix Technology, All rights reserved
|
| 4 |
#
|
3 |
#
|
| 5 |
# Module name : jats.sh
|
4 |
# Module name : jats.sh
|
| 6 |
# Module type : Makefile system
|
5 |
# Module type : Makefile system
|
| 7 |
# Compiler(s) : n/a
|
6 |
# Compiler(s) : n/a
|
| 8 |
# Environment(s): jats
|
7 |
# Environment(s): jats
|
| Line 11... |
Line 10... |
| 11 |
# directive.
|
10 |
# directive.
|
| 12 |
#
|
11 |
#
|
| 13 |
# Use only within buildlib.pl as this package assumes
|
12 |
# Use only within buildlib.pl as this package assumes
|
| 14 |
# a great deal about its environment.
|
13 |
# a great deal about its environment.
|
| 15 |
#
|
14 |
#
|
| 16 |
# Usage:
|
- |
|
| 17 |
#
|
- |
|
| 18 |
# Version Who Date Description
|
- |
|
| 19 |
#
|
- |
|
| 20 |
#......................................................................#
|
15 |
#......................................................................#
|
| 21 |
|
16 |
|
| 22 |
require 5.006_001;
|
17 |
require 5.006_001;
|
| 23 |
use strict;
|
18 |
use strict;
|
| 24 |
use warnings;
|
19 |
use warnings;
|
| Line 51... |
Line 46... |
| 51 |
BuildVersionProperties
|
46 |
BuildVersionProperties
|
| 52 |
BuildVersionDelphi
|
47 |
BuildVersionDelphi
|
| 53 |
BuildVersionVB
|
48 |
BuildVersionVB
|
| 54 |
);
|
49 |
);
|
| 55 |
|
50 |
|
| - |
|
51 |
################################################################################
|
| - |
|
52 |
# The following strings have been obtained from Simon Davey in an email
|
| - |
|
53 |
# to David Purdie dated Monday, 16 January 2012 3:40 PM
|
| - |
|
54 |
#
|
| - |
|
55 |
# Note: At 'init' time, the $CurrentDate is not valid
|
| - |
|
56 |
# It must be injected later
|
| - |
|
57 |
#
|
| - |
|
58 |
my $CompanyName = 'Vix IP Pty Ltd';
|
| - |
|
59 |
my $Copyright = $CompanyName; # Will have $CurrentDate appended
|
| - |
|
60 |
my $Trademark = $CompanyName;
|
| - |
|
61 |
#
|
| - |
|
62 |
################################################################################
|
| - |
|
63 |
|
| 56 |
#-------------------------------------------------------------------------------
|
64 |
#-------------------------------------------------------------------------------
|
| 57 |
# Function : BuildVersionCSharp
|
65 |
# Function : BuildVersionCSharp
|
| 58 |
#
|
66 |
#
|
| 59 |
# Description : Generate a C# versionn information file to allow
|
67 |
# Description : Generate a C# versionn information file to allow
|
| 60 |
# insertion of data into an assembly
|
68 |
# insertion of data into an assembly
|
| Line 89... |
Line 97... |
| 89 |
|
97 |
|
| 90 |
$fh->Write( "\n" );
|
98 |
$fh->Write( "\n" );
|
| 91 |
$fh->Write( "using System.Reflection;\n" );
|
99 |
$fh->Write( "using System.Reflection;\n" );
|
| 92 |
$fh->Write( "using System.Runtime.CompilerServices;\n" );
|
100 |
$fh->Write( "using System.Runtime.CompilerServices;\n" );
|
| 93 |
$fh->Write( "\n" );
|
101 |
$fh->Write( "\n" );
|
| 94 |
$fh->Write( "[assembly: AssemblyCompany(\"ERG Group\")]\n" );
|
102 |
$fh->Write( "[assembly: AssemblyCompany(\"$CompanyName\")]\n" );
|
| 95 |
$fh->Write( "[assembly: AssemblyProduct(\"$BUILDNAME_PACKAGE\")]\n" );
|
103 |
$fh->Write( "[assembly: AssemblyProduct(\"$BUILDNAME_PACKAGE\")]\n" );
|
| 96 |
$fh->Write( "[assembly: AssemblyCopyright(\"ERG Group $CurrentYear\")]\n" );
|
104 |
$fh->Write( "[assembly: AssemblyCopyright(\"$Copyright $CurrentYear\")]\n" );
|
| 97 |
$fh->Write( "[assembly: AssemblyTrademark(\"\")]\n" );
|
105 |
$fh->Write( "[assembly: AssemblyTrademark(\"$Trademark\")]\n" );
|
| 98 |
$fh->Write( "\n");
|
106 |
$fh->Write( "\n");
|
| 99 |
$fh->Comment( "\n");
|
107 |
$fh->Comment( "\n");
|
| 100 |
$fh->Comment( "Version information for an assembly consists of the following four values:\n");
|
108 |
$fh->Comment( "Version information for an assembly consists of the following four values:\n");
|
| 101 |
$fh->Comment( "\n");
|
109 |
$fh->Comment( "\n");
|
| 102 |
$fh->Comment( " Major Version -ERG:Major\n");
|
110 |
$fh->Comment( " Major Version -VIX:Major\n");
|
| 103 |
$fh->Comment( " Minor Version - ERG:Minor\n");
|
111 |
$fh->Comment( " Minor Version - VIX:Minor\n");
|
| 104 |
$fh->Comment( " Build Number - ERG:Patch\n");
|
112 |
$fh->Comment( " Build Number - VIX:Patch\n");
|
| 105 |
$fh->Comment( " Revision - ERG:Build Number\n");
|
113 |
$fh->Comment( " Revision - VIX:Build Number\n");
|
| 106 |
$fh->Comment( "\n");
|
114 |
$fh->Comment( "\n");
|
| 107 |
$fh->Write( "\n");
|
115 |
$fh->Write( "\n");
|
| 108 |
$fh->Write( "[assembly: AssemblyVersion(\"$vstring\")]\n" );
|
116 |
$fh->Write( "[assembly: AssemblyVersion(\"$vstring\")]\n" );
|
| 109 |
$fh->Write( "\n");
|
117 |
$fh->Write( "\n");
|
| 110 |
|
118 |
|
| Line 218... |
Line 226... |
| 218 |
Error ("Undefined value for $arg") unless ( defined $val );
|
226 |
Error ("Undefined value for $arg") unless ( defined $val );
|
| 219 |
return "#define $arg $val\n";
|
227 |
return "#define $arg $val\n";
|
| 220 |
}
|
228 |
}
|
| 221 |
|
229 |
|
| 222 |
$fh->Write(prc (""));
|
230 |
$fh->Write(prc (""));
|
| 223 |
# $fh->Write(prc ("#include \"afxres.h\""));
|
- |
|
| 224 |
# $fh->Write(prc (""));
|
- |
|
| 225 |
|
- |
|
| 226 |
$fh->Write(prc (""));
|
- |
|
| 227 |
$fh->Write(pdefs ("RC_STR_EMPTY" , "" ));
|
231 |
$fh->Write(pdefs ("RC_STR_EMPTY" , "" ));
|
| 228 |
$fh->Write(pdefs ("RC_STR_COMPANY" , "ERG Group" ));
|
232 |
$fh->Write(pdefs ("RC_STR_COMPANY" , $CompanyName ));
|
| 229 |
$fh->Write(pdefs ("RC_STR_PRODUCTNAME" , $product ));
|
233 |
$fh->Write(pdefs ("RC_STR_PRODUCTNAME" , $product ));
|
| 230 |
$fh->Write(pdefs ("RC_STR_COMMENT" , $comment ));
|
234 |
$fh->Write(pdefs ("RC_STR_COMMENT" , $comment ));
|
| 231 |
$fh->Write(pdefs ("RC_STR_DESCRIPTION" , $description ));
|
235 |
$fh->Write(pdefs ("RC_STR_DESCRIPTION" , $description ));
|
| 232 |
$fh->Write(pdefs ("RC_STR_NAME" , $pkg_name ));
|
236 |
$fh->Write(pdefs ("RC_STR_NAME" , $pkg_name ));
|
| 233 |
$fh->Write(pdefs ("RC_STR_VERSION" , $product_version ));
|
237 |
$fh->Write(pdefs ("RC_STR_VERSION" , $product_version ));
|
| 234 |
$fh->Write(pdef ("RC_NUM_VERSION" , $product_version ));
|
238 |
$fh->Write(pdef ("RC_NUM_VERSION" , $product_version ));
|
| 235 |
$fh->Write(pdefs ("RC_STR_COPYRIGHT" , "Copyright ERG Group $CurrentYear" ));
|
239 |
$fh->Write(pdefs ("RC_STR_COPYRIGHT" , $Copyright . ' ' . $::CurrentYear ));
|
| - |
|
240 |
$fh->Write(pdefs ("RC_STR_TRADEMARK" , $Trademark ));
|
| 236 |
$fh->Write(prc ('#ifdef _DEBUG'));
|
241 |
$fh->Write(prc ('#ifdef _DEBUG'));
|
| 237 |
$fh->Write(pdefs ("RC_STR_SPECIAL" , "Debug Version" ));
|
242 |
$fh->Write(pdefs ("RC_STR_SPECIAL" , "Debug Version" ));
|
| 238 |
$fh->Write(prc ('#else'));
|
243 |
$fh->Write(prc ('#else'));
|
| 239 |
$fh->Write(pdefs ("RC_STR_SPECIAL" , "Production Version" ));
|
244 |
$fh->Write(pdefs ("RC_STR_SPECIAL" , "Production Version" ));
|
| 240 |
$fh->Write(prc ('#endif'));
|
245 |
$fh->Write(prc ('#endif'));
|
| Line 265... |
Line 270... |
| 265 |
$fh->Write(prc (' VALUE "CompanyName", RC_STR_COMPANY'));
|
270 |
$fh->Write(prc (' VALUE "CompanyName", RC_STR_COMPANY'));
|
| 266 |
$fh->Write(prc (' VALUE "FileDescription", RC_STR_DESCRIPTION'));
|
271 |
$fh->Write(prc (' VALUE "FileDescription", RC_STR_DESCRIPTION'));
|
| 267 |
$fh->Write(prc (' VALUE "FileVersion", RC_STR_VERSION'));
|
272 |
$fh->Write(prc (' VALUE "FileVersion", RC_STR_VERSION'));
|
| 268 |
$fh->Write(prc (' VALUE "InternalName", RC_STR_NAME'));
|
273 |
$fh->Write(prc (' VALUE "InternalName", RC_STR_NAME'));
|
| 269 |
$fh->Write(prc (' VALUE "LegalCopyright", RC_STR_COPYRIGHT'));
|
274 |
$fh->Write(prc (' VALUE "LegalCopyright", RC_STR_COPYRIGHT'));
|
| 270 |
$fh->Write(prc (' VALUE "LegalTrademarks", RC_STR_EMPTY'));
|
275 |
$fh->Write(prc (' VALUE "LegalTrademarks", RC_STR_TRADEMARK'));
|
| 271 |
$fh->Write(prc (' VALUE "OriginalFilename", RC_STR_NAME'));
|
276 |
$fh->Write(prc (' VALUE "OriginalFilename", RC_STR_NAME'));
|
| 272 |
$fh->Write(prc (' VALUE "PrivateBuild", RC_STR_EMPTY'));
|
277 |
$fh->Write(prc (' VALUE "PrivateBuild", RC_STR_EMPTY'));
|
| 273 |
$fh->Write(prc (' VALUE "ProductName", RC_STR_PRODUCTNAME'));
|
278 |
$fh->Write(prc (' VALUE "ProductName", RC_STR_PRODUCTNAME'));
|
| 274 |
$fh->Write(prc (' VALUE "ProductVersion", RC_STR_VERSION'));
|
279 |
$fh->Write(prc (' VALUE "ProductVersion", RC_STR_VERSION'));
|
| 275 |
$fh->Write(prc (' VALUE "SpecialBuild", RC_STR_SPECIAL'));
|
280 |
$fh->Write(prc (' VALUE "SpecialBuild", RC_STR_SPECIAL'));
|
| Line 352... |
Line 357... |
| 352 |
" */\n" .
|
357 |
" */\n" .
|
| 353 |
"#include \"version.h\"\n";
|
358 |
"#include \"version.h\"\n";
|
| 354 |
|
359 |
|
| 355 |
print VERSIONC
|
360 |
print VERSIONC
|
| 356 |
"\n" .
|
361 |
"\n" .
|
| 357 |
"static char what[] = \"@(#) $BUILDNAME $::CurrentDate ERG\";\n" .
|
362 |
"static char what[] = \"@(#) $BUILDNAME $::CurrentDate $CompanyName\";\n" .
|
| 358 |
"\n";
|
363 |
"\n";
|
| 359 |
|
364 |
|
| 360 |
|
365 |
|
| 361 |
my @PACKAGEVERS = PackageEntry::GetPackageVersionList();
|
366 |
my @PACKAGEVERS = PackageEntry::GetPackageVersionList();
|
| 362 |
if ( $Type eq "array" )
|
367 |
if ( $Type eq "array" )
|