The R Project SVN – R – Diff – /trunk/src/scripts/texi2dvi

 #! /bin/sh
 # texi2dvi --- produce DVI (or PDF) files from Texinfo (or LaTeX) sources.
-# $Id: texi2dvi,v 1.3 2004/02/17 16:59:46 karl Exp $
+# $Id: texi2dvi,v 1.34 2004/12/01 18:35:36 karl Exp $
+#
 # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2001,
 # 2002, 2003, 2004 Free Software Foundation, Inc.
+#
 # This program is free software; you can redistribute it and/or modify
 # GNU General Public License for more details.
+#
 # 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.; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301  USA.
+# Inc.; 59 Temple Place, Suite 330; Boston, MA 02111-1307, USA.
+#
 # 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='$Rev: 37351 $'
+rcs_revision='$Revision: 37939 $'
 rcs_version=`set - $rcs_revision; echo $2`
 program=`echo $0 | sed -e 's!.*/!!'`
-version="texi2dvi (GNU Texinfo 4.7) $rcs_version
+version="texi2dvi (GNU Texinfo 4.8) $rcs_version
 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."
   -@                   use @input instead of \input; for preloaded Texinfo
   -e, -E, --expand     force macro expansion using makeinfo
   -I DIR               search DIR for Texinfo files
   -l, --language=LANG  specify the LANG of FILE (LaTeX or Texinfo)
   -p, --pdf            use pdftex or pdflatex for processing
+  -r, --recode         call recode before TeX to translate input characters
-  -t, --command=CMD    insert CMD in copy of input file;
+  -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 (or PDFTEX), TEXINDEX, and THUMBPDF environment variables are used
 to run those commands, if they are set.  Any CMD strings are added
 expand=         # t for expansion via makeinfo
 miincludes=     # makeinfo include path
 oformat=dvi
 oname=          # --output
 quiet=          # by default let the tools' message be displayed
+recode=false
 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
 # 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
   # This recognizes --quark as --quiet.  So what.
   case "$1" in
     -@ ) escape=@;;
     # Silently and without documentation accept -b and --b[atch] as synonyms.
     -b | --b*) batch=true;;
-    -q | -s | --q* | --s*) quiet=t; batch=true;;
     -c | --c*) clean=t;;
     -D | --d*) debug=t;;
     -e | -E | --e*) expand=t;;
     -h | --h*) echo "$usage"; exit 0;;
     -I | --I*)
       case "$1" in
         /* | ?:/*) oname=$1;;
                 *) oname="$orig_pwd/$1";;
       esac;;
     -p | --p*) oformat=pdf;;
+    -q | -s | --q* | --s*) quiet=t; batch=true;;
+    -r | --r*) recode=true;;
     -t | --tex* | --com* ) shift; textra="$textra\\
 "`echo "$1" | sed 's/\\\\/\\\\\\\\/g'`;;
     -v | --vers*) echo "$version"; exit 0;;
     -V | --verb*) verbose=echo;;
     --) # What remains are not options.
   ;;
 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
 # 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
+#
 uncomment_iftex_sed=$utildir/uncomment.sed
 cat <<EOF >$uncomment_iftex_sed
 s/^@c texi2dvi//
 EOF
-# A shell script that computes the list of xref files.
+# Compute the list of xref files.
 # Takes the filename (without extension) of which we look for xref
 # files as argument.  The index files must be reported last.
-get_xref_files=$utildir/get_xref.sh
-cat <<\EOF >$get_xref_files
+get_xref_files ()
-#! /bin/sh
+{
-# Get list of xref files (indexes, tables and lists).
+  # Get list of xref files (indexes, tables and lists).
-# Find all files having root filename with a two-letter extension,
+  # Find all files having root filename with a two-letter extension,
-# saves the ones that are really Texinfo-related files.  .?o? catches
+  # saves the ones that are really Texinfo-related files.  .?o? catches
-# many files: .toc, .log, LaTeX tables and lists, FiXme's .lox, maybe more.
+  # many files: .toc, .log, LaTeX tables and lists, FiXme's .lox, maybe more.
-for this_file in "$1".?o? "$1".aux "$1".?? "$1".idx; do
+  for this_file in "$1".?o? "$1".aux "$1".?? "$1".idx; do
-  # If file is empty, skip it.
+    # If file is empty, skip it.
-  test -s "$this_file" || continue
+    test -s "$this_file" || continue
-  # If the file is not suitable to be an index or xref file, don't
+    # If the file is not suitable to be an index or xref file, don't
-  # process it.  It's suitable if the first character is a
+    # process it.  It's suitable if the first character is a
-  # backslash or right quote, as long as the first line isn't
+    # backslash or right quote or at, as long as the first line isn't
-  # \input texinfo.
+    # \input texinfo.
-  first_character=`sed -n '1s/^\(.\).*$/\1/p;q' $this_file`
+    first_character=`sed -n '1s/^\(.\).*$/\1/p;q' $this_file`
-  if (test "x$first_character" = "x\\" \
+    if (test "x$first_character" = "x\\" \
-      && sed 1q $this_file | grep -v '^\\input *texinfo' >/dev/null) \
+        && sed 1q $this_file | grep -v '^\\input *texinfo' >/dev/null) \
+       || test "x$first_character" = "x'" \
-     || test "x$first_character" = "x'"; then
+       || test "x$first_character" = "x@"; then
-    xref_files="$xref_files ./$this_file"
+      xref_files="$xref_files ./$this_file"
-  fi
+    fi
-done
+  done
-echo "$xref_files"
+  echo "$xref_files"
-EOF
+}
-chmod 500 $get_xref_files
 # File descriptor usage:
 # 0 standard input
 # 1 standard output (--verbose messages)
 # 2 standard error
   # _xtr.  The file with the user's extra commands.
   tmpdir_xtr=$tmpdir/xtr
   filename_xtr=$tmpdir_xtr/$filename_noext.$ext
+  # _rcd.  The Texinfo file recoded in 7bit.
+  tmpdir_rcd=$tmpdir/rcd
+  filename_rcd=$tmpdir_rcd/$filename_noext.$ext
   # _bak.  Copies of the previous xref files (another round is run if
   # they differ from the new one).
   tmpdir_bak=$tmpdir/bak
   # Make all those directories and give up if we can't succeed.
-  mkdir $tmpdir_src $tmpdir_xtr $tmpdir_bak || exit 1
+  mkdir $tmpdir_src $tmpdir_xtr $tmpdir_rcd $tmpdir_bak || exit 1
   # Source file might include additional sources.
   # We want `.:$orig_pwd' before anything else.  (We'll add `.:' later
   # after all other directories have been turned into absolute paths.)
   # `.' goes first to ensure that any old .aux, .cps,
   # we just guessed, or from the file extension if not set yet.
   case ${language:-$filename_ext} in
     [lL]a[tT]e[xX] | *.ltx | *.tex)
       # Assume a LaTeX file.  LaTeX needs bibtex and uses latex for
       # compilation.  No makeinfo.
+      language=latex
       bibtex=${BIBTEX:-bibtex}
       makeinfo= # no point in running makeinfo on latex source.
       texindex=${MAKEINDEX:-makeindex}
       textra_cmd=1i
       if test $oformat = dvi; then
       thumbpdf=${THUMBPDF:-thumbpdf}
       ;;
     *)
       # Assume a Texinfo file.  Texinfo files need makeinfo, texindex and tex.
+      language=texinfo
       bibtex=
       texindex=${TEXINDEX:-texindex}
       textra_cmd='/^@setfilename/a'
       if test $oformat = dvi; then
+        # MetaPost also uses the TEX environment variable.  If the user
+        # has set TEX=latex for that reason, don't bomb out.
+        if echo $TEX | grep 'latex$' >/dev/null; then
+          tex=tex  # don't bother trying to find etex
+        else
-        tex=$TEX
+          tex=$TEX
+        fi
       else
         tex=$PDFTEX
       fi
       # Unless required by the user, makeinfo expansion is wanted only
       # if texinfo.tex is too old.
   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 in
-    *file-line-error-style*) tex_args="$tex_args --file-line-error-style";;
+    *file-line-error*) tex_args="$tex_args --file-line-error";;
   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"
   # Used most commonly for @finalout, @smallbook, etc.
   if test -n "$textra"; then
     $verbose "Inserting extra commands: $textra"
     sed "$textra_cmd\\
-$textra" "$filename_input" >$filename_xtr
+$textra" "$filename_input" >"$filename_xtr"
     filename_input=$filename_xtr
   fi
+  # If this is a Texinfo file with a specified input encoding, and
+  # recode is available, then recode to plain 7 bit Texinfo.
+  if test $language = texinfo; then
+    pgm='s/\(^\|.* \)@documentencoding  *\([^ ][^ ]*\)\( .*\|$\)/\2/
+	t found
+	d
+	:found
+	q'
+    encoding=`sed -e "$pgm" "$filename_input"`
+    if $recode && test -n "$encoding" && findprog recode; then
+      $verbose "Recoding from $encoding to Texinfo."
+      if recode "$encoding"..texinfo <"$filename_input" >"$filename_rcd" \
+         && test -s "$filename_rcd"; then
+        filename_input=$filename_rcd
+      else
+        $verbose "Recoding failed, using original input."
+      fi
+    fi
+  fi
   # If clean mode was specified, then move to the temporary directory.
   if test "$clean" = t; then
     $verbose "cd $tmpdir_src"
     cd "$tmpdir_src" || exit 1
   fi
   while :; do # will break out of loop below
-    orig_xref_files=`$get_xref_files "$filename_noext"`
+    orig_xref_files=`get_xref_files "$filename_noext"`
     # Save copies of originals for later comparison.
     if test -n "$orig_xref_files"; then
       $verbose "Backing up xref files: `echo $orig_xref_files | sed 's|\./||g'`"
       cp $orig_xref_files $tmpdir_bak
       $texindex $index_files 2>&5 1>&2 ||
          fatal "$texindex exited with bad status, quitting."
     fi
     # Finally, run TeX.
-    cmd="$tex $tex_args $filename_input"
+    cmd="$tex $tex_args"
-    $verbose "Running $cmd ..."
+    $verbose "Running $cmd $filename_input ..."
-    if $cmd >&5; then :; else
+    if $cmd "$filename_input" >&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
     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"`
+    new_xref_files=`get_xref_files "$filename_noext"`
     $verbose "Original xref files = `echo $orig_xref_files | sed 's|\./||g'`"
     $verbose "New xref files      = `echo $new_xref_files | sed 's|\./||g'`"
     # If old and new lists don't at least have the same file list,
     # then one file or another has definitely changed.
   then
     $verbose "Running $thumbpdf $filename_noext ..."
     $thumbpdf "$filename_noext" >&5 ||
       fatal "$thumbpdf exited with bad status, quitting."
-    $verbose "Running $cmd ..."
+    $verbose "Running $cmd $filename_input..."
-    if $cmd >&5; then :; else
+    if $cmd "$filename_input" >&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

The R Project SVN R

(root)/trunk/src/scripts/texi2dvi @ 38245 – Rev 37351 → 37939