[Nasm-cvs] nasm/doc rdsrc.pl,1.4,1.5

[<hp...@us...>]

Update of /cvsroot/nasm/nasm/doc
In directory usw-pr-cvs1:/tmp/cvs-serv23094

Modified Files:
	rdsrc.pl 
Log Message:
Fix the positioning of the page number in the table of contents


Index: rdsrc.pl
===================================================================
RCS file: /cvsroot/nasm/nasm/doc/rdsrc.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- rdsrc.pl	4 May 2002 14:16:20 -0000	1.4
+++ rdsrc.pl	7 May 2002 05:50:14 -0000	1.5
@@ -959,6 +959,9 @@
   $lnamei = "idx" . $lname;
   @lnames = @ltypes = ();
 
+  $linewidth = 468;		# ADJUSTABLE: width of a normal text line
+  $bulletadj = 12;		# ADJUSTABLE: space for a bullet
+
   for ($para = 0; $para <= $#pnames; $para++) {
     $pname = $pnames[$para];
     $pflags = $pflags[$para];
@@ -1033,13 +1036,13 @@
       # 75-char right margin and either 7 or 11 char left margin
       # depending on bullets.
       if ($ptype eq "bull") {
-        $width = 456; # leave 12-pt left indent for the bullet
+	$width = $linewidth - $bulletadj;
 	$type = $begtype = "bbeg";
 	$bodytype = "bbdy";
 	$onetype = "bone";
 	$endtype = "bend";
       } else {
-        $width = 468;
+	$width = $linewidth;
 	$type = $begtype = "nbeg";
 	$bodytype = "nbdy";
 	$onetype = "none";
@@ -1457,7 +1460,7 @@
       i yy moveto (.) linkshow
     } if
   } for
-  ss linkshow
+  ex yy moveto ss linkshow
   linkend
 } def
 /just { /w exch def /y exch def /a exch def