nasm/doc/head.ps

402 lines
10 KiB
PostScript
Raw Normal View History

%
% PostScript header for NASM documentation
%
% Avoid barfing on old PS implementations
/pdfmark where
{pop} {userdict /pdfmark /cleartomark load put} ifelse
/setpagedevice where
{pop} {userdict /setpagedevice /pop load put} ifelse
% Useful definition
/space 32 def
%
% This asks the PostScript interpreter for the proper size paper
%
/setpagesize {
1 dict dup /PageSize [pagewidth pageheight] put setpagedevice
} def
%
% Code to handle links
%
/min { 2 copy gt { exch } if pop } def
/max { 2 copy lt { exch } if pop } def
/lkbegun 0 def
/lktype null def
/lkury 0 def
/lkurx 0 def
/lklly 0 def
/lkllx 0 def
/lkxmarg 1 def % Extra space for link in x dir
/lkymarg 1 def % Extra space for link in y dir
/lktarget () def
% target type --
/linkbegin {
userdict begin
/lkbegun 1 def
/lktype exch def
/lktarget exch def
colorlinks { 0 0 0.4 setrgbcolor } if
end
} def
% target --
/linkbegindest {
/Dest linkbegin
} def
% uristring --
/linkbeginuri {
/URI linkbegin
} def
% pageno --
/linkbeginpage {
/Page linkbegin
} def
% string spacepadding --
/linkshow {
userdict begin
/lspad exch def /lss exch def
lkbegun 0 ne {
gsave lss true charpath flattenpath pathbbox grestore
lkbegun 1 eq {
/lkury exch def
lss spacecount lspad mul add /lkurx exch def
/lklly exch def
/lkllx exch def
/lkbegun 2 def
} {
lkury max /lkury exch def
lss spacecount lspad mul add lkurx max /lkurx exch def
lklly min /lklly exch def
lkllx min /lkllx exch def
} ifelse
} if
lspad 0 space lss widthshow
end
} def
% --
/linkend {
userdict begin
[ lktype /URI eq {
/Action 2 dict dup /Subtype /URI put dup /URI lktarget put
} {
/Dest lktarget
} ifelse
/Border [0 0 0]
/Rect [ lkllx lkxmarg sub
lklly lkymarg sub
lkurx lkxmarg add
lkury lkymarg add ]
/Subtype /Link
/ANN pdfmark
/lkbegun 0 def
colorlinks { 0 setgray } if
end
} def
% targetname --
/linkdest {
[ /Dest 3 -1 roll
/View [ /XYZ currentpoint null ]
/DEST pdfmark
} def
% A "fontset" is an array of fonts; a "stream" is an array of strings
% and numbers or procedures:
% [ 0 (Foo) ( ) (mani) ( ) 1 (padme) 0 ( ) (hum.) ]
% A number choses a font from the current fontset.
% A procedure is invoked as-is when printing the stream.
%
% When printing justified, an equal amount of space is added in
% between each string.
% string -- spacecount
% Count space characters in a string
/spacecount {
0 exch {
space eq { 1 add } if
} forall
} def
% stream fontset -- spacecount width
% Get the width of a stream in the given fontset, and the
% number of space characters in the stream
/streamwidth {
gsave
6 dict begin
/f exch def
/w 0 def
/s 0 def
f 0 get setfont
/integertype {
f exch get setfont
} def
/stringtype {
dup stringwidth pop w add /w exch def
spacecount s add /s exch def
} def
/arraytype { pop } def
% The input stream is on the top of the stack now
{
dup type exec
} forall
s w
end
grestore
} def
% stream fontset spacer --
% Show the stream in the given fontset, but add a certain amount
% of space to each space character
/showstreamspc {
5 dict begin
/spc exch def
/f exch def
f 0 get setfont
/integertype {
f exch get setfont
} def
/stringtype {
spc linkshow
} def
/arraytype {
exec
} def
% Now stream is on the top of the stack
{
dup type exec
} forall
end
} def
% stream fontset --
% Show the stream in the given fontset, with no extra spacing
/showstream {
0 showstreamspc
} def
% stream fontset totalspace --
% Show the stream justified to fit into a certain number of pixels
/showstreamjust {
userdict begin
/ts exch def /fs exch def /st exch def
st fs
st fs streamwidth ts exch sub exch
dup 0 gt { div } { pop } ifelse
showstreamspc
end
} def
/bullmarg lmarg bulladj add def
/lwidth pagewidth lmarg sub rmarg sub def
/bwidth lwidth bulladj sub def
%
% The various paragraph types
% The number at the end indicates start (1) of para, end (2) of para
%
/chapline {
currentpoint exch pop 10 sub lmarg exch moveto
0 setlinecap 3 setlinewidth
lwidth 0 rlineto stroke
} def
/chap0 { lmarg exch moveto cfont lwidth showstreamjust } def
/chap1 { lmarg exch moveto cfont lwidth showstreamjust } def
/chap2 { lmarg exch moveto cfont showstream chapline } def
/chap3 { lmarg exch moveto cfont showstream chapline } def
/appn0 {chap0} def
/appn1 {chap1} def
/appn2 {chap2} def
/appn3 {chap3} def
% lbl ypos fontset -- ypos
/headlbl {
3 -1 roll [exch ( )] exch % ypos strm fontset
2 copy % ypos strm fontset strm fontset
streamwidth % ypos strm fontset spccount width
lmarg exch sub % ypos strm fontset spccount xpos
4 index % ypos strm fontset spccount xpos ypos
moveto % ypos strm fontset spccount
pop % ypos strm fontset spccount
showstream % ypos
} def
/head0 { lmarg exch moveto hfont lwidth showstreamjust } def
/head1 { hfont headlbl lmarg exch moveto hfont lwidth showstreamjust } def
/head2 { lmarg exch moveto hfont showstream } def
/head3 { hfont headlbl lmarg exch moveto hfont showstream } def
/subh0 { lmarg exch moveto sfont lwidth showstreamjust } def
/subh1 { sfont headlbl lmarg exch moveto sfont lwidth showstreamjust } def
/subh2 { lmarg exch moveto sfont showstream } def
/subh3 { sfont headlbl lmarg exch moveto sfont showstream } def
/norm0 { lmarg exch moveto bfont lwidth showstreamjust } def
/norm1 { lmarg exch moveto bfont lwidth showstreamjust } def
/norm2 { lmarg exch moveto bfont showstream } def
/norm3 { lmarg exch moveto bfont showstream } def
/code0 { lmarg exch moveto bfont showstream } def
/code1 { lmarg exch moveto bfont showstream } def
/code2 { lmarg exch moveto bfont showstream } def
/code3 { lmarg exch moveto bfont showstream } def
/bull0 { bullmarg exch moveto bfont bwidth showstreamjust } def
/bull1 { dup lmarg exch moveto bullet bfont showstream
bullmarg exch moveto bfont bwidth showstreamjust } def
/bull2 { bullmarg exch moveto bfont showstream } def
/bull3 { dup lmarg exch moveto bullet bfont showstream
bullmarg exch moveto bfont showstream } def
/indt0 { bullmarg exch moveto bfont bwidth showstreamjust } def
/indt1 { bullmarg exch moveto bfont bwidth showstreamjust } def
/indt2 { bullmarg exch moveto bfont showstream } def
/indt3 { bullmarg exch moveto bfont showstream } def
/bquo0 { bullmarg exch moveto qfont bwidth showstreamjust } def
/bquo1 { bullmarg exch moveto qfont bwidth showstreamjust } def
/bquo2 { bullmarg exch moveto qfont showstream } def
/bquo3 { bullmarg exch moveto qfont showstream } def
/tocw0 lwidth tocpnz sub def
/tocw1 tocw0 tocind sub def
/tocw2 tocw1 tocind sub def
/tocx0 lmarg def
/tocx1 tocx0 tocind add def
/tocx2 tocx1 tocind add def
/tocpn {
bfont0 setfont
3 dict begin
/s exch def
/x s stringwidth pop pagewidth rmarg sub exch sub def
currentpoint /y exch def
lmarg sub tocdots div ceiling tocdots mul lmarg add
tocdots x {
y moveto (.) 0 linkshow
} for
x y moveto s 0 linkshow
end
linkend
} def
/toc00 { tocx0 exch moveto 0 rmoveto bfont showstream } def
/toc01 { tocx0 exch moveto
linkbegindest bfont0 setfont 0 linkshow bfont showstream } def
/toc02 { tocx0 exch moveto 3 1 roll
0 rmoveto bfont showstream tocpn } def
/toc03 { tocx0 exch moveto 4 1 roll
linkbegindest bfont0 setfont 0 linkshow bfont showstream tocpn } def
/toc10 { tocx1 exch moveto 0 rmoveto bfont showstream } def
/toc11 { tocx1 exch moveto
linkbegindest bfont0 setfont 0 linkshow bfont showstream } def
/toc12 { tocx1 exch moveto 3 1 roll
0 rmoveto bfont showstream tocpn } def
/toc13 { tocx1 exch moveto 4 1 roll
linkbegindest bfont0 setfont 0 linkshow bfont showstream tocpn } def
/toc20 { tocx2 exch moveto 0 rmoveto bfont showstream } def
/toc21 { tocx2 exch moveto
linkbegindest bfont0 setfont 0 linkshow bfont showstream } def
/toc22 { tocx2 exch moveto 3 1 roll
0 rmoveto bfont showstream tocpn } def
/toc23 { tocx2 exch moveto 4 1 roll
linkbegindest bfont0 setfont 0 linkshow bfont showstream tocpn } def
% Spacing between index columns
/indexcolumn pagewidth lmarg sub rmarg sub idxgutter add idxcolumns div def
% Width of an individual index column
/indexcolwid indexcolumn idxgutter sub def
/idx03 {
2 dict begin
indexcolumn mul lmarg add
/x exch def /y exch def x y moveto
exch bfont showstream
dup bfont streamwidth
x indexcolwid add exch sub exch pop y moveto
bfont showstream
end
} def
/idx00 {idx03} def
/idx01 {idx03} def
/idx02 {idx03} def
/idx13 {
2 dict begin
indexcolumn mul lmarg add idxindent add
/x exch def /y exch def x y moveto
exch bfont showstream
dup bfont streamwidth
x indexcolwid idxindent sub add exch sub exch pop y moveto
bfont showstream
end
} def
/idx10 {idx13} def
/idx11 {idx13} def
/idx12 {idx13} def
%
% Page numbers
%
/pagey botmarg pymarg sub def
/pagel lmarg plmarg sub def
/pager pagewidth rmarg sub prmarg add def
/pageeven { pagel pagey moveto bfont1 setfont show } def
/pageodd { bfont1 setfont dup stringwidth pop pager exch sub
pagey moveto show } def
%
% Functions invoked during parsing
%
/xa { linkdest } def
/pa { 0 pageheight moveto linkdest } def
/xl { linkbegindest } def
/wl { linkbeginuri } def
/pl { linkbeginpage } def
/el { linkend } def
%
% PDF viewer options
%
[/PageMode /UseOutlines /DOCVIEW pdfmark % Display bookmarks
%
% Functions to include EPS
%
/BeginEPSF {
/Before_EPSF_State save def
/dict_count countdictstack def
/op_count count 1 sub def
userdict begin
/showpage {} def
0 setgray 0 setlinecap
1 setlinewidth 0 setlinejoin
10 setmiterlimit [ ] 0 setdash newpath
/languagelevel where
{
pop languagelevel
1 ne {
false setstrokeadjust false setoverprint
} if
} if
} bind def
/EndEPSF {
count op_count sub {pop} repeat
countdictstack dict_count sub {end} repeat
Before_EPSF_State restore
} bind def