+++ /dev/null
-#!/usr/bin/perl
-#
-# Read the "version" file and produce some macro declarations
-#
-
-use Fcntl;
-
-($vfile, $vout, $def) = @ARGV;
-sysopen(VERSION, $vfile, O_RDONLY) or die "$0: Cannot open $vfile\n";
-$version = <VERSION>;
-chomp $version;
-close(VERSION);
-
-unless ( $version =~ /^([0-9]+)\.([0-9]+)$/ ) {
- die "$0: Cannot parse version format\n";
-}
-$vma = $1+0; $vmi = $2+0;
-
-sysopen(VI, $vout, O_WRONLY|O_CREAT|O_TRUNC)
- or die "$0: Cannot create $vout: $!\n";
-print VI "$def VERSION \"$version\"\n";
-print VI "$def VER_MAJOR $vma\n";
-print VI "$def VER_MINOR $vmi\n";
-close(VI);
-
-