1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
@rem = '--*-Perl-*--';
@rem = '
@echo off
perl -S %0.bat %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
@rem ';
######################################################################
#
# Revision: mkver.bat
# Author: Greg Schueman
# Date: 05/03/1996
# Purpose: Provide a perl script for NT to replace the
# mkversion shell script.
#
#
#
# Subroutines:
# print_help
#
#
#
######################################################################
use English;
use Getopt::Long;
#*********************************************************************
# Program Dependency Requirements
#*********************************************************************
#*********************************************************************
# Set Environment
#*********************************************************************
$PROGRAM = $0;
$USAGE = "Usage: ${PROGRAM} [ -P <Program Name> -H ]\n";
#*********************************************************************
# Subroutine Print Help
#*********************************************************************
sub print_help
{
print STDERR $USAGE;
print STDERR " -P --Program Name Database Name\n";
print STDERR " -H --Help Help on options\n";
print STDERR "\n";
} # print_help end
#*********************************************************************
# Main program
#*********************************************************************
#
# Process runtime options
#
$result = GetOptions('help|H', 'prog|P=s');
if ($opt_help == 1)
{
print_help();
exit();
};
if (length($opt_prog) > 0)
{ $GENERATED_PROGRAM=$opt_prog; }
else
{ die "Program Name parameter required."; }
#
# Program logic
#
$DATE = localtime;
chomp $DATE;
$RUN = "0"; # Not working yet
open( INPUT, '<..\configure' );
open( OUTPUT, '>version.c' );
while ($_ = <INPUT> )
{
# if (/^[0-9a-zA-Z_]*=/)
if (/^VERSION=/)
{
$FLAGS = $POSTMATCH;
}
}
chomp $FLAGS;
print OUTPUT "char * Version = \"$GENERATED_PROGRAM $FLAGS $DATE ($RUN)\" ;";
close( OUTPUT );
close( INPUT );
__END__
:endofperl
|
