mirror of
https://github.com/netwide-assembler/nasm.git
synced 2025-02-17 17:19:35 +08:00
Support generating PDF using ps2pdf with special annotations in the
PostScript output of rdsrc.pl.
This commit is contained in:
H. Peter Anvin
parent
d2cfaa5277
commit
33a514c196
@ -18,29 +18,44 @@ INSTALL_DATA = @INSTALL_DATA@
|
|||||||
|
|
||||||
PERL = perl
|
PERL = perl
|
||||||
MAKEINFO = makeinfo
|
MAKEINFO = makeinfo
|
||||||
|
TEXI2DVI = texi2dvi
|
||||||
|
PS2PDF = ps2pdf # Part of GhostScript
|
||||||
|
|
||||||
SRCS = nasmdoc.src
|
SRCS = nasmdoc.src
|
||||||
OUT = nasm.info
|
OUT = nasm.info nasmdoc.ps nasmdoc.pdf
|
||||||
|
|
||||||
all: $(OUT)
|
all: $(OUT)
|
||||||
|
|
||||||
os2: nasm.inf
|
os2: nasm.inf
|
||||||
|
|
||||||
.SUFFIXES: .src .texi .info .ps .rtf .hpj .dvi .ps .txt .pl .ipf .inf
|
.SUFFIXES: .src .texi .info .ps .rtf .hpj .dvi .pdf .txt .pl .ipf .inf
|
||||||
|
|
||||||
# Consider html, txt and src output a side effect
|
# Consider html, txt and ps output a side effect
|
||||||
.src.texi:
|
nasmdoc.texi: nasmdoc.src rdsrc.pl
|
||||||
mkdir -p html
|
mkdir -p html
|
||||||
$(PERL) ./rdsrc.pl < $<
|
$(PERL) $(srcdir)/rdsrc.pl < $<
|
||||||
mv -f *.html html
|
mv -f *.html html
|
||||||
|
|
||||||
nasm.info: nasmdoc.texi
|
nasmdoc.ps: nasmdoc.texi
|
||||||
|
: Generated by side effect
|
||||||
|
|
||||||
|
nasm.info: info/nasm.info
|
||||||
|
|
||||||
|
info/nasm.info: nasmdoc.texi
|
||||||
mkdir -p info
|
mkdir -p info
|
||||||
$(MAKEINFO) $<
|
$(MAKEINFO) $<
|
||||||
mv -f *.info *.info-* info
|
mv -f *.info *.info-* info
|
||||||
|
|
||||||
|
# DVI output from texinfo (optional)
|
||||||
|
nasmdoc.dvi: nasmdoc.texi
|
||||||
|
$(TEXI2DVI) nasmdoc.texi
|
||||||
|
|
||||||
|
# PDF output
|
||||||
|
nasmdoc.pdf: nasmdoc.ps
|
||||||
|
$(PS2PDF) nasmdoc.ps nasmdoc.pdf
|
||||||
|
|
||||||
# Rules for building an OS/2 book
|
# Rules for building an OS/2 book
|
||||||
.texi.ipf:
|
nasmdoc.ipf: nasmdoc.texi
|
||||||
texi2ipf $< >$@
|
texi2ipf $< >$@
|
||||||
|
|
||||||
nasm.inf: nasmdoc.ipf
|
nasm.inf: nasmdoc.ipf
|
||||||
@ -48,12 +63,13 @@ nasm.inf: nasmdoc.ipf
|
|||||||
|
|
||||||
clean:
|
clean:
|
||||||
-rm -f *.rtf *.hpj *.texi *.ph *.gid *.ipf
|
-rm -f *.rtf *.hpj *.texi *.ph *.gid *.ipf
|
||||||
|
-rm -f *.aux *.cp *.fn *.ky *.pg *.log *.toc *.tp *.vr
|
||||||
|
|
||||||
spotless: clean
|
spotless: clean
|
||||||
-rm -rf html info *.hlp *.txt *.ps *.inf
|
-rm -rf html info *.hlp *.txt *.ps *.inf *.pdf *.dvi
|
||||||
|
|
||||||
install: all
|
install: all
|
||||||
$(INSTALL_DATA) info/* $(INSTALLROOT)$(infodir)
|
$(INSTALL_DATA) info/* $(INSTALLROOT)$(infodir)
|
||||||
mkdir -p $(INSTALLROOT)$(docdir)/html
|
mkdir -p $(INSTALLROOT)$(docdir)/html
|
||||||
$(INSTALL_DATA) html/* $(INSTALLROOT)$(docdir)/html
|
$(INSTALL_DATA) html/* $(INSTALLROOT)$(docdir)/html
|
||||||
$(INSTALL_DATA) nasmdoc.ps nasmdoc.txt $(INSTALLROOT)$(docdir)
|
$(INSTALL_DATA) nasmdoc.ps nasmdoc.pdf nasmdoc.txt $(INSTALLROOT)$(docdir)
|
||||||
|
|||||||
452
doc/rdsrc.pl
452
doc/rdsrc.pl
@ -858,6 +858,63 @@ sub word_html {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
sub ref_ps {
|
||||||
|
my($r) = @_;
|
||||||
|
$r =~ s/\./_/g;
|
||||||
|
return 'n'.$r;
|
||||||
|
}
|
||||||
|
|
||||||
|
sub ps_write_bookmarks {
|
||||||
|
my $para;
|
||||||
|
my %nchildren = ();
|
||||||
|
my %titles = ();
|
||||||
|
my @reflist = ();
|
||||||
|
my $ref, $pref, $i, $title;
|
||||||
|
|
||||||
|
for ($para = 0; $para <= $#pnames; $para++) {
|
||||||
|
my $pname = $pnames[$para];
|
||||||
|
my $pflags = $pflags[$para];
|
||||||
|
my $ptype = substr($pflags,0,4);
|
||||||
|
|
||||||
|
if ($ptype eq "chap" || $ptype eq "appn") {
|
||||||
|
# Chapter/appendix heading. "Chapter N: Title" followed by a line of
|
||||||
|
# minus signs.
|
||||||
|
|
||||||
|
$pflags =~ /(chap|appn) (.*) :(.*)/;
|
||||||
|
$ref = &ref_ps($2);
|
||||||
|
$title = '';
|
||||||
|
foreach $i (@$pname) {
|
||||||
|
$title .= &word_ps_title($i);
|
||||||
|
}
|
||||||
|
$titles{$ref} = $title;
|
||||||
|
push @reflist, $ref;
|
||||||
|
} elsif ($ptype eq "head" || $ptype eq "subh") {
|
||||||
|
# Heading/subheading. Just a number and some text.
|
||||||
|
$pflags =~ /.... (.*) :(.*)/;
|
||||||
|
$ref = &ref_ps($1);
|
||||||
|
$ref =~ /^(n[0-9A-Za-z_]+)\_[0-9A-Za-z]+$/;
|
||||||
|
$pref = $1;
|
||||||
|
|
||||||
|
$title = '';
|
||||||
|
foreach $i (@$pname) {
|
||||||
|
$title .= &word_ps_title($i);
|
||||||
|
}
|
||||||
|
$titles{$ref} = $title;
|
||||||
|
push @reflist, $ref;
|
||||||
|
$nchildren{$pref}++;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
# Now we should have enough data to generate the bookmarks
|
||||||
|
print "[/Title (Contents) /Dest /nContents /OUT pdfmark";
|
||||||
|
foreach $i ( @reflist ) {
|
||||||
|
print '[/Title (', $titles{$i}, ")\n";
|
||||||
|
print '/Count -', $nchildren{$i}, ' ' if ( $nchildren{$i} );
|
||||||
|
print "/Dest /$i /OUT pdfmark\n";
|
||||||
|
}
|
||||||
|
print "[/Title (Index) /Dest /nIndex /OUT pdfmark\n";
|
||||||
|
}
|
||||||
|
|
||||||
sub write_ps {
|
sub write_ps {
|
||||||
# This is called from the top level, so I won't bother using
|
# This is called from the top level, so I won't bother using
|
||||||
# my or local.
|
# my or local.
|
||||||
@ -915,7 +972,7 @@ sub write_ps {
|
|||||||
# Chapter heading. "Chapter N: Title" followed by a line of
|
# Chapter heading. "Chapter N: Title" followed by a line of
|
||||||
# minus signs.
|
# minus signs.
|
||||||
$pflags =~ /chap (.*) :(.*)/;
|
$pflags =~ /chap (.*) :(.*)/;
|
||||||
push @line, "nChapter", " ", "n$1:", " ";
|
push @line, "B".&ref_ps($1), "nChapter", " ", "n$1:", " ";
|
||||||
foreach $i (@$pname) {
|
foreach $i (@$pname) {
|
||||||
$ww = &word_ps($i);
|
$ww = &word_ps($i);
|
||||||
push @line, $ww unless $ww eq "x";
|
push @line, $ww unless $ww eq "x";
|
||||||
@ -928,7 +985,7 @@ sub write_ps {
|
|||||||
# Appendix heading. "Appendix N: Title" followed by a line of
|
# Appendix heading. "Appendix N: Title" followed by a line of
|
||||||
# minus signs.
|
# minus signs.
|
||||||
$pflags =~ /appn (.*) :(.*)/;
|
$pflags =~ /appn (.*) :(.*)/;
|
||||||
push @line, "nAppendix", " ", "n$1:", " ";
|
push @line, "B".&ref_ps($1), "nAppendix", " ", "n$1:", " ";
|
||||||
foreach $i (@$pname) {
|
foreach $i (@$pname) {
|
||||||
$ww = &word_ps($i);
|
$ww = &word_ps($i);
|
||||||
push @line, $ww unless $ww eq "x";
|
push @line, $ww unless $ww eq "x";
|
||||||
@ -940,7 +997,7 @@ sub write_ps {
|
|||||||
} elsif ($ptype eq "head") {
|
} elsif ($ptype eq "head") {
|
||||||
# Heading. Just a number and some text.
|
# Heading. Just a number and some text.
|
||||||
$pflags =~ /.... (.*) :(.*)/;
|
$pflags =~ /.... (.*) :(.*)/;
|
||||||
push @line, "n$1";
|
push @line, "B".&ref_ps($1), "n$1";
|
||||||
foreach $i (@$pname) {
|
foreach $i (@$pname) {
|
||||||
$ww = &word_ps($i);
|
$ww = &word_ps($i);
|
||||||
push @line, $ww unless $ww eq "x";
|
push @line, $ww unless $ww eq "x";
|
||||||
@ -952,7 +1009,7 @@ sub write_ps {
|
|||||||
} elsif ($ptype eq "subh") {
|
} elsif ($ptype eq "subh") {
|
||||||
# Subheading. Just a number and some text.
|
# Subheading. Just a number and some text.
|
||||||
$pflags =~ /subh (.*) :(.*)/;
|
$pflags =~ /subh (.*) :(.*)/;
|
||||||
push @line, "n$1";
|
push @line, "B".&ref_ps($1), "n$1";
|
||||||
foreach $i (@$pname) {
|
foreach $i (@$pname) {
|
||||||
push @line, &word_ps($i);
|
push @line, &word_ps($i);
|
||||||
}
|
}
|
||||||
@ -1034,20 +1091,20 @@ sub write_ps {
|
|||||||
print "building contents...";
|
print "building contents...";
|
||||||
@clnames = @cltypes = ();
|
@clnames = @cltypes = ();
|
||||||
$clname = "pscont000000";
|
$clname = "pscont000000";
|
||||||
@$clname = ("nContents"); # "chapter heading" for TOC
|
@$clname = ("BnContents", "nContents"); # "chapter heading" for TOC
|
||||||
push @clnames,$clname++;
|
push @clnames,$clname++;
|
||||||
push @cltypes,"chap";
|
push @cltypes,"chap";
|
||||||
for ($i=0; $i<=$#lnames; $i++) {
|
for ($i=0; $i<=$#lnames; $i++) {
|
||||||
$lname = $lnames[$i];
|
$lname = $lnames[$i];
|
||||||
if ($ltypes[$i] =~ /^(chap|head|subh)/) {
|
if ($ltypes[$i] =~ /^(chap|head|subh)/) {
|
||||||
@$clname = @$lname;
|
@$clname = @$lname;
|
||||||
splice @$clname,1,0," " if ($ltypes[$i] !~ /chap/);
|
splice @$clname,2,0," " if ($ltypes[$i] !~ /chap/);
|
||||||
push @$clname,$i; # placeholder for page number
|
push @$clname,$i; # placeholder for page number
|
||||||
push @clnames,$clname++;
|
push @clnames,$clname++;
|
||||||
push @cltypes,"C" . substr($ltypes[$i],0,3);
|
push @cltypes,"C" . substr($ltypes[$i],0,3);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@$clname = ("nIndex"); # contents entry for Index
|
@$clname = ("BnIndex", "nIndex"); # contents entry for Index
|
||||||
push @$clname,$i; # placeholder for page number
|
push @$clname,$i; # placeholder for page number
|
||||||
$idx_clname = $clname;
|
$idx_clname = $clname;
|
||||||
push @clnames,$clname++;
|
push @clnames,$clname++;
|
||||||
@ -1174,9 +1231,10 @@ sub write_ps {
|
|||||||
@pp = ();
|
@pp = ();
|
||||||
$inums = join(',',sort { $a <=> $b } keys %{$psidxpp{$k}});
|
$inums = join(',',sort { $a <=> $b } keys %{$psidxpp{$k}});
|
||||||
while (length $inums) {
|
while (length $inums) {
|
||||||
$inums =~ /^([^,]+,?)(.*)$/;
|
$inums =~ /^([^,]+)(,?)(.*)$/;
|
||||||
$inums = $2, $inum = $1;
|
$inums = $3, $inumc = $2; $inum = $1;
|
||||||
@pnum = (" ", "n$inum");
|
@pnum = (" ", "Bp$inum", "n$inum", "E");
|
||||||
|
push(@pnum, "n$inumc") if ( $inumc ne '' );
|
||||||
$pnumlen = &len_ps(@pnum);
|
$pnumlen = &len_ps(@pnum);
|
||||||
if ($pnumlen > $len) {
|
if ($pnumlen > $len) {
|
||||||
&ps_idxout($cmd,\@line,\@pp);
|
&ps_idxout($cmd,\@line,\@pp);
|
||||||
@ -1199,6 +1257,7 @@ sub write_ps {
|
|||||||
select PS;
|
select PS;
|
||||||
$page = $lpages[0];
|
$page = $lpages[0];
|
||||||
&ps_header;
|
&ps_header;
|
||||||
|
&ps_write_bookmarks;
|
||||||
for ($i=0; $i<=$#lnames; $i++) {
|
for ($i=0; $i<=$#lnames; $i++) {
|
||||||
&ps_throw_pg($page,$lpages[$i]) if $page != $lpages[$i];
|
&ps_throw_pg($page,$lpages[$i]) if $page != $lpages[$i];
|
||||||
$page = $lpages[$i];
|
$page = $lpages[$i];
|
||||||
@ -1209,7 +1268,7 @@ sub write_ps {
|
|||||||
&ps_throw_pg($page, $pnum) if $page != $pnum;
|
&ps_throw_pg($page, $pnum) if $page != $pnum;
|
||||||
$page = $pnum++;
|
$page = $pnum++;
|
||||||
$ypos = 0;
|
$ypos = 0;
|
||||||
$ypos = 100, &ps_out_line(0, "chap", ["nIndex"]) if !$i;
|
$ypos = 100, &ps_out_line(0, "chap", ["BnIndex", "nIndex"]) if !$i;
|
||||||
$lines = ($pmax - $ypos) / $textht;
|
$lines = ($pmax - $ypos) / $textht;
|
||||||
my $col; # ps_out_line hits this variable
|
my $col; # ps_out_line hits this variable
|
||||||
PAGE:for ($col = 1; $col <= 2; $col++) {
|
PAGE:for ($col = 1; $col <= 2; $col++) {
|
||||||
@ -1244,123 +1303,201 @@ sub ps_idxout {
|
|||||||
}
|
}
|
||||||
|
|
||||||
sub ps_header {
|
sub ps_header {
|
||||||
@pshdr = (
|
$pshdr = <<'EOF';
|
||||||
'/sp (n ) def', # here it's sure not to get wrapped inside ()
|
/sp (n ) def
|
||||||
'/nf /Times-Roman findfont 11 scalefont def',
|
/nf /Times-Roman findfont 11 scalefont def
|
||||||
'/ef /Times-Italic findfont 11 scalefont def',
|
/ef /Times-Italic findfont 11 scalefont def
|
||||||
'/cf /Courier findfont 11 scalefont def',
|
/cf /Courier findfont 11 scalefont def
|
||||||
'/nc /Helvetica-Bold findfont 18 scalefont def',
|
/nc /Helvetica-Bold findfont 18 scalefont def
|
||||||
'/ec /Helvetica-Oblique findfont 18 scalefont def',
|
/ec /Helvetica-Oblique findfont 18 scalefont def
|
||||||
'/cc /Courier-Bold findfont 18 scalefont def',
|
/cc /Courier-Bold findfont 18 scalefont def
|
||||||
'/nh /Helvetica-Bold findfont 14 scalefont def',
|
/nh /Helvetica-Bold findfont 14 scalefont def
|
||||||
'/eh /Helvetica-Oblique findfont 14 scalefont def',
|
/eh /Helvetica-Oblique findfont 14 scalefont def
|
||||||
'/ch /Courier-Bold findfont 14 scalefont def',
|
/ch /Courier-Bold findfont 14 scalefont def
|
||||||
'/ns /Helvetica-Bold findfont 12 scalefont def',
|
/ns /Helvetica-Bold findfont 12 scalefont def
|
||||||
'/es /Helvetica-Oblique findfont 12 scalefont def',
|
/es /Helvetica-Oblique findfont 12 scalefont def
|
||||||
'/cs /Courier-Bold findfont 12 scalefont def',
|
/cs /Courier-Bold findfont 12 scalefont def
|
||||||
'/n 16#6E def /e 16#65 def /c 16#63 def',
|
/n 16#6E def /e 16#65 def /c 16#63 def
|
||||||
'/pageodd {',
|
/B 16#42 def /E 16#45 def /D 16#44 def
|
||||||
' 550 50 moveto ns setfont dup stringwidth pop neg 0 rmoveto show',
|
/min { 2 copy gt { exch } if pop } def
|
||||||
'} def',
|
/max { 2 copy lt { exch } if pop } def
|
||||||
'/pageeven { 50 50 moveto ns setfont show } def',
|
/lkbegun 0 def
|
||||||
'/chapter {',
|
/lkury 0 def
|
||||||
' 100 620 moveto',
|
/lkurx 0 def
|
||||||
' {',
|
/lklly 0 def
|
||||||
' dup 0 get',
|
/lkllx 0 def
|
||||||
' dup n eq {pop nc setfont} {',
|
/lktarget () def
|
||||||
' e eq {ec setfont} {cc setfont} ifelse',
|
/linkbegin {
|
||||||
' } ifelse',
|
/lkbegun 1 def
|
||||||
' dup length 1 sub 1 exch getinterval show',
|
/lktarget exch cvn def
|
||||||
' } forall',
|
} def
|
||||||
' 0 setlinecap 3 setlinewidth',
|
/linkshow {
|
||||||
' newpath 100 610 moveto 468 0 rlineto stroke',
|
lkbegun 0 ne {
|
||||||
'} def',
|
gsave dup true charpath pathbbox grestore
|
||||||
'/heading {',
|
lkbegun 1 eq {
|
||||||
' 686 exch sub /y exch def /a exch def',
|
/lkury exch def
|
||||||
' 90 y moveto a 0 get dup length 1 sub 1 exch getinterval',
|
/lkurx exch def
|
||||||
' nh setfont dup stringwidth pop neg 0 rmoveto show',
|
/lklly exch def
|
||||||
' 100 y moveto',
|
/lkllx exch def
|
||||||
' a dup length 1 sub 1 exch getinterval {',
|
/lkbegun 2 def
|
||||||
' /s exch def',
|
} {
|
||||||
' s 0 get',
|
lkury max /lkury exch def
|
||||||
' dup n eq {pop nh setfont} {',
|
lkurx max /lkurx exch def
|
||||||
' e eq {eh setfont} {ch setfont} ifelse',
|
lklly min /lklly exch def
|
||||||
' } ifelse',
|
lkllx min /lkllx exch def
|
||||||
' s s length 1 sub 1 exch getinterval show',
|
} ifelse
|
||||||
' } forall',
|
} if
|
||||||
'} def',
|
show
|
||||||
'/subhead {',
|
} def
|
||||||
' 688 exch sub /y exch def /a exch def',
|
/linkend {
|
||||||
' 90 y moveto a 0 get dup length 1 sub 1 exch getinterval',
|
[/Rect [ lkllx lklly lkurx lkury ]
|
||||||
' ns setfont dup stringwidth pop neg 0 rmoveto show',
|
/Color [ 1.0 0.0 0.0 ]
|
||||||
' 100 y moveto',
|
/Border [0 0 0]
|
||||||
' a dup length 1 sub 1 exch getinterval {',
|
/Dest lktarget
|
||||||
' /s exch def',
|
/Subtype /Link
|
||||||
' s 0 get',
|
/ANN pdfmark
|
||||||
' dup n eq {pop ns setfont} {',
|
/lkbegun 0 def
|
||||||
' e eq {es setfont} {cs setfont} ifelse',
|
} def
|
||||||
' } ifelse',
|
/linkdest {
|
||||||
' s s length 1 sub 1 exch getinterval show',
|
/lkdest exch cvn def
|
||||||
' } forall',
|
[ /Dest lkdest
|
||||||
'} def',
|
/View [ /XYZ currentpoint 0 ]
|
||||||
'/disp { /j exch def',
|
/DEST pdfmark
|
||||||
' 568 exch sub exch 689 exch sub moveto',
|
} def
|
||||||
' {',
|
/handlelink {
|
||||||
' /s exch def',
|
dup 0 get
|
||||||
' s 0 get',
|
dup B eq {
|
||||||
' dup n eq {pop nf setfont} {',
|
pop dup length 1 sub 1 exch getinterval linkbegin
|
||||||
' e eq {ef setfont} {cf setfont} ifelse',
|
} {
|
||||||
' } ifelse',
|
E eq {
|
||||||
' s s length 1 sub 1 exch getinterval show',
|
pop linkend
|
||||||
' s sp eq {j 0 rmoveto} if',
|
} {
|
||||||
' } forall',
|
dup length 1 sub 1 exch getinterval linkdest
|
||||||
'} def',
|
} ifelse
|
||||||
'/contents { /w exch def /y exch def /a exch def',
|
} ifelse
|
||||||
' /yy 689 y sub def',
|
} def
|
||||||
' a a length 1 sub get dup length 1 sub 1 exch getinterval /s exch def',
|
/pageodd {
|
||||||
' nf setfont 568 s stringwidth pop sub /ex exch def',
|
550 50 moveto ns setfont dup stringwidth pop neg 0 rmoveto show
|
||||||
' ex yy moveto s show',
|
} def
|
||||||
' a 0 a length 1 sub getinterval y w 0 disp',
|
/pageeven { 50 50 moveto ns setfont show } def
|
||||||
' /sx currentpoint pop def nf setfont',
|
/destmark {
|
||||||
' 100 10 568 { /i exch def',
|
dup length 1 sub 1 exch getinterval linkdest
|
||||||
' i 5 sub sx gt i 5 add ex lt and {',
|
} def
|
||||||
' i yy moveto (.) show',
|
/chapter {
|
||||||
' } if',
|
100 620 moveto
|
||||||
' } for',
|
dup 0 get destmark
|
||||||
'} def',
|
dup length 1 sub 1 exch getinterval
|
||||||
'/just { /w exch def /y exch def /a exch def',
|
{
|
||||||
' /jj w def /spaces 0 def',
|
dup 0 get
|
||||||
' a {',
|
dup n eq {pop nc setfont} {
|
||||||
' /s exch def',
|
e eq {ec setfont} {cc setfont} ifelse
|
||||||
' s 0 get',
|
} ifelse
|
||||||
' dup n eq {pop nf setfont} {',
|
dup length 1 sub 1 exch getinterval show
|
||||||
' e eq {ef setfont} {cf setfont} ifelse',
|
} forall
|
||||||
' } ifelse',
|
0 setlinecap 3 setlinewidth
|
||||||
' s s length 1 sub 1 exch getinterval stringwidth pop',
|
newpath 100 610 moveto 468 0 rlineto stroke
|
||||||
' jj exch sub /jj exch def',
|
} def
|
||||||
' s sp eq {/spaces spaces 1 add def} if',
|
/heading {
|
||||||
' } forall',
|
686 exch sub /y exch def /a exch def
|
||||||
' a y w jj spaces spaces 0 eq {pop pop 0} {div} ifelse disp',
|
90 y moveto
|
||||||
'} def',
|
a 0 get destmark
|
||||||
'/idl { 468 exch sub 0 disp } def',
|
a 1 get dup length 1 sub 1 exch getinterval
|
||||||
'/ldl { 436 exch sub 0 disp } def',
|
nh setfont dup stringwidth pop neg 0 rmoveto show
|
||||||
'/idr { 222 add 468 exch sub /x exch def /y exch def /a exch def',
|
100 y moveto
|
||||||
' a {',
|
a dup length 2 sub 2 exch getinterval {
|
||||||
' /s exch def',
|
/s exch def
|
||||||
' s 0 get',
|
s 0 get
|
||||||
' dup n eq {pop nf setfont} {',
|
dup n eq {pop nh setfont} {
|
||||||
' e eq {ef setfont} {cf setfont} ifelse',
|
e eq {eh setfont} {ch setfont} ifelse
|
||||||
' } ifelse',
|
} ifelse
|
||||||
' s s length 1 sub 1 exch getinterval stringwidth pop',
|
s s length 1 sub 1 exch getinterval show
|
||||||
' x add /x exch def',
|
} forall
|
||||||
' } forall',
|
} def
|
||||||
' a y x 0 disp',
|
/subhead {
|
||||||
'} def',
|
688 exch sub /y exch def /a exch def
|
||||||
'/left {0 disp} def',
|
90 y moveto
|
||||||
'/bullet {',
|
a 0 get destmark
|
||||||
' nf setfont dup 100 exch 689 exch sub moveto (\267) show',
|
a 1 get dup length 1 sub 1 exch getinterval
|
||||||
'} def'
|
ns setfont dup stringwidth pop neg 0 rmoveto show
|
||||||
);
|
100 y moveto
|
||||||
|
a dup length 2 sub 2 exch getinterval {
|
||||||
|
/s exch def
|
||||||
|
s 0 get
|
||||||
|
dup n eq {pop ns setfont} {
|
||||||
|
e eq {es setfont} {cs setfont} ifelse
|
||||||
|
} ifelse
|
||||||
|
s s length 1 sub 1 exch getinterval show
|
||||||
|
} forall
|
||||||
|
} def
|
||||||
|
/disp { /j exch def
|
||||||
|
568 exch sub exch 689 exch sub moveto
|
||||||
|
{
|
||||||
|
/s exch def
|
||||||
|
s 0 get
|
||||||
|
dup E le {
|
||||||
|
pop s handlelink
|
||||||
|
} {
|
||||||
|
dup n eq {pop nf setfont} {
|
||||||
|
e eq {ef setfont} {cf setfont} ifelse
|
||||||
|
} ifelse
|
||||||
|
s s length 1 sub 1 exch getinterval linkshow
|
||||||
|
s sp eq {j 0 rmoveto} if
|
||||||
|
} ifelse
|
||||||
|
} forall
|
||||||
|
} def
|
||||||
|
/contents { /w exch def /y exch def /a exch def
|
||||||
|
/yy 689 y sub def
|
||||||
|
a a length 1 sub get dup length 1 sub 1 exch getinterval
|
||||||
|
/ss exch def
|
||||||
|
nf setfont 568 ss stringwidth pop sub /ex exch def
|
||||||
|
a 0 a length 1 sub getinterval y w 0 disp
|
||||||
|
/sx currentpoint pop def nf setfont
|
||||||
|
100 10 568 { /i exch def
|
||||||
|
i 5 sub sx gt i 5 add ex lt and {
|
||||||
|
i yy moveto (.) linkshow
|
||||||
|
} if
|
||||||
|
} for
|
||||||
|
ss linkshow
|
||||||
|
linkend
|
||||||
|
} def
|
||||||
|
/just { /w exch def /y exch def /a exch def
|
||||||
|
/jj w def /spaces 0 def
|
||||||
|
a {
|
||||||
|
/s exch def
|
||||||
|
s 0 get
|
||||||
|
dup n eq {pop nf setfont} {
|
||||||
|
e eq {ef setfont} {cf setfont} ifelse
|
||||||
|
} ifelse
|
||||||
|
s s length 1 sub 1 exch getinterval stringwidth pop
|
||||||
|
jj exch sub /jj exch def
|
||||||
|
s sp eq {/spaces spaces 1 add def} if
|
||||||
|
} forall
|
||||||
|
a y w jj spaces spaces 0 eq {pop pop 0} {div} ifelse disp
|
||||||
|
} def
|
||||||
|
/idl { 468 exch sub 0 disp } def
|
||||||
|
/ldl { 436 exch sub 0 disp } def
|
||||||
|
/idr { 222 add 468 exch sub /x exch def /y exch def /a exch def
|
||||||
|
a {
|
||||||
|
/s exch def
|
||||||
|
s 0 get
|
||||||
|
dup E le {
|
||||||
|
pop
|
||||||
|
} {
|
||||||
|
dup n eq {pop nf setfont} {
|
||||||
|
e eq {ef setfont} {cf setfont} ifelse
|
||||||
|
} ifelse
|
||||||
|
s s length 1 sub 1 exch getinterval stringwidth pop
|
||||||
|
x add /x exch def
|
||||||
|
} ifelse
|
||||||
|
} forall
|
||||||
|
a y x 0 disp
|
||||||
|
} def
|
||||||
|
/left {0 disp} def
|
||||||
|
/bullet {
|
||||||
|
nf setfont dup 100 exch 689 exch sub moveto (\267) show
|
||||||
|
} def
|
||||||
|
[/PageMode /UseOutlines /DOCVIEW pdfmark
|
||||||
|
EOF
|
||||||
print "%!PS-Adobe-3.0\n";
|
print "%!PS-Adobe-3.0\n";
|
||||||
print "%%BoundingBox: 95 95 590 705\n";
|
print "%%BoundingBox: 95 95 590 705\n";
|
||||||
print "%%Creator: a nasty Perl script\n";
|
print "%%Creator: a nasty Perl script\n";
|
||||||
@ -1369,8 +1506,15 @@ sub ps_header {
|
|||||||
print "%%Pages: $lpages[$#lpages]\n";
|
print "%%Pages: $lpages[$#lpages]\n";
|
||||||
print "%%DocumentNeededResources: font Times-Roman Times-Italic\n";
|
print "%%DocumentNeededResources: font Times-Roman Times-Italic\n";
|
||||||
print "%%+ font Helvetica-Bold Courier Courier-Bold\n";
|
print "%%+ font Helvetica-Bold Courier Courier-Bold\n";
|
||||||
print "%%EndComments\n%%BeginProlog\n%%EndProlog\n%%BeginSetup\nsave\n";
|
print "%%EndComments\n";
|
||||||
$pshdr = join(' ',@pshdr);
|
print "%%BeginProlog\n";
|
||||||
|
# This makes sure non-PDF PostScript interpreters don't choke on
|
||||||
|
# pdfmarks in the output
|
||||||
|
print "/pdfmark where\n";
|
||||||
|
print "{pop} {userdict /pdfmark /cleartomark load put} ifelse\n";
|
||||||
|
print "%%EndProlog\n";
|
||||||
|
print "%%BeginSetup\n";
|
||||||
|
print "save\n";
|
||||||
$pshdr =~ s/\s+/ /g;
|
$pshdr =~ s/\s+/ /g;
|
||||||
while ($pshdr =~ /\S/) {
|
while ($pshdr =~ /\S/) {
|
||||||
last if length($pshdr) < 72 || $pshdr !~ /^(.{0,72}\S)\s(.*)$/;
|
last if length($pshdr) < 72 || $pshdr !~ /^(.{0,72}\S)\s(.*)$/;
|
||||||
@ -1401,6 +1545,7 @@ sub ps_initpg {
|
|||||||
my ($pgnum) = @_;
|
my ($pgnum) = @_;
|
||||||
print "%%Page: $pgnum $pgnum\n";
|
print "%%Page: $pgnum $pgnum\n";
|
||||||
print "%%BeginPageSetup\nsave\n%%EndPageSetup\n";
|
print "%%BeginPageSetup\nsave\n%%EndPageSetup\n";
|
||||||
|
print "95 705 moveto (p$pgnum) linkdest\n";
|
||||||
}
|
}
|
||||||
|
|
||||||
sub ps_donepg {
|
sub ps_donepg {
|
||||||
@ -1423,7 +1568,7 @@ sub ps_out_line {
|
|||||||
$c = "n\261" if $c eq "-";
|
$c = "n\261" if $c eq "-";
|
||||||
$d = '';
|
$d = '';
|
||||||
while (length $c) {
|
while (length $c) {
|
||||||
$d .= $1, $c = $2 while $c =~ /^([ -'\*-\[\]-~]+)(.*)$/;
|
$d .= $1, $c = $2 while $c =~ /^([ -\'\*-\[\]-~]+)(.*)$/;
|
||||||
while (1) {
|
while (1) {
|
||||||
$d .= "\\$1", $c = $2, next if $c =~ /^([\\\(\)])(.*)$/;
|
$d .= "\\$1", $c = $2, next if $c =~ /^([\\\(\)])(.*)$/;
|
||||||
($d .= sprintf "\\%3o",unpack("C",$1)), $c = $2, next
|
($d .= sprintf "\\%3o",unpack("C",$1)), $c = $2, next
|
||||||
@ -1495,6 +1640,35 @@ sub word_ps {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
sub word_ps_title {
|
||||||
|
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 "w ") {
|
||||||
|
return $w;
|
||||||
|
} elsif ($wtype eq "sp") {
|
||||||
|
return ' ';
|
||||||
|
} elsif ($wtype eq "da") {
|
||||||
|
return '-';
|
||||||
|
} elsif ($wmajt eq "c" || $wtype eq "wc") {
|
||||||
|
return $w;
|
||||||
|
} elsif ($wmajt eq "e") {
|
||||||
|
return $w;
|
||||||
|
} elsif ($wmajt eq "x") {
|
||||||
|
return '';
|
||||||
|
} elsif ($wtype eq "i ") {
|
||||||
|
return '';
|
||||||
|
} else {
|
||||||
|
die "panic in word_ps_title: $wtype$w\n";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
sub len_ps {
|
sub len_ps {
|
||||||
my (@line) = @_;
|
my (@line) = @_;
|
||||||
my $l = 0;
|
my $l = 0;
|
||||||
@ -1505,11 +1679,13 @@ sub len_ps {
|
|||||||
$w = "n " if $w eq " ";
|
$w = "n " if $w eq " ";
|
||||||
$w = "n\261" if $w eq "-";
|
$w = "n\261" if $w eq "-";
|
||||||
$f = substr($w,0,1);
|
$f = substr($w,0,1);
|
||||||
$f = "timesr" if $f eq "n";
|
if ( $f !~ /^[BDE]$/ ) {
|
||||||
$f = "timesi" if $f eq "e";
|
$f = "timesr" if $f eq "n";
|
||||||
$f = "courr" if $f eq "c";
|
$f = "timesi" if $f eq "e";
|
||||||
foreach $c (unpack 'C*',substr($w,1)) {
|
$f = "courr" if $f eq "c";
|
||||||
$l += $size * $$f[$c];
|
foreach $c (unpack 'C*',substr($w,1)) {
|
||||||
|
$l += $size * $$f[$c];
|
||||||
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
return $l;
|
return $l;
|
||||||
@ -1959,7 +2135,7 @@ sub word_hlp {
|
|||||||
$w =~ s/\{/\\\{/g;
|
$w =~ s/\{/\\\{/g;
|
||||||
$w =~ s/\}/\\\}/g;
|
$w =~ s/\}/\\\}/g;
|
||||||
$w =~ s/<.*>// if $wmajt eq "w"; # remove web links
|
$w =~ s/<.*>// if $wmajt eq "w"; # remove web links
|
||||||
substr($w,0,length($w)-1) =~ s/-/\\'AD/g if $wmajt ne "x"; #nonbreakhyphens
|
substr($w,0,length($w)-1) =~ s/-/\\\'AD/g if $wmajt ne "x"; #nonbreakhyphens
|
||||||
if ($wmajt eq "n" || $wtype eq "e " || $wtype eq "w ") {
|
if ($wmajt eq "n" || $wtype eq "e " || $wtype eq "w ") {
|
||||||
return $w;
|
return $w;
|
||||||
} elsif ($wtype eq "sp") {
|
} elsif ($wtype eq "sp") {
|
||||||
@ -1967,7 +2143,7 @@ sub word_hlp {
|
|||||||
} elsif ($wtype eq "da") {
|
} elsif ($wtype eq "da") {
|
||||||
return "\\'96";
|
return "\\'96";
|
||||||
} elsif ($wmajt eq "c" || $wtype eq "wc") {
|
} elsif ($wmajt eq "c" || $wtype eq "wc") {
|
||||||
$w =~ s/ /\\'A0/g; # make spaces non-breaking
|
$w =~ s/ /\\\'A0/g; # make spaces non-breaking
|
||||||
return $docode ? "{\\f1 ${w}}" : $w;
|
return $docode ? "{\\f1 ${w}}" : $w;
|
||||||
} elsif ($wtype eq "es") {
|
} elsif ($wtype eq "es") {
|
||||||
return "{\\i ${w}";
|
return "{\\i ${w}";
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user