doc/head.ps

   1 % $Id$
   2 %
   3 % PostScript header for NASM documentation
   4 %
   5
   6 % Avoid barfing on old PS implementations
   7 /pdfmark where
   8 {pop} {userdict /pdfmark /cleartomark load put} ifelse
   9 /setpagedevice where
  10 {pop} {userdict /setpagedevice /pop load put} ifelse
  11
  12 % Useful definition
  13 /space 32 def
  14
  15 %
  16 % This asks the PostScript interpreter for the proper size paper
  17 %
  18 /setpagesize {
  19   1 dict dup /PageSize [pagewidth pageheight] put setpagedevice
  20 } def
  21
  22 %
  23 % Code to handle links
  24 %
  25 /min { 2 copy gt { exch } if pop } def
  26 /max { 2 copy lt { exch } if pop } def
  27
  28 /lkbegun 0 def
  29 /lktype null def
  30 /lkury 0 def
  31 /lkurx 0 def
  32 /lklly 0 def
  33 /lkllx 0 def
  34 /lkxmarg 1 def  % Extra space for link in x dir
  35 /lkymarg 1 def  % Extra space for link in y dir
  36 /lktarget () def
  37
  38 % target type --
  39 /linkbegin {
  40   userdict begin
  41     /lkbegun 1 def
  42     /lktype exch def
  43     /lktarget exch def
  44     colorlinks { 0 0 0.4 setrgbcolor } if
  45   end
  46 } def
  47
  48 % target --
  49 /linkbegindest {
  50   /Dest linkbegin
  51 } def
  52
  53 % uristring --
  54 /linkbeginuri {
  55   /URI linkbegin
  56 } def
  57
  58 % pageno --
  59 /linkbeginpage {
  60   /Page linkbegin
  61 } def
  62
  63 % string spacepadding --
  64 /linkshow {
  65   userdict begin
  66     /lspad exch def /lss exch def
  67     lkbegun 0 ne {
  68       gsave lss true charpath flattenpath pathbbox grestore
  69       lkbegun 1 eq {
  70         /lkury exch def
  71         lss spacecount lspad mul add /lkurx exch def
  72         /lklly exch def
  73         /lkllx exch def
  74         /lkbegun 2 def
  75       } {
  76         lkury max /lkury exch def
  77         lss spacecount lspad mul add lkurx max /lkurx exch def
  78         lklly min /lklly exch def
  79         lkllx min /lkllx exch def
  80       } ifelse
  81     } if
  82     lspad 0 space lss widthshow
  83   end
  84 } def
  85
  86 % --
  87 /linkend {
  88   userdict begin
  89     [ lktype /URI eq {
  90         /Action 2 dict dup /Subtype /URI put dup /URI lktarget put
  91       } {
  92         /Dest lktarget
  93       } ifelse
  94       /Border [0 0 0]
  95       /Rect [ lkllx lkxmarg sub
  96               lklly lkymarg sub
  97               lkurx lkxmarg add
  98               lkury lkymarg add ]
  99       /Subtype /Link
 100       /ANN pdfmark
 101     /lkbegun 0 def
 102     colorlinks { 0 setgray } if
 103   end
 104 } def
 105
 106 % targetname --
 107 /linkdest {
 108   [ /Dest 3 -1 roll
 109     /View [ /XYZ currentpoint null ]
 110     /DEST pdfmark
 111 } def
 112
 113 % A "fontset" is an array of fonts; a "stream" is an array of strings
 114 % and numbers or procedures:
 115 % [ 0 (Foo) ( ) (mani) ( ) 1 (padme) 0 ( ) (hum.) ]
 116 % A number choses a font from the current fontset.
 117 % A procedure is invoked as-is when printing the stream.
 118 %
 119 % When printing justified, an equal amount of space is added in
 120 % between each string.
 121
 122 % string -- spacecount
 123 % Count space characters in a string
 124 /spacecount {
 125   0 exch {
 126     space eq { 1 add } if
 127   } forall
 128 } def
 129
 130 % stream fontset -- spacecount width
 131 % Get the width of a stream in the given fontset, and the
 132 % number of space characters in the stream
 133 /streamwidth {
 134   gsave
 135     6 dict begin
 136       /f exch def
 137       /w 0 def
 138       /s 0 def
 139       f 0 get setfont
 140       /integertype {
 141         f exch get setfont
 142       } def
 143       /stringtype {
 144         dup stringwidth pop w add /w exch def
 145         spacecount s add /s exch def
 146       } def
 147       /arraytype { pop } def
 148       % The input stream is on the top of the stack now
 149       {
 150         dup type exec
 151       } forall
 152       s w
 153     end
 154   grestore
 155 } def
 156
 157 % stream fontset spacer --
 158 % Show the stream in the given fontset, but add a certain amount
 159 % of space to each space character
 160 /showstreamspc {
 161   5 dict begin
 162     /spc exch def
 163     /f exch def
 164     f 0 get setfont
 165     /integertype {
 166       f exch get setfont
 167     } def
 168     /stringtype {
 169       spc linkshow
 170     } def
 171     /arraytype {
 172       exec
 173     } def
 174     % Now stream is on the top of the stack
 175     {
 176       dup type exec
 177     } forall
 178   end
 179 } def
 180
 181 % stream fontset --
 182 % Show the stream in the given fontset, with no extra spacing
 183 /showstream {
 184   0 showstreamspc
 185 } def
 186
 187 % stream fontset totalspace --
 188 % Show the stream justified to fit into a certain number of pixels
 189 /showstreamjust {
 190   userdict begin
 191     /ts exch def /fs exch def /st exch def
 192       st fs
 193         st fs streamwidth ts exch sub exch
 194         dup 0 gt { div } { pop } ifelse
 195       showstreamspc
 196     end
 197 } def
 198
 199 /bullmarg lmarg bulladj add def
 200 /lwidth pagewidth lmarg sub rmarg sub def
 201 /bwidth lwidth bulladj sub def
 202
 203 %
 204 % The various paragraph types
 205 % The number at the end indicates start (1) of para, end (2) of para
 206 %
 207 /chapline {
 208         currentpoint exch pop 10 sub lmarg exch moveto
 209         0 setlinecap 3 setlinewidth
 210         lwidth 0 rlineto stroke
 211 } def
 212
 213 /chap0 { lmarg exch moveto cfont lwidth showstreamjust } def
 214 /chap1 { lmarg exch moveto cfont lwidth showstreamjust } def
 215 /chap2 { lmarg exch moveto cfont showstream chapline } def
 216 /chap3 { lmarg exch moveto cfont showstream chapline } def
 217
 218 /appn0 {chap0} def
 219 /appn1 {chap1} def
 220 /appn2 {chap2} def
 221 /appn3 {chap3} def
 222
 223 % lbl ypos fontset -- ypos
 224 /headlbl {
 225   3 -1 roll [exch (  )] exch % ypos strm fontset
 226   2 copy % ypos strm fontset strm fontset
 227   streamwidth % ypos strm fontset spccount width
 228   lmarg exch sub % ypos strm fontset spccount xpos
 229   4 index % ypos strm fontset spccount xpos ypos
 230   moveto % ypos strm fontset spccount
 231   pop % ypos strm fontset spccount
 232   showstream % ypos
 233 } def
 234
 235 /head0 { lmarg exch moveto hfont lwidth showstreamjust } def
 236 /head1 { hfont headlbl lmarg exch moveto hfont lwidth showstreamjust } def
 237 /head2 { lmarg exch moveto hfont showstream } def
 238 /head3 { hfont headlbl lmarg exch moveto hfont showstream } def
 239
 240 /subh0 { lmarg exch moveto sfont lwidth showstreamjust } def
 241 /subh1 { sfont headlbl lmarg exch moveto sfont lwidth showstreamjust } def
 242 /subh2 { lmarg exch moveto sfont showstream } def
 243 /subh3 { sfont headlbl lmarg exch moveto sfont showstream } def
 244
 245 /norm0 { lmarg exch moveto bfont lwidth showstreamjust } def
 246 /norm1 { lmarg exch moveto bfont lwidth showstreamjust } def
 247 /norm2 { lmarg exch moveto bfont showstream } def
 248 /norm3 { lmarg exch moveto bfont showstream } def
 249
 250 /code0 { lmarg exch moveto bfont showstream } def
 251 /code1 { lmarg exch moveto bfont showstream } def
 252 /code2 { lmarg exch moveto bfont showstream } def
 253 /code3 { lmarg exch moveto bfont showstream } def
 254
 255 /bullet [(\225)] def
 256
 257 /bull0 { bullmarg exch moveto bfont bwidth showstreamjust } def
 258 /bull1 { dup lmarg exch moveto bullet bfont showstream
 259          bullmarg exch moveto bfont bwidth showstreamjust } def
 260 /bull2 { bullmarg exch moveto bfont showstream } def
 261 /bull3 { dup lmarg exch moveto bullet bfont showstream
 262          bullmarg exch moveto bfont showstream } def
 263
 264 /tocw0 lwidth tocpnz sub def
 265 /tocw1 tocw0 tocind sub def
 266 /tocw2 tocw1 tocind sub def
 267
 268 /tocx0 lmarg def
 269 /tocx1 tocx0 tocind add def
 270 /tocx2 tocx1 tocind add def
 271
 272 /tocpn {
 273   bfont0 setfont
 274   3 dict begin
 275     /s exch def
 276     /x s stringwidth pop pagewidth rmarg sub exch sub def
 277     currentpoint /y exch def
 278     lmarg sub tocdots div ceiling tocdots mul lmarg add
 279     tocdots x {
 280       y moveto (.) 0 linkshow
 281     } for
 282     x y moveto s 0 linkshow
 283   end
 284   linkend
 285 } def
 286
 287 /toc00 { tocx0 exch moveto 0 rmoveto bfont showstream } def
 288 /toc01 { tocx0 exch moveto
 289          linkbegindest bfont0 setfont 0 linkshow bfont showstream } def
 290 /toc02 { tocx0 exch moveto 3 1 roll
 291          0 rmoveto bfont showstream tocpn } def
 292 /toc03 { tocx0 exch moveto 4 1 roll
 293          linkbegindest bfont0 setfont 0 linkshow bfont showstream tocpn } def
 294
 295 /toc10 { tocx1 exch moveto 0 rmoveto bfont showstream } def
 296 /toc11 { tocx1 exch moveto
 297          linkbegindest bfont0 setfont 0 linkshow bfont showstream } def
 298 /toc12 { tocx1 exch moveto 3 1 roll
 299          0 rmoveto bfont showstream tocpn } def
 300 /toc13 { tocx1 exch moveto 4 1 roll
 301          linkbegindest bfont0 setfont 0 linkshow bfont showstream tocpn } def
 302
 303 /toc20 { tocx2 exch moveto 0 rmoveto bfont showstream } def
 304 /toc21 { tocx2 exch moveto
 305          linkbegindest bfont0 setfont 0 linkshow bfont showstream } def
 306 /toc22 { tocx2 exch moveto 3 1 roll
 307          0 rmoveto bfont showstream tocpn } def
 308 /toc23 { tocx2 exch moveto 4 1 roll
 309          linkbegindest bfont0 setfont 0 linkshow bfont showstream tocpn } def
 310
 311 % Spacing between index columns
 312 /indexcolumn pagewidth lmarg sub rmarg sub idxgutter add idxcolumns div def
 313 % Width of an individual index column
 314 /indexcolwid indexcolumn idxgutter sub def
 315
 316 /idx03 {
 317   2 dict begin
 318     indexcolumn mul lmarg add
 319     /x exch def /y exch def x y moveto
 320     exch bfont showstream
 321     dup bfont streamwidth
 322     x indexcolwid add exch sub exch pop y moveto
 323     bfont showstream
 324   end
 325 } def
 326 /idx00 {idx03} def
 327 /idx01 {idx03} def
 328 /idx02 {idx03} def
 329
 330 /idx13 {
 331   2 dict begin
 332     indexcolumn mul lmarg add idxindent add
 333     /x exch def /y exch def x y moveto
 334     exch bfont showstream
 335     dup bfont streamwidth
 336     x indexcolwid idxindent sub add exch sub exch pop y moveto
 337     bfont showstream
 338   end
 339 } def
 340 /idx10 {idx13} def
 341 /idx11 {idx13} def
 342 /idx12 {idx13} def
 343
 344 %
 345 % Page numbers
 346 %
 347 /pagey botmarg pymarg sub def
 348 /pagel lmarg plmarg sub def
 349 /pager pagewidth rmarg sub prmarg add def
 350
 351 /pageeven { pagel pagey moveto sfont0 setfont show } def
 352 /pageodd  { sfont0 setfont dup stringwidth pop pager exch sub
 353             pagey moveto show } def
 354
 355 %
 356 % Functions invoked during parsing
 357 %
 358 /xa { linkdest } def
 359 /pa { 0 pageheight moveto linkdest } def
 360 /xl { linkbegindest } def
 361 /wl { linkbeginuri } def
 362 /pl { linkbeginpage } def
 363 /el { linkend } def
 364
 365 %
 366 % PDF viewer options
 367 %
 368 [/PageMode /UseOutlines /DOCVIEW pdfmark        % Display bookmarks
 369