arsc/version.pl at master · BoysTownOrg/arsc · GitHub

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
#!/usr/bin/perl -w
use strict;
use warnings;
#
# declare local variables
#
my $n;
my @infile;
my $ver;
my $i;
# get version number from version.h
#
$n = "version.h";
open FILE,$n or die "can't open ".$n;
@infile = <FILE>;
foreach(@infile)
{
    if($_ =~ /#define\sVER.*/) { ($ver) = $_ =~ /.*(\d\.\d\d).*/; }
}
close FILE;
print "version is $ver\n";

# update version in arsc.iss
#
$n = "arsc.iss";
open FILE,$n or die "can't open ".$n;
@infile = <FILE>;
$i = 0;
foreach(@infile)
{
    if($_ =~ /AppVer.*\d\.\d\d/) { $infile[$i] =~ s/\d.\d\d/$ver/; }
    $i ++;
}
close FILE;
open FILE, ">".$n;
print FILE @infile;
close FILE;

# update version in arsc_VS18/_README.txt
#
$n = "arsc_VS18/_README.txt";
open FILE,$n or die "can't open ".$n;
@infile = <FILE>;
$i = 0;
foreach(@infile)
{
    if($_ =~ /version.*\d\.\d\d/) { $infile[$i] =~ s/\d.\d\d/$ver/; }
    $i ++;
}
close FILE;
open FILE,">".$n;
print FILE @infile;
close FILE;