5 # Parse the NASM version file and produce appropriate macros
7 # The NASM version number is assumed to consist of:
9 # <major>.<minor>[.<subminor>][pl<patchlevel>]]<tail>
11 # ... where <tail> is not necessarily numeric.
13 # This defines the following macros:
18 # NASM_SUBMINOR_VER -- this is zero if no subminor
19 # NASM_PATCHLEVEL_VER -- this is zero is no patchlevel
20 # NASM_VERSION_ID -- version number encoded
21 # NASM_VER -- whole version number as a string
37 undef $man, $min, $smin, $plvl, $tail;
40 if ( $line =~ /^([0-9]+)\.([0-9]+)(.*)$/ ) {
44 if ( $tail =~ /^\.([0-9]+)(.*)$/ ) {
48 if ( $tail =~ /^(pl|\.)([0-9]+)(.*)$/ ) {
51 } elsif ( $tail =~ /^rc([0-9]+)(.*)$/ ) {
57 die "$0: Invalid input format\n";
60 $nmaj = $maj+0; $nmin = $min+0;
61 $nsmin = $smin+0; $nplvl = $plvl+0;
78 $nasm_id = ($nmaj << 24)+($nmin << 16)+($nsmin << 8)+$nplvl;
80 $mangled_ver = sprintf("%d.%02d.%02d", $nmaj, $nmin, $nsmin);
81 $mangled_ver .= '.'.$nplvl if ($nplvl != 0);
84 print "#ifndef NASM_VERSION_H\n";
85 print "#define NASM_VERSION_H\n";
86 printf "#define NASM_MAJOR_VER %d\n", $nmaj;
87 printf "#define NASM_MINOR_VER %d\n", $nmin;
88 printf "#define NASM_SUBMINOR_VER %d\n", $nsmin;
89 printf "#define NASM_PATCHLEVEL_VER %d\n", $nplvl;
90 printf "#define NASM_VERSION_ID 0x%08x\n", $nasm_id;
91 printf "#define NASM_VER \"%s\"\n", $line;
92 print "#endif /* NASM_VERSION_H */\n";
93 } elsif ( $what eq 'mac' ) {
94 printf "%%define __NASM_MAJOR__ %d\n", $nmaj;
95 printf "%%define __NASM_MINOR__ %d\n", $nmin;
96 printf "%%define __NASM_SUBMINOR__ %d\n", $nsmin;
97 printf "%%define __NASM_PATCHLEVEL__ %d\n", $nplvl;
98 printf "%%define __NASM_VERSION_ID__ 0%08Xh\n", $nasm_id;
99 printf "%%define __NASM_VER__ \"%s\"\n", $line;
100 } elsif ( $what eq 'sed' ) {
101 printf "s/\@\@NASM_MAJOR\@\@/%d/g\n", $nmaj;
102 printf "s/\@\@NASM_MINOR\@\@/%d/g\n", $nmin;
103 printf "s/\@\@NASM_SUBMINOR\@\@/%d/g\n", $nsmin;
104 printf "s/\@\@NASM_PATCHLEVEL\@\@/%d/g\n", $nplvl;
105 printf "s/\@\@NASM_VERSION_ID\@\@/%d/g\n", $nasm_id;
106 printf "s/\@\@NASM_VERSION_XID\@\@/0x%08x/g\n", $nasm_id;
107 printf "s/\@\@NASM_VER\@\@/%s/g\n", $line;
108 printf "s/\@\@NASM_MANGLED_VER\@\@/%s/g\n", $mangled_ver;
109 } elsif ( $what eq 'id' ) {
110 print $nasm_id, "\n"; # Print ID in decimal
111 } elsif ( $what eq 'xid' ) {
112 printf "0x%08x\n", $nasm_id; # Print ID in hexadecimal
114 die "$0: Unknown output: $what\n";