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