version.pl

   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);