Contents of /tags/mkinitrd-6_1_4/isolinux/version.pl
Parent Directory | Revision Log
Revision 896 -
(show annotations)
(download)
Wed Aug 5 16:25:39 2009 UTC (15 years, 1 month ago) by niro
File MIME type: text/plain
File size: 583 byte(s)
Wed Aug 5 16:25:39 2009 UTC (15 years, 1 month ago) by niro
File MIME type: text/plain
File size: 583 byte(s)
tagged 'mkinitrd-6_1_4'
1 | #!/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 | * |