~ubuntu-branches/ubuntu/maverick/texinfo/maverick

# $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.

# Original author: Noah Friedman.

rcs_revision='$Revision: 1.34 $'

version="texi2dvi (GNU Texinfo 4.8) $rcs_version

Copyright (C) 2004 Free Software Foundation, Inc.

  -e, -E, --expand     force macro expansion using makeinfo

  -r, --recode         call recode before TeX to translate input characters

  -t, --command=CMD    insert CMD in copy of input file

   or --texinfo=CMD    multiple values accumulate

TEX (or PDFTEX), TEXINDEX, and THUMBPDF environment variables are used

to run those commands, if they are set.  Any CMD strings are added

after @setfilename for Texinfo input, in the first line for LaTeX input.

general questions and discussion to <help-texinfo@gnu.org>.

Texinfo home page: http://www.gnu.org/software/texinfo/"

oname=          # --output

recode=false

textra=         # Extra TeX commands to insert in the input file.

textra_cmd=     # sed command to insert TEXTRA where appropriate

txincludes=     # TEXINPUTS extensions, with trailing colon

txiprereq=19990129 # minimum texinfo.tex version with macro expansion

# Pacify verbose cds.

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.

# Likewise for bibtex and makeindex.

tex_envvars="BIBINPUTS BSTINPUTS INDEXSTYLE TEXINPUTS"

for var in $tex_envvars; do

  eval ${var}_orig=\$$var

  export $var

done

 

    -b | --b*) batch=true;;

    -e | -E | --e*) expand=t;;

      txincludes="$txincludes$1$path_sep"

    -q | -s | --q* | --s*) quiet=t; batch=true;;

    -r | --r*) recode=true;;

    -t | --tex* | --com* ) shift; textra="$textra\\

"`echo "$1" | sed 's/\\\\/\\\\\\\\/g'`;;

 

# 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

 

 

# cases, but improves the readability of the script.

# iftex sections only.  We want to remove non TeX sections, and comment

# (with `@c texi2dvi') TeX sections so that makeinfo does not try to

# parse them.  Nevertheless, while commenting TeX sections, don't

# comment @macro/@end macro so that makeinfo does propagate them.

# Unfortunately makeinfo --iftex --no-ifinfo doesn't work well enough

# (yet), makeinfo can't parse the TeX commands, so work around with sed.

#

# Compute the list of xref files.

get_xref_files ()

{

  # Get list of xref files (indexes, tables and lists).

  # Find all files having root filename with a two-letter extension,

  # saves the ones that are really Texinfo-related files.  .?o? catches

  # 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

    # If file is empty, skip it.

    test -s "$this_file" || continue

    # 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

    # backslash or right quote or at, as long as the first line isn't

    # \input texinfo.

    first_character=`sed -n '1s/^\(.\).*$/\1/p;q' $this_file`

    if (test "x$first_character" = "x\\" \

        && sed 1q $this_file | grep -v '^\\input *texinfo' >/dev/null) \

       || test "x$first_character" = "x'" \

       || test "x$first_character" = "x@"; then

      xref_files="$xref_files ./$this_file"

    fi

  done

  echo "$xref_files"

}

if test "$debug" = t; then

  exec 6>&1

  set -x

else

  exec 6>/dev/null

fi

  echo "$command_line_filename" | $EGREP '^(/|[A-z]:/)' >&6 \

  # _rcd.  The Texinfo file recoded in 7bit.

  tmpdir_rcd=$tmpdir/rcd

  filename_rcd=$tmpdir_rcd/$filename_noext.$ext

 

  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,

  common="$orig_pwd$path_sep$filename_dir$path_sep$txincludes"

  for var in $tex_envvars; do

    eval ${var}="\$common\$${var}_orig"

    export $var

  done

 

  # Convert relative paths to absolute paths, so we can run in another

  # directory (e.g., in --clean mode, or during the macro-support detection.)

  #

  # Empty path components are meaningful to tex.  We rewrite them

  # as `EMPTY' so they don't get lost when we split on $path_sep.

  # Hopefully no one will have an actual directory named EMPTY.

  replace_empty="-e 's/^$path_sep/EMPTY$path_sep/g' \

                 -e 's/$path_sep\$/${path_sep}EMPTY/g' \

                 -e 's/$path_sep$path_sep/${path_sep}EMPTY:/g'"

   TEXINPUTS=`echo $TEXINPUTS  | eval sed $replace_empty`

  INDEXSTYLE=`echo $INDEXSTYLE | eval sed $replace_empty`

  save_IFS=$IFS

  IFS=$path_sep

  set x $TEXINPUTS; shift

  TEXINPUTS=.

  for dir

  do

    case $dir in

      EMPTY)

        TEXINPUTS=$TEXINPUTS$path_sep

        ;;

      [\\/]* | ?:[\\/]*)        # Absolute paths don't need to be expanded.

        TEXINPUTS=$TEXINPUTS$path_sep$dir

        ;;

      *)

        abs=`cd "$dir" && pwd` && TEXINPUTS=$TEXINPUTS$path_sep$abs

        ;;

    esac

  done

  set x $INDEXSTYLE; shift

  INDEXSTYLE=.

  for dir

  do

    case $dir in

      EMPTY)

        INDEXSTYLE=$INDEXSTYLE$path_sep

        ;;

      [\\/]* | ?:[\\/]*)        # Absolute paths don't need to be expansed.

        INDEXSTYLE=$INDEXSTYLE$path_sep$dir

        ;;

      *)

        abs=`cd "$dir" && pwd` && INDEXSTYLE=$INDEXSTYLE$path_sep$abs

        ;;

    esac

  done

  IFS=$save_IFS

  elif sed 1q "$command_line_filename" | grep 'input texinfo' >&6; then

      language=latex

      textra_cmd=1i

      thumbpdf=${THUMBPDF:-thumbpdf}

      language=texinfo

      textra_cmd='/^@setfilename/a'

        # 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

        fi

        tex=$PDFTEX

        (

           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 </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

        eval `sed -n 's/^.*\[\(.*\)version \(....\)-\(..\)-\(..\).*$/txiformat=\1 txiversion="\2\3\4"/p' $tmpdir/txiversion.out`

        # As long as we had to run TeX, offer the user this convenience:

        test "$txiformat" = Texinfo && escape=@

      thumbpdf=${THUMBPDF:-thumbpdf}

  # 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 in

    *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"

 

    sed "$textra_cmd\\

$textra" "$filename_input" >"$filename_xtr"

  # 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

 

    orig_xref_files=`get_xref_files "$filename_noext"`

          >&6 2>&1; \

      $bibtex "$filename_noext" >&5 ||

        fatal "$bibtex exited with bad status, quitting."

    # before .aux and .?o?.  But don't really do <anything>o<anything>

    # -- don't match whitespace as <anything>.

    # Otherwise, if orig_xref_files contains something like

    #   foo.xo foo.whatever

    # the space after the o will get matched.

                        s!./$filename_noext\.[^ ]o[^ ]!!g;

      $texindex $index_files 2>&5 1>&2 ||

         fatal "$texindex exited with bad status, quitting."

    cmd="$tex $tex_args"

    $verbose "Running $cmd $filename_input ..."

    if $cmd "$filename_input" >&5; then :; else

    if grep "Rerun to get" "$filename_noext.log" >&6 2>&1; then

    new_xref_files=`get_xref_files "$filename_noext"`

  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; \

  then

    $verbose "Running $thumbpdf $filename_noext ..."

    $thumbpdf "$filename_noext" >&5 ||

      fatal "$thumbpdf exited with bad status, quitting."

 

    $verbose "Running $cmd $filename_input..."

    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

    fi

  fi

 

$verbose "$0: done."