|
From: <hp...@us...> - 2002-05-07 05:50:17
|
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
|