laag-nasm 2.13.03.2

data/vendor/repo.or.cz/nasm/doc/nasmlogo.eps

@@ -0,0 +1,212 @@
+%!PS-Adobe-3.0 EPSF-3.0
+%%Creator: cairo 1.10.2 (http://cairographics.org)
+%%CreationDate: Sun Feb 26 02:08:42 2012
+%%Pages: 1
+%%BoundingBox: 44 42 306 306
+%%DocumentData: Clean7Bit
+%%LanguageLevel: 2
+%%EndComments
+%%BeginProlog
+/cairo_eps_state save def
+/dict_count countdictstack def
+/op_count count 1 sub def
+userdict begin
+/q { gsave } bind def
+/Q { grestore } bind def
+/cm { 6 array astore concat } bind def
+/w { setlinewidth } bind def
+/J { setlinecap } bind def
+/j { setlinejoin } bind def
+/M { setmiterlimit } bind def
+/d { setdash } bind def
+/m { moveto } bind def
+/l { lineto } bind def
+/c { curveto } bind def
+/h { closepath } bind def
+/re { exch dup neg 3 1 roll 5 3 roll moveto 0 rlineto
+      0 exch rlineto 0 rlineto closepath } bind def
+/S { stroke } bind def
+/f { fill } bind def
+/f* { eofill } bind def
+/n { newpath } bind def
+/W { clip } bind def
+/W* { eoclip } bind def
+/BT { } bind def
+/ET { } bind def
+/pdfmark where { pop globaldict /?pdfmark /exec load put }
+    { globaldict begin /?pdfmark /pop load def /pdfmark
+    /cleartomark load def end } ifelse
+/BDC { mark 3 1 roll /BDC pdfmark } bind def
+/EMC { mark /EMC pdfmark } bind def
+/cairo_store_point { /cairo_point_y exch def /cairo_point_x exch def } def
+/Tj { show currentpoint cairo_store_point } bind def
+/TJ {
+  {
+    dup
+    type /stringtype eq
+    { show } { -0.001 mul 0 cairo_font_matrix dtransform rmoveto } ifelse
+  } forall
+  currentpoint cairo_store_point
+} bind def
+/cairo_selectfont { cairo_font_matrix aload pop pop pop 0 0 6 array astore
+    cairo_font exch selectfont cairo_point_x cairo_point_y moveto } bind def
+/Tf { pop /cairo_font exch def /cairo_font_matrix where
+      { pop cairo_selectfont } if } bind def
+/Td { matrix translate cairo_font_matrix matrix concatmatrix dup
+      /cairo_font_matrix exch def dup 4 get exch 5 get cairo_store_point
+      /cairo_font where { pop cairo_selectfont } if } bind def
+/Tm { 2 copy 8 2 roll 6 array astore /cairo_font_matrix exch def
+      cairo_store_point /cairo_font where { pop cairo_selectfont } if } bind def
+/g { setgray } bind def
+/rg { setrgbcolor } bind def
+/d1 { setcachedevice } bind def
+%%EndProlog
+%%Page: 1 1
+%%BeginPageSetup
+%%PageBoundingBox: 44 42 306 306
+%%EndPageSetup
+q 44 42 262 264 rectclip q
+0.501961 g
+279.656 304.422 m 265.238 304.422 253.559 292.734 253.559 278.32 c 
+253.559 273.254 255.023 268.539 257.523 264.535 c 240.906 247.918 l 
+220.031 266.812 192.352 278.32 161.977 278.32 c 96.988 278.32 44.297 
+225.633 44.297 160.64 c 44.297 95.648 96.988 42.965 161.977 42.965 c 
+226.969 42.965 279.656 95.648 279.656 160.64 c 279.656 191.012 268.145 
+218.695 249.254 239.574 c 265.871 256.191 l 269.875 253.691 274.59 
+252.223 279.66 252.223 c 294.07 252.223 305.754 263.906 305.754 278.32 
+c 305.754 292.73 294.07 304.422 279.656 304.422 c h
+279.656 304.422 m f
+1 g
+107.184 140.832 m 107 140.492 106.547 140.324 105.816 140.324 c 97.219 
+140.324 l 96.07 140.324 95.5 140.871 95.5 141.965 c 95.5 145.406 95.508 
+148.82 95.535 152.207 c 95.562 155.594 95.574 159.008 95.574 162.445 c 
+95.574 164.637 95.195 166.187 94.441 167.098 c 93.684 168.008 92.469 
+168.465 90.805 168.465 c 89.555 168.465 88.199 168.164 86.742 167.566 c 
+85.281 166.965 84.086 166.508 83.145 166.195 c 83.145 141.965 l 83.145 
+141.547 83.051 141.172 82.871 140.828 c 82.688 140.492 82.234 140.324 
+81.504 140.324 c 72.984 140.324 l 72.309 140.324 71.852 140.465 71.617 
+140.754 c 71.379 141.039 71.266 141.445 71.266 141.965 c 71.266 177.14 
+l 71.266 177.664 71.379 178.078 71.617 178.39 c 71.852 178.703 72.309 
+178.863 72.984 178.863 c 81.504 178.863 l 82.23 178.863 82.688 178.676 
+82.871 178.312 c 83.055 177.949 83.145 177.558 83.145 177.14 c 83.145 
+175.265 l 83.195 175.265 83.238 175.25 83.262 175.226 c 83.289 175.199 
+83.324 175.187 83.379 175.187 c 85.098 176.492 87.105 177.547 89.398 
+178.351 c 91.688 179.16 93.773 179.566 95.648 179.566 c 98.414 179.566 
+100.59 179.109 102.176 178.199 c 103.77 177.285 104.953 176.086 105.734 
+174.601 c 106.52 173.117 106.996 171.461 107.18 169.637 c 107.363 
+167.812 107.453 165.988 107.453 164.168 c 107.453 141.965 l 107.461 
+141.547 107.367 141.172 107.184 140.832 c h
+107.184 140.832 m f
+137.324 145.015 m 136.281 144.078 135.16 143.269 133.965 142.594 c 
+132.766 141.914 131.543 141.355 130.289 140.914 c 129.039 140.469 
+127.812 140.16 126.613 139.976 c 125.414 139.793 124.32 139.703 123.332 
+139.703 c 121.039 139.703 119.176 140.027 117.742 140.68 c 116.309 
+141.328 115.199 142.18 114.422 143.223 c 113.637 144.262 113.102 
+145.473 112.82 146.855 c 112.531 148.234 112.391 149.68 112.391 151.195 
+c 112.336 153.594 112.66 155.621 113.367 157.293 c 114.07 158.961 
+115.074 160.301 116.375 161.316 c 117.68 162.332 119.27 163.066 121.145 
+163.508 c 123.02 163.949 125.105 164.172 127.398 164.172 c 136.391 
+164.172 l 136.391 165.422 l 136.391 166.254 136.293 166.961 136.117 
+167.531 c 135.93 168.105 135.594 168.574 135.102 168.937 c 134.605 
+169.305 133.914 169.578 133.027 169.762 c 132.141 169.941 130.969 
+170.035 129.512 170.035 c 128.938 170.035 128.219 170.008 127.359 
+169.957 c 126.5 169.902 125.605 169.851 124.664 169.797 c 123.727 
+169.746 122.785 169.668 121.848 169.562 c 120.91 169.461 120.051 
+169.379 119.27 169.328 c 118.176 169.226 117.457 169.226 117.121 
+169.328 c 116.781 169.433 116.508 169.879 116.301 170.66 c 115.441 
+174.723 l 115.336 175.398 115.43 175.957 115.715 176.402 c 116 176.844 
+116.742 177.301 117.941 177.769 c 118.828 178.086 119.855 178.355 
+121.031 178.594 c 122.203 178.828 123.402 179.023 124.625 179.18 c 
+125.852 179.336 127.062 179.453 128.262 179.531 c 129.461 179.609 
+130.504 179.644 131.391 179.644 c 135.035 179.644 137.969 179.308 
+140.184 178.629 c 142.398 177.953 144.09 176.988 145.266 175.738 c 
+146.438 174.488 147.203 172.949 147.57 171.125 c 147.934 169.301 
+148.117 167.219 148.117 164.871 c 148.117 152.523 l 148.117 151.687 
+148.156 151.035 148.238 150.566 c 148.312 150.098 148.457 149.746 
+148.664 149.512 c 148.871 149.277 149.16 149.105 149.523 149.004 c 
+149.887 148.898 150.383 148.82 151.008 148.769 c 151.688 148.715 
+152.129 148.598 152.336 148.418 c 152.547 148.234 152.652 147.91 
+152.652 147.441 c 152.652 142.433 l 152.652 141.394 151.895 140.715 
+150.383 140.402 c 148.926 140.039 147.309 139.855 145.535 139.855 c 
+143.609 139.855 141.914 140.183 140.453 140.832 c 138.996 141.484 
+138.004 142.851 137.484 144.937 c h
+136.152 156.586 m 129.121 156.586 l 127.66 156.586 126.512 156.246 
+125.68 155.57 c 124.844 154.89 124.426 153.637 124.426 151.816 c 
+124.426 150.617 124.676 149.781 125.172 149.316 c 125.664 148.848 
+126.59 148.609 127.945 148.609 c 129.145 148.609 130.539 148.894 
+132.129 149.469 c 133.719 150.039 135.062 150.668 136.156 151.344 c 
+136.156 156.586 l h
+136.152 156.586 m f
+187.52 152.488 m 187.52 150.043 187.035 148 186.074 146.367 c 185.105 
+144.726 183.82 143.414 182.203 142.426 c 180.586 141.437 178.746 
+140.726 176.691 140.281 c 174.633 139.844 172.484 139.621 170.242 
+139.621 c 169.305 139.621 168.289 139.66 167.195 139.734 c 166.102 
+139.812 164.992 139.93 163.875 140.082 c 162.754 140.238 161.684 
+140.418 160.668 140.629 c 159.652 140.832 158.754 141.066 157.969 
+141.328 c 156.668 141.793 155.832 142.269 155.469 142.762 c 155.105 
+143.25 155.051 144.015 155.312 145.047 c 156.172 148.769 l 156.328 
+149.496 156.562 149.941 156.879 150.094 c 157.191 150.254 157.789 
+150.254 158.676 150.094 c 160.5 149.781 162.477 149.535 164.613 149.351 
+c 166.754 149.168 168.5 149.078 169.855 149.078 c 171.832 149.078 
+173.238 149.301 174.074 149.746 c 174.91 150.191 175.324 150.933 
+175.324 151.98 c 175.324 153.129 175.012 153.898 174.391 154.293 c 
+173.762 154.683 172.617 154.984 170.949 155.191 c 168.812 155.508 
+166.816 155.875 164.965 156.289 c 163.117 156.707 161.488 157.336 
+160.082 158.172 c 158.676 159.008 157.57 160.133 156.758 161.543 c 
+155.949 162.953 155.551 164.808 155.551 167.105 c 155.551 169.195 
+155.949 171.023 156.754 172.59 c 157.551 174.156 158.652 175.465 
+160.051 176.508 c 161.449 177.555 163.121 178.336 165.066 178.859 c 
+167.004 179.383 169.125 179.64 171.418 179.64 c 172.305 179.64 173.281 
+179.601 174.352 179.523 c 175.418 179.445 176.5 179.34 177.594 179.211 
+c 178.688 179.078 179.746 178.906 180.762 178.699 c 181.777 178.484 
+182.703 178.226 183.535 177.91 c 184.578 177.543 185.348 177.16 185.84 
+176.765 c 186.336 176.371 186.453 175.676 186.191 174.676 c 185.332 
+170.656 l 185.125 169.926 184.906 169.48 184.668 169.324 c 184.434 
+169.168 183.875 169.14 182.988 169.246 c 182.102 169.351 181.141 
+169.465 180.098 169.598 c 179.055 169.726 178.027 169.832 177.012 
+169.91 c 175.996 169.988 175.039 170.055 174.156 170.105 c 173.27 
+170.156 172.516 170.183 171.891 170.183 c 169.91 170.234 168.668 
+170.012 168.176 169.519 c 167.68 169.027 167.434 168.363 167.434 
+167.531 c 167.434 166.543 167.891 165.91 168.809 165.625 c 169.723 
+165.336 170.887 165.066 172.301 164.805 c 174.34 164.547 176.273 
+164.219 178.105 163.832 c 179.938 163.441 181.547 162.805 182.934 
+161.922 c 184.316 161.035 185.43 159.855 186.266 158.371 c 187.102 
+156.89 187.52 154.93 187.52 152.488 c h
+187.52 152.488 m f
+250.336 140.832 m 250.152 140.492 249.723 140.324 249.047 140.324 c 
+240.449 140.324 l 239.77 140.324 239.312 140.469 239.078 140.754 c 
+238.844 141.039 238.727 141.445 238.727 141.965 c 238.727 162.527 l 
+238.727 164.922 238.363 166.512 237.633 167.293 c 236.902 168.078 
+235.809 168.465 234.352 168.465 c 233.414 168.465 232.266 168.219 
+230.91 167.723 c 229.555 167.23 228.383 166.719 227.391 166.199 c 
+227.391 141.965 l 227.391 141.551 227.301 141.172 227.117 140.832 c 
+226.938 140.492 226.48 140.324 225.75 140.324 c 217.152 140.324 l 
+216.523 140.324 216.098 140.469 215.863 140.754 c 215.629 141.039 
+215.512 141.445 215.512 141.965 c 215.512 162.762 l 215.512 164.949 
+215.16 166.445 214.449 167.254 c 213.738 168.062 212.676 168.469 
+211.262 168.469 c 210.312 168.469 209.172 168.234 207.836 167.765 c 
+206.496 167.293 205.277 166.773 204.176 166.199 c 204.176 141.969 l 
+204.176 141.551 204.07 141.176 203.863 140.832 c 203.656 140.496 
+203.191 140.328 202.465 140.328 c 193.926 140.328 l 193.301 140.328 
+192.875 140.469 192.641 140.758 c 192.406 141.039 192.297 141.449 
+192.297 141.969 c 192.297 177.144 l 192.297 177.664 192.406 178.082 
+192.641 178.394 c 192.875 178.707 193.301 178.867 193.926 178.867 c 
+202.465 178.867 l 203.191 178.867 203.656 178.68 203.863 178.316 c 
+204.07 177.953 204.176 177.562 204.176 177.144 c 204.176 175.348 l 
+204.332 175.269 l 206 176.621 207.824 177.68 209.801 178.433 c 211.781 
+179.187 213.789 179.566 215.824 179.566 c 218.168 179.566 220.223 
+179.14 221.996 178.277 c 223.766 177.418 225.074 176.074 225.906 174.25 
+c 227.73 175.762 229.801 177.027 232.117 178.043 c 234.438 179.058 
+236.77 179.566 239.113 179.566 c 241.879 179.566 244.027 179.109 
+245.562 178.199 c 247.102 177.285 248.25 176.101 249.004 174.644 c 
+249.758 173.183 250.215 171.543 250.371 169.719 c 250.527 167.894 
+250.605 166.07 250.605 164.246 c 250.605 141.965 l 250.609 141.547 
+250.52 141.172 250.336 140.832 c h
+250.336 140.832 m f
+Q Q
+showpage
+%%Trailer
+count op_count sub {pop} repeat
+countdictstack dict_count sub {end} repeat
+cairo_eps_state restore
+%%EOF

data/vendor/repo.or.cz/nasm/doc/psfonts.ph

@@ -0,0 +1,53 @@
+#!/usr/bin/perl
+#
+# Font metrics for the PS code generator
+#
+
+# Font substitution lists, in order of preference
+my @TText = ('SourceSansPro-Bold', 'ClearSans-Bold', 'LiberationSans-Bold',
+	     'Arial-Bold', 'Helvetica-Bold');
+my @TItal = ('SourceSansPro-BoldIt', 'ClearSans-BoldItalic', 'LiberationSans-BoldItalic',
+	     'Arial-BoldItalic', 'Helvetica-BoldItalic');
+my @TCode = ('SourceCodePro-Bold', 'LiberationMono-Bold', 'Courier-Bold');
+my @HText = ('SourceSansPro-Semibold', 'ClearSans-Bold', 'Arial-Bold', 'Helvetica-Bold');
+my @HItal = ('SourceSansPro-SemiboldIt', 'ClearSans-BoldItalic',
+	     'Arial-BoldItalic', 'Helvetica-BoldItalic');
+my @HCode = ('SourceCodePro-Semibold', 'LiberationMono-Bold', 'Courier-Bold');
+my @BText = ('SourceSansPro-Regular', 'ClearSans', 'LiberationSans', 'Arial', 'Helvetica');
+my @BItal = ('SourceSansPro-It', 'ClearSans-Italic', 'LiberationSans-Italic',
+	     'Arial-Italic', 'Helvetica-Italic');
+my @BCode = ('SourceCodePro-Regular', 'LiberationMono', 'Courier');
+my @QText = ('SourceSansPro-It', 'ClearSans-Italic', 'LiberationSans-Italic',
+	     'Arial-Italic', 'Helvetica-Italic');
+my @QBold = ('SourceSansPro-BoldIt', 'ClearSans-BoldItalic', 'LiberationSans-BoldItalic', 'Arial-Bold', 'Helvetica-BoldItalic');
+my @QCode = ('SourceCodePro-Regular', 'LiberationMono', 'Courier');
+
+# The fonts we want to use for various things
+# The order is: <normal> <emphatic> <code>
+
+%TitlFont = (name => 'tfont',
+	     leading => 24,
+	     fonts => [[20, \@TText], [20, \@TItal], [20, \@TCode]]);
+%ChapFont = (name => 'cfont',
+	     leading => 21.6,
+	     fonts => [[18, \@HText], [18, \@HItal], [18, \@HCode]]);
+%HeadFont = (name => 'hfont',
+		leading => 16.8,
+		fonts => [[14, \@HText], [14, \@HItal], [14, \@HCode]]);
+%SubhFont = (name => 'sfont',
+	     leading => 14.4,
+	     fonts => [[12, \@HText], [12, \@HItal], [12, \@HCode]]);
+%BodyFont = (name => 'bfont',
+	     leading => 12,
+	     fonts => [[10, \@BText], [10, \@BItal], [10, \@BCode]]);
+%BquoFont = (name => 'qfont',
+	     leading => 10.8,
+	     fonts => [[9, \@QText], [9, \@QBold], [9, \@QCode]]);
+#
+# List of all fontsets; used to compute the list of fonts needed
+#
+@AllFonts = ( \%TitlFont, \%ChapFont, \%HeadFont, \%SubhFont, \%BodyFont,
+    \%BquoFont);
+
+# OK
+1;

data/vendor/repo.or.cz/nasm/doc/pspdf.pl

@@ -0,0 +1,98 @@
+#!/usr/bin/perl
+#
+# Wrapper around a variety of programs that can do PS -> PDF conversion
+#
+
+use strict;
+use File::Spec;
+
+my $compress = 1;
+
+my $win32_ok = eval {
+    require Win32::TieRegistry;
+    Win32::TieRegistry->import();
+    1;
+};
+
+while ($ARGV[0] =~ /^-(.*)$/) {
+    my $opt = $1;
+    shift @ARGV;
+
+    if ($opt eq '-nocompress') {
+        $compress = 0;
+    }
+}
+
+my ($in, $out) = @ARGV;
+
+if (!defined($out)) {
+    die "Usage: $0 [-nocompress] infile ou{ tfile\n";
+}
+
+# If Win32, help GhostScript out with some defaults
+sub win32_gs_help() {
+    return if (!$win32_ok);
+
+    use Sort::Versions;
+    use sort 'stable';
+
+    my $Reg = $::Registry->Open('', {Access => 'KEY_READ', Delimiter => '/'});
+    my $dir;
+    my @gs;
+
+    foreach my $k1 ('HKEY_CURRENT_USER/Software/',
+                    'HKEY_LOCAL_MACHINE/SOFTWARE/') {
+        foreach my $k2 ('Artifex/', '') {
+            foreach my $k3 ('GPL Ghostscript/', 'AFPL Ghostscript/',
+                            'Ghostscript/') {
+                my $r = $Reg->{$k1.$k2.$k3};
+                if (ref($r) eq 'Win32::TieRegistry') {
+                    foreach my $k (keys(%$r)) {
+                        my $rk = $r->{$k};
+                        if (ref($rk) eq 'Win32::TieRegistry' &&
+                            defined($rk->{'/GS_LIB'})) {
+                            push @gs, $rk;
+                        }
+                    }
+                }
+            }
+        }
+    }
+
+    @gs = sort {
+        my($av) = $a->Path =~ m:^.*/([^/]+)/$:;
+        my($bv) = $b->Path =~ m:^.*/([^/]+)/$:;
+        versioncmp($av, $bv);
+    } @gs;
+
+    return unless (scalar(@gs));
+
+    $ENV{'PATH'} .= ';' . $gs[0]->{'/GS_LIB'};
+    $ENV{'GS_FONTPATH'} .= (defined($ENV{'GS_FONTPATH'}) ? ';' : '')
+        . $ENV{'windir'}.'\\fonts';
+}
+
+# Remove output file
+unlink($out);
+
+# 1. Acrobat distiller
+my $r = system('acrodist', '-n', '-q', '--nosecurity', '-o', $out, $in);
+exit 0 if ( !$r && -f $out );
+
+# 2. ps2pdf (from Ghostscript)
+# The -I clause helps Ghostscript pick up the Fontdir file written by findfont.ph
+# GhostScript uses # rather than - to separate options and values on Windows, it seems...
+win32_gs_help();
+my $o = $win32_ok ? '#' : '-';
+my $r = system('ps2pdf', "-dOptimize${o}true", "-dEmbedAllFonts${o}true",
+               "-dCompressPages${o}" . ($compress ? 'true' : 'false'),
+               "-dUseFlateCompression${o}true", $in, $out);
+exit 0 if ( !$r && -f $out );
+
+# 3. pstopdf (BSD/MacOS X utility)
+my $r = system('pstopdf', $in, '-o', $out);
+exit 0 if ( !$r && -f $out );
+
+# Otherwise, fail
+unlink($out);
+exit 1;

data/vendor/repo.or.cz/nasm/doc/pswidth.ph

@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+#
+# Get the width of a PostScript string in PostScript points (1/72")
+# given a set of font metrics and an encoding vector.
+#
+sub ps_width($$$) {
+    my($str, $met, $encoding) = @_;
+    my($w) = 0;
+    my($i,$c,$p);
+
+    $l = length($str);
+    undef $p;
+    for ( $i = 0 ; $i < $l ; $i++ ) {
+	$c = substr($str,$i,1);
+	$w += $$met{widths}{$encoding->[ord($c)]};
+	# The standard PostScript "show" operator doesn't do kerning.
+	# $w += $$met{kern}{$p.$c};
+	$p = $c;
+    }
+    
+    return $w / $met->{scale};
+}
+
+# OK
+1;

data/vendor/repo.or.cz/nasm/doc/rdsrc.pl

@@ -0,0 +1,1111 @@
+#!/usr/bin/perl
+## --------------------------------------------------------------------------
+##
+##   Copyright 1996-2017 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.
+##
+## --------------------------------------------------------------------------
+
+
+# Read the source-form of the NASM manual and generate the various
+# output forms.
+
+# TODO:
+#
+# Ellipsis support would be nice.
+
+# Source-form features:
+# ---------------------
+#
+# Bullet \b
+#   Bullets the paragraph. Rest of paragraph is indented to cope. In
+#   HTML, consecutive groups of bulleted paragraphs become unordered
+#   lists.
+#
+# Indent \>
+#   Indents the paragraph equvalently to a bulleted paragraph.  In HTML,
+#   an indented paragraph following a bulleted paragraph is included in the
+#   same list item.
+#
+# Blockquote \q
+#   Marks the paragraph as a block quote.
+#
+# Emphasis \e{foobar}
+#   produces `_foobar_' in text and italics in HTML, PS, RTF
+#
+# Inline code \c{foobar}
+#   produces ``foobar'' in text, and fixed-pitch font in HTML, PS, RTF
+#
+# Display code
+# \c  line one
+# \c   line two
+#   produces fixed-pitch font where appropriate, and doesn't break
+#   pages except sufficiently far into the middle of a display.
+#
+# Chapter, header and subheader
+# \C{intro} Introduction
+# \H{whatsnasm} What is NASM?
+# \S{free} NASM Is Free
+#   dealt with as appropriate. Chapters begin on new sides, possibly
+#   even new _pages_. (Sub)?headers are good places to begin new
+#   pages. Just _after_ a (sub)?header isn't.
+#   The keywords can be substituted with \K and \k.
+#
+# Keyword \K{cintro} \k{cintro}
+#   Expands to `Chapter 1', `Section 1.1', `Section 1.1.1'. \K has an
+#   initial capital whereas \k doesn't. In HTML, will produce
+#   hyperlinks.
+#
+# Web link \W{http://foobar/}{text} or \W{mailto:me@here}\c{me@here}
+#   the \W prefix is ignored except in HTML; in HTML the last part
+#   becomes a hyperlink to the first part.
+#
+# Literals \{ \} \\
+#   In case it's necessary, they expand to the real versions.
+#
+# Nonbreaking hyphen \-
+#   Need more be said?
+#
+# Source comment \#
+#   Causes everything after it on the line to be ignored by the
+#   source-form processor.
+#
+# Indexable word \i{foobar} (or \i\e{foobar} or \i\c{foobar}, equally)
+#   makes word appear in index, referenced to that point
+#   \i\c comes up in code style even in the index; \i\e doesn't come
+#   up in emphasised style.
+#
+# Indexable non-displayed word \I{foobar} or \I\c{foobar}
+#   just as \i{foobar} except that nothing is displayed for it
+#
+# Index rewrite
+# \IR{foobar} \c{foobar} operator, uses of
+#   tidies up the appearance in the index of something the \i or \I
+#   operator was applied to
+#
+# Index alias
+# \IA{foobar}{bazquux}
+#   aliases one index tag (as might be supplied to \i or \I) to
+#   another, so that \I{foobar} has the effect of \I{bazquux}, and
+#   \i{foobar} has the effect of \I{bazquux}foobar
+#
+# Metadata
+# \M{key}{something}
+#   defines document metadata, such as authorship, title and copyright;
+#   different output formats use this differently.
+#
+# Include subfile
+# \&{filename}
+#  Includes filename. Recursion is allowed.
+#
+
+use File::Spec;
+
+@include_path = ();
+$out_path = File::Spec->curdir();
+
+while ($ARGV[0] =~ /^-/) {
+    my $opt = shift @ARGV;
+    if ($opt eq '-d') {
+	$diag = 1;
+    } elsif ($opt =~ /^\-[Ii](.*)$/) {
+	push(@include_path, $1);
+    } elsif ($opt =~ /^\-[Oo](.*)$/) {
+	$out_path = $1;
+    }
+}
+
+$out_format = shift(@ARGV);
+@files = @ARGV;
+@files = ('-') unless(scalar(@files));
+
+$| = 1;
+
+$tstruct_previtem = $node = "Top";
+$nodes = ($node);
+$tstruct_level{$tstruct_previtem} = 0;
+$tstruct_last[$tstruct_level{$tstruct_previtem}] = $tstruct_previtem;
+$MAXLEVEL = 10;  # really 3, but play safe ;-)
+
+# Read the file; pass a paragraph at a time to the paragraph processor.
+print "Reading input...";
+$pname = "para000000";
+@pnames = @pflags = ();
+$para = undef;
+foreach $file (@files) {
+  &include($file);
+}
+&got_para($para);
+print "done.\n";
+
+# Now we've read in the entire document and we know what all the
+# heading keywords refer to. Go through and fix up the \k references.
+print "Fixing up cross-references...";
+&fixup_xrefs;
+print "done.\n";
+
+# Sort the index tags, according to the slightly odd order I've decided on.
+print "Sorting index tags...";
+&indexsort;
+print "done.\n";
+
+# Make output directory if necessary
+mkdir($out_path);
+
+if ($diag) {
+  print "Writing index-diagnostic file...";
+  &indexdiag;
+  print "done.\n";
+}
+
+# OK. Write out the various output files.
+if ($out_format eq 'txt') {
+    print "Producing text output: ";
+    &write_txt;
+    print "done.\n";
+} elsif ($out_format eq 'html') {
+    print "Producing HTML output: ";
+    &write_html;
+    print "done.\n";
+} elsif ($out_format eq 'dip') {
+    print "Producing Documentation Intermediate Paragraphs: ";
+    &write_dip;
+    print "done.\n";
+} else {
+    die "$0: unknown output format: $out_format\n";
+}
+
+sub untabify($) {
+  my($s) = @_;
+  my $o = '';
+  my($c, $i, $p);
+
+  $p = 0;
+  for ($i = 0; $i < length($s); $i++) {
+    $c = substr($s, $i, 1);
+    if ($c eq "\t") {
+      do {
+	$o .= ' ';
+	$p++;
+      } while ($p & 7);
+    } else {
+      $o .= $c;
+      $p++;
+    }
+  }
+  return $o;
+}
+sub read_line {
+  local $_ = shift;
+  $_ = &untabify($_);
+  if (/\\& (\S+)/) {
+     &include($1);
+  } else {
+     &get_para($_);
+  }
+}
+sub get_para($_) {
+  chomp;
+  if (!/\S/ || /^\\(IA|IR|M)/) { # special case: \IA \IR \M imply new-paragraph
+    &got_para($para);
+    $para = undef;
+  }
+  if (/\S/) {
+    s/(^|[^\\])\\#.*$/\1/; # strip comments
+    $para .= " " . $_;
+  }
+}
+sub include {
+  my $name = shift;
+  my $F;
+
+  if ($name eq '-') {
+    open($F, '<-');		# stdin
+  } else {
+    my $found = 0;
+    foreach my $idir ( File::Spec->curdir, @include_path ) {
+	my $fpath = File::Spec->catfile($idir, $name);
+      if (open($F, '<', $fpath)) {
+	$found = 1;
+	last;
+      }
+    }
+    die "Cannot open $name: $!\n" unless ($found);
+  }
+  while (defined($_ = <$F>)) {
+     &read_line($_);
+  }
+  close($F);
+}
+sub got_para {
+  local ($_) = @_;
+  my $pflags = "", $i, $w, $l, $t;
+  return if !/\S/;
+
+  @$pname = ();
+
+  # Strip off _leading_ spaces, then determine type of paragraph.
+  s/^\s*//;
+  $irewrite = undef;
+  if (/^\\c[^{]/) {
+    # A code paragraph. The paragraph-array will contain the simple
+    # strings which form each line of the paragraph.
+    $pflags = "code";
+    while (/^\\c (([^\\]|\\[^c])*)(.*)$/) {
+      $l = $1;
+      $_ = $3;
+      $l =~ s/\\\{/\{/g;
+      $l =~ s/\\\}/}/g;
+      $l =~ s/\\\\/\\/g;
+      push @$pname, $l;
+    }
+    $_ = ''; # suppress word-by-word code
+  } elsif (/^\\C/) {
+    # A chapter heading. Define the keyword and allocate a chapter
+    # number.
+    $cnum++;
+    $hnum = 0;
+    $snum = 0;
+    $xref = "chapter-$cnum";
+    $pflags = "chap $cnum :$xref";
+    die "badly formatted chapter heading: $_\n" if !/^\\C\{([^\}]*)\}\s*(.*)$/;
+    $refs{$1} = "chapter $cnum";
+    $node = "Chapter $cnum";
+    &add_item($node, 1);
+    $xrefnodes{$node} = $xref; $nodexrefs{$xref} = $node;
+    $xrefs{$1} = $xref;
+    $_ = $2;
+    # the standard word-by-word code will happen next
+  } elsif (/^\\A/) {
+    # An appendix heading. Define the keyword and allocate an appendix
+    # letter.
+    $cnum++;
+    $cnum = 'A' if $cnum =~ /[0-9]+/;
+    $hnum = 0;
+    $snum = 0;
+    $xref = "appendix-$cnum";
+    $pflags = "appn $cnum :$xref";
+    die "badly formatted appendix heading: $_\n" if !/^\\A\{([^\}]*)}\s*(.*)$/;
+    $refs{$1} = "appendix $cnum";
+    $node = "Appendix $cnum";
+    &add_item($node, 1);
+    $xrefnodes{$node} = $xref; $nodexrefs{$xref} = $node;
+    $xrefs{$1} = $xref;
+    $_ = $2;
+    # the standard word-by-word code will happen next
+  } elsif (/^\\H/) {
+    # A major heading. Define the keyword and allocate a section number.
+    $hnum++;
+    $snum = 0;
+    $xref = "section-$cnum.$hnum";
+    $pflags = "head $cnum.$hnum :$xref";
+    die "badly formatted heading: $_\n" if !/^\\[HP]{([^\}]*)}\s*(.*)$/;
+    $refs{$1} = "section $cnum.$hnum";
+    $node = "Section $cnum.$hnum";
+    &add_item($node, 2);
+    $xrefnodes{$node} = $xref; $nodexrefs{$xref} = $node;
+    $xrefs{$1} = $xref;
+    $_ = $2;
+    # the standard word-by-word code will happen next
+  } elsif (/^\\S/) {
+    # A sub-heading. Define the keyword and allocate a section number.
+    $snum++;
+    $xref = "section-$cnum.$hnum.$snum";
+    $pflags = "subh $cnum.$hnum.$snum :$xref";
+    die "badly formatted subheading: $_\n" if !/^\\S\{([^\}]*)\}\s*(.*)$/;
+    $refs{$1} = "section $cnum.$hnum.$snum";
+    $node = "Section $cnum.$hnum.$snum";
+    &add_item($node, 3);
+    $xrefnodes{$node} = $xref; $nodexrefs{$xref} = $node;
+    $xrefs{$1} = $xref;
+    $_ = $2;
+    # the standard word-by-word code will happen next
+  } elsif (/^\\IR/) {
+    # An index-rewrite.
+    die "badly formatted index rewrite: $_\n" if !/^\\IR\{([^\}]*)\}\s*(.*)$/;
+    $irewrite = $1;
+    $_ = $2;
+    # the standard word-by-word code will happen next
+  } elsif (/^\\IA/) {
+    # An index-alias.
+    die "badly formatted index alias: $_\n" if !/^\\IA\{([^\}]*)}\{([^\}]*)\}\s*$/;
+    $idxalias{$1} = $2;
+    return; # avoid word-by-word code
+  } elsif (/^\\M/) {
+    # Metadata
+    die "badly formed metadata: $_\n" if !/^\\M\{([^\}]*)}\{([^\}]*)\}\s*$/;
+    $metadata{$1} = $2;
+    return; # avoid word-by-word code
+  } elsif (/^\\([b\>q])/) {
+    # An indented paragraph of some sort. Strip off the initial \b and let the
+      # word-by-word code take care of the rest.
+      my %ipar = (
+	  'b' => 'bull',
+	  '>' => 'indt',
+	  'q' => 'bquo',
+	  );
+    $pflags = $ipar{$1};
+    s/^\\[b\>q]\s*//;
+  } else {
+    # A normal paragraph. Just set $pflags: the word-by-word code does
+    # the rest.
+    $pflags = "norm";
+  }
+
+  # The word-by-word code: unless @$pname is already defined (which it
+  # will be in the case of a code paragraph), split the paragraph up
+  # into words and push each on @$pname.
+  #
+  # Each thing pushed on @$pname should have a two-character type
+  # code followed by the text.
+  #
+  # Type codes are:
+  # "n " for normal
+  # "da" for an en dash
+  # "dm" for an em desh
+  # "es" for first emphasised word in emphasised bit
+  # "e " for emphasised in mid-emphasised-bit
+  # "ee" for last emphasised word in emphasised bit
+  # "eo" for single (only) emphasised word
+  # "c " for code
+  # "k " for cross-ref
+  # "kK" for capitalised cross-ref
+  # "w " for Web link
+  # "wc" for code-type Web link
+  # "x " for beginning of resolved cross-ref; generates no visible output,
+  #      and the text is the cross-reference code
+  # "xe" for end of resolved cross-ref; text is same as for "x ".
+  # "i " for point to be indexed: the text is the internal index into the
+  #      index-items arrays
+  # "sp" for space
+  while (/\S/) {
+    s/^\s*//, push @$pname, "sp" if /^\s/;
+    $indexing = $qindex = 0;
+    if (/^(\\[iI])?\\c/) {
+      $qindex = 1 if $1 eq "\\I";
+      $indexing = 1, s/^\\[iI]// if $1;
+      s/^\\c//;
+      die "badly formatted \\c: \\c$_\n" if !/\{(([^\\}]|\\.)*)\}(.*)$/;
+      $w = $1;
+      $_ = $3;
+      $w =~ s/\\\{/\{/g;
+      $w =~ s/\\\}/\}/g;
+      $w =~ s/\\-/-/g;
+      $w =~ s/\\\\/\\/g;
+      (push @$pname,"i"),$lastp = $#$pname if $indexing;
+      push @$pname,"c $w" if !$qindex;
+      $$pname[$lastp] = &addidx($node, $w, "c $w") if $indexing;
+    } elsif (/^\\[iIe]/) {
+      /^(\\[iI])?(\\e)?/;
+      $emph = 0;
+      $qindex = 1 if $1 eq "\\I";
+      $indexing = 1, $type = "\\i" if $1;
+      $emph = 1, $type = "\\e" if $2;
+      s/^(\\[iI])?(\\e?)//;
+      die "badly formatted $type: $type$_\n" if !/\{(([^\\}]|\\.)*)\}(.*)$/;
+      $w = $1;
+      $_ = $3;
+      $w =~ s/\\\{/\{/g;
+      $w =~ s/\\\}/\}/g;
+      $w =~ s/\\-/-/g;
+      $w =~ s/\\\\/\\/g;
+      $t = $emph ? "es" : "n ";
+      @ientry = ();
+      (push @$pname,"i"),$lastp = $#$pname if $indexing;
+      foreach $i (split /\s+/,$w) {  # \e and \i can be multiple words
+        push @$pname,"$t$i","sp" if !$qindex;
+	($ii=$i) =~ tr/A-Z/a-z/, push @ientry,"n $ii","sp" if $indexing;
+	$t = $emph ? "e " : "n ";
+      }
+      $w =~ tr/A-Z/a-z/, pop @ientry if $indexing;
+      $$pname[$lastp] = &addidx($node, $w, @ientry) if $indexing;
+      pop @$pname if !$qindex; # remove final space
+      if (substr($$pname[$#$pname],0,2) eq "es" && !$qindex) {
+        substr($$pname[$#$pname],0,2) = "eo";
+      } elsif ($emph && !$qindex) {
+        substr($$pname[$#$pname],0,2) = "ee";
+      }
+    } elsif (/^\\[kK]/) {
+      $t = "k ";
+      $t = "kK" if /^\\K/;
+      s/^\\[kK]//;
+      die "badly formatted \\k: \\k$_\n" if !/\{([^\}]*)\}(.*)$/;
+      $_ = $2;
+      push @$pname,"$t$1";
+    } elsif (/^\\W/) {
+      s/^\\W//;
+      die "badly formatted \\W: \\W$_\n"
+          if !/\{([^\}]*)\}(\\i)?(\\c)?\{(([^\\}]|\\.)*)\}(.*)$/;
+      $l = $1;
+      $w = $4;
+      $_ = $6;
+      $t = "w ";
+      $t = "wc" if $3 eq "\\c";
+      $indexing = 1 if $2;
+      $w =~ s/\\\{/\{/g;
+      $w =~ s/\\\}/\}/g;
+      $w =~ s/\\-/-/g;
+      $w =~ s/\\\\/\\/g;
+      (push @$pname,"i"),$lastp = $#$pname if $indexing;
+      push @$pname,"$t<$l>$w";
+      $$pname[$lastp] = &addidx($node, $w, "c $w") if $indexing;
+    } else {
+      die "what the hell? $_\n" if !/^(([^\s\\\-]|\\[\\{}\-])*-?)(.*)$/;
+      die "painful death! $_\n" if !length $1;
+      $w = $1;
+      $_ = $3;
+      $w =~ s/\\\{/\{/g;
+      $w =~ s/\\\}/\}/g;
+      $w =~ s/\\-/-/g;
+      $w =~ s/\\\\/\\/g;
+      if ($w eq '--') {
+	  push @$pname, 'dm';
+      } elsif ($w eq '-') {
+        push @$pname, 'da';
+      } else {
+        push @$pname,"n $w";
+      }
+    }
+  }
+  if ($irewrite ne undef) {
+    &addidx(undef, $irewrite, @$pname);
+    @$pname = ();
+  } else {
+    push @pnames, $pname;
+    push @pflags, $pflags;
+    $pname++;
+  }
+}
+
+sub addidx {
+  my ($node, $text, @ientry) = @_;
+  $text = $idxalias{$text} || $text;
+  if ($node eq undef || !$idxmap{$text}) {
+    @$ientry = @ientry;
+    $idxmap{$text} = $ientry;
+    $ientry++;
+  }
+  if ($node) {
+    $idxnodes{$node,$text} = 1;
+    return "i $text";
+  }
+}
+
+sub indexsort {
+  my $iitem, $ientry, $i, $piitem, $pcval, $cval, $clrcval;
+
+  @itags = map { # get back the original data as the 1st elt of each list
+             $_->[0]
+	   } sort { # compare auxiliary (non-first) elements of lists
+	     $a->[1] cmp $b->[1] ||
+	     $a->[2] cmp $b->[2] ||
+	     $a->[0] cmp $b->[0]
+           } map { # transform array into list of 3-element lists
+	     my $ientry = $idxmap{$_};
+	     my $a = substr($$ientry[0],2);
+	     $a =~ tr/A-Za-z0-9//cd;
+	     [$_, uc($a), substr($$ientry[0],0,2)]
+	   } keys %idxmap;
+
+  # Having done that, check for comma-hood.
+  $cval = 0;
+  foreach $iitem (@itags) {
+    $ientry = $idxmap{$iitem};
+    $clrcval = 1;
+    $pcval = $cval;
+    FL:for ($i=0; $i <= $#$ientry; $i++) {
+      if ($$ientry[$i] =~ /^(n .*,)(.*)/) {
+        $$ientry[$i] = $1;
+	splice @$ientry,$i+1,0,"n $2" if length $2;
+	$commapos{$iitem} = $i+1;
+	$cval = join("\002", @$ientry[0..$i]);
+	$clrcval = 0;
+	last FL;
+      }
+    }
+    $cval = undef if $clrcval;
+    $commanext{$iitem} = $commaafter{$piitem} = 1
+      if $cval and ($cval eq $pcval);
+    $piitem = $iitem;
+  }
+}
+
+sub indexdiag {
+  my $iitem,$ientry,$w,$ww,$foo,$node;
+  open INDEXDIAG, '>', File::Spec->catfile($out_path, 'index.diag');
+  foreach $iitem (@itags) {
+    $ientry = $idxmap{$iitem};
+    print INDEXDIAG "<$iitem> ";
+    foreach $w (@$ientry) {
+      $ww = &word_txt($w);
+      print INDEXDIAG $ww unless $ww eq "\001";
+    }
+    print INDEXDIAG ":";
+    $foo = " ";
+    foreach $node (@nodes) {
+      (print INDEXDIAG $foo,$node), $foo = ", " if $idxnodes{$node,$iitem};
+    }
+    print INDEXDIAG "\n";
+  }
+  close INDEXDIAG;
+}
+
+sub fixup_xrefs {
+  my $pname, $p, $i, $j, $k, $caps, @repl;
+
+  for ($p=0; $p<=$#pnames; $p++) {
+    next if $pflags[$p] eq "code";
+    $pname = $pnames[$p];
+    for ($i=$#$pname; $i >= 0; $i--) {
+      if ($$pname[$i] =~ /^k/) {
+        $k = $$pname[$i];
+        $caps = ($k =~ /^kK/);
+	$k = substr($k,2);
+        $repl = $refs{$k};
+	die "undefined keyword `$k'\n" unless $repl;
+	substr($repl,0,1) =~ tr/a-z/A-Z/ if $caps;
+	@repl = ();
+	push @repl,"x $xrefs{$k}";
+	foreach $j (split /\s+/,$repl) {
+	  push @repl,"n $j";
+	  push @repl,"sp";
+	}
+	pop @repl; # remove final space
+	push @repl,"xe$xrefs{$k}";
+	splice @$pname,$i,1,@repl;
+      }
+    }
+  }
+}
+
+sub write_txt {
+  # This is called from the top level, so I won't bother using
+  # my or local.
+
+  # Open file.
+  print "writing file...";
+  open TEXT, '>', File::Spec->catfile($out_path, 'nasmdoc.txt');
+  select TEXT;
+
+  # Preamble.
+  $title = $metadata{'title'};
+  $spaces = ' ' x ((75-(length $title))/2);
+  ($underscore = $title) =~ s/./=/g;
+  print "$spaces$title\n$spaces$underscore\n";
+
+  for ($para = 0; $para <= $#pnames; $para++) {
+    $pname = $pnames[$para];
+    $pflags = $pflags[$para];
+    $ptype = substr($pflags,0,4);
+
+    print "\n"; # always one of these before a new paragraph
+
+    if ($ptype eq "chap") {
+      # Chapter heading. "Chapter N: Title" followed by a line of
+      # minus signs.
+      $pflags =~ /chap (.*) :(.*)/;
+      $title = "Chapter $1: ";
+      foreach $i (@$pname) {
+        $ww = &word_txt($i);
+        $title .= $ww unless $ww eq "\001";
+      }
+      print "$title\n";
+      $title =~ s/./-/g;
+      print "$title\n";
+    } elsif ($ptype eq "appn") {
+      # Appendix heading. "Appendix N: Title" followed by a line of
+      # minus signs.
+      $pflags =~ /appn (.*) :(.*)/;
+      $title = "Appendix $1: ";
+      foreach $i (@$pname) {
+        $ww = &word_txt($i);
+        $title .= $ww unless $ww eq "\001";
+      }
+      print "$title\n";
+      $title =~ s/./-/g;
+      print "$title\n";
+    } elsif ($ptype eq "head" || $ptype eq "subh") {
+      # Heading or subheading. Just a number and some text.
+      $pflags =~ /.... (.*) :(.*)/;
+      $title = sprintf "%6s ", $1;
+      foreach $i (@$pname) {
+        $ww = &word_txt($i);
+        $title .= $ww unless $ww eq "\001";
+      }
+      print "$title\n";
+    } elsif ($ptype eq "code") {
+      # Code paragraph. Emit each line with a seven character indent.
+      foreach $i (@$pname) {
+        warn "code line longer than 68 chars: $i\n" if length $i > 68;
+        print ' 'x7, $i, "\n";
+      }
+    } elsif ($ptype =~ /^(norm|bull|indt|bquo)$/) {
+      # Ordinary paragraph, optionally indented. We wrap, with ragged
+      # 75-char right margin and either 7 or 11 char left margin
+      # depending on bullets.
+      if ($ptype ne 'norm') {
+	  $line = ' 'x7 . (($ptype eq 'bull') ? '(*) ' : '    ');
+	  $next = ' 'x11;
+      } else {
+        $line = $next = ' 'x7;
+      }
+      @a = @$pname;
+      $wd = $wprev = '';
+      do {
+        do { $w = &word_txt(shift @a) } while $w eq "\001"; # nasty hack
+	$wd .= $wprev;
+	if ($wprev =~ /-$/ || $w eq ' ' || $w eq '' || $w eq undef) {
+	  if (length ($line . $wd) > 75) {
+	    $line =~ s/\s*$//; # trim trailing spaces
+	    print "$line\n";
+	    $line = $next;
+	    $wd =~ s/^\s*//; # trim leading spaces
+	  }
+	  $line .= $wd;
+	  $wd = '';
+	}
+	$wprev = $w;
+      } while ($w ne '' && $w ne undef);
+      if ($line =~ /\S/) {
+	$line =~ s/\s*$//; # trim trailing spaces
+	print "$line\n";
+      }
+    }
+  }
+
+  # Close file.
+  select STDOUT;
+  close TEXT;
+}
+
+sub word_txt {
+  my ($w) = @_;
+  my $wtype, $wmajt;
+
+  return undef if $w eq '' || $w eq undef;
+  $wtype = substr($w,0,2);
+  $wmajt = substr($wtype,0,1);
+  $w = substr($w,2);
+  $w =~ s/<.*>// if $wmajt eq "w"; # remove web links
+  if ($wmajt eq "n" || $wtype eq "e " || $wtype eq "w ") {
+    return $w;
+  } elsif ($wtype eq "sp") {
+    return ' ';
+  } elsif ($wtype eq 'da' || $wtype eq 'dm') {
+    return '-';
+  } elsif ($wmajt eq "c" || $wtype eq "wc") {
+    return "`${w}'";
+  } elsif ($wtype eq "es") {
+    return "_${w}";
+  } elsif ($wtype eq "ee") {
+    return "${w}_";
+  } elsif ($wtype eq "eo") {
+    return "_${w}_";
+  } elsif ($wmajt eq "x" || $wmajt eq "i") {
+    return "\001";
+  } else {
+    die "panic in word_txt: $wtype$w\n";
+  }
+}
+
+sub write_html {
+  # This is called from the top level, so I won't bother using
+  # my or local.
+
+  # Write contents file. Just the preamble, then a menu of links to the
+  # separate chapter files and the nodes therein.
+  print "writing contents file...";
+  open TEXT, '>', File::Spec->catfile($out_path, 'nasmdoc0.html');
+  select TEXT;
+  &html_preamble(0);
+  print "<p>This manual documents NASM, the Netwide Assembler: an assembler\n";
+  print "targetting the Intel x86 series of processors, with portable source.\n</p>";
+  print "<div class=\"toc\">\n";
+  $level = 0;
+  for ($node = $tstruct_next{'Top'}; $node; $node = $tstruct_next{$node}) {
+      my $lastlevel = $level;
+      while ($tstruct_level{$node} < $level) {
+	  print "</li>\n</ol>\n";
+	  $level--;
+      }
+      while ($tstruct_level{$node} > $level) {
+	  print "<ol class=\"toc", ++$level, "\">\n";
+      }
+      if ($lastlevel >= $level) {
+	  print "</li>\n";
+      }
+      $level = $tstruct_level{$node};
+      if ($level == 1) {
+      # Invent a file name.
+	  ($number = lc($xrefnodes{$node})) =~ s/.*-//;
+	  $fname="nasmdocx.html";
+	  substr($fname,8 - length $number, length $number) = $number;
+	  $html_fnames{$node} = $fname;
+	  $link = $fname;
+      } else {
+	  # Use the preceding filename plus a marker point.
+	  $link = $fname . "#$xrefnodes{$node}";
+      }
+      $title = '';
+      $pname = $tstruct_pname{$node};
+      foreach $i (@$pname) {
+	  $ww = &word_html($i);
+	  $title .= $ww unless $ww eq "\001";
+      }
+      print "<li class=\"toc${level}\">\n";
+      print "<span class=\"node\">$node: </span><a href=\"$link\">$title</a>\n";
+  }
+  while ($level--) {
+      print "</li>\n</ol>\n";
+  }
+  print "</div>\n";
+  print "</body>\n";
+  print "</html>\n";
+  select STDOUT;
+  close TEXT;
+
+  # Open a null file, to ensure output (eg random &html_jumppoints calls)
+  # goes _somewhere_.
+  print "writing chapter files...";
+  open TEXT, '>', File::Spec->devnull();
+  select TEXT;
+  undef $html_nav_last;
+  undef $html_nav_next;
+
+  $in_list = 0;
+  $in_bquo = 0;
+  $in_code = 0;
+
+  for ($para = 0; $para <= $#pnames; $para++) {
+    $pname = $pnames[$para];
+    $pflags = $pflags[$para];
+    $ptype = substr($pflags,0,4);
+
+    $in_code = 0, print "</pre>\n" if ($in_code && $ptype ne 'code');
+    $in_list = 0, print "</li>\n</ul>\n" if ($in_list && $ptype !~ /^(bull|indt|code)$/);
+    $in_bquo = 0, print "</blockquote>\n" if ($in_bquo && $ptype ne 'bquo');
+
+    $endtag = '';
+
+    if ($ptype eq "chap") {
+      # Chapter heading. Begin a new file.
+      $pflags =~ /chap (.*) :(.*)/;
+      $title = "Chapter $1: ";
+      $xref = $2;
+      &html_postamble; select STDOUT; close TEXT;
+      $html_nav_last = $chapternode;
+      $chapternode = $nodexrefs{$xref};
+      $html_nav_next = $tstruct_mnext{$chapternode};
+      open(TEXT, '>', File::Spec->catfile($out_path, $html_fnames{$chapternode}));
+      select TEXT;
+      &html_preamble(1);
+      foreach $i (@$pname) {
+        $ww = &word_html($i);
+        $title .= $ww unless $ww eq "\001";
+      }
+      $h = "<h2 id=\"$xref\">$title</h2>\n";
+      print $h; print FULL $h;
+    } elsif ($ptype eq "appn") {
+      # Appendix heading. Begin a new file.
+      $pflags =~ /appn (.*) :(.*)/;
+      $title = "Appendix $1: ";
+      $xref = $2;
+      &html_postamble; select STDOUT; close TEXT;
+      $html_nav_last = $chapternode;
+      $chapternode = $nodexrefs{$xref};
+      $html_nav_next = $tstruct_mnext{$chapternode};
+      open(TEXT, '>', File::Spec->catfile($out_path, $html_fnames{$chapternode}));
+      select TEXT;
+      &html_preamble(1);
+      foreach $i (@$pname) {
+        $ww = &word_html($i);
+        $title .= $ww unless $ww eq "\001";
+      }
+      print "<h2 id=\"$xref\">$title</h2>\n";
+    } elsif ($ptype eq "head" || $ptype eq "subh") {
+      # Heading or subheading.
+      $pflags =~ /.... (.*) :(.*)/;
+      $hdr = ($ptype eq "subh" ? "h4" : "h3");
+      $title = $1 . " ";
+      $xref = $2;
+      foreach $i (@$pname) {
+        $ww = &word_html($i);
+        $title .= $ww unless $ww eq "\001";
+      }
+      print "<$hdr id=\"$xref\">$title</$hdr>\n";
+    } elsif ($ptype eq "code") {
+	# Code paragraph.
+	$in_code = 1, print "<pre>" unless $in_code;
+	print "\n";
+	foreach $i (@$pname) {
+	    $w = $i;
+	    $w =~ s/&/&amp;/g;
+	    $w =~ s/</&lt;/g;
+	    $w =~ s/>/&gt;/g;
+	    print $w, "\n";
+	}
+    } elsif ($ptype =~ /^(norm|bull|indt|bquo)$/) {
+      # Ordinary paragraph, optionally indented.
+	if ($ptype eq 'bull') {
+	    if (!$in_list) {
+		$in_list = 1;
+		print "<ul>\n";
+	    } else {
+		print "</li>\n";
+	    }
+	    print "<li>\n";
+	    $line = '<p>';
+	    $endtag = '</p>';
+      } elsif ($ptype eq 'indt') {
+	  if (!$in_list) {
+	      $in_list = 1;
+	      print "<ul>\n";
+	      print "<li class=\"indt\">\n"; # This is such a hack
+	  }
+	  $line = '<p>';
+	  $endtag = '</p>';
+      } elsif ($ptype eq 'bquo') {
+	  $in_bquo = 1, print "<blockquote>\n" unless $in_bquo;
+	  $line = '<p>';
+	  $endtag = '</p>';
+      } else {
+        $line = '<p>';
+        $endtag = '</p>';
+      }
+      @a = @$pname;
+      $wd = $wprev = '';
+      do {
+        do { $w = &word_html(shift @a) } while $w eq "\001"; # nasty hack
+	$wd .= $wprev;
+	if ($w eq ' ' || $w eq '' || $w eq undef) {
+	  if (length ($line . $wd) > 75) {
+	    $line =~ s/\s*$//; # trim trailing spaces
+	    print "$line\n";
+	    $line = '';
+	    $wd =~ s/^\s*//; # trim leading spaces
+	  }
+	  $line .= $wd;
+	  $wd = '';
+	}
+	$wprev = $w;
+      } while ($w ne '' && $w ne undef);
+      if ($line =~ /\S/) {
+	$line =~ s/\s*$//; # trim trailing spaces
+	print $line;
+      }
+      print $endtag, "\n";
+    }
+  }
+
+  # Close whichever file was open.
+  print "</pre>\n" if ($in_code);
+  print "</li>\n</ul>\n" if ($in_list);
+  print "</blockquote>\n" if ($in_bquo);
+  &html_postamble; select STDOUT; close TEXT;
+
+  print "\n   writing index file...";
+  open TEXT, '>', File::Spec->catfile($out_path, 'nasmdoci.html');
+  select TEXT;
+  &html_preamble(0);
+  print "<h2 class=\"index\">Index</h2>\n";
+  print "<ul class=\"index\">\n";
+  &html_index;
+  print "</ul>\n</body>\n</html>\n";
+  select STDOUT;
+  close TEXT;
+}
+
+sub html_preamble {
+    print "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"no\" ?>\n";
+    print "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.1//EN\" ";
+    print "\"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd\">\n";
+    print "<html xmlns=\"http://www.w3.org/1999/xhtml\">\n";
+    print "<head>\n";
+    print "<title>", $metadata{'title'}, "</title>\n";
+    print "<link href=\"nasmdoc.css\" rel=\"stylesheet\" type=\"text/css\" />\n";
+    print "<link href=\"local.css\" rel=\"stylesheet\" type=\"text/css\" />\n";
+    print "</head>\n";
+    print "<body>\n";
+
+    # Navigation bar
+    print "<ul class=\"navbar\">\n";
+    if (defined($html_nav_last)) {
+	my $lastf = $html_fnames{$html_nav_last};
+	print "<li class=\"first\"><a class=\"prev\" href=\"$lastf\">$html_nav_last</a></li>\n";
+    }
+    if (defined($html_nav_next)) {
+	my $nextf = $html_fnames{$html_nav_next};
+	print "<li><a class=\"next\" href=\"$nextf\">$html_nav_next</a></li>\n";
+    }
+    print "<li><a class=\"toc\" href=\"nasmdoc0.html\">Contents</a></li>\n";
+    print "<li class=\"last\"><a class=\"index\" href=\"nasmdoci.html\">Index</a></li>\n";
+    print "</ul>\n";
+
+    print "<div class=\"title\">\n";
+    print "<h1>", $metadata{'title'}, "</h1>\n";
+    print '<span class="subtitle">', $metadata{'subtitle'}, "</span>\n";
+    print "</div>\n";
+    print "<div class=\"contents\"\n>\n";
+}
+
+sub html_postamble {
+    # Common closing tags
+    print "</div>\n</body>\n</html>\n";
+}
+
+sub html_index {
+  my $itag, $a, @ientry, $sep, $w, $wd, $wprev, $line;
+
+  $chapternode = '';
+  foreach $itag (@itags) {
+    $ientry = $idxmap{$itag};
+    @a = @$ientry;
+    push @a, "n :";
+    $sep = 0;
+    foreach $node (@nodes) {
+      next if !$idxnodes{$node,$itag};
+      push @a, "n ," if $sep;
+      push @a, "sp", "x $xrefnodes{$node}", "n $node", "xe$xrefnodes{$node}";
+      $sep = 1;
+    }
+    print "<li class=\"index\">\n";
+    $line = '';
+    do {
+      do { $w = &word_html(shift @a) } while $w eq "\001"; # nasty hack
+      $wd .= $wprev;
+      if ($w eq ' ' || $w eq '' || $w eq undef) {
+        if (length ($line . $wd) > 75) {
+	  $line =~ s/\s*$//; # trim trailing spaces
+	  print "$line\n";
+	  $line = '';
+	  $wd =~ s/^\s*//; # trim leading spaces
+	}
+	$line .= $wd;
+	$wd = '';
+      }
+      $wprev = $w;
+    } while ($w ne '' && $w ne undef);
+    if ($line =~ /\S/) {
+      $line =~ s/\s*$//; # trim trailing spaces
+      print $line, "\n";
+    }
+    print "</li>\n";
+  }
+}
+
+sub word_html {
+  my ($w) = @_;
+  my $wtype, $wmajt, $pfx, $sfx;
+
+  return undef if $w eq '' || $w eq undef;
+
+  $wtype = substr($w,0,2);
+  $wmajt = substr($wtype,0,1);
+  $w = substr($w,2);
+  $pfx = $sfx = '';
+  $pfx = "<a href=\"$1\">", $sfx = "</a>", $w = $2
+    if $wmajt eq "w" && $w =~ /^<(.*)>(.*)$/;
+  $w =~ s/&/&amp;/g;
+  $w =~ s/</&lt;/g;
+  $w =~ s/>/&gt;/g;
+  if ($wmajt eq "n" || $wtype eq "e " || $wtype eq "w ") {
+    return $pfx . $w . $sfx;
+  } elsif ($wtype eq "sp") {
+    return ' ';
+  } elsif ($wtype eq "da") {
+    return '&ndash;';
+  } elsif ($wtype eq "dm") {
+    return '&mdash;';
+  } elsif ($wmajt eq "c" || $wtype eq "wc") {
+    return $pfx . "<code>${w}</code>" . $sfx;
+  } elsif ($wtype eq "es") {
+    return "<em>${w}";
+  } elsif ($wtype eq "ee") {
+    return "${w}</em>";
+  } elsif ($wtype eq "eo") {
+    return "<em>${w}</em>";
+  } elsif ($wtype eq "x ") {
+    # Magic: we must resolve the cross reference into file and marker
+    # parts, then dispose of the file part if it's us, and dispose of
+    # the marker part if the cross reference describes the top node of
+    # another file.
+    my $node = $nodexrefs{$w}; # find the node we're aiming at
+    my $level = $tstruct_level{$node}; # and its level
+    my $up = $node, $uplev = $level-1;
+    $up = $tstruct_up{$up} while $uplev--; # get top node of containing file
+    my $file = ($up ne $chapternode) ? $html_fnames{$up} : "";
+    my $marker = ($level == 1 and $file) ? "" : "#$w";
+    return "<a href=\"$file$marker\">";
+  } elsif ($wtype eq "xe") {
+    return "</a>";
+  } elsif ($wmajt eq "i") {
+    return "\001";
+  } else {
+    die "panic in word_html: $wtype$w\n";
+  }
+}
+
+# Make tree structures. $tstruct_* is top-level and global.
+sub add_item {
+  my ($item, $level) = @_;
+  my $i;
+
+  $tstruct_pname{$item} = $pname;
+  $tstruct_next{$tstruct_previtem} = $item;
+  $tstruct_prev{$item} = $tstruct_previtem;
+  $tstruct_level{$item} = $level;
+  $tstruct_up{$item} = $tstruct_last[$level-1];
+  $tstruct_mnext{$tstruct_last[$level]} = $item;
+  $tstruct_last[$level] = $item;
+  for ($i=$level+1; $i<$MAXLEVEL; $i++) { $tstruct_last[$i] = undef; }
+  $tstruct_previtem = $item;
+  push @nodes, $item;
+}
+
+#
+# This produces documentation intermediate paragraph format; this is
+# basically the digested output of the front end.  Intended for use
+# by future backends, instead of putting it all in the same script.
+#
+sub write_dip {
+  open(PARAS, '>', File::Spec->catfile($out_path, 'nasmdoc.dip'));
+  foreach $k (sort(keys(%metadata))) {
+      print PARAS 'meta :', $k, "\n";
+      print PARAS $metadata{$k},"\n";
+  }
+  for ($para = 0; $para <= $#pnames; $para++) {
+      print PARAS $pflags[$para], "\n";
+      print PARAS join("\037", @{$pnames[$para]}, "\n");
+  }
+  foreach $k (@itags) {
+      print PARAS 'indx :', $k, "\n";
+      print PARAS join("\037", @{$idxmap{$k}}), "\n";
+  }
+  close(PARAS);
+}