From dda953d06c20d14077fc575eda9e5d8844c9a36a Mon Sep 17 00:00:00 2001
From: Brad Gilbert <b2gills@gmail.com>
Date: Fri, 3 Apr 2009 23:46:13 -0500
Subject: [PATCH] 	modified:   t/version.t 	modified:   version.pl
 	modified:   ../version.pl

---
 perl/t/version.t |   4 ++
 perl/version.pl  | 164 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 168 insertions(+)
 create mode 100644 perl/t/version.t
 create mode 100644 perl/version.pl

diff --git a/perl/t/version.t b/perl/t/version.t
new file mode 100644
index 00000000..22be4669
--- /dev/null
+++ b/perl/t/version.t
@@ -0,0 +1,4 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
diff --git a/perl/version.pl b/perl/version.pl
new file mode 100644
index 00000000..969576c4
--- /dev/null
+++ b/perl/version.pl
@@ -0,0 +1,164 @@
+#!/usr/bin/perl
+#
+# version.pl
+#
+# Parse the NASM version file and produce appropriate macros
+#
+# The NASM version number is assumed to consist of:
+#
+# <major>.<minor>[.<subminor>][pl<patchlevel>]]<tail>
+#
+# ... where <tail> is not necessarily numeric, but if it is of the form
+# -<digits> it is assumed to be a snapshot release.
+#
+# This defines the following macros:
+#
+# version.h:
+# NASM_MAJOR_VER
+# NASM_MINOR_VER
+# NASM_SUBMINOR_VER	-- this is zero if no subminor
+# NASM_PATCHLEVEL_VER	-- this is zero is no patchlevel
+# NASM_SNAPSHOT		-- if snapshot
+# NASM_VERSION_ID       -- version number encoded
+# NASM_VER		-- whole version number as a string
+#
+# version.mac:
+# __NASM_MAJOR__
+# __NASM_MINOR__
+# __NASM_SUBMINOR__
+# __NASM_PATCHLEVEL__
+# __NASM_SNAPSHOT__
+# __NASM_VERSION_ID__
+# __NASM_VER__
+#
+use warnings;
+use strict;
+
+our($what) = @ARGV;
+
+our %version = ();
+
+my $line = <STDIN>;
+chomp $line;
+
+my( $man, $min, $smin, $plvl, $tail ) = ();
+$smin = 0;
+my $is_rc = 0;
+
+my($maj);
+my($nmaj,$nmin);
+my($nsmin);
+my($nplvl);
+my($snapshot,$nasm_id,$mangled_ver);
+my $mtail;
+
+if ( $line =~ /^([0-9]+)\.([0-9]+)(.*)$/ ) {
+    @version{'major','minor'} = ( $1, $2 );
+    $maj  = $1;
+    $min  = $2;
+    $tail = $3;
+    if ( $tail =~ /^\.([0-9]+)(.*)$/ ) {
+	$version{subminor} = $1;
+	$smin = $1;
+	$tail = $2;
+    }
+    if ( $tail =~ /^(?:pl|\.)([0-9]+)(.*)$/ ) {
+	$version{patchlevel} = $1;
+	$plvl = $1;
+	$tail = $2;
+    } elsif ( $tail =~ /^rc([0-9]+)(.*)$/ ) {
+	$version{patchlevel} = $1;
+	$version{rc} = 1;
+	$is_rc = 1;
+	$plvl = $1;
+	$tail = $2;
+    }
+} else {
+    die "$0: Invalid input format\n";
+}
+
+if ($tail =~ /^\-([0-9]+)$/) {
+    $snapshot = $1;
+    $version{snapshot} = $1;
+} else {
+    undef $snapshot;
+}
+
+$nmaj = $maj+0;   $nmin = $min+0;
+$nsmin = $smin+0; $nplvl = $plvl+0;
+
+if ($is_rc) {
+    $nplvl += 90;
+    if ($nsmin > 0) {
+	$nsmin--;
+    } else {
+	$nsmin = 99;
+	if ($nmin > 0) {
+	    $nmin--;
+	} else {
+	    $nmin = 99;
+	    $nmaj--;
+	}
+    }
+}
+
+$nasm_id = ($nmaj << 24)+($nmin << 16)+($nsmin << 8)+$nplvl;
+
+$mangled_ver = sprintf("%d.%02d", $nmaj, $nmin);
+if ($nsmin || $nplvl || defined($snapshot)) {
+    $mangled_ver .= sprintf(".%02d", $nsmin);
+    if ($nplvl || defined($snapshot)) {
+	$mangled_ver .= '.'.$nplvl;
+    }
+}
+($mtail = $tail) =~ tr/-/./;
+$mangled_ver .= $mtail;
+
+if ( $what eq 'h' ) {
+    print  "#ifndef NASM_VERSION_H\n";
+    print  "#define NASM_VERSION_H\n";
+    printf "#define NASM_MAJOR_VER      %d\n", $nmaj;
+    printf "#define NASM_MINOR_VER      %d\n", $nmin;
+    printf "#define NASM_SUBMINOR_VER   %d\n", $nsmin;
+    printf "#define NASM_PATCHLEVEL_VER %d\n", $nplvl;
+    if (defined($snapshot)) {
+	printf "#define NASM_SNAPSHOT       %d\n", $snapshot;
+    }
+    printf "#define NASM_VERSION_ID     0x%08x\n", $nasm_id;
+    printf "#define NASM_VER            \"%s\"\n", $line;
+    print  "#endif /* NASM_VERSION_H */\n";
+} elsif ( $what eq 'mac' ) {
+    printf "%%define __NASM_MAJOR__ %d\n", $nmaj;
+    printf "%%define __NASM_MINOR__ %d\n", $nmin;
+    printf "%%define __NASM_SUBMINOR__ %d\n", $nsmin;
+    printf "%%define __NASM_PATCHLEVEL__ %d\n", $nplvl;
+    if (defined($snapshot)) {
+	printf "%%define __NASM_SNAPSHOT__ %d\n", $snapshot;
+    }
+    printf "%%define __NASM_VERSION_ID__ 0%08Xh\n", $nasm_id;
+    printf "%%define __NASM_VER__ \"%s\"\n", $line;
+} elsif ( $what eq 'sed' ) {
+    printf "s/\@\@NASM_MAJOR\@\@/%d/g\n", $nmaj;
+    printf "s/\@\@NASM_MINOR\@\@/%d/g\n", $nmin;
+    printf "s/\@\@NASM_SUBMINOR\@\@/%d/g\n", $nsmin;
+    printf "s/\@\@NASM_PATCHLEVEL\@\@/%d/g\n", $nplvl;
+    printf "s/\@\@NASM_SNAPSHOT\@\@/%d/g\n", $snapshot;	# Possibly empty
+    printf "s/\@\@NASM_VERSION_ID\@\@/%d/g\n", $nasm_id;
+    printf "s/\@\@NASM_VERSION_XID\@\@/0x%08x/g\n", $nasm_id;
+    printf "s/\@\@NASM_VER\@\@/%s/g\n", $line;
+    printf "s/\@\@NASM_MANGLED_VER\@\@/%s/g\n", $mangled_ver;
+} elsif ( $what eq 'make' ) {
+    printf "NASM_VER=%s\n", $line;
+    printf "NASM_MAJOR_VER=%d\n", $nmaj;
+    printf "NASM_MINOR_VER=%d\n", $nmin;
+    printf "NASM_SUBMINOR_VER=%d\n", $nsmin;
+    printf "NASM_PATCHLEVEL_VER=%d\n", $nplvl;
+} elsif ( $what eq 'id' ) {
+    print $nasm_id, "\n";	 # Print ID in decimal
+} elsif ( $what eq 'xid' ) {
+    printf "0x%08x\n", $nasm_id; # Print ID in hexadecimal
+} else {
+    die "$0: Unknown output: $what\n";
+}
+
+exit 0;
-- 
2.11.4.GIT