summaryrefslogtreecommitdiff
path: root/version.pl
diff options
context:
space:
mode:
authorJinkun Jang <jinkun.jang@samsung.com>2013-03-12 15:14:36 +0900
committerJinkun Jang <jinkun.jang@samsung.com>2013-03-12 15:14:36 +0900
commit993d65531741fccf26fc10fc5789a5c9fca8c5ae (patch)
tree996be9095a97ff2aac0d98963b6044d47a0ec60c /version.pl
parent65c26d26fb72cec0d43d199c72ed27513d17f4c9 (diff)
downloadnasm-993d65531741fccf26fc10fc5789a5c9fca8c5ae.tar.gz
nasm-993d65531741fccf26fc10fc5789a5c9fca8c5ae.tar.bz2
nasm-993d65531741fccf26fc10fc5789a5c9fca8c5ae.zip
Diffstat (limited to 'version.pl')
-rwxr-xr-xversion.pl185
1 files changed, 185 insertions, 0 deletions
diff --git a/version.pl b/version.pl
new file mode 100755
index 0000000..e4157a2
--- /dev/null
+++ b/version.pl
@@ -0,0 +1,185 @@
+#!/usr/bin/perl
+## --------------------------------------------------------------------------
+##
+## Copyright 1996-2009 The NASM Authors - All Rights Reserved
+## See the file AUTHORS included with the NASM distribution for
+## the specific copyright holders.
+##
+## Redistribution and use in source and binary forms, with or without
+## modification, are permitted provided that the following
+## conditions are met:
+##
+## * Redistributions of source code must retain the above copyright
+## notice, this list of conditions and the following disclaimer.
+## * Redistributions in binary form must reproduce the above
+## copyright notice, this list of conditions and the following
+## disclaimer in the documentation and/or other materials provided
+## with the distribution.
+##
+## THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
+## CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
+## INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+## MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+## DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
+## CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+## SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+## NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+## LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+## HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+## CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
+## OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
+## EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+##
+## --------------------------------------------------------------------------
+
+#
+# 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__
+#
+
+($what) = @ARGV;
+
+$line = <STDIN>;
+chomp $line;
+
+undef $man, $min, $smin, $plvl, $tail;
+$is_rc = 0;
+
+if ( $line =~ /^([0-9]+)\.([0-9]+)(.*)$/ ) {
+ $maj = $1;
+ $min = $2;
+ $tail = $3;
+ if ( $tail =~ /^\.([0-9]+)(.*)$/ ) {
+ $smin = $1;
+ $tail = $2;
+ }
+ if ( $tail =~ /^(pl|\.)([0-9]+)(.*)$/ ) {
+ $plvl = $2;
+ $tail = $3;
+ } elsif ( $tail =~ /^rc([0-9]+)(.*)$/ ) {
+ $is_rc = 1;
+ $plvl = $1;
+ $tail = $2;
+ }
+} else {
+ die "$0: Invalid input format\n";
+}
+
+if ($tail =~ /^\-([0-9]+)$/) {
+ $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 'nsis' ) {
+ printf "!define VERSION \"%s\"\n", $line;
+ printf "!define MAJOR_VER %d\n", $nmin;
+ printf "!define MINOR_VER %d\n", $nmin;
+ printf "!define SUBMINOR_VER %d\n", $nsmin;
+ printf "!define 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;