version.pl

   1 #!/usr/bin/perl
   2 #
   3 # Read the "version" file and produce some macro declarations
   4 #
   5
   6 use Fcntl;
   7
   8 sub defx($$$) {
   9     my($def, $name, $val) = @_;
  10
  11     $def =~ s/\</${name}/g;
  12     $def =~ s/\@/${val}/g;
  13
  14     return $def."\n";
  15 }
  16
  17 ($vfile, $vout, $def) = @ARGV;
  18 sysopen(VERSION, $vfile, O_RDONLY) or die "$0: Cannot open $vfile\n";
  19 $vfile = <VERSION>;
  20 chomp $vfile;
  21 close(VERSION);
  22
  23 unless ( $vfile =~ /^(([0-9]+)\.([0-9]+))\s+([0-9]+)$/ ) {
  24     die "$0: Cannot parse version format\n";
  25 }
  26 $version = $1;
  27 $vma = $2+0;
  28 $vmi = $3+0;
  29 $year = $4;
  30
  31 sysopen(VI, $vout, O_WRONLY|O_CREAT|O_TRUNC)
  32     or die "$0: Cannot create $vout: $!\n";
  33 print VI defx($def, 'VERSION',       $version);
  34 print VI defx($def, 'VERSION_STR',   '"'.$version.'"');
  35 print VI defx($def, 'VERSION_MAJOR', $vma);
  36 print VI defx($def, 'VERSION_MINOR', $vmi);
  37 print VI defx($def, 'YEAR',          $year);
  38 print VI defx($def, 'YEAR_STR',      '"'.$year.'"');
  39 close(VI);