mirror/nasm
2
0
Fork 0
mirror of https://github.com/netwide-assembler/nasm.git synced 2025-03-31 18:20:22 +08:00
Code Issues Packages Projects Releases Wiki Activity

Add version number to the cover page, generated from the version file.

Browse Source
This commit is contained in:
H. Peter Anvin 2002-05-18 20:36:25 +00:00
parent 42e89b00a2
commit e0372c8c05
2 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
doc/Makefile.in
View File

@ -37,8 +37,10 @@ nasmdoc.dip: nasmdoc.src rdsrc.pl
nasmdoc.texi: nasmdoc.dip
: Generated by side effect
nasmdoc.ps: nasmdoc.dip nasmlogo.eps genps.pl psfonts.ph pswidth.ph head.ps
$(PERL) $(srcdir)/genps.pl nasmdoc.dip > nasmdoc.ps
nasmdoc.ps: nasmdoc.dip nasmlogo.eps ../version \
genps.pl psfonts.ph pswidth.ph head.ps
$(PERL) $(srcdir)/genps.pl -subtitle "version `cat ../version`" \
nasmdoc.dip > nasmdoc.ps
nasmdoc.pdf: nasmdoc.ps
$(PS2PDF) nasmdoc.ps nasmdoc.pdf

17
doc/genps.pl
View File

@ -66,6 +66,8 @@ while ( $arg = shift(@ARGV) ) {
$psbool{$parm} = $true;
} elsif ( $true && defined($psconf{$parm}) ) {
$psconf{$parm} = shift(@ARGV);
} elsif ( $parm =~ /^(title|subtitle|year|author|license)$/ ) {
$metadata{$parm} = shift(@ARGV);
} else {
die "$0: Unknown option: $arg\n";
}
@ -1053,17 +1055,24 @@ $ps_page = 0;
# Title page
ps_start_page();
$title = $metadata{'title'};
$title = $metadata{'title'} || '';
$title =~ s/ \- / $emdash /;
$pstitle = ps_string($title);
$subtitle = $metadata{'subtitle'} || '';
$subtitle =~ s/ \- / $emdash /;
# Print title
print "/ti ", ps_string($title), " def\n";
print "/sti ", ps_string($subtitle), " def\n";
print "lmarg pageheight 2 mul 3 div moveto\n";
print "tfont0 setfont\n";
print "/title linkdest ${pstitle} show\n";
print "/title linkdest ti show\n";
print "lmarg pageheight 2 mul 3 div 10 sub moveto\n";
print "0 setlinecap 3 setlinewidth\n";
print "pagewidth lmarg sub rmarg sub 0 rlineto stroke\n";
print "pagewidth lmarg sub rmarg sub 0 rlineto currentpoint stroke moveto\n";
print "hfont1 setfont sti stringwidth pop neg ",
-$HeadFont{leading}, " rmoveto\n";
print "sti show\n";
# Print logo, if there is one
# FIX: To be 100% correct, this should look for DocumentNeeded*