The R Project SVN – R – Diff – /branches/djm-source/src/scripts/texi2dvi

 #! /bin/sh
 # texi2dvi --- produce DVI (or PDF) files from Texinfo (or LaTeX) sources.
-# $Id: texi2dvi,v 1.4 2003/09/25 06:15:28 hornik Exp $
+# $Id: texi2dvi,v 1.3 2004/02/17 16:59:46 karl Exp $
+#
 # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2001,
-# 2002, 2003 Free Software Foundation, Inc.
+# 2002, 2003, 2004 Free Software Foundation, Inc.
+#
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
 # the Free Software Foundation; either version 2, or (at your option)
 # any later version.
 # You should have received a copy of the GNU General Public License
 # along with this program; if not, you can either send email to this
 # program's maintainer or write to: The Free Software Foundation,
 # Inc.; 59 Temple Place, Suite 330; Boston, MA 02111-1307, USA.
+#
-# Original author: Noah Friedman <friedman@gnu.org>.
+# Original author: Noah Friedman.
+#
 # Please send bug reports, etc. to bug-texinfo@gnu.org.
 # If possible, please send a copy of the output of the script called with
 # the `--debug' option when making a bug report.
 # This string is expanded by rcs automatically when this file is checked out.
-rcs_revision='$Revision: 1.4 $'
+rcs_revision='$Revision: 1.3 $'
 rcs_version=`set - $rcs_revision; echo $2`
 program=`echo $0 | sed -e 's!.*/!!'`
-version="texi2dvi (GNU Texinfo 4.6) $rcs_version
+version="texi2dvi (GNU Texinfo 4.7) $rcs_version
-Copyright (C) 2003 Free Software Foundation, Inc.
+Copyright (C) 2004 Free Software Foundation, Inc.
 There is NO warranty.  You may redistribute this software
 under the terms of the GNU General Public License.
 For more information about these matters, see the files named COPYING."
 usage="Usage: $program [OPTION]... FILE...
   -l, --language=LANG  specify the LANG of FILE (LaTeX or Texinfo)
   -p, --pdf            use pdftex or pdflatex for processing
   -t, --command=CMD    insert CMD in copy of input file;
    or --texinfo=CMD    multiple values accumulate
-The values of the BIBTEX, LATEX (or PDFLATEX), MAKEINDEX, MAKEINFO, TEX
+The values of the BIBTEX, LATEX (or PDFLATEX), MAKEINDEX, MAKEINFO,
-(or PDFTEX), and TEXINDEX environment variables are used to run those
+TEX (or PDFTEX), TEXINDEX, and THUMBPDF environment variables are used
-commands, if they are set.  Any CMD strings are added after @setfilename
+to run those commands, if they are set.  Any CMD strings are added
-for Texinfo input, in the first line for LaTeX input.
+after @setfilename for Texinfo input, in the first line for LaTeX input.
 Email bug reports to <bug-texinfo@gnu.org>,
 general questions and discussion to <help-texinfo@gnu.org>.
 Texinfo home page: http://www.gnu.org/software/texinfo/"
 set_language=
 textra=         # Extra TeX commands to insert in the input file.
 textra_cmd=     # sed command to insert TEXTRA where appropriate
 tmpdir=${TMPDIR:-/tmp}/t2d$$  # avoid collisions on 8.3 filesystems.
 txincludes=     # TEXINPUTS extensions, with trailing colon
-txiprereq=19990129 # minimum texinfo.tex version to have macro expansion
+txiprereq=19990129 # minimum texinfo.tex version with macro expansion
 verbose=false   # echo for verbose mode
 orig_pwd=`pwd`
 # Systems which define $COMSPEC or $ComSpec use semicolons to separate
 CDPATH=${ZSH_VERSION+.}$path_sep
 # In case someone crazy insists on using grep -E.
 : ${EGREP=egrep}
+# return true if program $1 is somewhere in PATH, else false.
+#
+findprog () {
+  foundprog=false
+  for dir in `echo $PATH | tr "$path_sep" " "`; do
+    if test -x "$dir/$1"; then  # does anyone still need test -f?
+      foundprog=true
+      break
+    fi
+  done
+  $foundprog
+}
+# Report an error and exit with failure.
+fatal () {
+  echo "$0: $*" >&2
+  exit 1
+}
 # Save TEXINPUTS so we can construct a new TEXINPUTS path for each file.
-# Unfortunately bibtex and makeindex do not read TEXINPUTS.
+# Likewise for bibtex and makeindex.
 tex_envvars="BIBINPUTS BSTINPUTS INDEXSTYLE TEXINPUTS"
 for var in $tex_envvars; do
   eval ${var}_orig=\$$var
   export $var
 done
 # Push a token among the arguments that will be used to notice when we
 # ended options/arguments parsing.
 # Use "set dummy ...; shift" rather than 'set - ..." because on
 # Solaris set - turns off set -x (but keeps set -e).
 # Use ${1+"$@"} rather than "$@" because Digital Unix and Ultrix 4.3
     exit 2
   fi
   ;;
 esac
+# We can't do much without tex.
+#
+if findprog ${TEX:-tex}; then :; else cat <<EOM
+You don't have a working TeX binary (${TEX:-tex}) installed anywhere in
+your PATH, and texi2dvi cannot proceed without one.  If you want to use
+this script, you'll need to install TeX (if you don't have it) or change
+your PATH or TEX environment variable (if you do).  See the --help
+output for more details.
+For information about obtaining TeX, please see http://www.tug.org.  If
+you happen to be using Debian, you can get it with this command:
+  apt-get install tetex-bin
+EOM
+  exit 1
+fi
+# We want to use etex (or pdftex) if they are available, and the user
+# didn't explicitly specify.  We don't check for elatex and pdfelatex
+# because (as of 2003), the LaTeX team has asked that new distributions
+# use etex by default anyway.
+#
+# End up with the TEX and PDFTEX variables set to what we are going to use.
+if test -z "$TEX"; then
+  if findprog etex; then TEX=etex; else TEX=tex; fi
+fi
+#
+if test -z "$PDFTEX"; then
+  if findprog pdfetex; then PDFTEX=pdfetex; else PDFTEX=pdftex; fi
+fi
 # Prepare the temporary directory.  Remove it at exit, unless debugging.
 if test -z "$debug"; then
   trap "cd / && rm -rf $tmpdir" 0 1 2 15
 fi
 # Create the temporary directory with strict rights
 (umask 077 && mkdir $tmpdir) || exit 1
 # Prepare the tools we might need.  This may be extra work in some
-# cases, but improves the readibility of the script.
+# cases, but improves the readability of the script.
 utildir=$tmpdir/utils
 mkdir $utildir || exit 1
 # A sed script that preprocesses Texinfo sources in order to keep the
-# iftex sections only.  We want to remove non TeX sections, and
+# iftex sections only.  We want to remove non TeX sections, and comment
-# comment (with `@c texi2dvi') TeX sections so that makeinfo does not
+# (with `@c texi2dvi') TeX sections so that makeinfo does not try to
-# try to parse them.  Nevertheless, while commenting TeX sections,
+# parse them.  Nevertheless, while commenting TeX sections, don't
-# don't comment @macro/@end macro so that makeinfo does propagate
+# comment @macro/@end macro so that makeinfo does propagate them.
-# them.  Unfortunately makeinfo --iftex --no-ifhtml --no-ifinfo
+# Unfortunately makeinfo --iftex --no-ifinfo doesn't work well enough
-# doesn't work well enough (yet) to use that, so work around with sed.
+# (yet), makeinfo can't parse the TeX commands, so work around with sed.
+#
 comment_iftex_sed=$utildir/comment.sed
 cat <<EOF >$comment_iftex_sed
 /^@tex/,/^@end tex/{
   s/^/@c texi2dvi/
+}
   s/^/@c texi2dvi/
   /^@c texi2dvi@macro/,/^@c texi2dvi@end macro/{
     s/^@c texi2dvi//
+  }
+}
-/^@html/,/^@end html/{
-  s/^/@c (texi2dvi)/
-}
-/^@ifhtml/,/^@end ifhtml/{
-  s/^/@c (texi2dvi)/
-}
 /^@ifnottex/,/^@end ifnottex/{
   s/^/@c (texi2dvi)/
+}
 /^@ifinfo/,/^@end ifinfo/{
   /^@node/p
 else
   exec 5>&1
 fi
 # Enable tracing
-test "$debug" = t && set -x
+if test "$debug" = t; then
+  exec 6>&1
+  set -x
+else
+  exec 6>/dev/null
+fi
+#
 # TeXify files.
 for command_line_filename in ${1+"$@"}; do
   $verbose "Processing $command_line_filename ..."
   # If the COMMAND_LINE_FILENAME is not absolute (e.g., --debug.tex),
   # prepend `./' in order to avoid that the tools take it as an option.
-  echo "$command_line_filename" | $EGREP '^(/|[A-z]:/)' >/dev/null \
+  echo "$command_line_filename" | $EGREP '^(/|[A-z]:/)' >&6 \
   || command_line_filename="./$command_line_filename"
   # See if the file exists.  If it doesn't we're in trouble since, even
   # though the user may be able to reenter a valid filename at the tex
   # prompt (assuming they're attending the terminal), this script won't
   # If the user explicitly specified the language, use that.
   # Otherwise, if the first line is \input texinfo, assume it's texinfo.
   # Otherwise, guess from the file extension.
   if test -n "$set_language"; then
     language=$set_language
-  elif sed 1q "$command_line_filename" | grep 'input texinfo' >/dev/null; then
+  elif sed 1q "$command_line_filename" | grep 'input texinfo' >&6; then
     language=texinfo
   else
     language=
   fi
       if test $oformat = dvi; then
         tex=${LATEX:-latex}
       else
         tex=${PDFLATEX:-pdflatex}
       fi
+      thumbpdf=${THUMBPDF:-thumbpdf}
       ;;
     *)
       # Assume a Texinfo file.  Texinfo files need makeinfo, texindex and tex.
       bibtex=
       texindex=${TEXINDEX:-texindex}
       textra_cmd='/^@setfilename/a'
       if test $oformat = dvi; then
-        tex=${TEX:-tex}
+        tex=$TEX
       else
-        tex=${PDFTEX:-pdftex}
+        tex=$PDFTEX
       fi
       # Unless required by the user, makeinfo expansion is wanted only
       # if texinfo.tex is too old.
       if test "$expand" = t; then
         makeinfo=${MAKEINFO:-makeinfo}
         # Check if texinfo.tex performs macro expansion by looking for
         # its version.  The version is a date of the form YEAR-MO-DA.
         # We don't need to use [0-9] to match the digits since anyway
         # the comparison with $txiprereq, a number, will fail with non
         # digits.
-        txiversion_tex=txiversion.tex
-        echo '\input texinfo.tex @bye' >$tmpdir/$txiversion_tex
         # Run in the tmpdir to avoid leaving files.
+	(
-        eval `cd $tmpdir >/dev/null &&
+           cd $tmpdir
+	   echo '\input texinfo.tex @bye' >txiversion.tex
+	   # Be sure that if tex wants to fail, it is not interactive:
+	   # close stdin.
-              $tex $txiversion_tex 2>/dev/null |
+           $tex txiversion.tex </dev/null
+	) >$tmpdir/txiversion.out 2>$tmpdir/txiversion.err
+	if test $? != 0; then
+	  cat $tmpdir/txiversion.out
+	  cat $tmpdir/txiversion.err >&2
+	  fatal "texinfo.tex appears to be broken, quitting."
+        fi
-              sed -n 's/^.*\[\(.*\)version \(....\)-\(..\)-\(..\).*$/txiformat=\1 txiversion="\2\3\4"/p'`
+	eval `sed -n 's/^.*\[\(.*\)version \(....\)-\(..\)-\(..\).*$/txiformat=\1 txiversion="\2\3\4"/p' $tmpdir/txiversion.out`
         $verbose "texinfo.tex preloaded as \`$txiformat', version is \`$txiversion' ..."
         if test "$txiprereq" -le "$txiversion" >/dev/null 2>&1; then
           makeinfo=
         else
           makeinfo=${MAKEINFO:-makeinfo}
         fi
         # As long as we had to run TeX, offer the user this convenience:
         test "$txiformat" = Texinfo && escape=@
       fi
+      thumbpdf=${THUMBPDF:-thumbpdf}
       ;;
   esac
+  # Go to $tmpdir to try --help, since old versions that don't accept
+  # --help will generate a texput.log.
+  tex_help=`cd $tmpdir >/dev/null && $tex --help </dev/null 2>&1`
   # If possible, make TeX report error locations in GNU format.
   tex_args=
-  case `$tex --help </dev/null 2>&1` in
+  case $tex_help in
-   *file-line-error-style*) tex_args='--file-line-error-style';;
+    *file-line-error-style*) tex_args="$tex_args --file-line-error-style";;
   esac
   # Tell TeX to be batch if requested.  (\batchmode does not show
   # terminal output at all, so we don't want that.)
   $batch && tex_args="$tex_args ${escape}nonstopmode ${escape}input"
        && test -r "$filename_noext.log" \
        && (grep '^\\bibdata[{]'  "$filename_noext.aux" \
            && grep '^\\bibstyle[{]' "$filename_noext.aux" \
            && (grep 'Warning:.*Citation.*undefined' "$filename_noext.log" \
                || grep 'No file .*\.bbl\.' "$filename_noext.log")) \
-          >/dev/null 2>&1; \
+          >&6 2>&1; \
     then
       $verbose "Running $bibtex $filename_noext ..."
-      if $bibtex "$filename_noext" >&5; then :; else
+      $bibtex "$filename_noext" >&5 ||
-        echo "$0: $bibtex exited with bad status, quitting." >&2
+        fatal "$bibtex exited with bad status, quitting."
-        exit 1
-      fi
     fi
     # What we'll run texindex on -- exclude non-index files.
     # Since we know index files are last, it is correct to remove everything
     # before .aux and .?o?.  But don't really do <anything>o<anything>
     # files don't change, then there's no reason to run TeX again.
     # But we won't know that if the index files are out of date or
     # nonexistent.
     if test -n "$texindex" && test -n "$index_files"; then
       $verbose "Running $texindex $index_files ..."
-      if $texindex $index_files 2>&5 1>&2; then :; else
+      $texindex $index_files 2>&5 1>&2 ||
-         echo "$0: $texindex exited with bad status, quitting." >&2
+         fatal "$texindex exited with bad status, quitting."
-         exit 1
-      fi
     fi
     # Finally, run TeX.
     cmd="$tex $tex_args $filename_input"
     $verbose "Running $cmd ..."
     # LaTeX (and the package changebar) report in the LOG file if it
     # should be rerun.  This is needed for files included from
     # subdirs, since texi2dvi does not try to compare xref files in
     # subdirs.  Performing xref files test is still good since LaTeX
     # does not report changes in xref files.
-    if grep "Rerun to get" "$filename_noext.log" >/dev/null 2>&1; then
+    if grep "Rerun to get" "$filename_noext.log" >&6 2>&1; then
       finished=
     fi
     # Check if xref files changed.
     new_xref_files=`$get_xref_files "$filename_noext"`
       done
     fi
     # If finished, exit the loop, else rerun the loop.
     test -n "$finished" && break
+  done # while :;
+  # If we were using thumbpdf and producing PDF, then run thumbpdf
+  # and TeX one last time.
+  if test $oformat = pdf \
+     && test -r "$filename_noext.log" \
+     && grep 'thumbpdf\.sty'  "$filename_noext.log" >&6 2>&1; \
-  done
+  then
+    $verbose "Running $thumbpdf $filename_noext ..."
+    $thumbpdf "$filename_noext" >&5 ||
+      fatal "$thumbpdf exited with bad status, quitting."
+    $verbose "Running $cmd ..."
+    if $cmd >&5; then :; else
+      echo "$0: $tex exited with bad status, quitting." >&2
+      echo "$0: see $filename_noext.log for errors." >&2
+      test "$clean" = t \
+	&& cp "$filename_noext.log" "$orig_pwd"
+      exit 1
+    fi
+  fi
   # If we were in clean mode, compilation was in a tmp directory.
   # Copy the DVI (or PDF) file into the directory where the compilation
   # has been done.  (The temp dir is about to get removed anyway.)
   # We also return to the original directory so that
     cd /
     rm -rf $tmpdir_src $tmpdir_xtr $tmpdir_bak
   fi
 done
-$verbose "$0 done."
+$verbose "$0: done."
 exit 0 # exit successfully, not however we ended the loop.

The R Project SVN R

(root)/branches/djm-source/src/scripts/texi2dvi @ 34412 – Rev 29864 → 30691