#!/usr/bin/perl # # version.pl # # Parse the NASM version file and produce appropriate macros # # The NASM version number is assumed to consist of: # # .[.][pl]] # # ... where is not necessarily numeric. # # 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_VERSION_ID -- version number encoded # NASM_VER -- whole version number as a string # # version.mac: # __NASM_MAJOR__ # __NASM_MINOR__ # __NASM_SUBMINOR__ # __NASM_PATCHLEVEL__ # __NASM_VERSION_ID__ # __NASM_VER__ # ($what) = @ARGV; $line = ; 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"; } $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.%02d", $nmaj, $nmin, $nsmin); $mangled_ver .= '.'.$nplvl if ($nplvl != 0); 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; 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; 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_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 '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;