Annotation of /tags/mkinitrd-6_1_11/isolinux/version.pl
Parent Directory | Revision Log
Revision 928 -
(hide annotations)
(download)
Wed Oct 28 13:31:19 2009 UTC (14 years, 11 months ago) by niro
File MIME type: text/plain
File size: 583 byte(s)
Wed Oct 28 13:31:19 2009 UTC (14 years, 11 months ago) by niro
File MIME type: text/plain
File size: 583 byte(s)
tagged 'mkinitrd-6_1_11'
1 | niro | 532 | #!/usr/bin/perl |
2 | # | ||
3 | # Read the "version" file and produce some macro declarations | ||
4 | # | ||
5 | |||
6 | use Fcntl; | ||
7 | |||
8 | ($vfile, $vout, $def) = @ARGV; | ||
9 | sysopen(VERSION, $vfile, O_RDONLY) or die "$0: Cannot open $vfile\n"; | ||
10 | $version = <VERSION>; | ||
11 | chomp $version; | ||
12 | close(VERSION); | ||
13 | |||
14 | unless ( $version =~ /^([0-9]+)\.([0-9]+)$/ ) { | ||
15 | die "$0: Cannot parse version format\n"; | ||
16 | } | ||
17 | $vma = $1+0; $vmi = $2+0; | ||
18 | |||
19 | sysopen(VI, $vout, O_WRONLY|O_CREAT|O_TRUNC) | ||
20 | or die "$0: Cannot create $vout: $!\n"; | ||
21 | print VI "$def VERSION \"$version\"\n"; | ||
22 | print VI "$def VER_MAJOR $vma\n"; | ||
23 | print VI "$def VER_MINOR $vmi\n"; | ||
24 | close(VI); | ||
25 | |||
26 |
Properties
Name | Value |
---|---|
svn:executable | * |