updated; fixed some processing w/XML; htmldoc pts to first page

This commit is contained in:
gferg 2001-01-25 22:13:24 +00:00
parent 21fea0b490
commit 88b1b2483c
1 changed files with 11 additions and 9 deletions

View File

@ -64,7 +64,7 @@ if( $style eq '' ) {
# determine DTD
#
open(FP_IN, "head -50 $fname | grep -i '\!doctype' |") ||
open(FP_IN, "head -100 $fname | grep -i '\!doctype' |") ||
die "\nldp_mk: ERROR - cannot determine DTD for $fname\n";
$s = <FP_IN>;
close(FP_IN);
@ -126,11 +126,13 @@ if( $linuxdoc == 0 && $create_index == 1 ) {
print "\nldp_mk: creating index from $fname...\n";
$cmd =
"$_toolroot/mkindex/collateindex.pl -N -o index.sgml; " .
"$_toolroot/$_jade/jade/jade -t sgml -V html-index -d $style $dcl $fname ; " .
"$_toolroot/mkindex/collateindex.pl -N -o index." .
($dtd eq 'XML' ? "xml;" : "sgml;") .
"$_toolroot/$_jade/jade/jade -t sgml -V html-index -d $style $dcl $fname; " .
"$_toolroot/mkindex/collateindex.pl -g -t Index -i doc-index " .
"-o index.sgml HTML.index;" .
"-o index." . ($dtd eq 'XML' ? "xml" : "sgml") . " HTML.index;" .
"rm -f HTML.index";
system($cmd);
}
@ -271,10 +273,10 @@ if( $linuxdoc == 1 ) {
if( -e "00_$fname_wo_ext.html" ) {
$cmd = "$_toolroot/htmldoc/bin/htmldoc --size universal -t pdf -f " .
"$fname_wo_ext.pdf $print_str; " .
"$_toolroot/htmldoc/bin/htmldoc --size universal -t ps -f " .
"$fname_wo_ext.ps $print_str";
$cmd = "$_toolroot/htmldoc/bin/htmldoc --size universal -t pdf " .
"--firstpage p1 -f $fname_wo_ext.pdf $print_str; " .
"$_toolroot/htmldoc/bin/htmldoc --size universal -t ps " .
"--firstpage p1 -f $fname_wo_ext.ps $print_str";
system($cmd);
if( !(-e "$fname_wo_ext.pdf") ) {
@ -347,7 +349,7 @@ if( $linuxdoc == 1 ) {
# cleanup
system("rm -f index.sgml body.html title.html");
system("rm -f index.sgml index.xml body.html title.html");
print "\nldp_mk: completed...\n";