]> git.ipfire.org Git - thirdparty/bash.git/commitdiff
Imported from ../bash-2.05.tar.gz.
authorJari Aalto <jari.aalto@cante.net>
Fri, 6 Apr 2001 19:14:31 +0000 (19:14 +0000)
committerJari Aalto <jari.aalto@cante.net>
Sat, 12 Sep 2009 16:46:53 +0000 (16:46 +0000)
251 files changed:
CHANGES
COMPAT
CWRU/POSIX.NOTES
CWRU/changelog
CWRU/maildir-patch [new file with mode: 0644]
INSTALL
MANIFEST
Makefile.in
NEWS
NOTES
README
aclocal.m4
array.c
bashhist.c
bashline.c
bashline.h
bracecomp.c
braces.c
builtins/Makefile.in
builtins/alias.def
builtins/bind.def
builtins/break.def
builtins/cd.def
builtins/common.c
builtins/common.h
builtins/complete.def
builtins/declare.def
builtins/enable.def
builtins/evalfile.c
builtins/evalstring.c
builtins/fc.def
builtins/getopts.def
builtins/hash.def
builtins/history.def
builtins/mkbuiltins.c
builtins/printf.def
builtins/pushd.def
builtins/read.def
builtins/set.def
builtins/setattr.def
builtins/shopt.def
builtins/source.def
builtins/trap.def
builtins/type.def
builtins/ulimit.def
builtins/umask.def
builtins/wait.def
command.h
config-bot.h
config-top.h
config.h.in
configure
configure.in
copy_cmd.c
doc/FAQ
doc/Makefile.in
doc/bash.1
doc/bashref.info
doc/bashref.texi
doc/readline.3 [deleted file]
doc/texinfo.tex
error.c
eval.c
examples/complete/complete-examples
examples/complete/complete.freebsd [new file with mode: 0644]
examples/complete/complete.ianmac [new file with mode: 0644]
examples/complete/complete2.ianmac [new file with mode: 0644]
examples/functions/array-to-string [new file with mode: 0644]
examples/functions/emptydir [new file with mode: 0644]
examples/functions/fact
examples/functions/gethtml [new file with mode: 0644]
examples/functions/ksh-cd [new file with mode: 0644]
examples/functions/kshenv
examples/functions/lowercase
examples/functions/recurse [new file with mode: 0644]
examples/functions/sort-pos-params [new file with mode: 0644]
examples/loadables/Makefile.in
examples/loadables/cut.c [new file with mode: 0644]
examples/loadables/finfo.c
examples/loadables/getconf.c
examples/loadables/push.c [new file with mode: 0644]
examples/loadables/realpath.c [new file with mode: 0644]
examples/scripts/adventure.sh
examples/scripts/cat.sh [new file with mode: 0644]
examples/scripts/dd-ex.sh [new file with mode: 0644]
execute_cmd.c
expr.c
externs.h
findcmd.c
findcmd.h
flags.c
general.c
general.h
hashlib.c
include/ansi_stdlib.h
include/shtty.h
input.c
input.h
jobs.c
jobs.h
lib/glob/fnmatch.c
lib/glob/glob.c
lib/malloc/gmalloc.c
lib/malloc/malloc.c
lib/readline/COPYING
lib/readline/Makefile.in
lib/readline/ansi_stdlib.h
lib/readline/bind.c
lib/readline/callback.c
lib/readline/chardefs.h
lib/readline/compat.c [new file with mode: 0644]
lib/readline/complete.c
lib/readline/display.c
lib/readline/doc/hist.texinfo
lib/readline/doc/hstech.texinfo
lib/readline/doc/hsuser.texinfo
lib/readline/doc/manvers.texinfo
lib/readline/doc/rlman.texinfo
lib/readline/doc/rltech.texinfo
lib/readline/doc/rluser.texinfo
lib/readline/doc/rluserman.texinfo
lib/readline/emacs_keymap.c
lib/readline/examples/excallback.c
lib/readline/examples/fileman.c
lib/readline/examples/histexamp.c
lib/readline/examples/manexamp.c
lib/readline/examples/rl.c
lib/readline/funmap.c
lib/readline/histexpand.c
lib/readline/histfile.c
lib/readline/histlib.h
lib/readline/history.c
lib/readline/history.h
lib/readline/histsearch.c
lib/readline/input.c
lib/readline/isearch.c
lib/readline/keymaps.c
lib/readline/keymaps.h
lib/readline/kill.c
lib/readline/macro.c
lib/readline/nls.c
lib/readline/parens.c
lib/readline/readline.c
lib/readline/readline.h
lib/readline/rldefs.h
lib/readline/rlprivate.h
lib/readline/rlshell.h
lib/readline/rlstdc.h
lib/readline/rltty.c
lib/readline/rltypedefs.h [new file with mode: 0644]
lib/readline/savestring.c
lib/readline/search.c
lib/readline/shell.c
lib/readline/signals.c
lib/readline/terminal.c
lib/readline/tilde.c
lib/readline/tilde.h
lib/readline/undo.c
lib/readline/util.c
lib/readline/vi_keymap.c
lib/readline/vi_mode.c
lib/sh/Makefile.in
lib/sh/makepath.c
lib/sh/netopen.c
lib/sh/pathcanon.c [new file with mode: 0644]
lib/sh/pathphys.c [new file with mode: 0644]
lib/sh/shquote.c
lib/sh/spell.c [new file with mode: 0644]
lib/sh/strcasecmp.c
lib/sh/strindex.c [new file with mode: 0644]
lib/sh/stringlist.c [new file with mode: 0644]
lib/sh/stringvec.c [new file with mode: 0644]
lib/sh/strtol.c
lib/sh/strtrans.c [new file with mode: 0644]
lib/sh/times.c
lib/sh/tmpfile.c [new file with mode: 0644]
lib/sh/zread.c
lib/sh/zwrite.c
lib/tilde/tilde.c
lib/tilde/tilde.h
locale.c
mailcheck.c
make_cmd.c
mksyntax.c [new file with mode: 0644]
nojobs.c
parse.y
parser-built
pathexp.c
pathexp.h
pcomplete.c
pcomplete.h
pcomplib.c
print_cmd.c
redir.c
shell.c
shell.h
sig.c
stringlib.c
subst.c
subst.h
support/bashbug.sh
support/config.guess
support/config.sub
support/mksignames.c
support/rlvers.sh
support/shobj-conf
syntax.h [new file with mode: 0644]
test.c
tests/arith-for.right
tests/arith-for.tests
tests/arith.right
tests/arith.tests
tests/array.right
tests/array.tests
tests/cond.right
tests/cond.tests
tests/cprint.right
tests/dollar-at-star
tests/dollar.right
tests/exec.right
tests/exec6.sub [new file with mode: 0644]
tests/execscript
tests/func.right
tests/func.tests
tests/func2.sub [new file with mode: 0644]
tests/func3.sub [new file with mode: 0644]
tests/glob-test
tests/glob.right
tests/more-exp.right
tests/more-exp.tests
tests/new-exp.right
tests/new-exp.tests
tests/posix2.tests
tests/set-e-test
tests/set-e.right
tests/shopt.right
tests/test.right
tests/test.tests
tests/trap.right
tests/trap.tests
tests/varenv.right
tests/varenv.sh
tests/varenv1.sub [new file with mode: 0644]
trap.c
unwind_prot.c
unwind_prot.h
variables.c
variables.h
version.c
y.tab.c
y.tab.h

diff --git a/CHANGES b/CHANGES
index 9c571313a83120044b6c4fe866da055776cbf075..bfe7045b5acffeb9727e0b631868add8baa4bd67 100644 (file)
--- a/CHANGES
+++ b/CHANGES
@@ -1,3 +1,559 @@
+This document details the changes between this version, bash-2.05-release,
+and the previous version, bash-2.05-beta2.
+
+1.  Changes to Bash
+
+a.  Make sure we note that the first line of a multi-line command was not
+    saved in the history if the tests for HISTCONTROL succeed, but the
+    HISTIGNORE check fails.
+
+b.  Fixed a bug in the pattern matching code that caused `[' to be treated
+    as a special character inside a `[...]' bracket expression.
+
+c.  Fixed a bug in the pattern matching code that caused `]' to terminate
+    a bracket expression even if it was the first character after the `['
+    (or a leading `!' or `^').
+
+d.  Made a small change to report a more user-friendly error message if
+    execve(2) fails because of an error with the interpreter in a script
+    with a leading `#! interpreter'.
+
+e.  If the OS does not support an exec(2) magic number of `#!', make sure we
+    have a non-null interpreter name before attempting to execute it.
+
+f.  Fixed a bug that caused the shell process to end up in a different
+    process group than the controlling terminal if a job-control shell was
+    run with `exec' in the startup files.
+
+g.  When started in POSIX mode, either by `bash --posix', `bash -o posix', or
+    `sh', $SHELLOPTS includes `posix' and POSIXLY_CORRECT is set.
+
+h.  Fixed a problem that caused the `\W' prompt string escape sequence to
+    expand to nothing when $PWD was `//'.
+
+i.  The `bashbug' shell script no longer uses $(...) command substitution.
+
+j.  When `set' is invoked without options in POSIX mode, it no longer prints
+    the names and definitions of shell functions.
+
+2.  Changes to Readline
+
+a.  rl_set_paren_blink_timeout() is now documented.
+
+b.  Corrected history.3 man page: `$' is not in the default value of
+    history_word_delimiters.
+
+c.  If a hook function assigned to rl_event_hook sets rl_done to a non-zero
+    value, rl_read_key() now immediately returns '\n' (which is assumed to
+    be bound to accept-line).
+
+3.  New Features in Bash
+
+a.  The `>&word' redirection now works in POSIX mode as it does by default,
+    since POSIX.2 leaves it unspecified.
+
+------------------------------------------------------------------------------
+This document details the changes between this version, bash-2.05-beta2,
+and the previous version, bash-2.05-beta1.
+
+1.  Changes to Bash
+
+a.  Fixed a bug in the arithmetic evaluation code so that a^=b is supported.
+
+b.  Fixed startup so posixly_correct is retained across subshells begun to
+    execute scripts without a leading `#!'.
+
+c.  Fixed a bug that caused $(< file) to not work in a (...) subshell.
+
+d.  Added config support for Linux running on the IBM S390.
+
+e.  Fixed a bug that caused bash to get its input pointer out of sync when
+    reading commands through a pipe and running a command with standard
+    input redirected from a file.
+
+f.  Made a change so that command completion now makes about half as many
+    stat(2) calls when searching the $PATH.
+
+g.  Fixed a bug that caused variable assignments preceding `return' to not
+    be propagated to the shell environment in POSIX mode.
+
+h.  Fixed a bug with ${parameter[:]?word} -- tilde expansion was not performed
+    on `word'.
+
+i.  In POSIX mode, `break' and `continue' do not complain and return success
+    if called when the shell is not executing a loop.
+
+j.  Fixed `bash -o posix' to work the same as `bash --posix'.
+
+k.  Fixed a bug where variable assignments preceding `eval' or `source/.'
+    would not show up in the environment exported to subshells run by the
+    commands.
+
+l.  In POSIX mode, shells started to execute command substitutions inherit
+    the value of the `-e' option from their parent shell.
+
+m.  In POSIX mode, aliases are expanded even in non-interactive shells.
+
+n.  Changed some of the job control messages to display the text required by
+    POSIX.2 when the shell is in POSIX mode.
+
+o.  Fixed a bug in `test' that caused it to occasionally return incorrect
+    results when non-numeric arguments were supplied to `-t'.
+
+2.  Changes to Readline
+
+a.  Some changes were made to avoid gcc warnings with -Wall.
+
+b.  rl_get_keymap_by_name now finds keymaps case-insensitively, so
+    `set keymap EMACS' works.
+
+c.  The history file writing and truncation functions now return a useful
+    status on error.
+
+d.  Fixed a bug that could cause applications to dereference a NULL pointer
+    if a NULL second argument was passed to history_expand().
+
+3.  New Features in Bash
+
+a.  doc/readline.3 has been moved to the readline distribution.
+
+4.  New Features in Readline
+
+a.  New function, rl_get_screen_size (int *rows, int *columns), returns
+    readline's idea of the screen dimensions.
+
+b.  The timeout in rl_gather_tyi (readline keyboard input polling function)
+    is now settable via a function (rl_set_keyboard_input_timeout()).
+
+c.  Renamed the max_input_history variable to history_max_entries; the old
+    variable is maintained for backwards compatibility.
+
+d.  The list of characters that separate words for the history tokenizer is
+    now settable with a variable:  history_word_delimiters.  The default
+    value is as before.
+
+------------------------------------------------------------------------------
+This document details the changes between this version, bash-2.05-beta1,
+and the previous version, bash-2.05-alpha1.
+
+1.  Changes to Bash
+
+a.  Changes to allow shared library and object building on the GNU Hurd.
+
+b.  Fixes to the way exported functions are placed into the environment and
+    cached.
+
+c.  The globbing library once again respects locales when processing ranges
+    in bracket expressions while doing pattern matching.
+
+d.  System-specific configuration changes for:  Tru 64, Interix
+
+e.  Bashbug now uses /usr/bin/editor as one of the editing alternatives, and
+    will use mktemp(1) or tempfile(1), if present, for temporary file creation.
+
+f.  Bash no longer performs a binary file check on a script argument that's
+    really a tty (like /dev/fd/0 or /dev/stdin).
+
+g.  Fixed a bug in the execution of shell scripts that caused the effects of
+    $BASH_ENV to be undone in some cases.
+
+h.  Fixed several bugs that made `bash [-i] /dev/stdin' not work correctly.
+
+i.  Several changes to the job control code to avoid some signal state
+    manipulation.
+
+j.  The Bash malloc no longer blocks signals as often, which should make it
+    faster.
+
+k.  Fixed a parsing bug that did not allow backslash to escape a single quote
+    inside a $'...' construct.
+
+l.  Fixed a bug that caused things like ${var:=$'value'} to be parsed
+    incorrectly.  This showed up in newer versions of autoconf.
+
+m.  Fixed a bug in the bash-specific readline initialization that caused
+    key bindings to bash-specific function names appearing in .inputrc to
+    not be honored.
+
+n.  Bash now sets the file descriptor it uses to save the file descriptor
+    opened on a shell script to close on exec.
+
+o.  Fixed a bug in the prompt string decoding that caused it to misbehave
+    when presented an octal sequence of fewer than three characters.
+
+p.  Fixed the `test' builtin to return an error if `[' is supplied a single
+    argument that is not `]'.
+
+q.  Fixed a bug that caused subshells started to run executable shell scripts
+    without a leading `#!' to incorrectly inherit an argument list preceding
+    a shell builtin (like such a script called from a script sourced with `.',
+    where there were variable assignments preceding the `.' command)
+
+r.  Fixed a bug that caused changes to variables supplied in an assignment
+    statement preceding a shell builtin to not be honored (like a script
+    run with `.').
+
+s.  HOSTTYPE, OSTYPE, and MACHTYPE are set only if they do not have values
+    when the shell is started.
+
+t.  Fixed a bug that caused SIGINT to kill shell scripts after the script
+    called `wait'.
+
+u.  The `fc' builtin now tries to create its temporary files in the directory
+    named by $TMPDIR.
+
+v.  Bash no longer calls any Readline functions or uses any Readline variables
+    not declared in readline.h.
+
+w.  Fixed a bug that caused some substitutions involving $@ to not be split
+    correctly, especially expansions of the form ${paramterOPword}.
+
+x.  SSH2_CLIENT is now treated like SSH_CLIENT and not auto-exported if it
+    appears in the initial environment.
+
+y.  Fixed a couple of problems with shell scripts without a leading `#!'
+    being executed out of shell functions that could cause core dumps if
+    such a script attempted to execute `return'.
+
+z.  Fixed a problem with the `-nt' and `-ot' binary operators for the
+    `test/[' builtin and the `[[' conditional command that caused wrong
+    return values if one of the file arguments did not exist.
+
+aa. Fixed a bug that caused non-interactive shells which had previously
+    executed `shopt -s expand_aliases' to fail to expand aliases in a
+    command like `(command) &'.
+2.  Changes to Readline
+
+a.  Changes to make most (but not yet all -- there is still crlf()) of the
+    exported readline functions declared in readline.h have an rl_ prefix.
+
+b.  More `const' changes in function arguments, mostly for completion
+    functions.
+
+c.  Fixed a bug in rl_forward that could cause the point to be set to before
+    the beginning of the line in vi mode.
+
+d.  Fixed a bug in the callback read-char interface to make it work when a
+    readline function pushes some input onto the input stream with
+    rl_execute_next (like the incremental search functions).
+
+e.  Fixed a file descriptor leak in the history file manipulation code that
+    was tripped when attempting to truncate a non-regular file (like
+    /dev/null).
+
+f.  Some existing variables are now documented and part of the public
+    interface (declared in readline.h):  rl_explict_arg, rl_numeric_arg,
+    rl_editing_mode, rl_last_func.
+
+g.  Renamed rltty_set_default_bindings to rl_tty_set_default_bindings and
+    crlf to rl_crlf, so there are no public functions declared in readline.h
+    without an `rl_' prefix.  The old functions still exist for backwards
+    compatibility.
+
+3.  New Features in Bash
+
+a.  A new loadable builtin, realpath, which canonicalizes and expands symlinks
+    in pathname arguments.
+
+b.  When `set' is called without options, it prints function defintions in a
+    way that allows them to be reused as input.  This affects `declare' and
+    `declare -p' as well.
+
+4.  New Features in Readline
+
+a.  New application-callable function rl_set_prompt(const char *prompt):
+    expands its prompt string argument and sets rl_prompt to the result.
+
+b.  New application-callable function rl_set_screen_size(int rows, int cols):
+    public method for applications to set readline's idea of the screen
+    dimensions.
+
+c.  The history example program (examples/histexamp.c) is now built as one
+    of the examples.
+
+------------------------------------------------------------------------------
+This document details the changes between this version, bash-2.05-alpha1,
+and the previous version, bash-2.04-release.
+
+1.  Changes to Bash
+
+a.  A fix was made to allow newlines in compond array assignments.
+
+b.  configure now checks for real-time signals with unusable values.
+
+c.  Interactive shells no longer exit if a substitution fails because of an
+    unset variable within a sourced file.
+
+d.  Fixed a problem with incorrect matching of extended glob patterns when
+    doing pattern substitution.
+
+e.  `{' is now quoted by the completion code when it appears in a filename.
+
+f.  Fixed an error in pattern matching that caused the matcher to not
+    correctly skip the rest of a bracket expression after a character
+    matched.
+
+g.  Fixed a bug in the IFS word splitting code to make a non-whitespace IFS
+    character preceded by IFS whitespace part of the current delimiter rather
+    than generating a separate field.
+
+h.  The {!prefix@} expansion now generates separate words, analogous to $@,
+    when double-quoted.
+
+i.  Command substitution now ignores NUL bytes in the command output, and the
+    parser ignores them on input.
+
+j.  A fix was made to the job control code to prevent hanging processes when
+    the shell thinks background processes are running but the kernel returns
+    -1/ECHILD from waitpid().
+
+k.  `pwd' now prints an error message if the write fails when displaying the
+    current directory.
+
+l.  When in POSIX mode, the shell prints trap dispostions without a leading
+    `SIG' in the signal specification.
+
+m.  Fixed a parser bug that caused the current command's line count to be
+    messed up by a compound array assignment.
+
+n.  Fixed a bug in the unwind-protect code that caused bad behavior on machines
+    where ints and pointers are not the same size.
+
+o.  System-specific configure changes for:  MacOS X.
+
+p.  Changes for Cygwin to translate \r\n and \r to \n and to set file
+    descriptors used for reading input to text mode in various places.
+
+q.  Fixed a bug that caused `!' to occasionally not be honored when in
+    a (...) subshell.
+
+r.  Bash no longer assumes that getcwd() will return any useful error message
+    in the buffer passed as an argument if the call fails.
+
+s.  The `source', `.', and `fc' builtins no longer check whether a file is
+    binary before reading commands from it.
+
+t.  Subshells no longer turn off job control when they exit, since that
+    sometimes resulted in the terminal being reset to the wrong process
+    group.
+
+u.  The history code no longer tries to save the second and subsequent lines
+    of a multi-line command if the first line was not saved.
+
+v.  The history saving code now does a better job of saving blank lines in a
+    multi-line command.
+
+w.  Removed a `feature' that made `ulimit' silently translate `unlimited' to
+    the current hard limit, which obscured some kernel error returns.
+
+x.  Fixed the grammar so that `}' is recognized as a reserved word after
+    another reserved word, rather than requiring a `;' or newline.  This
+    means that constructs like
+
+       { { echo a b c ; } }
+
+    work as expected.
+
+y.  Conditional commands ([[...]]) now perform tilde expansion on their
+    arguments.
+
+z.  Noted in the documentation that `set -a' will cause functions to be
+    exported if they are defined after `set -a' is executed.
+
+aa. When an interactive login shell starts, if $PWD and $HOME refer to the
+    same directory but are not the same string, $PWD is set to $HOME.
+
+bb. Fixed `printf' to handle invalid floating point numbers better.
+
+cc. Temporary files are now created with random filenames, to improve security.
+
+dd. The readline initialization code now binds the custom bash functions and
+    key bindings after the readline defaults are set up.
+
+ee. Fixed the `source' builtin to no longer overwrite a shell function's
+    argument list, even if the sourced file changes the positional parameters.
+
+ff. A bug fix was made in the expansion of `$*' in contexts where it should
+    not be split, like assignment statements.
+
+gg. Fixed a bug in the parameter substring expansion to handle conditional
+    arithmetic expressions ( exp ? val1 : val2 ) without cutting the expression
+    off at the wrong `:'.
+
+hh. The `<>' redirection is no longer subject to the current setting of
+    `noclobber', as POSIX.2 specifies.
+
+ii. Fixed a bug in the conditional command parsing code that caused expressions
+    in parentheses to occasionally be parsed incorrectly.
+
+jj. Fixed a bug in the ((...)) arithmetic command to allow do...done or
+    {...} to follow the )) without an intervening list terminator.
+
+kk. `printf' now treats `\E' the same as `\e' when performing backslash escape
+    expansion for the `%b' format specifier.
+
+ll. When in POSIX mode, the shell no longer searches the current directory for
+    a file to be sourced with `.' or `source' if `.' is not in $PATH.
+
+mm. Interactive comments are no longer turned off when POSIX mode is disabled.
+
+nn. The UID, EUID, HOSTNAME variables are not set if they are in the shell's
+    environment when it starts up.
+
+oo. Fixed a bug in the `command' builtin so the effect of a command like
+    `command exec 4<file' is as if the `command' had been omitted.
+
+pp. ${foo[@]} and ${foo[*]} now work as in ksh93 if `foo' is not an array
+    variable.
+
+qq. ${#foo[X]}, where X is 0, @, or *, now work as in ksh93 if `foo' is not
+    an array variable.
+
+rr. The shell's idea of an absolute pathname now takes into account a
+    possible drive specification on Cygwin and other Windows systems.
+
+ss. Fixed a bug which caused incorrect parsing of some multi-character
+    constructs if they were split across input lines with backslash-newline
+    line continuation.
+
+tt. Fixed a bug that caused restricted shell mode to be set inappropriately
+    when trying to execute a shell script without a leading `#!'.
+
+uu. Shell function definitions no longer require that the body be a group
+    command ( {...} ), as POSIX.2 requires.
+
+vv. The `cd' and `pwd' builtins now process symlinks in pathnames internally
+    and should require many fewer calls to getcwd().
+
+ww. Fixed a bug that caused a pipeline's process group to be set incorrectly
+    if one of the pipeline elements contained a command substitution.
+
+xx. Fixed a bug that caused core dumps when expanding the value of HISTIGNORE.
+
+yy. The output of `set' is now quoted using $'...' so invisible characters are
+    displayed as escape sequences.
+
+zz. Fixed the help text for `unset', since PATH and IFS may both be unset.
+
+aaa. The shell no longer puts directory names into the command hash table.
+
+bbb. Fixed a bug in `read' that caused it to occasionally free memory twice if
+     it was interrupted after reading a large amount of data.
+
+ccc. Assignment statements that attempt to assign values to readonly variables
+     now cause the command to return an error status.
+
+ddd. Fixed a bug that could cause incorrect output if a $(<file) construct was
+     interrupted.
+
+eee. GROUPS and FUNCNAME now return an error status when assignment is
+     attempted, but may be unset (in which case they lose their special
+     properties).  In all respects except unsetting, they are readonly.
+
+fff. The string-to-integer conversion code now ignores trailing whitespace in
+     the string, even if strtol(3) does not.
+
+ggg. The tcsh magic-space function now does a better job of inserting the
+     space close to where the point was before the history expansion, rather
+     than just appending it.
+
+hhh. Fixed a bug which caused a file sourced from an interactive shell to
+     fill up the jobs table if it ran lots of jobs.
+
+iii. Fixed a bug in the parameter pattern substitution code to avoid infinite
+     recursion on zero-length matches.
+
+2.  Changes to Readline
+
+a.  When setting the terminal attributes on systems using `struct termio',
+    readline waits for output to drain before changing the attributes.
+
+b.  A fix was made to the history word tokenization code to avoid attempts to
+    dereference a null pointer.
+
+c.  Readline now defaults rl_terminal_name to $TERM if the calling application
+    has left it unset, and tries to initialize with the resultant value.
+
+d.  Instead of calling (*rl_getc_function)() directly to get input in certain
+    places, readline now calls rl_read_key() consistently.
+
+e.  Fixed a bug in the completion code that allowed a backslash to quote a
+    single quote inside a single-quoted string.
+
+f.  rl_prompt is no longer assigned directly from the argument to readline(),
+    but uses memory allocated by readline.  This allows constant strings to
+    be passed to readline without problems arising when the prompt processing
+    code wants to modify the string.
+
+g.  Fixed a bug that caused non-interactive history searches to return the
+    wrong line when performing multiple searches backward for the same string.
+
+h.  Many variables, function arguments, and function return values are now
+    declared `const' where appropriate, to improve behavior when linking with
+    C++ code.
+
+i.  The control character detection code now works better on systems where
+    `char' is unsigned by default.
+
+j.  The vi-mode numeric argument is now capped at 999999, just like emacs mode.
+
+k.  The Function, CPFunction, CPPFunction, and VFunction typedefs have been
+    replaced with a set of specific prototyped typedefs, though they are
+    still in the readline header files for backwards compatibility.
+
+m.  Nearly all of the (undocumented) internal global variables in the library
+    now have an _rl_ prefix -- there were a number that did not, like
+    screenheight, screenwidth, alphabetic, etc.
+
+n.  The ding() convenience function has been renamed to rl_ding(), though the
+    old function is still defined for backwards compatibility.
+
+o.  The completion convenience functions filename_completion_function,
+    username_completion_function, and completion_matches now have an rl_
+    prefix, though the old names are still defined for backwards compatibility.
+
+p.  The functions shared by readline and bash (linkage is satisfied from bash
+    when compiling with bash, and internally otherwise) now have an sh_ prefix.
+
+q.  Changed the shared library creation procedure on Linux and BSD/OS 4.x so
+    that the `soname' contains only the major version number rather than the
+    major and minor numbers.
+
+r.  Fixed a redisplay bug that occurred when the prompt spanned more than one
+    physical line and contained invisible characters.
+
+3.  New Features in Bash
+
+a.  Added a new `--init-file' invocation argument as a synonym for `--rcfile',
+    per the new GNU coding standards.
+
+b.  The /dev/tcp and /dev/udp redirections now accept service names as well as
+    port numbers.
+
+c.  `complete' and `compgen' now take a `-o value' option, which controls some
+    of the aspects of that compspec.  Valid values are:
+
+       default - perform bash default completion if programmable
+                 completion produces no matches
+       dirnames - perform directory name completion if programmable
+                  completion produces no matches
+       filenames - tell readline that the compspec produces filenames,
+                   so it can do things like append slashes to
+                   directory names and suppress trailing spaces
+
+4.  New Features in Readline
+
+a.  The blink timeout for paren matching is now settable by applications.
+
+b.  _rl_executing_macro has been renamed to rl_executing_macro, which means
+    it's now part of the public interface.
+
+c.  Readline has a new variable, rl_readline_state, which is a bitmap that
+    encapsulates the current state of the library; intended for use by
+    callbacks and hook functions.
+
+------------------------------------------------------------------------------
 This document details the changes between this version, bash-2.04-release,
 and the previous version, bash-2.04-beta5.
 
@@ -480,7 +1036,7 @@ t.  The SSH_CLIENT environment variable is no longer auto-exported.
 u.  A bug that caused redirections with (...) subshells to be performed in
     the wrong order was fixed.
 
-v.  A bug that occasionally caused inaapropriate expansion of assignment
+v.  A bug that occasionally caused inappropriate expansion of assignment
     statements in compound array assignments was fixed.
 
 w.  The code that parses the words in a compound array assignment was
diff --git a/COMPAT b/COMPAT
index a01035a2afc08ebe65ca94b1e9dd6611c13ca5d1..1395548752cc533c16487539a8490384c966d435 100644 (file)
--- a/COMPAT
+++ b/COMPAT
@@ -1,5 +1,5 @@
 This document details the incompatibilites between this version of bash,
-bash-2.04, and the previous widely-available version, bash-1.14 (which
+bash-2.05, and the previous widely-available version, bash-1.14 (which
 is still the `standard' version for many Linux distributions).  These
 were discovered by users of bash-2.x, so this list is not comprehensive.
 
@@ -131,3 +131,70 @@ were discovered by users of bash-2.x, so this list is not comprehensive.
     that declares them:
 
        alias -x='chmod a-x' --> alias -- -x='chmod a-x'
+
+13. There was a bug in bash-1.14 and previous versions that caused it to
+    accept as valid syntax for loops of the form
+
+       for f in ; do ... ; done
+
+    This should be a syntax error, and bash-2.x treats it as such.
+
+14. The behavior of range specificiers within bracket matching expressions
+    in the pattern matcher (e.g., [A-Z]) depends on the current locale,
+    specifically the value of the LC_COLLATE environment variable.  Setting
+    this variable to C or POSIX will result in the traditional ASCII behavior
+    for range comparisons.  If the locale is set to something else, e.g.,
+    en_US (specified by the LANG or LC_ALL variables), collation order is
+    locale-dependent.  For example, the en_US locale sorts the upper and
+    lower case letters like this:
+
+       AaBb...Zz
+
+    so a range specification like [A-Z] will match every letter except `z'.
+
+    The portable way to specify upper case letters is [:upper:] instead of
+    A-Z; lower case may be specified as [:lower:] instead of a-z.
+
+    Look at the manual pages for setlocale(3), strcoll(3), and, if it is
+    present, locale(1).
+
+    You can find your current locale information by running locale(1):
+
+       caleb.ins.cwru.edu(2)$ locale
+       LANG=en_US
+       LC_CTYPE="en_US"
+       LC_NUMERIC="en_US"
+       LC_TIME="en_US"
+       LC_COLLATE="en_US"
+       LC_MONETARY="en_US"
+       LC_MESSAGES="en_US"
+       LC_ALL=en_US
+
+    My advice is to put
+
+       export LC_COLLATE=C
+
+    into /etc/profile and inspect any shell scripts run from cron for
+    constructs like [A-Z].  This will prevent things like
+
+       rm [A-Z]*
+
+    from removing every file in the current directory except those beginning
+    with `z' and still allow individual users to change the collation order.
+    Users may put the above command into their own profiles as well, of course.
+
+15.  Bash versions up to 1.14.7 included an undocumented `-l' operator to
+     the `test/[' builtin.  It was a unary operator that expanded to the
+     length of its string argument.  This let you do things like
+
+       test -l $variable -lt 20
+
+     for example.
+
+     This was included for backwards compatibility with old versions of the
+     Bourne shell, which did not provide an easy way to obtain the length of
+     the value of a shell variable.
+
+     This operator is not part of the POSIX standard, because one can (and
+     should) use ${#variable} to get the length of a variable's value.
+     Bash-2.x does not support it.
index f692adb8cefe95dd97f7e4eb302a447b4da2c103..7adf872723b800bb38a4ff1597c1c4b6f0089155 100644 (file)
@@ -12,10 +12,12 @@ The following list is what's changed when `POSIX mode' is in effect:
      re-search `$PATH' to find the new location.  This is also
      available with `shopt -s checkhash'.
 
-  2. The `>&' redirection does not redirect stdout and stderr.
+  2. The message printed by the job control code and builtins when a job
+     exits with a non-zero status is `Done(status)'.
 
   3. The message printed by the job control code and builtins when a job
-     exits with a non-zero status is `Done(status)'.
+     is stopped is `Stopped(SIGNAME)', where SIGNAME is, for example,
+     `SIGTSTP'.
 
   4. Reserved words may not be aliased.
 
@@ -69,7 +71,7 @@ The following list is what's changed when `POSIX mode' is in effect:
      `$CDPATH', the value it assigns to the `PWD' variable does not
      contain any symbolic links, as if `cd -P' had been executed.
 
- 19. If `$CDPATH' is set, the `cd' builtin will not implicitly append
+ 19. If `CDPATH' is set, the `cd' builtin will not implicitly append
      the current directory to it.  This means that `cd' will fail if no
      valid directory name can be constructed from any of the entries in
      `$CDPATH', even if the a directory with the same name as the name
@@ -89,9 +91,27 @@ The following list is what's changed when `POSIX mode' is in effect:
  23. Assignment statements preceding POSIX 1003.2 special builtins
      persist in the shell environment after the builtin completes.
 
- 24. The `export' and `readonly' builtin commands display their output
+ 24. Assignment statements preceding shell function calls persist in the
+     shell environment after the function returns, as if a POSIX
+     special builtin command had been executed.
+
+ 25. The `export' and `readonly' builtin commands display their output
      in the format required by POSIX 1003.2.
 
+ 26. The `trap' builtin displays signal names without the leading `SIG'.
+
+ 27. The `.' and `source' builtins do not search the current directory
+     for the filename argument if it is not found by searching `PATH'.
+
+ 28. Subshells spawned to execute command substitutions inherit the
+     value of the `-e' option from the parent shell.  When not in POSIX
+     mode, Bash clears the `-e' option in such subshells.
+
+ 29. Alias expansion is always enabled, even in non-interactive shells.
+
+ 30. When the `set' builtin is invoked without options, it does not
+     display shell function names and definitions.
+
 
 There is other POSIX 1003.2 behavior that Bash does not implement.
 Specifically:
@@ -99,3 +119,13 @@ Specifically:
   1. Assignment statements affect the execution environment of all
      builtins, not just special ones.
 
+  2. When a subshell is created to execute a shell script with execute
+     permission, but without a leading `#!', Bash sets `$0' to the full
+     pathname of the script as found by searching `$PATH', rather than
+     the command as typed by the user.
+
+  3. When using `.' to source a shell script found in `$PATH', bash
+     checks execute permission bits rather than read permission bits,
+     just as if it were searching for a command.
+
+
index 7a0a0f097c4221c2d20ce15f000c4b9886853d92..9126b6b941d950d1951a4e3b70221fbcc240881f 100644 (file)
@@ -48,8 +48,8 @@ lib/readline/display.c
          the code that decides whether the cursor is at the beginning of
          an otherwise-empty line
 
-                                   1/2
-                                   ---
+                                1/2/1997
+                                --------
 support/bashbug.sh
        - fixed a typo, thanks to eggert@twinsun.com
 
@@ -3399,8 +3399,8 @@ parse.y
 
 [bash-2.02-alpha1 frozen]
 
-                                 1/6/98
-                                 ------
+                                1/6/1998
+                                --------
 lib/glob/fnmatch.c
        - fix define for isgraph so that it does not return success for space
        - fix strcompare() so that the call to strcoll is surrounded by
@@ -5034,8 +5034,8 @@ lib/glob/fnmatch.c
        - include <string.h> or <strings.h> as appropriate for strchr()
          declaration
 
-                                 1/4/99
-                                 ------
+                                1/4/1999
+                                --------
 print_cmd.c
        - don't print bare words when printing conditional expressions in
          print_cond_node, use cprintf("%s", cond->op->word)
@@ -7738,3 +7738,2304 @@ doc/{bash.1,bashref.texi}
                                   ----
 pcomplete.c
        - fix to avoid freeing memory twice
+
+                                  3/17
+                                  ----
+[bash-2.04 released]
+
+                                  3/20
+                                  ----
+doc/bash.1
+       - minor typo fix to description of `xpg_echo' option in `echo'
+         description
+
+                                  3/23
+                                  ----
+parse.y
+       - minor fix to parse_string_to_word_list to allow newlines in
+         compound array assignments
+
+                                  3/27
+                                  ----
+lib/readline/rltty.c
+       - fixed a missing-semicolon syntax error in the old 4.3 BSD tty code
+
+support/mksignames.c
+       - if SIGRTMAX is >= 2*NSIG, just #undef SIGRTMIN and SIGRTMAX.  This
+         is an issue on AIX 4.3 (only, so far) -- checked by configure, which
+         #defines UNUSABLE_RT_SIGNALS if this is the case
+
+aclocal.m4
+       - new macro, BASH_CHECK_RTSIGS, checks whether or not real-time
+         signals are defined with large values and defines UNUSABLE_RT_SIGNALS
+         if they are
+
+config.h.in
+       - place marker for UNDEF_RT_SIGNALS (initially undefined)
+
+configure.in
+       - call BASH_CHECK_RTSIGS in the `bash miscellaneous' section
+
+                                  3/29
+                                  ----
+
+subst.c
+       - fixed a problem in match_pattern_char, where `string' was checked
+         for a paren following a [?+!@], rather than `pat'
+       - the code that checks whether or not to exit after a failed
+         ${word?msg} substitution needs to check interactive_shell rather
+         than interactive to avoid exiting if such a construct appears in
+         a sourced file
+
+                                  3/31
+                                  ----
+
+bashline.c
+       - add `{' to the list of characters that need to be quoted by the
+         completion code when appearing in a filename
+
+                                   4/1
+                                   ---
+lib/glob/fnmatch.c
+       - fixed an error in brackmatch() while skipping the rest of a bracket
+         expression after a character matched.  When `c' was a backslash and
+         *p was a backslash, as in a pattern like [/\\], the old code didn't
+         take both backslashes into account and ended up skipping the `]'
+         after erroneously concluding that it was quoted.  Report and fix
+         from akim@epita.fr
+
+                                   4/3
+                                   ---
+lib/readline/rltty.c
+       - slight change to the BSD tty interface code, so that if the first
+         ioctl fails, get_tty_settings returns -1 immediately
+       - better checking of ioctl return values in BSD tty version of
+         get_tty_settings
+
+                                   4/5
+                                   ---
+doc/{bash.1,bashref.texi}
+       - documented use of LINES and COLUMNS variables
+
+                                  4/12
+                                  ----
+lib/readline/rltty.c
+       - change the SETATTR define for the termio tty driver to use
+         TCSETAW (the analog of the termios TCSADRAIN)
+
+lib/glob/fnmatch.c
+       - fix for posix-style bracket expressions ([:xxx:], [=x=]) broken
+         by fix of 4/1 for quotes in bracket expressions
+
+                                  4/26
+                                  ----
+subst.c
+       - fix to list_string and get_word_from_string to make a non-whitespace
+         IFS character preceded by IFS whitespace part of the current field
+         delimiter, not a separate delimiter that would result in a separate
+         null field when splitting.  cf POSIX.2, 3.6.5, (3)(b).  Bug reported
+         by amc@cs.berkeley.edu
+       - changed the behavior of the (currently undocumented) ${!prefix@}
+         expansion to be analogous to the expansion of $@ in other contexts
+         when double-quoted.  ksh93 seems to do this.  Bug reported by
+         Ken Pizzini <ken@halcyon.com>
+       - changed read_comsub to ignore NUL bytes in the command substitution
+         output, printing a warning message for now
+
+parse.y
+       - changed shell_getc to ignore NUL bytes in the input, printing a
+         warning message for now
+       - changed read_a_line to print a warning when a NUL byte is encountered,
+         like shell_getc does
+
+                                  5/18
+                                  ----
+subst.c
+       - make sure split_at_delims uses d2 only if it's non-null
+       - make split_at_delims skip leading newlines in the string to split,
+         if newline is a delimiter
+
+jobs.c
+       - prevent hanging processes by marking a child process as not running
+         (even if the shell thinks it is) when waitpid() returns -1/ECHILD --
+         this indicates that waitpid never returned a reasonable status
+         for that child though, which may be a symptom of another problem
+
+builtins/cd.def
+       - make `pwd' print an error message if the write fails when displaying
+         the current directory
+
+lib/readline/histexpand.c
+       - return NULL from history_find_word if history_tokenize_internal
+         returns (char **)NULL rather than attempting to dereference a
+         possibly-NULL pointer
+       - change history_tokenize_internal to set *indp to -1 before any
+         processing if indp is non-null
+
+                                  5/19
+                                  ----
+builtins/trap.def
+       - when in POSIX.2 mode and printing trap dispositions, print the
+         signal name without the leading `SIG', as POSIX.2 requires
+
+                                  5/23
+                                  ----
+lib/readline/readline.c
+       - readline_initialize_everything now assigns $TERM to rl_terminal_name
+         if the application has left it unset, and calls _rl_init_terminal_io
+         with the resultant value
+
+lib/readline/doc/rltech.texinfo
+       - updated the description of rl_terminal_name to note initialization
+
+parse.y
+       - change parse_string_to_word_list to save and restore the value of
+         current_command_line_count before calling back into the parser --
+         it will screw up history if the string extends over one line.  Bug
+         reported by Jan.Djarv@mbox200.swipnet.se
+
+                                   6/7
+                                   ---
+unwind_prot.h
+       - change unwind_protect_string to pass the address of the variable to
+         unwind_protect_var on machines where ints and char *s are not the
+         same size
+
+unwind_prot.c
+       - make sure we save the value of a variable in unwind_protect_var on
+         machines where sizeof(char *) != sizeof(int), not the contents the
+         value points to.  Fix from Andreas Schwab <schwab@suse.de>
+
+                                   6/8
+                                   ---
+configure.in
+       - auto-configure MacOS X without bash malloc (like Rhapsody)
+
+                                  6/12
+                                  ----
+configure.in
+       - replace `cygwin32' with `cygwin'
+
+builtins/evalfile.c
+       - in _evalfile, change all instances of \r to \n in the file to be
+          sourced and evaluated if __CYGWIN__ is defined
+
+input.c
+       - change \r to \n in the buffer argument to make_buffered_stream and
+          after calling zread() from b_fill_buffer if __CYGWIN__ is defined
+
+                                  6/29
+                                  ----
+lib/sh/Makefile.in
+       - add rest of dependency rules for makepath.o
+
+                                   7/3
+                                   ---
+jobs.c
+       - changed `int' to `WAIT' in a couple of places for non-POSIX
+         environments
+
+                                   7/5
+                                   ---
+locale.c
+       - try to avoid an unnecessary memory allocation in localetrans() in
+         the case that a translation for the string exists
+
+lib/readline/doc/rluserman.texinfo
+       - change the `direntry' information to make it use rluserman instead
+         of readline
+
+                                   7/6
+                                   ---
+execute_cmd.c
+       - changes to execute_in_subshell so it honors a `!' prefixing a command
+         inside a user subshell (...)
+
+support/config.{guess,sub}
+       - add cases for Apple Darwin (Mac OS X)
+
+configure.in
+       - Apple Darwin (MacOS X) uses its own malloc
+
+lib/readline/readline.h
+       - removed bogus extern declaration of savestring
+
+                                   7/7
+                                   ---
+builtins/common.c
+       - in get_working_directory, don't count on getcwd returning anything
+         useful in the buffer passed as the first argument on failure; just
+         use bash_getcwd_errstr in the error message
+
+examples/loadables/cut.c
+       - loadable version of cut(1), from the FreeBSD source tree
+
+                                  7/18
+                                  ----
+lib/readline/vi_mode.c
+       - changed two instances of (*rl_getc_function) (rl_instream) to calls
+         to rl_read_key(), which works better when using the readline
+         callback interface
+
+builtins/evalfile.c
+       - added FEVAL_CHECKBINARY flag for _evalfile; controls whether a check
+         for a binary file is performed
+       - FEVAL_CHECKBINARY is not set by source_file or maybe_execute_file,
+         which means that the startup file execution and the `.' builtin will
+         not check for binary files
+       - FEVAL_CHECKBINARY is not set by fc_execute_file, so that files
+         composed of history commands run by the `fc' builtin will not check
+         for binary files
+
+                                  7/21
+                                  ----
+shell.c
+       - added `--init-file' as a synonym for `--rcfile'
+
+                                  7/26
+                                  ----
+support/shobj-conf
+       - added commented-out stanzas for hpux 10 and hpux 11 when the HP
+         unbundled ANSI C compiler is being used
+
+                                  7/27
+                                  ----
+shell.c
+       - don't call end_job_control() from exit_shell if subshell_environment
+         is non-zero, even if the shell is interactive
+
+                                   8/1
+                                   ---
+bashhist.c
+       - change maybe_add_history to remember if we saved the first line of
+         a command and don't save the second and subsequent lines of a
+         multi-line command if we didn't save the first line
+
+configure.in, config.h.in
+       - add autoconf check for getservbyname()
+
+lib/sh/netopen.c
+       - add support for named services in /dev/(tcp|udp)/host/service
+         translation
+       - make sure _netopen sets errno to something other than 0 if something
+         goes wrong, so the redirection functions behave
+
+                                   8/3
+                                   ---
+parse.y
+       - changes to shell_getc so that history saving of blank lines in
+         multi-line commands does a better job of syntactic correctness
+
+bashline.c
+       - bind ^O to operate-and-get-next in emacs_standard_keymap explicitly,
+         rather than letting rl_add_defun do it in whatever keymap is current
+
+                                   8/4
+                                   ---
+builtins/ulimit.def
+       - removed some of the special handling of RLIM_INFINITY -- the old
+         code would let people use RLIM_INFINITY as a shorthand for setting
+         the soft limit to the hard limit.  Now, the code just passes
+         RLIM_INFINITY through if the hard limit is being set, so any kernel
+         errors will get through
+
+                                  8/10
+                                  ----
+parse.y
+       - change the grammar rule for group_command so that it's composed of
+         a compound_list instead of a list, which requires a terminator
+         This means that you can now do (legal) things like
+
+               { { echo a b c ; } }
+
+         since the second close brace will be recognized as such because a
+         reserved word is legal in that context
+
+                                  8/23
+                                  ----
+subst.c
+       - fix parameter_brace_substring to free all memory allocated by
+         get_var_and_type in the VT_ARRAYMEMBER case (returned parameter
+         `val')
+
+                                  8/30
+                                  ----
+variables.c
+       - now that we have dynamic array variables, remove the check for
+         array_p in bind_variable and let array variables with assignment
+         functions call the assignment function
+
+subst.c
+       - change cond_expand_word to perform tilde expansion (like it should
+         have done all along)
+
+lib/readline/complete.c
+       - don't allow backslash to quote anything inside a single-quoted
+         string in find_completion_word
+
+doc/{bash.1,bashref.texi}
+       - note that `set -a' will cause functions to be exported
+
+lib/readline/parens.c
+       - changed the blink timeout so it's settable by the application.  A
+         new function, int rl_set_paren_blink_timeout (int u), (still
+         undocumented) will set the timeout to U usec
+
+variables.c
+       - at startup of an interactive login shell, if the current directory
+         is $HOME, and $HOME and $PWD are not the same, set the current
+         directory (and $PWD) to $HOME
+       - break code that initializes $PWD and $OLDPWD into set_pwd function
+
+variables.h
+       - new extern declaration for set_pwd()
+
+                                   9/6
+                                   ---
+lib/readline/{readline,callback}.c
+       - allocate memory for rl_prompt instead of simply using what's passed
+         as the `prompt' argument to readline() or
+         rl_callback_handler_install().  This will allow constant strings to
+         be passed to readline(), since the prompt processing code wants to
+         write to rl_prompt
+
+lib/sh/pathcanon.c
+       - new file, does pathname canonicalization
+
+externs.h
+       - extern declarations for stuff in lib/sh/pathcanon.c
+
+general.c
+       - canonicalize_pathname now simply calls sh_canonpath()
+
+                                   9/7
+                                   ---
+pcomplete.h
+       - new member in a `struct compspec': options
+       - define some flag values for options field
+
+pcomplib.c
+       - make sure options field is allocated and copied by compspec utility
+         functions
+
+builtins/complete.def
+       - add struct for completion options.  These control the `meta-behavior'
+         of the compspec.  Initially, there are three:
+
+               default - perform bash default completion if programmable
+                         completion produces no matches
+               dirnames - perform directory name completion if programmable
+                          completion produces no matches
+               filenames - tell readline that the compspec produces filenames,
+                           so it can do things like append slashes to
+                           directory names and suppress trailing spaces
+
+       - add `-o option' to complete and compgen, setting new options field
+         in a compspec
+       - add code to display any -o options when a compspect is printed
+         with the `-p' option to complete
+
+pcomplete.c
+       - programmable_completions now passes back to the caller in the last
+         argument any options associated with the active compspec (from the
+         options field)
+       - change gen_compspec_completions to re-call gen_action_completions
+         with a CA_DIRECTORY action if the rest of the compspec actions
+         generate no matches and the COPT_DIRNAMES option is present
+
+bashline.c
+       - if a programmable completion was specified to return filenames with
+         the `-o filenames' option, set rl_filename_completion_desired to 1
+         so readline does its special filename-specific things
+       - if a compspec was defined to fall back to the readline default with
+         the `-o default' option, suppress setting the
+         rl_attempted_completion_over variable in attempt_shell_completion
+         so readline will go on and do filename completion
+
+include/ansi_stdlib.h
+       - add extern declarations for atof and strtod
+
+builtins/printf.def
+       - change getdouble() to use strtod (since we provide a version in
+         libsh if the C library doesn't have one), and change the calling
+         convention to match the other getXXX functions (take value pointer
+         as argument, return success or failure).  This makes printf handle
+         invalid floating point numbers better
+
+doc/bash.1, lib/readline/doc/rluser.texinfo
+       - documented new `-o' option to complete and compgen; described the
+         arguments and their effects
+
+lib/readline/{macro,util}.c
+       - renamed _rl_executing_macro to rl_executing_macro; made it public
+
+lib/readline/readline.h
+       - new extern declaration for rl_executing_macro
+
+lib/readline/rltech.texinfo
+       - documented rl_executing_macro
+
+                                   8/8
+                                   ---
+lib/readline/readline.c
+       - new state variable, rl_readline_state
+
+lib/readline/readline.h
+       - extern declaration for rl_readline_state
+       - define some flag bits for rl_readline_state and macros to test and
+         set them
+
+lib/readline/{readline,complete,isearch,macro,rltty,search,signals,undo,vi_mode}.c
+       - added calls to the macros that set and unset various readline states
+
+lib/readline/readline.c
+       - new private function, _rl_free_saved_history_line, to free up the
+         history entry saved in saved_line_for_history
+
+lib/readline/search.c
+       - free any saved history entry in rl_history_search_reinit(), because
+         rl_get_previous_history makes a call to maybe_save_line without
+         freeing up the saved line when it returns (so rl_get_next_history
+         can use it)
+       - fix up noninc_search_from_pos to deal with invalid history indices
+         better
+
+                                  9/12
+                                  ----
+support/shobj-conf
+       - HPUX 11.0 needs the `-fpic' flag passed to the linker as well as
+         the compiler
+
+execute_cmd.c
+       - on MS-DOS systems, let the #! checking stuff in execute_shell_script
+         treat \r as EOL (identical to \n)
+
+input.c
+       - on DJGPP systems, allow buffered_getchar to ignore \r.  Change
+         suggested by snowball3@bigfoot.com
+
+                                  9/13
+                                  ----
+lib/sh/tmpfile.c
+       - new file, with functions for creating and (hopefully safely) opening
+         temporary files for the shell
+
+externs.h
+       - extern declarations for functions in tmpfile.c
+
+variables.c
+       - new function, get_random_number, returns random values from the
+         shell's (lame) RNG to the rest of the shell
+
+variables.h
+       - new extern declaration for get_random_number()
+
+subst.c
+       - changed make_named_pipe to call sh_mktmpname instead of mktemp
+
+redir.c
+       - changed here_document_to_fd to call sh_mktmpfd instead of using
+         inline code
+
+builtins/fc.def
+       - changed fc_builtin to call sh_mktmpfp instead of using inline code
+
+builtins/common.h
+       - new extern declaration for fc_execute_file()
+
+bashline.c
+       - if RL_ISSTATE(RL_STATE_INITIALIZED) is 0 in initialize_readline,
+         call rl_initialize to bind the defaults before setting up our
+         custom shell functions and key bindings
+
+lib/readline/doc/{rluser,hsuser}.texinfo
+       - some markup changes proposed by dima@chg.ru
+
+lib/readline/rlstdc.h, lib/tilde/tilde.h
+       - to get ready for some `const' changes to the source, define const
+         as either `__const' (gcc -traditional) or nothing if __STDC__ and
+         __cplusplus are not defined
+
+lib/readline/readline.c
+       - upped the default readline version to `4.2-alpha'
+
+lib/readline/readline.[ch]
+       - readline now takes a `const char *' as an argument
+
+lib/readline/history.h
+       - read_history(), read_history_range(), write_history(),
+         append_history(), history_truncate_file() now take `const char *'
+         filename arguments
+
+lib/readline/histfile.c
+       - history_filename(), read_history(), read_history_range(),
+         write_history(), append_history(), history_truncate_file(),
+         history_do_write() now take `const char *' filename arguments
+
+lib/readline/readline.h
+       - rl_read_init_file() now takes a `const char *' filename argument
+
+lib/readline/bind.c
+       - current_readline_init_file is now a `const char *'
+       - _rl_read_init_file(), rl_read_init_file() now take `const char *'
+         filename arguments
+
+lib/tilde/tilde.c
+       - tilde_expand(), tilde_expand_word() now take a `const char *'
+         as their first argument
+
+lib/readline/chardefs.h
+       - fixed CTRL_CHAR macro to be right on systems where chars are unsigned
+         by default
+
+                                  9/14
+                                  ----
+lib/readline/doc/{rl,hs}tech.texinfo
+       - documented new `const char *' function arguments where appropriate
+
+lib/readline/vi_mode.c
+       - clamp the numeric argument in vi mode at 999999, just like in emacs
+         mode
+
+lib/readline/doc/rltech.texinfo
+       - documented rl_readline_state and its possible bit values
+
+builtins/source.def
+       - in maybe_pop_dollar_vars, don't overwrite a shell function's
+         argument list even if the sourced script changes the positional
+         parameters
+
+lib/readline/{util.c,rlprivate.h}
+       - made _rl_strindex() and _rl_savestring() take `const char *'
+         arguments
+
+                                  9/15
+                                  ----
+subst.c
+       - renamed `doing_completion' to `no_longjmp_on_fatal_error', a more
+         accurate description of its current behavior
+
+pcomplete.[ch], externs.h, lib/sh/stringlist.c
+       - moved the stringlist code from pcomplete.c to lib/sh/stringlist.c
+       - moved the type declaration and extern function declarations from
+         pcomplete.h to externs.h
+
+stringlib.c, externs.h, lib/sh/stringvec.c
+       - moved the char array code from stringlib.c to lib/sh/stringvec.c
+
+                                  9/18
+                                  ----
+subst.c
+       - new static variable, expand_no_split_dollar_star, to ensure that
+         $* isn't `split and rejoined' when expanded via a call to
+         expand_string_unsplit or expand_word_no_split
+
+                                  9/19
+                                  ----
+subst.[ch], execute_cmd.c
+       - renamed expand_word_no_split to expand_word_unsplit
+
+copy_cmd.c
+       - in copy_word, just assign w->flags to new_word->flags rather than
+         bcopying the entire structure
+
+configure.in, config.h.in
+       - add autoconf check for pathconf(3)
+
+lib/sh/tmpfile.c
+       - test for systems with short filenames using pathconf and
+         _PC_NAME_MAX, so generated temp file names don't exceed that length
+         (only do this if the file name length is less than 32, since the
+         current code doesn't generate filenames longer than about 17 chars)
+
+                                  9/20
+                                  ----
+command.h
+       - added `W_NOSPLIT2' word flag to prepare for supporting weird $@
+         expansion on the rhs of assignment statements (inspecting the ksh93
+         behavior, it seems like nothing except $@ is split, and $@ is split
+         on $IFS and rejoined as a single string)
+
+                                  9/21
+                                  ----
+subst.c
+       - since verify_substring_values looks for arithmetic expressions
+         bounded by `:', do some ad-hoc parsing of the substring passed as
+         the argument to avoid cutting the expression off at the wrong `:'
+         (since the inclusion of conditional expressions, expressions may
+         contain a `:').  Do some paren balancing, too.
+
+                                  9/22
+                                  ----
+command.h
+       - new #define, CLOBBERING_REDIRECT, evaluates to true for any redirect
+         that will clobber a file and should be subject to `noclobber'
+
+redir.c
+       - changed redir_open to use CLOBBERING_REDIRECT instead of
+         OUTPUT_REDIRECT.  This means that <> no longer tests the value of
+         noclobber, as POSIX.2 specifies
+
+parse.y
+       - made a change to cond_term so that expressions like [[ (x) ]] are
+         parsed correctly
+
+                                  9/25
+                                  ----
+parse.y
+       - small change to grammar for arith_for_command and special_case_tokens
+         to allow `do...done' or {...} after ((...)) without an intervening
+         list_terminator (for ksh93 compatibility)
+
+builtins/printf.def
+       - `printf' now treats \E and \e the same when performing backslash
+         escape expansion for the %b format character for compatibility with
+         $'...' quoting (for ksh93 compatibility)
+
+                                  9/26
+                                  ----
+builtins/source.def
+       - new variable, source_searches_cwd, initially 1.  If non-zero, `.'
+         searches $PWD for the filename argument if it's not found in $PATH
+
+general.c
+       - changed posix_initialize to turn off source_searches_cwd if posix
+         mode is being enabled; turn it on if posix mode is being disabled
+       - changed things so interactive_comments is not turned off if posix
+         mode is disabled, since that's rarely what is desired
+
+variables.c
+       - changed uidset() to set UID and EUID only if they are not already
+         set when the shell starts up
+       - changed things to HOSTNAME is set only if it's not set when the
+         shell starts up
+
+execute_cmd.c
+       - changed execute_builtin_or_function so that if a command like
+         `command exec 4<file' is executed, the effect is as if the `command'
+         had been omitted, as POSIX.2 requires
+
+subst.c
+       - changed array_length_reference to support ${foo[X]} when foo is not
+         an array variable and X is 0, @, or * (everything else returns 0)
+         for ksh compatibility
+       - changed array_value_internal to support ${foo[@]} and ${foo[*]}
+         when foo is not an array variable (as ksh does)
+
+                                  9/27
+                                  ----
+general.h
+       - added defines for ABSPATH (absolute pathname), RELPATH (relative
+         pathname, and ROOTEDPATH (pathname rooted at /), with different
+         definitions for Unix and Cygwin
+       - added defines for DIRSEP (the directory separator in pathnames,
+         and ISDIRSEP (whether a particular character is the directory
+         separator)
+       - added PATHSEP define: takes a character and decides whether it
+         delimits a filename component of a pathname
+       - changed isletter(c) #define to just call isalpha(c)
+
+lib/sh/pathcanon.c
+       - changed to use new pathname #defines from general.h above
+
+general.c
+       - changed make_absolute, absolute_pathname to understand
+         Cygwin's idea of an absolute pathname: [[:upper:][:lower:]]:/
+       - rewrote absolute_pathname to use PATHSEP and ABSPATH
+       - changed full_pathname to use ABSPATH
+
+variables.c
+       - changed get_bash_name to use ABSPATH and RELPATH, and to handle the
+         case when $PWD is unset when it is called
+
+subst.c
+       - if compiling on cygwin, translate \r\n to \n when reading the output
+         of a command substitution in read_comsub()
+
+                                  9/28
+                                  ----
+input.c, shell.c, builtins/read.def, lib/tilde/tilde.c
+       - changed __CYGWIN32__ to __CYGWIN__
+
+lib/readline/{bind,funmap,kill}.c, lib/readline/readline.h
+       - changed __CYGWIN32__ to __CYGWIN__
+
+input.c
+       - a couple of minor changes to clean up the code
+
+parse.y
+       - changed shell_getc and shell_ungetc to implement one character of
+         lookahead/lookbehind when pushing a character back at the start
+         of an input line (the old code would have discarded it because
+         shell_input_line_index was 0)
+
+lib/readline{histsearch.c,history.h}
+       - history_search_internal, history_search, history_search_prefix,
+         history_search_pos now take const char * string arguments
+
+lib/readline/{histexpand.c,history.h}
+       - get_history_event, history_arg_extract, history_tokenize_internal,
+         history_tokenize now take const char * string arguments
+
+lib/readline/{history.c,history.h}
+       - add_history, replace_history_entry now take const char * string
+         arguments
+
+lib/readline/{bind.c,readline.h}
+       - rl_add_defun, rl_unbind_command_in_map, rl_set_key, rl_macro_bind,
+         rl_generic_bind, rl_translate_keyseq, rl_named_function,
+         rl_function_of_keyseq, rl_variable_bind, rl_get_keymap_by_name
+         now take const char * string arguments where appropriate
+       - rl_function_dumper, rl_list_funmap_names needed changes to deal
+         with rl_funmap_names returning const char **
+       - rl_readline_name is now a const char * variable
+
+lib/readline/keymaps.h
+       - duplicate definition of rl_get_keymap_by_name needs const changes
+
+lib/readline/{bind.c,rlprivate.h}
+       - _rl_bind_if_unbound takes a const char * string argument
+
+lib/readline/{funmap.c,readline.h}
+       - rl_add_funmap_entry now takes a const char * string argument
+       - rl_funmap_names now returns a const char **
+       - a FUNMAP now has a const char *name member
+
+lib/readline/{terminal.c,readline.h,rlprivate.h}
+       - _rl_init_terminal_io, rl_get_termcap, rl_reset_terminal,
+         _rl_output_some_chars now take const char * string arguments
+
+lib/readline/{readline.[ch],rlprivate.h}
+       - rl_library_version and rl_terminal_name are now const char *
+         variables
+       - rl_insert_text, _rl_replace_text now take const char * string
+         arguments
+
+lib/readline/{callback.c,readline.h}
+       - rl_callback_handler_install takes a const char * string argument
+
+lib/readline/doc/{rltech,hstech}.texinfo
+       - changed documentation for newly-consted functions and variables
+
+lib/readline/{complete.c,readline.h}
+       - rl_strpbrk now takes const char * string arguments
+       - username_completion_function and filename_completion_function
+         now take const char * string arguments
+       - rl_basic_word_break_characters, rl_basic_quote_characters,
+         rl_completer_word_break_characters, rl_completer_quote_characters,
+         rl_filename_quote_characters, rl_special_prefixes are all
+         const char * variables
+
+lib/readline/{display.c,rlprivate.h}
+       - _rl_move_cursor_relative takes a const char * string argument
+
+redir.c
+       - change from tbisp@uswest.net to fix a problem with cygwin and
+         here_document_to_fd, since cygwin doesn't allow a file to be
+         unlinked if there is a descriptor open on it
+
+display.c
+       - fixed a slight bug in the logic deciding whether or not to redraw
+         a prompt containing invisible characters in update_line.  Fixes
+         bug reported by bdluevel@heitec.net
+
+                                  9/29
+                                  ----
+shell.c
+       - fixed a problem with a too-aggressive setting of restricted shell
+         mode based on shell_name.  Old code set `restricted' even after a
+         longjmp due to shell_execve trying to execute an executable script
+         without a leading `#!', though that case should result in an
+         unrestricted shell
+
+                                  10/2
+                                  ----
+copy_cmd.c
+       - make sure copy_function_def copies the `flags' and `line' members
+         of the function_def
+
+parse.y
+       - make the function_def production take a new function_body parse
+         unit, which is currently just a group_command (in prep for future
+         changes)
+
+builtins/printf.def
+       - changed getint, getlong, getulong, getdouble to print warnings on
+         range errors and return the clamped values that strtol/strtod
+         return, as POSIX.2 specifies
+
+                                  10/3
+                                  ----
+parse.y
+       - made a function_def a `command' instead of a `shell_command'
+         This makes the grammar more closely resemble that supplied in
+         the POSIX.2 standard
+       - made a `function_body' be like the function_body production in
+         the POSIX.2 standard.  This relaxes the restriction that the
+         body be composed of a group_command, but introduces a YACC
+         shift/reduce conflict
+
+print_cmd.c
+       - changes to named_function_string (for normal function printing)
+         and print_function_def (for printing function definitions embedded
+         in other commands) to print redirections that should be attached
+         to the function as a whole after the closing brace, because of
+         the changes to the parser
+
+tests/func2.sub
+       - tests for new function declarations whose bodies are not group
+         commands -- the command printing code still prints them with the
+         braces
+
+                                  10/4
+                                  ----
+lib/sh/pathphys.c
+       - new function, sh_physpath, resolves symlinks in pathname passed
+         as argument
+
+builtins/cd.def
+       - changed pwd_builtin to use sh_physpath if -P supplied or in
+         physical mode
+       - changed bindpwd to use sh_physpath if the no_symlinks argument is
+         non-zero
+       - changed change_to_directory to use sh_physpath and set
+         the_current_working_directory appropriately if the `nolinks'
+         argument is non-zero
+
+                                  10/5
+                                  ----
+variables.c, bashline.c, builtins/cd.def
+       - replaced calls to canonicalize_pathname with sh_canonpath
+
+builtins/cd.def
+       - rewrote change_to_directory to make it much shorter and simpler
+
+command.h
+       - added SUBSHELL_PIPE as possible flag value for subshell_environment
+
+execute_cmd.c
+       - execute_simple_command sets SUBSHELL_PIPE in subshell_environment
+         if the command has a pipe in or out
+
+subst.c
+       - don't reset pipeline_pgrp to shell_pgrp in command_substitute if
+         we're already in a pipline
+         ((subshell_environment & SUBSHELL_PIPE) != 0)
+
+                                  10/6
+                                  ----
+subst.c 
+       - change command_substitute to call setmode(fd, O_TEXT) on the pipe
+         file descriptor if __CYGWIN__ is defined; remove the other code
+         that converts CR/LF to LF on cygwin
+
+                                  10/9
+                                  ----
+stringlib.c
+       - change strcreplace() to make sure that RESIZE_MALLOCED_BUFFER is
+         called everywhere characters are added
+
+                                  10/11
+                                  -----
+lib/sh/spell.c
+       - new file, with the spelling correction code from builtins/cd.def
+
+builtins/cd.def
+       - a little surgery on cd_builtin, to make the structure clearer
+
+                                  10/12
+                                  -----
+builtins/read.def
+       - include fcntl.h and io.h on __CYGWIN__
+       - set mode of fd 0 to O_TEXT if __CYGWIN__ and O_TEXT are both
+         defined
+
+shell.c
+       - in open_shell_script, set mode of fd opened to the shell script
+         to O_TEXT if __CYGWIN__ and O_TEXT are both defined
+
+builtins/evalfile.c
+       - changed the __CYGWIN__ code to call setmode(fd, O_TEXT) instead
+         of translating \r to \n after the read() returns
+
+                                  10/13
+                                  -----
+lib/sh/strtrans.c, stringlib.c
+       - moved ansicstr() from stringlib.c to new file lib/sh/strtrans.c
+       - new function ansic_quote, to quote a string with $'...'
+
+lib/sh/strindex.c, stringlib.c
+       - moved strindex() from stringlib.c to new file lib/sh/strindex.c
+
+lib/sh/Makefile.in
+       - compile `shquote.c' in as part of the shell library
+       - compile `strtrans.c' in as part of the shell library
+       - compile `strindex.c' in as part of the shell library
+
+Makefile.in
+       - link with libsh before any of the readline libraries
+
+builtins/common.c
+       - removed the functions also appearing in lib/sh/shquote.c
+
+externs.h, builtins/common.h
+       - moved extern declarations for functions in lib/sh/shquote.c to
+         externs.h from builtins/common.h
+
+variables.c
+       - print_var_value (used in the output of `set') now calls
+         ansic_quote to quote the value, so any non-printable characters
+         are displayed
+
+                                  10/14
+                                  -----
+syntax.h
+       - new file, with definitions from shell.h having to do with shell
+         syntax, metacharacters, and quoting
+
+parse.y
+       - moved defines for shell metachars and other char class declarations
+         to syntax.h
+
+shell.h
+       - now includes syntax.h
+
+Makefile.in,builtins/Makefile.in,lib/sh/Makefile.in
+       - added syntax.h to appropriate dependency lists
+
+                                  10/16
+                                  -----
+mksyntax.c
+       - new program, to build a syntax table for the shell at compile time
+
+Makefile.in
+       - new generated file, syntax.c, generated by mksyntax
+
+general.h
+       - `digit(x)' is now just defined as `isdigit(x)'
+
+syntax.h
+       - now that we have sh_syntaxtab[], change the appropriate defines
+         to use it
+
+parse.y, subst.c
+       - change checks of member(c, slashify_in_quotes) to test
+         sh_syntaxtab[c] & CBSDQUOTE
+
+builtins/set.def
+       - corrected the help text for `unset', since PATH and IFS may be
+         unset
+
+subst.c
+       - changed explicit tests for shell special parameters using member()
+         or strchr() to test (sh_syntaxtab[c] & CSPECVAR) instead
+       - changed some boilerplate calls to member() that test for validity
+         of various characters in the expansion process to macros for
+         efficiency
+
+lib/sh/shquote.c
+       - changed some of the functions to use checks against sh_syntaxtab[]
+         flag values
+
+                                  10/19
+                                  -----
+findcmd.c
+       - find_user_command_in_path no longer finds directories if the caller
+         specified FS_NODIRS in the flags argument.  This fixes the bug of
+         hashing directory names, at the loss of some information about
+         attempting to execute directories
+
+builtins/hash.def
+       - hash -p dirname name no longer puts directories into the hash table
+
+                                  10/26
+                                  -----
+builtins/read.def
+       - make sure that the last unwind-protect added is the one that calls
+         xfree(input_string), so that this is the top element on the
+         unwind-protect stack
+       - if xrealloc() is called to increase the size of input_string, make
+         sure to remove the top element from the unwind-protect stack (the
+         old xfree) and add a new one, in case realloc() freed the original
+         input_string and allocated new space.  This fixes the bug of bash
+         crashing because it's trying to free already-freed memory if the
+         `read' is interrupted (reported by klausf@Pool.Informatik.RWTH-Aachen.DE)
+
+                                  10/27
+                                  -----
+subst.c
+       - fixed a problem in expand_word_list_internal so that
+         last_command_exit_value is set to 1 if a variable assignment fails
+         and a jump_to_top_level (DISCARD) is taken.  This fixes the problem
+         of assignment statements to read-only variables appearing to succeed
+         (though it always worked right in non-interactive posix-mode shells)
+
+                                  10/30
+                                  -----
+lib/readline/readline.h
+       - rl_completion_entry_function is now of type CPFunction *, since
+         that's the actual type that's used, and casting function pointers
+         of different types (which happened all the time as a result), is
+         problematic on some architectures
+
+lib/readline/complete.c
+       - changed entry function argument to gen_completion_matches to be of
+         type CPFunction *, since that's how it's used
+       - changed variables that are completion entry function pointers to be
+         of type CPFunction *, removed problematic typecasts
+
+lib/readline/doc/rltech.texinfo
+       - documented type change for rl_completion_entry_func
+
+lib/readline/rltypedefs.h
+       - new file, with all the readline function typedefs
+
+lib/readline/rltypedefs.h
+       - new typedef, rl_command_func_t, which is a function returning
+         an int
+       - a KEYMAP_ENTRY now contains a pointer to an rl_command_func_t
+       - new typedef, rl_compentry_func_t, which is a function returning
+         a char *
+       - new typdef, rl_completion_func_t, which is a function returning
+         a char **
+       - new typedef, rl_quote_func_t, which is a function returning a
+         char *
+       - new typedef, rl_dequote_func_t, which is a function returning a
+         char *
+       - new typedef, rl_compignore_func_t, which is a function returning a
+         char *
+       - new typedef, rl_compdisp_func_t, which is a void function taking
+         a char **, int, int argument list
+       - new typedef, rl_hook_func_t, which is a function taking no args
+         and returning an int (used for input and other hooks)
+       - new typedef, rl_modterm_func_t, which is a void function tkaing
+         an int, used to modify terminal (rl_prep_term_function)
+       - new typedef, rl_getc_func_t, which is an int-returning function
+         that takes a FILE *
+       - new typedef, rl_linebuf_func_t, which takes a string and an int
+         index and returns an int
+       - new generic typedefs, rl_intfunc_t and rl_voidfunc_t, which are
+         functions which take and return int and void, respectively 
+       - new generic typedef, rl_vintfunc_t, which takes an int and returns
+         void
+       - new generic typedefs, rl_icpfunc_t and rl_vcpfunc_t, which take a
+         char * and return int and void, respectively
+       - new generic typedefs, rl_icppfunc_t and rl_vcppfunc_t, which take
+         a char ** and return int and void, respectively
+
+lib/readline/rlprivate.h
+       - rl_last_func is now of type rl_command_func_t *
+
+lib/readline/readline.c
+       - declare rl_last_func as rl_command_func_t *
+
+lib/readline/{bind,readline,vi_keymap,emacs_keymap,funmap,keymaps,isearch}.c
+lib/readline/readline.h
+       - change appropriate cases of (Function *) to (rl_command_func_t *)
+
+lib/readline/{readline.h,bind.c}
+       - rl_named_function and rl_function_of_keyseq now return a
+         (rl_command_func_t *)
+
+lib/readline/bind.c
+       - changed type of functions in parser function table from Function *
+         to _rl_parser_func_t *
+
+lib/readline/funmap.c
+       - removed `vi-bracktype' from vi function map -- it's not a
+         bindable function
+
+lib/readline/{readline.h,complete.c}
+       - changed appropriate uses of CPFunction * to rl_compentry_func_t *
+         or rl_quote_func_t *
+
+lib/readline/{rltty.c,readline.h}
+       - rl_prep_term_function is now of type rl_vintfunc_t *
+       - rl_deprep_term_function is now of type rl_voidfunc_t *
+
+lib/readline/{keymaps,history.h}
+       - include rltypedefs.h or <readline/rltypedefs.h> as appropriate
+
+lib/readline/{display.c,readline.h}
+       - rl_redisplay_func is now of type rl_voidfunc_t *
+
+lib/readline/{callbacks.c,readline.h}
+       - the `linefunc' argument to rl_callback_handler_install and the
+         rl_linefunc variable are now of type rl_vcpfunc_t *
+
+lib/readline/{complete.c,readline.h}
+       - rl_completion_display_matches_hook is now of type
+         rl_compdisplay_func_t *
+       - rl_directory_completion_hook is now of type rl_icppfunc_t *
+
+lib/readline/{history.h,histexpand.c}
+       - history_inhibit_expansion_function is now of type
+         rl_linebuf_func_t *
+
+lib/readline/histexpand.c
+       - new private type, _hist_search_func_t, used to indirect through
+         the various history search functions
+
+lib/tilde/tilde.h
+       - new typedef, tilde_hook_func_t, which takes a char * and returns
+         a char *
+
+lib/tilde/tilde.[ch]
+       - tilde_expansion_preexpansion_hook and tilde_expansion_failure_hook
+         are now of type tilde_hook_func_t *
+
+[THERE ARE NO LONGER ANY REFERENCES TO Function *, CPFunction *, or
+CPPFunction * IN THE READLINE SOURCE, WHICH INCLUDES THE TILDE LIBRARY]
+
+{bashline,bracecomp}.c, bashline.h
+       - changes for changed type of rl_completion_entry_func and other
+         changed types (rl_compentry_func_t, rl_completion_func_t,
+         const changes for prototypes, etc.)
+
+pathexp.[ch]
+       - shell_glob_filename now takes a `const char *' argument
+       - quote_string_for_globbing now takes a `const char *' argument
+
+                                  10/31
+                                  -----
+lib/sh/zwrite.c
+       - fix zwrite() to update the buffer pointer in the case of a
+         partial write, in addition to decreasing the count of bytes to
+         be written
+
+support/config.{guess,sub}
+       - added entries for MIPS-based Compaq machines running NonStopUX
+
+                                  11/1
+                                  ----
+lib/readline/undo.c
+       - renamed free_undo_list to be rl_free_undo_list, made a dummy
+         replacement function free_undo_list that just calls
+         rl_free_undo_list
+
+lib/readline/readline.h
+       - extern declaration for rl_free_undo_list
+
+lib/readline/{readline,signals}.c
+       - changed calls to free_undo_list to rl_free_undo_list
+
+lib/readline/doc/rltech.texinfo
+       - changed all function types and arguments for new typedefs
+
+                                  11/2
+                                  ----
+lib/readline/{rlprivate.h,terminal.c,display.c}
+       - term_clreol, term_clrpag, term_cr, term_backspace, term_goto,
+         term_pc, term_im, term_ei, term_ic, term_ip, term_IC, term_dc,
+         term_DC, term_forward_char, term_up, term_mm, term_mo, term_ku,
+         term_kd, term_kr, term_kl, term_ks, term_ke, term_kh, term_kH,
+         terminal_can_insert variables all now have a _rl_ prefix
+
+lib/readline/{rlprivate.h,terminal.c,display.c, readline.c}
+       - screenheight, screenwidth, screenchars now have an _rl_ prefix
+
+lib/readline/{terminal,complete,isearch,kill,macro,readline,search,undo,util,vi_mode}.c
+       - changed calls to ding to calls to rl_ding
+
+lib/readine/{isearch,readline,search}.c
+       - saved_line_for_history now has an _rl_ prefix
+
+lib/readline/readline.[ch]
+       - renamed maybe_{replace,save,unsave} line to have an rl_ prefix
+
+lib/readline/{readline,search,isearch}.c
+       - changed calls to maybe_{replace,save,unsave} line to call the
+         rl_-prefixed equivalents
+
+lib/readline/{rlprivate.h,readline.c,util.c}
+       - renamed alphabetic to rl_alphabetic; changed calls
+
+lib/readline/{bind.c,funmap.c,rlprivate.h}
+       - possible_control_prefixes -> _rl_possible_control_prefixes
+       - possible_meta_prefixes -> _rl_possible_meta_prefixes
+
+lib/readline/compat.c
+       - new file for entry points for backwards compatibility functions
+       - moved free_undo_list here from undo.c
+       - maybe_{replace,save,unsave}_line function that call their rl_
+         counterparts
+       - moved ding() here; it just calls rl_ding()
+       - moved alphabetic here; it just calls _rl_alphabetic()
+
+lib/readline/Makefile.in
+       - make sure compat.o is built and linked appropriately
+
+bashline.c,pcomplete.c
+       - changed calls to ding() to call rl_ding()
+
+support/shobj-conf
+       - changed linux stanza SHLIB_XLDFLAGS to make the `soname' in a
+         shared library have only the major version number, rather than
+         major and minor numbers
+       - made analogous changes for bsd/os-4
+       - changed freebsd 3.x stanza to match `freebsdelf[3-9]*' for
+         FreeBSD elf systems and `freebsdaout[3-9]*' for FreeBSD
+         a.out systems (are there any?)
+
+lib/readline/doc/{rluser,hsuser}.texinfo
+       - changed uses of @samp to @option where appropriate
+
+doc/bashref.texi
+       - changed uses of @samp to @option where appropriate
+
+                                  11/3
+                                  ----
+lib/readline/{readline.h,complete.c,compat.c}
+       - completion_matches, username_completion_function,
+         filename_completion_function all have an rl_ prefix
+
+{bashline,bracecomp,pcomplete}.c
+       - changed calls to completion_matches, username_completion_function,
+         and filename_completion_function
+
+lib/sh/shquote.c
+       - single_quote, double_quote, un_double_quote, backslash_quote,
+         backslash_quote_for_double_quotes, contains_shell_metas all now
+         have an sh_ prefix
+
+externs.h
+       - changed extern declarations for functions from shquote.c
+
+{array,bashline,pcomplete,print_cmd,variables}.c, parse.y
+builtins/{alias,complete,trap,type}.def
+       - changed callers of single_quote
+
+{array,bashline}.c, builtins/setattr.def
+       - changed callers of double_quote
+
+{bashline,bracecomp}.c, parse.y, builtins/printf.def
+       - changed callers of backslash_quote
+
+parse.y
+       - changed callers of backslash_quote_for_double_quotes
+
+{print_cmd,variables}.c
+       - changed callers of contains_shell_metas
+
+lib/readline/{rlshell.h,shell.c,histexpand.c}
+       - single_quote -> sh_single_quote
+
+lib/readline/{rlshell.h,shell.c,input.c}
+general.[ch],shell.c,subst.c
+        - unset_nodelay_mode -> sh_unset_nodelay_mode
+
+lib/readline/{rlshell.h,shell.c}, lib/tilde/tilde.c, variables.c
+       - get_home_dir -> sh_get_home_dir
+
+lib/readline/rlshell.h,lib/readline/bind,histfile,nls,readline,shell,terminal}.c, lib/tilde/tilde.c, variables.c
+       - get_env_value -> sh_get_env_value
+
+lib/readline/rlshell.h,lib/readline/{shell,terminal}.c
+variables.h,{jobs,nojobs,variables}.c
+       - set_lines_and_columns -> sh_set_lines_and_columns
+
+                                  11/6
+                                  ----
+configure.in
+       - bash can only link with an already-installed readline library whose
+         version is 4.2 or greater
+
+variables.h
+       - new variable attribiute, noassign, with its accompanying test macro,
+         noassign_p.  Completely internal, not user-settable
+
+execute_cmd.c
+       - treat noassign variables like readonly variables, except an attempt
+         to assign to them does not cause a non-interactive shell in POSIX
+         mode to abort
+
+{subst,variables}.c,builtins/declare.def
+       - attempts to assign to `noassign' variables return an error status,
+         but no error messages -- almost identical to readonly variables
+
+variables.c
+       - GROUPS and FUNCNAME are `noassign' variables, meaning assignment to
+         them is disallowed, but that they may be unset (in which case they
+         lose their special properties)
+
+doc/{bash.1,bashref.texi}
+       - documented that assignments to GROUPS and FUNCNAME are disallowed
+         and return an error status
+
+                                  11/8
+                                  ----
+lib/readline/{funmap.c,bind.c,rlprivate.h}
+       - _rl_possible_{control,meta}_prefixes are now arrays of `const char *'
+         and are defined in bind.c, since that's where they're used
+
+lib/readline/rltty.c
+       - changed prepare_terminal_settings to take an `oldtio' argument
+         instead of `otio', which shadows the global declaration
+
+lib/readline/bind.c
+       - the `name' member of a parser_directive element is now a
+         `const char *'
+       - the `name' member of a boolean_varlist element is now a
+         `const char *'
+       - the `name' member of a string_varlist element is now a
+         `const char *'
+       - the `name' member of an assoc_list element is now a
+         `const char *'
+       - the `name' member of an keymap_names element is now a
+         `const char *'
+
+lib/readline/display.c
+       - changed scope-local char * variable `temp' to `vtemp' because
+         there's already a function local variable named `temp' of a
+         different type (int) in rl_redisplay
+
+lib/readline/util.c
+       - pathname_alphabetic_chars is now `const char *'
+
+lib/readline/terminal.c
+       - the `tc_var' member of a _tc_string element is now a
+         `const char *'
+
+lib/readline/histexpand.c
+       - changed history_expand_internal to remove the duplicate local
+         declaration of `t' in the `s'/`&' case
+
+lib/readline/histfile.c
+       - in history_filename, `home' is now a `const char *'
+
+lib/tilde/tilde.c
+       - default_prefixes and default_suffixes are now arrays of
+         `const char *'
+
+lib/readline/vi_mode.c
+       - vi_motion and vi_texmod are now `const char *'
+
+lib/readline/complete.c
+       - simplified the conditional declaration of getpwent()
+
+variables.[ch]
+       - get_string_value now takes a `const char *' argument
+
+                                  11/10
+                                  -----
+display.c
+       - changes to expand_prompt and rl_redisplay to keep track of the number
+         of invisible characters on the first line of the prompt, in case it
+         takes up more than one physical line, and not all invisible chars are
+         on the first line
+       - the code that determines the index into the line at which to wrap the
+         first line if the visible prompt length exceeds the screen width was
+         changed to use the number of invisible chars in the first physical
+         prompt line rather than the total number of invisible characters
+       - changed redraw_prompt to save and restore prompt_invis_chars_first_line
+
+subst.c
+       - changed expand_string_internal to savestring() the string argument
+         to avoid possible doubly-freed memory on substitution errors
+       - fixed expand_word_list_internal so that commands with assignment
+         statements preceding words that expand to nothing return a failure
+         status if one of the assignments fails; for example
+
+               readonly TVAR
+               TVAR=7 $ECHO $ABCDE
+       - made sure that all cases of jump_to_top_level set
+         last_command_exit_value to something non-zero before jumping, since
+         they are by definition errors
+
+builtins/evalstring.c
+       - changed parse_and_execute to set last_result to EXECUTION_FAILURE
+         along with last_command_exit_value in the `DISPOSE' case of a
+         jump_to_top_level, since we can return this value in most
+         (interactive) circumstances
+
+                                  11/14
+                                  -----
+general.c
+       - fix legal_number so that it skips any trailing whitespace in its
+         string argument after strtol returns, since strtol does not
+
+lib/readline/{complete.c,readline.h}
+       - new function pointer, rl_directory_rewrite_hook, identical in effect
+         to rl_directory_completion_hook except that it does not modify what
+         is displayed when the possible completions are listed or inserted
+
+bashline.c
+       - changed tcsh_magic_space to try and insert a space closer to where
+         the point was originally, rather than always inserting it at the
+         end of the line
+
+                                  11/16
+                                  -----
+jobs.c
+       - fixed a bug that happened on cygwin systems that caused the jobs
+         table to fill up if a file sourced from an interactive shell ran
+         lots of jobs -- notify_and_cleanup() never called notify_of_job_status
+
+subst.c
+       - fixed pat_match to avoid infinite recursion on zero-length matches
+         from match_pattern
+
+                               11/17/2000
+                               ----------
+[bash-2.05-alpha1 released]
+
+                                  11/18
+                                  -----
+support/shobj-conf
+       - added GNU Hurd support, identical to linux
+
+variables.c
+       - cygwin systems don't use the exportstr stuff at all, so call
+         INVALIDATE_EXPORTSTR before testing var->exportstr, since just
+         blindly using the value_cell will break exported functions that
+         already have an exportstr set
+       - when recomputing the exported value because valid_exportstr fails,
+         make sure to call named_function_string if the variable is a shell
+         function
+
+                                  11/20
+                                  -----
+variables.c
+       - removed call to valid_exportstr; the exportstr code has been
+         adequately debugged
+
+lib/glob/fnmatch.c
+       - reverted to the POSIX.2 behavior of using the current locale and
+         strcoll() to evaluate range expressions in bracket expressions
+
+doc/{bash.1,bashref.texi}
+       - added note to Pattern Matching section emphasizing that the current
+         locale plays a part in evaluating range expressions within [...]
+
+aclocal.m4
+       - added an #include <unistd.h> to the test for posix sigaction
+         restarting interrupted system calls
+
+support/config.guess
+       - changes from Tim Mooney to support `letter version' releases of
+         Tru 64 Unix on the Alpha (e.g., 5.1a)
+
+                                  11/21
+                                  -----
+lib/sh/pathphys.c
+       - make sure MAXSYMLINKS is defined
+
+aclocal.m4
+       - changed BASH_CHECK_PWFUNCS to just use AC_EGREP_CPP on a file
+         that includes pwd.h and other header files, checking for getpwuid.
+         It #defines HAVE_GETPW_DECLS if the egrep succeeds
+
+lib/readline/complete.c
+       - provide extern declaration of getpwent if _POSIX_SOURCE is defined,
+         since most systems don't declare it in <pwd.h> unless _POSIX_SOURCE
+         is undefined
+
+                                  11/22
+                                  -----
+input.c
+       - fixed a small typo in the cygwin-specific code
+
+doc/{bashref.texi,bash.1}
+       - added some more explanatory text about the effect of the current
+         locale's collating order on range expressions within bracket
+         expressions
+
+doc/bashref.texi, lib/readline/doc/{rltech,rluser,hstech}.texinfo
+       - changed to use @env instead of @code for the names of environment
+         and shell variables in text (not in tables yet)
+
+                                  11/27
+                                  -----
+configure.in
+       - configure without the bash malloc on Interix
+
+lib/readline/doc/rltech.texinfo
+       - changed completion_matches() to rl_completion_matches()
+       - changed filename_completion_function() to
+         rl_filename_completion_function()
+       - changed username_completion_function() to
+         rl_username_completion_function()
+
+lib/readline/rlprivate.h
+       - changed declaration of _rl_alphabetic to rl_alphabetic, since that's
+         what's used in the C files
+
+support/bashbug.sh
+       - Debian has /usr/bin/editor as a link to the system default editor;
+         make that one of the alternatives if $EDITOR is not set
+       - if the OS provides mktemp(1) or tempfile(1), use those to create
+         the temp file for the bug report
+
+lib/readline/{readline.[ch], callback.c}
+       - new function, rl_set_prompt, called with prompt string as argument,
+         sets and, if necessary, expands rl_prompt
+
+lib/readline/{complete.c,compat.c,readline.h}
+       - rl_completion_matches now takes a `const char *' as its first
+         argument
+       - compute_lcd_of_matches now takes a `const char *' as its third
+         argument
+
+lib/readline/rltypedefs.h
+       - a rl_completion_func_t now takes a `const char *' as its first
+         argument
+
+lib/readline/Makefile.in
+       - added dependencies on rltypedefs.h
+
+bashline.c
+       - attempt_shell_completion now takes a `const char *' as its first
+         argument
+       - removed bogus cast when assigning to rl_attempted_completion_function
+         and rl_completion_entry_function
+       - bash_directory_completion_matches takes a `const char *' argument
+
+pcomplete.c
+       - gen_matches_from_itemlist, pcomp_filename_completion_function,
+         gen_action_completions, gen_globpat_matches, gen_wordlist_matches,
+         gen_compspec_completions now take `const char *' arguments as
+         appropriate
+       - programmable_completions now takes `const char *' first and 
+         second arguments
+
+pcomplib.c
+       - find_compspec now takes a `const char *' argument
+
+                                  11/29
+                                  -----
+shell.c
+       - in open_shell_script, if we have /dev/fd, don't perform the check
+         for a binary file if isatty(fd) (where fd is opened on the script
+         name) returns non-zero
+       - in open_shell_script, don't call init_noninteractive again, since it
+         can undo changes made by the startup files ($BASH_ENV)
+
+input.c
+       - in fd_to_buffered_stream, make sure buffer size (and hence size
+         arg passed to read(2)) is greater than zero.  This makes
+         bash /dev/stdin work right.
+       - return -1 from sync_buffered_stream immediately if buffers is NULL
+         (can happen when running `bash -i /dev/stdin' and executing a
+         command that requires a fork)
+
+                                  11/30
+                                  -----
+jobs.c
+       - renamed cont_signal_handler to sigcont_sighandler for consistency
+       - renamed stop_signal_handler to sigstop_sighandler for consistency
+       - if there is no jobs list or no outstanding jobs, return immediately
+         from notify_of_job_status, before fussing with the signal state
+       - change map_over_jobs to not fuss with the signal state unless there
+         are jobs
+
+lib/malloc/malloc.c
+       - encapsulated the code to block and unblock signals during morecore()
+         execution into two functions:  block_signals and unblock_signals
+       - only block signals in morecore() if interrupt_immediately is non-zero
+         or SIGINT or SIGCHLD is trapped
+
+                                  12/1
+                                  ----
+lib/readline/readline.c
+       - fix to rl_forward to make sure that lend doesn't get set < 0, since
+         that will result in rl_point being < 0
+
+                                  12/5
+                                  ----
+parse.y
+       - fix to parse_matched_pair to allow backslash to escape a ' inside a
+         $'...' construct inside another grouping construct like ${...}
+       - translate $'...' and $"..." in parse_matched_pair, because nothing
+         else will do it if such a construct appears inside a grouping
+         construct
+
+                                  12/6
+                                  ----
+configure.in
+       - make sure all bracket tests for pattern matching in case statements
+         are appropriately quoted, so autoconf doesn't swallow the brackets
+       - add -rdynamic to LOCAL_LDFLAGS for freebsd-4.x
+
+examples/loadables/realpath.c
+       - new loadable builtin, canonicalizes pathnames and expands symlinks
+
+builtins/ulimit.def
+       - added undocumented -w option for setting RLIMIT_SWAP, if it's defined
+
+                                  12/7
+                                  ----
+bashline.c
+       - reordered code in initialize_readline so all of the rl_add_defun
+         calls are made before the call to rl_initialize, and all of the
+         rl_{bind,unbind}_key_in_map calls are made after initializing
+         readline.  This allows the bash-specific function names to be used
+         in ~/.inputrc
+
+                                  12/12
+                                  -----
+lib/readline/callback.c
+       - in rl_callback_read_char, loop after returning from
+         readline_internal_char and test rl_pending_input in case some
+         function (like the incremental search functions and digit argument
+         functions) pushed input back with rl_execute_next
+
+lib/readline/readline.h
+       - new rl_state flag:  RL_STATE_INPUTPENDING, indicating that
+         rl_execute_next has pushed input back for rl_get_key to read
+
+lib/readline/input.c
+       - new function to clear rl_pending_input: rl_clear_pending_input()
+
+lib/readline/{input,readline,signals}.c
+       - when rl_pending_input is set, set state RL_STATE_INPUTPENDING;
+         unset that state when rl_read_key returns the pending input
+       - call rl_clear_pending_input at appropriate points
+
+                                  12/15
+                                  -----
+lib/readline/histfile.c
+       - don't leak file descriptors while attempting to truncate a non-regular
+         file
+
+input.c
+       - make sure check_bash_input sets the close-on-exec flag for the file
+         descriptor used to save the bash input fd
+
+parse.y
+       - if default_buffered_input gets changed while it's on the saved
+         stream stack, make sure it gets set to close-on-exec when it's
+         restored by pop_stream()
+
+                                  12/18
+                                  -----
+builtins/ulimit.def
+       - change set_limit to account for Cygwin's setdtablesize() being
+         declared as a void function
+
+support/config.{guess,sub}
+       - change cygwin32 to cygwin
+
+                                  12/20
+                                  -----
+nojobs.c
+       - make wait_sigint_handler handle the case of interrupt_immediately
+         being non-zero when it's called, and jump out appropriately
+
+jobs.c
+       - new function to run sigchld traps: run_sigchld_trap(); called from
+         waitchld
+       - broke the code that computes the printable job status messages for
+         pretty_print_job out into a separate function
+       - rearranged some code eliminating a useless `else' branch in wait_for
+       - shell_tty_info is now a TTYSTRUCT, using defines from shtty.h
+       - broke the code that sets a job's status after waitpid says its state
+         has changed and cleans up after a received SIGINT out into a separate
+         function: set_job_status_and_cleanup
+       - last_stopped_job() -> job_last_stopped() to avoid collision with a
+         variable name
+       - last_running_job() -> job_last_running() for consistency
+
+                                  12/21
+                                  -----
+variables.c
+       - new function, print_func_list (SHELL_VAR **list); prints shell
+         functions from list in a form that may be re-used as input to
+         redefine the functions
+
+variables.h
+       - new extern declaration for print_func_list
+
+builtins/set.def
+       - set without options now calls print_func_list to have functions
+         printed in a way that can be reused as input (this affects
+         `declare' and `declare -p' also)
+
+                                  12/27
+                                  -----
+general.h
+       - add an ISOCTAL define
+
+builtins/common.h
+       - use ISOCTAL in read_octal function
+
+parse.y
+       - in decode_prompt_string, don't just skip STRING forward by 3 if an
+         octal sequence is translated; handle sequences of fewer than three
+         characters by checking each character
+
+                                  12/28
+                                  -----
+doc/{bash.1,bashref.texi}
+       - make sure `vi-move' is a documented keymap argument to bind's
+         `-m' option
+
+                                  12/29
+                                  -----
+variables.c
+       - change print_assignment so that functions are printed in a way that
+         may be reused as input (without the `=')
+
+                                1/2/2001
+                                --------
+test.c
+       - fix test_command to print an error message if `[' is supplied a
+         single argument that is not `]'
+
+support/shobj-conf
+       - change test of $SHOBJ_CC from `gcc*' to `*gcc*' to handle full
+         pathnames
+
+                                  1/11
+                                  ----
+execute_cmd.c
+       - in initialize_subshell, zero out builtin_env, since those aren't
+         supposed to be exported
+
+variables.c
+       - new function: shell_var_from_env_string, creates a SHELL_VAR from
+         a `name=value' style environment string and returns it
+       - new function: bind_name_in_env_array(name, value, array), makes
+         NAME have VALUE in ARRAY, a temporary environment
+       - new function: bind_tempenv_variable (name, value), makes NAME have
+         VALUE in one of the temporary environments -- temporary_env,
+         builtin_env, or function_env
+       - changed bind_variable to call bind_tempenv_variable if one of the
+         temporary environments is non-null before modifying the
+         shell_variables table.  This fixes a problem with sourced scripts
+         modifying variables in a temporary environment, but not seeing the
+         updated values
+
+                                  1/12
+                                  ----
+variables.c
+       - changed things so OSTYPE, HOSTTYPE, and MACHTYPE are set only if
+         they don't have a value at shell startup
+
+                                  1/17
+                                  ----
+builtins/fc.def
+       - create temp file with MT_USETMPDIR
+
+variables.c
+       - allow function local readonly variables to overwrite (or shadow)
+         other (calling) function readonly variables, but not global
+         readonly ones
+
+builtins/wait.def
+       - replace unwind_protect of interrupt_immediately, since that's a
+         variable that you cannot unwind-protect (the unwind-protect code
+         uses it)
+
+                                  1/22
+                                  ----
+Makefile.in
+       - changed RELSTATUS to `beta1'
+
+lib/readline/terminal.c
+       - added rl_set_screen_size function, wrapper around
+         _rl_set_screen_size so bash doesn't call _rl_ functions
+
+lib/readline/{rlprivate,readline}.h
+       - moved rl_explicit_arg to readline.h
+       - moved rl_numeric_arg to readline.h
+       - moved rl_editing_mode to readline.h
+       - moved rl_last_func to readline.h
+       - added rl_set_screen_size to readline.h
+
+lib/readline/doc/rltech.texinfo
+       - documented rl_explicit_arg, rl_editing_mode, rl_numeric_arg,
+         rl_last_func
+       - documented rl_set_screen_size
+
+{jobs,nojobs}.c
+       - _rl_set_screen_size -> rl_set_screen_size
+
+{bashline,pcomplete}.c, builtins/set.def
+       - removed extern declarations of variables defined in readline.h
+
+                                  1/23
+                                  ----
+support/rlvers.sh
+       - use $TMPDIR if it's defined
+       - use $RL_INCDIR (set by -I option, /usr/local/include by default)
+         as the directory containing the installed readline header files
+       - cd to the temp directory before attempting compilation
+
+configure.in
+       - pass `-I ${includedir}' to rlvers.sh
+
+                                  1/29
+                                  ----
+subst.c
+       - fixed parameter_brace_expand to only throw away the state of
+         quoted dollar-at if we're going to be using the rhs of the
+         brace expansion, since whatever parameter_brace_expand_rhs sets
+         should be what goes (corrects bad fix of 2/16/2000)
+       - fixed param_expand to only free temp after calling
+         parameter_brace_expand if it's a quoted null and we *did not*
+         have a quoted $@, since in that case we want to keep it and
+         do the $@ special handling (fixes real problem from 2/16/2000)
+
+                                  1/30
+                                  ----
+variables.c
+       - remove export attribute from SSH2_CLIENT, like SSH_CLIENT
+
+                                   2/1
+                                   ---
+unwind_prot.c
+       - added new function, clear_unwind_protect_list, to zero out the
+         unwind_protect list, optionally freeing the elements
+
+unwind_prot.h
+       - new extern declaration for clear_unwind_protect_list
+
+execute_cmd.c
+       - call clear_unwind_protect_list in initialize_subshell.  This fixes
+         the problem of core dumps when calling a shell script without a
+         leading `#!' from a shell function or other context with an
+         unwind-protect list
+       - set variable_context and return_catch_flag to 0 in
+         initialize_subshell, since a new subshell is no longer in a shell
+         function
+
+                                   2/2
+                                   ---
+doc/readline.3
+       - updated the text; clarified several points
+       - changed the usage synopsis to include <readline/readline.h> and
+         <readline/history.h>
+
+lib/readline/doc/hstech.texinfo
+       - made sure all function prototypes are valid ANSI C (mostly
+         changing () to (void))
+
+lib/readline/doc/rluser.texinfo
+       - a few clarifications
+
+lib/readline/doc/rltech.texinfo
+       - a few clarifications
+       - added two new subsections for character input and terminal
+         management
+       - changed all function prototypes to be valid ANSI C (mostly
+         replacing () with (void))
+       - documented some variables in readline.h but previously not in
+         the reference manual (rl_num_chars_to_read, rl_dispatching,
+         rl_gnu_readline_p, rl_completion_type)
+       - documented some functions in readline.h but previously not in
+         the reference manual (rl_clear_pending_input, rl_prep_terminal,
+         rl_deprep_terminal, rl_tty_set_default_bindings, rl_alphabetic,
+         rl_crlf)
+
+lib/readline/readline.h
+       - added extern declaration for rl_clear_pending_input()
+       - added extern declaration for rl_alphabetic
+       - changed rltty_set_default_bindings to rl_tty_set_default_bindings
+       - changed crlf() -> rl_crlf()
+
+lib/readline/rltty.c
+       - new function, rl_tty_set_default_bindings, just calls
+         rltty_set_default_bindings (needed `rl_' prefix)
+
+lib/readline/readline.c
+       - readline_default_bindings now calls rl_tty_set_default_bindings
+
+lib/readline/terminal.c
+       - renamed crlf() to rl_crlf(); crlf() is still defined for backwards
+         compatibility 
+
+bashline.c, lib/readline/{complete,display}.c
+       - changed all calls to crlf() to rl_crlf()
+
+test.c
+       - fix filecomp() so that `test file1 -nt file2' doesn't fail if file1
+         exists but file2 does not
+
+                                   2/5
+                                   ---
+lib/readline/{terminal,compat}.c
+       - move crlf() backwards-compatibility definition to compat.c
+
+execute_cmd.c
+       - if we're running a command `( command ) &' from a non-interactive
+         shell, don't unconditionally disable expand_aliases.  Only do it
+         when running such a command from an interactive shell, since then
+         we're changing to a non-interactive shell
+
+                                   2/6
+                                   ---
+[bash-2.05-beta1 released]
+
+lib/readline/compat.c
+       - add extern declaration for rl_crlf()
+
+lib/readline/undo.c
+       - initialize start and end in rl_do_undo to avoid bogus gcc compiler
+         warning with -Wall
+
+lib/readline/rlprivate.h
+       - fix typo in extern declaration of _rl_current_display_line()
+       - add extern declaration of _rl_free_saved_history_line()
+
+lib/readline/terminal.c
+       - return immediately from _rl_set_screen_size if one of the args is 0
+       - new function, rl_get_screen_size (int *rows, int *cols) to return
+         readline's idea of the screen dimensions
+
+lib/readline/doc/rltech.texinfo
+       - documented rl_get_screen_size
+
+                                   2/7
+                                   ---
+pathexp.c
+       - a couple of fixes for the POSIX_GLOB_LIBRARY version of the globbing
+         code
+
+expr.c
+       - fixed omission of ^= from the special assignment operators
+
+shell.c
+       - change logic for setting `posixly_correct' at shell startup:  if
+         $POSIXLY_CORRECT or $POSIX_PEDANTIC is found in the environment,
+         set it to 1, otherwise retain the previous value (which is
+         initialized to 0)
+
+                                  2/10
+                                  ----
+builtins/evalstring.c
+       - since subshell_environment is now a flags word, test for the
+         SUBSHELL_COMSUB bit being set when decided whether or not to
+         evaluate $(<file), not just for subshell_environment ==
+         SUBSHELL_COMSUB
+
+                                  2/12
+                                  ----
+lib/readline/doc/rltech.texinfo
+       - fixed a couple of problems with the documentation for
+         rl_prep_terminal and rl_deprep_terminal 
+       - added description of rl_set_prompt
+
+support/config.sub
+       - added support for Linux running on the IBM S390
+
+                                  2/13
+                                  ----
+input.c
+       - new function, fd_is_bash_input (fd), encapsulates the test for
+         whether or not FD is the file descriptor from which bash is reading
+         its input
+       - change check_bash_input to call fd_is_bash_input
+       - new function, save_bash_input (fd, new_fd), handles saving the
+         buffered stream associated with file descriptor FD to one
+         associated with NEW_FD.  If NEW_FD == -1, this function allocates a
+         file descriptor itself with fcntl
+       - new function, set_bash_input_fd(fd), sets the fd bash is using to
+         read input to FD
+       - changed duplicate_buffered_stream to note that the buffer it's
+         duplicating to was the bash input buffer (B_WASBASHINPUT)
+
+input.h
+       - extern declarations for fd_is_bash_input and save_bash_input
+       - new flag for b->flag: B_WASBASHINPUT
+
+redir.c
+       - in add_undo_redirect, if FD is 0, make the undo redirect be of type
+         r_duplicating_input instead of r_duplicating_output, since that fd
+         requires special handling in the presence of buffered streams (fixes
+         problem with scripts reading input through a pipe restoring bash
+         input buffered stream correctly after a `read' with an input
+         redirection
+
+                                  2/14
+                                  ----
+lib/readline{complete,util}.c
+       - moved rl_strpbrk to util.c with rest of string utility functions,
+         renamed to _rl_strpbrk
+
+lib/readline/rlprivate.h
+       - extern declaration for _rl_strpbrk
+
+lib/readline/input.c
+       - make the timeout in rl_gather_tyi() be a variable
+         (_keyboard_input_timeout) rather than a constant
+       - new function, rl_set_keyboard_input_timeout (int u) to set
+         _keyboard_input_timeout.  The argument is in microseconds; returns
+         the old value of _keyboard_input_timeout
+       - _rl_input_available uses _keyboard_input_timeout also
+
+lib/readline/readline.h
+       - extern declaration for rl_set_keyboard_input_timeout
+
+lib/readline/doc/rltech.texinfo
+       - documented rl_variable_bind(), rl_macro_bind(), rl_macro_dumper(),
+         rl_variable_dumper(), rl_push_macro_input(), rl_show_char()
+
+                                  2/20
+                                  ----
+findcmd.c
+       - new function, executable_or_directory(name), returns 1 if NAME is
+         an executable file or a directory
+
+findcmd.h
+       - extern declaration for executable_or_directory()
+
+bashline.c
+       - call executable_or_directory() from command_word_completion_function,
+         which requires a single stat(2), instead of executable_file() and
+         is_directory(), each of which requires a stat(2)
+
+                                  2/21
+                                  ----
+execute_cmd.c
+       - changed execute_builtin to handle `return' with a preceding variable
+         assignment list specially when in POSIX mode.  POSIX says that the
+         variable assignments should persist after the builtin returns, since
+         `return' is a special builtin.  Since `return' does a longjmp and
+         doesn't go through the normal cleanup path, we need to do special
+         things
+
+variables.c
+       - new function, merge_function_env(), merges the function_env into
+         the shell_variables table
+
+variables.h
+       - extern declaration for merge_function_env()
+
+execute_cmd.c
+       - changed execute_function to merge any variable assignments preceding
+         the function call into shell_variables if the shell is running in
+         POSIX mode
+
+subst.c
+       - changed parameter_brace_expand_error to do tilde expansion on the
+         rhs of the expansion, if it's not null
+       - changed command_substitute so that the subshell begun to execute
+         the command substitution inherits the setting of the `-e' option
+         when in POSIX mode
+
+builtins/break.def
+       - changed check_loop_level to not print a complaining message when
+         the shell is running in POSIX mode, even if BREAK_COMPLAINS is
+         defined.  This affects `break' and `continue'
+       - changed `break' and `continue' to return success even if the shell
+         is not executing a loop, as POSIX specifies
+
+builtins/set.def
+       - changed reset_shell_options() to not clear posixly_correct, so
+         subshells spawned to execute shell scripts without a leading `#!'
+         inherit posix mode from their parent shell
+
+variables.c
+       - changed make_new_variable to create the shell_variables hash table
+         if it hasn't been done yet.  This is needed because bind_variable
+         may be called before initialize_shell_variables (e.g., when
+         `bash -o posix' calls bind_variable("POSIXLY_CORRECT", "y") from
+         parse_shell_options -> set_minus_o_option -> set_posix_mode
+         This makes `bash --posix' and `bash -o posix' equivalent, as they
+         should always have been
+       - changed maybe_make_export_env to merge the contents of `builtin_env'
+         into export_env after function_env and before temporary_env.  This
+         fixes the problems with variable assignments preceding `eval' or
+         `source' not making it into the environment passed to executed disk
+         commands (var=20 eval printenv var)
+
+doc/bashref.texi
+       - noted that variable assignments preceding shell function calls
+         persist in the shell environment after the function returns when
+         the shell is running in POSIX mode
+       - noted that when the shell is running in POSIX mode, subshells
+         spawned to execute command substitutions inherit the value of
+         the `-e' option from the parent shell
+
+                                  2/26
+                                  ----
+doc/bashref.texi
+       - augmented description of bash non-posix behavior in posix mode
+         with information from running the vsc-lite test suite
+
+                                  2/28
+                                  ----
+general.c
+       - since POSIX.2 says that aliases should be expanded even in
+         non-interactive shells, enable alias expansion in
+         posix_initialize() when posix mode is enabled, and set it to the
+         value of interactive_shell if posix mode is disabled
+
+shell.c
+       - before running the startup scripts, set expand_aliases to
+         posixly_correct, since we don't want alias expansion in startup
+         files unless we've been given the --posix invocation option
+
+doc/bashref.texi
+       - added item in BASH Posix Mode section noting that alias expansion
+         is always enabled when in posix mode
+
+Makefile.in
+       - changed release level to `beta2'
+
+                                   3/1
+                                   ---
+jobs.c
+       - expanded retcode_name_buffer to 64
+       - changed printable_job_status to conform to posix.2 for text of
+         stopped job status: `Stopped(SIGTSTP)' or `Stopped(SIGSTOP)'
+
+doc/bashref.texi
+       - Noted above change in posix mode section
+
+                                   3/5
+                                   ---
+lib/readline/bind.c
+       - changed rl_get_keymap_by_name to work case-insensitively
+
+                                   3/6
+                                   ---
+doc/readline.{0,3,ps}
+       - removed from distribution; moved to readline distribution
+
+lib/readline/doc/history.3
+       - man page for history library; neither built nor installed
+         (part of the standalone readline distribution)
+
+lib/readline/histfile.c
+       - changed history_truncate_file to return 0 on success, errno
+         on failure
+       - changed history_do_write to return errno on a write error.  This
+         affects write_history and append_history
+
+lib/readline/history.c
+       - max_input_history is now history_max_entries; the old variable is
+         maintained for backwards compatibility
+
+lib/readline/histexpand.c
+       - the list of delimiters that separate words for history_tokenize
+         is now a variable: history_word_delimiters; default value is as
+         before
+       - changed history_expand to return 0 immediately if its second
+         argument is NULL
+
+bashline.c
+       - changed to use history_max_entries
+
+lib/readline/history.h
+       - extern declaration for history_max_entries
+       - extern declaration for history_word_delimiters
+
+                                   3/8
+                                   ---
+test.c
+       - changed unary_operator() to return FALSE for non-numeric arguments
+         to `-t'
+
+                                   3/9
+                                   ---
+[bash-2.05-beta2 released]
+
+                                  3/12
+                                  ----
+lib/readline/doc/rltech.texinfo
+       - documented rl_set_paren_blink_timeout()
+       - moved the example function to its own info node
+
+lib/readline/{hstech.texinfo,history.3}
+       - `$' is not in the default value of history_word_delimiters
+
+                                  3/13
+                                  ----
+bashline.c
+       - in maybe_add_history, if the tests for HISTCONTROL succeed, but
+         the HISTIGNORE check fails, set first_line_saved to 0
+
+                                  3/15
+                                  ----
+
+lib/glob/fnmatch.c
+       - fixed a bug in patscan that caused `[' to be treated as special
+         even inside a nested bracket expression.  It's supposed to lose
+         it's special handling inside []
+       - fixed a bug in patscan that caused `]' to end an embedded bracket
+         expression even if it was the first character after the `[' (or
+         a leading `!' or `^')
+
+                                  3/22
+                                  ----
+execute_cmd.c
+       - made a small change to shell_execve to report a more user-friendly
+         error if execve(2) fails because of a `#! interpreter' error with
+         `interpreter'
+       - in shell_execve, if HAVE_HASH_BANG_EXEC is not defined, make sure
+         the file length is > 2 characters before attempting to execute an
+         interpreter
+
+                                  3/26
+                                  ----
+jobs.c, nojobs.c
+       - give_terminal_to now takes a second argument, FORCE.  If that
+         second argument is non-zero, give the terminal away no matter
+         what job_control is set to
+
+jobs.h
+       - changed extern declaration of give_terminal_to
+
+{jobs,sig,subst}.c,parse.y
+       - changed all calls to give_terminal_to to add a second argument
+         of 0
+
+jobs.c
+       - changed second argument of call to give_terminal_to in
+         end_job_control to 1, to force this even if job_control is 0.
+         This fixes the problem of `exec other-job-control-shell' in a
+         startup file hanging, since run_startup_files sets job_control to 0
+
+subst.c
+       - fixed test of subshell_environment in command_substitute to test the
+         bit SUBSHELL_ASYNC rather than test equality, since it's now a
+         bitmask
+
+                                  3/27
+                                  ----
+shell.c
+       - changed posix initialization calls to set POSIXLY_CORRECT=y and
+         then call sv_strict_posix, so $SHELLOPTS includes `posix' and
+         POSIXLY_CORRECT is set, for both the posix command line options
+         and when act_like_sh is non-zero
+
+redir.c
+       - the `>& filename' redirection now works in posix mode, redirecting
+         stdout and stderr, since POSIX.2 leaves it unspecified
+
+doc/bashref.texi
+       - removed item about `>& filename' from Bash POSIX Mode section
+
+parse.y
+       - fixed a problem in decode_prompt_string with `\W' not printing
+         anything if PWD == "//"
+
+lib/readline/input.c
+       - in rl_read_key, after calling (*rl_event_hook), check for rl_done
+         being set, and return '\n' if it is
+
+Makefile.in
+       - changed RELSTATUS to `release'
+
+                                  3/28
+                                  ----
+support/bashbug.sh
+       - replace use of $(...) with `...` for the benefit of old versions
+         of sh
+
+builtins/set.def
+       - changed print_all_shell_variables to not print shell function names
+         and definitions when in posix mode
+
+doc/bashref.texi
+       - noted change in `set' behavior in posix mode section
+
+                                   4/2
+                                   ---
+lib/readline/readline.c
+       - changed default value of RL_LIBRARY_VERSION to `4.2'
+
+                                   4/5
+                                   ---
+[bash-2.05-release frozen]
diff --git a/CWRU/maildir-patch b/CWRU/maildir-patch
new file mode 100644 (file)
index 0000000..1fcb3b6
--- /dev/null
@@ -0,0 +1,175 @@
+# DP: From: Miquel van Smoorenburg <miquels@cistron.nl>
+# DP: A patch that adds support for Maildir type mailboxes.
+
+--- ./mailcheck.c.orig Wed Feb  4 21:30:33 1998
++++ ./mailcheck.c      Sun Nov 14 15:35:07 1999
+@@ -21,8 +21,10 @@
+ #include "config.h"
+ #include <stdio.h>
++#include <errno.h>
+ #include "bashtypes.h"
+ #include "posixstat.h"
++#include "posixdir.h"
+ #ifndef _MINIX
+ #  include <sys/param.h>
+ #endif
+@@ -37,6 +39,8 @@
+ #include "mailcheck.h"
+ #include <tilde/tilde.h>
++#include "mailstat.c"
++
+ #ifndef NOW
+ #define NOW ((time_t)time ((time_t *)0))
+ #endif
+@@ -131,7 +135,7 @@
+   struct stat finfo;
+   file = mailfiles[i]->name;
+-  if (stat (file, &finfo) == 0)
++  if (mailstat (file, &finfo) == 0)
+     {
+       mailfiles[i]->access_time = finfo.st_atime;
+       mailfiles[i]->mod_time = finfo.st_mtime;
+@@ -155,7 +159,7 @@
+   i = find_mail_file (filename);
+   if (i >= 0)
+     {
+-      if (stat (filename, &finfo) == 0)
++      if (mailstat (filename, &finfo) == 0)
+       {
+         mailfiles[i]->mod_time = finfo.st_mtime;
+         mailfiles[i]->access_time = finfo.st_atime;
+@@ -221,7 +225,7 @@
+   file = mailfiles[i]->name;
+   mtime = mailfiles[i]->mod_time;
+-  if ((stat (file, &finfo) == 0) && (finfo.st_size > 0))
++  if ((mailstat (file, &finfo) == 0) && (finfo.st_size > 0))
+     return (mtime != finfo.st_mtime);
+   return (0);
+@@ -239,7 +243,7 @@
+   file = mailfiles[i]->name;
+   atime = mailfiles[i]->access_time;
+-  if ((stat (file, &finfo) == 0) && (finfo.st_size > 0))
++  if ((mailstat (file, &finfo) == 0) && (finfo.st_size > 0))
+     return (atime != finfo.st_atime);
+   return (0);
+@@ -257,7 +261,7 @@
+   file = mailfiles[i]->name;
+   size = mailfiles[i]->file_size;
+-  return ((stat (file, &finfo) == 0) && (finfo.st_size > size));
++  return ((mailstat (file, &finfo) == 0) && (finfo.st_size > size));
+ }
+ /* Take an element from $MAILPATH and return the portion from
+
+
+diff -ruN bash-2.01.1.b4/mailstat.c bash-2.01.1/mailstat.c
+--- bash-2.01.1.b4/mailstat.c   Thu Jan  1 01:00:00 1970
++++ bash-2.01.1/mailstat.c      Wed Jun  2 12:05:04 1999
+@@ -0,0 +1,98 @@
++/*
++ *     Stat a file. If it's a maildir, check all messages
++ *     in the maildir and present the grand total as a file.
++ *     The fields in the 'struct stat' are from the mail directory.
++ *     The following fields are emulated:
++ *
++ *     st_nlink        always 1
++ *     st_size         total number of bytes in all files
++ *     st_blocks       total number of messages
++ *     st_atime        access time of newest file in maildir
++ *     st_mtime        modify time of newest file in maildir
++ *     st_mode         S_IFDIR changed to S_IFREG
++ *
++ *     This is good enough for most mail-checking applications.
++ */
++int
++mailstat(char *path, struct stat *st)
++{
++       DIR                     *dd;
++       struct                  dirent *fn;
++       struct stat             st_ret, st_tmp;
++       static struct stat      st_new_last, st_ret_last;
++       char                    dir[PATH_MAX * 2];
++       char                    file[PATH_MAX * 2];
++       int                     i, l;
++       time_t                  atime = 0, mtime = 0;
++
++       /* First see if it's a directory. */
++       if ((i = stat(path, st)) != 0 || !S_ISDIR(st->st_mode))
++               return i;
++       if (strlen(path) > sizeof(dir) - 5) {
++               errno = ENAMETOOLONG;
++               return -1;
++       }
++
++       st_ret = *st;
++       st_ret.st_nlink = 1;
++       st_ret.st_size  = 0;
++       st_ret.st_blocks  = 0;
++       st_ret.st_mode  &= ~S_IFDIR;
++       st_ret.st_mode  |= S_IFREG;
++
++       /* See if cur/ is present */
++       sprintf(dir, "%s/cur", path);
++       if (stat(dir, &st_tmp) || !S_ISDIR(st_tmp.st_mode)) return 0;
++       st_ret.st_atime = st_tmp.st_atime;
++
++       /* See if tmp/ is present */
++       sprintf(dir, "%s/tmp", path);
++       if (stat(dir, &st_tmp) || !S_ISDIR(st_tmp.st_mode)) return 0;
++       st_ret.st_mtime = st_tmp.st_mtime;
++
++       /* And new/ */
++       sprintf(dir, "%s/new", path);
++       if (stat(dir, &st_tmp) || !S_ISDIR(st_tmp.st_mode)) return 0;
++       st_ret.st_mtime = st_tmp.st_mtime;
++
++       /* Optimization - if new/ didn't change, nothing else did. */
++       if (st_tmp.st_dev == st_new_last.st_dev &&
++           st_tmp.st_ino == st_new_last.st_ino &&
++           st_tmp.st_atime == st_new_last.st_atime &&
++           st_tmp.st_mtime == st_new_last.st_mtime) {
++               *st = st_ret_last;
++               return 0;
++       }
++       st_new_last = st_tmp;
++
++       /* Loop over new/ and cur/ */
++       for (i = 0; i < 2; i++) {
++               sprintf(dir, "%s/%s", path, i ? "cur" : "new");
++               sprintf(file, "%s/", dir);
++               l = strlen(file);
++               if ((dd = opendir(dir)) == NULL)
++                       return 0;
++               while ((fn = readdir(dd)) != NULL) {
++                       if (fn->d_name[0] == '.' ||
++                           strlen(fn->d_name) + l >= sizeof(file))
++                               continue;
++                       strcpy(file + l, fn->d_name);
++                       if (stat(file, &st_tmp) != 0)
++                               continue;
++                       st_ret.st_size += st_tmp.st_size;
++                       st_ret.st_blocks++;
++                       if (st_tmp.st_atime != st_tmp.st_mtime &&
++                           st_tmp.st_atime > atime)
++                               atime = st_tmp.st_atime;
++                       if (st_tmp.st_mtime > mtime)
++                               mtime = st_tmp.st_mtime;
++               }
++               closedir(dd);
++       }
++
++       if (atime) st_ret.st_atime = atime;
++       if (mtime) st_ret.st_mtime = mtime;
++
++       *st = st_ret_last = st_ret;
++       return 0;
++}
+
diff --git a/INSTALL b/INSTALL
index 74d284b7da807dbb5537a0ba416b44b00235d033..7131ed80f599fb19d859e74c10f790666be841ba 100644 (file)
--- a/INSTALL
+++ b/INSTALL
@@ -255,20 +255,20 @@ does not provide the necessary support.
 
 `--enable-alias'
      Allow alias expansion and include the `alias' and `unalias'
-     builtins (*note Aliases::.).
+     builtins (*note Aliases::).
 
 `--enable-arith-for-command'
      Include support for the alternate form of the `for' command that
      behaves like the C language `for' statement (*note Looping
-     Constructs::.).
+     Constructs::).
 
 `--enable-array-variables'
      Include support for one-dimensional array shell variables (*note
-     Arrays::.).
+     Arrays::).
 
 `--enable-bang-history'
      Include support for `csh'-like history substitution (*note History
-     Interaction::.).
+     Interaction::).
 
 `--enable-brace-expansion'
      Include `csh'-like brace expansion ( `b{a,b}c' ==> `bac bbc' ).
@@ -277,16 +277,16 @@ does not provide the necessary support.
 `--enable-command-timing'
      Include support for recognizing `time' as a reserved word and for
      displaying timing statistics for the pipeline following `time'
-     (*note Pipelines::.).  This allows pipelines as well as shell
+     (*note Pipelines::).  This allows pipelines as well as shell
      builtins and functions to be timed.
 
 `--enable-cond-command'
      Include support for the `[[' conditional command (*note
-     Conditional Constructs::.).
+     Conditional Constructs::).
 
 `--enable-directory-stack'
      Include support for a `csh'-like directory stack and the `pushd',
-     `popd', and `dirs' builtins (*note The Directory Stack::.).
+     `popd', and `dirs' builtins (*note The Directory Stack::).
 
 `--enable-disabled-builtins'
      Allow builtin commands to be invoked via `builtin xxx' even after
@@ -296,7 +296,7 @@ does not provide the necessary support.
 
 `--enable-dparen-arithmetic'
      Include support for the `((...))' command (*note Conditional
-     Constructs::.).
+     Constructs::).
 
 `--enable-extended-glob'
      Include support for the extended pattern matching features
@@ -304,24 +304,24 @@ does not provide the necessary support.
 
 `--enable-help-builtin'
      Include the `help' builtin, which displays help on shell builtins
-     and variables (*note Bash Builtins::.).
+     and variables (*note Bash Builtins::).
 
 `--enable-history'
      Include command history and the `fc' and `history' builtin
-     commands (*note Bash History Facilities::.).
+     commands (*note Bash History Facilities::).
 
 `--enable-job-control'
-     This enables the job control features (*note Job Control::.), if
+     This enables the job control features (*note Job Control::), if
      the operating system supports them.
 
 `--enable-net-redirections'
      This enables the special handling of filenames of the form
      `/dev/tcp/HOST/PORT' and `/dev/udp/HOST/PORT' when used in
-     redirections (*note Redirections::.).
+     redirections (*note Redirections::).
 
 `--enable-process-substitution'
-     This enables process substitution (*note Process Substitution::.)
-     if the operating system provides the necessary support.
+     This enables process substitution (*note Process Substitution::) if
+     the operating system provides the necessary support.
 
 `--enable-prompt-string-decoding'
      Turn on the interpretation of a number of backslash-escaped
@@ -331,12 +331,12 @@ does not provide the necessary support.
 
 `--enable-progcomp'
      Enable the programmable completion facilities (*note Programmable
-     Completion::.).  If Readline is not enabled, this option has no
+     Completion::).  If Readline is not enabled, this option has no
      effect.
 
 `--enable-readline'
      Include support for command-line editing and history with the Bash
-     version of the Readline library (*note Command Line Editing::.).
+     version of the Readline library (*note Command Line Editing::).
 
 `--enable-restricted'
      Include support for a "restricted shell".  If this is enabled,
@@ -345,7 +345,7 @@ does not provide the necessary support.
 
 `--enable-select'
      Include the `select' builtin, which allows the generation of simple
-     menus (*note Conditional Constructs::.).
+     menus (*note Conditional Constructs::).
 
 `--enable-usg-echo-default'
      A synonym for `--enable-xpg-echo-default'.
index 18dd03ae76a0741dba475eaf9960627ae34c987c..d7f31ddab66c75f5ff9d537b6c7286f563f6c876 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -95,6 +95,7 @@ error.c               f
 xmalloc.c      f
 pcomplete.c    f
 pcomplib.c     f
+mksyntax.c     f
 alias.h                f
 builtins.h     f
 bashhist.h     f
@@ -107,6 +108,7 @@ hashlib.h   f
 quit.h         f
 flags.h                f
 shell.h                f
+syntax.h       f
 pathexp.h      f
 parser.h       f
 pcomplete.h    f
@@ -251,6 +253,7 @@ lib/readline/search.c       f
 lib/readline/isearch.c f
 lib/readline/parens.c  f
 lib/readline/rltty.c   f
+lib/readline/compat.c  f
 lib/readline/complete.c        f
 lib/readline/bind.c    f
 lib/readline/display.c f
@@ -269,6 +272,7 @@ lib/readline/rldefs.h       f
 lib/readline/rlconf.h  f
 lib/readline/rlshell.h f
 lib/readline/rltty.h   f
+lib/readline/rltypedefs.h      f
 lib/readline/rlwinsize.h       f
 lib/readline/readline.h        f
 lib/readline/tcap.h    f
@@ -310,18 +314,26 @@ lib/sh/itos.c             f
 lib/sh/makepath.c      f
 lib/sh/netopen.c       f
 lib/sh/oslib.c         f
+lib/sh/pathcanon.c     f
+lib/sh/pathphys.c      f
 lib/sh/rename.c                f
 lib/sh/setlinebuf.c    f
 lib/sh/shquote.c       f
 lib/sh/shtty.c         f
+lib/sh/spell.c         f
 lib/sh/strcasecmp.c    f
 lib/sh/strerror.c      f
+lib/sh/strindex.c      f
+lib/sh/stringlist.c    f
+lib/sh/stringvec.c     f
 lib/sh/strpbrk.c       f
 lib/sh/strtod.c                f
 lib/sh/strtol.c                f
 lib/sh/strtoul.c       f
+lib/sh/strtrans.c      f
 lib/sh/times.c         f
 lib/sh/timeval.c       f
+lib/sh/tmpfile.c       f
 lib/sh/vprint.c                f
 lib/sh/zread.c         f
 lib/sh/zwrite.c                f
@@ -367,6 +379,7 @@ CWRU/POSIX.NOTES    f
 CWRU/changelog         f
 CWRU/sh-redir-hack     f
 CWRU/empty-for-wordlist        f
+CWRU/maildir-patch     f
 CWRU/mh-folder-comp    f
 doc/FAQ                f
 doc/Makefile.in        f
@@ -376,7 +389,6 @@ doc/builtins.1      f
 doc/rbash.1    f
 doc/README     f
 doc/INTRO      f
-doc/readline.3 f
 doc/texinfo.tex        f
 doc/bashref.texi       f
 doc/bashref.info       f
@@ -412,18 +424,23 @@ examples/bashdb/bashdb    f
 examples/bashdb/bashdb.fns     f
 examples/bashdb/bashdb.pre     f
 examples/complete/complete-examples    f
+examples/complete/complete.ianmac      f
+examples/complete/complete2.ianmac     f
+examples/complete/complete.freebsd     f
 examples/loadables/README      f
 examples/loadables/template.c  f
 examples/loadables/Makefile.in f
 examples/loadables/necho.c     f
 examples/loadables/hello.c     f
 examples/loadables/print.c     f
+examples/loadables/realpath.c  f
 examples/loadables/sprintf.c   f
 examples/loadables/sleep.c     f
 examples/loadables/truefalse.c f
 examples/loadables/getconf.c   f
 examples/loadables/finfo.c     f
 examples/loadables/cat.c       f
+examples/loadables/cut.c       f
 examples/loadables/logname.c   f
 examples/loadables/basename.c  f
 examples/loadables/dirname.c   f
@@ -433,6 +450,7 @@ examples/loadables/tee.c    f
 examples/loadables/rmdir.c     f
 examples/loadables/head.c      f
 examples/loadables/printenv.c  f
+examples/loadables/push.c      f
 examples/loadables/id.c                f
 examples/loadables/whoami.c    f
 examples/loadables/uname.c     f
@@ -445,6 +463,7 @@ examples/loadables/perl/README      f
 examples/loadables/perl/bperl.c        f
 examples/loadables/perl/iperl.c        f
 examples/functions/array-stuff f
+examples/functions/array-to-string     f
 examples/functions/autoload    f
 examples/functions/autoload.v2 f
 examples/functions/autoload.v3 f
@@ -453,11 +472,13 @@ examples/functions/basename2      f
 examples/functions/csh-compat  f
 examples/functions/dirfuncs    f
 examples/functions/dirname     f
+examples/functions/emptydir    f
 examples/functions/exitstat    f
 examples/functions/external    f
 examples/functions/fact                f
 examples/functions/fstty       f
 examples/functions/func                f
+examples/functions/gethtml     f
 examples/functions/getoptx.bash        f
 examples/functions/inetaddr    f
 examples/functions/inpath      f
@@ -466,6 +487,7 @@ examples/functions/isnum2   f
 examples/functions/jdate.bash  f
 examples/functions/jj.bash     f
 examples/functions/keep                f
+examples/functions/ksh-cd      f
 examples/functions/ksh-compat-test     f
 examples/functions/kshenv      f
 examples/functions/login       f
@@ -474,12 +496,14 @@ examples/functions/manpage        f
 examples/functions/mhfold      f
 examples/functions/notify.bash f
 examples/functions/pathfuncs   f
+examples/functions/recurse     f
 examples/functions/repeat2     f
 examples/functions/repeat3     f
 examples/functions/seq         f
 examples/functions/seq2                f
 examples/functions/shcat       f
 examples/functions/shcat2      f
+examples/functions/sort-pos-params     f
 examples/functions/substr      f
 examples/functions/substr2     f
 examples/functions/term                f
@@ -490,7 +514,9 @@ examples/functions/xalias.bash      f
 examples/functions/xfind.bash  f
 examples/scripts/adventure.sh  f
 examples/scripts/bcsh.sh       f
+examples/scripts/cat.sh                f
 examples/scripts/center                f
+examples/scripts/dd-ex.sh      f
 examples/scripts/fixfiles.bash f
 examples/scripts/hanoi.bash    f
 examples/scripts/inpath                f
@@ -567,6 +593,7 @@ tests/exec2.sub             f
 tests/exec3.sub                f
 tests/exec4.sub                f
 tests/exec5.sub                f
+tests/exec6.sub                f
 tests/exp-tests                f
 tests/exp.right                f
 tests/extglob.tests    f
@@ -576,6 +603,8 @@ tests/extglob2.right        f
 tests/func.tests       f
 tests/func.right       f
 tests/func1.sub                f
+tests/func2.sub                f
+tests/func3.sub                f
 tests/getopts.tests    f
 tests/getopts.right    f
 tests/getopts1.sub     f
@@ -712,6 +741,7 @@ tests/type.tests    f
 tests/type.right       f
 tests/varenv.right     f
 tests/varenv.sh                f
+tests/varenv1.sub      f
 tests/version          f
 tests/version.mini     f
 tests/misc/dev-tcp.tests       f
index 16eb37285bf1fc77712bd3afb7af254c9c0dcb5d..b556e6ae0b38210eea739608d561ffbcf2b2eb95 100644 (file)
@@ -1,4 +1,4 @@
-# Makefile for bash-2.04, version 2.115
+# Makefile for bash-2.05, version 2.120
 #
 # Copyright (C) 1996 Free Software Foundation, Inc.
 
@@ -85,6 +85,9 @@ OS = @host_os@
 VENDOR = @host_vendor@
 MACHTYPE = @host@
 
+# comment out for release
+# DEBUG = -DDEBUG
+
 THIS_SH = $(BUILD_DIR)/$(Program)
 
 # PROFILE_FLAGS is either -pg, to generate profiling info for use
@@ -96,7 +99,7 @@ PROFILE_FLAGS= @PROFILE_FLAGS@
 # passed to cc.  A different name should have been used.
 CFLAGS = @CFLAGS@
 CPPFLAGS = @CPPFLAGS@
-LOCAL_CFLAGS = @LOCAL_CFLAGS@
+LOCAL_CFLAGS = @LOCAL_CFLAGS@ ${DEBUG}
 DEFS = @DEFS@
 LOCAL_DEFS = @LOCAL_DEFS@
 LOCAL_LIBS = @LOCAL_LIBS@
@@ -146,7 +149,11 @@ SHLIB_SOURCE = ${SH_LIBSRC}/clktck.c ${SH_LIBSRC}/getcwd.c \
               ${SH_LIBSRC}/shtty.c ${SH_LIBSRC}/inet_aton.c \
               ${SH_LIBSRC}/netopen.c ${SH_LIBSRC}/strpbrk.c \
               ${SH_LIBSRC}/timeval.c ${SH_LIBSRC}/clock.c \
-              ${SH_LIBSRC}/makepath.c
+              ${SH_LIBSRC}/makepath.c ${SH_LIBSRC}/pathcanon.c \
+              ${SH_LIBSRC}/pathphys.c ${SH_LIBSRC}/stringlist.c \
+              ${SH_LIBSRC}/stringvec.c ${SH_LIBSRC}/tmpfile.c \
+              ${SH_LIBSRC}/spell.c ${SH_LIBSRC}/strtrans.c \
+              ${SH_LIBSRC}/strindex.c ${SH_LIBSRC}/shquote.c
 
 SHLIB_LIB = -lsh
 SHLIB_LIBNAME = libsh.a
@@ -186,6 +193,7 @@ READLINE_SOURCE     = $(RL_LIBSRC)/rldefs.h $(RL_LIBSRC)/rlconf.h \
                  $(RL_LIBSRC)/terminal.c $(RL_LIBSRC)/nls.c \
                  $(RL_LIBSRC)/input.c $(RL_LIBSRC)/xmalloc.c \
                  $(RL_LIBSRC)/shell.c $(RL_LIBSRC)/savestring.c \
+                 $(RL_LIBSRC)/compat.c \
                  $(RL_LIBSRC)/histexpand.c $(RL_LIBSRC)/history.c \
                  $(RL_LIBSRC)/histsearch.c $(RL_LIBSRC)/histfile.c
 
@@ -200,6 +208,7 @@ READLINE_OBJ        = $(RL_LIBDIR)/readline.o $(RL_LIBDIR)/funmap.o \
                  $(RL_LIBDIR)/macro.o $(RL_LIBDIR)/input.o \
                  $(RL_LIBDIR)/terminal.o $(RL_LIBDIR)/callback.o \
                  $(RL_LIBDIR)/shell.o $(RL_LIBDIR)/savestring.o \
+                 $(RL_LIBDIR)/compat.o \
                  $(RL_LIBDIR)/history.o $(RL_LIBDIR)/histexpand.o \
                  $(RL_LIBDIR)/histsearch.o $(RL_LIBDIR)/histfile.o
 
@@ -295,11 +304,11 @@ BASHINCFILES =     $(BASHINCDIR)/posixstat.h $(BASHINCDIR)/ansi_stdlib.h \
                 $(BASHINCDIR)/unionwait.h $(BASHINCDIR)/maxpath.h \
                 $(BASHINCDIR)/shtty.h
 
-LIBRARIES = $(READLINE_LIB) $(HISTORY_LIB) $(TERMCAP_LIB) $(GLOB_LIB) \
-           $(TILDE_LIB) $(MALLOC_LIB) $(SHLIB_LIB) $(LOCAL_LIBS)
+LIBRARIES = $(SHLIB_LIB) $(READLINE_LIB) $(HISTORY_LIB) $(TERMCAP_LIB) $(GLOB_LIB) \
+           $(TILDE_LIB) $(MALLOC_LIB) $(LOCAL_LIBS)
 
-LIBDEP = $(READLINE_DEP) $(HISTORY_DEP) $(TERMCAP_DEP) $(GLOB_DEP) \
-        $(TILDE_DEP) $(MALLOC_DEP) $(SHLIB_DEP)
+LIBDEP = $(SHLIB_DEP) $(READLINE_DEP) $(HISTORY_DEP) $(TERMCAP_DEP) $(GLOB_DEP) \
+        $(TILDE_DEP) $(MALLOC_DEP)
 
 LIBRARY_LDFLAGS = $(READLINE_LDFLAGS) $(HISTORY_LDFLAGS) $(GLOB_LDFLAGS) \
                  $(TILDE_LDFLAGS) $(MALLOC_LDFLAGS) $(SHLIB_LDFLAGS)
@@ -316,11 +325,11 @@ CSOURCES = shell.c eval.c parse.y general.c make_cmd.c print_cmd.c y.tab.c \
           input.c bashhist.c array.c sig.c pathexp.c \
           unwind_prot.c siglist.c bashline.c bracecomp.c error.c \
           list.c stringlib.c locale.c findcmd.c redir.c \
-          pcomplete.c pcomplib.c xmalloc.c
+          pcomplete.c pcomplib.c syntax.c xmalloc.c
 
 HSOURCES = shell.h flags.h trap.h hashcmd.h hashlib.h jobs.h builtins.h \
           general.h variables.h config.h $(ALLOC_HEADERS) alias.h \
-          quit.h unwind_prot.h \
+          quit.h unwind_prot.h syntax.h \
           command.h input.h error.h bashansi.h dispose_cmd.h make_cmd.h \
           subst.h externs.h siglist.h bashhist.h bashline.h bashtypes.h \
           array.h sig.h mailcheck.h bashintl.h bashjmp.h ${GRAM_H} \
@@ -342,7 +351,7 @@ OBJECTS      = shell.o eval.o y.tab.o general.o make_cmd.o print_cmd.o $(GLOBO) \
           trap.o input.o unwind_prot.o pathexp.o sig.o test.o version.o \
           alias.o array.o braces.o bracecomp.o bashhist.o bashline.o \
           siglist.o list.o stringlib.o locale.o findcmd.o redir.o \
-          pcomplete.o pcomplib.o xmalloc.o
+          pcomplete.o pcomplib.o syntax.o xmalloc.o
 
 # Where the source code of the shell builtins resides.
 BUILTIN_SRCDIR=$(srcdir)/builtins
@@ -404,7 +413,8 @@ SDIR = $(dot)/support/
 TESTS_SUPPORT = recho$(EXEEXT) zecho$(EXEEXT) printenv$(EXEEXT)
 CREATED_SUPPORT = signames.h recho$(EXEEXT) zecho$(EXEEXT) printenv$(EXEEXT) \
                  tests/recho$(EXEEXT) tests/zecho$(EXEEXT) \
-                 tests/printenv$(EXEEXT) mksignames$(EXEEXT) lsignames.h
+                 tests/printenv$(EXEEXT) mksignames$(EXEEXT) lsignames.h \
+                 mksyntax${EXEEXT} syntax.c
 CREATED_CONFIGURE = config.h config.cache config.status config.log \
                    stamp-h
 CREATED_MAKEFILES = Makefile builtins/Makefile doc/Makefile \
@@ -503,6 +513,9 @@ $(SHLIB_LIBRARY): config.h ${SHLIB_SOURCE}
 mksignames$(EXEEXT):   $(SUPPORT_SRC)mksignames.c
        $(CC_FOR_BUILD) $(CCFLAGS) $(CPPFLAGS) -o $@ $(SUPPORT_SRC)mksignames.c
 
+mksyntax$(EXEEXT):     ${srcdir}/mksyntax.c config.h syntax.h
+       ${CC_FOR_BUILD} ${CCFLAGS} ${CPPFLAGS} -o $@ ${srcdir}/mksyntax.c
+
 # make a list of signals for the local system -- this is done when we're
 # *not* cross-compiling
 lsignames.h:   mksignames$(EXEEXT)
@@ -513,6 +526,10 @@ lsignames.h:   mksignames$(EXEEXT)
 signames.h: $(SIGNAMES_H)
        -if cmp -s $(SIGNAMES_H) $@ ; then :; else $(RM) $@ ; $(CP) $(SIGNAMES_H) $@ ; fi
 
+syntax.c:      mksyntax${EXEEXT} $(srcdir)/syntax.h 
+       $(RM) $@
+       ./mksyntax -o $@
+
 $(BUILTINS_LIBRARY): $(BUILTIN_DEFS) $(BUILTIN_C_SRC) config.h ${BASHINCDIR}/memalloc.h
        @(cd $(DEFDIR) && $(MAKE) $(MFLAGS) libbuiltins.a ) || exit 1
 
@@ -706,25 +723,25 @@ builtins/exit.o: config-top.h
 builtins/kill.o: config-top.h
 
 # shell basics
-copy_cmd.o: shell.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
+copy_cmd.o: shell.h syntax.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
 copy_cmd.o: general.h bashtypes.h variables.h array.h hashlib.h
 copy_cmd.o: quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 copy_cmd.o: make_cmd.h subst.h sig.h pathnames.h externs.h
 dispose_cmd.o: bashansi.h ${BASHINCDIR}/ansi_stdlib.h
-dispose_cmd.o: shell.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h
+dispose_cmd.o: shell.h syntax.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h
 dispose_cmd.o: error.h general.h bashtypes.h variables.h array.h hashlib.h
 dispose_cmd.o: quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 dispose_cmd.o: make_cmd.h subst.h sig.h pathnames.h externs.h
 error.o: config.h bashtypes.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h flags.h ${BASHINCDIR}/stdc.h error.h
 error.o: command.h general.h externs.h input.h bashhist.h
 eval.o: config.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h trap.h flags.h ${DEFSRC}/common.h
-eval.o: shell.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
+eval.o: shell.h syntax.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
 eval.o: general.h bashtypes.h variables.h array.h hashlib.h
 eval.o: quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 eval.o: make_cmd.h subst.h sig.h pathnames.h externs.h
 eval.o: input.h execute_cmd.h
 execute_cmd.o: config.h bashtypes.h ${BASHINCDIR}/filecntl.h ${BASHINCDIR}/posixstat.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h
-execute_cmd.o: shell.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
+execute_cmd.o: shell.h syntax.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
 execute_cmd.o: general.h bashtypes.h variables.h array.h hashlib.h
 execute_cmd.o: quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 execute_cmd.o: make_cmd.h subst.h sig.h pathnames.h externs.h
@@ -733,48 +750,48 @@ execute_cmd.o: execute_cmd.h findcmd.h redir.h trap.h test.h pathexp.h
 execute_cmd.o: $(DEFSRC)/common.h ${DEFDIR}/builtext.h ${GLOB_LIBSRC}/fnmatch.h
 execute_cmd.o: ${BASHINCDIR}/posixtime.h
 expr.o: config.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h
-expr.o: shell.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
+expr.o: shell.h syntax.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
 expr.o: general.h bashtypes.h variables.h array.h hashlib.h
 expr.o: quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 expr.o: make_cmd.h subst.h sig.h pathnames.h externs.h
 findcmd.o: config.h bashtypes.h ${BASHINCDIR}/filecntl.h ${BASHINCDIR}/posixstat.h bashansi.h
-findcmd.o: ${BASHINCDIR}/ansi_stdlib.h ${BASHINCDIR}/memalloc.h shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h
+findcmd.o: ${BASHINCDIR}/ansi_stdlib.h ${BASHINCDIR}/memalloc.h shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h
 findcmd.o: ${BASHINCDIR}/stdc.h error.h general.h variables.h quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h
 findcmd.o: dispose_cmd.h make_cmd.h subst.h sig.h pathnames.h externs.h
 findcmd.o: flags.h hashlib.h pathexp.h hashcmd.h 
 flags.o: config.h flags.h
-flags.o: shell.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
+flags.o: shell.h syntax.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
 flags.o: general.h bashtypes.h variables.h array.h hashlib.h
 flags.o: quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 flags.o: make_cmd.h subst.h sig.h pathnames.h externs.h
 general.o: config.h bashtypes.h ${BASHINCDIR}/posixstat.h ${BASHINCDIR}/filecntl.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h
-general.o: shell.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
+general.o: shell.h syntax.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
 general.o: general.h bashtypes.h variables.h array.h hashlib.h
 general.o: quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 general.o: make_cmd.h subst.h sig.h pathnames.h externs.h
 general.o: ${BASHINCDIR}/maxpath.h ${BASHINCDIR}/posixtime.h
 hashcmd.o: config.h ${BASHINCDIR}/posixstat.h bashtypes.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h
-hashcmd.o: shell.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
+hashcmd.o: shell.h syntax.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
 hashcmd.o: general.h bashtypes.h variables.h array.h hashcmd.h
 hashcmd.o: execute_cmd.h findcmd.h ${BASHINCDIR}/stdc.h
 hashlib.o: config.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h
-hashlib.o: shell.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
+hashlib.o: shell.h syntax.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
 hashlib.o: general.h bashtypes.h variables.h array.h hashlib.h
 hashlib.o: quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 hashlib.o: make_cmd.h subst.h sig.h pathnames.h externs.h
 input.o: config.h bashtypes.h ${BASHINCDIR}/filecntl.h ${BASHINCDIR}/posixstat.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h
 input.o: command.h ${BASHINCDIR}/stdc.h general.h input.h error.h externs.h
-list.o: shell.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
+list.o: shell.h syntax.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
 list.o: general.h bashtypes.h variables.h array.h hashlib.h
 list.o: quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 list.o: make_cmd.h subst.h sig.h pathnames.h externs.h
 locale.o: config.h bashtypes.h bashintl.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h
-locale.o: shell.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
+locale.o: shell.h syntax.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
 locale.o: general.h bashtypes.h variables.h array.h hashlib.h
 locale.o: quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 locale.o: make_cmd.h subst.h sig.h pathnames.h externs.h
 mailcheck.o: config.h bashtypes.h ${BASHINCDIR}/posixstat.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h
-mailcheck.o: shell.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
+mailcheck.o: shell.h syntax.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
 mailcheck.o: general.h bashtypes.h variables.h array.h hashlib.h
 mailcheck.o: quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 mailcheck.o: make_cmd.h subst.h sig.h pathnames.h externs.h
@@ -782,34 +799,34 @@ mailcheck.o: execute_cmd.h mailcheck.h
 make_cmd.o: config.h bashtypes.h ${BASHINCDIR}/filecntl.h bashansi.h
 make_cmd.o: command.h ${BASHINCDIR}/stdc.h general.h error.h flags.h make_cmd.h
 make_cmd.o: variables.h array.h hashlib.h subst.h input.h externs.h
-make_cmd.o: jobs.h quit.h siglist.h
+make_cmd.o: jobs.h quit.h siglist.h syntax.h
 y.tab.o: config.h bashtypes.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h ${BASHINCDIR}/memalloc.h
-y.tab.o: shell.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
+y.tab.o: shell.h syntax.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
 y.tab.o: general.h bashtypes.h variables.h array.h hashlib.h
 y.tab.o: quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 y.tab.o: make_cmd.h subst.h sig.h pathnames.h externs.h
 y.tab.o: trap.h flags.h parser.h input.h mailcheck.h $(DEFSRC)/common.h
 y.tab.o: $(DEFDIR)/builtext.h bashline.h bashhist.h jobs.h siglist.h alias.h
 pathexp.o: config.h bashtypes.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h
-pathexp.o: shell.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
+pathexp.o: shell.h syntax.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
 pathexp.o: general.h bashtypes.h variables.h array.h hashlib.h
 pathexp.o: quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 pathexp.o: make_cmd.h subst.h sig.h pathnames.h externs.h
 pathexp.o: pathexp.h flags.h 
 pathexp.o: $(GLOB_LIBSRC)/glob.h $(GLOB_LIBSRC)/fnmatch.h
 print_cmd.o: config.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h
-print_cmd.o: shell.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
+print_cmd.o: shell.h syntax.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
 print_cmd.o: general.h bashtypes.h variables.h array.h hashlib.h
 print_cmd.o: quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 print_cmd.o: make_cmd.h subst.h sig.h pathnames.h externs.h
 print_cmd.o: ${GRAM_H} $(DEFSRC)/common.h
 redir.o: config.h bashtypes.h ${BASHINCDIR}/posixstat.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h ${BASHINCDIR}/filecntl.h
-redir.o: ${BASHINCDIR}/memalloc.h shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
+redir.o: ${BASHINCDIR}/memalloc.h shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
 redir.o: general.h variables.h array.h hashlib.h quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h
 redir.o: dispose_cmd.h make_cmd.h subst.h sig.h pathnames.h externs.h
 redir.o: flags.h execute_cmd.h redir.h input.h
 shell.o: config.h bashtypes.h ${BASHINCDIR}/posixstat.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h ${BASHINCDIR}/filecntl.h
-shell.o: shell.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
+shell.o: shell.h syntax.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
 shell.o: general.h bashtypes.h variables.h array.h hashlib.h
 shell.o: quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 shell.o: make_cmd.h subst.h sig.h pathnames.h externs.h
@@ -817,19 +834,19 @@ shell.o: flags.h trap.h mailcheck.h builtins.h $(DEFSRC)/common.h
 shell.o: jobs.h siglist.h input.h execute_cmd.h findcmd.h bashhist.h
 shell.o: ${GLOB_LIBSRC}/fnmatch.h
 sig.o: config.h bashtypes.h
-sig.o: shell.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
+sig.o: shell.h syntax.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
 sig.o: general.h bashtypes.h variables.h array.h hashlib.h
 sig.o: quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 sig.o: make_cmd.h subst.h sig.h pathnames.h externs.h
 sig.o: jobs.h siglist.h trap.h $(DEFSRC)/common.h bashline.h bashhist.h
 siglist.o: config.h bashtypes.h siglist.h trap.h
 stringlib.o: bashtypes.h
-stringlib.o: shell.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
+stringlib.o: shell.h syntax.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
 stringlib.o: general.h bashtypes.h variables.h array.h hashlib.h
 stringlib.o: quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 stringlib.o: make_cmd.h subst.h sig.h pathnames.h externs.h
 subst.o: config.h bashtypes.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h ${BASHINCDIR}/posixstat.h
-subst.o: shell.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
+subst.o: shell.h syntax.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
 subst.o: general.h bashtypes.h variables.h array.h hashlib.h
 subst.o: quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 subst.o: make_cmd.h subst.h sig.h pathnames.h externs.h
@@ -837,13 +854,13 @@ subst.o: flags.h jobs.h siglist.h execute_cmd.h ${BASHINCDIR}/filecntl.h trap.h
 subst.o: mailcheck.h input.h $(DEFSRC)/getopt.h $(DEFSRC)/common.h
 subst.o: bashline.h bashhist.h ${GLOB_LIBSRC}/fnmatch.h
 test.o: bashtypes.h ${BASHINCDIR}/posixstat.h ${BASHINCDIR}/filecntl.h
-test.o: shell.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
+test.o: shell.h syntax.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
 test.o: general.h bashtypes.h variables.h array.h hashlib.h
 test.o: quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 test.o: make_cmd.h subst.h sig.h pathnames.h externs.h test.h
 test.o: ${DEFSRC}/common.h
 trap.o: config.h bashtypes.h trap.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h
-trap.o: shell.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
+trap.o: shell.h syntax.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
 trap.o: general.h bashtypes.h variables.h array.h hashlib.h
 trap.o: quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 trap.o: make_cmd.h subst.h sig.h pathnames.h externs.h
@@ -851,7 +868,7 @@ trap.o: signames.h $(DEFSRC)/common.h
 unwind_prot.o: config.h bashtypes.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h command.h ${BASHINCDIR}/stdc.h
 unwind_prot.o: general.h unwind_prot.h quit.h sig.h
 variables.o: config.h bashtypes.h ${BASHINCDIR}/posixstat.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h
-variables.o: shell.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
+variables.o: shell.h syntax.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
 variables.o: general.h bashtypes.h variables.h array.h hashlib.h
 variables.o: quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 variables.o: make_cmd.h subst.h sig.h pathnames.h externs.h
@@ -865,7 +882,7 @@ xmalloc.o: config.h bashtypes.h ${BASHINCDIR}/ansi_stdlib.h error.h
 
 jobs.o: config.h bashtypes.h trap.h ${BASHINCDIR}/filecntl.h input.h ${BASHINCDIR}/shtty.h
 jobs.o: bashansi.h ${BASHINCDIR}/ansi_stdlib.h
-jobs.o: shell.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
+jobs.o: shell.h syntax.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
 jobs.o: general.h bashtypes.h variables.h array.h hashlib.h
 jobs.o: quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 jobs.o: make_cmd.h subst.h sig.h pathnames.h externs.h
@@ -878,13 +895,13 @@ nojobs.o: sig.h error.h ${BASHINCDIR}/shtty.h input.h
 # shell features that may be compiled in
 
 array.o: config.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h
-array.o: shell.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
+array.o: shell.h syntax.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
 array.o: general.h bashtypes.h variables.h array.h hashlib.h
 array.o: quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 array.o: make_cmd.h subst.h sig.h pathnames.h externs.h
 array.o: $(DEFSRC)/common.h
 braces.o: config.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h
-braces.o: shell.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
+braces.o: shell.h syntax.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
 braces.o: general.h bashtypes.h variables.h array.h hashlib.h
 braces.o: quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 braces.o: make_cmd.h subst.h sig.h pathnames.h externs.h
@@ -893,13 +910,13 @@ alias.o: general.h bashtypes.h externs.h alias.h
 alias.o: pcomplete.h
 
 pcomplib.o: config.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h bashtypes.h
-pcomplib.o: ${BASHINCDIR}/stdc.h hashlib.h pcomplete.h shell.h
+pcomplib.o: ${BASHINCDIR}/stdc.h hashlib.h pcomplete.h shell.h syntax.h
 pcomplib.o: bashjmp.h command.h general.h error.h variables.h quit.h
 pcomplib.o: unwind_prot.h dispose_cmd.h make_cmd.h subst.h sig.h pathnames.h
 pcomplib.o: externs.h ${BASHINCDIR}/maxpath.h
 
 pcomplete.o: config.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h bashtypes.h
-pcomplete.o: ${BASHINCDIR}/stdc.h hashlib.h pcomplete.h shell.h
+pcomplete.o: ${BASHINCDIR}/stdc.h hashlib.h pcomplete.h shell.h syntax.h
 pcomplete.o: bashjmp.h command.h general.h error.h variables.h quit.h
 pcomplete.o: unwind_prot.h dispose_cmd.h make_cmd.h subst.h sig.h pathnames.h
 pcomplete.o: externs.h ${BASHINCDIR}/maxpath.h
@@ -908,14 +925,14 @@ pcomplete.o: externs.h ${BASHINCDIR}/maxpath.h
 
 bashhist.o: config.h bashtypes.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h ${BASHINCDIR}/posixstat.h
 bashhist.o: ${BASHINCDIR}/filecntl.h
-bashhist.o: shell.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
+bashhist.o: shell.h syntax.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
 bashhist.o: general.h bashtypes.h variables.h array.h hashlib.h
 bashhist.o: quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 bashhist.o: make_cmd.h subst.h sig.h pathnames.h externs.h
 bashhist.o: flags.h input.h parser.h pathexp.h $(DEFSRC)/common.h bashline.h
 bashhist.o: $(GLOB_LIBSRC)/fnmatch.h
 bashline.o: config.h bashtypes.h ${BASHINCDIR}/posixstat.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h
-bashline.o: shell.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
+bashline.o: shell.h syntax.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
 bashline.o: general.h bashtypes.h variables.h array.h hashlib.h
 bashline.o: quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 bashline.o: make_cmd.h subst.h sig.h pathnames.h externs.h
@@ -923,11 +940,11 @@ bashline.o: builtins.h bashhist.h bashline.h execute_cmd.h findcmd.h pathexp.h
 bashline.o: $(DEFSRC)/common.h $(GLOB_LIBSRC)/glob.h alias.h
 bashline.o: pcomplete.h
 bracecomp.o: config.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h
-bracecomp.o: shell.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
+bracecomp.o: shell.h syntax.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h command.h ${BASHINCDIR}/stdc.h error.h
 bracecomp.o: general.h bashtypes.h variables.h array.h hashlib.h
 bracecomp.o: quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 bracecomp.o: make_cmd.h subst.h sig.h pathnames.h externs.h
-bracecomp.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h command.h hashlib.h builtins.h general.h
+bracecomp.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h command.h hashlib.h builtins.h general.h
 bracecomp.o: quit.h alias.h config.h  variables.h
 bracecomp.o: dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
 
@@ -960,32 +977,32 @@ variables.o: $(TILDE_LIBSRC)/tilde.h
 
 # builtin c sources
 builtins/bashgetopt.o: config.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h
-builtins/bashgetopt.o: shell.h config.h bashjmp.h command.h general.h error.h
+builtins/bashgetopt.o: shell.h syntax.h config.h bashjmp.h command.h general.h error.h
 builtins/bashgetopt.o: variables.h quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 builtins/bashgetopt.o: make_cmd.h subst.h sig.h pathnames.h externs.h
 builtins/bashgetopt.o: $(DEFSRC)/common.h
 builtins/common.o: bashtypes.h ${BASHINCDIR}/posixstat.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h
-builtins/common.o: shell.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h command.h
+builtins/common.o: shell.h syntax.h config.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h command.h
 builtins/common.o: ${BASHINCDIR}/memalloc.h variables.h input.h siglist.h
 builtins/common.o: quit.h unwind_prot.h ${BASHINCDIR}/maxpath.h jobs.h builtins.h
 builtins/common.o: dispose_cmd.h make_cmd.h subst.h externs.h bashhist.h
 builtins/common.o: execute_cmd.h ${BASHINCDIR}/stdc.h general.h error.h pathnames.h
 builtins/common.o: ${DEFDIR}/builtext.h
 builtins/evalfile.o: bashtypes.h ${BASHINCDIR}/posixstat.h ${BASHINCDIR}/filecntl.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h
-builtins/evalfile.o: shell.h config.h bashjmp.h command.h general.h error.h
+builtins/evalfile.o: shell.h syntax.h config.h bashjmp.h command.h general.h error.h
 builtins/evalfile.o: variables.h quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 builtins/evalfile.o: make_cmd.h subst.h sig.h pathnames.h externs.h
 builtins/evalfile.o: jobs.h builtins.h flags.h input.h execute_cmd.h
 builtins/evalfile.o: bashhist.h $(DEFSRC)/common.h
 builtins/evalstring.o: config.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h
-builtins/evalstring.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h command.h siglist.h
+builtins/evalstring.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h command.h siglist.h
 builtins/evalstring.o: ${BASHINCDIR}/memalloc.h variables.h input.h
 builtins/evalstring.o: quit.h unwind_prot.h ${BASHINCDIR}/maxpath.h jobs.h builtins.h
 builtins/evalstring.o: dispose_cmd.h make_cmd.h subst.h externs.h 
 builtins/evalstring.o: jobs.h builtins.h flags.h input.h execute_cmd.h
 builtins/evalstring.o: bashhist.h $(DEFSRC)/common.h
 builtins/getopt.o: config.h ${BASHINCDIR}/memalloc.h
-builtins/getopt.o: shell.h bashjmp.h command.h general.h error.h
+builtins/getopt.o: shell.h syntax.h bashjmp.h command.h general.h error.h
 builtins/getopt.o: variables.h quit.h ${BASHINCDIR}/maxpath.h unwind_prot.h dispose_cmd.h
 builtins/getopt.o: make_cmd.h subst.h sig.h pathnames.h externs.h
 builtins/getopt.o: $(DEFSRC)/getopt.h
@@ -995,150 +1012,150 @@ builtins/mkbuiltins.o: bashansi.h ${BASHINCDIR}/ansi_stdlib.h
 # builtin def files
 builtins/alias.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
 builtins/alias.o: quit.h $(DEFSRC)/common.h
-builtins/alias.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h command.h ${BASHINCDIR}/stdc.h unwind_prot.h
+builtins/alias.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h command.h ${BASHINCDIR}/stdc.h unwind_prot.h
 builtins/alias.o: dispose_cmd.h make_cmd.h subst.h externs.h variables.h 
 builtins/bind.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
 builtins/bind.o: dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
-builtins/bind.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h quit.h
+builtins/bind.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h quit.h
 builtins/bind.o: $(DEFSRC)/bashgetopt.h
 builtins/break.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
-builtins/break.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h quit.h
+builtins/break.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h quit.h
 builtins/break.o: dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
 builtins/builtin.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
 builtins/builtin.o: quit.h $(DEFSRC)/common.h
-builtins/builtin.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h 
+builtins/builtin.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h 
 builtins/builtin.o: dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
 builtins/cd.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
-builtins/cd.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h
+builtins/cd.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h
 builtins/cd.o: dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
 builtins/cd.o: $(DEFSRC)/common.h quit.h 
 builtins/command.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
 builtins/command.o: quit.h $(DEFSRC)/bashgetopt.h
-builtins/command.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h 
+builtins/command.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h 
 builtins/command.o: dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
 builtins/declare.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
-builtins/declare.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h quit.h
+builtins/declare.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h quit.h
 builtins/declare.o: dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
 builtins/echo.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
-builtins/echo.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h quit.h
+builtins/echo.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h quit.h
 builtins/echo.o: dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
 builtins/enable.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
-builtins/enable.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h quit.h
+builtins/enable.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h quit.h
 builtins/enable.o: dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
 builtins/enable.o: pcomplete.h
 builtins/eval.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
-builtins/eval.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h quit.h 
+builtins/eval.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h quit.h 
 builtins/eval.o: dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
 builtins/exec.o: bashtypes.h
 builtins/exec.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
-builtins/exec.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h
+builtins/exec.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h
 builtins/exec.o: dispose_cmd.h make_cmd.h subst.h externs.h execute_cmd.h
 builtins/exec.o: findcmd.h flags.h quit.h $(DEFSRC)/common.h ${BASHINCDIR}/stdc.h
 builtins/exit.o: bashtypes.h
 builtins/exit.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
-builtins/exit.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h quit.h
+builtins/exit.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h quit.h
 builtins/exit.o: dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
 builtins/fc.o: bashtypes.h ${BASHINCDIR}/posixstat.h
 builtins/fc.o: bashansi.h ${BASHINCDIR}/ansi_stdlib.h builtins.h command.h ${BASHINCDIR}/stdc.h 
 builtins/fc.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
-builtins/fc.o: flags.h unwind_prot.h variables.h shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h 
+builtins/fc.o: flags.h unwind_prot.h variables.h shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h 
 builtins/fc.o: dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h quit.h 
 builtins/fc.o: $(DEFSRC)/bashgetopt.h bashhist.h
 builtins/fg_bg.o: bashtypes.h
 builtins/fg_bg.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
-builtins/fg_bg.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h quit.h
+builtins/fg_bg.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h quit.h
 builtins/fg_bg.o: dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
 builtins/getopts.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
-builtins/getopts.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h quit.h 
+builtins/getopts.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h quit.h 
 builtins/getopts.o: dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
 builtins/hash.o: bashtypes.h
 builtins/hash.o: builtins.h command.h findcmd.h ${BASHINCDIR}/stdc.h $(DEFSRC)/common.h
 builtins/hash.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
-builtins/hash.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h quit.h 
+builtins/hash.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h quit.h 
 builtins/help.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
 builtins/help.o: dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
-builtins/help.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h quit.h
+builtins/help.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h quit.h
 builtins/help.o: $(GLOB_LIBSRC)/glob.h
 builtins/history.o: bashtypes.h
 builtins/history.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
 builtins/history.o: quit.h dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
-builtins/history.o: ${BASHINCDIR}/filecntl.h shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h
+builtins/history.o: ${BASHINCDIR}/filecntl.h shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h
 builtins/history.o: bashhist.h variables.h 
 builtins/inlib.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
-builtins/inlib.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h quit.h 
+builtins/inlib.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h quit.h 
 builtins/inlib.o: dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
 builtins/jobs.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
 builtins/jobs.o: quit.h $(DEFSRC)/bashgetopt.h
-builtins/jobs.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h 
+builtins/jobs.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h 
 builtins/jobs.o: dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
 builtins/kill.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
 builtins/kill.o: quit.h dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
-builtins/kill.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h trap.h unwind_prot.h variables.h 
+builtins/kill.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h trap.h unwind_prot.h variables.h 
 builtins/let.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
 builtins/let.o: quit.h dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
-builtins/let.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h 
+builtins/let.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h 
 builtins/printf.o: config.h ${BASHINCDIR}/memalloc.h bashjmp.h command.h error.h
 builtins/printf.o: general.h quit.h dispose_cmd.h make_cmd.h subst.h
-builtins/printf.o: externs.h sig.h pathnames.h shell.h unwind_prot.h
+builtins/printf.o: externs.h sig.h pathnames.h shell.h syntax.h unwind_prot.h
 builtins/printf.o: variables.h ${BASHINCDIR}/stdc.h $(DEFSRC)/bashgetopt.h
 builtins/pushd.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
 builtins/pushd.o: quit.h dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
-builtins/pushd.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h
+builtins/pushd.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h
 builtins/pushd.o: $(DEFSRC)/common.h
 builtins/read.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
 builtins/read.o: quit.h dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
-builtins/read.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h 
+builtins/read.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h 
 builtins/return.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
 builtins/return.o: quit.h dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
-builtins/return.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h 
+builtins/return.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h 
 builtins/set.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
 builtins/set.o: quit.h dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
-builtins/set.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h flags.h
+builtins/set.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h flags.h
 builtins/setattr.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
 builtins/setattr.o: quit.h $(DEFSRC)/common.h $(DEFSRC)/bashgetopt.h
-builtins/setattr.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h 
+builtins/setattr.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h 
 builtins/setattr.o: dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
 builtins/shift.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
 builtins/shift.o: quit.h dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
-builtins/shift.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h 
+builtins/shift.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h 
 builtins/shift.o: dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
 builtins/shopt.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h
 builtins/shopt.o: quit.h dispose_cmd.h make_cmd.h subst.h externs.h
-builtins/shopt.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h unwind_prot.h variables.h ${BASHINCDIR}/maxpath.h
+builtins/shopt.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h unwind_prot.h variables.h ${BASHINCDIR}/maxpath.h
 builtins/shopt.o: $(DEFSRC)/common.h $(DEFSRC)/bashgetopt.h
 builtins/source.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
 builtins/source.o: quit.h dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
-builtins/source.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h
+builtins/source.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h
 builtins/source.o: findcmd.h
 builtins/suspend.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
 builtins/suspend.o: quit.h dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
-builtins/suspend.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h 
+builtins/suspend.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h 
 builtins/test.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
 builtins/test.o: quit.h dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
-builtins/test.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h 
+builtins/test.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h 
 builtins/test.o: test.h
 builtins/times.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
 builtins/times.o: quit.h dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
-builtins/times.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h 
+builtins/times.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h 
 builtins/trap.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
 builtins/trap.o: quit.h $(DEFSRC)/common.h
-builtins/trap.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h 
+builtins/trap.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h 
 builtins/trap.o: dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
 builtins/type.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
 builtins/type.o: quit.h $(DEFSRC)/common.h findcmd.h
-builtins/type.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h
+builtins/type.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h
 builtins/type.o: dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
 builtins/ulimit.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
 builtins/ulimit.o: quit.h dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
-builtins/ulimit.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h 
+builtins/ulimit.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h 
 builtins/umask.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
 builtins/umask.o: quit.h dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
-builtins/umask.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h 
+builtins/umask.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h 
 builtins/wait.o: command.h config.h ${BASHINCDIR}/memalloc.h error.h general.h ${BASHINCDIR}/maxpath.h
 builtins/wait.o: quit.h dispose_cmd.h make_cmd.h subst.h externs.h ${BASHINCDIR}/stdc.h
-builtins/wait.o: shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h
+builtins/wait.o: shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h unwind_prot.h variables.h
 
-builtins/complete.o: config.h shell.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h
+builtins/complete.o: config.h shell.h syntax.h bashjmp.h ${BASHINCDIR}/posixjmp.h sig.h
 builtins/complete.o: unwind_prot.h variables.h
 builtins/complete.o: bashtypes.h bashansi.h ${BASHINCDIR}/ansi_stdlib.h
 builtins/complete.o: builtins.h
diff --git a/NEWS b/NEWS
index 55a8dd2246aa78259b660d5bcc1e100d418618c3..05c28e1c14c9dbf47401c953f91b78c4c7a28690 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,70 @@
+This is a terse description of the new features added to bash-2.05 since
+the release of bash-2.04.  As always, the manual page (doc/bash.1) is
+the place to look for complete descriptions.
+
+1.  New Features in Bash
+
+a.  Added a new `--init-file' invocation argument as a synonym for `--rcfile',
+    per the new GNU coding standards.
+
+b.  The /dev/tcp and /dev/udp redirections now accept service names as well as
+    port numbers.
+
+c.  `complete' and `compgen' now take a `-o value' option, which controls some
+    of the aspects of that compspec.  Valid values are:
+
+        default - perform bash default completion if programmable
+                  completion produces no matches
+        dirnames - perform directory name completion if programmable
+                   completion produces no matches
+        filenames - tell readline that the compspec produces filenames,
+                    so it can do things like append slashes to
+                    directory names and suppress trailing spaces
+
+d.  A new loadable builtin, realpath, which canonicalizes and expands symlinks
+    in pathname arguments.
+    
+e.  When `set' is called without options, it prints function defintions in a
+    way that allows them to be reused as input.  This affects `declare' and 
+    `declare -p' as well.  This only happens when the shell is not in POSIX
+    mode, since POSIX.2 forbids this behavior.
+
+f.  Bash-2.05 once again honors the current locale setting when processing
+    ranges within pattern matching bracket expressions (e.g., [A-Z]).
+
+2.  New Features in Readline
+
+a.  The blink timeout for paren matching is now settable by applications,
+    via the rl_set_paren_blink_timeout() function.
+
+b.  _rl_executing_macro has been renamed to rl_executing_macro, which means
+    it's now part of the public interface.
+
+c.  Readline has a new variable, rl_readline_state, which is a bitmap that
+    encapsulates the current state of the library; intended for use by
+    callbacks and hook functions.
+
+d.  New application-callable function rl_set_prompt(const char *prompt):
+    expands its prompt string argument and sets rl_prompt to the result.
+
+e.  New application-callable function rl_set_screen_size(int rows, int cols):
+    public method for applications to set readline's idea of the screen
+    dimensions.
+
+f.  New function, rl_get_screen_size (int *rows, int *columns), returns
+    readline's idea of the screen dimensions.
+
+g.  The timeout in rl_gather_tyi (readline keyboard input polling function)
+    is now settable via a function (rl_set_keyboard_input_timeout()).
+
+h.  Renamed the max_input_history variable to history_max_entries; the old
+    variable is maintained for backwards compatibility.
+
+i.  The list of characters that separate words for the history tokenizer is
+    now settable with a variable:  history_word_delimiters.  The default
+    value is as before.
+
+-------------------------------------------------------------------------------
 This is a terse description of the new features added to bash-2.04 since
 the release of bash-2.03.  As always, the manual page (doc/bash.1) is
 the place to look for complete descriptions.
diff --git a/NOTES b/NOTES
index 2ce96143ffd7a550f268b2bfa1a5b942046da0df..69bb6aea1f067bf80ce5ff14f0dafb16e85d8c23 100644 (file)
--- a/NOTES
+++ b/NOTES
@@ -51,9 +51,9 @@ being built and linked against, but there is only a stub file in the archive.)
     configure runs and removing the `-lnsl' from the assignment to `LIBS'
     fixes the problem.
 
-5.  There is a problem with Red Hat Linux's `makewhatis' script.
-    Running `makewhatis' with bash-2.0 or later versions results
-    in error messages like this:
+5.  There is a problem with the `makewhatis' script in older (pre-7.0)
+    versions of Red Hat Linux.  Running `makewhatis' with bash-2.0 or
+    later versions results in error messages like this:
 
     /usr/sbin/makewhatis: cd: manpath: No such file or directory
     /usr/sbin/makewhatis: manpath/whatis: No such file or directory
@@ -215,7 +215,8 @@ being built and linked against, but there is only a stub file in the archive.)
 
     It's not possible to build a completely statically-linked binary, since
     part of the C library depends on dynamic linking.  The following recipe
-    assumes that you're using gcc and the Solaris ld (/usr/ccs/bin/ld).
+    assumes that you're using gcc and the Solaris ld (/usr/ccs/bin/ld) on
+    Solaris 2.5.x or 2.6:
 
        configure --enable-static-link
        make STATIC_LD= LOCAL_LIBS='-Wl,-B,dynamic -ldl -Wl,-B,static'
@@ -251,6 +252,17 @@ being built and linked against, but there is only a stub file in the archive.)
        thor(2)$ ldd bash
                libdl.so.1 =>    /etc/lib/libdl.so.1
 
+    On Solaris 7 (and presumably Solaris 8, though I do not run that), the
+    following recipe appears to work for gcc:
+
+       configure --enable-static-link
+       make STATIC_LD='-Wl,-Bstatic' LOCAL_LIBS='Wl,-Bdynamic -Wl,-R/etc/lib -ldl -Wl,-Bstatic'
+
+       thor.ins.cwru.edu(2)$ ldd bash
+               libdl.so.1 =>    /etc/lib/libdl.so.1
+
+    Make the analogous changes if you are running Sun's C Compiler.
+
 12. Configuring bash to build it in a cross environment.  Currently only
     two native versions can be compiled this way, cygwin32 and x86 BeOS.
     For BeOS, you would configure it like this:
@@ -261,3 +273,40 @@ being built and linked against, but there is only a stub file in the archive.)
        configure i586-beos
 
     Similarly for cygwin32.
+
+13. Bash-2.05 has reverted to the bash-2.03 behavior of honoring the current
+    locale setting when processing ranges within pattern matching bracket
+    expressions ([A-Z]).  This is what POSIX.2 and SUSv2 specify.
+
+    The behavior of the matcher in bash-2.05 depends on the current LC_COLLATE
+    setting.  Setting this variable to `C' or `POSIX' will result in the
+    traditional behavior ([A-Z] matches all uppercase ASCII characters).
+    Many other locales, including the en_US locale (the default on many US
+    versions of Linux) collate the upper and lower case letters like this:
+
+       AaBb...Zz
+
+    which means that [A-Z] matches every letter except `z'.
+
+    The portable way to specify upper case letters is [:upper:] instead of
+    A-Z; lower case may be specified as [:lower:] instead of a-z.
+
+    Look at the manual pages for setlocale(3), strcoll(3), and, if it is
+    present, locale(1).  If you have locale(1), you can use it to find
+    your current locale information even if you do not have any of the
+    LC_ variables set.
+
+    My advice is to put
+
+        export LC_COLLATE=C
+
+    into /etc/profile and inspect any shell scripts run from cron for
+    constructs like [A-Z].  This will prevent things like
+
+       rm [A-Z]*
+
+    from removing every file in the current directory except those beginning
+    with `z' and still allow individual users to change the collation order.
+    Users may put the above command into their own profiles as well, of course.
+
+
diff --git a/README b/README
index 3eceeb50fa2b0cfc383a8287c78cd6ee088890f6..b47826e98d3c07c8f1de84e010adc73668388341 100644 (file)
--- a/README
+++ b/README
@@ -1,7 +1,7 @@
 Introduction
 ============
 
-This is GNU Bash, version 2.04.  Bash is the GNU Project's Bourne
+This is GNU Bash, version 2.05.  Bash is the GNU Project's Bourne
 Again SHell, a complete implementation of the POSIX.2 shell spec,
 but also with interactive command line editing, job control on
 architectures that support it, csh-like features such as history
index f8f5b74b72f0f8f04ca14a728d28373b2ce70a64..8c977c16db94ff22e6a9251938020be30cdb4500 100644 (file)
@@ -1065,17 +1065,19 @@ fi
 ])
 
 AC_DEFUN(BASH_CHECK_GETPW_FUNCS,
-[AC_MSG_CHECKING(whether programs are able to redeclare getpw functions)
-AC_CACHE_VAL(bash_cv_can_redecl_getpw,
-[AC_TRY_COMPILE([#include <sys/types.h>
+[AC_MSG_CHECKING(whether getpw functions are declared in pwd.h)
+AC_CACHE_VAL(bash_cv_getpw_declared,
+[AC_EGREP_CPP(getpwuid,
+[
+#include <sys/types.h>
+#ifdef HAVE_UNISTD_H
+#  include <unistd.h>
+#endif
 #include <pwd.h>
-extern struct passwd *getpwent();
-extern struct passwd *getpwuid();
-extern struct passwd *getpwnam();],
-[struct passwd *z; z = getpwent(); z = getpwuid(0); z = getpwnam("root");],
-  bash_cv_can_redecl_getpw=yes,bash_cv_can_redecl_getpw=no)])
-AC_MSG_RESULT($bash_cv_can_redecl_getpw)
-if test $bash_cv_can_redecl_getpw = no; then
+],
+bash_cv_getpw_declared=yes,bash_cv_getpw_declared=no)])
+AC_MSG_RESULT($bash_cv_getpw_declared)
+if test $bash_cv_getpw_declared = yes; then
 AC_DEFINE(HAVE_GETPW_DECLS)
 fi
 ])
@@ -1350,12 +1352,15 @@ dnl causes system calls to be restarted after the signal is caught
 dnl
 AC_DEFUN(BASH_SYS_RESTARTABLE_SYSCALLS,
 [AC_REQUIRE([BASH_SIGNAL_CHECK])
-AC_CACHE_CHECK(for restartable system calls with posix sigaction,
+AC_CACHE_CHECK(whether posix sigaction restarts system calls by default,
 bash_cv_sys_restartable_syscalls,
 [AC_TRY_RUN(
 [/* Exit 0 (true) if wait returns something other than -1,
    i.e. the pid of the child, which means that wait was restarted
    after getting the signal.  */
+#ifdef HAVE_UNISTD_H
+#  include <unistd.h>
+#endif
 #include <sys/types.h>
 #include <signal.h>
 static int caught = 0;
@@ -1425,3 +1430,34 @@ if test $bash_cv_struct_timeval = yes; then
   AC_DEFINE(HAVE_TIMEVAL)
 fi
 ])
+
+AC_DEFUN(BASH_CHECK_RTSIGS,
+[AC_MSG_CHECKING(for unusable real-time signals due to large values)
+AC_CACHE_VAL(bash_cv_unusable_rtsigs,
+[AC_TRY_RUN([
+#include <sys/types.h>
+#include <signal.h>
+
+#ifndef NSIG
+#  define NSIG 64
+#endif
+
+main ()
+{
+  int n_sigs = 2 * NSIG;
+#ifdef SIGRTMIN
+  int rtmin = SIGRTMIN;
+#else
+  int rtmin = 0;
+#endif
+
+  exit(rtmin < n_sigs);
+}], bash_cv_unusable_rtsigs=yes, bash_cv_unusable_rtsigs=no,
+    [AC_MSG_WARN(cannot check real-time signals if cross compiling -- defaulting to yes)
+     bash_cv_unusable_rtsigs=yes]
+)])
+AC_MSG_RESULT($bash_cv_unusable_rtsigs)
+if test $bash_cv_unusable_rtsigs = yes; then
+AC_DEFINE(UNUSABLE_RT_SIGNALS)
+fi
+])
diff --git a/array.c b/array.c
index 6e2d39cc4de6409b06c256947d41df11b7e6bfc1..a34fcf0c9414f23981061cb0f793d81219b055df 100644 (file)
--- a/array.c
+++ b/array.c
@@ -364,7 +364,7 @@ ARRAY       *a;
 
        for (ae = element_forw(a->head); ae != a->head; ae = element_forw(ae)) {
                indstr = itos (element_index(ae));
-               valstr = element_value (ae) ? double_quote (element_value(ae))
+               valstr = element_value (ae) ? sh_double_quote (element_value(ae))
                                            : (char *)NULL;
                elen = STRLEN (indstr) + 8 + STRLEN (valstr);
                RESIZE_MALLOCED_BUFFER (result, rlen, (elen + 1), rsize, rsize);
@@ -401,7 +401,7 @@ ARRAY       *a;
        if (sv == 0)
                return ((char *)NULL);
 
-       vstr = single_quote (sv);
+       vstr = sh_single_quote (sv);
        free (sv);
        return (vstr);
 }
index 3cc544c3d49c2f248df3ebfcec6521e01a5e00a7..85e4eebec7f1981bea4d1f06763a1675feba9c26 100644 (file)
@@ -490,10 +490,10 @@ void
 maybe_add_history (line)
      char *line;
 {
-  int should_add;
+  static int first_line_saved = 0;
   HIST_ENTRY *temp;
 
-  should_add = hist_last_line_added = 0;
+  hist_last_line_added = 0;
 
   /* Don't use the value of history_control to affect the second
      and subsequent lines of a multi-line command (old code did
@@ -504,19 +504,24 @@ maybe_add_history (line)
   if (current_command_line_count > 1)
 #endif
     {
-      if (literal_history || dstack.delimiter_depth != 0 || shell_comment (line) == 0)
+      if (first_line_saved &&
+         (literal_history || dstack.delimiter_depth != 0 || shell_comment (line) == 0))
        bash_add_history (line);
       return;
     }
 
+  /* This is the first line of a (possible multi-line) command.  Note whether
+     or not we should save the first line and remember it. */
+  first_line_saved = 0;
+
   switch (history_control)
     {
     case 0:
-      should_add = 1;
+      first_line_saved = 1;
       break;
     case 1:
       if (*line != ' ')
-       should_add = 1;
+       first_line_saved = 1;
       break;
     case 3:
       if (*line == ' ')
@@ -527,14 +532,16 @@ maybe_add_history (line)
       temp = previous_history ();
 
       if (temp == 0 || STREQ (temp->line, line) == 0)
-       should_add = 1;
+       first_line_saved = 1;
 
       using_history ();
       break;
     }
 
-  if (should_add && history_should_ignore (line) == 0)
+  if (first_line_saved && history_should_ignore (line) == 0)
     bash_add_history (line);
+  else
+    first_line_saved = 0;
 }
 
 /* Add a line to the history list.
index cb4de05aaf9b6fffd13235d2e977562d802522d4..5c3d1f4545234d5a89d7904406258ea1c1f2242d 100644 (file)
 #endif
 
 #if defined (BRACE_COMPLETION)
-extern void bash_brace_completion ();
+extern int bash_brace_completion __P((int, int));
 #endif /* BRACE_COMPLETION */
 
+/* Forward declarations */
+
+extern char *command_word_completion_function __P((const char *, int));
+
 /* Functions bound to keys in Readline for Bash users. */
-static void shell_expand_line ();
-static void display_shell_version (), operate_and_get_next ();
-static void bash_ignore_filenames ();
-static void bash_ignore_everything ();
-static void cleanup_expansion_error (), set_up_new_line ();
+static int shell_expand_line __P((int, int));
+static int display_shell_version __P((int, int));
+static int operate_and_get_next __P((int, int));
+
+static int bash_ignore_filenames __P((char **));
+static int bash_ignore_everything __P((char **));
+
+static void cleanup_expansion_error __P((void));
+static void set_up_new_line __P((char *));
 
 #if defined (BANG_HISTORY)
-static int history_expand_line ();
-static int tcsh_magic_space ();
+static int history_expand_line __P((int, int));
+static int tcsh_magic_space __P((int, int));
 #endif /* BANG_HISTORY */
 #ifdef ALIAS
-static int alias_expand_line ();
+static int alias_expand_line __P((int, int));
 #endif
 #if defined (BANG_HISTORY) && defined (ALIAS)
-static int history_and_alias_expand_line ();
+static int history_and_alias_expand_line __P((int, int));
 #endif
 
 /* Helper functions for Readline. */
 static int bash_directory_completion_hook ();
-static void filename_completion_ignore ();
-static void bash_push_line ();
+static int filename_completion_ignore ();
+static int bash_push_line __P((void));
 
-static char **attempt_shell_completion ();
-static char *variable_completion_function ();
-static char *hostname_completion_function ();
-static char *command_subst_completion_function ();
-static void dynamic_complete_history ();
+static char **attempt_shell_completion __P((const char *, int, int));
+static char *variable_completion_function __P((const char *, int));
+static char *hostname_completion_function __P((const char *, int));
+static char *command_subst_completion_function __P((const char *, int));
 
-static char *glob_complete_word ();
-static void bash_glob_expand_word ();
-static void bash_glob_list_expansions ();
+static int dynamic_complete_history __P((int, int));
 
-static void snarf_hosts_from_file ();
-static void add_host_name ();
+static char *glob_complete_word __P((const char *, int));
+static int bash_glob_expand_word __P((int, int));
+static int bash_glob_list_expansions __P((int, int));
 
-static char *bash_dequote_filename ();
-static char *bash_quote_filename ();
+static void snarf_hosts_from_file __P((char *));
+static void add_host_name __P((char *));
+
+static char *bash_dequote_filename __P((char *, int));
+static char *bash_quote_filename __P((char *, int, char *));
 
 #if defined (ALIAS)
-static int posix_edit_macros ();
+static int posix_edit_macros __P((int, int));
 #endif
 
 #if defined (PROGRAMMABLE_COMPLETION)
@@ -107,11 +116,8 @@ static int old_rl_completion_append_character;
 
 /* Variables used here but defined in other files. */
 extern int posixly_correct, no_symbolic_links;
-extern int rl_explicit_arg;
 extern char *current_prompt_string, *ps1_prompt;
 extern STRING_INT_ALIST word_token_alist[];
-extern Function *rl_last_func;
-extern int rl_filename_completion_desired;
 
 /* SPECIFIC_COMPLETION_FUNCTIONS specifies that we have individual
    completion functions which indicate what type of completion should be
@@ -120,21 +126,28 @@ extern int rl_filename_completion_desired;
 #define SPECIFIC_COMPLETION_FUNCTIONS
 
 #if defined (SPECIFIC_COMPLETION_FUNCTIONS)
-static void bash_specific_completion ();
-static void bash_complete_filename (), bash_possible_filename_completions ();
-static void bash_complete_filename_internal ();
-static void bash_complete_username (), bash_possible_username_completions ();
-static void bash_complete_username_internal ();
-static void bash_complete_hostname (), bash_possible_hostname_completions ();
-static void bash_complete_hostname_internal ();
-static void bash_complete_variable (), bash_possible_variable_completions ();
-static void bash_complete_variable_internal ();
-static void bash_complete_command (), bash_possible_command_completions ();
-static void bash_complete_command_internal ();
+static int bash_specific_completion __P((int, rl_compentry_func_t *));
+
+static int bash_complete_filename_internal __P((int));
+static int bash_complete_username_internal __P((int));
+static int bash_complete_hostname_internal __P((int));
+static int bash_complete_variable_internal __P((int));
+static int bash_complete_command_internal __P((int));
+
+static int bash_complete_filename __P((int, int));
+static int bash_possible_filename_completions __P((int, int));
+static int bash_complete_username __P((int, int));
+static int bash_possible_username_completions __P((int, int));
+static int bash_complete_hostname __P((int, int));
+static int bash_possible_hostname_completions __P((int, int));
+static int bash_complete_variable __P((int, int));
+static int bash_possible_variable_completions __P((int, int));
+static int bash_complete_command __P((int, int));
+static int bash_possible_command_completions __P((int, int));
 #endif /* SPECIFIC_COMPLETION_FUNCTIONS */
 
 #if defined (VI_MODE)
-static void vi_edit_and_execute_command ();
+static int vi_edit_and_execute_command __P((int, int));
 #endif
 
 /* Non-zero once initalize_readline () has been called. */
@@ -151,7 +164,7 @@ int no_empty_command_completion;
 static char *bash_completer_word_break_characters = " \t\n\"'@><=;|&(:";
 static char *bash_nohostname_word_break_characters = " \t\n\"'><=;|&(:";
 
-static Function *old_rl_startup_hook = (Function *) NULL;
+static rl_hook_func_t *old_rl_startup_hook = (rl_hook_func_t *)NULL;
 
 /* What kind of quoting is performed by bash_quote_filename:
        COMPLETE_DQUOTE = double-quoting the filename
@@ -208,35 +221,62 @@ initialize_readline ()
   /* Allow conditional parsing of the ~/.inputrc file. */
   rl_readline_name = "Bash";
 
-  /* Bind up our special shell functions. */
-  rl_add_defun ("shell-expand-line", (Function *)shell_expand_line, -1);
-  rl_bind_key_in_map (CTRL('E'), (Function *)shell_expand_line, emacs_meta_keymap);
-
-  /* Bind up our special shell functions. */
+  /* Add bindable names before calling rl_initialize so they may be
+     referenced in the various inputrc files. */
+  rl_add_defun ("shell-expand-line", shell_expand_line, -1);
 #ifdef BANG_HISTORY
-  rl_add_defun ("history-expand-line", (Function *)history_expand_line, -1);
-  rl_bind_key_in_map ('^', (Function *)history_expand_line, emacs_meta_keymap);
-
-  rl_add_defun ("magic-space", (Function *)tcsh_magic_space, -1);
+  rl_add_defun ("history-expand-line", history_expand_line, -1);
+  rl_add_defun ("magic-space", tcsh_magic_space, -1);
 #endif
 
 #ifdef ALIAS
-  rl_add_defun ("alias-expand-line", (Function *)alias_expand_line, -1);
+  rl_add_defun ("alias-expand-line", alias_expand_line, -1);
 #  ifdef BANG_HISTORY
-  rl_add_defun ("history-and-alias-expand-line", (Function *)history_and_alias_expand_line, -1);
+  rl_add_defun ("history-and-alias-expand-line", history_and_alias_expand_line, -1);
 #  endif
 #endif
 
   /* Backwards compatibility. */
   rl_add_defun ("insert-last-argument", rl_yank_last_arg, -1);
 
-  rl_add_defun
-    ("operate-and-get-next", (Function *)operate_and_get_next, CTRL('O'));
+  rl_add_defun ("operate-and-get-next", operate_and_get_next, -1);
+  rl_add_defun ("display-shell-version", display_shell_version, -1);
+
+#if defined (BRACE_COMPLETION)
+  rl_add_defun ("complete-into-braces", bash_brace_completion, -1);
+#endif
+
+#if defined (SPECIFIC_COMPLETION_FUNCTIONS)
+  rl_add_defun ("complete-filename", bash_complete_filename, -1);
+  rl_add_defun ("possible-filename-completions", bash_possible_filename_completions, -1);
+  rl_add_defun ("complete-username", bash_complete_username, -1);
+  rl_add_defun ("possible-username-completions", bash_possible_username_completions, -1);
+  rl_add_defun ("complete-hostname", bash_complete_hostname, -1);
+  rl_add_defun ("possible-hostname-completions", bash_possible_hostname_completions, -1);
+  rl_add_defun ("complete-variable", bash_complete_variable, -1);
+  rl_add_defun ("possible-variable-completions", bash_possible_variable_completions, -1);
+  rl_add_defun ("complete-command", bash_complete_command, -1);
+  rl_add_defun ("possible-command-completions", bash_possible_command_completions, -1);
+  rl_add_defun ("glob-expand-word", bash_glob_expand_word, -1);
+  rl_add_defun ("glob-list-expansions", bash_glob_list_expansions, -1);
+#endif
+
+  rl_add_defun ("dynamic-complete-history", dynamic_complete_history, -1);
 
-  rl_add_defun
-    ("display-shell-version", (Function *)display_shell_version, -1);
-  rl_bind_key_in_map
-    (CTRL ('V'), (Function *)display_shell_version, emacs_ctlx_keymap);
+  /* Bind defaults before binding our custom shell keybindings. */
+  if (RL_ISSTATE(RL_STATE_INITIALIZED) == 0)
+    rl_initialize ();
+
+  /* Bind up our special shell functions. */
+  rl_bind_key_in_map (CTRL('E'), shell_expand_line, emacs_meta_keymap);
+
+  /* Bind up our special shell functions. */
+#ifdef BANG_HISTORY
+  rl_bind_key_in_map ('^', history_expand_line, emacs_meta_keymap);
+#endif
+
+  rl_bind_key_in_map (CTRL ('O'), operate_and_get_next, emacs_standard_keymap);
+  rl_bind_key_in_map (CTRL ('V'), display_shell_version, emacs_ctlx_keymap);
 
   /* In Bash, the user can switch editing modes with "set -o [vi emacs]",
      so it is not necessary to allow C-M-j for context switching.  Turn
@@ -248,65 +288,46 @@ initialize_readline ()
 #endif
 
 #if defined (BRACE_COMPLETION)
-  rl_add_defun ("complete-into-braces", (Function *)bash_brace_completion, -1);
-  rl_bind_key_in_map ('{', (Function *)bash_brace_completion, emacs_meta_keymap);
+  rl_bind_key_in_map ('{', bash_brace_completion, emacs_meta_keymap);
 #endif /* BRACE_COMPLETION */
 
 #if defined (SPECIFIC_COMPLETION_FUNCTIONS)
-  rl_add_defun ("complete-filename", (Function *)bash_complete_filename, -1);
-  rl_bind_key_in_map ('/', (Function *)bash_complete_filename, emacs_meta_keymap);
-  rl_add_defun ("possible-filename-completions",
-               (Function *)bash_possible_filename_completions, -1);
-  rl_bind_key_in_map ('/', (Function *)bash_possible_filename_completions, emacs_ctlx_keymap);
-
-  rl_add_defun ("complete-username", (Function *)bash_complete_username, -1);
-  rl_bind_key_in_map ('~', (Function *)bash_complete_username, emacs_meta_keymap);
-  rl_add_defun ("possible-username-completions",
-               (Function *)bash_possible_username_completions, -1);
-  rl_bind_key_in_map ('~', (Function *)bash_possible_username_completions, emacs_ctlx_keymap);
-
-  rl_add_defun ("complete-hostname", (Function *)bash_complete_hostname, -1);
-  rl_bind_key_in_map ('@', (Function *)bash_complete_hostname, emacs_meta_keymap);
-  rl_add_defun ("possible-hostname-completions",
-               (Function *)bash_possible_hostname_completions, -1);
-  rl_bind_key_in_map ('@', (Function *)bash_possible_hostname_completions, emacs_ctlx_keymap);
-
-  rl_add_defun ("complete-variable", (Function *)bash_complete_variable, -1);
-  rl_bind_key_in_map ('$', (Function *)bash_complete_variable, emacs_meta_keymap);
-  rl_add_defun ("possible-variable-completions",
-               (Function *)bash_possible_variable_completions, -1);
-  rl_bind_key_in_map ('$', (Function *)bash_possible_variable_completions, emacs_ctlx_keymap);
-
-  rl_add_defun ("complete-command", (Function *)bash_complete_command, -1);
-  rl_bind_key_in_map ('!', (Function *)bash_complete_command, emacs_meta_keymap);
-  rl_add_defun ("possible-command-completions",
-               (Function *)bash_possible_command_completions, -1);
-  rl_bind_key_in_map ('!', (Function *)bash_possible_command_completions, emacs_ctlx_keymap);
-
-  rl_add_defun ("glob-expand-word", (Function *)bash_glob_expand_word, -1);
-  rl_add_defun ("glob-list-expansions", (Function *)bash_glob_list_expansions, -1);
-  rl_bind_key_in_map ('*', (Function *)bash_glob_expand_word, emacs_ctlx_keymap);
-  rl_bind_key_in_map ('g', (Function *)bash_glob_list_expansions, emacs_ctlx_keymap);
+  rl_bind_key_in_map ('/', bash_complete_filename, emacs_meta_keymap);
+  rl_bind_key_in_map ('/', bash_possible_filename_completions, emacs_ctlx_keymap);
+
+  rl_bind_key_in_map ('~', bash_complete_username, emacs_meta_keymap);
+  rl_bind_key_in_map ('~', bash_possible_username_completions, emacs_ctlx_keymap);
+
+  rl_bind_key_in_map ('@', bash_complete_hostname, emacs_meta_keymap);
+  rl_bind_key_in_map ('@', bash_possible_hostname_completions, emacs_ctlx_keymap);
+
+  rl_bind_key_in_map ('$', bash_complete_variable, emacs_meta_keymap);
+  rl_bind_key_in_map ('$', bash_possible_variable_completions, emacs_ctlx_keymap);
+
+  rl_bind_key_in_map ('!', bash_complete_command, emacs_meta_keymap);
+  rl_bind_key_in_map ('!', bash_possible_command_completions, emacs_ctlx_keymap);
+
+  rl_bind_key_in_map ('*', bash_glob_expand_word, emacs_ctlx_keymap);
+  rl_bind_key_in_map ('g', bash_glob_list_expansions, emacs_ctlx_keymap);
 
 #endif /* SPECIFIC_COMPLETION_FUNCTIONS */
 
-  rl_add_defun ("dynamic-complete-history", (Function *)dynamic_complete_history, -1);
-  rl_bind_key_in_map (TAB, (Function *)dynamic_complete_history, emacs_meta_keymap);
+  rl_bind_key_in_map (TAB, dynamic_complete_history, emacs_meta_keymap);
 
   /* Tell the completer that we want a crack first. */
-  rl_attempted_completion_function = (CPPFunction *)attempt_shell_completion;
+  rl_attempted_completion_function = attempt_shell_completion;
 
   /* Tell the completer that we might want to follow symbolic links or
      do other expansion on directory names. */
   rl_directory_completion_hook = bash_directory_completion_hook;
 
   /* Tell the filename completer we want a chance to ignore some names. */
-  rl_ignore_some_completions_function = (Function *)filename_completion_ignore;
+  rl_ignore_some_completions_function = filename_completion_ignore;
 
 #if defined (VI_MODE)
-  rl_bind_key_in_map ('v', (Function *)vi_edit_and_execute_command, vi_movement_keymap);
+  rl_bind_key_in_map ('v', vi_edit_and_execute_command, vi_movement_keymap);
 #  if defined (ALIAS)
-  rl_bind_key_in_map ('@', (Function *)posix_edit_macros, vi_movement_keymap);
+  rl_bind_key_in_map ('@', posix_edit_macros, vi_movement_keymap);
 #  endif
 #endif
 
@@ -318,7 +339,7 @@ initialize_readline ()
   enable_hostname_completion (perform_hostname_completion);
 
   /* characters that need to be quoted when appearing in filenames. */
-  rl_filename_quote_characters = " \t\n\\\"'@<>=;|&()#$`?*[!:";
+  rl_filename_quote_characters = " \t\n\\\"'@<>=;|&()#$`?*[!:{";       /*}*/
   rl_filename_quoting_function = bash_quote_filename;
   rl_filename_dequoting_function = bash_dequote_filename;
   rl_char_is_quoted_p = char_is_quoted;
@@ -339,9 +360,9 @@ bashline_reinitialize ()
 {
   tilde_initialize ();
   rl_attempted_completion_function = attempt_shell_completion;
-  rl_completion_entry_function = (Function *)NULL;
+  rl_completion_entry_function = NULL;
   rl_directory_completion_hook = bash_directory_completion_hook;
-  rl_ignore_some_completions_function = (Function *)filename_completion_ignore;
+  rl_ignore_some_completions_function = filename_completion_ignore;
 }
 
 /* Contains the line to push into readline. */
@@ -349,7 +370,7 @@ static char *push_to_readline = (char *)NULL;
 
 /* Push the contents of push_to_readline into the
    readline buffer. */
-static void
+static int
 bash_push_line ()
 {
   if (push_to_readline)
@@ -359,6 +380,7 @@ bash_push_line ()
       push_to_readline = (char *)NULL;
       rl_startup_hook = old_rl_startup_hook;
     }
+  return 0;
 }
 
 /* Call this to set the initial text for the next line to read
@@ -371,21 +393,22 @@ bash_re_edit (line)
 
   push_to_readline = savestring (line);
   old_rl_startup_hook = rl_startup_hook;
-  rl_startup_hook = (Function *)bash_push_line;
+  rl_startup_hook = bash_push_line;
 
   return (0);
 }
 
-static void
+static int
 display_shell_version (count, c)
      int count, c;
 {
-  crlf ();
+  rl_crlf ();
   show_shell_version (0);
   putc ('\r', rl_outstream);
   fflush (rl_outstream);
   rl_on_new_line ();
   rl_redisplay ();
+  return 0;
 }
 
 /* **************************************************************** */
@@ -569,7 +592,7 @@ hostnames_matching (text)
   for (i = nmatch = rsize = 0; i < hostname_list_length; i++)
     {
       if (STREQN (text, hostname_list[i], len) == 0)
-        continue;
+       continue;
 
       /* OK, it matches.  Add it to the list. */
       if (nmatch >= (rsize - 1))
@@ -589,7 +612,7 @@ hostnames_matching (text)
    editing command. */
 static int saved_history_line_to_use = -1;
 
-static void
+static int
 set_saved_history ()
 {
   if (saved_history_line_to_use >= 0)
@@ -598,7 +621,7 @@ set_saved_history ()
   rl_startup_hook = old_rl_startup_hook;
 }
 
-static void
+static int
 operate_and_get_next (count, c)
      int count, c;
 {
@@ -610,14 +633,16 @@ operate_and_get_next (count, c)
   /* Find the current line, and find the next line to use. */
   where = where_history ();
 
-  if ((history_is_stifled () && (history_length >= max_input_history)) ||
+  if ((history_is_stifled () && (history_length >= history_max_entries)) ||
       (where >= history_length - 1))
     saved_history_line_to_use = where;
   else
     saved_history_line_to_use = where + 1;
 
   old_rl_startup_hook = rl_startup_hook;
-  rl_startup_hook = (Function *)set_saved_history;
+  rl_startup_hook = set_saved_history;
+
+  return 0;
 }
 
 #if defined (VI_MODE)
@@ -627,11 +652,12 @@ operate_and_get_next (count, c)
 
 #define VI_EDIT_COMMAND "fc -e ${VISUAL:-${EDITOR:-vi}}"
 
-static void
+static int
 vi_edit_and_execute_command (count, c)
      int count, c;
 {
   char *command;
+  int r;
 
   /* Accept the current line. */
   rl_newline (1, c);
@@ -654,8 +680,10 @@ vi_edit_and_execute_command (count, c)
       using_history ();
       command = savestring (VI_EDIT_COMMAND);
     }
-  parse_and_execute (command, "v", SEVAL_NOHIST);
+  r = parse_and_execute (command, "v", SEVAL_NOHIST);
   rl_line_buffer[0] = '\0';    /* XXX */
+
+  return r;
 }
 #endif /* VI_MODE */
 
@@ -773,7 +801,7 @@ prog_complete_return (text, matchnum)
    at START and END.  Return an array of matches, or NULL if none. */
 static char **
 attempt_shell_completion (text, start, end)
-     char *text;
+     const char *text;
      int start, end;
 {
   int in_command_position, ti, saveti, qc;
@@ -781,7 +809,7 @@ attempt_shell_completion (text, start, end)
 
   command_separator_chars = COMMAND_SEPARATORS;
   matches = (char **)NULL;
-  rl_ignore_some_completions_function = (Function *)filename_completion_ignore;
+  rl_ignore_some_completions_function = filename_completion_ignore;
 
   /* Determine if this could be a command word.  It is if it appears at
      the start of the line (ignoring preceding whitespace), or if it
@@ -801,7 +829,7 @@ attempt_shell_completion (text, start, end)
       qc = rl_line_buffer[ti];
       saveti = ti--;
       while (ti > -1 && (whitespace (rl_line_buffer[ti])))
-        ti--;
+       ti--;
     }
 #endif
       
@@ -809,7 +837,7 @@ attempt_shell_completion (text, start, end)
   if (ti < 0)
     {
       /* Only do command completion at the start of a line when we
-         are prompting at the top level. */
+        are prompting at the top level. */
       if (current_prompt_string == ps1_prompt)
        in_command_position++;
     }
@@ -818,7 +846,7 @@ attempt_shell_completion (text, start, end)
       in_command_position++;
 
       if (check_redir (ti) == 1)
-        in_command_position = 0;
+       in_command_position = 0;
     }
   else
     {
@@ -840,7 +868,7 @@ attempt_shell_completion (text, start, end)
   if (*text == '`' && 
        (in_command_position || (unclosed_pair (rl_line_buffer, start, "`") &&
                                 unclosed_pair (rl_line_buffer, end, "`"))))
-    matches = completion_matches (text, command_subst_completion_function);
+    matches = rl_completion_matches (text, command_subst_completion_function);
 
 #if defined (PROGRAMMABLE_COMPLETION)
   /* Attempt programmable completion. */
@@ -862,14 +890,20 @@ attempt_shell_completion (text, start, end)
       FREE (n);
       /* XXX - if we found a COMPSPEC for the command, just return whatever
         the programmable completion code returns, and disable the default
-        filename completion that readline will do. */
+        filename completion that readline will do unless the COPT_DEFAULT
+        option has been set with the `-o default' option to complete. */
       if (foundcs)
        {
+         /* If the user specified that the compspec returns filenames, make
+            sure that readline knows it.
+         if (foundcs & COPT_FILENAMES)
+           rl_filename_completion_desired = 1;
          /* Turn what the programmable completion code returns into what
             readline wants.  I should have made compute_lcd_of_matches
             external... */
-         matches = completion_matches (text, prog_complete_return);
-         rl_attempted_completion_over = 1;     /* no default */
+         matches = rl_completion_matches (text, prog_complete_return);
+         if ((foundcs & COPT_DEFAULT) == 0)
+           rl_attempted_completion_over = 1;   /* no default */
          return (matches);
        }
     }
@@ -879,20 +913,20 @@ attempt_shell_completion (text, start, end)
   if (!matches && *text == '$')
     {
       if (qc != '\'' && text[1] == '(') /* ) */
-       matches = completion_matches (text, command_subst_completion_function);
+       matches = rl_completion_matches (text, command_subst_completion_function);
       else
-       matches = completion_matches (text, variable_completion_function);
+       matches = rl_completion_matches (text, variable_completion_function);
     }
 
   /* If the word starts in `~', and there is no slash in the word, then
      try completing this word as a username. */
   if (!matches && *text == '~' && !strchr (text, '/'))
-    matches = completion_matches (text, username_completion_function);
+    matches = rl_completion_matches (text, rl_username_completion_function);
 
   /* Another one.  Why not?  If the word starts in '@', then look through
      the world of known hostnames for completion first. */
   if (!matches && perform_hostname_completion && *text == '@')
-    matches = completion_matches (text, hostname_completion_function);
+    matches = rl_completion_matches (text, hostname_completion_function);
 
   /* And last, (but not least) if this word is in a command position, then
      complete over possible command names, including aliases, functions,
@@ -902,26 +936,26 @@ attempt_shell_completion (text, start, end)
       if (start == 0 && end == 0 && text[0] == '\0' && no_empty_command_completion)
        {
          matches = (char **)NULL;
-         rl_ignore_some_completions_function = (Function *)bash_ignore_everything;
+         rl_ignore_some_completions_function = bash_ignore_everything;
        }
       else
        {
-         matches = completion_matches (text, command_word_completion_function);
+         matches = rl_completion_matches (text, command_word_completion_function);
          /* If we are attempting command completion and nothing matches, we
             do not want readline to perform filename completion for us.  We
             still want to be able to complete partial pathnames, so set the
             completion ignore function to something which will remove
             filenames and leave directories in the match list. */
          if (matches == (char **)NULL)
-           rl_ignore_some_completions_function = (Function *)bash_ignore_filenames;
+           rl_ignore_some_completions_function = bash_ignore_filenames;
        }
     }
 
   /* This could be a globbing pattern, so try to expand it using pathname
      expansion. */
-  if (!matches && glob_pattern_p (text))
+  if (!matches && glob_pattern_p ((char *)text))       /* XXX fix const later */
     {
-      matches = completion_matches (text, glob_complete_word);
+      matches = rl_completion_matches (text, glob_complete_word);
       /* A glob expression that matches more than one filename is problematic.
         If we match more than one filename, punt. */
       if (matches && matches[1])
@@ -940,7 +974,7 @@ attempt_shell_completion (text, start, end)
    table. */
 char *
 command_word_completion_function (hint_text, state)
-     char *hint_text;
+     const char *hint_text;
      int state;
 {
   static char *hint = (char *)NULL;
@@ -968,12 +1002,12 @@ command_word_completion_function (hint_text, state)
         aliases, reserved words, functions or builtins.  We must check
         whether or not it is unique, and, if so, whether that filename
         is executable. */
-      if (absolute_program (hint_text))
+      if (absolute_program ((char *)hint_text))
        {
          /* Perform tilde expansion on what's passed, so we don't end up
             passing filenames with tildes directly to stat(). */
          if (*hint_text == '~')
-           hint = bash_tilde_expand (hint_text);
+           hint = bash_tilde_expand ((char *)hint_text);
          else
            hint = savestring (hint_text);
          hint_len = strlen (hint);
@@ -1119,7 +1153,7 @@ command_word_completion_function (hint_text, state)
     }
 
  inner:
-  val = filename_completion_function (filename_hint, istate);
+  val = rl_filename_completion_function (filename_hint, istate);
   istate = 1;
 
   if (val == 0)
@@ -1172,7 +1206,7 @@ command_word_completion_function (hint_text, state)
 
       /* If we have found a match, and it is an executable file or a
         directory name, return it. */
-      if (match && (executable_file (val) || is_directory (val)))
+      if (match && executable_or_directory (val))
        {
          free (val);
          val = "";             /* So it won't be NULL. */
@@ -1191,11 +1225,12 @@ command_word_completion_function (hint_text, state)
 /* Completion inside an unterminated command substitution. */
 static char *
 command_subst_completion_function (text, state)
-     char *text;
+     const char *text;
      int state;
 {
   static char **matches = (char **)NULL;
-  static char *orig_start, *filename_text = (char *)NULL;
+  static const char *orig_start;
+  static char *filename_text = (char *)NULL;
   static int cmd_index, start_len;
   char *value;
 
@@ -1205,14 +1240,14 @@ command_subst_completion_function (text, state)
        free (filename_text);
       orig_start = text;
       if (*text == '`')
-        text++;
+       text++;
       else if (*text == '$' && text[1] == '(') /* ) */
-        text += 2;
+       text += 2;
       start_len = text - orig_start;
       filename_text = savestring (text);
       if (matches)
        free (matches);
-      matches = completion_matches (filename_text, command_word_completion_function);
+      matches = rl_completion_matches (filename_text, command_word_completion_function);
       cmd_index = 0;
     }
 
@@ -1226,9 +1261,9 @@ command_subst_completion_function (text, state)
       value = xmalloc (1 + start_len + strlen (matches[cmd_index]));
 
       if (start_len == 1)
-        value[0] = *orig_start;
+       value[0] = *orig_start;
       else
-        strncpy (value, orig_start, start_len);
+       strncpy (value, orig_start, start_len);
 
       strcpy (value + start_len, matches[cmd_index]);
 
@@ -1240,8 +1275,8 @@ command_subst_completion_function (text, state)
 /* Okay, now we write the entry_function for variable completion. */
 static char *
 variable_completion_function (text, state)
+     const char *text;
      int state;
-     char *text;
 {
   static char **varlist = (char **)NULL;
   static int varlist_index;
@@ -1261,7 +1296,7 @@ variable_completion_function (text, state)
        first_char_loc++;
 
       if (text[first_char_loc] == '{')
-        first_char_loc++;
+       first_char_loc++;
 
       varname = savestring (text + first_char_loc);
 
@@ -1290,7 +1325,7 @@ variable_completion_function (text, state)
 
       strcpy (value + first_char_loc, varlist[varlist_index]);
       if (first_char_loc == 2)
-        strcat (value, "}");
+       strcat (value, "}");
 
       varlist_index++;
       return (value);
@@ -1300,8 +1335,8 @@ variable_completion_function (text, state)
 /* How about a completion function for hostnames? */
 static char *
 hostname_completion_function (text, state)
+     const char *text;
      int state;
-     char *text;
 {
   static char **list = (char **)NULL;
   static int list_index = 0;
@@ -1416,8 +1451,8 @@ set_up_new_line (new_line)
 #if defined (ALIAS)
 /* Expand aliases in the current readline line. */
 static int
-alias_expand_line (ignore)
-     int ignore;
+alias_expand_line (count, ignore)
+     int count, ignore;
 {
   char *new_line;
 
@@ -1439,8 +1474,8 @@ alias_expand_line (ignore)
 #if defined (BANG_HISTORY)
 /* History expand the line. */
 static int
-history_expand_line (ignore)
-     int ignore;
+history_expand_line (count, ignore)
+     int count, ignore;
 {
   char *new_line;
 
@@ -1459,13 +1494,21 @@ history_expand_line (ignore)
 }
 
 /* Expand history substitutions in the current line and then insert a
-   space wherever set_up_new_line decided to put rl_point. */
+   space (hopefully close to where we were before). */
 static int
-tcsh_magic_space (ignore)
-     int ignore;
+tcsh_magic_space (count, ignore)
+     int count, ignore;
 {
-  if (history_expand_line (ignore) == 0)
+  int dist_from_end, old_point;
+
+  old_point = rl_point;
+  dist_from_end = rl_end - rl_point;
+  if (history_expand_line (count, ignore) == 0)
     {
+      /* Try a simple heuristic from Stephen Gildea <gildea@intouchsys.com>.
+        This works if all expansions were before rl_point or if no expansions
+        were performed. */
+      rl_point = (old_point == 0) ? old_point : rl_end - dist_from_end;
       rl_insert (1, ' ');
       return (0);
     }
@@ -1476,8 +1519,8 @@ tcsh_magic_space (ignore)
 
 /* History and alias expand the line. */
 static int
-history_and_alias_expand_line (ignore)
-     int ignore;
+history_and_alias_expand_line (count, ignore)
+     int count, ignore;
 {
   char *new_line;
 
@@ -1512,9 +1555,9 @@ history_and_alias_expand_line (ignore)
    expansions by calling expand_string.  This can't use set_up_new_line()
    because we want the variable expansions as a separate undo'able
    set of operations. */
-static void
-shell_expand_line (ignore)
-     int ignore;
+static int
+shell_expand_line (count, ignore)
+     int count, ignore;
 {
   char *new_line;
   WORD_LIST *expanded_string;
@@ -1572,9 +1615,13 @@ shell_expand_line (ignore)
          if (!whitespace (rl_line_buffer[rl_point]))
            rl_forward_word (1, 0);
        }
+      return 0;
     }
   else
-    cleanup_expansion_error ();
+    {
+      cleanup_expansion_error ();
+      return 1;
+    }
 }
 
 /* Define NO_FORCE_FIGNORE if you want to match filenames that would
@@ -1618,10 +1665,10 @@ _ignore_completion_names (names, name_func)
     {
 #ifndef NO_FORCE_FIGNORE
       if ((*name_func) (names[0]) == 0)
-        {
-          free (names[0]);
-          names[0] = (char *)NULL;
-        }
+       {
+         free (names[0]);
+         names[0] = (char *)NULL;
+       }
 #endif
       return;
     }
@@ -1643,7 +1690,7 @@ _ignore_completion_names (names, name_func)
        newnames[nidx++] = names[idx];
       else
 #ifndef NO_FORCE_FIGNORE
-        free (names[idx]);
+       free (names[idx]);
 #else
        oldnames[oidx++] = names[idx];
 #endif
@@ -1713,7 +1760,7 @@ ignore_dot_names (name)
 }
 #endif
 
-static void
+static int
 filename_completion_ignore (names)
      char **names;
 {
@@ -1725,9 +1772,11 @@ filename_completion_ignore (names)
   setup_ignore_patterns (&fignore);
 
   if (fignore.num_ignores == 0)
-    return;
+    return 0;
 
   _ignore_completion_names (names, name_is_acceptable);
+
+  return 0;
 }
 
 /* Return 1 if NAME is a directory. */
@@ -1749,11 +1798,12 @@ test_for_directory (name)
 }
 
 /* Remove files from NAMES, leaving directories. */
-static void
+static int
 bash_ignore_filenames (names)
      char **names;
 {
   _ignore_completion_names (names, test_for_directory);
+  return 0;
 }
 
 static int
@@ -1763,11 +1813,12 @@ return_zero (name)
   return 0;
 }
 
-static void
+static int
 bash_ignore_everything (names)
      char **names;
 {
   _ignore_completion_names (names, return_zero);
+  return 0;
 }
 
 /* Handle symbolic link references and other directory name
@@ -1829,7 +1880,7 @@ bash_directory_completion_hook (dirname)
       t = get_working_directory ("symlink-hook");
       temp1 = make_absolute (local_dirname, t);
       free (t);
-      temp2 = canonicalize_pathname (temp1);
+      temp2 = sh_canonpath (temp1, PATH_CHECKDOTDOT|PATH_CHECKEXISTS);
       /* If we can't canonicalize, bail. */
       if (temp2 == 0)
        {
@@ -1838,12 +1889,12 @@ bash_directory_completion_hook (dirname)
        }
       len1 = strlen (temp1);
       if (temp1[len1 - 1] == '/')
-        {
+       {
          len2 = strlen (temp2);
-          temp2 = xrealloc (temp2, len2 + 2);
-          temp2[len2] = '/';
-          temp2[len2 + 1] = '\0';
-        }
+         temp2 = xrealloc (temp2, len2 + 2);
+         temp2[len2] = '/';
+         temp2[len2 + 1] = '\0';
+       }
       free (local_dirname);
       *dirname = temp2;
       free (temp1);
@@ -1932,19 +1983,19 @@ history_completion_generator (hint_text, state)
   return ((char *)NULL);
 }
 
-static void
+static int
 dynamic_complete_history (count, key)
      int count, key;
 {
-  Function *orig_func;
-  CPPFunction *orig_attempt_func;
+  rl_compentry_func_t *orig_func;
+  rl_completion_func_t *orig_attempt_func;
 
   orig_func = rl_completion_entry_function;
   orig_attempt_func = rl_attempted_completion_function;
-  rl_completion_entry_function = (Function *)history_completion_generator;
-  rl_attempted_completion_function = (CPPFunction *)NULL;
+  rl_completion_entry_function = history_completion_generator;
+  rl_attempted_completion_function = (rl_completion_func_t *)NULL;
 
-  if (rl_last_func == (Function *)dynamic_complete_history)
+  if (rl_last_func == dynamic_complete_history)
     rl_complete_internal ('?');
   else
     rl_complete_internal (TAB);
@@ -1954,136 +2005,136 @@ dynamic_complete_history (count, key)
 }
 
 #if defined (SPECIFIC_COMPLETION_FUNCTIONS)
-static void
+static int
 bash_complete_username (ignore, ignore2)
      int ignore, ignore2;
 {
-  bash_complete_username_internal (TAB);
+  return bash_complete_username_internal (TAB);
 }
 
-static void
+static int
 bash_possible_username_completions (ignore, ignore2)
      int ignore, ignore2;
 {
-  bash_complete_username_internal ('?');
+  return bash_complete_username_internal ('?');
 }
 
-static void
+static int
 bash_complete_username_internal (what_to_do)
      int what_to_do;
 {
-  bash_specific_completion
-    (what_to_do, (Function *)username_completion_function);
+  return bash_specific_completion (what_to_do, rl_username_completion_function);
 }
 
-static void
+static int
 bash_complete_filename (ignore, ignore2)
      int ignore, ignore2;
 {
-  bash_complete_filename_internal (TAB);
+  return bash_complete_filename_internal (TAB);
 }
 
-static void
+static int
 bash_possible_filename_completions (ignore, ignore2)
      int ignore, ignore2;
 {
-  bash_complete_filename_internal ('?');
+  return bash_complete_filename_internal ('?');
 }
 
-static void
+static int
 bash_complete_filename_internal (what_to_do)
      int what_to_do;
 {
-  Function  *orig_func, *orig_dir_func;
-  CPPFunction *orig_attempt_func;
-  char *orig_rl_completer_word_break_characters;
+  rl_compentry_func_t *orig_func;
+  rl_completion_func_t *orig_attempt_func;
+  rl_icppfunc_t *orig_dir_func;
+  const char *orig_rl_completer_word_break_characters;
+  int r;
 
   orig_func = rl_completion_entry_function;
   orig_attempt_func = rl_attempted_completion_function;
   orig_dir_func = rl_directory_completion_hook;
   orig_rl_completer_word_break_characters = rl_completer_word_break_characters;
-  rl_completion_entry_function = (Function *)filename_completion_function;
-  rl_attempted_completion_function = (CPPFunction *)NULL;
-  rl_directory_completion_hook = (Function *)NULL;
+  rl_completion_entry_function = rl_filename_completion_function;
+  rl_attempted_completion_function = (rl_completion_func_t *)NULL;
+  rl_directory_completion_hook = (rl_icppfunc_t *)NULL;
   rl_completer_word_break_characters = " \t\n\"\'";
 
-  rl_complete_internal (what_to_do);
+  r = rl_complete_internal (what_to_do);
 
   rl_completion_entry_function = orig_func;
   rl_attempted_completion_function = orig_attempt_func;
   rl_directory_completion_hook = orig_dir_func;
   rl_completer_word_break_characters = orig_rl_completer_word_break_characters;
+
+  return r;
 }
 
-static void
+static int
 bash_complete_hostname (ignore, ignore2)
      int ignore, ignore2;
 {
-  bash_complete_hostname_internal (TAB);
+  return bash_complete_hostname_internal (TAB);
 }
 
-static void
+static int
 bash_possible_hostname_completions (ignore, ignore2)
      int ignore, ignore2;
 {
-  bash_complete_hostname_internal ('?');
+  return bash_complete_hostname_internal ('?');
 }
 
-static void
+static int
 bash_complete_variable (ignore, ignore2)
      int ignore, ignore2;
 {
-  bash_complete_variable_internal (TAB);
+  return bash_complete_variable_internal (TAB);
 }
 
-static void
+static int
 bash_possible_variable_completions (ignore, ignore2)
      int ignore, ignore2;
 {
-  bash_complete_variable_internal ('?');
+  return bash_complete_variable_internal ('?');
 }
 
-static void
+static int
 bash_complete_command (ignore, ignore2)
      int ignore, ignore2;
 {
-  bash_complete_command_internal (TAB);
+  return bash_complete_command_internal (TAB);
 }
 
-static void
+static int
 bash_possible_command_completions (ignore, ignore2)
      int ignore, ignore2;
 {
-  bash_complete_command_internal ('?');
+  return bash_complete_command_internal ('?');
 }
 
-static void
+static int
 bash_complete_hostname_internal (what_to_do)
      int what_to_do;
 {
-  bash_specific_completion
-    (what_to_do, (Function *)hostname_completion_function);
+  return bash_specific_completion (what_to_do, hostname_completion_function);
 }
 
-static void
+static int
 bash_complete_variable_internal (what_to_do)
      int what_to_do;
 {
-  bash_specific_completion
-    (what_to_do, (Function *)variable_completion_function);
+  return bash_specific_completion (what_to_do, variable_completion_function);
 }
 
-static void
+static int
 bash_complete_command_internal (what_to_do)
      int what_to_do;
 {
-  bash_specific_completion
-    (what_to_do, (Function *)command_word_completion_function);
+  return bash_specific_completion (what_to_do, command_word_completion_function);
 }
 
 static char *
 glob_complete_word (text, state)
-     char *text;
+     const char *text;
      int state;
 {
   static char **matches = (char **)NULL;
@@ -2094,10 +2145,10 @@ glob_complete_word (text, state)
     {
       rl_filename_completion_desired = 1;
       if (matches)
-        free (matches);
+       free (matches);
       matches = shell_glob_filename (text);
       if (GLOB_FAILED (matches))
-        matches = (char **)NULL;
+       matches = (char **)NULL;
       ind = 0;
     }
 
@@ -2106,44 +2157,47 @@ glob_complete_word (text, state)
   return ret;
 }
 
-static void
+static int
 bash_glob_completion_internal (what_to_do)
      int what_to_do;
 {
-  bash_specific_completion (what_to_do, (Function *)glob_complete_word);
+  return bash_specific_completion (what_to_do, glob_complete_word);
 }
 
-static void
+static int
 bash_glob_expand_word (count, key)
      int count, key;
 {
-  bash_glob_completion_internal ('*');
+  return bash_glob_completion_internal ('*');
 }
 
-static void
+static int
 bash_glob_list_expansions (count, key)
      int count, key;
 {
-  bash_glob_completion_internal ('?');
+  return bash_glob_completion_internal ('?');
 }
 
-static void
+static int
 bash_specific_completion (what_to_do, generator)
      int what_to_do;
-     Function *generator;
+     rl_compentry_func_t *generator;
 {
-  Function *orig_func;
-  CPPFunction *orig_attempt_func;
+  rl_compentry_func_t *orig_func;
+  rl_completion_func_t *orig_attempt_func;
+  int r;
 
   orig_func = rl_completion_entry_function;
   orig_attempt_func = rl_attempted_completion_function;
   rl_completion_entry_function = generator;
-  rl_attempted_completion_function = (CPPFunction *)NULL;
+  rl_attempted_completion_function = NULL;
 
-  rl_complete_internal (what_to_do);
+  r = rl_complete_internal (what_to_do);
 
   rl_completion_entry_function = orig_func;
   rl_attempted_completion_function = orig_attempt_func;
+
+  return r;
 }
 
 #endif /* SPECIFIC_COMPLETION_FUNCTIONS */
@@ -2155,6 +2209,7 @@ bash_specific_completion (what_to_do, generator)
 static char *
 bash_dequote_filename (text, quote_char)
      char *text;
+     int quote_char;
 {
   char *ret, *p, *r;
   int l, quoted;
@@ -2173,16 +2228,16 @@ bash_dequote_filename (text, quote_char)
        }
       /* Close quote. */
       if (quoted && *p == quoted)
-        {
-          quoted = 0;
-          continue;
-        }
+       {
+         quoted = 0;
+         continue;
+       }
       /* Open quote. */
       if (quoted == 0 && (*p == '\'' || *p == '"'))
-        {
-          quoted = *p;
-          continue;
-        }
+       {
+         quoted = *p;
+         continue;
+       }
       *r++ = *p;
     }
   *r = '\0';
@@ -2215,7 +2270,7 @@ quote_word_break_chars (text)
       /* OK, we have an unquoted character.  Check its presence in
         rl_completer_word_break_characters. */
       if (strchr (rl_completer_word_break_characters, *s))
-        *r++ = '\\';
+       *r++ = '\\';
       *r++ = *s;
     }
   *r = '\0';
@@ -2268,7 +2323,7 @@ bash_quote_filename (s, rtype, qcp)
     cs = COMPLETE_BSQUOTE;
 
   if (*qcp == '"' && history_expansion && cs == COMPLETE_DQUOTE &&
-        history_expansion_inhibited == 0 && strchr (mtext, '!'))
+       history_expansion_inhibited == 0 && strchr (mtext, '!'))
     {
       cs = COMPLETE_BSQUOTE;
       *qcp = '\0';
@@ -2278,13 +2333,13 @@ bash_quote_filename (s, rtype, qcp)
   switch (cs)
     {
     case COMPLETE_DQUOTE:
-      rtext = double_quote (mtext);
+      rtext = sh_double_quote (mtext);
       break;
     case COMPLETE_SQUOTE:
-      rtext = single_quote (mtext);
+      rtext = sh_single_quote (mtext);
       break;
     case COMPLETE_BSQUOTE:
-      rtext = backslash_quote (mtext);
+      rtext = sh_backslash_quote (mtext);
       break;
     }
 
@@ -2338,13 +2393,13 @@ bash_execute_unix_command (count, key)
            break;
        }
       if (i < KEYMAP_SIZE)
-        xkmap = (Keymap)cmd_xmap[i].function;
+       xkmap = (Keymap)cmd_xmap[i].function;
       else
        {
-         crlf ();
-          internal_error ("bash_execute_unix_command: cannot find keymap for command");
-          rl_forced_update_display ();
-          return 1;
+         rl_crlf ();
+         internal_error ("bash_execute_unix_command: cannot find keymap for command");
+         rl_forced_update_display ();
+         return 1;
        }
     }
   else
@@ -2354,11 +2409,11 @@ bash_execute_unix_command (count, key)
 
   if (cmd == 0)
     {
-      ding ();
+      rl_ding ();
       return 1;
     }
 
-  crlf ();     /* move to a new line */
+  rl_crlf ();  /* move to a new line */
 
   cmd = savestring (cmd);
   parse_and_execute (cmd, "bash_execute_unix_command", 0);
@@ -2411,7 +2466,7 @@ isolate_sequence (string, ind, need_dquote, startp)
          continue;
        }
       if (c == delim)
-        break;
+       break;
     }
 
   if (delim && string[i] != delim)
@@ -2466,7 +2521,7 @@ bind_keyseq_to_unix_command (line)
 
   /* and bind the key sequence in the current keymap to a function that
      understands how to execute from CMD_XMAP */
-  rl_set_key (kseq, (Function *)bash_execute_unix_command, kmap);
+  rl_set_key (kseq, bash_execute_unix_command, kmap);
   
   return 0;
 }
@@ -2476,15 +2531,15 @@ bind_keyseq_to_unix_command (line)
    attempting to find matches. */
 char **
 bash_directory_completion_matches (text)
-     char *text;
+     const char *text;
 {
   char **m1;
   char *dfn;
   int qc;
 
   qc = (text[0] == '"' || text[0] == '\'') ? text[0] : 0;
-  dfn = bash_dequote_filename (text, qc);
-  m1 = completion_matches (dfn, filename_completion_function);
+  dfn = bash_dequote_filename ((char *)text, qc);
+  m1 = rl_completion_matches (dfn, rl_filename_completion_function);
   free (dfn);
 
   if (m1 == 0 || m1[0] == 0)
index b5155dc55eba929adaab8d4d9a6039d80ba85358..bb7869289846a2ed5157cd78a3ab9e44fd7474d7 100644 (file)
@@ -33,11 +33,11 @@ extern int bash_re_edit __P((char *));
 extern int bind_keyseq_to_unix_command __P((char *));
 
 /* Used by programmable completion code. */
-extern char *command_word_completion_function __P((char *, int));
+extern char *command_word_completion_function __P((const char *, int));
 
 extern char **get_hostname_list __P((void));
 extern void clear_hostname_list __P((void));
 
-extern char **bash_directory_completion_matches __P((char *));
+extern char **bash_directory_completion_matches __P((const char *));
 
 #endif /* _BASHLINE_H_ */
index eb1b8897cabaea83a1a42b613cec69115ae07e26..675e041d2d56c5f5df9ba89f50f846fd9a56f20b 100644 (file)
@@ -39,7 +39,7 @@
 #include "shell.h"
 #include <readline/readline.h>
 
-extern char *backslash_quote ();
+extern char *sh_backslash_quote ();
 
 /* Find greatest common prefix of two strings. */
 static int
@@ -73,8 +73,8 @@ really_munge_braces (array, real_start, real_end, gcd_zero)
 
   if (real_start == real_end)
     {
-      x = array[real_start] ? backslash_quote (array[real_start] + gcd_zero)
-                           : backslash_quote (array[0]);
+      x = array[real_start] ? sh_backslash_quote (array[real_start] + gcd_zero)
+                           : sh_backslash_quote (array[0]);
       return x;
     }
 
@@ -113,7 +113,7 @@ really_munge_braces (array, real_start, real_end, gcd_zero)
       if (start == end)
        {
          x = savestring (array[start] + gcd_zero);
-         subterm = backslash_quote (x);
+         subterm = sh_backslash_quote (x);
          free (x);
        }
       else
@@ -124,7 +124,7 @@ really_munge_braces (array, real_start, real_end, gcd_zero)
          x = xmalloc (tlen + 1);
          strncpy (x, array[start] + gcd_zero, tlen);
          x[tlen] = '\0';
-         subterm = backslash_quote (x);
+         subterm = sh_backslash_quote (x);
          free (x);
          result_size += strlen (subterm) + 1;
          result = xrealloc (result, result_size);
@@ -147,7 +147,7 @@ really_munge_braces (array, real_start, real_end, gcd_zero)
   return (result);
 }
 
-static void
+static int
 hack_braces_completion (names)
      char **names;
 {
@@ -162,18 +162,20 @@ hack_braces_completion (names)
       names[i] = NULL;
     }
   names[0] = temp;
+  return 0;
 }
 
 /* We handle quoting ourselves within hack_braces_completion, so we turn off
    rl_filename_quoting_desired and rl_filename_quoting_function. */
-void
-bash_brace_completion ()
+int
+bash_brace_completion (count, ignore)
+     int count, ignore;
 {
-  Function *orig_ignore_func;
-  Function *orig_entry_func;
-  CPFunction *orig_quoting_func;
-  CPPFunction *orig_attempt_func;
-  int orig_quoting_desired;
+  rl_compignore_func_t *orig_ignore_func;
+  rl_compentry_func_t *orig_entry_func;
+  rl_quote_func_t *orig_quoting_func;
+  rl_completion_func_t *orig_attempt_func;
+  int orig_quoting_desired, r;
 
   orig_ignore_func = rl_ignore_some_completions_function;
   orig_attempt_func = rl_attempted_completion_function;
@@ -181,18 +183,20 @@ bash_brace_completion ()
   orig_quoting_func = rl_filename_quoting_function;
   orig_quoting_desired = rl_filename_quoting_desired;
 
-  rl_completion_entry_function = (Function *) filename_completion_function;
-  rl_attempted_completion_function = NULL;
-  rl_ignore_some_completions_function = (Function *) hack_braces_completion;
-  rl_filename_quoting_function = NULL;
+  rl_completion_entry_function = rl_filename_completion_function;
+  rl_attempted_completion_function = (rl_completion_func_t *)NULL;
+  rl_ignore_some_completions_function = hack_braces_completion;
+  rl_filename_quoting_function = (rl_quote_func_t *)NULL;
   rl_filename_quoting_desired = 0;
 
-  rl_complete_internal (TAB);
+  r = rl_complete_internal (TAB);
 
   rl_ignore_some_completions_function = orig_ignore_func;
   rl_attempted_completion_function = orig_attempt_func;
   rl_completion_entry_function = orig_entry_func;
   rl_filename_quoting_function = orig_quoting_func;
   rl_filename_quoting_desired = orig_quoting_desired;
+
+  return r;
 }
 #endif /* BRACE_EXPANSION && READLINE */
index 93af49949d17ed7f6fe53baf2407259dae247f05..a5558b4d7983d4c59ccb18c7592db8982232d29d 100644 (file)
--- a/braces.c
+++ b/braces.c
@@ -239,10 +239,10 @@ brace_gobbler (text, indx, satisfy)
       /* A backslash escapes the next character.  This allows backslash to
         escape the quote character in a double-quoted string. */
       if (c == '\\' && (quoted == 0 || quoted == '"' || quoted == '`'))
-        {
-          pass_next = 1;
-          continue;
-        }
+       {
+         pass_next = 1;
+         continue;
+       }
 
       if (quoted)
        {
index 652fb08c80acc97e5b67fbe4c366fac18d2b8494..688e55d18a6b05e75aec7cf730b5f873c14e8687 100644 (file)
@@ -213,14 +213,14 @@ complete.o: complete.def
 
 # C files
 bashgetopt.o: ../config.h $(topdir)/bashansi.h $(BASHINCDIR)/ansi_stdlib.h
-bashgetopt.o: $(topdir)/shell.h $(topdir)/bashjmp.h
+bashgetopt.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/bashjmp.h
 bashgetopt.o: $(topdir)/command.h $(topdir)/general.h $(topdir)/error.h
 bashgetopt.o: $(topdir)/variables.h $(topdir)/quit.h $(BASHINCDIR)/maxpath.h
 bashgetopt.o: $(topdir)/unwind_prot.h $(topdir)/dispose_cmd.h
 bashgetopt.o: $(topdir)/make_cmd.h $(topdir)/subst.h $(topdir)/sig.h
 bashgetopt.o: $(topdir)/pathnames.h $(topdir)/externs.h $(srcdir)/common.h
 common.o: $(topdir)/bashtypes.h $(BASHINCDIR)/posixstat.h $(topdir)/bashansi.h $(BASHINCDIR)/ansi_stdlib.h
-common.o: $(topdir)/shell.h ../config.h $(topdir)/bashjmp.h $(BASHINCDIR)/posixjmp.h
+common.o: $(topdir)/shell.h $(topdir)/syntax.h ../config.h $(topdir)/bashjmp.h $(BASHINCDIR)/posixjmp.h
 common.o: $(topdir)/sig.h $(topdir)/command.h
 common.o: $(topdir)/general.h $(BASHINCDIR)/stdc.h $(BASHINCDIR)/memalloc.h
 common.o: $(topdir)/variables.h $(topdir)/input.h
@@ -231,7 +231,7 @@ common.o: $(topdir)/subst.h $(topdir)/execute_cmd.h $(topdir)/error.h
 common.o: $(topdir)/externs.h $(topdir)/pathnames.h ./builtext.h
 evalfile.o: $(topdir)/bashtypes.h $(BASHINCDIR)/posixstat.h ${BASHINCDIR}/filecntl.h
 evalfile.o: $(topdir)/bashansi.h $(BASHINCDIR)/ansi_stdlib.h
-evalfile.o: $(topdir)/shell.h ../config.h $(topdir)/bashjmp.h
+evalfile.o: $(topdir)/shell.h $(topdir)/syntax.h ../config.h $(topdir)/bashjmp.h
 evalfile.o: $(topdir)/command.h $(topdir)/general.h $(topdir)/error.h
 evalfile.o: $(topdir)/variables.h $(topdir)/quit.h $(BASHINCDIR)/maxpath.h
 evalfile.o: $(topdir)/unwind_prot.h $(topdir)/dispose_cmd.h
@@ -241,7 +241,7 @@ evalfile.o: $(topdir)/jobs.h $(topdir)/builtins.h $(topdir)/flags.h
 evalfile.o: $(topdir)/input.h $(topdir)/execute_cmd.h
 evalfile.o: $(topdir)/bashhist.h $(srcdir)/common.h
 evalstring.o: ../config.h $(topdir)/bashansi.h $(BASHINCDIR)/ansi_stdlib.h
-evalstring.o: $(topdir)/shell.h $(topdir)/bashjmp.h $(BASHINCDIR)/posixjmp.h
+evalstring.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/bashjmp.h $(BASHINCDIR)/posixjmp.h
 evalstring.o: $(topdir)/sig.h $(topdir)/command.h $(topdir)/siglist.h
 evalstring.o: $(BASHINCDIR)/memalloc.h $(topdir)/variables.h $(topdir)/input.h
 evalstring.o: $(topdir)/quit.h $(topdir)/unwind_prot.h
@@ -251,7 +251,7 @@ evalstring.o: $(topdir)/externs.h $(topdir)/jobs.h $(topdir)/builtins.h
 evalstring.o: $(topdir)/flags.h $(topdir)/input.h $(topdir)/execute_cmd.h
 evalstring.o: $(topdir)/bashhist.h $(srcdir)/common.h
 getopt.o: ../config.h $(BASHINCDIR)/memalloc.h
-getopt.o: $(topdir)/shell.h $(topdir)/bashjmp.h $(topdir)/command.h
+getopt.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/bashjmp.h $(topdir)/command.h
 getopt.o: $(topdir)/general.h $(topdir)/error.h $(topdir)/variables.h
 getopt.o: $(topdir)/quit.h $(BASHINCDIR)/maxpath.h $(topdir)/unwind_prot.h
 getopt.o: $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h $(topdir)/subst.h
@@ -266,61 +266,61 @@ alias.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 alias.o: $(topdir)/error.h $(topdir)/general.h $(BASHINCDIR)/maxpath.h
 alias.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
 alias.o: $(topdir)/subst.h $(topdir)/externs.h $(srcdir)/common.h
-alias.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h
+alias.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 bind.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h $(topdir)/error.h
 bind.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
 bind.o: $(topdir)/subst.h $(topdir)/externs.h $(srcdir)/bashgetopt.h
 bind.o: $(topdir)/general.h $(BASHINCDIR)/maxpath.h $(topdir)/bashline.h
-bind.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h 
+bind.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h 
 break.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h 
 break.o: $(topdir)/error.h $(topdir)/general.h
 break.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
 break.o: $(topdir)/subst.h $(topdir)/externs.h $(BASHINCDIR)/maxpath.h
-break.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h
+break.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 builtin.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 builtin.o: $(topdir)/error.h $(topdir)/general.h $(topdir)/externs.h
 builtin.o: $(topdir)/quit.h $(srcdir)/common.h $(BASHINCDIR)/maxpath.h
 builtin.o: $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h $(topdir)/subst.h
-builtin.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h 
+builtin.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h 
 cd.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h $(topdir)/error.h
 cd.o: $(topdir)/general.h $(topdir)/quit.h $(topdir)/dispose_cmd.h
 cd.o: $(topdir)/make_cmd.h $(topdir)/subst.h $(topdir)/externs.h
-cd.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h
+cd.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 cd.o: $(srcdir)/common.h $(BASHINCDIR)/maxpath.h
 command.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 command.o: $(topdir)/error.h $(topdir)/general.h $(topdir)/externs.h
 command.o: $(topdir)/quit.h $(srcdir)/bashgetopt.h $(BASHINCDIR)/maxpath.h
 command.o: $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h $(topdir)/subst.h
-command.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h 
+command.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h 
 declare.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 declare.o: $(topdir)/error.h $(topdir)/general.h
 declare.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
 declare.o: $(topdir)/subst.h $(topdir)/externs.h $(BASHINCDIR)/maxpath.h
-declare.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h
+declare.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 echo.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h $(topdir)/error.h
 echo.o: $(topdir)/general.h $(topdir)/subst.h $(topdir)/externs.h
 echo.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
-echo.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h
+echo.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 echo.o: $(BASHINCDIR)/maxpath.h
 enable.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 enable.o: $(topdir)/error.h $(topdir)/general.h
 enable.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
 enable.o: $(topdir)/subst.h $(topdir)/externs.h
-enable.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h
+enable.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 enable.o: $(BASHINCDIR)/maxpath.h
 enable.o: $(topdir)/pcomplete.h
 eval.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 eval.o: $(topdir)/error.h $(topdir)/general.h
 eval.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
 eval.o: $(topdir)/subst.h $(topdir)/externs.h
-eval.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h
+eval.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 eval.o: $(BASHINCDIR)/maxpath.h
 exec.o: $(topdir)/bashtypes.h
 exec.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 exec.o: $(topdir)/error.h $(topdir)/general.h
 exec.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
 exec.o: $(topdir)/subst.h $(topdir)/externs.h $(topdir)/flags.h
-exec.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h
+exec.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 exec.o: $(srcdir)/common.h $(topdir)/execute_cmd.h $(BASHINCDIR)/maxpath.h
 exec.o: $(topdir)/findcmd.h
 exit.o: $(topdir)/bashtypes.h
@@ -328,7 +328,7 @@ exit.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 exit.o: $(topdir)/error.h $(topdir)/general.h
 exit.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
 exit.o: $(topdir)/subst.h $(topdir)/externs.h
-exit.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h
+exit.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 exit.o: $(BASHINCDIR)/maxpath.h ./builtext.h
 fc.o: $(topdir)/bashtypes.h $(BASHINCDIR)/posixstat.h
 fc.o: $(topdir)/builtins.h $(topdir)/command.h $(srcdir)/bashgetopt.h
@@ -336,7 +336,7 @@ fc.o: $(topdir)/bashhist.h
 fc.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h $(topdir)/error.h
 fc.o: $(topdir)/general.h $(BASHINCDIR)/maxpath.h
 fc.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
-fc.o: $(topdir)/subst.h $(topdir)/externs.h $(topdir)/shell.h
+fc.o: $(topdir)/subst.h $(topdir)/externs.h $(topdir)/shell.h $(topdir)/syntax.h
 fc.o: $(topdir)/flags.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 fc.o: $(topdir)/bashansi.h $(BASHINCDIR)/ansi_stdlib.h
 fg_bg.o: $(topdir)/bashtypes.h
@@ -344,147 +344,147 @@ fg_bg.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 fg_bg.o: $(topdir)/error.h $(topdir)/general.h
 fg_bg.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
 fg_bg.o: $(topdir)/subst.h $(topdir)/externs.h $(BASHINCDIR)/maxpath.h
-fg_bg.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h
+fg_bg.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 getopts.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 getopts.o: $(topdir)/error.h $(topdir)/general.h
 getopts.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
 getopts.o: $(topdir)/subst.h $(topdir)/externs.h $(BASHINCDIR)/maxpath.h
-getopts.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h
+getopts.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 hash.o: $(topdir)/builtins.h $(topdir)/command.h $(topdir)/quit.h
 hash.o: $(topdir)/findcmd.h $(topdir)/hashlib.h
 hash.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 hash.o: $(topdir)/error.h $(topdir)/general.h
-hash.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h
+hash.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 hash.o: $(srcdir)/common.h $(BASHINCDIR)/maxpath.h
 help.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 help.o: $(topdir)/error.h $(topdir)/general.h
 help.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
 help.o: $(topdir)/subst.h $(topdir)/externs.h $(BASHINCDIR)/maxpath.h
-help.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h
+help.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 history.o: $(topdir)/bashtypes.h
 history.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 history.o: $(topdir)/error.h $(topdir)/general.h
 history.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
 history.o: $(topdir)/subst.h $(topdir)/externs.h
-history.o: ${BASHINCDIR}/filecntl.h $(topdir)/shell.h $(topdir)/unwind_prot.h
+history.o: ${BASHINCDIR}/filecntl.h $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h
 history.o: $(topdir)/variables.h $(topdir)/bashhist.h $(BASHINCDIR)/maxpath.h
 inlib.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 inlib.o: $(topdir)/error.h $(topdir)/general.h
-inlib.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h
+inlib.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 inlib.o: $(BASHINCDIR)/maxpath.h $(topdir)/subst.h $(topdir)/externs.h
 inlib.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
 jobs.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h $(topdir)/error.h
 jobs.o: $(topdir)/general.h $(topdir)/quit.h $(srcdir)/bashgetopt.h
 jobs.o: $(BASHINCDIR)/maxpath.h $(topdir)/externs.h
 jobs.o: $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h $(topdir)/subst.h
-jobs.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h 
+jobs.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h 
 kill.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h $(topdir)/error.h
 kill.o: $(topdir)/general.h $(topdir)/subst.h $(topdir)/externs.h
 kill.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
-kill.o: $(topdir)/shell.h $(topdir)/trap.h $(topdir)/unwind_prot.h
+kill.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/trap.h $(topdir)/unwind_prot.h
 kill.o: $(topdir)/variables.h $(BASHINCDIR)/maxpath.h
 let.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 let.o: $(topdir)/error.h $(topdir)/general.h
 let.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
 let.o: $(topdir)/subst.h $(topdir)/externs.h $(BASHINCDIR)/maxpath.h
-let.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h
+let.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 printf.o: ../config.h $(BASHINCDIR)/memalloc.h $(topdir)/bashjmp.h
 printf.o: $(topdir)/command.h $(topdir)/error.h $(topdir)/general.h
 printf.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
 printf.o: $(topdir)/subst.h $(topdir)/externs.h $(topdir)/sig.h
-printf.o: $(topdir)/pathnames.h $(topdir)/shell.h $(topdir)/unwind_prot.h
+printf.o: $(topdir)/pathnames.h $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h
 printf.o: $(topdir)/variables.h $(BASHINCDIR)/stdc.h $(srcdir)/bashgetopt.h
 pushd.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 pushd.o: $(topdir)/error.h $(topdir)/general.h
 pushd.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
 pushd.o: $(topdir)/subst.h $(topdir)/externs.h
-pushd.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h
+pushd.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 pushd.o: $(BASHINCDIR)/maxpath.h $(srcdir)/common.h ./builtext.h
 read.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 read.o: $(topdir)/error.h $(topdir)/general.h
 read.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
 read.o: $(topdir)/subst.h $(topdir)/externs.h $(BASHINCDIR)/maxpath.h
-read.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h
+read.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 read.o: $(BASHINCDIR)/shtty.h
 return.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 return.o: $(topdir)/error.h $(topdir)/general.h
 return.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
 return.o: $(topdir)/subst.h $(topdir)/externs.h $(BASHINCDIR)/maxpath.h
-return.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h
+return.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 set.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 set.o: $(topdir)/general.h $(topdir)/subst.h $(topdir)/externs.h
 set.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
-set.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h
+set.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 set.o: $(BASHINCDIR)/maxpath.h $(topdir)/error.h
 setattr.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 setattr.o: $(topdir)/error.h $(topdir)/general.h $(BASHINCDIR)/maxpath.h
 setattr.o: $(topdir)/quit.h $(srcdir)/common.h $(srcdir)/bashgetopt.h
 setattr.o: $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h $(topdir)/subst.h
 setattr.o: $(topdir)/externs.h
-setattr.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h 
+setattr.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h 
 shift.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 shift.o: $(topdir)/error.h $(topdir)/general.h
 shift.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
 shift.o: $(topdir)/subst.h $(topdir)/externs.h $(BASHINCDIR)/maxpath.h
-shift.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h
+shift.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 source.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 source.o: $(topdir)/error.h $(topdir)/general.h $(topdir)/findcmd.h
 source.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
 source.o: $(topdir)/subst.h $(topdir)/externs.h $(BASHINCDIR)/maxpath.h
-source.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h
+source.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 suspend.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 suspend.o: $(topdir)/error.h $(topdir)/general.h
 suspend.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
 suspend.o: $(topdir)/subst.h $(topdir)/externs.h $(BASHINCDIR)/maxpath.h
-suspend.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h
+suspend.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 test.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 test.o: $(topdir)/error.h $(topdir)/general.h
 test.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
 test.o: $(topdir)/subst.h $(topdir)/externs.h $(BASHINCDIR)/maxpath.h
-test.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h
+test.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 test.o: $(topdir)/test.h
 times.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 times.o: $(topdir)/error.h $(topdir)/general.h
 times.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
 times.o: $(topdir)/subst.h $(topdir)/externs.h $(BASHINCDIR)/maxpath.h
-times.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h
+times.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 times.o: $(BASHINCDIR)/posixtime.h
 trap.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 trap.o: $(topdir)/error.h $(topdir)/general.h $(topdir)/externs.h
 trap.o: $(topdir)/quit.h $(srcdir)/common.h $(BASHINCDIR)/maxpath.h
 trap.o: $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h $(topdir)/subst.h
-trap.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h
+trap.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 trap.o: $(topdir)/findcmd.h
 type.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 type.o: $(topdir)/error.h $(topdir)/general.h
 type.o: $(topdir)/quit.h $(srcdir)/common.h $(BASHINCDIR)/maxpath.h
 type.o: $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h $(topdir)/subst.h
 type.o: $(topdir)/externs.h $(topdir)/hashcmd.h
-type.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h 
+type.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h 
 ulimit.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 ulimit.o: $(topdir)/error.h $(topdir)/general.h
 ulimit.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
 ulimit.o: $(topdir)/subst.h $(topdir)/externs.h $(BASHINCDIR)/maxpath.h
-ulimit.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h
+ulimit.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 umask.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 umask.o: $(topdir)/error.h $(topdir)/general.h
 umask.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
 umask.o: $(topdir)/subst.h $(topdir)/externs.h $(BASHINCDIR)/maxpath.h
-umask.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h
+umask.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 wait.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 wait.o: $(topdir)/error.h $(topdir)/general.h
 wait.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
 wait.o: $(topdir)/subst.h $(topdir)/externs.h $(BASHINCDIR)/maxpath.h
-wait.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h
+wait.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 shopt.o: $(topdir)/command.h ../config.h $(BASHINCDIR)/memalloc.h
 shopt.o: $(topdir)/error.h $(topdir)/general.h 
 shopt.o: $(topdir)/quit.h $(topdir)/dispose_cmd.h $(topdir)/make_cmd.h
 shopt.o: $(topdir)/subst.h $(topdir)/externs.h $(BASHINCDIR)/maxpath.h
-shopt.o: $(topdir)/shell.h $(topdir)/unwind_prot.h $(topdir)/variables.h
+shopt.o: $(topdir)/shell.h $(topdir)/syntax.h $(topdir)/unwind_prot.h $(topdir)/variables.h
 shopt.o: $(srcdir)/common.h $(srcdir)/bashgetopt.h
 
 complete.o: ../config.h
-complete.o: ${topdir}/shell.h ${topdir}/bashjmp.h ${BASHINCDIR}/posixjmp.h ${topdir}/sig.h  
+complete.o: ${topdir}/shell.h $(topdir)/syntax.h ${topdir}/bashjmp.h ${BASHINCDIR}/posixjmp.h ${topdir}/sig.h  
 complete.o: ${topdir}/unwind_prot.h ${topdir}/variables.h
 complete.o: ${topdir}/bashtypes.h ${topdir}/bashansi.h ${BASHINCDIR}/ansi_stdlib.h
 complete.o: ${topdir}/builtins.h
index 50e7ffcc3d4502d6ac5311a1aec7d5f74f05a5f7..5f7bfe741c4eee858e8a395c7e9abd6add1e77de 100644 (file)
@@ -198,7 +198,7 @@ print_alias (alias)
 {
   char *value;
 
-  value = single_quote (alias->value);
+  value = sh_single_quote (alias->value);
   printf ("alias %s=%s\n", alias->name, value);
   free (value);
 
index 5adfe3810a59378b0c691f5eb6b24e93c7ed3003..ce996a0aee67a8aa4d6961c1faa804720e4b5468 100644 (file)
@@ -189,10 +189,10 @@ bind_builtin (list)
     {
       kmap = rl_get_keymap_by_name (map_name);
       if (!kmap)
-        {
+       {
          builtin_error ("`%s': invalid keymap name", map_name);
          BIND_RETURN (EXECUTION_FAILURE);
-        }
+       }
     }
 
   if (kmap)
index d996536d0707ec0af806a67038c2e3df1bbc0177..778d1f8adf2e856ed3d252753808c1dfd9d20b91 100644 (file)
@@ -40,6 +40,7 @@ $END
 #include "common.h"
 
 extern char *this_command_name;
+extern int posixly_correct;
 
 static int check_loop_level ();
 
@@ -61,7 +62,7 @@ break_builtin (list)
   int newbreak;
 
   if (check_loop_level () == 0)
-    return (EXECUTION_FAILURE);
+    return (EXECUTION_SUCCESS);
 
   newbreak = get_numeric_arg (list, 1);
 
@@ -96,7 +97,7 @@ continue_builtin (list)
   int newcont;
 
   if (check_loop_level () == 0)
-    return (EXECUTION_FAILURE);
+    return (EXECUTION_SUCCESS);
 
   newcont = get_numeric_arg (list, 1);
 
@@ -121,7 +122,7 @@ static int
 check_loop_level ()
 {
 #if defined (BREAK_COMPLAINS)
-  if (loop_level == 0)
+  if (loop_level == 0 && posixly_correct == 0)
     builtin_error ("only meaningful in a `for', `while', or `until' loop");
 #endif /* BREAK_COMPLAINS */
 
index 47616230e8e8c55323e56ed6a36d3a9cd1d647f3..57306a57c54fd3ab61db5f2a4870f56f4c00709e 100644 (file)
@@ -60,7 +60,6 @@ extern char *bash_getcwd_errstr;
 static int change_to_directory ();
 
 static char *cdspell ();
-static int spname (), mindist (), spdist ();
 
 /* Change this to 1 to get cd spelling correction by default. */
 int cdspelling = 0;
@@ -91,15 +90,10 @@ bindpwd (no_symlinks)
   int old_symlinks, old_anm;
   SHELL_VAR *tvar;
 
-  if (no_symlinks)
-    {
-      old_symlinks = no_symbolic_links;
-      no_symbolic_links = 1;
-      dirname = get_working_directory ("cd");
-      no_symbolic_links = old_symlinks;
-    }
-  else
-    dirname = get_working_directory ("cd");
+#define tcwd the_current_working_directory
+  dirname = tcwd ? (no_symlinks ? sh_physpath (tcwd, 0) : tcwd)
+                : get_working_directory ("cd");
+#undef tcwd
 
   old_anm = array_needs_making;
   pwdvar = get_string_value ("PWD");
@@ -118,10 +112,16 @@ bindpwd (no_symlinks)
       array_needs_making = 0;
     }
 
-  FREE (dirname);
+  if (dirname && dirname != the_current_working_directory)
+    free (dirname);
   return (EXECUTION_SUCCESS);
 }
 
+#define LCD_DOVARS     0x001
+#define LCD_DOSPELL    0x002
+#define LCD_PRINTPATH  0x004
+#define LCD_FREEDIRNAME        0x010
+
 /* This builtin is ultimately the way that all user-visible commands should
    change the current working directory.  It is called by cd_to_string (),
    so the programming interface is simple, and it handles errors and
@@ -131,8 +131,7 @@ cd_builtin (list)
      WORD_LIST *list;
 {
   char *dirname, *cdpath, *path, *temp;
-  int path_index, no_symlinks, opt;
-  struct stat sb;
+  int path_index, no_symlinks, opt, lflag;
 
 #if defined (RESTRICTED_SHELL)
   if (restricted)
@@ -161,6 +160,9 @@ cd_builtin (list)
     }
   list = loptend;
 
+  lflag = (cdable_vars ? LCD_DOVARS : 0) |
+         ((interactive && cdspelling) ? LCD_DOSPELL : 0);
+
   if (list == 0)
     {
       /* `cd' without arguments is equivalent to `cd $HOME' */
@@ -171,118 +173,106 @@ cd_builtin (list)
          builtin_error ("HOME not set");
          return (EXECUTION_FAILURE);
        }
-
-      if (change_to_directory (dirname, no_symlinks) == 0)
-       {
-         builtin_error ("%s: %s", dirname, strerror (errno));
-         return (EXECUTION_FAILURE);
-       }
+      lflag = 0;
     }
   else if (list->word->word[0] == '-' && list->word->word[1] == '\0')
     {
       /* This is `cd -', equivalent to `cd $OLDPWD' */
       dirname = get_string_value ("OLDPWD");
 
-      if (dirname == 0 || change_to_directory (dirname, no_symlinks) == 0)
+      if (dirname == 0)
        {
-         if (dirname == 0)
-           builtin_error ("OLDPWD not set");
-         else
-           builtin_error ("%s: %s", dirname, strerror (errno));
+         builtin_error ("OLDPWD not set");
          return (EXECUTION_FAILURE);
        }
-      if (interactive)
-       printf ("%s\n", dirname);
+      lflag = interactive ? LCD_PRINTPATH : 0;
     }
-  else
+  else if (absolute_pathname (list->word->word))
+    dirname = list->word->word;
+  else if (cdpath = get_string_value ("CDPATH"))
     {
       dirname = list->word->word;
 
-      if (absolute_pathname (dirname) == 0 && (cdpath = get_string_value ("CDPATH")))
+      /* Find directory in $CDPATH. */
+      path_index = 0;
+      while (path = extract_colon_unit (cdpath, &path_index))
        {
-         /* Find directory in $CDPATH. */
-         path_index = 0;
-         while (path = extract_colon_unit (cdpath, &path_index))
-           {
-             /* OPT is 1 if the path element is non-empty */
-             opt = path[0] != '\0';
-             temp = sh_makepath (path, dirname, MP_DOTILDE);
-             free (path);
-
-             if (stat (temp, &sb) < 0 || S_ISDIR (sb.st_mode) == 0)
-               {
-                 free (temp);
-                 continue;
-               }
-
-             if (change_to_directory (temp, no_symlinks))
-               {
-                 /* POSIX.2 says that if a nonempty directory from CDPATH
-                    is used to find the directory to change to, the new
-                    directory name is echoed to stdout, whether or not
-                    the shell is interactive. */
-                 if (opt)
-                   printf ("%s\n", no_symlinks ? temp : the_current_working_directory);
-
-                 free (temp);
-                 /* Posix.2 says that after using CDPATH, the resultant
-                    value of $PWD will not contain symlinks. */
-                 return (bindpwd (posixly_correct || no_symlinks));
-               }
-             else
-               free (temp);
-           }
+         /* OPT is 1 if the path element is non-empty */
+         opt = path[0] != '\0';
+         temp = sh_makepath (path, dirname, MP_DOTILDE);
+         free (path);
 
-         /* POSIX.2 says that if `.' does not appear in $CDPATH, we don't
-            try the current directory, so we just punt now with an error
-            message if POSIXLY_CORRECT is non-zero.  The check for cdpath[0]
-            is so we don't mistakenly treat a CDPATH value of "" as not
-            specifying the current directory. */
-         if (posixly_correct && cdpath[0])
+         if (change_to_directory (temp, no_symlinks))
            {
-             builtin_error ("%s: %s", dirname, strerror (ENOENT));
-             return (EXECUTION_FAILURE);
+             /* POSIX.2 says that if a nonempty directory from CDPATH
+                is used to find the directory to change to, the new
+                directory name is echoed to stdout, whether or not
+                the shell is interactive. */
+             if (opt)
+               printf ("%s\n", no_symlinks ? temp : the_current_working_directory);
+
+             free (temp);
+             /* Posix.2 says that after using CDPATH, the resultant
+                value of $PWD will not contain `.' or `..'. */
+             return (bindpwd (posixly_correct || no_symlinks));
            }
+         else
+           free (temp);
        }
 
-      if (change_to_directory (dirname, no_symlinks))
-       return (bindpwd (no_symlinks));
-
-      /* If the user requests it, then perhaps this is the name of
-        a shell variable, whose value contains the directory to
-        change to.  If that is the case, then change to that
-        directory. */
-      if (cdable_vars)
+      /* POSIX.2 says that if `.' does not appear in $CDPATH, we don't
+        try the current directory, so we just punt now with an error
+        message if POSIXLY_CORRECT is non-zero.  The check for cdpath[0]
+        is so we don't mistakenly treat a CDPATH value of "" as not
+        specifying the current directory. */
+      if (posixly_correct && cdpath[0])
        {
-         temp = get_string_value (dirname);
-         if (temp && change_to_directory (temp, no_symlinks))
-           {
-             printf ("%s\n", temp);
-             return (bindpwd (no_symlinks));
-           }
+         builtin_error ("%s: %s", dirname, strerror (ENOENT));
+         return (EXECUTION_FAILURE);
        }
+    }
+  else
+    dirname = list->word->word;
+
+  /* When we get here, DIRNAME is the directory to change to.  If we
+     chdir successfully, just return. */
+  if (change_to_directory (dirname, no_symlinks))
+    {
+      if (lflag & LCD_PRINTPATH)
+       printf ("%s\n", dirname);
+      return (bindpwd (no_symlinks));
+    }
 
-      /* If the user requests it, try to find a directory name similar in
-        spelling to the one requested, in case the user made a simple
-        typo.  This is similar to the UNIX 8th and 9th Edition shells. */
-      if (interactive && cdspelling)
+  /* If the user requests it, then perhaps this is the name of
+     a shell variable, whose value contains the directory to
+     change to. */
+  if (lflag & LCD_DOVARS)
+    {
+      temp = get_string_value (dirname);
+      if (temp && change_to_directory (temp, no_symlinks))
        {
-         temp = cdspell (dirname);
-         if (temp && change_to_directory (temp, no_symlinks))
-            {
-              printf ("%s\n", temp);
-              free (temp);
-              return (bindpwd (no_symlinks));
-            }
-          else
-           FREE (temp);
+         printf ("%s\n", temp);
+         return (bindpwd (no_symlinks));
        }
+    }
 
-      builtin_error ("%s: %s", dirname, strerror (errno));
-      return (EXECUTION_FAILURE);
+  /* If the user requests it, try to find a directory name similar in
+     spelling to the one requested, in case the user made a simple
+     typo.  This is similar to the UNIX 8th and 9th Edition shells. */
+  if (lflag & LCD_DOSPELL)
+    {
+      temp = cdspell (dirname);
+      if (temp && change_to_directory (temp, no_symlinks))
+       {
+         printf ("%s\n", temp);
+         return (bindpwd (no_symlinks));
+       }
+      else
+       FREE (temp);
     }
 
-  return (bindpwd (no_symlinks));
+  builtin_error ("%s: %s", dirname, strerror (errno));
+  return (EXECUTION_FAILURE);
 }
 
 $BUILTIN pwd
@@ -302,7 +292,7 @@ int
 pwd_builtin (list)
      WORD_LIST *list;
 {
-  char *directory, *buffer;
+  char *directory;
   int opt;
 
   verbatim_pwd = no_symbolic_links;
@@ -324,25 +314,23 @@ pwd_builtin (list)
     }
   list = loptend;
 
-  if (verbatim_pwd)
-    {
-      buffer = xmalloc (PATH_MAX);
-      directory = getcwd (buffer, PATH_MAX);
+#define tcwd the_current_working_directory
 
-      if (directory == 0)
-       {
-         builtin_error ("%s: %s", bash_getcwd_errstr, strerror (errno));
-         free (buffer);
-       }
-    }
-  else
-    directory = get_working_directory ("pwd");
+  directory = tcwd ? (verbatim_pwd ? sh_physpath (tcwd, 0) : tcwd)
+                  : get_working_directory ("pwd");
+#undef tcwd
 
   if (directory)
     {
       printf ("%s\n", directory);
+      if (directory != the_current_working_directory)
+       free (directory);
       fflush (stdout);
-      free (directory);
+      if (ferror (stdout))
+       {
+         builtin_error ("write error: %s", strerror (errno));
+         return (EXECUTION_FAILURE);
+       }
       return (EXECUTION_SUCCESS);
     }
   else
@@ -350,83 +338,79 @@ pwd_builtin (list)
 }
 
 /* Do the work of changing to the directory NEWDIR.  Handle symbolic
-   link following, etc. */
+   link following, etc.  This function *must* return with
+   the_current_working_directory either set to NULL (in which case
+   getcwd() will eventually be called), or set to a string corresponding
+   to the working directory.  Return 1 on success, 0 on failure. */
 
 static int
 change_to_directory (newdir, nolinks)
      char *newdir;
      int nolinks;
 {
-  char *t;
-
-  if (nolinks == 0)
-    {
-      int chdir_return = 0;
-      char *tdir = (char *)NULL;
+  char *t, *tdir;
+  int err;
 
-      if (the_current_working_directory == 0)
-       {
-         t = get_working_directory ("cd_links");
-         FREE (t);
-       }
+  tdir = (char *)NULL;
 
-      if (the_current_working_directory)
-       t = make_absolute (newdir, the_current_working_directory);
-      else
-       t = savestring (newdir);
+  if (the_current_working_directory == 0)
+    {
+      t = get_working_directory ("chdir");
+      FREE (t);
+    }
 
-      /* TDIR is the canonicalized absolute pathname of the NEWDIR. */
-      tdir = canonicalize_pathname (t);
+  t = make_absolute (newdir, the_current_working_directory);
 
-      /* Use the canonicalized version of NEWDIR, or, if canonicalization
-        failed, use the non-canonical form. */
-      if (tdir && *tdir)
-       free (t);
-      else
-       {
-         FREE (tdir);
-         tdir = t;
-       }
+  /* TDIR is either the canonicalized absolute pathname of NEWDIR
+     (nolinks == 0) or the absolute physical pathname of NEWDIR
+     (nolinks != 0). */
+  tdir = nolinks ? sh_physpath (t, 0)
+                : sh_canonpath (t, PATH_CHECKDOTDOT|PATH_CHECKEXISTS);
 
-      if (chdir (tdir) < 0)
-       {
-         int err;
+  /* Use the canonicalized version of NEWDIR, or, if canonicalization
+     failed, use the non-canonical form. */
+  if (tdir && *tdir)
+    free (t);
+  else
+    {
+      FREE (tdir);
+      tdir = t;
+    }
 
-         chdir_return = 0;
-         free (tdir);
+  /* If the chdir succeeds, update the_current_working_directory. */
+  if (chdir (nolinks ? newdir : tdir) == 0)
+    {
+      FREE (the_current_working_directory);
+      the_current_working_directory = tdir;
+      
+      return (1);
+    }
 
-         err = errno;
+  /* We failed to change to the appropriate directory name.  If we tried
+     what the user passed (nolinks != 0), punt now. */
+  if (nolinks)
+    return (0);
 
-         /* We failed changing to the canonicalized directory name.  Try
-            what the user passed verbatim.  If we succeed, reinitialize
-            the_current_working_directory. */
-         if (chdir (newdir) == 0)
-           {
-             chdir_return = 1;
-             if (the_current_working_directory)
-               {
-                 free (the_current_working_directory);
-                 the_current_working_directory = (char *)NULL;
-               }
-
-             tdir = get_working_directory ("cd");
-             FREE (tdir);
-           }
-         else
-           errno = err;
-       }
-      else
-       {
-         chdir_return = 1;
+  err = errno;
+  free (tdir);
 
-         FREE (the_current_working_directory);
-         the_current_working_directory = tdir;
-       }
+  /* We're not in physical mode (nolinks == 0), but we failed to change to
+     the canonicalized directory name (TDIR).  Try what the user passed
+     verbatim. If we succeed, reinitialize the_current_working_directory. */
+  if (chdir (newdir) == 0)
+    {
+      FREE (the_current_working_directory);
+      the_current_working_directory = (char *)NULL;
+      tdir = get_working_directory ("cd");
+      FREE (tdir);
 
-      return (chdir_return);
+      return (1);
     }
   else
-    return (chdir (newdir) == 0);
+    {
+      errno = err;
+      return (0);
+    }
 }
 
 /* Code for cd spelling correction.  Original patch submitted by
@@ -453,147 +437,3 @@ cdspell (dirname)
       return guess;
     }
 }
-
-/*
- * `spname' and its helpers are inspired by the code in "The UNIX
- * Programming Environment, Kernighan & Pike, Prentice-Hall 1984",
- * pages 209 - 213.
- */
-
-/*
- *     `spname' -- return a correctly spelled filename
- *
- *     int spname(char * oldname, char * newname)
- *     Returns:  -1 if no reasonable match found
- *                0 if exact match found
- *                1 if corrected
- *     Stores corrected name in `newname'.
- */
-static int
-spname(oldname, newname)
-     char *oldname;
-     char *newname;
-{
-  char *op, *np, *p;
-  char guess[PATH_MAX + 1], best[PATH_MAX + 1];
-
-  op = oldname;
-  np = newname;
-  for (;;)
-    {
-      while (*op == '/')    /* Skip slashes */
-       *np++ = *op++;
-      *np = '\0';
-
-      if (*op == '\0')    /* Exact or corrected */
-        {
-         /* `.' is rarely the right thing. */
-         if (oldname[1] == '\0' && newname[1] == '\0' &&
-               oldname[0] != '.' && newname[0] == '.')
-           return -1;
-         return strcmp(oldname, newname) != 0;
-        }
-
-      /* Copy next component into guess */
-      for (p = guess; *op != '/' && *op != '\0'; op++)
-       if (p < guess + PATH_MAX)
-         *p++ = *op;
-      *p = '\0';
-
-      if (mindist(newname, guess, best) >= 3)
-       return -1;  /* Hopeless */
-
-      /*
-       *  Add to end of newname
-       */
-      for (p = best; *np = *p++; np++)
-       ;
-    }
-}
-
-/*
- *  Search directory for a guess
- */
-static int
-mindist(dir, guess, best)
-     char *dir;
-     char *guess;
-     char *best;
-{
-  DIR *fd;
-  struct dirent *dp;
-  int dist, x;
-
-  dist = 3;    /* Worst distance */
-  if (*dir == '\0')
-    dir = ".";
-
-  if ((fd = opendir(dir)) == NULL)
-    return dist;
-
-  while ((dp = readdir(fd)) != NULL)
-    {
-      /*
-       *  Look for a better guess.  If the new guess is as
-       *  good as the current one, we take it.  This way,
-       *  any single character match will be a better match
-       *  than ".".
-       */
-      x = spdist(dp->d_name, guess);
-      if (x <= dist && x != 3)
-       {
-         strcpy(best, dp->d_name);
-         dist = x;
-         if (dist == 0)    /* Exact match */
-           break;
-       }
-    }
-  (void)closedir(fd);
-
-  /* Don't return `.' */
-  if (best[0] == '.' && best[1] == '\0')
-    dist = 3;
-  return dist;
-}
-
-/*
- *  `spdist' -- return the "distance" between two names.
- *
- *  int spname(char * oldname, char * newname)
- *  Returns:  0 if strings are identical
- *      1 if two characters are transposed
- *      2 if one character is wrong, added or deleted
- *      3 otherwise
- */
-static int
-spdist(cur, new)
-     char *cur, *new;
-{
-  while (*cur == *new)
-    {
-      if (*cur == '\0')
-       return 0;    /* Exact match */
-      cur++;
-      new++;
-    }
-
-  if (*cur)
-    {
-      if (*new)
-       {
-         if (cur[1] && new[1] && cur[0] == new[1] && cur[1] == new[0] && strcmp (cur + 2, new + 2) == 0)
-           return 1;  /* Transposition */
-
-         if (strcmp (cur + 1, new + 1) == 0)
-           return 2;  /* One character mismatch */
-       }
-
-      if (strcmp(&cur[1], &new[0]) == 0)
-       return 2;    /* Extra character */
-    }
-
-  if (*new && strcmp(cur, new + 1) == 0)
-    return 2;      /* Missing character */
-
-  return 3;
-}
index a92e4d90ddcd10d5349c25c75c706dc37d95afde..e3e9cc3ee97eef766719d7ad6ea81167bf663a33 100644 (file)
@@ -327,7 +327,7 @@ set_dollar_vars_changed ()
 
 /* **************************************************************** */
 /*                                                                 */
-/*             Validating numeric input and arguments              */
+/*             Validating numeric input and arguments              */
 /*                                                                 */
 /* **************************************************************** */
 
@@ -371,10 +371,10 @@ read_octal (string)
   int result, digits;
 
   result = digits = 0;
-  while (*string && *string >= '0' && *string < '8')
+  while (*string && ISOCTAL (*string))
     {
       digits++;
-      result = (result * 8) + *string++ - '0';
+      result = (result * 8) + (*string++ - '0');
     }
 
   if (!digits || result > 0777 || *string)
@@ -416,10 +416,7 @@ get_working_directory (for_whom)
        {
          fprintf (stderr, "%s: could not get current directory: %s: %s\n",
                   (for_whom && *for_whom) ? for_whom : get_name_for_error (),
-                  the_current_working_directory[0]
-                       ? the_current_working_directory
-                       : bash_getcwd_errstr,
-                  strerror (errno));
+                  bash_getcwd_errstr, strerror (errno));
 
          free (the_current_working_directory);
          the_current_working_directory = (char *)NULL;
@@ -710,221 +707,3 @@ initialize_shell_builtins ()
   qsort (shell_builtins, num_shell_builtins, sizeof (struct builtin),
     (QSFUNC *)shell_builtin_compare);
 }
-
-/* **************************************************************** */
-/*                                                                 */
-/*      Functions for quoting strings to be re-read as input       */
-/*                                                                 */
-/* **************************************************************** */
-
-/* Return a new string which is the single-quoted version of STRING.
-   Used by alias and trap, among others. */
-char *
-single_quote (string)
-     char *string;
-{
-  register int c;
-  char *result, *r, *s;
-
-  result = (char *)xmalloc (3 + (4 * strlen (string)));
-  r = result;
-  *r++ = '\'';
-
-  for (s = string; s && (c = *s); s++)
-    {
-      *r++ = c;
-
-      if (c == '\'')
-       {
-         *r++ = '\\';  /* insert escaped single quote */
-         *r++ = '\'';
-         *r++ = '\'';  /* start new quoted string */
-       }
-    }
-
-  *r++ = '\'';
-  *r = '\0';
-
-  return (result);
-}
-
-/* Quote STRING using double quotes.  Return a new string. */
-char *
-double_quote (string)
-     char *string;
-{
-  register int c;
-  char *result, *r, *s;
-
-  result = (char *)xmalloc (3 + (2 * strlen (string)));
-  r = result;
-  *r++ = '"';
-
-  for (s = string; s && (c = *s); s++)
-    {
-      switch (c)
-        {
-       case '"':
-       case '$':
-       case '`':
-       case '\\':
-       case '\n':              /* XXX */
-         *r++ = '\\';
-       default:
-         *r++ = c;
-         break;
-        }
-    }
-
-  *r++ = '"';
-  *r = '\0';
-
-  return (result);
-}
-
-/* Remove backslashes that are quoting characters that are special between
-   double quotes.  Return a new string. */
-char *
-un_double_quote (string)
-     char *string;
-{
-  register int c, pass_next;
-  char *result, *r, *s;
-
-  r = result = xmalloc (strlen (string) + 1);
-
-  for (pass_next = 0, s = string; s && (c = *s); s++)
-    {
-      if (pass_next)
-       {
-         *r++ = c;
-         pass_next = 0;
-         continue;
-       }
-      if (c == '\\' && strchr (slashify_in_quotes, s[1]))
-       {
-         pass_next = 1;
-         continue;
-       }
-      *r++ = c;
-    }
-
-  *r = '\0';
-  return result;
-}
-
-/* Quote special characters in STRING using backslashes.  Return a new
-   string. */
-char *
-backslash_quote (string)
-     char *string;
-{
-  int c;
-  char *result, *r, *s;
-
-  result = xmalloc (2 * strlen (string) + 1);
-
-  for (r = result, s = string; s && (c = *s); s++)
-    {
-      switch (c)
-       {
-       case ' ': case '\t': case '\n':         /* IFS white space */
-       case '\'': case '"': case '\\':         /* quoting chars */
-       case '|': case '&': case ';':           /* shell metacharacters */
-       case '(': case ')': case '<': case '>':
-       case '!': case '{': case '}':           /* reserved words */
-       case '*': case '[': case '?': case ']': /* globbing chars */
-       case '^':
-       case '$': case '`':                     /* expansion chars */
-         *r++ = '\\';
-         *r++ = c;
-         break;
-#if 0
-       case '~':                               /* tilde expansion */
-         if (s == string || s[-1] == '=' || s[-1] == ':')
-           *r++ = '\\';
-         *r++ = c;
-         break;
-#endif
-       case '#':                               /* comment char */
-         if (s == string)
-           *r++ = '\\';
-         /* FALLTHROUGH */
-       default:
-         *r++ = c;
-         break;
-       }
-    }
-
-  *r = '\0';
-  return (result);
-}
-
-#if defined (PROMPT_STRING_DECODE)
-/* Quote characters that get special treatment when in double quotes in STRING
-   using backslashes.  Return a new string. */
-char *
-backslash_quote_for_double_quotes (string)
-     char *string;
-{
-  int c;
-  char *result, *r, *s;
-
-  result = xmalloc (2 * strlen (string) + 1);
-
-  for (r = result, s = string; s && (c = *s); s++)
-    {
-      switch (c)
-       {
-       case '"':
-       case '$':
-       case '`':
-       case '\\':
-       case '\n':
-         *r++ = '\\';
-         *r++ = c;
-         break;
-       default:
-         *r++ = c;
-         break;
-       }
-    }
-
-  *r = '\0';
-  return (result);
-}
-#endif /* PROMPT_STRING_DECODE */
-
-int
-contains_shell_metas (string)
-     char *string;
-{
-  char *s;
-
-  for (s = string; s && *s; s++)
-    {
-      switch (*s)
-       {
-       case ' ': case '\t': case '\n':         /* IFS white space */
-       case '\'': case '"': case '\\':         /* quoting chars */
-       case '|': case '&': case ';':           /* shell metacharacters */
-       case '(': case ')': case '<': case '>':
-       case '!': case '{': case '}':           /* reserved words */
-       case '*': case '[': case '?': case ']': /* globbing chars */
-       case '^':
-       case '$': case '`':                     /* expansion chars */
-         return (1);
-       case '~':                               /* tilde expansion */
-         if (s == string || s[-1] == '=' || s[-1] == ':')
-           return (1);
-       case '#':
-         if (s == string)                      /* comment char */
-           return (1);
-         /* FALLTHROUGH */
-       default:
-         break;
-       }
-    }
-
-  return (0);
-}
index 1404354d46ac198efec5477092918ebe6892940d..8f3366ba3d5a497dd571c7de7dc7896d7dd1d66a 100644 (file)
@@ -70,13 +70,6 @@ extern Function *builtin_address __P((char *));
 extern Function *find_special_builtin __P((char *));
 extern void initialize_shell_builtins __P((void));
 
-extern char *single_quote __P((char *));
-extern char *double_quote __P((char *));
-extern char *un_double_quote __P((char *));
-extern char *backslash_quote __P((char *));
-extern char *backslash_quote_for_double_quotes __P((char *));
-extern int contains_shell_metas __P((char *));
-
 /* Functions from set.def */
 extern void initialize_shell_options __P((int));
 extern void list_minus_o_opts __P((int, int));
@@ -111,5 +104,6 @@ extern void parse_and_execute_cleanup __P((void));
 /* Functions from evalfile.c */
 extern int maybe_execute_file __P((char *, int));
 extern int source_file __P((char *));
+extern int fc_execute_file __P((char *));
 
 #endif /* !__COMMON_H */
index 6ff29f14ef0ad1696d937446855e0da577f0080c..3ac41d04fd3d1e714431b4b717307cb2fecf2418 100644 (file)
@@ -24,7 +24,7 @@ $PRODUCES complete.c
 $BUILTIN complete
 $DEPENDS_ON PROGRAMMABLE_COMPLETION
 $FUNCTION complete_builtin
-$SHORT_DOC complete [-abcdefjkvu] [-pr] [-A action] [-G globpat] [-W wordlist] [-P prefix] [-S suffix] [-X filterpat] [-F function] [-C command] [name ...]
+$SHORT_DOC complete [-abcdefjkvu] [-pr] [-o option] [-A action] [-G globpat] [-W wordlist] [-P prefix] [-S suffix] [-X filterpat] [-F function] [-C command] [name ...]
 For each NAME, specify how arguments are to be completed.
 If the -p option is supplied, or if no options are supplied, existing
 completion specifications are printed in a way that allows them to be
@@ -90,6 +90,16 @@ static struct _compacts {
   { (char *)NULL, 0, 0 },
 };
 
+static struct _compopt {
+  char *optname;
+  int optflag;
+} compopts[] = {
+  { "default", COPT_DEFAULT },
+  { "dirnames", COPT_DIRNAMES },
+  { "filenames",COPT_FILENAMES},
+  { (char *)NULL, 0 },
+};
+
 static int
 find_compact (name)
      char *name;
@@ -102,32 +112,46 @@ find_compact (name)
   return -1;
 }
 
-/* Build the actions from the options specified in LIST.  ACTP is a pointer
-   to an unsigned long in which to place the bitmap of actions.  PP, if
-   non-null, gets 1 if -p is supplied; RP, if non-null, gets 1 if -r is
-   supplied.  If either is null, the corresponding option generates an
-   error.  This also sets variables corresponding to options that take
-   arguments as a side effect; the caller should ensure that those variables
-   are set to NULL before calling build_actions.  Return value:
+static int
+find_compopt (name)
+     char *name;
+{
+  register int i;
+
+  for (i = 0; compopts[i].optname; i++)
+    if (STREQ (name, compopts[i].optname))
+      return i;
+  return -1;
+}
+
+/* Build the actions and compspec options from the options specified in LIST.
+   ACTP is a pointer to an unsigned long in which to place the bitmap of
+   actions.  OPTP is a pointer to an unsigned long in which to place the
+   btmap of compspec options (arguments to `-o').  PP, if non-null, gets 1
+   if -p is supplied; RP, if non-null, gets 1 if -r is supplied.
+   If either is null, the corresponding option generates an error.
+   This also sets variables corresponding to options that take arguments as
+   a side effect; the caller should ensure that those variables are set to
+   NULL before calling build_actions.  Return value:
        EX_USAGE = bad option
        EXECUTION_SUCCESS = some options supplied
        EXECUTION_FAILURE = no options supplied
 */
 
 static int
-build_actions (list, pp, rp, actp)
+build_actions (list, pp, rp, actp, optp)
      WORD_LIST *list;
      int *pp, *rp;
-     unsigned long *actp;
+     unsigned long *actp, *optp;
 {
   int opt, ind, pflag, rflag, opt_given;
-  unsigned long acts;
+  unsigned long acts, copts;
 
-  acts = (unsigned long)0L;
+  acts = copts = (unsigned long)0L;
   opt_given = 0;
 
   reset_internal_getopt ();
-  while ((opt = internal_getopt (list, "abcdefjkpruvA:G:W:P:S:X:F:C:")) != -1)
+  while ((opt = internal_getopt (list, "abcdefjko:pruvA:G:W:P:S:X:F:C:")) != -1)
     {
       opt_given = 1;
       switch (opt)
@@ -188,6 +212,15 @@ build_actions (list, pp, rp, actp)
        case 'v':
          acts |= CA_VARIABLE;
          break;
+       case 'o':
+         ind = find_compopt (list_optarg);
+         if (ind < 0)
+           {
+             builtin_error ("%s: invalid option name", list_optarg);
+             return (EX_USAGE);
+           }
+         copts |= compopts[ind].optflag;
+         break;
        case 'A':
          ind = find_compact (list_optarg);
          if (ind < 0)
@@ -225,6 +258,8 @@ build_actions (list, pp, rp, actp)
     }
 
   *actp = acts;
+  *optp = copts;
+
   return (opt_given ? EXECUTION_SUCCESS : EXECUTION_FAILURE);
 }
 
@@ -234,7 +269,7 @@ complete_builtin (list)
      WORD_LIST *list;
 {
   int opt_given, pflag, rflag, rval;
-  unsigned long acts;
+  unsigned long acts, copts;
   char *cmd;
   COMPSPEC *cs;
 
@@ -245,13 +280,13 @@ complete_builtin (list)
     }
 
   opt_given = pflag = rflag = 0;
-  acts = (unsigned long)0L;
+  acts = copts = (unsigned long)0L;
   Aarg = Garg = Warg = Parg = Sarg = Xarg = Farg = Carg = (char *)NULL;
   cs = (COMPSPEC *)NULL;
 
   /* Build the actions from the arguments.  Also sets the [A-Z]arg variables
      as a side effect if they are supplied as options. */
-  rval = build_actions (list, &pflag, &rflag, &acts);
+  rval = build_actions (list, &pflag, &rflag, &acts, &copts);
   if (rval == EX_USAGE)
     return (rval);
   opt_given = rval != EXECUTION_FAILURE;
@@ -290,6 +325,7 @@ complete_builtin (list)
      remaining argument. */
   cs = alloc_compspec ();
   cs->actions = acts;
+  cs->options = copts;
 
   cs->globpat = STRDUP (Garg);
   cs->words = STRDUP (Warg);
@@ -304,7 +340,7 @@ complete_builtin (list)
       /* Add CS as the compspec for the specified commands. */
       cmd = list->word->word;
       if (add_progcomp (cmd, cs) == 0)
-        rval = EXECUTION_FAILURE;
+       rval = EXECUTION_FAILURE;
     }
 
   return (rval);
@@ -332,7 +368,7 @@ remove_cmd_completions (list)
   do { \
     if (a) \
       { \
-       x = single_quote (a); \
+       x = sh_single_quote (a); \
        printf ("%s %s ", f, x); \
        free (x); \
       } \
@@ -356,19 +392,32 @@ remove_cmd_completions (list)
       printf ("-A %s ", f); \
   } while (0)
 
+#define PRINTCOMPOPT(a, f) \
+  do { \
+    if (copts & a) \
+      printf ("-o %s ", f); \
+  } while (0)
+
 static void
 print_one_completion (cmd, cs)
      char *cmd;
      COMPSPEC *cs;
 {
-  unsigned long acts;
+  unsigned long acts, copts;
   char *x;
 
   printf ("complete ");
 
+  copts = cs->options;
+
+  /* First, print the -o options. */
+  PRINTCOMPOPT (COPT_DEFAULT, "default");
+  PRINTCOMPOPT (COPT_DIRNAMES, "dirnames");
+  PRINTCOMPOPT (COPT_FILENAMES, "filenames");
+
   acts = cs->actions;
 
-  /* simple flags first */
+  /* simple flags next */
   PRINTOPT (CA_ALIAS, "-a");
   PRINTOPT (CA_BUILTIN, "-b");
   PRINTOPT (CA_COMMAND, "-c");
@@ -428,7 +477,7 @@ print_cmd_completions (list)
     {
       cs = find_compspec (l->word->word);
       if (cs)
-        print_one_completion (l->word->word, cs);
+       print_one_completion (l->word->word, cs);
       else
        {
          builtin_error ("%s: no completion specification", l->word->word);
@@ -441,7 +490,7 @@ print_cmd_completions (list)
 $BUILTIN compgen
 $DEPENDS_ON PROGRAMMABLE_COMPLETION
 $FUNCTION compgen_builtin
-$SHORT_DOC compgen [-abcdefjkvu] [-A action] [-G globpat] [-W wordlist] [-P prefix] [-S suffix] [-X filterpat] [-F function] [-C command] [word]
+$SHORT_DOC compgen [-abcdefjkvu] [-o option] [-A action] [-G globpat] [-W wordlist] [-P prefix] [-S suffix] [-X filterpat] [-F function] [-C command] [word]
 Display the possible completions depending on the options.  Intended
 to be used from within a shell function generating possible completions.
 If the optional WORD argument is supplied, matches against WORD are
@@ -453,7 +502,7 @@ compgen_builtin (list)
      WORD_LIST *list;
 {
   int rval;
-  unsigned long acts;
+  unsigned long acts, copts;
   COMPSPEC *cs;
   STRINGLIST *sl;
   char *word;
@@ -461,13 +510,13 @@ compgen_builtin (list)
   if (list == 0)
     return (EXECUTION_SUCCESS);
 
-  acts = (unsigned long)0L;
+  acts = copts = (unsigned long)0L;
   Aarg = Garg = Warg = Parg = Sarg = Xarg = Farg = Carg = (char *)NULL;
   cs = (COMPSPEC *)NULL;
 
   /* Build the actions from the arguments.  Also sets the [A-Z]arg variables
      as a side effect if they are supplied as options. */
-  rval = build_actions (list, (int *)NULL, (int *)NULL, &acts);
+  rval = build_actions (list, (int *)NULL, (int *)NULL, &acts, &copts);
   if (rval == EX_USAGE)
     return (rval);
   if (rval == EXECUTION_FAILURE)
@@ -485,6 +534,7 @@ compgen_builtin (list)
   /* If we get here, we need to build a compspec and evaluate it. */
   cs = alloc_compspec ();
   cs->actions = acts;
+  cs->options = copts;
   cs->refcount = 1;
 
   cs->globpat = STRDUP (Garg);
index c6664d980cad6fca142829c9d9603ba1806a2f15..6686f0a4058463c7c279582b94816cfdce9bf212 100644 (file)
@@ -333,10 +333,12 @@ declare_internal (list, local_var)
              NEXT_VARIABLE ();
            }
 
-         /* Cannot use declare to assign value to readonly variable. */
-         if (readonly_p (var) && offset)
+         /* Cannot use declare to assign value to readonly or noassign
+            variable. */
+         if ((readonly_p (var) || noassign_p (var)) && offset)
            {
-             builtin_error ("%s: readonly variable", name);
+             if (readonly_p (var))
+               builtin_error ("%s: readonly variable", name);
              assign_error++;
              NEXT_VARIABLE ();
            }
@@ -347,7 +349,7 @@ declare_internal (list, local_var)
          if ((making_array_special || (flags_on & att_array) || array_p (var)) && offset)
            {
              if (value[0] == '(' && strchr (value, ')'))
-               assigning_array_special = 1;
+               assigning_array_special = 1;
              else
                {
                  builtin_error ("%s: cannot assign to array variables in this way", name);
index 0f701a27d67d4662c2225180fbeded60c731e97b..b6ac48338674f8e5cffa34588e88e1bb26850d3a 100644 (file)
@@ -164,7 +164,7 @@ enable_builtin (list)
     {
       filter = (flags & NFLAG) ? DISABLED : ENABLED;
       if (flags & SFLAG)
-        filter |= SPECIAL;
+       filter |= SPECIAL;
 
       result = dyn_load_builtin (list, filter, filename);
 #if defined (PROGRAMMABLE_COMPLETION)
@@ -326,10 +326,10 @@ dyn_load_builtin (list, flags, filename)
       b->handle = handle;
 
       if (old_builtin = builtin_address_internal (name, 1))
-        {
-          replaced++;
+       {
+         replaced++;
          FASTCOPY ((char *)b, (char *)old_builtin, sizeof (struct builtin));
-        }
+       }
       else
          new_builtins[new++] = b;
     }
index dad987ae32b96fb65b35f135d7cc9bbafe810ad8..1116b09341e3bd51091d951cc6ff2217a759a0cc 100644 (file)
@@ -56,6 +56,7 @@ extern int errno;
 #define FEVAL_NONINT           0x008
 #define FEVAL_LONGJMP          0x010
 #define FEVAL_HISTORY          0x020
+#define FEVAL_CHECKBINARY      0x040
 
 extern int interactive, interactive_shell, posixly_correct;
 extern int indirection_level, startup_state, subshell_environment;
@@ -87,7 +88,7 @@ file_error_and_exit:
        file_error (filename);
 
       if (flags & FEVAL_LONGJMP)
-        {
+       {
          last_command_exit_value = 1;
          jump_to_top_level (EXITPROG);
        }
@@ -116,6 +117,11 @@ file_error_and_exit:
       (*errfunc) ("%s: file is too large", filename);
       return ((flags & FEVAL_BUILTIN) ? EXECUTION_FAILURE : -1);
     }      
+
+#if defined (__CYGWIN__) && defined (O_TEXT)
+  setmode (fd, O_TEXT);
+#endif
+
   string = xmalloc (1 + file_size);
   result = read (fd, string, file_size);
   string[result] = '\0';
@@ -136,7 +142,8 @@ file_error_and_exit:
       return ((flags & FEVAL_BUILTIN) ? EXECUTION_SUCCESS : 1);
     }
       
-  if (check_binary_file ((unsigned char *)string, (result > 80) ? 80 : result))
+  if ((flags & FEVAL_CHECKBINARY) && 
+      check_binary_file ((unsigned char *)string, (result > 80) ? 80 : result))
     {
       free (string);
       (*errfunc) ("%s: cannot execute binary file", filename);
index 37516bb65805d326f5c47d1f6fa77da54fed8b7d..21e4772e1ff4f2d9637c1d0b659ecf00cac18a5e 100644 (file)
@@ -175,7 +175,7 @@ parse_and_execute (string, from_file, flags)
 
            case DISCARD:
              run_unwind_frame ("pe_dispose");
-             last_command_exit_value = 1;      /* XXX */
+             last_result = last_command_exit_value = EXECUTION_FAILURE; /* XXX */
              if (subshell_environment)
                {
                  should_jump_to_top_level = 1;
@@ -238,7 +238,7 @@ parse_and_execute (string, from_file, flags)
 
              /* See if this is a candidate for $( <file ). */
              if (startup_state == 2 &&
-                 subshell_environment == SUBSHELL_COMSUB &&
+                 (subshell_environment & SUBSHELL_COMSUB) &&
                  *bash_input.location.string == '\0' &&
                  command->type == cm_simple && !command->redirects &&
                  (command->flags & CMD_TIME_PIPELINE) == 0 &&
@@ -277,8 +277,8 @@ parse_and_execute (string, from_file, flags)
   if (interrupt_state && parse_and_execute_level == 0)
     {
       /* An interrupt during non-interactive execution in an
-         interactive shell (e.g. via $PROMPT_COMMAND) should
-         not cause the shell to exit. */
+        interactive shell (e.g. via $PROMPT_COMMAND) should
+        not cause the shell to exit. */
       interactive = interactive_shell;
       throw_to_top_level ();
     }
index 0c30ebb314ced37ff54de0b8e64e87e3697865ec..60a940ea2bc3c6c4b7797fd9e7bb4e39052571be 100644 (file)
@@ -86,7 +86,7 @@ extern int literal_history;
 
 extern int unlink ();
 
-extern int fc_execute_file ();
+extern FILE *sh_mktmpfp __P((char *, int, char **));
 
 /* **************************************************************** */
 /*                                                                 */
@@ -161,7 +161,7 @@ fc_builtin (list)
   REPL *rlist, *rl;
   char *ename, *command, *newcom, *line;
   HIST_ENTRY **hlist;
-  char fn[64];
+  char *fn;
 
   numbering = 1;
   reverse = listing = execute = 0;
@@ -327,14 +327,11 @@ fc_builtin (list)
   else
     {
       numbering = 0;
-      /* XXX - this is raceable */
-      sprintf (fn, "/tmp/bash%d", (int)time ((time_t *) 0) + (int)getpid ());
-
-      stream = fopen (fn, "w");
-
+      stream = sh_mktmpfp ("bash-fc", MT_USERANDOM|MT_USETMPDIR, &fn);
       if (stream == 0)
        {
-         builtin_error ("cannot open temp file %s", fn);
+         builtin_error ("cannot open temp file %s", fn ? fn : "");
+         FREE (fn);
          return (EXECUTION_FAILURE);
        }
     }
@@ -369,6 +366,7 @@ fc_builtin (list)
   if (retval != EXECUTION_SUCCESS)
     {
       unlink (fn);
+      free (fn);
       return (EXECUTION_FAILURE);
     }
 
@@ -381,6 +379,7 @@ fc_builtin (list)
   /* Turn on the `v' flag while fc_execute_file runs so the commands
      will be echoed as they are read by the parser. */
   begin_unwind_frame ("fc builtin");
+  add_unwind_protect ((Function *)xfree, fn);
   add_unwind_protect (unlink, fn);
   unwind_protect_int (echo_input_at_read);
   echo_input_at_read = 1;
index dcd4ec3d5605768fffb036a5826f39b4ad7debc6..6abd1e4031ba89ff0ca16f6e7ffe98bcb1a3478d 100644 (file)
@@ -196,9 +196,9 @@ dogetopts (argc, argv)
        ;
       v = alloc_array (i + 1);
       for (i = 0; i < 10 && dollar_vars[i]; i++)
-        v[i] = dollar_vars[i];
+       v[i] = dollar_vars[i];
       for (words = rest_of_args; words; words = words->next, i++)
-        v[i] = words->word->word;
+       v[i] = words->word->word;
       v[i] = (char *)NULL;
       sh_getopt_restore_state (v);
       ret = sh_getopt (i, v, optstr);
index 8fa9653699c2d29a0f6090badc05223152a009f2..7598d1b76721e3e331a2c625bfb064456691fc27 100644 (file)
@@ -41,6 +41,8 @@ $END
 #  include <unistd.h>
 #endif
 
+#include <errno.h>
+
 #include "../bashansi.h"
 
 #include "../shell.h"
@@ -119,7 +121,19 @@ hash_builtin (list)
       /* Add or rehash the specified commands. */
       w = list->word->word;
       if (pathname)
-       remember_filename (w, pathname, 0, 0);
+       {
+         if (is_directory (pathname))
+           {
+#ifdef EISDIR
+             builtin_error ("%s: %s", pathname, strerror (EISDIR));
+#else
+             builtin_error ("%s: is a directory", pathname);
+#endif
+             opt = EXECUTION_FAILURE;
+           }
+         else
+           remember_filename (w, pathname, 0, 0);
+       }
       else if (absolute_program (w))
        continue;
       else if (add_hashed_command (w, 0))
index 07c08f36d62119979be3b74a9ed4861fe7892b71..1ea348983498acce15c5002a80d918db42b0c7f8 100644 (file)
@@ -157,7 +157,7 @@ history_builtin (list)
   else if (flags & PFLAG)
     {
       if (list)
-        return (expand_and_print_history (list));
+       return (expand_and_print_history (list));
       return (EXECUTION_SUCCESS);
     }
 #endif
@@ -326,10 +326,10 @@ expand_and_print_history (list)
          result = EXECUTION_FAILURE;
        }
       else
-        {
+       {
          fputs (s, stdout);
          putchar ('\n');
-        }
+       }
       FREE (s);
       list = list->next;
     }
index 3098ad6f414b5a7edfb68ba958131ce3b26e6c26..139a46f5eb0588338b585969a13d701c4c59acb0 100644 (file)
@@ -205,7 +205,7 @@ main (argc, argv)
 #if !defined (OLDCODE)
       else if (strcmp (arg, "-nodocument") == 0)
        no_long_document = 1;
-#endif /* !OLDCODE */        
+#endif /* !OLDCODE */  
       else
        {
          fprintf (stderr, "%s: Unknown flag %s.\n", argv[0], arg);
@@ -614,10 +614,10 @@ free_defs (defs)
   if (defs->builtins)
     {
       for (i = 0; builtin = (BUILTIN_DESC *)defs->builtins->array[i]; i++)
-        {
+       {
          free_builtin (builtin);
          free (builtin);
-        }
+       }
       array_free (defs->builtins);
     }
   free (defs);
@@ -990,9 +990,9 @@ copy_builtin (builtin)
 
   new = (BUILTIN_DESC *)xmalloc (sizeof (BUILTIN_DESC));
 
-  new->name         = savestring (builtin->name);
-  new->shortdoc     = savestring (builtin->shortdoc);
-  new->longdoc      = copy_string_array (builtin->longdoc);
+  new->name = savestring (builtin->name);
+  new->shortdoc = savestring (builtin->shortdoc);
+  new->longdoc = copy_string_array (builtin->longdoc);
   new->dependencies = copy_string_array (builtin->dependencies);
 
   new->function =
@@ -1151,7 +1151,7 @@ write_builtins (defs, structfile, externfile)
                             builtin->function);
 
                  fprintf (externfile, "extern char *%s_doc[];\n",
-                          builtin->docname ?builtin->docname : builtin->name);
+                          builtin->docname ? builtin->docname : builtin->name);
                }
 
              /* Write the structure definition. */
index f0b45904accb39dbe89adfe96781e517dd7ca72f..1d406080a046e8ca62202f914b8fcc1ccac54287 100644 (file)
@@ -88,13 +88,13 @@ static char *getstr __P((void));
 static int  getint __P((void));
 static int getlong __P((long *));
 static int getulong __P((unsigned long *));
-static double getdouble __P((void));
+static int getdouble __P((double *));
 static int asciicode __P((void));
 
 static WORD_LIST *garglist;
 static int retval;
 
-extern char *backslash_quote ();
+extern char *sh_backslash_quote ();
 
 int
 printf_builtin (list)
@@ -255,7 +255,7 @@ printf_builtin (list)
                char *p, *xp;
 
                p = getstr ();
-               xp = backslash_quote (p);
+               xp = sh_backslash_quote (p);
                if (xp)
                  {
                    /* Use printstr to get fieldwidth and precision right. */
@@ -307,7 +307,8 @@ printf_builtin (list)
              {
                double p;
 
-               p = getdouble ();
+               if (getdouble (&p))
+                 PRETURN (EXECUTION_FAILURE);
                PF(start, p);
                break;
              }
@@ -471,7 +472,8 @@ tescape (estart, trans_squote, cp, sawc)
 
       case 'b': *cp = '\b'; break;
 
-      case 'e': *cp = '\033'; break;   /* ESC -- non-ANSI */
+      case 'e':
+      case 'E': *cp = '\033'; break;   /* ESC -- non-ANSI */
 
       case 'f': *cp = '\f'; break;
 
@@ -484,7 +486,7 @@ tescape (estart, trans_squote, cp, sawc)
       case 'v': *cp = '\v'; break;
 
       /* %b octal constants are `\0' followed by one, two, or three
-         octal digits... */
+        octal digits... */
       case '0':
        for (temp = 3, evalue = 0; isoctal (*p) && temp--; p++)
          evalue = (evalue * 8) + OCTVALUE (*p);
@@ -638,8 +640,13 @@ getint ()
 
   if (ret > INT_MAX)
     {
-      builtin_error ("%s: %s", garglist->word->word, strerror(ERANGE));
-      return (0);
+      builtin_error ("warning: %s: %s", garglist->word->word, strerror(ERANGE));
+      ret = INT_MAX;
+    }
+  else if (ret < INT_MIN)
+    {
+      builtin_error ("warning: %s: %s", garglist->word->word, strerror(ERANGE));
+      ret = INT_MIN;
     }
 
   return ((int)ret);
@@ -676,10 +683,7 @@ getlong (lp)
       return (1);
     }
   else if (errno == ERANGE)
-    {
-      builtin_error ("%s: %s", garglist->word->word, strerror(ERANGE));
-      return (1);
-    }
+    builtin_error ("warning: %s: %s", garglist->word->word, strerror(ERANGE));
 
   *lp = ret;
   garglist = garglist->next;
@@ -714,31 +718,45 @@ getulong (ulp)
       return (1);
     }
   else if (errno == ERANGE)
-    {
-      builtin_error ("%s: %s", garglist->word->word, strerror(ERANGE));
-      return (1);
-    }
+    builtin_error ("warning: %s: %s", garglist->word->word, strerror(ERANGE));
 
   *ulp = ret;
   garglist = garglist->next;
   return (0);
 }
 
-static double
-getdouble ()
+static int
+getdouble (dp)
+     double *dp;
 {
   double ret;
+  char *ep;
 
   if (garglist == 0)
-    return ((double)0);
+    {
+      *dp = (double)0;
+      return (0);
+    }
 
   if (garglist->word->word[0] == '\'' || garglist->word->word[0] == '"')
-    return ((double)asciicode ());
+    {
+      *dp = (double)asciicode ();
+      return (0);
+    }
 
-  /* This should use strtod if it is available. */
-  ret = atof (garglist->word->word);
+  errno = 0;
+  ret = strtod (garglist->word->word, &ep);
+  if (*ep)
+    {
+      builtin_error ("%s: invalid number", garglist->word->word);
+      return (1);
+    }
+  else if (errno == ERANGE)
+    builtin_error ("warning: %s: %s", garglist->word->word, strerror(ERANGE));
+
+  *dp = ret;
   garglist = garglist->next;
-  return (ret);
+  return (0);
 }
 
 /* NO check is needed for garglist here. */
index 4866f41cdbc724874b3f67af106c27d293434a5b..83f7e9b4b4293987bbd84c07ef75eadc56d25e54 100644 (file)
@@ -186,10 +186,10 @@ pushd_builtin (list)
          flags |= NOCD;
        }
       else if (ISOPTION (list->word->word, '-'))
-        {
-          list = list->next;
-          break;
-        }
+       {
+         list = list->next;
+         break;
+       }
       else if (list->word->word[0] == '-' && list->word->word[1] == '\0')
        /* Let `pushd -' work like it used to. */
        break;
@@ -296,14 +296,14 @@ popd_builtin (list)
   for (flags = 0, which = 0L, direction = '+'; list; list = list->next)
     {
       if (ISOPTION (list->word->word, 'n'))
-        {
-          flags |= NOCD;
-        }
+       {
+         flags |= NOCD;
+       }
       else if (ISOPTION (list->word->word, '-'))
-        {
-          list = list->next;
-          break;
-        }
+       {
+         list = list->next;
+         break;
+       }
       else if (((direction = list->word->word[0]) == '+') || direction == '-')
        {
          if (legal_number (list->word->word + 1, &which) == 0)
@@ -335,7 +335,7 @@ popd_builtin (list)
       (direction == '-' && which == directory_list_offset))
     {
       i = ((flags & NOCD) == 0) ? cd_to_string (pushd_directory_list[directory_list_offset - 1])
-                               : EXECUTION_SUCCESS;
+                               : EXECUTION_SUCCESS;
       if (i != EXECUTION_SUCCESS)
        return (i);
       free (pushd_directory_list[--directory_list_offset]);
@@ -386,14 +386,14 @@ dirs_builtin (list)
          vflag |= 1;
        }
       else if (ISOPTION (list->word->word, '-'))
-        {
-          list = list->next;
-          break;
-        }
+       {
+         list = list->next;
+         break;
+       }
       else if (*list->word->word == '+' || *list->word->word == '-')
-        {
-          int sign;
-          if (legal_number (w = list->word->word + 1, &i) == 0)
+       {
+         int sign;
+         if (legal_number (w = list->word->word + 1, &i) == 0)
            {
              builtin_error (m_badarg, list->word->word);
              builtin_usage ();
index 8e16152d0cab6ac90580a8bab3b6b54c400550b4..d63f27af3086cc4d31511da1ddf78ca1e17ef385 100644 (file)
@@ -58,6 +58,11 @@ $END
 #include <signal.h>
 #include <errno.h>
 
+#ifdef __CYGWIN__
+#  include <fcntl.h>
+#  include <io.h>
+#endif
+
 #include "../shell.h"
 #include "common.h"
 #include "bashgetopt.h"
@@ -148,8 +153,8 @@ read_builtin (list)
   while ((opt = internal_getopt (list, "erp:a:d:t:n:s")) != -1)
     {
       switch (opt)
-        {
-        case 'r':
+       {
+       case 'r':
          raw = 1;
          break;
        case 'p':
@@ -211,15 +216,13 @@ read_builtin (list)
   input_string = xmalloc (size = 128);
 
   begin_unwind_frame ("read_builtin");
-  add_unwind_protect (xfree, input_string);
 #if defined (READLINE)
   add_unwind_protect (xfree, rlbuf);
 #endif
-  interrupt_immediately++;
 
   input_is_tty = isatty (0);
   if (input_is_tty == 0)
-#ifndef __CYGWIN32__
+#ifndef __CYGWIN__
     input_is_pipe = (lseek (0, 0L, SEEK_CUR) < 0) && (errno == ESPIPE);
 #else
     input_is_pipe = 1;
@@ -247,7 +250,7 @@ read_builtin (list)
       /* Turn off the timeout if stdin is a regular file (e.g. from
         input redirection). */
       if ((fstat (0, &tsb) < 0) || S_ISREG (tsb.st_mode))
-        tmout = -1;
+       tmout = -1;
     }
 
   if (tmout > 0)
@@ -285,7 +288,7 @@ read_builtin (list)
       else
 #endif
       if (input_is_tty)
-        {
+       {
          ttsave ();
          if (silent)
            ttcbreak ();
@@ -301,8 +304,17 @@ read_builtin (list)
       add_unwind_protect ((Function *)ttrestore, (char *)NULL);
     }
 
+  /* This *must* be the top unwind-protect on the stack, so the manipulation
+     of the unwind-protect stack after the realloc() works right. */
+  add_unwind_protect (xfree, input_string);
+  interrupt_immediately++;
+
   unbuffered_read = (nchars > 0) || (delim != '\n') || input_is_pipe;
 
+#if defined (__CYGWIN__) && defined (O_TEXT)
+  setmode (0, O_TEXT);
+#endif
+
   for (eof = 0;;)
     {
 #if defined (READLINE)
@@ -345,7 +357,11 @@ read_builtin (list)
 #endif
 
       if (i + 2 >= size)
-       input_string = xrealloc (input_string, size += 128);
+       {
+         input_string = xrealloc (input_string, size += 128);
+         remove_unwind_protect ();
+         add_unwind_protect (xfree, input_string);
+       }
 
       /* If the next character is to be accepted verbatim, a backslash
         newline pair still disappears from the input. */
@@ -419,9 +435,9 @@ read_builtin (list)
     {
       var = find_variable (arrayname);
       if (var == 0)
-        var = make_new_array_variable (arrayname);
+       var = make_new_array_variable (arrayname);
       else if (array_p (var) == 0)
-        var = convert_var_to_array (var);
+       var = convert_var_to_array (var);
 
       empty_array (array_cell (var));
 
@@ -441,7 +457,8 @@ read_builtin (list)
      so that `read x ; echo "$x"' and `read ; echo "$REPLY"' behave the
      same way, but I believe that the difference in behaviors is useful
      enough to not do it.  Without the bash behavior, there is no way
-     to read a line completely without interpretation or modification.
+     to read a line completely without interpretation or modification
+     unless you mess with $IFS (e.g., setting it to the empty string).
      If you disagree, change the occurrences of `#if 0' to `#if 1' below. */
   if (list == 0)
     {
@@ -462,11 +479,8 @@ read_builtin (list)
       else
        var = bind_variable ("REPLY", input_string);
       VUNSETATTR (var, att_invisible);
-#if 0
-      free (orig_input_string);
-#else
+
       free (input_string);
-#endif
       return (retval);
     }
 
@@ -572,10 +586,10 @@ bind_read_variable (name, value)
     {
 #if 0
       if (legal_identifier (name) == 0)
-        {
+       {
          builtin_error ("`%s': not a valid identifier", name);
          return ((SHELL_VAR *)NULL);
-        }
+       }
 #endif
       return (bind_variable (name, value));
     }
index fd7dc993fb1fba6359c68eb1bcaef9fd058fef85..700b5188ab8480cacf8ceab7dda460cc1b517f05 100644 (file)
@@ -52,7 +52,7 @@ $PRODUCES set.c
 extern int interactive;
 extern int noclobber, posixly_correct, ignoreeof, eof_encountered_limit;
 #if defined (READLINE)
-extern int rl_editing_mode, no_line_editing;
+extern int no_line_editing;
 #endif /* READLINE */
 
 $BUILTIN set
@@ -224,9 +224,9 @@ minus_o_option_value (name)
   for (i = 0; binary_o_options[i].name; i++)
     {
       if (STREQ (name, binary_o_options[i].name))
-        return (GET_BINARY_O_OPTION_VALUE (i, name));
+       return (GET_BINARY_O_OPTION_VALUE (i, name));
     }
-        
+
   return (-1);
 }
 
@@ -256,13 +256,13 @@ list_minus_o_opts (mode, reusable)
       if (on_or_off == FLAG_UNKNOWN)
        on_or_off = &value;
       if (mode == -1 || mode == *on_or_off)
-        print_minus_o_option (o_options[i].name, *on_or_off, reusable);
+       print_minus_o_option (o_options[i].name, *on_or_off, reusable);
     }
   for (i = 0; binary_o_options[i].name; i++)
     {
       value = GET_BINARY_O_OPTION_VALUE (i, binary_o_options[i].name);
       if (mode == -1 || mode == value)
-        print_minus_o_option (binary_o_options[i].name, value, reusable);
+       print_minus_o_option (binary_o_options[i].name, value, reusable);
     }
 }
 
@@ -390,10 +390,10 @@ set_minus_o_option (on_or_off, option_name)
   for (i = 0, option_char = -1, set_func = 0; o_options[i].name; i++)
     {
       if (STREQ (option_name, o_options[i].name))
-        {
-          option_char = o_options[i].letter;
-          break;
-        }
+       {
+         option_char = o_options[i].letter;
+         break;
+       }
     }
   if (option_char == -1)
     {
@@ -420,11 +420,16 @@ print_all_shell_variables ()
       free (vars);
     }
 
-  vars = all_shell_functions ();
-  if (vars)
+  /* POSIX.2 does not allow function names and definitions to be output when
+     `set' is invoked without options (PASC Interp #202). */
+  if (posixly_correct == 0)
     {
-      print_var_list (vars);
-      free (vars);
+      vars = all_shell_functions ();
+      if (vars)
+       {
+         print_func_list (vars);
+         free (vars);
+       }
     }
 }
 
@@ -533,14 +538,16 @@ initialize_shell_options (no_shellopts)
   set_shellopts ();
 }
 
-/* Reset the values of the -o options that are not also shell flags. */
+/* Reset the values of the -o options that are not also shell flags.  This is
+   called from execute_cmd.c:initialize_subshell() when setting up a subshell
+   to run an executable shell script without a leading `#!'. */
 void
 reset_shell_options ()
 {
 #if defined (HISTORY)
   remember_on_history = 1;
 #endif
-  ignoreeof = posixly_correct = 0;
+  ignoreeof = 0;
 }
 
 /* Set some flags from the word values in the input list.  If LIST is empty,
@@ -695,8 +702,7 @@ For each NAME, remove the corresponding variable or function.  Given
 the `-v', unset will only act on variables.  Given the `-f' flag,
 unset will only act on functions.  With neither flag, unset first
 tries to unset a variable, and if that fails, then tries to unset a
-function.  Some variables (such as PATH and IFS) cannot be unset; also
-see readonly.
+function.  Some variables cannot be unset; also see readonly.
 $END
 
 #define NEXT_VARIABLE()        any_failed++; list = list->next; continue;
@@ -758,10 +764,10 @@ unset_builtin (list)
         to be created when not in posix mode, so check only when in posix
         mode when unsetting a function. */
       if (((unset_function && posixly_correct) || !unset_function) && legal_identifier (name) == 0)
-        {
-          builtin_error ("`%s': not a valid identifier", name);
-          NEXT_VARIABLE ();
-        }
+       {
+         builtin_error ("`%s': not a valid identifier", name);
+         NEXT_VARIABLE ();
+       }
 
       var = unset_function ? find_function (name) : find_variable (name);
 
index 8112cf68aa712582ed1fb6ccc8d47fdfdd2d6c71..2e3ad84279fc883be4bb5271beea6a5529bb44c2 100644 (file)
@@ -169,7 +169,7 @@ set_or_show_attributes (list, attribute, nodefs)
          /* xxx [-np] name[=value] */
          assign = assignment (name);
 
-          if (assign)
+         if (assign)
            name[assign] = '\0';
 
          if (legal_identifier (name) == 0)
@@ -233,11 +233,11 @@ set_or_show_attributes (list, attribute, nodefs)
 
 #if defined (ARRAY_VARS)
       if (attribute & att_array)
-        {
-          arrays_only++;
-          if (attribute != att_array)
+       {
+         arrays_only++;
+         if (attribute != att_array)
            attribute &= ~att_array;
-        }
+       }
 #endif
 
       if (variable_list)
@@ -246,7 +246,7 @@ set_or_show_attributes (list, attribute, nodefs)
            {
 #if defined (ARRAY_VARS)
              if (arrays_only && array_p (var) == 0)
-               continue;
+               continue;
 #endif
              if ((var->attributes & attribute) && invisible_p (var) == 0)
                show_var_attributes (var, READONLY_OR_EXPORT, nodefs);
@@ -285,16 +285,16 @@ show_var_attributes (var, pattr, nodefs)
 #endif
 
       if (function_p (var))
-        flags[i++] = 'f';
+       flags[i++] = 'f';
 
       if (integer_p (var))
-        flags[i++] = 'i';
+       flags[i++] = 'i';
 
       if (readonly_p (var))
-        flags[i++] = 'r';
+       flags[i++] = 'r';
 
       if (exported_p (var))
-        flags[i++] = 'x';
+       flags[i++] = 'x';
     }
   else
     {
@@ -304,7 +304,7 @@ show_var_attributes (var, pattr, nodefs)
 #endif
 
       if (function_p (var))
-        flags[i++] = 'f';
+       flags[i++] = 'f';
     }
 
   flags[i] = '\0';
@@ -329,7 +329,7 @@ show_var_attributes (var, pattr, nodefs)
     printf ("%s\n", named_function_string (var->name, function_cell (var), 1));
   else
     {
-      x = double_quote (value_cell (var) ? value_cell (var) : "");
+      x = sh_double_quote (value_cell (var) ? value_cell (var) : "");
       printf ("%s=%s\n", var->name, x);
       free (x);
     }
index 550b7f61267b8744bf2c35e955e6198017b5a230..138b88d2a0583fd31c88129a811c6fd7b0eb23ae 100644 (file)
@@ -332,8 +332,9 @@ list_shopts (list, flags)
       if (val == 0)
        rval = EXECUTION_FAILURE;
       if ((flags & QFLAG) == 0)
-        print_shopt (l->word->word, val, flags);
+       print_shopt (l->word->word, val, flags);
     }
+
   return (rval);
 }
 
index 2da47a16a81baa506faa1659a9952e203c3aadab..f9086f8164a6ebed2674ccd488a55f943b5c319e 100644 (file)
@@ -67,15 +67,20 @@ extern int restricted;
 /* If non-zero, `.' uses $PATH to look up the script to be sourced. */
 int source_uses_path = 1;
 
+/* If non-zero, `.' looks in the current directory if the filename argument
+   is not found in the $PATH. */
+int source_searches_cwd = 1;
+
 /* If this . script is supplied arguments, we save the dollar vars and
    replace them with the script arguments for the duration of the script's
    execution.  If the script does not change the dollar vars, we restore
-   what we saved.  If the dollar vars are changed in the script, we leave
-   the new values alone and free the saved values. */
+   what we saved.  If the dollar vars are changed in the script, and we are
+   not executing a shell function, we leave the new values alone and free
+   the saved values. */
 static void
 maybe_pop_dollar_vars ()
 {
-  if (dollar_vars_changed ())
+  if (variable_context == 0 && dollar_vars_changed ())
     {
       dispose_saved_dollar_vars ();
       set_dollar_vars_unchanged ();
@@ -117,7 +122,15 @@ source_builtin (list)
   if (source_uses_path)
     filename = find_path_file (list->word->word);
   if (filename == 0)
-    filename = savestring (list->word->word);
+    {
+      if (source_searches_cwd == 0)
+       {
+         builtin_error ("%s: file not found", list->word->word);
+         return (EXECUTION_FAILURE);
+       }
+      else
+       filename = savestring (list->word->word);
+    }
 
   begin_unwind_frame ("source");
   add_unwind_protect ((Function *)xfree, filename);
index 8bba165d245a85742738b96f1d4153cf8e37b501..8503035c94596beb4689346d84ced88a189c826a 100644 (file)
@@ -79,7 +79,7 @@ static int display_traps ();
 #define REVERT 1               /* Revert to this signals original value. */
 #define IGNORE 2               /* Ignore this signal. */
 
-extern int interactive;
+extern int interactive, posixly_correct;
 
 int
 trap_builtin (list)
@@ -201,12 +201,19 @@ showtrap (i)
   if (p == (char *)DEFAULT_SIG)
     return;
 
-  t = (p == (char *)IGNORE_SIG) ? (char *)NULL : single_quote (p);
+  t = (p == (char *)IGNORE_SIG) ? (char *)NULL : sh_single_quote (p);
   sn = signal_name (i);
   /* Make sure that signals whose names are unknown (for whatever reason)
      are printed as signal numbers. */
   if (STREQN (sn, "SIGJUNK", 7) || STREQN (sn, "unknown", 7))
     printf ("trap -- %s %d\n", t ? t : "''", i);
+  else if (posixly_correct)
+    {
+      if (STREQN (sn, "SIG", 3))
+       printf ("trap -- %s %s\n", t ? t : "''", sn+3);
+      else
+       printf ("trap -- %s %s\n", t ? t : "''", sn);
+    }
   else
     printf ("trap -- %s %s\n", t ? t : "''", sn);
 
index 9a4ef0d60549fb8dfb3d77457f17623865eb6cbd..a60db0aacb589667529df3cc1b599d551a6d5ded 100644 (file)
@@ -123,12 +123,12 @@ type_builtin (list)
          type_only = 0;
        }
       else if (STREQ (flag, "all") || STREQ (flag, "-all"))
-        all = 1;
+       all = 1;
       else
        {
-          prev = this;
-          this = this->next;
-          continue;
+         prev = this;
+         this = this->next;
+         continue;
        }
 
       /* We found a long option; remove it from the argument list.  Don't
@@ -234,7 +234,7 @@ describe_command (command, verbose, all)
        printf ("%s is aliased to `%s'\n", command, alias->value);
       else if (verbose == 4)
        {
-         x = single_quote (alias->value);
+         x = sh_single_quote (alias->value);
          printf ("alias %s=%s\n", command, x);
          free (x);
        }
@@ -317,7 +317,7 @@ describe_command (command, verbose, all)
     {
       f = file_status (command);
       if (f & FS_EXECABLE)
-        {
+       {
          if (verbose == 1)
            puts ("file");
          else if (verbose == 2)
@@ -329,7 +329,7 @@ describe_command (command, verbose, all)
             because they're not consulted when an absolute program
             name is supplied. */
          return (1);
-        }
+       }
     }
 
   /* If the user isn't doing "-a", then we might care about
index e57e76de3d97c2657a4c00fbc72d154728e33df7..a9d5d6a433dcb79936dcae92f571de2d93bc0c5e 100644 (file)
@@ -201,6 +201,9 @@ static RESOURCE_LIMITS limits[] = {
   { 'u',       RLIMIT_MAXUPROC, 1, "max user processes" },
 #if defined (HAVE_RESOURCE)
   { 'v',       RLIMIT_VIRTMEM, RLIMIT_VMBLKSZ, "virtual memory (kbytes)" },
+#endif
+#ifdef RLIMIT_SWAP
+  { 'w',       RLIMIT_SWAP,    1024,   "swap size (kbytes)" },
 #endif
   { -1, -1, -1, (char *)NULL }
 };
@@ -476,7 +479,13 @@ set_limit (ind, newlim, mode)
 
       case RLIMIT_OPENFILES:
 #if defined (HAVE_SETDTABLESIZE)
+#  if defined (__CYGWIN__)
+       /* Grrr... Cygwin declares setdtablesize as void. */
+       setdtablesize (newlim);
+       return 0;
+#  else
        return (setdtablesize (newlim));
+#  endif
 #endif
       case RLIMIT_PIPESIZE:
       case RLIMIT_VIRTMEM:
@@ -495,6 +504,7 @@ set_limit (ind, newlim, mode)
        newlim /= 512;                          /* Ugh. */
 #  endif /* HPUX9 */
       val = (current_user.euid != 0 && newlim == RLIM_INFINITY &&
+              (mode & LIMIT_HARD) == 0 &&              /* XXX -- test */
               (limit.rlim_cur <= limit.rlim_max))
                 ? limit.rlim_max : newlim;
       if (mode & LIMIT_SOFT)
index 9205c94ae22cd062b6a2b22836d7b584e2f96d9a..1c1591e05def7b2fa76497df800babaccbaaf8f7 100644 (file)
@@ -188,7 +188,7 @@ parse_symbolic_mode (mode, initial_bits)
 
       /* Parse the `who' portion of the symbolic mode clause. */
       while (member (*s, "agou"))
-        {
+       {
          switch (c = *s++)
            {
            case 'u':
index 2e3fac5776241fd1c000be822b221d000b4f99a8..5154a776d3221389e8bd55e5233fdcb305bff0fb 100644 (file)
@@ -66,21 +66,27 @@ procenv_t wait_intr_buf;
    0.  If a list of pids or job specs are given, return the exit status of
    the last one waited for. */
 
-#define WAIT_RETURN(s) do { run_unwind_frame ("wait_builtin"); return (s); } while (0)
+#define WAIT_RETURN(s) \
+  do \
+    { \
+      interrupt_immediately = old_interrupt_immediately;\
+      return (s);\
+    } \
+  while (0)
 
 int
 wait_builtin (list)
      WORD_LIST *list;
 {
   int status, code;
+  volatile int old_interrupt_immediately;
 
   if (no_options (list))
     return (EX_USAGE);
   if (list != loptend)
     list = loptend;
 
-  begin_unwind_frame ("wait_builtin");
-  unwind_protect_int (interrupt_immediately);
+  old_interrupt_immediately = interrupt_immediately;
   interrupt_immediately++;
 
   /* POSIX.2 says:  When the shell is waiting (by means of the wait utility)
index 72fc3916fbe8ce35dea4d15d7360e38ba8285554..ad286c4d02e9411a81f1fdc2f7d9e087771827d0 100644 (file)
--- a/command.h
+++ b/command.h
@@ -39,6 +39,9 @@ enum r_instruction {
 #define RESTRICTED_REDIRECT -3 /* can only happen in restricted shells. */
 #define HEREDOC_REDIRECT    -4  /* here-doc temp file can't be created */
 
+#define CLOBBERING_REDIRECT(ri) \
+  (ri == r_output_direction || ri == r_err_and_out)
+
 #define OUTPUT_REDIRECT(ri) \
   (ri == r_output_direction || ri == r_input_output || ri == r_err_and_out)
 
@@ -64,12 +67,14 @@ enum command_type { cm_for, cm_case, cm_while, cm_if, cm_simple, cm_select,
 #define W_GLOBEXP      0x08    /* This word is the result of a glob expansion. */
 #define W_NOSPLIT      0x10    /* Do not perform word splitting on this word. */
 #define W_NOGLOB       0x20    /* Do not perform globbing on this word. */
+#define W_NOSPLIT2     0x40    /* Don't split word except for $@ expansion. */
 
 /* Possible values for subshell_environment */
 #define SUBSHELL_ASYNC 0x01    /* subshell caused by `command &' */
 #define SUBSHELL_PAREN 0x02    /* subshell caused by ( ... ) */
 #define SUBSHELL_COMSUB        0x04    /* subshell caused by `command` or $(command) */
 #define SUBSHELL_FORK  0x08    /* subshell caused by executing a disk command */
+#define SUBSHELL_PIPE  0x10    /* subshell from a pipeline element */
 
 /* A structure which represents a word. */
 typedef struct word_desc {
index 3091533a809760c8b0bb88c2278bf9cb2b4866c7..cf10140c678dfbddecf5aa37ee062e6e35bd9192 100644 (file)
@@ -1,4 +1,4 @@
-/* config.h.bot */
+/* config-bot.h */
 /* modify settings or make new ones based on what autoconf tells us. */
 
 #if !defined (HAVE_VPRINTF) && defined (HAVE_DOPRNT)
index c78ee8046f042c4f552bd03941c0deb52f7066bc..ee7b9abd2aecd7f4f83e1662da1b2e053134f143 100644 (file)
@@ -1,4 +1,4 @@
-/* config.h.top */
+/* config-top.h */
 
 /* This contains various user-settable options not under the control of
    autoconf. */
index 9b4c60760db0977e87c916e476a0221c915b4c25..3d43591a3562e491ddb25f499e3de5fbe0884a00 100644 (file)
 
 /* Beginning of autoconf additions. */
 
+#define DEFAULT_MAIL_DIRECTORY "/usr/spool/mail"
+
+/* Memory management functions. */
+
 /* Define if using the bash version of malloc in lib/malloc/malloc.c */
 #undef USING_BASH_MALLOC
 
    This function is required for alloca.c support on those systems.  */
 #undef CRAY_STACKSEG_END
 
-/* Define to the type of elements in the array set by `getgroups'.
-   Usually this is either `int' or `gid_t'.  */
-#undef GETGROUPS_T
-
-/* Define if the `getpgrp' function takes no argument.  */
-#undef GETPGRP_VOID
-
-/* Define to `int' if <sys/types.h> doesn't define.  */
-#undef gid_t
-
 /* Define if you have alloca, as a function or macro.  */
 #undef HAVE_ALLOCA
 
 /* Define if you have <alloca.h> and it should be used (not on Ultrix).  */
 #undef HAVE_ALLOCA_H
 
-/* Define if you don't have vprintf but do have _doprnt.  */
-#undef HAVE_DOPRNT
-
-/* Define if system calls automatically restart after interruption
-   by a signal.  */
-#undef HAVE_RESTARTABLE_SYSCALLS
-
-/* Define if you have <sys/wait.h> that is POSIX.1 compatible.  */
-#undef HAVE_SYS_WAIT_H
-
-/* Define if you have <sys/time.h> */
-#undef HAVE_SYS_TIME_H
-
-#undef TIME_WITH_SYS_TIME
-
-#undef HAVE_SYS_TIMES_H
-
-/* Define if you have the vprintf function.  */
-#undef HAVE_VPRINTF
-
-#undef HAVE_WAIT3
-
-#undef HAVE_SETOSTYPE
 
-/* Define if on MINIX.  */
-#undef _MINIX
+/* SYSTEM TYPES */
 
 /* The number of bytes in a int.  */
 #undef SIZEOF_INT
 /* Define to `long' if <sys/types.h> doesn't define.  */
 #undef time_t
 
+/* Define to `int' if <sys/types.h> doesn't define.  */
+#undef gid_t
+
+/* Define if you have quad_t in <sys/types.h>. */
+#undef HAVE_QUAD_T
+
+#undef RLIMTYPE
+
+/* Define to the type of elements in the array set by `getgroups'.
+   Usually this is either `int' or `gid_t'.  */
+#undef GETGROUPS_T
+
 /* Define if the system does not provide POSIX.1 features except
    with this defined.  */
 #undef _POSIX_1_SOURCE
 /* Define if you need to in order for stat and other things to work.  */
 #undef _POSIX_SOURCE
 
-/* Define as the return type of signal handlers (int or void).  */
-#undef RETSIGTYPE
-
-/* Define if the setvbuf function takes the buffering type as its second
-   argument and the buffer pointer as the third, as on System V
-   before release 3.  */
-#undef SETVBUF_REVERSED
+/* Characteristics of the machine archictecture. */
 
 /* If using the C implementation of alloca, define if you know the
    direction of stack growth for your system; otherwise it will be
  */
 #undef STACK_DIRECTION
 
+/* Define if the machine architecture is big-endian. */
+#undef WORDS_BIGENDIAN
+
 /* Define if you have the ANSI C header files.  */
 #undef STDC_HEADERS
 
+/* Check for the presence of certain non-function symbols in the system
+   libraries. */
+
 /* Define if `sys_siglist' is declared by <signal.h> or <unistd.h>.  */
 #undef SYS_SIGLIST_DECLARED
 
 /* Define if `_sys_siglist' is declared by <signal.h> or <unistd.h>.  */
 #undef UNDER_SYS_SIGLIST_DECLARED
 
-#undef DUP2_BROKEN
+#undef HAVE_SYS_SIGLIST
 
-#undef HAVE_GETHOSTBYNAME
+#undef HAVE_UNDER_SYS_SIGLIST
 
-#undef HAVE_INET_ATON
+#undef HAVE_SYS_ERRLIST
 
-#undef HAVE_GETRLIMIT
+#undef HAVE_TIMEVAL
 
-#undef HAVE_GETRUSAGE
 
-#undef HAVE_GETTIMEOFDAY
+/* Characteristics of some of the system structures. */
 
-#undef GWINSZ_IN_SYS_IOCTL
+#undef STRUCT_DIRENT_HAS_D_INO
+
+#undef STRUCT_DIRENT_HAS_D_FILENO
 
 #undef TIOCSTAT_IN_SYS_IOCTL
 
 #undef FIONREAD_IN_SYS_IOCTL
 
-#undef WORDS_BIGENDIAN
+#undef GWINSZ_IN_SYS_IOCTL
 
-#undef HAVE_HASH_BANG_EXEC
+#undef STRUCT_WINSIZE_IN_SYS_IOCTL
 
-#undef HAVE_BSD_SIGNALS
+#undef STRUCT_WINSIZE_IN_TERMIOS
 
-#undef HAVE_POSIX_SIGNALS
+#undef SPEED_T_IN_SYS_TYPES
 
-#undef HAVE_USG_SIGHOLD
+#undef TERMIOS_LDISC
 
-#undef HAVE_DEV_FD
+#undef TERMIO_LDISC
 
-#undef DEV_FD_PREFIX
 
-#undef HAVE_DEV_STDIN
+/* Characteristics of definitions in the system header files. */
 
 #undef HAVE_GETPW_DECLS
 
-#undef HAVE_QUAD_T
-
 #undef HAVE_RESOURCE
 
-#undef HAVE_STRSIGNAL
-
-#undef HAVE_SYS_ERRLIST
-
-#undef STAT_MACROS_BROKEN
+#undef SBRK_DECLARED
 
-#undef HAVE_TIMEVAL
+#undef PRINTF_DECLARED
 
-#undef HAVE_MEMMOVE
+/* Characteristics of system calls and C library functions. */
 
-#undef HAVE_MKFIFO
+/* Define if the `getpgrp' function takes no argument.  */
+#undef GETPGRP_VOID
 
 #undef NAMED_PIPES_MISSING
 
 
 #undef PGRP_PIPE
 
-#undef RLIMTYPE
+/* Define if the setvbuf function takes the buffering type as its second
+   argument and the buffer pointer as the third, as on System V
+   before release 3.  */
+#undef SETVBUF_REVERSED
 
-#undef SBRK_DECLARED
+#undef STAT_MACROS_BROKEN
 
-#undef PRINTF_DECLARED
+#undef ULIMIT_MAXFDS
 
-#undef HAVE_SYS_SIGLIST
+#undef CAN_REDEFINE_GETENV
 
-#undef HAVE_TIMES
 
-#undef HAVE_UNDER_SYS_SIGLIST
+/* Characteristics of properties exported by the kernel. */
 
-#undef VOID_SIGHANDLER
+/* Define if the kernel can exec files beginning with #! */
+#undef HAVE_HASH_BANG_EXEC
 
-#undef TERMIOS_LDISC
+/* Define if you have the /dev/fd devices to map open files into the file system. */
+#undef HAVE_DEV_FD
 
-#undef TERMIO_LDISC
+/* Defined to /dev/fd or /proc/self/fd (linux). */
+#undef DEV_FD_PREFIX
 
-#undef ULIMIT_MAXFDS
+/* Define if you have the /dev/stdin device. */
+#undef HAVE_DEV_STDIN
 
-#undef GETCWD_BROKEN
 
-#undef STRUCT_DIRENT_HAS_D_INO
+/* Type and behavior of signal handling functions. */
 
-#undef STRUCT_DIRENT_HAS_D_FILENO
+/* Define as the return type of signal handlers (int or void).  */
+#undef RETSIGTYPE
 
-#undef STRUCT_WINSIZE_IN_SYS_IOCTL
+/* Define if return type of signal handlers is void */
+#undef VOID_SIGHANDLER
 
-#undef STRUCT_WINSIZE_IN_TERMIOS
+#undef MUST_REINSTALL_SIGHANDLERS
 
-#undef SPEED_T_IN_SYS_TYPES
+/* Define if system calls automatically restart after interruption
+   by a signal.  */
+#undef HAVE_RESTARTABLE_SYSCALLS
 
-#undef CAN_REDEFINE_GETENV
+#undef HAVE_BSD_SIGNALS
 
-#undef MUST_REINSTALL_SIGHANDLERS
+#undef HAVE_POSIX_SIGNALS
 
-#undef JOB_CONTROL_MISSING
+#undef HAVE_USG_SIGHOLD
 
-#undef HAVE_POSIX_SIGSETJMP
+#undef UNUSABLE_RT_SIGNALS
 
-#define DEFAULT_MAIL_DIRECTORY "/usr/spool/mail"
+
+/* Presence of system and C library functions. */
 
 /* Define if you have the bcopy function.  */
 #undef HAVE_BCOPY
 
+/* Define if you have the bindtextdomain function.  */
+#undef HAVE_BINDTEXTDOMAIN
+
 /* Define if you have the bzero function.  */
 #undef HAVE_BZERO
 
 /* Define if you have the dlsym function.  */
 #undef HAVE_DLSYM
 
+/* Define if you don't have vprintf but do have _doprnt.  */
+#undef HAVE_DOPRNT
+
 /* Define if you have the dup2 function.  */
 #undef HAVE_DUP2
 
 /* Define if you have the getgroups function.  */
 #undef HAVE_GETGROUPS
 
+/* Define if you have the gethostbyname function.  */
+#undef HAVE_GETHOSTBYNAME
+
 /* Define if you have the gethostname function.  */
 #undef HAVE_GETHOSTNAME
 
 /* Define if you have the getpeername function.  */
 #undef HAVE_GETPEERNAME
 
+/* Define if you have the getrlimit function.  */
+#undef HAVE_GETRLIMIT
+
+/* Define if you have the getrusage function.  */
+#undef HAVE_GETRUSAGE
+
+/* Define if you have the getservbyname function.  */
+#undef HAVE_GETSERVBYNAME
+
+/* Define if you have the gettext function. */
+#undef HAVE_GETTEXT
+
+/* Define if you have the gettimeofday function.  */
+#undef HAVE_GETTIMEOFDAY
+
 /* Define if you have the getwd function.  */
 #undef HAVE_GETWD
 
+/* Define if you have the inet_aton function.  */
+#undef HAVE_INET_ATON
+
 /* Define if you have the killpg function.  */
 #undef HAVE_KILLPG
 
 /* Define if you have the lstat function. */
 #undef HAVE_LSTAT
 
+/* Define if you have the memmove function.  */
+#undef HAVE_MEMMOVE
+
+/* Define if you have the mkfifo function.  */
+#undef HAVE_MKFIFO
+
+/* Define if you have the pathconf function. */
+#undef HAVE_PATHCONF
+
 /* Define if you have the putenv function.  */
 #undef HAVE_PUTENV
 
+/* Define if you have the readlink function. */
+#undef HAVE_READLINK
+
 /* Define if you have the rename function. */
 #undef HAVE_RENAME
 
 /* Define if you have the setlocale function.  */
 #undef HAVE_SETLOCALE
 
+/* Define if you have the setostype function.  */
+#undef HAVE_SETOSTYPE
+
 /* Define if you have the setvbuf function.  */
 #undef HAVE_SETVBUF
 
 /* Define if you have the siginterrupt function.  */
 #undef HAVE_SIGINTERRUPT
 
+/* Define if you have the POSIX.1-style sigsetjmp function.  */
+#undef HAVE_POSIX_SIGSETJMP
+
 /* Define if you have the strcasecmp function.  */
 #undef HAVE_STRCASECMP
 
 /* Define if you have the strchr function.  */
 #undef HAVE_STRCHR
 
+/* Define if you have the strcoll function.  */
+#undef HAVE_STRCOLL
+
 /* Define if you have the strerror function.  */
 #undef HAVE_STRERROR
 
 /* Define if you have the strtoul function. */
 #undef HAVE_STRTOUL
 
-/* Define if you have the tcgetattr function.  */
-#undef HAVE_TCGETATTR
+/* Define if you have the strsignal function or macro. */
+#undef HAVE_STRSIGNAL
 
 /* Define if you have the sysconf function. */
 #undef HAVE_SYSCONF
 
-/* Define if you have the uname function. */
-#undef HAVE_UNAME
+/* Define if you have the tcgetattr function.  */
+#undef HAVE_TCGETATTR
 
-/* Define if you have the ulimit function. */
-#undef HAVE_ULIMIT
+/* Define if you have the tcgetpgrp function.  */
+#undef HAVE_TCGETPGRP
+
+/* Define if you have the textdomain function.  */
+#undef HAVE_TEXTDOMAIN
+
+/* Define if you have the times function.  */
+#undef HAVE_TIMES
 
+/* Define if you have the ttyname function.  */
 #undef HAVE_TTYNAME
 
-#undef HAVE_WAITPID
+/* Define if you have the tzset function. */
+#undef HAVE_TZSET
 
-#undef HAVE_TCGETPGRP
+/* Define if you have the ulimit function. */
+#undef HAVE_ULIMIT
 
-#undef HAVE_GETTEXT
+/* Define if you have the uname function. */
+#undef HAVE_UNAME
 
-#undef HAVE_TEXTDOMAIN
+/* Define if you have the vprintf function.  */
+#undef HAVE_VPRINTF
 
-#undef HAVE_BINDTEXTDOMAIN
+/* Define if you have the waitpid function. */
+#undef HAVE_WAITPID
 
-#undef HAVE_STRCOLL
+/* Define if you have the wait3 function.  */
+#undef HAVE_WAIT3
 
-#undef HAVE_TZSET
+
+/* Presence of certain system include files. */
+
+/* Define if you have the <arpa/inet.h> header file. */
+#undef HAVE_ARPA_INET_H
 
 /* Define if you have the <dirent.h> header file.  */
 #undef HAVE_DIRENT_H
 /* Define if you have the <dlfcn.h> header file.  */
 #undef HAVE_DLFCN_H
 
+/* Define if you have the <libintl.h> header file. */
+#undef HAVE_LIBINTL_H
+
 /* Define if you have the <limits.h> header file.  */
 #undef HAVE_LIMITS_H
 
 /* Define if you have the <ndir.h> header file.  */
 #undef HAVE_NDIR_H
 
+/* Define if you have the <netdh.h> header file. */
+#undef HAVE_NETDB_H
+
+/* Define if you have the <netinet/in.h> header file. */
+#undef HAVE_NETINET_IN_H
+
 /* Define if you have the <stdlib.h> header file.  */
 #undef HAVE_STDLIB_H
 
 /* Define if you have the <memory.h> header file.  */
 #undef HAVE_MEMORY_H
 
+/* Define if you have the <stddef.h> header file. */
+#undef HAVE_STDDEF_H
+
 /* Define if you have the <sys/dir.h> header file.  */
 #undef HAVE_SYS_DIR_H
 
 /* Define if you have the <sys/stream.h> header file.  */
 #undef HAVE_SYS_STREAM_H
 
+/* Define if you have <sys/time.h> */
+#undef HAVE_SYS_TIME_H
+
+#undef TIME_WITH_SYS_TIME
+
+/* Define if you have <sys/times.h> */
+#undef HAVE_SYS_TIMES_H
+
+/* Define if you have <sys/wait.h> that is POSIX.1 compatible.  */
+#undef HAVE_SYS_WAIT_H
+
 /* Define if you have the <termcap.h> header file.  */
 #undef HAVE_TERMCAP_H
 
 /* Define if you have the <varargs.h> header file.  */
 #undef HAVE_VARARGS_H
 
-/* Define if you have the <libintl.h> header file. */
-#undef HAVE_LIBINTL_H
-
-/* Define if you have the <stddef.h> header file. */
-#undef HAVE_STDDEF_H
-
-/* Define if you have the <netdh.h> header file. */
-#undef HAVE_NETDB_H
-
-/* Define if you have the <netinet/in.h> header file. */
-#undef HAVE_NETINET_IN_H
-
-/* Define if you have the <arpa/inet.h> header file. */
-#undef HAVE_ARPA_INET_H
+/* Presence of certain system libraries. */
 
 #undef HAVE_LIBDL
 
 
 #undef HAVE_LIBSOCKET
 
+
+/* Define if on MINIX.  */
+#undef _MINIX
+
 /* Are we running SVR5 (UnixWare 7)? */
 #undef SVR5
 
 /* Are we running some version of SVR4? */
 #undef SVR4
 
+/* Define if job control is unusable or unsupported. */
+#undef JOB_CONTROL_MISSING
+
 /* Do we need to define _KERNEL to get the RLIMIT_* defines from
    <sys/resource.h>? */
 #undef RLIMIT_NEEDS_KERNEL
 /* Do strcoll(3) and strcmp(3) give different results in the default locale? */
 #undef STRCOLL_BROKEN
 
+#undef DUP2_BROKEN
+
+#undef GETCWD_BROKEN
+
 #include "config-bot.h"
 
 #endif /* _CONFIG_H_ */
index 838c861bd9af34138e89115e0fcaafaa1c5b6872..be2d7103a20314109c80d1b9288cae8225a64d5b 100755 (executable)
--- a/configure
+++ b/configure
@@ -1,6 +1,8 @@
 #! /bin/sh
 
-# From configure.in for Bash 2.04, version 2.77, from autoconf version 2.13
+# From configure.in for Bash 2.05, version 2.90, from autoconf version 2.13
+
+
 
 
 
@@ -721,7 +723,7 @@ else { echo "configure: error: can not run $ac_config_sub" 1>&2; exit 1; }
 fi
 
 echo $ac_n "checking host system type""... $ac_c" 1>&6
-echo "configure:725: checking host system type" >&5
+echo "configure:727: checking host system type" >&5
 
 host_alias=$host
 case "$host_alias" in
@@ -754,7 +756,7 @@ opt_with_installed_readline=no
 
 case "${host_cpu}-${host_os}" in
 alpha*-*)      opt_bash_malloc=no ;;   # alpha running osf/1 or linux
-*Ccray*-*)     opt_bash_malloc=no ;;   # Crays
+*[Cc]ray*-*)   opt_bash_malloc=no ;;   # Crays
 *-osf1*)       opt_bash_malloc=no ;;   # other osf/1 machines
 sparc-svr4*)   opt_bash_malloc=no ;;   # sparc SVR4, SVR4.2
 sparc-netbsd*) opt_bash_malloc=no ;;   # needs 8-byte alignment
@@ -764,13 +766,16 @@ sparc-linux*)     opt_bash_malloc=no ;;   # sparc running linux; requires ELF
 #*-freebsd*)   opt_bash_malloc=no ;;   # they claim it's better
 *-aix*)                opt_bash_malloc=no ;;   # AIX machines
 *-nextstep*)   opt_bash_malloc=no ;;   # NeXT machines running NeXTstep
-*-rhapsody*)   opt_bash_malloc=no ;;   # Apple Rhapsody
+*-macos*)      opt_bash_malloc=no ;;   # Apple MacOS X
+*-rhapsody*)   opt_bash_malloc=no ;;   # Apple Rhapsody (MacOS X)
+*-darwin*)     opt_bash_malloc=no ;;   # Apple Darwin (MacOS X)
 *-dgux*)       opt_bash_malloc=no ;;   # DG/UX machines
 *-qnx*)                opt_bash_malloc=no ;;   # QNX 4.2
 *-machten4)    opt_bash_malloc=no ;;   # MachTen 4.x
 *-bsdi2.1|*-bsdi3.?)   opt_bash_malloc=no ; : ${CC:=shlicc2} ;; # for loadable builtins
 *-beos*)       opt_bash_malloc=no ;;   # they say it's suitable
-*-cygwin32*)   opt_bash_malloc=no ;;   # Cygnus's CYGWIN32 environment
+*-cygwin*)     opt_bash_malloc=no ;;   # Cygnus's CYGWIN environment
+*-opennt*|*-interix*)  opt_bash_malloc=no ;;   # Interix, now owned by Microsoft
 esac
 
 # Check whether --with-afs or --without-afs was given.
@@ -1179,7 +1184,7 @@ fi
 
 
 
-BASHVERS=2.04
+BASHVERS=2.05
 BASHPATCH=0
 
 echo "Beginning configuration for bash-$BASHVERS for ${host_cpu}-${host_vendor}-${host_os}"
@@ -1187,7 +1192,7 @@ echo "Beginning configuration for bash-$BASHVERS for ${host_cpu}-${host_vendor}-
 # Extract the first word of "gcc", so it can be a program name with args.
 set dummy gcc; ac_word=$2
 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
-echo "configure:1191: checking for $ac_word" >&5
+echo "configure:1196: checking for $ac_word" >&5
 if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -1217,7 +1222,7 @@ if test -z "$CC"; then
   # Extract the first word of "cc", so it can be a program name with args.
 set dummy cc; ac_word=$2
 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
-echo "configure:1221: checking for $ac_word" >&5
+echo "configure:1226: checking for $ac_word" >&5
 if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -1268,7 +1273,7 @@ fi
       # Extract the first word of "cl", so it can be a program name with args.
 set dummy cl; ac_word=$2
 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
-echo "configure:1272: checking for $ac_word" >&5
+echo "configure:1277: checking for $ac_word" >&5
 if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -1300,7 +1305,7 @@ fi
 fi
 
 echo $ac_n "checking whether the C compiler ($CC $CFLAGS $LDFLAGS) works""... $ac_c" 1>&6
-echo "configure:1304: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) works" >&5
+echo "configure:1309: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) works" >&5
 
 ac_ext=c
 # CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options.
@@ -1311,12 +1316,12 @@ cross_compiling=$ac_cv_prog_cc_cross
 
 cat > conftest.$ac_ext << EOF
 
-#line 1315 "configure"
+#line 1320 "configure"
 #include "confdefs.h"
 
 main(){return(0);}
 EOF
-if { (eval echo configure:1320: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:1325: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   ac_cv_prog_cc_works=yes
   # If we can't run a trivial program, we are probably using a cross compiler.
   if (./conftest; exit) 2>/dev/null; then
@@ -1342,12 +1347,12 @@ if test $ac_cv_prog_cc_works = no; then
   { echo "configure: error: installation or configuration problem: C compiler cannot create executables." 1>&2; exit 1; }
 fi
 echo $ac_n "checking whether the C compiler ($CC $CFLAGS $LDFLAGS) is a cross-compiler""... $ac_c" 1>&6
-echo "configure:1346: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) is a cross-compiler" >&5
+echo "configure:1351: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) is a cross-compiler" >&5
 echo "$ac_t""$ac_cv_prog_cc_cross" 1>&6
 cross_compiling=$ac_cv_prog_cc_cross
 
 echo $ac_n "checking whether we are using GNU C""... $ac_c" 1>&6
-echo "configure:1351: checking whether we are using GNU C" >&5
+echo "configure:1356: checking whether we are using GNU C" >&5
 if eval "test \"`echo '$''{'ac_cv_prog_gcc'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -1356,7 +1361,7 @@ else
   yes;
 #endif
 EOF
-if { ac_try='${CC-cc} -E conftest.c'; { (eval echo configure:1360: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }; } | egrep yes >/dev/null 2>&1; then
+if { ac_try='${CC-cc} -E conftest.c'; { (eval echo configure:1365: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }; } | egrep yes >/dev/null 2>&1; then
   ac_cv_prog_gcc=yes
 else
   ac_cv_prog_gcc=no
@@ -1375,7 +1380,7 @@ ac_test_CFLAGS="${CFLAGS+set}"
 ac_save_CFLAGS="$CFLAGS"
 CFLAGS=
 echo $ac_n "checking whether ${CC-cc} accepts -g""... $ac_c" 1>&6
-echo "configure:1379: checking whether ${CC-cc} accepts -g" >&5
+echo "configure:1384: checking whether ${CC-cc} accepts -g" >&5
 if eval "test \"`echo '$''{'ac_cv_prog_cc_g'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -1407,7 +1412,7 @@ else
 fi
 
 echo $ac_n "checking whether large file support needs explicit enabling""... $ac_c" 1>&6
-echo "configure:1411: checking whether large file support needs explicit enabling" >&5
+echo "configure:1416: checking whether large file support needs explicit enabling" >&5
 ac_getconfs=''
 ac_result=yes
 ac_set=''
@@ -1440,7 +1445,7 @@ esac
 
 
 echo $ac_n "checking for POSIXized ISC""... $ac_c" 1>&6
-echo "configure:1444: checking for POSIXized ISC" >&5
+echo "configure:1449: checking for POSIXized ISC" >&5
 if test -d /etc/conf/kconfig.d &&
   grep _POSIX_VERSION /usr/include/sys/unistd.h >/dev/null 2>&1
 then
@@ -1461,7 +1466,7 @@ else
 fi
 
 echo $ac_n "checking how to run the C preprocessor""... $ac_c" 1>&6
-echo "configure:1465: checking how to run the C preprocessor" >&5
+echo "configure:1470: checking how to run the C preprocessor" >&5
 # On Suns, sometimes $CPP names a directory.
 if test -n "$CPP" && test -d "$CPP"; then
   CPP=
@@ -1476,13 +1481,13 @@ else
   # On the NeXT, cc -E runs the code through the compiler's parser,
   # not just through cpp.
   cat > conftest.$ac_ext <<EOF
-#line 1480 "configure"
+#line 1485 "configure"
 #include "confdefs.h"
 #include <assert.h>
 Syntax Error
 EOF
 ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:1486: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+{ (eval echo configure:1491: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
 ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
 if test -z "$ac_err"; then
   :
@@ -1493,13 +1498,13 @@ else
   rm -rf conftest*
   CPP="${CC-cc} -E -traditional-cpp"
   cat > conftest.$ac_ext <<EOF
-#line 1497 "configure"
+#line 1502 "configure"
 #include "confdefs.h"
 #include <assert.h>
 Syntax Error
 EOF
 ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:1503: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+{ (eval echo configure:1508: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
 ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
 if test -z "$ac_err"; then
   :
@@ -1510,13 +1515,13 @@ else
   rm -rf conftest*
   CPP="${CC-cc} -nologo -E"
   cat > conftest.$ac_ext <<EOF
-#line 1514 "configure"
+#line 1519 "configure"
 #include "confdefs.h"
 #include <assert.h>
 Syntax Error
 EOF
 ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:1520: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+{ (eval echo configure:1525: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
 ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
 if test -z "$ac_err"; then
   :
@@ -1542,17 +1547,17 @@ echo "$ac_t""$CPP" 1>&6
 
 ac_safe=`echo "minix/config.h" | sed 'y%./+-%__p_%'`
 echo $ac_n "checking for minix/config.h""... $ac_c" 1>&6
-echo "configure:1546: checking for minix/config.h" >&5
+echo "configure:1551: checking for minix/config.h" >&5
 if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1551 "configure"
+#line 1556 "configure"
 #include "confdefs.h"
 #include <minix/config.h>
 EOF
 ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:1556: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+{ (eval echo configure:1561: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
 ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
 if test -z "$ac_err"; then
   rm -rf conftest*
@@ -1591,12 +1596,12 @@ fi
 
 
 echo $ac_n "checking for Cygwin environment""... $ac_c" 1>&6
-echo "configure:1595: checking for Cygwin environment" >&5
+echo "configure:1600: checking for Cygwin environment" >&5
 if eval "test \"`echo '$''{'ac_cv_cygwin'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1600 "configure"
+#line 1605 "configure"
 #include "confdefs.h"
 
 int main() {
@@ -1607,7 +1612,7 @@ int main() {
 return __CYGWIN__;
 ; return 0; }
 EOF
-if { (eval echo configure:1611: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:1616: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   ac_cv_cygwin=yes
 else
@@ -1624,19 +1629,19 @@ echo "$ac_t""$ac_cv_cygwin" 1>&6
 CYGWIN=
 test "$ac_cv_cygwin" = yes && CYGWIN=yes
 echo $ac_n "checking for mingw32 environment""... $ac_c" 1>&6
-echo "configure:1628: checking for mingw32 environment" >&5
+echo "configure:1633: checking for mingw32 environment" >&5
 if eval "test \"`echo '$''{'ac_cv_mingw32'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1633 "configure"
+#line 1638 "configure"
 #include "confdefs.h"
 
 int main() {
 return __MINGW32__;
 ; return 0; }
 EOF
-if { (eval echo configure:1640: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:1645: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   ac_cv_mingw32=yes
 else
@@ -1655,7 +1660,7 @@ test "$ac_cv_mingw32" = yes && MINGW32=yes
 
 
 echo $ac_n "checking for executable suffix""... $ac_c" 1>&6
-echo "configure:1659: checking for executable suffix" >&5
+echo "configure:1664: checking for executable suffix" >&5
 if eval "test \"`echo '$''{'ac_cv_exeext'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -1665,7 +1670,7 @@ else
   rm -f conftest*
   echo 'int main () { return 0; }' > conftest.$ac_ext
   ac_cv_exeext=
-  if { (eval echo configure:1669: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; }; then
+  if { (eval echo configure:1674: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; }; then
     for file in conftest.*; do
       case $file in
       *.c | *.o | *.obj) ;;
@@ -1693,7 +1698,7 @@ SIGNAMES_H=lsignames.h
 
 if test "x$cross_compiling" = "xyes"; then
     case "${host}" in
-    *-cygwin32*)
+    *-cygwin*)
        cross_cache=${srcdir}/cross-build/cygwin32.cache
        SIGNAMES_H='$(srcdir)/cross-build/win32sig.h'
        ;;
@@ -1738,6 +1743,7 @@ if test "$opt_static_link" = yes; then
        # if we're using gcc, add `-static' to LDFLAGS
        if test -n "$GCC" || test "$ac_cv_prog_gcc" = "yes"; then
                STATIC_LD="-static"
+               LDFLAGS="$LDFLAGS -static"      # XXX experimental
        fi
 fi
 
@@ -1748,13 +1754,13 @@ fi
 
 if test $ac_cv_prog_gcc = yes; then
     echo $ac_n "checking whether ${CC-cc} needs -traditional""... $ac_c" 1>&6
-echo "configure:1752: checking whether ${CC-cc} needs -traditional" >&5
+echo "configure:1758: checking whether ${CC-cc} needs -traditional" >&5
 if eval "test \"`echo '$''{'ac_cv_prog_gcc_traditional'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
     ac_pattern="Autoconf.*'x'"
   cat > conftest.$ac_ext <<EOF
-#line 1758 "configure"
+#line 1764 "configure"
 #include "confdefs.h"
 #include <sgtty.h>
 Autoconf TIOCGETP
@@ -1772,7 +1778,7 @@ rm -f conftest*
 
   if test $ac_cv_prog_gcc_traditional = no; then
     cat > conftest.$ac_ext <<EOF
-#line 1776 "configure"
+#line 1782 "configure"
 #include "confdefs.h"
 #include <termio.h>
 Autoconf TCGETA
@@ -1805,14 +1811,14 @@ if test "X$bash_cv_termcap_lib" = "X"; then
 _bash_needmsg=yes
 else
 echo $ac_n "checking which library has the termcap functions""... $ac_c" 1>&6
-echo "configure:1809: checking which library has the termcap functions" >&5
+echo "configure:1815: checking which library has the termcap functions" >&5
 _bash_needmsg=
 fi
 if eval "test \"`echo '$''{'bash_cv_termcap_lib'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   echo $ac_n "checking for tgetent in -ltermcap""... $ac_c" 1>&6
-echo "configure:1816: checking for tgetent in -ltermcap" >&5
+echo "configure:1822: checking for tgetent in -ltermcap" >&5
 ac_lib_var=`echo termcap'_'tgetent | sed 'y%./+-%__p_%'`
 if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
@@ -1820,7 +1826,7 @@ else
   ac_save_LIBS="$LIBS"
 LIBS="-ltermcap  $LIBS"
 cat > conftest.$ac_ext <<EOF
-#line 1824 "configure"
+#line 1830 "configure"
 #include "confdefs.h"
 /* Override any gcc2 internal prototype to avoid an error.  */
 /* We use char because int might match the return type of a gcc2
@@ -1831,7 +1837,7 @@ int main() {
 tgetent()
 ; return 0; }
 EOF
-if { (eval echo configure:1835: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:1841: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=yes"
 else
@@ -1850,7 +1856,7 @@ if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
 else
   echo "$ac_t""no" 1>&6
 echo $ac_n "checking for tgetent in -lcurses""... $ac_c" 1>&6
-echo "configure:1854: checking for tgetent in -lcurses" >&5
+echo "configure:1860: checking for tgetent in -lcurses" >&5
 ac_lib_var=`echo curses'_'tgetent | sed 'y%./+-%__p_%'`
 if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
@@ -1858,7 +1864,7 @@ else
   ac_save_LIBS="$LIBS"
 LIBS="-lcurses  $LIBS"
 cat > conftest.$ac_ext <<EOF
-#line 1862 "configure"
+#line 1868 "configure"
 #include "confdefs.h"
 /* Override any gcc2 internal prototype to avoid an error.  */
 /* We use char because int might match the return type of a gcc2
@@ -1869,7 +1875,7 @@ int main() {
 tgetent()
 ; return 0; }
 EOF
-if { (eval echo configure:1873: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:1879: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=yes"
 else
@@ -1888,7 +1894,7 @@ if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
 else
   echo "$ac_t""no" 1>&6
 echo $ac_n "checking for tgetent in -lncurses""... $ac_c" 1>&6
-echo "configure:1892: checking for tgetent in -lncurses" >&5
+echo "configure:1898: checking for tgetent in -lncurses" >&5
 ac_lib_var=`echo ncurses'_'tgetent | sed 'y%./+-%__p_%'`
 if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
@@ -1896,7 +1902,7 @@ else
   ac_save_LIBS="$LIBS"
 LIBS="-lncurses  $LIBS"
 cat > conftest.$ac_ext <<EOF
-#line 1900 "configure"
+#line 1906 "configure"
 #include "confdefs.h"
 /* Override any gcc2 internal prototype to avoid an error.  */
 /* We use char because int might match the return type of a gcc2
@@ -1907,7 +1913,7 @@ int main() {
 tgetent()
 ; return 0; }
 EOF
-if { (eval echo configure:1911: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:1917: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=yes"
 else
@@ -1936,7 +1942,7 @@ fi
 
 if test "X$_bash_needmsg" = "Xyes"; then
 echo $ac_n "checking which library has the termcap functions""... $ac_c" 1>&6
-echo "configure:1940: checking which library has the termcap functions" >&5
+echo "configure:1946: checking which library has the termcap functions" >&5
 fi
 echo "$ac_t""using $bash_cv_termcap_lib" 1>&6
 if test $bash_cv_termcap_lib = gnutermcap && test -z "$prefer_curses"; then
@@ -1960,12 +1966,12 @@ fi
        test "x$exec_prefix" = xNONE && _rl_exec_prefix=${_rl_prefix} || _rl_exec_prefix=${exec_prefix}
 
        echo $ac_n "checking version of installed readline library""... $ac_c" 1>&6
-echo "configure:1964: checking version of installed readline library" >&5
-       _rl_version=`exec_prefix=${_rl_exec_prefix} ${CONFIG_SHELL-/bin/sh} ${srcdir}/support/rlvers.sh -C "${CC}" -L ${libdir} -T ${TERMCAP_LIB}`
+echo "configure:1970: checking version of installed readline library" >&5
+       _rl_version=`exec_prefix=${_rl_exec_prefix} ${CONFIG_SHELL-/bin/sh} ${srcdir}/support/rlvers.sh -C "${CC}" -L ${libdir} -I ${includedir} -T ${TERMCAP_LIB}`
        echo "$ac_t""$_rl_version" 1>&6
 
        case "$_rl_version" in
-       4.[1-9]*|5*|6*|7*|8*|9*)        ;;
+       4.[2-9]*|5*|6*|7*|8*|9*)        ;;
        *)      opt_with_installed_readline=no 
                echo "configure: warning: installed readline library is too old to be linked with bash" 1>&2
                echo "configure: warning: using private bash version" 1>&2
@@ -2039,7 +2045,7 @@ fi
 # SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff"
 # ./install, which can be erroneously created by make from ./install.sh.
 echo $ac_n "checking for a BSD compatible install""... $ac_c" 1>&6
-echo "configure:2043: checking for a BSD compatible install" >&5
+echo "configure:2049: checking for a BSD compatible install" >&5
 if test -z "$INSTALL"; then
 if eval "test \"`echo '$''{'ac_cv_path_install'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
@@ -2094,7 +2100,7 @@ test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644'
 # Extract the first word of "ar", so it can be a program name with args.
 set dummy ar; ac_word=$2
 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
-echo "configure:2098: checking for $ac_word" >&5
+echo "configure:2104: checking for $ac_word" >&5
 if eval "test \"`echo '$''{'ac_cv_prog_AR'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -2124,7 +2130,7 @@ test -n "$ARFLAGS" || ARFLAGS="cr"
 # Extract the first word of "ranlib", so it can be a program name with args.
 set dummy ranlib; ac_word=$2
 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
-echo "configure:2128: checking for $ac_word" >&5
+echo "configure:2134: checking for $ac_word" >&5
 if eval "test \"`echo '$''{'ac_cv_prog_RANLIB'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -2156,7 +2162,7 @@ do
 # Extract the first word of "$ac_prog", so it can be a program name with args.
 set dummy $ac_prog; ac_word=$2
 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
-echo "configure:2160: checking for $ac_word" >&5
+echo "configure:2166: checking for $ac_word" >&5
 if eval "test \"`echo '$''{'ac_cv_prog_YACC'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -2187,7 +2193,7 @@ done
 test -n "$YACC" || YACC="yacc"
 
 echo $ac_n "checking whether ${MAKE-make} sets \${MAKE}""... $ac_c" 1>&6
-echo "configure:2191: checking whether ${MAKE-make} sets \${MAKE}" >&5
+echo "configure:2197: checking whether ${MAKE-make} sets \${MAKE}" >&5
 set dummy ${MAKE-make}; ac_make=`echo "$2" | sed 'y%./+-%__p_%'`
 if eval "test \"`echo '$''{'ac_cv_prog_make_${ac_make}_set'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
@@ -2223,19 +2229,19 @@ esac
 # The Ultrix 4.2 mips builtin alloca declared by alloca.h only works
 # for constant arguments.  Useless!
 echo $ac_n "checking for working alloca.h""... $ac_c" 1>&6
-echo "configure:2227: checking for working alloca.h" >&5
+echo "configure:2233: checking for working alloca.h" >&5
 if eval "test \"`echo '$''{'ac_cv_header_alloca_h'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 2232 "configure"
+#line 2238 "configure"
 #include "confdefs.h"
 #include <alloca.h>
 int main() {
 char *p = alloca(2 * sizeof(int));
 ; return 0; }
 EOF
-if { (eval echo configure:2239: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:2245: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   ac_cv_header_alloca_h=yes
 else
@@ -2256,12 +2262,12 @@ EOF
 fi
 
 echo $ac_n "checking for alloca""... $ac_c" 1>&6
-echo "configure:2260: checking for alloca" >&5
+echo "configure:2266: checking for alloca" >&5
 if eval "test \"`echo '$''{'ac_cv_func_alloca_works'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 2265 "configure"
+#line 2271 "configure"
 #include "confdefs.h"
 
 #ifdef __GNUC__
@@ -2289,7 +2295,7 @@ int main() {
 char *p = (char *) alloca(1);
 ; return 0; }
 EOF
-if { (eval echo configure:2293: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:2299: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   ac_cv_func_alloca_works=yes
 else
@@ -2321,12 +2327,12 @@ EOF
 
 
 echo $ac_n "checking whether alloca needs Cray hooks""... $ac_c" 1>&6
-echo "configure:2325: checking whether alloca needs Cray hooks" >&5
+echo "configure:2331: checking whether alloca needs Cray hooks" >&5
 if eval "test \"`echo '$''{'ac_cv_os_cray'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 2330 "configure"
+#line 2336 "configure"
 #include "confdefs.h"
 #if defined(CRAY) && ! defined(CRAY2)
 webecray
@@ -2351,12 +2357,12 @@ echo "$ac_t""$ac_cv_os_cray" 1>&6
 if test $ac_cv_os_cray = yes; then
 for ac_func in _getb67 GETB67 getb67; do
   echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
-echo "configure:2355: checking for $ac_func" >&5
+echo "configure:2361: checking for $ac_func" >&5
 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 2360 "configure"
+#line 2366 "configure"
 #include "confdefs.h"
 /* System header to define __stub macros and hopefully few prototypes,
     which can conflict with char $ac_func(); below.  */
@@ -2379,7 +2385,7 @@ $ac_func();
 
 ; return 0; }
 EOF
-if { (eval echo configure:2383: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:2389: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_func_$ac_func=yes"
 else
@@ -2406,7 +2412,7 @@ done
 fi
 
 echo $ac_n "checking stack direction for C alloca""... $ac_c" 1>&6
-echo "configure:2410: checking stack direction for C alloca" >&5
+echo "configure:2416: checking stack direction for C alloca" >&5
 if eval "test \"`echo '$''{'ac_cv_c_stack_direction'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -2414,7 +2420,7 @@ else
   ac_cv_c_stack_direction=0
 else
   cat > conftest.$ac_ext <<EOF
-#line 2418 "configure"
+#line 2424 "configure"
 #include "confdefs.h"
 find_stack_direction ()
 {
@@ -2433,7 +2439,7 @@ main ()
   exit (find_stack_direction() < 0);
 }
 EOF
-if { (eval echo configure:2437: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:2443: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   ac_cv_c_stack_direction=1
 else
@@ -2455,7 +2461,7 @@ EOF
 fi
 
 echo $ac_n "checking whether getpgrp takes no argument""... $ac_c" 1>&6
-echo "configure:2459: checking whether getpgrp takes no argument" >&5
+echo "configure:2465: checking whether getpgrp takes no argument" >&5
 if eval "test \"`echo '$''{'ac_cv_func_getpgrp_void'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -2463,7 +2469,7 @@ else
   { echo "configure: error: cannot check getpgrp if cross compiling" 1>&2; exit 1; }
 else
   cat > conftest.$ac_ext <<EOF
-#line 2467 "configure"
+#line 2473 "configure"
 #include "confdefs.h"
 
 /*
@@ -2518,7 +2524,7 @@ main()
 }
 
 EOF
-if { (eval echo configure:2522: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:2528: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   ac_cv_func_getpgrp_void=yes
 else
@@ -2542,7 +2548,7 @@ EOF
 fi
 
 echo $ac_n "checking whether setvbuf arguments are reversed""... $ac_c" 1>&6
-echo "configure:2546: checking whether setvbuf arguments are reversed" >&5
+echo "configure:2552: checking whether setvbuf arguments are reversed" >&5
 if eval "test \"`echo '$''{'ac_cv_func_setvbuf_reversed'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -2550,7 +2556,7 @@ else
     { echo "configure: error: can not run test program while cross compiling" 1>&2; exit 1; }
 else
   cat > conftest.$ac_ext <<EOF
-#line 2554 "configure"
+#line 2560 "configure"
 #include "confdefs.h"
 #include <stdio.h>
 /* If setvbuf has the reversed format, exit 0. */
@@ -2564,7 +2570,7 @@ main () {
   exit(0);                     /* Non-reversed systems segv here.  */
 }
 EOF
-if { (eval echo configure:2568: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:2574: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   ac_cv_func_setvbuf_reversed=yes
 else
@@ -2588,12 +2594,12 @@ EOF
 fi
 
 echo $ac_n "checking for vprintf""... $ac_c" 1>&6
-echo "configure:2592: checking for vprintf" >&5
+echo "configure:2598: checking for vprintf" >&5
 if eval "test \"`echo '$''{'ac_cv_func_vprintf'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 2597 "configure"
+#line 2603 "configure"
 #include "confdefs.h"
 /* System header to define __stub macros and hopefully few prototypes,
     which can conflict with char vprintf(); below.  */
@@ -2616,7 +2622,7 @@ vprintf();
 
 ; return 0; }
 EOF
-if { (eval echo configure:2620: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:2626: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_func_vprintf=yes"
 else
@@ -2640,12 +2646,12 @@ fi
 
 if test "$ac_cv_func_vprintf" != yes; then
 echo $ac_n "checking for _doprnt""... $ac_c" 1>&6
-echo "configure:2644: checking for _doprnt" >&5
+echo "configure:2650: checking for _doprnt" >&5
 if eval "test \"`echo '$''{'ac_cv_func__doprnt'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 2649 "configure"
+#line 2655 "configure"
 #include "confdefs.h"
 /* System header to define __stub macros and hopefully few prototypes,
     which can conflict with char _doprnt(); below.  */
@@ -2668,7 +2674,7 @@ _doprnt();
 
 ; return 0; }
 EOF
-if { (eval echo configure:2672: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:2678: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_func__doprnt=yes"
 else
@@ -2693,7 +2699,7 @@ fi
 fi
 
 echo $ac_n "checking for wait3 that fills in rusage""... $ac_c" 1>&6
-echo "configure:2697: checking for wait3 that fills in rusage" >&5
+echo "configure:2703: checking for wait3 that fills in rusage" >&5
 if eval "test \"`echo '$''{'ac_cv_func_wait3_rusage'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -2701,7 +2707,7 @@ else
   ac_cv_func_wait3_rusage=no
 else
   cat > conftest.$ac_ext <<EOF
-#line 2705 "configure"
+#line 2711 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #include <sys/time.h>
@@ -2732,7 +2738,7 @@ main() {
   }
 }
 EOF
-if { (eval echo configure:2736: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:2742: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   ac_cv_func_wait3_rusage=yes
 else
@@ -2755,7 +2761,7 @@ EOF
 fi
 
 echo $ac_n "checking for working strcoll""... $ac_c" 1>&6
-echo "configure:2759: checking for working strcoll" >&5
+echo "configure:2765: checking for working strcoll" >&5
 if eval "test \"`echo '$''{'ac_cv_func_strcoll_works'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -2763,7 +2769,7 @@ else
   ac_cv_func_strcoll_works=no
 else
   cat > conftest.$ac_ext <<EOF
-#line 2767 "configure"
+#line 2773 "configure"
 #include "confdefs.h"
 #include <string.h>
 main ()
@@ -2773,7 +2779,7 @@ main ()
        strcoll ("123", "456") >= 0);
 }
 EOF
-if { (eval echo configure:2777: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:2783: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   ac_cv_func_strcoll_works=yes
 else
@@ -2798,9 +2804,9 @@ fi
 
 if test "$ac_cv_func_vprintf" = no; then
     echo $ac_n "checking for declaration of vprintf in stdio.h""... $ac_c" 1>&6
-echo "configure:2802: checking for declaration of vprintf in stdio.h" >&5
+echo "configure:2808: checking for declaration of vprintf in stdio.h" >&5
     cat > conftest.$ac_ext <<EOF
-#line 2804 "configure"
+#line 2810 "configure"
 #include "confdefs.h"
 #include <stdio.h>
 EOF
@@ -2821,12 +2827,12 @@ EOF
 fi
 
 echo $ac_n "checking return type of signal handlers""... $ac_c" 1>&6
-echo "configure:2825: checking return type of signal handlers" >&5
+echo "configure:2831: checking return type of signal handlers" >&5
 if eval "test \"`echo '$''{'ac_cv_type_signal'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 2830 "configure"
+#line 2836 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #include <signal.h>
@@ -2843,7 +2849,7 @@ int main() {
 int i;
 ; return 0; }
 EOF
-if { (eval echo configure:2847: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:2853: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   ac_cv_type_signal=void
 else
@@ -2863,12 +2869,12 @@ EOF
 
 
 echo $ac_n "checking for __setostype""... $ac_c" 1>&6
-echo "configure:2867: checking for __setostype" >&5
+echo "configure:2873: checking for __setostype" >&5
 if eval "test \"`echo '$''{'ac_cv_func___setostype'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 2872 "configure"
+#line 2878 "configure"
 #include "confdefs.h"
 /* System header to define __stub macros and hopefully few prototypes,
     which can conflict with char __setostype(); below.  */
@@ -2891,7 +2897,7 @@ __setostype();
 
 ; return 0; }
 EOF
-if { (eval echo configure:2895: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:2901: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_func___setostype=yes"
 else
@@ -2914,12 +2920,12 @@ else
 fi
 
 echo $ac_n "checking for wait3""... $ac_c" 1>&6
-echo "configure:2918: checking for wait3" >&5
+echo "configure:2924: checking for wait3" >&5
 if eval "test \"`echo '$''{'ac_cv_func_wait3'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 2923 "configure"
+#line 2929 "configure"
 #include "confdefs.h"
 /* System header to define __stub macros and hopefully few prototypes,
     which can conflict with char wait3(); below.  */
@@ -2942,7 +2948,7 @@ wait3();
 
 ; return 0; }
 EOF
-if { (eval echo configure:2946: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:2952: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_func_wait3=yes"
 else
@@ -2966,12 +2972,12 @@ fi
 
 
 echo $ac_n "checking for mkfifo""... $ac_c" 1>&6
-echo "configure:2970: checking for mkfifo" >&5
+echo "configure:2976: checking for mkfifo" >&5
 if eval "test \"`echo '$''{'ac_cv_func_mkfifo'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 2975 "configure"
+#line 2981 "configure"
 #include "confdefs.h"
 /* System header to define __stub macros and hopefully few prototypes,
     which can conflict with char mkfifo(); below.  */
@@ -2994,7 +3000,7 @@ mkfifo();
 
 ; return 0; }
 EOF
-if { (eval echo configure:2998: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:3004: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_func_mkfifo=yes"
 else
@@ -3023,15 +3029,16 @@ fi
 
 for ac_func in dup2 select getdtablesize getgroups gethostname \
                setdtablesize getpagesize killpg lstat getpeername sbrk \
-               getrlimit getrusage gettimeofday waitpid tcgetpgrp rename
+               getrlimit getrusage gettimeofday waitpid tcgetpgrp \
+               readlink rename
 do
 echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
-echo "configure:3030: checking for $ac_func" >&5
+echo "configure:3037: checking for $ac_func" >&5
 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 3035 "configure"
+#line 3042 "configure"
 #include "confdefs.h"
 /* System header to define __stub macros and hopefully few prototypes,
     which can conflict with char $ac_func(); below.  */
@@ -3054,7 +3061,7 @@ $ac_func();
 
 ; return 0; }
 EOF
-if { (eval echo configure:3058: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:3065: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_func_$ac_func=yes"
 else
@@ -3082,16 +3089,16 @@ done
 for ac_func in bcopy bzero confstr getcwd strcasecmp setenv putenv \
                setlinebuf setlocale strchr strerror strtod strtol \
                strtoul tcgetattr uname sysconf ulimit times tzset \
-               siginterrupt memmove ttyname gethostbyname inet_aton \
-               strpbrk setvbuf
+               siginterrupt memmove ttyname gethostbyname getservbyname \
+               inet_aton strpbrk setvbuf pathconf
 do
 echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
-echo "configure:3090: checking for $ac_func" >&5
+echo "configure:3097: checking for $ac_func" >&5
 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 3095 "configure"
+#line 3102 "configure"
 #include "confdefs.h"
 /* System header to define __stub macros and hopefully few prototypes,
     which can conflict with char $ac_func(); below.  */
@@ -3114,7 +3121,7 @@ $ac_func();
 
 ; return 0; }
 EOF
-if { (eval echo configure:3118: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:3125: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_func_$ac_func=yes"
 else
@@ -3143,17 +3150,17 @@ for ac_hdr in libintl.h
 do
 ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'`
 echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6
-echo "configure:3147: checking for $ac_hdr" >&5
+echo "configure:3154: checking for $ac_hdr" >&5
 if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 3152 "configure"
+#line 3159 "configure"
 #include "confdefs.h"
 #include <$ac_hdr>
 EOF
 ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:3157: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+{ (eval echo configure:3164: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
 ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
 if test -z "$ac_err"; then
   rm -rf conftest*
@@ -3182,12 +3189,12 @@ done
 for ac_func in gettext textdomain bindtextdomain
 do
 echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
-echo "configure:3186: checking for $ac_func" >&5
+echo "configure:3193: checking for $ac_func" >&5
 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 3191 "configure"
+#line 3198 "configure"
 #include "confdefs.h"
 /* System header to define __stub macros and hopefully few prototypes,
     which can conflict with char $ac_func(); below.  */
@@ -3210,7 +3217,7 @@ $ac_func();
 
 ; return 0; }
 EOF
-if { (eval echo configure:3214: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:3221: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_func_$ac_func=yes"
 else
@@ -3237,7 +3244,7 @@ done
 
 if test "$ac_cv_func_bindtextdomain" = "no"; then
     echo $ac_n "checking for bindtextdomain in -lintl""... $ac_c" 1>&6
-echo "configure:3241: checking for bindtextdomain in -lintl" >&5
+echo "configure:3248: checking for bindtextdomain in -lintl" >&5
 ac_lib_var=`echo intl'_'bindtextdomain | sed 'y%./+-%__p_%'`
 if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
@@ -3245,7 +3252,7 @@ else
   ac_save_LIBS="$LIBS"
 LIBS="-lintl  $LIBS"
 cat > conftest.$ac_ext <<EOF
-#line 3249 "configure"
+#line 3256 "configure"
 #include "confdefs.h"
 /* Override any gcc2 internal prototype to avoid an error.  */
 /* We use char because int might match the return type of a gcc2
@@ -3256,7 +3263,7 @@ int main() {
 bindtextdomain()
 ; return 0; }
 EOF
-if { (eval echo configure:3260: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:3267: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=yes"
 else
@@ -3287,12 +3294,12 @@ fi
        for ac_func in gettext textdomain bindtextdomain
 do
 echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
-echo "configure:3291: checking for $ac_func" >&5
+echo "configure:3298: checking for $ac_func" >&5
 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 3296 "configure"
+#line 3303 "configure"
 #include "confdefs.h"
 /* System header to define __stub macros and hopefully few prototypes,
     which can conflict with char $ac_func(); below.  */
@@ -3315,7 +3322,7 @@ $ac_func();
 
 ; return 0; }
 EOF
-if { (eval echo configure:3319: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:3326: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_func_$ac_func=yes"
 else
@@ -3344,7 +3351,7 @@ fi
 
 if test "$opt_static_link" != yes; then
 echo $ac_n "checking for dlopen in -ldl""... $ac_c" 1>&6
-echo "configure:3348: checking for dlopen in -ldl" >&5
+echo "configure:3355: checking for dlopen in -ldl" >&5
 ac_lib_var=`echo dl'_'dlopen | sed 'y%./+-%__p_%'`
 if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
@@ -3352,7 +3359,7 @@ else
   ac_save_LIBS="$LIBS"
 LIBS="-ldl  $LIBS"
 cat > conftest.$ac_ext <<EOF
-#line 3356 "configure"
+#line 3363 "configure"
 #include "confdefs.h"
 /* Override any gcc2 internal prototype to avoid an error.  */
 /* We use char because int might match the return type of a gcc2
@@ -3363,7 +3370,7 @@ int main() {
 dlopen()
 ; return 0; }
 EOF
-if { (eval echo configure:3367: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:3374: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=yes"
 else
@@ -3393,12 +3400,12 @@ fi
 for ac_func in dlopen dlclose dlsym
 do
 echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
-echo "configure:3397: checking for $ac_func" >&5
+echo "configure:3404: checking for $ac_func" >&5
 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 3402 "configure"
+#line 3409 "configure"
 #include "confdefs.h"
 /* System header to define __stub macros and hopefully few prototypes,
     which can conflict with char $ac_func(); below.  */
@@ -3421,7 +3428,7 @@ $ac_func();
 
 ; return 0; }
 EOF
-if { (eval echo configure:3425: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:3432: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_func_$ac_func=yes"
 else
@@ -3448,12 +3455,12 @@ done
 fi
 
 echo $ac_n "checking for sys_siglist declaration in signal.h or unistd.h""... $ac_c" 1>&6
-echo "configure:3452: checking for sys_siglist declaration in signal.h or unistd.h" >&5
+echo "configure:3459: checking for sys_siglist declaration in signal.h or unistd.h" >&5
 if eval "test \"`echo '$''{'ac_cv_decl_sys_siglist'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 3457 "configure"
+#line 3464 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #include <signal.h>
@@ -3465,7 +3472,7 @@ int main() {
 char *msg = *(sys_siglist + 1);
 ; return 0; }
 EOF
-if { (eval echo configure:3469: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:3476: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   ac_cv_decl_sys_siglist=yes
 else
@@ -3491,12 +3498,12 @@ for ac_hdr in dirent.h sys/ndir.h sys/dir.h ndir.h
 do
 ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'`
 echo $ac_n "checking for $ac_hdr that defines DIR""... $ac_c" 1>&6
-echo "configure:3495: checking for $ac_hdr that defines DIR" >&5
+echo "configure:3502: checking for $ac_hdr that defines DIR" >&5
 if eval "test \"`echo '$''{'ac_cv_header_dirent_$ac_safe'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 3500 "configure"
+#line 3507 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #include <$ac_hdr>
@@ -3504,7 +3511,7 @@ int main() {
 DIR *dirp = 0;
 ; return 0; }
 EOF
-if { (eval echo configure:3508: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:3515: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   eval "ac_cv_header_dirent_$ac_safe=yes"
 else
@@ -3529,7 +3536,7 @@ done
 # Two versions of opendir et al. are in -ldir and -lx on SCO Xenix.
 if test $ac_header_dirent = dirent.h; then
 echo $ac_n "checking for opendir in -ldir""... $ac_c" 1>&6
-echo "configure:3533: checking for opendir in -ldir" >&5
+echo "configure:3540: checking for opendir in -ldir" >&5
 ac_lib_var=`echo dir'_'opendir | sed 'y%./+-%__p_%'`
 if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
@@ -3537,7 +3544,7 @@ else
   ac_save_LIBS="$LIBS"
 LIBS="-ldir  $LIBS"
 cat > conftest.$ac_ext <<EOF
-#line 3541 "configure"
+#line 3548 "configure"
 #include "confdefs.h"
 /* Override any gcc2 internal prototype to avoid an error.  */
 /* We use char because int might match the return type of a gcc2
@@ -3548,7 +3555,7 @@ int main() {
 opendir()
 ; return 0; }
 EOF
-if { (eval echo configure:3552: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:3559: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=yes"
 else
@@ -3570,7 +3577,7 @@ fi
 
 else
 echo $ac_n "checking for opendir in -lx""... $ac_c" 1>&6
-echo "configure:3574: checking for opendir in -lx" >&5
+echo "configure:3581: checking for opendir in -lx" >&5
 ac_lib_var=`echo x'_'opendir | sed 'y%./+-%__p_%'`
 if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
@@ -3578,7 +3585,7 @@ else
   ac_save_LIBS="$LIBS"
 LIBS="-lx  $LIBS"
 cat > conftest.$ac_ext <<EOF
-#line 3582 "configure"
+#line 3589 "configure"
 #include "confdefs.h"
 /* Override any gcc2 internal prototype to avoid an error.  */
 /* We use char because int might match the return type of a gcc2
@@ -3589,7 +3596,7 @@ int main() {
 opendir()
 ; return 0; }
 EOF
-if { (eval echo configure:3593: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:3600: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=yes"
 else
@@ -3612,12 +3619,12 @@ fi
 fi
 
 echo $ac_n "checking whether time.h and sys/time.h may both be included""... $ac_c" 1>&6
-echo "configure:3616: checking whether time.h and sys/time.h may both be included" >&5
+echo "configure:3623: checking whether time.h and sys/time.h may both be included" >&5
 if eval "test \"`echo '$''{'ac_cv_header_time'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 3621 "configure"
+#line 3628 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #include <sys/time.h>
@@ -3626,7 +3633,7 @@ int main() {
 struct tm *tp;
 ; return 0; }
 EOF
-if { (eval echo configure:3630: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:3637: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   ac_cv_header_time=yes
 else
@@ -3653,17 +3660,17 @@ for ac_hdr in unistd.h stdlib.h stdarg.h varargs.h limits.h string.h \
 do
 ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'`
 echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6
-echo "configure:3657: checking for $ac_hdr" >&5
+echo "configure:3664: checking for $ac_hdr" >&5
 if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 3662 "configure"
+#line 3669 "configure"
 #include "confdefs.h"
 #include <$ac_hdr>
 EOF
 ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:3667: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+{ (eval echo configure:3674: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
 ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
 if test -z "$ac_err"; then
   rm -rf conftest*
@@ -3695,17 +3702,17 @@ for ac_hdr in sys/ptem.h sys/pte.h sys/stream.h sys/select.h sys/file.h \
 do
 ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'`
 echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6
-echo "configure:3699: checking for $ac_hdr" >&5
+echo "configure:3706: checking for $ac_hdr" >&5
 if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 3704 "configure"
+#line 3711 "configure"
 #include "confdefs.h"
 #include <$ac_hdr>
 EOF
 ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:3709: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+{ (eval echo configure:3716: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
 ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
 if test -z "$ac_err"; then
   rm -rf conftest*
@@ -3735,17 +3742,17 @@ for ac_hdr in netinet/in.h arpa/inet.h
 do
 ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'`
 echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6
-echo "configure:3739: checking for $ac_hdr" >&5
+echo "configure:3746: checking for $ac_hdr" >&5
 if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 3744 "configure"
+#line 3751 "configure"
 #include "confdefs.h"
 #include <$ac_hdr>
 EOF
 ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:3749: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+{ (eval echo configure:3756: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
 ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
 if test -z "$ac_err"; then
   rm -rf conftest*
@@ -3775,12 +3782,12 @@ done
 if test "$ac_cv_func_inet_aton" != 'yes'; then
 
 echo $ac_n "checking for inet_aton""... $ac_c" 1>&6
-echo "configure:3779: checking for inet_aton" >&5
+echo "configure:3786: checking for inet_aton" >&5
 if eval "test \"`echo '$''{'bash_cv_func_inet_aton'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 3784 "configure"
+#line 3791 "configure"
 #include "confdefs.h"
 
 #include <sys/types.h>
@@ -3791,7 +3798,7 @@ int main() {
  inet_aton("127.0.0.1", &ap); 
 ; return 0; }
 EOF
-if { (eval echo configure:3795: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:3802: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   bash_cv_func_inet_aton=yes
 else
@@ -3815,7 +3822,7 @@ fi
 
 case "$host_os" in
 irix4*)        echo $ac_n "checking for getpwent in -lsun""... $ac_c" 1>&6
-echo "configure:3819: checking for getpwent in -lsun" >&5
+echo "configure:3826: checking for getpwent in -lsun" >&5
 ac_lib_var=`echo sun'_'getpwent | sed 'y%./+-%__p_%'`
 if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
@@ -3823,7 +3830,7 @@ else
   ac_save_LIBS="$LIBS"
 LIBS="-lsun  $LIBS"
 cat > conftest.$ac_ext <<EOF
-#line 3827 "configure"
+#line 3834 "configure"
 #include "confdefs.h"
 /* Override any gcc2 internal prototype to avoid an error.  */
 /* We use char because int might match the return type of a gcc2
@@ -3834,7 +3841,7 @@ int main() {
 getpwent()
 ; return 0; }
 EOF
-if { (eval echo configure:3838: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:3845: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=yes"
 else
@@ -3869,14 +3876,14 @@ if test "X$bash_cv_have_socklib" = "X"; then
 _bash_needmsg=
 else
 echo $ac_n "checking for socket library""... $ac_c" 1>&6
-echo "configure:3873: checking for socket library" >&5
+echo "configure:3880: checking for socket library" >&5
 _bash_needmsg=yes
 fi
 if eval "test \"`echo '$''{'bash_cv_have_socklib'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   echo $ac_n "checking for getpeername in -lsocket""... $ac_c" 1>&6
-echo "configure:3880: checking for getpeername in -lsocket" >&5
+echo "configure:3887: checking for getpeername in -lsocket" >&5
 ac_lib_var=`echo socket'_'getpeername | sed 'y%./+-%__p_%'`
 if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
@@ -3884,7 +3891,7 @@ else
   ac_save_LIBS="$LIBS"
 LIBS="-lsocket -lnsl $LIBS"
 cat > conftest.$ac_ext <<EOF
-#line 3888 "configure"
+#line 3895 "configure"
 #include "confdefs.h"
 /* Override any gcc2 internal prototype to avoid an error.  */
 /* We use char because int might match the return type of a gcc2
@@ -3895,7 +3902,7 @@ int main() {
 getpeername()
 ; return 0; }
 EOF
-if { (eval echo configure:3899: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:3906: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=yes"
 else
@@ -3928,14 +3935,14 @@ if test $bash_cv_have_socklib = yes; then
     _bash_needmsg=
   else
     echo $ac_n "checking for libnsl""... $ac_c" 1>&6
-echo "configure:3932: checking for libnsl" >&5
+echo "configure:3939: checking for libnsl" >&5
     _bash_needmsg=yes
   fi
   if eval "test \"`echo '$''{'bash_cv_have_libnsl'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   echo $ac_n "checking for t_open in -lnsl""... $ac_c" 1>&6
-echo "configure:3939: checking for t_open in -lnsl" >&5
+echo "configure:3946: checking for t_open in -lnsl" >&5
 ac_lib_var=`echo nsl'_'t_open | sed 'y%./+-%__p_%'`
 if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
@@ -3943,7 +3950,7 @@ else
   ac_save_LIBS="$LIBS"
 LIBS="-lnsl  $LIBS"
 cat > conftest.$ac_ext <<EOF
-#line 3947 "configure"
+#line 3954 "configure"
 #include "confdefs.h"
 /* Override any gcc2 internal prototype to avoid an error.  */
 /* We use char because int might match the return type of a gcc2
@@ -3954,7 +3961,7 @@ int main() {
 t_open()
 ; return 0; }
 EOF
-if { (eval echo configure:3958: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:3965: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=yes"
 else
@@ -4002,14 +4009,14 @@ if test "$ac_cv_func_gethostbyname" = no; then
 _bash_needmsg=yes
 else
 echo $ac_n "checking for gethostbyname in socket library""... $ac_c" 1>&6
-echo "configure:4006: checking for gethostbyname in socket library" >&5
+echo "configure:4013: checking for gethostbyname in socket library" >&5
 _bash_needmsg=
 fi
 if eval "test \"`echo '$''{'bash_cv_have_gethostbyname'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 4013 "configure"
+#line 4020 "configure"
 #include "confdefs.h"
 #include <netdb.h>
 int main() {
@@ -4018,7 +4025,7 @@ int main() {
 
 ; return 0; }
 EOF
-if { (eval echo configure:4022: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:4029: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   bash_cv_have_gethostbyname=yes
 else
@@ -4033,7 +4040,7 @@ fi
 
 if test "X$_bash_needmsg" = Xyes; then
     echo $ac_n "checking for gethostbyname in socket library""... $ac_c" 1>&6
-echo "configure:4037: checking for gethostbyname in socket library" >&5
+echo "configure:4044: checking for gethostbyname in socket library" >&5
 fi
 echo "$ac_t""$bash_cv_have_gethostbyname" 1>&6
 if test "$bash_cv_have_gethostbyname" = yes; then
@@ -4046,12 +4053,12 @@ fi
 fi
 
 echo $ac_n "checking for uid_t in sys/types.h""... $ac_c" 1>&6
-echo "configure:4050: checking for uid_t in sys/types.h" >&5
+echo "configure:4057: checking for uid_t in sys/types.h" >&5
 if eval "test \"`echo '$''{'ac_cv_type_uid_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 4055 "configure"
+#line 4062 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 EOF
@@ -4080,7 +4087,7 @@ EOF
 fi
 
 echo $ac_n "checking type of array argument to getgroups""... $ac_c" 1>&6
-echo "configure:4084: checking type of array argument to getgroups" >&5
+echo "configure:4091: checking type of array argument to getgroups" >&5
 if eval "test \"`echo '$''{'ac_cv_type_getgroups'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -4088,7 +4095,7 @@ else
   ac_cv_type_getgroups=cross
 else
   cat > conftest.$ac_ext <<EOF
-#line 4092 "configure"
+#line 4099 "configure"
 #include "confdefs.h"
 
 /* Thanks to Mike Rendell for this test.  */
@@ -4113,7 +4120,7 @@ main()
 }
 
 EOF
-if { (eval echo configure:4117: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:4124: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
     ac_cv_type_getgroups=gid_t
 else
@@ -4127,7 +4134,7 @@ fi
 
 if test $ac_cv_type_getgroups = cross; then
         cat > conftest.$ac_ext <<EOF
-#line 4131 "configure"
+#line 4138 "configure"
 #include "confdefs.h"
 #include <unistd.h>
 EOF
@@ -4151,12 +4158,12 @@ EOF
 
 
 echo $ac_n "checking for ANSI C header files""... $ac_c" 1>&6
-echo "configure:4155: checking for ANSI C header files" >&5
+echo "configure:4162: checking for ANSI C header files" >&5
 if eval "test \"`echo '$''{'ac_cv_header_stdc'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 4160 "configure"
+#line 4167 "configure"
 #include "confdefs.h"
 #include <stdlib.h>
 #include <stdarg.h>
@@ -4164,7 +4171,7 @@ else
 #include <float.h>
 EOF
 ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:4168: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+{ (eval echo configure:4175: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
 ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
 if test -z "$ac_err"; then
   rm -rf conftest*
@@ -4181,7 +4188,7 @@ rm -f conftest*
 if test $ac_cv_header_stdc = yes; then
   # SunOS 4.x string.h does not declare mem*, contrary to ANSI.
 cat > conftest.$ac_ext <<EOF
-#line 4185 "configure"
+#line 4192 "configure"
 #include "confdefs.h"
 #include <string.h>
 EOF
@@ -4199,7 +4206,7 @@ fi
 if test $ac_cv_header_stdc = yes; then
   # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI.
 cat > conftest.$ac_ext <<EOF
-#line 4203 "configure"
+#line 4210 "configure"
 #include "confdefs.h"
 #include <stdlib.h>
 EOF
@@ -4220,7 +4227,7 @@ if test "$cross_compiling" = yes; then
   :
 else
   cat > conftest.$ac_ext <<EOF
-#line 4224 "configure"
+#line 4231 "configure"
 #include "confdefs.h"
 #include <ctype.h>
 #define ISLOWER(c) ('a' <= (c) && (c) <= 'z')
@@ -4231,7 +4238,7 @@ if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) exit(2);
 exit (0); }
 
 EOF
-if { (eval echo configure:4235: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:4242: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   :
 else
@@ -4255,12 +4262,12 @@ EOF
 fi
 
 echo $ac_n "checking for off_t""... $ac_c" 1>&6
-echo "configure:4259: checking for off_t" >&5
+echo "configure:4266: checking for off_t" >&5
 if eval "test \"`echo '$''{'ac_cv_type_off_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 4264 "configure"
+#line 4271 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -4288,12 +4295,12 @@ EOF
 fi
 
 echo $ac_n "checking for mode_t""... $ac_c" 1>&6
-echo "configure:4292: checking for mode_t" >&5
+echo "configure:4299: checking for mode_t" >&5
 if eval "test \"`echo '$''{'ac_cv_type_mode_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 4297 "configure"
+#line 4304 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -4321,12 +4328,12 @@ EOF
 fi
 
 echo $ac_n "checking for uid_t in sys/types.h""... $ac_c" 1>&6
-echo "configure:4325: checking for uid_t in sys/types.h" >&5
+echo "configure:4332: checking for uid_t in sys/types.h" >&5
 if eval "test \"`echo '$''{'ac_cv_type_uid_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 4330 "configure"
+#line 4337 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 EOF
@@ -4355,12 +4362,12 @@ EOF
 fi
 
 echo $ac_n "checking for pid_t""... $ac_c" 1>&6
-echo "configure:4359: checking for pid_t" >&5
+echo "configure:4366: checking for pid_t" >&5
 if eval "test \"`echo '$''{'ac_cv_type_pid_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 4364 "configure"
+#line 4371 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -4388,12 +4395,12 @@ EOF
 fi
 
 echo $ac_n "checking for size_t""... $ac_c" 1>&6
-echo "configure:4392: checking for size_t" >&5
+echo "configure:4399: checking for size_t" >&5
 if eval "test \"`echo '$''{'ac_cv_type_size_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 4397 "configure"
+#line 4404 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -4421,12 +4428,12 @@ EOF
 fi
 
 echo $ac_n "checking for time_t""... $ac_c" 1>&6
-echo "configure:4425: checking for time_t" >&5
+echo "configure:4432: checking for time_t" >&5
 if eval "test \"`echo '$''{'ac_cv_type_time_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 4430 "configure"
+#line 4437 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -4455,12 +4462,12 @@ fi
 
 
 echo $ac_n "checking return type of signal handlers""... $ac_c" 1>&6
-echo "configure:4459: checking return type of signal handlers" >&5
+echo "configure:4466: checking return type of signal handlers" >&5
 if eval "test \"`echo '$''{'ac_cv_type_signal'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 4464 "configure"
+#line 4471 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #include <signal.h>
@@ -4477,7 +4484,7 @@ int main() {
 int i;
 ; return 0; }
 EOF
-if { (eval echo configure:4481: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:4488: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   ac_cv_type_signal=void
 else
@@ -4497,7 +4504,7 @@ EOF
 
 
 echo $ac_n "checking size of char""... $ac_c" 1>&6
-echo "configure:4501: checking size of char" >&5
+echo "configure:4508: checking size of char" >&5
 if eval "test \"`echo '$''{'ac_cv_sizeof_char'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -4505,7 +4512,7 @@ else
   ac_cv_sizeof_char=1
 else
   cat > conftest.$ac_ext <<EOF
-#line 4509 "configure"
+#line 4516 "configure"
 #include "confdefs.h"
 #include <stdio.h>
 main()
@@ -4516,7 +4523,7 @@ main()
   exit(0);
 }
 EOF
-if { (eval echo configure:4520: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:4527: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   ac_cv_sizeof_char=`cat conftestval`
 else
@@ -4536,7 +4543,7 @@ EOF
 
 
 echo $ac_n "checking size of short""... $ac_c" 1>&6
-echo "configure:4540: checking size of short" >&5
+echo "configure:4547: checking size of short" >&5
 if eval "test \"`echo '$''{'ac_cv_sizeof_short'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -4544,7 +4551,7 @@ else
   ac_cv_sizeof_short=2
 else
   cat > conftest.$ac_ext <<EOF
-#line 4548 "configure"
+#line 4555 "configure"
 #include "confdefs.h"
 #include <stdio.h>
 main()
@@ -4555,7 +4562,7 @@ main()
   exit(0);
 }
 EOF
-if { (eval echo configure:4559: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:4566: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   ac_cv_sizeof_short=`cat conftestval`
 else
@@ -4575,7 +4582,7 @@ EOF
 
 
 echo $ac_n "checking size of int""... $ac_c" 1>&6
-echo "configure:4579: checking size of int" >&5
+echo "configure:4586: checking size of int" >&5
 if eval "test \"`echo '$''{'ac_cv_sizeof_int'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -4583,7 +4590,7 @@ else
   ac_cv_sizeof_int=4
 else
   cat > conftest.$ac_ext <<EOF
-#line 4587 "configure"
+#line 4594 "configure"
 #include "confdefs.h"
 #include <stdio.h>
 main()
@@ -4594,7 +4601,7 @@ main()
   exit(0);
 }
 EOF
-if { (eval echo configure:4598: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:4605: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   ac_cv_sizeof_int=`cat conftestval`
 else
@@ -4614,7 +4621,7 @@ EOF
 
 
 echo $ac_n "checking size of long""... $ac_c" 1>&6
-echo "configure:4618: checking size of long" >&5
+echo "configure:4625: checking size of long" >&5
 if eval "test \"`echo '$''{'ac_cv_sizeof_long'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -4622,7 +4629,7 @@ else
   ac_cv_sizeof_long=4
 else
   cat > conftest.$ac_ext <<EOF
-#line 4626 "configure"
+#line 4633 "configure"
 #include "confdefs.h"
 #include <stdio.h>
 main()
@@ -4633,7 +4640,7 @@ main()
   exit(0);
 }
 EOF
-if { (eval echo configure:4637: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:4644: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   ac_cv_sizeof_long=`cat conftestval`
 else
@@ -4653,7 +4660,7 @@ EOF
 
 
 echo $ac_n "checking size of char *""... $ac_c" 1>&6
-echo "configure:4657: checking size of char *" >&5
+echo "configure:4664: checking size of char *" >&5
 if eval "test \"`echo '$''{'ac_cv_sizeof_char_p'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -4661,7 +4668,7 @@ else
   ac_cv_sizeof_char_p=4
 else
   cat > conftest.$ac_ext <<EOF
-#line 4665 "configure"
+#line 4672 "configure"
 #include "confdefs.h"
 #include <stdio.h>
 main()
@@ -4672,7 +4679,7 @@ main()
   exit(0);
 }
 EOF
-if { (eval echo configure:4676: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:4683: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   ac_cv_sizeof_char_p=`cat conftestval`
 else
@@ -4692,7 +4699,7 @@ EOF
 
 
 echo $ac_n "checking size of double""... $ac_c" 1>&6
-echo "configure:4696: checking size of double" >&5
+echo "configure:4703: checking size of double" >&5
 if eval "test \"`echo '$''{'ac_cv_sizeof_double'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -4700,7 +4707,7 @@ else
   ac_cv_sizeof_double=8
 else
   cat > conftest.$ac_ext <<EOF
-#line 4704 "configure"
+#line 4711 "configure"
 #include "confdefs.h"
 #include <stdio.h>
 main()
@@ -4711,7 +4718,7 @@ main()
   exit(0);
 }
 EOF
-if { (eval echo configure:4715: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:4722: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   ac_cv_sizeof_double=`cat conftestval`
 else
@@ -4732,12 +4739,12 @@ EOF
 
 
 echo $ac_n "checking for u_int""... $ac_c" 1>&6
-echo "configure:4736: checking for u_int" >&5
+echo "configure:4743: checking for u_int" >&5
 if eval "test \"`echo '$''{'ac_cv_type_u_int'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 4741 "configure"
+#line 4748 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -4765,12 +4772,12 @@ EOF
 fi
 
 echo $ac_n "checking for u_long""... $ac_c" 1>&6
-echo "configure:4769: checking for u_long" >&5
+echo "configure:4776: checking for u_long" >&5
 if eval "test \"`echo '$''{'ac_cv_type_u_long'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 4774 "configure"
+#line 4781 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -4801,12 +4808,12 @@ fi
 
 if test "$ac_cv_sizeof_short" = 2; then
   echo $ac_n "checking for bits16_t""... $ac_c" 1>&6
-echo "configure:4805: checking for bits16_t" >&5
+echo "configure:4812: checking for bits16_t" >&5
 if eval "test \"`echo '$''{'ac_cv_type_bits16_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 4810 "configure"
+#line 4817 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -4835,12 +4842,12 @@ fi
 
 elif test "$ac_cv_sizeof_char" = 2; then
   echo $ac_n "checking for bits16_t""... $ac_c" 1>&6
-echo "configure:4839: checking for bits16_t" >&5
+echo "configure:4846: checking for bits16_t" >&5
 if eval "test \"`echo '$''{'ac_cv_type_bits16_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 4844 "configure"
+#line 4851 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -4869,12 +4876,12 @@ fi
 
 else
   echo $ac_n "checking for bits16_t""... $ac_c" 1>&6
-echo "configure:4873: checking for bits16_t" >&5
+echo "configure:4880: checking for bits16_t" >&5
 if eval "test \"`echo '$''{'ac_cv_type_bits16_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 4878 "configure"
+#line 4885 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -4906,12 +4913,12 @@ fi
 
 if test "$ac_cv_sizeof_short" = 2; then
   echo $ac_n "checking for u_bits16_t""... $ac_c" 1>&6
-echo "configure:4910: checking for u_bits16_t" >&5
+echo "configure:4917: checking for u_bits16_t" >&5
 if eval "test \"`echo '$''{'ac_cv_type_u_bits16_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 4915 "configure"
+#line 4922 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -4940,12 +4947,12 @@ fi
 
 elif test "$ac_cv_sizeof_char" = 2; then
   echo $ac_n "checking for u_bits16_t""... $ac_c" 1>&6
-echo "configure:4944: checking for u_bits16_t" >&5
+echo "configure:4951: checking for u_bits16_t" >&5
 if eval "test \"`echo '$''{'ac_cv_type_u_bits16_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 4949 "configure"
+#line 4956 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -4974,12 +4981,12 @@ fi
 
 else
   echo $ac_n "checking for u_bits16_t""... $ac_c" 1>&6
-echo "configure:4978: checking for u_bits16_t" >&5
+echo "configure:4985: checking for u_bits16_t" >&5
 if eval "test \"`echo '$''{'ac_cv_type_u_bits16_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 4983 "configure"
+#line 4990 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -5011,12 +5018,12 @@ fi
 
 if test "$ac_cv_sizeof_int" = 4; then
   echo $ac_n "checking for bits32_t""... $ac_c" 1>&6
-echo "configure:5015: checking for bits32_t" >&5
+echo "configure:5022: checking for bits32_t" >&5
 if eval "test \"`echo '$''{'ac_cv_type_bits32_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 5020 "configure"
+#line 5027 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -5045,12 +5052,12 @@ fi
 
 elif test "$ac_cv_sizeof_long" = 4; then
   echo $ac_n "checking for bits32_t""... $ac_c" 1>&6
-echo "configure:5049: checking for bits32_t" >&5
+echo "configure:5056: checking for bits32_t" >&5
 if eval "test \"`echo '$''{'ac_cv_type_bits32_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 5054 "configure"
+#line 5061 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -5079,12 +5086,12 @@ fi
 
 else
   echo $ac_n "checking for bits32_t""... $ac_c" 1>&6
-echo "configure:5083: checking for bits32_t" >&5
+echo "configure:5090: checking for bits32_t" >&5
 if eval "test \"`echo '$''{'ac_cv_type_bits32_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 5088 "configure"
+#line 5095 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -5116,12 +5123,12 @@ fi
 
 if test "$ac_cv_sizeof_int" = 4; then
   echo $ac_n "checking for u_bits32_t""... $ac_c" 1>&6
-echo "configure:5120: checking for u_bits32_t" >&5
+echo "configure:5127: checking for u_bits32_t" >&5
 if eval "test \"`echo '$''{'ac_cv_type_u_bits32_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 5125 "configure"
+#line 5132 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -5150,12 +5157,12 @@ fi
 
 elif test "$ac_cv_sizeof_long" = 4; then
   echo $ac_n "checking for u_bits32_t""... $ac_c" 1>&6
-echo "configure:5154: checking for u_bits32_t" >&5
+echo "configure:5161: checking for u_bits32_t" >&5
 if eval "test \"`echo '$''{'ac_cv_type_u_bits32_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 5159 "configure"
+#line 5166 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -5184,12 +5191,12 @@ fi
 
 else
   echo $ac_n "checking for u_bits32_t""... $ac_c" 1>&6
-echo "configure:5188: checking for u_bits32_t" >&5
+echo "configure:5195: checking for u_bits32_t" >&5
 if eval "test \"`echo '$''{'ac_cv_type_u_bits32_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 5193 "configure"
+#line 5200 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -5221,12 +5228,12 @@ fi
 
 if test "$ac_sv_sizeof_char_p" = 8; then
   echo $ac_n "checking for bits64_t""... $ac_c" 1>&6
-echo "configure:5225: checking for bits64_t" >&5
+echo "configure:5232: checking for bits64_t" >&5
 if eval "test \"`echo '$''{'ac_cv_type_bits64_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 5230 "configure"
+#line 5237 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -5255,12 +5262,12 @@ fi
 
 elif test "$ac_cv_sizeof_double" = 8; then
   echo $ac_n "checking for bits64_t""... $ac_c" 1>&6
-echo "configure:5259: checking for bits64_t" >&5
+echo "configure:5266: checking for bits64_t" >&5
 if eval "test \"`echo '$''{'ac_cv_type_bits64_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 5264 "configure"
+#line 5271 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -5289,12 +5296,12 @@ fi
 
 elif test "$ac_cv_sizeof_long" = 8; then
   echo $ac_n "checking for bits64_t""... $ac_c" 1>&6
-echo "configure:5293: checking for bits64_t" >&5
+echo "configure:5300: checking for bits64_t" >&5
 if eval "test \"`echo '$''{'ac_cv_type_bits64_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 5298 "configure"
+#line 5305 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -5323,12 +5330,12 @@ fi
 
 else
   echo $ac_n "checking for bits64_t""... $ac_c" 1>&6
-echo "configure:5327: checking for bits64_t" >&5
+echo "configure:5334: checking for bits64_t" >&5
 if eval "test \"`echo '$''{'ac_cv_type_bits64_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 5332 "configure"
+#line 5339 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -5361,12 +5368,12 @@ fi
 
 if test "$ac_cv_sizeof_int" = "$ac_cv_sizeof_char_p"; then
   echo $ac_n "checking for ptrdiff_t""... $ac_c" 1>&6
-echo "configure:5365: checking for ptrdiff_t" >&5
+echo "configure:5372: checking for ptrdiff_t" >&5
 if eval "test \"`echo '$''{'ac_cv_type_ptrdiff_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 5370 "configure"
+#line 5377 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -5395,12 +5402,12 @@ fi
 
 elif test "$ac_cv_sizeof_long" = "$ac_cv_sizeof_char_p"; then
   echo $ac_n "checking for ptrdiff_t""... $ac_c" 1>&6
-echo "configure:5399: checking for ptrdiff_t" >&5
+echo "configure:5406: checking for ptrdiff_t" >&5
 if eval "test \"`echo '$''{'ac_cv_type_ptrdiff_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 5404 "configure"
+#line 5411 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -5429,12 +5436,12 @@ fi
 
 else
   echo $ac_n "checking for ptrdiff_t""... $ac_c" 1>&6
-echo "configure:5433: checking for ptrdiff_t" >&5
+echo "configure:5440: checking for ptrdiff_t" >&5
 if eval "test \"`echo '$''{'ac_cv_type_ptrdiff_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 5438 "configure"
+#line 5445 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -5465,12 +5472,12 @@ fi
 
 
 echo $ac_n "checking whether stat file-mode macros are broken""... $ac_c" 1>&6
-echo "configure:5469: checking whether stat file-mode macros are broken" >&5
+echo "configure:5476: checking whether stat file-mode macros are broken" >&5
 if eval "test \"`echo '$''{'ac_cv_header_stat_broken'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 5474 "configure"
+#line 5481 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #include <sys/stat.h>
@@ -5522,14 +5529,14 @@ fi
 
 
 echo $ac_n "checking whether byte ordering is bigendian""... $ac_c" 1>&6
-echo "configure:5526: checking whether byte ordering is bigendian" >&5
+echo "configure:5533: checking whether byte ordering is bigendian" >&5
 if eval "test \"`echo '$''{'ac_cv_c_bigendian'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   ac_cv_c_bigendian=unknown
 # See if sys/param.h defines the BYTE_ORDER macro.
 cat > conftest.$ac_ext <<EOF
-#line 5533 "configure"
+#line 5540 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #include <sys/param.h>
@@ -5540,11 +5547,11 @@ int main() {
 #endif
 ; return 0; }
 EOF
-if { (eval echo configure:5544: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:5551: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   # It does; now see whether it defined to BIG_ENDIAN or not.
 cat > conftest.$ac_ext <<EOF
-#line 5548 "configure"
+#line 5555 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #include <sys/param.h>
@@ -5555,7 +5562,7 @@ int main() {
 #endif
 ; return 0; }
 EOF
-if { (eval echo configure:5559: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:5566: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   ac_cv_c_bigendian=yes
 else
@@ -5575,7 +5582,7 @@ if test "$cross_compiling" = yes; then
     { echo "configure: error: can not run test program while cross compiling" 1>&2; exit 1; }
 else
   cat > conftest.$ac_ext <<EOF
-#line 5579 "configure"
+#line 5586 "configure"
 #include "confdefs.h"
 main () {
   /* Are we little or big endian?  From Harbison&Steele.  */
@@ -5588,7 +5595,7 @@ main () {
   exit (u.c[sizeof (long) - 1] == 1);
 }
 EOF
-if { (eval echo configure:5592: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:5599: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   ac_cv_c_bigendian=no
 else
@@ -5615,7 +5622,7 @@ fi
 # Pull the hash mark out of the macro call to avoid m4 problems.
 ac_msg="whether #! works in shell scripts"
 echo $ac_n "checking $ac_msg""... $ac_c" 1>&6
-echo "configure:5619: checking $ac_msg" >&5
+echo "configure:5626: checking $ac_msg" >&5
 if eval "test \"`echo '$''{'ac_cv_sys_interpreter'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -5642,7 +5649,7 @@ EOF
 
 fi
 echo $ac_n "checking for restartable system calls""... $ac_c" 1>&6
-echo "configure:5646: checking for restartable system calls" >&5
+echo "configure:5653: checking for restartable system calls" >&5
 if eval "test \"`echo '$''{'ac_cv_sys_restartable_syscalls'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -5650,7 +5657,7 @@ else
     { echo "configure: error: can not run test program while cross compiling" 1>&2; exit 1; }
 else
   cat > conftest.$ac_ext <<EOF
-#line 5654 "configure"
+#line 5661 "configure"
 #include "confdefs.h"
 /* Exit 0 (true) if wait returns something other than -1,
    i.e. the pid of the child, which means that wait was restarted
@@ -5668,7 +5675,7 @@ main () {
 }
 
 EOF
-if { (eval echo configure:5672: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:5679: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   ac_cv_sys_restartable_syscalls=yes
 else
@@ -5693,12 +5700,12 @@ fi
 
 if test "$ac_cv_func_lstat" = "no"; then
 echo $ac_n "checking for lstat""... $ac_c" 1>&6
-echo "configure:5697: checking for lstat" >&5
+echo "configure:5704: checking for lstat" >&5
 if eval "test \"`echo '$''{'bash_cv_func_lstat'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 5702 "configure"
+#line 5709 "configure"
 #include "confdefs.h"
 
 #include <sys/types.h>
@@ -5708,7 +5715,7 @@ int main() {
  lstat(".",(struct stat *)0); 
 ; return 0; }
 EOF
-if { (eval echo configure:5712: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:5719: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   bash_cv_func_lstat=yes
 else
@@ -5731,7 +5738,7 @@ fi
 fi
 
 echo $ac_n "checking if dup2 fails to clear the close-on-exec flag""... $ac_c" 1>&6
-echo "configure:5735: checking if dup2 fails to clear the close-on-exec flag" >&5
+echo "configure:5742: checking if dup2 fails to clear the close-on-exec flag" >&5
 if eval "test \"`echo '$''{'bash_cv_dup2_broken'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -5740,7 +5747,7 @@ else
      bash_cv_dup2_broken=no
 else
   cat > conftest.$ac_ext <<EOF
-#line 5744 "configure"
+#line 5751 "configure"
 #include "confdefs.h"
 
 #include <sys/types.h>
@@ -5760,7 +5767,7 @@ main()
 }
 
 EOF
-if { (eval echo configure:5764: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:5771: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   bash_cv_dup2_broken=yes
 else
@@ -5785,7 +5792,7 @@ fi
 
 
 echo $ac_n "checking whether pgrps need synchronization""... $ac_c" 1>&6
-echo "configure:5789: checking whether pgrps need synchronization" >&5
+echo "configure:5796: checking whether pgrps need synchronization" >&5
 if eval "test \"`echo '$''{'bash_cv_pgrp_pipe'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -5794,7 +5801,7 @@ else
     bash_cv_pgrp_pipe=no
 else
   cat > conftest.$ac_ext <<EOF
-#line 5798 "configure"
+#line 5805 "configure"
 #include "confdefs.h"
 
 #ifdef HAVE_UNISTD_H
@@ -5846,7 +5853,7 @@ main()
 }
 
 EOF
-if { (eval echo configure:5850: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:5857: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   bash_cv_pgrp_pipe=no
 else
@@ -5871,13 +5878,13 @@ fi
 
 
 echo $ac_n "checking for type of signal functions""... $ac_c" 1>&6
-echo "configure:5875: checking for type of signal functions" >&5
+echo "configure:5882: checking for type of signal functions" >&5
 if eval "test \"`echo '$''{'bash_cv_signal_vintage'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   
   cat > conftest.$ac_ext <<EOF
-#line 5881 "configure"
+#line 5888 "configure"
 #include "confdefs.h"
 #include <signal.h>
 int main() {
@@ -5890,7 +5897,7 @@ int main() {
   
 ; return 0; }
 EOF
-if { (eval echo configure:5894: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:5901: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   bash_cv_signal_vintage=posix
 else
@@ -5899,7 +5906,7 @@ else
   rm -rf conftest*
   
     cat > conftest.$ac_ext <<EOF
-#line 5903 "configure"
+#line 5910 "configure"
 #include "confdefs.h"
 #include <signal.h>
 int main() {
@@ -5909,7 +5916,7 @@ int main() {
     
 ; return 0; }
 EOF
-if { (eval echo configure:5913: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:5920: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   bash_cv_signal_vintage=4.2bsd
 else
@@ -5918,7 +5925,7 @@ else
   rm -rf conftest*
   
       cat > conftest.$ac_ext <<EOF
-#line 5922 "configure"
+#line 5929 "configure"
 #include "confdefs.h"
 
        #include <signal.h>
@@ -5931,7 +5938,7 @@ int main() {
         
 ; return 0; }
 EOF
-if { (eval echo configure:5935: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:5942: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   bash_cv_signal_vintage=svr3
 else
@@ -5972,8 +5979,8 @@ fi
 
 if test "$ac_cv_sys_restartable_syscalls" = "no"; then
 
-echo $ac_n "checking for restartable system calls with posix sigaction""... $ac_c" 1>&6
-echo "configure:5977: checking for restartable system calls with posix sigaction" >&5
+echo $ac_n "checking whether posix sigaction restarts system calls by default""... $ac_c" 1>&6
+echo "configure:5984: checking whether posix sigaction restarts system calls by default" >&5
 if eval "test \"`echo '$''{'bash_cv_sys_restartable_syscalls'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -5981,11 +5988,14 @@ else
   echo "configure: warning: cannot check restartable syscalls if cross compiling" 1>&2
 else
   cat > conftest.$ac_ext <<EOF
-#line 5985 "configure"
+#line 5992 "configure"
 #include "confdefs.h"
 /* Exit 0 (true) if wait returns something other than -1,
    i.e. the pid of the child, which means that wait was restarted
    after getting the signal.  */
+#ifdef HAVE_UNISTD_H
+#  include <unistd.h>
+#endif
 #include <sys/types.h>
 #include <signal.h>
 static int caught = 0;
@@ -6015,7 +6025,7 @@ main ()
 }
 
 EOF
-if { (eval echo configure:6019: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:6029: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   bash_cv_sys_restartable_syscalls=yes
 else
@@ -6041,12 +6051,12 @@ fi
 fi
 
 echo $ac_n "checking for sys_errlist and sys_nerr""... $ac_c" 1>&6
-echo "configure:6045: checking for sys_errlist and sys_nerr" >&5
+echo "configure:6055: checking for sys_errlist and sys_nerr" >&5
 if eval "test \"`echo '$''{'bash_cv_sys_errlist'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 6050 "configure"
+#line 6060 "configure"
 #include "confdefs.h"
 #include <errno.h>
 int main() {
@@ -6055,7 +6065,7 @@ extern char *sys_errlist[];
  char *msg = sys_errlist[sys_nerr - 1];
 ; return 0; }
 EOF
-if { (eval echo configure:6059: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:6069: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   bash_cv_sys_errlist=yes
 else
@@ -6076,7 +6086,7 @@ fi
 
 
 echo $ac_n "checking for sys_siglist in system C library""... $ac_c" 1>&6
-echo "configure:6080: checking for sys_siglist in system C library" >&5
+echo "configure:6090: checking for sys_siglist in system C library" >&5
 if eval "test \"`echo '$''{'bash_cv_sys_siglist'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -6085,7 +6095,7 @@ else
         bash_cv_sys_siglist=no
 else
   cat > conftest.$ac_ext <<EOF
-#line 6089 "configure"
+#line 6099 "configure"
 #include "confdefs.h"
 
 #include <sys/types.h>
@@ -6102,7 +6112,7 @@ char *msg = sys_siglist[2];
 exit(msg == 0);
 }
 EOF
-if { (eval echo configure:6106: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:6116: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   bash_cv_sys_siglist=yes
 else
@@ -6125,12 +6135,12 @@ EOF
 fi
 
 echo $ac_n "checking for _sys_siglist in signal.h or unistd.h""... $ac_c" 1>&6
-echo "configure:6129: checking for _sys_siglist in signal.h or unistd.h" >&5
+echo "configure:6139: checking for _sys_siglist in signal.h or unistd.h" >&5
 if eval "test \"`echo '$''{'bash_cv_decl_under_sys_siglist'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 6134 "configure"
+#line 6144 "configure"
 #include "confdefs.h"
 
 #include <sys/types.h>
@@ -6142,7 +6152,7 @@ int main() {
  char *msg = _sys_siglist[2]; 
 ; return 0; }
 EOF
-if { (eval echo configure:6146: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:6156: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   bash_cv_decl_under_sys_siglist=yes
 else
@@ -6163,7 +6173,7 @@ fi
 
 
 echo $ac_n "checking for _sys_siglist in system C library""... $ac_c" 1>&6
-echo "configure:6167: checking for _sys_siglist in system C library" >&5
+echo "configure:6177: checking for _sys_siglist in system C library" >&5
 if eval "test \"`echo '$''{'bash_cv_under_sys_siglist'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -6172,7 +6182,7 @@ else
         bash_cv_under_sys_siglist=no
 else
   cat > conftest.$ac_ext <<EOF
-#line 6176 "configure"
+#line 6186 "configure"
 #include "confdefs.h"
 
 #include <sys/types.h>
@@ -6189,7 +6199,7 @@ char *msg = (char *)_sys_siglist[2];
 exit(msg == 0);
 }
 EOF
-if { (eval echo configure:6193: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:6203: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   bash_cv_under_sys_siglist=yes
 else
@@ -6213,12 +6223,12 @@ fi
 
 
 echo $ac_n "checking whether signal handlers are of type void""... $ac_c" 1>&6
-echo "configure:6217: checking whether signal handlers are of type void" >&5
+echo "configure:6227: checking whether signal handlers are of type void" >&5
 if eval "test \"`echo '$''{'bash_cv_void_sighandler'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 6222 "configure"
+#line 6232 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #include <signal.h>
@@ -6233,7 +6243,7 @@ int main() {
 int i;
 ; return 0; }
 EOF
-if { (eval echo configure:6237: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:6247: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   bash_cv_void_sighandler=yes
 else
@@ -6253,12 +6263,12 @@ EOF
 fi
 
 echo $ac_n "checking for clock_t""... $ac_c" 1>&6
-echo "configure:6257: checking for clock_t" >&5
+echo "configure:6267: checking for clock_t" >&5
 if eval "test \"`echo '$''{'bash_cv_type_clock_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 6262 "configure"
+#line 6272 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -6289,12 +6299,12 @@ EOF
 fi
 
 echo $ac_n "checking for sigset_t""... $ac_c" 1>&6
-echo "configure:6293: checking for sigset_t" >&5
+echo "configure:6303: checking for sigset_t" >&5
 if eval "test \"`echo '$''{'bash_cv_type_sigset_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 6298 "configure"
+#line 6308 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -6325,12 +6335,12 @@ EOF
 fi
 
 echo $ac_n "checking for quad_t""... $ac_c" 1>&6
-echo "configure:6329: checking for quad_t" >&5
+echo "configure:6339: checking for quad_t" >&5
 if eval "test \"`echo '$''{'bash_cv_type_quad_t'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 6334 "configure"
+#line 6344 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #if STDC_HEADERS
@@ -6366,12 +6376,12 @@ EOF
 fi
 
 echo $ac_n "checking for size and type of struct rlimit fields""... $ac_c" 1>&6
-echo "configure:6370: checking for size and type of struct rlimit fields" >&5
+echo "configure:6380: checking for size and type of struct rlimit fields" >&5
 if eval "test \"`echo '$''{'bash_cv_type_rlimit'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 6375 "configure"
+#line 6385 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #include <sys/resource.h>
@@ -6379,7 +6389,7 @@ int main() {
 rlim_t xxx;
 ; return 0; }
 EOF
-if { (eval echo configure:6383: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:6393: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   bash_cv_type_rlimit=rlim_t
 else
@@ -6392,7 +6402,7 @@ if test "$cross_compiling" = yes; then
          bash_cv_type_rlimit=long
 else
   cat > conftest.$ac_ext <<EOF
-#line 6396 "configure"
+#line 6406 "configure"
 #include "confdefs.h"
 
 #include <sys/types.h>
@@ -6408,7 +6418,7 @@ main()
   exit(1);
 }
 EOF
-if { (eval echo configure:6412: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:6422: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   bash_cv_type_rlimit=quad_t
 else
@@ -6440,12 +6450,12 @@ fi
 
 
 echo $ac_n "checking for a c_line member of struct termios""... $ac_c" 1>&6
-echo "configure:6444: checking for a c_line member of struct termios" >&5
+echo "configure:6454: checking for a c_line member of struct termios" >&5
 if eval "test \"`echo '$''{'bash_cv_termios_ldisc'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 6449 "configure"
+#line 6459 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #include <termios.h>
@@ -6453,7 +6463,7 @@ int main() {
 struct termios t; int i; i = t.c_line;
 ; return 0; }
 EOF
-if { (eval echo configure:6457: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:6467: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   bash_cv_termios_ldisc=yes
 else
@@ -6473,12 +6483,12 @@ EOF
 fi
 
 echo $ac_n "checking for a c_line member of struct termio""... $ac_c" 1>&6
-echo "configure:6477: checking for a c_line member of struct termio" >&5
+echo "configure:6487: checking for a c_line member of struct termio" >&5
 if eval "test \"`echo '$''{'bash_cv_termio_ldisc'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 6482 "configure"
+#line 6492 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #include <termio.h>
@@ -6486,7 +6496,7 @@ int main() {
 struct termio t; int i; i = t.c_line;
 ; return 0; }
 EOF
-if { (eval echo configure:6490: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:6500: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   bash_cv_termio_ldisc=yes
 else
@@ -6507,12 +6517,12 @@ fi
 
 
 echo $ac_n "checking if struct dirent has a d_ino member""... $ac_c" 1>&6
-echo "configure:6511: checking if struct dirent has a d_ino member" >&5
+echo "configure:6521: checking if struct dirent has a d_ino member" >&5
 if eval "test \"`echo '$''{'bash_cv_dirent_has_dino'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 6516 "configure"
+#line 6526 "configure"
 #include "confdefs.h"
 
 #include <stdio.h>
@@ -6541,7 +6551,7 @@ struct dirent d; int z; z = d.d_ino;
 
 ; return 0; }
 EOF
-if { (eval echo configure:6545: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:6555: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   bash_cv_dirent_has_dino=yes
 else
@@ -6563,12 +6573,12 @@ fi
 
 
 echo $ac_n "checking if struct dirent has a d_fileno member""... $ac_c" 1>&6
-echo "configure:6567: checking if struct dirent has a d_fileno member" >&5
+echo "configure:6577: checking if struct dirent has a d_fileno member" >&5
 if eval "test \"`echo '$''{'bash_cv_dirent_has_d_fileno'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 6572 "configure"
+#line 6582 "configure"
 #include "confdefs.h"
 
 #include <stdio.h>
@@ -6597,7 +6607,7 @@ struct dirent d; int z; z = d.d_fileno;
 
 ; return 0; }
 EOF
-if { (eval echo configure:6601: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:6611: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   bash_cv_dirent_has_d_fileno=yes
 else
@@ -6618,12 +6628,12 @@ EOF
 fi
 
 echo $ac_n "checking for struct winsize in sys/ioctl.h and termios.h""... $ac_c" 1>&6
-echo "configure:6622: checking for struct winsize in sys/ioctl.h and termios.h" >&5
+echo "configure:6632: checking for struct winsize in sys/ioctl.h and termios.h" >&5
 if eval "test \"`echo '$''{'bash_cv_struct_winsize_header'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 6627 "configure"
+#line 6637 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #include <sys/ioctl.h>
@@ -6631,7 +6641,7 @@ int main() {
 struct winsize x;
 ; return 0; }
 EOF
-if { (eval echo configure:6635: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:6645: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   bash_cv_struct_winsize_header=ioctl_h
 else
@@ -6639,7 +6649,7 @@ else
   cat conftest.$ac_ext >&5
   rm -rf conftest*
   cat > conftest.$ac_ext <<EOF
-#line 6643 "configure"
+#line 6653 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #include <termios.h>
@@ -6647,7 +6657,7 @@ int main() {
 struct winsize x;
 ; return 0; }
 EOF
-if { (eval echo configure:6651: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:6661: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   bash_cv_struct_winsize_header=termios_h
 else
@@ -6679,13 +6689,13 @@ else
 fi
 
 echo $ac_n "checking for struct timeval in sys/time.h and time.h""... $ac_c" 1>&6
-echo "configure:6683: checking for struct timeval in sys/time.h and time.h" >&5
+echo "configure:6693: checking for struct timeval in sys/time.h and time.h" >&5
 if eval "test \"`echo '$''{'bash_cv_struct_timeval'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   
 cat > conftest.$ac_ext <<EOF
-#line 6689 "configure"
+#line 6699 "configure"
 #include "confdefs.h"
 #include <sys/time.h>
 EOF
@@ -6696,7 +6706,7 @@ if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
 else
   rm -rf conftest*
   cat > conftest.$ac_ext <<EOF
-#line 6700 "configure"
+#line 6710 "configure"
 #include "confdefs.h"
 #include <time.h>
 EOF
@@ -6726,12 +6736,12 @@ fi
 
 
 echo $ac_n "checking for the existence of strsignal""... $ac_c" 1>&6
-echo "configure:6730: checking for the existence of strsignal" >&5
+echo "configure:6740: checking for the existence of strsignal" >&5
 if eval "test \"`echo '$''{'bash_cv_have_strsignal'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 6735 "configure"
+#line 6745 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #include <signal.h>
@@ -6739,7 +6749,7 @@ int main() {
 char *s = (char *)strsignal(2);
 ; return 0; }
 EOF
-if { (eval echo configure:6743: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:6753: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   bash_cv_have_strsignal=yes
 else
@@ -6760,7 +6770,7 @@ EOF
 fi
 
 echo $ac_n "checking if opendir() opens non-directories""... $ac_c" 1>&6
-echo "configure:6764: checking if opendir() opens non-directories" >&5
+echo "configure:6774: checking if opendir() opens non-directories" >&5
 if eval "test \"`echo '$''{'bash_cv_opendir_not_robust'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -6770,7 +6780,7 @@ else
 
 else
   cat > conftest.$ac_ext <<EOF
-#line 6774 "configure"
+#line 6784 "configure"
 #include "confdefs.h"
 
 #include <stdio.h>
@@ -6812,7 +6822,7 @@ rmdir("/tmp/bash-aclocal");
 exit (dir == 0);
 }
 EOF
-if { (eval echo configure:6816: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:6826: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   bash_cv_opendir_not_robust=yes
 else
@@ -6835,7 +6845,7 @@ EOF
 fi
 
 echo $ac_n "checking for declaration of printf in <stdio.h>""... $ac_c" 1>&6
-echo "configure:6839: checking for declaration of printf in <stdio.h>" >&5
+echo "configure:6849: checking for declaration of printf in <stdio.h>" >&5
 if eval "test \"`echo '$''{'bash_cv_printf_declared'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -6845,7 +6855,7 @@ else
 
 else
   cat > conftest.$ac_ext <<EOF
-#line 6849 "configure"
+#line 6859 "configure"
 #include "confdefs.h"
 
 #include <stdio.h>
@@ -6862,7 +6872,7 @@ exit(pf == 0);
 }
 
 EOF
-if { (eval echo configure:6866: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:6876: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   bash_cv_printf_declared=yes
 else
@@ -6885,7 +6895,7 @@ EOF
 fi
 
 echo $ac_n "checking whether ulimit can substitute for getdtablesize""... $ac_c" 1>&6
-echo "configure:6889: checking whether ulimit can substitute for getdtablesize" >&5
+echo "configure:6899: checking whether ulimit can substitute for getdtablesize" >&5
 if eval "test \"`echo '$''{'bash_cv_ulimit_maxfds'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -6895,7 +6905,7 @@ else
 
 else
   cat > conftest.$ac_ext <<EOF
-#line 6899 "configure"
+#line 6909 "configure"
 #include "confdefs.h"
 
 main()
@@ -6905,7 +6915,7 @@ exit (maxfds == -1L);
 }
 
 EOF
-if { (eval echo configure:6909: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:6919: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   bash_cv_ulimit_maxfds=yes
 else
@@ -6928,7 +6938,7 @@ EOF
 fi
 
 echo $ac_n "checking to see if getenv can be redefined""... $ac_c" 1>&6
-echo "configure:6932: checking to see if getenv can be redefined" >&5
+echo "configure:6942: checking to see if getenv can be redefined" >&5
 if eval "test \"`echo '$''{'bash_cv_getenv_redef'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -6938,7 +6948,7 @@ else
 
 else
   cat > conftest.$ac_ext <<EOF
-#line 6942 "configure"
+#line 6952 "configure"
 #include "confdefs.h"
 
 #ifdef HAVE_UNISTD_H
@@ -6973,7 +6983,7 @@ exit(s == 0);     /* force optimizer to leave getenv in */
 }
 
 EOF
-if { (eval echo configure:6977: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:6987: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   bash_cv_getenv_redef=yes
 else
@@ -6996,7 +7006,7 @@ EOF
 fi
 
 echo $ac_n "checking if getcwd() calls popen()""... $ac_c" 1>&6
-echo "configure:7000: checking if getcwd() calls popen()" >&5
+echo "configure:7010: checking if getcwd() calls popen()" >&5
 if eval "test \"`echo '$''{'bash_cv_getcwd_calls_popen'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -7006,7 +7016,7 @@ else
 
 else
   cat > conftest.$ac_ext <<EOF
-#line 7010 "configure"
+#line 7020 "configure"
 #include "confdefs.h"
 
 #include <stdio.h>
@@ -7061,7 +7071,7 @@ main()
 }
 
 EOF
-if { (eval echo configure:7065: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:7075: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   bash_cv_getcwd_calls_popen=no
 else
@@ -7084,12 +7094,12 @@ EOF
 fi
 
 echo $ac_n "checking for declaration of sbrk in <unistd.h>""... $ac_c" 1>&6
-echo "configure:7088: checking for declaration of sbrk in <unistd.h>" >&5
+echo "configure:7098: checking for declaration of sbrk in <unistd.h>" >&5
 if eval "test \"`echo '$''{'bash_cv_sbrk_declared'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 7093 "configure"
+#line 7103 "configure"
 #include "confdefs.h"
 #include <unistd.h>
 EOF
@@ -7115,7 +7125,7 @@ fi
 
 
 echo $ac_n "checking for presence of POSIX-style sigsetjmp/siglongjmp""... $ac_c" 1>&6
-echo "configure:7119: checking for presence of POSIX-style sigsetjmp/siglongjmp" >&5
+echo "configure:7129: checking for presence of POSIX-style sigsetjmp/siglongjmp" >&5
 if eval "test \"`echo '$''{'bash_cv_func_sigsetjmp'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -7125,7 +7135,7 @@ else
 
 else
   cat > conftest.$ac_ext <<EOF
-#line 7129 "configure"
+#line 7139 "configure"
 #include "confdefs.h"
 
 #ifdef HAVE_UNISTD_H
@@ -7166,7 +7176,7 @@ exit(1);
 #endif
 }
 EOF
-if { (eval echo configure:7170: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:7180: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   bash_cv_func_sigsetjmp=present
 else
@@ -7190,7 +7200,7 @@ fi
 
 
 echo $ac_n "checking whether or not strcoll and strcmp differ""... $ac_c" 1>&6
-echo "configure:7194: checking whether or not strcoll and strcmp differ" >&5
+echo "configure:7204: checking whether or not strcoll and strcmp differ" >&5
 if eval "test \"`echo '$''{'bash_cv_func_strcoll_broken'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -7200,7 +7210,7 @@ else
 
 else
   cat > conftest.$ac_ext <<EOF
-#line 7204 "configure"
+#line 7214 "configure"
 #include "confdefs.h"
 
 #include <stdio.h>
@@ -7239,7 +7249,7 @@ char    *v[];
 }
 
 EOF
-if { (eval echo configure:7243: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:7253: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   bash_cv_func_strcoll_broken=yes
 else
@@ -7265,7 +7275,7 @@ fi
 
 
 echo $ac_n "checking if signal handlers must be reinstalled when invoked""... $ac_c" 1>&6
-echo "configure:7269: checking if signal handlers must be reinstalled when invoked" >&5
+echo "configure:7279: checking if signal handlers must be reinstalled when invoked" >&5
 if eval "test \"`echo '$''{'bash_cv_must_reinstall_sighandlers'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -7275,7 +7285,7 @@ else
 
 else
   cat > conftest.$ac_ext <<EOF
-#line 7279 "configure"
+#line 7289 "configure"
 #include "confdefs.h"
 
 #include <signal.h>
@@ -7322,7 +7332,7 @@ main()
 }
 
 EOF
-if { (eval echo configure:7326: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:7336: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   bash_cv_must_reinstall_sighandlers=no
 else
@@ -7346,7 +7356,7 @@ fi
 
 
 echo $ac_n "checking for presence of necessary job control definitions""... $ac_c" 1>&6
-echo "configure:7350: checking for presence of necessary job control definitions" >&5
+echo "configure:7360: checking for presence of necessary job control definitions" >&5
 if eval "test \"`echo '$''{'bash_cv_job_control_missing'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -7356,7 +7366,7 @@ else
 
 else
   cat > conftest.$ac_ext <<EOF
-#line 7360 "configure"
+#line 7370 "configure"
 #include "confdefs.h"
 
 #include <sys/types.h>
@@ -7403,7 +7413,7 @@ exit(1);
 exit(0);
 }
 EOF
-if { (eval echo configure:7407: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:7417: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   bash_cv_job_control_missing=present
 else
@@ -7426,7 +7436,7 @@ EOF
 fi
 
 echo $ac_n "checking for presence of named pipes""... $ac_c" 1>&6
-echo "configure:7430: checking for presence of named pipes" >&5
+echo "configure:7440: checking for presence of named pipes" >&5
 if eval "test \"`echo '$''{'bash_cv_sys_named_pipes'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -7436,7 +7446,7 @@ else
 
 else
   cat > conftest.$ac_ext <<EOF
-#line 7440 "configure"
+#line 7450 "configure"
 #include "confdefs.h"
 
 #include <sys/types.h>
@@ -7477,7 +7487,7 @@ rmdir ("/tmp/bash-aclocal");
 exit(0);
 }
 EOF
-if { (eval echo configure:7481: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+if { (eval echo configure:7491: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
 then
   bash_cv_sys_named_pipes=present
 else
@@ -7501,12 +7511,12 @@ fi
 
 
 echo $ac_n "checking for TIOCGWINSZ in sys/ioctl.h""... $ac_c" 1>&6
-echo "configure:7505: checking for TIOCGWINSZ in sys/ioctl.h" >&5
+echo "configure:7515: checking for TIOCGWINSZ in sys/ioctl.h" >&5
 if eval "test \"`echo '$''{'bash_cv_tiocgwinsz_in_ioctl'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 7510 "configure"
+#line 7520 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #include <sys/ioctl.h>
@@ -7514,7 +7524,7 @@ int main() {
 int x = TIOCGWINSZ;
 ; return 0; }
 EOF
-if { (eval echo configure:7518: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:7528: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   bash_cv_tiocgwinsz_in_ioctl=yes
 else
@@ -7535,12 +7545,12 @@ EOF
 fi
 
 echo $ac_n "checking for TIOCSTAT in sys/ioctl.h""... $ac_c" 1>&6
-echo "configure:7539: checking for TIOCSTAT in sys/ioctl.h" >&5
+echo "configure:7549: checking for TIOCSTAT in sys/ioctl.h" >&5
 if eval "test \"`echo '$''{'bash_cv_tiocstat_in_ioctl'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 7544 "configure"
+#line 7554 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #include <sys/ioctl.h>
@@ -7548,7 +7558,7 @@ int main() {
 int x = TIOCSTAT;
 ; return 0; }
 EOF
-if { (eval echo configure:7552: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:7562: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   bash_cv_tiocstat_in_ioctl=yes
 else
@@ -7569,12 +7579,12 @@ EOF
 fi
 
 echo $ac_n "checking for FIONREAD in sys/ioctl.h""... $ac_c" 1>&6
-echo "configure:7573: checking for FIONREAD in sys/ioctl.h" >&5
+echo "configure:7583: checking for FIONREAD in sys/ioctl.h" >&5
 if eval "test \"`echo '$''{'bash_cv_fionread_in_ioctl'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 7578 "configure"
+#line 7588 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #include <sys/ioctl.h>
@@ -7582,7 +7592,7 @@ int main() {
 int x = FIONREAD;
 ; return 0; }
 EOF
-if { (eval echo configure:7586: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:7596: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   bash_cv_fionread_in_ioctl=yes
 else
@@ -7604,19 +7614,19 @@ fi
 
 
 echo $ac_n "checking for speed_t in sys/types.h""... $ac_c" 1>&6
-echo "configure:7608: checking for speed_t in sys/types.h" >&5
+echo "configure:7618: checking for speed_t in sys/types.h" >&5
 if eval "test \"`echo '$''{'bash_cv_speed_t_in_sys_types'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 7613 "configure"
+#line 7623 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 int main() {
 speed_t x;
 ; return 0; }
 EOF
-if { (eval echo configure:7620: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:7630: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   bash_cv_speed_t_in_sys_types=yes
 else
@@ -7636,52 +7646,106 @@ EOF
 
 fi
 
-echo $ac_n "checking whether programs are able to redeclare getpw functions""... $ac_c" 1>&6
-echo "configure:7641: checking whether programs are able to redeclare getpw functions" >&5
-if eval "test \"`echo '$''{'bash_cv_can_redecl_getpw'+set}'`\" = set"; then
+echo $ac_n "checking whether getpw functions are declared in pwd.h""... $ac_c" 1>&6
+echo "configure:7651: checking whether getpw functions are declared in pwd.h" >&5
+if eval "test \"`echo '$''{'bash_cv_getpw_declared'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 7646 "configure"
+#line 7656 "configure"
 #include "confdefs.h"
+
 #include <sys/types.h>
+#ifdef HAVE_UNISTD_H
+#  include <unistd.h>
+#endif
 #include <pwd.h>
-extern struct passwd *getpwent();
-extern struct passwd *getpwuid();
-extern struct passwd *getpwnam();
-int main() {
-struct passwd *z; z = getpwent(); z = getpwuid(0); z = getpwnam("root");
-; return 0; }
+
 EOF
-if { (eval echo configure:7657: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  egrep "getpwuid" >/dev/null 2>&1; then
   rm -rf conftest*
-  bash_cv_can_redecl_getpw=yes
+  bash_cv_getpw_declared=yes
 else
-  echo "configure: failed program was:" >&5
-  cat conftest.$ac_ext >&5
   rm -rf conftest*
-  bash_cv_can_redecl_getpw=no
+  bash_cv_getpw_declared=no
 fi
 rm -f conftest*
+
 fi
 
-echo "$ac_t""$bash_cv_can_redecl_getpw" 1>&6
-if test $bash_cv_can_redecl_getpw = no; then
+echo "$ac_t""$bash_cv_getpw_declared" 1>&6
+if test $bash_cv_getpw_declared = yes; then
 cat >> confdefs.h <<\EOF
 #define HAVE_GETPW_DECLS 1
 EOF
 
 fi
 
+echo $ac_n "checking for unusable real-time signals due to large values""... $ac_c" 1>&6
+echo "configure:7687: checking for unusable real-time signals due to large values" >&5
+if eval "test \"`echo '$''{'bash_cv_unusable_rtsigs'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  if test "$cross_compiling" = yes; then
+  echo "configure: warning: cannot check real-time signals if cross compiling -- defaulting to yes" 1>&2
+     bash_cv_unusable_rtsigs=yes
+
+else
+  cat > conftest.$ac_ext <<EOF
+#line 7697 "configure"
+#include "confdefs.h"
+
+#include <sys/types.h>
+#include <signal.h>
+
+#ifndef NSIG
+#  define NSIG 64
+#endif
+
+main ()
+{
+  int n_sigs = 2 * NSIG;
+#ifdef SIGRTMIN
+  int rtmin = SIGRTMIN;
+#else
+  int rtmin = 0;
+#endif
+
+  exit(rtmin < n_sigs);
+}
+EOF
+if { (eval echo configure:7719: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null
+then
+  bash_cv_unusable_rtsigs=yes
+else
+  echo "configure: failed program was:" >&5
+  cat conftest.$ac_ext >&5
+  rm -fr conftest*
+  bash_cv_unusable_rtsigs=no
+fi
+rm -fr conftest*
+fi
+
+fi
+
+echo "$ac_t""$bash_cv_unusable_rtsigs" 1>&6
+if test $bash_cv_unusable_rtsigs = yes; then
+cat >> confdefs.h <<\EOF
+#define UNUSABLE_RT_SIGNALS 1
+EOF
+
+fi
+
 
 case "$host_os" in
 hpux*) echo $ac_n "checking whether $host_os needs _KERNEL for RLIMIT defines""... $ac_c" 1>&6
-echo "configure:7680: checking whether $host_os needs _KERNEL for RLIMIT defines" >&5
+echo "configure:7744: checking whether $host_os needs _KERNEL for RLIMIT defines" >&5
 if eval "test \"`echo '$''{'bash_cv_kernel_rlimit'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 7685 "configure"
+#line 7749 "configure"
 #include "confdefs.h"
 
 #include <sys/types.h>
@@ -7694,7 +7758,7 @@ int main() {
 
 ; return 0; }
 EOF
-if { (eval echo configure:7698: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:7762: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   bash_cv_kernel_rlimit=no
 else
@@ -7702,7 +7766,7 @@ else
   cat conftest.$ac_ext >&5
   rm -rf conftest*
   cat > conftest.$ac_ext <<EOF
-#line 7706 "configure"
+#line 7770 "configure"
 #include "confdefs.h"
 
 #include <sys/types.h>
@@ -7717,7 +7781,7 @@ int main() {
 
 ; return 0; }
 EOF
-if { (eval echo configure:7721: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:7785: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   bash_cv_kernel_rlimit=yes
 else
@@ -7751,14 +7815,14 @@ if test "X$bash_cv_termcap_lib" = "X"; then
 _bash_needmsg=yes
 else
 echo $ac_n "checking which library has the termcap functions""... $ac_c" 1>&6
-echo "configure:7755: checking which library has the termcap functions" >&5
+echo "configure:7819: checking which library has the termcap functions" >&5
 _bash_needmsg=
 fi
 if eval "test \"`echo '$''{'bash_cv_termcap_lib'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   echo $ac_n "checking for tgetent in -ltermcap""... $ac_c" 1>&6
-echo "configure:7762: checking for tgetent in -ltermcap" >&5
+echo "configure:7826: checking for tgetent in -ltermcap" >&5
 ac_lib_var=`echo termcap'_'tgetent | sed 'y%./+-%__p_%'`
 if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
@@ -7766,7 +7830,7 @@ else
   ac_save_LIBS="$LIBS"
 LIBS="-ltermcap  $LIBS"
 cat > conftest.$ac_ext <<EOF
-#line 7770 "configure"
+#line 7834 "configure"
 #include "confdefs.h"
 /* Override any gcc2 internal prototype to avoid an error.  */
 /* We use char because int might match the return type of a gcc2
@@ -7777,7 +7841,7 @@ int main() {
 tgetent()
 ; return 0; }
 EOF
-if { (eval echo configure:7781: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:7845: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=yes"
 else
@@ -7796,7 +7860,7 @@ if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
 else
   echo "$ac_t""no" 1>&6
 echo $ac_n "checking for tgetent in -lcurses""... $ac_c" 1>&6
-echo "configure:7800: checking for tgetent in -lcurses" >&5
+echo "configure:7864: checking for tgetent in -lcurses" >&5
 ac_lib_var=`echo curses'_'tgetent | sed 'y%./+-%__p_%'`
 if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
@@ -7804,7 +7868,7 @@ else
   ac_save_LIBS="$LIBS"
 LIBS="-lcurses  $LIBS"
 cat > conftest.$ac_ext <<EOF
-#line 7808 "configure"
+#line 7872 "configure"
 #include "confdefs.h"
 /* Override any gcc2 internal prototype to avoid an error.  */
 /* We use char because int might match the return type of a gcc2
@@ -7815,7 +7879,7 @@ int main() {
 tgetent()
 ; return 0; }
 EOF
-if { (eval echo configure:7819: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:7883: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=yes"
 else
@@ -7834,7 +7898,7 @@ if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
 else
   echo "$ac_t""no" 1>&6
 echo $ac_n "checking for tgetent in -lncurses""... $ac_c" 1>&6
-echo "configure:7838: checking for tgetent in -lncurses" >&5
+echo "configure:7902: checking for tgetent in -lncurses" >&5
 ac_lib_var=`echo ncurses'_'tgetent | sed 'y%./+-%__p_%'`
 if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
@@ -7842,7 +7906,7 @@ else
   ac_save_LIBS="$LIBS"
 LIBS="-lncurses  $LIBS"
 cat > conftest.$ac_ext <<EOF
-#line 7846 "configure"
+#line 7910 "configure"
 #include "confdefs.h"
 /* Override any gcc2 internal prototype to avoid an error.  */
 /* We use char because int might match the return type of a gcc2
@@ -7853,7 +7917,7 @@ int main() {
 tgetent()
 ; return 0; }
 EOF
-if { (eval echo configure:7857: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
+if { (eval echo configure:7921: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=yes"
 else
@@ -7882,7 +7946,7 @@ fi
 
 if test "X$_bash_needmsg" = "Xyes"; then
 echo $ac_n "checking which library has the termcap functions""... $ac_c" 1>&6
-echo "configure:7886: checking which library has the termcap functions" >&5
+echo "configure:7950: checking which library has the termcap functions" >&5
 fi
 echo "$ac_t""using $bash_cv_termcap_lib" 1>&6
 if test $bash_cv_termcap_lib = gnutermcap && test -z "$prefer_curses"; then
@@ -7905,7 +7969,7 @@ fi
 
 
 echo $ac_n "checking whether /dev/fd is available""... $ac_c" 1>&6
-echo "configure:7909: checking whether /dev/fd is available" >&5
+echo "configure:7973: checking whether /dev/fd is available" >&5
 if eval "test \"`echo '$''{'bash_cv_dev_fd'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -7941,7 +8005,7 @@ EOF
 fi
 
 echo $ac_n "checking whether /dev/stdin stdout stderr are available""... $ac_c" 1>&6
-echo "configure:7945: checking whether /dev/stdin stdout stderr are available" >&5
+echo "configure:8009: checking whether /dev/stdin stdout stderr are available" >&5
 if eval "test \"`echo '$''{'bash_cv_dev_stdin'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -7964,7 +8028,7 @@ EOF
 fi
 
 echo $ac_n "checking for default mail directory""... $ac_c" 1>&6
-echo "configure:7968: checking for default mail directory" >&5
+echo "configure:8032: checking for default mail directory" >&5
 if eval "test \"`echo '$''{'bash_cv_mail_dir'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -8062,7 +8126,7 @@ lynxos*)  LOCAL_CFLAGS=-DRECYCLES_PIDS ;;
 linux*)                LOCAL_LDFLAGS=-rdynamic ;;       # allow dynamic loading
 *qnx*)         LOCAL_CFLAGS="-Dqnx -F -3s" LOCAL_LDFLAGS="-3s -lunix -lncurses" ;;
 powerux*)      LOCAL_LIBS="-lgen" ;;
-cygwin32*)     LOCAL_LIBS="-luser32" ;;
+cygwin*)       LOCAL_LIBS="-luser32" ;;
 opennt*|interix*) LOCAL_CFLAGS="-DNO_MAIN_ENV_ARG" ;;
 esac
 
@@ -8073,9 +8137,11 @@ bsdi4*-*gcc*)    LOCAL_LDFLAGS="-rdynamic" ;;    # allow dynamic loading, like Linux
 esac
 
 case "${host_os}" in
-freebsd3*)     if test -x /usr/bin/objformat && test "`/usr/bin/objformat`" = "elf" ; then
+freebsd[3-9]*)
+               if test -x /usr/bin/objformat && test "`/usr/bin/objformat`" = "elf" ; then
                        LOCAL_LDFLAGS=-rdynamic # allow dynamic loading
                fi ;;
+freebsdelf*)   LOCAL_LDFLAGS=-rdynamic ;;      # allow dynamic loading
 esac
 
 case "$host_cpu" in
@@ -8098,8 +8164,8 @@ esac
 if test "$ac_cv_func_dlopen" = "yes" && test -f ${srcdir}/support/shobj-conf
 then
        echo $ac_n "checking shared object configuration for loadable builtins""... $ac_c" 1>&6
-echo "configure:8102: checking shared object configuration for loadable builtins" >&5
-       eval `${CONFIG_SHELL-/bin/sh} ${srcdir}/support/shobj-conf -C "${CC}" -c ${host_cpu} -o ${host_os} -v ${host_vendor}`
+echo "configure:8168: checking shared object configuration for loadable builtins" >&5
+       eval `${CONFIG_SHELL-/bin/sh} ${srcdir}/support/shobj-conf -C "${CC}" -c "${host_cpu}" -o "${host_os}" -v "${host_vendor}"`
        
        
        
index d74f1d3bf7f970fc7ab2cf13a5b198a8b69f963f..72134e1e98160b3b724bc874b8c6932938b1014e 100644 (file)
@@ -1,12 +1,12 @@
 dnl
-dnl Configure script for bash-2.04
+dnl Configure script for bash-2.05
 dnl
 dnl report bugs to chet@po.cwru.edu
 dnl
 dnl Process this file with autoconf to produce a configure script.
 
 dnl checks for version info
-AC_REVISION([for Bash 2.04, version 2.77, from autoconf version] AC_ACVERSION)dnl
+AC_REVISION([for Bash 2.05, version 2.90, from autoconf version] AC_ACVERSION)dnl
 
 AC_INIT(shell.h)
 AC_CONFIG_HEADER(config.h)
@@ -32,12 +32,12 @@ opt_with_installed_readline=no
 
 #htmldir=
 
-dnl some systems should be configured without gnu malloc by default
+dnl some systems should be configured without the bash malloc by default
 dnl and some need a special compiler or loader
 dnl look in the NOTES file for more
 case "${host_cpu}-${host_os}" in
 alpha*-*)      opt_bash_malloc=no ;;   # alpha running osf/1 or linux
-*[Cc]ray*-*)   opt_bash_malloc=no ;;   # Crays
+*[[Cc]]ray*-*) opt_bash_malloc=no ;;   # Crays
 *-osf1*)       opt_bash_malloc=no ;;   # other osf/1 machines
 sparc-svr4*)   opt_bash_malloc=no ;;   # sparc SVR4, SVR4.2
 sparc-netbsd*) opt_bash_malloc=no ;;   # needs 8-byte alignment
@@ -47,13 +47,16 @@ sparc-linux*)       opt_bash_malloc=no ;;   # sparc running linux; requires ELF
 #*-freebsd*)   opt_bash_malloc=no ;;   # they claim it's better
 *-aix*)                opt_bash_malloc=no ;;   # AIX machines
 *-nextstep*)   opt_bash_malloc=no ;;   # NeXT machines running NeXTstep
-*-rhapsody*)   opt_bash_malloc=no ;;   # Apple Rhapsody
+*-macos*)      opt_bash_malloc=no ;;   # Apple MacOS X
+*-rhapsody*)   opt_bash_malloc=no ;;   # Apple Rhapsody (MacOS X)
+*-darwin*)     opt_bash_malloc=no ;;   # Apple Darwin (MacOS X)
 *-dgux*)       opt_bash_malloc=no ;;   # DG/UX machines
 *-qnx*)                opt_bash_malloc=no ;;   # QNX 4.2
 *-machten4)    opt_bash_malloc=no ;;   # MachTen 4.x
 *-bsdi2.1|*-bsdi3.?)   opt_bash_malloc=no ; : ${CC:=shlicc2} ;; # for loadable builtins
 *-beos*)       opt_bash_malloc=no ;;   # they say it's suitable
-*-cygwin32*)   opt_bash_malloc=no ;;   # Cygnus's CYGWIN32 environment
+*-cygwin*)     opt_bash_malloc=no ;;   # Cygnus's CYGWIN environment
+*-opennt*|*-interix*)  opt_bash_malloc=no ;;   # Interix, now owned by Microsoft
 esac
 
 dnl arguments to configure
@@ -270,7 +273,7 @@ AC_CYGWIN
 AC_MINGW32
 AC_EXEEXT
 
-dnl BEGIN changes for cross-building for cygwin32 and BeOS
+dnl BEGIN changes for cross-building for cygwin and BeOS
 
 SIGNAMES_H=lsignames.h
 
@@ -283,7 +286,7 @@ dnl Set SIGNAMES_H based on whether or not we're cross-compiling.
 
 if test "x$cross_compiling" = "xyes"; then
     case "${host}" in
-    *-cygwin32*)
+    *-cygwin*)
        cross_cache=${srcdir}/cross-build/cygwin32.cache
        SIGNAMES_H='$(srcdir)/cross-build/win32sig.h'
        ;;
@@ -333,6 +336,7 @@ if test "$opt_static_link" = yes; then
        # if we're using gcc, add `-static' to LDFLAGS
        if test -n "$GCC" || test "$ac_cv_prog_gcc" = "yes"; then
                STATIC_LD="-static"
+               LDFLAGS="$LDFLAGS -static"      # XXX experimental
        fi
 fi
 
@@ -361,11 +365,11 @@ dnl       the correct directory for the readline library
        test "x$exec_prefix" = xNONE && _rl_exec_prefix=${_rl_prefix} || _rl_exec_prefix=${exec_prefix}
 
        AC_MSG_CHECKING(version of installed readline library)
-       _rl_version=`exec_prefix=${_rl_exec_prefix} ${CONFIG_SHELL-/bin/sh} ${srcdir}/support/rlvers.sh -C "${CC}" -L ${libdir} -T ${TERMCAP_LIB}`
+       _rl_version=`exec_prefix=${_rl_exec_prefix} ${CONFIG_SHELL-/bin/sh} ${srcdir}/support/rlvers.sh -C "${CC}" -L ${libdir} -I ${includedir} -T ${TERMCAP_LIB}`
        AC_MSG_RESULT($_rl_version)
 
        case "$_rl_version" in
-       4.[[1-9]]*|5*|6*|7*|8*|9*)      ;;
+       4.[[2-9]]*|5*|6*|7*|8*|9*)      ;;
        *)      opt_with_installed_readline=no 
                AC_MSG_WARN(installed readline library is too old to be linked with bash)
                AC_MSG_WARN(using private bash version)
@@ -466,14 +470,15 @@ AC_CHECK_FUNC(mkfifo,AC_DEFINE(HAVE_MKFIFO),AC_DEFINE(MKFIFO_MISSING))
 dnl checks for system calls
 AC_CHECK_FUNCS(dup2 select getdtablesize getgroups gethostname \
                setdtablesize getpagesize killpg lstat getpeername sbrk \
-               getrlimit getrusage gettimeofday waitpid tcgetpgrp rename)
+               getrlimit getrusage gettimeofday waitpid tcgetpgrp \
+               readlink rename)
 
 dnl checks for c library functions
 AC_CHECK_FUNCS(bcopy bzero confstr getcwd strcasecmp setenv putenv \
                setlinebuf setlocale strchr strerror strtod strtol \
                strtoul tcgetattr uname sysconf ulimit times tzset \
-               siginterrupt memmove ttyname gethostbyname inet_aton \
-               strpbrk setvbuf)
+               siginterrupt memmove ttyname gethostbyname getservbyname \
+               inet_aton strpbrk setvbuf pathconf)
 
 dnl checks for locale functions
 AC_CHECK_HEADERS(libintl.h)
@@ -630,6 +635,7 @@ BASH_HAVE_FIONREAD
 dnl miscellaneous
 BASH_MISC_SPEED_T
 BASH_CHECK_GETPW_FUNCS
+BASH_CHECK_RTSIGS
 
 dnl special checks
 case "$host_os" in
@@ -692,7 +698,7 @@ lynxos*)    LOCAL_CFLAGS=-DRECYCLES_PIDS ;;
 linux*)                LOCAL_LDFLAGS=-rdynamic ;;       # allow dynamic loading
 *qnx*)         LOCAL_CFLAGS="-Dqnx -F -3s" LOCAL_LDFLAGS="-3s -lunix -lncurses" ;;
 powerux*)      LOCAL_LIBS="-lgen" ;;
-cygwin32*)     LOCAL_LIBS="-luser32" ;;
+cygwin*)       LOCAL_LIBS="-luser32" ;;
 opennt*|interix*) LOCAL_CFLAGS="-DNO_MAIN_ENV_ARG" ;;
 esac
 
@@ -705,9 +711,11 @@ esac
 
 dnl FreeBSD-3.x can have either a.out or ELF
 case "${host_os}" in
-freebsd3*)     if test -x /usr/bin/objformat && test "`/usr/bin/objformat`" = "elf" ; then
+freebsd[[3-9]]*)
+               if test -x /usr/bin/objformat && test "`/usr/bin/objformat`" = "elf" ; then
                        LOCAL_LDFLAGS=-rdynamic # allow dynamic loading
                fi ;;
+freebsdelf*)   LOCAL_LDFLAGS=-rdynamic ;;      # allow dynamic loading
 esac
 
 case "$host_cpu" in
@@ -730,7 +738,7 @@ esac
 if test "$ac_cv_func_dlopen" = "yes" && test -f ${srcdir}/support/shobj-conf
 then
        AC_MSG_CHECKING(shared object configuration for loadable builtins)
-       eval `${CONFIG_SHELL-/bin/sh} ${srcdir}/support/shobj-conf -C "${CC}" -c ${host_cpu} -o ${host_os} -v ${host_vendor}`
+       eval `${CONFIG_SHELL-/bin/sh} ${srcdir}/support/shobj-conf -C "${CC}" -c "${host_cpu}" -o "${host_os}" -v "${host_vendor}"`
        AC_SUBST(SHOBJ_CC)
        AC_SUBST(SHOBJ_CFLAGS)
        AC_SUBST(SHOBJ_LD)
index 964a3e772a22b9553768f2f87a48bc36e112ef1d..80c9651a659025c469d0047b9f32056cf3e0abed 100644 (file)
@@ -39,7 +39,11 @@ copy_word (w)
   WORD_DESC *new_word;
 
   new_word = (WORD_DESC *)xmalloc (sizeof (WORD_DESC));
+#if 1
+  new_word->flags = w->flags;
+#else
   FASTCOPY ((char *)w, (char *)new_word, sizeof (WORD_DESC));
+#endif
   new_word->word = savestring (w->word);
   return (new_word);
 }
@@ -291,6 +295,8 @@ copy_function_def (com)
   new_def = (FUNCTION_DEF *)xmalloc (sizeof (FUNCTION_DEF));
   new_def->name = copy_word (com->name);
   new_def->command = copy_command (com->command);
+  new_def->flags = com->flags;
+  new_def->line = com->line;
   return (new_def);
 }
 
@@ -338,8 +344,8 @@ copy_command (command)
        break;
 
       case cm_subshell:
-        new_command->value.Subshell = copy_subshell_command (command->value.Subshell);
-        break;
+       new_command->value.Subshell = copy_subshell_command (command->value.Subshell);
+       break;
 
       case cm_case:
        new_command->value.Case = copy_case_command (command->value.Case);
@@ -356,8 +362,8 @@ copy_command (command)
 
 #if defined (DPAREN_ARITHMETIC)
       case cm_arith:
-        new_command->value.Arith = copy_arith_command (command->value.Arith);
-        break;
+       new_command->value.Arith = copy_arith_command (command->value.Arith);
+       break;
 #endif
 
 #if defined (COND_COMMAND)
diff --git a/doc/FAQ b/doc/FAQ
index 5c678e9f62386867792d6d1ec32d167ed0764121..1fafa6df34b08e9c73e00a99abec39b4caebdcb4 100644 (file)
--- a/doc/FAQ
+++ b/doc/FAQ
@@ -1,4 +1,4 @@
-This is the Bash FAQ, version 3.7, for Bash version 2.04.
+This is the Bash FAQ, version 3.11, for Bash version 2.05.
 
 This document contains a set of frequently-asked questions concerning
 Bash, the GNU Bourne-Again Shell.  Bash is a freely-available command
@@ -36,8 +36,8 @@ A10) What is the bash `posix mode'?
 
 Section B:  The latest version
 
-B1) What's new in version 2.04?
-B2) Are there any user-visible incompatibilities between bash-2.04 and
+B1) What's new in version 2.05?
+B2) Are there any user-visible incompatibilities between bash-2.05 and
     bash-1.14.7?
 
 Section C:  Differences from other Unix shells
@@ -70,6 +70,10 @@ E5) I have a bunch of shell scripts that use backslash-escaped characters
     in arguments to `echo'.  Bash doesn't interpret these characters.  Why
     not, and how can I make it understand them?
 E6) Why doesn't a while or for loop get suspended when I type ^Z?
+E7) What about empty for loops in Makefiles?
+E8) Why does the arithmetic evaluation code complain about `08'?
+E9) Why does the pattern matching expression [A-Z]* match files beginning
+    with every letter except `z'?
 
 Section F:  Things to watch out for on certain Unix versions
 
@@ -130,22 +134,22 @@ of Case Western Reserve University.
 
 A2)  What's the latest version?
 
-The latest version is 2.04, first made available on Friday, 17 March 2000.
+The latest version is 2.05, first made available on Monday, 9 April 2001.
 
 A3)  Where can I get it?
 
 Bash is the GNU project's shell, and so is available from the
 master GNU archive site, ftp.gnu.org, and its mirrors.  The
 latest version is also available for FTP from ftp.cwru.edu.
-The following URLs tell how to get version 2.04:
+The following URLs tell how to get version 2.05:
 
-ftp://ftp.gnu.org/pub/gnu/bash/bash-2.04.tar.gz
-ftp://ftp.cwru.edu/pub/bash/bash-2.04.tar.gz
+ftp://ftp.gnu.org/pub/gnu/bash/bash-2.05.tar.gz
+ftp://ftp.cwru.edu/pub/bash/bash-2.05.tar.gz
 
 Formatted versions of the documentation are available with the URLs:
 
-ftp://ftp.gnu.org/pub/gnu/bash/bash-doc-2.04.tar.gz
-ftp://ftp.cwru.edu/pub/bash/bash-doc-2.04.tar.gz
+ftp://ftp.gnu.org/pub/gnu/bash/bash-doc-2.05.tar.gz
+ftp://ftp.cwru.edu/pub/bash/bash-doc-2.05.tar.gz
 
 A4)  On what machines will bash run?
 
@@ -160,7 +164,7 @@ More information appears in the file `INSTALL' in the distribution.
 A5) Will bash run on operating systems other than Unix?
 
 Configuration specifics for Unix-like systems such as QNX and
-LynxOS are included in the distribution.  Bash-2.04 should 
+LynxOS are included in the distribution.  Bash-2.05 should 
 compile and run on Minix 2.0 (patches were contributed), but I
 don't believe anyone has built bash-2.x on earlier Minix versions
 yet.
@@ -168,16 +172,17 @@ yet.
 Bash has been ported to versions of Windows implementing the Win32
 programming interface.  This includes Windows 95 and Windows NT.
 The port was done by Cygnus Solutions as part of their CYGWIN
-project.  For more information about the project, look at the URL
+project.  For more information about the project, look at the URLs
 
-http:/sourceware.cygnus.com/cygwin
+http://www.cygwin.com/
+http://sourceware.cygnus.com/cygwin
 
 Cygnus originally ported bash-1.14.7, and that port was part of their
 early GNU-Win32 (the original name) releases.  Cygnus has also done a
-port of bash-2.02.1 to the CYGWIN environment, and it is available as
-part of their current release.  (They may have upgraded by now.)
+port of bash-2.04 to the CYGWIN environment, and it is available as
+part of their current release.
 
-Bash-2.04 should require no local Cygnus changes to build and run under
+Bash-2.05 should require no local Cygnus changes to build and run under
 CYGWIN.
 
 The Cygnus port works only on Intel machines.  There is a port of bash
@@ -185,25 +190,13 @@ The Cygnus port works only on Intel machines.  There is a port of bash
 
 ftp://ftp.gnustep.org//pub/win32/bash-alpha-nt-1.01.tar.gz
 
-Softway Systems has ported bash-2.01 to their Interix (nee OpenNT)
-system, a Unix subsystem for NT that replaces the Microsoft POSIX
-subsystem.  Check out http://www.interix.com for more information.
-Some support for Interix has been incorporated into bash, beginning
-with Bash-2.03.  It should be easier to build bash on Interix now,
-but Interix users should fetch
-
-ftp://ftp.interix.com/pub/tw/unsup/bash.diffs.tar.gz
-
-and read the README.OpenNT file in that archive.  It will detail the
-arguments `configure' needs to build on Interix.  A configure cache
-file for Interix is in the bash distribution in cross-build/opennt.cache;
-copy that to `config.cache' before starting configure.
-
-D. J. Delorie has ported bash-1.14.7 to run under MS-DOS, as part of
-the DJGPP project.  For more information on the project, see
+DJ Delorie has a port of bash-1.14.7 which runs under MS-DOS, as part
+of the DJGPP project.  For more information on the project, see
 
 http://www.delorie.com/djgpp/
 
+I have been told that the original DJGPP port was done by Daisuke Aoyama.
+
 I picked up a binary of bash-1.14.7 that is purported to work with
 the DJGPP V2 environment from
 
@@ -374,18 +367,45 @@ Reference Manual.
 
 Section B:  The latest version
 
-B1) What's new in version 2.04?
+B1) What's new in version 2.05?
 
-Bash-2.04 contains the following new features (see the manual page for
-complete descriptions and the CHANGES and NEWS files in the bash-2.04
+Bash-2.05 contains the following new features (see the manual page for
+complete descriptions and the CHANGES and NEWS files in the bash-2.05
 distribution):
 
+o This version has once again reverted to using locales and strcoll(3) when
+  processing pattern matching bracket expressions, as POSIX requires. 
+o Added a new `--init-file' invocation argument as a synonym for `--rcfile',
+  per the new GNU coding standards.
+o The /dev/tcp and /dev/udp redirections now accept service names as well as
+  port numbers.
+o `complete' and `compgen' now take a `-o value' option, which controls some
+   of the aspects of that compspec.  Valid values are:
+
+        default - perform bash default completion if programmable
+                  completion produces no matches
+        dirnames - perform directory name completion if programmable
+                   completion produces no matches
+        filenames - tell readline that the compspec produces filenames,
+                    so it can do things like append slashes to
+                    directory names and suppress trailing spaces
+o A new loadable builtin, realpath, which canonicalizes and expands symlinks
+  in pathname arguments.
+o When `set' is called without options, it prints function defintions in a
+  way that allows them to be reused as input.  This affects `declare' and 
+  `declare -p' as well.  This only happens when the shell is not in POSIX
+   mode, since POSIX.2 forbids this behavior.
+
+A short feature history dating from bash-2.0:
+
+Bash-2.04 introduced the following new features:
+
 o Programmable word completion with the new `complete' and `compgen' builtins;
   examples are provided in examples/complete/complete-examples
 o `history' has a new `-d' option to delete a history entry
 o `bind' has a new `-x' option to bind key sequences to shell commands
 o The prompt expansion code has new `\j' and `\l' escape sequences
-o The `no_empty_command_completion' shell option, if enabled, inhibits
+o The `no_empty_cmd_completion' shell option, if enabled, inhibits
   command completion when TAB is typed on an empty line
 o `help' has a new `-s' option to print a usage synopsis
 o New arithmetic operators: var++, var--, ++var, --var, expr1,expr2 (comma)
@@ -405,7 +425,7 @@ o A new shopt `xpg_echo' variable, to control the behavior of echo with
   respect to backslash-escape sequences at runtime
 o The NON_INTERACTIVE_LOGIN_SHELLS #define has returned
 
-The version of Readline released with Bash-2.04, Readline-4.1, has several
+The version of Readline released with Bash-2.04, Readline-4.1, had several
 new features as well:
 
 o Parentheses matching is always compiled into readline, and controllable
@@ -417,8 +437,6 @@ o A new function for applications:  rl_on_new_line_with_prompt()
 o New variables for applications:  rl_already_prompted, and rl_gnu_readline_p
 
 
-A short feature history dating from bash-2.0:
-
 Bash-2.03 had very few new features, in keeping with the convention
 that odd-numbered releases provide mainly bug fixes.  A number of new
 features were added to Readline, mostly at the request of the Cygnus
@@ -505,11 +523,11 @@ grammar tighter and smaller (66 reduce-reduce conflicts gone)
 lots of code now smaller and faster
 test suite greatly expanded
 
-B2) Are there any user-visible incompatibilities between bash-2.04 and
+B2) Are there any user-visible incompatibilities between bash-2.05 and
     bash-1.14.7?
 
-There are a few incompatibilities between version 1.14.7 and version 2.04.
-They are detailed in the file COMPAT in the bash-2.04 distribution.
+There are a few incompatibilities between version 1.14.7 and version 2.05.
+They are detailed in the file COMPAT in the bash-2.05 distribution.
 
 Section C:  Differences from other Unix shells
 
@@ -660,6 +678,7 @@ Things bash has or uses that ksh88 does not:
 Things ksh88 has or uses that bash does not:
        tracked aliases
        variables: ERRNO, FPATH, EDITOR, VISUAL
+       trap on ERR
        co-processes (|&, >&p, <&p)
        weirdly-scoped functions
        typeset +f to list all function names without definitions
@@ -678,7 +697,7 @@ Implementation differences:
 
 C3)  Which new features in ksh-93 are not in bash, and which are?
 
-New things in ksh-93 not in bash-2.04:
+New things in ksh-93 not in bash-2.05:
        associative arrays
        floating point arithmetic
        math library functions
@@ -824,15 +843,15 @@ D4) How can I make my csh aliases work when I convert to bash?
 Bash uses a different syntax to support aliases than csh does. 
 The details can be found in the documentation.  We have provided
 a shell script which does most of the work of conversion for you;
-this script can be found in ./examples/misc/alias-conv.sh.  Here is
+this script can be found in ./examples/misc/aliasconv.sh.  Here is
 how you use it:
   
 Start csh in the normal way for you.  (e.g., `csh')
   
-Pipe the output of `alias' through `alias-conv.sh', saving the
+Pipe the output of `alias' through `aliasconv.sh', saving the
 results into `bash_aliases':
   
-       alias | alias-conv.sh >bash_aliases
+       alias | bash aliasconv.sh >bash_aliases
   
 Edit `bash_aliases', carefully reading through any created
 functions.  You will need to change the names of some csh specific
@@ -967,7 +986,10 @@ E4) If I pipe the output of a command into `read variable', why doesn't
     the output show up in $variable when the read command finishes?
 
 This has to do with the parent-child relationship between Unix
-processes. 
+processes.  It affects all commands run in pipelines, not just
+simple calls to `read'.  For example, piping a command's output
+into a `while' loop that repeatedly calls `read' will result in
+the same behavior.
 
 Each element of a pipeline runs in a separate process, a child of
 the shell running the pipeline.  A subprocess cannot affect its
@@ -1058,6 +1080,100 @@ If you want to be able to stop the entire loop, you need to put it
 within parentheses, which will force the loop into a subshell that
 may be stopped (and subsequently restarted) as a single unit.
 
+E7) What about empty for loops in Makefiles?
+
+It's fairly common to see constructs like this in automatically-generated
+Makefiles:
+
+SUBDIRS = @SUBDIRS@
+
+       ...
+
+subdirs-clean:
+       for d in ${SUBDIRS}; do \
+               ( cd $$d && ${MAKE} ${MFLAGS} clean ) \
+       done
+
+When SUBDIRS is empty, this results in a command like this being passed to
+bash:
+
+       for d in ; do
+               ( cd $d && ${MAKE} ${MFLAGS} clean )
+       done
+
+This is a syntax error.  If the reserved word `in' is present, a word must
+follow it before the semicolon or newline.  The language in the manual page
+referring to the list of words being empty refers to the list after it is
+expanded.  There must be at least one word following the `in' when the
+construct is parsed.
+
+The idiomatic Makefile solution is something like:
+
+SUBDIRS = @SUBDIRS@
+
+subdirs-clean:
+       subdirs=$SUBDIRS ; for d in $$subdirs; do \
+               ( cd $$d && ${MAKE} ${MFLAGS} clean ) \
+       done
+
+
+The POSIX.2 interpretation committee has considered this issue and declared
+that the bash implemenation is correct, according to the standard:
+
+http://www.pasc.org/interps/unofficial/db/p1003.2/pasc-1003.2-169.html
+
+E8) Why does the arithmetic evaluation code complain about `08'?
+
+The bash arithmetic evaluation code (used for `let', $(()), (()), and in
+other places), interprets a leading `0' in numeric constants as denoting
+an octal number, and a leading `0x' as denoting hexadecimal.  This is
+in accordance with the POSIX.2 spec, section 2.9.2.1, which states that
+arithmetic constants should be handled as signed long integers as defined
+by the ANSI/ISO C standard.
+
+The POSIX.2 interpretation committee has confirmed this:
+
+http://www.pasc.org/interps/unofficial/db/p1003.2/pasc-1003.2-173.html
+
+E9) Why does the pattern matching expression [A-Z]* match files beginning
+    with every letter except `z'?
+
+Bash-2.05 and later versions have reverted to the bash-2.03 behavior of
+honoring the current locale setting when processing ranges within pattern
+matching bracket expressions ([A-Z]).  This is what POSIX.2 and SUSv2/XPG5
+specify. 
+
+The behavior of the matcher in bash-2.05 depends on the current LC_COLLATE
+setting.  Setting this variable to `C' or `POSIX' will result in the
+traditional behavior ([A-Z] matches all uppercase ASCII characters).
+Many other locales, including the en_US locale (the default on many US
+versions of Linux) collate the upper and lower case letters like this:
+
+       AaBb...Zz
+
+which means that [A-Z] matches every letter except `z'.
+
+The portable way to specify upper case letters is [:upper:] instead of
+A-Z; lower case may be specified as [:lower:] instead of a-z.
+
+Look at the manual pages for setlocale(3), strcoll(3), and, if it is
+present, locale(1).  If you have locale(1), you can use it to find
+your current locale information even if you do not have any of the
+LC_ variables set.
+
+My advice is to put
+
+       export LC_COLLATE=C
+
+into /etc/profile and inspect any shell scripts run from cron for
+constructs like [A-Z].  This will prevent things like
+
+       rm [A-Z]*
+
+from removing every file in the current directory except those beginning
+with `z' and still allow individual users to change the collation order.
+Users may put the above command into their own profiles as well, of course.
+
 Section F:  Things to watch out for on certain Unix versions
 
 F1) Why can't I use command line editing in my `cmdtool'?
@@ -1163,7 +1279,7 @@ comp.unix.shell).  While most commands of the form
 can be converted to `< file command', shell control structures such as
 loops and subshells require `command < file'.
 
-The file CWRU/sh-redir-hack in the bash-2.04 distribution is an
+The file CWRU/sh-redir-hack in the bash-2.05 distribution is an
 (unofficial) patch to parse.y that will modify the grammar to
 support this construct.  It will not apply with `patch'; you must
 modify parse.y by hand.  Note that if you apply this, you must
@@ -1410,8 +1526,12 @@ H3) What's coming in future versions?
 
 These are features I plan to include in a future version of bash.
 
-a bash debugger (a minimally-tested version is included with bash-2.04)
+a bash debugger (a minimally-tested version is included with bash-2.05)
 associative arrays
+changes to the DEBUG trap to be compatible with ksh93 (which runs the
+trap before each simple command, instead of after each one like previous
+versions)
+an implementation of the ksh-like ERR trap
 
 H4) What's on the bash `wish list' for future versions?
 
@@ -1428,11 +1548,11 @@ a better loadable interface to perl with access to the shell builtins and
 
 H5) When will the next release appear?
 
-The next version will appear sometime in 2000 or 2001.  Never make
+The next version will appear sometime in 2001 or 2002.  Never make
 predictions. 
 
 
-This document is Copyright 1995-2000 by Chester Ramey.
+This document is Copyright 1995-2001 by Chester Ramey.
 
 Permission is hereby granted, without written agreement and
 without license or royalty fees, to use, copy, and distribute
index 9d006434deb93ba6f6b825db071e018eae97f122..ab46f0c2d4019daa46720b624305380761980c18 100644 (file)
@@ -110,10 +110,10 @@ RLUSER      = $(RL_LIBDIR)/doc/rluser.texinfo
 all: ps info dvi text html
 nodvi: ps info text html
 
-PSFILES = bash.ps bashbug.ps readline.ps article.ps builtins.ps rbash.ps
+PSFILES = bash.ps bashbug.ps article.ps builtins.ps rbash.ps
 DVIFILES = bashref.dvi bashref.ps
 INFOFILES = bashref.info
-MAN0FILES = bash.0 bashbug.0 builtins.0 rbash.0 readline.0
+MAN0FILES = bash.0 bashbug.0 builtins.0 rbash.0
 HTMLFILES = bashref.html bash.html
 
 ps: ${PSFILES}
@@ -162,8 +162,6 @@ bash.0: bash.1
 bashbug.0: bashbug.1
 builtins.0: builtins.1 bash.1
 rbash.0: rbash.1 bash.1
-readline.0: readline.3
-readline.ps: readline.3
 article.ps: article.ms
 
 $(MAN2HTML):   ${topdir}/support/man2html.c
@@ -212,8 +210,6 @@ maintainer-clean:   clean
 
 installdirs:
        -test -d $(man1dir) || $(SHELL) ${MKDIRS} $(man1dir)
-# uncomment the next line to create the directory for the readline man page
-#      -test -d $(man3dir) || $(SHELL) ${MKDIRS} $(man3dir)
        -test -d $(infodir) || $(SHELL) ${MKDIRS} $(infodir)
        -if [ -n "$(htmldir)" ]; then \
                test -d $(htmldir) || $(SHELL) ${MKDIRS} $(htmldir) ; \
@@ -222,8 +218,6 @@ installdirs:
 install: info installdirs
        -$(INSTALL_DATA) $(srcdir)/bash.1 $(man1dir)/bash.${man1ext}
        -$(INSTALL_DATA) $(srcdir)/bashbug.1 $(man1dir)/bashbug.${man1ext}
-# uncomment the next line to install the readline man page
-#      -$(INSTALL_DATA) $(srcdir)/readline.3 $(man3dir)/readline.${man3ext}
 # uncomment the next line to install the builtins man page
 #      $(INSTALL_DATA) $(srcdir)/builtins.1 $(man1dir)/bash_builtins.${man1ext}
        -$(INSTALL_DATA) $(srcdir)/bashref.info $(infodir)/bash.info
@@ -239,7 +233,6 @@ install: info installdirs
 
 uninstall:
        -$(RM) $(man1dir)/bash.${man1ext} $(man1dir)/bashbug.${man1ext}
-       -$(RM) $(man3dir)/readline.${man3ext}
        $(RM) $(infodir)/bash.info
        -if [ -n "$(htmldir)" ]; then \
                $(RM) $(htmldir)/bash.html ; \
@@ -256,3 +249,5 @@ posix:      bashref.texi
        $(SHELL) ./mkposix
        cmp -s POSIX.NOTES ../CWRU/POSIX.NOTES || mv POSIX.NOTES ../CWRU/POSIX.NOTES
        $(RM) POSIX.NOTES
+
+xdist: inst posix
index d1dd752481547736915605126bd77c54039752a9..8809816398416bf464a3e7ebce3222a252cfed55 100644 (file)
@@ -6,12 +6,12 @@
 .\"    Case Western Reserve University
 .\"    chet@ins.CWRU.Edu
 .\"
-.\"    Last Change: Tue Mar 14 11:36:43 EST 2000
+.\"    Last Change: Mon Mar  5 10:19:14 EST 2001
 .\"
 .\" bash_builtins, strip all but Built-Ins section
 .if \n(zZ=1 .ig zZ
 .if \n(zY=1 .ig zY
-.TH BASH 1 "2000 Mar 14" "GNU Bash-2.04"
+.TH BASH 1 "2001 Mar 5" "GNU Bash-2.05"
 .\"
 .\" There's some problem with having a `@'
 .\" in a tagged paragraph with the BSD man macros.
@@ -51,8 +51,8 @@ bash \- GNU Bourne-Again SHell
 [options]
 [file]
 .SH COPYRIGHT
-.if n Bash is Copyright (C) 1989-1999 by the Free Software Foundation, Inc.
-.if t Bash is Copyright \(co 1989-1999 by the Free Software Foundation, Inc.
+.if n Bash is Copyright (C) 1989-2001 by the Free Software Foundation, Inc.
+.if t Bash is Copyright \(co 1989-2001 by the Free Software Foundation, Inc.
 .SH DESCRIPTION
 .B Bash
 is an \fBsh\fR-compatible command language interpreter that
@@ -110,7 +110,7 @@ A list of all double-quoted strings preceded by \fB$\fP
 is printed on the standard ouput.
 These are the strings that
 are subject to language translation when the current locale
-is not C or POSIX.
+is not \fBC\fP or \fBPOSIX\fP.
 This implies the \fB\-n\fP option; no commands will be executed.
 .TP
 .B \-\-
@@ -141,6 +141,20 @@ Equivalent to \fB\-D\fP.
 .B \-\-help
 Display a usage message on standard output and exit successfully.
 .TP
+.PD 0
+\fB\-\-init\-file\fP \fIfile\fP
+.TP
+\fB\-\-rcfile\fP \fIfile\fP
+.PD
+Execute commands from
+.I file
+instead of the standard personal initialization file
+.I ~/.bashrc
+if the shell is interactive (see
+.SM
+.B INVOCATION
+below).
+.TP
 .B \-\-login
 Make
 .B bash
@@ -178,17 +192,7 @@ This option is on by default if the shell is invoked as
 .TP
 .B \-\-posix
 Change the behavior of \fBbash\fP where the default operation differs
-from the POSIX 1003.2 standard to match the standard.
-.TP
-\fB\-\-rcfile\fP \fIfile\fP
-Execute commands from
-.I file
-instead of the standard personal initialization file
-.I ~/.bashrc
-if the shell is interactive (see
-.SM
-.B INVOCATION
-below).
+from the POSIX 1003.2 standard to match the standard (\fIposix mode\fP).
 .TP
 .B \-\-restricted
 The shell becomes restricted (see
@@ -303,7 +307,8 @@ expanded value as the name of a file to read and execute.
 behaves as if the following command were executed:
 .sp .5
 .RS
-\f(CWif [ \-n "$BASH_ENV" ]; then . "$BASH_ENV"; fi\fP
+.if t \f(CWif [ \-n "$BASH_ENV" ]; then . "$BASH_ENV"; fi\fP
+.if n if [ \-n "$BASH_ENV" ]; then . "$BASH_ENV"; fi
 .RE
 .sp .5
 but the value of the
@@ -1119,7 +1124,7 @@ user is a member.
 Assignments to    
 .SM
 .B GROUPS
-have no effect and are silently discarded.
+have no effect and return an error status.
 If
 .SM
 .B GROUPS
@@ -1223,7 +1228,7 @@ This variable exists only when a shell function is executing.
 Assignments to
 .SM
 .B FUNCNAME
-have no effect and are silently discarded.
+have no effect and return an error status.
 If
 .SM
 .B FUNCNAME
@@ -1376,7 +1381,9 @@ the shell looks for commands (see
 below).  The default path is system-dependent,
 and is set by the administrator who installs
 .BR bash .
-A common value is ``/usr/gnu/bin:/usr/local/bin:/usr/ucb:/bin:/usr/bin:.''.
+A common value is
+.if t \f(CW/usr/gnu/bin:/usr/local/bin:/usr/ucb:/bin:/usr/bin:.\fP.
+.if n ``/usr/gnu/bin:/usr/local/bin:/usr/ucb:/bin:/usr/bin:.''.
 .TP
 .B HOME
 The home directory of the current user; the default argument for the
@@ -1421,7 +1428,8 @@ often (in seconds)
 .B bash
 checks for mail.  The default is 60 seconds.  When it is time to check
 for mail, the shell does so before displaying the primary prompt.
-If this variable is unset, the shell disables mail checking.
+If this variable is unset, or set to a value that is not a number
+greater than or equal to zero, the shell disables mail checking.
 .TP
 .B MAILPATH
 A colon-separated list of file names to be checked for mail. 
@@ -1578,6 +1586,14 @@ strings preceded by a \fB$\fP.
 .B LC_NUMERIC
 This variable determines the locale category used for number formatting.
 .TP
+.B LINES
+Used by the \fBselect\fP builtin command to determine the column length
+for printing selection lists.  Automatically set upon receipt of a SIGWINCH.
+.TP
+.B COLUMNS
+Used by the \fBselect\fP builtin command to determine the terminal width
+when printing selection lists.  Automatically set upon receipt of a SIGWINCH.
+.TP
 .B PROMPT_COMMAND
 If set, the value is executed as a command prior to issuing each primary
 prompt.
@@ -2502,9 +2518,10 @@ Matches any single character.
 .TP
 .B [...]
 Matches any one of the enclosed characters.  A pair of characters
-separated by a minus sign denotes a
-.IR range ;
-any character lexically between those two characters, inclusive,
+separated by a hyphen denotes a
+\fIrange expression\fP;
+any character that sorts between those two characters, inclusive,
+using the current locale's collating sequence and character set,
 is matched.  If the first character following the
 .B [
 is a
@@ -2512,6 +2529,9 @@ is a
 or a
 .B ^
 then any character not enclosed is matched.
+The sorting order of characters in range expressions is determined by
+the current locale and the value of the \fBLC_COLLATE\fP shell variable,
+if set.
 A 
 .B \-
 may be matched by including it as the first or last character
@@ -3990,6 +4010,7 @@ command or the text of a macro and a key sequence to which
 it should be bound. The name may be specified in one of two ways:
 as a symbolic key name, possibly with \fIMeta\-\fP or \fIControl\-\fP
 prefixes, or as a key sequence.
+.PP
 When using the form \fBkeyname\fP:\^\fIfunction\-name\fP or \fImacro\fP,
 .I keyname
 is the name of a key spelled out in English.  For example:
@@ -4013,7 +4034,8 @@ and
 .I C\-o
 is bound to run the macro
 expressed on the right hand side (that is, to insert the text
-.I "> output"
+.if t \f(CW> output\fP
+.if n ``> output''
 into the line).
 .PP
 In the second form, \fB"keyseq"\fP:\^\fIfunction\-name\fP or \fImacro\fP,
@@ -4023,7 +4045,8 @@ differs from
 above in that strings denoting
 an entire key sequence may be specified by placing the sequence
 within double quotes.  Some GNU Emacs style key escapes can be
-used, as in the following example.
+used, as in the following example, but the symbolic character names
+are not recognized.
 .sp
 .RS
 "\eC\-u": universal\-argument
@@ -4043,7 +4066,9 @@ is bound to the function
 and 
 .I "ESC [ 1 1 ~"
 is bound to insert the text
-.BR "Function Key 1" .
+.if t \f(CWFunction Key 1\fP.
+.if n ``Function Key 1''.
+.PP
 The full set of GNU Emacs style escape sequences is
 .RS
 .PD 0
@@ -4467,8 +4492,8 @@ This is a non-incremental search.
 .TP
 .B yank\-nth\-arg (M\-C\-y)
 Insert the first argument to the previous command (usually
-the second word on the previous line) at point (the current
-cursor position).  With an argument
+the second word on the previous line) at point.
+With an argument
 .IR n ,
 insert the \fIn\fPth word from the previous command (the words
 in the previous command begin with word 0).  A negative argument
@@ -4527,7 +4552,7 @@ argument is ignored.
 .PD 0
 .TP
 .B delete\-char (C\-d)
-Delete the character under the cursor.  If point is at the
+Delete the character at point.  If point is at the
 beginning of the line, there are no characters in the line, and
 the last character typed was not bound to \fBdelete\-char\fP,
 then return
@@ -4554,15 +4579,15 @@ Insert a tab character.
 Insert the character typed.
 .TP
 .B transpose\-chars (C\-t)
-Drag the character before point forward over the character at point.
-Point moves forward as well.
-If point is at the end of the line, then transpose the two characters
-before point.
+Drag the character before point forward over the character at point,
+moving point forward as well.
+If point is at the end of the line, then this transposes
+the two characters before point.
 Negative arguments have no effect.
 .TP
 .B transpose\-words (M\-t)
 Drag the word before point past the word after point,
-moving the point over that word as well.
+moving point over that word as well.
 .TP
 .B upcase\-word (M\-u)
 Uppercase the current (or following) word.  With a negative argument,
@@ -4605,7 +4630,6 @@ Word boundaries are the same as those used by \fBbackward\-word\fP.
 .TP
 .B unix\-word\-rubout (C\-w)
 Kill the word behind point, using white space as a word boundary.
-The word boundaries are different from \fBbackward\-kill\-word\fP.
 The killed text is saved on the kill-ring.
 .TP
 .B delete\-horizontal\-space (M\-\e)
@@ -4626,7 +4650,7 @@ Copy the word following point to the kill buffer.
 The word boundaries are the same as \fBforward\-word\fP.
 .TP
 .B yank (C\-y)
-Yank the top of the kill ring into the buffer at the cursor.
+Yank the top of the kill ring into the buffer at point.
 .TP
 .B yank\-pop (M\-y)
 Rotate the kill ring, and yank the new top.  Only works following
@@ -4682,8 +4706,9 @@ Similar to \fBcomplete\fP, but replaces the word to be completed
 with a single match from the list of possible completions.
 Repeated execution of \fBmenu\-complete\fP steps through the list
 of possible completions, inserting each match in turn.
-At the end of the list of completions, the bell is rung and the
-original text is restored.
+At the end of the list of completions, the bell is rung
+(subject to the setting of \Bbell\-style\fP)
+and the original text is restored.
 An argument of \fIn\fP moves \fIn\fP positions forward in the list
 of matches; a negative argument may be used to move backward
 through the list.
@@ -4802,7 +4827,7 @@ command enough times to return the line to its initial state.
 Perform tilde expansion on the current word.
 .TP
 .B set\-mark (C\-@, M\-<space>)
-Set the mark to the current point.  If a
+Set the mark to the point.  If a
 numeric argument is supplied, the mark is set to that position.
 .TP
 .B exchange\-point\-and\-mark (C\-x C\-x)
@@ -4975,10 +5000,17 @@ options are added to each member of the completion list, and the result is
 returned to the readline completion code as the list of possible
 completions.
 .PP
-If a compspec is found, whatever it generates is returned to the completion
-code as the full set of possible completions.
+If the previously-applied actions do not generate any matches, and the
+\fB\-o dirnames\fP option was supplied to \fBcomplete\fP when the
+compspec was defined, directory name completion is attempted.
+.PP
+By default, if a compspec is found, whatever it generates is returned
+to the completion code as the full set of possible completions.
 The default \fBbash\fP completions are not attempted, and the readline
 default of filename completion is disabled.
+If the \fB-o default\fP option was supplied to \fBcomplete\fP when the
+compspec was defined, readline's default completion will be performed
+if the compspec generates no matches.
 .SH HISTORY
 When the
 .B \-o history
@@ -5377,7 +5409,8 @@ are used to find the directory containing
 The file searched for in
 .SM
 .B PATH
-need not be executable.  The current directory is
+need not be executable.
+When \fBbash\fP is not in \fIposix mode\fP, the current directory is
 searched if no file is found in
 .SM
 .BR PATH .
@@ -5454,7 +5487,7 @@ Acceptable
 .I keymap
 names are
 \fIemacs, emacs\-standard, emacs\-meta, emacs\-ctlx, vi,
-vi\-command\fP, and
+vi\-move, vi\-command\fP, and
 .IR vi\-insert .
 \fIvi\fP is equivalent to \fIvi\-command\fP; \fIemacs\fP is
 equivalent to \fIemacs\-standard\fP.
@@ -5639,7 +5672,7 @@ The return value is true unless an invalid option is supplied, or no
 matches were generated.
 .TP
 .PD 0
-\fBcomplete\fP [\fB\-abcdefjkvu\fP] [\fB\-A\fP \fIaction\fP] [\fB\-G\fP \fIglobpat\fP] [\fB\-W\fP \fIwordlist\fP] [\fB\-P\fP \fIprefix\fP] [\fB\-S\fP \fIsuffix\fP]
+\fBcomplete\fP [\fB\-abcdefjkvu\fP] [\fB\-o\fP \fIcomp-option\fP] [\fB\-A\fP \fIaction\fP] [\fB\-G\fP \fIglobpat\fP] [\fB\-W\fP \fIwordlist\fP] [\fB\-P\fP \fIprefix\fP] [\fB\-S\fP \fIsuffix\fP]
 .br
 [\fB\-X\fP \fIfilterpat\fP] [\fB\-F\fP \fIfunction\fP] [\fB\-C\fP \fIcommand\fP] \fIname\fP [\fIname ...\fP]
 .TP
@@ -5665,6 +5698,24 @@ builtin is invoked.
 .RS
 .PD 0
 .TP 8
+\fB\-o\fP \fIcomp-option\fP
+The \fIcomp-option\fP controls several aspects of the compspec's behavior
+beyond the simple generation of completions.
+\fIcomp-option\fP may be one of:
+.RS
+.TP 8
+.B default
+Use readline's default completion if the compspec generates no matches.
+.TP 8
+.B dirnames
+Perform directory name completion if the compspec generates no matches.
+.TP 8
+.B filenames
+Tell readline that the compspec generates filenames, so it can perform any
+filename\-specific processing (like adding a slash to directory names or
+suppressing trailing spaces).  Intended to be used with shell functions.
+.RE
+.TP 8
 \fB\-A\fP \fIaction\fP
 The \fIaction\fP may be one of the following to generate a list of possible
 completions:
@@ -5964,7 +6015,7 @@ the following backslash-escaped characters is enabled.  The
 .B \-E
 option disables the interpretation of these escape characters,
 even on systems where they are interpreted by default.
-The \fBxpg_echo\fP shell option to the may be used to
+The \fBxpg_echo\fP shell option may be used to
 dynamically determine whether or not \fBecho\fP expands these
 escape characters by default.
 .B echo
@@ -6029,7 +6080,8 @@ binary found via the
 .SM
 .B PATH
 instead of the shell builtin version, run
-\f(CWenable -n test\fP.
+.if t \f(CWenable -n test\fP.
+.if n ``enable -n test''.
 The
 .B \-f
 option means to load the new builtin command
@@ -6885,8 +6937,8 @@ Options, if specified, have the following meanings:
 .PD 0
 .TP 8
 .B \-a
-Automatically mark variables which are modified or created for export
-to the environment of subsequent commands.
+Automatically mark variables and functions which are modified or created
+for export to the environment of subsequent commands.
 .TP 8
 .B \-b
 Report the status of terminated background jobs
@@ -6978,7 +7030,10 @@ Enable command history, as described above under
 This option is on by default in interactive shells.
 .TP 8
 .B ignoreeof
-The effect is as if the shell command \f(CWIGNOREEOF=10\fP had been executed
+The effect is as if the shell command
+.if t \f(CWIGNOREEOF=10\fP
+.if n ``IGNOREEOF=10''
+had been executed
 (see
 .B Shell Variables
 above).
@@ -7023,7 +7078,7 @@ Same as
 Change the behavior of
 .B bash
 where the default operation differs
-from the POSIX 1003.2 standard to match the standard.
+from the POSIX 1003.2 standard to match the standard (\fIposix mode\fP).
 .TP 8
 .B privileged
 Same as
@@ -7621,7 +7676,9 @@ either returns the name of the disk file
 that would be executed if
 .I name
 were specified as a command name,
-or nothing if \f(CWtype -t name\fP
+or nothing if
+.if t \f(CWtype -t name\fP
+.if n ``type -t name''
 would not return
 .IR file .
 If a command is hashed,
index 3b2b6da8313db5fe88955b0ffc36f11cf1b1aaac..f4ee48a55915b905e4f48fa1ea6ceed87bf6cc5d 100644 (file)
@@ -1,5 +1,5 @@
-This is Info file bashref.info, produced by Makeinfo version 1.68 from
-the input file /usr/homes/chet/src/bash/src/doc/bashref.texi.
+This is bashref.info, produced by makeinfo version 4.0 from
+/usr/homes/chet/src/bash/src/doc/bashref.texi.
 
 INFO-DIR-SECTION Utilities
 START-INFO-DIR-ENTRY
@@ -9,9 +9,9 @@ END-INFO-DIR-ENTRY
 This text is a brief description of the features that are present in
 the Bash shell.
 
-This is Edition 2.4, last updated 14 March 2000,
+This is Edition 2.5, last updated 28 Mar 2001,
 of `The GNU Bash Reference Manual',
-for `Bash', Version 2.04.
+for `Bash', Version 2.05.
 
 Copyright (C) 1991-1999 Free Software Foundation, Inc.
 
@@ -38,8 +38,8 @@ Bash Features
    This text is a brief description of the features that are present in
 the Bash shell.
 
-   This is Edition 2.4, last updated 14 March 2000, of `The GNU Bash
-Reference Manual', for `Bash', Version 2.04.
+   This is Edition 2.5, last updated 28 Mar 2001, of `The GNU Bash
+Reference Manual', for `Bash', Version 2.05.
 
    Copyright (C) 1991, 1993, 1996 Free Software Foundation, Inc.
 
@@ -332,30 +332,30 @@ Shell Operation
    The following is a brief description of the shell's operation when it
 reads and executes a command.  Basically, the shell does the following:
 
-  1. Reads its input from a file (*note Shell Scripts::.), from a string
+  1. Reads its input from a file (*note Shell Scripts::), from a string
      supplied as an argument to the `-c' invocation option (*note
-     Invoking Bash::.), or from the user's terminal.
+     Invoking Bash::), or from the user's terminal.
 
   2. Breaks the input into words and operators, obeying the quoting
      rules described in *Note Quoting::.  These tokens are separated by
      `metacharacters'.  Alias expansion is performed by this step
-     (*note Aliases::.).
+     (*note Aliases::).
 
   3. Parses the tokens into simple and compound commands (*note Shell
-     Commands::.).
+     Commands::).
 
-  4. Performs the various shell expansions (*note Shell Expansions::.),
+  4. Performs the various shell expansions (*note Shell Expansions::),
      breaking the expanded tokens into lists of filenames (*note
-     Filename Expansion::.)  and commands and arguments.
+     Filename Expansion::) and commands and arguments.
 
-  5. Performs any necessary redirections (*note Redirections::.) and
+  5. Performs any necessary redirections (*note Redirections::) and
      removes the redirection operators and their operands from the
      argument list.
 
-  6. Executes the command (*note Executing Commands::.).
+  6. Executes the command (*note Executing Commands::).
 
   7. Optionally waits for the command to complete and collects its exit
-     status (*note Exit Status::.).
+     status (*note Exit Status::).
 
 
 \1f
@@ -381,11 +381,11 @@ or words to the shell.  Quoting can be used to disable special
 treatment for special characters, to prevent reserved words from being
 recognized as such, and to prevent parameter expansion.
 
-   Each of the shell metacharacters (*note Definitions::.)  has special
+   Each of the shell metacharacters (*note Definitions::) has special
 meaning to the shell and must be quoted if it is to represent itself.
 When the command history expansion facilities are being used, the
 HISTORY EXPANSION character, usually `!', must be quoted to prevent
-history expansion.  *Note Bash History Facilities:: for more details
+history expansion.  *Note Bash History Facilities::, for more details
 concerning history expansion.  There are three quoting mechanisms: the
 ESCAPE CHARACTER, single quotes, and double quotes.
 
@@ -421,8 +421,8 @@ Double Quotes
    Enclosing characters in double quotes (`"') preserves the literal
 value of all characters within the quotes, with the exception of `$',
 ``', and `\'.  The characters `$' and ``' retain their special meaning
-within double quotes (*note Shell Expansions::.).  The backslash
-retains its special meaning only when followed by one of the following
+within double quotes (*note Shell Expansions::).  The backslash retains
+its special meaning only when followed by one of the following
 characters: `$', ``', `"', `\', or `newline'.  Within double quotes,
 backslashes that are followed by one of these characters are removed.
 Backslashes preceding characters without a special meaning are left
@@ -430,7 +430,7 @@ unmodified.  A double quote may be quoted within double quotes by
 preceding it with a backslash.
 
    The special parameters `*' and `@' have special meaning when in
-double quotes (*note Shell Parameter Expansion::.).
+double quotes (*note Shell Parameter Expansion::).
 
 \1f
 File: bashref.info,  Node: ANSI-C Quoting,  Next: Locale Translation,  Prev: Double Quotes,  Up: Quoting
@@ -440,7 +440,7 @@ ANSI-C Quoting
 
    Words of the form `$'STRING'' are treated specially.  The word
 expands to STRING, with backslash-escaped characters replaced as
-specifed by the ANSI C standard.  Backslash escape sequences, if
+specified by the ANSI C standard.  Backslash escape sequences, if
 present, are decoded as follows:
 
 `\a'
@@ -495,6 +495,12 @@ the string to be translated according to the current locale.  If the
 current locale is `C' or `POSIX', the dollar sign is ignored.  If the
 string is translated and replaced, the replacement is double-quoted.
 
+   Some systems use the message catalog selected by the `LC_MESSAGES'
+shell variable.  Others create the name of the message catalog from the
+value of the `TEXTDOMAIN' shell variable, possibly adding a suffix of
+`.mo'.  If you use the `TEXTDOMAIN' variable, you may need to set the
+`TEXTDOMAINDIR' variable to the location of the message catalog files.
+
 \1f
 File: bashref.info,  Node: Comments,  Prev: Quoting,  Up: Shell Syntax
 
@@ -503,7 +509,7 @@ Comments
 
    In a non-interactive shell, or an interactive shell in which the
 `interactive_comments' option to the `shopt' builtin is enabled (*note
-Bash Builtins::.), a word beginning with `#' causes that word and all
+Bash Builtins::), a word beginning with `#' causes that word and all
 remaining characters on that line to be ignored.  An interactive shell
 without the `interactive_comments' option enabled does not allow
 comments.  The `interactive_comments' option is on by default in
@@ -542,11 +548,11 @@ Simple Commands
 
    A simple command is the kind of command encountered most often.
 It's just a sequence of words separated by `blank's, terminated by one
-of the shell's control operators (*note Definitions::.).  The first
-word generally specifies a command to be executed, with the rest of the
+of the shell's control operators (*note Definitions::).  The first word
+generally specifies a command to be executed, with the rest of the
 words being that command's arguments.
 
-   The return status (*note Exit Status::.) of a simple command is its
+   The return status (*note Exit Status::) of a simple command is its
 exit status as provided by the POSIX 1003.1 `waitpid' function, or
 128+N if the command was terminated by signal N.
 
@@ -576,14 +582,14 @@ The use of `time' as a reserved word permits the timing of shell
 builtins, shell functions, and pipelines.  An external `time' command
 cannot time these easily.
 
-   If the pipeline is not executed asynchronously (*note Lists::.), the
+   If the pipeline is not executed asynchronously (*note Lists::), the
 shell waits for all commands in the pipeline to complete.
 
    Each command in a pipeline is executed in its own subshell (*note
-Command Execution Environment::.).  The exit status of a pipeline is
-the exit status of the last command in the pipeline.  If the reserved
-word `!' precedes the pipeline, the exit status is the logical negation
-of the exit status of the last command.
+Command Execution Environment::).  The exit status of a pipeline is the
+exit status of the last command in the pipeline.  If the reserved word
+`!' precedes the pipeline, the exit status is the logical negation of
+the exit status of the last command.
 
 \1f
 File: bashref.info,  Node: Lists,  Next: Looping Constructs,  Prev: Pipelines,  Up: Shell Commands
@@ -602,7 +608,7 @@ followed by `;' and `&', which have equal precedence.
 executes the command asynchronously in a subshell.  This is known as
 executing the command in the BACKGROUND.  The shell does not wait for
 the command to finish, and the return status is 0 (true).  When job
-control is not active (*note Job Control::.), the standard input for
+control is not active (*note Job Control::), the standard input for
 asynchronous commands, in the absence of any explicit redirections, is
 redirected from `/dev/null'.
 
@@ -662,7 +668,7 @@ syntax, it may be replaced with one or more newlines.
      resultant list, with NAME bound to the current member.  If `in
      WORDS' is not present, the `for' command executes the COMMANDS
      once for each positional parameter that is set, as if `in "$@"'
-     had been specified (*note Special Parameters::.).  The return
+     had been specified (*note Special Parameters::).  The return
      status is the exit status of the last command that executes.  If
      there are no items in the expansion of WORDS, no commands are
      executed, and the return status is zero.
@@ -671,7 +677,7 @@ syntax, it may be replaced with one or more newlines.
 
           for (( EXPR1 ; EXPR2 ; EXPR3 )) ; do COMMANDS ; done
      First, the arithmetic expression EXPR1 is evaluated according to
-     the rules described below (*note Shell Arithmetic::.).  The
+     the rules described below (*note Shell Arithmetic::).  The
      arithmetic expression EXPR2 is then evaluated repeatedly until it
      evaluates to zero.  Each time EXPR2 evaluates to a non-zero value,
      COMMANDS are executed and the arithmetic expression EXPR3 is
@@ -680,7 +686,7 @@ syntax, it may be replaced with one or more newlines.
      command in LIST that is executed, or false if any of the
      expressions is invalid.
 
-   The `break' and `continue' builtins (*note Bourne Shell Builtins::.)
+   The `break' and `continue' builtins (*note Bourne Shell Builtins::)
 may be used to control loop execution.
 
 \1f
@@ -782,7 +788,7 @@ Conditional Constructs
           (( EXPRESSION ))
 
      The arithmetic EXPRESSION is evaluated according to the rules
-     described below (*note Shell Arithmetic::.).  If the value of the
+     described below (*note Shell Arithmetic::).  If the value of the
      expression is non-zero, the return status is 0; otherwise the
      return status is 1.  This is exactly equivalent to
           let "EXPRESSION"
@@ -895,7 +901,7 @@ COMMAND-LIST must be terminated with a semicolon or a newline.
 
    When a function is executed, the arguments to the function become
 the positional parameters during its execution (*note Positional
-Parameters::.).  The special parameter `#' that expands to the number of
+Parameters::).  The special parameter `#' that expands to the number of
 positional parameters is updated to reflect the change.  Positional
 parameter `0' is unchanged.  The `FUNCNAME' variable is set to the name
 of the function while the function is executing.
@@ -944,7 +950,7 @@ command substitution, arithmetic expansion, and quote removal (detailed
 below).  If the variable has its `integer' attribute set (see the
 description of the `declare' builtin in *Note Bash Builtins::), then
 VALUE is subject to arithmetic expansion even if the `$((...))'
-expansion is not used (*note Arithmetic Expansion::.).  Word splitting
+expansion is not used (*note Arithmetic Expansion::).  Word splitting
 is not performed, with the exception of `"$@"' as explained below.
 Filename expansion is not performed.
 
@@ -961,8 +967,8 @@ using the `set' builtin command.  Positional parameter `N' may be
 referenced as `${N}', or as `$N' when `N' consists of a single digit.
 Positional parameters may not be assigned to with assignment statements.
 The `set' and `shift' builtins are used to set and unset them (*note
-Shell Builtin Commands::.).  The positional parameters are temporarily
-replaced when a shell function is executed (*note Shell Functions::.).
+Shell Builtin Commands::).  The positional parameters are temporarily
+replaced when a shell function is executed (*note Shell Functions::).
 
    When a positional parameter consisting of more than a single digit
 is expanded, it must be enclosed in braces.
@@ -1016,11 +1022,11 @@ only be referenced; assignment to them is not allowed.
 `0'
      Expands to the name of the shell or shell script.  This is set at
      shell initialization.  If Bash is invoked with a file of commands
-     (*note Shell Scripts::.), `$0' is set to the name of that file.
-     If Bash is started with the `-c' option (*note Invoking Bash::.),
-     then `$0' is set to the first argument after the string to be
-     executed, if one is present.  Otherwise, it is set to the filename
-     used to invoke Bash, as given by argument zero.
+     (*note Shell Scripts::), `$0' is set to the name of that file.  If
+     Bash is started with the `-c' option (*note Invoking Bash::), then
+     `$0' is set to the first argument after the string to be executed,
+     if one is present.  Otherwise, it is set to the filename used to
+     invoke Bash, as given by argument zero.
 
 `_'
      (An underscore.)  At shell startup, set to the absolute filename
@@ -1080,10 +1086,10 @@ parameter, variable, and arithmetic expansion and command substitution.
    Only brace expansion, word splitting, and filename expansion can
 change the number of words of the expansion; other expansions expand a
 single word to a single word.  The only exceptions to this are the
-expansions of `"$@"' (*note Special Parameters::.) and `"${NAME[@]}"'
-(*note Arrays::.).
+expansions of `"$@"' (*note Special Parameters::) and `"${NAME[@]}"'
+(*note Arrays::).
 
-   After all expansions, `quote removal' (*note Quote Removal::.)  is
+   After all expansions, `quote removal' (*note Quote Removal::) is
 performed.
 
 \1f
@@ -1094,7 +1100,7 @@ Brace Expansion
 
    Brace expansion is a mechanism by which arbitrary strings may be
 generated.  This mechanism is similar to FILENAME EXPANSION (*note
-Filename Expansion::.), but the file names generated need not exist.
+Filename Expansion::), but the file names generated need not exist.
 Patterns to be brace expanded take the form of an optional PREAMBLE,
 followed by a series of comma-separated strings between a pair of
 braces, followed by an optional POSTSCRIPT.  The preamble is prefixed
@@ -1149,7 +1155,7 @@ a number N, optionally prefixed by a `+' or a `-', the tilde-prefix is
 replaced with the corresponding element from the directory stack, as it
 would be displayed by the `dirs' builtin invoked with the characters
 following tilde in the tilde-prefix as an argument (*note The Directory
-Stack::.).  If the tilde-prefix, sans the tilde, consists of a number
+Stack::).  If the tilde-prefix, sans the tilde, consists of a number
 without a leading `+' or `-', `+' is assumed.
 
    If the login name is invalid, or the tilde expansion fails, the word
@@ -1253,7 +1259,7 @@ if the colon is omitted, the operator tests only for existence.
      character specified by OFFSET.  If LENGTH is omitted, expands to
      the substring of PARAMETER starting at the character specified by
      OFFSET.  LENGTH and OFFSET are arithmetic expressions (*note Shell
-     Arithmetic::.).  This is referred to as Substring Expansion.
+     Arithmetic::).  This is referred to as Substring Expansion.
 
      LENGTH must evaluate to a number greater than or equal to zero.
      If OFFSET evaluates to a number less than zero, the value is used
@@ -1279,7 +1285,7 @@ if the colon is omitted, the operator tests only for existence.
 `${PARAMETER#WORD}'
 `${PARAMETER##WORD}'
      The WORD is expanded to produce a pattern just as in filename
-     expansion (*note Filename Expansion::.).  If the pattern matches
+     expansion (*note Filename Expansion::).  If the pattern matches
      the beginning of the expanded value of PARAMETER, then the result
      of the expansion is the expanded value of PARAMETER with the
      shortest matching pattern (the `#' case) or the longest matching
@@ -1373,7 +1379,7 @@ substitution, and quote removal.  Arithmetic substitutions may be
 nested.
 
    The evaluation is performed according to the rules listed below
-(*note Shell Arithmetic::.).  If the expression is invalid, Bash prints
+(*note Shell Arithmetic::).  If the expression is invalid, Bash prints
 a message indicating failure to the standard error and no substitution
 occurs.
 
@@ -1445,7 +1451,7 @@ Filename Expansion
 * Pattern Matching::   How the shell matches patterns.
 
    After word splitting, unless the `-f' option has been set (*note The
-Set Builtin::.), Bash scans each word for the characters `*', `?', and
+Set Builtin::), Bash scans each word for the characters `*', `?', and
 `['.  If one of these characters appears, then the word is regarded as
 a PATTERN, and replaced with an alphabetically sorted list of file
 names matching the pattern. If no matching file names are found, and
@@ -1454,8 +1460,8 @@ If the `nullglob' option is set, and no matches are found, the word is
 removed.  If the shell option `nocaseglob' is enabled, the match is
 performed without regard to the case of alphabetic characters.
 
-   When a pattern is used for filename generation, the character `.'
-at the start of a filename or immediately following a slash must be
+   When a pattern is used for filename generation, the character `.' at
+the start of a filename or immediately following a slash must be
 matched explicitly, unless the shell option `dotglob' is set.  When
 matching a file name, the slash character must always be matched
 explicitly.  In other cases, the `.' character is not treated specially.
@@ -1466,7 +1472,7 @@ description of the `nocaseglob', `nullglob', and `dotglob' options.
    The `GLOBIGNORE' shell variable may be used to restrict the set of
 filenames matching a pattern.  If `GLOBIGNORE' is set, each matching
 filename that also matches one of the patterns in `GLOBIGNORE' is
-removed from the list of matches.  The filenames `.' and `..'  are
+removed from the list of matches.  The filenames `.' and `..' are
 always ignored, even when `GLOBIGNORE' is set.  However, setting
 `GLOBIGNORE' has the effect of enabling the `dotglob' shell option, so
 all other filenames beginning with a `.' will match.  To get the old
@@ -1494,12 +1500,25 @@ quoted if they are to be matched literally.
 
 `[...]'
      Matches any one of the enclosed characters.  A pair of characters
-     separated by a minus sign denotes a RANGE; any character lexically
-     between those two characters, inclusive, is matched.  If the first
-     character following the `[' is a `!'  or a `^' then any character
-     not enclosed is matched.  A `-' may be matched by including it as
-     the first or last character in the set.  A `]' may be matched by
-     including it as the first character in the set.
+     separated by a hyphen denotes a RANGE EXPRESSION; any character
+     that sorts between those two characters, inclusive, using the
+     current locale's collating sequence and character set, is matched.
+     If the first character following the `[' is a `!'  or a `^' then
+     any character not enclosed is matched.  A `-' may be matched by
+     including it as the first or last character in the set.  A `]' may
+     be matched by including it as the first character in the set.  The
+     sorting order of characters in range expressions is determined by
+     the current locale and the value of the `LC_COLLATE' shell
+     variable, if set.
+
+     For example, in the default C locale, `[a-dx-z]' is equivalent to
+     `[abcdxyz]'.  Many locales sort characters in dictionary order,
+     and in these locales `[a-dx-z]' is typically not equivalent to
+     `[abcdxyz]'; it might be equivalent to `[aBbCcDdxXyYz]', for
+     example.  To obtain the traditional interpretation of ranges in
+     bracket expressions, you can force the use of the C locale by
+     setting the `LC_COLLATE' or `LC_ALL' environment variable to the
+     value `C'.
 
      Within `[' and `]', CHARACTER CLASSES can be specified using the
      syntax `[:'CLASS`:]', where CLASS is one of the following classes
@@ -1514,7 +1533,7 @@ quoted if they are to be matched literally.
      collation weight (as defined by the current locale) as the
      character C.
 
-     Within `[' and `]', the syntax `[.'SYMBOL`.]'  matches the
+     Within `[' and `]', the syntax `[.'SYMBOL`.]' matches the
      collating symbol SYMBOL.
 
    If the `extglob' shell option is enabled using the `shopt' builtin,
@@ -1769,12 +1788,12 @@ expansions, assignments, and redirections, from left to right.
      processing.
 
   2. The words that are not variable assignments or redirections are
-     expanded (*note Shell Expansions::.).  If any words remain after
+     expanded (*note Shell Expansions::).  If any words remain after
      expansion, the first word is taken to be the name of the command
      and the remaining words are the arguments.
 
   3. Redirections are performed as described above (*note
-     Redirections::.).
+     Redirections::).
 
   4. The text after the `=' in each variable assignment undergoes tilde
      expansion, parameter expansion, command substitution, arithmetic
@@ -1872,10 +1891,11 @@ following:
 
    * options enabled by `shopt'
 
-   * shell aliases defined with `alias' (*note Aliases::.)
+   * shell aliases defined with `alias' (*note Aliases::)
 
    * various process IDs, including those of background jobs (*note
-     Lists::.), the value of `$$', and the value of `$PPID'
+     Lists::), the value of `$$', and the value of `$PPID'
+
 
    When a simple command other than a builtin or shell function is to
 be executed, it is invoked in a separate execution environment that
@@ -1890,11 +1910,12 @@ inherited from the shell.
    * the file creation mode mask
 
    * shell variables marked for export, along with variables exported
-     for the command, passed in the environment (*note Environment::.)
+     for the command, passed in the environment (*note Environment::)
 
    * traps caught by the shell are reset to the values inherited from
      the shell's parent, and traps ignored by the shell are ignored
 
+
    A command invoked in this separate environment cannot affect the
 shell's execution environment.
 
@@ -1934,7 +1955,7 @@ temporarily by prefixing it with parameter assignments, as described in
 *Note Shell Parameters::.  These assignment statements affect only the
 environment seen by that command.
 
-   If the `-k' option is set (*note The Set Builtin::.), then all
+   If the `-k' option is set (*note The Set Builtin::), then all
 parameter assignments are placed in the environment for a command, not
 just those that precede the command name.
 
@@ -1963,8 +1984,8 @@ the return status is 126.
 redirection, the exit status is greater than zero.
 
    The exit status is used by the Bash conditional commands (*note
-Conditional Constructs::.) and some of the list constructs (*note
-Lists::.).
+Conditional Constructs::) and some of the list constructs (*note
+Lists::).
 
    All of the Bash builtins return an exit status of zero if they
 succeed and a non-zero status on failure, so they may be used by the
@@ -1982,7 +2003,7 @@ Signals
 `SIGINT' is caught and handled (so that the `wait' builtin is
 interruptible).  When Bash receives a `SIGINT', it breaks out of any
 executing loops.  In all cases, Bash ignores `SIGQUIT'.  If job control
-is in effect (*note Job Control::.), Bash ignores `SIGTTIN', `SIGTTOU',
+is in effect (*note Job Control::), Bash ignores `SIGTTIN', `SIGTTOU',
 and `SIGTSTP'.
 
    Commands started by Bash have signal handlers set to the values
@@ -1997,12 +2018,12 @@ exiting, it resends the `SIGHUP' to all jobs, running or stopped.
 Stopped jobs are sent `SIGCONT' to ensure that they receive the
 `SIGHUP'.  To prevent the shell from sending the `SIGHUP' signal to a
 particular job, it should be removed from the jobs table with the
-`disown' builtin (*note Job Control Builtins::.) or marked to not
+`disown' builtin (*note Job Control Builtins::) or marked to not
 receive `SIGHUP' using `disown -h'.
 
    If the  `huponexit' shell option has been set with `shopt' (*note
-Bash Builtins::.), Bash sends a `SIGHUP' to all jobs when an
-interactive login shell exits.
+Bash Builtins::), Bash sends a `SIGHUP' to all jobs when an interactive
+login shell exits.
 
    When Bash receives a signal for which a trap has been set while
 waiting for a command to complete, the trap will not be executed until
@@ -2020,7 +2041,7 @@ Shell Scripts
 
    A shell script is a text file containing shell commands.  When such
 a file is used as the first non-option argument when invoking Bash, and
-neither the `-c' nor `-s' option is supplied (*note Invoking Bash::.),
+neither the `-c' nor `-s' option is supplied (*note Invoking Bash::),
 Bash reads and executes commands from the file, then exits.  This mode
 of operation creates a non-interactive shell.  When Bash runs a shell
 script, it sets the special parameter `0' to the name of the file,
@@ -2079,7 +2100,7 @@ Shell Builtin Commands
 
    Builtin commands are contained within the shell itself.  When the
 name of a builtin command is used as the first word of a simple command
-(*note Simple Commands::.), the shell executes the command directly,
+(*note Simple Commands::), the shell executes the command directly,
 without invoking another program.  Builtin commands are necessary to
 implement functionality impossible or inconvenient to obtain with
 separate utilities.
@@ -2090,10 +2111,10 @@ have been extended in Bash.
 
    Several builtin commands are described in other chapters:  builtin
 commands which provide the Bash interface to the job control facilities
-(*note Job Control Builtins::.), the directory stack (*note Directory
-Stack Builtins::.), the command history (*note Bash History
-Builtins::.), and the programmable completion facilities (*note
-Programmable Completion Builtins::.).
+(*note Job Control Builtins::), the directory stack (*note Directory
+Stack Builtins::), the command history (*note Bash History Builtins::),
+and the programmable completion facilities (*note Programmable
+Completion Builtins::).
 
    Many of the builtins have been extended by POSIX or Bash.
 
@@ -2116,14 +2137,14 @@ standard.
           . FILENAME [ARGUMENTS]
      Read and execute commands from the FILENAME argument in the
      current shell context.  If FILENAME does not contain a slash, the
-     `PATH' variable is used to find FILENAME.  The current directory
-     is searched if FILENAME is not found in `$PATH'.  If any ARGUMENTS
-     are supplied, they become the positional parameters when FILENAME
-     is executed.  Otherwise the positional parameters are unchanged.
-     The return status is the exit status of the last command executed,
-     or zero if no commands are executed.  If FILENAME is not found, or
-     cannot be read, the return status is non-zero.  This builtin is
-     equivalent to `source'.
+     `PATH' variable is used to find FILENAME.  When Bash is not in
+     POSIX mode, the current directory is searched if FILENAME is not
+     found in `$PATH'.  If any ARGUMENTS are supplied, they become the
+     positional parameters when FILENAME is executed.  Otherwise the
+     positional parameters are unchanged.  The return status is the
+     exit status of the last command executed, or zero if no commands
+     are executed.  If FILENAME is not found, or cannot be read, the
+     return status is non-zero.  This builtin is equivalent to `source'.
 
 `break'
           break [N]
@@ -2327,13 +2348,13 @@ standard.
           If the first argument is `!', the expression is true if and
           only if the second argument is null.  If the first argument
           is one of the unary conditional operators (*note Bash
-          Conditional Expressions::.), the expression is true if the
+          Conditional Expressions::), the expression is true if the
           unary test is true.  If the first argument is not a valid
           unary operator, the expression is false.
 
     3 arguments
           If the second argument is one of the binary conditional
-          operators (*note Bash Conditional Expressions::.), the result
+          operators (*note Bash Conditional Expressions::), the result
           of the expression is the result of the binary test using the
           first and third arguments as operands.  If the first argument
           is `!', the value is the negation of the two-argument test
@@ -2437,10 +2458,10 @@ POSIX 1003.2 standard.
           bind [-m KEYMAP] -x KEYSEQ:SHELL-COMMAND
           bind [-m KEYMAP] KEYSEQ:FUNCTION-NAME
 
-     Display current Readline (*note Command Line Editing::.)  key and
+     Display current Readline (*note Command Line Editing::) key and
      function bindings, or bind a key sequence to a Readline function
      or macro.  The binding syntax accepted is identical to that of a
-     Readline initialization file (*note Readline Init File::.), but
+     Readline initialization file (*note Readline Init File::), but
      each binding must be passed as a separate argument:  e.g.,
      `"\C-x\C-r":re-read-init-file'.  Options, if supplied, have the
      following meanings:
@@ -2448,7 +2469,7 @@ POSIX 1003.2 standard.
     `-m KEYMAP'
           Use KEYMAP as the keymap to be affected by the subsequent
           bindings.  Acceptable KEYMAP names are `emacs',
-          `emacs-standard', `emacs-meta', `emacs-ctlx', `vi',
+          `emacs-standard', `emacs-meta', `emacs-ctlx', `vi', `vi-move',
           `vi-command', and `vi-insert'.  `vi' is equivalent to
           `vi-command'; `emacs' is equivalent to `emacs-standard'.
 
@@ -2514,7 +2535,7 @@ POSIX 1003.2 standard.
      named `ls', running `command ls' within the function will execute
      the external command `ls' instead of calling the function
      recursively.  The `-p' option means to use a default value for
-     `$PATH' that is guaranteed to find all of the standard utilities.
+     `PATH' that is guaranteed to find all of the standard utilities.
      The return status in this case is 127 if COMMAND cannot be found
      or an error occurred, and the exit status of COMMAND otherwise.
 
@@ -2539,14 +2560,14 @@ POSIX 1003.2 standard.
      the specified attributes or to give variables attributes:
 
     `-a'
-          Each NAME is an array variable (*note Arrays::.).
+          Each NAME is an array variable (*note Arrays::).
 
     `-f'
           Use function names only.
 
     `-i'
           The variable is to be treated as an integer; arithmetic
-          evaluation (*note Shell Arithmetic::.) is performed when the
+          evaluation (*note Shell Arithmetic::) is performed when the
           variable is assigned a value.
 
     `-r'
@@ -2565,7 +2586,7 @@ POSIX 1003.2 standard.
      an attempt is made to define a function using `-f foo=bar', an
      attempt is made to assign a value to a readonly variable, an
      attempt is made to assign a value to an array variable without
-     using the compound assignment syntax (*note Arrays::.), one of the
+     using the compound assignment syntax (*note Arrays::), one of the
      NAMES is not a valid shell variable name, an attempt is made to
      turn off readonly status for a readonly variable, an attempt is
      made to turn off array status for an array variable, or an attempt
@@ -2643,7 +2664,7 @@ POSIX 1003.2 standard.
      If there are no options, a list of the shell builtins is displayed.
      The `-s' option restricts `enable' to the POSIX special builtins.
      If `-s' is used with `-f', the new builtin becomes a special
-     builtin (*note Special Builtins::.).
+     builtin (*note Special Builtins::).
 
      The return status is zero unless a NAME is not a shell builtin or
      there is an error loading a new builtin from a shared object.
@@ -2724,8 +2745,8 @@ POSIX 1003.2 standard.
           line, rather than newline.
 
     `-e'
-          Readline (*note Command Line Editing::.) is used to obtain
-          the line.
+          Readline (*note Command Line Editing::) is used to obtain the
+          line.
 
     `-n NCHARS'
           `read' returns after reading NCHARS characters rather than
@@ -2774,7 +2795,7 @@ POSIX 1003.2 standard.
 
     `-o'
           Restricts the values of OPTNAME to be those defined for the
-          `-o' option to the `set' builtin (*note The Set Builtin::.).
+          `-o' option to the `set' builtin (*note The Set Builtin::).
 
      If either `-s' or `-u' is used with no OPTNAME arguments, the
      display is limited to those options which are set or unset,
@@ -2833,7 +2854,7 @@ POSIX 1003.2 standard.
 
     `extglob'
           If set, the extended pattern matching features described above
-          (*note Pattern Matching::.) are enabled.
+          (*note Pattern Matching::) are enabled.
 
     `histappend'
           If set, the history list is appended to the file named by the
@@ -2853,12 +2874,12 @@ POSIX 1003.2 standard.
     `hostcomplete'
           If set, and Readline is being used, Bash will attempt to
           perform hostname completion when a word containing a `@' is
-          being completed (*note Commands For Completion::.).  This
+          being completed (*note Commands For Completion::).  This
           option is enabled by default.
 
     `huponexit'
           If set, Bash will send `SIGHUP' to all jobs when an
-          interactive login shell exits (*note Signals::.).
+          interactive login shell exits (*note Signals::).
 
     `interactive_comments'
           Allow a word beginning with `#' to cause that word and all
@@ -2890,20 +2911,20 @@ POSIX 1003.2 standard.
 
     `progcomp'
           If set, the programmable completion facilities (*note
-          Programmable Completion::.) are enabled.  This option is
+          Programmable Completion::) are enabled.  This option is
           enabled by default.
 
     `promptvars'
           If set, prompt strings undergo variable and parameter
-          expansion after being expanded (*note Printing a Prompt::.).
+          expansion after being expanded (*note Printing a Prompt::).
           This option is enabled by default.
 
     `restricted_shell'
           The shell sets this option if it is started in restricted mode
-          (*note The Restricted Shell::.).  The value may not be
-          changed.  This is not reset when the startup files are
-          executed, allowing the startup files to discover whether or
-          not a shell is restricted.
+          (*note The Restricted Shell::).  The value may not be changed.
+          This is not reset when the startup files are executed,
+          allowing the startup files to discover whether or not a shell
+          is restricted.
 
     `shift_verbose'
           If this is set, the `shift' builtin prints an error message
@@ -2926,7 +2947,7 @@ POSIX 1003.2 standard.
 
 `source'
           source FILENAME
-     A synonym for `.' (*note Bourne Shell Builtins::.).
+     A synonym for `.' (*note Bourne Shell Builtins::).
 
 `type'
           type [-atp] [NAME ...]
@@ -3041,7 +3062,8 @@ The Set Builtin
      Options, if specified, have the following meanings:
 
     `-a'
-          Mark variables which are modified or created for export.
+          Mark variables and function which are modified or created for
+          export to the environment of subsequent commands.
 
     `-b'
           Cause the status of terminated background jobs to be reported
@@ -3050,7 +3072,7 @@ The Set Builtin
 
     `-e'
           Exit immediately if a simple command (*note Simple
-          Commands::.) exits with a non-zero status, unless the command
+          Commands::) exits with a non-zero status, unless the command
           that fails is part of an `until' or `while' loop, part of an
           `if' statement, part of a `&&' or `||' list, or if the
           command's return status is being inverted using `!'.
@@ -3068,7 +3090,7 @@ The Set Builtin
           the command name.
 
     `-m'
-          Job control is enabled (*note Job Control::.).
+          Job control is enabled (*note Job Control::).
 
     `-n'
           Read commands but do not execute them; this may be used to
@@ -3086,7 +3108,7 @@ The Set Builtin
 
          `emacs'
                Use an `emacs'-style line editing interface (*note
-               Command Line Editing::.).
+               Command Line Editing::).
 
          `errexit'
                Same as `-e'.
@@ -3135,9 +3157,8 @@ The Set Builtin
          `posix'
                Change the behavior of Bash where the default operation
                differs from the POSIX 1003.2 standard to match the
-               standard (*note Bash POSIX Mode::.).  This is intended
-               to make Bash behave as a strict superset of that
-               standard.
+               standard (*note Bash POSIX Mode::).  This is intended to
+               make Bash behave as a strict superset of that standard.
 
          `privileged'
                Same as `-p'.
@@ -3181,7 +3202,7 @@ The Set Builtin
 
     `-B'
           The shell will perform brace expansion (*note Brace
-          Expansion::.).  This option is on by default.
+          Expansion::).  This option is on by default.
 
     `-C'
           Prevent output redirection using `>', `>&', and `<>' from
@@ -3189,8 +3210,8 @@ The Set Builtin
 
     `-H'
           Enable `!' style history substitution (*note History
-          Interaction::.).  This option is on by default for
-          interactive shells.
+          Interaction::).  This option is on by default for interactive
+          shells.
 
     `-P'
           If set, do not follow symbolic links when performing commands
@@ -3242,7 +3263,7 @@ Special Builtins
 ================
 
    For historical reasons, the POSIX 1003.2 standard has classified
-several builtin commands as *special*.  When Bash is executing in POSIX
+several builtin commands as _special_.  When Bash is executing in POSIX
 mode, the special builtins differ from other builtin commands in three
 respects:
 
@@ -3294,7 +3315,7 @@ shell.  In some cases, Bash assigns a default value to the variable.
 `HOME'
      The current user's home directory; the default for the `cd' builtin
      command.  The value of this variable is also used by tilde
-     expansion (*note Tilde Expansion::.).
+     expansion (*note Tilde Expansion::).
 
 `IFS'
      A list of characters that separate fields; used when the shell
@@ -3343,7 +3364,7 @@ normally treat them specially.
 
    A few variables used by Bash are described in different chapters:
 variables for controlling the job control facilities (*note Job Control
-Variables::.).
+Variables::).
 
 `BASH'
      The full pathname used to execute the current instance of Bash.
@@ -3358,7 +3379,7 @@ Variables::.).
      The version number of the current instance of Bash.
 
 `BASH_VERSINFO'
-     A readonly array variable (*note Arrays::.)  whose members hold
+     A readonly array variable (*note Arrays::) whose members hold
      version information for this instance of Bash.  The values
      assigned to the array members are as follows:
 
@@ -3384,18 +3405,18 @@ Variables::.).
      An array variable consisting of the individual words in the
      current command line.  This variable is available only in shell
      functions invoked by the programmable completion facilities (*note
-     Programmable Completion::.).
+     Programmable Completion::).
 
 `COMP_CWORD'
      An index into `${COMP_WORDS}' of the word containing the current
      cursor position.  This variable is available only in shell
      functions invoked by the programmable completion facilities (*note
-     Programmable Completion::.).
+     Programmable Completion::).
 
 `COMP_LINE'
      The current command line.  This variable is available only in
      shell functions and external commands invoked by the programmable
-     completion facilities (*note Programmable Completion::.).
+     completion facilities (*note Programmable Completion::).
 
 `COMP_POINT'
      The index of the current cursor position relative to the beginning
@@ -3403,12 +3424,12 @@ Variables::.).
      end of the current command, the value of this variable is equal to
      `${#COMP_LINE}'.  This variable is available only in shell
      functions and external commands invoked by the programmable
-     completion facilities (*note Programmable Completion::.).
+     completion facilities (*note Programmable Completion::).
 
 `COMPREPLY'
      An array variable from which Bash reads the possible completions
      generated by a shell function invoked by the programmable
-     completion facility (*note Programmable Completion::.).
+     completion facility (*note Programmable Completion::).
 
 `DIRSTACK'
      An array variable containing the current contents of the directory
@@ -3443,14 +3464,14 @@ Variables::.).
 `GROUPS'
      An array variable containing the list of groups of which the
      current user is a member.  Assignments to `GROUPS' have no effect
-     and are silently discarded.  If `GROUPS' is unset, it loses its
+     and return an error status.  If `GROUPS' is unset, it loses its
      special properties, even if it is subsequently reset.
 
 `histchars'
      Up to three characters which control history expansion, quick
-     substitution, and tokenization (*note History Interaction::.).
-     The first character is the HISTORY EXPANSION character, that is,
-     the character which signifies the start of a history expansion,
+     substitution, and tokenization (*note History Interaction::).  The
+     first character is the HISTORY EXPANSION character, that is, the
+     character which signifies the start of a history expansion,
      normally `!'.  The second character is the character which
      signifies `quick substitution' when seen as the first character on
      a line, normally `^'.  The optional third character is the
@@ -3469,7 +3490,7 @@ Variables::.).
 `FUNCNAME'
      The name of any currently-executing shell function.  This variable
      exists only when a shell function is executing.  Assignments to
-     `FUNCNAME' have no effect and are silently discarded.  If
+     `FUNCNAME' have no effect and return an error status.  If
      `FUNCNAME' is unset, it loses its special properties, even if it
      is subsequently reset.
 
@@ -3561,21 +3582,31 @@ Variables::.).
      results of filename expansion, and determines the behavior of
      range expressions, equivalence classes, and collating sequences
      within filename expansion and pattern matching (*note Filename
-     Expansion::.).
+     Expansion::).
 
 `LC_CTYPE'
      This variable determines the interpretation of characters and the
      behavior of character classes within filename expansion and pattern
-     matching (*note Filename Expansion::.).
+     matching (*note Filename Expansion::).
 
 `LC_MESSAGES'
      This variable determines the locale used to translate double-quoted
-     strings preceded by a `$' (*note Locale Translation::.).
+     strings preceded by a `$' (*note Locale Translation::).
 
 `LC_NUMERIC'
      This variable determines the locale category used for number
      formatting.
 
+`LINES'
+     Used by the `select' builtin command to determine the column length
+     for printing selection lists.  Automatically set upon receipt of a
+     `SIGWINCH'.
+
+`COLUMNS'
+     Used by the `select' builtin command to determine the terminal
+     width when printing selection lists.  Automatically set upon
+     receipt of a `SIGWINCH'.
+
 `LINENO'
      The line number in the script or shell function currently
      executing.
@@ -3586,7 +3617,11 @@ Variables::.).
 
 `MAILCHECK'
      How often (in seconds) that the shell should check for mail in the
-     files specified in the `MAILPATH' or `MAIL' variables.
+     files specified in the `MAILPATH' or `MAIL' variables.  The
+     default is 60 seconds.  When it is time to check for mail, the
+     shell does so before displaying the primary prompt.  If this
+     variable is unset, or set to a value that is not a number greater
+     than or equal to zero, the shell disables mail checking.
 
 `OLDPWD'
      The previous working directory as set by the `cd' builtin.
@@ -3599,7 +3634,7 @@ Variables::.).
      A string describing the operating system Bash is running on.
 
 `PIPESTATUS'
-     An array variable (*note Arrays::.)  containing a list of exit
+     An array variable (*note Arrays::) containing a list of exit
      status values from the processes in the most-recently-executed
      foreground pipeline (which may contain only a single command).
 
@@ -3618,7 +3653,7 @@ Variables::.).
 
 `PS4'
      The value is the prompt printed before the command line is echoed
-     when the `-x' option is set (*note The Set Builtin::.).  The first
+     when the `-x' option is set (*note The Set Builtin::).  The first
      character of `PS4' is replicated multiple times, as necessary, to
      indicate multiple levels of indirection.  The default is `+ '.
 
@@ -3642,7 +3677,7 @@ Variables::.).
 `SHELLOPTS'
      A colon-separated list of enabled shell options.  Each word in the
      list is a valid argument for the `-o' option to the `set' builtin
-     command (*note The Set Builtin::.).  The options appearing in
+     command (*note The Set Builtin::).  The options appearing in
      `SHELLOPTS' are those reported as `on' by `set -o'.  If this
      variable is in the environment when Bash starts up, each shell
      option in the list will be enabled before reading any startup
@@ -3737,7 +3772,7 @@ Invoking Bash
      bash [long-opt] -s [-abefhkmnptuvxdBCDHP] [-o OPTION] [ARGUMENT ...]
 
    In addition to the single-character shell command-line options
-(*note The Set Builtin::.), there are several multi-character options
+(*note The Set Builtin::), there are several multi-character options
 that you can use.  These options must appear on the command line before
 the single-character options in order for them to be recognized.
 
@@ -3752,16 +3787,22 @@ the single-character options in order for them to be recognized.
 `--help'
      Display a usage message on standard output and exit sucessfully.
 
+`--init-file FILENAME'
+`--rcfile FILENAME'
+     Execute commands from FILENAME (instead of `~/.bashrc') in an
+     interactive shell.
+
 `--login'
-     Make this shell act as if it were directly invoked by login.  This
-     is equivalent to `exec -l bash' but can be issued from another
-     shell, such as `csh'.  `exec bash --login' will replace the
-     current shell with a Bash login shell.  *Note Bash Startup
-     Files::, for a description of the special behavior of a login
-     shell.
+     Make this shell act as if it had been directly invoked by login.
+     When the shell is interactive, this is equivalent to starting a
+     login shell with `exec -l bash'.  When the shell is not
+     interactive, the login shell startup files will be executed.
+     `exec bash --login' will replace the current shell with a Bash
+     login shell.  *Note Bash Startup Files::, for a description of the
+     special behavior of a login shell.
 
 `--noediting'
-     Do not use the GNU Readline library (*note Command Line Editing::.)
+     Do not use the GNU Readline library (*note Command Line Editing::)
      to read  command lines when the shell is interactive.
 
 `--noprofile'
@@ -3781,12 +3822,8 @@ the single-character options in order for them to be recognized.
      standard.  *Note Bash POSIX Mode::, for a description of the Bash
      POSIX mode.
 
-`--rcfile FILENAME'
-     Execute commands from FILENAME (instead of `~/.bashrc') in an
-     interactive shell.
-
 `--restricted'
-     Make the shell a restricted shell (*note The Restricted Shell::.).
+     Make the shell a restricted shell (*note The Restricted Shell::).
 
 `--verbose'
      Equivalent to `-v'.  Print shell input lines as they're read.
@@ -3808,7 +3845,7 @@ invocation which are not available with the `set' builtin.
      described in *Note Interactive Shells::.
 
 `-r'
-     Make the shell a restricted shell (*note The Restricted Shell::.).
+     Make the shell a restricted shell (*note The Restricted Shell::).
 
 `-s'
      If this option is present, or if no arguments remain after option
@@ -3820,7 +3857,7 @@ invocation which are not available with the `set' builtin.
      A list of all double-quoted strings preceded by `$' is printed on
      the standard ouput.  These are the strings that are subject to
      language translation when the current locale is not `C' or `POSIX'
-     (*note Locale Translation::.).  This implies the `-n' option; no
+     (*note Locale Translation::).  This implies the `-n' option; no
      commands will be executed.
 
 `--'
@@ -3828,21 +3865,20 @@ invocation which are not available with the `set' builtin.
      processing.  Any arguments after the `--' are treated as filenames
      and arguments.
 
-   An *interactive* shell is one started without non-option arguments,
+   An _interactive_ shell is one started without non-option arguments,
 unless `-s' is specified, without specifying the `-c' option, and whose
 input and output are both connected to terminals (as determined by
 `isatty(3)'), or one started with the `-i' option.  *Note Interactive
-Shells:: for more information.
+Shells::, for more information.
 
    If arguments remain after option processing, and neither the `-c'
 nor the `-s' option has been supplied, the first argument is assumed to
-be the name of a file containing shell commands (*note Shell
-Scripts::.).  When Bash is invoked in this fashion, `$0' is set to the
-name of the file, and the positional parameters are set to the
-remaining arguments.  Bash reads and executes commands from this file,
-then exits.  Bash's exit status is the exit status of the last command
-executed in the script.  If no commands are executed, the exit status
-is 0.
+be the name of a file containing shell commands (*note Shell Scripts::).
+When Bash is invoked in this fashion, `$0' is set to the name of the
+file, and the positional parameters are set to the remaining arguments.
+Bash reads and executes commands from this file, then exits.  Bash's
+exit status is the exit status of the last command executed in the
+script.  If no commands are executed, the exit status is 0.
 
 \1f
 File: bashref.info,  Node: Bash Startup Files,  Next: Interactive Shells,  Prev: Invoking Bash,  Up: Bash Features
@@ -3853,7 +3889,7 @@ Bash Startup Files
    This section describs how Bash executes its startup files.  If any
 of the files exist but cannot be read, Bash reports an error.  Tildes
 are expanded in file names as described above under Tilde Expansion
-(*note Tilde Expansion::.).
+(*note Tilde Expansion::).
 
    Interactive shells are described in *Note Interactive Shells::.
 
@@ -3899,6 +3935,10 @@ following command were executed:
 but the value of the `PATH' variable is not used to search for the file
 name.
 
+   As noted above, if a non-interactive shell is invoked with the
+`--login' option, Bash attempts to read and execute commands from the
+login shell startup files.
+
 Invoked with name `sh'
 ......................
 
@@ -3997,9 +4037,8 @@ contains `i' when the shell is interactive.  For example:
      *)        echo This shell is not interactive ;;
      esac
 
-   Alternatively, startup scripts may examine the variable `$PS1'; it
-is unset in non-interactive shells, and set in interactive shells.
-Thus:
+   Alternatively, startup scripts may examine the variable `PS1'; it is
+unset in non-interactive shells, and set in interactive shells.  Thus:
 
      if [ -z "$PS1" ]; then
              echo This shell is not interactive
@@ -4019,64 +4058,64 @@ several ways.
   1. Startup files are read and executed as described in *Note Bash
      Startup Files::.
 
-  2. Job Control (*note Job Control::.) is enabled by default.  When job
+  2. Job Control (*note Job Control::) is enabled by default.  When job
      control is in effect, Bash ignores the keyboard-generated job
      control signals `SIGTTIN', `SIGTTOU', and `SIGTSTP'.
 
-  3. Bash expands and displays `$PS1' before reading the first line of
-     a command, and expands and displays `$PS2' before reading the
-     second and subsequent lines of a multi-line command.
+  3. Bash expands and displays `PS1' before reading the first line of a
+     command, and expands and displays `PS2' before reading the second
+     and subsequent lines of a multi-line command.
 
   4. Bash executes the value of the `PROMPT_COMMAND' variable as a
      command before printing the primary prompt, `$PS1' (*note Bash
-     Variables::.).
+     Variables::).
 
-  5. Readline (*note Command Line Editing::.) is used to read commands
+  5. Readline (*note Command Line Editing::) is used to read commands
      from the user's terminal.
 
   6. Bash inspects the value of the `ignoreeof' option to `set -o'
      instead of exiting immediately when it receives an `EOF' on its
-     standard input when reading a command (*note The Set Builtin::.).
+     standard input when reading a command (*note The Set Builtin::).
 
-  7. Command history (*note Bash History Facilities::.)  and history
-     expansion (*note History Interaction::.)  are enabled by default.
+  7. Command history (*note Bash History Facilities::) and history
+     expansion (*note History Interaction::) are enabled by default.
      Bash will save the command history to the file named by `$HISTFILE'
      when an interactive shell exits.
 
-  8. Alias expansion (*note Aliases::.) is performed by default.
+  8. Alias expansion (*note Aliases::) is performed by default.
 
   9. In the absence of any traps, Bash ignores `SIGTERM' (*note
-     Signals::.).
+     Signals::).
 
  10. In the absence of any traps, `SIGINT' is caught and handled
-     ((*note Signals::.).  `SIGINT' will interrupt some shell builtins.
+     ((*note Signals::).  `SIGINT' will interrupt some shell builtins.
 
  11. An interactive login shell sends a `SIGHUP' to all jobs on exit if
-     the `hupoxexit' shell option has been enabled (*note Signals::.).
+     the `hupoxexit' shell option has been enabled (*note Signals::).
 
  12. The `-n' invocation option is ignored, and `set -n' has no effect
-     (*note The Set Builtin::.).
+     (*note The Set Builtin::).
 
  13. Bash will check for mail periodically, depending on the values of
      the `MAIL', `MAILPATH', and `MAILCHECK' shell variables (*note
-     Bash Variables::.).
+     Bash Variables::).
 
  14. Expansion errors due to references to unbound shell variables after
      `set -u' has been enabled will not cause the shell to exit (*note
-     The Set Builtin::.).
+     The Set Builtin::).
 
  15. The shell will not exit on expansion errors caused by VAR being
      unset or null in `${VAR:?WORD}' expansions (*note Shell Parameter
-     Expansion::.).
+     Expansion::).
 
  16. Redirection errors encountered by shell builtins will not cause the
      shell to exit.
 
  17. When running in POSIX mode, a special builtin returning an error
-     status will not cause the shell to exit (*note Bash POSIX Mode::.).
+     status will not cause the shell to exit (*note Bash POSIX Mode::).
 
  18. A failed `exec' will not cause the shell to exit (*note Bourne
-     Shell Builtins::.).
+     Shell Builtins::).
 
  19. Parser syntax errors will not cause the shell to exit.
 
@@ -4086,7 +4125,7 @@ several ways.
 
  21. The shell will check the value of the `TMOUT' variable and exit if
      a command is not read within the specified number of seconds after
-     printing `$PS1' (*note Bash Variables::.).
+     printing `$PS1' (*note Bash Variables::).
 
 
 \1f
@@ -4181,7 +4220,7 @@ checked.  If the FILE argument to one of the primaries is one of
 `-o OPTNAME'
      True if shell option OPTNAME is enabled.  The list of options
      appears in the description of the `-o' option to the `set' builtin
-     (*note The Set Builtin::.).
+     (*note The Set Builtin::).
 
 `-z STRING'
      True if the length of STRING is zero.
@@ -4330,11 +4369,11 @@ with the `unalias' command.
 
    There is no mechanism for using arguments in the replacement text,
 as in `csh'.  If arguments are needed, a shell function should be used
-(*note Shell Functions::.).
+(*note Shell Functions::).
 
    Aliases are not expanded when the shell is not interactive, unless
 the `expand_aliases' shell option is set using `shopt' (*note Bash
-Builtins::.).
+Builtins::).
 
    The rules concerning the definition and use of aliases are somewhat
 confusing.  Bash always reads at least one complete line of input
@@ -4616,12 +4655,12 @@ which can appear in the prompt variables:
    The command number and the history number are usually different: the
 history number of a command is its position in the history list, which
 may include commands restored from the history file (*note Bash History
-Facilities::.), while the command number is the position in the
-sequence of commands executed during the current shell session.
+Facilities::), while the command number is the position in the sequence
+of commands executed during the current shell session.
 
    After the string is decoded, it is expanded via parameter expansion,
 command substitution, arithmetic expansion, and quote removal, subject
-to the value of the `promptvars' shell option (*note Bash Builtins::.).
+to the value of the `promptvars' shell option (*note Bash Builtins::).
 
 \1f
 File: bashref.info,  Node: The Restricted Shell,  Next: Bash POSIX Mode,  Prev: Printing a Prompt,  Up: Bash Features
@@ -4682,10 +4721,12 @@ that specified by POSIX in areas where the Bash default differs.
      re-search `$PATH' to find the new location.  This is also
      available with `shopt -s checkhash'.
 
-  2. The `>&' redirection does not redirect stdout and stderr.
+  2. The message printed by the job control code and builtins when a job
+     exits with a non-zero status is `Done(status)'.
 
   3. The message printed by the job control code and builtins when a job
-     exits with a non-zero status is `Done(status)'.
+     is stopped is `Stopped(SIGNAME)', where SIGNAME is, for example,
+     `SIGTSTP'.
 
   4. Reserved words may not be aliased.
 
@@ -4739,7 +4780,7 @@ that specified by POSIX in areas where the Bash default differs.
      `$CDPATH', the value it assigns to the `PWD' variable does not
      contain any symbolic links, as if `cd -P' had been executed.
 
- 19. If `$CDPATH' is set, the `cd' builtin will not implicitly append
+ 19. If `CDPATH' is set, the `cd' builtin will not implicitly append
      the current directory to it.  This means that `cd' will fail if no
      valid directory name can be constructed from any of the entries in
      `$CDPATH', even if the a directory with the same name as the name
@@ -4759,9 +4800,27 @@ that specified by POSIX in areas where the Bash default differs.
  23. Assignment statements preceding POSIX 1003.2 special builtins
      persist in the shell environment after the builtin completes.
 
- 24. The `export' and `readonly' builtin commands display their output
+ 24. Assignment statements preceding shell function calls persist in the
+     shell environment after the function returns, as if a POSIX
+     special builtin command had been executed.
+
+ 25. The `export' and `readonly' builtin commands display their output
      in the format required by POSIX 1003.2.
 
+ 26. The `trap' builtin displays signal names without the leading `SIG'.
+
+ 27. The `.' and `source' builtins do not search the current directory
+     for the filename argument if it is not found by searching `PATH'.
+
+ 28. Subshells spawned to execute command substitutions inherit the
+     value of the `-e' option from the parent shell.  When not in POSIX
+     mode, Bash clears the `-e' option in such subshells.
+
+ 29. Alias expansion is always enabled, even in non-interactive shells.
+
+ 30. When the `set' builtin is invoked without options, it does not
+     display shell function names and definitions.
+
 
    There is other POSIX 1003.2 behavior that Bash does not implement.
 Specifically:
@@ -4769,6 +4828,16 @@ Specifically:
   1. Assignment statements affect the execution environment of all
      builtins, not just special ones.
 
+  2. When a subshell is created to execute a shell script with execute
+     permission, but without a leading `#!', Bash sets `$0' to the full
+     pathname of the script as found by searching `$PATH', rather than
+     the command as typed by the user.
+
+  3. When using `.' to source a shell script found in `$PATH', bash
+     checks execute permission bits rather than read permission bits,
+     just as if it were searching for a command.
+
+
 \1f
 File: bashref.info,  Node: Job Control,  Next: Using History Interactively,  Prev: Bash Features,  Up: Top
 
@@ -4860,7 +4929,7 @@ equivalent to `bg %1'
 Normally, Bash waits until it is about to print a prompt before
 reporting changes in a job's status so as to not interrupt any other
 output.  If the the `-b' option to the `set' builtin is enabled, Bash
-reports such changes immediately (*note The Set Builtin::.).
+reports such changes immediately (*note The Set Builtin::).
 
    If an attempt to exit Bash is while jobs are stopped, the shell
 prints a message warning that there are stopped jobs.  The `jobs'
@@ -4989,8 +5058,8 @@ Job Control Variables
      `substring', the string supplied needs to match a substring of the
      name of a stopped job.  The `substring' value provides
      functionality analogous to the `%?' job ID (*note Job Control
-     Basics::.).  If set to any other value, the supplied string must
-     be a prefix of a stopped job's name; this provides functionality
+     Basics::).  If set to any other value, the supplied string must be
+     a prefix of a stopped job's name; this provides functionality
      analogous to the `%' job ID.
 
 \1f
@@ -5027,10 +5096,10 @@ Introduction to Line Editing
    The following paragraphs describe the notation used to represent
 keystrokes.
 
-   The text <C-k> is read as `Control-K' and describes the character
+   The text `C-k' is read as `Control-K' and describes the character
 produced when the <k> key is pressed while the Control key is depressed.
 
-   The text <M-k> is read as `Meta-K' and describes the character
+   The text `M-k' is read as `Meta-K' and describes the character
 produced when the Meta key (if you have one) is depressed, and the <k>
 key is pressed.  The Meta key is labeled <ALT> on many keyboards.  On
 keyboards with two keys labeled <ALT> (usually to either side of the
@@ -5041,18 +5110,18 @@ Compose key for typing accented characters.
 
    If you do not have a Meta or <ALT> key, or another key working as a
 Meta key, the identical keystroke can be generated by typing <ESC>
-first, and then typing <k>.  Either process is known as "metafying" the
-<k> key.
+_first_, and then typing <k>.  Either process is known as "metafying"
+the <k> key.
 
-   The text <M-C-k> is read as `Meta-Control-k' and describes the
-character produced by "metafying" <C-k>.
+   The text `M-C-k' is read as `Meta-Control-k' and describes the
+character produced by "metafying" `C-k'.
 
    In addition, several keys have their own names.  Specifically,
 <DEL>, <ESC>, <LFD>, <SPC>, <RET>, and <TAB> all stand for themselves
-when seen in this text, or in an init file (*note Readline Init
-File::.).  If your keyboard lacks a <LFD> key, typing <C-j> will
-produce the desired character.  The <RET> key may be labeled <Return>
-or <Enter> on some keyboards.
+when seen in this text, or in an init file (*note Readline Init File::).
+If your keyboard lacks a <LFD> key, typing <C-j> will produce the
+desired character.  The <RET> key may be labeled <Return> or <Enter> on
+some keyboards.
 
 \1f
 File: bashref.info,  Node: Readline Interaction,  Next: Readline Init File,  Prev: Introduction and Notation,  Up: Command Line Editing
@@ -5067,9 +5136,9 @@ as you type it in, allowing you to just fix your typo, and not forcing
 you to retype the majority of the line.  Using these editing commands,
 you move the cursor to the place that needs correction, and delete or
 insert the text of the corrections.  Then, when you are satisfied with
-the line, you simply press <RETURN>.  You do not have to be at the end
-of the line to press <RETURN>; the entire line is accepted regardless
-of the location of the cursor within the line.
+the line, you simply press <RET>.  You do not have to be at the end of
+the line to press <RET>; the entire line is accepted regardless of the
+location of the cursor within the line.
 
 * Menu:
 
@@ -5092,8 +5161,8 @@ erase character to back up and delete the mistyped character.
 
    Sometimes you may mistype a character, and not notice the error
 until you have typed several other characters.  In that case, you can
-type <C-b> to move the cursor to the left, and then correct your
-mistake.  Afterwards, you can move the cursor to the right with <C-f>.
+type `C-b' to move the cursor to the left, and then correct your
+mistake.  Afterwards, you can move the cursor to the right with `C-f'.
 
    When you add text in the middle of a line, you will notice that
 characters to the right of the cursor are `pushed over' to make room
@@ -5103,28 +5172,28 @@ back' to fill in the blank space created by the removal of the text.  A
 list of the bare essentials for editing the text of an input line
 follows.
 
-<C-b>
+`C-b'
      Move back one character.
 
-<C-f>
+`C-f'
      Move forward one character.
 
 <DEL> or <Backspace>
      Delete the character to the left of the cursor.
 
-<C-d>
+`C-d'
      Delete the character underneath the cursor.
 
 Printing characters
      Insert the character into the line at the cursor.
 
-<C-_> or <C-x C-u>
+`C-_' or `C-x C-u'
      Undo the last editing command.  You can undo all the way back to an
      empty line.
 
 (Depending on your configuration, the <Backspace> key be set to delete
 the character to the left of the cursor and the <DEL> key set to delete
-the character underneath the cursor, like <C-d>, rather than the
+the character underneath the cursor, like `C-d', rather than the
 character to the left of the cursor.)
 
 \1f
@@ -5135,26 +5204,26 @@ Readline Movement Commands
 
    The above table describes the most basic keystrokes that you need in
 order to do editing of the input line.  For your convenience, many
-other commands have been added in addition to <C-b>, <C-f>, <C-d>, and
+other commands have been added in addition to `C-b', `C-f', `C-d', and
 <DEL>.  Here are some commands for moving more rapidly about the line.
 
-<C-a>
+`C-a'
      Move to the start of the line.
 
-<C-e>
+`C-e'
      Move to the end of the line.
 
-<M-f>
+`M-f'
      Move forward a word, where a word is composed of letters and
      digits.
 
-<M-b>
+`M-b'
      Move backward a word.
 
-<C-l>
+`C-l'
      Clear the screen, reprinting the current line at the top.
 
-   Notice how <C-f> moves forward a character, while <M-f> moves
+   Notice how `C-f' moves forward a character, while `M-f' moves
 forward a word.  It is a loose convention that control keystrokes
 operate on characters while meta keystrokes operate on words.
 
@@ -5181,34 +5250,34 @@ available to be yanked back later, when you are typing another line.
 
    Here is the list of commands for killing text.
 
-<C-k>
+`C-k'
      Kill the text from the current cursor position to the end of the
      line.
 
-<M-d>
+`M-d'
      Kill from the cursor to the end of the current word, or, if between
      words, to the end of the next word.  Word boundaries are the same
-     as those used by <M-f>.
+     as those used by `M-f'.
 
-<M-DEL>
+`M-<DEL>'
      Kill from the cursor the start of the previous word, or, if between
      words, to the start of the previous word.  Word boundaries are the
-     same as those used by <M-b>.
+     same as those used by `M-b'.
 
-<C-w>
+`C-w'
      Kill from the cursor to the previous whitespace.  This is
-     different than <M-DEL> because the word boundaries differ.
+     different than `M-<DEL>' because the word boundaries differ.
 
    Here is how to "yank" the text back into the line.  Yanking means to
 copy the most-recently-killed text from the kill buffer.
 
-<C-y>
+`C-y'
      Yank the most recently killed text back into the buffer at the
      cursor.
 
-<M-y>
+`M-y'
      Rotate the kill-ring, and yank the new top.  You can only do this
-     if the prior command is <C-y> or <M-y>.
+     if the prior command is `C-y' or `M-y'.
 
 \1f
 File: bashref.info,  Node: Readline Arguments,  Next: Searching,  Prev: Readline Killing Commands,  Up: Readline Interaction
@@ -5228,7 +5297,8 @@ meta digits before the command.  If the first `digit' typed is a minus
 sign (`-'), then the sign of the argument will be negative.  Once you
 have typed one meta digit to get the argument started, you can type the
 remainder of the digits, and then the command.  For example, to give
-the <C-d> command an argument of 10, you could type `M-1 0 C-d'.
+the `C-d' command an argument of 10, you could type `M-1 0 C-d', which
+will delete the next ten characters on the input line.
 
 \1f
 File: bashref.info,  Node: Searching,  Prev: Readline Arguments,  Up: Readline Interaction
@@ -5237,30 +5307,32 @@ Searching for Commands in the History
 -------------------------------------
 
    Readline provides commands for searching through the command history
-(*note Bash History Facilities::.)  for lines containing a specified
-string.  There are two search modes:  INCREMENTAL and NON-INCREMENTAL.
+(*note Bash History Facilities::) for lines containing a specified
+string.  There are two search modes:  "incremental" and
+"non-incremental".
 
    Incremental searches begin before the user has finished typing the
 search string.  As each character of the search string is typed,
 Readline displays the next entry from the history matching the string
 typed so far.  An incremental search requires only as many characters
 as needed to find the desired history entry.  To search backward in the
-history for a particular string, type <C-r>.  Typing <C-s> searches
+history for a particular string, type `C-r'.  Typing `C-s' searches
 forward through the history.  The characters present in the value of
 the `isearch-terminators' variable are used to terminate an incremental
 search.  If that variable has not been assigned a value, the <ESC> and
-<C-J> characters will terminate an incremental search.  <C-g> will
+`C-J' characters will terminate an incremental search.  `C-g' will
 abort an incremental search and restore the original line.  When the
 search is terminated, the history entry containing the search string
 becomes the current line.
 
-   To find other matching entries in the history list, type <C-r> or
-<C-s> as appropriate.  This will search backward or forward in the
+   To find other matching entries in the history list, type `C-r' or
+`C-s' as appropriate.  This will search backward or forward in the
 history for the next entry matching the search string typed so far.
 Any other key sequence bound to a Readline command will terminate the
 search and execute that command.  For instance, a <RET> will terminate
 the search and accept the line, thereby executing the command from the
-history list.
+history list.  A movement command will terminate the search, make the
+last line found the current line, and begin editing.
 
    Non-incremental searches read the entire search string before
 starting to search for matching history lines.  The search string may be
@@ -5303,17 +5375,24 @@ Readline Init File Syntax
    There are only a few basic constructs allowed in the Readline init
 file.  Blank lines are ignored.  Lines beginning with a `#' are
 comments.  Lines beginning with a `$' indicate conditional constructs
-(*note Conditional Init Constructs::.).  Other lines denote variable
+(*note Conditional Init Constructs::).  Other lines denote variable
 settings and key bindings.
 
 Variable Settings
      You can modify the run-time behavior of Readline by altering the
      values of variables in Readline using the `set' command within the
-     init file.  Here is how to change from the default Emacs-like key
-     binding to use `vi' line editing commands:
+     init file.  The syntax is simple:
+
+          set VARIABLE VALUE
+
+     Here, for example, is how to change from the default Emacs-like
+     key binding to use `vi' line editing commands:
 
           set editing-mode vi
 
+     Variable names and values, where appropriate, are recognized
+     without regard to case.
+
      The `bind -V' command lists the current Readline variable names
      and values.  *Note Bash Builtins::.
 
@@ -5343,7 +5422,8 @@ Variable Settings
           possibilities.  If the number of possible completions is
           greater than this value, Readline will ask the user whether
           or not he wishes to view them; otherwise, they are simply
-          listed.  The default limit is `100'.
+          listed.  This variable must be set to an integer value
+          greater than or equal to 0.  The default limit is `100'.
 
     `convert-meta'
           If set to `on', Readline will convert characters with the
@@ -5380,7 +5460,7 @@ Variable Settings
 
     `input-meta'
           If set to `on', Readline will enable eight-bit input (it will
-          not strip the eighth bit from the characters it reads),
+          not clear the eighth bit in the characters it reads),
           regardless of what the terminal claims it can support.  The
           default value is `off'.  The name `meta-flag' is a synonym
           for this variable.
@@ -5388,14 +5468,14 @@ Variable Settings
     `isearch-terminators'
           The string of characters that should terminate an incremental
           search without subsequently executing the character as a
-          command (*note Searching::.).  If this variable has not been
-          given a value, the characters <ESC> and <C-J> will terminate
+          command (*note Searching::).  If this variable has not been
+          given a value, the characters <ESC> and `C-J' will terminate
           an incremental search.
 
     `keymap'
           Sets Readline's idea of the current keymap for key binding
           commands.  Acceptable `keymap' names are `emacs',
-          `emacs-standard', `emacs-meta', `emacs-ctlx', `vi',
+          `emacs-standard', `emacs-meta', `emacs-ctlx', `vi', `vi-move',
           `vi-command', and `vi-insert'.  `vi' is equivalent to
           `vi-command'; `emacs' is equivalent to `emacs-standard'.  The
           default value is `emacs'.  The value of the `editing-mode'
@@ -5438,11 +5518,14 @@ Key Bindings
      command name, the default keybinding, if any, and a short
      description of what the command does.
 
-     Once you know the name of the command, simply place the name of
-     the key you wish to bind the command to, a colon, and then the
-     name of the command on a line in the init file.  The name of the
-     key can be expressed in different ways, depending on which is most
-     comfortable for you.
+     Once you know the name of the command, simply place on a line in
+     the init file the name of the key you wish to bind the command to,
+     a colon, and then the name of the command.  The name of the key
+     can be expressed in different ways, depending on what you find most
+     comfortable.
+
+     In addition to command names, readline allows keys to be bound to
+     a string that is inserted when the key is pressed (a MACRO).
 
      The `bind -p' command displays Readline function names and
      bindings in a format that can put directly into an initialization
@@ -5455,11 +5538,16 @@ Key Bindings
                Meta-Rubout: backward-kill-word
                Control-o: "> output"
 
-          In the above example, <C-u> is bound to the function
-          `universal-argument', and <C-o> is bound to run the macro
+          In the above example, `C-u' is bound to the function
+          `universal-argument', `M-DEL' is bound to the function
+          `backward-kill-word', and `C-o' is bound to run the macro
           expressed on the right hand side (that is, to insert the text
           `> output' into the line).
 
+          A number of symbolic character names are recognized while
+          processing this key binding syntax: DEL, ESC, ESCAPE, LFD,
+          NEWLINE, RET, RETURN, RUBOUT, SPACE, SPC, and TAB.
+
     "KEYSEQ": FUNCTION-NAME or MACRO
           KEYSEQ differs from KEYNAME above in that strings denoting an
           entire key sequence can be specified, by placing the key
@@ -5471,11 +5559,11 @@ Key Bindings
                "\C-x\C-r": re-read-init-file
                "\e[11~": "Function Key 1"
 
-          In the above example, <C-u> is bound to the function
+          In the above example, `C-u' is again bound to the function
           `universal-argument' (just as it was in the first example),
-          `<C-x> <C-r>' is bound to the function `re-read-init-file',
-          and `<ESC> <[> <1> <1> <~>' is bound to insert the text
-          `Function Key 1'.
+          `C-x C-r' is bound to the function `re-read-init-file', and
+          `<ESC> <[> <1> <1> <~>' is bound to insert the text `Function
+          Key 1'.
 
      The following GNU Emacs style escape sequences are available when
      specifying key sequences:
@@ -5526,11 +5614,11 @@ Key Bindings
           vertical tab
 
     `\NNN'
-          the character whose `ASCII' code is the octal value NNN (one
-          to three digits)
+          the character whose ASCII code is the octal value NNN (one to
+          three digits)
 
     `\xNNN'
-          the character whose `ASCII' code is the hexadecimal value NNN
+          the character whose ASCII code is the hexadecimal value NNN
           (one to three digits)
 
      When entering the text of a macro, single or double quotes must be
@@ -5579,10 +5667,10 @@ are four parser directives used.
           The APPLICATION construct is used to include
           application-specific settings.  Each program using the
           Readline library sets the APPLICATION NAME, and you can test
-          for it.  This could be used to bind key sequences to
-          functions useful for a specific program.  For instance, the
-          following command adds a key sequence that quotes the current
-          or previous word in Bash:
+          for a particular value.  This could be used to bind key
+          sequences to functions useful for a specific program.  For
+          instance, the following command adds a key sequence that
+          quotes the current or previous word in Bash:
                $if Bash
                # Quote the current or previous word
                "\C-xq": "\eb\"\ef\""
@@ -5598,7 +5686,8 @@ are four parser directives used.
 
 `$include'
      This directive takes a single filename as an argument and reads
-     commands and bindings from that file.
+     commands and bindings from that file.  For example, the following
+     directive reads from `/etc/inputrc':
           $include /etc/inputrc
 
 \1f
@@ -5607,7 +5696,7 @@ File: bashref.info,  Node: Sample Init File,  Prev: Conditional Init Constructs,
 Sample Init File
 ----------------
 
-   Here is an example of an inputrc file.  This illustrates key
+   Here is an example of an INPUTRC file.  This illustrates key
 binding, variable assignment, and conditional syntax.
 
 
@@ -5729,13 +5818,13 @@ Bindable Readline Commands
    This section describes Readline commands that may be bound to key
 sequences.  You can list your key bindings by executing `bind -P' or,
 for a more terse format, suitable for an INPUTRC file, `bind -p'.
-(*Note Bash Builtins::.)
+(*Note Bash Builtins::.)  Command names without an accompanying key
+sequence are unbound by default.
 
-   Command names without an accompanying key sequence are unbound by
-default.  In the following descriptions, POINT refers to the current
-cursor position, and MARK refers to a cursor position saved by the
+   In the following descriptions, "point" refers to the current cursor
+position, and "mark" refers to a cursor position saved by the
 `set-mark' command.  The text between the point and mark is referred to
-as the REGION.
+as the "region".
 
 \1f
 File: bashref.info,  Node: Commands For Moving,  Next: Commands For History,  Up: Bindable Readline Commands
@@ -5776,17 +5865,19 @@ File: bashref.info,  Node: Commands For History,  Next: Commands For Text,  Prev
 Commands For Manipulating The History
 -------------------------------------
 
-`accept-line (Newline, Return)'
+`accept-line (Newline or Return)'
      Accept the line regardless of where the cursor is.  If this line is
      non-empty, add it to the history list according to the setting of
-     the `HISTCONTROL' and `HISTIGNORE' variables.  If this line was a
-     history line, then restore the history line to its original state.
+     the `HISTCONTROL' and `HISTIGNORE' variables.  If this line is a
+     modified history line, then restore the history line to its
+     original state.
 
 `previous-history (C-p)'
-     Move `up' through the history list.
+     Move `back' through the history list, fetching the previous
+     command.
 
 `next-history (C-n)'
-     Move `down' through the history list.
+     Move `forward' through the history list, fetching the next command.
 
 `beginning-of-history (M-<)'
      Move to the first line in the history.
@@ -5826,12 +5917,12 @@ Commands For Manipulating The History
 
 `yank-nth-arg (M-C-y)'
      Insert the first argument to the previous command (usually the
-     second word on the previous line).  With an argument N, insert the
-     Nth word from the previous command (the words in the previous
-     command begin with word 0).  A negative argument inserts the Nth
-     word from the end of the previous command.
+     second word on the previous line) at point.  With an argument N,
+     insert the Nth word from the previous command (the words in the
+     previous command begin with word 0).  A negative argument inserts
+     the Nth word from the end of the previous command.
 
-`yank-last-arg (M-., M-_)'
+`yank-last-arg (M-. or M-_)'
      Insert last argument to the previous command (the last word of the
      previous history entry).  With an argument, behave exactly like
      `yank-nth-arg'.  Successive calls to `yank-last-arg' move back
@@ -5845,10 +5936,9 @@ Commands For Changing Text
 --------------------------
 
 `delete-char (C-d)'
-     Delete the character under the cursor.  If the cursor is at the
-     beginning of the line, there are no characters in the line, and
-     the last character typed was not bound to `delete-char', then
-     return `EOF'.
+     Delete the character at point.  If point is at the beginning of
+     the line, there are no characters in the line, and the last
+     character typed was not bound to `delete-char', then return EOF.
 
 `backward-delete-char (Rubout)'
      Delete the character behind the cursor.  A numeric argument means
@@ -5859,9 +5949,9 @@ Commands For Changing Text
      end of the line, in which case the character behind the cursor is
      deleted.  By default, this is not bound to a key.
 
-`quoted-insert (C-q, C-v)'
+`quoted-insert (C-q or C-v)'
      Add the next character typed to the line verbatim.  This is how to
-     insert key sequences like <C-q>, for example.
+     insert key sequences like `C-q', for example.
 
 `self-insert (a, b, A, 1, !, ...)'
      Insert yourself.
@@ -5904,15 +5994,15 @@ Killing And Yanking
      Kill backward from the cursor to the beginning of the current line.
 
 `kill-whole-line ()'
-     Kill all characters on the current line, no matter point is.  By
-     default, this is unbound.
+     Kill all characters on the current line, no matter where point is.
+     By default, this is unbound.
 
 `kill-word (M-d)'
      Kill from point to the end of the current word, or if between
      words, to the end of the next word.  Word boundaries are the same
      as `forward-word'.
 
-`backward-kill-word (M-DEL)'
+`backward-kill-word (M-<DEL>)'
      Kill the word behind point.  Word boundaries are the same as
      `backward-word'.
 
@@ -5943,12 +6033,11 @@ Killing And Yanking
      command is unbound.
 
 `yank (C-y)'
-     Yank the top of the kill ring into the buffer at the current
-     cursor position.
+     Yank the top of the kill ring into the buffer at point.
 
 `yank-pop (M-y)'
      Rotate the kill-ring, and yank the new top.  You can only do this
-     if the prior command is yank or yank-pop.
+     if the prior command is `yank' or `yank-pop'.
 
 \1f
 File: bashref.info,  Node: Numeric Arguments,  Next: Commands For Completion,  Prev: Commands For Killing,  Up: Bindable Readline Commands
@@ -5958,7 +6047,7 @@ Specifying Numeric Arguments
 
 `digit-argument (M-0, M-1, ... M--)'
      Add this digit to the argument already accumulating, or start a new
-     argument.  <M-> starts a negative argument.
+     argument.  `M--' starts a negative argument.
 
 `universal-argument ()'
      This is another way to specify an argument.  If this command is
@@ -5979,21 +6068,17 @@ File: bashref.info,  Node: Commands For Completion,  Next: Keyboard Macros,  Pre
 Letting Readline Type For You
 -----------------------------
 
-`complete (TAB)'
-     Attempt to do completion on the text before the cursor.  This is
-     application-specific.  Generally, if you are typing a filename
-     argument, you can do filename completion; if you are typing a
-     command, you can do command completion; if you are typing in a
-     symbol to GDB, you can do symbol name completion; if you are
-     typing in a variable to Bash, you can do variable name completion,
-     and so on.  Bash attempts completion treating the text as a
-     variable (if the text begins with `$'), username (if the text
-     begins with `~'), hostname (if the text begins with `@'), or
-     command (including aliases and functions) in turn.  If none of
-     these produces a match, filename completion is attempted.
+`complete (<TAB>)'
+     Attempt to perform completion on the text before point.  The
+     actual completion performed is application-specific.  Bash
+     attempts completion treating the text as a variable (if the text
+     begins with `$'), username (if the text begins with `~'), hostname
+     (if the text begins with `@'), or command (including aliases and
+     functions) in turn.  If none of these produces a match, filename
+     completion is attempted.
 
 `possible-completions (M-?)'
-     List the possible completions of the text before the cursor.
+     List the possible completions of the text before point.
 
 `insert-completions (M-*)'
      Insert all completions of the text before point that would have
@@ -6004,10 +6089,11 @@ Letting Readline Type For You
      a single match from the list of possible completions.  Repeated
      execution of `menu-complete' steps through the list of possible
      completions, inserting each match in turn.  At the end of the list
-     of completions, the bell is rung and the original text is restored.
-     An argument of N moves N positions forward in the list of matches;
-     a negative argument may be used to move backward through the list.
-     This command is intended to be bound to `TAB', but is unbound by
+     of completions, the bell is rung (subject to the setting of
+     `bell-style') and the original text is restored.  An argument of N
+     moves N positions forward in the list of matches; a negative
+     argument may be used to move backward through the list.  This
+     command is intended to be bound to <TAB>, but is unbound by
      default.
 
 `delete-char-or-list ()'
@@ -6057,7 +6143,7 @@ Letting Readline Type For You
      List the possible completions of the text before point, treating
      it as a command name.
 
-`dynamic-complete-history (M-TAB)'
+`dynamic-complete-history (M-<TAB>)'
      Attempt completion on the text before point, comparing the text
      against lines from the history list for possible completion
      matches.
@@ -6065,7 +6151,7 @@ Letting Readline Type For You
 `complete-into-braces (M-{)'
      Perform filename completion and insert the list of possible
      completions enclosed within braces so the list is available to the
-     shell (*note Brace Expansion::.).
+     shell (*note Brace Expansion::).
 
 \1f
 File: bashref.info,  Node: Keyboard Macros,  Next: Miscellaneous Commands,  Prev: Commands For Completion,  Up: Bindable Readline Commands
@@ -6102,11 +6188,11 @@ Some Miscellaneous Commands
      If the metafied character X is lowercase, run the command that is
      bound to the corresponding uppercase character.
 
-`prefix-meta (ESC)'
-     Make the next character typed be metafied.  This is for keyboards
-     without a meta key.  Typing `ESC f' is equivalent to typing `M-f'.
+`prefix-meta (<ESC>)'
+     Metafy the next character typed.  This is for keyboards without a
+     meta key.  Typing `<ESC> f' is equivalent to typing `M-f'.
 
-`undo (C-_, C-x C-u)'
+`undo (C-_ or C-x C-u)'
      Incremental undo, separately remembered for each line.
 
 `revert-line (M-r)'
@@ -6117,8 +6203,8 @@ Some Miscellaneous Commands
      Perform tilde expansion on the current word.
 
 `set-mark (C-@)'
-     Set the mark to the current point.  If a numeric argument is
-     supplied, the mark is set to that position.
+     Set the mark to the point.  If a numeric argument is supplied, the
+     mark is set to that position.
 
 `exchange-point-and-mark (C-x C-x)'
      Swap the point with the mark.  The current cursor position is set
@@ -6155,9 +6241,9 @@ Some Miscellaneous Commands
 
 `dump-macros ()'
      Print all of the Readline key sequences bound to macros and the
-     strings they ouput.  If a numeric argument is supplied, the output
-     is formatted in such a way that it can be made part of an INPUTRC
-     file.  This command is unbound by default.
+     strings they output.  If a numeric argument is supplied, the
+     output is formatted in such a way that it can be made part of an
+     INPUTRC file.  This command is unbound by default.
 
 `glob-expand-word (C-x *)'
      The word before point is treated as a pattern for pathname
@@ -6174,22 +6260,22 @@ Some Miscellaneous Commands
 `shell-expand-line (M-C-e)'
      Expand the line as the shell does.  This performs alias and
      history expansion as well as all of the shell word expansions
-     (*note Shell Expansions::.).
+     (*note Shell Expansions::).
 
 `history-expand-line (M-^)'
      Perform history expansion on the current line.
 
 `magic-space ()'
      Perform history expansion on the current line and insert a space
-     (*note History Interaction::.).
+     (*note History Interaction::).
 
 `alias-expand-line ()'
-     Perform alias expansion on the current line (*note Aliases::.).
+     Perform alias expansion on the current line (*note Aliases::).
 
 `history-and-alias-expand-line ()'
      Perform history and alias expansion on the current line.
 
-`insert-last-argument (M-., M-_)'
+`insert-last-argument (M-. or M-_)'
      A synonym for `yank-last-arg'.
 
 `operate-and-get-next (C-o)'
@@ -6214,7 +6300,7 @@ standard.
 
    In order to switch interactively between `emacs' and `vi' editing
 modes, use the `set -o emacs' and `set -o vi' commands (*note The Set
-Builtin::.).  The Readline default is `emacs' mode.
+Builtin::).  The Readline default is `emacs' mode.
 
    When you enter a line in `vi' mode, you are already placed in
 `insertion' mode, as if you had typed an `i'.  Pressing <ESC> switches
@@ -6230,7 +6316,7 @@ Programmable Completion
 
    When word completion is attempted for an argument to a command for
 which a completion specification (a COMPSPEC) has been defined using
-the `complete' builtin (*note Programmable Completion Builtins::.), the
+the `complete' builtin (*note Programmable Completion Builtins::), the
 programmable completion facilities are invoked.
 
    First, the command name is identified.  If a compspec has been
@@ -6242,7 +6328,7 @@ a compspec for the portion following the final slash.
 
    Once a compspec has been found, it is used to generate the list of
 matching words.  If a compspec is not found, the default Bash completion
-described above (*note Commands For Completion::.) is performed.
+described above (*note Commands For Completion::) is performed.
 
    First, the actions specified by the compspec are used.  Only matches
 which are prefixed by the word being completed are returned.  When the
@@ -6261,9 +6347,9 @@ considered.  The string is first split using the characters in the `IFS'
 special variable as delimiters.  Shell quoting is honored.  Each word
 is then expanded using brace expansion, tilde expansion, parameter and
 variable expansion, command substitution, arithmetic expansion, and
-pathname expansion, as described above (*note Shell Expansions::.).
-The results are split using the rules described above (*note Word
-Splitting::.).  The results of the expansion are prefix-matched against
+pathname expansion, as described above (*note Shell Expansions::).  The
+results are split using the rules described above (*note Word
+Splitting::).  The results of the expansion are prefix-matched against
 the word being completed, and the matching words become the possible
 completions.
 
@@ -6271,7 +6357,7 @@ completions.
 command specified with the `-F' and `-C' options is invoked.  When the
 command or function is invoked, the `COMP_LINE' and `COMP_POINT'
 variables are assigned values as described above (*note Bash
-Variables::.).  If a shell function is being invoked, the `COMP_WORDS'
+Variables::).  If a shell function is being invoked, the `COMP_WORDS'
 and `COMP_CWORD' variables are also set.  When the function or command
 is invoked, the first argument is the name of the command whose
 arguments are being completed, the second argument is the word being
@@ -6282,9 +6368,9 @@ or command has complete freedom in generating the matches.
 
    Any function specified with `-F' is invoked first.  The function may
 use any of the shell facilities, including the `compgen' builtin
-described below (*note Programmable Completion Builtins::.), to
-generate the matches.  It must put the possible completions in the
-`COMPREPLY' array variable.
+described below (*note Programmable Completion Builtins::), to generate
+the matches.  It must put the possible completions in the `COMPREPLY'
+array variable.
 
    Next, any command specified with the `-C' option is invoked in an
 environment equivalent to command substitution.  It should print a list
@@ -6305,10 +6391,17 @@ options are added to each member of the completion list, and the result
 is returned to the Readline completion code as the list of possible
 completions.
 
-   If a compspec is found, whatever it generates is returned to the
-completion code as the full set of possible completions.  The default
-Bash completions are not attempted, and the Readline default of
-filename completion is disabled.
+   If the previously-applied actions do not generate any matches, and
+the `-o dirnames' option was supplied to `complete' when the compspec
+was defined, directory name completion is attempted.
+
+   By default, if a compspec is found, whatever it generates is
+returned to the completion code as the full set of possible completions.
+The default Bash completions are not attempted, and the Readline default
+of filename completion is disabled.  If the `-o default' option was
+supplied to `complete' when the compspec was defined, Readline's
+default completion will be performed if the compspec generates no
+matches.
 
 \1f
 File: bashref.info,  Node: Programmable Completion Builtins,  Prev: Programmable Completion,  Up: Command Line Editing
@@ -6338,7 +6431,7 @@ completion facilities.
      no matches were generated.
 
 `complete'
-          `complete [-abcdefjkvu] [-A ACTION] [-G GLOBPAT] [-W WORDLIST]
+          `complete [-abcdefjkvu] [-o COMP-OPTION] [-A ACTION] [-G GLOBPAT] [-W WORDLIST]
           [-P PREFIX] [-S SUFFIX] [-X FILTERPAT] [-F FUNCTION]
           [-C COMMAND] NAME [NAME ...]'
           `complete -pr [NAME ...]'
@@ -6352,13 +6445,33 @@ completion facilities.
 
      The process of applying these completion specifications when word
      completion is attempted is described above (*note Programmable
-     Completion::.).
+     Completion::).
 
      Other options, if specified, have the following meanings.  The
      arguments to the `-G', `-W', and `-X' options (and, if necessary,
      the `-P' and `-S' options) should be quoted to protect them from
      expansion before the `complete' builtin is invoked.
 
+    `-o COMP-OPTION'
+          The COMP-OPTION controls several aspects of the compspec's
+          behavior beyond the simple generation of completions.
+          COMP-OPTION may be one of:
+
+         `default'
+               Use readline's default completion if the compspec
+               generates no matches.
+
+         `dirnames'
+               Perform directory name completion if the compspec
+               generates no matches.
+
+         `filenames'
+               Tell Readline that the compspec generates filenames, so
+               it can perform any filename\-specific processing (like
+               adding a slash to directory names or suppressing
+               trailing spaces).  This option is intended to be used
+               with shell functions specified with `-F'.
+
     `-A ACTION'
           The ACTION may be one of the following to generate a list of
           possible completions:
@@ -6371,7 +6484,7 @@ completion facilities.
 
          `binding'
                Readline key binding names (*note Bindable Readline
-               Commands::.).
+               Commands::).
 
          `builtin'
                Names of shell builtin commands.  May also be specified
@@ -6401,11 +6514,11 @@ completion facilities.
 
          `helptopic'
                Help topics as accepted by the `help' builtin (*note
-               Bash Builtins::.).
+               Bash Builtins::).
 
          `hostname'
                Hostnames, as taken from the file specified by the
-               `HOSTFILE' shell variable (*note Bash Variables::.).
+               `HOSTFILE' shell variable (*note Bash Variables::).
 
          `job'
                Job names, if job control is active.  May also be
@@ -6419,11 +6532,11 @@ completion facilities.
 
          `setopt'
                Valid arguments for the `-o' option to the `set' builtin
-               (*note The Set Builtin::.).
+               (*note The Set Builtin::).
 
          `shopt'
                Shell option names as accepted by the `shopt' builtin
-               (*note Bash Builtins::.).
+               (*note Bash Builtins::).
 
          `signal'
                Signal names.
@@ -6505,7 +6618,7 @@ Bash History Facilities
 =======================
 
    When the `-o history' option to the `set' builtin is enabled (*note
-The Set Builtin::.), the shell provides access to the COMMAND HISTORY,
+The Set Builtin::), the shell provides access to the "command history",
 the list of commands previously typed.  The value of the `HISTSIZE'
 shell variable is used as the number of commands to save in a history
 list.  The text of the last `$HISTSIZE' commands (default 500) is saved.
@@ -6521,7 +6634,7 @@ no more than the number of lines specified by the value of the
 `HISTFILESIZE' variable.  When an interactive shell exits, the last
 `$HISTSIZE' lines are copied from the history list to the file named by
 `$HISTFILE'.  If the `histappend' shell option is set (*note Bash
-Builtins::.), the lines are appended to the history file, otherwise the
+Builtins::), the lines are appended to the history file, otherwise the
 history file is overwritten.  If `HISTFILE' is unset, or if the history
 file is unwritable, the history is not saved.  After saving the
 history, the history file is truncated to contain no more than
@@ -6533,7 +6646,7 @@ a portion of the history list.  The `history' builtin may be used to
 display or modify the history list and manipulate the history file.
 When using command-line editing, search commands are available in each
 editing mode that provide access to the history list (*note Commands
-For History::.).
+For History::).
 
    The shell allows control over which commands are saved on the history
 list.  The `HISTCONTROL' and `HISTIGNORE' variables may be set to cause
@@ -6581,7 +6694,7 @@ and history file.
 
      A useful alias to use with the `fc' command is `r='fc -s'', so
      that typing `r cc' runs the last command beginning with `cc' and
-     typing `r' re-executes the last command (*note Aliases::.).
+     typing `r' re-executes the last command (*note Aliases::).
 
 `history'
           history [N]
@@ -6591,8 +6704,8 @@ and history file.
           history -ps ARG
 
      With no options, display the history list with line numbers.
-     Lines prefixed with with a `*' have been modified.  An argument of
-     lists only the last N lines.  Options, if supplied, have the
+     Lines prefixed with a `*' have been modified.  An argument of N
+     lists only the last N lines.  Options, if supplied, have the
      following meanings:
 
     `-c'
@@ -6661,7 +6774,7 @@ appearance of the history expansion character, which is `!' by default.
 Only `\' and `'' may be used to escape the history expansion character.
 
    Several shell options settable with the `shopt' builtin (*note Bash
-Builtins::.) may be used to tailor the behavior of history expansion.
+Builtins::) may be used to tailor the behavior of history expansion.
 If the `histverify' shell option is enabled, and Readline is being
 used, history substitutions are not immediately passed to the shell
 parser.  Instead, the expanded line is reloaded into the Readline
@@ -7148,20 +7261,20 @@ does not provide the necessary support.
 
 `--enable-alias'
      Allow alias expansion and include the `alias' and `unalias'
-     builtins (*note Aliases::.).
+     builtins (*note Aliases::).
 
 `--enable-arith-for-command'
      Include support for the alternate form of the `for' command that
      behaves like the C language `for' statement (*note Looping
-     Constructs::.).
+     Constructs::).
 
 `--enable-array-variables'
      Include support for one-dimensional array shell variables (*note
-     Arrays::.).
+     Arrays::).
 
 `--enable-bang-history'
      Include support for `csh'-like history substitution (*note History
-     Interaction::.).
+     Interaction::).
 
 `--enable-brace-expansion'
      Include `csh'-like brace expansion ( `b{a,b}c' ==> `bac bbc' ).
@@ -7170,16 +7283,16 @@ does not provide the necessary support.
 `--enable-command-timing'
      Include support for recognizing `time' as a reserved word and for
      displaying timing statistics for the pipeline following `time'
-     (*note Pipelines::.).  This allows pipelines as well as shell
+     (*note Pipelines::).  This allows pipelines as well as shell
      builtins and functions to be timed.
 
 `--enable-cond-command'
      Include support for the `[[' conditional command (*note
-     Conditional Constructs::.).
+     Conditional Constructs::).
 
 `--enable-directory-stack'
      Include support for a `csh'-like directory stack and the `pushd',
-     `popd', and `dirs' builtins (*note The Directory Stack::.).
+     `popd', and `dirs' builtins (*note The Directory Stack::).
 
 `--enable-disabled-builtins'
      Allow builtin commands to be invoked via `builtin xxx' even after
@@ -7189,7 +7302,7 @@ does not provide the necessary support.
 
 `--enable-dparen-arithmetic'
      Include support for the `((...))' command (*note Conditional
-     Constructs::.).
+     Constructs::).
 
 `--enable-extended-glob'
      Include support for the extended pattern matching features
@@ -7197,24 +7310,24 @@ does not provide the necessary support.
 
 `--enable-help-builtin'
      Include the `help' builtin, which displays help on shell builtins
-     and variables (*note Bash Builtins::.).
+     and variables (*note Bash Builtins::).
 
 `--enable-history'
      Include command history and the `fc' and `history' builtin
-     commands (*note Bash History Facilities::.).
+     commands (*note Bash History Facilities::).
 
 `--enable-job-control'
-     This enables the job control features (*note Job Control::.), if
+     This enables the job control features (*note Job Control::), if
      the operating system supports them.
 
 `--enable-net-redirections'
      This enables the special handling of filenames of the form
      `/dev/tcp/HOST/PORT' and `/dev/udp/HOST/PORT' when used in
-     redirections (*note Redirections::.).
+     redirections (*note Redirections::).
 
 `--enable-process-substitution'
-     This enables process substitution (*note Process Substitution::.)
-     if the operating system provides the necessary support.
+     This enables process substitution (*note Process Substitution::) if
+     the operating system provides the necessary support.
 
 `--enable-prompt-string-decoding'
      Turn on the interpretation of a number of backslash-escaped
@@ -7224,12 +7337,12 @@ does not provide the necessary support.
 
 `--enable-progcomp'
      Enable the programmable completion facilities (*note Programmable
-     Completion::.).  If Readline is not enabled, this option has no
+     Completion::).  If Readline is not enabled, this option has no
      effect.
 
 `--enable-readline'
      Include support for command-line editing and history with the Bash
-     version of the Readline library (*note Command Line Editing::.).
+     version of the Readline library (*note Command Line Editing::).
 
 `--enable-restricted'
      Include support for a "restricted shell".  If this is enabled,
@@ -7238,7 +7351,7 @@ does not provide the necessary support.
 
 `--enable-select'
      Include the `select' builtin, which allows the generation of simple
-     menus (*note Conditional Constructs::.).
+     menus (*note Conditional Constructs::).
 
 `--enable-usg-echo-default'
      A synonym for `--enable-xpg-echo-default'.
@@ -7303,70 +7416,69 @@ be implemented.  There are some differences between the traditional
 Bourne shell and Bash; this section quickly details the differences of
 significance.  A number of these differences are explained in greater
 depth in previous sections.  This section uses the version of `sh'
-included SVR4.2 as the baseline reference.
+included in SVR4.2 as the baseline reference.
 
    * Bash is POSIX-conformant, even where the POSIX specification
-     differs from traditional `sh' behavior.
+     differs from traditional `sh' behavior (*note Bash POSIX Mode::).
 
    * Bash has multi-character invocation options (*note Invoking
-     Bash::.).
+     Bash::).
 
-   * Bash has command-line editing (*note Command Line Editing::.) and
+   * Bash has command-line editing (*note Command Line Editing::) and
      the `bind' builtin.
 
    * Bash provides a programmable word completion mechanism (*note
-     Programmable Completion::.), and two builtin commands, `complete'
+     Programmable Completion::), and two builtin commands, `complete'
      and `compgen', to manipulate it.
 
-   * Bash has command history (*note Bash History Facilities::.) and the
+   * Bash has command history (*note Bash History Facilities::) and the
      `history' and `fc' builtins to manipulate it.
 
    * Bash implements `csh'-like history expansion (*note History
-     Interaction::.).
+     Interaction::).
 
-   * Bash has one-dimensional array variables (*note Arrays::.), and the
+   * Bash has one-dimensional array variables (*note Arrays::), and the
      appropriate variable expansions and assignment syntax to use them.
      Several of the Bash builtins take options to act on arrays.  Bash
      provides a number of built-in array variables.
 
    * The `$'...'' quoting syntax, which expands ANSI-C
      backslash-escaped characters in the text between the single quotes,
-     is supported (*note ANSI-C Quoting::.).
+     is supported (*note ANSI-C Quoting::).
 
    * Bash supports the `$"..."' quoting syntax to do locale-specific
      translation of the characters between the double quotes.  The
      `-D', `--dump-strings', and `--dump-po-strings' invocation options
      list the translatable strings found in a script (*note Locale
-     Translation::.).
+     Translation::).
 
    * Bash implements the `!' keyword to negate the return value of a
-     pipeline (*note Pipelines::.).  Very useful when an `if' statement
+     pipeline (*note Pipelines::).  Very useful when an `if' statement
      needs to act only if a test fails.
 
    * Bash has the `time' reserved word and command timing (*note
-     Pipelines::.).  The display of the timing statistics may be
+     Pipelines::).  The display of the timing statistics may be
      controlled with the `TIMEFORMAT' variable.
 
    * Bash implements the `for (( EXPR1 ; EXPR2 ; EXPR3 ))' arithmetic
      for command, similar to the C language (*note Looping
-     Constructs::.).
+     Constructs::).
 
    * Bash includes the `select' compound command, which allows the
-     generation of simple menus (*note Conditional Constructs::.).
+     generation of simple menus (*note Conditional Constructs::).
 
    * Bash includes the `[[' compound command, which makes conditional
-     testing part of the shell grammar (*note Conditional
-     Constructs::.).
+     testing part of the shell grammar (*note Conditional Constructs::).
 
-   * Bash includes brace expansion (*note Brace Expansion::.) and tilde
-     expansion (*note Tilde Expansion::.).
+   * Bash includes brace expansion (*note Brace Expansion::) and tilde
+     expansion (*note Tilde Expansion::).
 
    * Bash implements command aliases and the `alias' and `unalias'
-     builtins (*note Aliases::.).
+     builtins (*note Aliases::).
 
    * Bash provides shell arithmetic, the `((' compound command (*note
-     Conditional Constructs::.), and arithmetic expansion (*note Shell
-     Arithmetic::.).
+     Conditional Constructs::), and arithmetic expansion (*note Shell
+     Arithmetic::).
 
    * Variables present in the shell's initial environment are
      automatically exported to child processes.  The Bourne shell does
@@ -7375,33 +7487,33 @@ included SVR4.2 as the baseline reference.
 
    * Bash includes the POSIX pattern removal `%', `#', `%%' and `##'
      expansions to remove leading or trailing substrings from variable
-     values (*note Shell Parameter Expansion::.).
+     values (*note Shell Parameter Expansion::).
 
    * The expansion `${#xx}', which returns the length of `${xx}', is
-     supported (*note Shell Parameter Expansion::.).
+     supported (*note Shell Parameter Expansion::).
 
    * The expansion `${var:'OFFSET`[:'LENGTH`]}', which expands to the
      substring of `var''s value of length LENGTH, beginning at OFFSET,
-     is present (*note Shell Parameter Expansion::.).
+     is present (*note Shell Parameter Expansion::).
 
    * The expansion `${var/[/]'PATTERN`[/'REPLACEMENT`]}', which matches
      PATTERN and replaces it with REPLACEMENT in the value of `var', is
-     available (*note Shell Parameter Expansion::.).
+     available (*note Shell Parameter Expansion::).
 
    * The expansion `${!PREFIX}*' expansion, which expands to the names
      of all shell variables whose names begin with PREFIX, is available
-     (*note Shell Parameter Expansion::.).
+     (*note Shell Parameter Expansion::).
 
    * Bash has INDIRECT variable expansion using `${!word}' (*note Shell
-     Parameter Expansion::.).
+     Parameter Expansion::).
 
    * Bash can expand positional parameters beyond `$9' using `${NUM}'.
 
    * The POSIX `$()' form of command substitution is implemented (*note
-     Command Substitution::.), and preferred to the Bourne shell's ```'
+     Command Substitution::), and preferred to the Bourne shell's ```'
      (which is also implemented for backwards compatibility).
 
-   * Bash has process substitution (*note Process Substitution::.).
+   * Bash has process substitution (*note Process Substitution::).
 
    * Bash automatically assigns variables that provide information
      about the current user (`UID', `EUID', and `GROUPS'), the current
@@ -7410,68 +7522,68 @@ included SVR4.2 as the baseline reference.
      `BASH_VERSINFO').  *Note Bash Variables::, for details.
 
    * The `IFS' variable is used to split only the results of expansion,
-     not all words (*note Word Splitting::.).  This closes a
+     not all words (*note Word Splitting::).  This closes a
      longstanding shell security hole.
 
    * Bash implements the full set of POSIX 1003.2 filename expansion
      operators, including CHARACTER CLASSES, EQUIVALENCE CLASSES, and
-     COLLATING SYMBOLS (*note Filename Expansion::.).
+     COLLATING SYMBOLS (*note Filename Expansion::).
 
    * Bash implements extended pattern matching features when the
-     `extglob' shell option is enabled (*note Pattern Matching::.).
+     `extglob' shell option is enabled (*note Pattern Matching::).
 
    * It is possible to have a variable and a function with the same
      name; `sh' does not separate the two name spaces.
 
    * Bash functions are permitted to have local variables using the
      `local' builtin, and thus useful recursive functions may be written
-     (*note Bash Builtins::.).
+     (*note Bash Builtins::).
 
    * Variable assignments preceding commands affect only that command,
-     even builtins and functions (*note Environment::.).  In `sh', all
+     even builtins and functions (*note Environment::).  In `sh', all
      variable assignments preceding commands are global unless the
      command is executed from the file system.
 
    * Bash performs filename expansion on filenames specified as operands
-     to input and output redirection operators (*note Redirections::.).
+     to input and output redirection operators (*note Redirections::).
 
    * Bash contains the `<>' redirection operator, allowing a file to be
      opened for both reading and writing, and the `&>' redirection
      operator, for directing standard output and standard error to the
-     same file (*note Redirections::.).
+     same file (*note Redirections::).
 
    * Bash treats a number of filenames specially when they are used in
-     redirection operators (*note Redirections::.).
+     redirection operators (*note Redirections::).
 
    * Bash can open network connections to arbitrary machines and
-     services with the redirection operators (*note Redirections::.).
+     services with the redirection operators (*note Redirections::).
 
    * The `noclobber' option is available to avoid overwriting existing
-     files with output redirection (*note The Set Builtin::.).  The
-     `>|' redirection operator may be used to override `noclobber'.
+     files with output redirection (*note The Set Builtin::).  The `>|'
+     redirection operator may be used to override `noclobber'.
 
-   * The Bash `cd' and `pwd' builtins (*note Bourne Shell Builtins::.)
-     each take `-L' and `-P' builtins to switch between logical and
+   * The Bash `cd' and `pwd' builtins (*note Bourne Shell Builtins::)
+     each take `-L' and `-P' options to switch between logical and
      physical modes.
 
    * Bash allows a function to override a builtin with the same name,
      and provides access to that builtin's functionality within the
      function via the `builtin' and `command' builtins (*note Bash
-     Builtins::.).
+     Builtins::).
 
    * The `command' builtin allows selective disabling of functions when
-     command lookup is performed (*note Bash Builtins::.).
+     command lookup is performed (*note Bash Builtins::).
 
    * Individual builtins may be enabled or disabled using the `enable'
-     builtin (*note Bash Builtins::.).
+     builtin (*note Bash Builtins::).
 
    * The Bash `exec' builtin takes additional options that allow users
      to control the contents of the environment passed to the executed
      command, and what the zeroth argument to the command is to be
-     (*note Bourne Shell Builtins::.).
+     (*note Bourne Shell Builtins::).
 
    * Shell functions may be exported to children via the environment
-     using `export -f' (*note Shell Functions::.).
+     using `export -f' (*note Shell Functions::).
 
    * The Bash `export', `readonly', and `declare' builtins can take a
      `-f' option to act on shell functions, a `-p' option to display
@@ -7483,15 +7595,15 @@ included SVR4.2 as the baseline reference.
    * The Bash `hash' builtin allows a name to be associated with an
      arbitrary filename, even when that filename cannot be found by
      searching the `$PATH', using `hash -p' (*note Bourne Shell
-     Builtins::.).
+     Builtins::).
 
    * Bash includes a `help' builtin for quick reference to shell
-     facilities (*note Bash Builtins::.).
+     facilities (*note Bash Builtins::).
 
    * The `printf' builtin is available to display formatted output
-     (*note Bash Builtins::.).
+     (*note Bash Builtins::).
 
-   * The Bash `read' builtin (*note Bash Builtins::.)  will read a line
+   * The Bash `read' builtin (*note Bash Builtins::) will read a line
      ending in `\' with the `-r' option, and will use the `REPLY'
      variable as a default if no non-option arguments are supplied.
      The Bash `read' builtin also accepts a prompt string with the `-p'
@@ -7506,43 +7618,43 @@ included SVR4.2 as the baseline reference.
 
    * The `return' builtin may be used to abort execution of scripts
      executed with the `.' or `source' builtins (*note Bourne Shell
-     Builtins::.).
+     Builtins::).
 
    * Bash includes the `shopt' builtin, for finer control of shell
-     optional capabilities (*note Bash Builtins::.).
+     optional capabilities (*note Bash Builtins::).
 
    * Bash has much more optional behavior controllable with the `set'
-     builtin (*note The Set Builtin::.).
+     builtin (*note The Set Builtin::).
 
-   * The `test' builtin (*note Bourne Shell Builtins::.)  is slightly
+   * The `test' builtin (*note Bourne Shell Builtins::) is slightly
      different, as it implements the POSIX algorithm, which specifies
      the behavior based on the number of arguments.
 
-   * The `trap' builtin (*note Bourne Shell Builtins::.)  allows a
+   * The `trap' builtin (*note Bourne Shell Builtins::) allows a
      `DEBUG' pseudo-signal specification, similar to `EXIT'.  Commands
      specified with a `DEBUG' trap are executed after every simple
      command.  The `DEBUG' trap is not inherited by shell functions.
 
    * The Bash `type' builtin is more extensive and gives more
-     information about the names it finds (*note Bash Builtins::.).
+     information about the names it finds (*note Bash Builtins::).
 
    * The Bash `umask' builtin permits a `-p' option to cause the output
      to be displayed in the form of a `umask' command that may be
-     reused as input (*note Bourne Shell Builtins::.).
+     reused as input (*note Bourne Shell Builtins::).
 
    * Bash implements a `csh'-like directory stack, and provides the
      `pushd', `popd', and `dirs' builtins to manipulate it (*note The
-     Directory Stack::.).  Bash also makes the directory stack visible
+     Directory Stack::).  Bash also makes the directory stack visible
      as the value of the `DIRSTACK' shell variable.
 
    * Bash interprets special backslash-escaped characters in the prompt
-     strings when interactive (*note Printing a Prompt::.).
+     strings when interactive (*note Printing a Prompt::).
 
    * The Bash restricted mode is more useful (*note The Restricted
-     Shell::.); the SVR4.2 shell restricted mode is too limited.
+     Shell::); the SVR4.2 shell restricted mode is too limited.
 
    * The `disown' builtin can remove a job from the internal shell job
-     table (*note Job Control Builtins::.) or suppress the sending of
+     table (*note Job Control Builtins::) or suppress the sending of
      `SIGHUP' to a job when the shell exits as the result of a `SIGHUP'.
 
    * The SVR4.2 shell has two privilege-related builtins (`mldmode' and
@@ -7555,6 +7667,7 @@ included SVR4.2 as the baseline reference.
 
    * The SVR4.2 `sh' uses a `TIMEOUT' variable like Bash uses `TMOUT'.
 
+
 More features unique to Bash may be found in *Note Bash Features::.
 
 Implementation Differences From The SVR4.2 Shell
@@ -7719,6 +7832,7 @@ Parameter and Variable Index
 * BASH_VERSION:                          Bash Variables.
 * bell-style:                            Readline Init File Syntax.
 * CDPATH:                                Bourne Shell Variables.
+* COLUMNS:                               Bash Variables.
 * comment-begin:                         Readline Init File Syntax.
 * COMP_CWORD:                            Bash Variables.
 * COMP_LINE:                             Bash Variables.
@@ -7763,6 +7877,7 @@ Parameter and Variable Index
 * LC_MESSAGES:                           Bash Variables.
 * LC_NUMERIC:                            Bash Variables.
 * LINENO:                                Bash Variables.
+* LINES:                                 Bash Variables.
 * MACHTYPE:                              Bash Variables.
 * MAIL:                                  Bourne Shell Variables.
 * MAILCHECK:                             Bash Variables.
@@ -7804,11 +7919,11 @@ Function Index
 * Menu:
 
 * abort (C-g):                           Miscellaneous Commands.
-* accept-line (Newline, Return):         Commands For History.
+* accept-line (Newline or Return):       Commands For History.
 * backward-char (C-b):                   Commands For Moving.
 * backward-delete-char (Rubout):         Commands For Text.
 * backward-kill-line (C-x Rubout):       Commands For Killing.
-* backward-kill-word (M-DEL):            Commands For Killing.
+* backward-kill-word (M-<DEL>):          Commands For Killing.
 * backward-word (M-b):                   Commands For Moving.
 * beginning-of-history (M-<):            Commands For History.
 * beginning-of-line (C-a):               Commands For Moving.
@@ -7817,7 +7932,7 @@ Function Index
 * character-search (C-]):                Miscellaneous Commands.
 * character-search-backward (M-C-]):     Miscellaneous Commands.
 * clear-screen (C-l):                    Commands For Moving.
-* complete (TAB):                        Commands For Completion.
+* complete (<TAB>):                      Commands For Completion.
 * copy-backward-word ():                 Commands For Killing.
 * copy-forward-word ():                  Commands For Killing.
 * copy-region-as-kill ():                Commands For Killing.
@@ -7851,9 +7966,9 @@ Function Index
 * non-incremental-forward-search-history (M-n): Commands For History.
 * non-incremental-reverse-search-history (M-p): Commands For History.
 * possible-completions (M-?):            Commands For Completion.
-* prefix-meta (ESC):                     Miscellaneous Commands.
+* prefix-meta (<ESC>):                   Miscellaneous Commands.
 * previous-history (C-p):                Commands For History.
-* quoted-insert (C-q, C-v):              Commands For Text.
+* quoted-insert (C-q or C-v):            Commands For Text.
 * re-read-init-file (C-x C-r):           Miscellaneous Commands.
 * redraw-current-line ():                Commands For Moving.
 * reverse-search-history (C-r):          Commands For History.
@@ -7863,13 +7978,13 @@ Function Index
 * start-kbd-macro (C-x ():               Keyboard Macros.
 * transpose-chars (C-t):                 Commands For Text.
 * transpose-words (M-t):                 Commands For Text.
-* undo (C-_, C-x C-u):                   Miscellaneous Commands.
+* undo (C-_ or C-x C-u):                 Miscellaneous Commands.
 * universal-argument ():                 Numeric Arguments.
 * unix-line-discard (C-u):               Commands For Killing.
 * unix-word-rubout (C-w):                Commands For Killing.
 * upcase-word (M-u):                     Commands For Text.
 * yank (C-y):                            Commands For Killing.
-* yank-last-arg (M-., M-_):              Commands For History.
+* yank-last-arg (M-. or M-_):            Commands For History.
 * yank-nth-arg (M-C-y):                  Commands For History.
 * yank-pop (M-y):                        Commands For Killing.
 
@@ -7916,8 +8031,8 @@ Concept Index
 * evaluation, arithmetic:                Shell Arithmetic.
 * event designators:                     Event Designators.
 * execution environment:                 Command Execution Environment.
-* exit status <1>:                       Exit Status.
-* exit status:                           Definitions.
+* exit status <1>:                       Definitions.
+* exit status:                           Exit Status.
 * expansion:                             Shell Expansions.
 * expansion, arithmetic:                 Arithmetic Expansion.
 * expansion, brace:                      Brace Expansion.
@@ -7944,8 +8059,8 @@ Concept Index
 * interactive shell <1>:                 Interactive Shells.
 * interactive shell:                     Invoking Bash.
 * job:                                   Definitions.
-* job control <1>:                       Job Control Basics.
-* job control:                           Definitions.
+* job control <1>:                       Definitions.
+* job control:                           Job Control Basics.
 * kill ring:                             Readline Killing Commands.
 * killing text:                          Readline Killing Commands.
 * localization:                          Locale Translation.
@@ -7982,13 +8097,14 @@ Concept Index
 * shell, interactive:                    Interactive Shells.
 * signal:                                Definitions.
 * signal handling:                       Signals.
-* special builtin <1>:                   Special Builtins.
-* special builtin:                       Definitions.
+* special builtin <1>:                   Definitions.
+* special builtin:                       Special Builtins.
 * startup files:                         Bash Startup Files.
 * suspending jobs:                       Job Control Basics.
 * tilde expansion:                       Tilde Expansion.
 * token:                                 Definitions.
 * variable, shell:                       Shell Parameters.
+* variables, readline:                   Readline Init File Syntax.
 * word:                                  Definitions.
 * word splitting:                        Word Splitting.
 * yanking text:                          Readline Killing Commands.
@@ -7996,126 +8112,126 @@ Concept Index
 
 \1f
 Tag Table:
-Node: Top\7f1185
-Node: Introduction\7f3316
-Node: What is Bash?\7f3541
-Node: What is a shell?\7f4642
-Node: Definitions\7f6876
-Node: Basic Shell Features\7f9542
-Node: Shell Syntax\7f10766
-Node: Shell Operation\7f11790
-Node: Quoting\7f13085
-Node: Escape Character\7f14345
-Node: Single Quotes\7f14817
-Node: Double Quotes\7f15152
-Node: ANSI-C Quoting\7f16055
-Node: Locale Translation\7f16957
-Node: Comments\7f17378
-Node: Shell Commands\7f17984
-Node: Simple Commands\7f18865
-Node: Pipelines\7f19488
-Node: Lists\7f21015
-Node: Looping Constructs\7f22529
-Node: Conditional Constructs\7f24976
-Node: Command Grouping\7f30918
-Node: Shell Functions\7f32295
-Node: Shell Parameters\7f34833
-Node: Positional Parameters\7f36159
-Node: Special Parameters\7f37052
-Node: Shell Expansions\7f39711
-Node: Brace Expansion\7f41635
-Node: Tilde Expansion\7f43305
-Node: Shell Parameter Expansion\7f45637
-Node: Command Substitution\7f52439
-Node: Arithmetic Expansion\7f53761
-Node: Process Substitution\7f54606
-Node: Word Splitting\7f55643
-Node: Filename Expansion\7f57095
-Node: Pattern Matching\7f59055
-Node: Quote Removal\7f61450
-Node: Redirections\7f61736
-Node: Executing Commands\7f68607
-Node: Simple Command Expansion\7f69274
-Node: Command Search and Execution\7f71197
-Node: Command Execution Environment\7f73194
-Node: Environment\7f75648
-Node: Exit Status\7f77300
-Node: Signals\7f78497
-Node: Shell Scripts\7f80392
-Node: Shell Builtin Commands\7f82776
-Node: Bourne Shell Builtins\7f84211
-Node: Bash Builtins\7f99107
-Node: The Set Builtin\7f123146
-Node: Special Builtins\7f129959
-Node: Shell Variables\7f130931
-Node: Bourne Shell Variables\7f131367
-Node: Bash Variables\7f133147
-Node: Bash Features\7f147888
-Node: Invoking Bash\7f148770
-Node: Bash Startup Files\7f153441
-Node: Interactive Shells\7f158148
-Node: What is an Interactive Shell?\7f158550
-Node: Is this Shell Interactive?\7f159185
-Node: Interactive Shell Behavior\7f159991
-Node: Bash Conditional Expressions\7f163279
-Node: Shell Arithmetic\7f166574
-Node: Aliases\7f169005
-Node: Arrays\7f171510
-Node: The Directory Stack\7f174530
-Node: Directory Stack Builtins\7f175236
-Node: Printing a Prompt\7f178114
-Node: The Restricted Shell\7f180486
-Node: Bash POSIX Mode\7f181964
-Node: Job Control\7f186258
-Node: Job Control Basics\7f186724
-Node: Job Control Builtins\7f190939
-Node: Job Control Variables\7f195234
-Node: Command Line Editing\7f196384
-Node: Introduction and Notation\7f197382
-Node: Readline Interaction\7f198999
-Node: Readline Bare Essentials\7f200191
-Node: Readline Movement Commands\7f201971
-Node: Readline Killing Commands\7f202927
-Node: Readline Arguments\7f204832
-Node: Searching\7f205806
-Node: Readline Init File\7f207685
-Node: Readline Init File Syntax\7f208739
-Node: Conditional Init Constructs\7f218285
-Node: Sample Init File\7f220723
-Node: Bindable Readline Commands\7f223892
-Node: Commands For Moving\7f225085
-Node: Commands For History\7f225933
-Node: Commands For Text\7f228727
-Node: Commands For Killing\7f230678
-Node: Numeric Arguments\7f232644
-Node: Commands For Completion\7f233770
-Node: Keyboard Macros\7f237602
-Node: Miscellaneous Commands\7f238160
-Node: Readline vi Mode\7f242534
-Node: Programmable Completion\7f243444
-Node: Programmable Completion Builtins\7f248120
-Node: Using History Interactively\7f254226
-Node: Bash History Facilities\7f254905
-Node: Bash History Builtins\7f257466
-Node: History Interaction\7f261038
-Node: Event Designators\7f263590
-Node: Word Designators\7f264517
-Node: Modifiers\7f266146
-Node: Installing Bash\7f267463
-Node: Basic Installation\7f268605
-Node: Compilers and Options\7f271723
-Node: Compiling For Multiple Architectures\7f272457
-Node: Installation Names\7f274114
-Node: Specifying the System Type\7f274837
-Node: Sharing Defaults\7f275544
-Node: Operation Controls\7f276209
-Node: Optional Features\7f277160
-Node: Reporting Bugs\7f284581
-Node: Major Differences From The Bourne Shell\7f285678
-Node: Builtin Index\7f299726
-Node: Reserved Word Index\7f303317
-Node: Variable Index\7f304793
-Node: Function Index\7f310465
-Node: Concept Index\7f314955
+Node: Top\7f1157
+Node: Introduction\7f3286
+Node: What is Bash?\7f3511
+Node: What is a shell?\7f4612
+Node: Definitions\7f6846
+Node: Basic Shell Features\7f9512
+Node: Shell Syntax\7f10736
+Node: Shell Operation\7f11760
+Node: Quoting\7f13045
+Node: Escape Character\7f14304
+Node: Single Quotes\7f14776
+Node: Double Quotes\7f15111
+Node: ANSI-C Quoting\7f16012
+Node: Locale Translation\7f16915
+Node: Comments\7f17690
+Node: Shell Commands\7f18295
+Node: Simple Commands\7f19176
+Node: Pipelines\7f19797
+Node: Lists\7f21322
+Node: Looping Constructs\7f22835
+Node: Conditional Constructs\7f25279
+Node: Command Grouping\7f31220
+Node: Shell Functions\7f32597
+Node: Shell Parameters\7f35134
+Node: Positional Parameters\7f36459
+Node: Special Parameters\7f37350
+Node: Shell Expansions\7f40008
+Node: Brace Expansion\7f41928
+Node: Tilde Expansion\7f43597
+Node: Shell Parameter Expansion\7f45928
+Node: Command Substitution\7f52728
+Node: Arithmetic Expansion\7f54050
+Node: Process Substitution\7f54894
+Node: Word Splitting\7f55931
+Node: Filename Expansion\7f57383
+Node: Pattern Matching\7f59341
+Node: Quote Removal\7f62472
+Node: Redirections\7f62758
+Node: Executing Commands\7f69629
+Node: Simple Command Expansion\7f70296
+Node: Command Search and Execution\7f72217
+Node: Command Execution Environment\7f74214
+Node: Environment\7f76667
+Node: Exit Status\7f78318
+Node: Signals\7f79513
+Node: Shell Scripts\7f81405
+Node: Shell Builtin Commands\7f83788
+Node: Bourne Shell Builtins\7f85218
+Node: Bash Builtins\7f100145
+Node: The Set Builtin\7f124177
+Node: Special Builtins\7f131034
+Node: Shell Variables\7f132006
+Node: Bourne Shell Variables\7f132442
+Node: Bash Variables\7f134221
+Node: Bash Features\7f149565
+Node: Invoking Bash\7f150447
+Node: Bash Startup Files\7f155232
+Node: Interactive Shells\7f160102
+Node: What is an Interactive Shell?\7f160504
+Node: Is this Shell Interactive?\7f161139
+Node: Interactive Shell Behavior\7f161945
+Node: Bash Conditional Expressions\7f165212
+Node: Shell Arithmetic\7f168506
+Node: Aliases\7f170937
+Node: Arrays\7f173440
+Node: The Directory Stack\7f176460
+Node: Directory Stack Builtins\7f177166
+Node: Printing a Prompt\7f180044
+Node: The Restricted Shell\7f182414
+Node: Bash POSIX Mode\7f183892
+Node: Job Control\7f189520
+Node: Job Control Basics\7f189986
+Node: Job Control Builtins\7f194200
+Node: Job Control Variables\7f198495
+Node: Command Line Editing\7f199644
+Node: Introduction and Notation\7f200642
+Node: Readline Interaction\7f202259
+Node: Readline Bare Essentials\7f203445
+Node: Readline Movement Commands\7f205225
+Node: Readline Killing Commands\7f206181
+Node: Readline Arguments\7f208090
+Node: Searching\7f209125
+Node: Readline Init File\7f211115
+Node: Readline Init File Syntax\7f212169
+Node: Conditional Init Constructs\7f222372
+Node: Sample Init File\7f224896
+Node: Bindable Readline Commands\7f228065
+Node: Commands For Moving\7f229264
+Node: Commands For History\7f230112
+Node: Commands For Text\7f233000
+Node: Commands For Killing\7f234933
+Node: Numeric Arguments\7f236883
+Node: Commands For Completion\7f238010
+Node: Keyboard Macros\7f241590
+Node: Miscellaneous Commands\7f242148
+Node: Readline vi Mode\7f246510
+Node: Programmable Completion\7f247419
+Node: Programmable Completion Builtins\7f252467
+Node: Using History Interactively\7f259374
+Node: Bash History Facilities\7f260053
+Node: Bash History Builtins\7f262613
+Node: History Interaction\7f266179
+Node: Event Designators\7f268730
+Node: Word Designators\7f269657
+Node: Modifiers\7f271286
+Node: Installing Bash\7f272603
+Node: Basic Installation\7f273745
+Node: Compilers and Options\7f276863
+Node: Compiling For Multiple Architectures\7f277597
+Node: Installation Names\7f279254
+Node: Specifying the System Type\7f279977
+Node: Sharing Defaults\7f280684
+Node: Operation Controls\7f281349
+Node: Optional Features\7f282300
+Node: Reporting Bugs\7f289705
+Node: Major Differences From The Bourne Shell\7f290802
+Node: Builtin Index\7f304814
+Node: Reserved Word Index\7f308405
+Node: Variable Index\7f309881
+Node: Function Index\7f315667
+Node: Concept Index\7f320157
 \1f
 End Tag Table
index 10b8027d76d58b9ed67ba29e0f043513b2100e06..ea3702ff4118a03cd7f408421d7b4ad316842c7a 100644 (file)
@@ -5,13 +5,13 @@
 @c %**end of header
 
 @ignore
-Last Change: Tue Mar 14 11:38:10 EST 2000
+Last Change: Wed Mar 28 14:48:38 EST 2001
 @end ignore
 
-@set EDITION 2.4
-@set VERSION 2.04
-@set UPDATED 14 March 2000
-@set UPDATE-MONTH March 2000
+@set EDITION 2.5
+@set VERSION 2.05
+@set UPDATED 28 Mar 2001
+@set UPDATE-MONTH Mar 2001
 
 @iftex
 @finalout
@@ -413,7 +413,7 @@ following:
 @enumerate
 @item
 Reads its input from a file (@pxref{Shell Scripts}), from a string
-supplied as an argument to the @samp{-c} invocation option
+supplied as an argument to the @option{-c} invocation option
 (@pxref{Invoking Bash}), or from the user's terminal.
 
 @item
@@ -470,7 +470,7 @@ has special meaning to the shell and must be quoted if it is to
 represent itself.
 When the command history expansion facilities are being used, the
 @var{history expansion} character, usually @samp{!}, must be quoted
-to prevent history expansion.  @xref{Bash History Facilities} for
+to prevent history expansion.  @xref{Bash History Facilities}, for
 more details concerning history expansion.
 There are three quoting mechanisms: the
 @var{escape character}, single quotes, and double quotes.
@@ -517,7 +517,7 @@ when in double quotes (@pxref{Shell Parameter Expansion}).
 
 Words of the form @code{$'@var{string}'} are treated specially.  The
 word expands to @var{string}, with backslash-escaped characters replaced
-as specifed by the ANSI C standard.  Backslash escape sequences, if
+as specified by the ANSI C standard.  Backslash escape sequences, if
 present, are decoded as follows:
 
 @table @code
@@ -564,6 +564,13 @@ is ignored.
 If the string is translated and replaced, the replacement is
 double-quoted.
 
+Some systems use the message catalog selected by the @env{LC_MESSAGES}
+shell variable.  Others create the name of the message catalog from the
+value of the @env{TEXTDOMAIN} shell variable, possibly adding a
+suffix of @samp{.mo}.  If you use the @env{TEXTDOMAIN} variable, you
+may need to set the @env{TEXTDOMAINDIR} variable to the location of
+the message catalog files.
+
 @node Comments
 @subsection Comments
 @cindex comments, shell
@@ -641,9 +648,9 @@ The reserved word @code{time} causes timing statistics
 to be printed for the pipeline once it finishes.
 The statistics currently consist of elapsed (wall-clock) time and
 user and system time consumed by the command's execution.
-The @samp{-p} option changes the output format to that specified
+The @option{-p} option changes the output format to that specified
 by @sc{posix}.
-The @code{TIMEFORMAT} variable may be set to a format string that
+The @env{TIMEFORMAT} variable may be set to a format string that
 specifies how the timing information should be displayed.
 @xref{Bash Variables}, for a description of the available formats.
 The use of @code{time} as a reserved word permits the timing of
@@ -874,14 +881,14 @@ of items.  The set of expanded words is printed on the standard
 error output stream, each preceded by a number.  If the
 @samp{in @var{words}} is omitted, the positional parameters are printed,
 as if @samp{in "$@@"} had been specifed.
-The @code{PS3} prompt is then displayed and a line is read from the
+The @env{PS3} prompt is then displayed and a line is read from the
 standard input.
 If the line consists of a number corresponding to one of the displayed
 words, then the value of @var{name} is set to that word.
 If the line is empty, the words and prompt are displayed again.
 If @code{EOF} is read, the @code{select} command completes.
 Any other value read causes @var{name} to be set to null.
-The line read is saved in the variable @code{REPLY}.
+The line read is saved in the variable @env{REPLY}.
 
 The @var{commands} are executed after each selection until a
 @code{break} or @code{return} command is executed, at which
@@ -1046,7 +1053,7 @@ during its execution (@pxref{Positional Parameters}).
 The special parameter @samp{#} that expands to the number of
 positional parameters is updated to reflect the change.
 Positional parameter @code{0} is unchanged.
-The @code{FUNCNAME} variable is set to the name of the function
+The @env{FUNCNAME} variable is set to the name of the function
 while the function is executing.
 
 If the builtin command @code{return}
@@ -1139,13 +1146,13 @@ only be referenced; assignment to them is not allowed.
 Expands to the positional parameters, starting from one.  When the
 expansion occurs within double quotes, it expands to a single word
 with the value of each parameter separated by the first character
-of the @code{IFS}
+of the @env{IFS}
 special variable.  That is, @code{"$*"} is equivalent
 to @code{"$1@var{c}$2@var{c}@dots{}"}, where @var{c}
 is the first character of the value of the @code{IFS}
 variable.
-If @code{IFS} is unset, the parameters are separated by spaces.
-If @code{IFS} is null, the parameters are joined without intervening
+If @env{IFS} is unset, the parameters are separated by spaces.
+If @env{IFS} is null, the parameters are joined without intervening
 separators.
 
 
@@ -1169,7 +1176,7 @@ pipeline.
 (A hyphen.)  Expands to the current option flags as specified upon
 invocation, by the @code{set}
 builtin command, or those set by the shell itself
-(such as the @samp{-i} option).
+(such as the @option{-i} option).
 
 @item $
 Expands to the process @sc{id} of the shell.  In a @code{()} subshell, it
@@ -1183,7 +1190,7 @@ Expands to the process @sc{id} of the most recently executed background
 Expands to the name of the shell or shell script.  This is set at
 shell initialization.  If Bash is invoked with a file of commands
 (@pxref{Shell Scripts}), @code{$0} is set to the name of that file.
-If Bash is started with the @samp{-c} option (@pxref{Invoking Bash}),
+If Bash is started with the @option{-c} option (@pxref{Invoking Bash}),
 then @code{$0} is set to the first argument after the string to be
 executed, if one is present.  Otherwise, it is set
 to the filename used to invoke Bash, as given by argument zero.
@@ -1311,16 +1318,16 @@ If none of the characters in the tilde-prefix are quoted, the
 characters in the tilde-prefix following the tilde are treated as a
 possible @var{login name}.
 If this login name is the null string, the tilde is replaced with the
-value of the @code{HOME} shell variable.
-If @code{HOME} is unset, the home directory of the user executing the
+value of the @env{HOME} shell variable.
+If @env{HOME} is unset, the home directory of the user executing the
 shell is substituted instead.
 Otherwise, the tilde-prefix is replaced with the home directory
 associated with the specified login name.
 
 If the tilde-prefix is @samp{~+}, the value of
-the shell variable @code{PWD} replaces the tilde-prefix.
+the shell variable @env{PWD} replaces the tilde-prefix.
 If the tilde-prefix is @samp{~-}, the value of the shell variable
-@code{OLDPWD}, if it is set, is substituted.
+@env{OLDPWD}, if it is set, is substituted.
 
 If the characters following the tilde in the tilde-prefix consist of a
 number @var{N}, optionally prefixed by a @samp{+} or a @samp{-},
@@ -1338,7 +1345,7 @@ Each variable assignment is checked for unquoted tilde-prefixes immediately
 following a @samp{:} or @samp{=}.
 In these cases, tilde expansion is also performed.
 Consequently, one may use file names with tildes in assignments to
-@code{PATH}, @code{MAILPATH}, and @code{CDPATH},
+@env{PATH}, @env{MAILPATH}, and @env{CDPATH},
 and the shell assigns the expanded value.
 
 The following table shows how Bash treats unquoted tilde-prefixes:
@@ -1465,7 +1472,7 @@ are used, in which case the indexing starts at 1.
 
 @item $@{!@var{prefix}*@}
 Expands to the names of variables whose names begin with @var{prefix},
-separated by the first character of the @code{IFS} special variable.
+separated by the first character of the @env{IFS} special variable.
 
 @item $@{#@var{parameter}@}
 The length in characters of the expanded value of @var{parameter} is
@@ -1635,22 +1642,22 @@ The shell scans the results of parameter expansion, command substitution,
 and arithmetic expansion that did not occur within double quotes for
 word splitting.
 
-The shell treats each character of @code{$IFS}
+The shell treats each character of @env{$IFS}
 as a delimiter, and splits the results of the other
 expansions into words on these characters.  If
-@code{IFS} is unset, or its value is exactly @code{<space><tab><newline>},
-the default, then any sequence of @code{IFS}
-characters serves to delimit words.  If @code{IFS}
+@env{IFS} is unset, or its value is exactly @code{<space><tab><newline>},
+the default, then any sequence of @env{IFS}
+characters serves to delimit words.  If @env{IFS}
 has a value other than the default, then sequences of
 the whitespace characters @code{space} and @code{tab}
 are ignored at the beginning and end of the
 word, as long as the whitespace character is in the
-value of @code{IFS} (an @code{IFS} whitespace character).
-Any character in @code{IFS} that is not @code{IFS}
-whitespace, along with any adjacent @code{IFS}
-whitespace characters, delimits a field.  A sequence of @code{IFS}
+value of @env{IFS} (an @env{IFS} whitespace character).
+Any character in @env{IFS} that is not @env{IFS}
+whitespace, along with any adjacent @env{IFS}
+whitespace characters, delimits a field.  A sequence of @env{IFS}
 whitespace characters is also treated as a delimiter.
-If the value of @code{IFS} is null, no word splitting occurs.
+If the value of @env{IFS} is null, no word splitting occurs.
 
 Explicit null arguments (@code{""} or @code{''}) are retained.
 Unquoted implicit null arguments, resulting from the expansion of
@@ -1671,7 +1678,7 @@ is performed.
 @cindex filename expansion
 @cindex pathname expansion
 
-After word splitting, unless the @samp{-f} option has been set
+After word splitting, unless the @option{-f} option has been set
 (@pxref{The Set Builtin}), Bash scans each word for the characters
 @samp{*}, @samp{?}, and @samp{[}.
 If one of these characters appears, then the word is
@@ -1696,20 +1703,20 @@ See the description of @code{shopt} in @ref{Bash Builtins},
 for a description of the @code{nocaseglob}, @code{nullglob},
 and @code{dotglob} options.
 
-The @code{GLOBIGNORE}
+The @env{GLOBIGNORE}
 shell variable may be used to restrict the set of filenames matching a
-pattern.  If @code{GLOBIGNORE}
+pattern.  If @env{GLOBIGNORE}
 is set, each matching filename that also matches one of the patterns in
-@code{GLOBIGNORE} is removed from the list of matches.  The filenames
+@env{GLOBIGNORE} is removed from the list of matches.  The filenames
 @file{.} and @file{..}
-are always ignored, even when @code{GLOBIGNORE}
-is set.  However, setting @code{GLOBIGNORE} has the effect of
+are always ignored, even when @env{GLOBIGNORE}
+is set.  However, setting @env{GLOBIGNORE} has the effect of
 enabling the @code{dotglob}
 shell option, so all other filenames beginning with a
 @samp{.} will match.
 To get the old behavior of ignoring filenames beginning with a
-@samp{.}, make @samp{.*} one of the patterns in @code{GLOBIGNORE}.
-The @code{dotglob} option is disabled when @code{GLOBIGNORE}
+@samp{.}, make @samp{.*} one of the patterns in @env{GLOBIGNORE}.
+The @code{dotglob} option is disabled when @env{GLOBIGNORE}
 is unset.
 
 @node Pattern Matching
@@ -1730,14 +1737,26 @@ Matches any string, including the null string.
 Matches any single character.
 @item [@dots{}]
 Matches any one of the enclosed characters.  A pair of characters
-separated by a minus sign denotes a @var{range};
-any character lexically between those two characters, inclusive,
+separated by a hyphen denotes a @var{range expression};
+any character that sorts between those two characters, inclusive,
+using the current locale's collating sequence and character set,
 is matched.  If the first character following the
 @samp{[} is a @samp{!}  or a @samp{^}
 then any character not enclosed is matched.  A @samp{@minus{}}
 may be matched by including it as the first or last character
 in the set.  A @samp{]} may be matched by including it as the first
 character in the set.
+The sorting order of characters in range expressions is determined by
+the current locale and the value of the @env{LC_COLLATE} shell variable,
+if set.
+
+For example, in the default C locale, @samp{[a-dx-z]} is equivalent to
+@samp{[abcdxyz]}.  Many locales sort characters in dictionary order, and in
+these locales @samp{[a-dx-z]} is typically not equivalent to @samp{[abcdxyz]};
+it might be equivalent to @samp{[aBbCcDdxXyYz]}, for example.  To obtain
+the traditional interpretation of ranges in bracket expressions, you can
+force the use of the C locale by setting the @env{LC_COLLATE} or
+@env{LC_ALL} environment variable to the value @samp{C}.
 
 Within @samp{[} and @samp{]}, @var{character classes} can be specified
 using the syntax
@@ -2097,11 +2116,11 @@ builtin is invoked.
 @item
 If the name is neither a shell function nor a builtin,
 and contains no slashes, Bash searches each element of
-@code{$PATH} for a directory containing an executable file
+@env{$PATH} for a directory containing an executable file
 by that name.  Bash uses a hash table to remember the full
-pathnames of executable files to avoid multiple @code{PATH} searches
+pathnames of executable files to avoid multiple @env{PATH} searches
 (see the description of @code{hash} in @ref{Bourne Shell Builtins}).
-A full search of the directories in @code{$PATH}
+A full search of the directories in @env{$PATH}
 is performed only if the command is not found in the hash table.
 If the search is unsuccessful, the shell prints an error
 message and returns an exit status of 127.
@@ -2169,7 +2188,7 @@ shell aliases defined with @code{alias} (@pxref{Aliases})
 @item
 various process @sc{id}s, including those of background jobs
 (@pxref{Lists}), the value of @code{$$}, and the value of
-@code{$PPID}
+@env{$PPID}
 
 @end itemize
 
@@ -2241,7 +2260,7 @@ parameter assignments, as described in @ref{Shell Parameters}.
 These assignment statements affect only the environment seen
 by that command.
 
-If the @samp{-k} option is set (@pxref{The Set Builtin}), then all
+If the @option{-k} option is set (@pxref{The Set Builtin}), then all
 parameter assignments are placed in the environment for a command,
 not just those that precede the command name.
 
@@ -2329,7 +2348,7 @@ which the trap is executed.
 
 A shell script is a text file containing shell commands.  When such
 a file is used as the first non-option argument when invoking Bash,
-and neither the @samp{-c} nor @samp{-s} option is supplied
+and neither the @option{-c} nor @option{-s} option is supplied
 (@pxref{Invoking Bash}), 
 Bash reads and executes commands from the file, then exits.  This
 mode of operation creates a non-interactive shell.  When Bash runs
@@ -2341,7 +2360,7 @@ are unset.
 
 A shell script may be made executable by using the @code{chmod} command
 to turn on the execute bit.  When Bash finds such a file while
-searching the @code{$PATH} for a command, it spawns a subshell to
+searching the @env{$PATH} for a command, it spawns a subshell to
 execute it.  In other words, executing
 @example
 filename @var{arguments}
@@ -2435,9 +2454,9 @@ The return status is zero.
 @end example
 Read and execute commands from the @var{filename} argument in the
 current shell context.  If @var{filename} does not contain a slash,
-the @code{PATH} variable is used to find
-@var{filename}.  The current directory is searched if @var{filename}
-is not found in @code{$PATH}.
+the @env{PATH} variable is used to find @var{filename}.
+When Bash is not in @sc{posix} mode, the current directory is searched
+if @var{filename} is not found in @env{$PATH}.
 If any @var{arguments} are supplied, they become the positional
 parameters when @var{filename} is executed.  Otherwise the positional
 parameters are unchanged.
@@ -2462,13 +2481,13 @@ The return status is zero unless @var{n} is not greater than or equal to 1.
 cd [-LP] [@var{directory}]
 @end example
 Change the current working directory to @var{directory}.  If @var{directory}
-is not given, the value of the @code{HOME} shell variable is used.  If the
-shell variable @code{CDPATH} exists, it is used as a search path.  If
-@var{directory} begins with a slash, @code{CDPATH} is not used.
-The @samp{-P} option means
+is not given, the value of the @env{HOME} shell variable is used.  If the
+shell variable @env{CDPATH} exists, it is used as a search path.  If
+@var{directory} begins with a slash, @env{CDPATH} is not used.
+The @option{-P} option means
 to not follow symbolic links; symbolic links are followed by default
-or with the @samp{-L} option.
-If @var{directory} is @samp{-}, it is equivalent to @code{$OLDPWD}.
+or with the @option{-L} option.
+If @var{directory} is @samp{-}, it is equivalent to @env{$OLDPWD}.
 The return status is zero if the directory is successfully changed,
 non-zero otherwise.
 
@@ -2502,12 +2521,12 @@ exec [-cl] [-a @var{name}] [@var{command} [@var{arguments}]]
 @end example
 If @var{command}
 is supplied, it replaces the shell without creating a new process.
-If the @samp{-l} option is supplied, the shell places a dash at the
+If the @option{-l} option is supplied, the shell places a dash at the
 beginning of the zeroth arg passed to @var{command}.
 This is what the @code{login} program does.
-The @samp{-c} option causes @var{command} to be executed with an empty
+The @option{-c} option causes @var{command} to be executed with an empty
 environment.
-If @samp{-a} is supplied, the shell passes @var{name} as the zeroth
+If @option{-a} is supplied, the shell passes @var{name} as the zeroth
 argument to @var{command}.
 If no @var{command} is specified, redirections may be used to affect
 the current shell environment.  If there are no redirection errors, the
@@ -2528,14 +2547,14 @@ Any trap on @code{EXIT} is executed before the shell terminates.
 export [-fn] [-p] [@var{name}[=@var{value}]]
 @end example
 Mark each @var{name} to be passed to child processes
-in the environment.  If the @samp{-f} option is supplied, the @var{name}s
+in the environment.  If the @option{-f} option is supplied, the @var{name}s
 refer to shell functions; otherwise the names refer to shell variables.
-The @samp{-n} option means to no longer mark each @var{name} for export.
-If no @var{names} are supplied, or if the @samp{-p} option is given, a
+The @option{-n} option means to no longer mark each @var{name} for export.
+If no @var{names} are supplied, or if the @option{-p} option is given, a
 list of exported names is displayed.
-The @samp{-p} option displays output in a form that may be reused as input.
+The @option{-p} option displays output in a form that may be reused as input.
 The return status is zero unless an invalid option is supplied, one of
-the names is not a valid shell variable name, or @samp{-f} is supplied
+the names is not a valid shell variable name, or @option{-f} is supplied
 with a name that is not a shell function.
 
 @item getopts
@@ -2553,18 +2572,18 @@ Each time it is invoked, @code{getopts}
 places the next option in the shell variable @var{name}, initializing
 @var{name} if it does not exist,
 and the index of the next argument to be processed into the
-variable @code{OPTIND}.
-@code{OPTIND} is initialized to 1 each time the shell or a shell script
+variable @env{OPTIND}.
+@env{OPTIND} is initialized to 1 each time the shell or a shell script
 is invoked.
 When an option requires an argument,
-@code{getopts} places that argument into the variable @code{OPTARG}.
-The shell does not reset @code{OPTIND} automatically; it must be manually
+@code{getopts} places that argument into the variable @env{OPTARG}.
+The shell does not reset @env{OPTIND} automatically; it must be manually
 reset between multiple calls to @code{getopts} within the same shell
 invocation if a new set of parameters is to be used.
 
 When the end of options is encountered, @code{getopts} exits with a
 return value greater than zero.
-@code{OPTIND} is set to the index of the first non-option argument,
+@env{OPTIND} is set to the index of the first non-option argument,
 and @code{name} is set to @samp{?}.
 
 @code{getopts}
@@ -2576,21 +2595,21 @@ given in @var{args}, @code{getopts} parses those instead.
 error reporting is used.  In normal operation diagnostic messages
 are printed when invalid options or missing option arguments are
 encountered.
-If the variable @code{OPTERR}
+If the variable @env{OPTERR}
 is set to 0, no error messages will be displayed, even if the first
 character of @code{optstring} is not a colon.
 
 If an invalid option is seen,
 @code{getopts} places @samp{?} into @var{name} and, if not silent,
-prints an error message and unsets @code{OPTARG}.
+prints an error message and unsets @env{OPTARG}.
 If @code{getopts} is silent, the option character found is placed in
-@code{OPTARG} and no diagnostic message is printed.
+@env{OPTARG} and no diagnostic message is printed.
 
 If a required argument is not found, and @code{getopts}
 is not silent, a question mark (@samp{?}) is placed in @var{name},
 @code{OPTARG} is unset, and a diagnostic message is printed.
 If @code{getopts} is silent, then a colon (@samp{:}) is placed in
-@var{name} and @code{OPTARG} is set to the option character found.
+@var{name} and @env{OPTARG} is set to the option character found.
 
 @item hash
 @btindex hash
@@ -2600,10 +2619,10 @@ hash [-r] [-p @var{filename}] [@var{name}]
 Remember the full pathnames of commands specified as @var{name} arguments,
 so they need not be searched for on subsequent invocations.
 The commands are found by searching through the directories listed in
-@code{$PATH}.
-The @samp{-p} option inhibits the path search, and @var{filename} is
+@env{$PATH}.
+The @option{-p} option inhibits the path search, and @var{filename} is
 used as the location of @var{name}.
-The @samp{-r} option causes the shell to forget all remembered locations.
+The @option{-r} option causes the shell to forget all remembered locations.
 If no arguments are given, information about remembered commands is printed.
 The return status is zero unless a @var{name} is not found or an invalid
 option is supplied.
@@ -2614,9 +2633,9 @@ option is supplied.
 pwd [-LP]
 @end example
 Print the absolute pathname of the current working directory.
-If the @samp{-P} option is supplied, the pathname printed will not
+If the @option{-P} option is supplied, the pathname printed will not
 contain symbolic links.
-If the @samp{-L} option is supplied, the pathname printed may contain
+If the @option{-L} option is supplied, the pathname printed may contain
 symbolic links.
 The return status is zero unless an error is encountered while
 determining the name of the current directory or an invalid option
@@ -2629,16 +2648,16 @@ readonly [-apf] [@var{name}] @dots{}
 @end example
 Mark each @var{name} as readonly.
 The values of these names may not be changed by subsequent assignment.
-If the @samp{-f} option is supplied, each @var{name} refers to a shell
+If the @option{-f} option is supplied, each @var{name} refers to a shell
 function.
-The @samp{-a} option means each @var{name} refers to an array variable.
-If no @var{name} arguments are given, or if the @samp{-p}
+The @option{-a} option means each @var{name} refers to an array variable.
+If no @var{name} arguments are given, or if the @option{-p}
 option is supplied, a list of all readonly names is printed.
-The @samp{-p} option causes output to be displayed in a format that
+The @option{-p} option causes output to be displayed in a format that
 may be reused as input.
 The return status is zero unless an invalid option is supplied, one of
 the @var{name} arguments is not a valid shell variable or function name,
-or the @samp{-f} option is supplied with a name that is not a shell function.
+or the @option{-f} option is supplied with a name that is not a shell function.
 
 @item return
 @btindex return
@@ -2764,10 +2783,10 @@ equal to @samp{-}, all specified signals are reset to the values
 they had when the shell was started.
 If @var{arg} is the null string, then the signal specified by
 each @var{sigspec} is ignored by the shell and commands it invokes.
-If @var{arg} is not present and @samp{-p} has been supplied,
+If @var{arg} is not present and @option{-p} has been supplied,
 the shell displays the trap commands associated with each @var{sigspec}.
 If no arguments are supplied, or
-only @samp{-p} is given, @code{trap} prints the list of commands
+only @option{-p} is given, @code{trap} prints the list of commands
 associated with each signal number in a form that may be reused as
 shell input.
 Each @var{sigspec} is either a signal name such as @code{SIGINT} (with
@@ -2776,7 +2795,7 @@ If a @var{sigspec}
 is @code{0} or @code{EXIT}, @var{arg} is executed when the shell exits.
 If a @var{sigspec} is @code{DEBUG}, the command @var{arg} is executed
 after every simple command.
-The @samp{-l} option causes the shell to print a list of signal names
+The @option{-l} option causes the shell to print a list of signal names
 and their corresponding numbers.
 
 Signals ignored upon entry to the shell cannot be trapped or reset.
@@ -2795,10 +2814,10 @@ Set the shell process's file creation mask to @var{mode}.  If
 @var{mode} begins with a digit, it is interpreted as an octal number;
 if not, it is interpreted as a symbolic mode mask similar
 to that accepted by the @code{chmod} command.  If @var{mode} is
-omitted, the current value of the mask is printed.  If the @samp{-S}
+omitted, the current value of the mask is printed.  If the @option{-S}
 option is supplied without a @var{mode} argument, the mask is printed
 in a symbolic format.
-If the  @samp{-p} option is supplied, and @var{mode}
+If the  @option{-p} option is supplied, and @var{mode}
 is omitted, the output is in a form that may be reused as input.
 The return status is zero if the mode is successfully changed or if
 no @var{mode} argument is supplied, and non-zero otherwise.
@@ -2813,9 +2832,9 @@ results in permissions of @code{755}.
 unset [-fv] [@var{name}]
 @end example
 Each variable or function @var{name} is removed.
-If no options are supplied, or the @samp{-v} option is given, each
+If no options are supplied, or the @option{-v} option is given, each
 @var{name} refers to a shell variable. 
-If the @samp{-f} option is given, the @var{name}s refer to shell
+If the @option{-f} option is given, the @var{name}s refer to shell
 functions, and the function definition is removed.
 Readonly variables and functions may not be unset.
 The return status is zero unless a @var{name} does not exist or is
@@ -2837,7 +2856,7 @@ Some of these commands are specified in the @sc{posix} 1003.2 standard.
 alias [@code{-p}] [@var{name}[=@var{value}] @dots{}]
 @end example
 
-Without arguments or with the @samp{-p} option, @code{alias} prints
+Without arguments or with the @option{-p} option, @code{alias} prints
 the list of aliases on the standard output in a form that allows
 them to be reused as input.
 If arguments are supplied, an alias is defined for each @var{name}
@@ -2874,6 +2893,7 @@ names are
 @code{emacs-meta},
 @code{emacs-ctlx},
 @code{vi},
+@code{vi-move},
 @code{vi-command}, and
 @code{vi-insert}.
 @code{vi} is equivalent to @code{vi-command};
@@ -2946,20 +2966,20 @@ command [-pVv] @var{command} [@var{arguments} @dots{}]
 Runs @var{command} with @var{arguments} ignoring any shell function
 named @var{command}.
 Only shell builtin commands or commands found by searching the
-@code{PATH} are executed.
+@env{PATH} are executed.
 If there is a shell function named @code{ls}, running @samp{command ls}
 within the function will execute the external command @code{ls}
 instead of calling the function recursively.
-The @samp{-p} option means to use a default value for @code{$PATH}
+The @option{-p} option means to use a default value for @env{PATH}
 that is guaranteed to find all of the standard utilities.
 The return status in this case is 127 if @var{command} cannot be
 found or an error occurred, and the exit status of @var{command}
 otherwise.
 
-If either the @samp{-V} or @samp{-v} option is supplied, a
-description of @var{command} is printed.  The @samp{-v} option
+If either the @option{-V} or @option{-v} option is supplied, a
+description of @var{command} is printed.  The @option{-v} option
 causes a single word indicating the command or file name used to
-invoke @var{command} to be displayed; the @samp{-V} option produces
+invoke @var{command} to be displayed; the @option{-V} option produces
 a more verbose description.  In this case, the return status is
 zero if @var{command} is found, and non-zero if not.
 
@@ -2972,11 +2992,11 @@ declare [-afFrxi] [-p] [@var{name}[=@var{value}]]
 Declare variables and give them attributes.  If no @var{name}s
 are given, then display the values of variables instead. 
 
-The @samp{-p} option will display the attributes and values of each
-@var{name}.  When @samp{-p} is used, additional options are ignored.
-The @samp{-F} option inhibits the display of function definitions;
-only the function name and attributes are printed.  @samp{-F} implies
-@samp{-f}.  The following options can be used to restrict output
+The @option{-p} option will display the attributes and values of each
+@var{name}.  When @option{-p} is used, additional options are ignored.
+The @option{-F} option inhibits the display of function definitions;
+only the function name and attributes are printed.  @option{-F} implies
+@option{-f}.  The following options can be used to restrict output
 to variables with the specified attributes or to give variables
 attributes:
 
@@ -3013,7 +3033,7 @@ using the compound assignment syntax (@pxref{Arrays}),
 one of the @var{names} is not a valid shell variable name,
 an attempt is made to turn off readonly status for a readonly variable,
 an attempt is made to turn off array status for an array variable,
-or an attempt is made to display a non-existent function with @samp{-f}.
+or an attempt is made to display a non-existent function with @option{-f}.
 
 @item echo
 @btindex echo
@@ -3023,10 +3043,10 @@ echo [-neE] [@var{arg} @dots{}]
 Output the @var{arg}s, separated by spaces, terminated with a
 newline.
 The return status is always 0.
-If @samp{-n} is specified, the trailing newline is suppressed.
-If the @samp{-e} option is given, interpretation of the following
+If @option{-n} is specified, the trailing newline is suppressed.
+If the @option{-e} option is given, interpretation of the following
 backslash-escaped characters is enabled.
-The @samp{-E} option disables the interpretation of these escape characters,
+The @option{-E} option disables the interpretation of these escape characters,
 even on systems where they are interpreted by default.
 The @code{xpg_echo} shell option may be used to
 dynamically determine whether or not @code{echo} expands these
@@ -3070,24 +3090,24 @@ Enable and disable builtin shell commands.
 Disabling a builtin allows a disk command which has the same name
 as a shell builtin to be executed without specifying a full pathname,
 even though the shell normally searches for builtins before disk commands.
-If @samp{-n} is used, the @var{name}s become disabled.  Otherwise
+If @option{-n} is used, the @var{name}s become disabled.  Otherwise
 @var{name}s are enabled.  For example, to use the @code{test} binary
-found via @code{$PATH} instead of the shell builtin version, type
+found via @env{$PATH} instead of the shell builtin version, type
 @samp{enable -n test}.
 
-If the @samp{-p} option is supplied, or no @var{name} arguments appear,
+If the @option{-p} option is supplied, or no @var{name} arguments appear,
 a list of shell builtins is printed.  With no other arguments, the list
 consists of all enabled shell builtins.
-The @samp{-a} option means to list
+The @option{-a} option means to list
 each builtin with an indication of whether or not it is enabled. 
 
-The @samp{-f} option means to load the new builtin command @var{name}
+The @option{-f} option means to load the new builtin command @var{name}
 from shared object @var{filename}, on systems that support dynamic loading.
-The @samp{-d} option will delete a builtin loaded with @samp{-f}.
+The @option{-d} option will delete a builtin loaded with @option{-f}.
 
 If there are no options, a list of the shell builtins is displayed.
-The @samp{-s} option restricts @code{enable} to the @sc{posix} special
-builtins.  If @samp{-s} is used with @samp{-f}, the new builtin becomes
+The @option{-s} option restricts @code{enable} to the @sc{posix} special
+builtins.  If @option{-s} is used with @option{-f}, the new builtin becomes
 a special builtin (@pxref{Special Builtins}).
 
 The return status is zero unless a @var{name} is not a shell builtin
@@ -3102,7 +3122,7 @@ Display helpful information about builtin commands.
 If @var{pattern} is specified, @code{help} gives detailed help
 on all commands matching @var{pattern}, otherwise a list of
 the builtins is printed.
-The @samp{-s} option restricts the information displayed to a short
+The @option{-s} option restricts the information displayed to a short
 usage synopsis.
 The return status is zero unless no command matches @var{pattern}.
 
@@ -3173,12 +3193,12 @@ and so on, with leftover words and their intervening separators assigned
 to the last @var{name}.
 If there are fewer words read from the standard input than names,
 the remaining names are assigned empty values.
-The characters in the value of the @code{IFS} variable
+The characters in the value of the @env{IFS} variable
 are used to split the line into words.
 The backslash character @samp{\} may be used to remove any special
 meaning for the next character read and for line continuation.
 If no names are supplied, the line read is assigned to the
-variable @code{REPLY}.
+variable @env{REPLY}.
 The return code is zero, unless end-of-file is encountered or @code{read}
 times out.
 Options, if supplied, have the following meanings:
@@ -3230,9 +3250,9 @@ terminal or a pipe.
 shopt [-pqsu] [-o] [@var{optname} @dots{}]
 @end example
 Toggle the values of variables controlling optional shell behavior.
-With no options, or with the @samp{-p} option, a list of all settable
+With no options, or with the @option{-p} option, a list of all settable
 options is displayed, with an indication of whether or not each is set.
-The @samp{-p} option causes output to be displayed in a form that
+The @option{-p} option causes output to be displayed in a form that
 may be reused as input.
 Other options have the following meanings:
 
@@ -3246,17 +3266,17 @@ Disable (unset) each @var{optname}.
 @item -q
 Suppresses normal output; the return status
 indicates whether the @var{optname} is set or unset.
-If multiple @var{optname} arguments are given with @samp{-q},
+If multiple @var{optname} arguments are given with @option{-q},
 the return status is zero if all @var{optnames} are enabled;
 non-zero otherwise.
 
 @item -o
 Restricts the values of
-@var{optname} to be those defined for the @samp{-o} option to the
+@var{optname} to be those defined for the @option{-o} option to the
 @code{set} builtin (@pxref{The Set Builtin}).
 @end table
 
-If either @samp{-s} or @samp{-u}
+If either @option{-s} or @option{-u}
 is used with no @var{optname} arguments, the display is limited to
 those options which are set or unset, respectively.
 
@@ -3293,7 +3313,7 @@ longer exists, a normal path search is performed.
 @item checkwinsize
 If set, Bash checks the window size after each command
 and, if necessary, updates the values of    
-@code{LINES} and @code{COLUMNS}.
+@env{LINES} and @env{COLUMNS}.
 
 @item cmdhist
 If set, Bash
@@ -3322,7 +3342,7 @@ If set, the extended pattern matching features described above
 
 @item histappend
 If set, the history list is appended to the file named by the value
-of the @code{HISTFILE}
+of the @env{HISTFILE}
 variable when the shell exits, rather than overwriting the file.
 
 @item histreedit
@@ -3364,7 +3384,7 @@ accessed since the last time it was checked, the message
 
 @item no_empty_cmd_completion
 If set, and Readline is being used, Bash will not attempt to search
-the @code{PATH} for possible completions when completion is attempted
+the @env{PATH} for possible completions when completion is attempted
 on an empty line.
 
 @item nocaseglob
@@ -3398,7 +3418,7 @@ builtin prints an error message when the shift count exceeds the
 number of positional parameters.
 
 @item sourcepath
-If set, the @code{source} builtin uses the value of @code{PATH}
+If set, the @code{source} builtin uses the value of @env{PATH}
 to find the directory containing the file supplied as an argument.
 This option is enabled by default.
 
@@ -3429,7 +3449,7 @@ type [-atp] [@var{name} @dots{}]
 For each @var{name}, indicate how it would be interpreted if used as a
 command name.
 
-If the @samp{-t} option is used, @code{type} prints a single word
+If the @option{-t} option is used, @code{type} prints a single word
 which is one of @samp{alias}, @samp{function}, @samp{builtin},
 @samp{file} or @samp{keyword},
 if @var{name} is an alias, shell function, shell builtin,
@@ -3437,13 +3457,13 @@ disk file, or shell reserved word, respectively.
 If the @var{name} is not found, then nothing is printed, and
 @code{type} returns a failure status.
 
-If the @samp{-p} option is used, @code{type} either returns the name
-of the disk file that would be executed, or nothing if @samp{-t}
+If the @option{-p} option is used, @code{type} either returns the name
+of the disk file that would be executed, or nothing if @option{-t}
 would not return @samp{file}.
 
-If the @samp{-a} option is used, @code{type} returns all of the places
+If the @option{-a} option is used, @code{type} returns all of the places
 that contain an executable named @var{file}.
-This includes aliases and functions, if and only if the @samp{-p} option
+This includes aliases and functions, if and only if the @option{-p} option
 is not also used.
 
 The return status is zero if any of the @var{names} are found, non-zero
@@ -3513,12 +3533,12 @@ The maximum amount of virtual memory available to the process.
 
 If @var{limit} is given, it is the new value of the specified resource.
 Otherwise, the current value of the soft limit for the specified resource
-is printed, unless the @samp{-H} option is supplied.
-When setting new limits, if neither @samp{-H} nor @samp{-S} is supplied,
+is printed, unless the @option{-H} option is supplied.
+When setting new limits, if neither @option{-H} nor @option{-S} is supplied,
 both the hard and soft limits are set.
-If no option is given, then @samp{-f} is assumed.  Values are in 1024-byte
-increments, except for @samp{-t}, which is in seconds, @samp{-p},
-which is in units of 512-byte blocks, and @samp{-n} and @samp{-u}, which
+If no option is given, then @option{-f} is assumed.  Values are in 1024-byte
+increments, except for @option{-t}, which is in seconds, @option{-p},
+which is in units of 512-byte blocks, and @option{-n} and @option{-u}, which
 are unscaled values.
 
 The return status is zero unless an invalid option is supplied, a
@@ -3531,7 +3551,7 @@ non-numeric argument other than @code{unlimited} is supplied as a
 unalias [-a] [@var{name} @dots{} ]
 @end example
 
-Remove each @var{name} from the list of aliases.  If @samp{-a} is
+Remove each @var{name} from the list of aliases.  If @option{-a} is
 supplied, all aliases are removed.
 Aliases are described in @ref{Aliases}.
 
@@ -3558,7 +3578,8 @@ Options, if specified, have the following meanings:
 
 @table @code
 @item -a
-Mark variables which are modified or created for export.
+Mark variables and function which are modified or created for export
+to the environment of subsequent commands.
 
 @item -b
 Cause the status of terminated background jobs to be reported
@@ -3670,9 +3691,9 @@ Same as @code{-x}.
 
 @item -p
 Turn on privileged mode.
-In this mode, the @code{$BASH_ENV} and @code{$ENV} files are not
+In this mode, the @env{$BASH_ENV} and @env{$ENV} files are not
 processed, shell functions are not inherited from the environment,
-and the @code{SHELLOPTS} variable, if it appears in the environment,
+and the @env{SHELLOPTS} variable, if it appears in the environment,
 is ignored.
 If the shell is started with the effective user (group) id not equal to the
 real user (group) id, and the @code{-p} option is not supplied, these actions
@@ -3741,8 +3762,8 @@ unset.  Otherwise, the positional parameters are set to the
 
 @item -
 Signal the end of options, cause all remaining @var{arguments}
-to be assigned to the positional parameters.  The @samp{-x}
-and @samp{-v}  options are turned off.
+to be assigned to the positional parameters.  The @option{-x}
+and @option{-v}  options are turned off.
 If there are no arguments, the positional parameters remain unchanged.
 @end table
 
@@ -3823,7 +3844,7 @@ A list of characters that separate fields; used when the shell splits
 words as part of expansion.
 
 @item MAIL
-If this parameter is set to a filename and the @code{MAILPATH} variable
+If this parameter is set to a filename and the @env{MAILPATH} variable
 is not set, Bash informs the user of the arrival of mail in
 the specified file.
 
@@ -3849,7 +3870,7 @@ commands.
 @item PS1
 The primary prompt string.  The default value is @samp{\s-\v\$ }.
 @xref{Printing a Prompt}, for the complete list of escape
-sequences that are expanded before @code{PS1} is displayed.
+sequences that are expanded before @env{PS1} is displayed.
 
 @item PS2
 The secondary prompt string.  The default value is @samp{> }.
@@ -3902,7 +3923,7 @@ The build version.
 The release status (e.g., @var{beta1}).
 
 @item BASH_VERSINFO[5]
-The value of @code{MACHTYPE}.
+The value of @env{MACHTYPE}.
 
 @end table
 
@@ -3913,7 +3934,7 @@ This variable is available only in shell functions invoked by the
 programmable completion facilities (@pxref{Programmable Completion}).
 
 @item COMP_CWORD
-An index into @code{$@{COMP_WORDS@}} of the word containing the current
+An index into @env{$@{COMP_WORDS@}} of the word containing the current
 cursor position.
 This variable is available only in shell functions invoked by the
 programmable completion facilities (@pxref{Programmable Completion}).
@@ -3946,7 +3967,7 @@ Assigning to members of this array variable may be used to modify
 directories already in the stack, but the @code{pushd} and @code{popd}
 builtins must be used to add and remove directories.
 Assignment to this variable will not change the current directory.
-If @code{DIRSTACK} is unset, it loses its special properties, even if
+If @env{DIRSTACK} is unset, it loses its special properties, even if
 it is subsequently reset.
 
 @item EUID
@@ -3954,14 +3975,14 @@ The numeric effective user id of the current user.  This variable
 is readonly.
 
 @item FCEDIT
-The editor used as a default by the @samp{-e} option to the @code{fc}
+The editor used as a default by the @option{-e} option to the @code{fc}
 builtin command.
 
 @item FIGNORE
 A colon-separated list of suffixes to ignore when performing
 filename completion.
 A file name whose suffix matches one of the entries in 
-@code{FIGNORE}
+@env{FIGNORE}
 is excluded from the list of matched file names.  A sample
 value is @samp{.o:~}
 
@@ -3969,14 +3990,14 @@ value is @samp{.o:~}
 A colon-separated list of patterns defining the set of filenames to
 be ignored by filename expansion.
 If a filename matched by a filename expansion pattern also matches one
-of the patterns in @code{GLOBIGNORE}, it is removed from the list
+of the patterns in @env{GLOBIGNORE}, it is removed from the list
 of matches.
 
 @item GROUPS
 An array variable containing the list of groups of which the current    
 user is a member.
-Assignments to @code{GROUPS} have no effect and are silently discarded.
-If @code{GROUPS} is unset, it loses its special properties, even if it is
+Assignments to @env{GROUPS} have no effect and return an error status.
+If @env{GROUPS} is unset, it loses its special properties, even if it is
 subsequently reset.
 
 @item histchars
@@ -3995,14 +4016,14 @@ parser to treat the rest of the line as a comment.
 
 @item HISTCMD
 The history number, or index in the history list, of the current
-command.  If @code{HISTCMD} is unset, it loses its special properties,
+command.  If @env{HISTCMD} is unset, it loses its special properties,
 even if it is subsequently reset.
 
 @item FUNCNAME
 The name of any currently-executing shell function.      
 This variable exists only when a shell function is executing.
-Assignments to @code{FUNCNAME} have no effect and are silently discarded.
-If @code{FUNCNAME} is unset, it loses its special properties, even if
+Assignments to @env{FUNCNAME} have no effect and return an error status.
+If @env{FUNCNAME} is unset, it loses its special properties, even if
 it is subsequently reset.
 
 @item HISTCONTROL
@@ -4015,23 +4036,23 @@ Unset, or set to any other value than those above, means to save
 all lines on the history list. 
 The second and subsequent lines of a multi-line compound command are
 not tested, and are added to the history regardless of the value of
-@code{HISTCONTROL}.
+@env{HISTCONTROL}.
 
 @item HISTIGNORE
 A colon-separated list of patterns used to decide which command
 lines should be saved on the history list.  Each pattern is
 anchored at the beginning of the line and must match the complete
 line (no implicit @samp{*} is appended).  Each pattern is tested
-against the line after the checks specified by @code{HISTCONTROL}
+against the line after the checks specified by @env{HISTCONTROL}
 are applied.  In addition to the normal shell pattern matching
 characters, @samp{&} matches the previous history line.  @samp{&}
 may be escaped using a backslash; the backslash is removed
 before attempting a match. 
 The second and subsequent lines of a multi-line compound command are
 not tested, and are added to the history regardless of the value of
-@code{HISTIGNORE}.
+@env{HISTIGNORE}.
 
-@code{HISTIGNORE} subsumes the function of @code{HISTCONTROL}.  A
+@env{HISTIGNORE} subsumes the function of @env{HISTCONTROL}.  A
 pattern of @samp{&} is identical to @code{ignoredups}, and a
 pattern of @samp{[ ]*} is identical to @code{ignorespace}. 
 Combining these two patterns, separating them with a colon,
@@ -4061,9 +4082,9 @@ is running;
 the next time hostname completion is attempted after the
 value is changed, Bash adds the contents of the new file to the
 existing list.
-If @code{HOSTFILE} is set, but has no value, Bash attempts to read 
+If @env{HOSTFILE} is set, but has no value, Bash attempts to read 
 @file{/etc/hosts} to obtain the list of possible hostname completions.
-When @code{HOSTFILE} is unset, the hostname list is cleared.
+When @env{HOSTFILE} is unset, the hostname list is cleared.
 
 @item HOSTNAME
 The name of the current host.
@@ -4090,7 +4111,7 @@ Used to determine the locale category for any category not specifically
 selected with a variable starting with @code{LC_}.
 
 @item LC_ALL
-This variable overrides the value of @code{LANG} and any other
+This variable overrides the value of @env{LANG} and any other
 @code{LC_} variable specifying a locale category.
 
 @item LC_COLLATE
@@ -4112,6 +4133,16 @@ strings preceded by a @samp{$} (@pxref{Locale Translation}).
 @item LC_NUMERIC
 This variable determines the locale category used for number formatting.
 
+@item LINES
+Used by the @code{select} builtin command to determine the column length
+for printing selection lists.  Automatically set upon receipt of a
+@code{SIGWINCH}.
+
+@item COLUMNS
+Used by the @code{select} builtin command to determine the terminal width
+when printing selection lists.  Automatically set upon receipt of a
+@code{SIGWINCH}.
+
 @item LINENO
 The line number in the script or shell function currently executing.
 
@@ -4121,7 +4152,11 @@ is executing, in the standard @sc{gnu} @var{cpu-company-system} format.
 
 @item MAILCHECK
 How often (in seconds) that the shell should check for mail in the
-files specified in the @code{MAILPATH} or @code{MAIL} variables.
+files specified in the @env{MAILPATH} or @env{MAIL} variables.
+The default is 60 seconds.  When it is time to check
+for mail, the shell does so before displaying the primary prompt.
+If this variable is unset, or set to a value that is not a number
+greater than or equal to zero, the shell disables mail checking.
 
 @item OLDPWD
 The previous working directory as set by the @code{cd} builtin.
@@ -4145,7 +4180,7 @@ is readonly.
 
 @item PROMPT_COMMAND
 If set, the value is interpreted as a command to execute
-before the printing of each primary prompt (@code{$PS1}).
+before the printing of each primary prompt (@env{$PS1}).
 
 @item PS3
 The value of this variable is used as the prompt for the
@@ -4154,8 +4189,8 @@ The value of this variable is used as the prompt for the
 
 @item PS4
 The value is the prompt printed before the command line is echoed
-when the @samp{-x} option is set (@pxref{The Set Builtin}).
-The first character of @code{PS4} is replicated multiple times, as
+when the @option{-x} option is set (@pxref{The Set Builtin}).
+The first character of @env{PS4} is replicated multiple times, as
 necessary, to indicate multiple levels of indirection.
 The default is @samp{+ }.
 
@@ -4179,9 +4214,9 @@ since the assignment.
 
 @item SHELLOPTS
 A colon-separated list of enabled shell options.  Each word in
-the list is a valid argument for the @samp{-o} option to the
+the list is a valid argument for the @option{-o} option to the
 @code{set} builtin command (@pxref{The Set Builtin}).
-The options appearing in @code{SHELLOPTS} are those reported
+The options appearing in @env{SHELLOPTS} are those reported
 as @samp{on} by @samp{set -o}.
 If this variable is in the environment when Bash
 starts up, each shell option in the list will be enabled before
@@ -4291,18 +4326,26 @@ to be recognized.
 A list of all double-quoted strings preceded by @samp{$}
 is printed on the standard ouput
 in the @sc{gnu} @code{gettext} PO (portable object) file format.
-Equivalent to @samp{-D} except for the output format.
+Equivalent to @option{-D} except for the output format.
 
 @item --dump-strings
-Equivalent to @samp{-D}.
+Equivalent to @option{-D}.
 
 @item --help
 Display a usage message on standard output and exit sucessfully.
 
+@item --init-file @var{filename}
+@itemx --rcfile @var{filename}
+Execute commands from @var{filename} (instead of @file{~/.bashrc})
+in an interactive shell.
+
 @item --login
-Make this shell act as if it were directly invoked by login.
-This is equivalent to @samp{exec -l bash} but can be issued from
-another shell, such as @code{csh}.  @samp{exec bash --login}
+Make this shell act as if it had been directly invoked by login.
+When the shell is interactive, this is equivalent to starting a
+login shell with @samp{exec -l bash}.
+When the shell is not interactive, the login shell startup files will
+be executed.
+@samp{exec bash --login}
 will replace the current shell with a Bash login shell.
 @xref{Bash Startup Files}, for a description of the special behavior
 of a login shell.
@@ -4329,15 +4372,11 @@ is intended to make Bash behave as a strict superset of that
 standard.  @xref{Bash POSIX Mode}, for a description of the Bash
 @sc{posix} mode.
 
-@item --rcfile @var{filename}
-Execute commands from @var{filename} (instead of @file{~/.bashrc})
-in an interactive shell.
-
 @item --restricted
 Make the shell a restricted shell (@pxref{The Restricted Shell}).
 
 @item --verbose
-Equivalent to @samp{-v}.  Print shell input lines as they're read.
+Equivalent to @option{-v}.  Print shell input lines as they're read.
 
 @item --version
 Show version information for this instance of
@@ -4373,7 +4412,7 @@ is printed on the standard ouput.
 These are the strings that
 are subject to language translation when the current locale
 is not @code{C} or @code{POSIX} (@pxref{Locale Translation}).
-This implies the @samp{-n} option; no commands will be executed.
+This implies the @option{-n} option; no commands will be executed.
 
 @item --
 A @code{--} signals the end of options and disables further option
@@ -4384,14 +4423,14 @@ Any arguments after the @code{--} are treated as filenames and arguments.
 
 @cindex interactive shell
 An @emph{interactive} shell is one started without non-option arguments,
-unless @samp{-s} is specified,
-without specifying the @samp{-c} option, and whose input and output are both
+unless @option{-s} is specified,
+without specifying the @option{-c} option, and whose input and output are both
 connected to terminals (as determined by @code{isatty(3)}), or one
-started with the @samp{-i} option.  @xref{Interactive Shells} for more
+started with the @option{-i} option.  @xref{Interactive Shells}, for more
 information.
 
 If arguments remain after option processing, and neither the
-@samp{-c} nor the @samp{-s}
+@option{-c} nor the @option{-s}
 option has been supplied, the first argument is assumed to
 be the name of a file containing shell commands (@pxref{Shell Scripts}).
 When Bash is invoked in this fashion, @code{$0}
@@ -4412,15 +4451,15 @@ Tilde Expansion (@pxref{Tilde Expansion}).
 
 Interactive shells are described in @ref{Interactive Shells}.
 
-@subsubheading Invoked as an interactive login shell, or with @samp{--login}
+@subsubheading Invoked as an interactive login shell, or with @option{--login}
 
 When Bash is invoked as an interactive login shell, or as a
-non-interactive shell with the @samp{--login} option, it first reads and
+non-interactive shell with the @option{--login} option, it first reads and
 executes commands from the file @file{/etc/profile}, if that file exists.
 After reading that file, it looks for @file{~/.bash_profile},
 @file{~/.bash_login}, and @file{~/.profile}, in that order, and reads
 and executes commands from the first one that exists and is readable.
-The @samp{--noprofile} option may be used when the shell is started to
+The @option{--noprofile} option may be used when the shell is started to
 inhibit this behavior.
 
 When a login shell exits, Bash reads and executes commands from
@@ -4430,8 +4469,8 @@ the file @file{~/.bash_logout}, if it exists.
 
 When an interactive shell that is not a login shell is started, Bash
 reads and executes commands from @file{~/.bashrc}, if that file exists.
-This may be inhibited by using the @samp{--norc} option.
-The @samp{--rcfile @var{file}} option will force Bash to read and
+This may be inhibited by using the @option{--norc} option.
+The @option{--rcfile @var{file}} option will force Bash to read and
 execute commands from @var{file} instead of @file{~/.bashrc}.
 
 So, typically, your @file{~/.bash_profile} contains the line
@@ -4444,7 +4483,7 @@ after (or before) any login-specific initializations.
 @subsubheading Invoked non-interactively
 
 When Bash is started non-interactively, to run a shell script,
-for example, it looks for the variable @code{BASH_ENV} in the environment,
+for example, it looks for the variable @env{BASH_ENV} in the environment,
 expands its value if it appears there, and uses the expanded value as
 the name of a file to read and execute.  Bash behaves as if the
 following command were executed:
@@ -4452,9 +4491,13 @@ following command were executed:
 @code{if [ -n "$BASH_ENV" ]; then . "$BASH_ENV"; fi}
 @end example
 @noindent
-but the value of the @code{PATH} variable is not used to search for the
+but the value of the @env{PATH} variable is not used to search for the
 file name.
 
+As noted above, if a non-interactive shell is invoked with the
+@option{--login} option, Bash attempts to read and execute commands from the
+login shell startup files. 
+
 @subsubheading Invoked with name @code{sh}
 
 If Bash is invoked with the name @code{sh}, it tries to mimic the
@@ -4462,15 +4505,15 @@ startup behavior of historical versions of @code{sh} as closely as
 possible, while conforming to the @sc{posix} standard as well.
 
 When invoked as an interactive login shell, or as a non-interactive
-shell with the @samp{--login} option, it first attempts to read
+shell with the @option{--login} option, it first attempts to read
 and execute commands from @file{/etc/profile} and @file{~/.profile}, in
 that order.
-The @samp{--noprofile} option may be used to inhibit this behavior.
+The @option{--noprofile} option may be used to inhibit this behavior.
 When invoked as an interactive shell with the name @code{sh}, Bash
-looks for the variable @code{ENV}, expands its value if it is defined,
+looks for the variable @env{ENV}, expands its value if it is defined,
 and uses the expanded value as the name of a file to read and execute.
 Since a shell invoked as @code{sh} does not attempt to read and execute
-commands from any other startup files, the @samp{--rcfile} option has
+commands from any other startup files, the @option{--rcfile} option has
 no effect.
 A non-interactive shell invoked with the name @code{sh} does not attempt
 to read any other startup files.
@@ -4481,9 +4524,9 @@ the startup files are read.
 @subsubheading Invoked in @sc{posix} mode
 
 When Bash is started in @sc{posix} mode, as with the
-@samp{--posix} command line option, it follows the @sc{posix} standard
+@option{--posix} command line option, it follows the @sc{posix} standard
 for startup files.
-In this mode, interactive shells expand the @code{ENV} variable
+In this mode, interactive shells expand the @env{ENV} variable
 and commands are read and executed from the file whose name is the
 expanded value.
 No other startup files are read.
@@ -4495,8 +4538,8 @@ daemon, usually @code{rshd}.  If Bash determines it is being run by
 rshd, it reads and executes commands from @file{~/.bashrc}, if that
 file exists and is readable.
 It will not do this if invoked as @code{sh}.
-The @samp{--norc} option may be used to inhibit this behavior, and the
-@samp{--rcfile} option may be used to force another file to be read, but
+The @option{--norc} option may be used to inhibit this behavior, and the
+@option{--rcfile} option may be used to force another file to be read, but
 @code{rshd} does not generally invoke the shell with those options or
 allow them to be specified.
 
@@ -4505,7 +4548,7 @@ allow them to be specified.
 If Bash is started with the effective user (group) id not equal to the
 real user (group) id, and the @code{-p} option is not supplied, no startup
 files are read, shell functions are not inherited from the environment,
-the @code{SHELLOPTS} variable, if it appears in the environment, is ignored,
+the @env{SHELLOPTS} variable, if it appears in the environment, is ignored,
 and the effective user id is set to the real user id.
 If the @code{-p} option is supplied at invocation, the startup behavior is
 the same, but the effective user id is not reset.
@@ -4525,16 +4568,16 @@ the same, but the effective user id is not reset.
 @subsection What is an Interactive Shell?
 
 An interactive shell
-is one started without non-option arguments, unless @samp{-s} is
-specified, without specifiying the @samp{-c} option, and
+is one started without non-option arguments, unless @option{-s} is
+specified, without specifiying the @option{-c} option, and
 whose input and output are both
 connected to terminals (as determined by @code{isatty(3)}),
-or one started with the @samp{-i} option.
+or one started with the @option{-i} option.
 
 An interactive shell generally reads from and writes to a user's
 terminal.
 
-The @samp{-s} invocation option may be used to set the positional parameters
+The @option{-s} invocation option may be used to set the positional parameters
 when an interactive shell is started.
 
 @node Is this Shell Interactive?
@@ -4553,7 +4596,7 @@ esac
 @end example
 
 Alternatively, startup scripts may examine the variable
-@code{$PS1}; it is unset in non-interactive shells, and set in
+@env{PS1}; it is unset in non-interactive shells, and set in
 interactive shells.  Thus:
 
 @example
@@ -4580,13 +4623,13 @@ control is in effect, Bash ignores the keyboard-generated job control
 signals @code{SIGTTIN}, @code{SIGTTOU}, and @code{SIGTSTP}.
 
 @item
-Bash expands and displays @code{$PS1} before reading the first line
-of a command, and expands and displays @code{$PS2} before reading the
+Bash expands and displays @env{PS1} before reading the first line
+of a command, and expands and displays @env{PS2} before reading the
 second and subsequent lines of a multi-line command.
 
 @item
-Bash executes the value of the @code{PROMPT_COMMAND} variable as a command
-before printing the primary prompt, @code{$PS1}
+Bash executes the value of the @env{PROMPT_COMMAND} variable as a command
+before printing the primary prompt, @env{$PS1}
 (@pxref{Bash Variables}).
 
 @item
@@ -4602,7 +4645,7 @@ standard input when reading a command (@pxref{The Set Builtin}).
 Command history (@pxref{Bash History Facilities})
 and history expansion (@pxref{History Interaction})
 are enabled by default.
-Bash will save the command history to the file named by @code{$HISTFILE}
+Bash will save the command history to the file named by @env{$HISTFILE}
 when an interactive shell exits.
 
 @item
@@ -4622,12 +4665,12 @@ An interactive login shell sends a @code{SIGHUP} to all jobs on exit
 if the @code{hupoxexit} shell option has been enabled (@pxref{Signals}).
 
 @item
-The @samp{-n} invocation option is ignored, and @samp{set -n} has
+The @option{-n} invocation option is ignored, and @samp{set -n} has
 no effect (@pxref{The Set Builtin}).
 
 @item
 Bash will check for mail periodically, depending on the values of the
-@code{MAIL}, @code{MAILPATH}, and @code{MAILCHECK} shell variables
+@env{MAIL}, @env{MAILPATH}, and @env{MAILCHECK} shell variables
 (@pxref{Bash Variables}).
 
 @item
@@ -4660,9 +4703,9 @@ builtin is enabled by default (see the description of the @code{cdspell}
 option to the @code{shopt} builtin in @ref{Bash Builtins}).
 
 @item
-The shell will check the value of the @code{TMOUT} variable and exit
+The shell will check the value of the @env{TMOUT} variable and exit
 if a command is not read within the specified number of seconds after
-printing @code{$PS1} (@pxref{Bash Variables}).
+printing @env{$PS1} (@pxref{Bash Variables}).
 
 @end enumerate
 
@@ -4759,7 +4802,7 @@ inode numbers.
 
 @item -o @var{optname}
 True if shell option @var{optname} is enabled.
-The list of options appears in the description of the @samp{-o}
+The list of options appears in the description of the @option{-o}
 option to the @code{set} builtin (@pxref{The Set Builtin}).
 
 @item -z @var{string}
@@ -5010,7 +5053,7 @@ of the array @var{name}.  These subscripts differ only when the word
 appears within double quotes.  If the word is double-quoted,
 @code{$@{name[*]@}} expands to a single word with
 the value of each array member separated by the first character of the
-@code{IFS} variable, and @code{$@{name[@@]@}} expands each element of
+@env{IFS} variable, and @code{$@{name[@@]@}} expands each element of
 @var{name} to a separate word.  When there are no array members,
 @code{$@{name[@@]@}} expands to nothing.  This is analogous to the
 expansion of the special parameters @samp{@@} and @samp{*}. 
@@ -5029,9 +5072,9 @@ entire array. A subscript of @samp{*} or @samp{@@} also removes the
 entire array.
 
 The @code{declare}, @code{local}, and @code{readonly}
-builtins each accept a @samp{-a}
+builtins each accept a @option{-a}
 option to specify an array.  The @code{read}
-builtin accepts a @samp{-a}
+builtin accepts a @option{-a}
 option to assign a list of words read from the standard input
 to an array, and can read values from the standard input into
 individual array elements.  The @code{set} and @code{declare}
@@ -5055,7 +5098,7 @@ the directory removed.  The @code{dirs} builtin displays the contents
 of the directory stack.
 
 The contents of the directory stack are also visible
-as the value of the @code{DIRSTACK} shell variable.
+as the value of the @env{DIRSTACK} shell variable.
 
 @node Directory Stack Builtins
 @subsection Directory Stack Builtins
@@ -5151,8 +5194,8 @@ executes the equivalent of `@code{cd} @var{dir}'.
 @section Controlling the Prompt
 @cindex prompting
 
-The value of the variable @code{PROMPT_COMMAND} is examined just before
-Bash prints each primary prompt.  If @code{PROMPT_COMMAND} is set and
+The value of the variable @env{PROMPT_COMMAND} is examined just before
+Bash prints each primary prompt.  If @env{PROMPT_COMMAND} is set and
 has a non-null value, then the
 value is executed just as if it had been typed on the command line.
 
@@ -5196,7 +5239,7 @@ The release of Bash, version + patchlevel (e.g., 2.00.0)
 @item \w
 The current working directory.
 @item \W
-The basename of @code{$PWD}.
+The basename of @env{$PWD}.
 @item \!
 The history number of this command.
 @item \#
@@ -5231,7 +5274,7 @@ expansion, and quote removal, subject to the value of the
 @cindex restricted shell
 
 If Bash is started with the name @code{rbash}, or the
-@samp{--restricted}
+@option{--restricted}
 option is supplied at invocation, the shell becomes restricted.
 A restricted shell is used to
 set up an environment more controlled than the standard shell.
@@ -5241,20 +5284,20 @@ with the exception that the following are disallowed:
 @item
 Changing directories with the @code{cd} builtin.
 @item
-Setting or unsetting the values of the @code{SHELL}, @code{PATH},
-@code{ENV}, or @code{BASH_ENV} variables.
+Setting or unsetting the values of the @env{SHELL}, @env{PATH},
+@env{ENV}, or @env{BASH_ENV} variables.
 @item
 Specifying command names containing slashes.
 @item
 Specifying a filename containing a slash as an argument to the @code{.}
 builtin command.
 @item
-Specifying a filename containing a slash as an argument to the @samp{-p}
+Specifying a filename containing a slash as an argument to the @option{-p}
 option to the @code{hash} builtin command.
 @item
 Importing function definitions from the shell environment at startup.
 @item
-Parsing the value of @code{SHELLOPTS} from the shell environment at startup.
+Parsing the value of @env{SHELLOPTS} from the shell environment at startup.
 @item
 Redirecting output using the @samp{>}, @samp{>|}, @samp{<>}, @samp{>&},
 @samp{&>}, and @samp{>>} redirection operators.
@@ -5262,9 +5305,9 @@ Redirecting output using the @samp{>}, @samp{>|}, @samp{<>}, @samp{>&},
 Using the @code{exec} builtin to replace the shell with another command.
 @item
 Adding or deleting builtin commands with the
-@samp{-f} and @samp{-d} options to the @code{enable} builtin.
+@option{-f} and @option{-d} options to the @code{enable} builtin.
 @item
-Specifying the @samp{-p} option to the @code{command} builtin.
+Specifying the @option{-p} option to the @code{command} builtin.
 @item
 Turning off restricted mode with @samp{set +r} or @samp{set +o restricted}.
 @end itemize
@@ -5273,7 +5316,7 @@ Turning off restricted mode with @samp{set +r} or @samp{set +o restricted}.
 @section Bash POSIX Mode
 @cindex POSIX Mode
 
-Starting Bash with the @samp{--posix} command-line option or executing
+Starting Bash with the @option{--posix} command-line option or executing
 @samp{set -o posix} while Bash is running will cause Bash to conform more
 closely to the @sc{posix} 1003.2 standard by changing the behavior to
 match that specified by @sc{posix} in areas where the Bash default differs.
@@ -5283,31 +5326,33 @@ The following list is what's changed when `@sc{posix} mode' is in effect:
 @enumerate
 @item
 When a command in the hash table no longer exists, Bash will re-search
-@code{$PATH} to find the new location.  This is also available with
+@env{$PATH} to find the new location.  This is also available with
 @samp{shopt -s checkhash}.
 
 @item
-The @samp{>&} redirection does not redirect stdout and stderr.
+The message printed by the job control code and builtins when a job
+exits with a non-zero status is `Done(status)'.
 
 @item
 The message printed by the job control code and builtins when a job
-exits with a non-zero status is `Done(status)'.
+is stopped is `Stopped(@var{signame})', where @var{signame} is, for
+example, @code{SIGTSTP}.
 
 @item
 Reserved words may not be aliased.
 
 @item
-The @sc{posix} 1003.2 @code{PS1} and @code{PS2} expansions of @samp{!} to
+The @sc{posix} 1003.2 @env{PS1} and @env{PS2} expansions of @samp{!} to
 the history number and @samp{!!} to @samp{!} are enabled,
-and parameter expansion is performed on the values of @code{PS1} and
-@code{PS2} regardless of the setting of the @code{promptvars} option.
+and parameter expansion is performed on the values of @env{PS1} and
+@env{PS2} regardless of the setting of the @code{promptvars} option.
 
 @item
 Interactive comments are enabled by default.  (Bash has them on by
 default anyway.)
 
 @item
-The @sc{posix} 1003.2 startup files are executed (@code{$ENV}) rather than
+The @sc{posix} 1003.2 startup files are executed (@env{$ENV}) rather than
 the normal Bash files.
 
 @item
@@ -5316,7 +5361,7 @@ name, rather than on all assignment statements on the line.
 
 @item
 The default history file is @file{~/.sh_history} (this is the
-default value of @code{$HISTFILE}).
+default value of @env{$HISTFILE}).
 
 @item
 The output of @samp{kill -l} prints all the signal names on a single line,
@@ -5357,15 +5402,15 @@ the command name, and so on.
 
 @item
 If the @code{cd} builtin finds a directory to change to
-using @code{$CDPATH}, the
-value it assigns to the @code{PWD} variable does not contain any
+using @env{$CDPATH}, the
+value it assigns to the @env{PWD} variable does not contain any
 symbolic links, as if @samp{cd -P} had been executed.
 
 @item
-If @code{$CDPATH} is set, the @code{cd} builtin will not implicitly
+If @env{CDPATH} is set, the @code{cd} builtin will not implicitly
 append the current directory to it.  This means that @code{cd} will
 fail if no valid directory name can be constructed from
-any of the entries in @code{$CDPATH}, even if the a directory with
+any of the entries in @env{$CDPATH}, even if the a directory with
 the same name as the name given as an argument to @code{cd} exists
 in the current directory.
 
@@ -5388,10 +5433,35 @@ Process substitution is not available.
 Assignment statements preceding @sc{posix} 1003.2 special builtins
 persist in the shell environment after the builtin completes.
 
+@item
+Assignment statements preceding shell function calls persist in the
+shell environment after the function returns, as if a @sc{posix}
+special builtin command had been executed.
+
 @item
 The @code{export} and @code{readonly} builtin commands display their
 output in the format required by @sc{posix} 1003.2.
 
+@item
+The @code{trap} builtin displays signal names without the leading
+@code{SIG}.
+
+@item
+The @code{.} and @code{source} builtins do not search the current directory
+for the filename argument if it is not found by searching @env{PATH}.
+
+@item
+Subshells spawned to execute command substitutions inherit the value of
+the @option{-e} option from the parent shell.  When not in @sc{posix} mode,
+Bash clears the @option{-e} option in such subshells.
+
+@item
+Alias expansion is always enabled, even in non-interactive shells.
+
+@item
+When the @code{set} builtin is invoked without options, it does not display
+shell function names and definitions.
+
 @end enumerate
 
 There is other @sc{posix} 1003.2 behavior that Bash does not implement.
@@ -5401,6 +5471,18 @@ Specifically:
 @item
 Assignment statements affect the execution environment of all
 builtins, not just special ones.
+
+@item
+When a subshell is created to execute a shell script with execute permission,
+but without a leading @samp{#!}, Bash sets @code{$0} to the full pathname of
+the script as found by searching @code{$PATH}, rather than the command as
+typed by the user.
+
+@item
+When using @samp{.} to source a shell script found in @code{$PATH}, bash
+checks execute permission bits rather than read permission bits, just as
+if it were searching for a command.
+
 @end enumerate
 
 @node Job Control
@@ -5504,7 +5586,7 @@ The shell learns immediately whenever a job changes state.
 Normally, Bash waits until it is about to print a prompt
 before reporting changes in a job's status so as to not interrupt
 any other output.  If the 
-the @samp{-b} option to the @code{set} builtin is enabled,
+the @option{-b} option to the @code{set} builtin is enabled,
 Bash reports such changes immediately (@pxref{The Set Builtin}).
 
 If an attempt to exit Bash is while jobs are stopped, the
@@ -5576,7 +5658,7 @@ output is restricted to information about that job.
 If @var{jobspec} is not supplied, the status of all jobs is
 listed.
 
-If the @samp{-x} option is supplied, @code{jobs} replaces any
+If the @option{-x} option is supplied, @code{jobs} replaces any
 @var{jobspec} found in @var{command} or @var{arguments} with the
 corresponding process group @sc{id}, and executes @var{command},
 passing it @var{argument}s, returning its exit status. 
@@ -5592,8 +5674,8 @@ named by job specification @var{jobspec} or process @sc{id} @var{pid}.
 @var{sigspec} is either a signal name such as @code{SIGINT} (with or without
 the @code{SIG} prefix) or a signal number; @var{signum} is a signal number.
 If @var{sigspec} and @var{signum} are not present, @code{SIGTERM} is used.
-The @samp{-l} option lists the signal names.
-If any arguments are supplied when @samp{-l} is given, the names of the
+The @option{-l} option lists the signal names.
+If any arguments are supplied when @option{-l} is given, the names of the
 signals corresponding to the arguments are listed, and the return status
 is zero.
 @var{exit_status} is a number specifying a signal number or the exit
@@ -5622,13 +5704,13 @@ disown [-ar] [-h] [@var{jobspec} @dots{}]
 @end example
 Without options, each @var{jobspec} is removed from the table of
 active jobs.
-If the @samp{-h} option is given, the job is not removed from the table,
+If the @option{-h} option is given, the job is not removed from the table,
 but is marked so that @code{SIGHUP} is not sent to the job if the shell
 receives a @code{SIGHUP}.
-If @var{jobspec} is not present, and neither the @samp{-a} nor @samp{-r}
+If @var{jobspec} is not present, and neither the @option{-a} nor @option{-r}
 option is supplied, the current job is used.
-If no @var{jobspec} is supplied, the @samp{-a} option means to remove or
-mark all jobs; the @samp{-r} option without a @var{jobspec}
+If no @var{jobspec} is supplied, the @option{-a} option means to remove or
+mark all jobs; the @option{-r} option without a @var{jobspec}
 argument restricts operation to running jobs.
 
 @item suspend
@@ -5637,7 +5719,7 @@ argument restricts operation to running jobs.
 suspend [-f]
 @end example
 Suspend the execution of this shell until it receives a
-@code{SIGCONT} signal.  The @samp{-f} option means to suspend
+@code{SIGCONT} signal.  The @option{-f} option means to suspend
 even if the shell is a login shell.
 
 @end table
@@ -5834,7 +5916,7 @@ supports the @code{VPATH} variable, such as GNU @code{make}.
 @code{cd} to the
 directory where you want the object files and executables to go and run
 the @code{configure} script from the source directory.  You may need to
-supply the @samp{--srcdir=PATH} argument to tell @code{configure} where the
+supply the @option{--srcdir=PATH} argument to tell @code{configure} where the
 source files are.  @code{configure} automatically checks for the
 source code in the directory that @code{configure} is in and in `..'.
 
@@ -5865,12 +5947,12 @@ directories for other architectures.
 By default, @samp{make install} will install into
 @file{/usr/local/bin}, @file{/usr/local/man}, etc.  You can
 specify an installation prefix other than @file{/usr/local} by
-giving @code{configure} the option @samp{--prefix=@var{PATH}}. 
+giving @code{configure} the option @option{--prefix=@var{PATH}}. 
 
 You can specify separate installation prefixes for
 architecture-specific files and architecture-independent files. 
 If you give @code{configure} the option
-@samp{--exec-prefix=@var{PATH}}, @samp{make install} will use
+@option{--exec-prefix=@var{PATH}}, @samp{make install} will use
 @var{PATH} as the prefix for installing programs and libraries.
 Documentation and other data files will still use the regular prefix. 
 
@@ -5881,7 +5963,7 @@ There may be some features @code{configure} can not figure out
 automatically, but needs to determine by the type of host Bash
 will run on.  Usually @code{configure} can figure that
 out, but if it prints a message saying it can not guess the host
-type, give it the @samp{--host=TYPE} option.  @samp{TYPE} can
+type, give it the @option{--host=TYPE} option.  @samp{TYPE} can
 either be a short name for the system type, such as @samp{sun4},
 or a canonical name with three fields: @samp{CPU-COMPANY-SYSTEM}
 (e.g., @samp{sparc-sun-sunos4.1.2}).
@@ -5939,16 +6021,16 @@ options.  @samp{configure --help} prints the complete list.
 @node Optional Features
 @section Optional Features
 
-The Bash @code{configure} has a number of @samp{--enable-@var{feature}}
+The Bash @code{configure} has a number of @option{--enable-@var{feature}}
 options, where @var{feature} indicates an optional part of Bash.
-There are also several @samp{--with-@var{package}} options,
+There are also several @option{--with-@var{package}} options,
 where @var{package} is something like @samp{bash-malloc} or @samp{purify}.
 To turn off the default use of a package, use
-@samp{--without-@var{package}}.  To configure Bash without a feature
-that is enabled by default, use @samp{--disable-@var{feature}}.
+@option{--without-@var{package}}.  To configure Bash without a feature
+that is enabled by default, use @option{--disable-@var{feature}}.
 
-Here is a complete list of the @samp{--enable-} and
-@samp{--with-} options that the Bash @code{configure} recognizes. 
+Here is a complete list of the @option{--enable-} and
+@option{--with-} options that the Bash @code{configure} recognizes. 
 
 @table @code
 @item --with-afs
@@ -5996,7 +6078,7 @@ This produces a shell with minimal features, close to the historical
 Bourne shell.
 @end table
 
-There are several @samp{--enable-} options that alter how Bash is
+There are several @option{--enable-} options that alter how Bash is
 compiled and linked, rather than changing run-time features.
 
 @table @code
@@ -6094,7 +6176,7 @@ the operating system provides the necessary support.
 
 @item --enable-prompt-string-decoding
 Turn on the interpretation of a number of backslash-escaped characters
-in the @code{$PS1}, @code{$PS2}, @code{$PS3}, and @code{$PS4} prompt
+in the @env{$PS1}, @env{$PS2}, @env{$PS3}, and @env{$PS4} prompt
 strings.  See @ref{Printing a Prompt}, for a complete list of prompt
 string escape sequences.
 
@@ -6121,7 +6203,7 @@ A synonym for @code{--enable-xpg-echo-default}.
 
 @item --enable-xpg-echo-default
 Make the @code{echo} builtin expand backslash-escaped characters by default,
-without requiring the @samp{-e} option.
+without requiring the @option{-e} option.
 This sets the default value of the @code{xpg_echo} shell option to @code{on},
 which makes the Bash @code{echo} behave more like the version specified in
 the Single Unix Specification, version 2.
@@ -6186,14 +6268,14 @@ differences between the traditional Bourne shell and Bash; this
 section quickly details the differences of significance.  A
 number of these differences are explained in greater depth in
 previous sections.
-This section uses the version of @code{sh} included SVR4.2 as
+This section uses the version of @code{sh} included in SVR4.2 as
 the baseline reference.
 
 @itemize @bullet
 
 @item
 Bash is @sc{posix}-conformant, even where the @sc{posix} specification
-differs from traditional @code{sh} behavior.
+differs from traditional @code{sh} behavior (@pxref{Bash POSIX Mode}).
 
 @item
 Bash has multi-character invocation options (@pxref{Invoking Bash}).
@@ -6229,7 +6311,7 @@ is supported (@pxref{ANSI-C Quoting}).
 @item
 Bash supports the @code{$"@dots{}"} quoting syntax to do
 locale-specific translation of the characters between the double
-quotes.  The @samp{-D}, @samp{--dump-strings}, and @samp{--dump-po-strings}
+quotes.  The @option{-D}, @option{--dump-strings}, and @option{--dump-po-strings}
 invocation options list the translatable strings found in a script
 (@pxref{Locale Translation}).
 
@@ -6241,7 +6323,7 @@ Very useful when an @code{if} statement needs to act only if a test fails.
 @item
 Bash has the @code{time} reserved word and command timing (@pxref{Pipelines}).
 The display of the timing statistics may be controlled with the
-@code{TIMEFORMAT} variable.
+@env{TIMEFORMAT} variable.
 
 @item
 Bash implements the @code{for (( @var{expr1} ; @var{expr2} ; @var{expr3} ))}
@@ -6319,14 +6401,14 @@ Bash has process substitution (@pxref{Process Substitution}).
 
 @item
 Bash automatically assigns variables that provide information about the
-current user (@code{UID}, @code{EUID}, and @code{GROUPS}), the current host
-(@code{HOSTTYPE}, @code{OSTYPE}, @code{MACHTYPE}, and @code{HOSTNAME}),
-and the instance of Bash that is running (@code{BASH},
-@code{BASH_VERSION}, and @code{BASH_VERSINFO}).  @xref{Bash Variables},
+current user (@env{UID}, @env{EUID}, and @env{GROUPS}), the current host
+(@env{HOSTTYPE}, @env{OSTYPE}, @env{MACHTYPE}, and @env{HOSTNAME}),
+and the instance of Bash that is running (@env{BASH},
+@env{BASH_VERSION}, and @env{BASH_VERSINFO}).  @xref{Bash Variables},
 for details.
 
 @item
-The @code{IFS} variable is used to split only the results of expansion,
+The @env{IFS} variable is used to split only the results of expansion,
 not all words (@pxref{Word Splitting}).
 This closes a longstanding shell security hole.
 
@@ -6380,7 +6462,7 @@ The @samp{>|} redirection operator may be used to override @code{noclobber}.
 
 @item
 The Bash @code{cd} and @code{pwd} builtins (@pxref{Bourne Shell Builtins})
-each take @samp{-L} and @samp{-P} builtins to switch between logical and
+each take @option{-L} and @option{-P} options to switch between logical and
 physical modes.
 
 @item
@@ -6408,16 +6490,16 @@ using @code{export -f} (@pxref{Shell Functions}).
 
 @item
 The Bash @code{export}, @code{readonly}, and @code{declare} builtins can
-take a @samp{-f} option to act on shell functions, a @samp{-p} option to
+take a @option{-f} option to act on shell functions, a @option{-p} option to
 display variables with various attributes set in a format that can be
-used as shell input, a @samp{-n} option to remove various variable
+used as shell input, a @option{-n} option to remove various variable
 attributes, and @samp{name=value} arguments to set variable attributes
 and values simultaneously.
 
 @item
 The Bash @code{hash} builtin allows a name to be associated with
 an arbitrary filename, even when that filename cannot be found by
-searching the @code{$PATH}, using @samp{hash -p}
+searching the @env{$PATH}, using @samp{hash -p}
 (@pxref{Bourne Shell Builtins}).
 
 @item
@@ -6431,17 +6513,17 @@ The @code{printf} builtin is available to display formatted output
 @item
 The Bash @code{read} builtin (@pxref{Bash Builtins})
 will read a line ending in @samp{\} with
-the @samp{-r} option, and will use the @code{REPLY} variable as a
+the @option{-r} option, and will use the @env{REPLY} variable as a
 default if no non-option arguments are supplied.
 The Bash @code{read} builtin
-also accepts a prompt string with the @samp{-p} option and will use
-Readline to obtain the line when given the @samp{-e} option.
+also accepts a prompt string with the @option{-p} option and will use
+Readline to obtain the line when given the @option{-e} option.
 The @code{read} builtin also has additional options to control input:
-the @samp{-s} option will turn off echoing of input characters as
-they are read, the @samp{-t} option will allow @code{read} to time out
+the @option{-s} option will turn off echoing of input characters as
+they are read, the @option{-t} option will allow @code{read} to time out
 if input does not arrive within a specified number of seconds, the
-@samp{-n} option will allow reading only a specified number of
-characters rather than a full line, and the @samp{-d} option will read
+@option{-n} option will allow reading only a specified number of
+characters rather than a full line, and the @option{-d} option will read
 until a particular character rather than newline.
 
 @item
@@ -6474,7 +6556,7 @@ The Bash @code{type} builtin is more extensive and gives more information
 about the names it finds (@pxref{Bash Builtins}).
 
 @item
-The Bash @code{umask} builtin permits a @samp{-p} option to cause
+The Bash @code{umask} builtin permits a @option{-p} option to cause
 the output to be displayed in the form of a @code{umask} command
 that may be reused as input (@pxref{Bourne Shell Builtins}).
 
@@ -6483,7 +6565,7 @@ Bash implements a @code{csh}-like directory stack, and provides the
 @code{pushd}, @code{popd}, and @code{dirs} builtins to manipulate it
 (@pxref{The Directory Stack}).
 Bash also makes the directory stack visible as the value of the
-@code{DIRSTACK} shell variable.
+@env{DIRSTACK} shell variable.
 
 @item
 Bash interprets special backslash-escaped characters in the prompt
@@ -6507,11 +6589,11 @@ The SVR4.2 shell has two privilege-related builtins
 Bash does not have the @code{stop} or @code{newgrp} builtins.
 
 @item
-Bash does not use the @code{SHACCT} variable or perform shell accounting.
+Bash does not use the @env{SHACCT} variable or perform shell accounting.
 
 @item
-The SVR4.2 @code{sh} uses a @code{TIMEOUT} variable like Bash uses
-@code{TMOUT}.
+The SVR4.2 @code{sh} uses a @env{TIMEOUT} variable like Bash uses
+@env{TMOUT}.
 
 @end itemize
 
@@ -6544,7 +6626,7 @@ function call), it misbehaves badly.
 
 @item
 In a questionable attempt at security, the SVR4.2 shell,
-when invoked without the @samp{-p} option, will alter its real
+when invoked without the @option{-p} option, will alter its real
 and effective @sc{uid} and @sc{gid} if they are less than some
 magic threshold value, commonly 100.
 This can lead to unexpected results.
@@ -6554,8 +6636,8 @@ The SVR4.2 shell does not allow users to trap @code{SIGSEGV},
 @code{SIGALRM}, or @code{SIGCHLD}.
 
 @item
-The SVR4.2 shell does not allow the @code{IFS}, @code{MAILCHECK},
-@code{PATH}, @code{PS1}, or @code{PS2} variables to be unset.
+The SVR4.2 shell does not allow the @env{IFS}, @env{MAILCHECK},
+@env{PATH}, @env{PS1}, or @env{PS2} variables to be unset.
 
 @item
 The SVR4.2 shell treats @samp{^} as the undocumented equivalent of
diff --git a/doc/readline.3 b/doc/readline.3
deleted file mode 100644 (file)
index c1ed9cf..0000000
+++ /dev/null
@@ -1,1205 +0,0 @@
-.\"
-.\" MAN PAGE COMMENTS to
-.\"
-.\"    Chet Ramey
-.\"    Information Network Services
-.\"    Case Western Reserve University
-.\"    chet@ins.CWRU.Edu
-.\"
-.\"    Last Change: Tue Jun  1 13:28:03 EDT 1999
-.\"
-.TH READLINE 3 "1999 Jun 1" GNU
-.\"
-.\" File Name macro.  This used to be `.PN', for Path Name,
-.\" but Sun doesn't seem to like that very much.
-.\"
-.de FN
-\fI\|\\$1\|\fP
-..
-.SH NAME
-readline \- get a line from a user with editing
-.SH SYNOPSIS
-.LP
-.nf
-.ft B
-#include <stdio.h>
-#include <readline.h>
-#include <history.h>
-.ft
-.fi
-.LP
-.nf
-.ft B
-char *readline (prompt)
-char *prompt;
-.ft
-.fi
-.SH COPYRIGHT
-.if n Readline is Copyright (C) 1989, 1991, 1993, 1995, 1996 by the Free Software Foundation, Inc.
-.if t Readline is Copyright \(co 1989, 1991, 1993, 1995, 1996 by the Free Software Foundation, Inc.
-.SH DESCRIPTION
-.LP
-.B readline
-will read a line from the terminal
-and return it, using
-.B prompt
-as a prompt.  If 
-.B prompt
-is null, no prompt is issued.  The line returned is allocated with
-.IR malloc (3),
-so the caller must free it when finished.  The line returned
-has the final newline removed, so only the text of the line
-remains.
-.LP
-.B readline
-offers editing capabilities while the user is entering the
-line.
-By default, the line editing commands
-are similar to those of emacs.
-A vi\-style line editing interface is also available.
-.SH RETURN VALUE
-.LP
-.B readline
-returns the text of the line read.  A blank line
-returns the empty string.  If
-.B EOF
-is encountered while reading a line, and the line is empty,
-.B NULL
-is returned.  If an
-.B EOF
-is read with a non\-empty line, it is
-treated as a newline.
-.SH NOTATION
-.LP
-An emacs-style notation is used to denote
-keystrokes.  Control keys are denoted by C\-\fIkey\fR, e.g., C\-n
-means Control\-N.  Similarly, 
-.I meta
-keys are denoted by M\-\fIkey\fR, so M\-x means Meta\-X.  (On keyboards
-without a 
-.I meta
-key, M\-\fIx\fP means ESC \fIx\fP, i.e., press the Escape key
-then the
-.I x
-key.  This makes ESC the \fImeta prefix\fP.
-The combination M\-C\-\fIx\fP means ESC\-Control\-\fIx\fP,
-or press the Escape key
-then hold the Control key while pressing the
-.I x
-key.)
-.PP
-Readline commands may be given numeric
-.IR arguments ,
-which normally act as a repeat count.  Sometimes, however, it is the
-sign of the argument that is significant.  Passing a negative argument
-to a command that acts in the forward direction (e.g., \fBkill\-line\fP)
-causes that command to act in a backward direction.  Commands whose
-behavior with arguments deviates from this are noted.
-.PP
-When a command is described as \fIkilling\fP text, the text
-deleted is saved for possible future retrieval
-(\fIyanking\fP).  The killed text is saved in a
-\fIkill ring\fP.  Consecutive kills cause the text to be
-accumulated into one unit, which can be yanked all at once. 
-Commands which do not kill text separate the chunks of text
-on the kill ring.
-.SH INITIALIZATION FILE
-.LP
-Readline is customized by putting commands in an initialization
-file (the \fIinputrc\fP file).
-The name of this file is taken from the value of the
-.B INPUTRC
-environment variable.  If that variable is unset, the default is
-.IR ~/.inputrc .
-When a program which uses the readline library starts up, the
-init file is read, and the key bindings and variables are set.
-There are only a few basic constructs allowed in the
-readline init file.  Blank lines are ignored.
-Lines beginning with a \fB#\fP are comments.
-Lines beginning with a \fB$\fP indicate conditional constructs.
-Other lines denote key bindings and variable settings.
-Each program using this library may add its own commands
-and bindings.
-.PP
-For example, placing
-.RS
-.PP
-M\-Control\-u: universal\-argument
-.RE
-or
-.RS
-C\-Meta\-u: universal\-argument
-.RE
-into the 
-.I inputrc
-would make M\-C\-u execute the readline command
-.IR universal\-argument .
-.PP
-The following symbolic character names are recognized while
-processing key bindings:
-.IR RUBOUT ,
-.IR DEL ,
-.IR ESC ,
-.IR LFD ,
-.IR NEWLINE ,
-.IR RET ,
-.IR RETURN ,
-.IR SPC ,
-.IR SPACE ,
-and
-.IR TAB .
-.PP
-In addition to command names, readline allows keys to be bound
-to a string that is inserted when the key is pressed (a \fImacro\fP).
-.PP
-.SS Key Bindings
-.PP
-The syntax for controlling key bindings in the
-.I inputrc
-file is simple.  All that is required is the name of the
-command or the text of a macro and a key sequence to which
-it should be bound. The name may be specified in one of two ways:
-as a symbolic key name, possibly with \fIMeta\-\fP or \fIControl\-\fP
-prefixes, or as a key sequence.
-When using the form \fBkeyname\fP:\^\fIfunction-name\fP or \fImacro\fP,
-.I keyname
-is the name of a key spelled out in English.  For example:
-.sp
-.RS
-Control\-u: universal\-argument
-.br
-Meta\-Rubout: backward\-kill\-word
-.br
-Control\-o: ">&output"
-.RE
-.LP
-In the above example,
-.I C\-u
-is bound to the function
-.BR universal\-argument ,
-.I M-DEL
-is bound to the function
-.BR backward\-kill\-word ,
-and
-.I C\-o
-is bound to run the macro
-expressed on the right hand side (that is, to insert the text
-.I >&output
-into the line).
-.PP
-In the second form, \fB"keyseq"\fP:\^\fIfunction\-name\fP or \fImacro\fP,
-.B keyseq
-differs from
-.B keyname
-above in that strings denoting
-an entire key sequence may be specified by placing the sequence
-within double quotes.  Some GNU Emacs style key escapes can be
-used, as in the following example.
-.sp
-.RS
-"\eC\-u": universal\-argument
-.br
-"\eC\-x\eC\-r": re\-read\-init\-file
-.br
-"\ee[11~": "Function Key 1"
-.RE
-.PP
-In this example,
-.I C-u
-is again bound to the function
-.BR universal\-argument .
-.I "C-x C-r"
-is bound to the function
-.BR re\-read\-init\-file ,
-and 
-.I "ESC [ 1 1 ~"
-is bound to insert the text
-.BR "Function Key 1" .
-The full set of GNU Emacs style escape sequences is
-.RS
-.PD 0
-.TP
-.B \eC\-
-control prefix
-.TP
-.B \eM\-
-meta prefix
-.TP
-.B \ee
-an escape character
-.TP
-.B \e\e
-backslash
-.TP
-.B \e"
-literal "
-.TP
-.B \e'
-literal '
-.RE
-.PD
-.PP
-In addition to the GNU Emacs style escape sequences, a second
-set of backslash escapes is available:
-.RS
-.PD 0
-.TP
-.B \ea
-alert (bell)
-.TP
-.B \eb
-backspace
-.TP
-.B \ed
-delete
-.TP
-.B \ef
-form feed
-.TP
-.B \en
-newline
-.TP
-.B \er
-carriage return
-.TP
-.B \et
-horizontal tab
-.TP
-.B \ev
-vertical tab
-.TP
-.B \e\fInnn\fP
-the character whose ASCII code is the octal value \fInnn\fP
-(one to three digits)
-.TP
-.B \ex\fInnn\fP
-the character whose ASCII code is the hexadecimal value \fInnn\fP
-(one to three digits)
-.RE
-.PD
-.PP
-When entering the text of a macro, single or double quotes should
-be used to indicate a macro definition.  Unquoted text
-is assumed to be a function name.
-In the macro body, the backslash escapes described above are expanded.
-Backslash will quote any other character in the macro text,
-including " and '.
-.PP
-.B Bash
-allows the current readline key bindings to be displayed or modified
-with the
-.B bind
-builtin command.  The editing mode may be switched during interactive
-use by using the
-.B \-o
-option to the
-.B set
-builtin command.  Other programs using this library provide
-similar mechanisms.  The
-.I inputrc
-file may be edited and re-read if a program does not provide
-any other means to incorporate new bindings.
-.SS Variables
-.PP
-Readline has variables that can be used to further customize its
-behavior.  A variable may be set in the
-.I inputrc
-file with a statement of the form
-.RS
-.PP
-\fBset\fP \fIvariable\-name\fP \fIvalue\fP
-.RE
-.PP
-Except where noted, readline variables can take the values
-.B On
-or
-.BR Off .
-The variables and their default values are:
-.PP
-.PD 0
-.TP
-.B bell\-style (audible)
-Controls what happens when readline wants to ring the terminal bell.
-If set to \fBnone\fP, readline never rings the bell.  If set to
-\fBvisible\fP, readline uses a visible bell if one is available.
-If set to \fBaudible\fP, readline attempts to ring the terminal's bell.
-.TP
-.B comment\-begin (``#'')
-The string that is inserted in \fBvi\fP mode when the
-.B insert\-comment
-command is executed.
-This command is bound to
-.B M\-#
-in emacs mode and to
-.B #
-in vi command mode.
-.TP 
-.B completion\-ignore\-case (Off)
-If set to \fBOn\fP, readline performs filename matching and completion
-in a case\-insensitive fashion.
-.TP
-.B completion\-query\-items (100)
-This determines when the user is queried about viewing
-the number of possible completions
-generated by the \fBpossible\-completions\fP command.
-It may be set to any integer value greater than or equal to
-zero.  If the number of possible completions is greater than
-or equal to the value of this variable, the user is asked whether
-or not he wishes to view them; otherwise they are simply listed
-on the terminal.
-.TP
-.B convert\-meta (On)
-If set to \fBOn\fP, readline will convert characters with the
-eighth bit set to an ASCII key sequence
-by stripping the eighth bit and prepending an
-escape character (in effect, using escape as the \fImeta prefix\fP).
-.TP
-.B disable\-completion (Off)
-If set to \fBOn\fP, readline will inhibit word completion.  Completion 
-characters will be inserted into the line as if they had been
-mapped to \fBself-insert\fP.
-.TP
-.B editing\-mode (emacs)
-Controls whether readline begins with a set of key bindings similar
-to \fIemacs\fP or \fIvi\fP.
-.B editing\-mode
-can be set to either
-.B emacs
-or
-.BR vi .
-.TP
-.B enable\-keypad (Off)
-When set to \fBOn\fP, readline will try to enable the application
-keypad when it is called.  Some systems need this to enable the
-arrow keys.
-.TP
-.B expand\-tilde (Off)
-If set to \fBon\fP, tilde expansion is performed when readline
-attempts word completion.
-.TP
-.B horizontal\-scroll\-mode (Off)
-When set to \fBOn\fP, makes readline use a single line for display,
-scrolling the input horizontally on a single screen line when it
-becomes longer than the screen width rather than wrapping to a new line.
-.TP
-.B input\-meta (Off)
-If set to \fBOn\fP, readline will enable eight-bit input (that is,
-it will not strip the high bit from the characters it reads),
-regardless of what the terminal claims it can support.  The name
-.B meta\-flag
-is a synonym for this variable.
-.TP
-.B isearch\-terminators (``C\-[C\-J'')
-The string of characters that should terminate an incremental
-search without subsequently executing the character as a command.
-If this variable has not been given a value, the characters
-\fIESC\fP and \fIC\-J\fP will terminate an incremental search.
-.TP
-.B keymap (emacs)
-Set the current readline keymap.  The set of legal keymap names is
-\fIemacs, emacs-standard, emacs-meta, emacs-ctlx, vi, vi-move,
-vi-command\fP, and
-.IR vi-insert .
-\fIvi\fP is equivalent to \fIvi-command\fP; \fIemacs\fP is
-equivalent to \fIemacs-standard\fP.  The default value is
-.IR emacs ;
-the value of
-.B editing\-mode
-also affects the default keymap.
-.TP
-.B mark\-directories (On)
-If set to \fBOn\fP, complete<d directory names have a slash
-appended.
-.TP
-.B mark\-modified\-lines (Off)
-If set to \fBOn\fP, history lines that have been modified are displayed
-with a preceding asterisk (\fB*\fP).
-.TP
-.B output\-meta (Off)
-If set to \fBOn\fP, readline will display characters with the
-eighth bit set directly rather than as a meta-prefixed escape
-sequence.
-.TP
-.B print\-completions\-horizontally (Off)
-If set to \fBOn\fP, readline will display completions with matches
-sorted horizontally in alphabetical order, rather than down the screen.
-.TP
-.B show\-all\-if\-ambiguous (Off)
-This alters the default behavior of the completion functions.  If
-set to
-.BR on ,
-words which have more than one possible completion cause the
-matches to be listed immediately instead of ringing the bell.
-.TP
-.B visible\-stats (Off)
-If set to \fBOn\fP, a character denoting a file's type as reported  
-by \fBstat\fP(2) is appended to the filename when listing possible
-completions.
-.PD
-.SS Conditional Constructs
-.PP
-Readline implements a facility similar in spirit to the conditional
-compilation features of the C preprocessor which allows key
-bindings and variable settings to be performed as the result
-of tests.  There are four parser directives used.
-.IP \fB$if\fP
-The 
-.B $if
-construct allows bindings to be made based on the
-editing mode, the terminal being used, or the application using
-readline.  The text of the test extends to the end of the line;
-no characters are required to isolate it.
-.RS
-.IP \fBmode\fP
-The \fBmode=\fP form of the \fB$if\fP directive is used to test
-whether readline is in emacs or vi mode.
-This may be used in conjunction
-with the \fBset keymap\fP command, for instance, to set bindings in
-the \fIemacs-standard\fP and \fIemacs-ctlx\fP keymaps only if
-readline is starting out in emacs mode.
-.IP \fBterm\fP
-The \fBterm=\fP form may be used to include terminal-specific
-key bindings, perhaps to bind the key sequences output by the
-terminal's function keys.  The word on the right side of the
-.B =
-is tested against the full name of the terminal and the portion
-of the terminal name before the first \fB\-\fP.  This allows
-.I sun
-to match both
-.I sun
-and
-.IR sun\-cmd ,
-for instance.
-.IP \fBapplication\fP
-The \fBapplication\fP construct is used to include
-application-specific settings.  Each program using the readline
-library sets the \fIapplication name\fP, and an initialization
-file can test for a particular value.
-This could be used to bind key sequences to functions useful for
-a specific program.  For instance, the following command adds a
-key sequence that quotes the current or previous word in Bash:
-.sp 1
-.RS
-.nf
-\fB$if\fP bash
-# Quote the current or previous word
-"\eC-xq": "\eeb\e"\eef\e""
-\fB$endif\fP
-.fi
-.RE
-.RE
-.IP \fB$endif\fP
-This command, as seen in the previous example, terminates an
-\fB$if\fP command.
-.IP \fB$else\fP
-Commands in this branch of the \fB$if\fP directive are executed if
-the test fails.
-.IP \fB$include\fP
-This directive takes a single filename as an argument and reads commands
-and bindings from that file.  For example, the following directive
-would read \fI/etc/inputrc\fP:
-.sp 1
-.RS
-.nf
-\fB$include\fP \^ \fI/etc/inputrc\fP
-.fi 
-.RE
-.SH SEARCHING
-.PP
-Readline provides commands for searching through the command history
-for lines containing a specified string.
-There are two search modes:
-.I incremental
-and
-.IR non-incremental .
-.PP
-Incremental searches begin before the user has finished typing the
-search string.
-As each character of the search string is typed, readline displays
-the next entry from the history matching the string typed so far.
-An incremental search requires only as many characters as needed to
-find the desired history entry.
-The characters present in the value of the \fIisearch-terminators\fP
-variable are used to terminate an incremental search.
-If that variable has not been assigned a value the Escape and
-Control-J characters will terminate an incremental search.
-Control-G will abort an incremental search and restore the original
-line.
-When the search is terminated, the history entry containing the
-search string becomes the current line.
-To find other matching entries in the history list, type Control-S or
-Control-R as appropriate.
-This will search backward or forward in the history for the next
-line matching the search string typed so far.
-Any other key sequence bound to a readline command will terminate
-the search and execute that command.
-For instance, a \fInewline\fP will terminate the search and accept
-the line, thereby executing the command from the history list.
-.PP
-Non-incremental searches read the entire search string before starting
-to search for matching history lines.  The search string may be
-typed by the user or be part of the contents of the current line.
-.SH EDITING COMMANDS
-.PP
-The following is a list of the names of the commands and the default
-key sequences to which they are bound.
-Command names without an accompanying key sequence are unbound by default.
-.SS Commands for Moving
-.PP
-.PD 0
-.TP
-.B beginning\-of\-line (C\-a)
-Move to the start of the current line.
-.TP
-.B end\-of\-line (C\-e)
-Move to the end of the line.
-.TP
-.B forward\-char (C\-f)
-Move forward a character.
-.TP
-.B backward\-char (C\-b)
-Move back a character.
-.TP
-.B forward\-word (M\-f)
-Move forward to the end of the next word.  Words are composed of
-alphanumeric characters (letters and digits).
-.TP
-.B backward\-word (M\-b)
-Move back to the start of the current or previous word.  Words are
-composed of alphanumeric characters (letters and digits).
-.TP
-.B clear\-screen (C\-l)
-Clear the screen leaving the current line at the top of the screen.
-With an argument, refresh the current line without clearing the
-screen.
-.TP
-.B redraw\-current\-line
-Refresh the current line.
-.PD
-.SS Commands for Manipulating the History
-.PP
-.PD 0
-.TP
-.B accept\-line (Newline, Return)
-Accept the line regardless of where the cursor is.  If this line is
-non-empty, add it to the history list. If the line is a modified
-history line, then restore the history line to its original state.
-.TP
-.B previous\-history (C\-p)
-Fetch the previous command from the history list, moving back in
-the list.
-.TP
-.B next\-history (C\-n)
-Fetch the next command from the history list, moving forward in the
-list.
-.TP
-.B beginning\-of\-history (M\-<)
-Move to the first line in the history.
-.TP
-.B end\-of\-history (M\->)
-Move to the end of the input history, i.e., the line currently being
-entered.
-.TP
-.B reverse\-search\-history (C\-r)
-Search backward starting at the current line and moving `up' through
-the history as necessary.  This is an incremental search.
-.TP
-.B forward\-search\-history (C\-s)
-Search forward starting at the current line and moving `down' through
-the history as necessary.  This is an incremental search.
-.TP
-.B non\-incremental\-reverse\-search\-history (M\-p)
-Search backward through the history starting at the current line
-using a non-incremental search for a string supplied by the user.
-.TP
-.B non\-incremental\-forward\-search\-history (M\-n)
-Search forward through the history using a non-incremental search
-for a string supplied by the user.
-.TP
-.B history\-search\-forward
-Search forward through the history for the string of characters
-between the start of the current line and the current cursor
-position (the \fIpoint\fP).
-This is a non-incremental search.
-.TP
-.B history\-search\-backward
-Search backward through the history for the string of characters
-between the start of the current line and the point.
-This is a non-incremental search.
-.TP
-.B yank\-nth\-arg (M\-C\-y)
-Insert the first argument to the previous command (usually
-the second word on the previous line) at point (the current
-cursor position).  With an argument
-.IR n ,
-insert the \fIn\fPth word from the previous command (the words
-in the previous command begin with word 0).  A negative argument
-inserts the \fIn\fPth word from the end of the previous command.
-.TP
-.B
-yank\-last\-arg (M\-.\^, M\-_\^)
-Insert the last argument to the previous command (the last word of
-the previous history entry).  With an argument,
-behave exactly like \fByank\-nth\-arg\fP.
-Successive calls to \fByank\-last\-arg\fP move back through the history
-list, inserting the last argument of each line in turn.
-.PD
-.SS Commands for Changing Text
-.PP
-.PD 0
-.TP
-.B delete\-char (C\-d)
-Delete the character under the cursor.  If point is at the
-beginning of the line, there are no characters in the line, and
-the last character typed was not bound to \fBBdelete\-char\fP, then return
-.SM
-.BR EOF .
-.TP
-.B backward\-delete\-char (Rubout)
-Delete the character behind the cursor.  When given a numeric argument,
-save the deleted text on the kill ring.
-.TP
-.B forward\-backward\-delete\-char   
-Delete the character under the cursor, unless the cursor is at the
-end of the line, in which case the character behind the cursor is
-deleted.  By default, this is not bound to a key.
-.TP
-.B quoted\-insert (C\-q, C\-v)
-Add the next character that you type to the line verbatim.  This is
-how to insert characters like \fBC\-q\fP, for example.
-.TP
-.B tab\-insert (M-TAB)
-Insert a tab character.
-.TP
-.B self\-insert (a,\ b,\ A,\ 1,\ !,\ ...)
-Insert the character typed.
-.TP
-.B transpose\-chars (C\-t)
-Drag the character before point forward over the character at point.
-Point moves forward as well.  If point is at the end of the line, then
-transpose the two characters before point.  Negative arguments don't work.
-.TP
-.B transpose\-words (M\-t)
-Drag the word behind the cursor past the word in front of the cursor
-moving the cursor over that word as well.
-.TP
-.B upcase\-word (M\-u)
-Uppercase the current (or following) word.  With a negative argument,
-uppercase the previous word, but do not move point.
-.TP
-.B downcase\-word (M\-l)
-Lowercase the current (or following) word.  With a negative argument,
-lowercase the previous word, but do not move point.
-.TP
-.B capitalize\-word (M\-c)
-Capitalize the current (or following) word.  With a negative argument,
-capitalize the previous word, but do not move point.
-.PD
-.SS Killing and Yanking
-.PP
-.PD 0
-.TP
-.B kill\-line (C\-k)
-Kill the text from the current cursor position to the end of the line.
-.TP
-.B backward\-kill\-line (C\-x Rubout)
-Kill backward to the beginning of the line.
-.TP
-.B unix\-line\-discard (C\-u)
-Kill backward from point to the beginning of the line.
-The killed text is saved on the kill-ring.
-.\" There is no real difference between this and backward-kill-line
-.TP
-.B kill\-whole\-line
-Kill all characters on the current line, no matter where the
-cursor is.
-.TP
-.B kill\-word  (M\-d)
-Kill from the cursor to the end of the current word, or if between
-words, to the end of the next word.  Word boundaries are the same as
-those used by \fBforward\-word\fP.
-.TP
-.B backward\-kill\-word (M\-Rubout)
-Kill the word behind the cursor.  Word boundaries are the same as
-those used by \fBbackward\-word\fP.
-.TP
-.B unix\-word\-rubout (C\-w)
-Kill the word behind the cursor, using white space as a word boundary.
-The word boundaries are different from
-.BR backward\-kill\-word .
-.TP
-.B delete\-horizontal\-space (M\-\e)
-Delete all spaces and tabs around point.
-.TP
-.B kill\-region
-Kill the text between the point and \fImark\fP (saved cursor position).
-This text is referred to as the \fIregion\fP.
-.TP
-.B copy\-region\-as\-kill
-Copy the text in the region to the kill buffer.
-.TP
-.B copy\-backward\-word
-Copy the word before point to the kill buffer.
-The word boundaries are the same as \fBbackward\-word\fP.
-.TP
-.B copy\-forward\-word
-Copy the word following point to the kill buffer.
-The word boundaries are the same as \fBforward\-word\fP.
-.TP
-.B yank (C\-y)
-Yank the top of the kill ring into the buffer at the cursor.
-.TP
-.B yank\-pop (M\-y)
-Rotate the kill ring, and yank the new top.  Only works following
-.B yank
-or
-.BR yank\-pop .
-.PD
-.SS Numeric Arguments
-.PP
-.PD 0
-.TP
-.B digit\-argument (M\-0, M\-1, ..., M\-\-)
-Add this digit to the argument already accumulating, or start a new
-argument.  M\-\- starts a negative argument.
-.TP
-.B universal\-argument
-This is another way to specify an argument.
-If this command is followed by one or more digits, optionally with a
-leading minus sign, those digits define the argument.
-If the command is followed by digits, executing
-.B universal\-argument
-again ends the numeric argument, but is otherwise ignored.
-As a special case, if this command is immediately followed by a
-character that is neither a digit or minus sign, the argument count
-for the next command is multiplied by four.
-The argument count is initially one, so executing this function the
-first time makes the argument count four, a second time makes the
-argument count sixteen, and so on.
-.PD
-.SS Completing
-.PP
-.PD 0
-.TP
-.B complete (TAB)
-Attempt to perform completion on the text before point.
-The actual completion performed is application-specific.
-.BR Bash ,
-for instance, attempts completion treating the text as a variable
-(if the text begins with \fB$\fP), username (if the text begins with
-\fB~\fP), hostname (if the text begins with \fB@\fP), or
-command (including aliases and functions) in turn.  If none
-of these produces a match, filename completion is attempted.
-.BR Gdb ,
-on the other hand,
-allows completion of program functions and variables, and
-only attempts filename completion under certain circumstances.
-.TP
-.B possible\-completions (M\-?)
-List the possible completions of the text before point.
-.TP
-.B insert\-completions (M\-*)
-Insert all completions of the text before point
-that would have been generated by
-\fBpossible\-completions\fP.
-.TP
-.B menu\-complete
-Similar to \fBcomplete\fP, but replaces the word to be completed
-with a single match from the list of possible completions.
-Repeated execution of \fBmenu\-complete\fP steps through the list
-of possible completions, inserting each match in turn.
-At the end of the list of completions, the bell is rung and the
-original text is restored.
-An argument of \fIn\fP moves \fIn\fP positions forward in the list
-of matches; a negative argument may be used to move backward 
-through the list.
-This command is intended to be bound to \fBTAB\fP, but is unbound
-by default.
-.TP
-.B delete\-char\-or\-list
-Deletes the character under the cursor if not at the beginning or
-end of the line (like \fBdelete-char\fP).
-If at the end of the line, behaves identically to
-\fBpossible-completions\fP.
-This command is unbound by default.
-.PD
-.SS Keyboard Macros
-.PP
-.PD 0
-.TP
-.B start\-kbd\-macro (C\-x (\^)
-Begin saving the characters typed into the current keyboard macro.
-.TP
-.B end\-kbd\-macro (C\-x )\^)
-Stop saving the characters typed into the current keyboard macro
-and store the definition.
-.TP
-.B call\-last\-kbd\-macro (C\-x e)
-Re-execute the last keyboard macro defined, by making the characters
-in the macro appear as if typed at the keyboard.
-.PD
-.SS Miscellaneous
-.PP
-.PD 0
-.TP
-.B re\-read\-init\-file (C\-x C\-r)
-Read in the contents of the \fIinputrc\fP file, and incorporate
-any bindings or variable assignments found there.
-.TP
-.B abort (C\-g)
-Abort the current editing command and
-ring the terminal's bell (subject to the setting of
-.BR bell\-style ).
-.TP
-.B do\-uppercase\-version (M\-a, M\-b, M\-\fIx\fP, ...)
-If the metafied character \fIx\fP is lowercase, run the command
-that is bound to the corresponding uppercase character.
-.TP
-.B prefix\-meta (ESC)
-Metafy the next character typed.
-.SM
-.B ESC
-.B f
-is equivalent to
-.BR Meta\-f .
-.TP
-.B undo (C\-_, C\-x C\-u)
-Incremental undo, separately remembered for each line.
-.TP
-.B revert\-line (M\-r)
-Undo all changes made to this line.  This is like executing the
-.B undo
-command enough times to return the line to its initial state.
-.TP
-.B tilde\-expand (M\-&)
-Perform tilde expansion on the current word.
-.TP
-.B set\-mark (C\-@, M-<space>)
-Set the mark to the current point.  If a
-numeric argument is supplied, the mark is set to that position.
-.TP
-.B exchange\-point\-and\-mark (C\-x C\-x)
-Swap the point with the mark.  The current cursor position is set to
-the saved position, and the old cursor position is saved as the mark.
-.TP
-.B character\-search (C\-])
-A character is read and point is moved to the next occurrence of that
-character.  A negative count searches for previous occurrences.
-.TP
-.B character\-search\-backward (M\-C\-])
-A character is read and point is moved to the previous occurrence of that
-character.  A negative count searches for subsequent occurrences.
-.TP
-.B insert\-comment (M\-#)
-The value of the readline
-.B comment\-begin
-variable is inserted at the beginning of the current line, and the line
-is accepted as if a newline had been typed.  This makes the current line
-a shell comment.
-.TP
-.B dump\-functions
-Print all of the functions and their key bindings to the
-readline output stream.  If a numeric argument is supplied,
-the output is formatted in such a way that it can be made part
-of an \fIinputrc\fP file.
-.TP
-.B dump\-variables
-Print all of the settable variables and their values to the
-readline output stream.  If a numeric argument is supplied,
-the output is formatted in such a way that it can be made part
-of an \fIinputrc\fP file.
-.TP
-.B dump\-macros
-Print all of the readline key sequences bound to macros and the
-strings they ouput.  If a numeric argument is supplied,
-the output is formatted in such a way that it can be made part
-of an \fIinputrc\fP file.
-.TP
-.B emacs\-editing\-mode (C\-e)
-When in
-.B vi
-editing mode, this causes a switch to
-.B emacs
-editing mode.
-.TP
-.B vi\-editing\-mode (M\-C\-j)
-When in
-.B emacs
-editing mode, this causes a switch to
-.B vi
-editing mode.
-.PD
-.SH DEFAULT KEY BINDINGS
-.LP
-The following is a list of the default emacs and vi bindings.
-Characters with the 8th bit set are written as M\-<character>, and
-are referred to as
-.I metafied
-characters.
-The printable ASCII characters not mentioned in the list of emacs
-standard bindings are bound to the
-.I self\-insert
-function, which just inserts the given character into the input line.
-In vi insertion mode, all characters not specifically mentioned are
-bound to
-.IR self\-insert .
-Characters assigned to signal generation by
-.IR stty (1)
-or the terminal driver, such as C-Z or C-C,
-retain that function.
-Upper and lower case
-.I metafied
-characters are bound to the same function in the emacs mode
-meta keymap.
-The remaining characters are unbound, which causes readline
-to ring the bell (subject to the setting of the
-.B bell\-style
-variable).
-.SS Emacs Mode
-.RS +.6i
-.nf
-.ta 2.5i
-.sp
-Emacs Standard bindings
-.sp
-"C-@"  set-mark
-"C-A"  beginning-of-line
-"C-B"  backward-char
-"C-D"  delete-char
-"C-E"  end-of-line
-"C-F"  forward-char
-"C-G"  abort
-"C-H"  backward-delete-char
-"C-I"  complete
-"C-J"  accept-line
-"C-K"  kill-line
-"C-L"  clear-screen
-"C-M"  accept-line
-"C-N"  next-history
-"C-P"  previous-history
-"C-Q"  quoted-insert
-"C-R"  reverse-search-history
-"C-S"  forward-search-history
-"C-T"  transpose-chars
-"C-U"  unix-line-discard
-"C-V"  quoted-insert
-"C-W"  unix-word-rubout
-"C-Y"  yank
-"C-]"  character-search
-"C-_"  undo
-"\^ " to "/"  self-insert
-"0"  to "9"  self-insert
-":"  to "~"  self-insert
-"C-?"  backward-delete-char
-.PP
-Emacs Meta bindings
-.sp
-"M-C-G"  abort
-"M-C-H"  backward-kill-word
-"M-C-I"  tab-insert
-"M-C-J"  vi-editing-mode
-"M-C-M"  vi-editing-mode
-"M-C-R"  revert-line
-"M-C-Y"  yank-nth-arg
-"M-C-["  complete
-"M-C-]"  character-search-backward
-"M-space"  set-mark
-"M-#"  insert-comment
-"M-&"  tilde-expand
-"M-*"  insert-completions
-"M--"  digit-argument
-"M-."  yank-last-arg
-"M-0"  digit-argument
-"M-1"  digit-argument
-"M-2"  digit-argument
-"M-3"  digit-argument
-"M-4"  digit-argument
-"M-5"  digit-argument
-"M-6"  digit-argument
-"M-7"  digit-argument
-"M-8"  digit-argument
-"M-9"  digit-argument
-"M-<"  beginning-of-history
-"M-="  possible-completions
-"M->"  end-of-history
-"M-?"  possible-completions
-"M-B"  backward-word
-"M-C"  capitalize-word
-"M-D"  kill-word
-"M-F"  forward-word
-"M-L"  downcase-word
-"M-N"  non-incremental-forward-search-history
-"M-P"  non-incremental-reverse-search-history
-"M-R"  revert-line
-"M-T"  transpose-words
-"M-U"  upcase-word
-"M-Y"  yank-pop
-"M-\e"  delete-horizontal-space
-"M-~"  tilde-expand
-"M-C-?"  backward-delete-word
-"M-_"  yank-last-arg
-.PP
-Emacs Control-X bindings
-.sp
-"C-XC-G"  abort
-"C-XC-R"  re-read-init-file
-"C-XC-U"  undo
-"C-XC-X"  exchange-point-and-mark
-"C-X("  start-kbd-macro
-"C-X)"  end-kbd-macro
-"C-XE"  call-last-kbd-macro
-"C-XC-?"  backward-kill-line
-.sp
-.RE
-.SS VI Mode bindings
-.RS +.6i
-.nf
-.ta 2.5i
-.sp
-.PP
-VI Insert Mode functions
-.sp
-"C-D"  vi-eof-maybe
-"C-H"  backward-delete-char
-"C-I"  complete
-"C-J"  accept-line
-"C-M"  accept-line
-"C-R"  reverse-search-history
-"C-S"  forward-search-history
-"C-T"  transpose-chars
-"C-U"  unix-line-discard
-"C-V"  quoted-insert
-"C-W"  unix-word-rubout
-"C-Y"  yank
-"C-["  vi-movement-mode
-"C-_"  undo
-"\^ " to "~"  self-insert
-"C-?"  backward-delete-char
-.PP
-VI Command Mode functions
-.sp
-"C-D"  vi-eof-maybe
-"C-E"  emacs-editing-mode
-"C-G"  abort
-"C-H"  backward-char
-"C-J"  accept-line
-"C-K"  kill-line
-"C-L"  clear-screen
-"C-M"  accept-line
-"C-N"  next-history
-"C-P"  previous-history
-"C-Q"  quoted-insert
-"C-R"  reverse-search-history
-"C-S"  forward-search-history
-"C-T"  transpose-chars
-"C-U"  unix-line-discard
-"C-V"  quoted-insert
-"C-W"  unix-word-rubout
-"C-Y"  yank
-"\^ "  forward-char
-"#"  insert-comment
-"$"  end-of-line
-"%"  vi-match
-"&"  vi-tilde-expand
-"*"  vi-complete
-"+"  next-history
-","  vi-char-search
-"-"  previous-history
-"."  vi-redo
-"/"  vi-search
-"0"  beginning-of-line
-"1" to "9"  vi-arg-digit
-";"  vi-char-search
-"="  vi-complete
-"?"  vi-search
-"A"  vi-append-eol
-"B"  vi-prev-word
-"C"  vi-change-to
-"D"  vi-delete-to
-"E"  vi-end-word
-"F"  vi-char-search
-"G"  vi-fetch-history
-"I"  vi-insert-beg
-"N"  vi-search-again
-"P"  vi-put
-"R"  vi-replace
-"S"  vi-subst
-"T"  vi-char-search
-"U"  revert-line
-"W"  vi-next-word
-"X"  backward-delete-char
-"Y"  vi-yank-to
-"\e"  vi-complete
-"^"  vi-first-print
-"_"  vi-yank-arg
-"`"  vi-goto-mark
-"a"  vi-append-mode
-"b"  vi-prev-word
-"c"  vi-change-to
-"d"  vi-delete-to
-"e"  vi-end-word
-"f"  vi-char-search
-"h"  backward-char
-"i"  vi-insertion-mode
-"j"  next-history
-"k"  prev-history
-"l"  forward-char
-"m"  vi-set-mark
-"n"  vi-search-again
-"p"  vi-put
-"r"  vi-change-char
-"s"  vi-subst
-"t"  vi-char-search
-"u"  undo
-"w"  vi-next-word
-"x"  vi-delete
-"y"  vi-yank-to
-"|"  vi-column
-"~"  vi-change-case
-.RE
-.SH "SEE ALSO"
-.PD 0
-.TP
-\fIThe Gnu Readline Library\fP, Brian Fox and Chet Ramey
-.TP
-\fIThe Gnu History Library\fP, Brian Fox and Chet Ramey
-.TP
-\fIbash\fP(1)
-.PD
-.SH FILES
-.PD 0
-.TP
-.FN ~/.inputrc
-Individual \fBreadline\fP initialization file
-.PD
-.SH AUTHORS
-Brian Fox, Free Software Foundation
-.br
-bfox@gnu.org
-.PP
-Chet Ramey, Case Western Reserve University
-.br
-chet@ins.CWRU.Edu
-.SH BUG REPORTS
-If you find a bug in
-.B readline,
-you should report it.  But first, you should
-make sure that it really is a bug, and that it appears in the latest
-version of the
-.B readline
-library that you have.
-.PP
-Once you have determined that a bug actually exists, mail a
-bug report to \fIbug\-readline\fP@\fIgnu.org\fP.
-If you have a fix, you are welcome to mail that
-as well!  Suggestions and `philosophical' bug reports may be mailed
-to \fPbug-readline\fP@\fIgnu.org\fP or posted to the Usenet
-newsgroup
-.BR gnu.bash.bug .
-.PP
-Comments and bug reports concerning
-this manual page should be directed to
-.IR chet@ins.CWRU.Edu .
-.SH BUGS
-.PP
-It's too big and too slow.
index e8375a310ac8add4ce09214a70544dbbd53a1840..c49af9f4ed9bec2892acd07df32b777a530c572f 100644 (file)
@@ -1,51 +1,72 @@
-%% TeX macros to handle texinfo files
-
-%  Copyright (C) 1985, 86, 88, 90, 91, 92, 93,
-%                94, 95, 1996 Free Software Foundation, Inc.
-
-%This texinfo.tex file 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.
-
-%This texinfo.tex file is distributed in the hope that it will be
-%useful, but WITHOUT ANY WARRANTY; without even the implied warranty
-%of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-%General Public License for more details.
-
-%You should have received a copy of the GNU General Public License
-%along with this texinfo.tex file; see the file COPYING.  If not, write
-%to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-%Boston, MA 02111-1307, USA.
-
-
-%In other words, you are welcome to use, share and improve this program.
-%You are forbidden to forbid anyone else to use, share and improve
-%what you give them.   Help stamp out software-hoarding!
-
-
-% Send bug reports to bug-texinfo@prep.ai.mit.edu.
-% Please include a *precise* test case in each bug report.
-
-
-% Make it possible to create a .fmt file just by loading this file:
-% if the underlying format is not loaded, start by loading it now.
-% Added by gildea November 1993.
+% texinfo.tex -- TeX macros to handle Texinfo files.
+%
+% Load plain if necessary, i.e., if running under initex.
 \expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi
+%
+\def\texinfoversion{1999-09-25.10}
+%
+% Copyright (C) 1985, 86, 88, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99
+% Free Software Foundation, Inc.
+%
+% This texinfo.tex file 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.
+%
+% This texinfo.tex file is distributed in the hope that it will be
+% useful, but WITHOUT ANY WARRANTY; without even the implied warranty
+% of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+% General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with this texinfo.tex file; see the file COPYING.  If not, write
+% to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+% Boston, MA 02111-1307, USA.
+%
+% In other words, you are welcome to use, share and improve this program.
+% You are forbidden to forbid anyone else to use, share and improve
+% what you give them.   Help stamp out software-hoarding!
+%
+% Please try the latest version of texinfo.tex before submitting bug
+% reports; you can get the latest version from:
+%   ftp://ftp.gnu.org/gnu/texinfo.tex
+%   (and all GNU mirrors, see http://www.gnu.org/order/ftp.html)
+%   ftp://texinfo.org/tex/texinfo.tex
+%   ftp://us.ctan.org/macros/texinfo/texinfo.tex
+%   (and all CTAN mirrors, finger ctan@us.ctan.org for a list).
+%   /home/gd/gnu/doc/texinfo.tex on the GNU machines.
+% The texinfo.tex in any given Texinfo distribution could well be out
+% of date, so if that's what you're using, please check.
+% Texinfo has a small home page at http://texinfo.org/.
+%
+% Send bug reports to bug-texinfo@gnu.org.  Please include including a
+% complete document in each bug report with which we can reproduce the
+% problem.  Patches are, of course, greatly appreciated.
+%
+% To process a Texinfo manual with TeX, it's most reliable to use the
+% texi2dvi shell script that comes with the distribution.  For a simple
+% manual foo.texi, however, you can get away with this:
+%   tex foo.texi
+%   texindex foo.??
+%   tex foo.texi
+%   tex foo.texi
+%   dvips foo.dvi -o # or whatever, to process the dvi file; this makes foo.ps.
+% The extra runs of TeX get the cross-reference information correct.
+% Sometimes one run after texindex suffices, and sometimes you need more
+% than two; texi2dvi does it as many times as necessary.
+%
+% It is possible to adapt texinfo.tex for other languages.  You can get
+% the existing language-specific files from ftp://ftp.gnu.org/gnu/texinfo/.
 
-% This automatically updates the version number based on RCS.
-\def\deftexinfoversion$#1: #2 ${\def\texinfoversion{#2}}
-\deftexinfoversion$Revision: 2.185 $
-\message{Loading texinfo package [Version \texinfoversion]:}
+\message{Loading texinfo [version \texinfoversion]:}
 
 % If in a .fmt file, print the version number
 % and turn on active characters that we couldn't do earlier because
 % they might have appeared in the input file name.
-\everyjob{\message{[Texinfo version \texinfoversion]}\message{}
+\everyjob{\message{[Texinfo version \texinfoversion]}%
   \catcode`+=\active \catcode`\_=\active}
 
 % Save some parts of plain tex whose names we will redefine.
-
 \let\ptexb=\b
 \let\ptexbullet=\bullet
 \let\ptexc=\c
 \let\ptexdot=\.
 \let\ptexdots=\dots
 \let\ptexend=\end
-\let\ptexequiv = \equiv
+\let\ptexequiv=\equiv
+\let\ptexexclam=\!
 \let\ptexi=\i
 \let\ptexlbrace=\{
 \let\ptexrbrace=\}
 \let\ptexstar=\*
 \let\ptext=\t
-\let\ptextilde=\~
-
-% Be sure we're in horizontal mode when doing a tie, since we make space
-% equivalent to this in @example-like environments. Otherwise, a space
-% at the beginning of a line will start with \penalty -- and
-% since \penalty is valid in vertical mode, we'd end up putting the
-% penalty on the vertical list instead of in the new paragraph.
-{\catcode`@ = 11
- % Avoid using \@M directly, because that causes trouble
- % if the definition is written into an index file.
- \global\let\tiepenalty = \@M
- \gdef\tie{\leavevmode\penalty\tiepenalty\ }
-}
-\let\~ = \tie                  % And make it available as @~.
 
+% We never want plain's outer \+ definition in Texinfo.
+% For @tex, we can use \tabalign.
+\let\+ = \relax
 
 \message{Basics,}
 \chardef\other=12
 % starts a new line in the output.
 \newlinechar = `^^J
 
-% Set up fixed words for English.
-\ifx\putwordChapter\undefined{\gdef\putwordChapter{Chapter}}\fi%
-\def\putwordInfo{Info}%
-\ifx\putwordSee\undefined{\gdef\putwordSee{See}}\fi%
-\ifx\putwordsee\undefined{\gdef\putwordsee{see}}\fi%
-\ifx\putwordfile\undefined{\gdef\putwordfile{file}}\fi%
-\ifx\putwordpage\undefined{\gdef\putwordpage{page}}\fi%
-\ifx\putwordsection\undefined{\gdef\putwordsection{section}}\fi%
-\ifx\putwordSection\undefined{\gdef\putwordSection{Section}}\fi%
-\ifx\putwordTableofContents\undefined{\gdef\putwordTableofContents{Table of Contents}}\fi%
-\ifx\putwordShortContents\undefined{\gdef\putwordShortContents{Short Contents}}\fi%
-\ifx\putwordAppendix\undefined{\gdef\putwordAppendix{Appendix}}\fi%
+% Set up fixed words for English if not already set.
+\ifx\putwordAppendix\undefined  \gdef\putwordAppendix{Appendix}\fi
+\ifx\putwordChapter\undefined   \gdef\putwordChapter{Chapter}\fi
+\ifx\putwordfile\undefined      \gdef\putwordfile{file}\fi
+\ifx\putwordin\undefined        \gdef\putwordin{in}\fi
+\ifx\putwordIndexIsEmpty\undefined     \gdef\putwordIndexIsEmpty{(Index is empty)}\fi
+\ifx\putwordIndexNonexistent\undefined \gdef\putwordIndexNonexistent{(Index is nonexistent)}\fi
+\ifx\putwordInfo\undefined      \gdef\putwordInfo{Info}\fi
+\ifx\putwordInstanceVariableof\undefined \gdef\putwordInstanceVariableof{Instance Variable of}\fi
+\ifx\putwordMethodon\undefined  \gdef\putwordMethodon{Method on}\fi
+\ifx\putwordNoTitle\undefined   \gdef\putwordNoTitle{No Title}\fi
+\ifx\putwordof\undefined        \gdef\putwordof{of}\fi
+\ifx\putwordon\undefined        \gdef\putwordon{on}\fi
+\ifx\putwordpage\undefined      \gdef\putwordpage{page}\fi
+\ifx\putwordsection\undefined   \gdef\putwordsection{section}\fi
+\ifx\putwordSection\undefined   \gdef\putwordSection{Section}\fi
+\ifx\putwordsee\undefined       \gdef\putwordsee{see}\fi
+\ifx\putwordSee\undefined       \gdef\putwordSee{See}\fi
+\ifx\putwordShortTOC\undefined  \gdef\putwordShortTOC{Short Contents}\fi
+\ifx\putwordTOC\undefined       \gdef\putwordTOC{Table of Contents}\fi
+%
+\ifx\putwordMJan\undefined \gdef\putwordMJan{January}\fi
+\ifx\putwordMFeb\undefined \gdef\putwordMFeb{February}\fi
+\ifx\putwordMMar\undefined \gdef\putwordMMar{March}\fi
+\ifx\putwordMApr\undefined \gdef\putwordMApr{April}\fi
+\ifx\putwordMMay\undefined \gdef\putwordMMay{May}\fi
+\ifx\putwordMJun\undefined \gdef\putwordMJun{June}\fi
+\ifx\putwordMJul\undefined \gdef\putwordMJul{July}\fi
+\ifx\putwordMAug\undefined \gdef\putwordMAug{August}\fi
+\ifx\putwordMSep\undefined \gdef\putwordMSep{September}\fi
+\ifx\putwordMOct\undefined \gdef\putwordMOct{October}\fi
+\ifx\putwordMNov\undefined \gdef\putwordMNov{November}\fi
+\ifx\putwordMDec\undefined \gdef\putwordMDec{December}\fi
+%
+\ifx\putwordDefmac\undefined    \gdef\putwordDefmac{Macro}\fi
+\ifx\putwordDefspec\undefined   \gdef\putwordDefspec{Special Form}\fi
+\ifx\putwordDefvar\undefined    \gdef\putwordDefvar{Variable}\fi
+\ifx\putwordDefopt\undefined    \gdef\putwordDefopt{User Option}\fi
+\ifx\putwordDeftypevar\undefined\gdef\putwordDeftypevar{Variable}\fi
+\ifx\putwordDeffunc\undefined   \gdef\putwordDeffunc{Function}\fi
+\ifx\putwordDeftypefun\undefined\gdef\putwordDeftypefun{Function}\fi
 
 % Ignore a token.
 %
 \hyphenation{ap-pen-dix}
 \hyphenation{mini-buf-fer mini-buf-fers}
 \hyphenation{eshell}
+\hyphenation{white-space}
 
 % Margin to add to right of even pages, to left of odd pages.
-\newdimen \bindingoffset  
-\newdimen \normaloffset   
+\newdimen \bindingoffset
+\newdimen \normaloffset
 \newdimen\pagewidth \newdimen\pageheight
 
 % Sometimes it is convenient to have everything in the transcript file
 % since that produces some useless output on the terminal.
 %
 \def\gloggingall{\begingroup \globaldefs = 1 \loggingall \endgroup}%
+\ifx\eTeXversion\undefined
 \def\loggingall{\tracingcommands2 \tracingstats2
    \tracingpages1 \tracingoutput1 \tracinglostchars1
    \tracingmacros2 \tracingparagraphs1 \tracingrestores1
    \showboxbreadth\maxdimen\showboxdepth\maxdimen
 }%
+\else
+\def\loggingall{\tracingcommands3 \tracingstats2
+   \tracingpages1 \tracingoutput1 \tracinglostchars1
+   \tracingmacros2 \tracingparagraphs1 \tracingrestores1
+   \tracingscantokens1 \tracingassigns1 \tracingifs1
+   \tracinggroups1 \tracingnesting2
+   \showboxbreadth\maxdimen\showboxdepth\maxdimen
+}%
+\fi
 
-%---------------------Begin change-----------------------
+% For @cropmarks command.
+% Do @cropmarks to get crop marks.
 %
-%%%% For @cropmarks command.
-% Dimensions to add cropmarks at corners Added by P. A. MacKay, 12 Nov. 1986
+\newif\ifcropmarks
+\let\cropmarks = \cropmarkstrue
 %
-\newdimen\cornerlong \newdimen\cornerthick
-\newdimen \topandbottommargin
-\newdimen \outerhsize \newdimen \outervsize
-\cornerlong=1pc\cornerthick=.3pt        % These set size of cropmarks
-\outerhsize=7in
-%\outervsize=9.5in
-% Alternative @smallbook page size is 9.25in
-\outervsize=9.25in
-\topandbottommargin=.75in
+% Dimensions to add cropmarks at corners.
+% Added by P. A. MacKay, 12 Nov. 1986
 %
-%---------------------End change-----------------------
+\newdimen\outerhsize \newdimen\outervsize % set by the paper size routines
+\newdimen\cornerlong  \cornerlong=1pc
+\newdimen\cornerthick \cornerthick=.3pt
+\newdimen\topandbottommargin \topandbottommargin=.75in
+
+% Main output routine.
+\chardef\PAGE = 255
+\output = {\onepageout{\pagecontents\PAGE}}
+
+\newbox\headlinebox
+\newbox\footlinebox
 
 % \onepageout takes a vbox as an argument.  Note that \pagecontents
 % does insertions, but you have to call it yourself.
-\chardef\PAGE=255  \output={\onepageout{\pagecontents\PAGE}}
 \def\onepageout#1{%
-  \hoffset=\normaloffset
+  \ifcropmarks \hoffset=0pt \else \hoffset=\normaloffset \fi
+  %
   \ifodd\pageno  \advance\hoffset by \bindingoffset
   \else \advance\hoffset by -\bindingoffset\fi
+  %
+  % Do this outside of the \shipout so @code etc. will be expanded in
+  % the headline as they should be, not taken literally (outputting ''code).
+  \setbox\headlinebox = \vbox{\let\hsize=\pagewidth \makeheadline}%
+  \setbox\footlinebox = \vbox{\let\hsize=\pagewidth \makefootline}%
+  %
   {%
-    \escapechar = `\\ % use backslash in output files.
-    \indexdummies
+    % Have to do this stuff outside the \shipout because we want it to
+    % take effect in \write's, yet the group defined by the \vbox ends
+    % before the \shipout runs.
+    %
+    \escapechar = `\\     % use backslash in output files.
+    \indexdummies         % don't expand commands in the output.
+    \normalturnoffactive  % \ in index entries must not stay \, e.g., if
+                   % the page break happens to be in the middle of an example.
     \shipout\vbox{%
-      {\let\hsize=\pagewidth \makeheadline}%
+      \ifcropmarks \vbox to \outervsize\bgroup
+        \hsize = \outerhsize
+        \vskip-\topandbottommargin
+        \vtop to0pt{%
+          \line{\ewtop\hfil\ewtop}%
+          \nointerlineskip
+          \line{%
+            \vbox{\moveleft\cornerthick\nstop}%
+            \hfill
+            \vbox{\moveright\cornerthick\nstop}%
+          }%
+          \vss}%
+        \vskip\topandbottommargin
+        \line\bgroup
+          \hfil % center the page within the outer (page) hsize.
+          \ifodd\pageno\hskip\bindingoffset\fi
+          \vbox\bgroup
+      \fi
+      %
+      \unvbox\headlinebox
       \pagebody{#1}%
-      {\let\hsize=\pagewidth \makefootline}%
-    }%
-  }%
+      \ifdim\ht\footlinebox > 0pt
+        % Only leave this space if the footline is nonempty.
+        % (We lessened \vsize for it in \oddfootingxxx.)
+        % The \baselineskip=24pt in plain's \makefootline has no effect.
+        \vskip 2\baselineskip
+        \unvbox\footlinebox
+      \fi
+      %
+      \ifpdfmakepagedest \pdfmkdest{\the\pageno} \fi
+      %
+      \ifcropmarks
+          \egroup % end of \vbox\bgroup
+        \hfil\egroup % end of (centering) \line\bgroup
+        \vskip\topandbottommargin plus1fill minus1fill
+        \boxmaxdepth = \cornerthick
+        \vbox to0pt{\vss
+          \line{%
+            \vbox{\moveleft\cornerthick\nsbot}%
+            \hfill
+            \vbox{\moveright\cornerthick\nsbot}%
+          }%
+          \nointerlineskip
+          \line{\ewbot\hfil\ewbot}%
+        }%
+      \egroup % \vbox from first cropmarks clause
+      \fi
+    }% end of \shipout\vbox
+  }% end of group with \turnoffactive
   \advancepageno
   \ifnum\outputpenalty>-20000 \else\dosupereject\fi
 }
 
-%%%% For @cropmarks command %%%%
-
-% Here is a modification of the main output routine for Near East Publications
-% This provides right-angle cropmarks at all four corners.
-% The contents of the page are centerlined into the cropmarks,
-% and any desired binding offset is added as an \hskip on either
-% site of the centerlined box.  (P. A. MacKay, 12 November, 1986)
-%
-\def\croppageout#1{\hoffset=0pt % make sure this doesn't mess things up
-{\escapechar=`\\\relax % makes sure backslash is used in output files.
-                 \shipout
-                 \vbox to \outervsize{\hsize=\outerhsize
-                 \vbox{\line{\ewtop\hfill\ewtop}}
-                 \nointerlineskip
-                 \line{\vbox{\moveleft\cornerthick\nstop}
-                       \hfill
-                       \vbox{\moveright\cornerthick\nstop}}
-                 \vskip \topandbottommargin
-                 \centerline{\ifodd\pageno\hskip\bindingoffset\fi
-                        \vbox{
-                        {\let\hsize=\pagewidth \makeheadline}
-                        \pagebody{#1}
-                        {\let\hsize=\pagewidth \makefootline}}
-                        \ifodd\pageno\else\hskip\bindingoffset\fi}
-                 \vskip \topandbottommargin plus1fill minus1fill
-                 \boxmaxdepth\cornerthick
-                 \line{\vbox{\moveleft\cornerthick\nsbot}
-                       \hfill
-                       \vbox{\moveright\cornerthick\nsbot}}
-                 \nointerlineskip
-                 \vbox{\line{\ewbot\hfill\ewbot}}
-        }}
-  \advancepageno
-  \ifnum\outputpenalty>-20000 \else\dosupereject\fi}
-%
-% Do @cropmarks to get crop marks
-\def\cropmarks{\let\onepageout=\croppageout }
-
 \newinsert\margin \dimen\margin=\maxdimen
 
 \def\pagebody#1{\vbox to\pageheight{\boxmaxdepth=\maxdepth #1}}
 \ifr@ggedbottom \kern-\dimen@ \vfil \fi}
 }
 
-%
 % Here are the rules for the cropmarks.  Note that they are
 % offset so that the space between them is truly \outerhsize or \outervsize
 % (P. A. MacKay, 12 November, 1986)
 %% Call \inENV within environments (after a \begingroup)
 \newif\ifENV \ENVfalse \def\inENV{\ifENV\relax\else\ENVtrue\fi}
 \def\ENVcheck{%
-\ifENV\errmessage{Still within an environment.  Type Return to continue.}
+\ifENV\errmessage{Still within an environment; press RETURN to continue}
 \endgroup\fi} % This is not perfect, but it should reduce lossage
 
 % @begin foo  is the same as @foo, for now.
-\newhelp\EMsimple{Type <Return> to continue.}
+\newhelp\EMsimple{Press RETURN to continue.}
 
 \outer\def\begin{\parsearg\beginxxx}
 
 
 % @@ prints an @
 % Kludge this until the fonts are right (grr).
-\def\@{{\tt \char '100}}
+\def\@{{\tt\char64}}
 
 % This is turned off because it was never documented
 % and you can use @w{...} around a quote to suppress ligatures.
 %\def\'{{'}}
 
 % Used to generate quoted braces.
-\def\mylbrace {{\tt \char '173}}
-\def\myrbrace {{\tt \char '175}}
+\def\mylbrace {{\tt\char123}}
+\def\myrbrace {{\tt\char125}}
 \let\{=\mylbrace
 \let\}=\myrbrace
 \begingroup
   \fi\fi
 }
 
+% Be sure we're in horizontal mode when doing a tie, since we make space
+% equivalent to this in @example-like environments. Otherwise, a space
+% at the beginning of a line will start with \penalty -- and
+% since \penalty is valid in vertical mode, we'd end up putting the
+% penalty on the vertical list instead of in the new paragraph.
+{\catcode`@ = 11
+ % Avoid using \@M directly, because that causes trouble
+ % if the definition is written into an index file.
+ \global\let\tiepenalty = \@M
+ \gdef\tie{\leavevmode\penalty\tiepenalty\ }
+}
+
 % @: forces normal size whitespace following.
 \def\:{\spacefactor=1000 }
 
 % @. is an end-of-sentence period.
 \def\.{.\spacefactor=3000 }
 
-% @enddots{} is an end-of-sentence ellipsis.
-\gdef\enddots{$\mathinner{\ldotp\ldotp\ldotp\ldotp}$\spacefactor=3000}
-
 % @! is an end-of-sentence bang.
-\gdef\!{!\spacefactor=3000 }
+\def\!{!\spacefactor=3000 }
 
 % @? is an end-of-sentence query.
-\gdef\?{?\spacefactor=3000 }
+\def\?{?\spacefactor=3000 }
 
 % @w prevents a word break.  Without the \leavevmode, @w at the
 % beginning of a paragraph, when TeX is still in vertical mode, would
@@ -513,53 +594,81 @@ where each line of input produces a line of output.}
 %% This method tries to make TeX break the page naturally
 %% if the depth of the box does not fit.
 %{\baselineskip=0pt%
-%\vtop to #1\mil{\vfil}\kern -#1\mil\penalty 10000
+%\vtop to #1\mil{\vfil}\kern -#1\mil\nobreak
 %\prevdepth=-1000pt
 %}}
 
 \def\needx#1{%
-  % Go into vertical mode, so we don't make a big box in the middle of a
+  % Ensure vertical mode, so we don't make a big box in the middle of a
   % paragraph.
   \par
   %
-  % Don't add any leading before our big empty box, but allow a page
-  % break, since the best break might be right here.
-  \allowbreak
-  \nointerlineskip
-  \vtop to #1\mil{\vfil}%
-  %
-  % TeX does not even consider page breaks if a penalty added to the
-  % main vertical list is 10000 or more.  But in order to see if the
-  % empty box we just added fits on the page, we must make it consider
-  % page breaks.  On the other hand, we don't want to actually break the
-  % page after the empty box.  So we use a penalty of 9999.
-  %
-  % There is an extremely small chance that TeX will actually break the
-  % page at this \penalty, if there are no other feasible breakpoints in
-  % sight.  (If the user is using lots of big @group commands, which
-  % almost-but-not-quite fill up a page, TeX will have a hard time doing
-  % good page breaking, for example.)  However, I could not construct an
-  % example where a page broke at this \penalty; if it happens in a real
-  % document, then we can reconsider our strategy.
-  \penalty9999
-  %
-  % Back up by the size of the box, whether we did a page break or not.
-  \kern -#1\mil
-  %
-  % Do not allow a page break right after this kern.
-  \nobreak
+  % If the @need value is less than one line space, it's useless.
+  \dimen0 = #1\mil
+  \dimen2 = \ht\strutbox
+  \advance\dimen2 by \dp\strutbox
+  \ifdim\dimen0 > \dimen2
+    %
+    % Do a \strut just to make the height of this box be normal, so the
+    % normal leading is inserted relative to the preceding line.
+    % And a page break here is fine.
+    \vtop to #1\mil{\strut\vfil}%
+    %
+    % TeX does not even consider page breaks if a penalty added to the
+    % main vertical list is 10000 or more.  But in order to see if the
+    % empty box we just added fits on the page, we must make it consider
+    % page breaks.  On the other hand, we don't want to actually break the
+    % page after the empty box.  So we use a penalty of 9999.
+    %
+    % There is an extremely small chance that TeX will actually break the
+    % page at this \penalty, if there are no other feasible breakpoints in
+    % sight.  (If the user is using lots of big @group commands, which
+    % almost-but-not-quite fill up a page, TeX will have a hard time doing
+    % good page breaking, for example.)  However, I could not construct an
+    % example where a page broke at this \penalty; if it happens in a real
+    % document, then we can reconsider our strategy.
+    \penalty9999
+    %
+    % Back up by the size of the box, whether we did a page break or not.
+    \kern -#1\mil
+    %
+    % Do not allow a page break right after this kern.
+    \nobreak
+  \fi
 }
 
 % @br   forces paragraph break
 
 \let\br = \par
 
-% @dots{}  output some dots
+% @dots{} output an ellipsis using the current font.
+% We do .5em per period so that it has the same spacing in a typewriter
+% font as three actual period characters.
+%
+\def\dots{%
+  \leavevmode
+  \hbox to 1.5em{%
+    \hskip 0pt plus 0.25fil minus 0.25fil
+    .\hss.\hss.%
+    \hskip 0pt plus 0.5fil minus 0.5fil
+  }%
+}
+
+% @enddots{} is an end-of-sentence ellipsis.
+%
+\def\enddots{%
+  \leavevmode
+  \hbox to 2em{%
+    \hskip 0pt plus 0.25fil minus 0.25fil
+    .\hss.\hss.\hss.%
+    \hskip 0pt plus 0.5fil minus 0.5fil
+  }%
+  \spacefactor=3000
+}
 
-\def\dots{$\ldots$}
 
 % @page    forces the start of a new page
-
+%
 \def\page{\par\vfill\supereject}
 
 % @exdent text....
@@ -626,314 +735,50 @@ where each line of input produces a line of output.}
 % @c is the same as @comment
 % @ignore ... @end ignore  is another way to write a comment
 
-\def\comment{\catcode 64=\other \catcode 123=\other \catcode 125=\other%
-\parsearg \commentxxx}
-
-\def\commentxxx #1{\catcode 64=0 \catcode 123=1 \catcode 125=2 }
+\def\comment{\begingroup \catcode`\^^M=\other%
+\catcode`\@=\other \catcode`\{=\other \catcode`\}=\other%
+\commentxxx}
+{\catcode`\^^M=\other \gdef\commentxxx#1^^M{\endgroup}}
 
 \let\c=\comment
 
-% @paragraphindent  is defined for the Info formatting commands only.
-\let\paragraphindent=\comment
-
-% Prevent errors for section commands.
-% Used in @ignore and in failing conditionals.
-\def\ignoresections{%
-\let\chapter=\relax
-\let\unnumbered=\relax
-\let\top=\relax
-\let\unnumberedsec=\relax
-\let\unnumberedsection=\relax
-\let\unnumberedsubsec=\relax
-\let\unnumberedsubsection=\relax
-\let\unnumberedsubsubsec=\relax
-\let\unnumberedsubsubsection=\relax
-\let\section=\relax
-\let\subsec=\relax
-\let\subsubsec=\relax
-\let\subsection=\relax
-\let\subsubsection=\relax
-\let\appendix=\relax
-\let\appendixsec=\relax
-\let\appendixsection=\relax
-\let\appendixsubsec=\relax
-\let\appendixsubsection=\relax
-\let\appendixsubsubsec=\relax
-\let\appendixsubsubsection=\relax
-\let\contents=\relax
-\let\smallbook=\relax
-\let\titlepage=\relax
-}
-
-% Used in nested conditionals, where we have to parse the Texinfo source
-% and so want to turn off most commands, in case they are used
-% incorrectly.
-%
-\def\ignoremorecommands{%
-  \let\defcodeindex = \relax
-  \let\defcv = \relax
-  \let\deffn = \relax
-  \let\deffnx = \relax
-  \let\defindex = \relax
-  \let\defivar = \relax
-  \let\defmac = \relax
-  \let\defmethod = \relax
-  \let\defop = \relax
-  \let\defopt = \relax
-  \let\defspec = \relax
-  \let\deftp = \relax
-  \let\deftypefn = \relax
-  \let\deftypefun = \relax
-  \let\deftypevar = \relax
-  \let\deftypevr = \relax
-  \let\defun = \relax
-  \let\defvar = \relax
-  \let\defvr = \relax
-  \let\ref = \relax
-  \let\xref = \relax
-  \let\printindex = \relax
-  \let\pxref = \relax
-  \let\settitle = \relax
-  \let\setchapternewpage = \relax
-  \let\setchapterstyle = \relax
-  \let\everyheading = \relax
-  \let\evenheading = \relax
-  \let\oddheading = \relax
-  \let\everyfooting = \relax
-  \let\evenfooting = \relax
-  \let\oddfooting = \relax
-  \let\headings = \relax
-  \let\include = \relax
-  \let\lowersections = \relax
-  \let\down = \relax
-  \let\raisesections = \relax
-  \let\up = \relax
-  \let\set = \relax
-  \let\clear = \relax
-  \let\item = \relax
-}
-
-% Ignore @ignore ... @end ignore.
-%
-\def\ignore{\doignore{ignore}}
-
-% Also ignore @ifinfo, @ifhtml, @html, @menu, and @direntry text.
-%
-\def\ifinfo{\doignore{ifinfo}}
-\def\ifhtml{\doignore{ifhtml}}
-\def\html{\doignore{html}}
-\def\menu{\doignore{menu}}
-\def\direntry{\doignore{direntry}}
-
-% Also ignore @macro ... @end macro.  The user must run texi2dvi,
-% which runs makeinfo to do macro expansion.  Ignore @unmacro, too.
-\def\macro{\doignore{macro}}
-\let\unmacro = \comment
-
-
-% @dircategory CATEGORY  -- specify a category of the dir file
-% which this file should belong to.  Ignore this in TeX.
-\let\dircategory = \comment
-
-% Ignore text until a line `@end #1'.
-%
-\def\doignore#1{\begingroup
-  % Don't complain about control sequences we have declared \outer.
-  \ignoresections
-  %
-  % Define a command to swallow text until we reach `@end #1'.
-  \long\def\doignoretext##1\end #1{\enddoignore}%
-  %
-  % Make sure that spaces turn into tokens that match what \doignoretext wants.
-  \catcode32 = 10
-  %
-  % And now expand that command.
-  \doignoretext
-}
-
-% What we do to finish off ignored text.
-%
-\def\enddoignore{\endgroup\ignorespaces}%
-
-\newif\ifwarnedobs\warnedobsfalse
-\def\obstexwarn{%
-  \ifwarnedobs\relax\else
-  % We need to warn folks that they may have trouble with TeX 3.0.
-  % This uses \immediate\write16 rather than \message to get newlines.
-    \immediate\write16{}
-    \immediate\write16{***WARNING*** for users of Unix TeX 3.0!}
-    \immediate\write16{This manual trips a bug in TeX version 3.0 (tex hangs).}
-    \immediate\write16{If you are running another version of TeX, relax.}
-    \immediate\write16{If you are running Unix TeX 3.0, kill this TeX process.}
-    \immediate\write16{  Then upgrade your TeX installation if you can.}
-    \immediate\write16{  (See ftp://ftp.gnu.ai.mit.edu/pub/gnu/TeX.README.)}
-    \immediate\write16{If you are stuck with version 3.0, run the}
-    \immediate\write16{  script ``tex3patch'' from the Texinfo distribution}
-    \immediate\write16{  to use a workaround.}
-    \immediate\write16{}
-    \global\warnedobstrue
-    \fi
-}
-
-% **In TeX 3.0, setting text in \nullfont hangs tex.  For a
-% workaround (which requires the file ``dummy.tfm'' to be installed),
-% uncomment the following line:
-%%%%%\font\nullfont=dummy\let\obstexwarn=\relax
-
-% Ignore text, except that we keep track of conditional commands for
-% purposes of nesting, up to an `@end #1' command.
-%
-\def\nestedignore#1{%
-  \obstexwarn
-  % We must actually expand the ignored text to look for the @end
-  % command, so that nested ignore constructs work.  Thus, we put the
-  % text into a \vbox and then do nothing with the result.  To minimize
-  % the change of memory overflow, we follow the approach outlined on
-  % page 401 of the TeXbook: make the current font be a dummy font.
-  %
-  \setbox0 = \vbox\bgroup
-    % Don't complain about control sequences we have declared \outer.
-    \ignoresections
-    %
-    % Define `@end #1' to end the box, which will in turn undefine the
-    % @end command again.
-    \expandafter\def\csname E#1\endcsname{\egroup\ignorespaces}%
-    %
-    % We are going to be parsing Texinfo commands.  Most cause no
-    % trouble when they are used incorrectly, but some commands do
-    % complicated argument parsing or otherwise get confused, so we
-    % undefine them.
-    %
-    % We can't do anything about stray @-signs, unfortunately;
-    % they'll produce `undefined control sequence' errors.
-    \ignoremorecommands
-    %
-    % Set the current font to be \nullfont, a TeX primitive, and define
-    % all the font commands to also use \nullfont.  We don't use
-    % dummy.tfm, as suggested in the TeXbook, because not all sites
-    % might have that installed.  Therefore, math mode will still
-    % produce output, but that should be an extremely small amount of
-    % stuff compared to the main input.
-    %
-    \nullfont
-    \let\tenrm = \nullfont  \let\tenit = \nullfont  \let\tensl = \nullfont
-    \let\tenbf = \nullfont  \let\tentt = \nullfont  \let\smallcaps = \nullfont
-    \let\tensf = \nullfont
-    % Similarly for index fonts (mostly for their use in
-    % smallexample)
-    \let\indrm = \nullfont  \let\indit = \nullfont  \let\indsl = \nullfont
-    \let\indbf = \nullfont  \let\indtt = \nullfont  \let\indsc = \nullfont
-    \let\indsf = \nullfont
-    %
-    % Don't complain when characters are missing from the fonts.
-    \tracinglostchars = 0
-    %
-    % Don't bother to do space factor calculations.
-    \frenchspacing
-    %
-    % Don't report underfull hboxes.
-    \hbadness = 10000
-    %
-    % Do minimal line-breaking.
-    \pretolerance = 10000
-    %
-    % Do not execute instructions in @tex
-    \def\tex{\doignore{tex}}
-}
-
-% @set VAR sets the variable VAR to an empty value.
-% @set VAR REST-OF-LINE sets VAR to the value REST-OF-LINE.
-%
-% Since we want to separate VAR from REST-OF-LINE (which might be
-% empty), we can't just use \parsearg; we have to insert a space of our
-% own to delimit the rest of the line, and then take it out again if we
-% didn't need it.  Make sure the catcode of space is correct to avoid
-% losing inside @example, for instance.
-%
-\def\set{\begingroup\catcode` =10 \parsearg\setxxx}
-\def\setxxx#1{\setyyy#1 \endsetyyy}
-\def\setyyy#1 #2\endsetyyy{%
-  \def\temp{#2}%
-  \ifx\temp\empty \global\expandafter\let\csname SET#1\endcsname = \empty
-  \else \setzzz{#1}#2\endsetzzz % Remove the trailing space \setxxx inserted.
-  \fi
-  \endgroup
-}
-% Can't use \xdef to pre-expand #2 and save some time, since \temp or
-% \next or other control sequences that we've defined might get us into
-% an infinite loop. Consider `@set foo @cite{bar}'.
-\def\setzzz#1#2 \endsetzzz{\expandafter\gdef\csname SET#1\endcsname{#2}}
-
-% @clear VAR clears (i.e., unsets) the variable VAR.
-%
-\def\clear{\parsearg\clearxxx}
-\def\clearxxx#1{\global\expandafter\let\csname SET#1\endcsname=\relax}
-
-% @value{foo} gets the text saved in variable foo.
-%
-\def\value#1{\expandafter
-                \ifx\csname SET#1\endcsname\relax
-                        {\{No value for ``#1''\}}
-                \else \csname SET#1\endcsname \fi}
-
-% @ifset VAR ... @end ifset reads the `...' iff VAR has been defined
-% with @set.
+% @paragraphindent NCHARS
+% We'll use ems for NCHARS, close enough.
+% We cannot implement @paragraphindent asis, though.
+% 
+\def\asisword{asis} % no translation, these are keywords
+\def\noneword{none}
 %
-\def\ifset{\parsearg\ifsetxxx}
-\def\ifsetxxx #1{%
-  \expandafter\ifx\csname SET#1\endcsname\relax
-    \expandafter\ifsetfail
+\def\paragraphindent{\parsearg\doparagraphindent}
+\def\doparagraphindent#1{%
+  \def\temp{#1}%
+  \ifx\temp\asisword
   \else
-    \expandafter\ifsetsucceed
+    \ifx\temp\noneword
+      \defaultparindent = 0pt
+    \else
+      \defaultparindent = #1em
+    \fi
   \fi
+  \parindent = \defaultparindent
 }
-\def\ifsetsucceed{\conditionalsucceed{ifset}}
-\def\ifsetfail{\nestedignore{ifset}}
-\defineunmatchedend{ifset}
 
-% @ifclear VAR ... @end ifclear reads the `...' iff VAR has never been
-% defined with @set, or has been undefined with @clear.
-%
-\def\ifclear{\parsearg\ifclearxxx}
-\def\ifclearxxx #1{%
-  \expandafter\ifx\csname SET#1\endcsname\relax
-    \expandafter\ifclearsucceed
+% @exampleindent NCHARS
+% We'll use ems for NCHARS like @paragraphindent.
+% It seems @exampleindent asis isn't necessary, but
+% I preserve it to make it similar to @paragraphindent.
+\def\exampleindent{\parsearg\doexampleindent}
+\def\doexampleindent#1{%
+  \def\temp{#1}%
+  \ifx\temp\asisword
   \else
-    \expandafter\ifclearfail
+    \ifx\temp\noneword
+      \lispnarrowing = 0pt
+    \else
+      \lispnarrowing = #1em
+    \fi
   \fi
 }
-\def\ifclearsucceed{\conditionalsucceed{ifclear}}
-\def\ifclearfail{\nestedignore{ifclear}}
-\defineunmatchedend{ifclear}
-
-% @iftex always succeeds; we read the text following, through @end
-% iftex).  But `@end iftex' should be valid only after an @iftex.
-%
-\def\iftex{\conditionalsucceed{iftex}}
-\defineunmatchedend{iftex}
-
-% We can't just want to start a group at @iftex (for example) and end it
-% at @end iftex, since then @set commands inside the conditional have no
-% effect (they'd get reverted at the end of the group).  So we must
-% define \Eiftex to redefine itself to be its previous value.  (We can't
-% just define it to fail again with an ``unmatched end'' error, since
-% the @ifset might be nested.)
-%
-\def\conditionalsucceed#1{%
-  \edef\temp{%
-    % Remember the current value of \E#1.
-    \let\nece{prevE#1} = \nece{E#1}%
-    %
-    % At the `@end #1', redefine \E#1 to be its previous value.
-    \def\nece{E#1}{\let\nece{E#1} = \nece{prevE#1}}%
-  }%
-  \temp
-}
-
-% We need to expand lots of \csname's, but we don't want to expand the
-% control sequences after we've constructed them.
-%
-\def\nece#1{\expandafter\noexpand\csname#1\endcsname}
 
 % @asis just yields its argument.  Used with @table, for example.
 %
@@ -956,63 +801,229 @@ where each line of input produces a line of output.}
 \def\bullet{\implicitmath\ptexbullet\implicitmath}
 \def\minus{\implicitmath-\implicitmath}
 
-\def\node{\ENVcheck\parsearg\nodezzz}
-\def\nodezzz#1{\nodexxx [#1,]}
-\def\nodexxx[#1,#2]{\gdef\lastnode{#1}}
-\let\nwnode=\node
-\let\lastnode=\relax
-
-\def\donoderef{\ifx\lastnode\relax\else
-\expandafter\expandafter\expandafter\setref{\lastnode}\fi
-\global\let\lastnode=\relax}
-
-\def\unnumbnoderef{\ifx\lastnode\relax\else
-\expandafter\expandafter\expandafter\unnumbsetref{\lastnode}\fi
-\global\let\lastnode=\relax}
-
-\def\appendixnoderef{\ifx\lastnode\relax\else
-\expandafter\expandafter\expandafter\appendixsetref{\lastnode}\fi
-\global\let\lastnode=\relax}
-
 % @refill is a no-op.
 \let\refill=\relax
 
+% If working on a large document in chapters, it is convenient to
+% be able to disable indexing, cross-referencing, and contents, for test runs.
+% This is done with @novalidate (before @setfilename).
+%
+\newif\iflinks \linkstrue % by default we want the aux files.
+\let\novalidate = \linksfalse
+
 % @setfilename is done at the beginning of every texinfo file.
 % So open here the files we need to have open while reading the input.
 % This makes it possible to make a .fmt file for texinfo.
 \def\setfilename{%
-   \readauxfile
-   \opencontents
+   \iflinks
+     \readauxfile
+   \fi % \openindices needs to do some work in any case.
    \openindices
    \fixbackslash  % Turn off hack to swallow `\input texinfo'.
    \global\let\setfilename=\comment % Ignore extra @setfilename cmds.
+   %
+   % If texinfo.cnf is present on the system, read it.
+   % Useful for site-wide @afourpaper, etc.
+   % Just to be on the safe side, close the input stream before the \input.
+   \openin 1 texinfo.cnf
+   \ifeof1 \let\temp=\relax \else \def\temp{\input texinfo.cnf }\fi
+   \closein1
+   \temp
+   %
    \comment % Ignore the actual filename.
 }
 
+% Called from \setfilename.
+%
+\def\openindices{%
+  \newindex{cp}%
+  \newcodeindex{fn}%
+  \newcodeindex{vr}%
+  \newcodeindex{tp}%
+  \newcodeindex{ky}%
+  \newcodeindex{pg}%
+}
+
 % @bye.
 \outer\def\bye{\pagealignmacro\tracingstats=1\ptexend}
 
-% \def\macro#1{\begingroup\ignoresections\catcode`\#=6\def\macrotemp{#1}\parsearg\macroxxx}
-% \def\macroxxx#1#2 \end macro{%
-% \expandafter\gdef\macrotemp#1{#2}%
-% \endgroup}
-
-%\def\linemacro#1{\begingroup\ignoresections\catcode`\#=6\def\macrotemp{#1}\parsearg\linemacroxxx}
-%\def\linemacroxxx#1#2 \end linemacro{%
-%\let\parsearg=\relax
-%\edef\macrotempx{\csname M\butfirst\expandafter\string\macrotemp\endcsname}%
-%\expandafter\xdef\macrotemp{\parsearg\macrotempx}%
-%\expandafter\gdef\macrotempx#1{#2}%
-%\endgroup}
 
-%\def\butfirst#1{}
+\message{pdf,}
+% adobe `portable' document format
+\newcount\tempnum
+\newcount\lnkcount
+\newtoks\filename
+\newcount\filenamelength
+\newcount\pgn
+\newtoks\toksA
+\newtoks\toksB
+\newtoks\toksC
+\newtoks\toksD
+\newbox\boxA
+\newcount\countA
+\newif\ifpdf
+\newif\ifpdfmakepagedest
+
+\ifx\pdfoutput\undefined
+  \pdffalse
+  \let\pdfmkdest = \gobble
+  \let\pdfurl = \gobble
+  \let\endlink = \relax
+  \let\linkcolor = \relax
+  \let\pdfmakeoutlines = \relax
+\else
+  \pdftrue
+  \pdfoutput = 1
+  \input pdfcolor
+  \def\dopdfimage#1#2#3{%
+    \def\imagewidth{#2}%
+    \def\imageheight{#3}%
+    \ifnum\pdftexversion < 14
+      \pdfimage
+    \else
+      \pdfximage
+    \fi
+      \ifx\empty\imagewidth\else width \imagewidth \fi
+      \ifx\empty\imageheight\else height \imageheight \fi
+      {#1.pdf}%
+    \ifnum\pdftexversion < 14 \else
+      \pdfrefximage \pdflastximage
+    \fi}
+  \def\pdfmkdest#1{\pdfdest name{#1@} xyz}
+  \def\pdfmkpgn#1{#1@}
+  \let\linkcolor = \Cyan
+  \def\endlink{\Black\pdfendlink}
+  % Adding outlines to PDF; macros for calculating structure of outlines
+  % come from Petr Olsak
+  \def\expnumber#1{\expandafter\ifx\csname#1\endcsname\relax 0%
+    \else \csname#1\endcsname \fi}
+  \def\advancenumber#1{\tempnum=\expnumber{#1}\relax
+    \advance\tempnum by1
+    \expandafter\xdef\csname#1\endcsname{\the\tempnum}}
+  \def\pdfmakeoutlines{{%
+    \openin 1 \jobname.toc
+    \ifeof 1\else\bgroup
+      \closein 1 
+      \indexnofonts
+      \def\tt{}
+      % thanh's hack / proper braces in bookmarks  
+      \edef\mylbrace{\iftrue \string{\else}\fi}\let\{=\mylbrace
+      \edef\myrbrace{\iffalse{\else\string}\fi}\let\}=\myrbrace
+      %
+      \def\chapentry ##1##2##3{}
+      \def\unnumbchapentry ##1##2{}
+      \def\secentry ##1##2##3##4{\advancenumber{chap##2}}
+      \def\unnumbsecentry ##1##2{}
+      \def\subsecentry ##1##2##3##4##5{\advancenumber{sec##2.##3}}
+      \def\unnumbsubsecentry ##1##2{}
+      \def\subsubsecentry ##1##2##3##4##5##6{\advancenumber{subsec##2.##3.##4}}
+      \def\unnumbsubsubsecentry ##1##2{}
+      \input \jobname.toc
+      \def\chapentry ##1##2##3{%
+        \pdfoutline goto name{\pdfmkpgn{##3}}count-\expnumber{chap##2}{##1}}
+      \def\unnumbchapentry ##1##2{%
+        \pdfoutline goto name{\pdfmkpgn{##2}}{##1}}
+      \def\secentry ##1##2##3##4{%
+        \pdfoutline goto name{\pdfmkpgn{##4}}count-\expnumber{sec##2.##3}{##1}}
+      \def\unnumbsecentry ##1##2{%
+        \pdfoutline goto name{\pdfmkpgn{##2}}{##1}}
+      \def\subsecentry ##1##2##3##4##5{%
+        \pdfoutline goto name{\pdfmkpgn{##5}}count-\expnumber{subsec##2.##3.##4}{##1}}
+      \def\unnumbsubsecentry ##1##2{%
+        \pdfoutline goto name{\pdfmkpgn{##2}}{##1}}
+      \def\subsubsecentry ##1##2##3##4##5##6{%
+        \pdfoutline goto name{\pdfmkpgn{##6}}{##1}}
+      \def\unnumbsubsubsecentry ##1##2{%
+        \pdfoutline goto name{\pdfmkpgn{##2}}{##1}}
+      \input \jobname.toc
+    \egroup\fi
+  }}
+  \def\makelinks #1,{%
+    \def\params{#1}\def\E{END}%
+    \ifx\params\E
+      \let\nextmakelinks=\relax
+    \else
+      \let\nextmakelinks=\makelinks
+      \ifnum\lnkcount>0,\fi
+      \picknum{#1}%
+      \startlink attr{/Border [0 0 0]} 
+        goto name{\pdfmkpgn{\the\pgn}}%
+      \linkcolor #1%
+      \advance\lnkcount by 1%
+      \endlink
+    \fi
+    \nextmakelinks
+  }
+  \def\picknum#1{\expandafter\pn#1}
+  \def\pn#1{%
+    \def\p{#1}%
+    \ifx\p\lbrace
+      \let\nextpn=\ppn
+    \else
+      \let\nextpn=\ppnn
+      \def\first{#1}
+    \fi
+    \nextpn
+  }
+  \def\ppn#1{\pgn=#1\gobble}
+  \def\ppnn{\pgn=\first}
+  \def\pdfmklnk#1{\lnkcount=0\makelinks #1,END,}
+  \def\addtokens#1#2{\edef\addtoks{\noexpand#1={\the#1#2}}\addtoks}
+  \def\skipspaces#1{\def\PP{#1}\def\D{|}%
+    \ifx\PP\D\let\nextsp\relax
+    \else\let\nextsp\skipspaces
+      \ifx\p\space\else\addtokens{\filename}{\PP}%
+        \advance\filenamelength by 1
+      \fi
+    \fi
+    \nextsp}
+  \def\getfilename#1{\filenamelength=0\expandafter\skipspaces#1|\relax}
+  \ifnum\pdftexversion < 14
+    \let \startlink \pdfannotlink
+  \else
+    \let \startlink \pdfstartlink
+  \fi
+  \def\pdfurl#1{%
+    \begingroup
+      \normalturnoffactive\def\@{@}%
+      \leavevmode\Red
+      \startlink attr{/Border [0 0 0]}%
+        user{/Subtype /Link /A << /S /URI /URI (#1) >>}%
+        % #1
+    \endgroup}
+  \def\pdfgettoks#1.{\setbox\boxA=\hbox{\toksA={#1.}\toksB={}\maketoks}}
+  \def\addtokens#1#2{\edef\addtoks{\noexpand#1={\the#1#2}}\addtoks}
+  \def\adn#1{\addtokens{\toksC}{#1}\global\countA=1\let\next=\maketoks}
+  \def\poptoks#1#2|ENDTOKS|{\let\first=#1\toksD={#1}\toksA={#2}}
+  \def\maketoks{%
+    \expandafter\poptoks\the\toksA|ENDTOKS|
+    \ifx\first0\adn0
+    \else\ifx\first1\adn1 \else\ifx\first2\adn2 \else\ifx\first3\adn3
+    \else\ifx\first4\adn4 \else\ifx\first5\adn5 \else\ifx\first6\adn6
+    \else\ifx\first7\adn7 \else\ifx\first8\adn8 \else\ifx\first9\adn9 
+    \else
+      \ifnum0=\countA\else\makelink\fi
+      \ifx\first.\let\next=\done\else
+        \let\next=\maketoks
+        \addtokens{\toksB}{\the\toksD}
+        \ifx\first,\addtokens{\toksB}{\space}\fi
+      \fi
+    \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
+    \next}
+  \def\makelink{\addtokens{\toksB}%
+    {\noexpand\pdflink{\the\toksC}}\toksC={}\global\countA=0}
+  \def\pdflink#1{%
+    \startlink attr{/Border [0 0 0]} goto name{\mkpgn{#1}}
+    \linkcolor #1\endlink}
+  \def\mkpgn#1{#1@} 
+  \def\done{\edef\st{\global\noexpand\toksA={\the\toksB}}\st}
+\fi % \ifx\pdfoutput
 
 
 \message{fonts,}
-
 % Font-change commands.
 
-% Texinfo supports the sans serif font style, which plain TeX does not.
+% Texinfo sort of supports the sans serif font style, which plain TeX does not.
 % So we set up a \sf analogous to plain's \rm, etc.
 \newfam\sffam
 \def\sf{\fam=\sffam \tensf}
@@ -1021,8 +1032,9 @@ where each line of input produces a line of output.}
 % We don't need math for this one.
 \def\ttsl{\tenttsl}
 
-%% Try out Computer Modern fonts at \magstephalf
-\let\mainmagstep=\magstephalf
+% Use Computer Modern fonts at \magstephalf (11pt).
+\newcount\mainmagstep
+\mainmagstep=\magstephalf
 
 % Set the font macro #1 to the font named #2, adding on the
 % specified font prefix (normally `cm').
@@ -1077,22 +1089,30 @@ where each line of input produces a line of output.}
 \setfont\deftt\ttshape{10}{\magstep1}
 \def\df{\let\tentt=\deftt \let\tenbf = \defbf \bf}
 
-% Fonts for indices and small examples (9pt).
-% We actually use the slanted font rather than the italic,
-% because texinfo normally uses the slanted fonts for that.
-% Do not make many font distinctions in general in the index, since they
-% aren't very useful.
-\setfont\ninett\ttshape{9}{1000}
-\setfont\indrm\rmshape{9}{1000}
-\setfont\indit\slshape{9}{1000}
-\let\indsl=\indit
-\let\indtt=\ninett
-\let\indttsl=\ninett
-\let\indsf=\indrm
-\let\indbf=\indrm
-\setfont\indsc\scshape{10}{900}
-\font\indi=cmmi9
-\font\indsy=cmsy9
+% Fonts for indices, footnotes, small examples (9pt).
+\setfont\smallrm\rmshape{9}{1000}
+\setfont\smalltt\ttshape{9}{1000}
+\setfont\smallbf\bfshape{10}{900}
+\setfont\smallit\itshape{9}{1000}
+\setfont\smallsl\slshape{9}{1000}
+\setfont\smallsf\sfshape{9}{1000}
+\setfont\smallsc\scshape{10}{900}
+\setfont\smallttsl\ttslshape{10}{900}
+\font\smalli=cmmi9
+\font\smallsy=cmsy9
+
+% Fonts for title page:
+\setfont\titlerm\rmbshape{12}{\magstep3}
+\setfont\titleit\itbshape{10}{\magstep4}
+\setfont\titlesl\slbshape{10}{\magstep4}
+\setfont\titlett\ttbshape{12}{\magstep3}
+\setfont\titlettsl\ttslshape{10}{\magstep4}
+\setfont\titlesf\sfbshape{17}{\magstep1}
+\let\titlebf=\titlerm
+\setfont\titlesc\scbshape{10}{\magstep4}
+\font\titlei=cmmi12 scaled \magstep3
+\font\titlesy=cmsy10 scaled \magstep4
+\def\authorrm{\secrm}
 
 % Chapter (and unnumbered) fonts (17.28pt).
 \setfont\chaprm\rmbshape{12}{\magstep2}
@@ -1100,7 +1120,7 @@ where each line of input produces a line of output.}
 \setfont\chapsl\slbshape{10}{\magstep3}
 \setfont\chaptt\ttbshape{12}{\magstep2}
 \setfont\chapttsl\ttslshape{10}{\magstep3}
-\setfont\chapsf\sfbshape{12}{\magstep2}
+\setfont\chapsf\sfbshape{17}{1000}
 \let\chapbf=\chaprm
 \setfont\chapsc\scbshape{10}{\magstep3}
 \font\chapi=cmmi12 scaled \magstep2
@@ -1137,19 +1157,15 @@ where each line of input produces a line of output.}
 \setfont\ssecit\itbshape{10}{1315}
 \setfont\ssecsl\slbshape{10}{1315}
 \setfont\ssectt\ttbshape{12}{\magstephalf}
-\setfont\ssecttsl\ttslshape{10}{\magstep1}
+\setfont\ssecttsl\ttslshape{10}{1315}
 \setfont\ssecsf\sfbshape{12}{\magstephalf}
 \let\ssecbf\ssecrm
 \setfont\ssecsc\scbshape{10}{\magstep1}
 \font\sseci=cmmi12 scaled \magstephalf
-\font\ssecsy=cmsy10 scaled \magstep1
+\font\ssecsy=cmsy10 scaled 1315
 % The smallcaps and symbol fonts should actually be scaled \magstep1.5,
 % but that is not a standard magnification.
 
-% Fonts for title page:
-\setfont\titlerm\rmbshape{12}{\magstep3}
-\let\authorrm = \secrm
-
 % In order for the font changes to affect most math symbols and letters,
 % we have to define the \textfont of the standard families.  Since
 % texinfo doesn't allow for producing subscripts and superscripts, we
@@ -1174,6 +1190,13 @@ where each line of input produces a line of output.}
   \let\tenbf=\textbf \let\tentt=\texttt \let\smallcaps=\textsc
   \let\tensf=\textsf \let\teni=\texti \let\tensy=\textsy \let\tenttsl=\textttsl
   \resetmathfonts}
+\def\titlefonts{%
+  \let\tenrm=\titlerm \let\tenit=\titleit \let\tensl=\titlesl
+  \let\tenbf=\titlebf \let\tentt=\titlett \let\smallcaps=\titlesc
+  \let\tensf=\titlesf \let\teni=\titlei \let\tensy=\titlesy
+  \let\tenttsl=\titlettsl
+  \resetmathfonts \setleading{25pt}}
+\def\titlefont#1{{\titlefonts\rm #1}}
 \def\chapfonts{%
   \let\tenrm=\chaprm \let\tenit=\chapit \let\tensl=\chapsl
   \let\tenbf=\chapbf \let\tentt=\chaptt \let\smallcaps=\chapsc
@@ -1190,16 +1213,21 @@ where each line of input produces a line of output.}
   \let\tensf=\ssecsf \let\teni=\sseci \let\tensy=\ssecsy \let\tenttsl=\ssecttsl
   \resetmathfonts \setleading{15pt}}
 \let\subsubsecfonts = \subsecfonts % Maybe make sssec fonts scaled magstephalf?
-\def\indexfonts{%
-  \let\tenrm=\indrm \let\tenit=\indit \let\tensl=\indsl
-  \let\tenbf=\indbf \let\tentt=\indtt \let\smallcaps=\indsc
-  \let\tensf=\indsf \let\teni=\indi \let\tensy=\indsy \let\tenttsl=\indttsl
-  \resetmathfonts \setleading{12pt}}
+\def\smallfonts{%
+  \let\tenrm=\smallrm \let\tenit=\smallit \let\tensl=\smallsl
+  \let\tenbf=\smallbf \let\tentt=\smalltt \let\smallcaps=\smallsc
+  \let\tensf=\smallsf \let\teni=\smalli \let\tensy=\smallsy
+  \let\tenttsl=\smallttsl
+  \resetmathfonts \setleading{11pt}}
 
 % Set up the default fonts, so we can use them for creating boxes.
 %
 \textfonts
 
+% Define these so they can be easily changed for other fonts.
+\def\angleleft{$\langle$}
+\def\angleright{$\rangle$}
+
 % Count depth in font-changes, for error checks
 \newcount\fontdepth \fontdepth=0
 
@@ -1214,13 +1242,14 @@ where each line of input produces a line of output.}
 % \smartitalic{ARG} outputs arg in italics, followed by an italic correction
 % unless the following character is such as not to need one.
 \def\smartitalicx{\ifx\next,\else\ifx\next-\else\ifx\next.\else\/\fi\fi\fi}
-\def\smartitalic#1{{\sl #1}\futurelet\next\smartitalicx}
+\def\smartslanted#1{{\sl #1}\futurelet\next\smartitalicx}
+\def\smartitalic#1{{\it #1}\futurelet\next\smartitalicx}
 
 \let\i=\smartitalic
-\let\var=\smartitalic
-\let\dfn=\smartitalic
+\let\var=\smartslanted
+\let\dfn=\smartslanted
 \let\emph=\smartitalic
-\let\cite=\smartitalic
+\let\cite=\smartslanted
 
 \def\b#1{{\bf #1}}
 \let\strong=\b
@@ -1237,22 +1266,22 @@ where each line of input produces a line of output.}
   \null
 }
 \let\ttfont=\t
-\def\samp #1{`\tclose{#1}'\null}
-\setfont\smallrm\rmshape{8}{1000}
-\font\smallsy=cmsy9
-\def\key#1{{\smallrm\textfont2=\smallsy \leavevmode\hbox{%
-  \raise0.4pt\hbox{$\langle$}\kern-.08em\vtop{%
+\def\samp#1{`\tclose{#1}'\null}
+\setfont\keyrm\rmshape{8}{1000}
+\font\keysy=cmsy9
+\def\key#1{{\keyrm\textfont2=\keysy \leavevmode\hbox{%
+  \raise0.4pt\hbox{\angleleft}\kern-.08em\vtop{%
     \vbox{\hrule\kern-0.4pt
-     \hbox{\raise0.4pt\hbox{\vphantom{$\langle$}}#1}}%
+     \hbox{\raise0.4pt\hbox{\vphantom{\angleleft}}#1}}%
     \kern-0.4pt\hrule}%
-  \kern-.06em\raise0.4pt\hbox{$\rangle$}}}}
+  \kern-.06em\raise0.4pt\hbox{\angleright}}}}
 % The old definition, with no lozenge:
 %\def\key #1{{\ttsl \nohyphenation \uppercase{#1}}\null}
 \def\ctrl #1{{\tt \rawbackslash \hat}#1}
 
+% @file, @option are the same as @samp.
 \let\file=\samp
-\let\url=\samp % perhaps include a hypertex \special eventually
-\def\email#1{$\langle${\tt #1}$\rangle$}
+\let\option=\samp
 
 % @code is a modification of @t,
 % which makes spaces the same size as normal in the surrounding text.
@@ -1287,43 +1316,117 @@ where each line of input produces a line of output.}
 % and arrange explicitly to hyphenate at a dash.
 %  -- rms.
 {
-\catcode`\-=\active
-\catcode`\_=\active
-\global\def\code{\begingroup \catcode`\-=\active \let-\codedash \catcode`\_=\active \let_\codeunder \codex}
-% The following is used by \doprintindex to insure that long function names
-% wrap around.  It is necessary for - and _ to be active before the index is
-% read from the file, as \entry parses the arguments long before \code is
-% ever called.  -- mycroft
-\global\def\indexbreaks{\catcode`\-=\active \let-\realdash \catcode`\_=\active \let_\realunder}
+  \catcode`\-=\active
+  \catcode`\_=\active
+  %
+  \global\def\code{\begingroup
+    \catcode`\-=\active \let-\codedash
+    \catcode`\_=\active \let_\codeunder
+    \codex
+  }
+  %
+  % If we end up with any active - characters when handling the index,
+  % just treat them as a normal -.
+  \global\def\indexbreaks{\catcode`\-=\active \let-\realdash}
 }
 
 \def\realdash{-}
-\def\realunder{_}
 \def\codedash{-\discretionary{}{}{}}
-\def\codeunder{\normalunderscore\discretionary{}{}{}}
+\def\codeunder{\ifusingtt{\normalunderscore\discretionary{}{}{}}{\_}}
 \def\codex #1{\tclose{#1}\endgroup}
 
 %\let\exp=\tclose  %Was temporary
 
 % @kbd is like @code, except that if the argument is just one @key command,
 % then @kbd has no effect.
-%
+
+% @kbdinputstyle -- arg is `distinct' (@kbd uses slanted tty font always),
+%   `example' (@kbd uses ttsl only inside of @example and friends),
+%   or `code' (@kbd uses normal tty font always).
+\def\kbdinputstyle{\parsearg\kbdinputstylexxx}
+\def\kbdinputstylexxx#1{%
+  \def\arg{#1}%
+  \ifx\arg\worddistinct
+    \gdef\kbdexamplefont{\ttsl}\gdef\kbdfont{\ttsl}%
+  \else\ifx\arg\wordexample
+    \gdef\kbdexamplefont{\ttsl}\gdef\kbdfont{\tt}%
+  \else\ifx\arg\wordcode
+    \gdef\kbdexamplefont{\tt}\gdef\kbdfont{\tt}%
+  \fi\fi\fi
+}
+\def\worddistinct{distinct}
+\def\wordexample{example}
+\def\wordcode{code}
+
+% Default is kbdinputdistinct.  (Too much of a hassle to call the macro,
+% the catcodes are wrong for parsearg to work.)
+\gdef\kbdexamplefont{\ttsl}\gdef\kbdfont{\ttsl}
+
 \def\xkey{\key}
 \def\kbdfoo#1#2#3\par{\def\one{#1}\def\three{#3}\def\threex{??}%
 \ifx\one\xkey\ifx\threex\three \key{#2}%
-\else{\tclose{\ttsl\look}}\fi
-\else{\tclose{\ttsl\look}}\fi}
+\else{\tclose{\kbdfont\look}}\fi
+\else{\tclose{\kbdfont\look}}\fi}
+
+% For @url, @env, @command quotes seem unnecessary, so use \code.
+\let\url=\code
+\let\env=\code
+\let\command=\code
+
+% @uref (abbreviation for `urlref') takes an optional (comma-separated)
+% second argument specifying the text to display and an optional third
+% arg as text to display instead of (rather than in addition to) the url
+% itself.  First (mandatory) arg is the url.  Perhaps eventually put in
+% a hypertex \special here.
+%
+\def\uref#1{\douref #1,,,\finish}
+\def\douref#1,#2,#3,#4\finish{\begingroup
+  \unsepspaces
+  \pdfurl{#1}%
+  \setbox0 = \hbox{\ignorespaces #3}%
+  \ifdim\wd0 > 0pt
+    \unhbox0 % third arg given, show only that
+  \else
+    \setbox0 = \hbox{\ignorespaces #2}%
+    \ifdim\wd0 > 0pt
+      \ifpdf
+        \unhbox0             % PDF: 2nd arg given, show only it
+      \else
+        \unhbox0\ (\code{#1})% DVI: 2nd arg given, show both it and url
+      \fi
+    \else
+      \code{#1}% only url given, so show it
+    \fi
+  \fi
+  \endlink
+\endgroup}
+
+% rms does not like angle brackets --karl, 17may97.
+% So now @email is just like @uref, unless we are pdf.
+% 
+%\def\email#1{\angleleft{\tt #1}\angleright}
+\ifpdf
+  \def\email#1{\doemail#1,,\finish}
+  \def\doemail#1,#2,#3\finish{\begingroup
+    \unsepspaces
+    \pdfurl{mailto:#1}%
+    \setbox0 = \hbox{\ignorespaces #2}%
+    \ifdim\wd0>0pt\unhbox0\else\code{#1}\fi
+    \endlink
+  \endgroup}
+\else
+  \let\email=\uref
+\fi
 
 % Check if we are currently using a typewriter font.  Since all the
 % Computer Modern typewriter fonts have zero interword stretch (and
 % shrink), and it is reasonable to expect all typewriter fonts to have
 % this property, we can check that font parameter.
-% 
+%
 \def\ifmonospace{\ifdim\fontdimen3\font=0pt }
 
 % Typeset a dimension, e.g., `in' or `pt'.  The only reason for the
-% argument is to make the input look right: @dmn{pt} instead of
-% @dmn{}pt.
+% argument is to make the input look right: @dmn{pt} instead of @dmn{}pt.
 %
 \def\dmn#1{\thinspace #1}
 
@@ -1334,11 +1437,14 @@ where each line of input produces a line of output.}
 % Polish suppressed-l.  --karl, 22sep96.
 %\def\l#1{{\li #1}\null}
 
+% Explicit font changes: @r, @sc, undocumented @ii.
 \def\r#1{{\rm #1}}              % roman font
-% Use of \lowercase was suggested.
 \def\sc#1{{\smallcaps#1}}       % smallcaps font
 \def\ii#1{{\it #1}}             % italic font
 
+% @acronym downcases the argument and prints in smallcaps.
+\def\acronym#1{{\smallcaps \lowercase{#1}}}
+
 % @pounds{} is a sterling sign.
 \def\pounds{{\it\$}}
 
@@ -1349,20 +1455,23 @@ where each line of input produces a line of output.}
 \newskip\titlepagebottomglue \titlepagebottomglue = 2pc
 
 % First the title page.  Must do @settitle before @titlepage.
-\def\titlefont#1{{\titlerm #1}}
-
 \newif\ifseenauthor
 \newif\iffinishedtitlepage
 
+% Do an implicit @contents or @shortcontents after @end titlepage if the
+% user says @setcontentsaftertitlepage or @setshortcontentsaftertitlepage.
+%
+\newif\ifsetcontentsaftertitlepage
+ \let\setcontentsaftertitlepage = \setcontentsaftertitlepagetrue
+\newif\ifsetshortcontentsaftertitlepage
+ \let\setshortcontentsaftertitlepage = \setshortcontentsaftertitlepagetrue
+
 \def\shorttitlepage{\parsearg\shorttitlepagezzz}
 \def\shorttitlepagezzz #1{\begingroup\hbox{}\vskip 1.5in \chaprm \centerline{#1}%
         \endgroup\page\hbox{}\page}
 
 \def\titlepage{\begingroup \parindent=0pt \textfonts
    \let\subtitlerm=\tenrm
-% I deinstalled the following change because \cmr12 is undefined.
-% This change was not in the ChangeLog anyway.  --rms.
-%   \let\subtitlerm=\cmr12
    \def\subtitlefont{\subtitlerm \normalbaselineskip = 13pt \normalbaselines}%
    %
    \def\authorfont{\authorrm \normalbaselineskip = 16pt \normalbaselines}%
@@ -1372,7 +1481,7 @@ where each line of input produces a line of output.}
    %
    % Now you can print the title using @title.
    \def\title{\parsearg\titlezzz}%
-   \def\titlezzz##1{\leftline{\titlefont{##1}}
+   \def\titlezzz##1{\leftline{\titlefonts\rm ##1}
                     % print a rule at the page bottom also.
                     \finishedtitlepagefalse
                     \vskip4pt \hrule height 4pt width \hsize \vskip4pt}%
@@ -1411,6 +1520,23 @@ where each line of input produces a line of output.}
    % after the title page, which we certainly don't want.
    \oldpage
    \endgroup
+   %
+   % If they want short, they certainly want long too.
+   \ifsetshortcontentsaftertitlepage
+     \shortcontents
+     \contents
+     \global\let\shortcontents = \relax
+     \global\let\contents = \relax
+   \fi
+   %
+   \ifsetcontentsaftertitlepage
+     \contents
+     \global\let\contents = \relax
+     \global\let\shortcontents = \relax
+   \fi
+   %
+   \ifpdf \pdfmakepagedesttrue \fi
+   %
    \HEADINGSon
 }
 
@@ -1424,10 +1550,10 @@ where each line of input produces a line of output.}
 
 \let\thispage=\folio
 
-\newtoks \evenheadline    % Token sequence for heading line of even pages
-\newtoks \oddheadline     % Token sequence for heading line of odd pages
-\newtoks \evenfootline    % Token sequence for footing line of even pages
-\newtoks \oddfootline     % Token sequence for footing line of odd pages
+\newtoks\evenheadline    % headline on even pages
+\newtoks\oddheadline     % headline on odd pages
+\newtoks\evenfootline    % footline on even pages
+\newtoks\oddfootline     % footline on odd pages
 
 % Now make Tex use those variables
 \headline={{\textfonts\rm \ifodd\pageno \the\oddheadline
@@ -1461,10 +1587,7 @@ where each line of input produces a line of output.}
 \gdef\oddheadingyyy #1@|#2@|#3@|#4\finish{%
 \global\oddheadline={\rlap{\centerline{#2}}\line{#1\hfil#3}}}
 
-\gdef\everyheadingxxx #1{\everyheadingyyy #1@|@|@|@|\finish}
-\gdef\everyheadingyyy #1@|#2@|#3@|#4\finish{%
-\global\evenheadline={\rlap{\centerline{#2}}\line{#1\hfil#3}}
-\global\oddheadline={\rlap{\centerline{#2}}\line{#1\hfil#3}}}
+\gdef\everyheadingxxx#1{\oddheadingxxx{#1}\evenheadingxxx{#1}}%
 
 \gdef\evenfootingxxx #1{\evenfootingyyy #1@|@|@|@|\finish}
 \gdef\evenfootingyyy #1@|#2@|#3@|#4\finish{%
@@ -1472,12 +1595,15 @@ where each line of input produces a line of output.}
 
 \gdef\oddfootingxxx #1{\oddfootingyyy #1@|@|@|@|\finish}
 \gdef\oddfootingyyy #1@|#2@|#3@|#4\finish{%
-\global\oddfootline={\rlap{\centerline{#2}}\line{#1\hfil#3}}}
+  \global\oddfootline = {\rlap{\centerline{#2}}\line{#1\hfil#3}}%
+  %
+  % Leave some space for the footline.  Hopefully ok to assume
+  % @evenfooting will not be used by itself.
+  \global\advance\pageheight by -\baselineskip
+  \global\advance\vsize by -\baselineskip
+}
 
-\gdef\everyfootingxxx #1{\everyfootingyyy #1@|@|@|@|\finish}
-\gdef\everyfootingyyy #1@|#2@|#3@|#4\finish{%
-\global\evenfootline={\rlap{\centerline{#2}}\line{#1\hfil#3}}
-\global\oddfootline={\rlap{\centerline{#2}}\line{#1\hfil#3}}}
+\gdef\everyfootingxxx#1{\oddfootingxxx{#1}\evenfootingxxx{#1}}
 %
 }% unbind the catcode of @.
 
@@ -1545,39 +1671,23 @@ where each line of input produces a line of output.}
 
 % Subroutines used in generating headings
 % Produces Day Month Year style of output.
-\def\today{\number\day\space
-\ifcase\month\or
-January\or February\or March\or April\or May\or June\or
-July\or August\or September\or October\or November\or December\fi
-\space\number\year}
-
-% Use this if you want the Month Day, Year style of output.
-%\def\today{\ifcase\month\or
-%January\or February\or March\or April\or May\or June\or
-%July\or August\or September\or October\or November\or December\fi
-%\space\number\day, \number\year}
-
-% @settitle line...  specifies the title of the document, for headings
-% It generates no output of its own
-
-\def\thistitle{No Title}
+\def\today{%
+  \number\day\space
+  \ifcase\month
+  \or\putwordMJan\or\putwordMFeb\or\putwordMMar\or\putwordMApr
+  \or\putwordMMay\or\putwordMJun\or\putwordMJul\or\putwordMAug
+  \or\putwordMSep\or\putwordMOct\or\putwordMNov\or\putwordMDec
+  \fi
+  \space\number\year}
+
+% @settitle line...  specifies the title of the document, for headings.
+% It generates no output of its own.
+\def\thistitle{\putwordNoTitle}
 \def\settitle{\parsearg\settitlezzz}
 \def\settitlezzz #1{\gdef\thistitle{#1}}
 
 
 \message{tables,}
-
-% @tabs -- simple alignment
-
-% These don't work.  For one thing, \+ is defined as outer.
-% So these macros cannot even be defined.
-
-%\def\tabs{\parsearg\tabszzz}
-%\def\tabszzz #1{\settabs\+#1\cr}
-%\def\tabline{\parsearg\tablinezzz}
-%\def\tablinezzz #1{\+#1\cr}
-%\def\&{&}
-
 % Tables -- @table, @ftable, @vtable, @item(x), @kitem(x), @xitem(x).
 
 % default indentation of table text
@@ -1621,11 +1731,6 @@ July\or August\or September\or October\or November\or December\fi
   \itemindex{#1}%
   \nobreak % This prevents a break before @itemx.
   %
-  % Be sure we are not still in the middle of a paragraph.
-  %{\parskip = 0in
-  %\par
-  %}%
-  %
   % If the item text does not fit in the space we have, put it on a line
   % by itself, and do not allow a page break either before or after that
   % line.  We do not start a paragraph here because then if the next
@@ -1654,13 +1759,17 @@ July\or August\or September\or October\or November\or December\fi
     \itemxneedsnegativevskipfalse
   \else
     % The item text fits into the space.  Start a paragraph, so that the
-    % following text (if any) will end up on the same line.  Since that
-    % text will be indented by \tableindent, we make the item text be in
-    % a zero-width box.
+    % following text (if any) will end up on the same line.
     \noindent
-    \rlap{\hskip -\tableindent\box0}\ignorespaces%
-    \endgroup%
-    \itemxneedsnegativevskiptrue%
+    % Do this with kerns and \unhbox so that if there is a footnote in
+    % the item text, it can migrate to the main vertical list and
+    % eventually be printed.
+    \nobreak\kern-\tableindent
+    \dimen0 = \itemmax  \advance\dimen0 by \itemmargin \advance\dimen0 by -\wd0
+    \unhbox0
+    \nobreak\kern\dimen0
+    \endgroup
+    \itemxneedsnegativevskiptrue
   \fi
 }
 
@@ -1671,9 +1780,10 @@ July\or August\or September\or October\or November\or December\fi
 \def\xitem{\errmessage{@xitem while not in a table}}
 \def\xitemx{\errmessage{@xitemx while not in a table}}
 
-%% Contains a kludge to get @end[description] to work
+% Contains a kludge to get @end[description] to work.
 \def\description{\tablez{\dontindex}{1}{}{}{}{}}
 
+% @table, @ftable, @vtable.
 \def\table{\begingroup\inENV\obeylines\obeyspaces\tablex}
 {\obeylines\obeyspaces%
 \gdef\tablex #1^^M{%
@@ -1733,7 +1843,7 @@ July\or August\or September\or October\or November\or December\fi
 \def\itemize{\parsearg\itemizezzz}
 
 \def\itemizezzz #1{%
-  \begingroup % ended by the @end itemsize
+  \begingroup % ended by the @end itemize
   \itemizey {#1}{\Eitemize}
 }
 
@@ -1861,7 +1971,7 @@ July\or August\or September\or October\or November\or December\fi
 \def\itemizeitem{%
 \advance\itemno by 1
 {\let\par=\endgraf \smallbreak}%
-\ifhmode \errmessage{\in hmode at itemizeitem}\fi
+\ifhmode \errmessage{In hmode at itemizeitem}\fi
 {\parskip=0in \hskip 0pt
 \hbox to 0pt{\hss \itemcontents\hskip \itemmargin}%
 \vadjust{\penalty 1200}}%
@@ -1879,7 +1989,7 @@ July\or August\or September\or October\or November\or December\fi
 
 % To make preamble:
 %
-% Either define widths of columns in terms of percent of \hsize: 
+% Either define widths of columns in terms of percent of \hsize:
 %   @multitable @columnfractions .25 .3 .45
 %   @item ...
 %
@@ -1897,13 +2007,13 @@ July\or August\or September\or October\or November\or December\fi
 % the preamble, break the line within one argument and it
 % will parse correctly, i.e.,
 %
-%     @multitable {Column 1 template} {Column 2 template} {Column 3 
+%     @multitable {Column 1 template} {Column 2 template} {Column 3
 %      template}
 % Not:
-%     @multitable {Column 1 template} {Column 2 template} 
+%     @multitable {Column 1 template} {Column 2 template}
 %      {Column 3 template}
 
-% Each new table line starts with @item, each subsequent new column 
+% Each new table line starts with @item, each subsequent new column
 % starts with @tab. Empty columns may be produced by supplying @tab's
 % with nothing between them for as many times as empty columns are needed,
 % ie, @tab@tab@tab will produce two empty columns.
@@ -1915,15 +2025,15 @@ July\or August\or September\or October\or November\or December\fi
 
 %   @multitable {Column 1 template} {Column 2 template} {Column 3 template}
 %   @item first col stuff @tab second col stuff @tab third col
-%   @item 
-%   first col stuff 
-%   @tab 
-%   second col stuff 
-%   @tab 
-%   third col 
-%   @item first col stuff @tab second col stuff 
+%   @item
+%   first col stuff
+%   @tab
+%   second col stuff
+%   @tab
+%   third col
+%   @item first col stuff @tab second col stuff
 %   @tab Many paragraphs of text may be used in any column.
-%     
+%
 %         They will wrap at the width determined by the template.
 %   @item@tab@tab This will be in third column.
 %   @end multitable
@@ -1935,10 +2045,7 @@ July\or August\or September\or October\or November\or December\fi
 % @multitablelinespace is space to leave between table items, baseline
 %                                                            to baseline.
 %   0pt means it depends on current normal line spacing.
-
-%%%%
-% Dimensions 
-
+%
 \newskip\multitableparskip
 \newskip\multitableparindent
 \newdimen\multitablecolspace
@@ -1948,127 +2055,510 @@ July\or August\or September\or October\or November\or December\fi
 \multitablecolspace=12pt
 \multitablelinespace=0pt
 
-%%%%
-% Macros used to set up halign preamble:
-\let\endsetuptable\relax
-\def\xendsetuptable{\endsetuptable}
-\let\columnfractions\relax
-\def\xcolumnfractions{\columnfractions}
-\newif\ifsetpercent
+% Macros used to set up halign preamble:
+%
+\let\endsetuptable\relax
+\def\xendsetuptable{\endsetuptable}
+\let\columnfractions\relax
+\def\xcolumnfractions{\columnfractions}
+\newif\ifsetpercent
+
+% #1 is the part of the @columnfraction before the decimal point, which
+% is presumably either 0 or the empty string (but we don't check, we
+% just throw it away).  #2 is the decimal part, which we use as the
+% percent of \hsize for this column.
+\def\pickupwholefraction#1.#2 {%
+  \global\advance\colcount by 1
+  \expandafter\xdef\csname col\the\colcount\endcsname{.#2\hsize}%
+  \setuptable
+}
+
+\newcount\colcount
+\def\setuptable#1{%
+  \def\firstarg{#1}%
+  \ifx\firstarg\xendsetuptable
+    \let\go = \relax
+  \else
+    \ifx\firstarg\xcolumnfractions
+      \global\setpercenttrue
+    \else
+      \ifsetpercent
+         \let\go\pickupwholefraction
+      \else
+         \global\advance\colcount by 1
+         \setbox0=\hbox{#1\unskip }% Add a normal word space as a separator;
+                            % typically that is always in the input, anyway.
+         \expandafter\xdef\csname col\the\colcount\endcsname{\the\wd0}%
+      \fi
+    \fi
+    \ifx\go\pickupwholefraction
+      % Put the argument back for the \pickupwholefraction call, so
+      % we'll always have a period there to be parsed.
+      \def\go{\pickupwholefraction#1}%
+    \else
+      \let\go = \setuptable
+    \fi%
+  \fi
+  \go
+}
+
+% This used to have \hskip1sp.  But then the space in a template line is
+% not enough.  That is bad.  So let's go back to just & until we
+% encounter the problem it was intended to solve again.
+% --karl, nathan@acm.org, 20apr99.
+\def\tab{&}
+
+% @multitable ... @end multitable definitions:
+%
+\def\multitable{\parsearg\dotable}
+\def\dotable#1{\bgroup
+  \vskip\parskip
+  \let\item\crcr
+  \tolerance=9500
+  \hbadness=9500
+  \setmultitablespacing
+  \parskip=\multitableparskip
+  \parindent=\multitableparindent
+  \overfullrule=0pt
+  \global\colcount=0
+  \def\Emultitable{\global\setpercentfalse\cr\egroup\egroup}%
+  %
+  % To parse everything between @multitable and @item:
+  \setuptable#1 \endsetuptable
+  %
+  % \everycr will reset column counter, \colcount, at the end of
+  % each line. Every column entry will cause \colcount to advance by one.
+  % The table preamble
+  % looks at the current \colcount to find the correct column width.
+  \everycr{\noalign{%
+  %
+  % \filbreak%% keeps underfull box messages off when table breaks over pages.
+  % Maybe so, but it also creates really weird page breaks when the table
+  % breaks over pages. Wouldn't \vfil be better?  Wait until the problem
+  % manifests itself, so it can be fixed for real --karl.
+    \global\colcount=0\relax}}%
+  %
+  % This preamble sets up a generic column definition, which will
+  % be used as many times as user calls for columns.
+  % \vtop will set a single line and will also let text wrap and
+  % continue for many paragraphs if desired.
+  \halign\bgroup&\global\advance\colcount by 1\relax
+    \multistrut\vtop{\hsize=\expandafter\csname col\the\colcount\endcsname
+  %
+  % In order to keep entries from bumping into each other
+  % we will add a \leftskip of \multitablecolspace to all columns after
+  % the first one.
+  %
+  % If a template has been used, we will add \multitablecolspace
+  % to the width of each template entry.
+  %
+  % If the user has set preamble in terms of percent of \hsize we will
+  % use that dimension as the width of the column, and the \leftskip
+  % will keep entries from bumping into each other.  Table will start at
+  % left margin and final column will justify at right margin.
+  %
+  % Make sure we don't inherit \rightskip from the outer environment.
+  \rightskip=0pt
+  \ifnum\colcount=1
+    % The first column will be indented with the surrounding text.
+    \advance\hsize by\leftskip
+  \else
+    \ifsetpercent \else
+      % If user has not set preamble in terms of percent of \hsize
+      % we will advance \hsize by \multitablecolspace.
+      \advance\hsize by \multitablecolspace
+    \fi
+   % In either case we will make \leftskip=\multitablecolspace:
+  \leftskip=\multitablecolspace
+  \fi
+  % Ignoring space at the beginning and end avoids an occasional spurious
+  % blank line, when TeX decides to break the line at the space before the
+  % box from the multistrut, so the strut ends up on a line by itself.
+  % For example:
+  % @multitable @columnfractions .11 .89
+  % @item @code{#}
+  % @tab Legal holiday which is valid in major parts of the whole country.
+  % Is automatically provided with highlighting sequences respectively marking
+  % characters.
+  \noindent\ignorespaces##\unskip\multistrut}\cr
+}
+
+\def\setmultitablespacing{% test to see if user has set \multitablelinespace.
+% If so, do nothing. If not, give it an appropriate dimension based on
+% current baselineskip.
+\ifdim\multitablelinespace=0pt
+\setbox0=\vbox{X}\global\multitablelinespace=\the\baselineskip
+\global\advance\multitablelinespace by-\ht0
+%% strut to put in table in case some entry doesn't have descenders,
+%% to keep lines equally spaced
+\let\multistrut = \strut
+\else
+%% FIXME: what is \box0 supposed to be?
+\gdef\multistrut{\vrule height\multitablelinespace depth\dp0
+width0pt\relax} \fi
+%% Test to see if parskip is larger than space between lines of
+%% table. If not, do nothing.
+%%        If so, set to same dimension as multitablelinespace.
+\ifdim\multitableparskip>\multitablelinespace
+\global\multitableparskip=\multitablelinespace
+\global\advance\multitableparskip-7pt %% to keep parskip somewhat smaller
+                                      %% than skip between lines in the table.
+\fi%
+\ifdim\multitableparskip=0pt
+\global\multitableparskip=\multitablelinespace
+\global\advance\multitableparskip-7pt %% to keep parskip somewhat smaller
+                                      %% than skip between lines in the table.
+\fi}
+
+
+\message{conditionals,}
+% Prevent errors for section commands.
+% Used in @ignore and in failing conditionals.
+\def\ignoresections{%
+  \let\chapter=\relax
+  \let\unnumbered=\relax
+  \let\top=\relax
+  \let\unnumberedsec=\relax
+  \let\unnumberedsection=\relax
+  \let\unnumberedsubsec=\relax
+  \let\unnumberedsubsection=\relax
+  \let\unnumberedsubsubsec=\relax
+  \let\unnumberedsubsubsection=\relax
+  \let\section=\relax
+  \let\subsec=\relax
+  \let\subsubsec=\relax
+  \let\subsection=\relax
+  \let\subsubsection=\relax
+  \let\appendix=\relax
+  \let\appendixsec=\relax
+  \let\appendixsection=\relax
+  \let\appendixsubsec=\relax
+  \let\appendixsubsection=\relax
+  \let\appendixsubsubsec=\relax
+  \let\appendixsubsubsection=\relax
+  \let\contents=\relax
+  \let\smallbook=\relax
+  \let\titlepage=\relax
+}
+
+% Used in nested conditionals, where we have to parse the Texinfo source
+% and so want to turn off most commands, in case they are used
+% incorrectly.
+%
+\def\ignoremorecommands{%
+  \let\defcodeindex = \relax
+  \let\defcv = \relax
+  \let\deffn = \relax
+  \let\deffnx = \relax
+  \let\defindex = \relax
+  \let\defivar = \relax
+  \let\defmac = \relax
+  \let\defmethod = \relax
+  \let\defop = \relax
+  \let\defopt = \relax
+  \let\defspec = \relax
+  \let\deftp = \relax
+  \let\deftypefn = \relax
+  \let\deftypefun = \relax
+  \let\deftypeivar = \relax
+  \let\deftypeop = \relax
+  \let\deftypevar = \relax
+  \let\deftypevr = \relax
+  \let\defun = \relax
+  \let\defvar = \relax
+  \let\defvr = \relax
+  \let\ref = \relax
+  \let\xref = \relax
+  \let\printindex = \relax
+  \let\pxref = \relax
+  \let\settitle = \relax
+  \let\setchapternewpage = \relax
+  \let\setchapterstyle = \relax
+  \let\everyheading = \relax
+  \let\evenheading = \relax
+  \let\oddheading = \relax
+  \let\everyfooting = \relax
+  \let\evenfooting = \relax
+  \let\oddfooting = \relax
+  \let\headings = \relax
+  \let\include = \relax
+  \let\lowersections = \relax
+  \let\down = \relax
+  \let\raisesections = \relax
+  \let\up = \relax
+  \let\set = \relax
+  \let\clear = \relax
+  \let\item = \relax
+}
+
+% Ignore @ignore ... @end ignore.
+%
+\def\ignore{\doignore{ignore}}
+
+% Ignore @ifinfo, @ifhtml, @ifnottex, @html, @menu, and @direntry text.
+%
+\def\ifinfo{\doignore{ifinfo}}
+\def\ifhtml{\doignore{ifhtml}}
+\def\ifnottex{\doignore{ifnottex}}
+\def\html{\doignore{html}}
+\def\menu{\doignore{menu}}
+\def\direntry{\doignore{direntry}}
+
+% @dircategory CATEGORY  -- specify a category of the dir file
+% which this file should belong to.  Ignore this in TeX.
+\let\dircategory = \comment
+
+% Ignore text until a line `@end #1'.
+%
+\def\doignore#1{\begingroup
+  % Don't complain about control sequences we have declared \outer.
+  \ignoresections
+  %
+  % Define a command to swallow text until we reach `@end #1'.
+  % This @ is a catcode 12 token (that is the normal catcode of @ in
+  % this texinfo.tex file).  We change the catcode of @ below to match.
+  \long\def\doignoretext##1@end #1{\enddoignore}%
+  %
+  % Make sure that spaces turn into tokens that match what \doignoretext wants.
+  \catcode32 = 10
+  %
+  % Ignore braces, too, so mismatched braces don't cause trouble.
+  \catcode`\{ = 9
+  \catcode`\} = 9
+  %
+  % We must not have @c interpreted as a control sequence.
+  \catcode`\@ = 12
+  %
+  % Make the letter c a comment character so that the rest of the line
+  % will be ignored. This way, the document can have (for example)
+  %   @c @end ifinfo
+  % and the @end ifinfo will be properly ignored.
+  % (We've just changed @ to catcode 12.)
+  \catcode`\c = 14
+  %
+  % And now expand that command.
+  \doignoretext
+}
+
+% What we do to finish off ignored text.
+%
+\def\enddoignore{\endgroup\ignorespaces}%
+
+\newif\ifwarnedobs\warnedobsfalse
+\def\obstexwarn{%
+  \ifwarnedobs\relax\else
+  % We need to warn folks that they may have trouble with TeX 3.0.
+  % This uses \immediate\write16 rather than \message to get newlines.
+    \immediate\write16{}
+    \immediate\write16{WARNING: for users of Unix TeX 3.0!}
+    \immediate\write16{This manual trips a bug in TeX version 3.0 (tex hangs).}
+    \immediate\write16{If you are running another version of TeX, relax.}
+    \immediate\write16{If you are running Unix TeX 3.0, kill this TeX process.}
+    \immediate\write16{  Then upgrade your TeX installation if you can.}
+    \immediate\write16{  (See ftp://ftp.gnu.org/pub/gnu/TeX.README.)}
+    \immediate\write16{If you are stuck with version 3.0, run the}
+    \immediate\write16{  script ``tex3patch'' from the Texinfo distribution}
+    \immediate\write16{  to use a workaround.}
+    \immediate\write16{}
+    \global\warnedobstrue
+    \fi
+}
+
+% **In TeX 3.0, setting text in \nullfont hangs tex.  For a
+% workaround (which requires the file ``dummy.tfm'' to be installed),
+% uncomment the following line:
+%%%%%\font\nullfont=dummy\let\obstexwarn=\relax
+
+% Ignore text, except that we keep track of conditional commands for
+% purposes of nesting, up to an `@end #1' command.
+%
+\def\nestedignore#1{%
+  \obstexwarn
+  % We must actually expand the ignored text to look for the @end
+  % command, so that nested ignore constructs work.  Thus, we put the
+  % text into a \vbox and then do nothing with the result.  To minimize
+  % the change of memory overflow, we follow the approach outlined on
+  % page 401 of the TeXbook: make the current font be a dummy font.
+  %
+  \setbox0 = \vbox\bgroup
+    % Don't complain about control sequences we have declared \outer.
+    \ignoresections
+    %
+    % Define `@end #1' to end the box, which will in turn undefine the
+    % @end command again.
+    \expandafter\def\csname E#1\endcsname{\egroup\ignorespaces}%
+    %
+    % We are going to be parsing Texinfo commands.  Most cause no
+    % trouble when they are used incorrectly, but some commands do
+    % complicated argument parsing or otherwise get confused, so we
+    % undefine them.
+    %
+    % We can't do anything about stray @-signs, unfortunately;
+    % they'll produce `undefined control sequence' errors.
+    \ignoremorecommands
+    %
+    % Set the current font to be \nullfont, a TeX primitive, and define
+    % all the font commands to also use \nullfont.  We don't use
+    % dummy.tfm, as suggested in the TeXbook, because not all sites
+    % might have that installed.  Therefore, math mode will still
+    % produce output, but that should be an extremely small amount of
+    % stuff compared to the main input.
+    %
+    \nullfont
+    \let\tenrm=\nullfont \let\tenit=\nullfont \let\tensl=\nullfont
+    \let\tenbf=\nullfont \let\tentt=\nullfont \let\smallcaps=\nullfont
+    \let\tensf=\nullfont
+    % Similarly for index fonts (mostly for their use in smallexample).
+    \let\smallrm=\nullfont \let\smallit=\nullfont \let\smallsl=\nullfont
+    \let\smallbf=\nullfont \let\smalltt=\nullfont \let\smallsc=\nullfont
+    \let\smallsf=\nullfont
+    %
+    % Don't complain when characters are missing from the fonts.
+    \tracinglostchars = 0
+    %
+    % Don't bother to do space factor calculations.
+    \frenchspacing
+    %
+    % Don't report underfull hboxes.
+    \hbadness = 10000
+    %
+    % Do minimal line-breaking.
+    \pretolerance = 10000
+    %
+    % Do not execute instructions in @tex
+    \def\tex{\doignore{tex}}%
+    % Do not execute macro definitions.
+    % `c' is a comment character, so the word `macro' will get cut off.
+    \def\macro{\doignore{ma}}%
+}
+
+% @set VAR sets the variable VAR to an empty value.
+% @set VAR REST-OF-LINE sets VAR to the value REST-OF-LINE.
+%
+% Since we want to separate VAR from REST-OF-LINE (which might be
+% empty), we can't just use \parsearg; we have to insert a space of our
+% own to delimit the rest of the line, and then take it out again if we
+% didn't need it.  Make sure the catcode of space is correct to avoid
+% losing inside @example, for instance.
+%
+\def\set{\begingroup\catcode` =10
+  \catcode`\-=12 \catcode`\_=12 % Allow - and _ in VAR.
+  \parsearg\setxxx}
+\def\setxxx#1{\setyyy#1 \endsetyyy}
+\def\setyyy#1 #2\endsetyyy{%
+  \def\temp{#2}%
+  \ifx\temp\empty \global\expandafter\let\csname SET#1\endcsname = \empty
+  \else \setzzz{#1}#2\endsetzzz % Remove the trailing space \setxxx inserted.
+  \fi
+  \endgroup
+}
+% Can't use \xdef to pre-expand #2 and save some time, since \temp or
+% \next or other control sequences that we've defined might get us into
+% an infinite loop. Consider `@set foo @cite{bar}'.
+\def\setzzz#1#2 \endsetzzz{\expandafter\gdef\csname SET#1\endcsname{#2}}
 
-%% 2/1/96, to allow fractions to be given with more than one digit.
-\def\pickupwholefraction#1 {\global\advance\colcount by1 %
-\expandafter\xdef\csname col\the\colcount\endcsname{.#1\hsize}%
-\setuptable}
+% @clear VAR clears (i.e., unsets) the variable VAR.
+%
+\def\clear{\parsearg\clearxxx}
+\def\clearxxx#1{\global\expandafter\let\csname SET#1\endcsname=\relax}
 
-\newcount\colcount
-\def\setuptable#1{\def\firstarg{#1}%
-\ifx\firstarg\xendsetuptable\let\go\relax%
-\else
-  \ifx\firstarg\xcolumnfractions\global\setpercenttrue%
+% @value{foo} gets the text saved in variable foo.
+{
+  \catcode`\_ = \active
+  %
+  % We might end up with active _ or - characters in the argument if
+  % we're called from @code, as @code{@value{foo-bar_}}.  So \let any
+  % such active characters to their normal equivalents.
+  \gdef\value{\begingroup
+    \catcode`\-=12 \catcode`\_=12
+    \indexbreaks \let_\normalunderscore
+    \valuexxx}
+}
+\def\valuexxx#1{\expandablevalue{#1}\endgroup}
+
+% We have this subroutine so that we can handle at least some @value's
+% properly in indexes (we \let\value to this in \indexdummies).  Ones
+% whose names contain - or _ still won't work, but we can't do anything
+% about that.  The command has to be fully expandable, since the result
+% winds up in the index file.  This means that if the variable's value
+% contains other Texinfo commands, it's almost certain it will fail
+% (although perhaps we could fix that with sufficient work to do a
+% one-level expansion on the result, instead of complete).
+%
+\def\expandablevalue#1{%
+  \expandafter\ifx\csname SET#1\endcsname\relax
+    {[No value for ``#1'']}%
   \else
-    \ifsetpercent
-       \let\go\pickupwholefraction   % In this case arg of setuptable
-                                     % is the decimal point before the
-                                     % number given in percent of hsize.
-                                     % We don't need this so we don't use it.
-    \else
-       \global\advance\colcount by1
-       \setbox0=\hbox{#1 }% Add a normal word space as a separator;
-                          % typically that is always in the input, anyway.
-       \expandafter\xdef\csname col\the\colcount\endcsname{\the\wd0}%
-    \fi%
-  \fi%
-\ifx\go\pickupwholefraction\else\let\go\setuptable\fi%
-\fi\go}
-
-%%%%
-% multitable syntax
-\def\tab{&\hskip1sp\relax} % 2/2/96
-                           % tiny skip here makes sure this column space is
-                           % maintained, even if it is never used.
-
-
-%%%%
-% @multitable ... @end multitable definitions:
+    \csname SET#1\endcsname
+  \fi
+}
 
-\def\multitable{\parsearg\dotable}
+% @ifset VAR ... @end ifset reads the `...' iff VAR has been defined
+% with @set.
+%
+\def\ifset{\parsearg\ifsetxxx}
+\def\ifsetxxx #1{%
+  \expandafter\ifx\csname SET#1\endcsname\relax
+    \expandafter\ifsetfail
+  \else
+    \expandafter\ifsetsucceed
+  \fi
+}
+\def\ifsetsucceed{\conditionalsucceed{ifset}}
+\def\ifsetfail{\nestedignore{ifset}}
+\defineunmatchedend{ifset}
 
-\def\dotable#1{\bgroup
-\let\item\cr
-\tolerance=9500
-\hbadness=9500
-\setmultitablespacing
-\parskip=\multitableparskip
-\parindent=\multitableparindent
-\overfullrule=0pt
-\global\colcount=0\relax%
-\def\Emultitable{\global\setpercentfalse\global\everycr{}\cr\egroup\egroup}%
- % To parse everything between @multitable and @item :
-\setuptable#1 \endsetuptable
- % Need to reset this to 0 after \setuptable.
-\global\colcount=0\relax% 
- %
- % This preamble sets up a generic column definition, which will
- % be used as many times as user calls for columns.
- % \vtop will set a single line and will also let text wrap and 
- % continue for many paragraphs if desired.
-\halign\bgroup&\global\advance\colcount by 1\relax%
-\multistrut\vtop{\hsize=\expandafter\csname col\the\colcount\endcsname
- % In order to keep entries from bumping into each other
- % we will add a \leftskip of \multitablecolspace to all columns after
- % the first one.
- %  If a template has been used, we will add \multitablecolspace 
- % to the width of each template entry.
- %  If user has set preamble in terms of percent of \hsize
- % we will use that dimension as the width of the column, and
- % the \leftskip will keep entries from bumping into each other.
- % Table will start at left margin and final column will justify at
- % right margin.
-\ifnum\colcount=1
-\else
-  \ifsetpercent
+% @ifclear VAR ... @end ifclear reads the `...' iff VAR has never been
+% defined with @set, or has been undefined with @clear.
+%
+\def\ifclear{\parsearg\ifclearxxx}
+\def\ifclearxxx #1{%
+  \expandafter\ifx\csname SET#1\endcsname\relax
+    \expandafter\ifclearsucceed
   \else
-   % If user has <not> set preamble in terms of percent of \hsize
-   % we will advance \hsize by \multitablecolspace 
-  \advance\hsize by \multitablecolspace
+    \expandafter\ifclearfail
   \fi
- % In either case we will make \leftskip=\multitablecolspace:
-\leftskip=\multitablecolspace
-\fi
-\noindent##\multistrut}\cr%
- % \everycr will reset column counter, \colcount, at the end of
- % each line. Every column  entry will cause \colcount to advance by one. 
- % The table preamble
- % looks at the current \colcount to find the correct column width.
-\global\everycr{\noalign{%
-\filbreak%% keeps underfull box messages off when table breaks over pages.
-\global\colcount=0\relax}}
 }
+\def\ifclearsucceed{\conditionalsucceed{ifclear}}
+\def\ifclearfail{\nestedignore{ifclear}}
+\defineunmatchedend{ifclear}
 
-\def\setmultitablespacing{% test to see if user has set \multitablelinespace.
-% If so, do nothing. If not, give it an appropriate dimension based on
-% current baselineskip.
-\ifdim\multitablelinespace=0pt
-%% strut to put in table in case some entry doesn't have descenders,
-%% to keep lines equally spaced
-\let\multistrut = \strut
-%% Test to see if parskip is larger than space between lines of
-%% table. If not, do nothing. 
-%%        If so, set to same dimension as multitablelinespace.
-\else
-\gdef\multistrut{\vrule height\multitablelinespace depth\dp0
-width0pt\relax} \fi
-\ifdim\multitableparskip>\multitablelinespace
-\global\multitableparskip=\multitablelinespace
-\global\advance\multitableparskip-7pt %% to keep parskip somewhat smaller
-                                      %% than skip between lines in the table.
-\fi%
-\ifdim\multitableparskip=0pt
-\global\multitableparskip=\multitablelinespace
-\global\advance\multitableparskip-7pt %% to keep parskip somewhat smaller
-                                      %% than skip between lines in the table.
-\fi}
+% @iftex, @ifnothtml, @ifnotinfo always succeed; we read the text
+% following, through the first @end iftex (etc.).  Make `@end iftex'
+% (etc.) valid only after an @iftex.
+%
+\def\iftex{\conditionalsucceed{iftex}}
+\def\ifnothtml{\conditionalsucceed{ifnothtml}}
+\def\ifnotinfo{\conditionalsucceed{ifnotinfo}}
+\defineunmatchedend{iftex}
+\defineunmatchedend{ifnothtml}
+\defineunmatchedend{ifnotinfo}
+
+% We can't just want to start a group at @iftex (for example) and end it
+% at @end iftex, since then @set commands inside the conditional have no
+% effect (they'd get reverted at the end of the group).  So we must
+% define \Eiftex to redefine itself to be its previous value.  (We can't
+% just define it to fail again with an ``unmatched end'' error, since
+% the @ifset might be nested.)
+%
+\def\conditionalsucceed#1{%
+  \edef\temp{%
+    % Remember the current value of \E#1.
+    \let\nece{prevE#1} = \nece{E#1}%
+    %
+    % At the `@end #1', redefine \E#1 to be its previous value.
+    \def\nece{E#1}{\let\nece{E#1} = \nece{prevE#1}}%
+  }%
+  \temp
+}
+
+% We need to expand lots of \csname's, but we don't want to expand the
+% control sequences after we've constructed them.
+%
+\def\nece#1{\expandafter\noexpand\csname#1\endcsname}
+
+% @defininfoenclose.
+\let\definfoenclose=\comment
 
 
 \message{indexing,}
@@ -2086,12 +2576,14 @@ width0pt\relax} \fi
 % the file that accumulates this index.  The file's extension is foo.
 % The name of an index should be no more than 2 characters long
 % for the sake of vms.
-
-\def\newindex #1{
-\expandafter\newwrite \csname#1indfile\endcsname% Define number for output file
-\openout \csname#1indfile\endcsname \jobname.#1 % Open the file
-\expandafter\xdef\csname#1index\endcsname{%     % Define \xxxindex
-\noexpand\doindex {#1}}
+%
+\def\newindex#1{%
+  \iflinks
+    \expandafter\newwrite \csname#1indfile\endcsname
+    \openout \csname#1indfile\endcsname \jobname.#1 % Open the file
+  \fi
+  \expandafter\xdef\csname#1index\endcsname{%     % Define @#1index
+    \noexpand\doindex{#1}}
 }
 
 % @defindex foo  ==  \newindex{foo}
@@ -2100,31 +2592,37 @@ width0pt\relax} \fi
 
 % Define @defcodeindex, like @defindex except put all entries in @code.
 
-\def\newcodeindex #1{
-\expandafter\newwrite \csname#1indfile\endcsname% Define number for output file
-\openout \csname#1indfile\endcsname \jobname.#1 % Open the file
-\expandafter\xdef\csname#1index\endcsname{%     % Define \xxxindex
-\noexpand\docodeindex {#1}}
+\def\newcodeindex#1{%
+  \iflinks
+    \expandafter\newwrite \csname#1indfile\endcsname
+    \openout \csname#1indfile\endcsname \jobname.#1
+  \fi
+  \expandafter\xdef\csname#1index\endcsname{%
+    \noexpand\docodeindex{#1}}
 }
 
 \def\defcodeindex{\parsearg\newcodeindex}
 
 % @synindex foo bar    makes index foo feed into index bar.
 % Do this instead of @defindex foo if you don't want it as a separate index.
-\def\synindex #1 #2 {%
-\expandafter\let\expandafter\synindexfoo\expandafter=\csname#2indfile\endcsname
-\expandafter\let\csname#1indfile\endcsname=\synindexfoo
-\expandafter\xdef\csname#1index\endcsname{%     % Define \xxxindex
-\noexpand\doindex {#2}}%
+% The \closeout helps reduce unnecessary open files; the limit on the
+% Acorn RISC OS is a mere 16 files.
+\def\synindex#1 #2 {%
+  \expandafter\let\expandafter\synindexfoo\expandafter=\csname#2indfile\endcsname
+  \expandafter\closeout\csname#1indfile\endcsname
+  \expandafter\let\csname#1indfile\endcsname=\synindexfoo
+  \expandafter\xdef\csname#1index\endcsname{% define \xxxindex
+    \noexpand\doindex{#2}}%
 }
 
 % @syncodeindex foo bar   similar, but put all entries made for index foo
 % inside @code.
-\def\syncodeindex #1 #2 {%
-\expandafter\let\expandafter\synindexfoo\expandafter=\csname#2indfile\endcsname
-\expandafter\let\csname#1indfile\endcsname=\synindexfoo
-\expandafter\xdef\csname#1index\endcsname{%     % Define \xxxindex
-\noexpand\docodeindex {#2}}%
+\def\syncodeindex#1 #2 {%
+  \expandafter\let\expandafter\synindexfoo\expandafter=\csname#2indfile\endcsname
+  \expandafter\closeout\csname#1indfile\endcsname
+  \expandafter\let\csname#1indfile\endcsname=\synindexfoo
+  \expandafter\xdef\csname#1index\endcsname{% define \xxxindex
+    \noexpand\docodeindex{#2}}%
 }
 
 % Define \doindex, the driver for all \fooindex macros.
@@ -2145,6 +2643,7 @@ width0pt\relax} \fi
 \def\singlecodeindexer #1{\doind{\indexname}{\code{#1}}}
 
 \def\indexdummies{%
+\def\ { }%
 % Take care of the plain tex accent commands.
 \def\"{\realbackslash "}%
 \def\`{\realbackslash `}%
@@ -2174,8 +2673,11 @@ width0pt\relax} \fi
 % (Must be a way to avoid doing expansion at all, and thus not have to
 % laboriously list every single command here.)
 \def\@{@}% will be @@ when we switch to @ as escape char.
-%\let\{ = \lbracecmd
-%\let\} = \rbracecmd
+% Need these in case \tex is in effect and \{ is a \delimiter again.
+% But can't use \lbracecmd and \rbracecmd because texindex assumes
+% braces and backslashes are used only as delimiters.  
+\let\{ = \mylbrace
+\let\} = \myrbrace
 \def\_{{\realbackslash _}}%
 \def\w{\realbackslash w }%
 \def\bf{\realbackslash bf }%
@@ -2186,12 +2688,22 @@ width0pt\relax} \fi
 \def\gtr{\realbackslash gtr}%
 \def\less{\realbackslash less}%
 \def\hat{\realbackslash hat}%
-%\def\char{\realbackslash char}%
 \def\TeX{\realbackslash TeX}%
 \def\dots{\realbackslash dots }%
-\def\copyright{\realbackslash copyright }%
+\def\result{\realbackslash result}%
+\def\equiv{\realbackslash equiv}%
+\def\expansion{\realbackslash expansion}%
+\def\print{\realbackslash print}%
+\def\error{\realbackslash error}%
+\def\point{\realbackslash point}%
+\def\copyright{\realbackslash copyright}%
 \def\tclose##1{\realbackslash tclose {##1}}%
 \def\code##1{\realbackslash code {##1}}%
+\def\uref##1{\realbackslash uref {##1}}%
+\def\url##1{\realbackslash url {##1}}%
+\def\env##1{\realbackslash env {##1}}%
+\def\command##1{\realbackslash command {##1}}%
+\def\option##1{\realbackslash option {##1}}%
 \def\dotless##1{\realbackslash dotless {##1}}%
 \def\samp##1{\realbackslash samp {##1}}%
 \def\,##1{\realbackslash ,{##1}}%
@@ -2199,6 +2711,7 @@ width0pt\relax} \fi
 \def\r##1{\realbackslash r {##1}}%
 \def\i##1{\realbackslash i {##1}}%
 \def\b##1{\realbackslash b {##1}}%
+\def\sc##1{\realbackslash sc {##1}}%
 \def\cite##1{\realbackslash cite {##1}}%
 \def\key##1{\realbackslash key {##1}}%
 \def\file##1{\realbackslash file {##1}}%
@@ -2206,7 +2719,16 @@ width0pt\relax} \fi
 \def\kbd##1{\realbackslash kbd {##1}}%
 \def\dfn##1{\realbackslash dfn {##1}}%
 \def\emph##1{\realbackslash emph {##1}}%
+\def\acronym##1{\realbackslash acronym {##1}}%
+%
+% Handle some cases of @value -- where the variable name does not
+% contain - or _, and the value does not contain any
+% (non-fully-expandable) commands.
+\let\value = \expandablevalue
+%
 \unsepspaces
+% Turn off macro expansion
+\turnoffmacros
 }
 
 % If an index command is used in an @example environment, any spaces
@@ -2263,6 +2785,12 @@ width0pt\relax} \fi
 %\let\tt=\indexdummyfont
 \let\tclose=\indexdummyfont
 \let\code=\indexdummyfont
+\let\url=\indexdummyfont
+\let\uref=\indexdummyfont
+\let\env=\indexdummyfont
+\let\acronym=\indexdummyfont
+\let\command=\indexdummyfont
+\let\option=\indexdummyfont
 \let\file=\indexdummyfont
 \let\samp=\indexdummyfont
 \let\kbd=\indexdummyfont
@@ -2278,14 +2806,24 @@ width0pt\relax} \fi
 % so we do not become unable to do a definition.
 
 {\catcode`\@=0 \catcode`\\=\other
-@gdef@realbackslash{\}}
+ @gdef@realbackslash{\}}
 
 \let\indexbackslash=0  %overridden during \printindex.
+\let\SETmarginindex=\relax % put index entries in margin (undocumented)?
+
+% For \ifx comparisons.
+\def\emptymacro{\empty}
+
+% Most index entries go through here, but \dosubind is the general case.
+%
+\def\doind#1#2{\dosubind{#1}{#2}\empty}
 
-\let\SETmarginindex=\relax %initialize!
-% workhorse for all \fooindexes
-% #1 is name of index, #2 is stuff to put there
-\def\doind #1#2{%
+% Workhorse for all \fooindexes.
+% #1 is name of index, #2 is stuff to put there, #3 is subentry --
+% \empty if called from \doind, as we usually are.  The main exception
+% is with defuns, which call us directly.
+%
+\def\dosubind#1#2#3{%
   % Put the index entry in the margin if desired.
   \ifx\SETmarginindex\relax\else
     \insert\margin{\hbox{\vrule height8pt depth3pt width0pt #2}}%
@@ -2296,48 +2834,75 @@ width0pt\relax} \fi
       \indexdummies % Must do this here, since \bf, etc expand at this stage
       \escapechar=`\\
       {%
-        \let\folio=0 % We will expand all macros now EXCEPT \folio.
+        \let\folio = 0% We will expand all macros now EXCEPT \folio.
         \def\rawbackslashxx{\indexbackslash}% \indexbackslash isn't defined now
         % so it will be output as is; and it will print as backslash.
         %
-        % First process the index-string with all font commands turned off
-        % to get the string to sort by.
-        {\indexnofonts \xdef\indexsorttmp{#2}}%
+        \def\thirdarg{#3}%
+        %
+        % If third arg is present, precede it with space in sort key.
+        \ifx\thirdarg\emptymacro
+          \let\subentry = \empty
+        \else
+          \def\subentry{ #3}%
+        \fi
+        %
+        % First process the index entry with all font commands turned
+        % off to get the string to sort by.
+        {\indexnofonts \xdef\indexsorttmp{#2\subentry}}%
         %
-        % Now produce the complete index entry, with both the sort key and the
-        % original text, including any font commands.
+        % Now the real index entry with the fonts.
         \toks0 = {#2}%
+        %
+        % If third (subentry) arg is present, add it to the index
+        % string.  And include a space.
+        \ifx\thirdarg\emptymacro \else
+          \toks0 = \expandafter{\the\toks0 \space #3}%
+        \fi
+        %
+        % Set up the complete index entry, with both the sort key
+        % and the original text, including any font commands.  We write
+        % three arguments to \entry to the .?? file, texindex reduces to
+        % two when writing the .??s sorted result.
         \edef\temp{%
           \write\csname#1indfile\endcsname{%
             \realbackslash entry{\indexsorttmp}{\folio}{\the\toks0}}%
         }%
-        \temp
+        %
+        % If a skip is the last thing on the list now, preserve it
+        % by backing up by \lastskip, doing the \write, then inserting
+        % the skip again.  Otherwise, the whatsit generated by the
+        % \write will make \lastskip zero.  The result is that sequences
+        % like this:
+        % @end defun
+        % @tindex whatever
+        % @defun ...
+        % will have extra space inserted, because the \medbreak in the
+        % start of the @defun won't see the skip inserted by the @end of
+        % the previous defun.
+        %
+        % But don't do any of this if we're not in vertical mode.  We
+        % don't want to do a \vskip and prematurely end a paragraph.
+        %
+        % Avoid page breaks due to these extra skips, too.
+        %
+        \iflinks
+          \ifvmode
+            \skip0 = \lastskip
+            \ifdim\lastskip = 0pt \else \nobreak\vskip-\lastskip \fi
+          \fi
+          %
+          \temp % do the write
+          %
+          %
+          \ifvmode \ifdim\skip0 = 0pt \else \nobreak\vskip\skip0 \fi \fi
+        \fi
       }%
     }%
     \penalty\count255
   }%
 }
 
-\def\dosubind #1#2#3{%
-{\count10=\lastpenalty %
-{\indexdummies % Must do this here, since \bf, etc expand at this stage
-\escapechar=`\\%
-{\let\folio=0%
-\def\rawbackslashxx{\indexbackslash}%
-%
-% Now process the index-string once, with all font commands turned off,
-% to get the string to sort the index by.
-{\indexnofonts
-\xdef\temp1{#2 #3}%
-}%
-% Now produce the complete index entry.  We process the index-string again,
-% this time with font commands expanded, to get what to print in the index.
-\edef\temp{%
-\write \csname#1indfile\endcsname{%
-\realbackslash entry {\temp1}{\folio}{#2}{#3}}}%
-\temp }%
-}\penalty\count10}}
-
 % The index entry written in the file actually looks like
 %  \entry {sortstring}{page}{topic}
 % or
@@ -2370,36 +2935,30 @@ width0pt\relax} \fi
 
 % Define the macros used in formatting output of the sorted index material.
 
-% This is what you call to cause a particular index to get printed.
-% Write
-% @unnumbered Function Index
-% @printindex fn
-
+% @printindex causes a particular index (the ??s file) to get printed.
+% It does not print any chapter heading (usually an @unnumbered).
+%
 \def\printindex{\parsearg\doprintindex}
-
 \def\doprintindex#1{\begingroup
   \dobreak \chapheadingskip{10000}%
   %
-  \indexfonts \rm
+  \smallfonts \rm
   \tolerance = 9500
   \indexbreaks
-  \def\indexbackslash{\rawbackslashxx}%
-  % Index files are almost Texinfo source, but we use \ as the escape
-  % character.  It would be better to use @, but that's too big a change
-  % to make right now.
-  \catcode`\\ = 0
-  \catcode`\@ = 11
-  \escapechar = `\\
-  \begindoublecolumns
   %
   % See if the index file exists and is nonempty.
+  % Change catcode of @ here so that if the index file contains
+  % \initial {@}
+  % as its first line, TeX doesn't complain about mismatched braces
+  % (because it thinks @} is a control sequence).
+  \catcode`\@ = 11
   \openin 1 \jobname.#1s
   \ifeof 1
     % \enddoublecolumns gets confused if there is no text in the index,
     % and it loses the chapter title and the aux file entries for the
     % index.  The easiest way to prevent this problem is to make sure
     % there is some text.
-    (Index is nonexistent)
+    \putwordIndexNonexistent
   \else
     %
     % If the index file exists but is empty, then \openin leaves \ifeof
@@ -2407,33 +2966,54 @@ width0pt\relax} \fi
     % it can discover if there is anything in it.
     \read 1 to \temp
     \ifeof 1
-      (Index is empty)
+      \putwordIndexIsEmpty
     \else
+      % Index files are almost Texinfo source, but we use \ as the escape
+      % character.  It would be better to use @, but that's too big a change
+      % to make right now.
+      \def\indexbackslash{\rawbackslashxx}%
+      \catcode`\\ = 0
+      \escapechar = `\\
+      \begindoublecolumns
       \input \jobname.#1s
+      \enddoublecolumns
     \fi
   \fi
   \closein 1
-  \enddoublecolumns
 \endgroup}
 
 % These macros are used by the sorted index file itself.
 % Change them to control the appearance of the index.
 
-% Same as \bigskipamount except no shrink.
-% \balancecolumns gets confused if there is any shrink.
-\newskip\initialskipamount \initialskipamount 12pt plus4pt
-
-\def\initial #1{%
-{\let\tentt=\sectt \let\tt=\sectt \let\sf=\sectt
-\ifdim\lastskip<\initialskipamount
-\removelastskip \penalty-200 \vskip \initialskipamount\fi
-\line{\secbf#1\hfill}\kern 2pt\penalty10000}}
+\def\initial#1{{%
+  % Some minor font changes for the special characters.
+  \let\tentt=\sectt \let\tt=\sectt \let\sf=\sectt
+  %
+  % Remove any glue we may have, we'll be inserting our own.
+  \removelastskip
+  %
+  % We like breaks before the index initials, so insert a bonus.
+  \penalty -300
+  %
+  % Typeset the initial.  Making this add up to a whole number of
+  % baselineskips increases the chance of the dots lining up from column
+  % to column.  It still won't often be perfect, because of the stretch
+  % we need before each entry, but it's better.
+  %
+  % No shrink because it confuses \balancecolumns.
+  \vskip 1.67\baselineskip plus .5\baselineskip
+  \leftline{\secbf #1}%
+  \vskip .33\baselineskip plus .1\baselineskip
+  %
+  % Do our best not to break after the initial.
+  \nobreak
+}}
 
 % This typesets a paragraph consisting of #1, dot leaders, and then #2
 % flush to the right margin.  It is used for index and table of contents
 % entries.  The paragraph is indented by \leftskip.
 %
-\def\entry #1#2{\begingroup
+\def\entry#1#2{\begingroup
   %
   % Start a new paragraph if necessary, so our assignments below can't
   % affect previous text.
@@ -2456,12 +3036,15 @@ width0pt\relax} \fi
   %
   % \hangafter is reset to 1 (which is the value we want) at the start
   % of each paragraph, so we need not do anything with that.
-  \hangindent=2em
+  \hangindent = 2em
   %
   % When the entry text needs to be broken, just fill out the first line
   % with blank space.
   \rightskip = 0pt plus1fil
   %
+  % A bit of stretch before each entry for the benefit of balancing columns.
+  \vskip 0pt plus1pt
+  %
   % Start a ``paragraph'' for the index entry so the line breaking
   % parameters we've set above will have an effect.
   \noindent
@@ -2486,7 +3069,11 @@ width0pt\relax} \fi
     % The `\ ' here is removed by the implicit \unskip that TeX does as
     % part of (the primitive) \par.  Without it, a spurious underfull
     % \hbox ensues.
-    \ #2% The page number ends the paragraph.
+    \ifpdf
+      \pdfgettoks#2.\ \the\toksA % The page number ends the paragraph.
+    \else
+      \ #2% The page number ends the paragraph.
+    \fi
   \fi%
   \par
 \endgroup}
@@ -2515,24 +3102,41 @@ width0pt\relax} \fi
 
 \def\begindoublecolumns{\begingroup % ended by \enddoublecolumns
   % Grab any single-column material above us.
-  \output = {\global\setbox\partialpage
-    =\vbox{\unvbox255\kern -\topskip \kern \baselineskip}}%
-  \eject
+  \output = {%
+    %
+    % Here is a possibility not foreseen in manmac: if we accumulate a
+    % whole lot of material, we might end up calling this \output
+    % routine twice in a row (see the doublecol-lose test, which is
+    % essentially a couple of indexes with @setchapternewpage off).  In
+    % that case we just ship out what is in \partialpage with the normal
+    % output routine.  Generally, \partialpage will be empty when this
+    % runs and this will be a no-op.  See the indexspread.tex test case.
+    \ifvoid\partialpage \else
+      \onepageout{\pagecontents\partialpage}%
+    \fi
+    %
+    \global\setbox\partialpage = \vbox{%
+      % Unvbox the main output page.
+      \unvbox\PAGE
+      \kern-\topskip \kern\baselineskip
+    }%
+  }%
+  \eject % run that output routine to set \partialpage
   %
-  % Now switch to the double-column output routine.
-  \output={\doublecolumnout}%
+  % Use the double-column output routine for subsequent pages.
+  \output = {\doublecolumnout}%
   %
   % Change the page size parameters.  We could do this once outside this
   % routine, in each of @smallbook, @afourpaper, and the default 8.5x11
   % format, but then we repeat the same computation.  Repeating a couple
   % of assignments once per index is clearly meaningless for the
-  % execution time, so we may as well do it once.
+  % execution time, so we may as well do it in one place.
   %
   % First we halve the line length, less a little for the gutter between
   % the columns.  We compute the gutter based on the line length, so it
   % changes automatically with the paper format.  The magic constant
-  % below is chosen so that the gutter has the same value (well, +- <
-  % 1pt) as it did when we hard-coded it.
+  % below is chosen so that the gutter has the same value (well, +-<1pt)
+  % as it did when we hard-coded it.
   %
   % We put the result in a separate register, \doublecolumhsize, so we
   % can restore it in \pagesofar, after \hsize itself has (potentially)
@@ -2545,109 +3149,140 @@ width0pt\relax} \fi
   %
   % Double the \vsize as well.  (We don't need a separate register here,
   % since nobody clobbers \vsize.)
+  \advance\vsize by -\ht\partialpage
   \vsize = 2\vsize
 }
+
+% The double-column output routine for all double-column pages except
+% the last.
+%
 \def\doublecolumnout{%
   \splittopskip=\topskip \splitmaxdepth=\maxdepth
   % Get the available space for the double columns -- the normal
   % (undoubled) page height minus any material left over from the
   % previous page.
-  \dimen@=\pageheight \advance\dimen@ by-\ht\partialpage
-  % box0 will be the left-hand column, box1 the right.
+  \dimen@ = \vsize
+  \divide\dimen@ by 2
+  %
+  % box0 will be the left-hand column, box2 the right.
   \setbox0=\vsplit255 to\dimen@ \setbox2=\vsplit255 to\dimen@
   \onepageout\pagesofar
-  \unvbox255 \penalty\outputpenalty
+  \unvbox255
+  \penalty\outputpenalty
 }
 \def\pagesofar{%
-  % The contents of the output page -- any previous material,
-  % followed by the two boxes we just split.
+  % Re-output the contents of the output page -- any previous material,
+  % followed by the two boxes we just split, in box0 and box2.
   \unvbox\partialpage
+  %
   \hsize = \doublecolumnhsize
-  \wd0=\hsize \wd2=\hsize \hbox to\pagewidth{\box0\hfil\box2}%
+  \wd0=\hsize \wd2=\hsize
+  \hbox to\pagewidth{\box0\hfil\box2}%
 }
 \def\enddoublecolumns{%
-  \output={\balancecolumns}\eject % split what we have
-  \endgroup
-  % Back to normal single-column typesetting, but take account of the
-  % fact that we just accumulated some stuff on the output page.
-  \pagegoal=\vsize 
+  \output = {%
+    % Split the last of the double-column material.  Leave it on the
+    % current page, no automatic page break.
+    \balancecolumns
+    %
+    % If we end up splitting too much material for the current page,
+    % though, there will be another page break right after this \output
+    % invocation ends.  Having called \balancecolumns once, we do not
+    % want to call it again.  Therefore, reset \output to its normal
+    % definition right away.  (We hope \balancecolumns will never be
+    % called on to balance too much material, but if it is, this makes
+    % the output somewhat more palatable.)
+    \global\output = {\onepageout{\pagecontents\PAGE}}%
+  }%
+  \eject
+  \endgroup % started in \begindoublecolumns
+  %
+  % \pagegoal was set to the doubled \vsize above, since we restarted
+  % the current page.  We're now back to normal single-column
+  % typesetting, so reset \pagegoal to the normal \vsize (after the
+  % \endgroup where \vsize got restored).
+  \pagegoal = \vsize
 }
 \def\balancecolumns{%
-  % Called on the last page of the double column material.
-  \setbox0=\vbox{\unvbox255}%
+  % Called at the end of the double column material.
+  \setbox0 = \vbox{\unvbox255}% like \box255 but more efficient, see p.120.
   \dimen@ = \ht0
   \advance\dimen@ by \topskip
   \advance\dimen@ by-\baselineskip
-  \divide\dimen@ by 2
+  \divide\dimen@ by 2 % target to split to
+  %debug\message{final 2-column material height=\the\ht0, target=\the\dimen@.}%
   \splittopskip = \topskip
   % Loop until we get a decent breakpoint.
-  {\vbadness=10000 \loop \global\setbox3=\copy0
-    \global\setbox1=\vsplit3 to\dimen@
-    \ifdim\ht3>\dimen@ \global\advance\dimen@ by1pt \repeat}%
+  {%
+    \vbadness = 10000
+    \loop
+      \global\setbox3 = \copy0
+      \global\setbox1 = \vsplit3 to \dimen@
+    \ifdim\ht3>\dimen@
+      \global\advance\dimen@ by 1pt
+    \repeat
+  }%
+  %debug\message{split to \the\dimen@, column heights: \the\ht1, \the\ht3.}%
   \setbox0=\vbox to\dimen@{\unvbox1}%
   \setbox2=\vbox to\dimen@{\unvbox3}%
+  %
   \pagesofar
 }
-\catcode `\@=\other
+\catcode`\@ = \other
 
 
 \message{sectioning,}
-% Define chapters, sections, etc.
+% Chapters, sections, etc.
 
-\newcount \chapno
-\newcount \secno        \secno=0
-\newcount \subsecno     \subsecno=0
-\newcount \subsubsecno  \subsubsecno=0
+\newcount\chapno
+\newcount\secno        \secno=0
+\newcount\subsecno     \subsecno=0
+\newcount\subsubsecno  \subsubsecno=0
 
 % This counter is funny since it counts through charcodes of letters A, B, ...
-\newcount \appendixno  \appendixno = `\@
-\def\appendixletter{\char\the\appendixno}
-
-\newwrite \contentsfile
-% This is called from \setfilename.
-\def\opencontents{\openout \contentsfile = \jobname.toc}
+\newcount\appendixno  \appendixno = `\@
+% \def\appendixletter{\char\the\appendixno}
+% We do the following for the sake of pdftex, which needs the actual
+% letter in the expansion, not just typeset.
+\def\appendixletter{%
+  \ifnum\appendixno=`A A%
+  \else\ifnum\appendixno=`B B%
+  \else\ifnum\appendixno=`C C%
+  \else\ifnum\appendixno=`D D%
+  \else\ifnum\appendixno=`E E%
+  \else\ifnum\appendixno=`F F%
+  \else\ifnum\appendixno=`G G%
+  \else\ifnum\appendixno=`H H%
+  \else\ifnum\appendixno=`I I%
+  \else\ifnum\appendixno=`J J%
+  \else\ifnum\appendixno=`K K%
+  \else\ifnum\appendixno=`L L%
+  \else\ifnum\appendixno=`M M%
+  \else\ifnum\appendixno=`N N%
+  \else\ifnum\appendixno=`O O%
+  \else\ifnum\appendixno=`P P%
+  \else\ifnum\appendixno=`Q Q%
+  \else\ifnum\appendixno=`R R%
+  \else\ifnum\appendixno=`S S%
+  \else\ifnum\appendixno=`T T%
+  \else\ifnum\appendixno=`U U%
+  \else\ifnum\appendixno=`V V%
+  \else\ifnum\appendixno=`W W%
+  \else\ifnum\appendixno=`X X%
+  \else\ifnum\appendixno=`Y Y%
+  \else\ifnum\appendixno=`Z Z%
+  % The \the is necessary, despite appearances, because \appendixletter is
+  % expanded while writing the .toc file.  \char\appendixno is not
+  % expandable, thus it is written literally, thus all appendixes come out
+  % with the same letter (or @) in the toc without it.
+  \else\char\the\appendixno
+  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
+  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}
 
 % Each @chapter defines this as the name of the chapter.
-% page headings and footings can use it.  @section does likewise
-
-\def\thischapter{} \def\thissection{}
-\def\seccheck#1{\if \pageno<0 %
-\errmessage{@#1 not allowed after generating table of contents}\fi
-%
-}
-
-\def\chapternofonts{%
-\let\rawbackslash=\relax%
-\let\frenchspacing=\relax%
-\def\result{\realbackslash result}
-\def\equiv{\realbackslash equiv}
-\def\expansion{\realbackslash expansion}
-\def\print{\realbackslash print}
-\def\TeX{\realbackslash TeX}
-\def\dots{\realbackslash dots}
-\def\copyright{\realbackslash copyright}
-\def\tt{\realbackslash tt}
-\def\bf{\realbackslash bf }
-\def\w{\realbackslash w}
-\def\less{\realbackslash less}
-\def\gtr{\realbackslash gtr}
-\def\hat{\realbackslash hat}
-\def\char{\realbackslash char}
-\def\tclose##1{\realbackslash tclose {##1}}
-\def\code##1{\realbackslash code {##1}}
-\def\samp##1{\realbackslash samp {##1}}
-\def\r##1{\realbackslash r {##1}}
-\def\b##1{\realbackslash b {##1}}
-\def\key##1{\realbackslash key {##1}}
-\def\file##1{\realbackslash file {##1}}
-\def\kbd##1{\realbackslash kbd {##1}}
-% These are redefined because @smartitalic wouldn't work inside xdef.
-\def\i##1{\realbackslash i {##1}}
-\def\cite##1{\realbackslash cite {##1}}
-\def\var##1{\realbackslash var {##1}}
-\def\emph##1{\realbackslash emph {##1}}
-\def\dfn##1{\realbackslash dfn {##1}}
-}
+% page headings and footings can use it.  @section does likewise.
+\def\thischapter{}
+\def\thissection{}
 
 \newcount\absseclevel % used to calculate proper heading level
 \newcount\secbase\secbase=0 % @raise/lowersections modify this count
@@ -2719,57 +3354,59 @@ width0pt\relax} \fi
 \fi
 }
 
-
+% @chapter, @appendix, @unnumbered.
 \def\thischaptername{No Chapter Title}
 \outer\def\chapter{\parsearg\chapteryyy}
 \def\chapteryyy #1{\numhead0{#1}} % normally numhead0 calls chapterzzz
-\def\chapterzzz #1{\seccheck{chapter}%
+\def\chapterzzz #1{%
 \secno=0 \subsecno=0 \subsubsecno=0
-\global\advance \chapno by 1 \message{\putwordChapter \the\chapno}%
+\global\advance \chapno by 1 \message{\putwordChapter\space \the\chapno}%
 \chapmacro {#1}{\the\chapno}%
 \gdef\thissection{#1}%
 \gdef\thischaptername{#1}%
 % We don't substitute the actual chapter name into \thischapter
 % because we don't want its macros evaluated now.
 \xdef\thischapter{\putwordChapter{} \the\chapno: \noexpand\thischaptername}%
-{\chapternofonts%
-\edef\temp{{\realbackslash chapentry {#1}{\the\chapno}{\noexpand\folio}}}%
-\escapechar=`\\%
-\write \contentsfile \temp  %
-\donoderef %
+\toks0 = {#1}%
+\edef\temp{\noexpand\writetocentry{\realbackslash chapentry{\the\toks0}%
+                                  {\the\chapno}}}%
+\temp
+\donoderef
 \global\let\section = \numberedsec
 \global\let\subsection = \numberedsubsec
 \global\let\subsubsection = \numberedsubsubsec
-}}
+}
 
 \outer\def\appendix{\parsearg\appendixyyy}
 \def\appendixyyy #1{\apphead0{#1}} % normally apphead0 calls appendixzzz
-\def\appendixzzz #1{\seccheck{appendix}%
+\def\appendixzzz #1{%
 \secno=0 \subsecno=0 \subsubsecno=0
-\global\advance \appendixno by 1 \message{Appendix \appendixletter}%
+\global\advance \appendixno by 1
+\message{\putwordAppendix\space \appendixletter}%
 \chapmacro {#1}{\putwordAppendix{} \appendixletter}%
 \gdef\thissection{#1}%
 \gdef\thischaptername{#1}%
 \xdef\thischapter{\putwordAppendix{} \appendixletter: \noexpand\thischaptername}%
-{\chapternofonts%
-\edef\temp{{\realbackslash chapentry
-  {#1}{\putwordAppendix{} \appendixletter}{\noexpand\folio}}}%
-\escapechar=`\\%
-\write \contentsfile \temp  %
-\appendixnoderef %
+\toks0 = {#1}%
+\edef\temp{\noexpand\writetocentry{\realbackslash chapentry{\the\toks0}%
+                       {\putwordAppendix{} \appendixletter}}}%
+\temp
+\appendixnoderef
 \global\let\section = \appendixsec
 \global\let\subsection = \appendixsubsec
 \global\let\subsubsection = \appendixsubsubsec
-}}
+}
 
 % @centerchap is like @unnumbered, but the heading is centered.
 \outer\def\centerchap{\parsearg\centerchapyyy}
 \def\centerchapyyy #1{{\let\unnumbchapmacro=\centerchapmacro \unnumberedyyy{#1}}}
 
+% @top is like @unnumbered.
 \outer\def\top{\parsearg\unnumberedyyy}
+
 \outer\def\unnumbered{\parsearg\unnumberedyyy}
 \def\unnumberedyyy #1{\unnmhead0{#1}} % normally unnmhead0 calls unnumberedzzz
-\def\unnumberedzzz #1{\seccheck{unnumbered}%
+\def\unnumberedzzz #1{%
 \secno=0 \subsecno=0 \subsubsecno=0
 %
 % This used to be simply \message{#1}, but TeX fully expands the
@@ -2781,146 +3418,139 @@ width0pt\relax} \fi
 % Anyway, we don't want the fully-expanded definition of @cite to appear
 % as a result of the \message, we just want `@cite' itself.  We use
 % \the<toks register> to achieve this: TeX expands \the<toks> only once,
-% simply yielding the contents of the <toks register>.
+% simply yielding the contents of <toks register>.  (We also do this for
+% the toc entries.)
 \toks0 = {#1}\message{(\the\toks0)}%
 %
 \unnumbchapmacro {#1}%
 \gdef\thischapter{#1}\gdef\thissection{#1}%
-{\chapternofonts%
-\edef\temp{{\realbackslash unnumbchapentry {#1}{\noexpand\folio}}}%
-\escapechar=`\\%
-\write \contentsfile \temp  %
-\unnumbnoderef %
+\toks0 = {#1}%
+\edef\temp{\noexpand\writetocentry{\realbackslash unnumbchapentry{\the\toks0}}}%
+\temp
+\unnumbnoderef
 \global\let\section = \unnumberedsec
 \global\let\subsection = \unnumberedsubsec
 \global\let\subsubsection = \unnumberedsubsubsec
-}}
+}
 
+% Sections.
 \outer\def\numberedsec{\parsearg\secyyy}
 \def\secyyy #1{\numhead1{#1}} % normally calls seczzz
-\def\seczzz #1{\seccheck{section}%
+\def\seczzz #1{%
 \subsecno=0 \subsubsecno=0 \global\advance \secno by 1 %
 \gdef\thissection{#1}\secheading {#1}{\the\chapno}{\the\secno}%
-{\chapternofonts%
-\edef\temp{{\realbackslash secentry %
-{#1}{\the\chapno}{\the\secno}{\noexpand\folio}}}%
-\escapechar=`\\%
-\write \contentsfile \temp %
-\donoderef %
-\penalty 10000 %
-}}
+\toks0 = {#1}%
+\edef\temp{\noexpand\writetocentry{\realbackslash secentry{\the\toks0}%
+                                  {\the\chapno}{\the\secno}}}%
+\temp
+\donoderef
+\nobreak
+}
 
 \outer\def\appendixsection{\parsearg\appendixsecyyy}
 \outer\def\appendixsec{\parsearg\appendixsecyyy}
 \def\appendixsecyyy #1{\apphead1{#1}} % normally calls appendixsectionzzz
-\def\appendixsectionzzz #1{\seccheck{appendixsection}%
+\def\appendixsectionzzz #1{%
 \subsecno=0 \subsubsecno=0 \global\advance \secno by 1 %
 \gdef\thissection{#1}\secheading {#1}{\appendixletter}{\the\secno}%
-{\chapternofonts%
-\edef\temp{{\realbackslash secentry %
-{#1}{\appendixletter}{\the\secno}{\noexpand\folio}}}%
-\escapechar=`\\%
-\write \contentsfile \temp %
-\appendixnoderef %
-\penalty 10000 %
-}}
+\toks0 = {#1}%
+\edef\temp{\noexpand\writetocentry{\realbackslash secentry{\the\toks0}%
+                                  {\appendixletter}{\the\secno}}}%
+\temp
+\appendixnoderef
+\nobreak
+}
 
 \outer\def\unnumberedsec{\parsearg\unnumberedsecyyy}
 \def\unnumberedsecyyy #1{\unnmhead1{#1}} % normally calls unnumberedseczzz
-\def\unnumberedseczzz #1{\seccheck{unnumberedsec}%
+\def\unnumberedseczzz #1{%
 \plainsecheading {#1}\gdef\thissection{#1}%
-{\chapternofonts%
-\edef\temp{{\realbackslash unnumbsecentry{#1}{\noexpand\folio}}}%
-\escapechar=`\\%
-\write \contentsfile \temp %
-\unnumbnoderef %
-\penalty 10000 %
-}}
+\toks0 = {#1}%
+\edef\temp{\noexpand\writetocentry{\realbackslash unnumbsecentry{\the\toks0}}}%
+\temp
+\unnumbnoderef
+\nobreak
+}
 
+% Subsections.
 \outer\def\numberedsubsec{\parsearg\numberedsubsecyyy}
 \def\numberedsubsecyyy #1{\numhead2{#1}} % normally calls numberedsubseczzz
-\def\numberedsubseczzz #1{\seccheck{subsection}%
+\def\numberedsubseczzz #1{%
 \gdef\thissection{#1}\subsubsecno=0 \global\advance \subsecno by 1 %
 \subsecheading {#1}{\the\chapno}{\the\secno}{\the\subsecno}%
-{\chapternofonts%
-\edef\temp{{\realbackslash subsecentry %
-{#1}{\the\chapno}{\the\secno}{\the\subsecno}{\noexpand\folio}}}%
-\escapechar=`\\%
-\write \contentsfile \temp %
-\donoderef %
-\penalty 10000 %
-}}
+\toks0 = {#1}%
+\edef\temp{\noexpand\writetocentry{\realbackslash subsecentry{\the\toks0}%
+                                    {\the\chapno}{\the\secno}{\the\subsecno}}}%
+\temp
+\donoderef
+\nobreak
+}
 
 \outer\def\appendixsubsec{\parsearg\appendixsubsecyyy}
 \def\appendixsubsecyyy #1{\apphead2{#1}} % normally calls appendixsubseczzz
-\def\appendixsubseczzz #1{\seccheck{appendixsubsec}%
+\def\appendixsubseczzz #1{%
 \gdef\thissection{#1}\subsubsecno=0 \global\advance \subsecno by 1 %
 \subsecheading {#1}{\appendixletter}{\the\secno}{\the\subsecno}%
-{\chapternofonts%
-\edef\temp{{\realbackslash subsecentry %
-{#1}{\appendixletter}{\the\secno}{\the\subsecno}{\noexpand\folio}}}%
-\escapechar=`\\%
-\write \contentsfile \temp %
-\appendixnoderef %
-\penalty 10000 %
-}}
+\toks0 = {#1}%
+\edef\temp{\noexpand\writetocentry{\realbackslash subsecentry{\the\toks0}%
+                                {\appendixletter}{\the\secno}{\the\subsecno}}}%
+\temp
+\appendixnoderef
+\nobreak
+}
 
 \outer\def\unnumberedsubsec{\parsearg\unnumberedsubsecyyy}
 \def\unnumberedsubsecyyy #1{\unnmhead2{#1}} %normally calls unnumberedsubseczzz
-\def\unnumberedsubseczzz #1{\seccheck{unnumberedsubsec}%
+\def\unnumberedsubseczzz #1{%
 \plainsubsecheading {#1}\gdef\thissection{#1}%
-{\chapternofonts%
-\edef\temp{{\realbackslash unnumbsubsecentry{#1}{\noexpand\folio}}}%
-\escapechar=`\\%
-\write \contentsfile \temp %
-\unnumbnoderef %
-\penalty 10000 %
-}}
+\toks0 = {#1}%
+\edef\temp{\noexpand\writetocentry{\realbackslash unnumbsubsecentry%
+                                    {\the\toks0}}}%
+\temp
+\unnumbnoderef
+\nobreak
+}
 
+% Subsubsections.
 \outer\def\numberedsubsubsec{\parsearg\numberedsubsubsecyyy}
 \def\numberedsubsubsecyyy #1{\numhead3{#1}} % normally numberedsubsubseczzz
-\def\numberedsubsubseczzz #1{\seccheck{subsubsection}%
+\def\numberedsubsubseczzz #1{%
 \gdef\thissection{#1}\global\advance \subsubsecno by 1 %
 \subsubsecheading {#1}
   {\the\chapno}{\the\secno}{\the\subsecno}{\the\subsubsecno}%
-{\chapternofonts%
-\edef\temp{{\realbackslash subsubsecentry %
-  {#1}
-  {\the\chapno}{\the\secno}{\the\subsecno}{\the\subsubsecno}
-  {\noexpand\folio}}}%
-\escapechar=`\\%
-\write \contentsfile \temp %
-\donoderef %
-\penalty 10000 %
-}}
+\toks0 = {#1}%
+\edef\temp{\noexpand\writetocentry{\realbackslash subsubsecentry{\the\toks0}%
+  {\the\chapno}{\the\secno}{\the\subsecno}{\the\subsubsecno}}}%
+\temp
+\donoderef
+\nobreak
+}
 
 \outer\def\appendixsubsubsec{\parsearg\appendixsubsubsecyyy}
 \def\appendixsubsubsecyyy #1{\apphead3{#1}} % normally appendixsubsubseczzz
-\def\appendixsubsubseczzz #1{\seccheck{appendixsubsubsec}%
+\def\appendixsubsubseczzz #1{%
 \gdef\thissection{#1}\global\advance \subsubsecno by 1 %
 \subsubsecheading {#1}
   {\appendixletter}{\the\secno}{\the\subsecno}{\the\subsubsecno}%
-{\chapternofonts%
-\edef\temp{{\realbackslash subsubsecentry{#1}%
-  {\appendixletter}
-  {\the\secno}{\the\subsecno}{\the\subsubsecno}{\noexpand\folio}}}%
-\escapechar=`\\%
-\write \contentsfile \temp %
-\appendixnoderef %
-\penalty 10000 %
-}}
+\toks0 = {#1}%
+\edef\temp{\noexpand\writetocentry{\realbackslash subsubsecentry{\the\toks0}%
+  {\appendixletter}{\the\secno}{\the\subsecno}{\the\subsubsecno}}}%
+\temp
+\appendixnoderef
+\nobreak
+}
 
 \outer\def\unnumberedsubsubsec{\parsearg\unnumberedsubsubsecyyy}
 \def\unnumberedsubsubsecyyy #1{\unnmhead3{#1}} %normally unnumberedsubsubseczzz
-\def\unnumberedsubsubseczzz #1{\seccheck{unnumberedsubsubsec}%
+\def\unnumberedsubsubseczzz #1{%
 \plainsubsubsecheading {#1}\gdef\thissection{#1}%
-{\chapternofonts%
-\edef\temp{{\realbackslash unnumbsubsubsecentry{#1}{\noexpand\folio}}}%
-\escapechar=`\\%
-\write \contentsfile \temp %
-\unnumbnoderef %
-\penalty 10000 %
-}}
+\toks0 = {#1}%
+\edef\temp{\noexpand\writetocentry{\realbackslash unnumbsubsubsecentry%
+                                    {\the\toks0}}}%
+\temp
+\unnumbnoderef
+\nobreak
+}
 
 % These are variants which are not "outer", so they can appear in @ifinfo.
 % Actually, they should now be obsolete; ordinary section commands should work.
@@ -2949,8 +3579,7 @@ width0pt\relax} \fi
 
 % Define @majorheading, @heading and @subheading
 
-% NOTE on use of \vbox for chapter headings, section headings, and
-% such:
+% NOTE on use of \vbox for chapter headings, section headings, and such:
 %       1) We use \vbox rather than the earlier \line to permit
 %          overlong headings to fold.
 %       2) \hyphenpenalty is set to 10000 because hyphenation in a
@@ -2997,12 +3626,12 @@ width0pt\relax} \fi
 
 \def\setchapternewpage #1 {\csname CHAPPAG#1\endcsname}
 
-\def\CHAPPAGoff{
+\def\CHAPPAGoff{%
 \global\let\contentsalignmacro = \chappager
 \global\let\pchapsepmacro=\chapbreak
 \global\let\pagealignmacro=\chappager}
 
-\def\CHAPPAGon{
+\def\CHAPPAGon{%
 \global\let\contentsalignmacro = \chappager
 \global\let\pchapsepmacro=\chappager
 \global\let\pagealignmacro=\chappager
@@ -3056,7 +3685,7 @@ width0pt\relax} \fi
 \def\unnchfopen #1{%
 \chapoddpage {\chapfonts \vbox{\hyphenpenalty=10000\tolerance=5000
                        \parindent=0pt\raggedright
-                       \rm #1\hfill}}\bigskip \par\penalty 10000 %
+                       \rm #1\hfill}}\bigskip \par\nobreak
 }
 
 \def\chfopen #1#2{\chapoddpage {\chapfonts
@@ -3067,7 +3696,7 @@ width0pt\relax} \fi
 \def\centerchfopen #1{%
 \chapoddpage {\chapfonts \vbox{\hyphenpenalty=10000\tolerance=5000
                        \parindent=0pt
-                       \hfill {\rm #1}\hfill}}\bigskip \par\penalty 10000 %
+                       \hfill {\rm #1}\hfill}}\bigskip \par\nobreak
 }
 
 \def\CHAPFopen{
@@ -3096,7 +3725,7 @@ width0pt\relax} \fi
 
 
 % Print any size section title.
-% 
+%
 % #1 is the section type (sec/subsec/subsubsec), #2 is the section
 % number (maybe empty), #3 the text.
 \def\sectionheading#1#2#3{%
@@ -3120,43 +3749,77 @@ width0pt\relax} \fi
 }
 
 
-\message{toc printing,}
-% Finish up the main text and prepare to read what we've written
-% to \contentsfile.
+\message{toc,}
+% Table of contents.
+\newwrite\tocfile
+
+% Write an entry to the toc file, opening it if necessary.
+% Called from @chapter, etc.  We supply {\folio} at the end of the
+% argument, which will end up as the last argument to the \...entry macro.
+%
+% We open the .toc file here instead of at @setfilename or any other
+% given time so that @contents can be put in the document anywhere.
+%
+\newif\iftocfileopened
+\def\writetocentry#1{%
+  \iftocfileopened\else
+    \immediate\openout\tocfile = \jobname.toc
+    \global\tocfileopenedtrue
+  \fi
+  \iflinks \write\tocfile{#1{\folio}}\fi
+}
 
 \newskip\contentsrightmargin \contentsrightmargin=1in
+\newcount\savepageno
+\newcount\lastnegativepageno \lastnegativepageno = -1
+
+% Finish up the main text and prepare to read what we've written
+% to \tocfile.
+%
 \def\startcontents#1{%
    % If @setchapternewpage on, and @headings double, the contents should
    % start on an odd page, unlike chapters.  Thus, we maintain
    % \contentsalignmacro in parallel with \pagealignmacro.
    % From: Torbjorn Granlund <tege@matematik.su.se>
    \contentsalignmacro
-   \immediate\closeout \contentsfile
-   \ifnum \pageno>0
-      \pageno = -1              % Request roman numbered pages.
-   \fi
+   \immediate\closeout\tocfile
+   %
    % Don't need to put `Contents' or `Short Contents' in the headline.
    % It is abundantly clear what they are.
    \unnumbchapmacro{#1}\def\thischapter{}%
+   \savepageno = \pageno
    \begingroup                  % Set up to handle contents files properly.
       \catcode`\\=0  \catcode`\{=1  \catcode`\}=2  \catcode`\@=11
-      \catcode`\^=7 % to see ^^e4 as \"a etc. juha@piuha.ydi.vtt.fi
+      % We can't do this, because then an actual ^ in a section
+      % title fails, e.g., @chapter ^ -- exponentiation.  --karl, 9jul97.
+      %\catcode`\^=7 % to see ^^e4 as \"a etc. juha@piuha.ydi.vtt.fi
       \raggedbottom             % Worry more about breakpoints than the bottom.
       \advance\hsize by -\contentsrightmargin % Don't use the full line length.
+      %
+      % Roman numerals for page numbers.
+      \ifnum \pageno>0 \pageno = \lastnegativepageno \fi
 }
 
 
 % Normal (long) toc.
-\outer\def\contents{%
-   \startcontents{\putwordTableofContents}%
-      \input \jobname.toc
+\def\contents{%
+   \startcontents{\putwordTOC}%
+     \openin 1 \jobname.toc
+     \ifeof 1 \else
+       \closein 1
+       \input \jobname.toc
+     \fi
+     \vfill \eject
+     \contentsalignmacro % in case @setchapternewpage odd is in effect
+     \pdfmakeoutlines
    \endgroup
-   \vfill \eject
+   \lastnegativepageno = \pageno
+   \pageno = \savepageno
 }
 
 % And just the chapters.
-\outer\def\summarycontents{%
-   \startcontents{\putwordShortContents}%
+\def\summarycontents{%
+   \startcontents{\putwordShortTOC}%
       %
       \let\chapentry = \shortchapentry
       \let\unnumbchapentry = \shortunnumberedentry
@@ -3172,12 +3835,23 @@ width0pt\relax} \fi
       \def\unnumbsubsecentry ##1##2{}
       \def\subsubsecentry ##1##2##3##4##5##6{}
       \def\unnumbsubsubsecentry ##1##2{}
-      \input \jobname.toc
+      \openin 1 \jobname.toc
+      \ifeof 1 \else
+        \closein 1
+        \input \jobname.toc
+      \fi
+     \vfill \eject
+     \contentsalignmacro % in case @setchapternewpage odd is in effect
    \endgroup
-   \vfill \eject
+   \lastnegativepageno = \pageno
+   \pageno = \savepageno
 }
 \let\shortcontents = \summarycontents
 
+\ifpdf
+  \pdfcatalog{/PageMode /UseOutlines}%
+\fi
+
 % These macros generate individual entries in the table of contents.
 % The first argument is the chapter or section name.
 % The last argument is the page number.
@@ -3188,7 +3862,7 @@ width0pt\relax} \fi
 
 % See comments in \dochapentry re vbox and related settings
 \def\shortchapentry#1#2#3{%
-  \tocentry{\shortchaplabel{#2}\labelspace #1}{\doshortpageno{#3}}%
+  \tocentry{\shortchaplabel{#2}\labelspace #1}{\doshortpageno\bgroup#3\egroup}%
 }
 
 % Typeset the label for a chapter or appendix for the short contents.
@@ -3196,10 +3870,14 @@ width0pt\relax} \fi
 % We could simplify the code here by writing out an \appendixentry
 % command in the toc file for appendices, instead of using \chapentry
 % for both, but it doesn't seem worth it.
-\setbox0 = \hbox{\shortcontrm \putwordAppendix }
-\newdimen\shortappendixwidth \shortappendixwidth = \wd0
-
+%
+\newdimen\shortappendixwidth
+%
 \def\shortchaplabel#1{%
+  % Compute width of word "Appendix", may change with language.
+  \setbox0 = \hbox{\shortcontrm \putwordAppendix}%
+  \shortappendixwidth = \wd0
+  %
   % We typeset #1 in a box of constant width, regardless of the text of
   % #1, so the chapter titles will come out aligned.
   \setbox0 = \hbox{#1}%
@@ -3214,7 +3892,7 @@ width0pt\relax} \fi
 }
 
 \def\unnumbchapentry#1#2{\dochapentry{#1}{#2}}
-\def\shortunnumberedentry#1#2{\tocentry{#1}{\doshortpageno{#2}}}
+\def\shortunnumberedentry#1#2{\tocentry{#1}{\doshortpageno\bgroup#2\egroup}}
 
 % Sections.
 \def\secentry#1#2#3#4{\dosecentry{#2.#3\labelspace#1}{#4}}
@@ -3241,35 +3919,36 @@ width0pt\relax} \fi
    \penalty-300 \vskip1\baselineskip plus.33\baselineskip minus.25\baselineskip
    \begingroup
      \chapentryfonts
-     \tocentry{#1}{\dopageno{#2}}%
+     \tocentry{#1}{\dopageno\bgroup#2\egroup}%
    \endgroup
    \nobreak\vskip .25\baselineskip plus.1\baselineskip
 }
 
 \def\dosecentry#1#2{\begingroup
   \secentryfonts \leftskip=\tocindent
-  \tocentry{#1}{\dopageno{#2}}%
+  \tocentry{#1}{\dopageno\bgroup#2\egroup}%
 \endgroup}
 
 \def\dosubsecentry#1#2{\begingroup
   \subsecentryfonts \leftskip=2\tocindent
-  \tocentry{#1}{\dopageno{#2}}%
+  \tocentry{#1}{\dopageno\bgroup#2\egroup}%
 \endgroup}
 
 \def\dosubsubsecentry#1#2{\begingroup
   \subsubsecentryfonts \leftskip=3\tocindent
-  \tocentry{#1}{\dopageno{#2}}%
+  \tocentry{#1}{\dopageno\bgroup#2\egroup}%
 \endgroup}
 
 % Final typesetting of a toc entry; we use the same \entry macro as for
 % the index entries, but we want to suppress hyphenation here.  (We
 % can't do that in the \entry macro, since index entries might consist
 % of hyphenated-identifiers-that-do-not-fit-on-a-line-and-nothing-else.)
-%
-% \turnoffactive is for the sake of @" used for umlauts.
 \def\tocentry#1#2{\begingroup
   \vskip 0pt plus1pt % allow a little stretch for the sake of nice page breaks
-  \entry{\turnoffactive #1}{\turnoffactive #2}%
+  % Do not use \turnoffactive in these arguments.  Since the toc is
+  % typeset in cmr, so characters such as _ would come out wrong; we
+  % have to do the usual translation tricks.
+  \entry{#1}{#2}%
 \endgroup}
 
 % Space between chapter (or whatever) number and the title.
@@ -3285,6 +3964,7 @@ width0pt\relax} \fi
 
 
 \message{environments,}
+% @foo ... @end foo.
 
 % Since these characters are used in examples, it should be an even number of
 % \tt widths. Each \tt character is 1en, so two makes it 1em.
@@ -3335,31 +4015,36 @@ width0pt\relax} \fi
 % But \@ or @@ will get a plain tex @ character.
 
 \def\tex{\begingroup
-\catcode `\\=0 \catcode `\{=1 \catcode `\}=2
-\catcode `\$=3 \catcode `\&=4 \catcode `\#=6
-\catcode `\^=7 \catcode `\_=8 \catcode `\~=13 \let~=\tie
-\catcode `\%=14
-\catcode 43=12 % plus
-\catcode`\"=12
-\catcode`\==12
-\catcode`\|=12
-\catcode`\<=12
-\catcode`\>=12
-\escapechar=`\\
-%
-\let\,=\ptexcomma
-\let\~=\ptextilde
-\let\{=\ptexlbrace
-\let\}=\ptexrbrace
-\let\.=\ptexdot
-\let\*=\ptexstar
-\let\dots=\ptexdots
-\def\endldots{\mathinner{\ldots\ldots\ldots\ldots}}
-\def\enddots{\relax\ifmmode\endldots\else$\mathsurround=0pt \endldots\,$\fi}
-\def\@{@}%
-\let\bullet=\ptexbullet
-\let\b=\ptexb \let\c=\ptexc \let\i=\ptexi \let\t=\ptext
-%
+  \catcode `\\=0 \catcode `\{=1 \catcode `\}=2
+  \catcode `\$=3 \catcode `\&=4 \catcode `\#=6
+  \catcode `\^=7 \catcode `\_=8 \catcode `\~=13 \let~=\tie
+  \catcode `\%=14
+  \catcode 43=12 % plus
+  \catcode`\"=12
+  \catcode`\==12
+  \catcode`\|=12
+  \catcode`\<=12
+  \catcode`\>=12
+  \escapechar=`\\
+  %
+  \let\b=\ptexb
+  \let\bullet=\ptexbullet
+  \let\c=\ptexc
+  \let\,=\ptexcomma
+  \let\.=\ptexdot
+  \let\dots=\ptexdots
+  \let\equiv=\ptexequiv
+  \let\!=\ptexexclam
+  \let\i=\ptexi
+  \let\{=\ptexlbrace
+  \let\+=\tabalign
+  \let\}=\ptexrbrace
+  \let\*=\ptexstar
+  \let\t=\ptext
+  %
+  \def\endldots{\mathinner{\ldots\ldots\ldots\ldots}}%
+  \def\enddots{\relax\ifmmode\endldots\else$\mathsurround=0pt \endldots\,$\fi}%
+  \def\@{@}%
 \let\Etex=\endgroup}
 
 % Define @lisp ... @endlisp.
@@ -3404,8 +4089,8 @@ width0pt\relax} \fi
 % \nonarrowing is a flag.  If "set", @lisp etc don't narrow margins.
 \let\nonarrowing=\relax
 
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% \cartouche: draw rectangle w/rounded corners around argument
+% @cartouche ... @end cartouche: draw rectangle w/rounded corners around
+% environment contents.
 \font\circle=lcircle10
 \newdimen\circthick
 \newdimen\cartouter\newdimen\cartinner
@@ -3432,9 +4117,9 @@ width0pt\relax} \fi
         \cartinner=\hsize \advance\cartinner by-\lskip
                           \advance\cartinner by-\rskip
         \cartouter=\hsize
-        \advance\cartouter by 18pt % allow for 3pt kerns on either
+        \advance\cartouter by 18.4pt % allow for 3pt kerns on either
 %                                    side, and for 6pt waste from
-%                                    each corner char
+%                                    each corner char, and rule thickness
         \normbskip=\baselineskip \normpskip=\parskip \normlskip=\lineskip
         % Flag to tell @lisp, etc., not to narrow margin.
         \let\nonarrowing=\comment
@@ -3488,48 +4173,52 @@ width0pt\relax} \fi
   \fi
 }
 
-% To ending an @example-like environment, we first end the paragraph
-% (via \afterenvbreak's vertical glue), and then the group.  That way we
-% keep the zero \parskip that the environments set -- \parskip glue
-% will be inserted at the beginning of the next paragraph in the
-% document, after the environment.
+% Define the \E... control sequence only if we are inside the particular
+% environment, so the error checking in \end will work.
+%
+% To end an @example-like environment, we first end the paragraph (via
+% \afterenvbreak's vertical glue), and then the group.  That way we keep
+% the zero \parskip that the environments set -- \parskip glue will be
+% inserted at the beginning of the next paragraph in the document, after
+% the environment.
 %
-\def\nonfillfinish{\afterenvbreak\endgroup}%
+\def\nonfillfinish{\afterenvbreak\endgroup}
 
-% This macro is
+% @lisp: indented, narrowed, typewriter font.
 \def\lisp{\begingroup
   \nonfillstart
   \let\Elisp = \nonfillfinish
   \tt
-  \rawbackslash % have \ input char produce \ char from current font
-  \gobble
+  \let\kbdfont = \kbdexamplefont % Allow @kbd to do something special.
+  \gobble       % eat return
 }
 
-% Define the \E... control sequence only if we are inside the
-% environment, so the error checking in \end will work.
-%
-% We must call \lisp last in the definition, since it reads the
-% return following the @example (or whatever) command.
-%
+% @example: Same as @lisp.
 \def\example{\begingroup \def\Eexample{\nonfillfinish\endgroup}\lisp}
-\def\smallexample{\begingroup \def\Esmallexample{\nonfillfinish\endgroup}\lisp}
-\def\smalllisp{\begingroup \def\Esmalllisp{\nonfillfinish\endgroup}\lisp}
 
-% @smallexample and @smalllisp.  This is not used unless the @smallbook
-% command is given.  Originally contributed by Pavel@xerox.
+% @small... is usually equivalent to the non-small (@smallbook
+% redefines).  We must call \example (or whatever) last in the
+% definition, since it reads the return following the @example (or
+% whatever) command.
 %
+% This actually allows (for example) @end display inside an
+% @smalldisplay.  Too bad, but makeinfo will catch the error anyway.
+%
+\def\smalldisplay{\begingroup\def\Esmalldisplay{\nonfillfinish\endgroup}\display}
+\def\smallexample{\begingroup\def\Esmallexample{\nonfillfinish\endgroup}\lisp}
+\def\smallformat{\begingroup\def\Esmallformat{\nonfillfinish\endgroup}\format}
+\def\smalllisp{\begingroup\def\Esmalllisp{\nonfillfinish\endgroup}\lisp}
+
+% Real @smallexample and @smalllisp (when @smallbook): use smaller fonts.
+% Originally contributed by Pavel@xerox.
 \def\smalllispx{\begingroup
-  \nonfillstart
-  \let\Esmalllisp = \nonfillfinish
-  \let\Esmallexample = \nonfillfinish
-  %
-  % Smaller fonts for small examples.
-  \indexfonts \tt
-  \rawbackslash % make \ output the \ character from the current font (tt)
-  \gobble
+  \def\Esmalllisp{\nonfillfinish\endgroup}%
+  \def\Esmallexample{\nonfillfinish\endgroup}%
+  \smallfonts
+  \lisp
 }
 
-% This is @display; same as @lisp except use roman font.
+% @display: same as @lisp except keep current font.
 %
 \def\display{\begingroup
   \nonfillstart
@@ -3537,7 +4226,15 @@ width0pt\relax} \fi
   \gobble
 }
 
-% This is @format; same as @display except don't narrow margins.
+% @smalldisplay (when @smallbook): @display plus smaller fonts.
+%
+\def\smalldisplayx{\begingroup
+  \def\Esmalldisplay{\nonfillfinish\endgroup}%
+  \smallfonts \rm
+  \display
+}
+
+% @format: same as @display except don't narrow margins.
 %
 \def\format{\begingroup
   \let\nonarrowing = t
@@ -3546,20 +4243,27 @@ width0pt\relax} \fi
   \gobble
 }
 
-% @flushleft (same as @format) and @flushright.
+% @smallformat (when @smallbook): @format plus smaller fonts.
 %
-\def\flushleft{\begingroup
-  \let\nonarrowing = t
-  \nonfillstart
-  \let\Eflushleft = \nonfillfinish
-  \gobble
+\def\smallformatx{\begingroup
+  \def\Esmallformat{\nonfillfinish\endgroup}%
+  \smallfonts \rm
+  \format
 }
+
+% @flushleft (same as @format).
+%
+\def\flushleft{\begingroup \def\Eflushleft{\nonfillfinish\endgroup}\format}
+
+% @flushright.
+%
 \def\flushright{\begingroup
   \let\nonarrowing = t
   \nonfillstart
   \let\Eflushright = \nonfillfinish
   \advance\leftskip by 0pt plus 1fill
-  \gobble}
+  \gobble
+}
 
 % @quotation does normal linebreaking (hence we can't use \nonfillstart)
 % and narrows the margins.
@@ -3582,9 +4286,11 @@ width0pt\relax} \fi
   \fi
 }
 
+
 \message{defuns,}
-% Define formatter for defuns
-% First, allow user to change definition object font (\df) internally
+% @defun etc.
+
+% Allow user to change definition object font (\df) internally
 \def\setdeffont #1 {\csname DEF#1\endcsname}
 
 \newskip\defbodyindent \defbodyindent=.4in
@@ -3618,16 +4324,17 @@ width0pt\relax} \fi
 
 % Definitions of (, ) and & used in args for functions.
 % This is the definition of ( outside of all parentheses.
-\gdef\oprm#1 {{\rm\char`\(}#1 \bf \let(=\opnested %
-\global\advance\parencount by 1 }
+\gdef\oprm#1 {{\rm\char`\(}#1 \bf \let(=\opnested
+  \global\advance\parencount by 1
+}
 %
 % This is the definition of ( when already inside a level of parens.
 \gdef\opnested{\char`\(\global\advance\parencount by 1 }
 %
 \gdef\clrm{% Print a paren in roman if it is taking us back to depth of 0.
-% also in that case restore the outer-level definition of (.
-\ifnum \parencount=1 {\rm \char `\)}\sl \let(=\oprm \else \char `\) \fi
-\global\advance \parencount by -1 }
+  % also in that case restore the outer-level definition of (.
+  \ifnum \parencount=1 {\rm \char `\)}\sl \let(=\oprm \else \char `\) \fi
+  \global\advance \parencount by -1 }
 % If we encounter &foo, then turn on ()-hacking afterwards
 \gdef\amprm#1 {{\rm\&#1}\let(=\oprm \let)=\clrm\ }
 %
@@ -3635,8 +4342,17 @@ width0pt\relax} \fi
 } % End of definition inside \activeparens
 %% These parens (in \boldbrax) actually are a little bolder than the
 %% contained text.  This is especially needed for [ and ]
-\def\opnr{{\sf\char`\(}} \def\clnr{{\sf\char`\)}} \def\ampnr{\&}
-\def\lbrb{{\bf\char`\[}} \def\rbrb{{\bf\char`\]}}
+\def\opnr{{\sf\char`\(}\global\advance\parencount by 1 }
+\def\clnr{{\sf\char`\)}\global\advance\parencount by -1 }
+\let\ampnr = \&
+\def\lbrb{{\bf\char`\[}}
+\def\rbrb{{\bf\char`\]}}
+
+% Active &'s sneak into the index arguments, so make sure it's defined.
+{
+  \catcode`& = 13
+  \global\let& = \ampnr
+}
 
 % First, defname, which formats the header line itself.
 % #1 should be the function name.
@@ -3647,20 +4363,18 @@ width0pt\relax} \fi
 % outside the @def...
 \dimen2=\leftskip
 \advance\dimen2 by -\defbodyindent
-\dimen3=\rightskip
-\advance\dimen3 by -\defbodyindent
-\noindent        %
+\noindent
 \setbox0=\hbox{\hskip \deflastargmargin{\rm #2}\hskip \deftypemargin}%
 \dimen0=\hsize \advance \dimen0 by -\wd0 % compute size for first line
 \dimen1=\hsize \advance \dimen1 by -\defargsindent %size for continuations
-\parshape 2 0in \dimen0 \defargsindent \dimen1     %
+\parshape 2 0in \dimen0 \defargsindent \dimen1
 % Now output arg 2 ("Function" or some such)
 % ending at \deftypemargin from the right margin,
 % but stuck inside a box of width 0 so it does not interfere with linebreaking
 {% Adjust \hsize to exclude the ambient margins,
 % so that \rightline will obey them.
-\advance \hsize by -\dimen2 \advance \hsize by -\dimen3
-\rlap{\rightline{{\rm #2}\hskip \deftypemargin}}}%
+\advance \hsize by -\dimen2
+\rlap{\rightline{{\rm #2}\hskip -1.25pc }}}%
 % Make all lines underfull and no complaints:
 \tolerance=10000 \hbadness=10000
 \advance\leftskip by -\defbodyindent
@@ -3681,23 +4395,62 @@ width0pt\relax} \fi
 \def#1{\endgraf\endgroup\medbreak}%
 \def#2{\begingroup\obeylines\activeparens\spacesplit#3}%
 \parindent=0in
-\advance\leftskip by \defbodyindent \advance \rightskip by \defbodyindent
+\advance\leftskip by \defbodyindent
 \exdentamount=\defbodyindent
 \begingroup %
 \catcode 61=\active % 61 is `='
 \obeylines\activeparens\spacesplit#3}
 
-\def\defmethparsebody #1#2#3#4 {\begingroup\inENV %
+% #1 is the \E... control sequence to end the definition (which we define).
+% #2 is the \...x control sequence for consecutive fns (which we define).
+% #3 is the control sequence to call to resume processing.
+% #4, delimited by the space, is the class name.
+%
+\def\defmethparsebody#1#2#3#4 {\begingroup\inENV %
 \medbreak %
 % Define the end token that this defining construct specifies
 % so that it will exit this group.
 \def#1{\endgraf\endgroup\medbreak}%
 \def#2##1 {\begingroup\obeylines\activeparens\spacesplit{#3{##1}}}%
 \parindent=0in
-\advance\leftskip by \defbodyindent \advance \rightskip by \defbodyindent
+\advance\leftskip by \defbodyindent
 \exdentamount=\defbodyindent
 \begingroup\obeylines\activeparens\spacesplit{#3{#4}}}
 
+% Used for @deftypemethod and @deftypeivar.
+% #1 is the \E... control sequence to end the definition (which we define).
+% #2 is the \...x control sequence for consecutive fns (which we define).
+% #3 is the control sequence to call to resume processing.
+% #4, delimited by a space, is the class name.
+% #5 is the method's return type.
+%
+\def\deftypemethparsebody#1#2#3#4 #5 {\begingroup\inENV
+  \medbreak
+  \def#1{\endgraf\endgroup\medbreak}%
+  \def#2##1 ##2 {\begingroup\obeylines\activeparens\spacesplit{#3{##1}{##2}}}%
+  \parindent=0in
+  \advance\leftskip by \defbodyindent
+  \exdentamount=\defbodyindent
+  \begingroup\obeylines\activeparens\spacesplit{#3{#4}{#5}}}
+
+% Used for @deftypeop.  The change from \deftypemethparsebody is an
+% extra argument at the beginning which is the `category', instead of it
+% being the hardwired string `Method' or `Instance Variable'.  We have
+% to account for this both in the \...x definition and in parsing the
+% input at hand.  Thus also need a control sequence (passed as #5) for
+% the \E... definition to assign the category name to.
+% 
+\def\deftypeopparsebody#1#2#3#4#5 #6 {\begingroup\inENV
+  \medbreak
+  \def#1{\endgraf\endgroup\medbreak}%
+  \def#2##1 ##2 ##3 {%
+    \def#4{##1}%
+    \begingroup\obeylines\activeparens\spacesplit{#3{##2}{##3}}}%
+  \parindent=0in
+  \advance\leftskip by \defbodyindent
+  \exdentamount=\defbodyindent
+  \begingroup\obeylines\activeparens\spacesplit{#3{#5}{#6}}}
+
 \def\defopparsebody #1#2#3#4#5 {\begingroup\inENV %
 \medbreak %
 % Define the end token that this defining construct specifies
@@ -3706,7 +4459,7 @@ width0pt\relax} \fi
 \def#2##1 ##2 {\def#4{##1}%
 \begingroup\obeylines\activeparens\spacesplit{#3{##2}}}%
 \parindent=0in
-\advance\leftskip by \defbodyindent \advance \rightskip by \defbodyindent
+\advance\leftskip by \defbodyindent
 \exdentamount=\defbodyindent
 \begingroup\obeylines\activeparens\spacesplit{#3{#5}}}
 
@@ -3721,7 +4474,7 @@ width0pt\relax} \fi
 \def#1{\endgraf\endgroup\medbreak}%
 \def#2{\begingroup\obeylines\spacesplit#3}%
 \parindent=0in
-\advance\leftskip by \defbodyindent \advance \rightskip by \defbodyindent
+\advance\leftskip by \defbodyindent
 \exdentamount=\defbodyindent
 \begingroup %
 \catcode 61=\active %
@@ -3729,7 +4482,7 @@ width0pt\relax} \fi
 
 % This is used for \def{tp,vr}parsebody.  It could probably be used for
 % some of the others, too, with some judicious conditionals.
-% 
+%
 \def\parsebodycommon#1#2#3{%
   \begingroup\inENV %
   \medbreak %
@@ -3738,7 +4491,7 @@ width0pt\relax} \fi
   \def#1{\endgraf\endgroup\medbreak}%
   \def#2##1 {\begingroup\obeylines\spacesplit{#3{##1}}}%
   \parindent=0in
-  \advance\leftskip by \defbodyindent \advance \rightskip by \defbodyindent
+  \advance\leftskip by \defbodyindent
   \exdentamount=\defbodyindent
   \begingroup\obeylines
 }
@@ -3763,17 +4516,16 @@ width0pt\relax} \fi
 }
 
 % Fine, but then we have to eventually remove the \empty *and* the
-% braces (if any).  That's what this does, putting the result in \tptemp.
-% 
-\def\removeemptybraces\empty#1\relax{\def\tptemp{#1}}%
+% braces (if any).  That's what this does.
+%
+\def\removeemptybraces\empty#1\relax{#1}
 
 % After \spacesplit has done its work, this is called -- #1 is the final
 % thing to call, #2 the type name (which starts with \empty), and #3
 % (which might be empty) the arguments.
-% 
+%
 \def\parsetpheaderline#1#2#3{%
-  \removeemptybraces#2\relax
-  #1{\tptemp}{#3}%
+  #1{\removeemptybraces#2\relax}{#3}%
 }%
 
 \def\defopvarparsebody #1#2#3#4#5 {\begingroup\inENV %
@@ -3784,7 +4536,7 @@ width0pt\relax} \fi
 \def#2##1 ##2 {\def#4{##1}%
 \begingroup\obeylines\spacesplit{#3{##2}}}%
 \parindent=0in
-\advance\leftskip by \defbodyindent \advance \rightskip by \defbodyindent
+\advance\leftskip by \defbodyindent
 \exdentamount=\defbodyindent
 \begingroup\obeylines\spacesplit{#3{#5}}}
 
@@ -3808,16 +4560,17 @@ width0pt\relax} \fi
 % First, define the processing that is wanted for arguments of \defun
 % Use this to expand the args and terminate the paragraph they make up
 
-\def\defunargs #1{\functionparens \sl
+\def\defunargs#1{\functionparens \sl
 % Expand, preventing hyphenation at `-' chars.
 % Note that groups don't affect changes in \hyphenchar.
-\hyphenchar\tensl=0
+% Set the font temporarily and use \font in case \setfont made \tensl a macro.
+{\tensl\hyphenchar\font=0}%
 #1%
-\hyphenchar\tensl=45
-\ifnum\parencount=0 \else \errmessage{unbalanced parens in @def arguments}\fi%
+{\tensl\hyphenchar\font=45}%
+\ifnum\parencount=0 \else \errmessage{Unbalanced parentheses in @def}\fi%
 \interlinepenalty=10000
 \advance\rightskip by 0pt plus 1fil
-\endgraf\penalty 10000\vskip -\parskip\penalty 10000%
+\endgraf\nobreak\vskip -\parskip\nobreak
 }
 
 \def\deftypefunargs #1{%
@@ -3828,7 +4581,7 @@ width0pt\relax} \fi
 \tclose{#1}% avoid \code because of side effects on active chars
 \interlinepenalty=10000
 \advance\rightskip by 0pt plus 1fil
-\endgraf\penalty 10000\vskip -\parskip\penalty 10000%
+\endgraf\nobreak\vskip -\parskip\nobreak
 }
 
 % Do complete processing of one @defun or @defunx line already parsed.
@@ -3847,7 +4600,7 @@ width0pt\relax} \fi
 \def\defun{\defparsebody\Edefun\defunx\defunheader}
 
 \def\defunheader #1#2{\doind {fn}{\code{#1}}% Make entry in function index
-\begingroup\defname {#1}{Function}%
+\begingroup\defname {#1}{\putwordDeffunc}%
 \defunargs {#2}\endgroup %
 \catcode 61=\other % Turn off change made in \defparsebody
 }
@@ -3861,7 +4614,7 @@ width0pt\relax} \fi
 % #1 is the data type, #2 the name, #3 the args.
 \def\deftypefunheaderx #1#2 #3\relax{%
 \doind {fn}{\code{#2}}% Make entry in function index
-\begingroup\defname {\defheaderxcond#1\relax$$$#2}{Function}%
+\begingroup\defname {\defheaderxcond#1\relax$$$#2}{\putwordDeftypefun}%
 \deftypefunargs {#3}\endgroup %
 \catcode 61=\other % Turn off change made in \defparsebody
 }
@@ -3892,7 +4645,7 @@ width0pt\relax} \fi
 \def\defmac{\defparsebody\Edefmac\defmacx\defmacheader}
 
 \def\defmacheader #1#2{\doind {fn}{\code{#1}}% Make entry in function index
-\begingroup\defname {#1}{Macro}%
+\begingroup\defname {#1}{\putwordDefmac}%
 \defunargs {#2}\endgroup %
 \catcode 61=\other % Turn off change made in \defparsebody
 }
@@ -3902,42 +4655,77 @@ width0pt\relax} \fi
 \def\defspec{\defparsebody\Edefspec\defspecx\defspecheader}
 
 \def\defspecheader #1#2{\doind {fn}{\code{#1}}% Make entry in function index
-\begingroup\defname {#1}{Special Form}%
+\begingroup\defname {#1}{\putwordDefspec}%
 \defunargs {#2}\endgroup %
 \catcode 61=\other % Turn off change made in \defparsebody
 }
 
-% This definition is run if you use @defunx
-% anywhere other than immediately after a @defun or @defunx.
-
-\def\deffnx #1 {\errmessage{@deffnx in invalid context}}
-\def\defunx #1 {\errmessage{@defunx in invalid context}}
-\def\defmacx #1 {\errmessage{@defmacx in invalid context}}
-\def\defspecx #1 {\errmessage{@defspecx in invalid context}}
-\def\deftypefnx #1 {\errmessage{@deftypefnx in invalid context}}
-\def\deftypeunx #1 {\errmessage{@deftypeunx in invalid context}}
-
-% @defmethod, and so on
-
-% @defop {Funny Method} foo-class frobnicate argument
-
+% @defop CATEGORY CLASS OPERATION ARG...
+%
 \def\defop #1 {\def\defoptype{#1}%
 \defopparsebody\Edefop\defopx\defopheader\defoptype}
-
-\def\defopheader #1#2#3{%
-\dosubind {fn}{\code{#2}}{on #1}% Make entry in function index
-\begingroup\defname {#2}{\defoptype{} on #1}%
+%
+\def\defopheader#1#2#3{%
+\dosubind {fn}{\code{#2}}{\putwordon\ #1}% Make entry in function index
+\begingroup\defname {#2}{\defoptype\ \putwordon\ #1}%
 \defunargs {#3}\endgroup %
 }
 
-% @defmethod == @defop Method
+% @deftypeop CATEGORY CLASS TYPE OPERATION ARG...
+%
+\def\deftypeop #1 {\def\deftypeopcategory{#1}%
+  \deftypeopparsebody\Edeftypeop\deftypeopx\deftypeopheader
+                       \deftypeopcategory}
+%
+% #1 is the class name, #2 the data type, #3 the operation name, #4 the args.
+\def\deftypeopheader#1#2#3#4{%
+  \dosubind{fn}{\code{#3}}{\putwordon\ \code{#1}}% entry in function index
+  \begingroup
+    \defname{\defheaderxcond#2\relax$$$#3}
+            {\deftypeopcategory\ \putwordon\ \code{#1}}%
+    \deftypefunargs{#4}%
+  \endgroup
+}
 
-\def\defmethod{\defmethparsebody\Edefmethod\defmethodx\defmethodheader}
+% @deftypemethod CLASS TYPE METHOD ARG...
+%
+\def\deftypemethod{%
+  \deftypemethparsebody\Edeftypemethod\deftypemethodx\deftypemethodheader}
+%
+% #1 is the class name, #2 the data type, #3 the method name, #4 the args.
+\def\deftypemethodheader#1#2#3#4{%
+  \dosubind{fn}{\code{#3}}{\putwordon\ \code{#1}}% entry in function index
+  \begingroup
+    \defname{\defheaderxcond#2\relax$$$#3}{\putwordMethodon\ \code{#1}}%
+    \deftypefunargs{#4}%
+  \endgroup
+}
 
-\def\defmethodheader #1#2#3{%
-\dosubind {fn}{\code{#2}}{on #1}% entry in function index
-\begingroup\defname {#2}{Method on #1}%
-\defunargs {#3}\endgroup %
+% @deftypeivar CLASS TYPE VARNAME
+%
+\def\deftypeivar{%
+  \deftypemethparsebody\Edeftypeivar\deftypeivarx\deftypeivarheader}
+%
+% #1 is the class name, #2 the data type, #3 the variable name.
+\def\deftypeivarheader#1#2#3{%
+  \dosubind{vr}{\code{#3}}{\putwordof\ \code{#1}}% entry in variable index
+  \begingroup
+    \defname{#3}{\putwordInstanceVariableof\ \code{#1}}%
+    \defvarargs{#3}%
+  \endgroup
+}
+
+% @defmethod == @defop Method
+%
+\def\defmethod{\defmethparsebody\Edefmethod\defmethodx\defmethodheader}
+%
+% #1 is the class name, #2 the method name, #3 the args.
+\def\defmethodheader#1#2#3{%
+  \dosubind{fn}{\code{#2}}{\putwordon\ \code{#1}}% entry in function index
+  \begingroup
+    \defname{#2}{\putwordMethodon\ \code{#1}}%
+    \defunargs{#3}%
+  \endgroup
 }
 
 % @defcv {Class Option} foo-class foo-flag
@@ -3946,37 +4734,30 @@ width0pt\relax} \fi
 \defopvarparsebody\Edefcv\defcvx\defcvarheader\defcvtype}
 
 \def\defcvarheader #1#2#3{%
-\dosubind {vr}{\code{#2}}{of #1}% Make entry in var index
-\begingroup\defname {#2}{\defcvtype{} of #1}%
+\dosubind {vr}{\code{#2}}{\putwordof\ #1}% Make entry in var index
+\begingroup\defname {#2}{\defcvtype\ \putwordof\ #1}%
 \defvarargs {#3}\endgroup %
 }
 
-% @defivar == @defcv {Instance Variable}
-
+% @defivar CLASS VARNAME == @defcv {Instance Variable} CLASS VARNAME
+%
 \def\defivar{\defvrparsebody\Edefivar\defivarx\defivarheader}
-
-\def\defivarheader #1#2#3{%
-\dosubind {vr}{\code{#2}}{of #1}% Make entry in var index
-\begingroup\defname {#2}{Instance Variable of #1}%
-\defvarargs {#3}\endgroup %
+%
+\def\defivarheader#1#2#3{%
+  \dosubind {vr}{\code{#2}}{\putwordof\ #1}% entry in var index
+  \begingroup
+    \defname{#2}{\putwordInstanceVariableof\ #1}%
+    \defvarargs{#3}%
+  \endgroup
 }
 
-% These definitions are run if you use @defmethodx, etc.,
-% anywhere other than immediately after a @defmethod, etc.
-
-\def\defopx #1 {\errmessage{@defopx in invalid context}}
-\def\defmethodx #1 {\errmessage{@defmethodx in invalid context}}
-\def\defcvx #1 {\errmessage{@defcvx in invalid context}}
-\def\defivarx #1 {\errmessage{@defivarx in invalid context}}
-
-% Now @defvar
-
+% @defvar
 % First, define the processing that is wanted for arguments of @defvar.
 % This is actually simple: just print them in roman.
 % This must expand the args and terminate the paragraph they make up
 \def\defvarargs #1{\normalparens #1%
 \interlinepenalty=10000
-\endgraf\penalty 10000\vskip -\parskip\penalty 10000}
+\endgraf\nobreak\vskip -\parskip\nobreak}
 
 % @defvr Counter foo-count
 
@@ -3990,7 +4771,7 @@ width0pt\relax} \fi
 \def\defvar{\defvarparsebody\Edefvar\defvarx\defvarheader}
 
 \def\defvarheader #1#2{\doind {vr}{\code{#1}}% Make entry in var index
-\begingroup\defname {#1}{Variable}%
+\begingroup\defname {#1}{\putwordDefvar}%
 \defvarargs {#2}\endgroup %
 }
 
@@ -3999,7 +4780,7 @@ width0pt\relax} \fi
 \def\defopt{\defvarparsebody\Edefopt\defoptx\defoptheader}
 
 \def\defoptheader #1#2{\doind {vr}{\code{#1}}% Make entry in var index
-\begingroup\defname {#1}{User Option}%
+\begingroup\defname {#1}{\putwordDefopt}%
 \defvarargs {#2}\endgroup %
 }
 
@@ -4007,33 +4788,26 @@ width0pt\relax} \fi
 
 \def\deftypevar{\defvarparsebody\Edeftypevar\deftypevarx\deftypevarheader}
 
-% #1 is the data type.  #2 is the name.
+% #1 is the data type.  #2 is the name, perhaps followed by text that
+% is actually part of the data type, which should not be put into the index.
 \def\deftypevarheader #1#2{%
-\doind {vr}{\code{#2}}% Make entry in variables index
-\begingroup\defname {\defheaderxcond#1\relax$$$#2}{Variable}%
+\dovarind#2 \relax% Make entry in variables index
+\begingroup\defname {\defheaderxcond#1\relax$$$#2}{\putwordDeftypevar}%
 \interlinepenalty=10000
-\endgraf\penalty 10000\vskip -\parskip\penalty 10000
+\endgraf\nobreak\vskip -\parskip\nobreak
 \endgroup}
+\def\dovarind#1 #2\relax{\doind{vr}{\code{#1}}}
 
 % @deftypevr {Global Flag} int enable
 
 \def\deftypevr{\defvrparsebody\Edeftypevr\deftypevrx\deftypevrheader}
 
-\def\deftypevrheader #1#2#3{\doind {vr}{\code{#3}}%
+\def\deftypevrheader #1#2#3{\dovarind#3 \relax%
 \begingroup\defname {\defheaderxcond#2\relax$$$#3}{#1}
 \interlinepenalty=10000
-\endgraf\penalty 10000\vskip -\parskip\penalty 10000
+\endgraf\nobreak\vskip -\parskip\nobreak
 \endgroup}
 
-% This definition is run if you use @defvarx
-% anywhere other than immediately after a @defvar or @defvarx.
-
-\def\defvrx #1 {\errmessage{@defvrx in invalid context}}
-\def\defvarx #1 {\errmessage{@defvarx in invalid context}}
-\def\defoptx #1 {\errmessage{@defoptx in invalid context}}
-\def\deftypevarx #1 {\errmessage{@deftypevarx in invalid context}}
-\def\deftypevrx #1 {\errmessage{@deftypevrx in invalid context}}
-
 % Now define @deftp
 % Args are printed in bold, a slight difference from @defvar.
 
@@ -4046,51 +4820,394 @@ width0pt\relax} \fi
 \def\deftpheader #1#2#3{\doind {tp}{\code{#2}}%
 \begingroup\defname {#2}{#1}\deftpargs{#3}\endgroup}
 
-% This definition is run if you use @deftpx, etc
-% anywhere other than immediately after a @deftp, etc.
+% These definitions are used if you use @defunx (etc.)
+% anywhere other than immediately after a @defun or @defunx.
+% 
+\def\defcvx#1 {\errmessage{@defcvx in invalid context}}
+\def\deffnx#1 {\errmessage{@deffnx in invalid context}}
+\def\defivarx#1 {\errmessage{@defivarx in invalid context}}
+\def\defmacx#1 {\errmessage{@defmacx in invalid context}}
+\def\defmethodx#1 {\errmessage{@defmethodx in invalid context}}
+\def\defoptx #1 {\errmessage{@defoptx in invalid context}}
+\def\defopx#1 {\errmessage{@defopx in invalid context}}
+\def\defspecx#1 {\errmessage{@defspecx in invalid context}}
+\def\deftpx#1 {\errmessage{@deftpx in invalid context}}
+\def\deftypefnx#1 {\errmessage{@deftypefnx in invalid context}}
+\def\deftypefunx#1 {\errmessage{@deftypefunx in invalid context}}
+\def\deftypeivarx#1 {\errmessage{@deftypeivarx in invalid context}}
+\def\deftypemethodx#1 {\errmessage{@deftypemethodx in invalid context}}
+\def\deftypeopx#1 {\errmessage{@deftypeopx in invalid context}}
+\def\deftypevarx#1 {\errmessage{@deftypevarx in invalid context}}
+\def\deftypevrx#1 {\errmessage{@deftypevrx in invalid context}}
+\def\defunx#1 {\errmessage{@defunx in invalid context}}
+\def\defvarx#1 {\errmessage{@defvarx in invalid context}}
+\def\defvrx#1 {\errmessage{@defvrx in invalid context}}
+
+
+\message{macros,}
+% @macro.
+
+% To do this right we need a feature of e-TeX, \scantokens,
+% which we arrange to emulate with a temporary file in ordinary TeX.
+\ifx\eTeXversion\undefined
+ \newwrite\macscribble
+ \def\scanmacro#1{%
+   \begingroup \newlinechar`\^^M
+   % Undo catcode changes of \startcontents and \doprintindex
+   \catcode`\@=0 \catcode`\\=12 \escapechar=`\@
+   % Append \endinput to make sure that TeX does not see the ending newline.
+   \toks0={#1\endinput}%
+   \immediate\openout\macscribble=\jobname.tmp
+   \immediate\write\macscribble{\the\toks0}%
+   \immediate\closeout\macscribble
+   \let\xeatspaces\eatspaces
+   \input \jobname.tmp
+   \endgroup
+}
+\else
+\def\scanmacro#1{%
+\begingroup \newlinechar`\^^M
+% Undo catcode changes of \startcontents and \doprintindex
+\catcode`\@=0 \catcode`\\=12 \escapechar=`\@
+\let\xeatspaces\eatspaces\scantokens{#1\endinput}\endgroup}
+\fi
+
+\newcount\paramno   % Count of parameters
+\newtoks\macname    % Macro name
+\newif\ifrecursive  % Is it recursive?
+\def\macrolist{}    % List of all defined macros in the form
+                    % \do\macro1\do\macro2...
+
+% Utility routines.
+% Thisdoes \let #1 = #2, except with \csnames.
+\def\cslet#1#2{%
+\expandafter\expandafter
+\expandafter\let
+\expandafter\expandafter
+\csname#1\endcsname
+\csname#2\endcsname}
+
+% Trim leading and trailing spaces off a string.
+% Concepts from aro-bend problem 15 (see CTAN).
+{\catcode`\@=11
+\gdef\eatspaces #1{\expandafter\trim@\expandafter{#1 }}
+\gdef\trim@ #1{\trim@@ @#1 @ #1 @ @@}
+\gdef\trim@@ #1@ #2@ #3@@{\trim@@@\empty #2 @}
+\def\unbrace#1{#1}
+\unbrace{\gdef\trim@@@ #1 } #2@{#1}
+}
+
+% Trim a single trailing ^^M off a string.
+{\catcode`\^^M=12\catcode`\Q=3%
+\gdef\eatcr #1{\eatcra #1Q^^MQ}%
+\gdef\eatcra#1^^MQ{\eatcrb#1Q}%
+\gdef\eatcrb#1Q#2Q{#1}%
+}
+
+% Macro bodies are absorbed as an argument in a context where
+% all characters are catcode 10, 11 or 12, except \ which is active
+% (as in normal texinfo). It is necessary to change the definition of \.
+
+% It's necessary to have hard CRs when the macro is executed. This is
+% done by  making ^^M (\endlinechar) catcode 12 when reading the macro
+% body, and then making it the \newlinechar in \scanmacro.
+
+\def\macrobodyctxt{%
+  \catcode`\~=12
+  \catcode`\^=12
+  \catcode`\_=12
+  \catcode`\|=12
+  \catcode`\<=12
+  \catcode`\>=12
+  \catcode`\+=12
+  \catcode`\{=12
+  \catcode`\}=12
+  \catcode`\@=12
+  \catcode`\^^M=12
+  \usembodybackslash}
+
+\def\macroargctxt{%
+  \catcode`\~=12
+  \catcode`\^=12
+  \catcode`\_=12
+  \catcode`\|=12
+  \catcode`\<=12
+  \catcode`\>=12
+  \catcode`\+=12
+  \catcode`\@=12
+  \catcode`\\=12}
+
+% \mbodybackslash is the definition of \ in @macro bodies.
+% It maps \foo\ => \csname macarg.foo\endcsname => #N
+% where N is the macro parameter number.
+% We define \csname macarg.\endcsname to be \realbackslash, so
+% \\ in macro replacement text gets you a backslash.
+
+{\catcode`@=0 @catcode`@\=@active
+ @gdef@usembodybackslash{@let\=@mbodybackslash}
+ @gdef@mbodybackslash#1\{@csname macarg.#1@endcsname}
+}
+\expandafter\def\csname macarg.\endcsname{\realbackslash}
+
+\def\macro{\recursivefalse\parsearg\macroxxx}
+\def\rmacro{\recursivetrue\parsearg\macroxxx}
+
+\def\macroxxx#1{%
+  \getargs{#1}%           now \macname is the macname and \argl the arglist
+  \ifx\argl\empty       % no arguments
+     \paramno=0%
+  \else
+     \expandafter\parsemargdef \argl;%
+  \fi
+  \if1\csname ismacro.\the\macname\endcsname
+     \message{Warning: redefining \the\macname}%
+  \else
+     \expandafter\ifx\csname \the\macname\endcsname \relax
+     \else \errmessage{The name \the\macname\space is reserved}\fi
+     \global\cslet{macsave.\the\macname}{\the\macname}%
+     \global\expandafter\let\csname ismacro.\the\macname\endcsname=1%
+     % Add the macroname to \macrolist
+     \toks0 = \expandafter{\macrolist\do}%
+     \xdef\macrolist{\the\toks0
+       \expandafter\noexpand\csname\the\macname\endcsname}%
+  \fi
+  \begingroup \macrobodyctxt
+  \ifrecursive \expandafter\parsermacbody
+  \else \expandafter\parsemacbody
+  \fi}
+
+\def\unmacro{\parsearg\unmacroxxx}
+\def\unmacroxxx#1{%
+  \if1\csname ismacro.#1\endcsname
+    \global\cslet{#1}{macsave.#1}%
+    \global\expandafter\let \csname ismacro.#1\endcsname=0%
+    % Remove the macro name from \macrolist
+    \begingroup
+      \edef\tempa{\expandafter\noexpand\csname#1\endcsname}%
+      \def\do##1{%
+        \def\tempb{##1}%
+        \ifx\tempa\tempb
+          % remove this
+        \else
+          \toks0 = \expandafter{\newmacrolist\do}%
+          \edef\newmacrolist{\the\toks0\expandafter\noexpand\tempa}%
+        \fi}%
+      \def\newmacrolist{}%
+      % Execute macro list to define \newmacrolist
+      \macrolist
+      \global\let\macrolist\newmacrolist
+    \endgroup
+  \else
+    \errmessage{Macro #1 not defined}%
+  \fi
+}
+
+% This makes use of the obscure feature that if the last token of a
+% <parameter list> is #, then the preceding argument is delimited by
+% an opening brace, and that opening brace is not consumed.
+\def\getargs#1{\getargsxxx#1{}}
+\def\getargsxxx#1#{\getmacname #1 \relax\getmacargs}
+\def\getmacname #1 #2\relax{\macname={#1}}
+\def\getmacargs#1{\def\argl{#1}}
+
+% Parse the optional {params} list.  Set up \paramno and \paramlist
+% so \defmacro knows what to do.  Define \macarg.blah for each blah
+% in the params list, to be ##N where N is the position in that list.
+% That gets used by \mbodybackslash (above).
+
+% We need to get `macro parameter char #' into several definitions.
+% The technique used is stolen from LaTeX:  let \hash be something
+% unexpandable, insert that wherever you need a #, and then redefine
+% it to # just before using the token list produced.
+%
+% The same technique is used to protect \eatspaces till just before
+% the macro is used.
+
+\def\parsemargdef#1;{\paramno=0\def\paramlist{}%
+        \let\hash\relax\let\xeatspaces\relax\parsemargdefxxx#1,;,}
+\def\parsemargdefxxx#1,{%
+  \if#1;\let\next=\relax
+  \else \let\next=\parsemargdefxxx
+    \advance\paramno by 1%
+    \expandafter\edef\csname macarg.\eatspaces{#1}\endcsname
+        {\xeatspaces{\hash\the\paramno}}%
+    \edef\paramlist{\paramlist\hash\the\paramno,}%
+  \fi\next}
+
+% These two commands read recursive and nonrecursive macro bodies.
+% (They're different since rec and nonrec macros end differently.)
+
+\long\def\parsemacbody#1@end macro%
+{\xdef\temp{\eatcr{#1}}\endgroup\defmacro}%
+\long\def\parsermacbody#1@end rmacro%
+{\xdef\temp{\eatcr{#1}}\endgroup\defmacro}%
+
+% This defines the macro itself. There are six cases: recursive and
+% nonrecursive macros of zero, one, and many arguments.
+% Much magic with \expandafter here.
+% \xdef is used so that macro definitions will survive the file
+% they're defined in; @include reads the file inside a group.
+\def\defmacro{%
+  \let\hash=##% convert placeholders to macro parameter chars
+  \ifrecursive
+    \ifcase\paramno
+    % 0
+      \expandafter\xdef\csname\the\macname\endcsname{%
+        \noexpand\scanmacro{\temp}}%
+    \or % 1
+      \expandafter\xdef\csname\the\macname\endcsname{%
+         \bgroup\noexpand\macroargctxt
+         \noexpand\braceorline
+         \expandafter\noexpand\csname\the\macname xxx\endcsname}%
+      \expandafter\xdef\csname\the\macname xxx\endcsname##1{%
+         \egroup\noexpand\scanmacro{\temp}}%
+    \else % many
+      \expandafter\xdef\csname\the\macname\endcsname{%
+         \bgroup\noexpand\macroargctxt
+         \noexpand\csname\the\macname xx\endcsname}%
+      \expandafter\xdef\csname\the\macname xx\endcsname##1{%
+          \expandafter\noexpand\csname\the\macname xxx\endcsname ##1,}%
+      \expandafter\expandafter
+      \expandafter\xdef
+      \expandafter\expandafter
+        \csname\the\macname xxx\endcsname
+          \paramlist{\egroup\noexpand\scanmacro{\temp}}%
+    \fi
+  \else
+    \ifcase\paramno
+    % 0
+      \expandafter\xdef\csname\the\macname\endcsname{%
+        \noexpand\norecurse{\the\macname}%
+        \noexpand\scanmacro{\temp}\egroup}%
+    \or % 1
+      \expandafter\xdef\csname\the\macname\endcsname{%
+         \bgroup\noexpand\macroargctxt
+         \noexpand\braceorline
+         \expandafter\noexpand\csname\the\macname xxx\endcsname}%
+      \expandafter\xdef\csname\the\macname xxx\endcsname##1{%
+        \egroup
+        \noexpand\norecurse{\the\macname}%
+        \noexpand\scanmacro{\temp}\egroup}%
+    \else % many
+      \expandafter\xdef\csname\the\macname\endcsname{%
+         \bgroup\noexpand\macroargctxt
+         \expandafter\noexpand\csname\the\macname xx\endcsname}%
+      \expandafter\xdef\csname\the\macname xx\endcsname##1{%
+          \expandafter\noexpand\csname\the\macname xxx\endcsname ##1,}%
+      \expandafter\expandafter
+      \expandafter\xdef
+      \expandafter\expandafter
+      \csname\the\macname xxx\endcsname
+      \paramlist{%
+          \egroup
+          \noexpand\norecurse{\the\macname}%
+          \noexpand\scanmacro{\temp}\egroup}%
+    \fi
+  \fi}
+
+\def\norecurse#1{\bgroup\cslet{#1}{macsave.#1}}
 
-\def\deftpx #1 {\errmessage{@deftpx in invalid context}}
+% \braceorline decides whether the next nonwhitespace character is a
+% {.  If so it reads up to the closing }, if not, it reads the whole
+% line.  Whatever was read is then fed to the next control sequence
+% as an argument (by \parsebrace or \parsearg)
+\def\braceorline#1{\let\next=#1\futurelet\nchar\braceorlinexxx}
+\def\braceorlinexxx{%
+  \ifx\nchar\bgroup\else
+    \expandafter\parsearg
+  \fi \next}
 
+% We mant to disable all macros during \shipout so that they are not
+% expanded by \write.
+\def\turnoffmacros{\begingroup \def\do##1{\let\noexpand##1=\relax}%
+  \edef\next{\macrolist}\expandafter\endgroup\next}
 
-\message{cross reference,}
-% Define cross-reference macros
-\newwrite \auxfile
 
-\newif\ifhavexrefs  % True if xref values are known.
+% @alias.
+% We need some trickery to remove the optional spaces around the equal
+% sign.  Just make them active and then expand them all to nothing.
+\def\alias{\begingroup\obeyspaces\parsearg\aliasxxx}
+\def\aliasxxx #1{\aliasyyy#1\relax}
+\def\aliasyyy #1=#2\relax{\ignoreactivespaces
+\edef\next{\global\let\expandafter\noexpand\csname#1\endcsname=%
+           \expandafter\noexpand\csname#2\endcsname}%
+\expandafter\endgroup\next}
+
+
+\message{cross references,}
+% @xref etc.
+
+\newwrite\auxfile
+
+\newif\ifhavexrefs    % True if xref values are known.
 \newif\ifwarnedxrefs  % True if we warned once that they aren't known.
 
-% @inforef is simple.
+% @inforef is relatively simple.
 \def\inforef #1{\inforefzzz #1,,,,**}
 \def\inforefzzz #1,#2,#3,#4**{\putwordSee{} \putwordInfo{} \putwordfile{} \file{\ignorespaces #3{}},
   node \samp{\ignorespaces#1{}}}
 
-% \setref{foo} defines a cross-reference point named foo.
+% @node's job is to define \lastnode.
+\def\node{\ENVcheck\parsearg\nodezzz}
+\def\nodezzz#1{\nodexxx [#1,]}
+\def\nodexxx[#1,#2]{\gdef\lastnode{#1}}
+\let\nwnode=\node
+\let\lastnode=\relax
 
-\def\setref#1{%
-\dosetq{#1-title}{Ytitle}%
-\dosetq{#1-pg}{Ypagenumber}%
-\dosetq{#1-snt}{Ysectionnumberandtype}}
+% The sectioning commands (@chapter, etc.) call these.
+\def\donoderef{%
+  \ifx\lastnode\relax\else
+    \expandafter\expandafter\expandafter\setref{\lastnode}%
+      {Ysectionnumberandtype}%
+    \global\let\lastnode=\relax
+  \fi
+}
+\def\unnumbnoderef{%
+  \ifx\lastnode\relax\else
+    \expandafter\expandafter\expandafter\setref{\lastnode}{Ynothing}%
+    \global\let\lastnode=\relax
+  \fi
+}
+\def\appendixnoderef{%
+  \ifx\lastnode\relax\else
+    \expandafter\expandafter\expandafter\setref{\lastnode}%
+      {Yappendixletterandtype}%
+    \global\let\lastnode=\relax
+  \fi
+}
 
-\def\unnumbsetref#1{%
-\dosetq{#1-title}{Ytitle}%
-\dosetq{#1-pg}{Ypagenumber}%
-\dosetq{#1-snt}{Ynothing}}
 
-\def\appendixsetref#1{%
-\dosetq{#1-title}{Ytitle}%
-\dosetq{#1-pg}{Ypagenumber}%
-\dosetq{#1-snt}{Yappendixletterandtype}}
+% @anchor{NAME} -- define xref target at arbitrary point.
+%
+\newcount\savesfregister
+\gdef\savesf{\relax \ifhmode \savesfregister=\spacefactor \fi}
+\gdef\restoresf{\relax \ifhmode \spacefactor=\savesfregister \fi}
+\gdef\anchor#1{\savesf \setref{#1}{Ynothing}\restoresf \ignorespaces}
+
+% \setref{NAME}{SNT} defines a cross-reference point NAME, namely
+% NAME-title, NAME-pg, and NAME-SNT.  Called from \foonoderef.  We have
+% to set \indexdummies so commands such as @code in a section title
+% aren't expanded.  It would be nicer not to expand the titles in the
+% first place, but there's so many layers that that is hard to do.
+%
+\def\setref#1#2{{%
+  \indexdummies
+  \pdfmkdest{#1}%
+  \dosetq{#1-title}{Ytitle}%
+  \dosetq{#1-pg}{Ypagenumber}%
+  \dosetq{#1-snt}{#2}%
+}}
 
-% \xref, \pxref, and \ref generate cross-references to specified points.
-% For \xrefX, #1 is the node name, #2 the name of the Info
-% cross-reference, #3 the printed node name, #4 the name of the Info
-% file, #5 the name of the printed manual.  All but the node name can be
-% omitted.
+% @xref, @pxref, and @ref generate cross-references.  For \xrefX, #1 is
+% the node name, #2 the name of the Info cross-reference, #3 the printed
+% node name, #4 the name of the Info file, #5 the name of the printed
+% manual.  All but the node name can be omitted.
 %
 \def\pxref#1{\putwordsee{} \xrefX[#1,,,,,,,]}
 \def\xref#1{\putwordSee{} \xrefX[#1,,,,,,,]}
 \def\ref#1{\xrefX[#1,,,,,,,]}
 \def\xrefX[#1,#2,#3,#4,#5,#6]{\begingroup
+  \unsepspaces
   \def\printedmanual{\ignorespaces #5}%
   \def\printednodename{\ignorespaces #3}%
   \setbox1=\hbox{\printedmanual}%
@@ -4103,7 +5220,7 @@ width0pt\relax} \fi
     \else
       % Use the actual chapter/section title appear inside
       % the square brackets.  Use the real section title if we have it.
-      \ifdim \wd1>0pt%
+      \ifdim \wd1 > 0pt
         % It is in another manual, so we don't have it.
         \def\printednodename{\ignorespaces #1}%
       \else
@@ -4124,27 +5241,54 @@ width0pt\relax} \fi
   % are best written with fairly long node names, containing hyphens, this
   % is a loss.  Therefore, we give the text of the node name again, so it
   % is as if TeX is seeing it for the first time.
+  \ifpdf
+    \leavevmode
+    \getfilename{#4}%
+    \ifnum\filenamelength>0
+      \startlink attr{/Border [0 0 0]}%
+        goto file{\the\filename.pdf} name{#1@}%
+    \else
+      \startlink attr{/Border [0 0 0]}%
+        goto name{#1@}%
+    \fi
+    \linkcolor
+  \fi
+  %
   \ifdim \wd1 > 0pt
-    \putwordsection{} ``\printednodename'' in \cite{\printedmanual}%
+    \putwordsection{} ``\printednodename'' \putwordin{} \cite{\printedmanual}%
   \else
     % _ (for example) has to be the character _ for the purposes of the
     % control sequence corresponding to the node, but it has to expand
     % into the usual \leavevmode...\vrule stuff for purposes of
     % printing. So we \turnoffactive for the \refx-snt, back on for the
     % printing, back off for the \refx-pg.
-    {\turnoffactive \refx{#1-snt}{}}%
-    \space [\printednodename],\space
+    {\normalturnoffactive
+     % Only output a following space if the -snt ref is nonempty; for
+     % @unnumbered and @anchor, it won't be.
+     \setbox2 = \hbox{\ignorespaces \refx{#1-snt}{}}%
+     \ifdim \wd2 > 0pt \refx{#1-snt}\space\fi
+    }%
+    % [mynode],
+    [\printednodename],\space
+    % page 3
     \turnoffactive \putwordpage\tie\refx{#1-pg}{}%
   \fi
+  \endlink
 \endgroup}
 
 % \dosetq is the interface for calls from other macros
 
-% Use \turnoffactive so that punctuation chars such as underscore
-% work in node names.
-\def\dosetq #1#2{{\let\folio=0 \turnoffactive \auxhat%
-\edef\next{\write\auxfile{\internalsetq {#1}{#2}}}%
-\next}}
+% Use \normalturnoffactive so that punctuation chars such as underscore
+% and backslash work in node names.  (\turnoffactive doesn't do \.)
+\def\dosetq#1#2{%
+  {\let\folio=0%
+   \normalturnoffactive
+   \edef\next{\write\auxfile{\internalsetq{#1}{#2}}}%
+   \iflinks
+     \next
+   \fi
+  }%
+}
 
 % \internalsetq {foo}{page} expands into
 % CHARACTERS 'xrdef {foo}{...expansion of \Ypage...}
@@ -4195,13 +5339,15 @@ width0pt\relax} \fi
 \def\refx#1#2{%
   \expandafter\ifx\csname X#1\endcsname\relax
     % If not defined, say something at least.
-    $\langle$un\-de\-fined$\rangle$%
-    \ifhavexrefs
-      \message{\linenumber Undefined cross reference `#1'.}%
-    \else
-      \ifwarnedxrefs\else
-        \global\warnedxrefstrue
-        \message{Cross reference values unknown; you must run TeX again.}%
+    \angleleft un\-de\-fined\angleright
+    \iflinks
+      \ifhavexrefs
+        \message{\linenumber Undefined cross reference `#1'.}%
+      \else
+        \ifwarnedxrefs\else
+          \global\warnedxrefstrue
+          \message{Cross reference values unknown; you must run TeX again.}%
+        \fi
       \fi
     \fi
   \else
@@ -4211,84 +5357,101 @@ width0pt\relax} \fi
   #2% Output the suffix in any case.
 }
 
-% Read the last existing aux file, if any.  No error if none exists.
-
 % This is the macro invoked by entries in the aux file.
-\def\xrdef #1#2{
-{\catcode`\'=\other\expandafter \gdef \csname X#1\endcsname {#2}}}
+%
+\def\xrdef#1{\begingroup
+  % Reenable \ as an escape while reading the second argument.
+  \catcode`\\ = 0
+  \afterassignment\endgroup
+  \expandafter\gdef\csname X#1\endcsname
+}
 
-\def\readauxfile{%
-\begingroup
-\catcode `\^^@=\other
-\catcode `\\ 1=\other
-\catcode `\\ 2=\other
-\catcode `\^^C=\other
-\catcode `\^^D=\other
-\catcode `\^^E=\other
-\catcode `\^^F=\other
-\catcode `\^^G=\other
-\catcode `\^^H=\other
-\catcode `\\v=\other
-\catcode `\^^L=\other
-\catcode `\\ e=\other
-\catcode `\\ f=\other
-\catcode `\\10=\other
-\catcode `\\11=\other
-\catcode `\\12=\other
-\catcode `\\13=\other
-\catcode `\\14=\other
-\catcode `\\15=\other
-\catcode `\\16=\other
-\catcode `\\17=\other
-\catcode `\\18=\other
-\catcode `\\19=\other
-\catcode 26=\other
-\catcode `\^^[=\other
-\catcode `\^^\=\other
-\catcode `\^^]=\other
-\catcode `\^^^=\other
-\catcode `\^^_=\other
-\catcode `\@=\other
-\catcode `\^=\other
-\catcode `\~=\other
-\catcode `\[=\other
-\catcode `\]=\other
-\catcode`\"=\other
-\catcode`\_=\other
-\catcode`\|=\other
-\catcode`\<=\other
-\catcode`\>=\other
-\catcode `\$=\other
-\catcode `\#=\other
-\catcode `\&=\other
-% `\+ does not work, so use 43.
-\catcode 43=\other
-% Make the characters 128-255 be printing characters
-{%
-  \count 1=128
-  \def\loop{%
-    \catcode\count 1=\other
-    \advance\count 1 by 1
-    \ifnum \count 1<256 \loop \fi
+% Read the last existing aux file, if any.  No error if none exists.
+\def\readauxfile{\begingroup
+  \catcode`\^^@=\other
+  \catcode`\^^A=\other
+  \catcode`\^^B=\other
+  \catcode`\^^C=\other
+  \catcode`\^^D=\other
+  \catcode`\^^E=\other
+  \catcode`\^^F=\other
+  \catcode`\^^G=\other
+  \catcode`\^^H=\other
+  \catcode`\^^K=\other
+  \catcode`\^^L=\other
+  \catcode`\^^N=\other
+  \catcode`\^^P=\other
+  \catcode`\^^Q=\other
+  \catcode`\^^R=\other
+  \catcode`\^^S=\other
+  \catcode`\^^T=\other
+  \catcode`\^^U=\other
+  \catcode`\^^V=\other
+  \catcode`\^^W=\other
+  \catcode`\^^X=\other
+  \catcode`\^^Z=\other
+  \catcode`\^^[=\other
+  \catcode`\^^\=\other
+  \catcode`\^^]=\other
+  \catcode`\^^^=\other
+  \catcode`\^^_=\other
+  \catcode`\@=\other
+  \catcode`\^=\other
+  % It was suggested to define this as 7, which would allow ^^e4 etc.
+  % in xref tags, i.e., node names.  But since ^^e4 notation isn't
+  % supported in the main text, it doesn't seem desirable.  Furthermore,
+  % that is not enough: for node names that actually contain a ^
+  % character, we would end up writing a line like this: 'xrdef {'hat
+  % b-title}{'hat b} and \xrdef does a \csname...\endcsname on the first
+  % argument, and \hat is not an expandable control sequence.  It could
+  % all be worked out, but why?  Either we support ^^ or we don't.
+  %
+  % The other change necessary for this was to define \auxhat:
+  % \def\auxhat{\def^{'hat }}% extra space so ok if followed by letter
+  % and then to call \auxhat in \setq.
+  %
+  \catcode`\~=\other
+  \catcode`\[=\other
+  \catcode`\]=\other
+  \catcode`\"=\other
+  \catcode`\_=\other
+  \catcode`\|=\other
+  \catcode`\<=\other
+  \catcode`\>=\other
+  \catcode`\$=\other
+  \catcode`\#=\other
+  \catcode`\&=\other
+  \catcode`+=\other % avoid \+ for paranoia even though we've turned it off
+  % Make the characters 128-255 be printing characters
+  {%
+    \count 1=128
+    \def\loop{%
+      \catcode\count 1=\other
+      \advance\count 1 by 1
+      \ifnum \count 1<256 \loop \fi
+    }%
   }%
-}%
-% the aux file uses ' as the escape.
-% Turn off \ as an escape so we do not lose on
-% entries which were dumped with control sequences in their names.
-% For example, 'xrdef {$\leq $-fun}{page ...} made by @defun ^^
-% Reference to such entries still does not work the way one would wish,
-% but at least they do not bomb out when the aux file is read in.
-\catcode `\{=1 \catcode `\}=2
-\catcode `\%=\other
-\catcode `\'=0
-\catcode`\^=7 % to make ^^e4 etc usable in xref tags 
-\catcode `\\=\other
-\openin 1 \jobname.aux
-\ifeof 1 \else \closein 1 \input \jobname.aux \global\havexrefstrue
-\global\warnedobstrue
-\fi
-% Open the new aux file.  Tex will close it automatically at exit.
-\openout \auxfile=\jobname.aux
+  % The aux file uses ' as the escape (for now).
+  % Turn off \ as an escape so we do not lose on
+  % entries which were dumped with control sequences in their names.
+  % For example, 'xrdef {$\leq $-fun}{page ...} made by @defun ^^
+  % Reference to such entries still does not work the way one would wish,
+  % but at least they do not bomb out when the aux file is read in.
+  \catcode`\{=1
+  \catcode`\}=2
+  \catcode`\%=\other
+  \catcode`\'=0
+  \catcode`\\=\other
+  %
+  \openin 1 \jobname.aux
+  \ifeof 1 \else
+    \closein 1
+    \input \jobname.aux
+    \global\havexrefstrue
+    \global\warnedobstrue
+  \fi
+  % Open the new aux file.  TeX will close it automatically at exit.
+  \openout\auxfile=\jobname.aux
 \endgroup}
 
 
@@ -4303,7 +5466,7 @@ width0pt\relax} \fi
 % space to prevent strange expansion errors.)
 \def\supereject{\par\penalty -20000\footnoteno =0 }
 
-% @footnotestyle is meaningful for info output only..
+% @footnotestyle is meaningful for info output only.
 \let\footnotestyle=\comment
 
 \let\ptexfootnote=\footnote
@@ -4329,7 +5492,11 @@ width0pt\relax} \fi
 % Don't bother with the trickery in plain.tex to not require the
 % footnote text as a parameter.  Our footnotes don't need to be so general.
 %
-\long\gdef\footnotezzz#1{\insert\footins{%
+% Oh yes, they do; otherwise, @ifset and anything else that uses
+% \parseargline fail inside footnotes because the tokens are fixed when
+% the footnote is read.  --karl, 16nov96.
+%
+\long\gdef\footnotezzz{\insert\footins\bgroup
   % We want to typeset this text as a normal paragraph, even if the
   % footnote reference occurs in (for example) a display environment.
   % So reset some parameters.
@@ -4343,6 +5510,8 @@ width0pt\relax} \fi
   \xspaceskip\z@skip
   \parindent\defaultparindent
   %
+  \smallfonts \rm
+  %
   % Hang the footnote text off the number.
   \hang
   \textindent{\thisfootno}%
@@ -4351,8 +5520,13 @@ width0pt\relax} \fi
   % expands into a box, it must come within the paragraph, lest it
   % provide a place where TeX can split the footnote.
   \footstrut
-  #1\strut}%
+  \futurelet\next\fo@t
 }
+\def\fo@t{\ifcat\bgroup\noexpand\next \let\next\f@@t
+  \else\let\next\f@t\fi \next}
+\def\f@@t{\bgroup\aftergroup\@foot\let\next}
+\def\f@t#1{#1\@foot}
+\def\@foot{\strut\par\egroup}
 
 }%end \catcode `\@=11
 
@@ -4409,36 +5583,117 @@ width0pt\relax} \fi
 %
 \def\finalout{\overfullrule=0pt}
 
+% @image.  We use the macros from epsf.tex to support this.
+% If epsf.tex is not installed and @image is used, we complain.
+%
+% Check for and read epsf.tex up front.  If we read it only at @image
+% time, we might be inside a group, and then its definitions would get
+% undone and the next image would fail.
+\openin 1 = epsf.tex
+\ifeof 1 \else
+  \closein 1
+  % Do not bother showing banner with post-v2.7 epsf.tex (available in
+  % doc/epsf.tex until it shows up on ctan).
+  \def\epsfannounce{\toks0 = }%
+  \input epsf.tex
+\fi
+%
+% We will only complain once about lack of epsf.tex.
+\newif\ifwarnednoepsf
+\newhelp\noepsfhelp{epsf.tex must be installed for images to
+  work.  It is also included in the Texinfo distribution, or you can get
+  it from ftp://tug.org/tex/epsf.tex.}
+%
+\def\image#1{%
+  \ifx\epsfbox\undefined
+    \ifwarnednoepsf \else
+      \errhelp = \noepsfhelp
+      \errmessage{epsf.tex not found, images will be ignored}%
+      \global\warnednoepsftrue
+    \fi
+  \else
+    \imagexxx #1,,,\finish
+  \fi
+}
+%
+% Arguments to @image:
+% #1 is (mandatory) image filename; we tack on .eps extension.
+% #2 is (optional) width, #3 is (optional) height.
+% #4 is just the usual extra ignored arg for parsing this stuff.
+\def\imagexxx#1,#2,#3,#4\finish{%
+  \ifpdf
+    \centerline{\dopdfimage{#1}{#2}{#3}}%
+  \else
+    % \epsfbox itself resets \epsf?size at each figure.
+    \setbox0 = \hbox{\ignorespaces #2}\ifdim\wd0 > 0pt \epsfxsize=#2\relax \fi
+    \setbox0 = \hbox{\ignorespaces #3}\ifdim\wd0 > 0pt \epsfysize=#3\relax \fi
+    \begingroup
+      \catcode`\^^M = 5 % in case we're inside an example
+      % If the image is by itself, center it.
+      \ifvmode
+        \nobreak\bigskip
+        % Usually we'll have text after the image which will insert
+        % \parskip glue, so insert it here too to equalize the space
+        % above and below. 
+        \nobreak\vskip\parskip
+        \nobreak
+        \centerline{\epsfbox{#1.eps}}%
+        \bigbreak
+      \else
+        % In the middle of a paragraph, no extra space.
+        \epsfbox{#1.eps}%
+      \fi
+    \endgroup
+  \fi
+}
 
-% End of control word definitions.
 
-\message{and turning on texinfo input format.}
+\message{localization,}
+% and i18n.
 
-\def\openindices{%
-   \newindex{cp}%
-   \newcodeindex{fn}%
-   \newcodeindex{vr}%
-   \newcodeindex{tp}%
-   \newcodeindex{ky}%
-   \newcodeindex{pg}%
+% @documentlanguage is usually given very early, just after
+% @setfilename.  If done too late, it may not override everything
+% properly.  Single argument is the language abbreviation.
+% It would be nice if we could set up a hyphenation file here.
+%
+\def\documentlanguage{\parsearg\dodocumentlanguage}
+\def\dodocumentlanguage#1{%
+  \tex % read txi-??.tex file in plain TeX.
+  % Read the file if it exists.
+  \openin 1 txi-#1.tex
+  \ifeof1
+    \errhelp = \nolanghelp
+    \errmessage{Cannot read language file txi-#1.tex}%
+    \let\temp = \relax
+  \else
+    \def\temp{\input txi-#1.tex }%
+  \fi
+  \temp
+  \endgroup
 }
+\newhelp\nolanghelp{The given language definition file cannot be found or
+is empty.  Maybe you need to install it?  In the current directory
+should work if nowhere else does.}
+
 
-% Set some numeric style parameters, for 8.5 x 11 format.
+% @documentencoding should change something in TeX eventually, most
+% likely, but for now just recognize it.
+\let\documentencoding = \comment
 
-\hsize = 6in
-\hoffset = .25in
+
+% Page size parameters.
+%
 \newdimen\defaultparindent \defaultparindent = 15pt
-\parindent = \defaultparindent
-\parskip 3pt plus 2pt minus 1pt
-\setleading{13.2pt}
-\advance\topskip by 1.2cm
 
 \chapheadingskip = 15pt plus 4pt minus 2pt
 \secheadingskip = 12pt plus 3pt minus 2pt
 \subsecheadingskip = 9pt plus 2pt minus 2pt
 
 % Prevent underfull vbox error messages.
-\vbadness=10000
+\vbadness = 10000
+
+% Don't be so finicky about underfull hboxes, either.
+\hbadness = 2000
 
 % Following George Bush, just get rid of widows and orphans.
 \widowpenalty=10000
@@ -4447,101 +5702,125 @@ width0pt\relax} \fi
 % Use TeX 3.0's \emergencystretch to help line breaking, but if we're
 % using an old version of TeX, don't do anything.  We want the amount of
 % stretch added to depend on the line length, hence the dependence on
-% \hsize.  This makes it come to about 9pt for the 8.5x11 format.
+% \hsize.  We call this whenever the paper size is set.
 %
-\ifx\emergencystretch\thisisundefined
-  % Allow us to assign to \emergencystretch anyway.
-  \def\emergencystretch{\dimen0}%
-\else
-  \emergencystretch = \hsize
-  \divide\emergencystretch by 45
-\fi
+\def\setemergencystretch{%
+  \ifx\emergencystretch\thisisundefined
+    % Allow us to assign to \emergencystretch anyway.
+    \def\emergencystretch{\dimen0}%
+  \else
+    \emergencystretch = .15\hsize
+  \fi
+}
 
-% Use @smallbook to reset parameters for 7x9.5 format  (or else 7x9.25)
-\def\smallbook{
-  \global\chapheadingskip = 15pt plus 4pt minus 2pt
-  \global\secheadingskip = 12pt plus 3pt minus 2pt
-  \global\subsecheadingskip = 9pt plus 2pt minus 2pt
+% Parameters in order: 1) textheight; 2) textwidth; 3) voffset;
+% 4) hoffset; 5) binding offset; 6) topskip.  Then whoever calls us can
+% set \parskip and call \setleading for \baselineskip.
+%
+\def\internalpagesizes#1#2#3#4#5#6{%
+  \voffset = #3\relax
+  \topskip = #6\relax
+  \splittopskip = \topskip
   %
-  \global\lispnarrowing = 0.3in
-  \setleading{12pt}
-  \advance\topskip by -1cm
-  \global\parskip 2pt plus 1pt
-  \global\hsize = 5in
-  \global\vsize=7.5in
-  \global\tolerance=700
-  \global\hfuzz=1pt
-  \global\contentsrightmargin=0pt
-  \global\deftypemargin=0pt
-  \global\defbodyindent=.5cm
+  \vsize = #1\relax
+  \advance\vsize by \topskip
+  \outervsize = \vsize
+  \advance\outervsize by 2\topandbottommargin
+  \pageheight = \vsize
   %
-  \global\pagewidth=\hsize
-  \global\pageheight=\vsize
+  \hsize = #2\relax
+  \outerhsize = \hsize
+  \advance\outerhsize by 0.5in
+  \pagewidth = \hsize
   %
-  \global\let\smalllisp=\smalllispx
-  \global\let\smallexample=\smalllispx
-  \global\def\Esmallexample{\Esmalllisp}
+  \normaloffset = #4\relax
+  \bindingoffset = #5\relax
+  %
+  \parindent = \defaultparindent
+  \setemergencystretch
 }
 
+% @letterpaper (the default).
+\def\letterpaper{{\globaldefs = 1
+  \parskip = 3pt plus 2pt minus 1pt
+  \setleading{13.2pt}%
+  %
+  % If page is nothing but text, make it come out even.
+  \internalpagesizes{46\baselineskip}{6in}{\voffset}{.25in}{\bindingoffset}{36pt}%
+}}
+
+% Use @smallbook to reset parameters for 7x9.5 (or so) format.
+\def\smallbook{{\globaldefs = 1
+  \parskip = 2pt plus 1pt
+  \setleading{12pt}%
+  %
+  \internalpagesizes{7.5in}{5.in}{\voffset}{.25in}{\bindingoffset}{16pt}%
+  %
+  \lispnarrowing = 0.3in
+  \tolerance = 700
+  \hfuzz = 1pt
+  \contentsrightmargin = 0pt
+  \deftypemargin = 0pt
+  \defbodyindent = .5cm
+  %
+  \let\smalldisplay = \smalldisplayx
+  \let\smallexample = \smalllispx
+  \let\smallformat = \smallformatx
+  \let\smalllisp = \smalllispx
+}}
+
 % Use @afourpaper to print on European A4 paper.
-\def\afourpaper{
-\global\tolerance=700
-\global\hfuzz=1pt
-\setleading{12pt}
-\global\parskip 15pt plus 1pt
-
-\global\vsize= 53\baselineskip
-\advance\vsize by \topskip
-%\global\hsize=   5.85in     % A4 wide 10pt
-\global\hsize=  6.5in
-\global\outerhsize=\hsize
-\global\advance\outerhsize by 0.5in
-\global\outervsize=\vsize
-\global\advance\outervsize by 0.6in
-
-\global\pagewidth=\hsize
-\global\pageheight=\vsize
-}
-
-\bindingoffset=0pt
-\normaloffset=\hoffset
-\pagewidth=\hsize
-\pageheight=\vsize
-
-% Allow control of the text dimensions.  Parameters in order: textheight;
-% textwidth; voffset; hoffset; binding offset; topskip.
-% All require a dimension;
-% header is additional; added length extends the bottom of the page.
-
-\def\changepagesizes#1#2#3#4#5#6{
- \global\vsize= #1
- \global\topskip= #6
- \advance\vsize by \topskip
- \global\voffset= #3
- \global\hsize= #2
- \global\outerhsize=\hsize
- \global\advance\outerhsize by 0.5in
- \global\outervsize=\vsize
- \global\advance\outervsize by 0.6in
- \global\pagewidth=\hsize
- \global\pageheight=\vsize
- \global\normaloffset= #4
- \global\bindingoffset= #5}
+\def\afourpaper{{\globaldefs = 1
+  \setleading{12pt}%
+  \parskip = 3pt plus 2pt minus 1pt
+  %
+  \internalpagesizes{53\baselineskip}{160mm}{\voffset}{4mm}{\bindingoffset}{44pt}%
+  %
+  \tolerance = 700
+  \hfuzz = 1pt
+}}
 
 % A specific text layout, 24x15cm overall, intended for A4 paper.  Top margin
 % 29mm, hence bottom margin 28mm, nominal side margin 3cm.
-\def\afourlatex
-        {\global\tolerance=700
-        \global\hfuzz=1pt
-        \setleading{12pt}
-        \global\parskip 15pt plus 1pt
-        \advance\baselineskip by 1.6pt
-        \changepagesizes{237mm}{150mm}{3.6mm}{3.6mm}{3mm}{7mm}
-        }
+\def\afourlatex{{\globaldefs = 1
+  \setleading{13.6pt}%
+  %
+  \afourpaper
+  \internalpagesizes{237mm}{150mm}{3.6mm}{3.6mm}{3mm}{7mm}%
+  %
+  \globaldefs = 0
+}}
 
 % Use @afourwide to print on European A4 paper in wide format.
-\def\afourwide{\afourpaper
-\changepagesizes{9.5in}{6.5in}{\hoffset}{\normaloffset}{\bindingoffset}{7mm}}
+\def\afourwide{%
+  \afourpaper
+  \internalpagesizes{9.5in}{6.5in}{\hoffset}{\normaloffset}{\bindingoffset}{7mm}%
+  %
+  \globaldefs = 0
+}
+
+% @pagesizes TEXTHEIGHT[,TEXTWIDTH]
+% Perhaps we should allow setting the margins, \topskip, \parskip,
+% and/or leading, also. Or perhaps we should compute them somehow.
+%
+\def\pagesizes{\parsearg\pagesizesxxx}
+\def\pagesizesxxx#1{\pagesizesyyy #1,,\finish}
+\def\pagesizesyyy#1,#2,#3\finish{{%
+  \setbox0 = \hbox{\ignorespaces #2}\ifdim\wd0 > 0pt \hsize=#2\relax \fi
+  \globaldefs = 1
+  %
+  \parskip = 3pt plus 2pt minus 1pt
+  \setleading{13.2pt}%
+  %
+  \internalpagesizes{#1}{\hsize}{\voffset}{\normaloffset}{\bindingoffset}{44pt}%
+}}
+
+% Set default to letter.
+%
+\letterpaper
+
+
+\message{and turning on texinfo input format.}
 
 % Define macros to output various characters with catcode for normal text.
 \catcode`\"=\other
@@ -4552,6 +5831,7 @@ width0pt\relax} \fi
 \catcode`\<=\other
 \catcode`\>=\other
 \catcode`\+=\other
+\catcode`\$=\other
 \def\normaldoublequote{"}
 \def\normaltilde{~}
 \def\normalcaret{^}
@@ -4560,6 +5840,7 @@ width0pt\relax} \fi
 \def\normalless{<}
 \def\normalgreater{>}
 \def\normalplus{+}
+\def\normaldollar{$}
 
 % This macro is used to make a character print one way in ttfont
 % where it can probably just be output, and another way in other fonts,
@@ -4570,7 +5851,13 @@ width0pt\relax} \fi
 % interword stretch (and shrink), and it is reasonable to expect all
 % typewriter fonts to have this, we can check that font parameter.
 %
-\def\ifusingtt#1#2{\ifdim \fontdimen3\the\font=0pt #1\else #2\fi}
+\def\ifusingtt#1#2{\ifdim \fontdimen3\font=0pt #1\else #2\fi}
+
+% Same as above, but check for italic font.  Actually this also catches
+% non-italic slanted fonts since it is impossible to distinguish them from
+% italic fonts.  But since this is only used by $ and it uses \sl anyway
+% this is not a problem.
+\def\ifusingit#1#2{\ifdim \fontdimen1\font>0pt #1\else #2\fi}
 
 % Turn off all special characters except @
 % (and those which the user can use as if they were ordinary).
@@ -4578,13 +5865,12 @@ width0pt\relax} \fi
 % use math or other variants that look better in normal text.
 
 \catcode`\"=\active
-\def\activedoublequote{{\tt \char '042}}
+\def\activedoublequote{{\tt\char34}}
 \let"=\activedoublequote
 \catcode`\~=\active
-\def~{{\tt \char '176}}
+\def~{{\tt\char126}}
 \chardef\hat=`\^
 \catcode`\^=\active
-\def\auxhat{\def^{'hat}}
 \def^{{\tt \hat}}
 
 \catcode`\_=\active
@@ -4593,7 +5879,7 @@ width0pt\relax} \fi
 \def\_{\leavevmode \kern.06em \vbox{\hrule width.3em height.1ex}}
 
 \catcode`\|=\active
-\def|{{\tt \char '174}}
+\def|{{\tt\char124}}
 \chardef \less=`\<
 \catcode`\<=\active
 \def<{{\tt \less}}
@@ -4602,6 +5888,8 @@ width0pt\relax} \fi
 \def>{{\tt \gtr}}
 \catcode`\+=\active
 \def+{{\tt \char 43}}
+\catcode`\$=\active
+\def${\ifusingit{{\sl\$}}\normaldollar}
 %\catcode 27=\active
 %\def^^[{$\diamondsuit$}
 
@@ -4632,9 +5920,6 @@ width0pt\relax} \fi
 % \normalbackslash outputs one backslash in fixed width font.
 \def\normalbackslash{{\tt\rawbackslashxx}}
 
-% Say @foo, not \foo, in error messages.
-\escapechar=`\@
-
 % \catcode 17=0   % Define control-q
 \catcode`\\=\active
 
@@ -4648,7 +5933,8 @@ width0pt\relax} \fi
 @let|=@normalverticalbar
 @let<=@normalless
 @let>=@normalgreater
-@let+=@normalplus}
+@let+=@normalplus
+@let$=@normaldollar}
 
 @def@normalturnoffactive{@let"=@normaldoublequote
 @let\=@normalbackslash
@@ -4658,7 +5944,8 @@ width0pt\relax} \fi
 @let|=@normalverticalbar
 @let<=@normalless
 @let>=@normalgreater
-@let+=@normalplus}
+@let+=@normalplus
+@let$=@normaldollar}
 
 % Make _ and + \other characters, temporarily.
 % This is canceled by @fixbackslash.
@@ -4677,16 +5964,29 @@ width0pt\relax} \fi
 % Also back turn on active characters that might appear in the input
 % file name, in case not using a pre-dumped format.
 %
-@gdef@fixbackslash{@ifx\@eatinput @let\ = @normalbackslash @fi
-  @catcode`+=@active @catcode`@_=@active}
+@gdef@fixbackslash{%
+  @ifx\@eatinput @let\ = @normalbackslash @fi
+  @catcode`+=@active
+  @catcode`@_=@active
+}
+
+% Say @foo, not \foo, in error messages.
+@escapechar = `@@
 
-%% These look ok in all fonts, so just make them not special.  The @rm below
-%% makes sure that the current font starts out as the newly loaded cmr10
-@catcode`@$=@other @catcode`@%=@other @catcode`@&=@other @catcode`@#=@other
+% These look ok in all fonts, so just make them not special.  
+@catcode`@& = @other
+@catcode`@# = @other
+@catcode`@% = @other
 
+@c Set initial fonts.
 @textfonts
 @rm
 
+
 @c Local variables:
+@c eval: (add-hook 'write-file-hooks 'time-stamp)
 @c page-delimiter: "^\\\\message"
+@c time-stamp-start: "def\\\\texinfoversion{"
+@c time-stamp-format: "%:y-%02m-%02d.%02H"
+@c time-stamp-end: "}"
 @c End:
diff --git a/error.c b/error.c
index 2631ab4e532856164a8c4c399e88a680be995ce7..689f13d8f0389fdfc78068c3ff550e7761fa4fa5 100644 (file)
--- a/error.c
+++ b/error.c
@@ -434,6 +434,7 @@ parser_error (lineno, format, va_alist)
     exit (2);
 }
 
+#ifdef DEBUG
 void
 #if defined (PREFER_STDARG)
 itrace (const char *format, ...)
@@ -500,6 +501,7 @@ trace (format, va_alist)
 }
 
 #endif /* USE_VARARGS */
+#endif /* DEBUG */
 
 static char *cmd_error_table[] = {
        "unknown command error",        /* CMDERR_DEFAULT */
diff --git a/eval.c b/eval.c
index 1ecc5769af6f0ac0ea892fb23d67c4c5dde4f4dd..050bf54ef7461c070ea04b88ad4c28b67c3e8823 100644 (file)
--- a/eval.c
+++ b/eval.c
@@ -140,10 +140,10 @@ reader_loop ()
 
            exec_done:
              if (current_command)
-               {
+               {
                  dispose_command (current_command);
                  current_command = (COMMAND *)NULL;
-               }
+               }
 
              QUIT;
            }
index 3b28dd2ad9dd755b1641164d87bc86b93ce8f893..e1ad070a10be10cbb54aae1bddd967518dcdbf10 100644 (file)
@@ -352,7 +352,7 @@ _complete_meta_func()
 
        if [[ $prev == -A ]]; then
                COMPREPLY=(alias arrayvar binding builtin command directory \
-disabled enabled export file function helptopic hostname job keyword \
+disabled enabled export file 'function' helptopic hostname job keyword \
 running setopt shopt signal stopped variable)
                return 0
        elif [[ $prev == -F ]]; then
@@ -400,7 +400,11 @@ _make_targets ()
        esac
 
        # make reads `makefile' before `Makefile'
-       if [ -f makefile ]; then
+       # GNU make reads `GNUmakefile' before all other makefiles, but we
+       # check that we're completing `gmake' before checking for it
+       if [ -f GNUmakefile ] && [ ${COMP_WORDS[0]} == gmake ]; then
+               mdef=GNUmakefile
+       elif [ -f makefile ]; then
                mdef=makefile
        elif [ -f Makefile ]; then
                mdef=Makefile
@@ -458,11 +462,13 @@ complete -d mkdir rmdir
 complete -f strip
 
 complete -f -X '*.gz' gzip
+complete -f -X '*.bz2' bzip2
 complete -f -X '*.Z' compress
 complete -f -X '!*.+(gz|tgz|Gz)' gunzip gzcat zcat zmore
 complete -f -X '!*.Z' uncompress zmore zcat
-
-complete -f -X '!*.+(gif|jpg|jpeg|GIF|JPG|bmp)' xv
+complete -f -X '!*.bz2' bunzip2
+complete -f -X '!*.zip' unzip
+complete -f -X '!*.+(gif|jpg|jpeg|GIF|JPG|JPEG|bmp)' xv
 
 complete -f -X '!*.pl' perl perl5
 
@@ -472,11 +478,14 @@ complete -A hostname rxterm rxterm3 rxvt2
 complete -u su
 
 complete -f -X '!*.+(ps|PS)' gs gv ghostview psselect pswrap
-complete -f -X '!*.+(dvi|DVI)' dvips xdvi dviselect dvitype
-complete -f -X '!*.+(pdf|PDF)' acroread
+complete -f -X '!*.+(dvi|DVI)' dvips xdvi dviselect dvitype catdvi
+complete -f -X '!*.+(pdf|PDF)' acroread4
 complete -f -X '!*.texi*' makeinfo texi2dvi texi2html
 complete -f -X '!*.+(tex|TEX)' tex latex slitex
 
+complete -f -X '!*.+(mp3|MP3)' mpg123
+complete -f -X '!*.+(htm|html)' links w3m lynx
+
 #
 # other possibilities, left as exercises
 #
diff --git a/examples/complete/complete.freebsd b/examples/complete/complete.freebsd
new file mode 100644 (file)
index 0000000..7f6f4c2
--- /dev/null
@@ -0,0 +1,31 @@
+#Date: Wed, 31 Jan 2001 12:53:56 -0800
+#From: Aaron Smith <aaron@mutex.org>
+#To: freebsd-ports@freebsd.org
+#Subject: useful bash completion function for pkg commands
+#Message-ID: <20010131125356.G52003@gelatinous.com>
+
+#hi all. i just wanted to share this bash completion function i wrote that
+#completes package names for pkg_info and pkg_delete. i find this a great
+#help when dealing with port management. programmed completion requires
+#bash-2.04.
+
+_pkg_func ()
+{   
+    local cur
+
+    cur=${COMP_WORDS[COMP_CWORD]}
+
+    if [[ $cur == '-' ]]; then
+        if [[ ${COMP_WORDS[0]} == 'pkg_info' ]]; then
+                COMPREPLY=(-a -c -d -D -i -k -r -R -p -L -q -I -m -v -e -l)
+                return 0;
+        elif [[ ${COMP_WORDS[0]} == 'pkg_delete' ]]; then
+                COMPREPLY=(-v -D -d -n -f -p)
+                return 0;
+        fi
+    fi
+
+    COMPREPLY=( $(compgen -d /var/db/pkg/$cur | sed sN/var/db/pkg/NNg) )
+    return 0
+}
+complete -F _pkg_func pkg_delete pkg_info
diff --git a/examples/complete/complete.ianmac b/examples/complete/complete.ianmac
new file mode 100644 (file)
index 0000000..2af9fc7
--- /dev/null
@@ -0,0 +1,433 @@
+#####
+#To: chet@po.cwru.edu, sarahmckenna@lucent.com
+#Message-Id: <slrn8mqioc.msb.ian@lovelorn.linuxcare.com>
+#Posted-To: comp.unix.shell, gnu.bash.bug
+#Subject: bash 2.04 programmable completion examples
+#Reply-To: ian@linuxcare.com, ian@caliban.org
+#Summary: examples of programmable completion for bash 2.04
+#Date: Thu, 13 Jul 2000 00:52:33 -0400 (EDT)
+#From: ianmacd@linuxcare.com (Ian Macdonald)
+#####
+
+#########################################################################
+# Turn on extended globbing
+shopt -s extglob
+
+# A lot of the following one-liners were taken directly from the
+# completion examples provided with the bash 2.04 source distribution
+
+# Make directory commands see only directories
+complete -d cd mkdir rmdir pushd
+
+# Make file commands see only files
+complete -f cat less more chown ln strip
+complete -f -X '*.gz' gzip
+complete -f -X '*.Z' compress
+complete -f -X '!*.+(Z|gz|tgz|Gz)' gunzip zcat zmore
+complete -f -X '!*.Z' uncompress zmore zcat
+complete -f -X '!*.+(gif|jpg|jpeg|GIF|JPG|bmp)' ee xv
+complete -f -X '!*.+(ps|PS|ps.gz)' gv
+complete -f -X '!*.+(dvi|DVI)' dvips xdvi dviselect dvitype
+complete -f -X '!*.+(pdf|PDF)' acroread xpdf
+complete -f -X '!*.texi*' makeinfo texi2dvi texi2html
+complete -f -X '!*.+(tex|TEX)' tex latex slitex
+complete -f -X '!*.+(mp3|MP3)' mpg123
+
+# kill sees only signals
+complete -A signal kill -P '%'
+
+# user commands see only users
+complete -u finger su usermod userdel passwd
+
+# bg completes with stopped jobs
+complete -A stopped -P '%' bg
+
+# other job commands
+complete -j -P '%' fg jobs disown
+
+# network commands complete with hostname
+complete -A hostname ssh rsh telnet rlogin ftp ping fping host traceroute \
+           nslookup
+
+# export and others complete with shell variables
+complete -v export local readonly unset
+
+# set completes with set options
+complete -A setopt set
+
+# shopt completes with shopt options
+complete -A shopt shopt
+
+# helptopics
+complete -A helptopic help
+
+# unalias completes with aliases
+complete -a unalias
+
+# various commands complete with commands
+complete -c command type nohup exec nice eval strace gdb
+
+# bind completes with readline bindings (make this more intelligent)
+complete -A binding bind
+
+# Now we get to the meat of the file, the functions themselves. Some
+# of these are works in progress. Most assume GNU versions of the
+# tools in question and may require modifications for use on vanilla
+# UNIX systems.
+#
+# A couple of functions may have non-portable, Linux specific code in
+# them, but this will be noted where applicable
+
+
+# GNU chown(1) completion. This should be expanded to allow the use of
+# ':' as well as '.' as the user.group separator.
+#
+_chown ()
+{
+       local cur prev user group
+
+        COMPREPLY=()
+        cur=${COMP_WORDS[COMP_CWORD]}
+        prev=${COMP_WORDS[COMP_CWORD-1]}
+
+       # do not attempt completion if we're specifying an option
+       if [ "${cur:0:1}" = "-" ]; then return 0; fi
+
+       # first parameter on line or first since an option?
+       if [ $COMP_CWORD -eq 1 ] || [ "${prev:0:1}" = "-" ]; then
+               case "$cur" in
+               [a-zA-Z]*.*)
+                       user=${cur%.*}
+                       group=${cur#*.}
+                       COMPREPLY=( $( awk 'BEGIN {FS=":"} \
+                                       {if ($1 ~ /^'$group'/) print $1}' \
+                                       /etc/group ) )
+                       for (( i=0; i < ${#COMPREPLY[@]}; i++ )); do
+                               COMPREPLY[i]=$user.${COMPREPLY[i]}
+                       done
+                       return 0
+                       ;;
+               *)
+                       COMPREPLY=( $( compgen -u $cur -S '.' ) )
+                       return 0
+                       ;;
+               esac
+       else
+               COMPREPLY=( $( compgen -f $cur ) )
+       fi
+
+       return 0
+}
+complete -F _chown chown
+
+# umount(8) completion. This relies on the mount point being the third
+# space-delimited field in the output of mount(8)
+#
+_umount ()
+{
+       local cur
+
+        COMPREPLY=()
+        cur=${COMP_WORDS[COMP_CWORD]}
+
+       # could rewrite the cut | grep to be a sed command, but this is
+       # clearer and doesn't result in much overhead
+       COMPREPLY=( $( mount | cut -d' ' -f 3 | grep ^$cur) )
+       return 0
+}
+complete -F _umount umount
+
+# GID completion. This will get a list of all valid group names from
+# /etc/group and should work anywhere.
+#
+_gid_func ()
+{
+       local cur
+
+        COMPREPLY=()
+        cur=${COMP_WORDS[COMP_CWORD]}
+       COMPREPLY=( $( awk 'BEGIN {FS=":"} {if ($1 ~ /^'$cur'/) print $1}' \
+                          /etc/group ) )
+       return 0
+}
+complete -F _gid_func groupdel groupmod
+
+# mount(8) completion. This will pull a list of possible mounts out of
+# /etc/fstab, unless the word being completed contains a ':', which
+# would indicate the specification of an NFS server. In that case, we
+# query the server for a list of all available exports and complete on
+# that instead.
+#
+_mount ()
+
+{       local cur
+
+        COMPREPLY=()
+        cur=${COMP_WORDS[COMP_CWORD]}
+
+       case "$cur" in
+       *:*)
+             COMPREPLY=( $( /usr/sbin/showmount -e --no-headers ${cur%%:*} |\
+                              grep ^${cur#*:} | awk '{print $1}'))
+               return 0
+               ;;
+       *)
+               COMPREPLY=( $( awk '{if ($2 ~ /\//) print $2}' /etc/fstab | \
+                              grep ^$cur ))
+               return 0
+               ;;
+       esac
+}
+complete -F _mount mount
+
+# Linux rmmod(1) completion. This completes on a list of all currently
+# installed kernel modules.
+#
+_rmmod ()
+{
+       local cur
+
+        COMPREPLY=()
+        cur=${COMP_WORDS[COMP_CWORD]}
+
+       COMPREPLY=($( lsmod | awk '{if (NR != 1 && $1 ~ /^'$cur'/) print $1}'))
+       return 0
+}
+complete -F _rmmod rmmod
+
+# Linux insmod(1) completion. This completes on a list of all
+# available modules for the version of the kernel currently running.
+#
+_insmod ()
+{
+       local cur modpath
+
+        COMPREPLY=()
+        cur=${COMP_WORDS[COMP_CWORD]}
+       modpath=/lib/modules/`uname -r`
+
+       COMPREPLY=($( ls -R $modpath | sed -ne 's/^\('$cur'.*\)\.o$/\1/p'))
+       return 0
+}
+complete -F _insmod insmod depmod modprobe
+
+# man(1) completion. This relies on the security enhanced version of
+# GNU locate(1). UNIX variants having non-numeric man page sections
+# other than l, m and n should add the appropriate sections to the
+# first clause of the case statement.
+#
+# This is Linux specific, in that 'man <section> <page>' is the
+# expected syntax. This allows one to do something like
+# 'man 3 str<tab>' to obtain a list of all string handling syscalls on
+# the system.
+#
+_man ()
+{
+       local cur prev
+
+        COMPREPLY=()
+        cur=${COMP_WORDS[COMP_CWORD]}
+        prev=${COMP_WORDS[COMP_CWORD-1]}
+
+       case "$prev" in
+       [0-9lmn])
+               COMPREPLY=($( slocate -ql 0 -r '/man/man'$prev'/'$cur | \
+                     sed -ne 's/^.*\/\('$cur'[^.\/]*\)\..*$/\1/p' ))
+               return 0
+               ;;
+       *)
+               COMPREPLY=($( slocate -ql 0 -r '/man/man./'$cur | \
+                     sed -ne 's/^.*\/\('$cur'[^.\/]*\)\..*$/\1/p' ))
+               return 0
+               ;;
+       esac
+}
+complete -F _man man
+
+# Linux killall(1) completion. This wouldn't be much use on, say,
+# Solaris, where killall does exactly that: kills ALL processes.
+#
+# This could be improved. For example, it currently doesn't take
+# command line options into account
+#
+_killall ()
+{
+       local cur prev
+
+        COMPREPLY=()
+        cur=${COMP_WORDS[COMP_CWORD]}
+        prev=${COMP_WORDS[COMP_CWORD-1]}
+
+       case "$prev" in
+       -[A-Z0-9]*)
+               # get a list of processes (the first sed evaluation
+               # takes care of swapped out processes, the second
+               # takes care of getting the basename of the process)
+              COMPREPLY=( $( ps ahx | awk '{if ($5 ~ /^'$cur'/) print $5}' | \
+                              sed -e 's#[]\[]##g' -e 's#^.*/##' ))
+               return 0
+               ;;
+       esac
+
+       # first parameter can be either a signal or a process
+       if [ $COMP_CWORD -eq 1 ]; then
+               # standard signal completion is rather braindead, so we need
+               # to hack around to get what we want here, which is to
+               # complete on a dash, followed by the signal name minus
+               # the SIG prefix
+               COMPREPLY=( $( compgen -A signal SIG${cur#-} ))
+               for (( i=0; i < ${#COMPREPLY[@]}; i++ )); do
+                       COMPREPLY[i]=-${COMPREPLY[i]#SIG}
+               done
+       fi
+
+       # get processes, adding to signals if applicable
+       COMPREPLY=( ${COMPREPLY[*]} $( ps ahx | \
+                                      awk '{if ($5 ~ /^'$cur'/) print $5}' | \
+                                      sed -e 's#[]\[]##g' -e 's#^.*/##' ))
+       return 0
+}
+complete -F _killall killall
+
+# GNU find(1) completion. This makes heavy use of ksh style extended
+# globs and contains Linux specific code for completing the parameter
+# to the -fstype option.
+#
+_find ()
+{
+       local cur prev
+
+        COMPREPLY=()
+        cur=${COMP_WORDS[COMP_CWORD]#-}
+        prev=${COMP_WORDS[COMP_CWORD-1]}
+
+       case "$prev" in
+       -@(max|min)depth)
+               COMPREPLY=( $( compgen -W '0 1 2 3 4 5 6 7 8 9' ) )
+               return 0
+               ;;
+       -?(a)newer|-fls|-fprint?(0|f))
+               COMPREPLY=( $( compgen -f $cur ) )
+               return 0
+               ;;
+       -fstype)
+               # this is highly non-portable (the option to -d is a tab)
+               COMPREPLY=( $( cut -d'  ' -f 2 /proc/filesystems | grep ^$cur ) )
+               return 0
+               ;;
+       -gid)
+               COMPREPLY=( $( awk 'BEGIN {FS=":"} \
+                               {if ($3 ~ /^'$cur'/) print $3}' /etc/group ) )
+               return 0
+               ;;
+       -group)
+               COMPREPLY=( $( awk 'BEGIN {FS=":"} \
+                               {if ($1 ~ /^'$cur'/) print $1}' /etc/group ) )
+               return 0
+               ;;
+       -?(x)type)
+               COMPREPLY=( $( compgen -W 'b c d p f l s' $cur ) )
+               return 0
+               ;;
+       -uid)
+               COMPREPLY=( $( awk 'BEGIN {FS=":"} \
+                               {if ($3 ~ /^'$cur'/) print $3}' /etc/passwd ) )
+               return 0
+               ;;
+       -user)
+               COMPREPLY=( $( compgen -u $cur ) )
+               return 0
+               ;;
+       -[acm]min|-[acm]time|-?(i)?(l)name|-inum|-?(i)path|-?(i)regex| \
+       -links|-perm|-size|-used|-exec|-ok|-printf)
+               # do nothing, just wait for a parameter to be given
+               return 0
+               ;;
+       esac
+
+       # complete using basic options ($cur has had its dash removed here,
+       # as otherwise compgen will bomb out with an error, since it thinks
+       # the dash is an option to itself)
+       COMPREPLY=( $( compgen -W 'daystart depth follow help maxdepth \
+                       mindepth mount noleaf version xdev amin anewer atime \
+                       cmin cnewer ctime empty false fstype gid group ilname \
+                       iname inum ipath iregex links lname mmin mtime name \
+                       newer nouser nogroup perm regex size true type uid \
+                       used user xtype exec fls fprint fprint0 fprintf ok \
+                       print print0 printf prune ls' $cur ) )
+
+       # this removes any options from the list of completions that have
+       # already been specified somewhere on the command line.
+       COMPREPLY=( $( echo "${COMP_WORDS[@]}-" | \
+                      (while read -d '-' i; do
+                           [ "$i" == "" ] && continue
+                           # flatten array with spaces on either side,
+                           # otherwise we cannot grep on word boundaries of
+                           # first and last word
+                           COMPREPLY=" ${COMPREPLY[@]} "
+                           # remove word from list of completions
+                           COMPREPLY=( ${COMPREPLY/ ${i%% *} / } )
+                       done
+                       echo ${COMPREPLY[@]})
+                 ) )
+       
+       # put dashes back
+       for (( i=0; i < ${#COMPREPLY[@]}; i++ )); do
+               COMPREPLY[i]=-${COMPREPLY[i]}
+       done
+               
+       return 0
+}
+complete -F _find find
+
+# Linux ifconfig(8) completion
+#
+_ifconfig ()
+{
+       local cur
+
+        COMPREPLY=()
+        cur=${COMP_WORDS[COMP_CWORD]}
+
+       case "${COMP_WORDS[1]}" in
+       -|*[0-9]*)
+               COMPREPLY=( $( compgen -W '-a up down arp promisc allmulti \
+                                          metric mtu dstaddr netmask add del \
+                                          tunnel irq io_addr mem_start media \
+                                          broadcast pointopoint hw multicast \
+                                          address txqueuelen' $cur ))
+               COMPREPLY=( $( echo " ${COMP_WORDS[@]}" | \
+                              (while read -d ' ' i; do
+                                  [ "$i" == "" ] && continue
+                                  # flatten array with spaces on either side,
+                                  # otherwise we cannot grep on word
+                                  # boundaries of first and last word
+                                  COMPREPLY=" ${COMPREPLY[@]} "
+                                  # remove word from list of completions
+                                  COMPREPLY=( ${COMPREPLY/ $i / } )
+                               done
+                               echo ${COMPREPLY[@]})
+                         ) )
+               return 0
+               ;;
+       esac
+
+       COMPREPLY=( $( ifconfig -a | sed -ne 's/^\('$cur'[^ ]*\).*$/\1/p' ))
+}
+complete -F _ifconfig ifconfig
+
+# Linux ipsec(8) completion (for FreeS/WAN). Very basic.
+#
+_ipsec ()
+{
+       local cur
+
+        COMPREPLY=()
+        cur=${COMP_WORDS[COMP_CWORD]}
+
+       COMPREPLY=( $( compgen -W 'auto barf eroute klipsdebug look manual \
+                                  pluto ranbits rsasigkey setup showdefaults \
+                                  showhostkey spi spigrp tncfg whack' $cur ))
+}
+complete -F _ipsec ipsec
+#########################################################################
diff --git a/examples/complete/complete2.ianmac b/examples/complete/complete2.ianmac
new file mode 100644 (file)
index 0000000..6fb0a96
--- /dev/null
@@ -0,0 +1,271 @@
+#####
+#From: ian@linuxcare.com (Ian Macdonald)
+#Newsgroups: comp.unix.shell
+#Subject: More bash 2.04 completions
+#Date: 12 Aug 2000 09:53:40 GMT
+#Organization: Linuxcare, Inc.
+#Lines: 274
+#Message-ID: <slrn8pa7l2.jgm.ian@lovelorn.linuxcare.com>
+#Reply-To: ian@linuxcare.com
+#####
+
+# Turn on extended globbing
+shopt -s extglob
+
+# cvs(1) completion
+#
+_cvs ()
+{
+       local cur prev
+
+        COMPREPLY=()
+        cur=${COMP_WORDS[COMP_CWORD]}
+        prev=${COMP_WORDS[COMP_CWORD-1]}
+
+       if [ $COMP_CWORD -eq 1 ] || [ "${prev:0:1}" = "-" ]; then
+               COMPREPLY=( $( compgen -W 'add admin checkout commit diff \
+               export history import log rdiff release remove rtag status \
+               tag update' $cur ))
+       else
+               COMPREPLY=( $( compgen -f $cur ))
+       fi
+       return 0
+}
+complete -F _cvs cvs
+
+# rpm(8) completion. This isn't exhaustive yet, but still provides
+# quite a lot of functionality.
+# 
+_rpm()
+{
+       dashify()
+       {
+               local i
+
+               for (( i=0; i < ${#COMPREPLY[@]}; i++ )); do
+                       if [ ${#COMPREPLY[i]} -le 2 ]; then
+                               COMPREPLY[i]=-${COMPREPLY[i]}
+                       else
+                               COMPREPLY[i]=--${COMPREPLY[i]}
+                       fi
+               done
+       }
+
+       local cur cur_nodash prev
+
+        COMPREPLY=()
+        cur=${COMP_WORDS[COMP_CWORD]}
+       cur_nodash=${cur#-}
+        prev=${COMP_WORDS[COMP_CWORD-1]}
+
+       if [ $COMP_CWORD = 1 ]; then
+               # first parameter on line
+               case "$cur" in
+               -b*)
+                       COMPREPLY=( $( compgen -W 'ba bb bc bi bl bp bs' \
+                                      $cur_nodash ) )
+                       dashify
+                       return 0
+                       ;;
+               -t*)
+                       COMPREPLY=( $( compgen -W 'ta tb tc ti tl tp ts' \
+                                      $cur_nodash ) )
+                       dashify
+                       return 0
+                       ;;
+               --*)
+                       COMPREPLY=( $( compgen -W 'help version initdb \
+                       checksig recompile rebuild resign addsign rebuilddb \
+                       showrc setperms setgids' ${cur_nodash#-} ) )
+                       dashify;
+                       return 0
+                       ;;
+               *)
+                       COMPREPLY=( $( compgen -W 'b e F i q t U V' \
+                                      $cur_nodash ) )
+                       dashify
+                       return 0
+                       ;;
+               esac
+       fi
+
+       case "${COMP_WORDS[1]}" in
+       -[iFU]*)
+               # complete on list of relevant options
+               COMPREPLY=( $( compgen -W 'percent force test replacepkgs \
+               replacefiles root excludedocs includedocs noscripts rcfile \
+               ignorearch dbpath prefix ignoreos nodeps allfiles ftpproxy \
+               ftpport justdb httpproxy httpport noorder relocate badreloc \
+               notriggers excludepath ignoresize oldpackage' ${cur_nodash#-} ))
+               dashify;
+               # return if $cur is an option
+               [ "${cur:0:1}" = "-" ] && return 0
+               # add a list of RPMS to possible completions
+               COMPREPLY=( ${COMPREPLY[@]} $( compgen -G $cur\*.rpm ) )
+               return 0
+               ;;
+       -qp*)
+               # complete on list of relevant options
+               COMPREPLY=( $( compgen -W 'scripts root rcfile whatprovides \
+               whatrequires requires triggeredby ftpport ftpproxy httpproxy \
+               httpport provides triggers dump changelog dbpath filesbypkg' \
+               ${cur_nodash#-} ) )
+               dashify;
+               # return if $cur is an option
+               [ "${cur:0:1}" = "-" ] && return 0
+               # add a list of RPMS to possible completions
+               COMPREPLY=( ${COMPREPLY[@]} $( compgen -G $cur\*.rpm ) )
+               return 0
+               ;;
+       -*f)
+               # standard filename completion
+               COMPREPLY=( $( compgen -f $cur ) )
+               return 0
+               ;;
+       -e)
+               # complete on list of relevant options
+               COMPREPLY=( $( compgen -W 'allmatches noscripts notriggers \
+               nodeps test' ${cur_nodash#-} ) )
+               dashify;
+               # return if $cur is an option
+               [ "${cur:0:1}" = "-" ] && return 0
+               # complete on basename of installed RPMs
+               COMPREPLY=( $( rpm -qa | \
+                  sed -ne 's/^\('$cur'.*\)-[0-9a-zA-Z._]\+-[0-9.]\+$/\1/p' ) )
+               return 0
+               ;;
+       -qa*)
+               # complete on list of relevant options
+               COMPREPLY=( $( compgen -W 'scripts root rcfile whatprovides \
+               whatrequires requires triggeredby ftpport ftpproxy httpproxy \
+               httpport provides triggers dump changelog dbpath specfile \
+               querybynumber last filesbypkg' ${cur_nodash#-} ) )
+               dashify;
+               return 0
+               ;;
+       -q*)
+               # complete on list of relevant options
+               COMPREPLY=( $( compgen -W 'scripts root rcfile whatprovides \
+               whatrequires requires triggeredby ftpport ftpproxy httpproxy \
+               httpport provides triggers dump changelog dbpath specfile \
+               querybynumber last filesbypkg' ${cur_nodash#-} ) )
+               dashify;
+               # return if $cur is an option
+               [ "${cur:0:1}" = "-" ] && return 0
+               # add a list of RPMS to possible completions
+               COMPREPLY=( ${COMPREPLY[@]} $( rpm -qa | \
+                  sed -ne 's/^\('$cur'.*\)-[0-9a-zA-Z._]\+-[0-9.]\+$/\1/p' ) )
+               return 0
+               ;;
+       -[Vy]*)
+               # complete on list of relevant options
+               COMPREPLY=( $( compgen -W 'root rcfile dbpath nodeps nofiles \
+               noscripts nomd5 nopgp' ${cur_nodash#-} ) )
+               dashify;
+               # return if $cur is an option
+               [ "${cur:0:1}" = "-" ] && return 0
+               # add a list of RPMS to possible completions
+               COMPREPLY=( ${COMPREPLY[@]} $( rpm -qa | \
+                  sed -ne 's/^\('$cur'.*\)-[0-9a-zA-Z._]\+-[0-9.]\+$/\1/p' ) )
+               return 0
+               ;;
+       -b*)
+               # complete on list of relevant options
+               COMPREPLY=( $( compgen -W 'short-circuit timecheck clean \
+               rmsource test sign buildroot target buildarch buildos' \
+               ${cur_nodash#-} ) )
+               dashify;
+               # return if $cur is an option
+               [ "${cur:0:1}" = "-" ] && return 0
+               # complete on .spec files
+               COMPREPLY=( $( compgen -G $cur\*.spec ) )
+               return 0
+               ;;
+       -t*)
+               # complete on list of relevant options
+               COMPREPLY=( $( compgen -W 'short-circuit timecheck clean \
+               rmsource test sign buildroot target buildarch buildos' \
+               ${cur_nodash#-} ) )
+               dashify;
+               # return if $cur is an option
+               [ "${cur:0:1}" = "-" ] && return 0
+               # complete on .tar.gz files
+               COMPREPLY=( $( compgen -G $cur\*.tar.gz ) )
+               return 0
+               ;;
+       --re@(build|compile))
+               # complete on source RPMs
+               COMPREPLY=( $( compgen -G $cur\*.src.rpm ) )
+               return 0
+               ;;
+       --@(checksig|@(re|add)sign))
+               # complete on RPMs
+               COMPREPLY=( $( compgen -G $cur\*.rpm ) )
+               return 0
+               ;;
+       --set@(perms|gids))
+               # complete on installed RPMs
+               COMPREPLY=( ${COMPREPLY[@]} $( rpm -qa | \
+                  sed -ne 's/^\('$cur'.*\)-[0-9a-zA-Z._]\+-[0-9.]\+$/\1/p' ) )
+               return 0
+               ;;
+       esac
+}
+complete -F _rpm rpm
+
+# chsh(1) completion
+#
+_chsh()
+{
+       local cur prev
+
+        COMPREPLY=()
+        cur=${COMP_WORDS[COMP_CWORD]}
+        prev=${COMP_WORDS[COMP_CWORD-1]}
+
+       if [ "$prev" = "-s" ]; then
+               COMPREPLY=( $( chsh -l | grep ^$cur ) )
+       else
+               COMPREPLY=( $( compgen -u $cur ) )
+       fi
+}
+complete -F _chsh chsh
+
+# chkconfig(8) completion
+#
+_chkconfig()
+{
+       local cur prev
+
+        COMPREPLY=()
+        cur=${COMP_WORDS[COMP_CWORD]}
+       cur_nodash=${cur#--}
+        prev=${COMP_WORDS[COMP_CWORD-1]}
+
+       if [ $COMP_CWORD -eq 1 ]; then
+               COMPREPLY=( $( compgen -W 'list add del level' $cur_nodash ) )
+               for (( i=0; i < ${#COMPREPLY[@]}; i++ )); do
+                       COMPREPLY[i]=--${COMPREPLY[i]}
+               done
+               return 0
+       fi
+
+       if [ $COMP_CWORD -eq 4 ]; then
+               COMPREPLY=( $( compgen -W 'on off reset' $cur ) )
+               return 0
+       fi
+
+       case "$prev" in
+       @([1-6]|--@(list|add|del)))
+               COMPREPLY=( $( compgen -W "`(cd /etc/rc.d/init.d; echo *)`" \
+                              $cur) )
+               return 0
+               ;;
+       --level)
+               COMPREPLY=( $( compgen -W '1 2 3 4 5 6' $cur ) )
+               return 0
+               ;;
+       esac
+}
+complete -F _chkconfig chkconfig
+###
diff --git a/examples/functions/array-to-string b/examples/functions/array-to-string
new file mode 100644 (file)
index 0000000..0d2fbe5
--- /dev/null
@@ -0,0 +1,15 @@
+#! /bin/bash
+
+# Format: array_to_string vname_of_array vname_of_string separator
+array_to_string()
+{
+       (( ($# < 2) || ($# > 3) )) && {
+                "$FUNCNAME: usage: $FUNCNAME arrayname stringname [separator]"
+               return 2
+       }
+
+       local array=$1 string=$2
+       ((3==$#)) && [[ $3 = ? ]] && local IFS="${3}${IFS}"
+       eval $string="\"\${$array[*]}\""
+       return 0
+}
diff --git a/examples/functions/emptydir b/examples/functions/emptydir
new file mode 100644 (file)
index 0000000..412af5b
--- /dev/null
@@ -0,0 +1,28 @@
+#! /bin/bash
+#
+#Derived from:
+#
+#From: damercer@mmm.com (Dan Mercer)
+#Newsgroups: comp.unix.admin,comp.unix.shell,comp.unix.programmer,comp.sys.sun.admin
+#Subject: Re: Command to find out if a directory is empty
+#Date: 17 Aug 2000 14:35:56 GMT
+#Message-ID: <8ngt8c$fmr$1@magnum.mmm.com>
+
+# usage: emptydir [dirname] ;  default dirname is "."
+
+emptydir()
+{
+       typeset file dir=${1:-.}
+       [[ -d $dir ]] || {
+               echo "$FUNCNAME: $dir is not a directory" >&2
+               return 2
+       }
+       for file in $dir/.* $dir/*
+       do
+               case ${file#$dir/} in
+               .|..) ;;
+               \*) [[ -e $file ]];let $?;return;;
+               *) return 1;;
+               esac
+       done
+}
index cd7bf467bc3ad24d0b8cefc6ad8843b300595bbd..97efd49874083a8dbdac32cb487c92879db9e6ea 100644 (file)
@@ -9,5 +9,5 @@ fact ()
         echo 1
         return ;
     fi;
-    echo $[ $num * $(fact $[ $num - 1 ])]
+    echo $(( $num * $(fact $(( $num - 1 )) ) ))
 }
diff --git a/examples/functions/gethtml b/examples/functions/gethtml
new file mode 100644 (file)
index 0000000..2eec1d8
--- /dev/null
@@ -0,0 +1,35 @@
+#
+# get_html -- get a web page from a remote server
+#
+# Original Author: Jeff Korn <jlk@cs.princeton.edu>
+# Modified for bash by Chet Ramey <chet@po.cwru.edu>
+#
+# Example: get_html cnswww.cns.cwru.edu /~chet/ | more
+
+get_html()
+{
+       local host port
+
+       (($# < 2)) && {
+               echo "usage: $FUNCNAME hostname path [port]" >&2
+               return 1
+       }
+
+       host="$1"
+       port="${3:-80}"
+
+        exec 3<> /dev/tcp/$host/$port || {
+               echo "$FUNCNAME: $host/$port: cannot connect" >&2
+               exit 1
+       }
+
+        echo -e "GET $2 HTTP/1.0\n" >&3
+
+       cat <&3
+
+       exec 3<&-
+
+       return 0
+}
+
+get_html "$@"
diff --git a/examples/functions/ksh-cd b/examples/functions/ksh-cd
new file mode 100644 (file)
index 0000000..801a490
--- /dev/null
@@ -0,0 +1,35 @@
+#
+# ksh-like `cd': cd [-LP] [dir [change]]
+#
+cd()
+{
+       OPTIND=1
+       while getopts "LP" opt
+       do
+               case $opt in
+               L|P)    CDOPTS="$CDOPTS -$opt" ;;
+               *)      echo "$FUNCNAME: usage: $FUNCNAME [-LP] [dir] [change]" >&2
+                       return 2;;
+               esac
+       done
+
+       shift $(( $OPTIND - 1 ))
+
+       case $# in
+       0)      builtin cd $CDOPTS "$HOME" ;;
+       1)      builtin cd $CDOPTS "$@" ;;
+       2)      old="$1" new="$2"
+               case "$PWD" in
+               *$old*) ;;
+               *)       echo "${0##*/}: $FUNCNAME: bad substitution" >&2 ; return 1 ;;
+               esac
+
+               dir=${PWD//$old/$new}
+
+               builtin cd $CDOPTS "$dir" && echo "$PWD"
+
+               ;;
+       *)      echo "${0##*/}: $FUNCNAME: usage: $FUNCNAME [-LP] [dir] [change]" >&2
+               return 2 ;;
+       esac
+}
index 35cc21249494a3530d492ce3b09b6b0ed03f63dd..2b9a6ebb9bcca26d9be701a918dd6b505aecb899 100644 (file)
@@ -109,27 +109,39 @@ $1 == "'$cmd'" && $2 == "()" {printit=0; next; }
 #      whence -v "$*"
 #}
 
+#
+# ksh-like `cd': cd [-LP] [dir [change]]
+#
 cd()
 {
+       OPTIND=1
+       while getopts "LP" opt
+       do
+               case $opt in
+               L|P)    CDOPTS="$CDOPTS -$opt" ;;
+               *)      echo "$FUNCNAME: usage: $FUNCNAME [-LP] [dir] [change]" >&2
+                       return 2;;
+               esac
+       done
+
+       shift $(( $OPTIND - 1 ))
+
        case $# in
-       0)      builtin cd "$HOME" ;;
-       1)      builtin cd "$@" ;;
-       2)      old="$1"
-               new="$2"
-               # dir=$(echo "$PWD" | sed "s:$old:$new:g")
-               dir=${PWD//$old/$new}
-               case "$dir" in
-               "$PWD") case "$PWD" in
-                       *$old*) ;;
-                       *) echo "$FUNCNAME: bad substitution" >&2 ; return 1 ;;
-                       esac ;;
-               *)      echo "$dir"
-                       builtin cd "$dir"
-                       ;;
+       0)      builtin cd $CDOPTS "$HOME" ;;
+       1)      builtin cd $CDOPTS "$@" ;;
+       2)      old="$1" new="$2"
+               case "$PWD" in
+               *$old*) ;;
+               *)       echo "${0##*/}: $FUNCNAME: bad substitution" >&2 ; return 1 ;;
                esac
+
+               dir=${PWD//$old/$new}
+
+               builtin cd $CDOPTS "$dir" && echo "$PWD"
+
                ;;
-       *)      echo "$FUNCNAME: usage: $FUNCNAME [-LP] [dir] [change]" >&2
-               return 1 ;;
+       *)      echo "${0##*/}: $FUNCNAME: usage: $FUNCNAME [-LP] [dir] [change]" >&2
+               return 2 ;;
        esac
 }
 
index e3f866e026bcbcba060665e4f90cb760855fbfc1..3cf6bde2f8433fc5824fecd3c72aa427fcba4729 100644 (file)
@@ -11,7 +11,7 @@ lowercase()
        for file; do
                [ -f "$file" ] || continue
                filename=${file##*/}
-               case "$filename" in
+               case "$file" in
                */*)    dirname=${file%/*} ;;
                *) dirname=.;;
                esac
diff --git a/examples/functions/recurse b/examples/functions/recurse
new file mode 100644 (file)
index 0000000..14c4b9e
--- /dev/null
@@ -0,0 +1,64 @@
+#!/bin/bash
+
+#From: kaz@ashi.footprints.net (Kaz Kylheku)
+#Newsgroups: comp.os.linux.misc
+#Subject: Re: bash question: subdirectories
+#Message-ID: <slrn8a0gu9.v5n.kaz@ashi.FootPrints.net>
+#Date: Tue, 08 Feb 2000 16:24:35 GMT
+
+#Actually it can be made to. That is to say, it is possible to code a recursive
+#descender function in the bash language. Here is an example. 
+#
+#What is nice about this is that you can embed the function into your shell
+#script. The function changes the current working directory as it descends.
+#So it can handle arbitrarily deep paths. Whereas paths generated by the
+#find command can cause a problem when they get too long; the kernel has a
+#hard limit on the length of the string passed to the open() and other
+#system calls. 
+
+#There are races; what if the directory tree is blown away during the traversal?
+#The function won't be able to crawl back up using the .. link and will just
+#bail.
+
+# Recursive Directory Traverser
+# Author: Kaz Kylheku
+# Date: Feb 27, 1999
+# Copyright 1999
+
+# Function parameter usage:
+# $1 directory to search
+# $2 pattern to search for
+# $3 command to execute
+# $4 secret argument for passing down path
+
+function recurse
+{
+    local file
+    local path
+
+    if [ "$4" = "" ] ; then
+        path="${1%/}/"
+    else
+        path="$4$1/"
+    fi
+
+    if cd "$1" ; then
+        for file in $2; do
+            if [ -f "$file" -o -d "$file" ]; then
+                eval "$3"
+            fi
+        done
+        for file in .* * ; do
+            if [ "$file" = "." -o "$file" = ".." ] ; then
+                continue
+            fi
+            if [ -d "$file" -a ! -L "$file" ]; then
+                recurse "$file" "$2" "$3" "$path"
+            fi
+        done
+        cd ..
+    fi
+}
+
+recurse "$1" "$2" 'echo "$path$file"'
+
diff --git a/examples/functions/sort-pos-params b/examples/functions/sort-pos-params
new file mode 100644 (file)
index 0000000..0052b46
--- /dev/null
@@ -0,0 +1,50 @@
+# Sort the positional paramters.
+# Make sure the positional parameters are passed as arguments to the function.
+# If -u is the first arg, remove duplicate array members.
+sort_posparams()
+{
+       local -a R
+       local u
+
+       case "$1" in
+       -u)     u=-u ; shift ;;
+       esac
+
+       # if you want the case of no positional parameters to return success,
+       # remove the error message and return 0
+       if [ $# -eq 0 ]; then
+               echo "$FUNCNAME: argument expected" >&2
+               return 1
+       fi
+
+       # make R a copy of the positional parameters
+       R=( "${@}" )
+
+       # sort R.
+       R=( $( printf "%s\n" "${R[@]}" | sort $u) )
+
+       printf "%s\n" "${R[@]}"
+       return 0
+}
+
+# will print everything on separate lines
+set -- 3 1 4 1 5 9 2 6 5 3 2
+sort_posparams "$@"
+
+# sets without preserving quoted parameters
+set -- $( sort_posparams "$@" )
+echo "$@"
+echo $#
+
+# sets preserving quoted parameters, beware pos params with embedded newlines
+set -- 'a b' 'a c' 'x z'
+
+oifs=$IFS
+IFS=$'\n'
+set -- $( sort_posparams "$@" )
+IFS="$oifs"
+
+echo "$@"
+echo $#
+
+sort_posparams
index ab3c5d7e6cbb3599172709e7625ac76485405a8c..957108905c8df93a116912469624478443a1f06b 100644 (file)
@@ -67,7 +67,7 @@ INC = -I. -I.. -I$(topdir) -I$(topdir)/lib -I$(topdir)/builtins \
 
 ALLPROG = print truefalse sleep pushd finfo logname basename dirname \
          tty pathchk tee head mkdir rmdir sprintf printenv id whoami \
-         uname sync push ln unlink
+         uname sync push ln unlink cut realpath
 OTHERPROG = necho getconf hello cat
 
 all:   $(SHOBJ_STATUS)
@@ -164,6 +164,11 @@ ln:        ln.o
 unlink:        unlink.o
        $(SHOBJ_LD) $(SHOBJ_LDFLAGS) $(SHOBJ_XLDFLAGS) -o $@ unlink.o $(SHOBJ_LIBS)
 
+cut:   cut.o
+       $(SHOBJ_LD) $(SHOBJ_LDFLAGS) $(SHOBJ_XLDFLAGS) -o $@ cut.o $(SHOBJ_LIBS)
+
+realpath:      realpath.o
+       $(SHOBJ_LD) $(SHOBJ_LDFLAGS) $(SHOBJ_XLDFLAGS) -o $@ realpath.o $(SHOBJ_LIBS)
 
 # pushd is a special case.  We use the same source that the builtin version
 # uses, with special compilation options.
@@ -214,3 +219,4 @@ uname.o: uname.c
 sync.o: sync.c
 push.o: push.c
 mkdir.o: mkdir.c
+realpath.o: realpath.c
diff --git a/examples/loadables/cut.c b/examples/loadables/cut.c
new file mode 100644 (file)
index 0000000..d874034
--- /dev/null
@@ -0,0 +1,376 @@
+/*
+ * Copyright (c) 1989, 1993
+ *     The Regents of the University of California.  All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Adam S. Moskowitz of Menlo Consulting and Marciano Pitargue.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *     This product includes software developed by the University of
+ *     California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static const char copyright[] =
+"@(#) Copyright (c) 1989, 1993\n\
+       The Regents of the University of California.  All rights reserved.\n";
+#endif /* not lint */
+
+#ifndef lint
+static const char sccsid[] = "@(#)cut.c        8.3 (Berkeley) 5/4/95";
+#endif /* not lint */
+
+#include <config.h>
+
+#include <ctype.h>
+#include <stdio.h>
+#include <errno.h>
+
+#include "bashansi.h"
+
+#ifdef HAVE_LIMITS_H
+#  include <limits.h>
+#endif
+
+#ifdef HAVE_UNISTD_H
+#  include <unistd.h>
+#endif
+
+#include "builtins.h"
+#include "shell.h"
+#include "bashgetopt.h"
+
+#if !defined (errno)
+extern int     errno;
+#endif
+
+#if !defined (_POSIX2_LINE_MAX)
+#  define _POSIX2_LINE_MAX 2048
+#endif
+
+static int     cflag;
+static char    dchar;
+static int     dflag;
+static int     fflag;
+static int     sflag;
+
+static int autostart, autostop, maxval;
+static char positions[_POSIX2_LINE_MAX + 1];
+
+static int     c_cut __P((FILE *, char *));
+static int     f_cut __P((FILE *, char *));
+static int     get_list __P((char *));
+static char    *_cut_strsep __P((char **, const char *));
+
+int
+cut_builtin(list)
+       WORD_LIST *list;
+{
+       FILE *fp;
+       int (*fcn) __P((FILE *, char *)) = NULL;
+       int ch;
+
+       fcn = NULL;
+       dchar = '\t';                   /* default delimiter is \t */
+
+       /* Since we don't support multi-byte characters, the -c and -b 
+          options are equivalent, and the -n option is meaningless. */
+       reset_internal_getopt ();
+       while ((ch = internal_getopt (list, "b:c:d:f:sn")) != -1)
+               switch(ch) {
+               case 'b':
+               case 'c':
+                       fcn = c_cut;
+                       if (get_list(list_optarg) < 0)
+                               return (EXECUTION_FAILURE);
+                       cflag = 1;
+                       break;
+               case 'd':
+                       dchar = *list_optarg;
+                       dflag = 1;
+                       break;
+               case 'f':
+                       fcn = f_cut;
+                       if (get_list(list_optarg) < 0)
+                               return (EXECUTION_FAILURE);
+                       fflag = 1;
+                       break;
+               case 's':
+                       sflag = 1;
+                       break;
+               case 'n':
+                       break;
+               case '?':
+               default:
+                       builtin_usage();
+                       return (EX_USAGE);
+               }
+
+       list = loptend;
+
+       if (fflag) {
+               if (cflag) {
+                       builtin_usage();
+                       return (EX_USAGE);
+               }
+       } else if (!cflag || dflag || sflag) {
+               builtin_usage();
+               return (EX_USAGE);
+       }
+
+       if (list) {
+               while (list) {
+                       fp = fopen(list->word->word, "r");
+                       if (fp == 0) {
+                               builtin_error("%s", list->word->word);
+                               return (EXECUTION_FAILURE);
+                       }
+                       ch = (*fcn)(fp, list->word->word);
+                       (void)fclose(fp);
+                       if (ch < 0)
+                               return (EXECUTION_FAILURE);
+                       list = list->next;
+               }
+       } else {
+               ch = (*fcn)(stdin, "stdin");
+               if (ch < 0)
+                       return (EXECUTION_FAILURE);
+       }
+
+       return (EXECUTION_SUCCESS);
+}
+
+static int
+get_list(list)
+       char *list;
+{
+       int setautostart, start, stop;
+       char *pos;
+       char *p;
+
+       /*
+        * set a byte in the positions array to indicate if a field or
+        * column is to be selected; use +1, it's 1-based, not 0-based.
+        * This parser is less restrictive than the Draft 9 POSIX spec.
+        * POSIX doesn't allow lists that aren't in increasing order or
+        * overlapping lists.  We also handle "-3-5" although there's no
+        * real reason too.
+        */
+       for (; (p = _cut_strsep(&list, ", \t")) != NULL;) {
+               setautostart = start = stop = 0;
+               if (*p == '-') {
+                       ++p;
+                       setautostart = 1;
+               }
+               if (isdigit((unsigned char)*p)) {
+                       start = stop = strtol(p, &p, 10);
+                       if (setautostart && start > autostart)
+                               autostart = start;
+               }
+               if (*p == '-') {
+                       if (isdigit((unsigned char)p[1]))
+                               stop = strtol(p + 1, &p, 10);
+                       if (*p == '-') {
+                               ++p;
+                               if (!autostop || autostop > stop)
+                                       autostop = stop;
+                       }
+               }
+               if (*p) {
+                       builtin_error("[-cf] list: illegal list value");
+                       return -1;
+               }
+               if (!stop || !start) {
+                       builtin_error("[-cf] list: values may not include zero");
+                       return -1;
+               }
+               if (stop > _POSIX2_LINE_MAX) {
+                       builtin_error("[-cf] list: %d too large (max %d)",
+                                      stop, _POSIX2_LINE_MAX);
+                       return -1;
+               }
+               if (maxval < stop)
+                       maxval = stop;
+               for (pos = positions + start; start++ <= stop; *pos++ = 1);
+       }
+
+       /* overlapping ranges */
+       if (autostop && maxval > autostop)
+               maxval = autostop;
+
+       /* set autostart */
+       if (autostart)
+               memset(positions + 1, '1', autostart);
+
+       return 0;
+}
+
+/* ARGSUSED */
+static int
+c_cut(fp, fname)
+       FILE *fp;
+       char *fname;
+{
+       int ch, col;
+       char *pos;
+
+       ch = 0;
+       for (;;) {
+               pos = positions + 1;
+               for (col = maxval; col; --col) {
+                       if ((ch = getc(fp)) == EOF)
+                               return;
+                       if (ch == '\n')
+                               break;
+                       if (*pos++)
+                               (void)putchar(ch);
+               }
+               if (ch != '\n') {
+                       if (autostop)
+                               while ((ch = getc(fp)) != EOF && ch != '\n')
+                                       (void)putchar(ch);
+                       else
+                               while ((ch = getc(fp)) != EOF && ch != '\n');
+               }
+               (void)putchar('\n');
+       }
+       return (0);
+}
+
+static int
+f_cut(fp, fname)
+       FILE *fp;
+       char *fname;
+{
+       int ch, field, isdelim;
+       char *pos, *p, sep;
+       int output;
+       char lbuf[_POSIX2_LINE_MAX + 1];
+
+       for (sep = dchar; fgets(lbuf, sizeof(lbuf), fp);) {
+               output = 0;
+               for (isdelim = 0, p = lbuf;; ++p) {
+                       if (!(ch = *p)) {
+                               builtin_error("%s: line too long.", fname);
+                               return -1;
+                       }
+                       /* this should work if newline is delimiter */
+                       if (ch == sep)
+                               isdelim = 1;
+                       if (ch == '\n') {
+                               if (!isdelim && !sflag)
+                                       (void)printf("%s", lbuf);
+                               break;
+                       }
+               }
+               if (!isdelim)
+                       continue;
+
+               pos = positions + 1;
+               for (field = maxval, p = lbuf; field; --field, ++pos) {
+                       if (*pos) {
+                               if (output++)
+                                       (void)putchar(sep);
+                               while ((ch = *p++) != '\n' && ch != sep)
+                                       (void)putchar(ch);
+                       } else {
+                               while ((ch = *p++) != '\n' && ch != sep)
+                                       continue;
+                       }
+                       if (ch == '\n')
+                               break;
+               }
+               if (ch != '\n') {
+                       if (autostop) {
+                               if (output)
+                                       (void)putchar(sep);
+                               for (; (ch = *p) != '\n'; ++p)
+                                       (void)putchar(ch);
+                       } else
+                               for (; (ch = *p) != '\n'; ++p);
+               }
+               (void)putchar('\n');
+       }
+       return (0);
+}
+
+/*
+ * Get next token from string *stringp, where tokens are possibly-empty
+ * strings separated by characters from delim.
+ *
+ * Writes NULs into the string at *stringp to end tokens.
+ * delim need not remain constant from call to call.
+ * On return, *stringp points past the last NUL written (if there might
+ * be further tokens), or is NULL (if there are definitely no more tokens).
+ *
+ * If *stringp is NULL, strsep returns NULL.
+ */
+static char *
+_cut_strsep(stringp, delim)
+       register char **stringp;
+       register const char *delim;
+{
+       register char *s;
+       register const char *spanp;
+       register int c, sc;
+       char *tok;
+
+       if ((s = *stringp) == NULL)
+               return (NULL);
+       for (tok = s;;) {
+               c = *s++;
+               spanp = delim;
+               do {
+                       if ((sc = *spanp++) == c) {
+                               if (c == 0)
+                                       s = NULL;
+                               else
+                                       s[-1] = 0;
+                               *stringp = s;
+                               return (tok);
+                       }
+               } while (sc != 0);
+       }
+       /* NOTREACHED */
+}
+
+static char *cut_doc[] = {
+       "Select portions of each line (as specified by LIST) from each FILE",
+       "(by default, the standard input), and write them to the standard output.",
+       "Items specified by LIST are either column positions or fields delimited",
+       "by a special character.  Column numbering starts at 1.",
+       (char *)0
+};
+
+struct builtin cut_struct = {
+       "cut",
+       cut_builtin,
+       BUILTIN_ENABLED,
+       cut_doc,
+       "cut -b list [-n] [file ...] OR cut -c list [file ...] OR cut -f list [-s] [-d delim] [file ...]",
+       0
+};
index ab3c9a411b447dc23c54d3abd6f0f93a4858da76..5fdb6d4364df52b0b27b85fd4786aa3cb1e8c7fc 100644 (file)
@@ -9,6 +9,7 @@
 #include <grp.h>
 #include <errno.h>
 
+#include "bashansi.h"
 #include "shell.h"
 #include "builtins.h"
 #include "common.h"
@@ -17,7 +18,6 @@
 extern int     errno;
 #endif
 
-extern char    *strrchr();
 extern char    **make_builtin_argv ();
 
 static int     printst();
@@ -137,7 +137,11 @@ char       *f;
                fd = lfd;
                r = fstat(fd, &st);
        } else
+#ifdef HAVE_LSTAT
+               r = lstat(f, &st);
+#else
                r = stat(f, &st);
+#endif
        if (r < 0) {
                builtin_error("%s: cannot stat: %s", f, strerror(errno));
                return ((struct stat *)0);
index 64407cc9a22e92c97cc4b739cd6f70259b514347..cb8344ca598a82ac85581eddd73ca03280da415a 100644 (file)
@@ -55,7 +55,7 @@
 struct conf_variable
 {
   const char *name;
-  enum { SYSCONF, CONFSTR, PATHCONF, CONSTANT } type;
+  enum { SYSCONF, CONFSTR, PATHCONF, CONSTANT, G_UNDEF } type;
   long value;
 };
 
@@ -105,19 +105,55 @@ static const struct conf_variable conf_table[] =
 #endif /* _CS_XBS5_ILP32_OFF32_CFLAGS */
 
   /* POSIX.2 Utility Limit Minimum Values */
+#ifdef _POSIX2_BC_BASE_MAX
   { "POSIX2_BC_BASE_MAX",      CONSTANT,       _POSIX2_BC_BASE_MAX     },
+#else
+  { "POSIX2_BC_BASE_MAX",      G_UNDEF,        -1                      },
+#endif
+#ifdef _POSIX2_BC_DIM_MAX
   { "POSIX2_BC_DIM_MAX",       CONSTANT,       _POSIX2_BC_DIM_MAX      },
+#else
+  { "POSIX2_BC_DIM_MAX",       G_UNDEF,        -1                      },
+#endif
+#ifdef _POSIX2_BC_SCALE_MAX
   { "POSIX2_BC_SCALE_MAX",     CONSTANT,       _POSIX2_BC_SCALE_MAX    },
+#else
+  { "POSIX2_BC_SCALE_MAX",     G_UNDEF,        -1                      },
+#endif
+#ifdef _POSIX2_BC_STRING_MAX
   { "POSIX2_BC_STRING_MAX",    CONSTANT,       _POSIX2_BC_STRING_MAX   },
+#else
+  { "POSIX2_BC_STRING_MAX",    G_UNDEF,        -1                      },
+#endif
+#ifdef _POSIX2_COLL_WEIGHTS_MAX
   { "POSIX2_COLL_WEIGHTS_MAX", CONSTANT,       _POSIX2_COLL_WEIGHTS_MAX },
+#else
+  { "POSIX2_COLL_WEIGHTS_MAX", G_UNDEF,        -1                       },
+#endif
 #if defined (_POSIX2_EQUIV_CLASS_MAX)
   { "POSIX2_EQUIV_CLASS_MAX",  CONSTANT,       _POSIX2_EQUIV_CLASS_MAX },
 #endif
+#ifdef _POSIX2_EXPR_NEST_MAX
   { "POSIX2_EXPR_NEST_MAX",    CONSTANT,       _POSIX2_EXPR_NEST_MAX   },
+#else
+  { "POSIX2_EXPR_NEST_MAX",    G_UNDEF,        -1                      },
+#endif
+#ifdef _POSIX2_LINE_MAX
   { "POSIX2_LINE_MAX",         CONSTANT,       _POSIX2_LINE_MAX        },
+#else
+  { "POSIX2_LINE_MAX",         G_UNDEF,        -1                      },
+#endif
+#ifdef _POSIX2_RE_DUP_MAX
   { "POSIX2_RE_DUP_MAX",       CONSTANT,       _POSIX2_RE_DUP_MAX      },
+#else
+  { "POSIX2_RE_DUP_MAX",       G_UNDEF,        -1                      },
+#endif
 #if defined (_POSIX2_VERSION)
   { "POSIX2_VERSION",          CONSTANT,       _POSIX2_VERSION         },
+#else
+#  if !defined (_SC_2_VERSION)
+  { "POSIX2_VERSION",          G_UNDEF,        -1                      },
+#  endif
 #endif
 
   /* POSIX.1 Minimum Values */
@@ -146,20 +182,50 @@ static const struct conf_variable conf_table[] =
   { "RE_DUP_MAX",              SYSCONF,        _SC_RE_DUP_MAX          },
 
   /* POSIX.2 Optional Facility Configuration Values */
+#ifdef _SC_2_C_BIND
   { "POSIX2_C_BIND",           SYSCONF,        _SC_2_C_BIND            },
+#else
+  { "POSIX2_C_BIND",           G_UNDEF,        -1                      },
+#endif
+#ifdef _SC_2_C_DEV
   { "POSIX2_C_DEV",            SYSCONF,        _SC_2_C_DEV             },
+#else
+  { "POSIX2_C_DEV",            G_UNDEF,        -1                      },
+#endif
 #if defined (_SC_2_C_VERSION)
   { "POSIX2_C_VERSION",                SYSCONF,        _SC_2_C_VERSION         },
+#else
+  { "POSIX2_C_VERSION",                G_UNDEF,        -1                      },
 #endif
 #if defined (_SC_2_CHAR_TERM)
   { "POSIX2_CHAR_TERM",                SYSCONF,        _SC_2_CHAR_TERM         },
+#else
+  { "POSIX2_CHAR_TERM",                G_UNDEF,        -1                      },
 #endif
+#ifdef _SC_2_FORT_DEV
   { "POSIX2_FORT_DEV",         SYSCONF,        _SC_2_FORT_DEV          },
+#else
+  { "POSIX2_FORT_DEV",         G_UNDEF,        -1                      },
+#endif
+#ifdef _SC_2_FORT_RUN
   { "POSIX2_FORT_RUN",         SYSCONF,        _SC_2_FORT_RUN          },
+#else
+  { "POSIX2_FORT_RUN",         G_UNDEF,        -1                      },
+#endif
+#ifdef _SC_2_LOCALEDEF
   { "POSIX2_LOCALEDEF",                SYSCONF,        _SC_2_LOCALEDEF         },
+#else
+  { "POSIX2_LOCALEDEF",                G_UNDEF,        -1                      },
+#endif
+#ifdef _SC_2_SW_DEV
   { "POSIX2_SW_DEV",           SYSCONF,        _SC_2_SW_DEV            },
+#else
+  { "POSIX2_SW_DEV",           G_UNDEF,        -1                      },
+#endif
 #if defined (_SC2_UPE)
   { "POSIX2_UPE",              SYSCONF,        _SC_2_UPE               },
+#else
+  { "POSIX2_UPE",              G_UNDEF,        -1                      },
 #endif
 #if !defined (_POSIX2_VERSION) && defined (_SC_2_VERSION)
   { "POSIX2_VERSION"           SYSCONF,        _SC_2_VERSION           },
@@ -449,6 +515,10 @@ int all;
        size_t slen;
 
        switch (cp->type) {
+       case G_UNDEF:
+               printf("undefined\n");
+               break;
+
        case CONSTANT:
                printf("%ld\n", cp->value);
                break;
@@ -508,7 +578,8 @@ int all;
                break;
        }
 
-       return (ferror(stdout) ? EXECUTION_FAILURE : EXECUTION_SUCCESS);
+       return ((ferror(stdout) || cp->type == G_UNDEF) ? EXECUTION_FAILURE
+                                                       : EXECUTION_SUCCESS);
 }
 
 static int
diff --git a/examples/loadables/push.c b/examples/loadables/push.c
new file mode 100644 (file)
index 0000000..497ecd0
--- /dev/null
@@ -0,0 +1,95 @@
+/*
+ * push - anyone remember TOPS-20?
+ *
+ */
+
+#include <config.h>
+#include <stdio.h>
+#include <errno.h>
+
+#include "builtins.h"
+#include "shell.h"
+#include "jobs.h"
+#include "bashgetopt.h"
+
+#ifndef errno
+extern int errno;
+#endif
+
+extern int dollar_dollar_pid;
+extern int last_command_exit_value;
+
+int
+push_builtin (list)
+     WORD_LIST *list;
+{
+  pid_t pid;
+  int xstatus, opt;
+
+  xstatus = EXECUTION_SUCCESS;
+  reset_internal_getopt ();
+  while ((opt = internal_getopt (list, "")) != -1)
+    {
+      switch (opt)
+       {
+       default:
+         builtin_usage ();
+         return (EX_USAGE);
+       }
+    }
+  list = loptend;  
+
+  pid = make_child (savestring ("push"), 0);
+  if (pid == -1)
+    {
+      builtin_error ("cannot fork: %s", strerror (errno));
+      return (EXECUTION_FAILURE);
+    }
+  else if (pid == 0)
+    {
+      /* Shell variable adjustments: $SHLVL, $$, $PPID, $! */
+      adjust_shell_level (1);
+      dollar_dollar_pid = getpid ();
+      set_ppid ();
+
+      /* Clean up job control stuff. */
+      stop_making_children ();
+      cleanup_the_pipeline ();
+      delete_all_jobs (0);
+
+      last_asynchronous_pid = NO_PID;
+
+      /* Make sure the job control code has the right values for
+        the shell's process group and tty process group, and that
+        the signals are set correctly for job control. */
+      initialize_job_control (0);
+      initialize_job_signals ();
+
+      /* And read commands until exit. */
+      reader_loop ();
+      exit_shell (last_command_exit_value);
+    }
+  else
+    {
+      stop_pipeline (0, (COMMAND *)NULL);
+      xstatus = wait_for (pid);
+      return (xstatus);
+    }   
+}
+
+char *push_doc[] = {
+       "Create a child that is an exact duplicate of the running shell",
+       "and wait for it to exit.  The $SHLVL, $!, $$, and $PPID variables",
+       "are adjusted in the child.  The return value is the exit status",
+       "of the child.",
+       (char *)NULL
+};
+
+struct builtin push_struct = {
+       "push",
+       push_builtin,
+       BUILTIN_ENABLED,
+       push_doc,
+       "push",
+       0
+};
diff --git a/examples/loadables/realpath.c b/examples/loadables/realpath.c
new file mode 100644 (file)
index 0000000..16478b7
--- /dev/null
@@ -0,0 +1,119 @@
+/*
+ * realpath -- canonicalize pathnames, resolving symlinks
+ *
+ * usage: realpath [-csv] pathname [pathname...]
+ *
+ * options:    -c      check whether or not each resolved path exists
+ *             -s      no output, exit status determines whether path is valid
+ *             -v      produce verbose output
+ *
+ *
+ * exit status:        0       if all pathnames resolved
+ *             1       if any of the pathname arguments could not be resolved
+ *
+ *
+ * Bash loadable builtin version
+ *
+ * Chet Ramey
+ * chet@po.cwru.edu
+ */
+
+#include "config.h"
+
+#include <sys/types.h>
+#include <sys/stat.h>
+
+#include <stdio.h>
+#ifdef HAVE_UNISTD_H
+#  include <unistd.h>
+#endif
+#include "bashansi.h"
+#include <maxpath.h>
+#include <errno.h>
+
+#include "builtins.h"
+#include "shell.h"
+#include "bashgetopt.h"
+
+#ifndef errno
+extern int     errno;
+#endif
+
+extern char    *sh_realpath();
+
+realpath_builtin(list)
+WORD_LIST      *list;
+{
+       int     opt, cflag, vflag, sflag, es;
+       char    *r, realbuf[PATH_MAX], *p;
+       struct stat sb;
+
+       if (list == 0) {
+               builtin_usage();
+               return (EX_USAGE);
+       }
+
+       vflag = cflag = sflag = 0;
+       reset_internal_getopt();
+       while ((opt = internal_getopt (list, "csv")) != -1) {
+               switch (opt) {
+               case 'c':
+                       cflag = 1;
+                       break;
+               case 's':
+                       sflag = 1;
+                       break;
+               case 'v':
+                       vflag = 1;
+                       break;
+               default:
+                       usage();
+               }
+       }
+
+       list = loptend;
+
+       if (list == 0)
+               usage();
+
+       for (es = EXECUTION_SUCCESS; list; list = list->next) {
+               p = list->word->word;
+               r = sh_realpath(p, realbuf);
+               if (r == 0) {
+                       es = EXECUTION_FAILURE;
+                       if (sflag == 0)
+                               builtin_error("%s: cannot resolve: %s", p, strerror(errno));
+                       continue;
+               }
+               if (cflag && (stat(realbuf, &sb) < 0)) {
+                       es = EXECUTION_FAILURE;
+                       if (sflag == 0)
+                               builtin_error("%s: %s", p, strerror(errno));
+                       continue;
+               }
+               if (sflag == 0) {
+                       if (vflag)
+                               printf ("%s -> ", p);
+                       printf("%s\n", realbuf);
+               }
+       }
+       return es;
+}
+
+char *realpath_doc[] = {
+       "Display the canonicalized version of each PATHNAME argument, resolving",
+       "symbolic links.  The -c option checks whether or not each resolved name",
+       "exists.  The -s option produces no output; the exit status determines the",
+       "valididty of each PATHNAME.  The -v option produces verbose output.  The",
+       "exit status is 0 if each PATHNAME was resolved; non-zero otherwise.",
+       (char *)NULL
+};
+
+struct builtin realpath_struct = {
+       "realpath",             /* builtin name */
+       realpath_builtin,       /* function implementing the builtin */
+       BUILTIN_ENABLED,        /* initial flags for builtin */
+       realpath_doc,           /* array of long documentation strings */
+       "realpath [-csv] pathname [pathname...]",       /* usage synopsis */
+       0                       /* reserved for internal use */
+};
index 846efc6eb8743476568d27962985cbce87441de8..169445014cdeb6023837050082dcb9f66733ef9f 100755 (executable)
@@ -99,7 +99,7 @@ set -o emacs
 cd
 LIM=.limbo                     # $HOME/$LIM contains "destroyed" objects
 mkdir $LIM || {
-       echo "ash: cannot mkdir $LIM: exiting
+       echo "ash: cannot mkdir $LIM: exiting"
        exit 1
 }
 KNAP=.knapsack                 # $HOME/$KNAP contains objects being "carried"
diff --git a/examples/scripts/cat.sh b/examples/scripts/cat.sh
new file mode 100644 (file)
index 0000000..78106b2
--- /dev/null
@@ -0,0 +1,12 @@
+shcat()
+{
+       while read -r ; do
+               echo "$REPLY"
+       done
+}
+
+if [ -n "$1" ]; then
+       shcat < "$1"
+else
+       shcat
+fi
diff --git a/examples/scripts/dd-ex.sh b/examples/scripts/dd-ex.sh
new file mode 100644 (file)
index 0000000..fafc83f
--- /dev/null
@@ -0,0 +1,476 @@
+#!/bin/sh
+
+# this is a line editor using only /bin/sh, /bin/dd and /bin/rm
+
+# /bin/rm is not really required, but it is nice to clean up temporary files
+
+PATH=
+dd=/bin/dd
+rm=/bin/rm
+
+# temporary files we might need
+tmp=/tmp/silly.$$
+ed=/tmp/ed.$$
+trap "$rm -f $tmp $tmp.1 $tmp.2 $tmp.3 $tmp.4 $tmp.5 $tmp.6 $ed.a $ed.b $ed.c; exit" 0 1 2 3
+
+# from now on, no more rm - the above trap is enough
+unset rm
+
+# we do interesting things with IFS, but better save it...
+saveIFS="$IFS"
+
+# in case "echo" is not a shell builtin...
+
+Echo () {
+case "$1" in
+  -n) shift
+      $dd of=$tmp 2>/dev/null <<EOF 
+$@
+EOF
+      IFS="+"
+      set `$dd if=$tmp bs=1 of=/dev/null skip=1 2>&1`
+      IFS="$saveIFS"
+      $dd if=$tmp bs=1 count=$1 2>/dev/null
+      ;;
+  *)  $dd 2>/dev/null <<EOF 
+$@
+EOF
+      ;;
+esac
+}
+
+# this is used to generate garbage files
+
+true () {
+  return 0
+}
+
+false () {
+  return 1
+}
+
+zero () {
+  ( trap 'go=false' 13
+    go=true
+    while $go
+    do
+      $dd "if=$0"
+      case "$?" in
+       0) ;;
+       *) go=false ;;
+      esac
+    done
+  ) 2>/dev/null
+}
+
+# arithmetic using dd!
+
+# add variable n1 n2 n3...
+# assigns n1+n2+n3+... to variable
+
+add () {
+  result="$1"
+  shift
+  $dd if=/dev/null of=$tmp bs=1 2>/dev/null
+  for n in "$@"
+  do
+    case "$n" in
+      0) ;;
+      *) zero | $dd of=$tmp.1 bs=1 "count=$n" 2>/dev/null
+        ( $dd if=$tmp; $dd if=$tmp.1 ) 2>/dev/null | $dd of=$tmp.2 2>/dev/null
+        $dd if=$tmp.2 of=$tmp 2>/dev/null
+        ;;
+    esac
+  done
+  IFS="+"
+  set `$dd if=$tmp bs=1 of=/dev/null 2>&1`
+  IFS="$saveIFS"
+  eval $result='$1'
+}
+
+# subtract variable n1 n2
+# subtracts n2 from n1, assigns result to variable
+
+subtract () {
+  result="$1"
+  zero | $dd of=$tmp bs=1 "count=$2" 2>/dev/null
+  IFS="+"
+  set `$dd if=$tmp bs=1 of=/dev/null "skip=$3" 2>&1`
+  IFS="$saveIFS"
+  case "$1" in
+    dd*) set 0 ;;
+  esac
+  eval $result='$1'
+}
+
+# multiply variable n1 n2
+# variable = n1 * n2
+
+multiply () {
+  result="$1"
+  zero | $dd "bs=$2" of=$tmp "count=$3" 2>/dev/null
+  IFS="+"
+  set `$dd if=$tmp bs=1 of=/dev/null 2>&1`
+  IFS="$saveIFS"
+  eval $result='$1'
+}
+
+# divide variable n1 n2
+# variable = int( n1 / n2 )
+
+divide () {
+  result="$1"
+  zero | $dd bs=1 of=$tmp "count=$2" 2>/dev/null
+  IFS="+"
+  set `$dd if=$tmp "bs=$3" of=/dev/null 2>&1`
+  IFS="$saveIFS"
+  eval $result='$1'
+}
+
+# compare variable n1 n2 sets variable to lt if n1<n2, gt if n1>n2, eq if n1==n2
+
+compare () {
+  res="$1"
+  n1="$2"
+  n2="$3"
+  subtract somename "$n1" "$n2"
+  case "$somename" in
+    0) ;;
+    *) eval $res=gt; return;
+  esac
+  subtract somename "$n2" "$n1"
+  case "$somename" in
+    0) ;;
+    *) eval $res=lt; return;
+  esac
+  eval $res=eq
+}
+
+# lt n1 n2 returns true if n1 < n2
+
+lt () {
+  n1="$1"
+  n2="$2"
+  subtract somename "$n2" "$n1"
+  case "$somename" in
+    0) return 1 ;;
+  esac
+  return 0
+}
+
+# le n1 n2 returns true if n1 <= n2
+
+le () {
+  n1="$1"
+  n2="$2"
+  subtract somename "$n1" "$n2"
+  case "$somename" in
+    0) return 0 ;;
+  esac
+  return 1
+}
+
+# gt n1 n2 returns true if n1 > n2
+
+gt () {
+  n1="$1"
+  n2="$2"
+  subtract somename "$n1" "$n2"
+  case "$somename" in
+    0) return 1 ;;
+  esac
+  return 0
+}
+
+# ge n1 n2 returns true if n1 >= n2
+
+ge () {
+  n1="$1"
+  n2="$2"
+  subtract somename "$n2" "$n1"
+  case "$somename" in
+    0) return 0 ;;
+  esac
+  return 1
+}
+
+# useful functions for the line editor
+
+# open a file - copy it to the buffers
+
+open () {
+  file="$1"
+  set `$dd "if=$file" of=/dev/null 2>&1`
+  case "$1" in
+    dd*) return 1
+  esac
+  # copy the first line to $ed.c
+  go=true
+  len=0
+  while $go
+  do
+    case "`$dd "if=$file" bs=1 skip=$len count=1 2>/dev/null`" in
+      ?*) go=true ;;
+      *) go=false ;;
+    esac
+    add len 1 $len
+  done
+  # now $len is the length of the first line (including newline)
+  $dd "if=$file" bs=1 count=$len of=$ed.c 2>/dev/null
+  $dd "if=$file" bs=1 skip=$len of=$ed.b 2>/dev/null
+  $dd if=/dev/null of=$ed.a 2>/dev/null
+  lineno=1
+}
+
+# save a file - copy the buffers to the file
+
+save () {
+  # make a backup copy of the original
+  $dd "if=$1" "of=$1.bak" 2>/dev/null
+  # and save
+  ( $dd if=$ed.a; $dd if=$ed.c; $dd if=$ed.b ) > "$1" 2>/dev/null
+}
+
+# replace n1 n2 bla replaces n2 chars of current line, starting n1-th
+
+replace () {
+  $dd if=$ed.c of=$tmp.1 bs=1 "count=$1" 2>/dev/null
+  ( $dd if=$ed.c "skip=$1" bs=1 | $dd of=$tmp.2 bs=1 "skip=$2" ) 2>/dev/null
+  shift
+  shift
+  ( $dd if=$tmp.1; Echo -n "$@"; $dd if=$tmp.2 ) > $tmp.3 2>/dev/null
+  $dd if=$tmp.3 of=$ed.c 2>/dev/null
+}
+
+# rstring n s bla
+# replace the n-th occurence of s with bla
+
+rstring () {
+  n="$1"
+  shift;
+  # first we have to find it - this is fun!
+  # we have $tmp.4 => text before string, $tmp.5 => text after
+  $dd if=/dev/null of=$tmp.4 2>/dev/null
+  $dd if=$ed.c of=$tmp.5 2>/dev/null
+  string="$1"
+  shift
+  $dd of=$tmp.6 2>/dev/null <<EOF
+$@
+EOF
+  while :
+  do
+    case "`$dd if=$tmp.5 2>/dev/null`" in
+      $string*)
+         if lt $n 2
+         then
+           # now we want to replace the string
+           Echo -n "$@" > $tmp.2
+           Echo -n "$string" > $tmp.1
+           IFS="+"
+           set `$dd bs=1 if=$tmp.1 of=/dev/null 2>&1`
+           IFS="$saveIFS"
+           slen=$1
+           IFS="+"
+           ( $dd if=$tmp.4; $dd if=$tmp.2; $dd if=$tmp.5 bs=1 skip=$slen ) \
+                 2>/dev/null > $tmp
+           $dd if=$tmp of=$ed.c 2>/dev/null
+           return 0
+         else
+           subtract n $n 1
+           ( $dd if=$tmp.4; $dd if=$tmp.5 bs=1 count=1 ) > $tmp 2>/dev/null
+           $dd if=$tmp of=$tmp.4 2>/dev/null
+           # and remove it from $tmp.5
+           $dd if=$tmp.5 of=$tmp bs=1 skip=1 2>/dev/null
+           $dd if=$tmp of=$tmp.5 2>/dev/null
+         fi
+         ;;
+      ?*) # add one more byte...
+         ( $dd if=$tmp.4; $dd if=$tmp.5 bs=1 count=1 ) > $tmp 2>/dev/null
+         $dd if=$tmp of=$tmp.4 2>/dev/null
+         # and remove it from $tmp.5
+         $dd if=$tmp.5 of=$tmp bs=1 skip=1 2>/dev/null
+         $dd if=$tmp of=$tmp.5 2>/dev/null
+         ;;
+      *)  # not found
+         return 1
+         ;;
+    esac
+  done
+}
+
+# skip to next line
+next () {
+  add l $lineno 1
+  ( $dd if=$ed.a; $dd if=$ed.c ) 2>/dev/null > $tmp.3
+  $dd if=$ed.b of=$tmp.4 2>/dev/null
+  open $tmp.4
+  $dd if=$tmp.3 of=$ed.a 2>/dev/null
+  lineno=$l
+}
+
+# delete current line
+delete () {
+  l=$lineno
+  $dd if=$ed.a 2>/dev/null > $tmp.1
+  $dd if=$ed.b of=$tmp.2 2>/dev/null
+  open $tmp.2
+  $dd if=$tmp.1 of=$ed.a 2>/dev/null
+  lineno=$l
+}
+
+# insert before current line (without changing current)
+insert () {
+  ( $dd if=$ed.a; Echo "$@" ) 2>/dev/null > $tmp.1
+  $dd if=$tmp.1 of=$ed.a 2>/dev/null
+  add lineno $lineno 1
+}
+
+# previous line
+prev () {
+  case "$lineno" in
+    1) ;;
+    *) subtract lineno $lineno 1
+       # read last line of $ed.a
+       IFS='+'
+       set `$dd if=$ed.a of=/dev/null bs=1 2>&1`
+       IFS="$saveIFS"
+       size=$1
+       # empty?
+       case "$size" in
+        0) return ;;
+       esac
+       subtract size $size 1
+       # skip final newline
+       case "$size" in
+        0) ;;
+        *) subtract size1 $size 1
+           case "`$dd if=$ed.a bs=1 skip=$size count=1 2>/dev/null`" in
+             ?*) ;;
+             *) size=$size1 ;;
+           esac
+           ;;
+       esac
+       go=true
+       while $go
+       do
+        case "$size" in
+          0) go=false ;;
+          *) case "`$dd if=$ed.a bs=1 skip=$size count=1 2>/dev/null`" in
+               ?*)  go=true; subtract size $size 1 ;;
+               *)   go=false; add size $size 1 ;;
+             esac
+             ;;
+        esac
+       done
+       # now $size is the size of the first n-1 lines
+       # add $ed.c to $ed.b
+       ( $dd if=$ed.c; $dd if=$ed.b ) 2>/dev/null > $tmp.5
+       $dd if=$tmp.5 of=$ed.b 2>/dev/null
+       # move line to ed.c
+       case "$size" in
+        0) $dd if=$ed.a of=$ed.c 2>/dev/null
+           $dd if=/dev/null of=$tmp.5 2>/dev/null
+           ;;
+        *) $dd if=$ed.a of=$ed.c bs=1 skip=$size 2>/dev/null
+           $dd if=$ed.a of=$tmp.5 bs=1 count=$size 2>/dev/null
+           ;;
+       esac
+       # move rest to ed.a
+       $dd if=$tmp.5 of=$ed.a 2>/dev/null
+    ;;
+  esac
+}
+
+# goes to a given line
+goto () {
+  rl="$1"
+  compare bla "$rl" $lineno
+  case "$bla" in
+    eq) return
+       ;;
+    gt) while gt "$rl" $lineno
+       do
+         next
+       done
+       ;;
+    lt) while lt "$rl" $lineno
+       do
+         prev
+       done
+       ;;
+  esac
+}
+
+lineout () {
+  Echo -n "$lineno: "
+  $dd if=$ed.c 2>/dev/null
+}
+
+state=closed
+name=
+autoprint=true
+
+while true
+do
+  Echo -n '> '
+  read cmd arg
+  case "$cmd:$state" in
+    open:open) Echo "There is a file open already" ;;
+    open:*) if open "$arg"
+           then state=open; name="$arg"; $autoprint
+           else Echo "Cannot open $arg"
+           fi
+           ;;
+    new:open) Echo "There is a file open already" ;;
+    new:*)  open "$arg"
+           state=open
+           name="$arg"
+           $autoprint
+           ;;
+    close:changed) Echo "Use 'discard' or 'save'" ;;
+    close:closed) Echo "Closed already" ;;
+    close:*) state=closed ;;
+    save:closed) Echo "There isn't a file to save" ;;
+    save:*) case "$arg" in
+             ?*) save "$arg" ;;
+             *) save "$name" ;;
+           esac
+           state=open
+           ;;
+    discard:changed) Echo "Your problem!"; state=closed ;;
+    discard:*) state=closed ;;
+    print:closed) Echo "No current file" ;;
+    print:*) lineout ;;
+    goto:closed) Echo "No current file" ;;
+    goto:*) goto "$arg"; $autoprint ;;
+    next:closed) Echo "No current file" ;;
+    next:*) next; $autoprint ;;
+    prev:closed) Echo "No current file" ;;
+    prev:*) prev; $autoprint ;;
+    name:closed) Echo "No current file" ;;
+    name:*) name="$arg" ;;
+    replace:closed) Echo "No current file" ;;
+    replace:*) if rstring 1 $arg
+              then state=changed; $autoprint
+              else Echo "Not found"
+              fi
+              ;;
+    nreplace:closed) Echo "No current file" ;;
+    nreplace:*) if rstring $arg
+               then state=changed; $autoprint
+               else Echo "Not found"
+               fi
+               ;;
+    delete:closed) Echo "No current file" ;;
+    delete:*) delete; state=changed; $autoprint ;;
+    insert:closed) Echo "No current file" ;;
+    insert:*) insert "$arg"; prev; state=changed; $autoprint ;;
+    quit:changed) Echo "Use 'save' or 'discard'" ;;
+    quit:*) Echo "bye"; exit;;
+    autoprint:*) autoprint="lineout" ;;
+    noprint:*) autoprint="" ;;
+    :*) ;;
+    *) Echo "Command not understood" ;;
+  esac
+done
+
index fd32f2f30d753e93c2f1eecedb5b9d726092ce57..79abc28ce128fc63e41f71872e7d5dc2a2443649 100644 (file)
@@ -460,8 +460,8 @@ execute_command_internal (command, asynchronous, pipe_in, pipe_out,
       paren_pid = make_child (savestring (make_command_string (command)),
                              asynchronous);
       if (paren_pid == 0)
-        exit (execute_in_subshell (command, asynchronous, pipe_in, pipe_out, fds_to_close));
-        /* NOTREACHED */
+       exit (execute_in_subshell (command, asynchronous, pipe_in, pipe_out, fds_to_close));
+       /* NOTREACHED */
       else
        {
          close_pipes (pipe_in, pipe_out);
@@ -1057,7 +1057,8 @@ time_command (command, asynchronous, pipe_in, pipe_out, fds_to_close)
 #endif /* COMMAND_TIMING */
 
 /* Execute a command that's supposed to be in a subshell.  This must be
-   called after make_child and we must be running in the child process. */
+   called after make_child and we must be running in the child process.
+   The caller will return or exit() immediately with the value this returns. */
 static int
 execute_in_subshell (command, asynchronous, pipe_in, pipe_out, fds_to_close)
      COMMAND *command;
@@ -1065,14 +1066,17 @@ execute_in_subshell (command, asynchronous, pipe_in, pipe_out, fds_to_close)
      int pipe_in, pipe_out;
      struct fd_bitmap *fds_to_close;
 {
-  int user_subshell, return_code, function_value, should_redir_stdin;
+  int user_subshell, return_code, function_value, should_redir_stdin, invert;
+  int ois;
   COMMAND *tcom;
 
   should_redir_stdin = (asynchronous && (command->flags & CMD_STDIN_REDIR) &&
                          pipe_in == NO_PIPE &&
                          stdin_redirects (command->redirects) == 0);
 
+  invert = (command->flags & CMD_INVERT_RETURN) != 0;
   user_subshell = command->type == cm_subshell || ((command->flags & CMD_WANT_SUBSHELL) != 0);
+
   command->flags &= ~(CMD_FORCE_SUBSHELL | CMD_WANT_SUBSHELL | CMD_INVERT_RETURN);
 
   /* If a command is asynchronous in a subshell (like ( foo ) & or
@@ -1098,8 +1102,14 @@ execute_in_subshell (command, asynchronous, pipe_in, pipe_out, fds_to_close)
         undoing all the work we just did in make_child. */
       original_pgrp = -1;
 #endif /* JOB_CONTROL */
+      ois = interactive_shell;
       interactive_shell = 0;
-      expand_aliases = 0;
+      /* This test is to prevent alias expansion by interactive shells that
+        run `(command) &' but to allow scripts that have enabled alias
+        expansion with `shopt -s expand_alias' to continue to expand
+        aliases. */
+      if (ois != interactive_shell)
+       expand_aliases = 0;
       asynchronous = 0;
     }
 
@@ -1151,7 +1161,7 @@ execute_in_subshell (command, asynchronous, pipe_in, pipe_out, fds_to_close)
   if (command->redirects)
     {
       if (do_redirections (command->redirects, 1, 0, 0) != 0)
-       exit (EXECUTION_FAILURE);
+       exit (invert ? EXECUTION_SUCCESS : EXECUTION_FAILURE);
 
       dispose_redirects (command->redirects);
       command->redirects = (REDIRECT *)NULL;
@@ -1162,16 +1172,20 @@ execute_in_subshell (command, asynchronous, pipe_in, pipe_out, fds_to_close)
   /* If this is a simple command, tell execute_disk_command that it
      might be able to get away without forking and simply exec.
      This means things like ( sleep 10 ) will only cause one fork.
-     If we're timing the command, however, we cannot do this
-     optimization. */
+     If we're timing the command or inverting its return value, however,
+     we cannot do this optimization. */
   if (user_subshell && (tcom->type == cm_simple || tcom->type == cm_subshell) &&
-      (tcom->flags & CMD_TIME_PIPELINE) == 0)
+      ((tcom->flags & CMD_TIME_PIPELINE) == 0) &&
+      ((tcom->flags & CMD_INVERT_RETURN) == 0))
     {
       tcom->flags |= CMD_NO_FORK;
       if (tcom->type == cm_simple)
        tcom->value.Simple->flags |= CMD_NO_FORK;
     }
 
+  invert = (tcom->flags & CMD_INVERT_RETURN) != 0;
+  tcom->flags &= ~CMD_INVERT_RETURN;
+
   /* If we're inside a function while executing this subshell, we
      need to handle a possible `return'. */
   function_value = 0;
@@ -1184,6 +1198,11 @@ execute_in_subshell (command, asynchronous, pipe_in, pipe_out, fds_to_close)
     return_code = execute_command_internal
       (tcom, asynchronous, NO_PIPE, NO_PIPE, fds_to_close);
 
+  /* If we are asked to, invert the return value. */
+  if (invert)
+    return_code = (return_code == EXECUTION_SUCCESS) ? EXECUTION_FAILURE
+                                                    : EXECUTION_SUCCESS;
+
   /* If we were explicitly placed in a subshell with (), we need
      to do the `shell cleanup' things, such as running traps[0]. */
   if (user_subshell && signal_is_trapped (0))
@@ -1513,9 +1532,9 @@ execute_for_command (for_command)
       QUIT;
       this_command_name = (char *)NULL;
       v = bind_variable (identifier, list->word->word);
-      if (readonly_p (v))
+      if (readonly_p (v) || noassign_p (v))
        {
-         if (interactive_shell == 0 && posixly_correct)
+         if (readonly_p (v) && interactive_shell == 0 && posixly_correct)
            {
              last_command_exit_value = EXECUTION_FAILURE;
              jump_to_top_level (FORCE_EOF);
@@ -1634,7 +1653,7 @@ execute_arith_for_command (arith_for_command)
        }
       REAP ();
       if (expresult == 0)
-        break;
+       break;
 
       /* Execute the body of the arithmetic for command. */
       QUIT;
@@ -1888,9 +1907,9 @@ execute_select_command (select_command)
        break;
 
       v = bind_variable (identifier, selection);
-      if (readonly_p (v))
+      if (readonly_p (v) || noassign_p (v))
        {
-         if (interactive_shell == 0 && posixly_correct)
+         if (readonly_p (v) && interactive_shell == 0 && posixly_correct)
            {
              last_command_exit_value = EXECUTION_FAILURE;
              jump_to_top_level (FORCE_EOF);
@@ -1958,7 +1977,7 @@ execute_case_command (case_command)
       case_command->word->word = word;
     }
 
-  wlist = expand_word_no_split (case_command->word, 0);
+  wlist = expand_word_unsplit (case_command->word, 0);
   word = wlist ? string_list (wlist) : savestring ("");
   dispose_words (wlist);
 
@@ -2404,6 +2423,10 @@ execute_simple_command (simple_command, pipe_in, pipe_out, async, fds_to_close)
          already_forked = 1;
          simple_command->flags |= CMD_NO_FORK;
 
+         subshell_environment = (pipe_in != NO_PIPE || pipe_out != NO_PIPE)
+                                       ? (SUBSHELL_PIPE|SUBSHELL_FORK)
+                                       : (SUBSHELL_ASYNC|SUBSHELL_FORK);
+
          /* We need to do this before piping to handle some really
             pathological cases where one of the pipe file descriptors
             is < 2. */
@@ -2414,7 +2437,6 @@ execute_simple_command (simple_command, pipe_in, pipe_out, async, fds_to_close)
          pipe_in = pipe_out = -1;
 
          last_asynchronous_pid = old_last_async_pid;
-         subshell_environment = async ? SUBSHELL_ASYNC : SUBSHELL_FORK;
        }
       else
        {
@@ -2581,7 +2603,7 @@ execute_simple_command (simple_command, pipe_in, pipe_out, async, fds_to_close)
 
   if (builtin || func)
     {
-       if (already_forked)
+      if (already_forked)
        {
          /* reset_terminating_signals (); */   /* XXX */
          /* Cancel traps, in trap.c. */
@@ -2714,14 +2736,26 @@ execute_builtin (builtin, words, flags, subshell)
            add_unwind_protect (dispose_builtin_env, (char *)NULL);
          dispose_used_env_vars ();
        }
-#if 0
-      else
-       builtin_env = (char **)NULL;
-#endif
+      /* Otherwise we inherit builtin_env from our caller. */
+    }
+
+  /* `return' does a longjmp() back to a saved environment in execute_function.
+     If a variable assignment list preceded the command, and the shell is
+     running in POSIX mode, we need to merge that into the shell_variables
+     table, since `return' is a POSIX special builtin. */
+  if (posixly_correct && subshell == 0 && builtin == return_builtin && temporary_env)
+    {
+      begin_unwind_frame ("return_temp_env");
+      add_unwind_protect (merge_temporary_env, (char *)NULL);
     }
 
   result = ((*builtin) (words->next));
 
+  /* This shouldn't happen, but in case `return' comes back instead of
+     longjmp'ing, we need to unwind. */
+  if (posixly_correct && subshell == 0 && builtin == return_builtin && temporary_env)
+    discard_unwind_frame ("return_temp_env");
+
   if (subshell == 0 && (builtin == source_builtin || builtin == eval_builtin))
     {
       /* In POSIX mode, if any variable assignments precede the `.' or
@@ -2729,12 +2763,8 @@ execute_builtin (builtin, words, flags, subshell)
         and `eval' are special builtins. */
       if (posixly_correct && builtin_env)
        merge_builtin_env ();
-#if 0
-      dispose_builtin_env ();
-      discard_unwind_frame ("builtin_env");
-#else
+
       run_unwind_frame ("builtin_env");
-#endif
     }
 
   if (eval_unwind)
@@ -2801,14 +2831,19 @@ execute_function (var, words, flags, fds_to_close, async, subshell)
   if (temporary_env)
     {
       function_env = copy_array (temporary_env);
+      /* In POSIX mode, variable assignments preceding function names are
+        supposed to persist in the environment after the function returns,
+        as if a special builtin command had been executed. */
       if (subshell == 0)
-       add_unwind_protect (dispose_function_env, (char *)NULL);
+       {
+         if (posixly_correct)
+           add_unwind_protect (merge_function_env, (char *)NULL);
+         else
+           add_unwind_protect (dispose_function_env, (char *)NULL);
+       }
       dispose_used_env_vars ();
     }
-#if 0
-  else
-    function_env = (char **)NULL;
-#endif
+    /* Otherwise, we inherit function_env from our caller. */
 
   remember_args (words->next, 1);
 
@@ -2968,6 +3003,7 @@ execute_builtin_or_function (words, builtin, var, redirects,
 {
   int result;
   REDIRECT *saved_undo_list;
+  Function *saved_this_shell_builtin;
 
   if (do_redirections (redirects, 1, 1, 0) != 0)
     {
@@ -2977,6 +3013,7 @@ execute_builtin_or_function (words, builtin, var, redirects,
       return (EX_REDIRFAIL);   /* was EXECUTION_FAILURE */
     }
 
+  saved_this_shell_builtin = this_shell_builtin;
   saved_undo_list = redirection_undo_list;
 
   /* Calling the "exec" builtin changes redirections forever. */
@@ -3002,6 +3039,21 @@ execute_builtin_or_function (words, builtin, var, redirects,
   else
     result = execute_function (var, words, flags, fds_to_close, 0, 0);
 
+  /* If we are executing the `command' builtin, but this_shell_builtin is
+     set to `exec_builtin', we know that we have something like
+     `command exec [redirection]', since otherwise `exec' would have
+     overwritten the shell and we wouldn't get here.  In this case, we
+     want to behave as if the `command' builtin had not been specified
+     and preserve the redirections. */
+  if (builtin == command_builtin && this_shell_builtin == exec_builtin)
+    {
+      if (saved_undo_list)
+       dispose_redirects (saved_undo_list);
+      redirection_undo_list = exec_redirection_undo_list;
+      saved_undo_list = exec_redirection_undo_list = (REDIRECT *)NULL;      
+      discard_unwind_frame ("saved_redirects");
+    }
+
   if (saved_undo_list)
     {
       redirection_undo_list = saved_undo_list;
@@ -3186,6 +3238,24 @@ execute_disk_command (words, redirects, command_line, pipe_in, pipe_out,
 
    The word immediately following the #! is the interpreter to execute.
    A single argument to the interpreter is allowed. */
+
+/* CPP defines to decide whether a particular index into the #! line
+   corresponds to a valid interpreter name or argument character, or
+   whitespace.  The MSDOS define is to allow \r to be treated the same
+   as \n. */
+
+#if !defined (MSDOS)
+#  define STRINGCHAR(ind) \
+    (!whitespace (sample[ind]) && sample[ind] != '\n' && ind < sample_len)
+#  define WHITECHAR(ind) \
+    (whitespace (sample[ind]) && sample[ind] != '\n' && ind < sample_len)
+#else  /* MSDOS */
+#  define STRINGCHAR(ind) \
+    (!whitespace (sample[ind]) && sample[ind] != '\n' && sample[ind] != '\r' && ind < sample_len)
+#  define WHITECHAR(ind) \
+    (whitespace (sample[ind]) && sample[ind] != '\n' && sample[ind] != '\r' && ind < sample_len)
+#endif /* MSDOS */
+
 static int
 execute_shell_script (sample, sample_len, command, args, env)
      unsigned char *sample;
@@ -3201,45 +3271,24 @@ execute_shell_script (sample, sample_len, command, args, env)
   for (i = 2; whitespace (sample[i]) && i < sample_len; i++)
     ;
 
-  for (start = i;
-       !whitespace (sample[i]) && sample[i] != '\n' && i < sample_len;
-       i++)
+  for (start = i; STRINGCHAR(i); i++)
     ;
 
-#if 1
   execname = substring ((char *)sample, start, i);
-#else
-  larry = i - start;
-  execname = xmalloc (1 + larry);
-  strncpy (execname, (char *)(sample + start), larry);
-  execname[larry] = '\0';
-#endif
   size_increment = 1;
 
   /* Now the argument, if any. */
-  firstarg = (char *)NULL;
-  for (start = i;
-       whitespace (sample[i]) && sample[i] != '\n' && i < sample_len;
-       i++)
+  for (firstarg = (char *)NULL, start = i; WHITECHAR(i); i++)
     ;
 
   /* If there is more text on the line, then it is an argument for the
      interpreter. */
-  if (i < sample_len && sample[i] != '\n' && !whitespace (sample[i]))
+
+  if (STRINGCHAR(i))  
     {
-      for (start = i;
-          !whitespace (sample[i]) && sample[i] != '\n' && i < sample_len;
-          i++)
+      for (start = i; STRINGCHAR(i); i++)
        ;
-#if 1
       firstarg = substring ((char *)sample, start, i);
-#else
-      larry = i - start;
-      firstarg = xmalloc (1 + larry);
-      strncpy (firstarg, (char *)(sample + start), larry);
-      firstarg[larry] = '\0';
-#endif
-
       size_increment = 2;
     }
 
@@ -3263,6 +3312,9 @@ execute_shell_script (sample, sample_len, command, args, env)
 
   return (shell_execve (execname, args, env));
 }
+#undef STRINGCHAR
+#undef WHITECHAR
+
 #endif /* !HAVE_HASH_BANG_EXEC */
 
 static void
@@ -3290,6 +3342,17 @@ initialize_subshell ()
   reset_shell_options ();
   reset_shopt_options ();
 
+  /* Zero out builtin_env, since this could be a shell script run from a
+     sourced file with a temporary environment supplied to the `source/.'
+     builtin.  Such variables are not supposed to be exported (empirical
+     testing with sh and ksh). */
+  builtin_env = 0;
+
+  clear_unwind_protect_list (0);
+
+  /* We're no longer inside a shell function. */
+  variable_context = return_catch_flag = 0;
+
   /* If we're not interactive, close the file descriptor from which we're
      reading the current shell script. */
   if (interactive_shell == 0)
@@ -3302,6 +3365,20 @@ initialize_subshell ()
 #  define SETOSTYPE(x)
 #endif
 
+#define READ_SAMPLE_BUF(file, buf, len) \
+  do \
+    { \
+      fd = open(file, O_RDONLY); \
+      if (fd >= 0) \
+       { \
+         len = read (fd, (char *)buf, 80); \
+         close (fd); \
+       } \
+      else \
+       len = -1; \
+    } \
+  while (0)
+      
 /* Call execve (), handling interpreting shell scripts, and handling
    exec failures. */
 int
@@ -3311,20 +3388,31 @@ shell_execve (command, args, env)
 {
   struct stat finfo;
   int larray, i, fd;
+  unsigned char sample[80];
+  int sample_len;
 
   SETOSTYPE (0);               /* Some systems use for USG/POSIX semantics */
   execve (command, args, env);
+  i = errno;                   /* error from execve() */
   SETOSTYPE (1);
 
   /* If we get to this point, then start checking out the file.
      Maybe it is something we can hack ourselves. */
-  if (errno != ENOEXEC)
+  if (i != ENOEXEC)
     {
-      i = errno;
       if ((stat (command, &finfo) == 0) && (S_ISDIR (finfo.st_mode)))
        internal_error ("%s: is a directory", command);
       else
        {
+#if defined (HAVE_HASH_BANG_EXEC)
+         READ_SAMPLE_BUF (command, sample, sample_len);
+         if (sample_len > 2 && sample[0] == '#' && sample[1] == '!')
+           {
+             errno = i;
+             sys_error ("%s: bad interpreter", command);
+             return (EX_NOEXEC);
+           }
+#endif
          errno = i;
          file_error (command);
        }
@@ -3334,41 +3422,37 @@ shell_execve (command, args, env)
   /* This file is executable.
      If it begins with #!, then help out people with losing operating
      systems.  Otherwise, check to see if it is a binary file by seeing
-     if the first line (or up to 80 characters) are in the ASCII set.
-     Execute the contents as shell commands. */
-  fd = open (command, O_RDONLY);
-  if (fd >= 0)
-    {
-      unsigned char sample[80];
-      int sample_len;
-
-      sample_len = read (fd, (char *)sample, 80);
-      close (fd);
+     if the contents of the first line (or up to 80 characters) are in the
+     ASCII set.  If it's a text file, execute the contents as shell commands,
+     otherwise return 126 (EX_BINARY_FILE). */
+  READ_SAMPLE_BUF (command, sample, sample_len);
 
-      if (sample_len == 0)
-       return (EXECUTION_SUCCESS);
+  if (sample_len == 0)
+    return (EXECUTION_SUCCESS);
 
-      /* Is this supposed to be an executable script?
-        If so, the format of the line is "#! interpreter [argument]".
-        A single argument is allowed.  The BSD kernel restricts
-        the length of the entire line to 32 characters (32 bytes
-        being the size of the BSD exec header), but we allow 80
-        characters. */
-      if (sample_len > 0)
-       {
+  /* Is this supposed to be an executable script?
+     If so, the format of the line is "#! interpreter [argument]".
+     A single argument is allowed.  The BSD kernel restricts
+     the length of the entire line to 32 characters (32 bytes
+     being the size of the BSD exec header), but we allow 80
+     characters. */
+  if (sample_len > 0)
+    {
 #if !defined (HAVE_HASH_BANG_EXEC)
-         if (sample[0] == '#' && sample[1] == '!')
-           return (execute_shell_script (sample, sample_len, command, args, env));
-         else
+      if (sample_len > 2 && sample[0] == '#' && sample[1] == '!')
+       return (execute_shell_script (sample, sample_len, command, args, env));
+      else
 #endif
-         if (check_binary_file (sample, sample_len))
-           {
-             internal_error ("%s: cannot execute binary file", command);
-             return (EX_BINARY_FILE);
-           }
+      if (check_binary_file (sample, sample_len))
+       {
+         internal_error ("%s: cannot execute binary file", command);
+         return (EX_BINARY_FILE);
        }
     }
 
+  /* We have committed to attempting to execute the contents of this file
+     as shell commands. */
+
   initialize_subshell ();
 
   set_sigint_handler ();
@@ -3430,9 +3514,10 @@ execute_intern_function (name, function)
     }
 
   var = find_function (name->word);
-  if (var && readonly_p (var))
+  if (var && (readonly_p (var) || noassign_p (var)))
     {
-      internal_error ("%s: readonly function", var->name);
+      if (readonly_p (var))
+       internal_error ("%s: readonly function", var->name);
       return (EXECUTION_FAILURE);
     }
 
diff --git a/expr.c b/expr.c
index 14d3aba540082ae38d35fecfe44fb3d1c92a1bb3..8ce348de3f4c41ccd660a94ae05e6bd4a3acf627 100644 (file)
--- a/expr.c
+++ b/expr.c
@@ -417,6 +417,9 @@ expassign ()
            case BOR:
              lvalue |= value;
              break;
+           case BXOR:
+             lvalue ^= value;
+             break;
            default:
              free (lhs);
              evalerror ("bug: bad expassign token");
@@ -461,9 +464,9 @@ expcond ()
       val1 = EXP_HIGHEST ();
 #endif
       if (set_noeval)
-        noeval--;
+       noeval--;
       if (curtok != COL)
-        evalerror ("`:' expected for conditional expression");
+       evalerror ("`:' expected for conditional expression");
       readtok ();
       if (curtok == 0)
        evalerror ("expression expected");
@@ -475,7 +478,7 @@ expcond ()
        }
       val2 = explor ();
       if (set_noeval)
-        noeval--;
+       noeval--;
       rval = cval ? val1 : val2;
       lasttok = COND;
     }
@@ -695,8 +698,8 @@ exp2 ()
   val1 = exppower ();
 
   while ((curtok == MUL) ||
-         (curtok == DIV) ||
-         (curtok == MOD))
+        (curtok == DIV) ||
+        (curtok == MOD))
     {
       int op = curtok;
 
@@ -708,11 +711,11 @@ exp2 ()
        evalerror ("division by 0");
 
       if (op == MUL)
-        val1 *= val2;
+       val1 *= val2;
       else if (op == DIV)
-        val1 /= val2;
+       val1 /= val2;
       else if (op == MOD)
-        val1 %= val2;
+       val1 %= val2;
     }
   return (val1);
 }
@@ -773,7 +776,7 @@ exp0 ()
       stok = lasttok = curtok;
       readtok ();
       if (curtok != STR)
-        /* readtok() catches this */
+       /* readtok() catches this */
        evalerror ("identifier expected after pre-increment or pre-decrement");
 
       v2 = tokval + ((stok == PREINC) ? 1 : -1);
@@ -906,7 +909,7 @@ readtok ()
       /* The tests for PREINC and PREDEC aren't strictly correct, but they
         preserve old behavior if a construct like --x=9 is given. */
       if (lasttok == PREINC || lasttok == PREDEC || peektok != EQ)
-        {
+       {
 #if defined (ARRAY_VARS)
          value = (e == ']') ? get_array_value (tokstr, 0) : get_string_value (tokstr);
 #else
@@ -919,9 +922,9 @@ readtok ()
          if (e == ']')
            FREE (value);       /* get_array_value returns newly-allocated memory */
 #endif
-        }
+       }
       else
-        tokval = 0;
+       tokval = 0;
 
       lasttok = curtok;
       curtok = STR;
@@ -977,12 +980,12 @@ readtok ()
       else if ((c == BOR) && (c1 == BOR))
        c = LOR;
       else if ((c == '*') && (c1 == '*'))
-        c = POWER;
+       c = POWER;
       else if ((c == '-') && (c1 == '-') && legal_variable_starter (*cp))
-        c = PREDEC;
+       c = PREDEC;
       else if ((c == '+') && (c1 == '+') && legal_variable_starter (*cp))
-        c = PREINC;
-      else if (c1 == EQ && member(c, "*/%+-&^|"))
+       c = PREINC;
+      else if (c1 == EQ && member (c, "*/%+-&^|"))
        {
          assigntok = c;        /* a OP= b */
          c = OP_ASSIGN;
@@ -1133,9 +1136,9 @@ main (argc, argv)
     {
       v = evalexp (argv[i], &expok);
       if (expok == 0)
-        fprintf (stderr, "%s: expression error\n", argv[i]);
+       fprintf (stderr, "%s: expression error\n", argv[i]);
       else
-        printf ("'%s' -> %ld\n", argv[i], v);
+       printf ("'%s' -> %ld\n", argv[i], v);
     }
   exit (0);
 }
index 80d1c05b15c9395dba1d1ca071f2d8358bf0e0ad..dfea2a0ae53a06202bb72cd5fb98a33aaa66b21f 100644 (file)
--- a/externs.h
+++ b/externs.h
@@ -95,15 +95,6 @@ extern GENERIC_LIST *list_append ();
 extern GENERIC_LIST *delete_element ();
 
 /* Declarations for functions defined in stringlib.c */
-extern char *ansicstr __P((char *, int, int, int *, int *));
-extern int find_name_in_array __P((char *, char **));
-extern char **alloc_array __P((int));
-extern int array_len __P((char **));
-extern void free_array_members __P((char **));
-extern void free_array __P((char **));
-extern char **copy_array __P((char **));
-extern int qsort_string_compare ();
-extern void sort_char_array __P((char **));
 extern char **word_list_to_argv __P((WORD_LIST *, int, int, int *));
 extern WORD_LIST *argv_to_word_list __P((char **, int, int));
 
@@ -113,11 +104,18 @@ extern char *strsub __P((char *, char *, char *, int));
 extern char *strcreplace __P((char *, int, char *, int));
 extern void strip_leading __P((char *));
 extern void strip_trailing __P((char *, int, int));
-extern char *strindex __P((char *, char *));
 extern void xbcopy __P((char *, char *, int));
 
 /* Functions from the bash library, lib/sh/libsh.a.  These should really
    go into a separate include file. */
+
+/* declarations for functions defined in lib/sh/clktck.c */
+extern long get_clk_tck __P((void));
+
+/* declarations for functions defined in lib/sh/clock.c */
+extern void clock_t_to_secs ();
+extern void print_clock_t ();
+
 /* Declarations for functions defined in lib/sh/getcwd.c */
 #if !defined (HAVE_GETCWD)
 extern char *getcwd __P((char *, size_t));
@@ -127,32 +125,100 @@ extern char *getcwd __P((char *, size_t));
 extern char *inttostr __P((int, char *, int));
 extern char *itos __P((int));
 
-/* Declarations for  functions defined in lib/sh/oslib.c */
-extern long get_clk_tck __P((void));
+/* declarations for functions defined in lib/sh/makepath.c */
+#define MP_DOTILDE     0x01
+#define MP_DOCWD       0x02
+#define MP_RMDOT       0x04
 
-#if !defined (strerror)
-extern char *strerror __P((int));
-#endif
+extern char *sh_makepath __P((char *, char *, int));
 
-#if !defined (HAVE_STRCASECMP)
-extern int strncasecmp __P((const char *, const char *, int));
-extern int strcasecmp __P((const char *, const char *));
-#endif /* HAVE_STRCASECMP */
+/* declarations for functions defined in lib/sh/netopen.c */
+extern int netopen __P((char *));
+
+/* Declarations for  functions defined in lib/sh/oslib.c */
 
 extern int dup2 __P((int, int));
 
+#if !defined (HAVE_GETDTABLESIZE)
+extern int getdtablesize __P((void));
+#endif /* !HAVE_GETDTABLESIZE */
+
 #if !defined (HAVE_GETHOSTNAME)
 extern int gethostname __P((char *, int));
 #endif /* !HAVE_GETHOSTNAME */
 
-#if !defined (HAVE_GETDTABLESIZE)
-extern int getdtablesize __P((void));
-#endif /* !HAVE_GETDTABLESIZE */
+/* declarations for functions defined in lib/sh/pathcanon.c */
+#define PATH_CHECKDOTDOT       0x0001
+#define PATH_CHECKEXISTS       0x0002
+#define PATH_HARDPATH          0x0004
+#define PATH_NOALLOC           0x0008
+
+extern char *sh_canonpath __P((char *, int));
+
+/* declarations for functions defined in lib/sh/pathphys.c */
+extern char *sh_physpath __P((char *, int));
+extern char *sh_realpath __P((const char *, char *));
 
+/* declarations for functions defined in lib/sh/setlinebuf.c */
 #if !defined (HAVE_SETLINEBUF)
 extern int setlinebuf ();
 #endif
 
+/* declarations for functions defined in lib/sh/shquote.c */
+extern char *sh_single_quote __P((char *));
+extern char *sh_double_quote __P((char *));
+extern char *sh_un_double_quote __P((char *));
+extern char *sh_backslash_quote __P((char *));
+extern char *sh_backslash_quote_for_double_quotes __P((char *));
+extern int sh_contains_shell_metas __P((char *));
+
+/* declarations for functions defined in lib/sh/spell.c */
+extern int spname __P((char *, char *));
+
+/* declarations for functions defined in lib/sh/strcasecmp.c */
+#if !defined (HAVE_STRCASECMP)
+extern int strncasecmp __P((const char *, const char *, int));
+extern int strcasecmp __P((const char *, const char *));
+#endif /* HAVE_STRCASECMP */
+
+/* declarations for functions defined in lib/sh/strerror.c */
+#if !defined (strerror)
+extern char *strerror __P((int));
+#endif
+
+/* declarations for functions defined in lib/sh/strindex.c */
+extern char *strindex __P((const char *, const char *));
+
+/* declarations for functions and structures defined in lib/sh/stringlist.c */
+
+/* This is a general-purpose argv-style array struct. */
+typedef struct _list_of_strings {
+  char **list;
+  int list_size;
+  int list_len;
+} STRINGLIST;
+
+extern STRINGLIST *alloc_stringlist __P((int));
+extern STRINGLIST *realloc_stringlist __P((STRINGLIST *, int));
+extern void free_stringlist __P((STRINGLIST *));
+extern STRINGLIST *copy_stringlist __P((STRINGLIST *));
+extern STRINGLIST *merge_stringlists __P((STRINGLIST *, STRINGLIST *));
+extern STRINGLIST *append_stringlist __P((STRINGLIST *, STRINGLIST *));
+extern STRINGLIST *prefix_suffix_stringlist __P((STRINGLIST *, char *, char *));
+extern void print_stringlist __P((STRINGLIST *, char *));
+extern void sort_stringlist __P((STRINGLIST *));
+
+/* declarations for functions defined in lib/sh/stringvec.c */
+
+extern int find_name_in_array __P((char *, char **));
+extern char **alloc_array __P((int));
+extern int array_len __P((char **));
+extern void free_array_members __P((char **));
+extern void free_array __P((char **));
+extern char **copy_array __P((char **));
+extern int qsort_string_compare ();
+extern void sort_char_array __P((char **));
+
 /* declarations for functions defined in lib/sh/strtod.c */
 #if !defined (HAVE_STRTOD)
 extern double strtod __P((const char *, char **));
@@ -168,18 +234,9 @@ extern long strtol __P((const char *, char **, int));
 extern unsigned long strtoul __P((const char *, char **, int));
 #endif
 
-/* declarations for functions defined in lib/sh/zread.c */
-extern int zread __P((int, char *, size_t));
-extern int zread1 __P((int, char *, size_t));
-extern int zreadc __P((int, char *));
-extern void zreset __P((void));
-extern void zsyncfd __P((int));
-
-/* declarations for functions defined in lib/sh/zwrite.c */
-extern int zwrite __P((int, unsigned char *, size_t));
-
-/* declarations for functions defined in lib/sh/netopen.c */
-extern int netopen __P((char *));
+/* declarations for functions defined in lib/sh/strtrans.c */
+extern char *ansicstr __P((char *, int, int, int *, int *));
+extern char *ansic_quote __P((char *, int, int *));
 
 /* declarations for functions defined in lib/sh/timeval.c.  No prototypes
    so we don't have to count on having a definition of struct timeval in
@@ -187,15 +244,23 @@ extern int netopen __P((char *));
 extern void timeval_to_secs ();
 extern void print_timeval ();
 
-/* declarations for functions defined in lib/sh/clock.c */
-extern void clock_t_to_secs ();
-extern void print_clock_t ();
+/* declarations for functions defined in lib/sh/tmpfile.c */
+#define MT_USETMPDIR           0x0001
+#define MT_READWRITE           0x0002
+#define MT_USERANDOM           0x0004
 
-/* declarations for functions defined in lib/sh/makepath.c */
-#define MP_DOTILDE     0x01
-#define MP_DOCWD       0x02
-#define MP_RMDOT       0x04
+extern char *sh_mktmpname __P((char *, int));
+extern int sh_mktmpfd __P((char *, int, char **));
+/* extern FILE *sh_mktmpfp __P((char *, int, char **)); */
 
-extern char *sh_makepath __P((char *, char *, int));
+/* declarations for functions defined in lib/sh/zread.c */
+extern int zread __P((int, char *, size_t));
+extern int zread1 __P((int, char *, size_t));
+extern int zreadc __P((int, char *));
+extern void zreset __P((void));
+extern void zsyncfd __P((int));
+
+/* declarations for functions defined in lib/sh/zwrite.c */
+extern int zwrite __P((int, unsigned char *, size_t));
 
 #endif /* _EXTERNS_H_ */
index 7d0bc72bcdf330253f1519bb4d27a7defce6520c..4c47c042ac7ca7b12212ac68fb1fc75008a842d2 100644 (file)
--- a/findcmd.c
+++ b/findcmd.c
@@ -160,6 +160,16 @@ is_directory (file)
   return (file_status (file) & FS_DIRECTORY);
 }
 
+int
+executable_or_directory (file)
+     char *file;
+{
+  int s;
+
+  s = file_status (file);
+  return ((s & FS_EXECABLE) || (s & FS_DIRECTORY));
+}
+
 /* Locate the executable file referenced by NAME, searching along
    the contents of the shell PATH variable.  Return a new string
    which is the full pathname to the file, or NULL if the file
@@ -305,12 +315,12 @@ search_for_command (pathname)
       /* If $PATH is in the temporary environment, we've already retrieved
         it, so don't bother trying again. */
       if (temp_path)
-        {
+       {
          command = find_user_command_in_path (pathname, value_cell (path),
                                               FS_EXEC_PREFERRED|FS_NODIRS);
          if (tempvar_p (path))
            dispose_variable (path);
-        }
+       }
       else
        command = find_user_command (pathname);
       if (command && hashing_enabled && temp_path == 0)
@@ -557,6 +567,14 @@ find_user_command_in_path (name, path_list, flags)
   /* We didn't find exactly what the user was looking for.  Return
      the contents of FILE_TO_LOSE_ON which is NULL when the search
      required an executable, or non-NULL if a file was found and the
-     search would accept a non-executable as a last resort. */
+     search would accept a non-executable as a last resort.  If the
+     caller specified FS_NODIRS, and file_to_lose_on is a directory,
+     return NULL. */
+  if (file_to_lose_on && (flags & FS_NODIRS) && is_directory (file_to_lose_on))
+    {
+      free (file_to_lose_on);
+      file_to_lose_on = (char *)NULL;
+    }
+
   return (file_to_lose_on);
 }
index 456781226ca8c73bcd92277e7c749cd61d4df08d..7661946abe4d600438c1cfa7f104816029ad7923 100644 (file)
--- a/findcmd.h
+++ b/findcmd.h
@@ -26,6 +26,7 @@
 extern int file_status __P((char *));
 extern int executable_file __P((char *));
 extern int is_directory __P((char *));
+extern int executable_or_directory __P((char *));
 extern char *find_user_command __P((char *));
 extern char *find_path_file __P((char *));
 extern char *search_for_command __P((char *));
diff --git a/flags.c b/flags.c
index 9cb753a05ab95d842cc9cd4b4c14bf0e09b877e4..8d2f7f58443e6378a544fd3ef24609bff2379f52 100644 (file)
--- a/flags.c
+++ b/flags.c
@@ -249,7 +249,7 @@ change_flag (flag, on_or_off)
 #if defined (RESTRICTED_SHELL)
     case 'r':
       if (on_or_off == FLAG_ON)
-        maybe_make_restricted (shell_name);
+       maybe_make_restricted (shell_name);
       break;
 #endif
 
index 753a35699ea96d23a90460a88746f9370bc9b27d..8e38bcff958ffb9a6be3f8ab0cad5ad08eb9e3ce 100644 (file)
--- a/general.c
+++ b/general.c
@@ -50,8 +50,12 @@ extern int errno;
 #  define to_lower(c) (isupper(c) ? tolower(c) : (c))
 #endif
 
+extern int interactive_shell, expand_aliases;
 extern int interrupt_immediately;
 extern int interactive_comments;
+extern int check_hashed_filenames;
+extern int source_uses_path;
+extern int source_searches_cwd;
 
 /* A standard error message to use when getcwd() returns NULL. */
 char *bash_getcwd_errstr = "getcwd: cannot access parent directories";
@@ -61,7 +65,18 @@ void
 posix_initialize (on)
      int on;
 {
-  interactive_comments = on != 0;
+  /* Things that should be turned on when posix mode is enabled. */
+  if (on != 0)
+    {
+      interactive_comments = source_uses_path = expand_aliases = 1;
+    }
+
+  /* Things that should be turned on when posix mode is disabled. */
+  if (on == 0)
+    {
+      source_searches_cwd = 1;
+      expand_aliases = interactive_shell;
+    }
 }
 
 /* **************************************************************** */
@@ -131,13 +146,12 @@ int
 all_digits (string)
      char *string;
 {
-  while (*string)
-    {
-      if (!digit (*string))
-       return (0);
-      else
-       string++;
-    }
+  register char *s;
+
+  for (s = string; *s; s++)
+    if (isdigit (*s) == 0)
+      return (0);
+
   return (1);
 }
 
@@ -157,6 +171,10 @@ legal_number (string, result)
 
   value = strtol (string, &ep, 10);
 
+  /* Skip any trailing whitespace, since strtol does not. */
+  while (whitespace (*ep))
+    ep++;
+
   /* If *string is not '\0' but *ep is '\0' on return, the entire string
      is valid. */
   if (string && *string && *ep == '\0')
@@ -187,7 +205,7 @@ legal_identifier (name)
   for (s = name + 1; *s; s++)
     {
       if (legal_variable_char (*s) == 0)
-        return (0);
+       return (0);
     }
   return (1);
 }
@@ -234,7 +252,7 @@ check_identifier (word, check_word)
 
 /* Make sure no-delay mode is not set on file descriptor FD. */
 int
-unset_nodelay_mode (fd)
+sh_unset_nodelay_mode (fd)
      int fd;
 {
   int flags, bflags;
@@ -394,175 +412,6 @@ check_binary_file (sample, sample_len)
 /*                                                                 */
 /* **************************************************************** */
 
-/* Return 1 if PATH corresponds to a directory. */
-static int
-canon_stat (path)
-     char *path;
-{
-  int l;
-  char *s;
-  struct stat sb;
-
-  l = strlen (path);
-  s = xmalloc (l + 3);
-  strcpy (s, path);
-  s[l] = '/';
-  s[l+1] = '.';
-  s[l+2] = '\0';
-  l = stat (s, &sb) == 0 && S_ISDIR (sb.st_mode);
-  free (s);
-  return l;
-}
-
-/* Canonicalize PATH, and return a new path.  The new path differs from PATH
-   in that:
-       Multple `/'s are collapsed to a single `/'.
-       Leading `./'s and trailing `/.'s are removed.
-       Trailing `/'s are removed.
-       Non-leading `../'s and trailing `..'s are handled by removing
-       portions of the path. */
-char *
-canonicalize_pathname (path)
-     char *path;
-{
-  register int i, start;
-  char stub_char;
-  char *result;
-
-  /* The result cannot be larger than the input PATH. */
-  result = savestring (path);
-
-  stub_char = (*path == '/') ? '/' : '.';
-
-  /* Walk along RESULT looking for things to compact. */
-  i = 0;
-  while (1)
-    {
-      if (!result[i])
-       break;
-
-      while (result[i] && result[i] != '/')
-       i++;
-
-      start = i++;
-
-      /* If we didn't find any slashes, then there is nothing left to do. */
-      if (!result[start])
-       break;
-
-      /* Handle multiple `/'s in a row. */
-      while (result[i] == '/')
-       i++;
-
-#if 0
-      if ((start + 1) != i)
-#else
-      /* Leave a leading `//' alone, as POSIX requires. */
-      if ((start + 1) != i && (start != 0 || i != 2))
-#endif
-       {
-         strcpy (result + start + 1, result + i);
-         i = start + 1;
-         /* Make sure that what we have so far corresponds to a directory.
-            If it does not, just punt. */
-         if (*result)
-           {
-             char c;
-             c = result[start];
-             result[start] = '\0';
-             if (canon_stat (result) == 0)
-               {
-                 free (result);
-                 return ((char *)NULL);
-               }
-             result[start] = c;
-           }
-       }
-#if 0
-      /* Handle backslash-quoted `/'. */
-      if (start > 0 && result[start - 1] == '\\')
-       continue;
-#endif
-
-      /* Check for trailing `/'. */
-      if (start && !result[i])
-       {
-       zero_last:
-         result[--i] = '\0';
-         break;
-       }
-
-      /* Check for `../', `./' or trailing `.' by itself. */
-      if (result[i] == '.')
-       {
-         /* Handle trailing `.' by itself. */
-         if (!result[i + 1])
-           goto zero_last;
-
-         /* Handle `./'. */
-         if (result[i + 1] == '/')
-           {
-             strcpy (result + i, result + i + 1);
-             i = (start < 0) ? 0 : start;
-             continue;
-           }
-
-         /* Handle `../' or trailing `..' by itself. */
-         if (result[i + 1] == '.' &&
-             (result[i + 2] == '/' || !result[i + 2]))
-           {
-             /* Make sure that the last component corresponds to a directory
-                before blindly chopping it off. */
-             if (i)
-               {
-                 result[i] = '\0';
-                 if (canon_stat (result) == 0)
-                   {
-                     free (result);
-                     return ((char *)NULL);
-                   }
-                 result[i] = '.';
-               }
-             while (--start > -1 && result[start] != '/');
-             strcpy (result + start + 1, result + i + 2);
-#if 0  /* Unnecessary */
-             if (*result && canon_stat (result) == 0)
-               {
-                 free (result);
-                 return ((char *)NULL);
-               }
-#endif
-             i = (start < 0) ? 0 : start;
-             continue;
-           }
-       }
-    }
-
-  if (!*result)
-    {
-      *result = stub_char;
-      result[1] = '\0';
-    }
-
-  /* If the result starts with `//', but the original path does not, we
-     can turn the // into /. */
-  if ((result[0] == '/' && result[1] == '/' && result[2] != '/') &&
-      (path[0] != '/' || path[1] != '/' || path[2] == '/'))
-    {
-      char *r2;
-      if (result[2] == '\0')   /* short-circuit for bare `//' */
-       result[1] = '\0';
-      else
-       {
-         r2 = savestring (result + 1);
-         free (result);
-         result = r2;
-       }
-    }
-
-  return (result);
-}
-
 /* Turn STRING (a pathname) into an absolute pathname, assuming that
    DOT_PATH contains the symbolic location of `.'.  This always
    returns a new string, even if STRING was an absolute pathname to
@@ -573,7 +422,7 @@ make_absolute (string, dot_path)
 {
   char *result;
 
-  if (dot_path == 0 || *string == '/')
+  if (dot_path == 0 || ABSPATH(string))
     result = savestring (string);
   else
     result = sh_makepath (dot_path, string, 0);
@@ -581,23 +430,24 @@ make_absolute (string, dot_path)
   return (result);
 }
 
-/* Return 1 if STRING contains an absolute pathname, else 0. */
+/* Return 1 if STRING contains an absolute pathname, else 0.  Used by `cd'
+   to decide whether or not to look up a directory name in $CDPATH. */
 int
 absolute_pathname (string)
      char *string;
 {
-  if (!string || !*string)
+  if (string == 0 || *string == '\0')
     return (0);
 
-  if (*string == '/')
+  if (ABSPATH(string))
+    return (1);
+
+  if (string[0] == '.' && PATHSEP(string[1]))  /* . and ./ */
+    return (1);
+
+  if (string[0] == '.' && string[1] == '.' && PATHSEP(string[2]))      /* .. and ../ */
     return (1);
 
-  if (*string++ == '.')
-    {
-      if (!*string || *string == '/' ||
-          (*string == '.' && (string[1] == '\0' || string[1] == '/')))
-       return (1);
-    }
   return (0);
 }
 
@@ -619,7 +469,7 @@ base_pathname (string)
 {
   char *p;
 
-  if (!absolute_pathname (string))
+  if (absolute_pathname (string) == 0)
     return (string);
 
   p = (char *)strrchr (string, '/');
@@ -638,7 +488,7 @@ full_pathname (file)
 
   file = (*file == '~') ? bash_tilde_expand (file) : savestring (file);
 
-  if ((*file == '/') && absolute_pathname (file))
+  if (ABSPATH(file))
     return (file);
 
   ret = sh_makepath ((char *)NULL, file, (MP_DOCWD|MP_RMDOT));
@@ -857,7 +707,7 @@ initialize_group_array ()
   if (i == ngroups && ngroups < maxgroups)
     {
       for (i = ngroups; i > 0; i--)
-        group_array[i] = group_array[i - 1];
+       group_array[i] = group_array[i - 1];
       group_array[0] = current_user.gid;
       ngroups++;
     }
@@ -868,8 +718,8 @@ initialize_group_array ()
   if (group_array[0] != current_user.gid)
     {
       for (i = 0; i < ngroups; i++)
-        if (group_array[i] == current_user.gid)
-          break;
+       if (group_array[i] == current_user.gid)
+         break;
       if (i < ngroups)
        {
          group_array[i] = group_array[0];
index 3dfeee706d1d6d15bd283239a90b70ab477d76ea..5859ef8f034b180251da145ff229c13eb5c1c29a 100644 (file)
--- a/general.h
+++ b/general.h
@@ -79,17 +79,21 @@ extern char *strcpy ();
 #endif
 
 #ifndef digit
-#define digit(c)  ((c) >= '0' && (c) <= '9')
+#define digit(c)  (isdigit(c))
 #endif
 
 #ifndef isletter
-#define isletter(c) (((c) >= 'A' && (c) <= 'Z') || ((c) >= 'a' && (c) <= 'z'))
+#define isletter(c) (isalpha(c))
 #endif
 
 #ifndef digit_value
 #define digit_value(c) ((c) - '0')
 #endif
 
+#ifndef ISOCTAL
+#define ISOCTAL(c)  ((c) >= '0' && (c) <= '7')
+#endif
+
 /* Define exactly what a legal shell identifier consists of. */
 #define legal_variable_starter(c) (isletter(c) || (c == '_'))
 #define legal_variable_char(c) (isletter (c) || digit (c) || c == '_')
@@ -115,7 +119,7 @@ typedef struct {
 /* A macro to avoid making an uneccessary function call. */
 #define REVERSE_LIST(list, type) \
   ((list && list->next) ? (type)reverse_list ((GENERIC_LIST *)list) \
-                       : (type)(list))
+                       : (type)(list))
 
 #if __GNUC__ > 1
 #  define FASTCOPY(s, d, n)  __builtin_memcpy (d, s, n)
@@ -178,6 +182,23 @@ typedef char **CPPFunction ();
 #define FS_DIRECTORY     0x10
 #define FS_NODIRS        0x20
 
+/* Some useful definitions for Unix pathnames.  Argument convention:
+   x == string, c == character */
+
+#if !defined (__CYGWIN__)
+#  define ABSPATH(x)   ((x)[0] == '/')
+#  define RELPATH(x)   ((x)[0] != '/')
+#else /* __CYGWIN__ */
+#  define ABSPATH(x)   (((x)[0] && isalpha((x)[0]) && (x)[1] == ':' && (x)[2] == '/') || (x)[0] == '/')
+#  define RELPATH(x)   (!(x)[0] || ((x)[1] != ':' && (x)[0] != '/'))
+#endif /* __CYGWIN__ */
+
+#define ROOTEDPATH(x)  (ABSPATH(x))
+
+#define DIRSEP '/'
+#define ISDIRSEP(c)    ((c) == '/')
+#define PATHSEP(c)     (ISDIRSEP(c) || (c) == 0)
+
 /* Declarations for functions defined in xmalloc.c */
 extern char *xmalloc __P((size_t));
 extern char *xrealloc __P((void *, size_t));
@@ -196,13 +217,12 @@ extern int legal_number __P((char *, long *));
 extern int legal_identifier __P((char *));
 extern int check_identifier __P((WORD_DESC *, int));
 
-extern int unset_nodelay_mode __P((int));
+extern int sh_unset_nodelay_mode __P((int));
 extern void check_dev_tty __P((void));
 extern int same_file ();       /* too many problems with prototype */
 extern int move_to_high_fd __P((int, int, int));
 extern int check_binary_file __P((unsigned char *, int));
 
-extern char *canonicalize_pathname __P((char *));
 extern char *make_absolute __P((char *, char *));
 extern int absolute_pathname __P((char *));
 extern int absolute_program __P((char *));
index 0cf33752b4c3db0c163c0a42bd2f1d05f33c2dc5..40e284171fd026e791a5544ab2a05977c621bc19 100644 (file)
--- a/hashlib.c
+++ b/hashlib.c
@@ -270,7 +270,7 @@ print_table_stats (table, name)
 
       fprintf (stderr, "\tslot %3d: ", slot);
       for (bcount = 0; bc; bc = bc->next)
-        bcount++;
+       bcount++;
 
       fprintf (stderr, "%d\n", bcount);
     }
@@ -310,9 +310,9 @@ main ()
     {
       char *temp_string;
       if (fgets (string, sizeof (string), stdin) == 0)
-        break;
+       break;
       if (!*string)
-        break;
+       break;
       temp_string = savestring (string);
       tt = add_hash_item (temp_string, table);
       if (tt->times_found)
index a720cb9bcbcd94f567130146a6009b814c5126df..3a354f28ddf2708a08559ab7afa5a5efe89687c4 100644 (file)
@@ -27,6 +27,9 @@
 extern int atoi ();
 extern long int atol ();
 
+extern double atof ();
+extern double strtod ();
+
 /* Memory allocation functions. */
 extern char *malloc ();
 extern char *realloc ();
index 9efd3e5031866f570209e11ae7819e5a24217bf0..e3e52e3667de856f4ad01fb55ab528063ae20649 100644 (file)
@@ -1,4 +1,4 @@
-/* Copyright (C) 1999 Free Software Foundation, Inc.
+/* Copyright (C) 1999 Free Software Foundation, Inc. */
 
 /* This file is part of GNU Bash, the Bourne Again SHell.
 
diff --git a/input.c b/input.c
index c352d2ff58504cfd3ac68965f8fedb416aa8f699..c941e9c96ced8121c224307d26766cac657f6180 100644 (file)
--- a/input.c
+++ b/input.c
@@ -100,6 +100,15 @@ ungetc_with_restart (c, stream)
 #  define SEEK_CUR 1
 #endif /* !SEEK_CUR */
 
+#ifdef max
+#  undef max
+#endif
+#define max(a, b)      (((a) > (b)) ? (a) : (b))
+#ifdef min
+#  undef min
+#endif
+#define min(a, b)      ((a) > (b) ? (b) : (a))
+
 extern int return_EOF ();
 
 extern int interactive_shell;
@@ -114,8 +123,6 @@ int bash_input_fd_changed;
 static BUFFERED_STREAM **buffers = (BUFFERED_STREAM **)NULL;
 static int nbuffers;
 
-#define max(a, b)  (((a) > (b)) ? (a) : (b))
-
 #define ALLOCATE_BUFFERS(n) \
        do { if ((n) >= nbuffers) allocate_buffers (n); } while (0)
 
@@ -173,65 +180,104 @@ copy_buffered_stream (bp)
   return (nbp);
 }
 
+int
+set_bash_input_fd (fd)
+     int fd;
+{
+  if (bash_input.type == st_bstream)
+    bash_input.location.buffered_fd = fd;
+  else if (interactive_shell == 0)
+    default_buffered_input = fd;
+  return 0;
+}
+
+int
+fd_is_bash_input (fd)
+     int fd;
+{
+  if (bash_input.type == st_bstream && bash_input.location.buffered_fd == fd)
+    return 1;
+  else if (interactive_shell == 0 && default_buffered_input == fd)
+    return 1;
+  return 0;
+}
+
+/* Save the buffered stream corresponding to file descriptor FD (which bash
+   is using to read input) to a buffered stream associated with NEW_FD.  If
+   NEW_FD is -1, a new file descriptor is allocated with fcntl.  The new
+   file descriptor is returned on success, -1 on error. */
+int
+save_bash_input (fd, new_fd)
+     int fd, new_fd;
+{
+  int nfd;
+
+  /* Sync the stream so we can re-read from the new file descriptor.  We
+     might be able to avoid this by copying the buffered stream verbatim
+     to the new file descriptor. */
+  if (buffers[fd])
+    sync_buffered_stream (fd);
+
+  /* Now take care of duplicating the file descriptor that bash is
+     using for input, so we can reinitialize it later. */
+  nfd = (new_fd == -1) ? fcntl (fd, F_DUPFD, 10) : new_fd;
+  if (nfd == -1)
+    {
+      if (fcntl (fd, F_GETFD, 0) == 0)
+       sys_error ("cannot allocate new file descriptor for bash input from fd %d", fd);
+      return -1;
+    }
+
+  if (buffers[nfd])
+    {
+      /* What's this?  A stray buffer without an associated open file
+        descriptor?  Free up the buffer and report the error. */
+      internal_error ("check_bash_input: buffer already exists for new fd %d", nfd);
+      free_buffered_stream (buffers[nfd]);
+    }
+
+  /* Reinitialize bash_input.location. */
+  if (bash_input.type == st_bstream)
+    {
+      bash_input.location.buffered_fd = nfd;
+      fd_to_buffered_stream (nfd);
+      close_buffered_fd (fd);  /* XXX */
+    }
+  else
+    /* If the current input type is not a buffered stream, but the shell
+       is not interactive and therefore using a buffered stream to read
+       input (e.g. with an `eval exec 3>output' inside a script), note
+       that the input fd has been changed.  pop_stream() looks at this
+       value and adjusts the input fd to the new value of
+       default_buffered_input accordingly. */
+    bash_input_fd_changed++;
+
+  if (default_buffered_input == fd)
+    default_buffered_input = nfd;
+
+  SET_CLOSE_ON_EXEC (nfd);
+  return nfd;
+}
+
 /* Check that file descriptor FD is not the one that bash is currently
    using to read input from a script.  FD is about to be duplicated onto,
    which means that the kernel will close it for us.  If FD is the bash
    input file descriptor, we need to seek backwards in the script (if
    possible and necessary -- scripts read from stdin are still unbuffered),
    allocate a new file descriptor to use for bash input, and re-initialize
-   the buffered stream. */
+   the buffered stream.  Make sure the file descriptor used to save bash
+   input is set close-on-exec. Returns 0 on success, -1 on failure.  This
+   works only if fd is > 0 -- if fd == 0 and bash is reading input from
+   fd 0, save_bash_input is used instead, to cooperate with input
+   redirection (look at redir.c:add_undo_redirect()). */
 int
 check_bash_input (fd)
      int fd;
 {
   int nfd;
 
-  if (fd > 0 && ((bash_input.type == st_bstream && bash_input.location.buffered_fd == fd) ||
-                (interactive_shell == 0 && default_buffered_input == fd)))
-    {
-      /* Sync the stream so we can re-read from the new file descriptor.  We
-        might be able to avoid this by copying the buffered stream verbatim
-        to the new file descriptor. */
-      if (buffers[fd])
-       sync_buffered_stream (fd);
-
-      /* Now take care of duplicating the file descriptor that bash is
-        using for input, so we can reinitialize it later. */
-      nfd = fcntl (fd, F_DUPFD, 10);
-      if (nfd == -1)
-       {
-         if (fcntl (fd, F_GETFD, 0) == 0)
-           sys_error ("cannot allocate new file descriptor for bash input from fd %d", fd);
-         return -1;
-       }
-
-      if (buffers[nfd])
-       {
-         /* What's this?  A stray buffer without an associated open file
-            descriptor?  Free up the buffer and report the error. */
-         internal_error ("check_bash_input: buffer already exists for new fd %d", nfd);
-         free_buffered_stream (buffers[nfd]);
-       }
-
-      /* Reinitialize bash_input.location. */
-      if (bash_input.type == st_bstream)
-       {
-         bash_input.location.buffered_fd = nfd;
-         fd_to_buffered_stream (nfd);
-         close_buffered_fd (fd);       /* XXX */
-       }
-      else
-       /* If the current input type is not a buffered stream, but the shell
-          is not interactive and therefore using a buffered stream to read
-          input (e.g. with an `eval exec 3>output' inside a script), note
-          that the input fd has been changed.  pop_stream() looks at this
-          value and adjusts the input fd to the new value of
-          default_buffered_input accordingly. */
-       bash_input_fd_changed++;
-
-      if (default_buffered_input == fd)
-       default_buffered_input = nfd;
-    }
+  if (fd > 0 && fd_is_bash_input (fd))
+    return ((save_bash_input (fd, -1) == -1) ? -1 : 0);
   return 0;
 }
       
@@ -264,18 +310,22 @@ duplicate_buffered_stream (fd1, fd2)
   if (buffers[fd2])
     buffers[fd2]->b_fd = fd2;
 
-  if (is_bash_input && !buffers[fd2])
-    fd_to_buffered_stream (fd2);
+  if (is_bash_input)
+    {
+      if (!buffers[fd2])
+       fd_to_buffered_stream (fd2);
+      buffers[fd2]->b_flag |= B_WASBASHINPUT;
+    }
 
   return (fd2);
 }
 
 /* Return 1 if a seek on FD will succeed. */
-#ifndef __CYGWIN32__
+#ifndef __CYGWIN__
 #  define fd_is_seekable(fd) (lseek ((fd), 0L, SEEK_CUR) >= 0)
 #else
 #  define fd_is_seekable(fd) 0
-#endif /* __CYGWIN32__ */
+#endif /* __CYGWIN__ */
 
 /* Take FD, a file descriptor, and create and return a buffered stream
    corresponding to it.  If something is wrong and the file descriptor
@@ -294,13 +344,9 @@ fd_to_buffered_stream (fd)
       return ((BUFFERED_STREAM *)NULL);
     }
 
-  if (fd_is_seekable (fd) == 0)
+  size = (fd_is_seekable (fd)) ? min (sb.st_size, MAX_INPUT_BUFFER_SIZE) : 1;
+  if (size == 0)
     size = 1;
-  else
-    size = (size_t)((sb.st_size > MAX_INPUT_BUFFER_SIZE)
-                               ? MAX_INPUT_BUFFER_SIZE
-                               : sb.st_size);
-      
   buffer = (char *)xmalloc (size);
 
   return (make_buffered_stream (fd, buffer, size));
@@ -381,6 +427,11 @@ b_fill_buffer (bp)
      BUFFERED_STREAM *bp;
 {
   bp->b_used = zread (bp->b_fd, bp->b_buffer, bp->b_size);
+#if defined (__CYGWIN__)
+  /* If on cygwin, translate \r\n to \n. */
+  if (bp->b_buffer[bp->b_used - 1] == '\r' && bp->b_buffer[bp->b_used] == '\n')
+    bp->b_buffer[--bp->b_used] = '\n';
+#endif
   if (bp->b_used <= 0)
     {
       bp->b_buffer[0] = 0;
@@ -422,9 +473,9 @@ sync_buffered_stream (bfd)
   BUFFERED_STREAM *bp;
   off_t chars_left;
 
-  bp = buffers[bfd];
-  if (!bp)
+  if (buffers == 0 || (bp = buffers[bfd]) == 0)
     return (-1);
+
   chars_left = bp->b_used - bp->b_inputp;
   if (chars_left)
     lseek (bp->b_fd, -chars_left, SEEK_CUR);
@@ -435,7 +486,15 @@ sync_buffered_stream (bfd)
 int
 buffered_getchar ()
 {
+#if !defined (DJGPP)
   return (bufstream_getc (buffers[bash_input.location.buffered_fd]));
+#else
+  /* On DJGPP, ignore \r. */
+  int ch;
+  while ((ch = bufstream_getc (buffers[bash_input.location.buffered_fd])) == '\r')
+    ;
+  return ch;
+#endif
 }
 
 int
diff --git a/input.h b/input.h
index 989f6ea917fa8e93a9e3024a1b159c7ac01af392..c5ec3b54541c59b0cb2f04202290365be035786d 100644 (file)
--- a/input.h
+++ b/input.h
@@ -40,9 +40,10 @@ enum stream_type {st_none, st_stdin, st_stream, st_string, st_bstream};
 #undef B_ERROR         /* There are some systems with this define */
 #undef B_UNBUFF
 
-#define B_EOF          0x1
-#define B_ERROR                0x2
-#define B_UNBUFF       0x4
+#define B_EOF          0x01
+#define B_ERROR                0x02
+#define B_UNBUFF       0x04
+#define B_WASBASHINPUT 0x08
 
 /* A buffered stream.  Like a FILE *, but with our own buffering and
    synchronization.  Look in input.c for the implementation. */
@@ -106,6 +107,9 @@ extern int ungetc_with_restart ();
 
 #if defined (BUFFERED_INPUT)
 /* Functions from input.c. */
+extern int fd_is_bash_input __P((int));
+extern int set_bash_input_fd __P((int));
+extern int save_bash_input __P((int, int));
 extern int check_bash_input __P((int));
 extern int duplicate_buffered_stream __P((int, int));
 extern BUFFERED_STREAM *fd_to_buffered_stream __P((int));
diff --git a/jobs.c b/jobs.c
index 0419fdde83c2982f3ad6676bab9bad717596b98c..6f3ec0aeeaa8760ea4474a5195d11a5a338c7b3a 100644 (file)
--- a/jobs.c
+++ b/jobs.c
@@ -131,7 +131,7 @@ extern int errno;
 #define JOB_SLOTS 8
 
 #if defined (READLINE)
-extern void _rl_set_screen_size ();
+extern void rl_set_screen_size __P((int, int));
 #endif
 
 /* Variables used here but defined in other files. */
@@ -140,6 +140,7 @@ extern int startup_state, subshell_environment, line_number;
 extern int posixly_correct, no_symbolic_links, shell_level;
 extern int interrupt_immediately, last_command_exit_value;
 extern int loop_level, breaking;
+extern int sourcelevel;
 extern Function *this_shell_builtin;
 extern char *shell_name, *this_command_name;
 extern sigset_t top_level_mask;
@@ -150,8 +151,10 @@ extern WORD_LIST *subst_assign_varlist;
 static int *pstatuses;         /* list of pipeline statuses */
 static int statsize;
 #endif
+static int set_job_status_and_cleanup ();
 static void setjstatus ();
 static void get_new_window_size ();
+static void run_sigchld_trap ();
 
 /* The array of known jobs. */
 JOB **jobs = (JOB **)NULL;
@@ -213,8 +216,9 @@ static PROCESS *find_pipeline ();
 static char *current_working_directory ();
 static char *job_working_directory ();
 static pid_t find_last_pid (), last_pid ();
-static int set_new_line_discipline (), map_over_jobs (), last_running_job ();
-static int most_recent_job_in_state (), last_stopped_job (), find_job ();
+static int set_new_line_discipline (), map_over_jobs ();
+static int job_last_running (), job_last_stopped ();
+static int most_recent_job_in_state (), find_job ();
 static void notify_of_job_status (), cleanup_dead_jobs (), discard_pipeline ();
 static void add_process (), set_current_job (), reset_current ();
 static void print_pipeline ();
@@ -239,6 +243,11 @@ static int saved_already_making_children;
    commands. */
 static int jobs_list_frozen;
 
+static sigset_t empty_sigset;
+static sigset_t sigchld_sigset;
+
+static char retcode_name_buffer[64];
+
 #if !defined (_POSIX_VERSION)
 
 /* These are definitions to map POSIX 1003.1 functions onto existing BSD
@@ -506,7 +515,7 @@ stop_pipeline (async, deferred)
           *
           */
          if (job_control && newjob->pgrp)
-           give_terminal_to (newjob->pgrp);
+           give_terminal_to (newjob->pgrp, 0);
        }
     }
 
@@ -675,6 +684,9 @@ map_over_jobs (func, arg1, arg2)
   int result;
   sigset_t set, oset;
 
+  if (job_slots == 0)
+    return 0;
+
   BLOCK_CHILD (set, oset);
 
   for (i = result = 0; i < job_slots; i++)
@@ -842,6 +854,53 @@ describe_pid (pid)
   UNBLOCK_CHILD (oset);
 }
 
+static char *
+printable_job_status (j, p, format)
+     int j;
+     PROCESS *p;
+     int format;
+{
+  static char *temp;
+  int es;
+
+  temp = "Done";
+
+  if (STOPPED (j) && format == 0)
+    {
+      if (posixly_correct == 0 || p == 0 || (WIFSTOPPED (p->status) == 0))
+       temp = "Stopped";
+      else
+       {
+         temp = retcode_name_buffer;
+         sprintf (temp, "Stopped(%s)", signal_name (WSTOPSIG (p->status)));
+       }
+    }
+  else if (RUNNING (j))
+    temp = "Running";
+  else
+    {
+      if (WIFSTOPPED (p->status))
+       temp = (char *)strsignal (WSTOPSIG (p->status));
+      else if (WIFSIGNALED (p->status))
+       temp = (char *)strsignal (WTERMSIG (p->status));
+      else if (WIFEXITED (p->status))
+       {
+         temp = retcode_name_buffer;
+         es = WEXITSTATUS (p->status);
+         if (es == 0)
+           strcpy (temp, "Done");
+         else if (posixly_correct)
+           sprintf (temp, "Done(%d)", es);
+         else
+           sprintf (temp, "Exit %d", es);
+       }
+      else
+       temp = "Unknown status";
+    }
+
+  return temp;
+}
+
 /* This is the way to print out information on a job if you
    know the index.  FORMAT is:
 
@@ -873,7 +932,7 @@ print_pipeline (p, job_index, format, stream)
 {
   PROCESS *first, *last, *show;
   int es, name_padding;
-  char retcode_name_buffer[20], *temp;
+  char *temp;
 
   if (p == 0)
     return;
@@ -895,34 +954,7 @@ print_pipeline (p, job_index, format, stream)
       if (format > -1 && job_index >= 0)
        {
          show = format ? p : last;
-         temp = "Done";
-
-         if (STOPPED (job_index) && format == 0)
-           temp = "Stopped";
-
-         else if (RUNNING (job_index))
-           temp = "Running";
-         else
-           {
-             if (WIFSTOPPED (show->status))
-               temp = (char *)strsignal (WSTOPSIG (show->status));
-             else if (WIFSIGNALED (show->status))
-               temp = (char *)strsignal (WTERMSIG (show->status));
-             else if (WIFEXITED (show->status))
-               {
-                 temp = retcode_name_buffer;
-                 es = WEXITSTATUS (show->status);
-
-                 if (es == 0)
-                   strcpy (temp, "Done");
-                 else if (posixly_correct)
-                   sprintf (temp, "Done(%d)", es);
-                 else
-                   sprintf (temp, "Exit %d", es);
-               }
-             else
-               temp = "Unknown status";
-           }
+         temp = printable_job_status (job_index, show, format);
 
          if (p != first)
            {
@@ -942,7 +974,7 @@ print_pipeline (p, job_index, format, stream)
 
              es = STRLEN (temp);
              if (es == 0)
-               es = 2; /* strlen ("| ") */
+               es = 2; /* strlen ("| ") */
              name_padding = LONGEST_SIGNAL_DESC - es;
 
              fprintf (stream, "%*s", name_padding, "");
@@ -1021,7 +1053,7 @@ pretty_print_job (job_index, format, stream)
   if (format != JLIST_NONINTERACTIVE)
     fprintf (stream, "[%d]%c ", job_index + 1,
              (job_index == current_job) ? '+':
-               (job_index == previous_job) ? '-' : ' ');
+               (job_index == previous_job) ? '-' : ' ');
 
   if (format == JLIST_NONINTERACTIVE)
     format = JLIST_LONG;
@@ -1171,14 +1203,14 @@ make_child (command, async_p)
          if (pipeline_pgrp == mypid)
            {
 #endif
-             /* XXX - By convention (and assumption above), if
+             /* By convention (and assumption above), if
                 pipeline_pgrp == shell_pgrp, we are making a child for
                 command substitution.
                 In this case, we don't want to give the terminal to the
                 shell's process group (we could be in the middle of a
                 pipeline, for example). */
              if (async_p == 0 && pipeline_pgrp != shell_pgrp)
-               give_terminal_to (pipeline_pgrp);
+               give_terminal_to (pipeline_pgrp, 0);
 
 #if defined (PGRP_PIPE)
              pipe_read (pgrp_pipe);
@@ -1221,7 +1253,7 @@ make_child (command, async_p)
              pipeline_pgrp = pid;
              /* Don't twiddle terminal pgrps in the parent!  This is the bug,
                 not the good thing of twiddling them in the child! */
-             /* give_terminal_to (pipeline_pgrp); */
+             /* give_terminal_to (pipeline_pgrp, 0); */
            }
          /* This is done on the recommendation of the Rationale section of
             the POSIX 1003.1 standard, where it discusses job control and
@@ -1271,20 +1303,13 @@ default_tty_job_signals ()
    state kept in here.  When a job ends normally, we set the state in here
    to the state of the tty. */
 
+static TTYSTRUCT shell_tty_info;
+
 #if defined (NEW_TTY_DRIVER)
-static struct sgttyb shell_tty_info;
 static struct tchars shell_tchars;
 static struct ltchars shell_ltchars;
 #endif /* NEW_TTY_DRIVER */
 
-#if defined (TERMIO_TTY_DRIVER)
-static struct termio shell_tty_info;
-#endif /* TERMIO_TTY_DRIVER */
-
-#if defined (TERMIOS_TTY_DRIVER)
-static struct termios shell_tty_info;
-#endif /* TERMIOS_TTY_DRIVER */
-
 #if defined (NEW_TTY_DRIVER) && defined (DRAIN_OUTPUT)
 /* Since the BSD tty driver does not allow us to change the tty modes
    while simultaneously waiting for output to drain and preserving
@@ -1552,7 +1577,7 @@ wait_sigint_handler (sig)
       last_command_exit_value = EXECUTION_FAILURE;
       restore_sigint_handler ();
       /* If we got a SIGINT while in `wait', and SIGINT is trapped, do
-         what POSIX.2 says (see builtins/wait.def for more info). */
+        what POSIX.2 says (see builtins/wait.def for more info). */
       if (this_shell_builtin && this_shell_builtin == wait_builtin &&
          signal_is_trapped (SIGINT) &&
          ((sigint_handler = trap_to_sighandler (SIGINT)) == trap_handler))
@@ -1587,7 +1612,9 @@ process_exit_status (status)
     return (EXECUTION_SUCCESS);
 }
 
-static int
+/* Return the exit status of the last process in the pipeline for job JOB.
+   This is the exit status of the entire job. */
+static WAIT
 raw_job_exit_status (job)
 {
   register PROCESS *p;
@@ -1596,7 +1623,10 @@ raw_job_exit_status (job)
   return (p->status);
 }
 
-static int
+/* Return the exit status of job JOB.  This is the exit status of the last
+   (rightmost) process in the job's pipeline, modified if the job was killed
+   by a signal or stopped. */
+static WAIT
 job_exit_status (job)
      int job;
 {
@@ -1609,7 +1639,7 @@ job_exit_status (job)
       child = find_pipeline (pid); \
       if (child == 0) \
        { \
-         give_terminal_to (shell_pgrp); \
+         give_terminal_to (shell_pgrp, 0); \
          UNBLOCK_CHILD (oset); \
          internal_error ("wait_for: No record of process %d", pid); \
          restore_sigint_handler (); \
@@ -1626,13 +1656,11 @@ int
 wait_for (pid)
      pid_t pid;
 {
-  int job, termination_state, r, s;
+  int job, termination_state, r;
+  WAIT s;
   register PROCESS *child;
   sigset_t set, oset;
   register PROCESS *p;
-#if 0
-  int job_state, any_stopped;
-#endif
 
   /* In the case that this code is interrupted, and we longjmp () out of it,
      we are relying on the code in throw_to_top_level () to restore the
@@ -1664,33 +1692,15 @@ wait_for (pid)
       FIND_CHILD (pid, child);
 
       /* If this child is part of a job, then we are really waiting for the
-         job to finish.  Otherwise, we are waiting for the child to finish.
-         We check for JDEAD in case the job state has been set by waitchld
-         after receipt of a SIGCHLD. */
+        job to finish.  Otherwise, we are waiting for the child to finish.
+        We check for JDEAD in case the job state has been set by waitchld
+        after receipt of a SIGCHLD. */
       if (job == NO_JOB)
        job = find_job (pid);
 
-#if 0
-      /* XXX - let waitchld take care of setting this.  If the job has
-        already exited before this is called, sigchld_handler will have
-        called waitchld and this will be set to JDEAD. */
-      if (job != NO_JOB && JOBSTATE (job) != JDEAD)
-       {
-         job_state = any_stopped = 0;
-         p = jobs[job]->pipe;
-         do
-           {
-             job_state |= p->running;
-             if (p->running == 0)
-               any_stopped |= WIFSTOPPED (p->status);
-             p = p->next;
-           }
-         while (p != jobs[job]->pipe);
-
-         if (job_state == 0)
-           jobs[job]->state = any_stopped ? JSTOPPED : JDEAD;
-       }
-#endif
+      /* waitchld() takes care of setting the state of the job.  If the job
+        has already exited before this is called, sigchld_handler will have
+        called waitchld and the state will be set to JDEAD. */
 
       if (child->running || (job != NO_JOB && RUNNING (job)))
        {
@@ -1724,6 +1734,18 @@ wait_for (pid)
              termination_state = -1;
              goto wait_for_return;
            }
+
+         /* If child is marked as running, but waitpid() returns -1/ECHILD,
+            there is something wrong.  Somewhere, wait should have returned
+            that child's pid.  Mark the child as not running and the job,
+            if it exists, as JDEAD. */
+         if (r == -1 && errno == ECHILD)
+           {
+             child->running = 0;
+             child->status = 0;        /* XXX */
+             if (job != NO_JOB)
+               jobs[job]->state = JDEAD;
+           }
 #endif /* WAITPID_BROKEN */
        }
 
@@ -1764,7 +1786,7 @@ if (job == NO_JOB)
   itrace("wait_for: job == NO_JOB, giving the terminal to shell_pgrp (%d)", shell_pgrp);
 #endif
 
-      give_terminal_to (shell_pgrp);
+      give_terminal_to (shell_pgrp, 0);
     }
 
   /* If the command did not exit cleanly, or the job is just
@@ -1799,17 +1821,10 @@ if (job == NO_JOB)
          if (WIFSIGNALED (s) || WIFSTOPPED (s))
            {
              set_tty_state ();
-#if 0
-             /* If the foreground job was suspended with ^Z (SIGTSTP), and
-                the user has requested it, get a possibly new window size. */
-             if (check_window_size && WIFSTOPPED (s) &&
-                   (WSTOPSIG (s) == SIGTSTP) &&
-                   job == current_job)
-#else
+
              /* If the current job was stopped or killed by a signal, and
                 the user has requested it, get a possibly new window size */
              if (check_window_size && job == current_job)
-#endif
                get_new_window_size (0);
            }
          else
@@ -1834,17 +1849,14 @@ if (job == NO_JOB)
                  fflush (stdout);
                }
            }
-
-         notify_and_cleanup ();
-       }
-      else
-       {
-         /* If this job is dead, and the shell is not interactive, make
-            sure we turn on the notify bit so we don't get an unwanted
-            message about the job's termination, and so delete_job really
-            clears the slot in the jobs table. */
-         notify_and_cleanup ();
        }
+
+      /* If this job is dead, notify the user of the status.  If the shell
+        is interactive, this will display a message on the terminal.  If
+        the shell is not interactive, make sure we turn on the notify bit
+        so we don't get an unwanted message about the job's termination,
+        and so delete_job really clears the slot in the jobs table. */
+      notify_and_cleanup ();
     }
 
 wait_for_return:
@@ -1896,7 +1908,7 @@ notify_and_cleanup ()
   if (jobs_list_frozen)
     return;
 
-  if (interactive || interactive_shell == 0)
+  if (interactive || interactive_shell == 0 || sourcelevel)
     notify_of_job_status ();
 
   cleanup_dead_jobs ();
@@ -1939,7 +1951,7 @@ most_recent_job_in_state (job, state)
 /* Return the newest *stopped* job older than JOB, or NO_JOB if not
    found. */
 static int
-last_stopped_job (job)
+job_last_stopped (job)
      int job;
 {
   return (most_recent_job_in_state (job, JSTOPPED));
@@ -1948,7 +1960,7 @@ last_stopped_job (job)
 /* Return the newest *running* job older than JOB, or NO_JOB if not
    found. */
 static int
-last_running_job (job)
+job_last_running (job)
      int job;
 {
   return (most_recent_job_in_state (job, JRUNNING));
@@ -1980,7 +1992,7 @@ set_current_job (job)
   candidate = NO_JOB;
   if (STOPPED (current_job))
     {
-      candidate = last_stopped_job (current_job);
+      candidate = job_last_stopped (current_job);
 
       if (candidate != NO_JOB)
        {
@@ -1996,8 +2008,8 @@ set_current_job (job)
      alternative to use based on whether or not JOBSTATE(current_job) is
      JSTOPPED. */
 
-  candidate = RUNNING (current_job) ? last_running_job (current_job)
-                                   : last_running_job (job_slots);
+  candidate = RUNNING (current_job) ? job_last_running (current_job)
+                                   : job_last_running (job_slots);
 
   if (candidate != NO_JOB)
     {
@@ -2034,11 +2046,11 @@ reset_current ()
 
       /* Second choice: the most recently stopped job. */
       if (candidate == NO_JOB)
-       candidate = last_stopped_job (job_slots);
+       candidate = job_last_stopped (job_slots);
 
       /* Third choice: the newest running job. */
       if (candidate == NO_JOB)
-       candidate = last_running_job (job_slots);
+       candidate = job_last_running (job_slots);
     }
 
   /* If we found a job to use, then use it.  Otherwise, there
@@ -2084,15 +2096,7 @@ start_job (job, foreground)
   int already_running;
   sigset_t set, oset;
   char *wd;
-#if defined (NEW_TTY_DRIVER)
-  static struct sgttyb save_stty;
-#endif
-#if defined (TERMIO_TTY_DRIVER)
-  static struct termio save_stty;
-#endif
-#if defined (TERMIOS_TTY_DRIVER)
-  static struct termios save_stty;
-#endif
+  static TTYSTRUCT save_stty;
 
   BLOCK_CHILD (set, oset);
 
@@ -2158,7 +2162,7 @@ start_job (job, foreground)
       save_stty = shell_tty_info;
       /* Give the terminal to this job. */
       if (IS_JOBCONTROL (job))
-       give_terminal_to (jobs[job]->pgrp);
+       give_terminal_to (jobs[job]->pgrp, 0);
     }
   else
     jobs[job]->flags &= ~J_FOREGROUND;
@@ -2288,8 +2292,7 @@ waitchld (wpid, block)
   WAIT status;
   PROCESS *child;
   pid_t pid;
-  int call_set_current, last_stopped_job, job, children_exited;
-  int job_state, any_stopped, any_tstped, waitpid_flags, tstatus;
+  int call_set_current, last_stopped_job, job, children_exited, waitpid_flags;
 
   call_set_current = children_exited = 0;
   last_stopped_job = NO_JOB;
@@ -2297,7 +2300,7 @@ waitchld (wpid, block)
   do
     {
       /* We don't want to be notified about jobs stopping if job control
-         is not active.  XXX - was interactive_shell instead of job_control */
+        is not active.  XXX - was interactive_shell instead of job_control */
       waitpid_flags = (job_control && subshell_environment == 0)
                        ? WUNTRACED
                        : 0;
@@ -2346,140 +2349,14 @@ waitchld (wpid, block)
       job = find_job (pid);
   
       if (job == NO_JOB)
-        continue;
-
-      /* Note that we're resetting `child' here because we now want to
-        deal with the job. */
-      child = jobs[job]->pipe;
-      jobs[job]->flags &= ~J_NOTIFIED;
-
-      /* If all children are not running, but any of them is
-        stopped, then the job is stopped, not dead. */
-      job_state = any_stopped = any_tstped = 0;
-      do
-       {
-         job_state |= child->running;
-         if (child->running == 0 && (WIFSTOPPED (child->status)))
-           {
-             any_stopped = 1;
-             any_tstped |= interactive && job_control &&
-                           (WSTOPSIG (child->status) == SIGTSTP);
-           }
-         child = child->next;
-       }
-      while (child != jobs[job]->pipe);
-
-      /* If job_state != 0, the job is still running, so don't bother with
-        setting the process exit status and job state. */
-      if (job_state != 0)
-        continue;
-
-      /* The job is either stopped or dead.  Set the state of the job
-        accordingly. */
-      if (any_stopped)
-       {
-         jobs[job]->state = JSTOPPED;
-         jobs[job]->flags &= ~J_FOREGROUND;
-         call_set_current++;
-         last_stopped_job = job;
-         /* Suspending a job with SIGTSTP breaks all active loops. */
-         if (any_tstped && loop_level)
-           breaking = loop_level;
-       }
-      else
-       {
-         /* ASSERT(child == jobs[job]->pipe); */
-         jobs[job]->state = JDEAD;
-         if (job == last_stopped_job)
-           last_stopped_job = NO_JOB;
-
-         if (IS_FOREGROUND (job))
-           setjstatus (job);           /* XXX */
-
-         /* If this job has a cleanup function associated with it, call it
-            with `cleanarg' as the single argument, then set the function
-            pointer to NULL so it is not inadvertently called twice.  The
-            cleanup function is responsible for deallocating cleanarg. */
-         if (jobs[job]->j_cleanup)
-           {
-             (*jobs[job]->j_cleanup) (jobs[job]->cleanarg);
-             jobs[job]->j_cleanup = (VFunction *)NULL;
-           }
-
-         /* XXX
-            If we're running a shell script and we get a SIGINT with a
-            SIGINT trap handler, but the foreground job handles it and
-            does not exit due to SIGINT, run the trap handler but do not
-            otherwise act as if we got the interrupt. */
-         if (wait_sigint_received && interactive_shell == 0 &&
-             WIFSIGNALED (child->status) == 0 && IS_FOREGROUND (job) &&
-             signal_is_trapped (SIGINT))
-           {
-             wait_sigint_received = 0;
-             last_command_exit_value = process_exit_status (child->status);
+       continue;
 
-             jobs_list_frozen = 1;
-             tstatus = maybe_call_trap_handler (SIGINT);
-             jobs_list_frozen = 0;
-           }
+      call_set_current += set_job_status_and_cleanup (job);
 
-         /* If the foreground job is killed by SIGINT when
-            job control is not active, we need to perform
-            some special handling.
-
-            The check of wait_sigint_received is a way to
-            determine if the SIGINT came from the keyboard
-            (in which case the shell has already seen it,
-            and wait_sigint_received is non-zero, because
-            keyboard signals are sent to process groups)
-            or via kill(2) to the foreground process by
-            another process (or itself).  If the shell did
-            receive the SIGINT, it needs to perform normal
-            SIGINT processing. */
-         else if (wait_sigint_received && (WTERMSIG (child->status) == SIGINT) &&
-             IS_FOREGROUND (job) && IS_JOBCONTROL (job) == 0)
-           {
-             wait_sigint_received = 0;
-
-             /* If SIGINT is trapped, set the exit status so
-                that the trap handler can see it. */
-             if (signal_is_trapped (SIGINT))
-               last_command_exit_value = process_exit_status (child->status);
-
-             /* If the signal is trapped, let the trap handler
-                get it no matter what and simply return if
-                the trap handler returns.
-                maybe_call_trap_handler() may cause dead jobs
-                to be removed from the job table because of
-                a call to execute_command.  Watch out for this. */
-             jobs_list_frozen = 1;
-             tstatus = maybe_call_trap_handler (SIGINT);
-             jobs_list_frozen = 0;
-             if (tstatus == 0 && old_sigint_handler != INVALID_SIGNAL_HANDLER)
-               {
-                 /* wait_sigint_handler () has already seen SIGINT and
-                    allowed the wait builtin to jump out.  We need to
-                    call the original SIGINT handler, if necessary.  If
-                    the original handler is SIG_DFL, we need to resend
-                    the signal to ourselves. */
-                 SigHandler *temp_handler;
-
-                 temp_handler = old_sigint_handler;
-                 /* Bogus.  If we've reset the signal handler as the result
-                    of a trap caught on SIGINT, then old_sigint_handler
-                    will point to trap_handler, which now knows nothing about
-                    SIGINT (if we reset the sighandler to the default).
-                    In this case, we have to fix things up.  What a crock. */
-                 if (temp_handler == trap_handler && signal_is_trapped (SIGINT) == 0)
-                   temp_handler = trap_to_sighandler (SIGINT);
-                 restore_sigint_handler ();
-                 if (temp_handler == SIG_DFL)
-                   termination_unwind_protect (SIGINT);
-                 else if (temp_handler != SIG_IGN)
-                   (*temp_handler) (SIGINT);
-               }
-           }
-       }
+      if (STOPPED (job))
+       last_stopped_job = job;
+      else if (DEADJOB (job) && last_stopped_job == job)
+       last_stopped_job = NO_JOB;
     }
   while ((sigchld || block == 0) && pid > (pid_t)0);
 
@@ -2496,45 +2373,7 @@ waitchld (wpid, block)
   /* Call a SIGCHLD trap handler for each child that exits, if one is set. */
   if (job_control && signal_is_trapped (SIGCHLD) && children_exited &&
       trap_list[SIGCHLD] != (char *)IGNORE_SIG)
-    {
-      char *trap_command;
-      int i;
-
-      /* Turn off the trap list during the call to parse_and_execute ()
-        to avoid potentially infinite recursive calls.  Preserve the
-        values of last_command_exit_value, last_made_pid, and the_pipeline
-        around the execution of the trap commands. */
-      trap_command = savestring (trap_list[SIGCHLD]);
-
-      begin_unwind_frame ("SIGCHLD trap");
-      unwind_protect_int (last_command_exit_value);
-      if (sizeof (pid_t) == sizeof (short))
-       unwind_protect_short (last_made_pid);
-      else
-       unwind_protect_int (last_made_pid);
-      unwind_protect_int (interrupt_immediately);
-      unwind_protect_int (jobs_list_frozen);
-      unwind_protect_pointer (the_pipeline);
-      unwind_protect_pointer (subst_assign_varlist);
-
-      /* We have to add the commands this way because they will be run
-        in reverse order of adding.  We don't want maybe_set_sigchld_trap ()
-        to reference freed memory. */
-      add_unwind_protect ((Function *)xfree, trap_command);
-      add_unwind_protect ((Function *)maybe_set_sigchld_trap, trap_command);
-
-      subst_assign_varlist = (WORD_LIST *)NULL;
-      the_pipeline = (PROCESS *)NULL;
-      restore_default_signal (SIGCHLD);
-      jobs_list_frozen = 1;
-      for (i = 0; i < children_exited; i++)
-       {
-         interrupt_immediately = 1;
-         parse_and_execute (savestring (trap_command), "trap", SEVAL_NOHIST);
-       }
-
-      run_unwind_frame ("SIGCHLD trap");
-    }
+    run_sigchld_trap (children_exited);
 
   /* We have successfully recorded the useful information about this process
      that has just changed state.  If we notify asynchronously, and the job
@@ -2546,6 +2385,238 @@ waitchld (wpid, block)
   return (children_exited);
 }
 
+/* Set the status of JOB and perform any necessary cleanup if the job is
+   marked as JDEAD.
+
+   Currently, the cleanup activity is restricted to handling any SIGINT
+   received while waiting for a foreground job to finish. */
+static int
+set_job_status_and_cleanup (job)
+     int job;
+{
+  PROCESS *child;
+  int tstatus, job_state, any_stopped, any_tstped, call_set_current;
+  SigHandler *temp_handler;
+
+  child = jobs[job]->pipe;
+  jobs[job]->flags &= ~J_NOTIFIED;
+
+  call_set_current = 0;
+
+  /*
+   * COMPUTE JOB STATUS
+   */
+
+  /* If all children are not running, but any of them is  stopped, then
+     the job is stopped, not dead. */
+  job_state = any_stopped = any_tstped = 0;
+  do
+    {
+      job_state |= child->running;
+      if (child->running == 0 && (WIFSTOPPED (child->status)))
+       {
+         any_stopped = 1;
+         any_tstped |= interactive && job_control &&
+                           (WSTOPSIG (child->status) == SIGTSTP);
+       }
+      child = child->next;
+    }
+  while (child != jobs[job]->pipe);
+
+  /* If job_state != 0, the job is still running, so don't bother with
+     setting the process exit status and job state. */
+  if (job_state != 0)
+    return 0;
+
+  /*
+   * SET JOB STATUS
+   */
+
+  /* The job is either stopped or dead.  Set the state of the job accordingly. */
+  if (any_stopped)
+    {
+      jobs[job]->state = JSTOPPED;
+      jobs[job]->flags &= ~J_FOREGROUND;
+      call_set_current++;
+      /* Suspending a job with SIGTSTP breaks all active loops. */
+      if (any_tstped && loop_level)
+       breaking = loop_level;
+    }
+  else
+    {
+      jobs[job]->state = JDEAD;
+
+      if (IS_FOREGROUND (job))
+       setjstatus (job);
+
+      /* If this job has a cleanup function associated with it, call it
+        with `cleanarg' as the single argument, then set the function
+        pointer to NULL so it is not inadvertently called twice.  The
+        cleanup function is responsible for deallocating cleanarg. */
+      if (jobs[job]->j_cleanup)
+       {
+         (*jobs[job]->j_cleanup) (jobs[job]->cleanarg);
+         jobs[job]->j_cleanup = (VFunction *)NULL;
+       }
+    }
+
+  /*
+   * CLEANUP
+   *
+   * Currently, we just do special things if we got a SIGINT while waiting
+   * for a foreground job to complete
+   */
+
+  if (jobs[job]->state == JDEAD)
+    {
+      /* If we're running a shell script and we get a SIGINT with a
+        SIGINT trap handler, but the foreground job handles it and
+        does not exit due to SIGINT, run the trap handler but do not
+        otherwise act as if we got the interrupt. */
+      if (wait_sigint_received && interactive_shell == 0 &&
+         WIFSIGNALED (child->status) == 0 && IS_FOREGROUND (job) &&
+         signal_is_trapped (SIGINT))
+       {
+         wait_sigint_received = 0;
+         last_command_exit_value = process_exit_status (child->status);
+
+         jobs_list_frozen = 1;
+         tstatus = maybe_call_trap_handler (SIGINT);
+         jobs_list_frozen = 0;
+       }
+
+      /* If the foreground job is killed by SIGINT when job control is not
+        active, we need to perform some special handling.
+
+        The check of wait_sigint_received is a way to determine if the
+        SIGINT came from the keyboard (in which case the shell has already
+        seen it, and wait_sigint_received is non-zero, because keyboard
+        signals are sent to process groups) or via kill(2) to the foreground
+        process by another process (or itself).  If the shell did receive the
+        SIGINT, it needs to perform normal SIGINT processing. */
+      else if (wait_sigint_received && (WTERMSIG (child->status) == SIGINT) &&
+             IS_FOREGROUND (job) && IS_JOBCONTROL (job) == 0)
+       {
+         wait_sigint_received = 0;
+
+         /* If SIGINT is trapped, set the exit status so that the trap
+            handler can see it. */
+         if (signal_is_trapped (SIGINT))
+           last_command_exit_value = process_exit_status (child->status);
+
+         /* If the signal is trapped, let the trap handler get it no matter
+            what and simply return if the trap handler returns.
+           maybe_call_trap_handler() may cause dead jobs to be removed from
+           the job table because of a call to execute_command.  We work
+           around this by setting JOBS_LIST_FROZEN. */
+         jobs_list_frozen = 1;
+         tstatus = maybe_call_trap_handler (SIGINT);
+         jobs_list_frozen = 0;
+         if (tstatus == 0 && old_sigint_handler != INVALID_SIGNAL_HANDLER)
+           {
+             /* wait_sigint_handler () has already seen SIGINT and
+                allowed the wait builtin to jump out.  We need to
+                call the original SIGINT handler, if necessary.  If
+                the original handler is SIG_DFL, we need to resend
+                the signal to ourselves. */
+
+             temp_handler = old_sigint_handler;
+
+             /* Bogus.  If we've reset the signal handler as the result
+                of a trap caught on SIGINT, then old_sigint_handler
+                will point to trap_handler, which now knows nothing about
+                SIGINT (if we reset the sighandler to the default).
+                In this case, we have to fix things up.  What a crock. */
+             if (temp_handler == trap_handler && signal_is_trapped (SIGINT) == 0)
+                 temp_handler = trap_to_sighandler (SIGINT);
+               restore_sigint_handler ();
+               if (temp_handler == SIG_DFL)
+                 termination_unwind_protect (SIGINT);
+               else if (temp_handler != SIG_IGN)
+                 (*temp_handler) (SIGINT);
+           }
+       }
+    }
+
+  return call_set_current;
+}
+
+/* Build the array of values for the $PIPESTATUS variable from the set of
+   exit statuses of all processes in the job J. */
+static void
+setjstatus (j)
+     int j;
+{
+#if defined (ARRAY_VARS)
+  register int i;
+  register PROCESS *p;
+
+  for (i = 1, p = jobs[j]->pipe; p->next != jobs[j]->pipe; p = p->next, i++)
+    ;
+  i++;
+  if (statsize <= i)
+    {
+      pstatuses = (int *)xrealloc (pstatuses, i * sizeof (int));
+      statsize = i;
+    }
+  i = 0;
+  p = jobs[j]->pipe;
+  do
+    {
+      pstatuses[i++] = process_exit_status (p->status);
+      p = p->next;
+    }
+  while (p != jobs[j]->pipe);
+
+  pstatuses[i] = -1;   /* sentinel */
+  set_pipestatus_array (pstatuses);
+#endif
+}
+
+static void
+run_sigchld_trap (nchild)
+     int nchild;
+{
+  char *trap_command;
+  int i;
+
+  /* Turn off the trap list during the call to parse_and_execute ()
+     to avoid potentially infinite recursive calls.  Preserve the
+     values of last_command_exit_value, last_made_pid, and the_pipeline
+     around the execution of the trap commands. */
+  trap_command = savestring (trap_list[SIGCHLD]);
+
+  begin_unwind_frame ("SIGCHLD trap");
+  unwind_protect_int (last_command_exit_value);
+  if (sizeof (pid_t) == sizeof (short))
+    unwind_protect_short (last_made_pid);
+  else
+    unwind_protect_int (last_made_pid);
+  unwind_protect_int (interrupt_immediately);
+  unwind_protect_int (jobs_list_frozen);
+  unwind_protect_pointer (the_pipeline);
+  unwind_protect_pointer (subst_assign_varlist);
+
+  /* We have to add the commands this way because they will be run
+     in reverse order of adding.  We don't want maybe_set_sigchld_trap ()
+     to reference freed memory. */
+  add_unwind_protect ((Function *)xfree, trap_command);
+  add_unwind_protect ((Function *)maybe_set_sigchld_trap, trap_command);
+
+  subst_assign_varlist = (WORD_LIST *)NULL;
+  the_pipeline = (PROCESS *)NULL;
+
+  restore_default_signal (SIGCHLD);
+  jobs_list_frozen = 1;
+  for (i = 0; i < nchild; i++)
+    {
+      interrupt_immediately = 1;
+      parse_and_execute (savestring (trap_command), "trap", SEVAL_NOHIST);
+    }
+
+  run_unwind_frame ("SIGCHLD trap");
+}
+
 /* Function to call when you want to notify people of changes
    in job status.  This prints out all jobs which are pending
    notification to stderr, and marks those printed as already
@@ -2558,6 +2629,9 @@ notify_of_job_status ()
   sigset_t set, oset;
   WAIT s;
 
+  if (jobs == 0 || job_slots == 0)
+    return;
+
   sigemptyset (&set);
   sigaddset (&set, SIGCHLD);
   sigaddset (&set, SIGTTOU);
@@ -2568,11 +2642,7 @@ notify_of_job_status ()
     {
       if (jobs[job] && IS_NOTIFIED (job) == 0)
        {
-#if 0
-         s = jobs[job]->pipe->status;
-#else
          s = raw_job_exit_status (job);
-#endif
          termsig = WTERMSIG (s);
 
          /* POSIX.2 says we have to hang onto the statuses of at most the
@@ -2610,7 +2680,7 @@ notify_of_job_status ()
                  termsig != SIGPIPE &&
 #endif
                  signal_is_trapped (termsig) == 0)
-               {
+               {
                  fprintf (stderr, "%s: line %d: ", get_name_for_error (), line_number);
                  pretty_print_job (job, JLIST_NONINTERACTIVE, stderr);
                }
@@ -2746,16 +2816,16 @@ initialize_job_control (force)
             turn off job control.  */
          if (shell_pgrp != original_pgrp && shell_pgrp != terminal_pgrp)
            {
-             if (give_terminal_to (shell_pgrp) < 0)            /* XXX */
+             if (give_terminal_to (shell_pgrp, 0) < 0)
                {
-                 setpgid (0, original_pgrp);                   /* XXX */
-                 shell_pgrp = original_pgrp;                   /* XXX */
-                 job_control = 0;                              /* XXX */
+                 setpgid (0, original_pgrp);
+                 shell_pgrp = original_pgrp;
+                 job_control = 0;
                }
            }
        }
       if (job_control == 0)
-        internal_error ("no job control in this shell");       /* XXX */
+       internal_error ("no job control in this shell");
     }
 
   if (shell_tty != fileno (stderr))
@@ -2771,6 +2841,17 @@ initialize_job_control (force)
   return job_control;
 }
 
+#ifdef DEBUG
+void
+debug_print_pgrps ()
+{
+  itrace("original_pgrp = %d shell_pgrp = %d terminal_pgrp = %d",
+        original_pgrp, shell_pgrp, terminal_pgrp);
+  itrace("tcgetpgrp(%d) -> %d, getpgid(0) -> %d",
+        shell_tty, tcgetpgrp (shell_tty), getpgid(0));
+}
+#endif
+
 /* Set the line discipline to the best this system has to offer.
    Return -1 if this is not possible. */
 static int
@@ -2830,7 +2911,7 @@ set_new_line_discipline (tty)
 
 static SigHandler *old_tstp, *old_ttou, *old_ttin;
 static SigHandler *old_cont = (SigHandler *)SIG_DFL;
-static sighandler stop_signal_handler (), cont_signal_handler ();
+static sighandler sigstop_sighandler (), sigcont_sighandler ();
 
 #if defined (TIOCGWINSZ) && defined (SIGWINCH)
 static SigHandler *old_winch = (SigHandler *)SIG_DFL;
@@ -2847,9 +2928,9 @@ get_new_window_size (from_sig)
 #if defined (aixpc)
       shell_tty_info.c_winsize = win;  /* structure copying */
 #endif
-      set_lines_and_columns (win.ws_row, win.ws_col);
+      sh_set_lines_and_columns (win.ws_row, win.ws_col);
 #if defined (READLINE)
-      _rl_set_screen_size (win.ws_row, win.ws_col);
+      rl_set_screen_size (win.ws_row, win.ws_col);
 #endif
     }
 }
@@ -2902,9 +2983,9 @@ initialize_job_signals ()
     }
   else if (job_control)
     {
-      old_tstp = set_signal_handler (SIGTSTP, stop_signal_handler);
-      old_ttou = set_signal_handler (SIGTTOU, stop_signal_handler);
-      old_ttin = set_signal_handler (SIGTTIN, stop_signal_handler);
+      old_tstp = set_signal_handler (SIGTSTP, sigstop_sighandler);
+      old_ttou = set_signal_handler (SIGTTOU, sigstop_sighandler);
+      old_ttin = set_signal_handler (SIGTTIN, sigstop_sighandler);
     }
   /* Leave these things alone for non-interactive shells without job
      control. */
@@ -2912,7 +2993,7 @@ initialize_job_signals ()
 
 /* Here we handle CONT signals. */
 static sighandler
-cont_signal_handler (sig)
+sigcont_sighandler (sig)
      int sig;
 {
   initialize_job_signals ();
@@ -2924,16 +3005,16 @@ cont_signal_handler (sig)
 
 /* Here we handle stop signals while we are running not as a login shell. */
 static sighandler
-stop_signal_handler (sig)
+sigstop_sighandler (sig)
      int sig;
 {
   set_signal_handler (SIGTSTP, old_tstp);
   set_signal_handler (SIGTTOU, old_ttou);
   set_signal_handler (SIGTTIN, old_ttin);
 
-  old_cont = set_signal_handler (SIGCONT, cont_signal_handler);
+  old_cont = set_signal_handler (SIGCONT, sigcont_sighandler);
 
-  give_terminal_to (shell_pgrp);
+  give_terminal_to (shell_pgrp, 0);
 
   kill (getpid (), sig);
 
@@ -2942,14 +3023,15 @@ stop_signal_handler (sig)
 
 /* Give the terminal to PGRP.  */
 int
-give_terminal_to (pgrp)
+give_terminal_to (pgrp, force)
      pid_t pgrp;
+     int force;
 {
   sigset_t set, oset;
   int r;
 
   r = 0;
-  if (job_control)
+  if (job_control || force)
     {
       sigemptyset (&set);
       sigaddset (&set, SIGTTOU);
@@ -3078,32 +3160,32 @@ mark_dead_jobs_as_notified (force)
 
       /* Count the number of dead jobs */
       for (i = ndead = 0; force == 0 && i < job_slots; i++)
-        {
-          if (jobs[i] && DEADJOB (i))
+       {
+         if (jobs[i] && DEADJOB (i))
            ndead++;
-        }
+       }
 
       /* Don't do anything if the number of jobs is less than CHILD_MAX and
         we're not forcing a cleanup. */
       if (force == 0 && ndead <= CHILD_MAX)
-        {
-          UNBLOCK_CHILD (oset);
-          return;
-        }
+       {
+         UNBLOCK_CHILD (oset);
+         return;
+       }
 
       /* Mark enough dead jobs as notified that we keep CHILD_MAX jobs in
-         the list.  This isn't exactly right yet; changes need to be made
-         to stop_pipeline so we don't mark the newer jobs after we've
-         created CHILD_MAX slots in the jobs array. */
+        the list.  This isn't exactly right yet; changes need to be made
+        to stop_pipeline so we don't mark the newer jobs after we've
+        created CHILD_MAX slots in the jobs array. */
       for (i = 0; i < job_slots; i++)
-        {
+       {
          if (jobs[i] && DEADJOB (i) && (interactive_shell || (find_last_pid (i) != last_asynchronous_pid)))
            {
              jobs[i]->flags |= J_NOTIFIED;
              if (force == 0 && --ndead <= CHILD_MAX)
                break;
            }
-        }
+       }
 
       UNBLOCK_CHILD (oset);
     }
@@ -3152,7 +3234,7 @@ end_job_control ()
       terminate_stopped_jobs ();
 
       if (original_pgrp >= 0)
-       give_terminal_to (original_pgrp);
+       give_terminal_to (original_pgrp, 1);
     }
 
   if (original_pgrp >= 0)
@@ -3220,33 +3302,3 @@ close_pgrp_pipe ()
 }
 
 #endif /* PGRP_PIPE */
-
-static void
-setjstatus (j)
-     int j;
-{
-#if defined (ARRAY_VARS)
-  register int i;
-  register PROCESS *p;
-
-  for (i = 1, p = jobs[j]->pipe; p->next != jobs[j]->pipe; p = p->next, i++)
-    ;
-  i++;
-  if (statsize <= i)
-    {
-      pstatuses = (int *)xrealloc (pstatuses, i * sizeof (int));
-      statsize = i;
-    }
-  i = 0;
-  p = jobs[j]->pipe;
-  do
-    {
-      pstatuses[i++] = process_exit_status (p->status);
-      p = p->next;
-    }
-  while (p != jobs[j]->pipe);
-
-  pstatuses[i] = -1;   /* sentinel */
-  set_pipestatus_array (pstatuses);
-#endif
-}
diff --git a/jobs.h b/jobs.h
index e1e4e4011df36be6625b8caeda0f62ca3dcb4d68..b89d09757e7db73256ce567212a18fd75325fe0e 100644 (file)
--- a/jobs.h
+++ b/jobs.h
@@ -151,7 +151,7 @@ extern int start_job __P((int, int));
 extern int kill_pid __P((pid_t, int, int));
 extern int initialize_job_control __P((int));
 extern void initialize_job_signals __P((void));
-extern int give_terminal_to __P((pid_t));
+extern int give_terminal_to __P((pid_t, int));
 
 extern void set_sigwinch_handler __P((void));
 extern void unset_sigwinch_handler __P((void));
index 823ebf0838508d5619aa6bad10877121574f82c7..2860ee5330029ccc0fe0e3ad48bd63f7255b637d 100644 (file)
@@ -9,12 +9,12 @@
    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.
-              
+             
    Bash is distributed in the hope that it will be useful, but WITHOUT ANY
    WARRANTY; without even the implied warranty of MERCHANTABILITY or
    FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
    for more details.
-                         
+                        
    You should have received a copy of the GNU General Public License along
    with Bash; see the file COPYING.  If not, write to the Free Software
    Foundation, 59 Temple Place, Suite 330, Boston, MA 02111 USA. */
@@ -22,7 +22,7 @@
 #include <config.h>
 
 #include <stdio.h>     /* for debugging */
-                                
+                               
 #include "fnmatch.h"
 #include "collsyms.h"
 #include <ctype.h>
@@ -68,18 +68,14 @@ static char *patscan ();
 #define STREQN(a, b, n) ((a)[0] == (b)[0] && strncmp(a, b, n) == 0)
 #endif
 
-/* We don't use strcoll(3) for range comparisons in bracket expressions,
-   even if we have it, since it can have unwanted side effects in locales
+/* We use strcoll(3) for range comparisons in bracket expressions,
+   even though it can have unwanted side effects in locales
    other than POSIX or US.  For instance, in the de locale, [A-Z] matches
-   all characters.  So, for ranges we use ASCII collation, and for
-   collating symbol equivalence we use strcoll().  The casts to int are
-   to handle tests that use unsigned chars. */
-
-#define rangecmp(c1, c2)       ((int)(c1) - (int)(c2))
+   all characters. */
 
 #if defined (HAVE_STRCOLL)
 /* Helper function for collating symbol equivalence. */
-static int rangecmp2 (c1, c2)
+static int rangecmp (c1, c2)
      int c1, c2;
 {
   static char s1[2] = { ' ', '\0' };
@@ -101,14 +97,14 @@ static int rangecmp2 (c1, c2)
   return (c1 - c2);
 }
 #else /* !HAVE_STRCOLL */
-#  define rangecmp2(c1, c2)    ((int)(c1) - (int)(c2))
+#  define rangecmp(c1, c2)     ((int)(c1) - (int)(c2))
 #endif /* !HAVE_STRCOLL */
 
 #if defined (HAVE_STRCOLL)
 static int collequiv (c1, c2)
      int c1, c2;
 {
-  return (rangecmp2 (c1, c2) == 0);
+  return (rangecmp (c1, c2) == 0);
 }
 #else
 #  define collequiv(c1, c2)    ((c1) == (c2))
@@ -124,7 +120,7 @@ collsym (s, len)
   for (csp = posix_collsyms; csp->name; csp++)
     {
       if (STREQN(csp->name, s, len) && csp->name[len] == '\0')
-        return (csp->code);
+       return (csp->code);
     }
   if (len == 1)
     return s[0];
@@ -166,6 +162,11 @@ gmatch (string, se, pattern, pe, flags)
   if (string == 0 || pattern == 0)
     return FNM_NOMATCH;
 
+#if DEBUG_MATCHING
+fprintf(stderr, "gmatch: string = %s; se = %s\n", string, se);
+fprintf(stderr, "gmatch: pattern = %s; pe = %s\n", pattern, pe);
+#endif
+
   while (p < pe)
     {
       c = *p++;
@@ -270,7 +271,7 @@ gmatch (string, se, pattern, pe, flags)
                }
 #endif
              if (p == pe)
-               break;
+               break;
            }
 
          /* If we've hit the end of the pattern and the last character of
@@ -290,14 +291,14 @@ gmatch (string, se, pattern, pe, flags)
                /* Only call fnmatch if the first character indicates a
                   possible match.  We can check the first character if
                   we're not doing an extended glob match. */
-               if ((flags & FNM_EXTMATCH) == 0 && c != '[' && FOLD (*n) != c1)
+               if ((flags & FNM_EXTMATCH) == 0 && c != '[' && FOLD (*n) != c1) /*]*/
                  continue;
 
                /* If we're doing an extended glob match and the pattern is not
                   one of the extended glob patterns, we can check the first
                   character. */
                if ((flags & FNM_EXTMATCH) && p[1] != '(' && /*)*/
-                   strchr ("?*+@!", *p) == 0 && c != '[' && FOLD (*n) != c1)
+                   strchr ("?*+@!", *p) == 0 && c != '[' && FOLD (*n) != c1) /*]*/
                  continue;
 
                /* Otherwise, we just recurse. */
@@ -339,7 +340,7 @@ gmatch (string, se, pattern, pe, flags)
   if ((flags & FNM_LEADING_DIR) && *n == '/')
     /* The FNM_LEADING_DIR flag says that "foo*" matches "foobar/frobozz".  */
     return 0;
-          
+         
   return (FNM_NOMATCH);
 }
 
@@ -355,7 +356,7 @@ parse_collsym (p, vp)
   int val;
 
   p++;                         /* move past the `.' */
-          
+         
   for (pc = 0; p[pc]; pc++)
     if (p[pc] == '.' && p[pc+1] == ']')
       break;
@@ -382,7 +383,7 @@ brackmatch (p, test, flags)
 
   /* POSIX.2 3.13.1 says that an exclamation mark (`!') shall replace the
      circumflex (`^') in its role in a `nonmatching list'.  A bracket
-     expression starging with an unquoted circumflex character produces
+     expression starting with an unquoted circumflex character produces
      unspecified results.  This implementation treats the two identically. */
   if (not = (*p == '!' || *p == '^'))
     ++p;
@@ -404,19 +405,24 @@ brackmatch (p, test, flags)
          pc = FOLD (p[1]);
          p += 4;
          if (collequiv (test, pc))
-           goto matched;
+           {
+/*[*/        /* Move past the closing `]', since the first thing we do at
+                the `matched:' label is back p up one. */
+             p++;
+             goto matched;
+           }
          else
            {
              c = *p++;
              if (c == '\0')
-               return ((test == '[') ? savep : (char *)0);
+               return ((test == '[') ? savep : (char *)0); /*]*/
              c = FOLD (c);
              continue;
            }
-        }
+       }
 
       /* POSIX.2 character class expression.  See POSIX.2 2.8.3.2. */
-      if (c == '[' && *p == ':')
+      if (c == '[' && *p == ':')       /*]*/
        {
          pc = 0;       /* make sure invalid char classes don't match. */
          if (STREQN (p+1, "alnum:]", 7))
@@ -446,7 +452,12 @@ brackmatch (p, test, flags)
          else if (STREQN (p+1, "ascii:]", 7))
            { pc = isascii (test); p += 8; }
          if (pc)
+           {
+/*[*/        /* Move past the closing `]', since the first thing we do at
+                the `matched:' label is back p up one. */
+             p++;
              goto matched;
+           }
          else
            {
              /* continue the loop here, since this expression can't be
@@ -455,7 +466,7 @@ brackmatch (p, test, flags)
              if (c == '\0')
                return ((test == '[') ? savep : (char *)0);
              else if (c == ']')
-               break;
+               break;
              c = FOLD (c);
              continue;
            }
@@ -528,7 +539,7 @@ brackmatch (p, test, flags)
          if (rangecmp (cstart, cend) > 0)
            {
              if (c == ']')
-               break;
+               break;
              c = FOLD (c);
              continue;
            }
@@ -545,7 +556,12 @@ brackmatch (p, test, flags)
 
 matched:
   /* Skip the rest of the [...] that already matched.  */
+#if 0
   brcnt = (c != ']') + (c == '[' && (*p == '=' || *p == ':' || *p == '.'));
+#else
+  c = *--p;
+  brcnt = 1;
+#endif
   while (brcnt > 0)
     {
       /* A `[' without a matching `]' is just another character to match. */
@@ -554,9 +570,9 @@ matched:
 
       c = *p++;
       if (c == '[' && (*p == '=' || *p == ':' || *p == '.'))
-        brcnt++;
+       brcnt++;
       else if (c == ']')
-        brcnt--;
+       brcnt--;
       else if (!(flags & FNM_NOESCAPE) && c == '\\')
        {
          if (*p == '\0')
@@ -593,29 +609,56 @@ patscan (string, end, delim)
      char *string, *end;
      int delim;
 {
-  int pnest, bnest;
-  char *s, c;
+  int pnest, bnest, cchar;
+  char *s, c, *bfirst;
 
-  pnest = bnest = 0;
+  pnest = bnest = cchar = 0;
+  bfirst = 0;
   for (s = string; c = *s; s++)
     {
       if (s >= end)
-        return (s);
+       return (s);
       switch (c)
        {
        case '\0':
          return ((char *)0);
+
+       /* `[' is not special inside a bracket expression, but it may
+          introduce one of the special POSIX bracket expressions
+          ([.SYM.], [=c=], [: ... :]) that needs special handling. */
        case '[':
-         bnest++;
+         if (bnest == 0)
+           {
+             bfirst = s + 1;
+             if (*bfirst == '!' || *bfirst == '^')
+               bfirst++;
+             bnest++;
+           }
+         else if (s[1] == ':' || s[1] == '.' || s[1] == '=')
+           cchar = s[1];
          break;
+
+       /* `]' is not special if it's the first char (after a leading `!'
+          or `^') in a bracket expression or if it's part of one of the
+          special POSIX bracket expressions ([.SYM.], [=c=], [: ... :]) */
        case ']':
          if (bnest)
-           bnest--;
+           {
+             if (cchar && s[-1] == cchar)
+               cchar = 0;
+             else if (s != bfirst)
+               {
+                 bnest--;
+                 bfirst = 0;
+               }
+           }
          break;
+
        case '(':
          if (bnest == 0)
            pnest++;
          break;
+
        case ')':
 #if 0
          if (bnest == 0)
@@ -627,6 +670,7 @@ patscan (string, end, delim)
            return ++s;
 #endif
          break;
+
        case '|':
          if (bnest == 0 && pnest == 0 && delim == '|')
            return ++s;
@@ -678,7 +722,7 @@ extmatch (xc, s, se, p, pe, flags)
   char *srest;                 /* pointer to rest of string */
   int m1, m2;
 
-#if 0
+#if DEBUG_MATCHING
 fprintf(stderr, "extmatch: xc = %c\n", xc);
 fprintf(stderr, "extmatch: s = %s; se = %s\n", s, se);
 fprintf(stderr, "extmatch: p = %s; pe = %s\n", p, pe);
@@ -701,8 +745,8 @@ fprintf(stderr, "extmatch: p = %s; pe = %s\n", p, pe);
        return 0;
 
       /* OK, we have to do this the hard way.  First, we make sure one of
-         the subpatterns matches, then we try to match the rest of the
-         string. */
+        the subpatterns matches, then we try to match the rest of the
+        string. */
       for (psub = p + 1; ; psub = pnext)
        {
          pnext = patscan (psub, pe, '|');
@@ -718,7 +762,7 @@ fprintf(stderr, "extmatch: p = %s; pe = %s\n", p, pe);
                m2 = (gmatch (srest, se, prest, pe, flags) == 0) ||
                      (s != srest && gmatch (srest, se, p - 1, pe, flags) == 0);
              if (m1 && m2)
-               return (0);
+               return (0);
            }
          if (pnext == prest)
            break;
@@ -765,7 +809,7 @@ fprintf(stderr, "extmatch: p = %s; pe = %s\n", p, pe);
                break;
            }
          if (m1 == 0 && gmatch (srest, se, prest, pe, flags) == 0)
-           return (0); 
+           return (0);
        }
       return (FNM_NOMATCH);
     }
index c2722745bd05cd50eb4edae9a75f1dd30d85952f..69d0e54e942b18bf1cf09eaccc07f57eedbbae18 100644 (file)
@@ -343,7 +343,7 @@ glob_vector (pat, dir)
        return ((char **) &glob_error_return);
 
       /* Compute the flags that will be passed to fnmatch().  We don't
-         need to do this every time through the loop. */
+        need to do this every time through the loop. */
       flags = (noglob_dot_filenames ? FNM_PERIOD : 0) | FNM_PATHNAME;
 
 #ifdef FNM_CASEFOLD
@@ -480,14 +480,11 @@ glob_dir_to_array (dir, array)
                                   + strlen (array[i]) + 1);
       if (result[i] == NULL)
        return (NULL);
-#if 1
+
       strcpy (result[i], dir);
       if (add_slash)
-        result[i][l] = '/';
+       result[i][l] = '/';
       strcpy (result[i] + l + add_slash, array[i]);
-#else
-      (void)sprintf (result[i], "%s%s%s", dir, add_slash ? "/" : "", array[i]);
-#endif
     }
   result[i] = NULL;
 
index 8441b0f976aa33715b2b21099fb0d8fc7432d6eb..c21d4473aa0212da1940d0b78389937b27b0ebe0 100644 (file)
@@ -651,7 +651,7 @@ imalloc (size)
                 final free block; if so we don't need to get as much.  */
              if (_heaplimit != 0 && block + lastblocks == _heaplimit &&
                  /* We can't do this if we will have to make the heap info
-                     table bigger to accomodate the new space.  */
+                    table bigger to accomodate the new space.  */
                  block + wantblocks <= heapsize &&
                  get_contiguous_space ((wantblocks - lastblocks) * BLOCKSIZE,
                                        ADDRESS (block + lastblocks)))
@@ -1165,7 +1165,7 @@ irealloc (ptr, size)
                 the thing we just freed.  Unfortunately it might
                 have been coalesced with its neighbors.  */
              if (_heapindex == block)
-               (void) imalloc (blocks * BLOCKSIZE);
+               (void) imalloc (blocks * BLOCKSIZE);
              else
                {
                  genptr_t previous;
index daa137163aaa5ba4a1a92a91a9fa7c4ee037b460..17cc0d20c53f250a7df8bd9763c684ec5a147546 100644 (file)
@@ -278,6 +278,11 @@ static int pagesz; /* system page size. */
 static int pagebucket; /* bucket for requests a page in size */
 static int maxbuck;    /* highest bucket receiving allocation request. */
 
+#ifdef SHELL
+extern int interrupt_immediately;
+extern int signal_is_trapped ();
+#endif
+
 #if 0
 /* Coalesce two adjacent free blocks off the free list for size NU - 1,
    as long as there are at least MIN_COMBINE_FREE free blocks and we
@@ -399,6 +404,34 @@ bsplit (nu)
   CHAIN (mp) = 0;
 }
 
+static void
+block_signals (setp, osetp)
+     sigset_t *setp, *osetp;
+{
+#ifdef HAVE_POSIX_SIGNALS
+  sigfillset (setp);
+  sigemptyset (osetp);
+  sigprocmask (SIG_BLOCK, setp, osetp);
+#else
+#  if defined (HAVE_BSD_SIGNALS)
+  *osetp = sigsetmask (-1);
+#  endif
+#endif
+}
+
+static void
+unblock_signals (setp, osetp)
+     sigset_t *setp, *osetp;
+{
+#ifdef HAVE_POSIX_SIGNALS
+  sigprocmask (SIG_SETMASK, osetp, (sigset_t *)NULL);
+#else
+#  if defined (HAVE_BSD_SIGNALS)
+  sigsetmask (*osetp);
+#  endif
+#endif
+}
+  
 static void
 morecore (nu)                  /* ask system for more memory */
      register int nu;          /* size index to get more of  */
@@ -407,19 +440,18 @@ morecore (nu)                     /* ask system for more memory */
   register int nblks;
   register long siz;
   long sbrk_amt;               /* amount to get via sbrk() */
+  sigset_t set, oset;
+  int blocked_sigs;
 
   /* Block all signals in case we are executed from a signal handler. */
-#if defined (HAVE_BSD_SIGNALS)
-  int oldmask;
-  oldmask = sigsetmask (-1);
-#else
-#  if defined (HAVE_POSIX_SIGNALS)
-  sigset_t set, oset;
-  sigfillset (&set);
-  sigemptyset (&oset);
-  sigprocmask (SIG_BLOCK, &set, &oset);
-#  endif /* HAVE_POSIX_SIGNALS */
-#endif /* HAVE_BSD_SIGNALS */
+  blocked_sigs = 0;
+#ifdef SHELL
+  if (interrupt_immediately || signal_is_trapped (SIGINT) || signal_is_trapped (SIGCHLD))
+#endif
+    {
+      block_signals (&set, &oset);
+      blocked_sigs = 1;
+    }
 
   siz = 1 << (nu + 3); /* size of desired block for nextf[nu] */
 
@@ -450,7 +482,7 @@ morecore (nu)                       /* ask system for more memory */
     {
       bcoalesce (nu);
       if (nextf[nu] != 0)
-        goto morecore_done;
+       goto morecore_done;
     }
 #endif
 
@@ -507,15 +539,8 @@ morecore (nu)                      /* ask system for more memory */
   CHAIN (mp) = 0;
 
 morecore_done:
-#if defined (HAVE_BSD_SIGNALS)
-  sigsetmask (oldmask);
-#else
-#  if defined (HAVE_POSIX_SIGNALS)
-  sigprocmask (SIG_SETMASK, &oset, (sigset_t *)NULL);
-#  else
-  ; /* nothing to do, but need a null statement before the brace */
-#  endif
-#endif /* HAVE_BSD_SIGNALS */
+  if (blocked_sigs)
+    unblock_signals (&set, &oset);
 }
 
 #if defined (MEMSCRAMBLE) || !defined (NO_CALLOC)
@@ -557,30 +582,30 @@ malloc (n)                /* get a block */
 
       pagesz = getpagesize ();
       if (pagesz < 1024)
-        pagesz = 1024;
+       pagesz = 1024;
       /* OK, how much do we need to allocate to make things page-aligned?
-         This partial page is wasted space.  Once we figure out how much
-         to advance the break pointer, go ahead and do it. */
+        This partial page is wasted space.  Once we figure out how much
+        to advance the break pointer, go ahead and do it. */
       sbrk_needed = pagesz - ((long)sbrk (0) & (pagesz - 1));  /* sbrk(0) % pagesz */
       if (sbrk_needed < 0)
-        sbrk_needed += pagesz;
+       sbrk_needed += pagesz;
       /* Now allocate the wasted space. */
       if (sbrk_needed)
-        {
+       {
 #ifdef MALLOC_STATS
          _mstats.nsbrk++;
          _mstats.tsbrk += sbrk_needed;
 #endif
-          if ((long)sbrk (sbrk_needed) == -1)
-            return (NULL);
-        }
+         if ((long)sbrk (sbrk_needed) == -1)
+           return (NULL);
+       }
       nunits = 0;
       nbytes = 8;
       while (pagesz > nbytes)
-        {
-          nbytes <<= 1;
-          nunits++;
-        }
+       {
+         nbytes <<= 1;
+         nunits++;
+       }
       pagebucket = nunits;
     }
  
@@ -605,10 +630,10 @@ malloc (n)                /* get a block */
       nunits = pagebucket;
       amt = pagesz;
       while (nbytes > amt)
-        {
-          amt <<= 1;
-          nunits++;
-        }
+       {
+         amt <<= 1;
+         nunits++;
+       }
     }
 
   /* In case this is reentrant use of malloc from signal handler,
@@ -924,6 +949,7 @@ _print_malloc_stats (s, fp)
 
 void
 print_malloc_stats (s)
+     char *s;
 {
   _print_malloc_stats (s, stderr);
 }
@@ -933,6 +959,7 @@ extern char *inttostr ();
 
 void
 trace_malloc_stats (s)
+     char *s;
 {
   char ibuf[32], *ip;
   char fname[64];
index a41439977ff575136017b1d5209b8ea32839a4fa..1bf1526387846344944ce72e3f2341cdd61a9246 100644 (file)
@@ -305,7 +305,7 @@ the "copyright" line and a pointer to where the full notice is found.
 
     You should have received a copy of the GNU General Public License
     along with this program; if not, write to the Free Software
-    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
 
 Also add information on how to contact you by electronic and paper mail.
 
index 082410e10470b362eba6d72900d8f70869b13e6d..7bfcffdad4ab86c0aa7dc52ca2f65d4cae18326d 100644 (file)
@@ -72,19 +72,21 @@ CSOURCES = $(srcdir)/readline.c $(srcdir)/funmap.c $(srcdir)/keymaps.c \
           $(srcdir)/callback.c $(srcdir)/terminal.c $(srcdir)/xmalloc.c \
           $(srcdir)/history.c $(srcdir)/histsearch.c $(srcdir)/histexpand.c \
           $(srcdir)/histfile.c $(srcdir)/nls.c $(srcdir)/search.c \
-          $(srcdir)/shell.c $(srcdir)/tilde.c $(srcdir)/savestring.c
+          $(srcdir)/shell.c $(srcdir)/tilde.c $(srcdir)/savestring.c \
+          $(srcdir)/compat.c
 
 # The header files for this library.
 HSOURCES = readline.h rldefs.h chardefs.h keymaps.h history.h histlib.h \
           posixstat.h posixdir.h posixjmp.h tilde.h rlconf.h rltty.h \
-          ansi_stdlib.h rlstdc.h tcap.h rlprivate.h rlshell.h
+          ansi_stdlib.h rlstdc.h tcap.h xmalloc.h rlprivate.h rlshell.h \
+          rltypedefs.h
 
 HISTOBJ = history.o histexpand.o histfile.o histsearch.o shell.o savestring.o
 TILDEOBJ = tilde.o
 OBJECTS = readline.o vi_mode.o funmap.o keymaps.o parens.o search.o \
          rltty.o complete.o bind.o isearch.o display.o signals.o \
          util.o kill.o undo.o macro.o input.o callback.o terminal.o \
-         nls.o $(HISTOBJ) $(TILDEOBJ) xmalloc.o
+         nls.o $(HISTOBJ) $(TILDEOBJ) xmalloc.o compat.o
 
 # The texinfo files which document this library.
 DOCSOURCE = doc/rlman.texinfo doc/rltech.texinfo doc/rluser.texinfo
@@ -98,7 +100,8 @@ SOURCES  = $(CSOURCES) $(HSOURCES) $(DOCSOURCE)
 
 THINGS_TO_TAR = $(SOURCES) $(SUPPORT)
 
-INSTALLED_HEADERS = readline.h chardefs.h keymaps.h history.h tilde.h
+INSTALLED_HEADERS = readline.h chardefs.h keymaps.h history.h tilde.h \
+                   rlstdc.h rlconf.h rltypedefs.h
 
 ##########################################################################
 
@@ -147,20 +150,21 @@ distclean maintainer-clean: clean
 # Dependencies
 bind.o: ansi_stdlib.h posixstat.h
 bind.o: rldefs.h ${BUILD_DIR}/config.h rlconf.h
-bind.o: readline.h keymaps.h chardefs.h tilde.h
+bind.o: readline.h keymaps.h rltypedefs.h chardefs.h tilde.h
 bind.o: history.h rlstdc.h
 callback.o: rlconf.h
 callback.o: rldefs.h ${BUILD_DIR}/config.h rlconf.h
-callback.o: readline.h keymaps.h chardefs.h tilde.h rlstdc.h
+callback.o: readline.h keymaps.h rltypedefs.h chardefs.h tilde.h rlstdc.h
+compat.o: rlstdc.h
 complete.o: ansi_stdlib.h posixdir.h posixstat.h
 complete.o: rldefs.h ${BUILD_DIR}/config.h rlconf.h
-complete.o: readline.h keymaps.h chardefs.h tilde.h rlstdc.h
+complete.o: readline.h keymaps.h rltypedefs.h chardefs.h tilde.h rlstdc.h
 display.o: ansi_stdlib.h posixstat.h
 display.o: rldefs.h ${BUILD_DIR}/config.h rlconf.h
 display.o: tcap.h
-display.o: readline.h keymaps.h chardefs.h tilde.h
+display.o: readline.h keymaps.h rltypedefs.h chardefs.h tilde.h
 display.o: history.h rlstdc.h
-funmap.o: readline.h keymaps.h chardefs.h tilde.h
+funmap.o: readline.h keymaps.h rltypedefs.h chardefs.h tilde.h
 funmap.o: rlconf.h ansi_stdlib.h rlstdc.h
 funmap.o: ${BUILD_DIR}/config.h
 histexpand.o: ansi_stdlib.h
@@ -177,59 +181,59 @@ histsearch.o: history.h histlib.h rlstdc.h
 histsearch.o: ${BUILD_DIR}/config.h
 input.o: ansi_stdlib.h
 input.o: rldefs.h ${BUILD_DIR}/config.h rlconf.h
-input.o: readline.h keymaps.h chardefs.h tilde.h rlstdc.h
+input.o: readline.h keymaps.h rltypedefs.h chardefs.h tilde.h rlstdc.h
 isearch.o: rldefs.h ${BUILD_DIR}/config.h rlconf.h
-isearch.o: readline.h keymaps.h chardefs.h tilde.h
+isearch.o: readline.h keymaps.h rltypedefs.h chardefs.h tilde.h
 isearch.o: ansi_stdlib.h history.h rlstdc.h
 keymaps.o: emacs_keymap.c vi_keymap.c
-keymaps.o: keymaps.h chardefs.h rlconf.h ansi_stdlib.h
-keymaps.o: readline.h keymaps.h chardefs.h tilde.h
+keymaps.o: keymaps.h rltypedefs.h chardefs.h rlconf.h ansi_stdlib.h
+keymaps.o: readline.h keymaps.h rltypedefs.h chardefs.h tilde.h
 keymaps.o: ${BUILD_DIR}/config.h rlstdc.h
 kill.o: ansi_stdlib.h
 kill.o: rldefs.h ${BUILD_DIR}/config.h rlconf.h
-kill.o: readline.h keymaps.h chardefs.h tilde.h
+kill.o: readline.h keymaps.h rltypedefs.h chardefs.h tilde.h
 kill.o: history.h rlstdc.h
 macro.o: ansi_stdlib.h
 macro.o: rldefs.h ${BUILD_DIR}/config.h rlconf.h
-macro.o: readline.h keymaps.h chardefs.h tilde.h
+macro.o: readline.h keymaps.h rltypedefs.h chardefs.h tilde.h
 macro.o: history.h rlstdc.h
 nls.o: ansi_stdlib.h
 nls.o: rldefs.h ${BUILD_DIR}/config.h rlconf.h
-nls.o: readline.h keymaps.h chardefs.h tilde.h
+nls.o: readline.h keymaps.h rltypedefs.h chardefs.h tilde.h
 nls.o: history.h rlstdc.h
 parens.o: rlconf.h
 parens.o: ${BUILD_DIR}/config.h
-parens.o: readline.h keymaps.h chardefs.h tilde.h rlstdc.h
-readline.o: readline.h keymaps.h chardefs.h tilde.h
+parens.o: readline.h keymaps.h rltypedefs.h chardefs.h tilde.h rlstdc.h
+readline.o: readline.h keymaps.h rltypedefs.h chardefs.h tilde.h
 readline.o: rldefs.h ${BUILD_DIR}/config.h rlconf.h
 readline.o: history.h rlstdc.h
 readline.o: posixstat.h ansi_stdlib.h posixjmp.h
 rltty.o: rldefs.h ${BUILD_DIR}/config.h rlconf.h
 rltty.o: rltty.h
-rltty.o: readline.h keymaps.h chardefs.h tilde.h rlstdc.h
+rltty.o: readline.h keymaps.h rltypedefs.h chardefs.h tilde.h rlstdc.h
 search.o: rldefs.h ${BUILD_DIR}/config.h rlconf.h
-search.o: readline.h keymaps.h chardefs.h tilde.h
+search.o: readline.h keymaps.h rltypedefs.h chardefs.h tilde.h
 search.o: ansi_stdlib.h history.h rlstdc.h
 shell.o: ${BUILD_DIR}/config.h ansi_stdlib.h
 signals.o: rldefs.h ${BUILD_DIR}/config.h rlconf.h
-signals.o: readline.h keymaps.h chardefs.h tilde.h
+signals.o: readline.h keymaps.h rltypedefs.h chardefs.h tilde.h
 signals.o: history.h rlstdc.h
 terminal.o: rldefs.h ${BUILD_DIR}/config.h rlconf.h
 terminal.o: tcap.h
-terminal.o: readline.h keymaps.h chardefs.h tilde.h
+terminal.o: readline.h keymaps.h rltypedefs.h chardefs.h tilde.h
 terminal.o: history.h rlstdc.h
 tilde.o: ansi_stdlib.h
 tilde.o: ${BUILD_DIR}/config.h
 tilde.o: tilde.h
 undo.o: ansi_stdlib.h
 undo.o: rldefs.h ${BUILD_DIR}/config.h rlconf.h
-undo.o: readline.h keymaps.h chardefs.h tilde.h
+undo.o: readline.h keymaps.h rltypedefs.h chardefs.h tilde.h
 undo.o: history.h rlstdc.h
 util.o: posixjmp.h ansi_stdlib.h
 util.o: rldefs.h ${BUILD_DIR}/config.h rlconf.h
-util.o: readline.h keymaps.h chardefs.h tilde.h rlstdc.h
+util.o: readline.h keymaps.h rltypedefs.h chardefs.h tilde.h rlstdc.h
 vi_mode.o: rldefs.h ${BUILD_DIR}/config.h rlconf.h
-vi_mode.o: readline.h keymaps.h chardefs.h tilde.h
+vi_mode.o: readline.h keymaps.h rltypedefs.h chardefs.h tilde.h
 vi_mode.o: history.h ansi_stdlib.h rlstdc.h
 xmalloc.o: ${BUILD_DIR}/config.h ansi_stdlib.h
 
@@ -284,6 +288,7 @@ vi_mode.o: xmalloc.h
 # Rules for deficient makes, like SunOS and Solaris
 bind.o: bind.c
 callback.o: callback.c
+compat.o: compat.c
 complete.o: complete.c
 display.o: display.c
 funmap.o: funmap.c
index a720cb9bcbcd94f567130146a6009b814c5126df..3a354f28ddf2708a08559ab7afa5a5efe89687c4 100644 (file)
@@ -27,6 +27,9 @@
 extern int atoi ();
 extern long int atol ();
 
+extern double atof ();
+extern double strtod ();
+
 /* Memory allocation functions. */
 extern char *malloc ();
 extern char *realloc ();
index 6a6424e9e02d5d89ed1d87d1dd108070495c9465..74fa6f2ae49687e0dca1d75275586adfc4104f90 100644 (file)
@@ -68,9 +68,9 @@ extern char *strchr (), *strrchr ();
 /* Variables exported by this file. */
 Keymap rl_binding_keymap;
 
-static int _rl_read_init_file __P((char *, int));
+static int _rl_read_init_file __P((const char *, int));
 static int glean_key_from_name __P((char *));
-static int substring_member_of_array __P((char *, char **));
+static int substring_member_of_array __P((char *, const char **));
 
 static int currently_reading_init_file;
 
@@ -83,13 +83,13 @@ static int _rl_prefer_visible_bell = 1;
 /*                                                                 */
 /* **************************************************************** */
 
-/* rl_add_defun (char *name, Function *function, int key)
+/* rl_add_defun (char *name, rl_command_func_t *function, int key)
    Add NAME to the list of named functions.  Make FUNCTION be the function
    that gets called.  If KEY is not -1, then bind it. */
 int
 rl_add_defun (name, function, key)
-     char *name;
-     Function *function;
+     const char *name;
+     rl_command_func_t *function;
      int key;
 {
   if (key != -1)
@@ -102,7 +102,7 @@ rl_add_defun (name, function, key)
 int
 rl_bind_key (key, function)
      int key;
-     Function *function;
+     rl_command_func_t *function;
 {
   if (key < 0)
     return (key);
@@ -133,7 +133,7 @@ rl_bind_key (key, function)
 int
 rl_bind_key_in_map (key, function, map)
      int key;
-     Function *function;
+     rl_command_func_t *function;
      Keymap map;
 {
   int result;
@@ -152,7 +152,7 @@ int
 rl_unbind_key (key)
      int key;
 {
-  return (rl_bind_key (key, (Function *)NULL));
+  return (rl_bind_key (key, (rl_command_func_t *)NULL));
 }
 
 /* Make KEY do nothing in MAP.
@@ -162,13 +162,13 @@ rl_unbind_key_in_map (key, map)
      int key;
      Keymap map;
 {
-  return (rl_bind_key_in_map (key, (Function *)NULL, map));
+  return (rl_bind_key_in_map (key, (rl_command_func_t *)NULL, map));
 }
 
 /* Unbind all keys bound to FUNCTION in MAP. */
 int
 rl_unbind_function_in_map (func, map)
-     Function *func;
+     rl_command_func_t *func;
      Keymap map;
 {
   register int i, rval;
@@ -177,7 +177,7 @@ rl_unbind_function_in_map (func, map)
     {
       if (map[i].type == ISFUNC && map[i].function == func)
        {
-         map[i].function = (Function *)NULL;
+         map[i].function = (rl_command_func_t *)NULL;
          rval = 1;
        }
     }
@@ -186,10 +186,10 @@ rl_unbind_function_in_map (func, map)
 
 int
 rl_unbind_command_in_map (command, map)
-     char *command;
+     const char *command;
      Keymap map;
 {
-  Function *func;
+  rl_command_func_t *func;
 
   func = rl_named_function (command);
   if (func == 0)
@@ -202,8 +202,8 @@ rl_unbind_command_in_map (command, map)
    place to do bindings is in MAP. */
 int
 rl_set_key (keyseq, function, map)
-     char *keyseq;
-     Function *function;
+     const char *keyseq;
+     rl_command_func_t *function;
      Keymap map;
 {
   return (rl_generic_bind (ISFUNC, keyseq, (char *)function, map));
@@ -214,7 +214,7 @@ rl_set_key (keyseq, function, map)
    necessary.  The initial place to do bindings is in MAP. */
 int
 rl_macro_bind (keyseq, macro, map)
-     char *keyseq, *macro;
+     const char *keyseq, *macro;
      Keymap map;
 {
   char *macro_keys;
@@ -239,7 +239,8 @@ rl_macro_bind (keyseq, macro, map)
 int
 rl_generic_bind (type, keyseq, data, map)
      int type;
-     char *keyseq, *data;
+     const char *keyseq;
+     char *data;
      Keymap map;
 {
   char *keys;
@@ -309,7 +310,8 @@ rl_generic_bind (type, keyseq, data, map)
    non-zero if there was an error parsing SEQ. */
 int
 rl_translate_keyseq (seq, array, len)
-     char *seq, *array;
+     const char *seq;
+     char *array;
      int *len;
 {
   register int i, c, l, temp;
@@ -513,9 +515,9 @@ _rl_untranslate_macro_value (seq)
 /* Return a pointer to the function that STRING represents.
    If STRING doesn't have a matching function, then a NULL pointer
    is returned. */
-Function *
+rl_command_func_t *
 rl_named_function (string)
-     char *string;
+     const char *string;
 {
   register int i;
 
@@ -524,7 +526,7 @@ rl_named_function (string)
   for (i = 0; funmap[i]; i++)
     if (_rl_stricmp (funmap[i]->name, string) == 0)
       return (funmap[i]->function);
-  return ((Function *)NULL);
+  return ((rl_command_func_t *)NULL);
 }
 
 /* Return the function (or macro) definition which would be invoked via
@@ -532,9 +534,9 @@ rl_named_function (string)
    used.  TYPE, if non-NULL, is a pointer to an int which will receive the
    type of the object pointed to.  One of ISFUNC (function), ISKMAP (keymap),
    or ISMACR (macro). */
-Function *
+rl_command_func_t *
 rl_function_of_keyseq (keyseq, map, type)
-     char *keyseq;
+     const char *keyseq;
      Keymap map;
      int *type;
 {
@@ -585,14 +587,14 @@ rl_function_of_keyseq (keyseq, map, type)
          return (map[ic].function);
        }
     }
-  return ((Function *) NULL);
+  return ((rl_command_func_t *) NULL);
 }
 
 /* The last key bindings file read. */
 static char *last_readline_init_file = (char *)NULL;
 
 /* The file we're currently reading key bindings from. */
-static char *current_readline_init_file;
+static const char *current_readline_init_file;
 static int current_readline_init_include_level;
 static int current_readline_init_lineno;
 
@@ -659,7 +661,7 @@ rl_re_read_init_file (count, ignore)
      int count, ignore;
 {
   int r;
-  r = rl_read_init_file ((char *)NULL);
+  r = rl_read_init_file ((const char *)NULL);
   rl_set_keymap_from_edit_mode ();
   return r;
 }
@@ -673,14 +675,14 @@ rl_re_read_init_file (count, ignore)
    otherwise errno is returned. */
 int
 rl_read_init_file (filename)
-     char *filename;
+     const char *filename;
 {
   /* Default the filename. */
   if (filename == 0)
     {
       filename = last_readline_init_file;
       if (filename == 0)
-        filename = get_env_value ("INPUTRC");
+        filename = sh_get_env_value ("INPUTRC");
       if (filename == 0)
        filename = DEFAULT_INPUTRC;
     }
@@ -698,7 +700,7 @@ rl_read_init_file (filename)
 
 static int
 _rl_read_init_file (filename, include_level)
-     char *filename;
+     const char *filename;
      int include_level;
 {
   register int i;
@@ -733,7 +735,7 @@ _rl_read_init_file (filename, include_level)
       /* Find the end of this line. */
       for (i = 0; line + i != end && line[i] != '\n'; i++);
 
-#if defined (__CYGWIN32__)
+#if defined (__CYGWIN__)
       /* ``Be liberal in what you accept.'' */
       if (line[i] == '\n' && line[i-1] == '\r')
        line[i - 1] = '\0';
@@ -780,10 +782,21 @@ _rl_init_file_error (msg)
 /*                                                                 */
 /* **************************************************************** */
 
+typedef int _rl_parser_func_t __P((char *));
+
+/* Things that mean `Control'. */
+const char *_rl_possible_control_prefixes[] = {
+  "Control-", "C-", "CTRL-", (const char *)NULL
+};
+
+const char *_rl_possible_meta_prefixes[] = {
+  "Meta", "M-", (const char *)NULL
+};
+
 /* Conditionals. */
 
 /* Calling programs set this to have their argv[0]. */
-char *rl_readline_name = "other";
+const char *rl_readline_name = "other";
 
 /* Stack of previous values of parsing_conditionalized_out. */
 static unsigned char *if_stack = (unsigned char *)NULL;
@@ -905,7 +918,8 @@ static int
 parser_include (args)
      char *args;
 {
-  char *old_init_file, *e;
+  const char *old_init_file;
+  char *e;
   int old_line_number, old_include_level, r;
 
   if (_rl_parsing_conditionalized_out)
@@ -918,7 +932,7 @@ parser_include (args)
   e = strchr (args, '\n');
   if (e)
     *e = '\0';
-  r = _rl_read_init_file (args, old_include_level + 1);
+  r = _rl_read_init_file ((const char *)args, old_include_level + 1);
 
   current_readline_init_file = old_init_file;
   current_readline_init_lineno = old_line_number;
@@ -929,14 +943,14 @@ parser_include (args)
   
 /* Associate textual names with actual functions. */
 static struct {
-  char *name;
-  Function *function;
+  const char *name;
+  _rl_parser_func_t *function;
 } parser_directives [] = {
   { "if", parser_if },
   { "endif", parser_endif },
   { "else", parser_else },
   { "include", parser_include },
-  { (char *)0x0, (Function *)0x0 }
+  { (char *)0x0, (_rl_parser_func_t *)0x0 }
 };
 
 /* Handle a parser directive.  STATEMENT is the line of the directive
@@ -1180,10 +1194,10 @@ rl_parse_and_bind (string)
   key = glean_key_from_name (kname);
 
   /* Add in control and meta bits. */
-  if (substring_member_of_array (string, possible_control_prefixes))
+  if (substring_member_of_array (string, _rl_possible_control_prefixes))
     key = CTRL (_rl_to_upper (key));
 
-  if (substring_member_of_array (string, possible_meta_prefixes))
+  if (substring_member_of_array (string, _rl_possible_meta_prefixes))
     key = META (key);
 
   /* Temporary.  Handle old-style keyname with macro-binding. */
@@ -1221,7 +1235,7 @@ rl_parse_and_bind (string)
 #define V_SPECIAL      0x1
 
 static struct {
-  char *name;
+  const char *name;
   int *value;
   int flags;
 } boolean_varlist [] = {
@@ -1265,7 +1279,7 @@ static void
 hack_special_boolean_var (i)
      int i;
 {
-  char *name;
+  const char *name;
 
   name = boolean_varlist[i].name;
 
@@ -1280,6 +1294,8 @@ hack_special_boolean_var (i)
     }
 }
 
+typedef int _rl_sv_func_t __P((const char *));
+
 /* These *must* correspond to the array indices for the appropriate
    string variable.  (Though they're not used right now.) */
 #define V_BELLSTYLE    0
@@ -1292,17 +1308,17 @@ hack_special_boolean_var (i)
 #define V_INT          2
 
 /* Forward declarations */
-static int sv_bell_style __P((char *));
-static int sv_combegin __P((char *));
-static int sv_compquery __P((char *));
-static int sv_editmode __P((char *));
-static int sv_isrchterm __P((char *));
-static int sv_keymap __P((char *));
+static int sv_bell_style __P((const char *));
+static int sv_combegin __P((const char *));
+static int sv_compquery __P((const char *));
+static int sv_editmode __P((const char *));
+static int sv_isrchterm __P((const char *));
+static int sv_keymap __P((const char *));
 
 static struct {
-  char *name;
+  const char *name;
   int flags;
-  Function *set_func;
+  _rl_sv_func_t *set_func;
 } string_varlist[] = {
   { "bell-style",      V_STRING,       sv_bell_style },
   { "comment-begin",   V_STRING,       sv_combegin },
@@ -1339,7 +1355,7 @@ bool_to_int (value)
 
 int
 rl_variable_bind (name, value)
-     char *name, *value;
+     const char *name, *value;
 {
   register int i;
   int  v;
@@ -1367,7 +1383,7 @@ rl_variable_bind (name, value)
 
 static int
 sv_editmode (value)
-     char *value;
+     const char *value;
 {
   if (_rl_strnicmp (value, "vi", 2) == 0)
     {
@@ -1388,7 +1404,7 @@ sv_editmode (value)
 
 static int
 sv_combegin (value)
-     char *value;
+     const char *value;
 {
   if (value && *value)
     {
@@ -1401,7 +1417,7 @@ sv_combegin (value)
 
 static int
 sv_compquery (value)
-     char *value;
+     const char *value;
 {
   int nval = 100;
 
@@ -1417,7 +1433,7 @@ sv_compquery (value)
 
 static int
 sv_keymap (value)
-     char *value;
+     const char *value;
 {
   Keymap kmap;
 
@@ -1434,7 +1450,7 @@ sv_keymap (value)
 
 static int
 sv_bell_style (value)
-     char *value;
+     const char *value;
 {
   if (value == 0 || *value == '\0')
     _SET_BELL (AUDIBLE_BELL);
@@ -1451,7 +1467,7 @@ sv_bell_style (value)
 
 static int
 sv_isrchterm (value)
-     char *value;
+     const char *value;
 {
   int beg, end, delim;
   char *v;
@@ -1489,7 +1505,7 @@ sv_isrchterm (value)
    For example, `Space' returns ' '. */
 
 typedef struct {
-  char *name;
+  const char *name;
   int value;
 } assoc_list;
 
@@ -1523,7 +1539,7 @@ glean_key_from_name (name)
 
 /* Auxiliary functions to manage keymaps. */
 static struct {
-  char *name;
+  const char *name;
   Keymap map;
 } keymap_names[] = {
   { "emacs", emacs_standard_keymap },
@@ -1541,12 +1557,12 @@ static struct {
 
 Keymap
 rl_get_keymap_by_name (name)
-     char *name;
+     const char *name;
 {
   register int i;
 
   for (i = 0; keymap_names[i].name; i++)
-    if (strcmp (name, keymap_names[i].name) == 0)
+    if (_rl_stricmp (name, keymap_names[i].name) == 0)
       return (keymap_names[i].map);
   return ((Keymap) NULL);
 }
@@ -1558,7 +1574,7 @@ rl_get_keymap_name (map)
   register int i;
   for (i = 0; keymap_names[i].name; i++)
     if (map == keymap_names[i].map)
-      return (keymap_names[i].name);
+      return ((char *)keymap_names[i].name);
   return ((char *)NULL);
 }
   
@@ -1616,7 +1632,7 @@ void
 rl_list_funmap_names ()
 {
   register int i;
-  char **funmap_names;
+  const char **funmap_names;
 
   funmap_names = rl_funmap_names ();
 
@@ -1706,7 +1722,7 @@ _rl_get_keyname (key)
    sequences that are used to invoke FUNCTION in MAP. */
 char **
 rl_invoking_keyseqs_in_map (function, map)
-     Function *function;
+     rl_command_func_t *function;
      Keymap map;
 {
   register int key;
@@ -1806,7 +1822,7 @@ rl_invoking_keyseqs_in_map (function, map)
    sequences that can be used to invoke FUNCTION using the current keymap. */
 char **
 rl_invoking_keyseqs (function)
-     Function *function;
+     rl_command_func_t *function;
 {
   return (rl_invoking_keyseqs_in_map (function, _rl_keymap));
 }
@@ -1819,8 +1835,8 @@ rl_function_dumper (print_readably)
      int print_readably;
 {
   register int i;
-  char **names;
-  char *name;
+  const char **names;
+  const char *name;
 
   names = rl_funmap_names ();
 
@@ -1828,7 +1844,7 @@ rl_function_dumper (print_readably)
 
   for (i = 0; name = names[i]; i++)
     {
-      Function *function;
+      rl_command_func_t *function;
       char **invokers;
 
       function = rl_named_function (name);
@@ -1985,7 +2001,7 @@ rl_variable_dumper (print_readably)
      int print_readably;
 {
   int i;
-  char *kname;
+  const char *kname;
 
   for (i = 0; boolean_varlist[i].name; i++)
     {
@@ -2073,10 +2089,10 @@ rl_dump_variables (count, key)
 /* Bind key sequence KEYSEQ to DEFAULT_FUNC if KEYSEQ is unbound. */
 void
 _rl_bind_if_unbound (keyseq, default_func)
-     char *keyseq;
-     Function *default_func;
+     const char *keyseq;
+     rl_command_func_t *default_func;
 {
-  Function *func;
+  rl_command_func_t *func;
 
   if (keyseq)
     {
@@ -2089,7 +2105,8 @@ _rl_bind_if_unbound (keyseq, default_func)
 /* Return non-zero if any members of ARRAY are a substring in STRING. */
 static int
 substring_member_of_array (string, array)
-     char *string, **array;
+     char *string;
+     const char **array;
 {
   while (*array)
     {
index 117235697e161627ba60ab81c394bd71cd904a5b..9ddf9f1b69c95d07c8266a0e9701355af607a5c7 100644 (file)
@@ -52,7 +52,7 @@
    text read in at each end of line.  The terminal is kept prepped and
    signals handled all the time, except during calls to the user's function. */
 
-VFunction *rl_linefunc;                /* user callback function */
+rl_vcpfunc_t *rl_linefunc;             /* user callback function */
 static int in_handler;         /* terminal_prepped and signals set? */
 
 /* Make sure the terminal is set up, initialize readline, and prompt. */
@@ -78,11 +78,10 @@ _rl_callback_newline ()
 /* Install a readline handler, set up the terminal, and issue the prompt. */
 void
 rl_callback_handler_install (prompt, linefunc)
-     char *prompt;
-     VFunction *linefunc;
+     const char *prompt;
+     rl_vcpfunc_t *linefunc;
 {
-  rl_prompt = prompt;
-  rl_visible_prompt_length = rl_prompt ? rl_expand_prompt (rl_prompt) : 0;
+  rl_set_prompt (prompt);
   rl_linefunc = linefunc;
   _rl_callback_newline ();
 }
@@ -102,24 +101,33 @@ rl_callback_read_char ()
 
   eof = readline_internal_char ();
 
-  if (rl_done)
+  /* We loop in case some function has pushed input back with rl_execute_next. */
+  for (;;)
     {
-      line = readline_internal_teardown (eof);
+      if (rl_done)
+       {
+         line = readline_internal_teardown (eof);
 
-      (*rl_deprep_term_function) ();
+         (*rl_deprep_term_function) ();
 #if defined (HANDLE_SIGNALS)
-      rl_clear_signals ();
+         rl_clear_signals ();
 #endif
-      in_handler = 0;
-      (*rl_linefunc) (line);
-
-    /* If the user did not clear out the line, do it for him. */
-    if (rl_line_buffer[0])
-      _rl_init_line_state ();
-
-    /* Redisplay the prompt if readline_handler_{install,remove} not called. */
-      if (in_handler == 0 && rl_linefunc)
-       _rl_callback_newline ();
+         in_handler = 0;
+         (*rl_linefunc) (line);
+
+         /* If the user did not clear out the line, do it for him. */
+         if (rl_line_buffer[0])
+           _rl_init_line_state ();
+
+         /* Redisplay the prompt if readline_handler_{install,remove}
+            not called. */
+         if (in_handler == 0 && rl_linefunc)
+           _rl_callback_newline ();
+       }
+      if (rl_pending_input)
+       eof = readline_internal_char ();
+      else
+        break;
     }
 }
 
index 664c1e43368615080188589a33cddd1f4575541b..aec704d626537bd641bf56e0981cffac90a41b8f 100644 (file)
@@ -51,7 +51,7 @@
 #define meta_character_bit 0x080           /* x0000000, must be on. */
 #define largest_char 255                   /* Largest character value. */
 
-#define CTRL_CHAR(c) ((c) < control_character_threshold && (c) >= 0)
+#define CTRL_CHAR(c) ((c) < control_character_threshold && (((c) & 0x80) == 0))
 #define META_CHAR(c) ((c) > meta_character_threshold && (c) <= largest_char)
 
 #define CTRL(c) ((c) & control_character_mask)
diff --git a/lib/readline/compat.c b/lib/readline/compat.c
new file mode 100644 (file)
index 0000000..1f41559
--- /dev/null
@@ -0,0 +1,113 @@
+/* compat.c -- backwards compatibility functions. */
+
+/* Copyright (C) 2000 Free Software Foundation, Inc.
+
+   This file is part of the GNU Readline Library, a library for
+   reading lines of text with interactive input and history editing.
+
+   The GNU Readline Library 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.
+
+   The GNU Readline Library is distributed in the hope that it will be
+   useful, but WITHOUT ANY WARRANTY; without even the implied warranty
+   of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   The GNU General Public License is often shipped with GNU software, and
+   is generally kept in a file called COPYING or LICENSE.  If you do not
+   have a copy of the license, write to the Free Software Foundation,
+   59 Temple Place, Suite 330, Boston, MA 02111 USA. */
+#define READLINE_LIBRARY
+
+#if defined (HAVE_CONFIG_H)
+#  include <config.h>
+#endif
+
+#include <stdio.h>
+
+#include "rlstdc.h"
+#include "rltypedefs.h"
+
+extern void rl_free_undo_list __P((void));
+extern int rl_maybe_save_line __P((void));
+extern int rl_maybe_unsave_line __P((void));
+extern int rl_maybe_replace_line __P((void));
+
+extern int rl_crlf __P((void));
+extern int rl_ding __P((void));
+extern int rl_alphabetic __P((int));
+
+extern char **rl_completion_matches __P((const char *, rl_compentry_func_t *));
+extern char *rl_username_completion_function __P((const char *, int));
+extern char *rl_filename_completion_function __P((const char *, int));
+
+/* Provide backwards-compatible entry points for old function names. */
+
+void
+free_undo_list ()
+{
+  rl_free_undo_list ();
+}
+
+int
+maybe_replace_line ()
+{
+  return rl_maybe_replace_line ();
+}
+
+int
+maybe_save_line ()
+{
+  return rl_maybe_save_line ();
+}
+
+int
+maybe_unsave_line ()
+{
+  return rl_maybe_unsave_line ();
+}
+
+int
+ding ()
+{
+  return rl_ding ();
+}
+
+int
+crlf ()
+{
+  return rl_crlf ();
+}
+
+int
+alphabetic (c)
+     int c;
+{
+  return rl_alphabetic (c);
+}
+
+char **
+completion_matches (s, f)
+     const char *s;
+     rl_compentry_func_t *f;
+{
+  return rl_completion_matches (s, f);
+}
+
+char *
+username_completion_function (s, i)
+     const char *s;
+     int i;
+{
+  return rl_username_completion_function (s, i);
+}
+
+char *
+filename_completion_function (s, i)
+     const char *s;
+     int i;
+{
+  return rl_filename_completion_function (s, i);
+}
index fb48712a4e0684be4e59dd9fe3b13a1fcf1de605..927bd52bbeda996e1eb097329f7e51ac3ddf1277 100644 (file)
@@ -49,18 +49,6 @@ extern int errno;
 #endif /* !errno */
 
 #include <pwd.h>
-#if !defined (HAVE_GETPW_DECLS)
-extern struct passwd *getpwent ();
-#endif /* USG && !HAVE_GETPW_DECLS */
-
-/* ISC systems don't define getpwent() if _POSIX_SOURCE is defined. */
-#if defined (isc386) && defined (_POSIX_SOURCE)
-#  if defined (__STDC__)
-extern struct passwd *getpwent (void);
-#  else
-extern struct passwd *getpwent ();
-#  endif /* !__STDC__ */
-#endif /* isc386 && _POSIX_SOURCE */
 
 #include "posixdir.h"
 #include "posixstat.h"
@@ -79,6 +67,12 @@ typedef int QSFUNC (const void *, const void *);
 typedef int QSFUNC ();
 #endif
 
+/* Most systems don't declare getpwent in <pwd.h> if _POSIX_SOURCE is
+   defined. */
+#if !defined (HAVE_GETPW_DECLS) || defined (_POSIX_SOURCE)
+extern struct passwd *getpwent __P((void));
+#endif /* !HAVE_GETPW_DECLS || _POSIX_SOURCE */
+
 /* If non-zero, then this is the address of a function to call when
    completing a word would normally display the list of possible matches.
    This function is called instead of actually doing the display.
@@ -86,11 +80,7 @@ typedef int QSFUNC ();
    where MATCHES is the array of strings that matched, NUM_MATCHES is the
    number of strings in that array, and MAX_LENGTH is the length of the
    longest string in that array. */
-VFunction *rl_completion_display_matches_hook = (VFunction *)NULL;
-
-/* Forward declarations for functions defined and used in this file. */
-char *filename_completion_function __P((char *, int));
-char **completion_matches __P((char *, CPFunction *));
+rl_compdisp_func_t *rl_completion_display_matches_hook = (rl_compdisp_func_t *)NULL;
 
 #if defined (VISIBLE_STATS)
 #  if !defined (X_OK)
@@ -100,14 +90,13 @@ static int stat_char __P((char *));
 #endif
 
 static char *rl_quote_filename __P((char *, int, char *));
-static char *rl_strpbrk __P((char *, char *));
 
 static char **remove_duplicate_matches __P((char **));
 static void insert_match __P((char *, int, int, char *));
 static int append_to_match __P((char *, int, int));
 static void insert_all_matches __P((char **, int, char *));
 static void display_matches __P((char **));
-static int compute_lcd_of_matches __P((char **, int, char *));
+static int compute_lcd_of_matches __P((char **, int, const char *));
 
 /* **************************************************************** */
 /*                                                                 */
@@ -146,15 +135,17 @@ int rl_visible_stats = 0;
 /* If non-zero, then this is the address of a function to call when
    completing on a directory name.  The function is called with
    the address of a string (the current directory name) as an arg. */
-Function *rl_directory_completion_hook = (Function *)NULL;
+rl_icppfunc_t *rl_directory_completion_hook = (rl_icppfunc_t *)NULL;
+
+rl_icppfunc_t *rl_directory_rewrite_hook = (rl_icppfunc_t *)NULL;
 
 /* Non-zero means readline completion functions perform tilde expansion. */
 int rl_complete_with_tilde_expansion = 0;
 
 /* Pointer to the generator function for completion_matches ().
-   NULL means to use filename_completion_function (), the default filename
+   NULL means to use rl_filename_completion_function (), the default filename
    completer. */
-Function *rl_completion_entry_function = (Function *)NULL;
+rl_compentry_func_t *rl_completion_entry_function = (rl_compentry_func_t *)NULL;
 
 /* Pointer to alternative function to create matches.
    Function is called with TEXT, START, and END.
@@ -163,7 +154,7 @@ Function *rl_completion_entry_function = (Function *)NULL;
    If this function exists and returns NULL then call the value of
    rl_completion_entry_function to try to match, otherwise use the
    array of strings returned. */
-CPPFunction *rl_attempted_completion_function = (CPPFunction *)NULL;
+rl_completion_func_t *rl_attempted_completion_function = (rl_completion_func_t *)NULL;
 
 /* Non-zero means to suppress normal filename completion after the
    user-specified completion function has been called. */
@@ -182,29 +173,29 @@ int rl_completion_query_items = 100;
 /* The basic list of characters that signal a break between words for the
    completer routine.  The contents of this variable is what breaks words
    in the shell, i.e. " \t\n\"\\'`@$><=" */
-char *rl_basic_word_break_characters = " \t\n\"\\'`@$><=;|&{(";
+const char *rl_basic_word_break_characters = " \t\n\"\\'`@$><=;|&{(";
 
 /* List of basic quoting characters. */
-char *rl_basic_quote_characters = "\"'";
+const char *rl_basic_quote_characters = "\"'";
 
 /* The list of characters that signal a break between words for
    rl_complete_internal.  The default list is the contents of
    rl_basic_word_break_characters.  */
-char *rl_completer_word_break_characters = (char *)NULL;
+const char *rl_completer_word_break_characters = (const char *)NULL;
 
 /* List of characters which can be used to quote a substring of the line.
    Completion occurs on the entire substring, and within the substring
    rl_completer_word_break_characters are treated as any other character,
    unless they also appear within this list. */
-char *rl_completer_quote_characters = (char *)NULL;
+const char *rl_completer_quote_characters = (const char *)NULL;
 
 /* List of characters that should be quoted in filenames by the completer. */
-char *rl_filename_quote_characters = (char *)NULL;
+const char *rl_filename_quote_characters = (const char *)NULL;
 
 /* List of characters that are word break characters, but should be left
    in TEXT when it is passed to the completion function.  The shell uses
    this to help determine what kind of completing to do. */
-char *rl_special_prefixes = (char *)NULL;
+const char *rl_special_prefixes = (const char *)NULL;
 
 /* If non-zero, then disallow duplicates in the matches. */
 int rl_ignore_completion_duplicates = 1;
@@ -230,24 +221,24 @@ int rl_filename_quoting_desired = 1;
    the list of matches as required, but all elements of the array must be
    free()'d if they are deleted. The main intent of this function is
    to implement FIGNORE a la SunOS csh. */
-Function *rl_ignore_some_completions_function = (Function *)NULL;
+rl_compignore_func_t *rl_ignore_some_completions_function = (rl_compignore_func_t *)NULL;
 
 /* Set to a function to quote a filename in an application-specific fashion.
    Called with the text to quote, the type of match found (single or multiple)
    and a pointer to the quoting character to be used, which the function can
    reset if desired. */
-CPFunction *rl_filename_quoting_function = rl_quote_filename;
+rl_quote_func_t *rl_filename_quoting_function = rl_quote_filename;
          
 /* Function to call to remove quoting characters from a filename.  Called
    before completion is attempted, so the embedded quotes do not interfere
    with matching names in the file system.  Readline doesn't do anything
    with this; it's set only by applications. */
-CPFunction *rl_filename_dequoting_function = (CPFunction *)NULL;
+rl_dequote_func_t *rl_filename_dequoting_function = (rl_dequote_func_t *)NULL;
 
 /* Function to call to decide whether or not a word break character is
    quoted.  If a character is quoted, it does not break words for the
    completer. */
-Function *rl_char_is_quoted_p = (Function *)NULL;
+rl_linebuf_func_t *rl_char_is_quoted_p = (rl_linebuf_func_t *)NULL;
 
 /* Character appended to completed words when at the end of the line.  The
    default is a space. */
@@ -269,7 +260,7 @@ static int completion_changed_buffer;
 
 /* Complete the word at or before point.  You have supplied the function
    that does the initial simple matching selection algorithm (see
-   completion_matches ()).  The default is to do filename completion. */
+   rl_completion_matches ()).  The default is to do filename completion. */
 int
 rl_complete (ignore, invoking_key)
      int ignore, invoking_key;
@@ -305,27 +296,6 @@ rl_insert_completions (ignore, invoking_key)
 /*                                 */
 /************************************/
 
-/* Find the first occurrence in STRING1 of any character from STRING2.
-   Return a pointer to the character in STRING1. */
-static char *
-rl_strpbrk (string1, string2)
-     char *string1, *string2;
-{
-  register char *scan;
-
-  for (; *string1; string1++)
-    {
-      for (scan = string2; *scan; scan++)
-       {
-         if (*string1 == *scan)
-           {
-             return (string1);
-           }
-       }
-    }
-  return ((char *)NULL);
-}
-
 /* The user must press "y" or "n". Non-zero return means "y" pressed. */
 static int
 get_y_or_n ()
@@ -334,14 +304,17 @@ get_y_or_n ()
 
   for (;;)
     {
+      RL_SETSTATE(RL_STATE_MOREINPUT);
       c = rl_read_key ();
+      RL_UNSETSTATE(RL_STATE_MOREINPUT);
+
       if (c == 'y' || c == 'Y' || c == ' ')
        return (1);
       if (c == 'n' || c == 'N' || c == RUBOUT)
        return (0);
       if (c == ABORT_CHAR)
        _rl_abort_internal ();
-      ding ();
+      rl_ding ();
     }
 }
 
@@ -571,7 +544,11 @@ find_completion_word (fp, dp)
              continue;
            }
 
-         if (rl_line_buffer[scan] == '\\')
+         /* Shell-like semantics for single quotes -- don't allow backslash
+            to quote anything in single quotes, especially not the closing
+            quote.  If you don't like this, take out the check on the value
+            of quote_char. */
+         if (quote_char != '\'' && rl_line_buffer[scan] == '\\')
            {
              pass_next = 1;
              found_quote |= RL_QF_BACKSLASH;
@@ -671,7 +648,7 @@ static char **
 gen_completion_matches (text, start, end, our_func, found_quote, quote_char)
      char *text;
      int start, end;
-     Function *our_func;
+     rl_compentry_func_t *our_func;
      int found_quote, quote_char;
 {
   char **matches, *temp;
@@ -695,7 +672,7 @@ gen_completion_matches (text, start, end, our_func, found_quote, quote_char)
      filename dequoting function. */
   temp = (char *)NULL;
 
-  if (found_quote && our_func == (Function *)filename_completion_function &&
+  if (found_quote && our_func == rl_filename_completion_function &&
       rl_filename_dequoting_function)
     {
       /* delete single and double quotes */
@@ -703,7 +680,7 @@ gen_completion_matches (text, start, end, our_func, found_quote, quote_char)
       text = temp;     /* not freeing text is not a memory leak */
     }
 
-  matches = completion_matches (text, (CPFunction *)our_func);
+  matches = rl_completion_matches (text, our_func);
   FREE (temp);
   return matches;  
 }
@@ -775,7 +752,7 @@ static int
 compute_lcd_of_matches (match_list, matches, text)
      char **match_list;
      int matches;
-     char *text;
+     const char *text;
 {
   register int i, c1, c2, si;
   int low;             /* Count of max-matched characters. */
@@ -901,11 +878,11 @@ rl_display_match_list (matches, len, max)
 
   /* How many items of MAX length can we fit in the screen window? */
   max += 2;
-  limit = screenwidth / max;
-  if (limit != 1 && (limit * max == screenwidth))
+  limit = _rl_screenwidth / max;
+  if (limit != 1 && (limit * max == _rl_screenwidth))
     limit--;
 
-  /* Avoid a possible floating exception.  If max > screenwidth,
+  /* Avoid a possible floating exception.  If max > _rl_screenwidth,
      limit will be 0 and a divide-by-zero fault will result. */
   if (limit == 0)
     limit = 1;
@@ -921,7 +898,7 @@ rl_display_match_list (matches, len, max)
   if (rl_ignore_completion_duplicates == 0)
     qsort (matches + 1, len, sizeof (char *), (QSFUNC *)_rl_qsort_string_compare);
 
-  crlf ();
+  rl_crlf ();
 
   if (_rl_print_completions_horizontally == 0)
     {
@@ -943,7 +920,7 @@ rl_display_match_list (matches, len, max)
                }
              l += count;
            }
-         crlf ();
+         rl_crlf ();
        }
     }
   else
@@ -957,13 +934,13 @@ rl_display_match_list (matches, len, max)
          if (matches[i+1])
            {
              if (i && (limit > 1) && (i % limit) == 0)
-               crlf ();
+               rl_crlf ();
              else
                for (k = 0; k < max - printed_len; k++)
                  putc (' ', rl_outstream);
            }
        }
-      crlf ();
+      rl_crlf ();
     }
 }
 
@@ -992,9 +969,9 @@ display_matches (matches)
   if (matches[1] == 0)
     {
       temp = printable_part (matches[0]);
-      crlf ();
+      rl_crlf ();
       print_filename (temp, matches[0]);
-      crlf ();
+      rl_crlf ();
 
       rl_forced_update_display ();
       rl_display_fixed = 1;
@@ -1026,12 +1003,12 @@ display_matches (matches)
      see them all. */
   if (len >= rl_completion_query_items)
     {
-      crlf ();
+      rl_crlf ();
       fprintf (rl_outstream, "Display all %d possibilities? (y or n)", len);
       fflush (rl_outstream);
       if (get_y_or_n () == 0)
        {
-         crlf ();
+         rl_crlf ();
 
          rl_forced_update_display ();
          rl_display_fixed = 1;
@@ -1079,7 +1056,7 @@ make_quoted_replacement (match, mtype, qc)
          This also checks whether the common prefix of several
         matches needs to be quoted. */
       should_quote = rl_filename_quote_characters
-                       ? (rl_strpbrk (match, rl_filename_quote_characters) != 0)
+                       ? (_rl_strpbrk (match, rl_filename_quote_characters) != 0)
                        : 0;
 
       do_replace = should_quote ? mtype : NO_MATCH;
@@ -1232,11 +1209,12 @@ rl_complete_internal (what_to_do)
      int what_to_do;
 {
   char **matches;
-  Function *our_func;
+  rl_compentry_func_t *our_func;
   int start, end, delimiter, found_quote, i;
   char *text, *saved_line_buffer;
   char quote_char;
 
+  RL_SETSTATE(RL_STATE_COMPLETING);
   /* Only the completion entry function can change these. */
   rl_filename_completion_desired = 0;
   rl_filename_quoting_desired = 1;
@@ -1245,7 +1223,7 @@ rl_complete_internal (what_to_do)
   saved_line_buffer = rl_line_buffer ? savestring (rl_line_buffer) : (char *)NULL;
   our_func = rl_completion_entry_function
                ? rl_completion_entry_function
-               : (Function *)filename_completion_function;
+               : rl_filename_completion_function;
 
   /* We now look backwards for the start of a filename/variable word. */
   end = rl_point;
@@ -1266,27 +1244,23 @@ rl_complete_internal (what_to_do)
 
   if (matches == 0)
     {
-      ding ();
+      rl_ding ();
       FREE (saved_line_buffer);
+      RL_UNSETSTATE(RL_STATE_COMPLETING);
       return (0);
     }
 
-#if 0
-  /* If we are matching filenames, our_func will have been set to
-     filename_completion_function */
-  i = our_func == (Function *)filename_completion_function;
-#else
   /* If we are matching filenames, the attempted completion function will
      have set rl_filename_completion_desired to a non-zero value.  The basic
-     filename_completion_function does this. */
+     rl_filename_completion_function does this. */
   i = rl_filename_completion_desired;
-#endif
 
   if (postprocess_matches (&matches, i) == 0)
     {
-      ding ();
+      rl_ding ();
       FREE (saved_line_buffer);
       completion_changed_buffer = 0;
+      RL_UNSETSTATE(RL_STATE_COMPLETING);
       return (0);
     }
 
@@ -1314,7 +1288,7 @@ rl_complete_internal (what_to_do)
              break;
            }
          else if (rl_editing_mode != vi_mode)
-           ding ();    /* There are other matches remaining. */
+           rl_ding (); /* There are other matches remaining. */
        }
       else
        append_to_match (matches[0], delimiter, quote_char);
@@ -1331,8 +1305,9 @@ rl_complete_internal (what_to_do)
 
     default:
       fprintf (stderr, "\r\nreadline: bad value %d for what_to_do in rl_complete\n", what_to_do);
-      ding ();
+      rl_ding ();
       FREE (saved_line_buffer);
+      RL_UNSETSTATE(RL_STATE_COMPLETING);
       return 1;
     }
 
@@ -1345,6 +1320,7 @@ rl_complete_internal (what_to_do)
       free (saved_line_buffer);
     }
 
+  RL_UNSETSTATE(RL_STATE_COMPLETING);
   return 0;
 }
 
@@ -1367,9 +1343,9 @@ rl_complete_internal (what_to_do)
      when there are no more matches.
  */
 char **
-completion_matches (text, entry_function)
-     char *text;
-     CPFunction *entry_function;
+rl_completion_matches (text, entry_function)
+     const char *text;
+     rl_compentry_func_t *entry_function;
 {
   /* Number of slots in match_list. */
   int match_list_size;
@@ -1414,8 +1390,8 @@ completion_matches (text, entry_function)
    TEXT contains a partial username preceded by a random
    character (usually `~').  */
 char *
-username_completion_function (text, state)
-     char *text;
+rl_username_completion_function (text, state)
+     const char *text;
      int state;
 {
 #if defined (__WIN32__) || defined (__OPENNT)
@@ -1471,8 +1447,8 @@ username_completion_function (text, state)
    because of all the pathnames that must be followed when looking up the
    completion for a command. */
 char *
-filename_completion_function (text, state)
-     char *text;
+rl_filename_completion_function (text, state)
+     const char *text;
      int state;
 {
   static DIR *directory = (DIR *)NULL;
@@ -1542,6 +1518,9 @@ filename_completion_function (text, state)
          dirname = temp;
        }
 
+      if (rl_directory_rewrite_hook)
+       (*rl_directory_rewrite_hook) (&dirname);
+
       if (rl_directory_completion_hook && (*rl_directory_completion_hook) (&dirname))
        {
          free (users_dirname);
@@ -1641,8 +1620,11 @@ filename_completion_function (text, state)
          else
            {
              dirlen = strlen (users_dirname);
-             temp = xmalloc (1 + dirlen + D_NAMLEN (entry));
+             temp = xmalloc (2 + dirlen + D_NAMLEN (entry));
              strcpy (temp, users_dirname);
+             /* Make sure that temp has a trailing slash here. */
+             if (users_dirname[dirlen - 1] != '/')
+               temp[dirlen++] = '/';
            }
 
          strcpy (temp + dirlen, entry->d_name);
@@ -1667,7 +1649,7 @@ int
 rl_menu_complete (count, ignore)
      int count, ignore;
 {
-  Function *our_func;
+  rl_compentry_func_t *our_func;
   int matching_filenames, found_quote;
 
   static char *orig_text;
@@ -1697,7 +1679,7 @@ rl_menu_complete (count, ignore)
 
       our_func = rl_completion_entry_function
                        ? rl_completion_entry_function
-                       : (Function *)filename_completion_function;
+                       : rl_filename_completion_function;
 
       /* We now look backwards for the start of a filename/variable word. */
       orig_end = rl_point;
@@ -1716,19 +1698,14 @@ rl_menu_complete (count, ignore)
       matches = gen_completion_matches (orig_text, orig_start, orig_end,
                                        our_func, found_quote, quote_char);
 
-#if 0
-      /* If we are matching filenames, our_func will have been set to
-        filename_completion_function */
-      matching_filenames = our_func == (Function *)filename_completion_function;
-#else
       /* If we are matching filenames, the attempted completion function will
         have set rl_filename_completion_desired to a non-zero value.  The basic
-        filename_completion_function does this. */
+        rl_filename_completion_function does this. */
       matching_filenames = rl_filename_completion_desired;
-#endif
+
       if (matches == 0 || postprocess_matches (&matches, matching_filenames) == 0)
        {
-         ding ();
+         rl_ding ();
          FREE (matches);
          matches = (char **)0;
          FREE (orig_text);
@@ -1749,7 +1726,7 @@ rl_menu_complete (count, ignore)
 
   if (matches == 0 || match_list_size == 0) 
     {
-      ding ();
+      rl_ding ();
       FREE (matches);
       matches = (char **)0;
       completion_changed_buffer = 0;
@@ -1762,7 +1739,7 @@ rl_menu_complete (count, ignore)
 
   if (match_list_index == 0 && match_list_size > 1)
     {
-      ding ();
+      rl_ding ();
       insert_match (orig_text, orig_start, MULT_MATCH, &quote_char);
     }
   else
index 4487004a02759b6f938ff1e7c324180a2682f43a..cb1c50000a3f9f1ecbff1fc6a66e9a593b63b5f9 100644 (file)
@@ -59,7 +59,7 @@ extern char *strchr (), *strrchr ();
 #endif /* !strchr && !__STDC__ */
 
 #if defined (HACK_TERMCAP_MOTION)
-extern char *term_forward_char;
+extern char *_rl_term_forward_char;
 #endif
 
 static void update_line __P((char *, char *, int, int, int, int));
@@ -103,7 +103,7 @@ static int inv_lbsize, vis_lbsize;
    RL_DISPLAY_FIXED variable.  This is good for efficiency. */
 
 /* Application-specific redisplay function. */
-VFunction *rl_redisplay_function = rl_redisplay;
+rl_voidfunc_t *rl_redisplay_function = rl_redisplay;
 
 /* Global variables declared here. */
 /* What YOU turn on when you have handled all redisplay yourself. */
@@ -142,27 +142,40 @@ static int forced_display;
 /* Default and initial buffer size.  Can grow. */
 static int line_size = 1024;
 
+/* Variables to keep track of the expanded prompt string, which may
+   include invisible characters. */
+
 static char *local_prompt, *local_prompt_prefix;
-static int visible_length, prefix_length;
+static int prompt_visible_length, prompt_prefix_length;
 
 /* The number of invisible characters in the line currently being
    displayed on the screen. */
 static int visible_wrap_offset;
 
-/* static so it can be shared between rl_redisplay and update_line */
+/* The number of invisible characters in the prompt string.  Static so it
+   can be shared between rl_redisplay and update_line */
 static int wrap_offset;
 
-/* The index of the last invisible_character in the prompt string. */
-static int last_invisible;
+/* The index of the last invisible character in the prompt string. */
+static int prompt_last_invisible;
 
 /* The length (buffer offset) of the first line of the last (possibly
    multi-line) buffer displayed on the screen. */
 static int visible_first_line_len;
 
+/* Number of invisible characters on the first physical line of the prompt.
+   Only valid when the number of physical characters in the prompt exceeds
+   (or is equal to) _rl_screenwidth. */
+static int prompt_invis_chars_first_line;
+
+static int prompt_last_screen_line;
+
 /* Expand the prompt string S and return the number of visible
    characters in *LP, if LP is not null.  This is currently more-or-less
    a placeholder for expansion.  LIP, if non-null is a place to store the
-   index of the last invisible character in the returned string. */
+   index of the last invisible character in the returned string. NIFLP,
+   if non-zero, is a place to store the number of invisible characters in
+   the first prompt line. */
 
 /* Current implementation:
        \001 (^A) start non-visible characters
@@ -172,12 +185,12 @@ static int visible_first_line_len;
    \002 are assumed to be `visible'. */        
 
 static char *
-expand_prompt (pmt, lp, lip)
+expand_prompt (pmt, lp, lip, niflp)
      char *pmt;
-     int *lp, *lip;
+     int *lp, *lip, *niflp;
 {
   char *r, *ret, *p;
-  int l, rl, last, ignoring;
+  int l, rl, last, ignoring, ninvis, invfl;
 
   /* Short-circuit if we can. */
   if (strchr (pmt, RL_PROMPT_START_IGNORE) == 0)
@@ -190,8 +203,10 @@ expand_prompt (pmt, lp, lip)
 
   l = strlen (pmt);
   r = ret = xmalloc (l + 1);
-  
-  for (rl = ignoring = last = 0, p = pmt; p && *p; p++)
+
+  invfl = 0;   /* invisible chars in first line of prompt */
+
+  for (rl = ignoring = last = ninvis = 0, p = pmt; p && *p; p++)
     {
       /* This code strips the invisible character string markers
         RL_PROMPT_START_IGNORE and RL_PROMPT_END_IGNORE */
@@ -211,14 +226,23 @@ expand_prompt (pmt, lp, lip)
          *r++ = *p;
          if (!ignoring)
            rl++;
+         else
+           ninvis++;
+         if (rl == _rl_screenwidth)
+           invfl = ninvis;
        }
     }
 
+  if (rl < _rl_screenwidth)
+    invfl = ninvis;
+
   *r = '\0';
   if (lp)
     *lp = rl;
   if (lip)
     *lip = last;
+  if (niflp)
+    *niflp = invfl;
   return ret;
 }
 
@@ -230,7 +254,7 @@ _rl_strip_prompt (pmt)
 {
   char *ret;
 
-  ret = expand_prompt (pmt, (int *)NULL, (int *)NULL);
+  ret = expand_prompt (pmt, (int *)NULL, (int *)NULL, (int *)NULL);
   return ret;
 }
 
@@ -242,8 +266,8 @@ _rl_strip_prompt (pmt)
  *               (portion after the final newline)
  * local_prompt_prefix = portion before last newline of rl_display_prompt,
  *                      expanded via expand_prompt
- * visible_length = number of visible characters in local_prompt
- * prefix_length = number of visible characters in local_prompt_prefix
+ * prompt_visible_length = number of visible characters in local_prompt
+ * prompt_prefix_length = number of visible characters in local_prompt_prefix
  *
  * This function is called once per call to readline().  It may also be
  * called arbitrarily to expand the primary prompt.
@@ -259,12 +283,11 @@ rl_expand_prompt (prompt)
   int c;
 
   /* Clear out any saved values. */
-  if (local_prompt)
-    free (local_prompt);
-  if (local_prompt_prefix)
-    free (local_prompt_prefix);
+  FREE (local_prompt);
+  FREE (local_prompt_prefix);
+
   local_prompt = local_prompt_prefix = (char *)0;
-  last_invisible = visible_length = 0;
+  prompt_last_invisible = prompt_visible_length = 0;
 
   if (prompt == 0 || *prompt == 0)
     return (0);
@@ -272,22 +295,28 @@ rl_expand_prompt (prompt)
   p = strrchr (prompt, '\n');
   if (!p)
     {
-      /* The prompt is only one line. */
-      local_prompt = expand_prompt (prompt, &visible_length, &last_invisible);
+      /* The prompt is only one logical line, though it might wrap. */
+      local_prompt = expand_prompt (prompt, &prompt_visible_length,
+                                           &prompt_last_invisible,
+                                           &prompt_invis_chars_first_line);
       local_prompt_prefix = (char *)0;
-      return (visible_length);
+      return (prompt_visible_length);
     }
   else
     {
       /* The prompt spans multiple lines. */
       t = ++p;
-      local_prompt = expand_prompt (p, &visible_length, &last_invisible);
+      local_prompt = expand_prompt (p, &prompt_visible_length,
+                                      &prompt_last_invisible,
+                                      &prompt_invis_chars_first_line);
       c = *t; *t = '\0';
       /* The portion of the prompt string up to and including the
         final newline is now null-terminated. */
-      local_prompt_prefix = expand_prompt (prompt, &prefix_length, (int *)NULL);
+      local_prompt_prefix = expand_prompt (prompt, &prompt_prefix_length,
+                                                  (int *)NULL,
+                                                  &prompt_invis_chars_first_line);
       *t = c;
-      return (prefix_length);
+      return (prompt_prefix_length);
     }
 }
 
@@ -399,7 +428,7 @@ rl_redisplay ()
          out += local_len;
        }
       line[out] = '\0';
-      wrap_offset = local_len - visible_length;
+      wrap_offset = local_len - prompt_visible_length;
     }
   else
     {
@@ -432,7 +461,7 @@ rl_redisplay ()
       strncpy (line + out,  prompt_this_line, pmtlen);
       out += pmtlen;
       line[out] = '\0';
-      wrap_offset = 0;
+      wrap_offset = prompt_invis_chars_first_line = 0;
     }
 
 #define CHECK_INV_LBREAKS() \
@@ -447,7 +476,7 @@ rl_redisplay ()
 #define CHECK_LPOS() \
       do { \
        lpos++; \
-       if (lpos >= screenwidth) \
+       if (lpos >= _rl_screenwidth) \
          { \
            if (newlines >= (inv_lbsize - 2)) \
              { \
@@ -463,21 +492,36 @@ rl_redisplay ()
   inv_lbreaks[newlines = 0] = 0;
   lpos = out - wrap_offset;
 
-  /* XXX - what if lpos is already >= screenwidth before we start drawing the
+  /* prompt_invis_chars_first_line is the number of invisible characters in
+     the first physical line of the prompt.
+     wrap_offset - prompt_invis_chars_first_line is the number of invis
+     chars on the second line. */
+
+  /* what if lpos is already >= _rl_screenwidth before we start drawing the
      contents of the command line? */
-  while (lpos >= screenwidth)
+  while (lpos >= _rl_screenwidth)
     {
-      /* XXX - possible fix from Darin Johnson <darin@acuson.com> for prompt
-        string with invisible characters that is longer than the screen
-        width.  XXX - this doesn't work right if invisible characters have
-        to be put on the second screen line -- it adds too much (the number
-        of invisible chars after the screenwidth). */
-      temp = ((newlines + 1) * screenwidth) + ((newlines == 0) ? wrap_offset : 0);
+      /* fix from Darin Johnson <darin@acuson.com> for prompt string with
+         invisible characters that is longer than the screen width.  The
+         prompt_invis_chars_first_line variable could be made into an array
+         saying how many invisible characters there are per line, but that's
+         probably too much work for the benefit gained.  How many people have
+         prompts that exceed two physical lines? */
+      temp = ((newlines + 1) * _rl_screenwidth) +
+             ((newlines == 0) ? prompt_invis_chars_first_line : 0) +
+             ((newlines == 1) ? wrap_offset : 0);
 
       inv_lbreaks[++newlines] = temp;
-      lpos -= screenwidth;
+      lpos -= _rl_screenwidth;
     }
 
+  prompt_last_screen_line = newlines;
+
+  /* Draw the rest of the line (after the prompt) into invisible_line, keeping
+     track of where the cursor is (c_pos), the number of the line containing
+     the cursor (lb_linenum), the last line number (lb_botlin and inv_botlin).
+     It maintains an array of line breaks for display (inv_lbreaks).
+     This handles expanding tabs for display and displaying meta characters. */
   lb_linenum = 0;
   for (in = 0; in < rl_end; in++)
     {
@@ -503,9 +547,9 @@ rl_redisplay ()
            {
              sprintf (line + out, "\\%o", c);
 
-             if (lpos + 4 >= screenwidth)
+             if (lpos + 4 >= _rl_screenwidth)
                {
-                 temp = screenwidth - lpos;
+                 temp = _rl_screenwidth - lpos;
                  CHECK_INV_LBREAKS ();
                  inv_lbreaks[++newlines] = out + temp;
                  lpos = 4 - temp;
@@ -524,7 +568,7 @@ rl_redisplay ()
 #if defined (DISPLAY_TABS)
       else if (c == '\t')
        {
-         register int temp, newout;
+         register int newout;
 
 #if 0
          newout = (out | (int)7) + 1;
@@ -532,10 +576,10 @@ rl_redisplay ()
          newout = out + 8 - lpos % 8;
 #endif
          temp = newout - out;
-         if (lpos + temp >= screenwidth)
+         if (lpos + temp >= _rl_screenwidth)
            {
              register int temp2;
-             temp2 = screenwidth - lpos;
+             temp2 = _rl_screenwidth - lpos;
              CHECK_INV_LBREAKS ();
              inv_lbreaks[++newlines] = out + temp2;
              lpos = temp - temp2;
@@ -550,7 +594,7 @@ rl_redisplay ()
            }
        }
 #endif
-      else if (c == '\n' && _rl_horizontal_scroll_mode == 0 && term_up && *term_up)
+      else if (c == '\n' && _rl_horizontal_scroll_mode == 0 && _rl_term_up && *_rl_term_up)
        {
          line[out++] = '\0';   /* XXX - sentinel */
          CHECK_INV_LBREAKS ();
@@ -582,7 +626,8 @@ rl_redisplay ()
   inv_lbreaks[newlines+1] = out;
   cursor_linenum = lb_linenum;
 
-  /* C_POS == position in buffer where cursor should be placed. */
+  /* C_POS == position in buffer where cursor should be placed.
+     CURSOR_LINENUM == line number where the cursor should be placed. */
 
   /* PWP: now is when things get a bit hairy.  The visible and invisible
      line buffers are really multiple lines, which would wrap every
@@ -593,7 +638,7 @@ rl_redisplay ()
      otherwise, let long lines display in a single terminal line, and
      horizontally scroll it. */
 
-  if (_rl_horizontal_scroll_mode == 0 && term_up && *term_up)
+  if (_rl_horizontal_scroll_mode == 0 && _rl_term_up && *_rl_term_up)
     {
       int nleft, pos, changed_screen_line;
 
@@ -604,8 +649,8 @@ rl_redisplay ()
          /* If we have more than a screenful of material to display, then
             only display a screenful.  We should display the last screen,
             not the first.  */
-         if (out >= screenchars)
-           out = screenchars - 1;
+         if (out >= _rl_screenchars)
+           out = _rl_screenchars - 1;
 
          /* The first line is at character position 0 in the buffer.  The
             second and subsequent lines start at inv_lbreaks[N], offset by
@@ -635,7 +680,7 @@ rl_redisplay ()
                  (wrap_offset > visible_wrap_offset) &&
                  (_rl_last_c_pos < visible_first_line_len))
                {
-                 nleft = screenwidth + wrap_offset - _rl_last_c_pos;
+                 nleft = _rl_screenwidth + wrap_offset - _rl_last_c_pos;
                  if (nleft)
                    _rl_clear_to_eol (nleft);
                }
@@ -656,7 +701,7 @@ rl_redisplay ()
                  _rl_move_vert (linenum);
                  _rl_move_cursor_relative (0, tt);
                  _rl_clear_to_eol
-                   ((linenum == _rl_vis_botlin) ? strlen (tt) : screenwidth);
+                   ((linenum == _rl_vis_botlin) ? strlen (tt) : _rl_screenwidth);
                }
            }
          _rl_vis_botlin = inv_botlin;
@@ -667,7 +712,7 @@ rl_redisplay ()
          if (changed_screen_line)
            {
              _rl_move_vert (cursor_linenum);
-             /* If we moved up to the line with the prompt using term_up,
+             /* If we moved up to the line with the prompt using _rl_term_up,
                 the physical cursor position on the screen stays the same,
                 but the buffer position needs to be adjusted to account
                 for invisible characters. */
@@ -680,15 +725,15 @@ rl_redisplay ()
             the characters from the current cursor position.  But we
             only need to reprint it if the cursor is before the last
             invisible character in the prompt string. */
-         nleft = visible_length + wrap_offset;
+         nleft = prompt_visible_length + wrap_offset;
          if (cursor_linenum == 0 && wrap_offset > 0 && _rl_last_c_pos > 0 &&
-             _rl_last_c_pos <= last_invisible && local_prompt)
+             _rl_last_c_pos <= prompt_last_invisible && local_prompt)
            {
 #if defined (__MSDOS__)
              putc ('\r', rl_outstream);
 #else
-             if (term_cr)
-               tputs (term_cr, 1, _rl_output_character_function);
+             if (_rl_term_cr)
+               tputs (_rl_term_cr, 1, _rl_output_character_function);
 #endif
              _rl_output_some_chars (local_prompt, nleft);
              _rl_last_c_pos = nleft;
@@ -727,11 +772,11 @@ rl_redisplay ()
 
       /* The number of characters that will be displayed before the cursor. */
       ndisp = c_pos - wrap_offset;
-      nleft  = visible_length + wrap_offset;
+      nleft  = prompt_visible_length + wrap_offset;
       /* Where the new cursor position will be on the screen.  This can be
         longer than SCREENWIDTH; if it is, lmargin will be adjusted. */
       phys_c_pos = c_pos - (last_lmargin ? last_lmargin : wrap_offset);
-      t = screenwidth / 3;
+      t = _rl_screenwidth / 3;
 
       /* If the number of characters had already exceeded the screenwidth,
         last_lmargin will be > 0. */
@@ -739,7 +784,7 @@ rl_redisplay ()
       /* If the number of characters to be displayed is more than the screen
         width, compute the starting offset so that the cursor is about
         two-thirds of the way across the screen. */
-      if (phys_c_pos > screenwidth - 2)
+      if (phys_c_pos > _rl_screenwidth - 2)
        {
          lmargin = c_pos - (2 * t);
          if (lmargin < 0)
@@ -749,7 +794,7 @@ rl_redisplay ()
          if (wrap_offset && lmargin > 0 && lmargin < nleft)
            lmargin = nleft;
        }
-      else if (ndisp < screenwidth - 2)                /* XXX - was -1 */
+      else if (ndisp < _rl_screenwidth - 2)            /* XXX - was -1 */
        lmargin = 0;
       else if (phys_c_pos < 1)
        {
@@ -771,7 +816,7 @@ rl_redisplay ()
         the whole line, indicate that with a special character at the
         right edge of the screen.  If LMARGIN is 0, we need to take the
         wrap offset into account. */
-      t = lmargin + M_OFFSET (lmargin, wrap_offset) + screenwidth;
+      t = lmargin + M_OFFSET (lmargin, wrap_offset) + _rl_screenwidth;
       if (t < out)
        line[t - 1] = '>';
 
@@ -781,8 +826,8 @@ rl_redisplay ()
          update_line (&visible_line[last_lmargin],
                       &invisible_line[lmargin],
                       0,
-                      screenwidth + visible_wrap_offset,
-                      screenwidth + (lmargin ? 0 : wrap_offset),
+                      _rl_screenwidth + visible_wrap_offset,
+                      _rl_screenwidth + (lmargin ? 0 : wrap_offset),
                       0);
 
          /* If the visible new line is shorter than the old, but the number
@@ -793,12 +838,12 @@ rl_redisplay ()
              (_rl_last_c_pos == out) &&
              t < visible_first_line_len)
            {
-             nleft = screenwidth - t;
+             nleft = _rl_screenwidth - t;
              _rl_clear_to_eol (nleft);
            }
          visible_first_line_len = out - lmargin - M_OFFSET (lmargin, wrap_offset);
-         if (visible_first_line_len > screenwidth)
-           visible_first_line_len = screenwidth;
+         if (visible_first_line_len > _rl_screenwidth)
+           visible_first_line_len = _rl_screenwidth;
 
          _rl_move_cursor_relative (c_pos - lmargin, &invisible_line[lmargin]);
          last_lmargin = lmargin;
@@ -808,11 +853,11 @@ rl_redisplay ()
 
   /* Swap visible and non-visible lines. */
   {
-    char *temp = visible_line;
+    char *vtemp = visible_line;
     int *itemp = vis_lbreaks, ntemp = vis_lbsize;
 
     visible_line = invisible_line;
-    invisible_line = temp;
+    invisible_line = vtemp;
 
     vis_lbreaks = inv_lbreaks;
     inv_lbreaks = itemp;
@@ -862,7 +907,7 @@ update_line (old, new, current_line, omax, nmax, inv_botlin)
      emulators.  In this calculation, TEMP is the physical screen
      position of the cursor. */
   temp = _rl_last_c_pos - W_OFFSET(_rl_last_v_pos, visible_wrap_offset);
-  if (temp == screenwidth && _rl_term_autowrap && !_rl_horizontal_scroll_mode
+  if (temp == _rl_screenwidth && _rl_term_autowrap && !_rl_horizontal_scroll_mode
       && _rl_last_v_pos == current_line - 1)
     {
       if (new[0])
@@ -939,13 +984,13 @@ update_line (old, new, current_line, omax, nmax, inv_botlin)
   lendiff = local_prompt ? strlen (local_prompt) : 0;
   od = ofd - old;      /* index of first difference in visible line */
   if (current_line == 0 && !_rl_horizontal_scroll_mode &&
-      term_cr && lendiff > visible_length && _rl_last_c_pos > 0 &&
-      od > lendiff && _rl_last_c_pos < last_invisible)
+      _rl_term_cr && lendiff > prompt_visible_length && _rl_last_c_pos > 0 &&
+      od >= lendiff && _rl_last_c_pos <= prompt_last_invisible)
     {
 #if defined (__MSDOS__)
       putc ('\r', rl_outstream);
 #else
-      tputs (term_cr, 1, _rl_output_character_function);
+      tputs (_rl_term_cr, 1, _rl_output_character_function);
 #endif
       _rl_output_some_chars (local_prompt, lendiff);
       _rl_last_c_pos = lendiff;
@@ -973,14 +1018,14 @@ update_line (old, new, current_line, omax, nmax, inv_botlin)
         use the terminal's capabilities.  If we're growing the number
         of lines, make sure we actually cause the new line to wrap
         around on auto-wrapping terminals. */
-      if (terminal_can_insert && ((2 * temp) >= lendiff || term_IC) && (!_rl_term_autowrap || !gl))
+      if (_rl_terminal_can_insert && ((2 * temp) >= lendiff || _rl_term_IC) && (!_rl_term_autowrap || !gl))
        {
-         /* If lendiff > visible_length and _rl_last_c_pos == 0 and
+         /* If lendiff > prompt_visible_length and _rl_last_c_pos == 0 and
             _rl_horizontal_scroll_mode == 1, inserting the characters with
-            term_IC or term_ic will screw up the screen because of the
+            _rl_term_IC or _rl_term_ic will screw up the screen because of the
             invisible characters.  We need to just draw them. */
          if (*ols && (!_rl_horizontal_scroll_mode || _rl_last_c_pos > 0 ||
-                       lendiff <= visible_length || !current_invis_chars))
+                       lendiff <= prompt_visible_length || !current_invis_chars))
            {
              insert_some_chars (nfd, lendiff);
              _rl_last_c_pos += lendiff;
@@ -1021,7 +1066,7 @@ update_line (old, new, current_line, omax, nmax, inv_botlin)
   else                         /* Delete characters from line. */
     {
       /* If possible and inexpensive to use terminal deletion, then do so. */
-      if (term_dc && (2 * temp) >= -lendiff)
+      if (_rl_term_dc && (2 * temp) >= -lendiff)
        {
          /* If all we're doing is erasing the invisible characters in the
             prompt string, don't bother.  It screws up the assumptions
@@ -1106,7 +1151,7 @@ rl_on_new_line_with_prompt ()
   /* Dissect prompt_last_line into screen lines. Note that here we have
      to use the real screenwidth. Readline's notion of screenwidth might be
      one less, see terminal.c. */
-  real_screenwidth = screenwidth + (_rl_term_autowrap ? 0 : 1);
+  real_screenwidth = _rl_screenwidth + (_rl_term_autowrap ? 0 : 1);
   _rl_last_v_pos = l / real_screenwidth;
   /* If the prompt length is a multiple of real_screenwidth, we don't know
      whether the cursor is at the end of the last line, or already at the
@@ -1151,7 +1196,7 @@ rl_forced_update_display ()
 void
 _rl_move_cursor_relative (new, data)
      int new;
-     char *data;
+     const char *data;
 {
   register int i;
 
@@ -1163,12 +1208,12 @@ _rl_move_cursor_relative (new, data)
   /* i == current physical cursor position. */
   i = _rl_last_c_pos - W_OFFSET(_rl_last_v_pos, visible_wrap_offset);
   if (new == 0 || CR_FASTER (new, _rl_last_c_pos) ||
-      (_rl_term_autowrap && i == screenwidth))
+      (_rl_term_autowrap && i == _rl_screenwidth))
     {
 #if defined (__MSDOS__)
       putc ('\r', rl_outstream);
 #else
-      tputs (term_cr, 1, _rl_output_character_function);
+      tputs (_rl_term_cr, 1, _rl_output_character_function);
 #endif /* !__MSDOS__ */
       _rl_last_c_pos = 0;
     }
@@ -1185,9 +1230,9 @@ _rl_move_cursor_relative (new, data)
         That kind of control is for people who don't know what the
         data is underneath the cursor. */
 #if defined (HACK_TERMCAP_MOTION)
-      if (term_forward_char)
+      if (_rl_term_forward_char)
        for (i = _rl_last_c_pos; i < new; i++)
-         tputs (term_forward_char, 1, _rl_output_character_function);
+         tputs (_rl_term_forward_char, 1, _rl_output_character_function);
       else
        for (i = _rl_last_c_pos; i < new; i++)
          putc (data[i], rl_outstream);
@@ -1208,7 +1253,7 @@ _rl_move_vert (to)
 {
   register int delta, i;
 
-  if (_rl_last_v_pos == to || to > screenheight)
+  if (_rl_last_v_pos == to || to > _rl_screenheight)
     return;
 
   if ((delta = to - _rl_last_v_pos) > 0)
@@ -1218,15 +1263,15 @@ _rl_move_vert (to)
 #if defined (__MSDOS__)
       putc ('\r', rl_outstream);
 #else
-      tputs (term_cr, 1, _rl_output_character_function);
+      tputs (_rl_term_cr, 1, _rl_output_character_function);
 #endif
       _rl_last_c_pos = 0;
     }
   else
     {                  /* delta < 0 */
-      if (term_up && *term_up)
+      if (_rl_term_up && *_rl_term_up)
        for (i = 0; i < -delta; i++)
-         tputs (term_up, 1, _rl_output_character_function);
+         tputs (_rl_term_up, 1, _rl_output_character_function);
     }
 
   _rl_last_v_pos = to;         /* Now TO is here */
@@ -1360,25 +1405,23 @@ rl_save_prompt ()
 {
   saved_local_prompt = local_prompt;
   saved_local_prefix = local_prompt_prefix;
-  saved_last_invisible = last_invisible;
-  saved_visible_length = visible_length;
+  saved_last_invisible = prompt_last_invisible;
+  saved_visible_length = prompt_visible_length;
 
   local_prompt = local_prompt_prefix = (char *)0;
-  last_invisible = visible_length = 0;
+  prompt_last_invisible = prompt_visible_length = 0;
 }
 
 void
 rl_restore_prompt ()
 {
-  if (local_prompt)
-    free (local_prompt);
-  if (local_prompt_prefix)
-    free (local_prompt_prefix);
+  FREE (local_prompt);
+  FREE (local_prompt_prefix);
 
   local_prompt = saved_local_prompt;
   local_prompt_prefix = saved_local_prefix;
-  last_invisible = saved_last_invisible;
-  visible_length = saved_visible_length;
+  prompt_last_invisible = saved_last_invisible;
+  prompt_visible_length = saved_visible_length;
 }
 
 char *
@@ -1408,8 +1451,8 @@ _rl_make_prompt_for_search (pchar)
       pmt[len] = pchar;
       pmt[len+1] = '\0';
       local_prompt = savestring (pmt);
-      last_invisible = saved_last_invisible;
-      visible_length = saved_visible_length + 1;
+      prompt_last_invisible = saved_last_invisible;
+      prompt_visible_length = saved_visible_length + 1;
     }
   return pmt;
 }
@@ -1436,8 +1479,8 @@ void
 _rl_clear_to_eol (count)
      int count;
 {
-  if (term_clreol)
-    tputs (term_clreol, 1, _rl_output_character_function);
+  if (_rl_term_clreol)
+    tputs (_rl_term_clreol, 1, _rl_output_character_function);
   else if (count)
     space_to_eol (count);
 }
@@ -1459,10 +1502,10 @@ space_to_eol (count)
 void
 _rl_clear_screen ()
 {
-  if (term_clrpag)
-    tputs (term_clrpag, 1, _rl_output_character_function);
+  if (_rl_term_clrpag)
+    tputs (_rl_term_clrpag, 1, _rl_output_character_function);
   else
-    crlf ();
+    rl_crlf ();
 }
 
 /* Insert COUNT characters from STRING to the output stream. */
@@ -1472,10 +1515,10 @@ insert_some_chars (string, count)
      int count;
 {
   /* If IC is defined, then we do not have to "enter" insert mode. */
-  if (term_IC)
+  if (_rl_term_IC)
     {
       char *buffer;
-      buffer = tgoto (term_IC, 0, count);
+      buffer = tgoto (_rl_term_IC, 0, count);
       tputs (buffer, 1, _rl_output_character_function);
       _rl_output_some_chars (string, count);
     }
@@ -1484,15 +1527,15 @@ insert_some_chars (string, count)
       register int i;
 
       /* If we have to turn on insert-mode, then do so. */
-      if (term_im && *term_im)
-       tputs (term_im, 1, _rl_output_character_function);
+      if (_rl_term_im && *_rl_term_im)
+       tputs (_rl_term_im, 1, _rl_output_character_function);
 
       /* If there is a special command for inserting characters, then
         use that first to open up the space. */
-      if (term_ic && *term_ic)
+      if (_rl_term_ic && *_rl_term_ic)
        {
          for (i = count; i--; )
-           tputs (term_ic, 1, _rl_output_character_function);
+           tputs (_rl_term_ic, 1, _rl_output_character_function);
        }
 
       /* Print the text. */
@@ -1500,8 +1543,8 @@ insert_some_chars (string, count)
 
       /* If there is a string to turn off insert mode, we had best use
         it now. */
-      if (term_ei && *term_ei)
-       tputs (term_ei, 1, _rl_output_character_function);
+      if (_rl_term_ei && *_rl_term_ei)
+       tputs (_rl_term_ei, 1, _rl_output_character_function);
     }
 }
 
@@ -1510,20 +1553,20 @@ static void
 delete_chars (count)
      int count;
 {
-  if (count > screenwidth)     /* XXX */
+  if (count > _rl_screenwidth) /* XXX */
     return;
 
-  if (term_DC && *term_DC)
+  if (_rl_term_DC && *_rl_term_DC)
     {
       char *buffer;
-      buffer = tgoto (term_DC, count, count);
+      buffer = tgoto (_rl_term_DC, count, count);
       tputs (buffer, count, _rl_output_character_function);
     }
   else
     {
-      if (term_dc && *term_dc)
+      if (_rl_term_dc && *_rl_term_dc)
        while (count--)
-         tputs (term_dc, 1, _rl_output_character_function);
+         tputs (_rl_term_dc, 1, _rl_output_character_function);
     }
 }
 
@@ -1543,7 +1586,7 @@ _rl_update_final ()
     }
   _rl_move_vert (_rl_vis_botlin);
   /* If we've wrapped lines, remove the final xterm line-wrap flag. */
-  if (full_lines && _rl_term_autowrap && (VIS_LLEN(_rl_vis_botlin) == screenwidth))
+  if (full_lines && _rl_term_autowrap && (VIS_LLEN(_rl_vis_botlin) == _rl_screenwidth))
     {
       char *last_line;
 #if 0
@@ -1551,12 +1594,12 @@ _rl_update_final ()
 #else
       last_line = &visible_line[vis_lbreaks[_rl_vis_botlin]];
 #endif
-      _rl_move_cursor_relative (screenwidth - 1, last_line);
+      _rl_move_cursor_relative (_rl_screenwidth - 1, last_line);
       _rl_clear_to_eol (0);
-      putc (last_line[screenwidth - 1], rl_outstream);
+      putc (last_line[_rl_screenwidth - 1], rl_outstream);
     }
   _rl_vis_botlin = 0;
-  crlf ();
+  rl_crlf ();
   fflush (rl_outstream);
   rl_display_fixed++;
 }
@@ -1565,12 +1608,12 @@ _rl_update_final ()
 static void
 cr ()
 {
-  if (term_cr)
+  if (_rl_term_cr)
     {
 #if defined (__MSDOS__)
       putc ('\r', rl_outstream);
 #else
-      tputs (term_cr, 1, _rl_output_character_function);
+      tputs (_rl_term_cr, 1, _rl_output_character_function);
 #endif
       _rl_last_c_pos = 0;
     }
@@ -1584,27 +1627,31 @@ redraw_prompt (t)
      char *t;
 {
   char *oldp, *oldl, *oldlprefix;
-  int oldlen, oldlast, oldplen;
+  int oldlen, oldlast, oldplen, oldninvis;
 
   /* Geez, I should make this a struct. */
   oldp = rl_display_prompt;
   oldl = local_prompt;
   oldlprefix = local_prompt_prefix;
-  oldlen = visible_length;
-  oldplen = prefix_length;
-  oldlast = last_invisible;
+  oldlen = prompt_visible_length;
+  oldplen = prompt_prefix_length;
+  oldlast = prompt_last_invisible;
+  oldninvis = prompt_invis_chars_first_line;
 
   rl_display_prompt = t;
-  local_prompt = expand_prompt (t, &visible_length, &last_invisible);
+  local_prompt = expand_prompt (t, &prompt_visible_length,
+                                  &prompt_last_invisible,
+                                  &prompt_invis_chars_first_line);
   local_prompt_prefix = (char *)NULL;
   rl_forced_update_display ();
 
   rl_display_prompt = oldp;
   local_prompt = oldl;
   local_prompt_prefix = oldlprefix;
-  visible_length = oldlen;
-  prefix_length = oldplen;
-  last_invisible = oldlast;
+  prompt_visible_length = oldlen;
+  prompt_prefix_length = oldplen;
+  prompt_last_invisible = oldlast;
+  prompt_invis_chars_first_line = oldninvis;
 }
       
 /* Redisplay the current line after a SIGWINCH is received. */
@@ -1615,31 +1662,31 @@ _rl_redisplay_after_sigwinch ()
 
   /* Clear the current line and put the cursor at column 0.  Make sure
      the right thing happens if we have wrapped to a new screen line. */
-  if (term_cr)
+  if (_rl_term_cr)
     {
 #if defined (__MSDOS__)
       putc ('\r', rl_outstream);
 #else
-      tputs (term_cr, 1, _rl_output_character_function);
+      tputs (_rl_term_cr, 1, _rl_output_character_function);
 #endif
       _rl_last_c_pos = 0;
 #if defined (__MSDOS__)
-      space_to_eol (screenwidth);
+      space_to_eol (_rl_screenwidth);
       putc ('\r', rl_outstream);
 #else
-      if (term_clreol)
-       tputs (term_clreol, 1, _rl_output_character_function);
+      if (_rl_term_clreol)
+       tputs (_rl_term_clreol, 1, _rl_output_character_function);
       else
        {
-         space_to_eol (screenwidth);
-         tputs (term_cr, 1, _rl_output_character_function);
+         space_to_eol (_rl_screenwidth);
+         tputs (_rl_term_cr, 1, _rl_output_character_function);
        }
 #endif
       if (_rl_last_v_pos > 0)
        _rl_move_vert (0);
     }
   else
-    crlf ();
+    rl_crlf ();
 
   /* Redraw only the last line of a multi-line prompt. */
   t = strrchr (rl_display_prompt, '\n');
@@ -1680,12 +1727,12 @@ _rl_current_display_line ()
   /* Find out whether or not there might be invisible characters in the
      editing buffer. */
   if (rl_display_prompt == rl_prompt)
-    nleft = _rl_last_c_pos - screenwidth - rl_visible_prompt_length;
+    nleft = _rl_last_c_pos - _rl_screenwidth - rl_visible_prompt_length;
   else
-    nleft = _rl_last_c_pos - screenwidth;
+    nleft = _rl_last_c_pos - _rl_screenwidth;
 
   if (nleft > 0)
-    ret = 1 + nleft / screenwidth;
+    ret = 1 + nleft / _rl_screenwidth;
   else
     ret = 0;
 
index 8a9c9413bc9fe0a0febd3e59d46b31a9c32801ee..90ace3cc1b954681a192002c8cd8c7d233e480c2 100644 (file)
@@ -18,7 +18,7 @@ This document describes the GNU History library, a programming tool that
 provides a consistent user interface for recalling lines of previously
 typed input.
 
-Copyright (C) 1988-1999 Free Software Foundation, Inc.
+Copyright (C) 1988-2001 Free Software Foundation, Inc.
 
 Permission is granted to make and distribute verbatim copies of
 this manual provided the copyright notice and this permission notice
@@ -73,7 +73,7 @@ except that this permission notice may be stated in a translation approved
 by the Free Software Foundation.
 
 @vskip 0pt plus 1filll
-Copyright @copyright{} 1988-1999 Free Software Foundation, Inc.
+Copyright @copyright{} 1988-2001 Free Software Foundation, Inc.
 @end titlepage
 
 @ifinfo
index 12fff2c9a75d7de97071a430ad71e3091c571573..e4ac50cb69a4a0eb68d0ee6e21863afcb73339ae 100644 (file)
@@ -1,7 +1,7 @@
 @ignore
 This file documents the user interface to the GNU History library.
 
-Copyright (C) 1988, 1991, 1994, 1996 Free Software Foundation, Inc.
+Copyright (C) 1988-2001 Free Software Foundation, Inc.
 Authored by Brian Fox and Chet Ramey.
 
 Permission is granted to make and distribute verbatim copies of this manual
@@ -27,9 +27,9 @@ into another language, under the above conditions for modified versions.
 @chapter Programming with GNU History
 
 This chapter describes how to interface programs that you write
-with the GNU History Library.
+with the @sc{gnu} History Library.
 It should be considered a technical guide.
-For information on the interactive use of GNU History, @pxref{Using
+For information on the interactive use of @sc{gnu} History, @pxref{Using
 History Interactively}.
 
 @menu
@@ -43,10 +43,10 @@ History Interactively}.
 @node Introduction to History
 @section Introduction to History
 
-Many programs read input from the user a line at a time.  The GNU History
-library is able to keep track of those lines, associate arbitrary data with
-each line, and utilize information from previous lines in composing new
-ones.
+Many programs read input from the user a line at a time.  The @sc{gnu}
+History library is able to keep track of those lines, associate arbitrary
+data with each line, and utilize information from previous lines in
+composing new ones. 
 
 The programmer using the History library has available functions
 for remembering lines on a history list, associating arbitrary data
@@ -80,9 +80,11 @@ The history list is an array of history entries.  A history entry is
 declared as follows:
 
 @example
+typedef void *histdata_t;
+
 typedef struct _hist_entry @{
   char *line;
-  char *data;
+  histdata_t data;
 @} HIST_ENTRY;
 @end example
 
@@ -95,12 +97,14 @@ HIST_ENTRY **the_history_list;
 The state of the History library is encapsulated into a single structure:
 
 @example
-/* A structure used to pass the current state of the history stuff around. */
+/*
+ * A structure used to pass around the current state of the history.
+ */
 typedef struct _hist_state @{
-  HIST_ENTRY **entries;         /* Pointer to the entries themselves. */
-  int offset;                   /* The location pointer within this array. */
-  int length;                   /* Number of elements within this array. */
-  int size;                     /* Number of slots allocated to this array. */
+  HIST_ENTRY **entries; /* Pointer to the entries themselves. */
+  int offset;           /* The location pointer within this array. */
+  int length;           /* Number of elements within this array. */
+  int size;             /* Number of slots allocated to this array. */
   int flags;
 @} HISTORY_STATE;
 @end example
@@ -112,7 +116,7 @@ stifled.
 @section History Functions
 
 This section describes the calling sequence for the various functions
-present in GNU History.
+exported by the @sc{gnu} History library.
 
 @menu
 * Initializing History and State Management::  Functions to call when you
@@ -139,12 +143,12 @@ This section describes functions used to initialize and manage
 the state of the History library when you want to use the history
 functions in your program.
 
-@deftypefun void using_history ()
+@deftypefun void using_history (void)
 Begin a session in which the history functions might be used.  This
 initializes the interactive variables.
 @end deftypefun
 
-@deftypefun {HISTORY_STATE *} history_get_history_state ()
+@deftypefun {HISTORY_STATE *} history_get_history_state (void)
 Return a structure describing the current state of the input history.
 @end deftypefun
 
@@ -158,7 +162,7 @@ Set the state of the history list according to @var{state}.
 These functions manage individual entries on the history list, or set
 parameters managing the list itself.
 
-@deftypefun void add_history (char *string)
+@deftypefun void add_history (const char *string)
 Place @var{string} at the end of the history list.  The associated data
 field (if any) is set to @code{NULL}.
 @end deftypefun
@@ -169,13 +173,13 @@ removed element is returned so you can free the line, data,
 and containing structure.
 @end deftypefun
 
-@deftypefun {HIST_ENTRY *} replace_history_entry (int which, char *line, char *data)
+@deftypefun {HIST_ENTRY *} replace_history_entry (int which, const char *line, histdata_t data)
 Make the history entry at offset @var{which} have @var{line} and @var{data}.
 This returns the old entry so you can dispose of the data.  In the case
 of an invalid @var{which}, a @code{NULL} pointer is returned.
 @end deftypefun
 
-@deftypefun void clear_history ()
+@deftypefun void clear_history (void)
 Clear the history list by deleting all the entries.
 @end deftypefun
 
@@ -183,13 +187,13 @@ Clear the history list by deleting all the entries.
 Stifle the history list, remembering only the last @var{max} entries.
 @end deftypefun
 
-@deftypefun int unstifle_history ()
+@deftypefun int unstifle_history (void)
 Stop stifling the history.  This returns the previous amount the
 history was stifled.  The value is positive if the history was
 stifled, negative if it wasn't.
 @end deftypefun
 
-@deftypefun int history_is_stifled ()
+@deftypefun int history_is_stifled (void)
 Returns non-zero if the history is stifled, zero if it is not.
 @end deftypefun
 
@@ -199,29 +203,30 @@ Returns non-zero if the history is stifled, zero if it is not.
 These functions return information about the entire history list or
 individual list entries.
 
-@deftypefun {HIST_ENTRY **} history_list ()
-Return a @code{NULL} terminated array of @code{HIST_ENTRY} which is the
+@deftypefun {HIST_ENTRY **} history_list (void)
+Return a @code{NULL} terminated array of @code{HIST_ENTRY *} which is the
 current input history.  Element 0 of this list is the beginning of time.
 If there is no history, return @code{NULL}.
 @end deftypefun
 
-@deftypefun int where_history ()
+@deftypefun int where_history (void)
 Returns the offset of the current history element.
 @end deftypefun
 
-@deftypefun {HIST_ENTRY *} current_history ()
+@deftypefun {HIST_ENTRY *} current_history (void)
 Return the history entry at the current position, as determined by
-@code{where_history ()}.  If there is no entry there, return a @code{NULL}
+@code{where_history()}.  If there is no entry there, return a @code{NULL}
 pointer.
 @end deftypefun
 
 @deftypefun {HIST_ENTRY *} history_get (int offset)
 Return the history entry at position @var{offset}, starting from
-@code{history_base}.  If there is no entry there, or if @var{offset}
+@code{history_base} (@pxref{History Variables}).
+If there is no entry there, or if @var{offset}
 is greater than the history length, return a @code{NULL} pointer.
 @end deftypefun
 
-@deftypefun int history_total_bytes ()
+@deftypefun int history_total_bytes (void)
 Return the number of bytes that the primary history entries are using.
 This function returns the sum of the lengths of all the lines in the
 history.
@@ -234,17 +239,19 @@ These functions allow the current index into the history list to be
 set or changed.
 
 @deftypefun int history_set_pos (int pos)
-Set the position in the history list to @var{pos}, an absolute index
+Set the current history offset to @var{pos}, an absolute index
 into the list.
+Returns 1 on success, 0 if @var{pos} is less than zero or greater
+than the number of history entries.
 @end deftypefun
 
-@deftypefun {HIST_ENTRY *} previous_history ()
+@deftypefun {HIST_ENTRY *} previous_history (void)
 Back up the current history offset to the previous history entry, and
 return a pointer to that entry.  If there is no previous entry, return
 a @code{NULL} pointer.
 @end deftypefun
 
-@deftypefun {HIST_ENTRY *} next_history ()
+@deftypefun {HIST_ENTRY *} next_history (void)
 Move the current history offset forward to the next history entry, and
 return the a pointer to that entry.  If there is no next entry, return
 a @code{NULL} pointer.
@@ -260,26 +267,28 @@ from the current history position.  The search may be @dfn{anchored},
 meaning that the string must match at the beginning of the history entry.
 @cindex anchored search
 
-@deftypefun int history_search (char *string, int direction)
-Search the history for @var{string}, starting at the current history
-offset.  If @var{direction} < 0, then the search is through previous entries,
-else through subsequent.  If @var{string} is found, then
+@deftypefun int history_search (const char *string, int direction)
+Search the history for @var{string}, starting at the current history offset.
+If @var{direction} is less than 0, then the search is through
+previous entries, otherwise through subsequent entries.
+If @var{string} is found, then
 the current history index is set to that history entry, and the value
 returned is the offset in the line of the entry where
 @var{string} was found.  Otherwise, nothing is changed, and a -1 is
 returned.
 @end deftypefun
 
-@deftypefun int history_search_prefix (char *string, int direction)
+@deftypefun int history_search_prefix (const char *string, int direction)
 Search the history for @var{string}, starting at the current history
 offset.  The search is anchored: matching lines must begin with
-@var{string}.  If @var{direction} < 0, then the search is through previous
-entries, else through subsequent.  If @var{string} is found, then the
+@var{string}.  If @var{direction} is less than 0, then the search is
+through previous entries, otherwise through subsequent entries.
+If @var{string} is found, then the
 current history index is set to that entry, and the return value is 0. 
 Otherwise, nothing is changed, and a -1 is returned. 
 @end deftypefun
 
-@deftypefun int history_search_pos (char *string, int direction, int pos)
+@deftypefun int history_search_pos (const char *string, int direction, int pos)
 Search for @var{string} in the history list, starting at @var{pos}, an
 absolute index into the list.  If @var{direction} is negative, the search
 proceeds backward from @var{pos}, otherwise forward.  Returns the absolute
@@ -292,41 +301,46 @@ index of the history element where @var{string} was found, or -1 otherwise.
 The History library can read the history from and write it to a file.
 This section documents the functions for managing a history file.
 
-@deftypefun int read_history (char *filename)
-Add the contents of @var{filename} to the history list, a line at a
-time.  If @var{filename} is @code{NULL}, then read from
-@file{~/.history}.  Returns 0 if successful, or errno if not.
+@deftypefun int read_history (const char *filename)
+Add the contents of @var{filename} to the history list, a line at a time.
+If @var{filename} is @code{NULL}, then read from @file{~/.history}.
+Returns 0 if successful, or @code{errno} if not.
 @end deftypefun
 
-@deftypefun int read_history_range (char *filename, int from, int to)
+@deftypefun int read_history_range (const char *filename, int from, int to)
 Read a range of lines from @var{filename}, adding them to the history list.
-Start reading at line @var{from} and end at @var{to}.  If
-@var{from} is zero, start at the beginning.  If @var{to} is less than
+Start reading at line @var{from} and end at @var{to}.
+If @var{from} is zero, start at the beginning.  If @var{to} is less than
 @var{from}, then read until the end of the file.  If @var{filename} is
 @code{NULL}, then read from @file{~/.history}.  Returns 0 if successful,
 or @code{errno} if not.
 @end deftypefun
 
-@deftypefun int write_history (char *filename)
+@deftypefun int write_history (const char *filename)
 Write the current history to @var{filename}, overwriting @var{filename}
-if necessary.  If @var{filename} is
-@code{NULL}, then write the history list to @file{~/.history}.  Values
-returned are as in @code{read_history ()}.
+if necessary.
+If @var{filename} is @code{NULL}, then write the history list to
+@file{~/.history}.
+Returns 0 on success, or @code{errno} on a read or write error.
 @end deftypefun
 
-@deftypefun int append_history (int nelements, char *filename)
+@deftypefun int append_history (int nelements, const char *filename)
 Append the last @var{nelements} of the history list to @var{filename}.
+If @var{filename} is @code{NULL}, then append to @file{~/.history}.
+Returns 0 on success, or @code{errno} on a read or write error.
 @end deftypefun
 
-@deftypefun int history_truncate_file (char *filename, int nlines)
+@deftypefun int history_truncate_file (const char *filename, int nlines)
 Truncate the history file @var{filename}, leaving only the last
 @var{nlines} lines.
+If @var{filename} is @code{NULL}, then @file{~/.history} is truncated.
+Returns 0 on success, or @code{errno} on failure.
 @end deftypefun
 
 @node History Expansion
 @subsection History Expansion
 
-These functions implement @code{csh}-like history expansion.
+These functions implement history expansion.
 
 @deftypefun int history_expand (char *string, char **output)
 Expand @var{string}, placing the result into @var{output}, a pointer
@@ -334,7 +348,7 @@ to a string (@pxref{History Interaction}).  Returns:
 @table @code
 @item 0
 If no expansions took place (or, if the only change in
-the text was the de-slashifying of the history expansion
+the text was the removal of escape characters preceding the history expansion
 character);
 @item 1
 if expansions did take place;
@@ -349,12 +363,7 @@ If an error ocurred in expansion, then @var{output} contains a descriptive
 error message.
 @end deftypefun
 
-@deftypefun {char *} history_arg_extract (int first, int last, char *string)
-Extract a string segment consisting of the @var{first} through @var{last}
-arguments present in @var{string}.  Arguments are broken up as in Bash.
-@end deftypefun
-
-@deftypefun {char *} get_history_event (char *string, int *cindex, int qchar)
+@deftypefun {char *} get_history_event (const char *string, int *cindex, int qchar)
 Returns the text of the history event beginning at @var{string} +
 @var{*cindex}.  @var{*cindex} is modified to point to after the event
 specifier.  At function entry, @var{cindex} points to the index into
@@ -363,18 +372,24 @@ is a character that is allowed to end the event specification in addition
 to the ``normal'' terminating characters.
 @end deftypefun
 
-@deftypefun {char **} history_tokenize (char *string)
+@deftypefun {char **} history_tokenize (const char *string)
 Return an array of tokens parsed out of @var{string}, much as the
-shell might.  The tokens are split on white space and on the
-characters @code{()<>;&|$}, and shell quoting conventions are
-obeyed.
+shell might.  The tokens are split on the characters in the
+@var{history_word_delimiters} variable,
+and shell quoting conventions are obeyed.
+@end deftypefun
+
+@deftypefun {char *} history_arg_extract (int first, int last, const char *string)
+Extract a string segment consisting of the @var{first} through @var{last}
+arguments present in @var{string}.  Arguments are split using
+@code{history_tokenize}.
 @end deftypefun
 
 @node History Variables
 @section History Variables
 
-This section describes the externally visible variables exported by
-the GNU History Library.
+This section describes the externally-visible variables exported by
+the @sc{gnu} History Library.
 
 @deftypevar int history_base
 The logical offset of the first entry in the history list.
@@ -384,13 +399,14 @@ The logical offset of the first entry in the history list.
 The number of entries currently stored in the history list.
 @end deftypevar
 
-@deftypevar int max_input_history
+@deftypevar int history_max_entries
 The maximum number of history entries.  This must be changed using
-@code{stifle_history ()}.
+@code{stifle_history()}.
 @end deftypevar
 
 @deftypevar char history_expansion_char
-The character that starts a history event.  The default is @samp{!}.
+The character that introduces a history event.  The default is @samp{!}.
+Setting this to 0 inhibits history expansion.
 @end deftypevar
 
 @deftypevar char history_subst_char
@@ -405,15 +421,20 @@ ignored, suppressing history expansion for the remainder of the line.
 This is disabled by default.
 @end deftypevar
 
+@deftypevar {char *} history_word_delimiters
+The characters that separate tokens for \fBhistory_tokenize()\fP.
+The default value is @code{" \t\n()<>;&|"}.
+@end deftypevar
+
 @deftypevar {char *} history_no_expand_chars
 The list of characters which inhibit history expansion if found immediately
-following @var{history_expansion_char}.  The default is whitespace and
-@samp{=}.
+following @var{history_expansion_char}.  The default is space, tab, newline,
+carriage return, and @samp{=}.
 @end deftypevar
 
 @deftypevar {char *} history_search_delimiter_chars
 The list of additional characters which can delimit a history search
-string, in addition to whitespace, @samp{:} and @samp{?} in the case of
+string, in addition to space, TAB, @samp{:} and @samp{?} in the case of
 a substring search.  The default is empty.
 @end deftypevar
 
@@ -422,24 +443,30 @@ If non-zero, single-quoted words are not scanned for the history expansion
 character.  The default value is 0.
 @end deftypevar
 
-@deftypevar {Function *} history_inhibit_expansion_function
+@deftypevar {rl_linebuf_func_t *} history_inhibit_expansion_function
 This should be set to the address of a function that takes two arguments:
-a @code{char *} (@var{string}) and an integer index into that string (@var{i}).
+a @code{char *} (@var{string})
+and an @code{int} index into that string (@var{i}).
 It should return a non-zero value if the history expansion starting at
 @var{string[i]} should not be performed; zero if the expansion should
 be done.
 It is intended for use by applications like Bash that use the history
 expansion character for additional purposes.
-By default, this variable is set to NULL.
+By default, this variable is set to @code{NULL}.
 @end deftypevar
 
 @node History Programming Example
 @section History Programming Example
 
-The following program demonstrates simple use of the GNU History Library.
+The following program demonstrates simple use of the @sc{gnu} History Library.
 
 @smallexample
-main ()
+#include <stdio.h>
+#include <readline/history.h>
+
+main (argc, argv)
+     int argc;
+     char **argv;
 @{
   char line[1024], *t;
   int len, done = 0;
index 5f75f5df490438294710cd52e5938c906413c52f..6926b26f5c9e479cf43d7aa612cbf1fdab056023 100644 (file)
@@ -38,9 +38,9 @@ For information on using the @sc{gnu} History Library in other programs,
 see the @sc{gnu} Readline Library Manual.
 @end ifset
 @ifclear BashFeatures
-This chapter describes how to use the GNU History Library interactively,
+This chapter describes how to use the @sc{gnu} History Library interactively,
 from a user's standpoint.  It should be considered a user's guide.  For
-information on using the GNU History Library in your own programs,
+information on using the @sc{gnu} History Library in your own programs,
 @pxref{Programming with GNU History}.
 @end ifclear
 
@@ -65,36 +65,36 @@ information on using the GNU History Library in your own programs,
 @cindex command history
 @cindex history list
 
-When the @samp{-o history} option to the @code{set} builtin
+When the @option{-o history} option to the @code{set} builtin
 is enabled (@pxref{The Set Builtin}),
-the shell provides access to the @var{command history},
+the shell provides access to the @dfn{command history},
 the list of commands previously typed.
-The value of the @code{HISTSIZE} shell variable is used as the
+The value of the @env{HISTSIZE} shell variable is used as the
 number of commands to save in a history list.
-The text of the last @code{$HISTSIZE}
+The text of the last @env{$HISTSIZE}
 commands (default 500) is saved.
 The shell stores each command in the history list prior to
 parameter and variable expansion
 but after history expansion is performed, subject to the
 values of the shell variables
-@code{HISTIGNORE} and @code{HISTCONTROL}.
+@env{HISTIGNORE} and @env{HISTCONTROL}.
 
 When the shell starts up, the history is initialized from the
-file named by the @code{HISTFILE} variable (default @file{~/.bash_history}).
-The file named by the value of @code{HISTFILE} is truncated, if
+file named by the @env{HISTFILE} variable (default @file{~/.bash_history}).
+The file named by the value of @env{HISTFILE} is truncated, if
 necessary, to contain no more than the number of lines specified by
-the value of the @code{HISTFILESIZE} variable.
+the value of the @env{HISTFILESIZE} variable.
 When an interactive shell exits, the last
-@code{$HISTSIZE} lines are copied from the history list to the file
-named by @code{$HISTFILE}.
+@env{$HISTSIZE} lines are copied from the history list to the file
+named by @env{$HISTFILE}.
 If the @code{histappend} shell option is set (@pxref{Bash Builtins}),
 the lines are appended to the history file,
 otherwise the history file is overwritten.
-If @code{HISTFILE}
+If @env{HISTFILE}
 is unset, or if the history file is unwritable, the history is
 not saved.  After saving the history, the history file is truncated
-to contain no more than @code{$HISTFILESIZE}
-lines.  If @code{HISTFILESIZE} is not set, no truncation is performed.
+to contain no more than @env{$HISTFILESIZE}
+lines.  If @env{HISTFILESIZE} is not set, no truncation is performed.
 
 The builtin command @code{fc} may be used to list or edit and re-execute
 a portion of the history list.
@@ -105,7 +105,7 @@ are available in each editing mode that provide access to the
 history list (@pxref{Commands For History}).
 
 The shell allows control over which commands are saved on the history
-list.  The @code{HISTCONTROL} and @code{HISTIGNORE}
+list.  The @env{HISTCONTROL} and @env{HISTIGNORE}
 variables may be set to cause the shell to save only a subset of the
 commands entered.
 The @code{cmdhist}
@@ -141,15 +141,15 @@ command beginning with that string) or as a number (an index into the
 history list, where a negative number is used as an offset from the
 current command number).  If @var{last} is not specified it is set to
 @var{first}.  If @var{first} is not specified it is set to the previous
-command for editing and @minus{}16 for listing.  If the @samp{-l} flag is
-given, the commands are listed on standard output.  The @samp{-n} flag
-suppresses the command numbers when listing.  The @samp{-r} flag
+command for editing and @minus{}16 for listing.  If the @option{-l} flag is
+given, the commands are listed on standard output.  The @option{-n} flag
+suppresses the command numbers when listing.  The @option{-r} flag
 reverses the order of the listing.  Otherwise, the editor given by
 @var{ename} is invoked on a file containing those commands.  If
 @var{ename} is not given, the value of the following variable expansion
 is used: @code{$@{FCEDIT:-$@{EDITOR:-vi@}@}}.  This says to use the
-value of the @code{FCEDIT} variable if set, or the value of the
-@code{EDITOR} variable if that is set, or @code{vi} if neither is set.
+value of the @env{FCEDIT} variable if set, or the value of the
+@env{EDITOR} variable if that is set, or @code{vi} if neither is set.
 When editing is complete, the edited commands are echoed and executed.
 
 In the second form, @var{command} is re-executed after each instance
@@ -170,7 +170,7 @@ history -ps @var{arg}
 @end example
 
 With no options, display the history list with line numbers.
-Lines prefixed with with a @samp{*} have been modified.
+Lines prefixed with a @samp{*} have been modified.
 An argument of @var{n} lists only the last @var{n} lines.
 Options, if supplied, have the following meanings:
 
@@ -211,10 +211,10 @@ the history list as a single entry.
 
 @end table
 
-When any of the @samp{-w}, @samp{-r}, @samp{-a}, or @samp{-n} options is
+When any of the @option{-w}, @option{-r}, @option{-a}, or @option{-n} options is
 used, if @var{filename}
 is given, then it is used as the history file.  If not, then
-the value of the @code{HISTFILE} variable is used.
+the value of the @env{HISTFILE} variable is used.
 
 @end table
 @end ifset
@@ -260,9 +260,9 @@ editing buffer for further modification.
 If Readline is being used, and the @code{histreedit}
 shell option is enabled, a failed history expansion will be
 reloaded into the Readline editing buffer for correction.
-The @samp{-p} option to the @code{history} builtin command
+The @option{-p} option to the @code{history} builtin command
 may be used to see what a history expansion will do before using it.
-The @samp{-s} option to the @code{history} builtin may be used to
+The @option{-s} option to the @code{history} builtin may be used to
 add commands to the end of the history list without actually executing
 them, so that they are available for subsequent recall.
 This is most useful in conjunction with Readline.
index 3122b6c6fad87946c0bc65d18d31da6197d88133..23d3073015bd43ea1fc4d8f2ef2f854133501e5c 100644 (file)
@@ -1,6 +1,6 @@
-@set EDITION 4.1
-@set VERSION 4.1
-@set UPDATED 2000 January 19
-@set UPDATE-MONTH January 2000
+@set EDITION 4.2-beta
+@set VERSION 4.2-beta
+@set UPDATED 2001 Mar 12
+@set UPDATE-MONTH Mar 2001
 
-@set LASTCHANGE Wed Jan 19 12:16:30 EST 2000
+@set LASTCHANGE Mon Mar 12 05:36:44 EST 2001
index 759f0eb3d40aac283bf244352a69614011c9a0c2..894c5163874223f472a9988aa927e5d0bd25b6c4 100644 (file)
@@ -18,7 +18,7 @@ This document describes the GNU Readline Library, a utility which aids
 in the consistency of user interface across discrete programs that need
 to provide a command line interface.
 
-Copyright (C) 1988-1999 Free Software Foundation, Inc.
+Copyright (C) 1988-2001 Free Software Foundation, Inc.
 
 Permission is granted to make and distribute verbatim copies of
 this manual provided the copyright notice and this permission notice
@@ -73,7 +73,7 @@ except that this permission notice may be stated in a translation approved
 by the Free Software Foundation.
 
 @vskip 0pt plus 1filll
-Copyright @copyright{} 1988-1999 Free Software Foundation, Inc.
+Copyright @copyright{} 1988-2001 Free Software Foundation, Inc.
 @end titlepage
 
 @ifinfo
index 51c340a99a2163bbeaf036661e408ba5e64fbc75..acc8d4d4297fae0ee6b7684e1a9ca79f4f60ed39 100644 (file)
@@ -8,7 +8,7 @@ This document describes the GNU Readline Library, a utility for aiding
 in the consitency of user interface across discrete programs that need
 to provide a command line interface.
 
-Copyright (C) 1988, 1994, 1996, 1998, 1999 Free Software Foundation, Inc.
+Copyright (C) 1988-2001 Free Software Foundation, Inc.
 
 Permission is granted to make and distribute verbatim copies of
 this manual provided the copyright notice and this permission notice
@@ -35,9 +35,9 @@ by the Foundation.
 @node Programming with GNU Readline
 @chapter Programming with GNU Readline
 
-This chapter describes the interface between the GNU Readline Library and
+This chapter describes the interface between the @sc{gnu} Readline Library and
 other programs.  If you are a programmer, and you wish to include the
-features found in GNU Readline
+features found in @sc{gnu} Readline
 such as completion, line editing, and interactive history manipulation
 in your own programs, this section is for you.
 
@@ -61,18 +61,20 @@ Many programs provide a command line interface, such as @code{mail},
 @code{ftp}, and @code{sh}.  For such programs, the default behaviour of
 Readline is sufficient.  This section describes how to use Readline in
 the simplest way possible, perhaps to replace calls in your code to
-@code{gets()} or @code{fgets ()}.
+@code{gets()} or @code{fgets()}.
 
 @findex readline
 @cindex readline, function
-The function @code{readline ()} prints a prompt and then reads and returns
-a single line of text from the user.  The line @code{readline}
-returns is allocated with @code{malloc ()}; you should @code{free ()}
-the line when you are done with it.  The declaration for @code{readline}
-in ANSI C is
+
+The function @code{readline()} prints a prompt @var{prompt}
+and then reads and returns a single line of text from the user.
+If @var{prompt} is @code{NULL} or the empty string, no prompt is displayed.
+The line @code{readline} returns is allocated with @code{malloc()};
+the caller should @code{free()} the line when it has finished with it.
+The declaration for @code{readline} in ANSI C is
 
 @example
-@code{char *readline (char *@var{prompt});}
+@code{char *readline (const char *@var{prompt});}
 @end example
 
 @noindent
@@ -90,7 +92,7 @@ line is empty at that point, then @code{(char *)NULL} is returned.
 Otherwise, the line is ended just as if a newline had been typed.
 
 If you want the user to be able to get at the line later, (with
-@key{C-p} for example), you must call @code{add_history ()} to save the
+@key{C-p} for example), you must call @code{add_history()} to save the
 line away in a @dfn{history} list of such lines.
 
 @example
@@ -102,7 +104,7 @@ For full details on the GNU History Library, see the associated manual.
 
 It is preferable to avoid saving empty lines on the history list, since
 users rarely have a burning need to reuse a blank line.  Here is
-a function which usefully replaces the standard @code{gets ()} library
+a function which usefully replaces the standard @code{gets()} library
 function, and has the advantage of no static buffer to overflow:
 
 @example
@@ -135,17 +137,17 @@ rl_gets ()
 This function gives the user the default behaviour of @key{TAB}
 completion: completion on file names.  If you do not want Readline to
 complete on filenames, you can change the binding of the @key{TAB} key
-with @code{rl_bind_key ()}.
+with @code{rl_bind_key()}.
 
 @example
-@code{int rl_bind_key (int @var{key}, int (*@var{function})());}
+@code{int rl_bind_key (int @var{key}, rl_command_func_t *@var{function});}
 @end example
 
-@code{rl_bind_key ()} takes two arguments: @var{key} is the character that
+@code{rl_bind_key()} takes two arguments: @var{key} is the character that
 you want to bind, and @var{function} is the address of the function to
-call when @var{key} is pressed.  Binding @key{TAB} to @code{rl_insert ()}
+call when @var{key} is pressed.  Binding @key{TAB} to @code{rl_insert()}
 makes @key{TAB} insert itself.
-@code{rl_bind_key ()} returns non-zero if @var{key} is not a valid
+@code{rl_bind_key()} returns non-zero if @var{key} is not a valid
 ASCII character code (between 0 and 255).
 
 Thus, to disable the default @key{TAB} behavior, the following suffices:
@@ -154,7 +156,7 @@ Thus, to disable the default @key{TAB} behavior, the following suffices:
 @end example
 
 This code should be executed once at the start of your program; you
-might write a function called @code{initialize_readline ()} which
+might write a function called @code{initialize_readline()} which
 performs this and other desired initializations, such as installing
 custom completers (@pxref{Custom Completers}).
 
@@ -175,44 +177,71 @@ in @code{readline.h} use the @code{stdio} library, the file
 @code{<stdio.h>} should be included before @code{readline.h}.
 
 @menu
-* The Function Type::  C declarations to make code readable.
+* Readline Typedefs::  C declarations to make code readable.
 * Function Writing::   Variables and calling conventions.
 @end menu
 
-@node The Function Type
-@subsection The Function Type
+@node Readline Typedefs
+@subsection Readline Typedefs
 
-For readabilty, we declare a new type of object, called
-@dfn{Function}.  A @code{Function} is a C function which
-returns an @code{int}.  The type declaration for @code{Function} is:
+For readabilty, we declare a number of new object types, all pointers
+to functions.
 
-@noindent
-@code{typedef int Function ();}
+The reason for declaring these new types is to make it easier to write
+code describing pointers to C functions with appropriately prototyped
+arguments and return values.
 
-The reason for declaring this new type is to make it easier to write
-code describing pointers to C functions.  Let us say we had a variable
-called @var{func} which was a pointer to a function.  Instead of the
-classic C declaration
+For instance, say we want to declare a variable @var{func} as a pointer
+to a function which takes two @code{int} arguments and returns an
+@code{int} (this is the type of all of the Readline bindable functions).
+Instead of the classic C declaration
 
-@code{int (*)()func;}
+@code{int (*func)();}
 
 @noindent
-we may write
+or the ANSI-C style declaration
 
-@code{Function *func;}
+@code{int (*func)(int, int);}
 
 @noindent
-Similarly, there are
+we may write
 
-@example
-typedef void VFunction ();
-typedef char *CPFunction (); @r{and}
-typedef char **CPPFunction ();
-@end example
+@code{rl_command_func_t *func;}
 
-@noindent
-for functions returning no value, @code{pointer to char}, and
-@code{pointer to pointer to char}, respectively.
+The full list of function pointer types available is
+
+@table @code
+@item typedef int rl_command_func_t (int, int);
+
+@item typedef char *rl_compentry_func_t (const char *, int);
+
+@item typedef char **rl_completion_func_t (const char *, int, int);
+
+@item typedef char *rl_quote_func_t (char *, int, char *);
+
+@item typedef char *rl_dequote_func_t (char *, int);
+
+@item typedef int rl_compignore_func_t (char **);
+
+@item typedef void rl_compdisp_func_t (char **, int, int);
+
+@item typedef int rl_hook_func_t (void);
+
+@item typedef int rl_getc_func_t (FILE *);
+
+@item typedef int rl_linebuf_func_t (char *, int);
+
+@item typedef int rl_intfunc_t (int);
+@item #define rl_ivoidfunc_t rl_hook_func_t
+@item typedef int rl_icpfunc_t (char *);
+@item typedef int rl_icppfunc_t (char **);
+
+@item typedef void rl_voidfunc_t (void);
+@item typedef void rl_vintfunc_t (int);
+@item typedef void rl_vcpfunc_t (char *);
+@item typedef void rl_vcppfunc_t (char **);
+
+@end table
 
 @node Function Writing
 @subsection Writing a New Function
@@ -265,7 +294,7 @@ The number of characters present in @code{rl_line_buffer}.  When
 @end deftypevar
 
 @deftypevar int rl_mark
-The mark (saved position) in the current line.  If set, the mark
+The @var{mark} (saved position) in the current line.  If set, the mark
 and point define a @emph{region}.
 @end deftypevar
 
@@ -274,11 +303,23 @@ Setting this to a non-zero value causes Readline to return the current
 line immediately.
 @end deftypevar
 
+@deftypevar int rl_num_chars_to_read
+Setting this to a positive value before calling @code{readline()} causes
+Readline to return after accepting that many characters, rather
+than reading up to a character bound to @code{accept-line}.
+@end deftypevar
+
 @deftypevar int rl_pending_input
 Setting this to a value makes it the next keystroke read.  This is a
 way to stuff a single character into the input stream.
 @end deftypevar
 
+@deftypevar int rl_dispatching
+Set to a non-zero value if a function is being called from a key binding;
+zero otherwise.  Application functions can test this to discover whether
+they were called directly or by Readline's dispatching mechanism.
+@end deftypevar
+
 @deftypevar int rl_erase_empty_line
 Setting this to a non-zero value causes Readline to completely erase
 the current line, including any prompt, any time a newline is typed as
@@ -288,7 +329,9 @@ the beginning of the newly-blank line.
 
 @deftypevar {char *} rl_prompt
 The prompt Readline uses.  This is set from the argument to
-@code{readline ()}, and should not be assigned to directly.
+@code{readline()}, and should not be assigned to directly.
+The @code{rl_set_prompt()} function (@pxref{Redisplay}) may
+be used to modify the prompt string after calling @code{readline()}.
 @end deftypevar
 
 @deftypevar int rl_already_prompted
@@ -301,15 +344,22 @@ The calling application is responsible for managing the value; Readline
 never sets it.
 @end deftypevar
 
-@deftypevar {char *} rl_library_version
+@deftypevar {const char *} rl_library_version
 The version number of this revision of the library.
 @end deftypevar
 
-@deftypevar {char *} rl_terminal_name
-The terminal type, used for initialization.
+@deftypevar {int} rl_gnu_readline_p
+Always set to 1, denoting that this is @sc{gnu} readline rather than some
+emulation.
 @end deftypevar
 
-@deftypevar {char *} rl_readline_name
+@deftypevar {const char *} rl_terminal_name
+The terminal type, used for initialization.  If not set by the application,
+Readline sets this to the value of the @env{TERM} environment variable
+the first time it is called.
+@end deftypevar
+
+@deftypevar {const char *} rl_readline_name
 This variable is set to a unique name by each application using Readline.
 The value allows conditional parsing of the inputrc file
 (@pxref{Conditional Init Constructs}).
@@ -323,36 +373,60 @@ The stdio stream from which Readline reads input.
 The stdio stream to which Readline performs output.
 @end deftypevar
 
-@deftypevar {Function *} rl_startup_hook
+@deftypevar {rl_command_func_t *} rl_last_func
+The address of the last command function Readline executed.  May be used to
+test whether or not a function is being executed twice in succession, for
+example.
+@end deftypevar
+
+@deftypevar {rl_hook_func_t *} rl_startup_hook
 If non-zero, this is the address of a function to call just
 before @code{readline} prints the first prompt.
 @end deftypevar
 
-@deftypevar {Function *} rl_pre_input_hook
+@deftypevar {rl_hook_func_t *} rl_pre_input_hook
 If non-zero, this is the address of a function to call after
 the first prompt has been printed and just before @code{readline}
 starts reading input characters.
 @end deftypevar
 
-@deftypevar {Function *} rl_event_hook
+@deftypevar {rl_hook_func_t *} rl_event_hook
 If non-zero, this is the address of a function to call periodically
-when readline is waiting for terminal input.
+when Readline is waiting for terminal input.
+By default, this will be called at most ten times a second if there
+is no keyboard input.
 @end deftypevar
 
-@deftypevar {Function *} rl_getc_function
-If non-zero, @code{readline} will call indirectly through this pointer
+@deftypevar {rl_getc_func_t *} rl_getc_function
+If non-zero, Readline will call indirectly through this pointer
 to get a character from the input stream.  By default, it is set to
-@code{rl_getc}, the default @code{readline} character input function
-(@pxref{Utility Functions}).
+@code{rl_getc}, the default Readline character input function
+(@pxref{Character Input}).
 @end deftypevar
 
-@deftypevar {VFunction *} rl_redisplay_function
-If non-zero, @code{readline} will call indirectly through this pointer
+@deftypevar {rl_voidfunc_t *} rl_redisplay_function
+If non-zero, Readline will call indirectly through this pointer
 to update the display with the current contents of the editing buffer.
-By default, it is set to @code{rl_redisplay}, the default @code{readline}
+By default, it is set to @code{rl_redisplay}, the default Readline
 redisplay function (@pxref{Redisplay}).
 @end deftypevar
 
+@deftypevar {rl_vintfunc_t *} rl_prep_term_function
+If non-zero, Readline will call indirectly through this pointer
+to initialize the terminal.  The function takes a single argument, an
+@code{int} flag that says whether or not to use eight-bit characters.
+By default, this is set to @code{rl_prep_terminal}
+(@pxref{Terminal Management}).
+@end deftypevar
+
+@deftypevar {rl_voidfunc_t *} rl_deprep_term_function
+If non-zero, Readline will call indirectly through this pointer
+to reset the terminal.  This function should undo the effects of
+@code{rl_prep_term_function}.
+By default, this is set to @code{rl_deprep_terminal}
+(@pxref{Terminal Management}).
+@end deftypevar
+
 @deftypevar {Keymap} rl_executing_keymap
 This variable is set to the keymap (@pxref{Keymaps}) in which the
 currently executing readline function was found.
@@ -363,6 +437,79 @@ This variable is set to the keymap (@pxref{Keymaps}) in which the
 last key binding occurred.
 @end deftypevar 
 
+@deftypevar {char *} rl_executing_macro
+This variable is set to the text of any currently-executing macro.
+@end deftypevar
+
+@deftypevar {int} rl_readline_state
+A variable with bit values that encapsulate the current Readline state.
+A bit is set with the @code{RL_SETSTATE} macro, and unset with the
+@code{RL_UNSETSTATE} macro.  Use the @code{RL_ISSTATE} macro to test
+whether a particular state bit is set.  Current state bits include:
+
+@table @code
+@item RL_STATE_NONE
+Readline has not yet been called, nor has it begun to intialize.
+@item RL_STATE_INITIALIZING
+Readline is initializing its internal data structures.
+@item RL_STATE_INITIALIZED
+Readline has completed its initialization.
+@item RL_STATE_TERMPREPPED
+Readline has modified the terminal modes to do its own input and redisplay.
+@item RL_STATE_READCMD
+Readline is reading a command from the keyboard.
+@item RL_STATE_METANEXT
+Readline is reading more input after reading the meta-prefix character.
+@item RL_STATE_DISPATCHING
+Readline is dispatching to a command.
+@item RL_STATE_MOREINPUT
+Readline is reading more input while executing an editing command.
+@item RL_STATE_ISEARCH
+Readline is performing an incremental history search.
+@item RL_STATE_NSEARCH
+Readline is performing a non-incremental history search.
+@item RL_STATE_SEARCH
+Readline is searching backward or forward through the history for a string.
+@item RL_STATE_NUMERICARG
+Readline is reading a numeric argument.
+@item RL_STATE_MACROINPUT
+Readline is currently getting its input from a previously-defined keyboard
+macro.
+@item RL_STATE_MACRODEF
+Readline is currently reading characters defining a keyboard macro.
+@item RL_STATE_OVERWRITE
+Readline is in overwrite mode.
+@item RL_STATE_COMPLETING
+Readline is performing word completion.
+@item RL_STATE_SIGHANDLER
+Readline is currently executing the readline signal handler.
+@item RL_STATE_UNDOING
+Readline is performing an undo.
+@item RL_STATE_DONE
+Readline has read a key sequence bound to @code{accept-line}
+and is about to return the line to the caller.
+@end table
+
+@end deftypevar
+
+@deftypevar {int} rl_explicit_arg
+Set to a non-zero value if an explicit numeric argument was specified by
+the user.  Only valid in a bindable command function.
+@end deftypevar
+
+@deftypevar {int} rl_numeric_arg
+Set to the value of any numeric argument explicitly specified by the user
+before executing the current Readline function.  Only valid in a bindable
+command function.
+@end deftypevar
+
+@deftypevar {int} rl_editing_mode
+Set to a value denoting Readline's current editing mode.  A value of
+@var{1} means Readline is currently in emacs mode; @var{0}
+means that vi mode is active.
+@end deftypevar
+
+
 @node Readline Convenience Functions
 @section Readline Convenience Functions
 
@@ -375,8 +522,12 @@ last key binding occurred.
 * Allowing Undoing::   How to make your functions undoable.
 * Redisplay::          Functions to control line display.
 * Modifying Text::     Functions to modify @code{rl_line_buffer}.
+* Character Input::    Functions to read keyboard input.
+* Terminal Management::        Functions to manage terminal settings.
 * Utility Functions::  Generally useful functions and hooks.
+* Miscellaneous Functions::    Functions that don't fall into any category.
 * Alternate Interface::        Using Readline in a `callback' fashion.
+* A Readline Example::         An example Readline function.
 @end menu
 
 @node Function Naming
@@ -396,10 +547,10 @@ This binds the keystroke @key{Meta-Rubout} to the function
 programmer, should bind the functions you write to descriptive names as
 well.  Readline provides a function for doing that:
 
-@deftypefun int rl_add_defun (char *name, Function *function, int key)
+@deftypefun int rl_add_defun (const char *name, rl_command_func_t *function, int key)
 Add @var{name} to the list of named functions.  Make @var{function} be
 the function that gets called.  If @var{key} is not -1, then bind it to
-@var{function} using @code{rl_bind_key ()}.
+@var{function} using @code{rl_bind_key()}.
 @end deftypefun
 
 Using this function alone is sufficient for most applications.  It is
@@ -416,16 +567,17 @@ association between the keys that the user types and the functions that
 get run.  You can make your own keymaps, copy existing keymaps, and tell
 Readline which keymap to use.
 
-@deftypefun Keymap rl_make_bare_keymap ()
+@deftypefun Keymap rl_make_bare_keymap (void)
 Returns a new, empty keymap.  The space for the keymap is allocated with
-@code{malloc ()}; you should @code{free ()} it when you are done.
+@code{malloc()}; the caller should free it by calling
+@code{rl_discard_keymap()} when done.
 @end deftypefun
 
 @deftypefun Keymap rl_copy_keymap (Keymap map)
 Return a new keymap which is a copy of @var{map}.
 @end deftypefun
 
-@deftypefun Keymap rl_make_keymap ()
+@deftypefun Keymap rl_make_keymap (void)
 Return a new keymap with the printing characters bound to rl_insert,
 the lowercase Meta characters bound to run their equivalents, and
 the Meta digits bound to produce numeric arguments.
@@ -438,7 +590,7 @@ Free the storage associated with @var{keymap}.
 Readline has several internal keymaps.  These functions allow you to
 change which keymap is active.
 
-@deftypefun Keymap rl_get_keymap ()
+@deftypefun Keymap rl_get_keymap (void)
 Returns the currently active keymap.
 @end deftypefun
 
@@ -446,7 +598,7 @@ Returns the currently active keymap.
 Makes @var{keymap} the currently active keymap.
 @end deftypefun
 
-@deftypefun Keymap rl_get_keymap_by_name (char *name)
+@deftypefun Keymap rl_get_keymap_by_name (const char *name)
 Return the keymap matching @var{name}.  @var{name} is one which would
 be supplied in a @code{set keymap} inputrc line (@pxref{Readline Init File}).
 @end deftypefun
@@ -459,28 +611,28 @@ be supplied in a @code{set keymap} inputrc line (@pxref{Readline Init File}).
 @node Binding Keys
 @subsection Binding Keys
 
-You associate keys with functions through the keymap.  Readline has
-several internal keymaps: @code{emacs_standard_keymap},
+Key sequences are associate with functions through the keymap.
+Readline has several internal keymaps: @code{emacs_standard_keymap},
 @code{emacs_meta_keymap}, @code{emacs_ctlx_keymap},
 @code{vi_movement_keymap}, and @code{vi_insertion_keymap}.
 @code{emacs_standard_keymap} is the default, and the examples in
 this manual assume that.
 
-Since @code{readline} installs a set of default key bindings the first
+Since @code{readline()} installs a set of default key bindings the first
 time it is called, there is always the danger that a custom binding
-installed before the first call to @code{readline} will be overridden.
+installed before the first call to @code{readline()} will be overridden.
 An alternate mechanism is to install custom key bindings in an
 initialization function assigned to the @code{rl_startup_hook} variable
 (@pxref{Readline Variables}).
 
 These functions manage key bindings.
 
-@deftypefun int rl_bind_key (int key, Function *function)
+@deftypefun int rl_bind_key (int key, rl_command_func_t *function)
 Binds @var{key} to @var{function} in the currently active keymap.
 Returns non-zero in the case of an invalid @var{key}.
 @end deftypefun
 
-@deftypefun int rl_bind_key_in_map (int key, Function *function, Keymap map)
+@deftypefun int rl_bind_key_in_map (int key, rl_command_func_t *function, Keymap map)
 Bind @var{key} to @var{function} in @var{map}.  Returns non-zero in the case
 of an invalid @var{key}.
 @end deftypefun
@@ -495,15 +647,21 @@ Bind @var{key} to the null function in @var{map}.
 Returns non-zero in case of error.
 @end deftypefun
 
-@deftypefun int rl_unbind_function_in_map (Function *function, Keymap map)
+@deftypefun int rl_unbind_function_in_map (rl_command_func_t *function, Keymap map)
 Unbind all keys that execute @var{function} in @var{map}.
 @end deftypefun
 
-@deftypefun int rl_unbind_command_in_map (char *command, Keymap map)
+@deftypefun int rl_unbind_command_in_map (const char *command, Keymap map)
 Unbind all keys that are bound to @var{command} in @var{map}.
 @end deftypefun
 
-@deftypefun int rl_generic_bind (int type, char *keyseq, char *data, Keymap map)
+@deftypefun int rl_set_key (const char *keyseq, rl_command_func_t *function, Keymap map)
+Bind the key sequence represented by the string @var{keyseq} to the function
+@var{function}.  This makes new keymaps as
+necessary.  The initial keymap in which to do bindings is @var{map}.
+@end deftypefun
+
+@deftypefun int rl_generic_bind (int type, const char *keyseq, char *data, Keymap map)
 Bind the key sequence represented by the string @var{keyseq} to the arbitrary
 pointer @var{data}.  @var{type} says what kind of data is pointed to by
 @var{data}; this can be a function (@code{ISFUNC}), a macro
@@ -517,7 +675,7 @@ perform any key bindings and variable assignments found
 (@pxref{Readline Init File}).
 @end deftypefun
 
-@deftypefun int rl_read_init_file (char *filename)
+@deftypefun int rl_read_init_file (const char *filename)
 Read keybindings and variable assignments from @var{filename}
 (@pxref{Readline Init File}).
 @end deftypefun
@@ -526,25 +684,26 @@ Read keybindings and variable assignments from @var{filename}
 @subsection Associating Function Names and Bindings
 
 These functions allow you to find out what keys invoke named functions
-and the functions invoked by a particular key sequence.
+and the functions invoked by a particular key sequence.  You may also
+associate a new function name with an arbitrary function.
 
-@deftypefun {Function *} rl_named_function (char *name)
+@deftypefun {rl_command_func_t *} rl_named_function (const char *name)
 Return the function with name @var{name}.
 @end deftypefun
 
-@deftypefun {Function *} rl_function_of_keyseq (char *keyseq, Keymap map, int *type)
+@deftypefun {rl_command_func_t *} rl_function_of_keyseq (const char *keyseq, Keymap map, int *type)
 Return the function invoked by @var{keyseq} in keymap @var{map}.
-If @var{map} is NULL, the current keymap is used.  If @var{type} is
-not NULL, the type of the object is returned in it (one of @code{ISFUNC},
-@code{ISKMAP}, or @code{ISMACR}).
+If @var{map} is @code{NULL}, the current keymap is used.  If @var{type} is
+not @code{NULL}, the type of the object is returned in the @code{int} variable
+it points to (one of @code{ISFUNC}, @code{ISKMAP}, or @code{ISMACR}).
 @end deftypefun
 
-@deftypefun {char **} rl_invoking_keyseqs (Function *function)
+@deftypefun {char **} rl_invoking_keyseqs (rl_command_func_t *function)
 Return an array of strings representing the key sequences used to
 invoke @var{function} in the current keymap.
 @end deftypefun
 
-@deftypefun {char **} rl_invoking_keyseqs_in_map (Function *function, Keymap map)
+@deftypefun {char **} rl_invoking_keyseqs_in_map (rl_command_func_t *function, Keymap map)
 Return an array of strings representing the key sequences used to
 invoke @var{function} in the keymap @var{map}.
 @end deftypefun
@@ -556,14 +715,19 @@ the list is formatted in such a way that it can be made part of an
 @code{inputrc} file and re-read.
 @end deftypefun
 
-@deftypefun void rl_list_funmap_names ()
+@deftypefun void rl_list_funmap_names (void)
 Print the names of all bindable Readline functions to @code{rl_outstream}.
 @end deftypefun
 
-@deftypefun {char **} rl_funmap_names ()
+@deftypefun {const char **} rl_funmap_names (void)
 Return a NULL terminated array of known function names.  The array is
 sorted.  The array itself is allocated, but not the strings inside.  You
-should free () the array when you done, but not the pointrs.
+should @code{free()} the array when you are done, but not the pointers.
+@end deftypefun
+
+@deftypefun int rl_add_funmap_entry (const char *name, rl_command_func_t *function)
+Add @var{name} to the list of bindable Readline command names, and make
+@var{function} the function to be called when @var{name} is invoked.
 @end deftypefun
 
 @node Allowing Undoing
@@ -571,17 +735,16 @@ should free () the array when you done, but not the pointrs.
 
 Supporting the undo command is a painless thing, and makes your
 functions much more useful.  It is certainly easy to try
-something if you know you can undo it.  I could use an undo function for
-the stock market.
+something if you know you can undo it.
 
 If your function simply inserts text once, or deletes text once, and
-uses @code{rl_insert_text ()} or @code{rl_delete_text ()} to do it, then
+uses @code{rl_insert_text()} or @code{rl_delete_text()} to do it, then
 undoing is already done for you automatically.
 
 If you do multiple insertions or multiple deletions, or any combination
 of these operations, you should group them together into one operation.
-This is done with @code{rl_begin_undo_group ()} and
-@code{rl_end_undo_group ()}.
+This is done with @code{rl_begin_undo_group()} and
+@code{rl_end_undo_group()}.
 
 The types of events that can be undone are:
 
@@ -591,21 +754,21 @@ enum undo_code @{ UNDO_DELETE, UNDO_INSERT, UNDO_BEGIN, UNDO_END @};
 
 Notice that @code{UNDO_DELETE} means to insert some text, and
 @code{UNDO_INSERT} means to delete some text.  That is, the undo code
-tells undo what to undo, not how to undo it.  @code{UNDO_BEGIN} and
-@code{UNDO_END} are tags added by @code{rl_begin_undo_group ()} and
-@code{rl_end_undo_group ()}.
+tells what to undo, not how to undo it.  @code{UNDO_BEGIN} and
+@code{UNDO_END} are tags added by @code{rl_begin_undo_group()} and
+@code{rl_end_undo_group()}.
 
-@deftypefun int rl_begin_undo_group ()
+@deftypefun int rl_begin_undo_group (void)
 Begins saving undo information in a group construct.  The undo
-information usually comes from calls to @code{rl_insert_text ()} and
-@code{rl_delete_text ()}, but could be the result of calls to
-@code{rl_add_undo ()}.
+information usually comes from calls to @code{rl_insert_text()} and
+@code{rl_delete_text()}, but could be the result of calls to
+@code{rl_add_undo()}.
 @end deftypefun
 
-@deftypefun int rl_end_undo_group ()
+@deftypefun int rl_end_undo_group (void)
 Closes the current undo group started with @code{rl_begin_undo_group
-()}.  There should be one call to @code{rl_end_undo_group ()}
-for each call to @code{rl_begin_undo_group ()}.
+()}.  There should be one call to @code{rl_end_undo_group()}
+for each call to @code{rl_begin_undo_group()}.
 @end deftypefun
 
 @deftypefun void rl_add_undo (enum undo_code what, int start, int end, char *text)
@@ -613,17 +776,17 @@ Remember how to undo an event (according to @var{what}).  The affected
 text runs from @var{start} to @var{end}, and encompasses @var{text}.
 @end deftypefun
 
-@deftypefun void free_undo_list ()
+@deftypefun void rl_free_undo_list (void)
 Free the existing undo list.
 @end deftypefun
 
-@deftypefun int rl_do_undo ()
+@deftypefun int rl_do_undo (void)
 Undo the first thing on the undo list.  Returns @code{0} if there was
 nothing to undo, non-zero if something was undone.
 @end deftypefun
 
 Finally, if you neither insert nor delete text, but directly modify the
-existing text (e.g., change its case), call @code{rl_modifying ()}
+existing text (e.g., change its case), call @code{rl_modifying()}
 once, just before you modify the text.  You must supply the indices of
 the text range that you are going to modify.
 
@@ -636,22 +799,22 @@ that text.
 @node Redisplay
 @subsection Redisplay
 
-@deftypefun void rl_redisplay ()
+@deftypefun void rl_redisplay (void)
 Change what's displayed on the screen to reflect the current contents
 of @code{rl_line_buffer}.
 @end deftypefun
 
-@deftypefun int rl_forced_update_display ()
+@deftypefun int rl_forced_update_display (void)
 Force the line to be updated and redisplayed, whether or not
 Readline thinks the screen display is correct.
 @end deftypefun
 
-@deftypefun int rl_on_new_line ()
+@deftypefun int rl_on_new_line (void)
 Tell the update functions that we have moved onto a new (empty) line,
 usually after ouputting a newline.
 @end deftypefun
 
-@deftypefun int rl_on_new_line_with_prompt ()
+@deftypefun int rl_on_new_line_with_prompt (void)
 Tell the update functions that we have moved onto a new line, with
 @var{rl_prompt} already displayed.
 This could be used by applications that want to output the prompt string
@@ -660,35 +823,65 @@ redisplay.
 It should be used after setting @var{rl_already_prompted}.
 @end deftypefun
 
-@deftypefun int rl_reset_line_state ()
+@deftypefun int rl_reset_line_state (void)
 Reset the display state to a clean state and redisplay the current line
 starting on a new line.
 @end deftypefun
 
-@deftypefun int rl_message (va_alist)
-The arguments are a string as would be supplied to @code{printf}.  The
-resulting string is displayed in the @dfn{echo area}.  The echo area
+@deftypefun int rl_crlf (void)
+Move the cursor to the start of the next screen line.
+@end deftypefun
+
+@deftypefun int rl_show_char (int c)
+Display character @var{c} on @code{rl_outstream}.
+If Readline has not been set to display meta characters directly, this
+will convert meta characters to a meta-prefixed key sequence.
+This is intended for use by applications which wish to do their own
+redisplay.
+@end deftypefun
+
+@deftypefun int rl_message (const char *, @dots{})
+The arguments are a format string as would be supplied to @code{printf},
+possibly containing conversion specifications such as @samp{%d}, and
+any additional arguments necessary to satisfy the conversion specifications.
+The resulting string is displayed in the @dfn{echo area}.  The echo area
 is also used to display numeric arguments and search strings.
 @end deftypefun
 
-@deftypefun int rl_clear_message ()
+@deftypefun int rl_clear_message (void)
 Clear the message in the echo area.
 @end deftypefun
 
-@deftypefun void rl_save_prompt ()
+@deftypefun void rl_save_prompt (void)
 Save the local Readline prompt display state in preparation for
-displaying a new message in the message area with @code{rl_message}.
+displaying a new message in the message area with @code{rl_message()}.
 @end deftypefun
 
-@deftypefun void rl_restore_prompt ()
+@deftypefun void rl_restore_prompt (void)
 Restore the local Readline prompt display state saved by the most
 recent call to @code{rl_save_prompt}.
 @end deftypefun
 
+@deftypefun int rl_expand_prompt (char *prompt)
+Expand any special character sequences in @var{prompt} and set up the
+local Readline prompt redisplay variables.
+This function is called by @code{readline()}.  It may also be called to
+expand the primary prompt if the @code{rl_on_new_line_with_prompt()}
+function or @code{rl_already_prompted} variable is used.
+It returns the number of visible characters on the last line of the
+(possibly multi-line) prompt.
+@end deftypefun
+
+@deftypefun int rl_set_prompt (const char *prompt)
+Make Readline use @var{prompt} for subsequent redisplay.  This calls
+@code{rl_expand_prompt()} to expand the prompt and sets @code{rl_prompt}
+to the result.
+@end deftypefun
+
 @node Modifying Text
 @subsection Modifying Text
 
-@deftypefun int rl_insert_text (char *text)
+@deftypefun int rl_insert_text (const char *text)
 Insert @var{text} into the line at the current cursor position.
 @end deftypefun
 
@@ -710,53 +903,104 @@ the text is appended, otherwise prepended.  If the last command was
 not a kill, a new kill ring slot is used.
 @end deftypefun
 
-@node Utility Functions
-@subsection Utility Functions
+@deftypefun int rl_push_macro_input (char *macro)
+Cause @var{macro} to be inserted into the line, as if it had been invoked
+by a key bound to a macro.  Not especially useful; use
+@code{rl_insert_text()} instead.
+@end deftypefun
 
-@deftypefun int rl_read_key ()
-Return the next character available.  This handles input inserted into
-the input stream via @var{pending input} (@pxref{Readline Variables})
-and @code{rl_stuff_char ()}, macros, and characters read from the keyboard.
+@node Character Input
+@subsection Character Input
+
+@deftypefun int rl_read_key (void)
+Return the next character available from Readline's current input stream.
+This handles input inserted into
+the input stream via @var{rl_pending_input} (@pxref{Readline Variables})
+and @code{rl_stuff_char()}, macros, and characters read from the keyboard.
+While waiting for input, this function will call any function assigned to
+the @code{rl_event_hook} variable.
 @end deftypefun
 
-@deftypefun int rl_getc (FILE *)
-Return the next character available from the keyboard.
+@deftypefun int rl_getc (FILE *stream)
+Return the next character available from @var{stream}, which is assumed to
+be the keyboard.
 @end deftypefun
 
 @deftypefun int rl_stuff_char (int c)
 Insert @var{c} into the Readline input stream.  It will be "read"
 before Readline attempts to read characters from the terminal with
-@code{rl_read_key ()}.
+@code{rl_read_key()}.
 @end deftypefun
 
-@deftypefun int rl_extend_line_buffer (int len)
-Ensure that @code{rl_line_buffer} has enough space to hold @var{len}
-characters, possibly reallocating it if necessary.
+@deftypefun int rl_execute_next (int c)
+Make @var{c} be the next command to be executed when @code{rl_read_key()}
+is called.  This sets @var{rl_pending_input}.
 @end deftypefun
 
-@deftypefun int rl_initialize ()
-Initialize or re-initialize Readline's internal state.
+@deftypefun int rl_clear_pending_input (void)
+Unset @var{rl_pending_input}, effectively negating the effect of any
+previous call to @code{rl_execute_next()}.  This works only if the
+pending input has not already been read with @code{rl_read_key()}.
+@end deftypefun
+
+@deftypefun int rl_set_keyboard_input_timeout (int u)
+While waiting for keyboard input in @code{rl_read_key()}, Readline will
+wait for @var{u} microseconds for input before calling any function
+assigned to @code{rl_event_hook}.  The default waiting period is
+one-tenth of a second.  Returns the old timeout value.
 @end deftypefun
 
-@deftypefun int rl_reset_terminal (char *terminal_name)
+@node Terminal Management
+@subsection Terminal Management
+
+@deftypefun void rl_prep_terminal (int meta_flag)
+Modify the terminal settings for Readline's use, so @code{readline()}
+can read a single character at a time from the keyboard.
+The @var{meta_flag} argument should be non-zero if Readline should
+read eight-bit input.
+@end deftypefun
+
+@deftypefun void rl_deprep_terminal (void)
+Undo the effects of @code{rl_prep_terminal()}, leaving the terminal in
+the state in which it was before the most recent call to
+@code{rl_prep_terminal()}.
+@end deftypefun
+
+@deftypefun void rl_tty_set_default_bindings (Keymap kmap)
+Read the operating system's terminal editing characters (as would be displayed
+by @code{stty}) to their Readline equivalents.  The bindings are performed
+in @var{kmap}.
+@end deftypefun
+
+@deftypefun int rl_reset_terminal (const char *terminal_name)
 Reinitialize Readline's idea of the terminal settings using
 @var{terminal_name} as the terminal type (e.g., @code{vt100}).
-If @var{terminal_name} is NULL, the value of the @code{TERM}
+If @var{terminal_name} is @code{NULL}, the value of the @code{TERM}
 environment variable is used.
 @end deftypefun
 
-@deftypefun int alphabetic (int c)
-Return 1 if @var{c} is an alphabetic character.
+@node Utility Functions
+@subsection Utility Functions
+
+@deftypefun int rl_extend_line_buffer (int len)
+Ensure that @code{rl_line_buffer} has enough space to hold @var{len}
+characters, possibly reallocating it if necessary.
 @end deftypefun
 
-@deftypefun int numeric (int c)
-Return 1 if @var{c} is a numeric character.
+@deftypefun int rl_initialize (void)
+Initialize or re-initialize Readline's internal state.
+It's not strictly necessary to call this; @code{readline()} calls it before
+reading any input.
 @end deftypefun
 
-@deftypefun int ding ()
+@deftypefun int rl_ding (void)
 Ring the terminal bell, obeying the setting of @code{bell-style}.
 @end deftypefun
 
+@deftypefun int rl_alphabetic (int c)
+Return 1 if @var{c} is an alphabetic character.
+@end deftypefun
+
 @deftypefun void rl_display_match_list (char **matches, int len, int max)
 A convenience function for displaying a list of strings in
 columnar format on Readline's output stream.  @code{matches} is the list
@@ -767,34 +1011,71 @@ the setting of @code{print-completions-horizontally} to select how the
 matches are displayed (@pxref{Readline Init File Syntax}).
 @end deftypefun
 
-The following are implemented as macros, defined in @code{chartypes.h}.
+The following are implemented as macros, defined in @code{chardefs.h}.
+Applications should refrain from using them.
 
-@deftypefun int uppercase_p (int c)
+@deftypefun int _rl_uppercase_p (int c)
 Return 1 if @var{c} is an uppercase alphabetic character.
 @end deftypefun
 
-@deftypefun int lowercase_p (int c)
+@deftypefun int _rl_lowercase_p (int c)
 Return 1 if @var{c} is a lowercase alphabetic character.
 @end deftypefun
 
-@deftypefun int digit_p (int c)
+@deftypefun int _rl_digit_p (int c)
 Return 1 if @var{c} is a numeric character.
 @end deftypefun
 
-@deftypefun int to_upper (int c)
+@deftypefun int _rl_to_upper (int c)
 If @var{c} is a lowercase alphabetic character, return the corresponding
 uppercase character.
 @end deftypefun
 
-@deftypefun int to_lower (int c)
+@deftypefun int _rl_to_lower (int c)
 If @var{c} is an uppercase alphabetic character, return the corresponding
 lowercase character.
 @end deftypefun
 
-@deftypefun int digit_value (int c)
+@deftypefun int _rl_digit_value (int c)
 If @var{c} is a number, return the value it represents.
 @end deftypefun
 
+@node Miscellaneous Functions
+@subsection Miscellaneous Functions
+
+@deftypefun int rl_macro_bind (const char *keyseq, const char *macro, Keymap map)
+Bind the key sequence @var{keyseq} to invoke the macro @var{macro}.
+The binding is performed in @var{map}.  When @var{keyseq} is invoked, the
+@var{macro} will be inserted into the line.  This function is deprecated;
+use @code{rl_generic_bind()} instead.
+@end deftypefun
+
+@deftypefun void rl_macro_dumper (int readable)
+Print the key sequences bound to macros and their values, using
+the current keymap, to @code{rl_outstream}.
+If @var{readable} is non-zero, the list is formatted in such a way
+that it can be made part of an @code{inputrc} file and re-read.
+@end deftypefun
+
+@deftypefun int rl_variable_bind (const char *variable, const char *value)
+Make the Readline variable @var{variable} have @var{value}.
+This behaves as if the readline command
+@samp{set @var{variable} @var{value}} had been executed in an @code{inputrc}
+file (@pxref{Readline Init File Syntax}).
+@end deftypefun
+
+@deftypefun void rl_variable_dumper (int readable)
+Print the readline variable names and their current values
+to @code{rl_outstream}.
+If @var{readable} is non-zero, the list is formatted in such a way
+that it can be made part of an @code{inputrc} file and re-read.
+@end deftypefun
+
+@deftypefun int rl_set_paren_blink_timeout (int u)
+Set the time interval (in microseconds) that Readline waits when showing
+a balancing character when @code{blink-matching-paren} has been enabled.
+@end deftypefun
+
 @node Alternate Interface
 @subsection Alternate Interface
 
@@ -805,13 +1086,14 @@ on various file descriptors.  To accomodate this need, readline can
 also be invoked as a `callback' function from an event loop.  There
 are functions available to make this easy.
 
-@deftypefun void rl_callback_handler_install (char *prompt, Vfunction *lhandler)
+@deftypefun void rl_callback_handler_install (const char *prompt, rl_vcpfunc_t *lhandler)
 Set up the terminal for readline I/O and display the initial
 expanded value of @var{prompt}.  Save the value of @var{lhandler} to
-use as a callback when a complete line of input has been entered.
+use as a function to call when a complete line of input has been entered.
+The function takes the text of the line as an argument.
 @end deftypefun
 
-@deftypefun void rl_callback_read_char ()
+@deftypefun void rl_callback_read_char (void)
 Whenever an application determines that keyboard input is available, it
 should call @code{rl_callback_read_char()}, which will read the next
 character from the current input source.  If that character completes the
@@ -821,12 +1103,13 @@ line.  @code{EOF} is  indicated by calling @var{lhandler} with a
 @code{NULL} line.
 @end deftypefun
 
-@deftypefun void rl_callback_handler_remove ()
+@deftypefun void rl_callback_handler_remove (void)
 Restore the terminal to its initial state and remove the line handler.
 This may be called from within a callback as well as independently.
 @end deftypefun
 
-@subsection An Example
+@node A Readline Example
+@subsection A Readline Example
 
 Here is a function which changes lowercase characters to their uppercase
 equivalents, and uppercase characters to lowercase.  If
@@ -881,10 +1164,10 @@ invert_case_line (count, key)
 
   for (i = start; i != end; i++)
     @{
-      if (uppercase_p (rl_line_buffer[i]))
-        rl_line_buffer[i] = to_lower (rl_line_buffer[i]);
-      else if (lowercase_p (rl_line_buffer[i]))
-        rl_line_buffer[i] = to_upper (rl_line_buffer[i]);
+      if (_rl_uppercase_p (rl_line_buffer[i]))
+        rl_line_buffer[i] = _rl_to_lower (rl_line_buffer[i]);
+      else if (_rl_lowercase_p (rl_line_buffer[i]))
+        rl_line_buffer[i] = _rl_to_upper (rl_line_buffer[i]);
     @}
   /* Move point to on top of the last character changed. */
   rl_point = (direction == 1) ? end - 1 : start;
@@ -897,44 +1180,44 @@ invert_case_line (count, key)
 
 Signals are asynchronous events sent to a process by the Unix kernel,
 sometimes on behalf of another process.  They are intended to indicate
-exceptional events, like a user pressing the interrupt key on his
-terminal, or a network connection being broken.  There is a class of
-signals that can be sent to the process currently reading input from
-the keyboard.  Since Readline changes the terminal attributes when it
-is called, it needs to perform special processing when a signal is
-received to restore the terminal to a sane state, or provide application
-writers with functions to do so manually.
+exceptional events, like a user pressing the interrupt key on his terminal,
+or a network connection being broken.  There is a class of signals that can
+be sent to the process currently reading input from the keyboard.  Since
+Readline changes the terminal attributes when it is called, it needs to
+perform special processing when such a signal is received in order to
+restore the terminal to a sane state, or provide application writers with
+functions to do so manually. 
 
 Readline contains an internal signal handler that is installed for a
 number of signals (@code{SIGINT}, @code{SIGQUIT}, @code{SIGTERM},
 @code{SIGALRM}, @code{SIGTSTP}, @code{SIGTTIN}, and @code{SIGTTOU}).
 When one of these signals is received, the signal handler
 will reset the terminal attributes to those that were in effect before
-@code{readline ()} was called, reset the signal handling to what it was
-before @code{readline ()} was called, and resend the signal to the calling
+@code{readline()} was called, reset the signal handling to what it was
+before @code{readline()} was called, and resend the signal to the calling
 application.
 If and when the calling application's signal handler returns, Readline
 will reinitialize the terminal and continue to accept input.
 When a @code{SIGINT} is received, the Readline signal handler performs
 some additional work, which will cause any partially-entered line to be
-aborted (see the description of @code{rl_free_line_state ()}).
+aborted (see the description of @code{rl_free_line_state()} below).
 
 There is an additional Readline signal handler, for @code{SIGWINCH}, which
 the kernel sends to a process whenever the terminal's size changes (for
 example, if a user resizes an @code{xterm}).  The Readline @code{SIGWINCH}
-handler updates Readline's internal screen size state, and then calls any
-@code{SIGWINCH} signal handler the calling application has installed. 
+handler updates Readline's internal screen size information, and then calls
+any @code{SIGWINCH} signal handler the calling application has installed. 
 Readline calls the application's @code{SIGWINCH} signal handler without
 resetting the terminal to its original state.  If the application's signal
 handler does more than update its idea of the terminal size and return (for
 example, a @code{longjmp} back to a main processing loop), it @emph{must}
-call @code{rl_cleanup_after_signal ()} (described below), to restore the
+call @code{rl_cleanup_after_signal()} (described below), to restore the
 terminal state. 
 
 Readline provides two variables that allow application writers to
 control whether or not it will catch certain signals and act on them
 when they are received.  It is important that applications change the
-values of these variables only when calling @code{readline ()}, not in
+values of these variables only when calling @code{readline()}, not in
 a signal handler, so Readline's internal signal state is not corrupted.
 
 @deftypevar int rl_catch_signals
@@ -960,7 +1243,7 @@ and internal state cleanup upon receipt of a signal.
 
 @deftypefun void rl_cleanup_after_signal (void)
 This function will reset the state of the terminal to what it was before
-@code{readline ()} was called, and remove the Readline signal handlers for
+@code{readline()} was called, and remove the Readline signal handlers for
 all signals, depending on the values of @code{rl_catch_signals} and
 @code{rl_catch_sigwinch}.
 @end deftypefun
@@ -969,7 +1252,7 @@ all signals, depending on the values of @code{rl_catch_signals} and
 This will free any partial state associated with the current input line
 (undo information, any partial history entry, any partially-entered
 keyboard macro, and any partially-entered numeric argument).  This
-should be called before @code{rl_cleanup_after_signal ()}.  The
+should be called before @code{rl_cleanup_after_signal()}.  The
 Readline signal handler for @code{SIGINT} calls this to abort the
 current input line.
 @end deftypefun
@@ -981,11 +1264,26 @@ handlers, depending on the values of @code{rl_catch_signals} and
 @end deftypefun
 
 If an application does not wish Readline to catch @code{SIGWINCH}, it may
-call @code{rl_resize_terminal ()} to force Readline to update its idea of
-the terminal size when a @code{SIGWINCH} is received.
+call @code{rl_resize_terminal()} or @code{rl_set_screen_size()} to force
+Readline to update its idea of the terminal size when a @code{SIGWINCH}
+is received.
 
 @deftypefun void rl_resize_terminal (void)
-Update Readline's internal screen size.
+Update Readline's internal screen size by reading values from the kernel.
+@end deftypefun
+
+@deftypefun void rl_set_screen_size (int rows, int cols)
+Set Readline's idea of the terminal size to @var{rows} rows and
+@var{cols} columns.
+@end deftypefun
+
+If an application does not want to install a @code{SIGWINCH} handler, but
+is still interested in the screen dimensions, Readline's idea of the screen
+size may be queried.
+
+@deftypefun void rl_get_screen_size (int *rows, int *cols)
+Return Readline's idea of the terminal's size in the
+variables pointed to by the arguments.
 @end deftypefun
 
 The following functions install and remove Readline's signal handlers.
@@ -999,7 +1297,7 @@ Install Readline's signal handler for @code{SIGINT}, @code{SIGQUIT},
 
 @deftypefun int rl_clear_signals (void)
 Remove all of the Readline signal handlers installed by
-@code{rl_set_signals ()}.
+@code{rl_set_signals()}.
 @end deftypefun
 
 @node Custom Completers
@@ -1034,30 +1332,31 @@ There are three major functions used to perform completion:
 
 @enumerate
 @item
-The user-interface function @code{rl_complete ()}.  This function is
-called with the same arguments as other Readline
-functions intended for interactive use:  @var{count} and
-@var{invoking_key}.  It isolates the word to be completed and calls
-@code{completion_matches ()} to generate a list of possible completions.
+The user-interface function @code{rl_complete()}.  This function is
+called with the same arguments as other bindable Readline functions:
+@var{count} and @var{invoking_key}.
+It isolates the word to be completed and calls
+@code{rl_completion_matches()} to generate a list of possible completions.
 It then either lists the possible completions, inserts the possible
 completions, or actually performs the
 completion, depending on which behavior is desired.
 
 @item
-The internal function @code{completion_matches ()} uses your
-@dfn{generator} function to generate the list of possible matches, and
-then returns the array of these matches.  You should place the address
-of your generator function in @code{rl_completion_entry_function}.
+The internal function @code{rl_completion_matches()} uses an
+application-supplied @dfn{generator} function to generate the list of
+possible matches, and then returns the array of these matches.
+The caller should place the address of its generator function in
+@code{rl_completion_entry_function}.
 
 @item
 The generator function is called repeatedly from
-@code{completion_matches ()}, returning a string each time.  The
+@code{rl_completion_matches()}, returning a string each time.  The
 arguments to the generator function are @var{text} and @var{state}.
 @var{text} is the partial word to be completed.  @var{state} is zero the
 first time the function is called, allowing the generator to perform
 any necessary initialization, and a positive non-zero integer for
-each subsequent call.  When the generator function returns
-@code{(char *)NULL} this signals @code{completion_matches ()} that there are
+each subsequent call.  The generator function returns
+@code{(char *)NULL} to inform @code{rl_completion_matches()} that there are
 no more possibilities left.  Usually the generator function computes the
 list of possible completions when @var{state} is zero, and returns them
 one at a time on subsequent calls.  Each string the generator function
@@ -1069,14 +1368,15 @@ frees the strings when it has finished with them.
 @deftypefun int rl_complete (int ignore, int invoking_key)
 Complete the word at or before point.  You have supplied the function
 that does the initial simple matching selection algorithm (see
-@code{completion_matches ()}).  The default is to do filename completion.
+@code{rl_completion_matches()}).  The default is to do filename completion.
 @end deftypefun
 
-@deftypevar {Function *} rl_completion_entry_function
-This is a pointer to the generator function for @code{completion_matches
-()}.  If the value of @code{rl_completion_entry_function} is
-@code{(Function *)NULL} then the default filename generator function,
-@code{filename_completion_function ()}, is used.
+@deftypevar {rl_compentry_func_t *} rl_completion_entry_function
+This is a pointer to the generator function for
+@code{rl_completion_matches()}.
+If the value of @code{rl_completion_entry_function} is
+@code{NULL} then the default filename generator
+function, @code{rl_filename_completion_function()}, is used.
 @end deftypevar
 
 @node Completion Functions
@@ -1097,47 +1397,47 @@ performing partial completion.
 @deftypefun int rl_complete (int ignore, int invoking_key)
 Complete the word at or before point.  You have supplied the function
 that does the initial simple matching selection algorithm (see
-@code{completion_matches ()} and @code{rl_completion_entry_function}).
+@code{rl_completion_matches()} and @code{rl_completion_entry_function}).
 The default is to do filename
-completion.  This calls @code{rl_complete_internal ()} with an
+completion.  This calls @code{rl_complete_internal()} with an
 argument depending on @var{invoking_key}.
 @end deftypefun
 
-@deftypefun int rl_possible_completions (int count, int invoking_key))
+@deftypefun int rl_possible_completions (int count, int invoking_key)
 List the possible completions.  See description of @code{rl_complete
-()}.  This calls @code{rl_complete_internal ()} with an argument of
+()}.  This calls @code{rl_complete_internal()} with an argument of
 @samp{?}.
 @end deftypefun
 
-@deftypefun int rl_insert_completions (int count, int invoking_key))
+@deftypefun int rl_insert_completions (int count, int invoking_key)
 Insert the list of possible completions into the line, deleting the
-partially-completed word.  See description of @code{rl_complete ()}.
-This calls @code{rl_complete_internal ()} with an argument of @samp{*}.
+partially-completed word.  See description of @code{rl_complete()}.
+This calls @code{rl_complete_internal()} with an argument of @samp{*}.
 @end deftypefun
 
-@deftypefun {char **} completion_matches (char *text, CPFunction *entry_func)
-Returns an array of @code{(char *)} which is a list of completions for
-@var{text}.  If there are no completions, returns @code{(char **)NULL}.
+@deftypefun {char **} rl_completion_matches (const char *text, rl_compentry_func_t *entry_func)
+Returns an array of strings which is a list of completions for
+@var{text}.  If there are no completions, returns @code{NULL}.
 The first entry in the returned array is the substitution for @var{text}.
 The remaining entries are the possible completions.  The array is
 terminated with a @code{NULL} pointer.
 
 @var{entry_func} is a function of two args, and returns a
-@code{(char *)}.  The first argument is @var{text}.  The second is a
+@code{char *}.  The first argument is @var{text}.  The second is a
 state argument; it is zero on the first call, and non-zero on subsequent
 calls.  @var{entry_func} returns a @code{NULL}  pointer to the caller
 when there are no more matches.
 @end deftypefun
 
-@deftypefun {char *} filename_completion_function (char *text, int state)
-A generator function for filename completion in the general case.  Note
-that completion in Bash is a little different because of all
-the pathnames that must be followed when looking up completions for a
-command.  The Bash source is a useful reference for writing custom
-completion functions.
+@deftypefun {char *} rl_filename_completion_function (const char *text, int state)
+A generator function for filename completion in the general case.
+@var{text} is a partial filename.
+The Bash source is a useful reference for writing custom
+completion functions (the Bash completion functions call this and other
+Readline functions).
 @end deftypefun
 
-@deftypefun {char *} username_completion_function (char *text, int state)
+@deftypefun {char *} rl_username_completion_function (const char *text, int state)
 A completion generator for usernames.  @var{text} contains a partial
 username preceded by a random character (usually @samp{~}).  As with all
 completion generators, @var{state} is zero on the first call and non-zero
@@ -1147,26 +1447,29 @@ for subsequent calls.
 @node Completion Variables
 @subsection Completion Variables
 
-@deftypevar {Function *} rl_completion_entry_function
-A pointer to the generator function for @code{completion_matches ()}.
-@code{NULL} means to use @code{filename_completion_function ()}, the default
+@deftypevar {rl_compentry_func_t *} rl_completion_entry_function
+A pointer to the generator function for @code{rl_completion_matches()}.
+@code{NULL} means to use @code{rl_filename_completion_function()}, the default
 filename completer.
 @end deftypevar
 
-@deftypevar {CPPFunction *} rl_attempted_completion_function
+@deftypevar {rl_completion_func_t *} rl_attempted_completion_function
 A pointer to an alternative function to create matches.
 The function is called with @var{text}, @var{start}, and @var{end}.
-@var{start} and @var{end} are indices in @code{rl_line_buffer} saying
-what the boundaries of @var{text} are.  If this function exists and
-returns @code{NULL}, or if this variable is set to @code{NULL}, then
-@code{rl_complete ()} will call the value of
+@var{start} and @var{end} are indices in @code{rl_line_buffer} defining
+the boundaries of @var{text}, which is a character string.
+If this function exists and returns @code{NULL}, or if this variable is
+set to @code{NULL}, then @code{rl_complete()} will call the value of
 @code{rl_completion_entry_function} to generate matches, otherwise the
 array of strings returned will be used.
+If this function sets the @code{rl_attempted_completion_over}
+variable to a non-zero value, Readline will not perform its default
+completion even if this function returns no matches.
 @end deftypevar
 
-@deftypevar {CPFunction *} rl_filename_quoting_function
-A pointer to a function that will quote a filename in an application-
-specific fashion.  This is called if filename completion is being
+@deftypevar {rl_quote_func_t *} rl_filename_quoting_function
+A pointer to a function that will quote a filename in an
+application-specific fashion.  This is called if filename completion is being
 attempted and one of the characters in @code{rl_filename_quote_characters}
 appears in a completed filename.  The function is called with
 @var{text}, @var{match_type}, and @var{quote_pointer}.  The @var{text}
@@ -1178,7 +1481,7 @@ to any opening quote character the user typed.  Some functions choose
 to reset this character.
 @end deftypevar
 
-@deftypevar {CPFunction *} rl_filename_dequoting_function
+@deftypevar {rl_dequote_func_t *} rl_filename_dequoting_function
 A pointer to a function that will remove application-specific quoting
 characters from a filename before completion is attempted, so those
 characters do not interfere with matching the text against names in
@@ -1188,10 +1491,10 @@ that delimits the filename (usually @samp{'} or @samp{"}).  If
 @var{quote_char} is zero, the filename was not in an embedded string.
 @end deftypevar
 
-@deftypevar {Function *} rl_char_is_quoted_p
+@deftypevar {rl_linebuf_func_t *} rl_char_is_quoted_p
 A pointer to a function to call that determines whether or not a specific
 character in the line buffer is quoted, according to whatever quoting
-mechanism the program calling readline uses.  The function is called with
+mechanism the program calling Readline uses.  The function is called with
 two arguments: @var{text}, the text of the line, and @var{index}, the
 index of the character in the line.  It is used to decide whether a
 character found in @code{rl_completer_word_break_characters} should be
@@ -1204,36 +1507,36 @@ possible-completions call.  After that, we ask the user if she is sure
 she wants to see them all.  The default value is 100.
 @end deftypevar
 
-@deftypevar {char *} rl_basic_word_break_characters
+@deftypevar {const char *} rl_basic_word_break_characters
 The basic list of characters that signal a break between words for the
 completer routine.  The default value of this variable is the characters
-which break words for completion in Bash, i.e.,
+which break words for completion in Bash:
 @code{" \t\n\"\\'`@@$><=;|&@{("}.
 @end deftypevar
 
-@deftypevar {char *} rl_basic_quote_characters
-List of quote characters which can cause a word break.
+@deftypevar {const char *} rl_basic_quote_characters
+A list of quote characters which can cause a word break.
 @end deftypevar
 
-@deftypevar {char *} rl_completer_word_break_characters
+@deftypevar {const char *} rl_completer_word_break_characters
 The list of characters that signal a break between words for
-@code{rl_complete_internal ()}.  The default list is the value of
+@code{rl_complete_internal()}.  The default list is the value of
 @code{rl_basic_word_break_characters}.
 @end deftypevar
 
-@deftypevar {char *} rl_completer_quote_characters
-List of characters which can be used to quote a substring of the line.
+@deftypevar {const char *} rl_completer_quote_characters
+A list of characters which can be used to quote a substring of the line.
 Completion occurs on the entire substring, and within the substring
 @code{rl_completer_word_break_characters} are treated as any other character,
 unless they also appear within this list.
 @end deftypevar
 
-@deftypevar {char *} rl_filename_quote_characters
+@deftypevar {const char *} rl_filename_quote_characters
 A list of characters that cause a filename to be quoted by the completer
 when they appear in a completed filename.  The default is the null string.
 @end deftypevar
 
-@deftypevar {char *} rl_special_prefixes
+@deftypevar {const char *} rl_special_prefixes
 The list of characters that are word break characters, but should be
 left in @var{text} when it is passed to the completion function.
 Programs can use this to help determine what kind of completing to do.
@@ -1252,7 +1555,8 @@ an application-specific command line syntax specification.
 @end deftypevar
 
 @deftypevar int rl_ignore_completion_duplicates
-If non-zero, then disallow duplicates in the matches.  Default is 1.
+If non-zero, then duplicates in the matches are removed.
+The default is 1.
 @end deftypevar
 
 @deftypevar int rl_filename_completion_desired
@@ -1260,8 +1564,9 @@ Non-zero means that the results of the matches are to be treated as
 filenames.  This is @emph{always} zero on entry, and can only be changed
 within a completion entry generator function.  If it is set to a non-zero
 value, directory names have a slash appended and Readline attempts to
-quote completed filenames if they contain any embedded word break
-characters.
+quote completed filenames if they contain any characters in
+@code{rl_filename_quote_characters} and @code{rl_filename_quoting_desired}
+is set to a non-zero value.
 @end deftypevar
 
 @deftypevar int rl_filename_quoting_desired
@@ -1274,12 +1579,26 @@ function.  The quoting is effected via a call to the function pointed to
 by @code{rl_filename_quoting_function}.
 @end deftypevar
 
+@deftypevar int rl_attempted_completion_over
+If an application-specific completion function assigned to
+@code{rl_attempted_completion_function} sets this variable to a non-zero
+value, Readline will not perform its default filename completion even
+if the application's completion function returns no matches.
+It should be set only by an application's completion function.
+@end deftypevar
+
+@deftypevar int rl_completion_type
+Set to a character describing the type of completion Readline is currently
+attempting; see the description of @code{rl_complete_internal()}
+(@pxref{Completion Functions}) for the list of characters.
+@end deftypevar
+
 @deftypevar int rl_inhibit_completion
-If this variable is non-zero, completion is inhibit<ed.  The completion
+If this variable is non-zero, completion is inhibited.  The completion
 character will be inserted as any other bound to @code{self-insert}.
 @end deftypevar
 
-@deftypevar {Function *} rl_ignore_some_completions_function
+@deftypevar {rl_compignore_func_t *} rl_ignore_some_completions_function
 This function, if defined, is called by the completer when real filename
 completion is done, after all the matching names have been generated.
 It is passed a @code{NULL} terminated array of matches.
@@ -1289,14 +1608,20 @@ re-arrange the list of matches as required, but each element deleted
 from the array must be freed.
 @end deftypevar
 
-@deftypevar {Function *} rl_directory_completion_hook
+@deftypevar {rl_icppfunc_t *} rl_directory_completion_hook
 This function, if defined, is allowed to modify the directory portion
 of filenames Readline completes.  It is called with the address of a
-string (the current directory name) as an argument.  It could be used
-to expand symbolic links or shell variables in pathnames.
+string (the current directory name) as an argument, and may modify that string.
+If the string is replaced with a new string, the old value should be freed.
+Any modified directory name should have a trailing slash.
+The modified value will be displayed as part of the completion, replacing
+the directory portion of the pathname the user typed.
+It returns an integer that should be non-zero if the function modifies
+its directory argument.
+It could be used to expand symbolic links or shell variables in pathnames.
 @end deftypevar
 
-@deftypevar {VFunction *} rl_completion_display_matches_hook
+@deftypevar {rl_compdisp_func_t *} rl_completion_display_matches_hook
 If non-zero, then this is the address of a function to call when
 completing a word would normally display the list of possible matches.
 This function is called in lieu of Readline displaying the list.
@@ -1334,19 +1659,25 @@ history list.
 #include <readline/readline.h>
 #include <readline/history.h>
 
-extern char *getwd ();
 extern char *xmalloc ();
 
 /* The names of functions that actually do the manipulation. */
-int com_list (), com_view (), com_rename (), com_stat (), com_pwd ();
-int com_delete (), com_help (), com_cd (), com_quit ();
+int com_list __P((char *));
+int com_view __P((char *));
+int com_rename __P((char *));
+int com_stat __P((char *));
+int com_pwd __P((char *));
+int com_delete __P((char *));
+int com_help __P((char *));
+int com_cd __P((char *));
+int com_quit __P((char *));
 
 /* A structure which contains information on the commands this program
    can understand. */
 
 typedef struct @{
   char *name;                  /* User printable name of the function. */
-  Function *func;              /* Function to call to do the job. */
+  rl_icpfunc_t *func;          /* Function to call to do the job. */
   char *doc;                   /* Documentation for this function.  */
 @} COMMAND;
 
@@ -1362,7 +1693,7 @@ COMMAND commands[] = @{
   @{ "rename", com_rename, "Rename FILE to NEWNAME" @},
   @{ "stat", com_stat, "Print out statistics on FILE" @},
   @{ "view", com_view, "View the contents of FILE" @},
-  @{ (char *)NULL, (Function *)NULL, (char *)NULL @}
+  @{ (char *)NULL, (rl_icpfunc_t *)NULL, (char *)NULL @}
 @};
 
 /* Forward declarations. */
@@ -1372,7 +1703,7 @@ COMMAND *find_command ();
 /* The name of this program, as taken from argv[0]. */
 char *progname;
 
-/* When non-zero, this global means the user is done using this program. */
+/* When non-zero, this means the user is done using this program. */
 int done;
 
 char *
@@ -1502,29 +1833,29 @@ stripwhite (string)
 /*                                                                  */
 /* **************************************************************** */
 
-char *command_generator ();
-char **fileman_completion ();
+char *command_generator __P((const char *, int));
+char **fileman_completion __P((const char *, int, int));
 
-/* Tell the GNU Readline library how to complete.  We want to try to complete
-   on command names if this is the first word in the line, or on filenames
-   if not. */
+/* Tell the GNU Readline library how to complete.  We want to try to
+   complete on command names if this is the first word in the line, or
+   on filenames if not. */
 initialize_readline ()
 @{
   /* Allow conditional parsing of the ~/.inputrc file. */
   rl_readline_name = "FileMan";
 
   /* Tell the completer that we want a crack first. */
-  rl_attempted_completion_function = (CPPFunction *)fileman_completion;
+  rl_attempted_completion_function = fileman_completion;
 @}
 
-/* Attempt to complete on the contents of TEXT.  START and END bound the
-   region of rl_line_buffer that contains the word to complete.  TEXT is
-   the word to complete.  We can use the entire contents of rl_line_buffer
-   in case we want to do some simple parsing.  Return the array of matches,
-   or NULL if there aren't any. */
+/* Attempt to complete on the contents of TEXT.  START and END
+   bound the region of rl_line_buffer that contains the word to
+   complete.  TEXT is the word to complete.  We can use the entire
+   contents of rl_line_buffer in case we want to do some simple
+   parsing.  Returnthe array of matches, or NULL if there aren't any. */
 char **
 fileman_completion (text, start, end)
-     char *text;
+     const char *text;
      int start, end;
 @{
   char **matches;
@@ -1535,32 +1866,33 @@ fileman_completion (text, start, end)
      to complete.  Otherwise it is the name of a file in the current
      directory. */
   if (start == 0)
-    matches = completion_matches (text, command_generator);
+    matches = rl_completion_matches (text, command_generator);
 
   return (matches);
 @}
 
-/* Generator function for command completion.  STATE lets us know whether
-   to start from scratch; without any state (i.e. STATE == 0), then we
-   start at the top of the list. */
+/* Generator function for command completion.  STATE lets us
+   know whether to start from scratch; without any state
+   (i.e. STATE == 0), then we start at the top of the list. */
 char *
 command_generator (text, state)
-     char *text;
+     const char *text;
      int state;
 @{
   static int list_index, len;
   char *name;
 
-  /* If this is a new word to complete, initialize now.  This includes
-     saving the length of TEXT for efficiency, and initializing the index
-     variable to 0. */
+  /* If this is a new word to complete, initialize now.  This
+     includes saving the length of TEXT for efficiency, and
+     initializing the index variable to 0. */
   if (!state)
     @{
       list_index = 0;
       len = strlen (text);
     @}
 
-  /* Return the next name which partially matches from the command list. */
+  /* Return the next name which partially matches from the
+     command list. */
   while (name = commands[list_index].name)
     @{
       list_index++;
@@ -1705,7 +2037,7 @@ com_pwd (ignore)
 @{
   char dir[1024], *s;
 
-  s = getwd (dir);
+  s = getcwd (dir, sizeof(dir) - 1);
   if (s == 0)
     @{
       printf ("Error getting pwd: %s\n", dir);
@@ -1716,7 +2048,8 @@ com_pwd (ignore)
   return 0;
 @}
 
-/* The user wishes to quit using this program.  Just set DONE non-zero. */
+/* The user wishes to quit using this program.  Just set DONE
+   non-zero. */
 com_quit (arg)
      char *arg;
 @{
index 9f088ff3d482536cba70b2bd7b8548ac5a9f5543..e5bf54d19bca235d840366cf7a93a4cbf28a4ed0 100644 (file)
@@ -10,7 +10,7 @@ use these features.  There is a document entitled "readline.texinfo"
 which contains both end-user and programmer documentation for the
 GNU Readline Library.
 
-Copyright (C) 1988-1999 Free Software Foundation, Inc.
+Copyright (C) 1988-2000 Free Software Foundation, Inc.
 
 Authored by Brian Fox and Chet Ramey.
 
@@ -72,11 +72,11 @@ used by several different programs, including Bash.
 The following paragraphs describe the notation used to represent
 keystrokes.
 
-The text @key{C-k} is read as `Control-K' and describes the character
+The text @kbd{C-k} is read as `Control-K' and describes the character
 produced when the @key{k} key is pressed while the Control key
 is depressed.
 
-The text @key{M-k} is read as `Meta-K' and describes the character
+The text @kbd{M-k} is read as `Meta-K' and describes the character
 produced when the Meta key (if you have one) is depressed, and the @key{k}
 key is pressed.
 The Meta key is labeled @key{ALT} on many keyboards.
@@ -89,11 +89,11 @@ Compose key for typing accented characters.
 
 If you do not have a Meta or @key{ALT} key, or another key working as
 a Meta key, the identical keystroke can be generated by typing @key{ESC}
-@i{first}, and then typing @key{k}.
+@emph{first}, and then typing @key{k}.
 Either process is known as @dfn{metafying} the @key{k} key.
 
-The text @key{M-C-k} is read as `Meta-Control-k' and describes the
-character produced by @dfn{metafying} @key{C-k}.
+The text @kbd{M-C-k} is read as `Meta-Control-k' and describes the
+character produced by @dfn{metafying} @kbd{C-k}.
 
 In addition, several keys have their own names.  Specifically,
 @key{DEL}, @key{ESC}, @key{LFD}, @key{SPC}, @key{RET}, and @key{TAB} all
@@ -115,8 +115,8 @@ as you type it in, allowing you to just fix your typo, and not forcing
 you to retype the majority of the line.  Using these editing commands,
 you move the cursor to the place that needs correction, and delete or
 insert the text of the corrections.  Then, when you are satisfied with
-the line, you simply press @key{RETURN}.  You do not have to be at the
-end of the line to press @key{RETURN}; the entire line is accepted
+the line, you simply press @key{RET}.  You do not have to be at the
+end of the line to press @key{RET}; the entire line is accepted
 regardless of the location of the cursor within the line.
 
 @menu
@@ -140,9 +140,9 @@ erase character to back up and delete the mistyped character.
 
 Sometimes you may mistype a character, and
 not notice the error until you have typed several other characters.  In
-that case, you can type @key{C-b} to move the cursor to the left, and then
+that case, you can type @kbd{C-b} to move the cursor to the left, and then
 correct your mistake.  Afterwards, you can move the cursor to the right
-with @key{C-f}.
+with @kbd{C-f}.
 
 When you add text in the middle of a line, you will notice that characters
 to the right of the cursor are `pushed over' to make room for the text
@@ -152,17 +152,17 @@ blank space created by the removal of the text.  A list of the bare
 essentials for editing the text of an input line follows.
 
 @table @asis
-@item @key{C-b}
+@item @kbd{C-b}
 Move back one character.
-@item @key{C-f}
+@item @kbd{C-f}
 Move forward one character.
 @item @key{DEL} or @key{Backspace}
 Delete the character to the left of the cursor.
-@item @key{C-d}
+@item @kbd{C-d}
 Delete the character underneath the cursor.
 @item @w{Printing characters}
 Insert the character into the line at the cursor.
-@item @key{C-_} or @key{C-x C-u}
+@item @kbd{C-_} or @kbd{C-x C-u}
 Undo the last editing command.  You can undo all the way back to an
 empty line.
 @end table
@@ -170,7 +170,7 @@ empty line.
 @noindent
 (Depending on your configuration, the @key{Backspace} key be set to
 delete the character to the left of the cursor and the @key{DEL} key set
-to delete the character underneath the cursor, like @key{C-d}, rather
+to delete the character underneath the cursor, like @kbd{C-d}, rather
 than the character to the left of the cursor.)
 
 @node Readline Movement Commands
@@ -179,11 +179,11 @@ than the character to the left of the cursor.)
 
 The above table describes the most basic keystrokes that you need
 in order to do editing of the input line.  For your convenience, many
-other commands have been added in addition to @key{C-b}, @key{C-f},
-@key{C-d}, and @key{DEL}.  Here are some commands for moving more rapidly
+other commands have been added in addition to @kbd{C-b}, @kbd{C-f},
+@kbd{C-d}, and @key{DEL}.  Here are some commands for moving more rapidly
 about the line.
 
-@table @key
+@table @kbd
 @item C-a
 Move to the start of the line.
 @item C-e
@@ -196,7 +196,7 @@ Move backward a word.
 Clear the screen, reprinting the current line at the top.
 @end table
 
-Notice how @key{C-f} moves forward a character, while @key{M-f} moves
+Notice how @kbd{C-f} moves forward a character, while @kbd{M-f} moves
 forward a word.  It is a loose convention that control keystrokes
 operate on characters while meta keystrokes operate on words.
 
@@ -225,36 +225,36 @@ another line.
 
 Here is the list of commands for killing text.
 
-@table @key
+@table @kbd
 @item C-k
 Kill the text from the current cursor position to the end of the line.
 
 @item M-d
 Kill from the cursor to the end of the current word, or, if between
 words, to the end of the next word.
-Word boundaries are the same as those used by @key{M-f}.
+Word boundaries are the same as those used by @kbd{M-f}.
 
-@item M-DEL
+@item M-@key{DEL}
 Kill from the cursor the start of the previous word, or, if between
 words, to the start of the previous word.
-Word boundaries are the same as those used by @key{M-b}.
+Word boundaries are the same as those used by @kbd{M-b}.
 
 @item C-w
 Kill from the cursor to the previous whitespace.  This is different than
-@key{M-DEL} because the word boundaries differ.
+@kbd{M-@key{DEL}} because the word boundaries differ.
 
 @end table
 
 Here is how to @dfn{yank} the text back into the line.  Yanking
 means to copy the most-recently-killed text from the kill buffer.
 
-@table @key
+@table @kbd
 @item C-y
 Yank the most recently killed text back into the buffer at the cursor.
 
 @item M-y
 Rotate the kill-ring, and yank the new top.  You can only do this if
-the prior command is @key{C-y} or @key{M-y}.
+the prior command is @kbd{C-y} or @kbd{M-y}.
 @end table
 
 @node Readline Arguments
@@ -272,7 +272,8 @@ digits before the command.  If the first `digit' typed is a minus
 sign (@samp{-}), then the sign of the argument will be negative.  Once
 you have typed one meta digit to get the argument started, you can type
 the remainder of the digits, and then the command.  For example, to give
-the @key{C-d} command an argument of 10, you could type @samp{M-1 0 C-d}.
+the @kbd{C-d} command an argument of 10, you could type @samp{M-1 0 C-d},
+which will delete the next ten characters on the input line.
 
 @node Searching
 @subsection Searching for Commands in the History
@@ -282,7 +283,7 @@ Readline provides commands for searching through the command history
 (@pxref{Bash History Facilities})
 @end ifset
 for lines containing a specified string.
-There are two search modes:  @var{incremental} and @var{non-incremental}.
+There are two search modes:  @dfn{incremental} and @dfn{non-incremental}.
 
 Incremental searches begin before the user has finished typing the
 search string.
@@ -291,23 +292,25 @@ the next entry from the history matching the string typed so far.
 An incremental search requires only as many characters as needed to
 find the desired history entry.
 To search backward in the history for a particular string, type
-@key{C-r}.  Typing @key{C-s} searches forward through the history.
+@kbd{C-r}.  Typing @kbd{C-s} searches forward through the history.
 The characters present in the value of the @code{isearch-terminators} variable
 are used to terminate an incremental search.
 If that variable has not been assigned a value, the @key{ESC} and
-@key{C-J} characters will terminate an incremental search.
-@key{C-g} will abort an incremental search and restore the original line.
+@kbd{C-J} characters will terminate an incremental search.
+@kbd{C-g} will abort an incremental search and restore the original line.
 When the search is terminated, the history entry containing the
 search string becomes the current line.
 
-To find other matching entries in the history list, type @key{C-r} or
-@key{C-s} as appropriate.
+To find other matching entries in the history list, type @kbd{C-r} or
+@kbd{C-s} as appropriate.
 This will search backward or forward in the history for the next
 entry matching the search string typed so far.
 Any other key sequence bound to a Readline command will terminate
 the search and execute that command.
 For instance, a @key{RET} will terminate the search and accept
 the line, thereby executing the command from the history list.
+A movement command will terminate the search, make the last line found
+the current line, and begin editing.
 
 Non-incremental searches read the entire search string before starting
 to search for matching history lines.  The search string may be
@@ -324,10 +327,10 @@ Any user can customize programs that use Readline by putting
 commands in an @dfn{inputrc} file, conventionally in his home directory.
 The name of this
 @ifset BashFeatures
-file is taken from the value of the shell variable @code{INPUTRC}.  If
+file is taken from the value of the shell variable @env{INPUTRC}.  If
 @end ifset
 @ifclear BashFeatures
-file is taken from the value of the environment variable @code{INPUTRC}.  If
+file is taken from the value of the environment variable @env{INPUTRC}.  If
 @end ifclear
 that variable is unset, the default is @file{~/.inputrc}.
 
@@ -359,7 +362,15 @@ denote variable settings and key bindings.
 @item Variable Settings
 You can modify the run-time behavior of Readline by
 altering the values of variables in Readline
-using the @code{set} command within the init file.  Here is how to
+using the @code{set} command within the init file.
+The syntax is simple:
+
+@example
+set @var{variable} @var{value}
+@end example
+
+@noindent
+Here, for example, is how to
 change from the default Emacs-like key binding to use
 @code{vi} line editing commands:
 
@@ -367,6 +378,9 @@ change from the default Emacs-like key binding to use
 set editing-mode vi
 @end example
 
+Variable names and values, where appropriate, are recognized without regard
+to case. 
+
 @ifset BashFeatures
 The @w{@code{bind -V}} command lists the current Readline variable names
 and values.  @xref{Bash Builtins}.
@@ -375,6 +389,7 @@ and values.  @xref{Bash Builtins}.
 A great deal of run-time behavior is changeable with the following
 variables.
 
+@cindex variables, readline
 @table @code
 
 @item bell-style
@@ -402,13 +417,14 @@ The number of possible completions that determines when the user is
 asked whether he wants to see the list of possibilities.  If the
 number of possible completions is greater than this value,
 Readline will ask the user whether or not he wishes to view
-them; otherwise, they are simply listed.  The default limit is
-@code{100}.
+them; otherwise, they are simply listed.
+This variable must be set to an integer value greater than or equal to 0.
+The default limit is @code{100}.
 
 @item convert-meta
 @vindex convert-meta
 If set to @samp{on}, Readline will convert characters with the
-eighth bit set to an ASCII key sequence by stripping the eighth
+eighth bit set to an @sc{ascii} key sequence by stripping the eighth
 bit and prefixing an @key{ESC} character, converting them to a
 meta-prefixed key sequence.  The default value is @samp{on}.
 
@@ -448,7 +464,7 @@ this variable is set to @samp{off}.
 @vindex input-meta
 @vindex meta-flag
 If set to @samp{on}, Readline will enable eight-bit input (it
-will not strip the eighth bit from the characters it reads),
+will not clear the eighth bit in the characters it reads),
 regardless of what the terminal claims it can support.  The
 default value is @samp{off}.  The name @code{meta-flag} is a
 synonym for this variable.
@@ -458,7 +474,7 @@ synonym for this variable.
 The string of characters that should terminate an incremental search without
 subsequently executing the character as a command (@pxref{Searching}).
 If this variable has not been given a value, the characters @key{ESC} and
-@key{C-J} will terminate an incremental search.
+@kbd{C-J} will terminate an incremental search.
 
 @item keymap
 @vindex keymap
@@ -469,6 +485,7 @@ Acceptable @code{keymap} names are
 @code{emacs-meta},
 @code{emacs-ctlx},
 @code{vi},
+@code{vi-move},
 @code{vi-command}, and
 @code{vi-insert}.
 @code{vi} is equivalent to @code{vi-command}; @code{emacs} is
@@ -520,11 +537,15 @@ want to change.  The following sections contain tables of the command
 name, the default keybinding, if any, and a short description of what
 the command does.
 
-Once you know the name of the command, simply place the name of the key
+Once you know the name of the command, simply place on a line
+in the init file the name of the key
 you wish to bind the command to, a colon, and then the name of the
-command on a line in the init file.  The name of the key
-can be expressed in different ways, depending on which is most
-comfortable for you.
+command.  The name of the key
+can be expressed in different ways, depending on what you find most
+comfortable.
+
+In addition to command names, readline allows keys to be bound
+to a string that is inserted when the key is pressed (a @var{macro}).
 
 @ifset BashFeatures
 The @w{@code{bind -p}} command displays Readline function names and
@@ -541,11 +562,28 @@ Meta-Rubout: backward-kill-word
 Control-o: "> output"
 @end example
 
-In the above example, @key{C-u} is bound to the function
-@code{universal-argument}, and @key{C-o} is bound to run the macro
+In the above example, @kbd{C-u} is bound to the function
+@code{universal-argument},
+@kbd{M-DEL} is bound to the function @code{backward-kill-word}, and
+@kbd{C-o} is bound to run the macro
 expressed on the right hand side (that is, to insert the text
 @samp{> output} into the line).
 
+A number of symbolic character names are recognized while
+processing this key binding syntax:
+@var{DEL},
+@var{ESC},
+@var{ESCAPE},
+@var{LFD},
+@var{NEWLINE},
+@var{RET},
+@var{RETURN},
+@var{RUBOUT},
+@var{SPACE},
+@var{SPC},
+and
+@var{TAB}.
+
 @item @w{"@var{keyseq}": @var{function-name} or @var{macro}}
 @var{keyseq} differs from @var{keyname} above in that strings
 denoting an entire key sequence can be specified, by placing
@@ -559,9 +597,9 @@ special character names are not recognized.
 "\e[11~": "Function Key 1"
 @end example
 
-In the above example, @key{C-u} is bound to the function
+In the above example, @kbd{C-u} is again bound to the function
 @code{universal-argument} (just as it was in the first example),
-@samp{@key{C-x} @key{C-r}} is bound to the function @code{re-read-init-file},
+@samp{@kbd{C-x} @kbd{C-r}} is bound to the function @code{re-read-init-file},
 and @samp{@key{ESC} @key{[} @key{1} @key{1} @key{~}} is bound to insert
 the text @samp{Function Key 1}.
 
@@ -606,10 +644,10 @@ horizontal tab
 @item \v
 vertical tab
 @item \@var{nnn}
-the character whose @code{ASCII} code is the octal value @var{nnn}
+the character whose @sc{ascii} code is the octal value @var{nnn}
 (one to three digits)
 @item \x@var{nnn}
-the character whose @code{ASCII} code is the hexadecimal value @var{nnn}
+the character whose @sc{ascii} code is the hexadecimal value @var{nnn}
 (one to three digits)
 @end table
 
@@ -619,7 +657,7 @@ Unquoted text is assumed to be a function name.
 In the macro body, the backslash escapes described above are expanded.
 Backslash will quote any other character in the macro text,
 including @samp{"} and @samp{'}.
-For example, the following binding will make @samp{C-x \}
+For example, the following binding will make @samp{@kbd{C-x} \}
 insert a single @samp{\} into the line:
 @example
 "\C-x\\": "\\"
@@ -663,7 +701,8 @@ for instance.
 @item application
 The @var{application} construct is used to include
 application-specific settings.  Each program using the Readline
-library sets the @var{application name}, and you can test for it. 
+library sets the @var{application name}, and you can test for
+a particular value. 
 This could be used to bind key sequences to functions useful for
 a specific program.  For instance, the following command adds a
 key sequence that quotes the current or previous word in Bash:
@@ -686,6 +725,7 @@ the test fails.
 @item $include
 This directive takes a single filename as an argument and reads commands
 and bindings from that file.
+For example, the following directive reads from @file{/etc/inputrc}:
 @example
 $include /etc/inputrc
 @end example
@@ -694,7 +734,7 @@ $include /etc/inputrc
 @node Sample Init File
 @subsection Sample Init File
 
-Here is an example of an inputrc file.  This illustrates key
+Here is an example of an @var{inputrc} file.  This illustrates key
 binding, variable assignment, and conditional syntax.
 
 @example
@@ -819,12 +859,12 @@ You can list your key bindings by executing
 @w{@code{bind -P}} or, for a more terse format, suitable for an
 @var{inputrc} file, @w{@code{bind -p}}.  (@xref{Bash Builtins}.)
 @end ifset
-
 Command names without an accompanying key sequence are unbound by default.
-In the following descriptions, @var{point} refers to the current cursor
-position, and @var{mark} refers to a cursor position saved by the
+
+In the following descriptions, @dfn{point} refers to the current cursor
+position, and @dfn{mark} refers to a cursor position saved by the
 @code{set-mark} command.
-The text between the point and mark is referred to as the @var{region}.
+The text between the point and mark is referred to as the @dfn{region}.
 
 @node Commands For Moving
 @subsection Commands For Moving
@@ -862,25 +902,29 @@ Refresh the current line.  By default, this is unbound.
 @subsection Commands For Manipulating The History
 
 @ftable @code
-@item accept-line (Newline, Return)
+@item accept-line (Newline or Return)
 @ifset BashFeatures
-Accept the line regardless of where the cursor is.  If this line is
+Accept the line regardless of where the cursor is.
+If this line is
 non-empty, add it to the history list according to the setting of
-the @code{HISTCONTROL} and @code{HISTIGNORE} variables.
-If this line was a history line, then restore the history line to its
-original state.
+the @env{HISTCONTROL} and @env{HISTIGNORE} variables.
+If this line is a modified history line, then restore the history line
+to its original state.
 @end ifset
 @ifclear BashFeatures
-Accept the line regardless of where the cursor is.  If this line is
-non-empty, add it to the history list.  If this line was a history
-line, then restore the history line to its original state.
+Accept the line regardless of where the cursor is.
+If this line is
+non-empty, it may be added to the history list for future recall with
+@code{add_history()}.
+If this line is a modified history line, the history line is restored
+to its original state.
 @end ifclear
 
 @item previous-history (C-p)
-Move `up' through the history list.
+Move `back' through the history list, fetching the previous command.
 
 @item next-history (C-n)
-Move `down' through the history list.
+Move `forward' through the history list, fetching the next command.
 
 @item beginning-of-history (M-<)
 Move to the first line in the history.
@@ -920,12 +964,13 @@ is a non-incremental search.  By default, this command is unbound.
 
 @item yank-nth-arg (M-C-y)
 Insert the first argument to the previous command (usually
-the second word on the previous line).  With an argument @var{n},
+the second word on the previous line) at point.
+With an argument @var{n},
 insert the @var{n}th word from the previous command (the words
 in the previous command begin with word 0).  A negative argument
 inserts the @var{n}th word from the end of the previous command.
 
-@item yank-last-arg (M-., M-_)
+@item yank-last-arg (M-. or M-_)
 Insert last argument to the previous command (the last word of the
 previous history entry).  With an
 argument, behave exactly like @code{yank-nth-arg}.
@@ -939,10 +984,10 @@ list, inserting the last argument of each line in turn.
 
 @ftable @code
 @item delete-char (C-d)
-Delete the character under the cursor.  If the cursor is at the
+Delete the character at point.  If point is at the
 beginning of the line, there are no characters in the line, and
 the last character typed was not bound to @code{delete-char}, then
-return @code{EOF}.
+return @sc{eof}.
 
 @item backward-delete-char (Rubout)
 Delete the character behind the cursor.  A numeric argument means
@@ -953,16 +998,16 @@ Delete the character under the cursor, unless the cursor is at the
 end of the line, in which case the character behind the cursor is
 deleted.  By default, this is not bound to a key.
 
-@item quoted-insert (C-q, C-v)
+@item quoted-insert (C-q or C-v)
 Add the next character typed to the line verbatim.  This is
-how to insert key sequences like @key{C-q}, for example.
+how to insert key sequences like @kbd{C-q}, for example.
 
 @ifclear BashFeatures
-@item tab-insert (M-TAB)
+@item tab-insert (M-@key{TAB})
 Insert a tab character.
 @end ifclear
 
-@item self-insert (a, b, A, 1, !, ...)
+@item self-insert (a, b, A, 1, !, @dots{})
 Insert yourself.
 
 @item transpose-chars (C-t)
@@ -1006,7 +1051,7 @@ Kill backward to the beginning of the line.
 Kill backward from the cursor to the beginning of the current line.
 
 @item kill-whole-line ()
-Kill all characters on the current line, no matter point is.
+Kill all characters on the current line, no matter where point is.
 By default, this is unbound.
 
 @item kill-word (M-d)
@@ -1014,7 +1059,7 @@ Kill from point to the end of the current word, or if between
 words, to the end of the next word.
 Word boundaries are the same as @code{forward-word}.
 
-@item backward-kill-word (M-DEL)
+@item backward-kill-word (M-@key{DEL})
 Kill the word behind point.
 Word boundaries are the same as @code{backward-word}.
 
@@ -1044,21 +1089,20 @@ The word boundaries are the same as @code{forward-word}.
 By default, this command is unbound.
 
 @item yank (C-y)
-Yank the top of the kill ring into the buffer at the current
-cursor position.
+Yank the top of the kill ring into the buffer at point.
 
 @item yank-pop (M-y)
 Rotate the kill-ring, and yank the new top.  You can only do this if
-the prior command is yank or yank-pop.
+the prior command is @code{yank} or @code{yank-pop}.
 @end ftable
 
 @node Numeric Arguments
 @subsection Specifying Numeric Arguments
 @ftable @code
 
-@item digit-argument (M-0, M-1, ... M--)
+@item digit-argument (@kbd{M-0}, @kbd{M-1}, @dots{} @kbd{M--})
 Add this digit to the argument already accumulating, or start a new
-argument.  @key{M--} starts a negative argument.
+argument.  @kbd{M--} starts a negative argument.
 
 @item universal-argument ()
 This is another way to specify an argument.
@@ -1079,13 +1123,9 @@ By default, this is not bound to a key.
 @subsection Letting Readline Type For You
 
 @ftable @code
-@item complete (TAB)
-Attempt to do completion on the text before the cursor.  This is
-application-specific.  Generally, if you are typing a filename
-argument, you can do filename completion; if you are typing a command,
-you can do command completion; if you are typing in a symbol to GDB, you
-can do symbol name completion; if you are typing in a variable to Bash,
-you can do variable name completion, and so on.
+@item complete (@key{TAB})
+Attempt to perform completion on the text before point.
+The actual completion performed is application-specific.
 @ifset BashFeatures
 Bash attempts completion treating the text as a variable (if the
 text begins with @samp{$}), username (if the text begins with
@@ -1093,9 +1133,12 @@ text begins with @samp{$}), username (if the text begins with
 command (including aliases and functions) in turn.  If none 
 of these produces a match, filename completion is attempted.
 @end ifset
+@ifclear BashFeatures
+The default is filename completion.
+@end ifclear
 
 @item possible-completions (M-?)
-List the possible completions of the text before the cursor.
+List the possible completions of the text before point.
 
 @item insert-completions (M-*)
 Insert all completions of the text before point that would have
@@ -1106,12 +1149,13 @@ Similar to @code{complete}, but replaces the word to be completed
 with a single match from the list of possible completions.
 Repeated execution of @code{menu-complete} steps through the list
 of possible completions, inserting each match in turn.
-At the end of the list of completions, the bell is rung and the
-original text is restored.
+At the end of the list of completions, the bell is rung
+(subject to the setting of @code{bell-style})
+and the original text is restored.
 An argument of @var{n} moves @var{n} positions forward in the list
 of matches; a negative argument may be used to move backward
 through the list.
-This command is intended to be bound to @code{TAB}, but is unbound
+This command is intended to be bound to @key{TAB}, but is unbound
 by default.
 
 @item delete-char-or-list ()
@@ -1164,7 +1208,7 @@ in that order.
 List the possible completions of the text before point,
 treating it as a command name.
 
-@item dynamic-complete-history (M-TAB)
+@item dynamic-complete-history (M-@key{TAB})
 Attempt completion on the text before point, comparing
 the text against lines from the history list for possible
 completion matches.
@@ -1211,12 +1255,12 @@ ring the terminal's bell (subject to the setting of
 If the metafied character @var{x} is lowercase, run the command
 that is bound to the corresponding uppercase character.
 
-@item prefix-meta (ESC)
-Make the next character typed be metafied.  This is for keyboards
-without a meta key.  Typing @samp{ESC f} is equivalent to typing
-@samp{M-f}.
+@item prefix-meta (@key{ESC})
+Metafy the next character typed.  This is for keyboards
+without a meta key.  Typing @samp{@key{ESC} f} is equivalent to typing
+@kbd{M-f}.
 
-@item undo (C-_, C-x C-u)
+@item undo (C-_ or C-x C-u)
 Incremental undo, separately remembered for each line.
 
 @item revert-line (M-r)
@@ -1232,7 +1276,7 @@ command enough times to get back to the beginning.
 Perform tilde expansion on the current word.
 
 @item set-mark (C-@@)
-Set the mark to the current point.  If a
+Set the mark to the point.  If a
 numeric argument is supplied, the mark is set to that position.
 
 @item exchange-point-and-mark (C-x C-x)
@@ -1271,7 +1315,7 @@ of an @var{inputrc} file.  This command is unbound by default.
 
 @item dump-macros ()
 Print all of the Readline key sequences bound to macros and the
-strings they ouput.  If a numeric argument is supplied,
+strings they output.  If a numeric argument is supplied,
 the output is formatted in such a way that it can be made part
 of an @var{inputrc} file.  This command is unbound by default.
 
@@ -1305,7 +1349,7 @@ Perform alias expansion on the current line (@pxref{Aliases}).
 @item history-and-alias-expand-line ()
 Perform history and alias expansion on the current line.
 
-@item insert-last-argument (M-., M-_)
+@item insert-last-argument (M-. or M-_)
 A synonym for @code{yank-last-arg}.
 
 @item operate-and-get-next (C-o)
@@ -1328,7 +1372,7 @@ been executed.
 While the Readline library does not have a full set of @code{vi}
 editing functions, it does contain enough to allow simple editing
 of the line.  The Readline @code{vi} mode behaves as specified in
-the @sc{POSIX} 1003.2 standard.
+the @sc{posix} 1003.2 standard.
 
 @ifset BashFeatures
 In order to switch interactively between @code{emacs} and @code{vi}
@@ -1337,7 +1381,8 @@ commands (@pxref{The Set Builtin}).
 @end ifset
 @ifclear BashFeatures
 In order to switch interactively between @code{emacs} and @code{vi}
-editing modes, use the command M-C-j (toggle-editing-mode).
+editing modes, use the command @kbd{M-C-j} (bound to emacs-editing-mode
+when in @code{vi} mode and to vi-editing-mode in @code{emacs} mode).
 @end ifclear
 The Readline default is @code{emacs} mode.
 
@@ -1374,20 +1419,20 @@ described above (@pxref{Commands For Completion}) is performed.
 First, the actions specified by the compspec are used.
 Only matches which are prefixed by the word being completed are
 returned.
-When the @samp{-f} or @samp{-d} option is used for filename or
-directory name completion, the shell variable @code{FIGNORE} is
+When the @option{-f} or @option{-d} option is used for filename or
+directory name completion, the shell variable @env{FIGNORE} is
 used to filter the matches.
-@xref{Bash Variables}, for a description of @code{FIGNORE}.
+@xref{Bash Variables}, for a description of @env{FIGNORE}.
 
 Any completions specified by a filename expansion pattern to the
-@samp{-G} option are generated next.
+@option{-G} option are generated next.
 The words generated by the pattern need not match the word being completed.
-The @code{GLOBIGNORE} shell variable is not used to filter the matches,
-but the @code{FIGNORE} shell variable is used.
+The @env{GLOBIGNORE} shell variable is not used to filter the matches,
+but the @env{FIGNORE} shell variable is used.
 
-Next, the string specified as the argument to the @samp{-W} option
+Next, the string specified as the argument to the @option{-W} option
 is considered.
-The string is first split using the characters in the @code{IFS}
+The string is first split using the characters in the @env{IFS}
 special variable as delimiters.
 Shell quoting is honored.
 Each word is then expanded using
@@ -1400,12 +1445,12 @@ The results of the expansion are prefix-matched against the word being
 completed, and the matching words become the possible completions.
 
 After these matches have been generated, any shell function or command
-specified with the @samp{-F} and @samp{-C} options is invoked.
-When the command or function is invoked, the @code{COMP_LINE} and
-@code{COMP_POINT} variables are assigned values as described above
+specified with the @option{-F} and @option{-C} options is invoked.
+When the command or function is invoked, the @env{COMP_LINE} and
+@env{COMP_POINT} variables are assigned values as described above
 (@pxref{Bash Variables}).
-If a shell function is being invoked, the @code{COMP_WORDS} and
-@code{COMP_CWORD} variables are also set.
+If a shell function is being invoked, the @env{COMP_WORDS} and
+@env{COMP_CWORD} variables are also set.
 When the function or command is invoked, the first argument is the
 name of the command whose arguments are being completed, the
 second argument is the word being completed, and the third argument
@@ -1414,21 +1459,21 @@ No filtering of the generated completions against the word being completed
 is performed; the function or command has complete freedom in generating
 the matches.
 
-Any function specified with @samp{-F} is invoked first.
+Any function specified with @option{-F} is invoked first.
 The function may use any of the shell facilities, including the
 @code{compgen} builtin described below
 (@pxref{Programmable Completion Builtins}), to generate the matches.
-It must put the possible completions in the @code{COMPREPLY} array
+It must put the possible completions in the @env{COMPREPLY} array
 variable.
 
-Next, any command specified with the @samp{-C} option is invoked
+Next, any command specified with the @option{-C} option is invoked
 in an environment equivalent to command substitution.
 It should print a list of completions, one per line, to
 the standard output.
 Backslash may be used to escape a newline, if necessary.
 
 After all of the possible completions are generated, any filter
-specified with the @samp{-X} option is applied to the list.
+specified with the @option{-X} option is applied to the list.
 The filter is a pattern as used for pathname expansion; a @samp{&}
 in the pattern is replaced with the text of the word being completed.
 A literal @samp{&} may be escaped with a backslash; the backslash
@@ -1437,15 +1482,22 @@ Any completion that matches the pattern will be removed from the list.
 A leading @samp{!} negates the pattern; in this case any completion
 not matching the pattern will be removed.
 
-Finally, any prefix and suffix specified with the @samp{-P} and @samp{-S}
+Finally, any prefix and suffix specified with the @option{-P} and @option{-S}
 options are added to each member of the completion list, and the result is
 returned to the Readline completion code as the list of possible
 completions.
 
-If a compspec is found, whatever it generates is returned to the completion
-code as the full set of possible completions.
-The default Bash completions are not attempted, and the Readline
-default of filename completion is disabled.
+If the previously-applied actions do not generate any matches, and the
+@option{-o dirnames} option was supplied to @code{complete} when the
+compspec was defined, directory name completion is attempted. 
+
+By default, if a compspec is found, whatever it generates is returned to
+the completion code as the full set of possible completions.
+The default Bash completions are not attempted, and the Readline default
+of filename completion is disabled.
+If the @option{-o default} option was supplied to @code{complete} when the
+compspec was defined, Readline's default completion will be performed
+if the compspec generates no matches.
 
 @node Programmable Completion Builtins
 @section Programmable Completion Builtins
@@ -1464,9 +1516,9 @@ facilities.
 Generate possible completion matches for @var{word} according to
 the @var{option}s, which may be any option accepted by the
 @code{complete}
-builtin with the exception of @samp{-p} and @samp{-r}, and write
+builtin with the exception of @option{-p} and @option{-r}, and write
 the matches to the standard output.
-When using the @samp{-F} or @samp{-C} options, the various shell variables
+When using the @option{-F} or @option{-C} options, the various shell variables
 set by the programmable completion facilities, while available, will not
 have useful values.
 
@@ -1482,17 +1534,17 @@ matches were generated.
 @item complete
 @btindex complete
 @example
-@code{complete [-abcdefjkvu] [-A @var{action}] [-G @var{globpat}] [-W @var{wordlist}]
+@code{complete [-abcdefjkvu] [-o @var{comp-option}] [-A @var{action}] [-G @var{globpat}] [-W @var{wordlist}]
 [-P @var{prefix}] [-S @var{suffix}] [-X @var{filterpat}] [-F @var{function}]
 [-C @var{command}] @var{name} [@var{name} @dots{}]}
 @code{complete -pr [@var{name} @dots{}]}
 @end example
 
 Specify how arguments to each @var{name} should be completed.
-If the @samp{-p} option is supplied, or if no options are supplied, existing
+If the @option{-p} option is supplied, or if no options are supplied, existing
 completion specifications are printed in a way that allows them to be
 reused as input.
-The @samp{-r} option removes a completion specification for
+The @option{-r} option removes a completion specification for
 each @var{name}, or, if no @var{name}s are supplied, all
 completion specifications.
 
@@ -1500,19 +1552,40 @@ The process of applying these completion specifications when word completion
 is attempted is described above (@pxref{Programmable Completion}).
 
 Other options, if specified, have the following meanings.
-The arguments to the @samp{-G}, @samp{-W}, and @samp{-X} options
-(and, if necessary, the @samp{-P} and @samp{-S} options)
+The arguments to the @option{-G}, @option{-W}, and @option{-X} options
+(and, if necessary, the @option{-P} and @option{-S} options)
 should be quoted to protect them from expansion before the
 @code{complete} builtin is invoked.
 
+
+@table @code
+@item -o @var{comp-option}
+The @var{comp-option} controls several aspects of the compspec's behavior
+beyond the simple generation of completions.
+@var{comp-option} may be one of: 
+
 @table @code
+
+@item default
+Use readline's default completion if the compspec generates no matches.
+
+@item dirnames
+Perform directory name completion if the compspec generates no matches.
+
+@item filenames
+Tell Readline that the compspec generates filenames, so it can perform any
+filename\-specific processing (like adding a slash to directory names or
+suppressing trailing spaces).  This option is intended to be used with
+shell functions specified with @option{-F}.
+@end table
+
 @item -A @var{action}
 The @var{action} may be one of the following to generate a list of possible
 completions:
 
 @table @code
 @item alias
-Alias names.  May also be specified as @samp{-a}.
+Alias names.  May also be specified as @option{-a}.
 
 @item arrayvar
 Array variable names.
@@ -1521,13 +1594,13 @@ Array variable names.
 Readline key binding names (@pxref{Bindable Readline Commands}).
 
 @item builtin
-Names of shell builtin commands.  May also be specified as @samp{-b}.
+Names of shell builtin commands.  May also be specified as @option{-b}.
 
 @item command
-Command names.  May also be specified as @samp{-c}.
+Command names.  May also be specified as @option{-c}.
 
 @item directory
-Directory names.  May also be specified as @samp{-d}.
+Directory names.  May also be specified as @option{-d}.
 
 @item disabled
 Names of disabled shell builtins.
@@ -1536,10 +1609,10 @@ Names of disabled shell builtins.
 Names of enabled shell builtins.
 
 @item export
-Names of exported shell variables.  May also be specified as @samp{-e}.
+Names of exported shell variables.  May also be specified as @option{-e}.
 
 @item file
-File names.  May also be specified as @samp{-f}.
+File names.  May also be specified as @option{-f}.
 
 @item function
 Names of shell functions.
@@ -1549,19 +1622,19 @@ Help topics as accepted by the @code{help} builtin (@pxref{Bash Builtins}).
 
 @item hostname
 Hostnames, as taken from the file specified by the
-@code{HOSTFILE} shell variable (@pxref{Bash Variables}).
+@env{HOSTFILE} shell variable (@pxref{Bash Variables}).
 
 @item job
-Job names, if job control is active.  May also be specified as @samp{-j}.
+Job names, if job control is active.  May also be specified as @option{-j}.
 
 @item keyword
-Shell reserved words.  May also be specified as @samp{-k}.
+Shell reserved words.  May also be specified as @option{-k}.
 
 @item running
 Names of running jobs, if job control is active.
 
 @item setopt
-Valid arguments for the @samp{-o} option to the @code{set} builtin
+Valid arguments for the @option{-o} option to the @code{set} builtin
 (@pxref{The Set Builtin}).
 
 @item shopt
@@ -1575,10 +1648,10 @@ Signal names.
 Names of stopped jobs, if job control is active.
 
 @item user
-User names.  May also be specified as @samp{-u}.
+User names.  May also be specified as @option{-u}.
 
 @item variable
-Names of all shell variables.  May also be specified as @samp{-v}.
+Names of all shell variables.  May also be specified as @option{-v}.
 @end table
 
 @item -G @var{globpat}
@@ -1587,7 +1660,7 @@ the possible completions.
 
 @item -W @var{wordlist}
 The @var{wordlist} is split using the characters in the
-@code{IFS} special variable as delimiters, and each resultant word
+@env{IFS} special variable as delimiters, and each resultant word
 is expanded.
 The possible completions are the members of the resultant list which
 match the word being completed.
@@ -1600,7 +1673,7 @@ used as the possible completions.
 The shell function @var{function} is executed in the current shell
 environment.
 When it finishes, the possible completions are retrieved from the value
-of the @code{COMPREPLY} array variable.
+of the @env{COMPREPLY} array variable.
 
 @item -X @var{filterpat}
 @var{filterpat} is a pattern as used for filename expansion.
@@ -1620,7 +1693,7 @@ after all other options have been applied.
 @end table
 
 The return value is true unless an invalid option is supplied, an option
-other than @samp{-p} or @samp{-r} is supplied without a @var{name}
+other than @option{-p} or @option{-r} is supplied without a @var{name}
 argument, an attempt is made to remove a completion specification for
 a @var{name} for which no specification exists, or
 an error occurs adding a completion specification.
index e6a3dcde2a9424deff1490c682155c0457ec887d..db560b9cb565aaf0f1889cb1db7f154bff61ee87 100644 (file)
 @ifinfo
 @dircategory Libraries
 @direntry
-* Readline: (readline).       The GNU readline library API
+* RLuserman: (rluserman).       The GNU readline library User's Manual.
 @end direntry
 
 This document describes the end user interface of the GNU Readline Library,
 a utility which aids in the consistency of user interface across discrete
 programs that need to provide a command line interface.
 
-Copyright (C) 1988-1999 Free Software Foundation, Inc.
+Copyright (C) 1988-2001 Free Software Foundation, Inc.
 
 Permission is granted to make and distribute verbatim copies of
 this manual provided the copyright notice and this permission notice
@@ -72,7 +72,7 @@ except that this permission notice may be stated in a translation approved
 by the Free Software Foundation.
 
 @vskip 0pt plus 1filll
-Copyright @copyright{} 1988-1999 Free Software Foundation, Inc.
+Copyright @copyright{} 1988-2001 Free Software Foundation, Inc.
 @end titlepage
 
 @ifinfo
index daba213ba0792477cff3bcfd3f8b281eed7c19b9..e2f2b30fd7f2baabb36adabd42004261d73287cc 100644 (file)
 KEYMAP_ENTRY_ARRAY emacs_standard_keymap = {
 
   /* Control keys. */
-  { ISFUNC, rl_set_mark },             /* Control-@ */
-  { ISFUNC, rl_beg_of_line },          /* Control-a */
-  { ISFUNC, rl_backward },             /* Control-b */
-  { ISFUNC, (Function *)0x0 },         /* Control-c */
-  { ISFUNC, rl_delete },               /* Control-d */
-  { ISFUNC, rl_end_of_line },          /* Control-e */
-  { ISFUNC, rl_forward },              /* Control-f */
-  { ISFUNC, rl_abort },                        /* Control-g */
-  { ISFUNC, rl_rubout },               /* Control-h */
-  { ISFUNC, rl_complete },             /* Control-i */
-  { ISFUNC, rl_newline },              /* Control-j */
-  { ISFUNC, rl_kill_line },            /* Control-k */
-  { ISFUNC, rl_clear_screen },         /* Control-l */
-  { ISFUNC, rl_newline },              /* Control-m */
-  { ISFUNC, rl_get_next_history },     /* Control-n */
-  { ISFUNC, (Function *)0x0 },         /* Control-o */
-  { ISFUNC, rl_get_previous_history }, /* Control-p */
-  { ISFUNC, rl_quoted_insert },                /* Control-q */
-  { ISFUNC, rl_reverse_search_history }, /* Control-r */
-  { ISFUNC, rl_forward_search_history }, /* Control-s */
-  { ISFUNC, rl_transpose_chars },      /* Control-t */
-  { ISFUNC, rl_unix_line_discard },    /* Control-u */
-  { ISFUNC, rl_quoted_insert },                /* Control-v */
-  { ISFUNC, rl_unix_word_rubout },     /* Control-w */
-  { ISKMAP, (Function *)emacs_ctlx_keymap },   /* Control-x */
-  { ISFUNC, rl_yank },                 /* Control-y */
-  { ISFUNC, (Function *)0x0 },         /* Control-z */
-  { ISKMAP, (Function *)emacs_meta_keymap }, /* Control-[ */
-  { ISFUNC, (Function *)0x0 },         /* Control-\ */
-  { ISFUNC, rl_char_search },          /* Control-] */
-  { ISFUNC, (Function *)0x0 },         /* Control-^ */
-  { ISFUNC, rl_undo_command },         /* Control-_ */
+  { ISFUNC, rl_set_mark },                     /* Control-@ */
+  { ISFUNC, rl_beg_of_line },                  /* Control-a */
+  { ISFUNC, rl_backward },                     /* Control-b */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-c */
+  { ISFUNC, rl_delete },                       /* Control-d */
+  { ISFUNC, rl_end_of_line },                  /* Control-e */
+  { ISFUNC, rl_forward },                      /* Control-f */
+  { ISFUNC, rl_abort },                                /* Control-g */
+  { ISFUNC, rl_rubout },                       /* Control-h */
+  { ISFUNC, rl_complete },                     /* Control-i */
+  { ISFUNC, rl_newline },                      /* Control-j */
+  { ISFUNC, rl_kill_line },                    /* Control-k */
+  { ISFUNC, rl_clear_screen },                 /* Control-l */
+  { ISFUNC, rl_newline },                      /* Control-m */
+  { ISFUNC, rl_get_next_history },             /* Control-n */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-o */
+  { ISFUNC, rl_get_previous_history },         /* Control-p */
+  { ISFUNC, rl_quoted_insert },                        /* Control-q */
+  { ISFUNC, rl_reverse_search_history },       /* Control-r */
+  { ISFUNC, rl_forward_search_history },       /* Control-s */
+  { ISFUNC, rl_transpose_chars },              /* Control-t */
+  { ISFUNC, rl_unix_line_discard },            /* Control-u */
+  { ISFUNC, rl_quoted_insert },                        /* Control-v */
+  { ISFUNC, rl_unix_word_rubout },             /* Control-w */
+  { ISKMAP, (rl_command_func_t *)emacs_ctlx_keymap },  /* Control-x */
+  { ISFUNC, rl_yank },                         /* Control-y */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-z */
+  { ISKMAP, (rl_command_func_t *)emacs_meta_keymap }, /* Control-[ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-\ */
+  { ISFUNC, rl_char_search },                  /* Control-] */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-^ */
+  { ISFUNC, rl_undo_command },                 /* Control-_ */
 
   /* The start of printing characters. */
-  { ISFUNC, rl_insert },       /* SPACE */
-  { ISFUNC, rl_insert },       /* ! */
-  { ISFUNC, rl_insert },       /* " */
-  { ISFUNC, rl_insert },       /* # */
-  { ISFUNC, rl_insert },       /* $ */
-  { ISFUNC, rl_insert },       /* % */
-  { ISFUNC, rl_insert },       /* & */
-  { ISFUNC, rl_insert },       /* ' */
-  { ISFUNC, rl_insert },       /* ( */
-  { ISFUNC, rl_insert },       /* ) */
-  { ISFUNC, rl_insert },       /* * */
-  { ISFUNC, rl_insert },       /* + */
-  { ISFUNC, rl_insert },       /* , */
-  { ISFUNC, rl_insert },       /* - */
-  { ISFUNC, rl_insert },       /* . */
-  { ISFUNC, rl_insert },       /* / */
-
-  /* Regular digits. */
-  { ISFUNC, rl_insert },       /* 0 */
-  { ISFUNC, rl_insert },       /* 1 */
-  { ISFUNC, rl_insert },       /* 2 */
-  { ISFUNC, rl_insert },       /* 3 */
-  { ISFUNC, rl_insert },       /* 4 */
-  { ISFUNC, rl_insert },       /* 5 */
-  { ISFUNC, rl_insert },       /* 6 */
-  { ISFUNC, rl_insert },       /* 7 */
-  { ISFUNC, rl_insert },       /* 8 */
-  { ISFUNC, rl_insert },       /* 9 */
+  { ISFUNC, rl_insert },               /* SPACE */
+  { ISFUNC, rl_insert },               /* ! */
+  { ISFUNC, rl_insert },               /* " */
+  { ISFUNC, rl_insert },               /* # */
+  { ISFUNC, rl_insert },               /* $ */
+  { ISFUNC, rl_insert },               /* % */
+  { ISFUNC, rl_insert },               /* & */
+  { ISFUNC, rl_insert },               /* ' */
+  { ISFUNC, rl_insert },               /* ( */
+  { ISFUNC, rl_insert },               /* ) */
+  { ISFUNC, rl_insert },               /* * */
+  { ISFUNC, rl_insert },               /* + */
+  { ISFUNC, rl_insert },               /* , */
+  { ISFUNC, rl_insert },               /* - */
+  { ISFUNC, rl_insert },               /* . */
+  { ISFUNC, rl_insert },               /* / */
+       
+         /* Regular digits. */
+  { ISFUNC, rl_insert },               /* 0 */
+  { ISFUNC, rl_insert },               /* 1 */
+  { ISFUNC, rl_insert },               /* 2 */
+  { ISFUNC, rl_insert },               /* 3 */
+  { ISFUNC, rl_insert },               /* 4 */
+  { ISFUNC, rl_insert },               /* 5 */
+  { ISFUNC, rl_insert },               /* 6 */
+  { ISFUNC, rl_insert },               /* 7 */
+  { ISFUNC, rl_insert },               /* 8 */
+  { ISFUNC, rl_insert },               /* 9 */
 
   /* A little more punctuation. */
-  { ISFUNC, rl_insert },       /* : */
-  { ISFUNC, rl_insert },       /* ; */
-  { ISFUNC, rl_insert },       /* < */
-  { ISFUNC, rl_insert },       /* = */
-  { ISFUNC, rl_insert },       /* > */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* @ */
+  { ISFUNC, rl_insert },               /* : */
+  { ISFUNC, rl_insert },               /* ; */
+  { ISFUNC, rl_insert },               /* < */
+  { ISFUNC, rl_insert },               /* = */
+  { ISFUNC, rl_insert },               /* > */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* @ */
 
   /* Uppercase alphabet. */
-  { ISFUNC, rl_insert },       /* A */
-  { ISFUNC, rl_insert },       /* B */
-  { ISFUNC, rl_insert },       /* C */
-  { ISFUNC, rl_insert },       /* D */
-  { ISFUNC, rl_insert },       /* E */
-  { ISFUNC, rl_insert },       /* F */
-  { ISFUNC, rl_insert },       /* G */
-  { ISFUNC, rl_insert },       /* H */
-  { ISFUNC, rl_insert },       /* I */
-  { ISFUNC, rl_insert },       /* J */
-  { ISFUNC, rl_insert },       /* K */
-  { ISFUNC, rl_insert },       /* L */
-  { ISFUNC, rl_insert },       /* M */
-  { ISFUNC, rl_insert },       /* N */
-  { ISFUNC, rl_insert },       /* O */
-  { ISFUNC, rl_insert },       /* P */
-  { ISFUNC, rl_insert },       /* Q */
-  { ISFUNC, rl_insert },       /* R */
-  { ISFUNC, rl_insert },       /* S */
-  { ISFUNC, rl_insert },       /* T */
-  { ISFUNC, rl_insert },       /* U */
-  { ISFUNC, rl_insert },       /* V */
-  { ISFUNC, rl_insert },       /* W */
-  { ISFUNC, rl_insert },       /* X */
-  { ISFUNC, rl_insert },       /* Y */
-  { ISFUNC, rl_insert },       /* Z */
+  { ISFUNC, rl_insert },               /* A */
+  { ISFUNC, rl_insert },               /* B */
+  { ISFUNC, rl_insert },               /* C */
+  { ISFUNC, rl_insert },               /* D */
+  { ISFUNC, rl_insert },               /* E */
+  { ISFUNC, rl_insert },               /* F */
+  { ISFUNC, rl_insert },               /* G */
+  { ISFUNC, rl_insert },               /* H */
+  { ISFUNC, rl_insert },               /* I */
+  { ISFUNC, rl_insert },               /* J */
+  { ISFUNC, rl_insert },               /* K */
+  { ISFUNC, rl_insert },               /* L */
+  { ISFUNC, rl_insert },               /* M */
+  { ISFUNC, rl_insert },               /* N */
+  { ISFUNC, rl_insert },               /* O */
+  { ISFUNC, rl_insert },               /* P */
+  { ISFUNC, rl_insert },               /* Q */
+  { ISFUNC, rl_insert },               /* R */
+  { ISFUNC, rl_insert },               /* S */
+  { ISFUNC, rl_insert },               /* T */
+  { ISFUNC, rl_insert },               /* U */
+  { ISFUNC, rl_insert },               /* V */
+  { ISFUNC, rl_insert },               /* W */
+  { ISFUNC, rl_insert },               /* X */
+  { ISFUNC, rl_insert },               /* Y */
+  { ISFUNC, rl_insert },               /* Z */
 
   /* Some more punctuation. */
-  { ISFUNC, rl_insert },       /* [ */
-  { ISFUNC, rl_insert },       /* \ */
-  { ISFUNC, rl_insert },       /* ] */
-  { ISFUNC, rl_insert },       /* ^ */
-  { ISFUNC, rl_insert },       /* _ */
-  { ISFUNC, rl_insert },       /* ` */
+  { ISFUNC, rl_insert },               /* [ */
+  { ISFUNC, rl_insert },               /* \ */
+  { ISFUNC, rl_insert },               /* ] */
+  { ISFUNC, rl_insert },               /* ^ */
+  { ISFUNC, rl_insert },               /* _ */
+  { ISFUNC, rl_insert },               /* ` */
 
   /* Lowercase alphabet. */
-  { ISFUNC, rl_insert },       /* a */
-  { ISFUNC, rl_insert },       /* b */
-  { ISFUNC, rl_insert },       /* c */
-  { ISFUNC, rl_insert },       /* d */
-  { ISFUNC, rl_insert },       /* e */
-  { ISFUNC, rl_insert },       /* f */
-  { ISFUNC, rl_insert },       /* g */
-  { ISFUNC, rl_insert },       /* h */
-  { ISFUNC, rl_insert },       /* i */
-  { ISFUNC, rl_insert },       /* j */
-  { ISFUNC, rl_insert },       /* k */
-  { ISFUNC, rl_insert },       /* l */
-  { ISFUNC, rl_insert },       /* m */
-  { ISFUNC, rl_insert },       /* n */
-  { ISFUNC, rl_insert },       /* o */
-  { ISFUNC, rl_insert },       /* p */
-  { ISFUNC, rl_insert },       /* q */
-  { ISFUNC, rl_insert },       /* r */
-  { ISFUNC, rl_insert },       /* s */
-  { ISFUNC, rl_insert },       /* t */
-  { ISFUNC, rl_insert },       /* u */
-  { ISFUNC, rl_insert },       /* v */
-  { ISFUNC, rl_insert },       /* w */
-  { ISFUNC, rl_insert },       /* x */
-  { ISFUNC, rl_insert },       /* y */
-  { ISFUNC, rl_insert },       /* z */
+  { ISFUNC, rl_insert },               /* a */
+  { ISFUNC, rl_insert },               /* b */
+  { ISFUNC, rl_insert },               /* c */
+  { ISFUNC, rl_insert },               /* d */
+  { ISFUNC, rl_insert },               /* e */
+  { ISFUNC, rl_insert },               /* f */
+  { ISFUNC, rl_insert },               /* g */
+  { ISFUNC, rl_insert },               /* h */
+  { ISFUNC, rl_insert },               /* i */
+  { ISFUNC, rl_insert },               /* j */
+  { ISFUNC, rl_insert },               /* k */
+  { ISFUNC, rl_insert },               /* l */
+  { ISFUNC, rl_insert },               /* m */
+  { ISFUNC, rl_insert },               /* n */
+  { ISFUNC, rl_insert },               /* o */
+  { ISFUNC, rl_insert },               /* p */
+  { ISFUNC, rl_insert },               /* q */
+  { ISFUNC, rl_insert },               /* r */
+  { ISFUNC, rl_insert },               /* s */
+  { ISFUNC, rl_insert },               /* t */
+  { ISFUNC, rl_insert },               /* u */
+  { ISFUNC, rl_insert },               /* v */
+  { ISFUNC, rl_insert },               /* w */
+  { ISFUNC, rl_insert },               /* x */
+  { ISFUNC, rl_insert },               /* y */
+  { ISFUNC, rl_insert },               /* z */
 
   /* Final punctuation. */
-  { ISFUNC, rl_insert },       /* { */
-  { ISFUNC, rl_insert },       /* | */
-  { ISFUNC, rl_insert },       /* } */
-  { ISFUNC, rl_insert },       /* ~ */
-  { ISFUNC, rl_rubout },       /* RUBOUT */
+  { ISFUNC, rl_insert },               /* { */
+  { ISFUNC, rl_insert },               /* | */
+  { ISFUNC, rl_insert },               /* } */
+  { ISFUNC, rl_insert },               /* ~ */
+  { ISFUNC, rl_rubout },               /* RUBOUT */
 
 #if KEYMAP_SIZE > 128
   /* Pure 8-bit characters (128 - 159).
      These might be used in some
      character sets. */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
-  { ISFUNC, rl_insert },       /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
+  { ISFUNC, rl_insert },               /* ? */
 
   /* ISO Latin-1 characters (160 - 255) */
   { ISFUNC, rl_insert },       /* No-break space */
@@ -316,78 +316,78 @@ KEYMAP_ENTRY_ARRAY emacs_standard_keymap = {
 KEYMAP_ENTRY_ARRAY emacs_meta_keymap = {
 
   /* Meta keys.  Just like above, but the high bit is set. */
-  { ISFUNC, (Function *)0x0 }, /* Meta-Control-@ */
-  { ISFUNC, (Function *)0x0 }, /* Meta-Control-a */
-  { ISFUNC, (Function *)0x0 }, /* Meta-Control-b */
-  { ISFUNC, (Function *)0x0 }, /* Meta-Control-c */
-  { ISFUNC, (Function *)0x0 }, /* Meta-Control-d */
-  { ISFUNC, (Function *)0x0 }, /* Meta-Control-e */
-  { ISFUNC, (Function *)0x0 }, /* Meta-Control-f */
-  { ISFUNC, rl_abort },                /* Meta-Control-g */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-Control-@ */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-Control-a */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-Control-b */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-Control-c */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-Control-d */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-Control-e */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-Control-f */
+  { ISFUNC, rl_abort },                        /* Meta-Control-g */
   { ISFUNC, rl_backward_kill_word },   /* Meta-Control-h */
-  { ISFUNC, rl_tab_insert },   /* Meta-Control-i */
-  { ISFUNC, rl_vi_editing_mode }, /* Meta-Control-j */
-  { ISFUNC, (Function *)0x0 }, /* Meta-Control-k */
-  { ISFUNC, (Function *)0x0 }, /* Meta-Control-l */
-  { ISFUNC, rl_vi_editing_mode }, /* Meta-Control-m */
-  { ISFUNC, (Function *)0x0 }, /* Meta-Control-n */
-  { ISFUNC, (Function *)0x0 }, /* Meta-Control-o */
-  { ISFUNC, (Function *)0x0 }, /* Meta-Control-p */
-  { ISFUNC, (Function *)0x0 }, /* Meta-Control-q */
-  { ISFUNC, rl_revert_line },  /* Meta-Control-r */
-  { ISFUNC, (Function *)0x0 }, /* Meta-Control-s */
-  { ISFUNC, (Function *)0x0 }, /* Meta-Control-t */
-  { ISFUNC, (Function *)0x0 }, /* Meta-Control-u */
-  { ISFUNC, (Function *)0x0 }, /* Meta-Control-v */
-  { ISFUNC, (Function *)0x0 }, /* Meta-Control-w */
-  { ISFUNC, (Function *)0x0 }, /* Meta-Control-x */
-  { ISFUNC, rl_yank_nth_arg }, /* Meta-Control-y */
-  { ISFUNC, (Function *)0x0 }, /* Meta-Control-z */
-
-  { ISFUNC, rl_complete },     /* Meta-Control-[ */
-  { ISFUNC, (Function *)0x0 }, /* Meta-Control-\ */
+  { ISFUNC, rl_tab_insert },           /* Meta-Control-i */
+  { ISFUNC, rl_vi_editing_mode },      /* Meta-Control-j */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-Control-k */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-Control-l */
+  { ISFUNC, rl_vi_editing_mode },      /* Meta-Control-m */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-Control-n */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-Control-o */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-Control-p */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-Control-q */
+  { ISFUNC, rl_revert_line },          /* Meta-Control-r */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-Control-s */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-Control-t */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-Control-u */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-Control-v */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-Control-w */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-Control-x */
+  { ISFUNC, rl_yank_nth_arg },         /* Meta-Control-y */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-Control-z */
+
+  { ISFUNC, rl_complete },             /* Meta-Control-[ */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-Control-\ */
   { ISFUNC, rl_backward_char_search }, /* Meta-Control-] */
-  { ISFUNC, (Function *)0x0 }, /* Meta-Control-^ */
-  { ISFUNC, (Function *)0x0 }, /* Meta-Control-_ */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-Control-^ */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-Control-_ */
 
   /* The start of printing characters. */
-  { ISFUNC, rl_set_mark },     /* Meta-SPACE */
-  { ISFUNC, (Function *)0x0 }, /* Meta-! */
-  { ISFUNC, (Function *)0x0 }, /* Meta-" */
-  { ISFUNC, rl_insert_comment },/* Meta-# */
-  { ISFUNC, (Function *)0x0 }, /* Meta-$ */
-  { ISFUNC, (Function *)0x0 }, /* Meta-% */
-  { ISFUNC, rl_tilde_expand }, /* Meta-& */
-  { ISFUNC, (Function *)0x0 }, /* Meta-' */
-  { ISFUNC, (Function *)0x0 }, /* Meta-( */
-  { ISFUNC, (Function *)0x0 }, /* Meta-) */
+  { ISFUNC, rl_set_mark },             /* Meta-SPACE */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-! */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-" */
+  { ISFUNC, rl_insert_comment },       /* Meta-# */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-$ */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-% */
+  { ISFUNC, rl_tilde_expand },         /* Meta-& */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-' */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-( */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-) */
   { ISFUNC, rl_insert_completions },   /* Meta-* */
-  { ISFUNC, (Function *)0x0 }, /* Meta-+ */
-  { ISFUNC, (Function *)0x0 }, /* Meta-, */
-  { ISFUNC, rl_digit_argument }, /* Meta-- */
-  { ISFUNC, rl_yank_last_arg}, /* Meta-. */
-  { ISFUNC, (Function *)0x0 }, /* Meta-/ */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-+ */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-, */
+  { ISFUNC, rl_digit_argument },       /* Meta-- */
+  { ISFUNC, rl_yank_last_arg},         /* Meta-. */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-/ */
 
   /* Regular digits. */
-  { ISFUNC, rl_digit_argument }, /* Meta-0 */
-  { ISFUNC, rl_digit_argument }, /* Meta-1 */
-  { ISFUNC, rl_digit_argument }, /* Meta-2 */
-  { ISFUNC, rl_digit_argument }, /* Meta-3 */
-  { ISFUNC, rl_digit_argument }, /* Meta-4 */
-  { ISFUNC, rl_digit_argument }, /* Meta-5 */
-  { ISFUNC, rl_digit_argument }, /* Meta-6 */
-  { ISFUNC, rl_digit_argument }, /* Meta-7 */
-  { ISFUNC, rl_digit_argument }, /* Meta-8 */
-  { ISFUNC, rl_digit_argument }, /* Meta-9 */
+  { ISFUNC, rl_digit_argument },       /* Meta-0 */
+  { ISFUNC, rl_digit_argument },       /* Meta-1 */
+  { ISFUNC, rl_digit_argument },       /* Meta-2 */
+  { ISFUNC, rl_digit_argument },       /* Meta-3 */
+  { ISFUNC, rl_digit_argument },       /* Meta-4 */
+  { ISFUNC, rl_digit_argument },       /* Meta-5 */
+  { ISFUNC, rl_digit_argument },       /* Meta-6 */
+  { ISFUNC, rl_digit_argument },       /* Meta-7 */
+  { ISFUNC, rl_digit_argument },       /* Meta-8 */
+  { ISFUNC, rl_digit_argument },       /* Meta-9 */
 
   /* A little more punctuation. */
-  { ISFUNC, (Function *)0x0 },         /* Meta-: */
-  { ISFUNC, (Function *)0x0 },         /* Meta-; */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-: */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-; */
   { ISFUNC, rl_beginning_of_history }, /* Meta-< */
   { ISFUNC, rl_possible_completions }, /* Meta-= */
   { ISFUNC, rl_end_of_history },       /* Meta-> */
   { ISFUNC, rl_possible_completions }, /* Meta-? */
-  { ISFUNC, (Function *)0x0 },         /* Meta-@ */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-@ */
 
   /* Uppercase alphabet. */
   { ISFUNC, rl_do_lowercase_version }, /* Meta-A */
@@ -418,456 +418,456 @@ KEYMAP_ENTRY_ARRAY emacs_meta_keymap = {
   { ISFUNC, rl_do_lowercase_version }, /* Meta-Z */
 
   /* Some more punctuation. */
-  { ISFUNC, (Function *)0x0 },         /* Meta-[ */    /* was rl_arrow_keys */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Meta-[ */    /* was rl_arrow_keys */
   { ISFUNC, rl_delete_horizontal_space },      /* Meta-\ */
-  { ISFUNC, (Function *)0x0 },         /* Meta-] */
-  { ISFUNC, (Function *)0x0 },         /* Meta-^ */
-  { ISFUNC, rl_yank_last_arg },                /* Meta-_ */
-  { ISFUNC, (Function *)0x0 },         /* Meta-` */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Meta-] */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Meta-^ */
+  { ISFUNC, rl_yank_last_arg },                        /* Meta-_ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Meta-` */
 
   /* Lowercase alphabet. */
-  { ISFUNC, (Function *)0x0 }, /* Meta-a */
-  { ISFUNC, rl_backward_word },        /* Meta-b */
-  { ISFUNC, rl_capitalize_word }, /* Meta-c */
-  { ISFUNC, rl_kill_word },    /* Meta-d */
-  { ISFUNC, (Function *)0x0 }, /* Meta-e */
-  { ISFUNC, rl_forward_word }, /* Meta-f */
-  { ISFUNC, (Function *)0x0 }, /* Meta-g */
-  { ISFUNC, (Function *)0x0 }, /* Meta-h */
-  { ISFUNC, (Function *)0x0 }, /* Meta-i */
-  { ISFUNC, (Function *)0x0 }, /* Meta-j */
-  { ISFUNC, (Function *)0x0 }, /* Meta-k */
-  { ISFUNC, rl_downcase_word },        /* Meta-l */
-  { ISFUNC, (Function *)0x0 }, /* Meta-m */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-a */
+  { ISFUNC, rl_backward_word },                /* Meta-b */
+  { ISFUNC, rl_capitalize_word },      /* Meta-c */
+  { ISFUNC, rl_kill_word },            /* Meta-d */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-e */
+  { ISFUNC, rl_forward_word },         /* Meta-f */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-g */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-h */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-i */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-j */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-k */
+  { ISFUNC, rl_downcase_word },                /* Meta-l */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-m */
   { ISFUNC, rl_noninc_forward_search },        /* Meta-n */
-  { ISFUNC, (Function *)0x0 }, /* Meta-o */    /* was rl_arrow_keys */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-o */    /* was rl_arrow_keys */
   { ISFUNC, rl_noninc_reverse_search },        /* Meta-p */
-  { ISFUNC, (Function *)0x0 }, /* Meta-q */
-  { ISFUNC, rl_revert_line },  /* Meta-r */
-  { ISFUNC, (Function *)0x0 }, /* Meta-s */
-  { ISFUNC, rl_transpose_words }, /* Meta-t */
-  { ISFUNC, rl_upcase_word },  /* Meta-u */
-  { ISFUNC, (Function *)0x0 }, /* Meta-v */
-  { ISFUNC, (Function *)0x0 }, /* Meta-w */
-  { ISFUNC, (Function *)0x0 }, /* Meta-x */
-  { ISFUNC, rl_yank_pop },     /* Meta-y */
-  { ISFUNC, (Function *)0x0 }, /* Meta-z */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-q */
+  { ISFUNC, rl_revert_line },          /* Meta-r */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-s */
+  { ISFUNC, rl_transpose_words },      /* Meta-t */
+  { ISFUNC, rl_upcase_word },          /* Meta-u */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-v */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-w */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-x */
+  { ISFUNC, rl_yank_pop },             /* Meta-y */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-z */
 
   /* Final punctuation. */
-  { ISFUNC, (Function *)0x0 }, /* Meta-{ */
-  { ISFUNC, (Function *)0x0 }, /* Meta-| */
-  { ISFUNC, (Function *)0x0 }, /* Meta-} */
-  { ISFUNC, rl_tilde_expand }, /* Meta-~ */
-  { ISFUNC, rl_backward_kill_word }, /* Meta-rubout */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-{ */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-| */
+  { ISFUNC, (rl_command_func_t *)0x0 },        /* Meta-} */
+  { ISFUNC, rl_tilde_expand },         /* Meta-~ */
+  { ISFUNC, rl_backward_kill_word },   /* Meta-rubout */
 
 #if KEYMAP_SIZE > 128
   /* Undefined keys. */
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 }
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 }
 #endif /* KEYMAP_SIZE > 128 */
 };
 
 KEYMAP_ENTRY_ARRAY emacs_ctlx_keymap = {
 
   /* Control keys. */
-  { ISFUNC, (Function *)0x0 },         /* Control-@ */
-  { ISFUNC, (Function *)0x0 },         /* Control-a */
-  { ISFUNC, (Function *)0x0 },         /* Control-b */
-  { ISFUNC, (Function *)0x0 },         /* Control-c */
-  { ISFUNC, (Function *)0x0 },         /* Control-d */
-  { ISFUNC, (Function *)0x0 },         /* Control-e */
-  { ISFUNC, (Function *)0x0 },         /* Control-f */
-  { ISFUNC, rl_abort },                        /* Control-g */
-  { ISFUNC, (Function *)0x0 },         /* Control-h */
-  { ISFUNC, (Function *)0x0 },         /* Control-i */
-  { ISFUNC, (Function *)0x0 },         /* Control-j */
-  { ISFUNC, (Function *)0x0 },         /* Control-k */
-  { ISFUNC, (Function *)0x0 },         /* Control-l */
-  { ISFUNC, (Function *)0x0 },         /* Control-m */
-  { ISFUNC, (Function *)0x0 },         /* Control-n */
-  { ISFUNC, (Function *)0x0 },         /* Control-o */
-  { ISFUNC, (Function *)0x0 },         /* Control-p */
-  { ISFUNC, (Function *)0x0 },         /* Control-q */
-  { ISFUNC, rl_re_read_init_file },    /* Control-r */
-  { ISFUNC, (Function *)0x0 },         /* Control-s */
-  { ISFUNC, (Function *)0x0 },         /* Control-t */
-  { ISFUNC, rl_undo_command },         /* Control-u */
-  { ISFUNC, (Function *)0x0 },         /* Control-v */
-  { ISFUNC, (Function *)0x0 },         /* Control-w */
-  { ISFUNC, rl_exchange_point_and_mark },/* Control-x */
-  { ISFUNC, (Function *)0x0 },         /* Control-y */
-  { ISFUNC, (Function *)0x0 },         /* Control-z */
-  { ISFUNC, (Function *)0x0 },         /* Control-[ */
-  { ISFUNC, (Function *)0x0 },         /* Control-\ */
-  { ISFUNC, (Function *)0x0 },         /* Control-] */
-  { ISFUNC, (Function *)0x0 },         /* Control-^ */
-  { ISFUNC, (Function *)0x0 },         /* Control-_ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-@ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-a */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-b */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-c */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-d */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-e */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-f */
+  { ISFUNC, rl_abort },                                /* Control-g */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-h */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-i */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-j */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-k */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-l */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-m */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-n */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-o */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-p */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-q */
+  { ISFUNC, rl_re_read_init_file },            /* Control-r */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-s */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-t */
+  { ISFUNC, rl_undo_command },                 /* Control-u */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-v */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-w */
+  { ISFUNC, rl_exchange_point_and_mark },      /* Control-x */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-y */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-z */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-[ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-\ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-] */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-^ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-_ */
 
   /* The start of printing characters. */
-  { ISFUNC, (Function *)0x0 },         /* SPACE */
-  { ISFUNC, (Function *)0x0 },         /* ! */
-  { ISFUNC, (Function *)0x0 },         /* " */
-  { ISFUNC, (Function *)0x0 },         /* # */
-  { ISFUNC, (Function *)0x0 },         /* $ */
-  { ISFUNC, (Function *)0x0 },         /* % */
-  { ISFUNC, (Function *)0x0 },         /* & */
-  { ISFUNC, (Function *)0x0 },         /* ' */
-  { ISFUNC, rl_start_kbd_macro },      /* ( */
-  { ISFUNC, rl_end_kbd_macro  },       /* ) */
-  { ISFUNC, (Function *)0x0 },         /* * */
-  { ISFUNC, (Function *)0x0 },         /* + */
-  { ISFUNC, (Function *)0x0 },         /* , */
-  { ISFUNC, (Function *)0x0 },         /* - */
-  { ISFUNC, (Function *)0x0 },         /* . */
-  { ISFUNC, (Function *)0x0 },         /* / */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* SPACE */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* ! */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* " */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* # */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* $ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* % */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* & */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* ' */
+  { ISFUNC, rl_start_kbd_macro },              /* ( */
+  { ISFUNC, rl_end_kbd_macro  },               /* ) */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* * */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* + */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* , */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* - */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* . */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* / */
 
   /* Regular digits. */
-  { ISFUNC, (Function *)0x0 },         /* 0 */
-  { ISFUNC, (Function *)0x0 },         /* 1 */
-  { ISFUNC, (Function *)0x0 },         /* 2 */
-  { ISFUNC, (Function *)0x0 },         /* 3 */
-  { ISFUNC, (Function *)0x0 },         /* 4 */
-  { ISFUNC, (Function *)0x0 },         /* 5 */
-  { ISFUNC, (Function *)0x0 },         /* 6 */
-  { ISFUNC, (Function *)0x0 },         /* 7 */
-  { ISFUNC, (Function *)0x0 },         /* 8 */
-  { ISFUNC, (Function *)0x0 },         /* 9 */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* 0 */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* 1 */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* 2 */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* 3 */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* 4 */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* 5 */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* 6 */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* 7 */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* 8 */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* 9 */
 
   /* A little more punctuation. */
-  { ISFUNC, (Function *)0x0 }, /* : */
-  { ISFUNC, (Function *)0x0 }, /* ; */
-  { ISFUNC, (Function *)0x0 }, /* < */
-  { ISFUNC, (Function *)0x0 }, /* = */
-  { ISFUNC, (Function *)0x0 }, /* > */
-  { ISFUNC, (Function *)0x0 }, /* ? */
-  { ISFUNC, (Function *)0x0 }, /* @ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* : */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* ; */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* < */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* = */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* > */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* ? */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* @ */
 
   /* Uppercase alphabet. */
-  { ISFUNC, rl_do_lowercase_version }, /* A */
-  { ISFUNC, rl_do_lowercase_version }, /* B */
-  { ISFUNC, rl_do_lowercase_version }, /* C */
-  { ISFUNC, rl_do_lowercase_version }, /* D */
-  { ISFUNC, rl_do_lowercase_version }, /* E */
-  { ISFUNC, rl_do_lowercase_version }, /* F */
-  { ISFUNC, rl_do_lowercase_version }, /* G */
-  { ISFUNC, rl_do_lowercase_version }, /* H */
-  { ISFUNC, rl_do_lowercase_version }, /* I */
-  { ISFUNC, rl_do_lowercase_version }, /* J */
-  { ISFUNC, rl_do_lowercase_version }, /* K */
-  { ISFUNC, rl_do_lowercase_version }, /* L */
-  { ISFUNC, rl_do_lowercase_version }, /* M */
-  { ISFUNC, rl_do_lowercase_version }, /* N */
-  { ISFUNC, rl_do_lowercase_version }, /* O */
-  { ISFUNC, rl_do_lowercase_version }, /* P */
-  { ISFUNC, rl_do_lowercase_version }, /* Q */
-  { ISFUNC, rl_do_lowercase_version }, /* R */
-  { ISFUNC, rl_do_lowercase_version }, /* S */
-  { ISFUNC, rl_do_lowercase_version }, /* T */
-  { ISFUNC, rl_do_lowercase_version }, /* U */
-  { ISFUNC, rl_do_lowercase_version }, /* V */
-  { ISFUNC, rl_do_lowercase_version }, /* W */
-  { ISFUNC, rl_do_lowercase_version }, /* X */
-  { ISFUNC, rl_do_lowercase_version }, /* Y */
-  { ISFUNC, rl_do_lowercase_version }, /* Z */
+  { ISFUNC, rl_do_lowercase_version },         /* A */
+  { ISFUNC, rl_do_lowercase_version },         /* B */
+  { ISFUNC, rl_do_lowercase_version },         /* C */
+  { ISFUNC, rl_do_lowercase_version },         /* D */
+  { ISFUNC, rl_do_lowercase_version },         /* E */
+  { ISFUNC, rl_do_lowercase_version },         /* F */
+  { ISFUNC, rl_do_lowercase_version },         /* G */
+  { ISFUNC, rl_do_lowercase_version },         /* H */
+  { ISFUNC, rl_do_lowercase_version },         /* I */
+  { ISFUNC, rl_do_lowercase_version },         /* J */
+  { ISFUNC, rl_do_lowercase_version },         /* K */
+  { ISFUNC, rl_do_lowercase_version },         /* L */
+  { ISFUNC, rl_do_lowercase_version },         /* M */
+  { ISFUNC, rl_do_lowercase_version },         /* N */
+  { ISFUNC, rl_do_lowercase_version },         /* O */
+  { ISFUNC, rl_do_lowercase_version },         /* P */
+  { ISFUNC, rl_do_lowercase_version },         /* Q */
+  { ISFUNC, rl_do_lowercase_version },         /* R */
+  { ISFUNC, rl_do_lowercase_version },         /* S */
+  { ISFUNC, rl_do_lowercase_version },         /* T */
+  { ISFUNC, rl_do_lowercase_version },         /* U */
+  { ISFUNC, rl_do_lowercase_version },         /* V */
+  { ISFUNC, rl_do_lowercase_version },         /* W */
+  { ISFUNC, rl_do_lowercase_version },         /* X */
+  { ISFUNC, rl_do_lowercase_version },         /* Y */
+  { ISFUNC, rl_do_lowercase_version },         /* Z */
 
   /* Some more punctuation. */
-  { ISFUNC, (Function *)0x0 },         /* [ */
-  { ISFUNC, (Function *)0x0 },         /* \ */
-  { ISFUNC, (Function *)0x0 },         /* ] */
-  { ISFUNC, (Function *)0x0 },         /* ^ */
-  { ISFUNC, (Function *)0x0 },         /* _ */
-  { ISFUNC, (Function *)0x0 },         /* ` */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* [ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* \ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* ] */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* ^ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* _ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* ` */
 
   /* Lowercase alphabet. */
-  { ISFUNC, (Function *)0x0 },         /* a */
-  { ISFUNC, (Function *)0x0 },         /* b */
-  { ISFUNC, (Function *)0x0 },         /* c */
-  { ISFUNC, (Function *)0x0 },         /* d */
-  { ISFUNC, rl_call_last_kbd_macro },  /* e */
-  { ISFUNC, (Function *)0x0 },         /* f */
-  { ISFUNC, (Function *)0x0 },         /* g */
-  { ISFUNC, (Function *)0x0 },         /* h */
-  { ISFUNC, (Function *)0x0 },         /* i */
-  { ISFUNC, (Function *)0x0 },         /* j */
-  { ISFUNC, (Function *)0x0 },         /* k */
-  { ISFUNC, (Function *)0x0 },         /* l */
-  { ISFUNC, (Function *)0x0 },         /* m */
-  { ISFUNC, (Function *)0x0 },         /* n */
-  { ISFUNC, (Function *)0x0 },         /* o */
-  { ISFUNC, (Function *)0x0 },         /* p */
-  { ISFUNC, (Function *)0x0 },         /* q */
-  { ISFUNC, (Function *)0x0 },         /* r */
-  { ISFUNC, (Function *)0x0 },         /* s */
-  { ISFUNC, (Function *)0x0 },         /* t */
-  { ISFUNC, (Function *)0x0 },         /* u */
-  { ISFUNC, (Function *)0x0 },         /* v */
-  { ISFUNC, (Function *)0x0 },         /* w */
-  { ISFUNC, (Function *)0x0 },         /* x */
-  { ISFUNC, (Function *)0x0 },         /* y */
-  { ISFUNC, (Function *)0x0 },         /* z */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* a */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* b */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* c */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* d */
+  { ISFUNC, rl_call_last_kbd_macro },          /* e */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* f */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* g */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* h */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* i */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* j */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* k */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* l */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* m */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* n */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* o */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* p */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* q */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* r */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* s */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* t */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* u */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* v */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* w */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* x */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* y */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* z */
 
   /* Final punctuation. */
-  { ISFUNC, (Function *)0x0 },         /* { */
-  { ISFUNC, (Function *)0x0 },         /* | */
-  { ISFUNC, (Function *)0x0 },         /* } */
-  { ISFUNC, (Function *)0x0 },         /* ~ */
-  { ISFUNC, rl_backward_kill_line },   /* RUBOUT */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* { */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* | */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* } */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* ~ */
+  { ISFUNC, rl_backward_kill_line },           /* RUBOUT */
 
 #if KEYMAP_SIZE > 128
   /* Undefined keys. */
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 }
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 }
 #endif /* KEYMAP_SIZE > 128 */
 };
index ca03fc3dafd920c938dfb7e690950ca2a366ea83..3d4bb189c6919d90d17748ddee39a603f076ce02 100644 (file)
@@ -153,6 +153,8 @@ process_line(char *line)
   } else {
     fprintf(stderr, "|%s|\n", line);
   }
+
+  free (line);
 }
 
 int
index dc29a40104f7b6cf91c79b35bd3bd254520a2962..e9768487f006edf1962eb919d8137192b1d20fe5 100644 (file)
 extern char *xmalloc ();
 
 /* The names of functions that actually do the manipulation. */
-int com_list (), com_view (), com_rename (), com_stat (), com_pwd ();
-int com_delete (), com_help (), com_cd (), com_quit ();
+int com_list __P((char *));
+int com_view __P((char *));
+int com_rename __P((char *));
+int com_stat __P((char *));
+int com_pwd __P((char *));
+int com_delete __P((char *));
+int com_help __P((char *));
+int com_cd __P((char *));
+int com_quit __P((char *));
 
 /* A structure which contains information on the commands this program
    can understand. */
 
 typedef struct {
   char *name;                  /* User printable name of the function. */
-  Function *func;              /* Function to call to do the job. */
+  rl_icpfunc_t *func;          /* Function to call to do the job. */
   char *doc;                   /* Documentation for this function.  */
 } COMMAND;
 
@@ -65,7 +72,7 @@ COMMAND commands[] = {
   { "rename", com_rename, "Rename FILE to NEWNAME" },
   { "stat", com_stat, "Print out statistics on FILE" },
   { "view", com_view, "View the contents of FILE" },
-  { (char *)NULL, (Function *)NULL, (char *)NULL }
+  { (char *)NULL, (rl_icpfunc_t *)NULL, (char *)NULL }
 };
 
 /* Forward declarations. */
@@ -205,8 +212,8 @@ stripwhite (string)
 /*                                                                  */
 /* **************************************************************** */
 
-char *command_generator ();
-char **fileman_completion ();
+char *command_generator __P((const char *, int));
+char **fileman_completion __P((const char *, int, int));
 
 /* Tell the GNU Readline library how to complete.  We want to try to complete
    on command names if this is the first word in the line, or on filenames
@@ -217,7 +224,7 @@ initialize_readline ()
   rl_readline_name = "FileMan";
 
   /* Tell the completer that we want a crack first. */
-  rl_attempted_completion_function = (CPPFunction *)fileman_completion;
+  rl_attempted_completion_function = fileman_completion;
 }
 
 /* Attempt to complete on the contents of TEXT.  START and END bound the
@@ -227,7 +234,7 @@ initialize_readline ()
    or NULL if there aren't any. */
 char **
 fileman_completion (text, start, end)
-     char *text;
+     const char *text;
      int start, end;
 {
   char **matches;
@@ -238,7 +245,7 @@ fileman_completion (text, start, end)
      to complete.  Otherwise it is the name of a file in the current
      directory. */
   if (start == 0)
-    matches = completion_matches (text, command_generator);
+    matches = rl_completion_matches (text, command_generator);
 
   return (matches);
 }
@@ -248,7 +255,7 @@ fileman_completion (text, start, end)
    start at the top of the list. */
 char *
 command_generator (text, state)
-     char *text;
+     const char *text;
      int state;
 {
   static int list_index, len;
index eceb66df19e1c41b25007b2c00358543444c34e0..fa0de1bea3ba5f521bb20e99e03712a71710eb61 100644 (file)
@@ -1,4 +1,14 @@
-main ()
+#include <stdio.h>
+
+#ifdef READLINE_LIBRARY
+#  include "history.h"
+#else
+#  include <readline/history.h>
+#endif
+
+main (argc, argv)
+     int argc;
+     char **argv;
 {
   char line[1024], *t;
   int len, done = 0;
index 3496efa00e7612bb24d31f66697cef176f4c15a5..132e2bfea380c9ee5dd1d70e055d5e3dc8bf28af 100644 (file)
@@ -3,10 +3,9 @@
 #include <stdio.h>
 #include <readline/readline.h>
 
-
 /* **************************************************************** */
 /*                                                                  */
-                     How to Emulate gets ()                      */
+/*                     How to Emulate gets ()                      */
 /*                                                                  */
 /* **************************************************************** */
 
@@ -82,13 +81,12 @@ invert_case_line (count, key)
 
   for (; start != end; start += direction)
     {
-      if (uppercase_p (rl_line_buffer[start]))
-       rl_line_buffer[start] = to_lower (rl_line_buffer[start]);
-      else if (lowercase_p (rl_line_buffer[start]))
-       rl_line_buffer[start] = to_upper (rl_line_buffer[start]);
+      if (_rl_uppercase_p (rl_line_buffer[start]))
+       rl_line_buffer[start] = _rl_to_lower (rl_line_buffer[start]);
+      else if (_rl_lowercase_p (rl_line_buffer[start]))
+       rl_line_buffer[start] = _rl_to_upper (rl_line_buffer[start]);
     }
 
   /* Move point to on top of the last character changed. */
   rl_point = end - direction;
 }
-
index 2d1d17e600d7b658bfbfda6d3c45d7e1d696d456..863618450696ad575d057c0324fa7d803b9e333c 100644 (file)
@@ -38,7 +38,7 @@ set_deftext ()
     {
       rl_insert_text (deftext);
       deftext = (char *)NULL;
-      rl_startup_hook = (Function *)NULL;
+      rl_startup_hook = (rl_hook_func_t *)NULL;
     }
   return 0;
 }
@@ -126,6 +126,6 @@ main (argc, argv)
   if (temp == 0)
     exit (1);
 
-  puts (temp);
+  printf ("%s\n", temp);
   exit (0);
 }
index 1f7ba87129ddd79bb837954bbefd616522e6f100..e09faf58dcdf291553c10343f01547bcab2c96a4 100644 (file)
@@ -46,7 +46,7 @@ typedef int QSFUNC (const void *, const void *);
 typedef int QSFUNC ();
 #endif
 
-extern int _rl_qsort_string_compare ();
+extern int _rl_qsort_string_compare __P((char **, char **));
 
 FUNMAP **funmap;
 static int funmap_size;
@@ -108,7 +108,7 @@ static FUNMAP default_funmap[] = {
   { "non-incremental-reverse-search-history", rl_noninc_reverse_search },
   { "non-incremental-forward-search-history-again", rl_noninc_forward_search_again },
   { "non-incremental-reverse-search-history-again", rl_noninc_reverse_search_again },
-#ifdef __CYGWIN32__
+#ifdef __CYGWIN__
   { "paste-from-clipboard", rl_paste_from_clipboard },
 #endif
   { "possible-completions", rl_possible_completions },
@@ -142,7 +142,6 @@ static FUNMAP default_funmap[] = {
   { "vi-arg-digit", rl_vi_arg_digit },
   { "vi-back-to-indent", rl_vi_back_to_indent },
   { "vi-bWord", rl_vi_bWord },
-  { "vi-bracktype", rl_vi_bracktype },
   { "vi-bword", rl_vi_bword },
   { "vi-change-case", rl_vi_change_case },
   { "vi-change-char", rl_vi_change_char },
@@ -182,13 +181,13 @@ static FUNMAP default_funmap[] = {
   { "vi-yank-to", rl_vi_yank_to },
 #endif /* VI_MODE */
 
- {(char *)NULL, (Function *)NULL }
+ {(char *)NULL, (rl_command_func_t *)NULL }
 };
 
 int
 rl_add_funmap_entry (name, function)
-     char *name;
-     Function *function;
+     const char *name;
+     rl_command_func_t *function;
 {
   if (funmap_entry + 2 >= funmap_size)
     {
@@ -225,21 +224,21 @@ rl_initialize_funmap ()
 /* Produce a NULL terminated array of known function names.  The array
    is sorted.  The array itself is allocated, but not the strings inside.
    You should free () the array when you done, but not the pointrs. */
-char **
+const char **
 rl_funmap_names ()
 {
-  char **result;
+  const char **result;
   int result_size, result_index;
 
   /* Make sure that the function map has been initialized. */
   rl_initialize_funmap ();
 
-  for (result_index = result_size = 0, result = (char **)NULL; funmap[result_index]; result_index++)
+  for (result_index = result_size = 0, result = (const char **)NULL; funmap[result_index]; result_index++)
     {
       if (result_index + 2 > result_size)
        {
          result_size += 20;
-         result = (char **)xrealloc (result, result_size * sizeof (char *));
+         result = (const char **)xrealloc (result, result_size * sizeof (char *));
        }
 
       result[result_index] = funmap[result_index]->name;
@@ -249,12 +248,3 @@ rl_funmap_names ()
   qsort (result, result_index, sizeof (char *), (QSFUNC *)_rl_qsort_string_compare);
   return (result);
 }
-
-/* Things that mean `Control'. */
-char *possible_control_prefixes[] = {
-  "Control-", "C-", "CTRL-", (char *)NULL
-};
-
-char *possible_meta_prefixes[] = {
-  "Meta", "M-", (char *)NULL
-};
index 78da3e585a651983535fe672b05eadcaee09cfe1..1c8a1d9d3e31b6c2ae3b19960ea20398b4f60153 100644 (file)
@@ -56,6 +56,8 @@
 #define HISTORY_WORD_DELIMITERS                " \t\n;&()|<>"
 #define HISTORY_QUOTE_CHARACTERS       "\"'`"
 
+typedef int _hist_search_func_t __P((const char *, int));
+
 static char error_pointer;
 
 static char *subst_lhs;
@@ -91,9 +93,12 @@ char *history_no_expand_chars = " \t\n\r=";
    The default is 0. */
 int history_quotes_inhibit_expansion = 0;
 
+/* Used to split words by history_tokenize_internal. */
+char *history_word_delimiters = HISTORY_WORD_DELIMITERS;
+
 /* If set, this points to a function that is called to verify that a
    particular history expansion should be performed. */
-Function *history_inhibit_expansion_function;
+rl_linebuf_func_t *history_inhibit_expansion_function;
 
 /* **************************************************************** */
 /*                                                                 */
@@ -122,7 +127,7 @@ static char *search_match;
    line = get_history_event ("!echo:p", &index, 0);  */
 char *
 get_history_event (string, caller_index, delimiting_quote)
-     char *string;
+     const char *string;
      int *caller_index;
      int delimiting_quote;
 {
@@ -130,7 +135,7 @@ get_history_event (string, caller_index, delimiting_quote)
   register char c;
   HIST_ENTRY *entry;
   int which, sign, local_index, substring_okay;
-  Function *search_func;
+  _hist_search_func_t *search_func;
   char *temp;
 
   /* The event can be specified in a number of ways.
@@ -340,7 +345,8 @@ hist_error(s, start, current, errtype)
       char *s;
       int start, current, errtype;
 {
-  char *temp, *emsg;
+  char *temp;
+  const char *emsg;
   int ll, elen;
 
   ll = current - start;
@@ -622,7 +628,7 @@ history_expand_internal (string, start, end_index_ptr, ret_string, current_line)
        case '&':
        case 's':
          {
-           char *new_event, *t;
+           char *new_event;
            int delimiter, failed, si, l_temp;
 
            if (c == 's')
@@ -741,7 +747,7 @@ history_expand_internal (string, start, end_index_ptr, ret_string, current_line)
       char *x;
 
       if (want_quotes == 'q')
-       x = single_quote (temp);
+       x = sh_single_quote (temp);
       else if (want_quotes == 'x')
        x = quote_breaks (temp);
       else
@@ -816,6 +822,9 @@ history_expand (hstring, output)
   /* Used when adding the string. */
   char *temp;
 
+  if (output == 0)
+    return 0;
+
   /* Setting the history expansion character to 0 inhibits all
      history expansion. */
   if (history_expansion_char == 0)
@@ -865,7 +874,7 @@ history_expand (hstring, output)
             history expansion performed on it.
             Skip the rest of the line and break out of the loop. */
          if (history_comment_char && string[i] == history_comment_char &&
-             (i == 0 || member (string[i - 1], HISTORY_WORD_DELIMITERS)))
+             (i == 0 || member (string[i - 1], history_word_delimiters)))
            {
              while (string[i])
                i++;
@@ -963,7 +972,7 @@ history_expand (hstring, output)
          }
 
        case -2:                /* history_comment_char */
-         if (i == 0 || member (string[i - 1], HISTORY_WORD_DELIMITERS))
+         if (i == 0 || member (string[i - 1], history_word_delimiters))
            {
              temp = xmalloc (l - i + 1);
              strcpy (temp, string + i);
@@ -1151,7 +1160,7 @@ get_history_word_specifier (spec, from, caller_index)
 char *
 history_arg_extract (first, last, string)
      int first, last;
-     char *string;
+     const char *string;
 {
   register int i, len;
   char *result;
@@ -1217,13 +1226,18 @@ history_arg_extract (first, last, string)
    *INDP. */
 static char **
 history_tokenize_internal (string, wind, indp)
-     char *string;
+     const char *string;
      int wind, *indp;
 {
   char **result;
   register int i, start, result_index, size;
   int len, delimiter;
 
+  /* If we're searching for a string that's not part of a word (e.g., " "),
+     make sure we set *INDP to a reasonable value. */
+  if (indp && wind != -1)
+    *indp = -1;
+
   /* Get a token, and stuff it into RESULT.  The tokens are split
      exactly where the shell would split them. */
   for (i = result_index = size = 0, result = (char **)NULL; string[i]; )
@@ -1298,7 +1312,7 @@ history_tokenize_internal (string, wind, indp)
              continue;
            }
 
-         if (!delimiter && (member (string[i], HISTORY_WORD_DELIMITERS)))
+         if (!delimiter && (member (string[i], history_word_delimiters)))
            break;
 
          if (!delimiter && member (string[i], HISTORY_QUOTE_CHARACTERS))
@@ -1328,7 +1342,7 @@ history_tokenize_internal (string, wind, indp)
    parsed out of STRING. */
 char **
 history_tokenize (string)
-     char *string;
+     const char *string;
 {
   return (history_tokenize_internal (string, -1, (int *)NULL));
 }
@@ -1345,7 +1359,7 @@ history_find_word (line, ind)
   int i, wind;
 
   words = history_tokenize_internal (line, ind, &wind);
-  if (wind == -1)
+  if (wind == -1 || words == 0)
     return ((char *)NULL);
   s = words[wind];
   for (i = 0; i < wind; i++)
index b908e2261f8ba3d39c4fe8f41f3e7b3371acada5..c0582de256bd258fca2eb0e6f52d9a14a311fb91 100644 (file)
@@ -84,9 +84,10 @@ extern int errno;
    filename to read_history (), or write_history (). */
 static char *
 history_filename (filename)
-     char *filename;
+     const char *filename;
 {
-  char *return_val, *home;
+  char *return_val;
+  const char *home;
   int home_len;
 
   return_val = filename ? savestring (filename) : (char *)NULL;
@@ -94,7 +95,7 @@ history_filename (filename)
   if (return_val)
     return (return_val);
   
-  home = get_env_value ("HOME");
+  home = sh_get_env_value ("HOME");
 
   if (home == 0)
     {
@@ -121,7 +122,7 @@ history_filename (filename)
    successful, or errno if not. */
 int
 read_history (filename)
-     char *filename;
+     const char *filename;
 {
   return (read_history_range (filename, 0, -1));
 }
@@ -133,7 +134,7 @@ read_history (filename)
    ~/.history.  Returns 0 if successful, or errno if not. */
 int
 read_history_range (filename, from, to)
-     char *filename;
+     const char *filename;
      int from, to;
 {
   register int line_start, line_end;
@@ -221,14 +222,15 @@ read_history_range (filename, from, to)
 }
 
 /* Truncate the history file FNAME, leaving only LINES trailing lines.
-   If FNAME is NULL, then use ~/.history. */
+   If FNAME is NULL, then use ~/.history.  Returns 0 on success, errno
+   on failure. */
 int
 history_truncate_file (fname, lines)
-     char *fname;
+     const char *fname;
      int lines;
 {
   register int i;
-  int file, chars_read;
+  int file, chars_read, rv;
   char *buffer, *filename;
   struct stat finfo;
   size_t file_size;
@@ -236,13 +238,27 @@ history_truncate_file (fname, lines)
   buffer = (char *)NULL;
   filename = history_filename (fname);
   file = open (filename, O_RDONLY|O_BINARY, 0666);
+  rv = 0;
 
+  /* Don't try to truncate non-regular files. */
   if (file == -1 || fstat (file, &finfo) == -1)
-    goto truncate_exit;
+    {
+      rv = errno;
+      if (file != -1)
+       close (file);
+      goto truncate_exit;
+    }
 
-  /* Don't try to truncate non-regular files. */
-  if (S_ISREG(finfo.st_mode) == 0)
-    goto truncate_exit;
+  if (S_ISREG (finfo.st_mode) == 0)
+    {
+      close (file);
+#ifdef EFTYPE
+      rv = EFTYPE;
+#else
+      rv = EINVAL;
+#endif
+      goto truncate_exit;
+    }
 
   file_size = (size_t)finfo.st_size;
 
@@ -251,7 +267,11 @@ history_truncate_file (fname, lines)
     {
       close (file);
 #if defined (EFBIG)
-      errno = EFBIG;
+      rv = errno = EFBIG;
+#elif defined (EOVERFLOW)
+      rv = errno = EOVERFLOW;
+#else
+      rv = errno = EINVAL;
 #endif
       goto truncate_exit;
     }
@@ -261,7 +281,10 @@ history_truncate_file (fname, lines)
   close (file);
 
   if (chars_read <= 0)
-    goto truncate_exit;
+    {
+      rv = (chars_read < 0) ? errno : 0;
+      goto truncate_exit;
+    }
 
   /* Count backwards from the end of buffer until we have passed
      LINES lines. */
@@ -302,7 +325,7 @@ history_truncate_file (fname, lines)
   FREE (buffer);
 
   free (filename);
-  return 0;
+  return rv;
 }
 
 /* Workhorse function for writing history.  Writes NELEMENT entries
@@ -310,15 +333,16 @@ history_truncate_file (fname, lines)
    wish to replace FILENAME with the entries. */
 static int
 history_do_write (filename, nelements, overwrite)
-     char *filename;
+     const char *filename;
      int nelements, overwrite;
 {
   register int i;
   char *output;
-  int file, mode;
+  int file, mode, rv;
 
   mode = overwrite ? O_WRONLY|O_CREAT|O_TRUNC|O_BINARY : O_WRONLY|O_APPEND|O_BINARY;
   output = history_filename (filename);
+  rv = 0;
 
   if ((file = open (output, mode, 0600)) == -1)
     {
@@ -352,7 +376,8 @@ history_do_write (filename, nelements, overwrite)
        buffer[j++] = '\n';
       }
 
-    write (file, buffer, buffer_size);
+    if (write (file, buffer, buffer_size) < 0)
+      rv = errno;
     free (buffer);
   }
 
@@ -360,7 +385,7 @@ history_do_write (filename, nelements, overwrite)
 
   FREE (output);
 
-  return (0);
+  return (rv);
 }
 
 /* Append NELEMENT entries to FILENAME.  The entries appended are from
@@ -368,7 +393,7 @@ history_do_write (filename, nelements, overwrite)
 int
 append_history (nelements, filename)
      int nelements;
-     char *filename;
+     const char *filename;
 {
   return (history_do_write (filename, nelements, HISTORY_APPEND));
 }
@@ -378,7 +403,7 @@ append_history (nelements, filename)
    are as in read_history ().*/
 int
 write_history (filename)
-     char *filename;
+     const char *filename;
 {
   return (history_do_write (filename, history_length, HISTORY_OVERWRITE));
 }
index 88a34d10f1d57e22d6a6783a255b11af61d95ce5..bc948b08003546704d319bc7c58f94b5aa209369 100644 (file)
 #if !defined (_HISTLIB_H_)
 #define _HISTLIB_H_
 
-/* Function pointers can be declared as (Function *)foo. */
-#if !defined (_FUNCTION_DEF)
-#  define _FUNCTION_DEF
-typedef int Function ();
-typedef void VFunction ();
-typedef char *CPFunction ();
-typedef char **CPPFunction ();
-#endif /* _FUNCTION_DEF */
-
 #if !defined (STREQ)
 #define STREQ(a, b)    (((a)[0] == (b)[0]) && (strcmp ((a), (b)) == 0))
 #define STREQN(a, b, n) (((n) == 0) ? (1) \
index 400f18bc6027050758612c850627e4c02bb4251a..d59d8ce2755e6fb668ebacfe115599c2d99d7a88 100644 (file)
@@ -73,7 +73,8 @@ static int history_stifled;
 
 /* If HISTORY_STIFLED is non-zero, then this is the maximum number of
    entries to remember. */
-int max_input_history;
+int history_max_entries;
+int max_input_history; /* backwards compatibility */
 
 /* The current location of the interactive history pointer.  Just makes
    life easier for outside callers. */
@@ -134,9 +135,7 @@ history_total_bytes ()
 {
   register int i, result;
 
-  result = 0;
-
-  for (i = 0; the_history && the_history[i]; i++)
+  for (i = result = 0; the_history && the_history[i]; i++)
     result += strlen (the_history[i]->line);
 
   return (result);
@@ -217,16 +216,16 @@ history_get (offset)
    is  set to NULL. */
 void
 add_history (string)
-     char *string;
+     const char *string;
 {
   HIST_ENTRY *temp;
 
-  if (history_stifled && (history_length == max_input_history))
+  if (history_stifled && (history_length == history_max_entries))
     {
       register int i;
 
       /* If the history is stifled, and history_length is zero,
-        and it equals max_input_history, we don't save items. */
+        and it equals history_max_entries, we don't save items. */
       if (history_length == 0)
        return;
 
@@ -277,15 +276,15 @@ add_history (string)
 HIST_ENTRY *
 replace_history_entry (which, line, data)
      int which;
-     char *line;
+     const char *line;
      histdata_t data;
 {
-  HIST_ENTRY *temp = (HIST_ENTRY *)xmalloc (sizeof (HIST_ENTRY));
-  HIST_ENTRY *old_value;
+  HIST_ENTRY *temp, *old_value;
 
   if (which >= history_length)
     return ((HIST_ENTRY *)NULL);
 
+  temp = (HIST_ENTRY *)xmalloc (sizeof (HIST_ENTRY));
   old_value = the_history[which];
 
   temp->line = savestring (line);
@@ -303,12 +302,12 @@ remove_history (which)
      int which;
 {
   HIST_ENTRY *return_value;
+  register int i;
 
   if (which >= history_length || !history_length)
     return_value = (HIST_ENTRY *)NULL;
   else
     {
-      register int i;
       return_value = the_history[which];
 
       for (i = which; i < history_length; i++)
@@ -325,13 +324,13 @@ void
 stifle_history (max)
      int max;
 {
+  register int i, j;
+
   if (max < 0)
     max = 0;
 
   if (history_length > max)
     {
-      register int i, j;
-
       /* This loses because we cannot free the data. */
       for (i = 0, j = history_length - max; i < j; i++)
        {
@@ -347,7 +346,7 @@ stifle_history (max)
     }
 
   history_stifled = 1;
-  max_input_history = max;
+  max_input_history = history_max_entries = max;
 }
 
 /* Stop stifling the history.  This returns the previous amount the 
@@ -359,10 +358,10 @@ unstifle_history ()
   if (history_stifled)
     {
       history_stifled = 0;
-      return (-max_input_history);
+      return (-history_max_entries);
     }
 
-  return (max_input_history);
+  return (history_max_entries);
 }
 
 int
index 5210deb39a44ee73683034538b35732cabc68b32..947902e54c0a98478dd023f7be584dbacff813ed 100644 (file)
@@ -28,16 +28,10 @@ extern "C" {
 
 #if defined READLINE_LIBRARY
 #  include "rlstdc.h"
+#  include "rltypedefs.h"
 #else
 #  include <readline/rlstdc.h>
-#endif
-
-#if !defined (_FUNCTION_DEF)
-#  define _FUNCTION_DEF
-typedef int Function ();
-typedef void VFunction ();
-typedef char *CPFunction ();
-typedef char **CPPFunction ();
+#  include <readline/rltypedefs.h>
 #endif
 
 #ifdef __STDC__
@@ -80,7 +74,7 @@ extern void history_set_history_state __P((HISTORY_STATE *));
 
 /* Place STRING at the end of the history list.
    The associated data field (if any) is set to NULL. */
-extern void add_history __P((char *));
+extern void add_history __P((const char *));
 
 /* A reasonably useless function, only here for completeness.  WHICH
    is the magic number that tells us which element to delete.  The
@@ -90,7 +84,7 @@ extern HIST_ENTRY *remove_history __P((int));
 /* Make the history entry at WHICH have LINE and DATA.  This returns
    the old entry so you can dispose of the data.  In the case of an
    invalid WHICH, a NULL pointer is returned. */
-extern HIST_ENTRY *replace_history_entry __P((int, char *, histdata_t));
+extern HIST_ENTRY *replace_history_entry __P((int, const char *, histdata_t));
 
 /* Clear the history list and start over. */
 extern void clear_history __P((void));
@@ -152,45 +146,45 @@ extern HIST_ENTRY *next_history __P((void));
    current_history () is the history entry, and the value of this function
    is the offset in the line of that history entry that the string was
    found in.  Otherwise, nothing is changed, and a -1 is returned. */
-extern int history_search __P((char *, int));
+extern int history_search __P((const char *, int));
 
 /* Search the history for STRING, starting at history_offset.
    The search is anchored: matching lines must begin with string.
    DIRECTION is as in history_search(). */
-extern int history_search_prefix __P((char *, int));
+extern int history_search_prefix __P((const char *, int));
 
 /* Search for STRING in the history list, starting at POS, an
    absolute index into the list.  DIR, if negative, says to search
    backwards from POS, else forwards.
    Returns the absolute index of the history element where STRING
    was found, or -1 otherwise. */
-extern int history_search_pos __P((char *, int, int));
+extern int history_search_pos __P((const char *, int, int));
 
 /* Managing the history file. */
 
 /* Add the contents of FILENAME to the history list, a line at a time.
    If FILENAME is NULL, then read from ~/.history.  Returns 0 if
    successful, or errno if not. */
-extern int read_history __P((char *));
+extern int read_history __P((const char *));
 
 /* Read a range of lines from FILENAME, adding them to the history list.
    Start reading at the FROM'th line and end at the TO'th.  If FROM
    is zero, start at the beginning.  If TO is less than FROM, read
    until the end of the file.  If FILENAME is NULL, then read from
    ~/.history.  Returns 0 if successful, or errno if not. */
-extern int read_history_range __P((char *, int, int));
+extern int read_history_range __P((const char *, int, int));
 
 /* Write the current history to FILENAME.  If FILENAME is NULL,
    then write the history list to ~/.history.  Values returned
    are as in read_history ().  */
-extern int write_history __P((char *));
+extern int write_history __P((const char *));
 
 /* Append NELEMENT entries to FILENAME.  The entries appended are from
    the end of the list minus NELEMENTs up to the end of the list. */
-extern int append_history __P((int, char *));
+extern int append_history __P((int, const char *));
 
 /* Truncate the history file, leaving only the last NLINES lines. */
-extern int history_truncate_file __P((char *, int));
+extern int history_truncate_file __P((const char *, int));
 
 /* History expansion. */
 
@@ -211,7 +205,7 @@ extern int history_expand __P((char *, char **));
 /* Extract a string segment consisting of the FIRST through LAST
    arguments present in STRING.  Arguments are broken up as in
    the shell. */
-extern char *history_arg_extract __P((int, int, char *));
+extern char *history_arg_extract __P((int, int, const char *));
 
 /* Return the text of the history event beginning at the current
    offset into STRING.  Pass STRING with *INDEX equal to the
@@ -219,27 +213,31 @@ extern char *history_arg_extract __P((int, int, char *));
    DELIMITING_QUOTE is a character that is allowed to end the string
    specification for what to search for in addition to the normal
    characters `:', ` ', `\t', `\n', and sometimes `?'. */
-extern char *get_history_event __P((char *, int *, int));
+extern char *get_history_event __P((const char *, int *, int));
 
 /* Return an array of tokens, much as the shell might.  The tokens are
    parsed out of STRING. */
-extern char **history_tokenize __P((char *));
+extern char **history_tokenize __P((const char *));
 
 /* Exported history variables. */
 extern int history_base;
 extern int history_length;
-extern int max_input_history;
+extern int history_max_entries;
 extern char history_expansion_char;
 extern char history_subst_char;
+extern char *history_word_delimiters;
 extern char history_comment_char;
 extern char *history_no_expand_chars;
 extern char *history_search_delimiter_chars;
 extern int history_quotes_inhibit_expansion;
 
+/* Backwards compatibility */
+extern int max_input_history;
+
 /* If set, this function is called to decide whether or not a particular
    history expansion should be treated as a special case for the calling
    application and not expanded. */
-extern Function *history_inhibit_expansion_function;
+extern rl_linebuf_func_t *history_inhibit_expansion_function;
 
 #ifdef __cplusplus
 }
index 8d153b63edd53ac237db0edb52f9f7e2b48bbc69..ff4f3a131703a3bbf97f5ac08cbd3295054a2f4c 100644 (file)
@@ -63,7 +63,7 @@ char *history_search_delimiter_chars = (char *)NULL;
 
 static int
 history_search_internal (string, direction, anchored)
-     char *string;
+     const char *string;
      int direction, anchored;
 {
   register int i, reverse;
@@ -159,7 +159,7 @@ history_search_internal (string, direction, anchored)
 /* Do a non-anchored search for STRING through the history in DIRECTION. */
 int
 history_search (string, direction)
-     char *string;
+     const char *string;
      int direction;
 {
   return (history_search_internal (string, direction, NON_ANCHORED_SEARCH));
@@ -168,7 +168,7 @@ history_search (string, direction)
 /* Do an anchored search for string through the history in DIRECTION. */
 int
 history_search_prefix (string, direction)
-     char *string;
+     const char *string;
      int direction;
 {
   return (history_search_internal (string, direction, ANCHORED_SEARCH));
@@ -179,7 +179,7 @@ history_search_prefix (string, direction)
    which point to begin searching. */
 int
 history_search_pos (string, dir, pos)
-     char *string;
+     const char *string;
      int dir, pos;
 {
   int ret, old;
index 64a55c6f90d4af4d5775eb7a397976a9a56a1a61..e5af52d5e5da88979ed267f47f994aa82198aebc 100644 (file)
@@ -78,9 +78,11 @@ extern int errno;
 
 /* Non-null means it is a pointer to a function to run while waiting for
    character input. */
-Function *rl_event_hook = (Function *)NULL;
+rl_hook_func_t *rl_event_hook = (rl_hook_func_t *)NULL;
 
-Function *rl_getc_function = rl_getc;
+rl_getc_func_t *rl_getc_function = rl_getc;
+
+static int _keyboard_input_timeout = 100000;           /* 0.1 seconds; it's in usec */
 
 /* **************************************************************** */
 /*                                                                 */
@@ -169,7 +171,7 @@ rl_gather_tyi ()
   FD_SET (tty, &readfds);
   FD_SET (tty, &exceptfds);
   timeout.tv_sec = 0;
-  timeout.tv_usec = 100000;    /* 0.1 seconds */
+  timeout.tv_usec = _keyboard_input_timeout;
   if (select (tty + 1, &readfds, (fd_set *)NULL, &exceptfds, &timeout) <= 0)
     return;    /* Nothing to read. */
 #endif
@@ -222,6 +224,18 @@ rl_gather_tyi ()
     }
 }
 
+int
+rl_set_keyboard_input_timeout (u)
+     int u;
+{
+  int o;
+
+  o = _keyboard_input_timeout;
+  if (u > 0)
+    _keyboard_input_timeout = u;
+  return (o);
+}
+
 /* Is there input available to be read on the readline input file
    descriptor?  Only works if the system has select(2) or FIONREAD. */
 int
@@ -244,7 +258,7 @@ _rl_input_available ()
   FD_SET (tty, &readfds);
   FD_SET (tty, &exceptfds);
   timeout.tv_sec = 0;
-  timeout.tv_usec = 100000;    /* 0.1 seconds */
+  timeout.tv_usec = _keyboard_input_timeout;
   return (select (tty + 1, &readfds, (fd_set *)NULL, &exceptfds, &timeout) > 0);
 #endif
 
@@ -293,6 +307,7 @@ rl_stuff_char (key)
     {
       key = NEWLINE;
       rl_pending_input = EOF;
+      RL_SETSTATE (RL_STATE_INPUTPENDING);
     }
   ibuffer[push_index++] = key;
   if (push_index >= ibuffer_len)
@@ -307,6 +322,16 @@ rl_execute_next (c)
      int c;
 {
   rl_pending_input = c;
+  RL_SETSTATE (RL_STATE_INPUTPENDING);
+  return 0;
+}
+
+/* Clear any pending input pushed with rl_execute_next() */
+int
+rl_clear_pending_input ()
+{
+  rl_pending_input = 0;
+  RL_UNSETSTATE (RL_STATE_INPUTPENDING);
   return 0;
 }
 
@@ -327,7 +352,7 @@ rl_read_key ()
   if (rl_pending_input)
     {
       c = rl_pending_input;
-      rl_pending_input = 0;
+      rl_clear_pending_input ();
     }
   else
     {
@@ -341,6 +366,8 @@ rl_read_key ()
          while (rl_event_hook && rl_get_char (&c) == 0)
            {
              (*rl_event_hook) ();
+             if (rl_done)              /* XXX - experimental */
+               return ('\n');
              rl_gather_tyi ();
            }
        }
@@ -392,7 +419,7 @@ rl_getc (stream)
 
       if (errno == X_EWOULDBLOCK || errno == X_EAGAIN)
        {
-         if (unset_nodelay_mode (fileno (stream)) < 0)
+         if (sh_unset_nodelay_mode (fileno (stream)) < 0)
            return (EOF);
          continue;
        }
index 952c10ddf8eab91c65649f8200d5d4d0c8b7104b..f8d76951b014dd743df3acc7e33d016d0f78472d 100644 (file)
@@ -55,7 +55,7 @@
 unsigned char *_rl_isearch_terminators = (unsigned char *)NULL;
 
 /* Variables imported from other files in the readline library. */
-extern HIST_ENTRY *saved_line_for_history;
+extern HIST_ENTRY *_rl_saved_line_for_history;
 
 /* Forward declarations */
 static int rl_search_history __P((int, int));
@@ -64,6 +64,8 @@ static int rl_search_history __P((int, int));
    identical lines many times in a row. */
 static char *prev_line_found;
 
+static unsigned char *default_isearch_terminators = "\033\012";
+
 /* Search backwards through the history looking for a string which is typed
    interactively.  Start with the current line. */
 int
@@ -176,6 +178,7 @@ rl_search_history (direction, invoking_key)
      been set, we use that value, otherwise we use ESC and C-J. */
   unsigned char *isearch_terminators;
 
+  RL_SETSTATE(RL_STATE_ISEARCH);
   orig_point = rl_point;
   last_found_line = orig_line = where_history ();
   reverse = direction < 0;
@@ -183,10 +186,10 @@ rl_search_history (direction, invoking_key)
   allocated_line = (char *)NULL;
 
   isearch_terminators = _rl_isearch_terminators ? _rl_isearch_terminators
-                                               : (unsigned char *)"\033\012";
+                                               : default_isearch_terminators;
 
   /* Create an arrary of pointers to the lines that we want to search. */
-  maybe_replace_line ();
+  rl_maybe_replace_line ();
   i = 0;
   if (hlist)
     for (i = 0; hlist[i]; i++);
@@ -197,8 +200,8 @@ rl_search_history (direction, invoking_key)
   for (i = 0; i < hlen; i++)
     lines[i] = hlist[i]->line;
 
-  if (saved_line_for_history)
-    lines[i] = saved_line_for_history->line;
+  if (_rl_saved_line_for_history)
+    lines[i] = _rl_saved_line_for_history->line;
   else
     {
       /* Keep track of this so we can free it. */
@@ -232,10 +235,12 @@ rl_search_history (direction, invoking_key)
   found = failed = 0;
   for (;;)
     {
-      Function *f = (Function *)NULL;
+      rl_command_func_t *f = (rl_command_func_t *)NULL;
 
       /* Read a key and decide how to proceed. */
+      RL_SETSTATE(RL_STATE_MOREINPUT);
       c = rl_read_key ();
+      RL_UNSETSTATE(RL_STATE_MOREINPUT);
 
       if (_rl_keymap[c].type == ISFUNC)
        {
@@ -273,6 +278,8 @@ rl_search_history (direction, invoking_key)
 
       if (c >= 0 && (CTRL_CHAR (c) || META_CHAR (c) || c == RUBOUT) && c != CTRL ('G'))
        {
+         /* This sets rl_pending_input to c; it will be picked up the next
+            time rl_read_key is called. */
          rl_execute_next (c);
          break;
        }
@@ -287,7 +294,7 @@ rl_search_history (direction, invoking_key)
          else if (line_index != sline_len)
            ++line_index;
          else
-           ding ();
+           rl_ding ();
          break;
 
          /* switch directions */
@@ -305,13 +312,14 @@ rl_search_history (direction, invoking_key)
          if (allocated_line)
            free (allocated_line);
          free (lines);
+         RL_UNSETSTATE(RL_STATE_ISEARCH);
          return 0;
 
 #if 0
        /* delete character from search string. */
        case -3:
          if (search_string_index == 0)
-           ding ();
+           rl_ding ();
          else
            {
              search_string[--search_string_index] = '\0';
@@ -384,7 +392,7 @@ rl_search_history (direction, invoking_key)
       if (failed)
        {
          /* We cannot find the search string.  Ding the bell. */
-         ding ();
+         rl_ding ();
          i = last_found_line;
          continue;             /* XXX - was break */
        }
@@ -438,5 +446,7 @@ rl_search_history (direction, invoking_key)
     free (allocated_line);
   free (lines);
 
+  RL_UNSETSTATE(RL_STATE_ISEARCH);
+
   return 0;
 }
index 8fb7de3bc1f9707fffd98dd02b000fe52529b1a9..12506d3aab2e87f5233d16219e087b514b2535cb 100644 (file)
@@ -61,7 +61,7 @@ rl_make_bare_keymap ()
   for (i = 0; i < KEYMAP_SIZE; i++)
     {
       keymap[i].type = ISFUNC;
-      keymap[i].function = (Function *)NULL;
+      keymap[i].function = (rl_command_func_t *)NULL;
     }
 
   for (i = 'A'; i < ('Z' + 1); i++)
index 3a504fb014fb37cd5194ed40afee95018f29815c..d8cba233c0a86a2abcd6c9b01c8e43055dfeb594 100644 (file)
@@ -30,17 +30,11 @@ extern "C" {
 #if defined (READLINE_LIBRARY)
 #  include "rlstdc.h"
 #  include "chardefs.h"
+#  include "rltypedefs.h"
 #else
 #  include <readline/rlstdc.h>
 #  include <readline/chardefs.h>
-#endif
-
-#if !defined (_FUNCTION_DEF)
-#  define _FUNCTION_DEF
-typedef int Function ();
-typedef void VFunction ();
-typedef char *CPFunction ();
-typedef char **CPPFunction ();
+#  include <readline/rltypedefs.h>
 #endif
 
 /* A keymap contains one entry for each key in the ASCII set.
@@ -50,7 +44,7 @@ typedef char **CPPFunction ();
    TYPE says which kind of thing FUNCTION is. */
 typedef struct _keymap_entry {
   char type;
-  Function *function;
+  rl_command_func_t *function;
 } KEYMAP_ENTRY;
 
 /* This must be large enough to hold bindings for all of the characters
@@ -59,7 +53,7 @@ typedef struct _keymap_entry {
 #define KEYMAP_SIZE 256
 
 /* I wanted to make the above structure contain a union of:
-   union { Function *function; struct _keymap_entry *keymap; } value;
+   union { rl_command_func_t *function; struct _keymap_entry *keymap; } value;
    but this made it impossible for me to create a static array.
    Maybe I need C lessons. */
 
@@ -93,7 +87,7 @@ extern void rl_discard_keymap __P((Keymap));
 
 /* Return the keymap corresponding to a given name.  Names look like
    `emacs' or `emacs-meta' or `vi-insert'.  */
-extern Keymap rl_get_keymap_by_name __P((char *));
+extern Keymap rl_get_keymap_by_name __P((const char *));
 
 /* Return the current keymap. */
 extern Keymap rl_get_keymap __P((void));
index c3241bdadd00c5807e4837ab7bd4e91248fad2a9..3ced8fbc9a93452a78654cf75387fd6b46c2d50a 100644 (file)
@@ -264,7 +264,7 @@ rl_backward_kill_line (direction, ignore)
   else
     {
       if (!rl_point)
-       ding ();
+       rl_ding ();
       else
        {
          rl_beg_of_line (1, ignore);
@@ -299,7 +299,7 @@ rl_unix_word_rubout (count, key)
   int orig_point;
 
   if (rl_point == 0)
-    ding ();
+    rl_ding ();
   else
     {
       orig_point = rl_point;
@@ -331,7 +331,7 @@ rl_unix_line_discard (count, key)
      int count, key;
 {
   if (rl_point == 0)
-    ding ();
+    rl_ding ();
   else
     {
       rl_kill_text (rl_point, 0);
@@ -512,14 +512,14 @@ rl_yank_nth_arg_internal (count, ignore, history_skip)
 
   if (entry == 0)
     {
-      ding ();
+      rl_ding ();
       return -1;
     }
 
   arg = history_arg_extract (count, count, entry->line);
   if (!arg || !*arg)
     {
-      ding ();
+      rl_ding ();
       return -1;
     }
 
@@ -592,7 +592,7 @@ rl_yank_last_arg (count, key)
 }
 
 /* A special paste command for users of Cygnus's cygwin32. */
-#if defined (__CYGWIN32__)
+#if defined (__CYGWIN__)
 #include <windows.h>
 
 int
@@ -625,4 +625,4 @@ rl_paste_from_clipboard (count, key)
     }
   return (0);
 }
-#endif /* __CYGWIN32__ */
+#endif /* __CYGWIN__ */
index 5a44852f46ced9691b27999a06321d966b0b7d89..fed298a06a7828b355662df65ce4a46b7999fb2e 100644 (file)
 /*                                                                 */
 /* **************************************************************** */
 
-/* Non-zero means to save keys that we dispatch on in a kbd macro. */
-int _rl_defining_kbd_macro = 0;
-
 /* The currently executing macro string.  If this is non-zero,
    then it is a malloc ()'ed string where input is coming from. */
-char *_rl_executing_macro = (char *)NULL;
+char *rl_executing_macro = (char *)NULL;
+
+/* Non-zero means to save keys that we dispatch on in a kbd macro. */
+int _rl_defining_kbd_macro = 0;
 
 /* The offset in the above string to the next character to be read. */
 static int executing_macro_index;
@@ -95,8 +95,9 @@ _rl_with_macro_input (string)
      char *string;
 {
   _rl_push_executing_macro ();
-  _rl_executing_macro = string;
+  rl_executing_macro = string;
   executing_macro_index = 0;
+  RL_SETSTATE(RL_STATE_MACROINPUT);
 }
 
 /* Return the next character available from a macro, or 0 if
@@ -104,16 +105,16 @@ _rl_with_macro_input (string)
 int
 _rl_next_macro_key ()
 {
-  if (_rl_executing_macro == 0)
+  if (rl_executing_macro == 0)
     return (0);
 
-  if (_rl_executing_macro[executing_macro_index] == 0)
+  if (rl_executing_macro[executing_macro_index] == 0)
     {
       _rl_pop_executing_macro ();
       return (_rl_next_macro_key ());
     }
 
-  return (_rl_executing_macro[executing_macro_index++]);
+  return (rl_executing_macro[executing_macro_index++]);
 }
 
 /* Save the currently executing macro on a stack of saved macros. */
@@ -125,7 +126,7 @@ _rl_push_executing_macro ()
   saver = (struct saved_macro *)xmalloc (sizeof (struct saved_macro));
   saver->next = macro_list;
   saver->sindex = executing_macro_index;
-  saver->string = _rl_executing_macro;
+  saver->string = rl_executing_macro;
 
   macro_list = saver;
 }
@@ -137,20 +138,21 @@ _rl_pop_executing_macro ()
 {
   struct saved_macro *macro;
 
-  if (_rl_executing_macro)
-    free (_rl_executing_macro);
-
-  _rl_executing_macro = (char *)NULL;
+  FREE (rl_executing_macro);
+  rl_executing_macro = (char *)NULL;
   executing_macro_index = 0;
 
   if (macro_list)
     {
       macro = macro_list;
-      _rl_executing_macro = macro_list->string;
+      rl_executing_macro = macro_list->string;
       executing_macro_index = macro_list->sindex;
       macro_list = macro_list->next;
       free (macro);
     }
+
+  if (rl_executing_macro == 0)
+    RL_UNSETSTATE(RL_STATE_MACROINPUT);
 }
 
 /* Add a character to the macro being built. */
@@ -180,14 +182,12 @@ _rl_kill_kbd_macro ()
     }
   current_macro_size = current_macro_index = 0;
 
-  if (_rl_executing_macro)
-    {
-      free (_rl_executing_macro);
-      _rl_executing_macro = (char *) NULL;
-    }
+  FREE (rl_executing_macro);
+  rl_executing_macro = (char *) NULL;
   executing_macro_index = 0;
 
   _rl_defining_kbd_macro = 0;
+  RL_UNSETSTATE(RL_STATE_MACRODEF);
 }
 
 /* Begin defining a keyboard macro.
@@ -215,6 +215,7 @@ rl_start_kbd_macro (ignore1, ignore2)
     current_macro_index = 0;
 
   _rl_defining_kbd_macro = 1;
+  RL_SETSTATE(RL_STATE_MACRODEF);
   return 0;
 }
 
@@ -235,6 +236,7 @@ rl_end_kbd_macro (count, ignore)
   current_macro[current_macro_index] = '\0';
 
   _rl_defining_kbd_macro = 0;
+  RL_UNSETSTATE(RL_STATE_MACRODEF);
 
   return (rl_call_last_kbd_macro (--count, 0));
 }
@@ -250,7 +252,7 @@ rl_call_last_kbd_macro (count, ignore)
 
   if (_rl_defining_kbd_macro)
     {
-      ding ();         /* no recursive macros */
+      rl_ding ();              /* no recursive macros */
       current_macro[--current_macro_index] = '\0';     /* erase this char */
       return 0;
     }
index 67bed8a6fa4a93fa3607d84ea17bbe3c88cd4c27..f807995a067acaa77a6e5eaef894ba394947feee 100644 (file)
@@ -105,9 +105,9 @@ _rl_init_eightbit ()
   /* We don't have setlocale.  Finesse it.  Check the environment for the
      appropriate variables and set eight-bit mode if they have the right
      values. */
-  lspec = get_env_value ("LC_ALL");
-  if (lspec == 0) lspec = get_env_value ("LC_CTYPE");
-  if (lspec == 0) lspec = get_env_value ("LANG");
+  lspec = sh_get_env_value ("LC_ALL");
+  if (lspec == 0) lspec = sh_get_env_value ("LC_CTYPE");
+  if (lspec == 0) lspec = sh_get_env_value ("LANG");
   if (lspec == 0 || (t = normalize_codeset (lspec)) == 0)
     return (0);
   for (i = 0; t && legal_lang_values[i]; i++)
index b6de529f1a000611783b33c7ed465ed989e74a88..d1e66f598140816a1fef393cefece456e9bbcb8e 100644 (file)
@@ -64,6 +64,8 @@ int rl_blink_matching_paren = 1;
 int rl_blink_matching_paren = 0;
 #endif /* !HAVE_SELECT */
 
+static int _paren_blink_usec = 500000;
+
 /* Change emacs_standard_keymap to have bindings for paren matching when
    ON_OR_OFF is 1, change them back to self_insert when ON_OR_OFF == 0. */
 void
@@ -84,6 +86,18 @@ _rl_enable_paren_matching (on_or_off)
     }
 }
 
+int
+rl_set_paren_blink_timeout (u)
+     int u;
+{
+  int o;
+
+  o = _paren_blink_usec;
+  if (u > 0)
+    _paren_blink_usec = u;
+  return (o);
+}
+
 int
 rl_insert_close (count, invoking_key)
      int count, invoking_key;
@@ -109,7 +123,7 @@ rl_insert_close (count, invoking_key)
       FD_ZERO (&readfds);
       FD_SET (fileno (rl_instream), &readfds);
       timer.tv_sec = 0;
-      timer.tv_usec = 500000;
+      timer.tv_usec = _paren_blink_usec;
 
       orig_point = rl_point;
       rl_point = match_point;
index 2c6aef68f48ff7e74a97c581568a4a81bc3bd17b..9d7cc5bf7df830564f916a60a925fdcf3547db66 100644 (file)
@@ -67,7 +67,7 @@
 #include "xmalloc.h"
 
 #ifndef RL_LIBRARY_VERSION
-#  define RL_LIBRARY_VERSION "4.1"
+#  define RL_LIBRARY_VERSION "4.2"
 #endif
 
 /* Evaluates its arguments multiple times. */
@@ -90,8 +90,9 @@ static void readline_default_bindings __P((void));
 /*                                                                 */
 /* **************************************************************** */
 
-char *rl_library_version = RL_LIBRARY_VERSION;
+const char *rl_library_version = RL_LIBRARY_VERSION;
 
+/* True if this is `real' readline as opposed to some stub substitute. */
 int rl_gnu_readline_p = 1;
 
 /* A pointer to the keymap that is currently in use.
@@ -121,8 +122,13 @@ int rl_arg_sign = 1;
 /* Non-zero means we have been called at least once before. */
 static int rl_initialized;
 
+#if 0
 /* If non-zero, this program is running in an EMACS buffer. */
 static int running_in_emacs;
+#endif
+
+/* Flags word encapsulating the current readline state. */
+int rl_readline_state = RL_STATE_NONE;
 
 /* The current offset in the current input line. */
 int rl_point;
@@ -137,7 +143,7 @@ int rl_end;
 int rl_done;
 
 /* The last function executed by readline. */
-Function *rl_last_func = (Function *)NULL;
+rl_command_func_t *rl_last_func = (rl_command_func_t *)NULL;
 
 /* Top level environment for readline_internal (). */
 procenv_t readline_top_level;
@@ -153,7 +159,7 @@ FILE *rl_outstream = (FILE *)NULL;
 int readline_echoing_p = 1;
 
 /* Current prompt. */
-char *rl_prompt;
+char *rl_prompt = (char *)NULL;
 int rl_visible_prompt_length = 0;
 
 /* Set to non-zero by calling application if it has already printed rl_prompt
@@ -165,12 +171,12 @@ int rl_key_sequence_length = 0;
 
 /* If non-zero, then this is the address of a function to call just
    before readline_internal_setup () prints the first prompt. */
-Function *rl_startup_hook = (Function *)NULL;
+rl_hook_func_t *rl_startup_hook = (rl_hook_func_t *)NULL;
 
 /* If non-zero, this is the address of a function to call just before
    readline_internal_setup () returns and readline_internal starts
    reading input characters. */
-Function *rl_pre_input_hook = (Function *)NULL;
+rl_hook_func_t *rl_pre_input_hook = (rl_hook_func_t *)NULL;
 
 /* What we use internally.  You should always refer to RL_LINE_BUFFER. */
 static char *the_line;
@@ -183,7 +189,7 @@ int _rl_eof_char = CTRL ('D');
 int rl_pending_input = 0;
 
 /* Pointer to a useful terminal name. */
-char *rl_terminal_name = (char *)NULL;
+const char *rl_terminal_name = (const char *)NULL;
 
 /* Non-zero means to always use horizontal scrolling in line display. */
 int _rl_horizontal_scroll_mode = 0;
@@ -243,24 +249,37 @@ int _rl_output_meta_chars = 0;
 /* Non-zero means treat 0200 bit in terminal input as Meta bit. */
 int _rl_meta_flag = 0; /* Forward declaration */
 
+/* Set up the prompt and expand it.  Called from readline() and
+   rl_callback_handler_install (). */
+int
+rl_set_prompt (prompt)
+     const char *prompt;
+{
+  FREE (rl_prompt);
+  rl_prompt = prompt ? savestring (prompt) : (char *)NULL;
+
+  rl_visible_prompt_length = (rl_prompt && *rl_prompt)
+                               ? rl_expand_prompt (rl_prompt)
+                               : 0;
+  return 0;
+}
+  
 /* Read a line of input.  Prompt with PROMPT.  An empty PROMPT means
    none.  A return value of NULL means that EOF was encountered. */
 char *
 readline (prompt)
-     char *prompt;
+     const char *prompt;
 {
   char *value;
 
-  rl_prompt = prompt;
-
   /* If we are at EOF return a NULL string. */
   if (rl_pending_input == EOF)
     {
-      rl_pending_input = 0;
+      rl_clear_pending_input ();
       return ((char *)NULL);
     }
 
-  rl_visible_prompt_length = rl_expand_prompt (rl_prompt);
+  rl_set_prompt (prompt);
 
   rl_initialize ();
   (*rl_prep_term_function) (_rl_meta_flag);
@@ -348,7 +367,7 @@ readline_internal_teardown (eof)
   /* At any rate, it is highly likely that this line has an undo list.  Get
      rid of it now. */
   if (rl_undo_list)
-    free_undo_list ();
+    rl_free_undo_list ();
 
   return (eof ? (char *)NULL : savestring (the_line));
 }
@@ -384,7 +403,9 @@ readline_internal_charloop ()
          rl_key_sequence_length = 0;
        }
 
+      RL_SETSTATE(RL_STATE_READCMD);
       c = rl_read_key ();
+      RL_UNSETSTATE(RL_STATE_READCMD);
 
       /* EOF typed to a non-blank line is a <NL>. */
       if (c == EOF && rl_end)
@@ -395,6 +416,7 @@ readline_internal_charloop ()
       if (((c == _rl_eof_char && lastc != c) || c == EOF) && !rl_end)
        {
 #if defined (READLINE_CALLBACKS)
+         RL_SETSTATE(RL_STATE_DONE);
          return (rl_done = 1);
 #else
          eof_found = 1;
@@ -491,7 +513,7 @@ _rl_dispatch (key, map)
 {
   int r, newkey;
   char *macro;
-  Function *func;
+  rl_command_func_t *func;
 
   if (META_CHAR (key) && _rl_convert_meta_chars_to_ascii)
     {
@@ -505,7 +527,7 @@ _rl_dispatch (key, map)
          return (_rl_dispatch (key, map));
        }
       else
-       ding ();
+       rl_ding ();
       return 0;
     }
 
@@ -517,7 +539,7 @@ _rl_dispatch (key, map)
     {
     case ISFUNC:
       func = map[key].function;
-      if (func != (Function *)NULL)
+      if (func)
        {
          /* Special case rl_do_lowercase_version (). */
          if (func == rl_do_lowercase_version)
@@ -530,13 +552,15 @@ _rl_dispatch (key, map)
 #endif
 
          rl_dispatching = 1;
+         RL_SETSTATE(RL_STATE_DISPATCHING);
          r = (*map[key].function)(rl_numeric_arg * rl_arg_sign, key);
+         RL_UNSETSTATE(RL_STATE_DISPATCHING);
          rl_dispatching = 0;
 
          /* If we have input pending, then the last command was a prefix
             command.  Don't change the state of rl_last_func.  Otherwise,
             remember the last command executed in this variable. */
-         if (!rl_pending_input && map[key].function != rl_digit_argument)
+         if (rl_pending_input == 0 && map[key].function != rl_digit_argument)
            rl_last_func = map[key].function;
        }
       else
@@ -547,10 +571,18 @@ _rl_dispatch (key, map)
       break;
 
     case ISKMAP:
-      if (map[key].function != (Function *)NULL)
+      if (map[key].function != 0)
        {
          rl_key_sequence_length++;
+
+         if (key == ESC)
+           RL_SETSTATE(RL_STATE_METANEXT);
+         RL_SETSTATE(RL_STATE_MOREINPUT);
          newkey = rl_read_key ();
+         RL_UNSETSTATE(RL_STATE_MOREINPUT);
+         if (key == ESC)
+           RL_UNSETSTATE(RL_STATE_METANEXT);
+
          r = _rl_dispatch (newkey, FUNCTION_TO_KEYMAP (map, key));
        }
       else
@@ -561,7 +593,7 @@ _rl_dispatch (key, map)
       break;
 
     case ISMACR:
-      if (map[key].function != (Function *)NULL)
+      if (map[key].function != 0)
        {
          macro = savestring ((char *)map[key].function);
          _rl_with_macro_input (macro);
@@ -591,8 +623,11 @@ rl_initialize ()
      terminal and data structures. */
   if (!rl_initialized)
     {
+      RL_SETSTATE(RL_STATE_INITIALIZING);
       readline_initialize_everything ();
+      RL_UNSETSTATE(RL_STATE_INITIALIZING);
       rl_initialized++;
+      RL_SETSTATE(RL_STATE_INITIALIZED);
     }
 
   /* Initalize the current line information. */
@@ -600,6 +635,7 @@ rl_initialize ()
 
   /* We aren't done yet.  We haven't even gotten started yet! */
   rl_done = 0;
+  RL_UNSETSTATE(RL_STATE_DONE);
 
   /* Tell the history routines what is going on. */
   start_using_history ();
@@ -608,7 +644,7 @@ rl_initialize ()
   rl_reset_line_state ();
 
   /* No such function typed yet. */
-  rl_last_func = (Function *)NULL;
+  rl_last_func = (rl_command_func_t *)NULL;
 
   /* Parsing of key-bindings begins in an enabled state. */
   _rl_parsing_conditionalized_out = 0;
@@ -658,8 +694,10 @@ readline_initialize_everything ()
 #endif
 #endif
 
-  /* Find out if we are running in Emacs. */
-  running_in_emacs = get_env_value ("EMACS") != (char *)0;
+#if 0
+  /* Find out if we are running in Emacs -- UNUSED. */
+  running_in_emacs = sh_get_env_value ("EMACS") != (char *)0;
+#endif
 
   /* Set up input and output if they are not already set up. */
   if (!rl_instream)
@@ -679,7 +717,9 @@ readline_initialize_everything ()
     rl_line_buffer = xmalloc (rl_line_buffer_len = DEFAULT_BUFFER_SIZE);
 
   /* Initialize the terminal interface. */
-  _rl_init_terminal_io ((char *)NULL);
+  if (rl_terminal_name == 0)
+    rl_terminal_name = sh_get_env_value ("TERM");
+  _rl_init_terminal_io (rl_terminal_name);
 
   /* Bind tty characters to readline functions. */
   readline_default_bindings ();
@@ -696,8 +736,8 @@ readline_initialize_everything ()
   /* XXX */
   if (_rl_horizontal_scroll_mode && _rl_term_autowrap)
     {
-      screenwidth--;
-      screenchars -= screenheight;
+      _rl_screenwidth--;
+      _rl_screenchars -= _rl_screenheight;
     }
 
   /* Override the effect of any `set keymap' assignments in the
@@ -723,13 +763,13 @@ readline_initialize_everything ()
 static void
 readline_default_bindings ()
 {
-  rltty_set_default_bindings (_rl_keymap);
+  rl_tty_set_default_bindings (_rl_keymap);
 }
 
 static void
 bind_arrow_keys_internal ()
 {
-  Function *f;
+  rl_command_func_t *f;
 
 #if defined (__MSDOS__)
   f = rl_function_of_keyseq ("\033[0A", _rl_keymap, (int *)NULL);
@@ -797,19 +837,23 @@ rl_digit_loop ()
 
   rl_save_prompt ();
 
+  RL_SETSTATE(RL_STATE_NUMERICARG);
   sawminus = sawdigits = 0;
   while (1)
     {
       if (rl_numeric_arg > 1000000)
        {
          sawdigits = rl_explicit_arg = rl_numeric_arg = 0;
-         ding ();
+         rl_ding ();
          rl_restore_prompt ();
          rl_clear_message ();
+         RL_UNSETSTATE(RL_STATE_NUMERICARG);
          return 1;
        }
       rl_message ("(arg: %d) ", rl_arg_sign * rl_numeric_arg);
+      RL_SETSTATE(RL_STATE_MOREINPUT);
       key = c = rl_read_key ();
+      RL_UNSETSTATE(RL_STATE_MOREINPUT);
 
       /* If we see a key bound to `universal-argument' after seeing digits,
         it ends the argument but is otherwise ignored. */
@@ -823,9 +867,12 @@ rl_digit_loop ()
            }
          else
            {
+             RL_SETSTATE(RL_STATE_MOREINPUT);
              key = rl_read_key ();
+             RL_UNSETSTATE(RL_STATE_MOREINPUT);
              rl_restore_prompt ();
              rl_clear_message ();
+             RL_UNSETSTATE(RL_STATE_NUMERICARG);
              return (_rl_dispatch (key, _rl_keymap));
            }
        }
@@ -849,10 +896,12 @@ rl_digit_loop ()
            rl_explicit_arg = 1;
          rl_restore_prompt ();
          rl_clear_message ();
+         RL_UNSETSTATE(RL_STATE_NUMERICARG);
          return (_rl_dispatch (key, _rl_keymap));
        }
     }
 
+  RL_UNSETSTATE(RL_STATE_NUMERICARG);
   return 0;
 }
 
@@ -861,7 +910,7 @@ int
 rl_digit_argument (ignore, key)
      int ignore, key;
 {
-  rl_pending_input = key;
+  rl_execute_next (key);
   return (rl_digit_loop ());
 }
 
@@ -869,7 +918,7 @@ rl_digit_argument (ignore, key)
 int
 rl_discard_argument ()
 {
-  ding ();
+  rl_ding ();
   rl_clear_message ();
   _rl_init_argument ();
   return 0;
@@ -906,7 +955,7 @@ rl_universal_argument (count, key)
    function. */
 int
 rl_insert_text (string)
-     char *string;
+     const char *string;
 {
   register int i, l = strlen (string);
 
@@ -999,7 +1048,7 @@ _rl_fix_point (fix_mark_too)
 
 void
 _rl_replace_text (text, start, end)
-     char *text;
+     const char *text;
      int start, end;
 {
   rl_begin_undo_group ();
@@ -1053,7 +1102,7 @@ rl_forward (count, key)
     {
       int end = rl_point + count;
 #if defined (VI_MODE)
-      int lend = rl_end - (rl_editing_mode == vi_mode);
+      int lend = rl_end > 0 ? rl_end - (rl_editing_mode == vi_mode) : rl_end;
 #else
       int lend = rl_end;
 #endif
@@ -1061,7 +1110,7 @@ rl_forward (count, key)
       if (end > lend)
        {
          rl_point = lend;
-         ding ();
+         rl_ding ();
        }
       else
        rl_point = end;
@@ -1085,7 +1134,7 @@ rl_backward (count, key)
       if (rl_point < count)
        {
          rl_point = 0;
-         ding ();
+         rl_ding ();
        }
       else
         rl_point -= count;
@@ -1132,12 +1181,12 @@ rl_forward_word (count, key)
       /* If we are not in a word, move forward until we are in one.
         Then, move forward until we hit a non-alphabetic character. */
       c = the_line[rl_point];
-      if (alphabetic (c) == 0)
+      if (rl_alphabetic (c) == 0)
        {
          while (++rl_point < rl_end)
            {
              c = the_line[rl_point];
-             if (alphabetic (c))
+             if (rl_alphabetic (c))
                break;
            }
        }
@@ -1146,7 +1195,7 @@ rl_forward_word (count, key)
       while (++rl_point < rl_end)
        {
          c = the_line[rl_point];
-         if (alphabetic (c) == 0)
+         if (rl_alphabetic (c) == 0)
            break;
        }
       --count;
@@ -1176,12 +1225,12 @@ rl_backward_word (count, key)
         just before point. */
 
       c = the_line[rl_point - 1];
-      if (alphabetic (c) == 0)
+      if (rl_alphabetic (c) == 0)
        {
          while (--rl_point)
            {
              c = the_line[rl_point - 1];
-             if (alphabetic (c))
+             if (rl_alphabetic (c))
                break;
            }
        }
@@ -1189,7 +1238,7 @@ rl_backward_word (count, key)
       while (rl_point)
        {
          c = the_line[rl_point - 1];
-         if (alphabetic (c) == 0)
+         if (rl_alphabetic (c) == 0)
            break;
          else
            --rl_point;
@@ -1245,7 +1294,9 @@ rl_arrow_keys (count, c)
 {
   int ch;
 
+  RL_SETSTATE(RL_STATE_MOREINPUT);
   ch = rl_read_key ();
+  RL_UNSETSTATE(RL_STATE_MOREINPUT);
 
   switch (_rl_to_upper (ch))
     {
@@ -1266,7 +1317,7 @@ rl_arrow_keys (count, c)
       break;
 
     default:
-      ding ();
+      rl_ding ();
     }
   return 0;
 }
@@ -1352,7 +1403,11 @@ rl_quoted_insert (count, key)
 #if defined (HANDLE_SIGNALS)
   _rl_disable_tty_signals ();
 #endif
+
+  RL_SETSTATE(RL_STATE_MOREINPUT);
   c = rl_read_key ();
+  RL_UNSETSTATE(RL_STATE_MOREINPUT);
+
 #if defined (HANDLE_SIGNALS)
   _rl_restore_tty_signals ();
 #endif
@@ -1376,6 +1431,7 @@ rl_newline (count, key)
      int count, key;
 {
   rl_done = 1;
+  RL_SETSTATE(RL_STATE_DONE);
 
 #if defined (VI_MODE)
   if (rl_editing_mode == vi_mode)
@@ -1386,7 +1442,7 @@ rl_newline (count, key)
 #endif /* VI_MODE */
 
   /* If we've been asked to erase empty lines, suppress the final update,
-     since _rl_update_final calls crlf(). */
+     since _rl_update_final calls rl_crlf(). */
   if (rl_erase_empty_line && rl_point == 0 && rl_end == 0)
     return 0;
 
@@ -1419,7 +1475,7 @@ rl_rubout (count, key)
 
   if (!rl_point)
     {
-      ding ();
+      rl_ding ();
       return -1;
     }
 
@@ -1455,7 +1511,7 @@ rl_delete (count, key)
 
   if (rl_point == rl_end)
     {
-      ding ();
+      rl_ding ();
       return -1;
     }
 
@@ -1611,11 +1667,11 @@ rl_change_case (count, op)
 
        case CapCase:
          the_line[start] = (inword == 0) ? _rl_to_upper (c) : _rl_to_lower (c);
-         inword = alphabetic (the_line[start]);
+         inword = rl_alphabetic (the_line[start]);
          break;
 
        default:
-         ding ();
+         rl_ding ();
          return -1;
        }
     }
@@ -1654,7 +1710,7 @@ rl_transpose_words (count, key)
   /* Do some check to make sure that there really are two words. */
   if ((w1_beg == w2_beg) || (w2_beg < w1_end))
     {
-      ding ();
+      rl_ding ();
       rl_point = orig_point;
       return -1;
     }
@@ -1702,7 +1758,7 @@ rl_transpose_chars (count, key)
 
   if (!rl_point || rl_end < 2)
     {
-      ding ();
+      rl_ding ();
       return -1;
     }
 
@@ -1746,7 +1802,7 @@ _rl_char_search_internal (count, dir, schar)
     {
       if ((dir < 0 && pos <= 0) || (dir > 0 && pos >= rl_end))
        {
-         ding ();
+         rl_ding ();
          return -1;
        }
 
@@ -1777,7 +1833,10 @@ _rl_char_search (count, fdir, bdir)
 {
   int c;
 
+  RL_SETSTATE(RL_STATE_MOREINPUT);
   c = rl_read_key ();
+  RL_UNSETSTATE(RL_STATE_MOREINPUT);
+
   if (count < 0)
     return (_rl_char_search_internal (-count, bdir, c));
   else
@@ -1810,17 +1869,17 @@ rl_backward_char_search (count, key)
 
 /* While we are editing the history, this is the saved
    version of the original line. */
-HIST_ENTRY *saved_line_for_history = (HIST_ENTRY *)NULL;
+HIST_ENTRY *_rl_saved_line_for_history = (HIST_ENTRY *)NULL;
 
 /* Set the history pointer back to the last entry in the history. */
 static void
 start_using_history ()
 {
   using_history ();
-  if (saved_line_for_history)
-    _rl_free_history_entry (saved_line_for_history);
+  if (_rl_saved_line_for_history)
+    _rl_free_history_entry (_rl_saved_line_for_history);
 
-  saved_line_for_history = (HIST_ENTRY *)NULL;
+  _rl_saved_line_for_history = (HIST_ENTRY *)NULL;
 }
 
 /* Free the contents (and containing structure) of a HIST_ENTRY. */
@@ -1837,7 +1896,7 @@ _rl_free_history_entry (entry)
 
 /* Perhaps put back the current line if it has changed. */
 int
-maybe_replace_line ()
+rl_maybe_replace_line ()
 {
   HIST_ENTRY *temp;
 
@@ -1852,43 +1911,54 @@ maybe_replace_line ()
   return 0;
 }
 
-/* Put back the saved_line_for_history if there is one. */
+/* Restore the _rl_saved_line_for_history if there is one. */
 int
-maybe_unsave_line ()
+rl_maybe_unsave_line ()
 {
   int line_len;
 
-  if (saved_line_for_history)
+  if (_rl_saved_line_for_history)
     {
-      line_len = strlen (saved_line_for_history->line);
+      line_len = strlen (_rl_saved_line_for_history->line);
 
       if (line_len >= rl_line_buffer_len)
        rl_extend_line_buffer (line_len);
 
-      strcpy (the_line, saved_line_for_history->line);
-      rl_undo_list = (UNDO_LIST *)saved_line_for_history->data;
-      _rl_free_history_entry (saved_line_for_history);
-      saved_line_for_history = (HIST_ENTRY *)NULL;
+      strcpy (the_line, _rl_saved_line_for_history->line);
+      rl_undo_list = (UNDO_LIST *)_rl_saved_line_for_history->data;
+      _rl_free_history_entry (_rl_saved_line_for_history);
+      _rl_saved_line_for_history = (HIST_ENTRY *)NULL;
       rl_end = rl_point = strlen (the_line);
     }
   else
-    ding ();
+    rl_ding ();
   return 0;
 }
 
-/* Save the current line in saved_line_for_history. */
+/* Save the current line in _rl_saved_line_for_history. */
 int
-maybe_save_line ()
+rl_maybe_save_line ()
 {
-  if (saved_line_for_history == 0)
+  if (_rl_saved_line_for_history == 0)
     {
-      saved_line_for_history = (HIST_ENTRY *)xmalloc (sizeof (HIST_ENTRY));
-      saved_line_for_history->line = savestring (the_line);
-      saved_line_for_history->data = (char *)rl_undo_list;
+      _rl_saved_line_for_history = (HIST_ENTRY *)xmalloc (sizeof (HIST_ENTRY));
+      _rl_saved_line_for_history->line = savestring (the_line);
+      _rl_saved_line_for_history->data = (char *)rl_undo_list;
     }
   return 0;
 }
 
+int
+_rl_free_saved_history_line ()
+{
+  if (_rl_saved_line_for_history)
+    {
+      _rl_free_history_entry (_rl_saved_line_for_history);
+      _rl_saved_line_for_history = (HIST_ENTRY *)NULL;
+    }
+  return 0;
+}      
+
 /* **************************************************************** */
 /*                                                                 */
 /*                     History Commands                            */
@@ -1908,9 +1978,9 @@ int
 rl_end_of_history (count, key)
      int count, key;
 {
-  maybe_replace_line ();
+  rl_maybe_replace_line ();
   using_history ();
-  maybe_unsave_line ();
+  rl_maybe_unsave_line ();
   return 0;
 }
 
@@ -1928,7 +1998,7 @@ rl_get_next_history (count, key)
   if (count == 0)
     return 0;
 
-  maybe_replace_line ();
+  rl_maybe_replace_line ();
 
   temp = (HIST_ENTRY *)NULL;
   while (count)
@@ -1940,7 +2010,7 @@ rl_get_next_history (count, key)
     }
 
   if (temp == 0)
-    maybe_unsave_line ();
+    rl_maybe_unsave_line ();
   else
     {
       line_len = strlen (temp->line);
@@ -1975,10 +2045,10 @@ rl_get_previous_history (count, key)
     return 0;
 
   /* If we don't have a line saved, then save this one. */
-  maybe_save_line ();
+  rl_maybe_save_line ();
 
   /* If the current line has changed, save the changes. */
-  maybe_replace_line ();
+  rl_maybe_replace_line ();
 
   temp = old_temp = (HIST_ENTRY *)NULL;
   while (count)
@@ -1997,7 +2067,7 @@ rl_get_previous_history (count, key)
     temp = old_temp;
 
   if (temp == 0)
-    ding ();
+    rl_ding ();
   else
     {
       line_len = strlen (temp->line);
@@ -2053,7 +2123,7 @@ rl_exchange_point_and_mark (count, key)
 
   if (rl_mark == -1)
     {
-      ding ();
+      rl_ding ();
       return -1;
     }
   else
index 97c62fd153490f0e5ce791029ef7c0a6697a1723..d362df1618002c6d3cb24838f3e768ef763d5d29 100644 (file)
@@ -60,8 +60,8 @@ extern UNDO_LIST *rl_undo_list;
 
 /* The data structure for mapping textual names to code addresses. */
 typedef struct _funmap {
-  char *name;
-  Function *function;
+  const char *name;
+  rl_command_func_t *function;
 } FUNMAP;
 
 extern FUNMAP **funmap;
@@ -155,8 +155,8 @@ extern int rl_yank __P((int, int));
 extern int rl_yank_pop __P((int, int));
 extern int rl_yank_nth_arg __P((int, int));
 extern int rl_yank_last_arg __P((int, int));
-/* Not available unless __CYGWIN32__ is defined. */
-#ifdef __CYGWIN32__
+/* Not available unless __CYGWIN__ is defined. */
+#ifdef __CYGWIN__
 extern int rl_paste_from_clipboard __P((int, int));
 #endif
 
@@ -196,7 +196,7 @@ extern int rl_noninc_reverse_search_again __P((int, int));
 extern int rl_insert_close __P((int, int));
 
 /* Not available unless READLINE_CALLBACKS is defined. */
-extern void rl_callback_handler_install __P((char *, VFunction *));
+extern void rl_callback_handler_install __P((const char *, rl_vcpfunc_t *));
 extern void rl_callback_read_char __P((void));
 extern void rl_callback_handler_remove __P((void));
 
@@ -260,43 +260,47 @@ extern int rl_vi_eword __P((int, int));
 
 /* Readline functions. */
 /* Read a line of input.  Prompt with PROMPT.  A NULL PROMPT means none. */
-extern char *readline __P((char *));
+extern char *readline __P((const char *));
+
+extern int rl_set_prompt __P((const char *));
+extern int rl_expand_prompt __P((char *));
 
 extern int rl_initialize __P((void));
 
+/* Undocumented; unused by readline */
 extern int rl_discard_argument __P((void));
 
 /* Utility functions to bind keys to readline commands. */
-extern int rl_add_defun __P((char *, Function *, int));
-extern int rl_bind_key __P((int, Function *));
-extern int rl_bind_key_in_map __P((int, Function *, Keymap));
+extern int rl_add_defun __P((const char *, rl_command_func_t *, int));
+extern int rl_bind_key __P((int, rl_command_func_t *));
+extern int rl_bind_key_in_map __P((int, rl_command_func_t *, Keymap));
 extern int rl_unbind_key __P((int));
 extern int rl_unbind_key_in_map __P((int, Keymap));
-extern int rl_unbind_function_in_map __P((Function *, Keymap));
-extern int rl_unbind_command_in_map __P((char *, Keymap));
-extern int rl_set_key __P((char *, Function *, Keymap));
-extern int rl_generic_bind __P((int, char *, char *, Keymap));
-extern int rl_variable_bind __P((char *, char *));
+extern int rl_unbind_function_in_map __P((rl_command_func_t *, Keymap));
+extern int rl_unbind_command_in_map __P((const char *, Keymap));
+extern int rl_set_key __P((const char *, rl_command_func_t *, Keymap));
+extern int rl_generic_bind __P((int, const char *, char *, Keymap));
+extern int rl_variable_bind __P((const char *, const char *));
 
 /* Backwards compatibility, use rl_generic_bind instead. */
-extern int rl_macro_bind __P((char *, char *, Keymap));
+extern int rl_macro_bind __P((const char *, const char *, Keymap));
 
 /* Undocumented in the texinfo manual; not really useful to programs. */
-extern int rl_translate_keyseq __P((char *, char *, int *));
+extern int rl_translate_keyseq __P((const char *, char *, int *));
 extern char *rl_untranslate_keyseq __P((int));
 
-extern Function *rl_named_function __P((char *));
-extern Function *rl_function_of_keyseq __P((char *, Keymap, int *));
+extern rl_command_func_t *rl_named_function __P((const char *));
+extern rl_command_func_t *rl_function_of_keyseq __P((const char *, Keymap, int *));
 
 extern void rl_list_funmap_names __P((void));
-extern char **rl_invoking_keyseqs_in_map __P((Function *, Keymap));
-extern char **rl_invoking_keyseqs __P((Function *));
+extern char **rl_invoking_keyseqs_in_map __P((rl_command_func_t *, Keymap));
+extern char **rl_invoking_keyseqs __P((rl_command_func_t *));
  
 extern void rl_function_dumper __P((int));
 extern void rl_macro_dumper __P((int));
 extern void rl_variable_dumper __P((int));
 
-extern int rl_read_init_file __P((char *));
+extern int rl_read_init_file __P((const char *));
 extern int rl_parse_and_bind __P((char *));
 
 /* Functions for manipulating keymaps. */
@@ -305,24 +309,27 @@ extern Keymap rl_copy_keymap __P((Keymap));
 extern Keymap rl_make_keymap __P((void));
 extern void rl_discard_keymap __P((Keymap));
 
-extern Keymap rl_get_keymap_by_name __P((char *));
+extern Keymap rl_get_keymap_by_name __P((const char *));
 extern char *rl_get_keymap_name __P((Keymap));
 extern void rl_set_keymap __P((Keymap));
 extern Keymap rl_get_keymap __P((void));
+/* Undocumented; used internally only. */
 extern void rl_set_keymap_from_edit_mode __P((void));
 extern char *rl_get_keymap_name_from_edit_mode __P((void));
 
 /* Functions for manipulating the funmap, which maps command names to functions. */
-extern int rl_add_funmap_entry __P((char *, Function *));
+extern int rl_add_funmap_entry __P((const char *, rl_command_func_t *));
+extern const char **rl_funmap_names __P((void));
+/* Undocumented, only used internally -- there is only one funmap, and this
+   function may be called only once. */
 extern void rl_initialize_funmap __P((void));
-extern char **rl_funmap_names __P((void));
 
 /* Utility functions for managing keyboard macros. */
 extern void rl_push_macro_input __P((char *));
 
 /* Functions for undoing, from undo.c */
 extern void rl_add_undo __P((enum undo_code, int, int, char *));
-extern void free_undo_list __P((void));
+extern void rl_free_undo_list __P((void));
 extern int rl_do_undo __P((void));
 extern int rl_begin_undo_group __P((void));
 extern int rl_end_undo_group __P((void));
@@ -335,6 +342,7 @@ extern int rl_on_new_line_with_prompt __P((void));
 extern int rl_forced_update_display __P((void));
 extern int rl_clear_message __P((void));
 extern int rl_reset_line_state __P((void));
+extern int rl_crlf __P((void));
 
 #if (defined (__STDC__) || defined (__cplusplus)) && defined (USE_VARARGS) && defined (PREFER_STDARG)
 extern int rl_message (const char *, ...);
@@ -342,17 +350,17 @@ extern int rl_message (const char *, ...);
 extern int rl_message ();
 #endif
 
-/* Undocumented in texinfo manual. */
 extern int rl_show_char __P((int));
+
+/* Undocumented in texinfo manual. */
 extern int rl_character_len __P((int, int));
-extern int crlf __P((void));
 
 /* Save and restore internal prompt redisplay information. */
 extern void rl_save_prompt __P((void));
 extern void rl_restore_prompt __P((void));
 
 /* Modifying text. */
-extern int rl_insert_text __P((char *));
+extern int rl_insert_text __P((const char *));
 extern int rl_delete_text __P((int, int));
 extern int rl_kill_text __P((int, int));
 extern char *rl_copy_text __P((int, int));
@@ -360,20 +368,25 @@ extern char *rl_copy_text __P((int, int));
 /* Terminal and tty mode management. */
 extern void rl_prep_terminal __P((int));
 extern void rl_deprep_terminal __P((void));
-extern void rltty_set_default_bindings __P((Keymap));
+extern void rl_tty_set_default_bindings __P((Keymap));
 
-extern int rl_reset_terminal __P((char *));
+extern int rl_reset_terminal __P((const char *));
 extern void rl_resize_terminal __P((void));
-
-/* `Public' utility functions . */
-extern void rl_extend_line_buffer __P((int));
-extern int ding __P((void));
+extern void rl_set_screen_size __P((int, int));
+extern void rl_get_screen_size __P((int *, int *));
 
 /* Functions for character input. */
 extern int rl_stuff_char __P((int));
 extern int rl_execute_next __P((int));
+extern int rl_clear_pending_input __P((void));
 extern int rl_read_key __P((void));
 extern int rl_getc __P((FILE *));
+extern int rl_set_keyboard_input_timeout __P((int));
+
+/* `Public' utility functions . */
+extern void rl_extend_line_buffer __P((int));
+extern int rl_ding __P((void));
+extern int rl_alphabetic __P((int));
 
 /* Readline signal handling, from signals.c */
 extern int rl_set_signals __P((void));
@@ -383,19 +396,36 @@ extern void rl_reset_after_signal __P((void));
 extern void rl_free_line_state __P((void));
  
 /* Undocumented. */
-extern int rl_expand_prompt __P((char *));
+extern int rl_set_paren_blink_timeout __P((int));
 
-extern int maybe_save_line __P((void));
-extern int maybe_unsave_line __P((void));
-extern int maybe_replace_line __P((void));
+/* Undocumented. */
+extern int rl_maybe_save_line __P((void));
+extern int rl_maybe_unsave_line __P((void));
+extern int rl_maybe_replace_line __P((void));
 
 /* Completion functions. */
 extern int rl_complete_internal __P((int));
 extern void rl_display_match_list __P((char **, int, int));
 
-extern char **completion_matches __P((char *, CPFunction *));
-extern char *username_completion_function __P((char *, int));
-extern char *filename_completion_function __P((char *, int));
+extern char **rl_completion_matches __P((const char *, rl_compentry_func_t *));
+extern char *rl_username_completion_function __P((const char *, int));
+extern char *rl_filename_completion_function __P((const char *, int));
+
+#if 0
+/* Backwards compatibility (compat.c).  These will go away sometime. */
+extern void free_undo_list __P((void));
+extern int maybe_save_line __P((void));
+extern int maybe_unsave_line __P((void));
+extern int maybe_replace_line __P((void));
+
+extern int ding __P((void));
+extern int alphabetic __P((int));
+extern int crlf __P((void));
+
+extern char **completion_matches __P((char *, rl_compentry_func_t *));
+extern char *username_completion_function __P((const char *, int));
+extern char *filename_completion_function __P((const char *, int));
+#endif
 
 /* **************************************************************** */
 /*                                                                 */
@@ -404,14 +434,21 @@ extern char *filename_completion_function __P((char *, int));
 /* **************************************************************** */
 
 /* The version of this incarnation of the readline library. */
-extern char *rl_library_version;
+extern const char *rl_library_version;
 
 /* True if this is real GNU readline. */
 extern int rl_gnu_readline_p;
 
+/* Flags word encapsulating the current readline state. */
+extern int rl_readline_state;
+
+/* Says which editing mode readline is currently using.  1 means emacs mode;
+   0 means vi mode. */
+extern int rl_editing_mode;
+
 /* The name of the calling program.  You should initialize this to
    whatever was in argv[0].  It is used when parsing conditionals. */
-extern char *rl_readline_name;
+extern const char *rl_readline_name;
 
 /* The prompt readline uses.  This is set from the argument to
    readline (), and should not be assigned to directly. */
@@ -421,7 +458,8 @@ extern char *rl_prompt;
 extern char *rl_line_buffer;
 
 /* The location of point, and end. */
-extern int rl_point, rl_end;
+extern int rl_point;
+extern int rl_end;
 
 /* The mark, or saved cursor position. */
 extern int rl_mark;
@@ -438,29 +476,44 @@ extern int rl_pending_input;
    or directly from an application. */
 extern int rl_dispatching;
 
+/* Non-zero if the user typed a numeric argument before executing the
+   current function. */
+extern int rl_explicit_arg;
+
+/* The current value of the numeric argument specified by the user. */
+extern int rl_numeric_arg;
+
+/* The address of the last command function Readline executed. */
+extern rl_command_func_t *rl_last_func;
+
 /* The name of the terminal to use. */
-extern char *rl_terminal_name;
+extern const char *rl_terminal_name;
 
 /* The input and output streams. */
-extern FILE *rl_instream, *rl_outstream;
+extern FILE *rl_instream;
+extern FILE *rl_outstream;
 
 /* If non-zero, then this is the address of a function to call just
    before readline_internal () prints the first prompt. */
-extern Function *rl_startup_hook;
+extern rl_hook_func_t *rl_startup_hook;
 
 /* If non-zero, this is the address of a function to call just before
    readline_internal_setup () returns and readline_internal starts
    reading input characters. */
-extern Function *rl_pre_input_hook;
+extern rl_hook_func_t *rl_pre_input_hook;
       
 /* The address of a function to call periodically while Readline is
    awaiting character input, or NULL, for no event handling. */
-extern Function *rl_event_hook;
+extern rl_hook_func_t *rl_event_hook;
 
-extern Function *rl_getc_function;
-extern VFunction *rl_redisplay_function;
-extern VFunction *rl_prep_term_function;
-extern VFunction *rl_deprep_term_function;
+/* The address of the function to call to fetch a character from the current
+   Readline input stream */
+extern rl_getc_func_t *rl_getc_function;
+
+extern rl_voidfunc_t *rl_redisplay_function;
+
+extern rl_vintfunc_t *rl_prep_term_function;
+extern rl_voidfunc_t *rl_deprep_term_function;
 
 /* Dispatch variables. */
 extern Keymap rl_executing_keymap;
@@ -481,6 +534,9 @@ extern int rl_already_prompted;
    up to a character bound to accept-line. */
 extern int rl_num_chars_to_read;
 
+/* The text of a currently-executing keyboard macro. */
+extern char *rl_executing_macro;
+
 /* Variables to control readline signal handling. */
 /* If non-zero, readline will install its own signal handlers for
    SIGINT, SIGTERM, SIGQUIT, SIGALRM, SIGTSTP, SIGTTIN, and SIGTTOU. */
@@ -497,7 +553,7 @@ extern int rl_catch_sigwinch;
 /* Pointer to the generator function for completion_matches ().
    NULL means to use filename_entry_function (), the default filename
    completer. */
-extern Function *rl_completion_entry_function;
+extern rl_compentry_func_t *rl_completion_entry_function;
 
 /* If rl_ignore_some_completions_function is non-NULL it is the address
    of a function to call after all of the possible matches have been
@@ -505,7 +561,7 @@ extern Function *rl_completion_entry_function;
    The function is called with one argument; a NULL terminated array
    of (char *).  If your function removes any of the elements, they
    must be free()'ed. */
-extern Function *rl_ignore_some_completions_function;
+extern rl_compignore_func_t *rl_ignore_some_completions_function;
 
 /* Pointer to alternative function to create matches.
    Function is called with TEXT, START, and END.
@@ -514,39 +570,50 @@ extern Function *rl_ignore_some_completions_function;
    If this function exists and returns NULL then call the value of
    rl_completion_entry_function to try to match, otherwise use the
    array of strings returned. */
-extern CPPFunction *rl_attempted_completion_function;
+extern rl_completion_func_t *rl_attempted_completion_function;
 
 /* The basic list of characters that signal a break between words for the
    completer routine.  The initial contents of this variable is what
    breaks words in the shell, i.e. "n\"\\'`@$>". */
-extern char *rl_basic_word_break_characters;
+extern const char *rl_basic_word_break_characters;
 
 /* The list of characters that signal a break between words for
    rl_complete_internal.  The default list is the contents of
    rl_basic_word_break_characters.  */
-extern char *rl_completer_word_break_characters;
+extern const char *rl_completer_word_break_characters;
 
 /* List of characters which can be used to quote a substring of the line.
    Completion occurs on the entire substring, and within the substring   
    rl_completer_word_break_characters are treated as any other character,
    unless they also appear within this list. */
-extern char *rl_completer_quote_characters;
+extern const char *rl_completer_quote_characters;
 
 /* List of quote characters which cause a word break. */
-extern char *rl_basic_quote_characters;
+extern const char *rl_basic_quote_characters;
 
 /* List of characters that need to be quoted in filenames by the completer. */
-extern char *rl_filename_quote_characters;
+extern const char *rl_filename_quote_characters;
 
 /* List of characters that are word break characters, but should be left
    in TEXT when it is passed to the completion function.  The shell uses
    this to help determine what kind of completing to do. */
-extern char *rl_special_prefixes;
+extern const char *rl_special_prefixes;
 
 /* If non-zero, then this is the address of a function to call when
    completing on a directory name.  The function is called with
-   the address of a string (the current directory name) as an arg. */
-extern Function *rl_directory_completion_hook;
+   the address of a string (the current directory name) as an arg.  It
+   changes what is displayed when the possible completions are printed
+   or inserted. */
+extern rl_icppfunc_t *rl_directory_completion_hook;
+
+/* If non-zero, this is the address of a function to call when completing
+   a directory name.  This function takes the address of the directory name
+   to be modified as an argument.  Unlike rl_directory_completion_hook, it
+   only modifies the directory name used in opendir(2), not what is displayed
+   when the possible completions are printed or inserted.  It is called
+   before rl_directory_completion_hook.  I'm not happy with how this works
+   yet, so it's undocumented. */
+extern rl_icppfunc_t *rl_directory_rewrite_hook;
 
 /* Backwards compatibility with previous versions of readline. */
 #define rl_symbolic_link_hook rl_directory_completion_hook
@@ -558,7 +625,7 @@ extern Function *rl_directory_completion_hook;
    where MATCHES is the array of strings that matched, NUM_MATCHES is the
    number of strings in that array, and MAX_LENGTH is the length of the
    longest string in that array. */
-extern VFunction *rl_completion_display_matches_hook;
+extern rl_compdisp_func_t *rl_completion_display_matches_hook;
 
 /* Non-zero means that the results of the matches are to be treated
    as filenames.  This is ALWAYS zero on entry, and can only be changed
@@ -576,17 +643,17 @@ extern int rl_filename_quoting_desired;
    Called with the text to quote, the type of match found (single or multiple)
    and a pointer to the quoting character to be used, which the function can
    reset if desired. */
-extern CPFunction *rl_filename_quoting_function;
+extern rl_quote_func_t *rl_filename_quoting_function;
 
 /* Function to call to remove quoting characters from a filename.  Called
    before completion is attempted, so the embedded quotes do not interfere
    with matching names in the file system. */
-extern CPFunction *rl_filename_dequoting_function;
+extern rl_dequote_func_t *rl_filename_dequoting_function;
 
 /* Function to call to decide whether or not a word break character is
    quoted.  If a character is quoted, it does not break words for the
    completer. */
-extern Function *rl_char_is_quoted_p;
+extern rl_linebuf_func_t *rl_char_is_quoted_p;
 
 /* Non-zero means to suppress normal filename completion after the
    user-specified completion function has been called. */
@@ -623,9 +690,33 @@ extern int rl_inhibit_completion;
 #define SINGLE_MATCH    1
 #define MULT_MATCH      2
 
-#if !defined (savestring)
-extern char *savestring __P((char *)); /* XXX backwards compatibility */
-#endif
+/* Possible state values for rl_readline_state */
+#define RL_STATE_NONE          0x00000         /* no state; before first call */
+
+#define RL_STATE_INITIALIZING  0x00001         /* initializing */
+#define RL_STATE_INITIALIZED   0x00002         /* initialization done */
+#define RL_STATE_TERMPREPPED   0x00004         /* terminal is prepped */
+#define RL_STATE_READCMD       0x00008         /* reading a command key */
+#define RL_STATE_METANEXT      0x00010         /* reading input after ESC */
+#define RL_STATE_DISPATCHING   0x00020         /* dispatching to a command */
+#define RL_STATE_MOREINPUT     0x00040         /* reading more input in a command function */
+#define RL_STATE_ISEARCH       0x00080         /* doing incremental search */
+#define RL_STATE_NSEARCH       0x00100         /* doing non-inc search */
+#define RL_STATE_SEARCH                0x00200         /* doing a history search */
+#define RL_STATE_NUMERICARG    0x00400         /* reading numeric argument */
+#define RL_STATE_MACROINPUT    0x00800         /* getting input from a macro */
+#define RL_STATE_MACRODEF      0x01000         /* defining keyboard macro */
+#define RL_STATE_OVERWRITE     0x02000         /* overwrite mode */
+#define RL_STATE_COMPLETING    0x04000         /* doing completion */
+#define RL_STATE_SIGHANDLER    0x08000         /* in readline sighandler */
+#define RL_STATE_UNDOING       0x10000         /* doing an undo */
+#define RL_STATE_INPUTPENDING  0x20000         /* rl_execute_next called */
+
+#define RL_STATE_DONE          0x80000         /* done; accepted line */
+
+#define RL_SETSTATE(x)         (rl_readline_state |= (x))
+#define RL_UNSETSTATE(x)       (rl_readline_state &= ~(x))
+#define RL_ISSTATE(x)          (rl_readline_state & (x))
 
 #ifdef __cplusplus
 }
index e504d9b1c301d8368f689e006dcf9d92b1574e64..4e094bf66c75adf5e7a9781eed579130f689dfdd 100644 (file)
@@ -30,6 +30,8 @@
 #  include "config.h"
 #endif
 
+#include "rlstdc.h"
+
 #if defined (_POSIX_VERSION) && !defined (TERMIOS_MISSING)
 #  define TERMIOS_TTY_DRIVER
 #else
@@ -71,7 +73,8 @@ extern char *strchr (), *strrchr ();
 #define _rl_stricmp strcasecmp
 #define _rl_strnicmp strncasecmp
 #else
-extern int _rl_stricmp (), _rl_strnicmp ();
+extern int _rl_stricmp __P((char *, char *);
+extern int _rl_strnicmp __P((char *, char *));
 #endif
 
 #if !defined (emacs_mode)
@@ -87,14 +90,14 @@ extern int _rl_stricmp (), _rl_strnicmp ();
    This is not what is wanted. */
 #if defined (CRAY)
 #  define FUNCTION_TO_KEYMAP(map, key) (Keymap)((int)map[key].function)
-#  define KEYMAP_TO_FUNCTION(data)     (Function *)((int)(data))
+#  define KEYMAP_TO_FUNCTION(data)     (rl_command_func_t *)((int)(data))
 #else
 #  define FUNCTION_TO_KEYMAP(map, key) (Keymap)(map[key].function)
-#  define KEYMAP_TO_FUNCTION(data)     (Function *)(data)
+#  define KEYMAP_TO_FUNCTION(data)     (rl_command_func_t *)(data)
 #endif
 
 #ifndef savestring
-extern char *xmalloc ();
+extern char *xmalloc __P((int));
 #define savestring(x) strcpy (xmalloc (1 + strlen (x)), (x))
 #endif
 
index c05230e3325ddf391f88e27786ed88354ce08848..a36de9b4590a4a97ebe13b98780fca66223cba73 100644 (file)
@@ -35,7 +35,7 @@
  *************************************************************************/
 
 /* terminal.c */
-extern char *rl_get_termcap __P((char *));
+extern char *rl_get_termcap __P((const char *));
 
 /*************************************************************************
  *                                                                      *
@@ -51,12 +51,8 @@ extern int rl_visible_stats;
 
 /* readline.c */
 extern int rl_line_buffer_len;
-extern int rl_numeric_arg;
 extern int rl_arg_sign;
-extern int rl_explicit_arg;
-extern int rl_editing_mode;
 extern int rl_visible_prompt_length;
-extern Function *rl_last_func;
 extern int readline_echoing_p;
 extern int rl_key_sequence_length;
 
@@ -91,7 +87,7 @@ extern void _rl_set_screen_size __P((int, int));
 extern int _rl_fix_last_undo_of_type __P((int, int, int));
 
 /* util.c */
-extern char *_rl_savestring __P((char *));
+extern char *_rl_savestring __P((const char *));
 
 /*************************************************************************
  *                                                                      *
@@ -118,11 +114,11 @@ extern int readline_internal_char __P((void));
 #endif /* READLINE_CALLBACKS */
 
 /* bind.c */
-extern void _rl_bind_if_unbound __P((char *, Function *));
+extern void _rl_bind_if_unbound __P((const char *, rl_command_func_t *));
 
 /* display.c */
 extern char *_rl_strip_prompt __P((char *));
-extern void _rl_move_cursor_relative __P((int, char *));
+extern void _rl_move_cursor_relative __P((int, const char *));
 extern void _rl_move_vert __P((int));
 extern void _rl_save_prompt __P((void));
 extern void _rl_restore_prompt __P((void));
@@ -134,7 +130,7 @@ extern void _rl_update_final __P((void));
 extern void _rl_redisplay_after_sigwinch __P((void));
 extern void _rl_clean_up_for_exit __P((void));
 extern void _rl_erase_entire_line __P((void));
-extern int _rl_currentb_display_line __P((void));
+extern int _rl_current_display_line __P((void));
 
 /* input.c */
 extern int _rl_any_typein __P((void));
@@ -161,9 +157,10 @@ extern void _rl_set_the_line __P((void));
 extern int _rl_dispatch __P((int, Keymap));
 extern int _rl_init_argument __P((void));
 extern void _rl_fix_point __P((int));
-extern void _rl_replace_text __P((char *, int, int));
+extern void _rl_replace_text __P((const char *, int, int));
 extern int _rl_char_search_internal __P((int, int, int));
 extern int _rl_set_mark_at_pos __P((int));
+extern int _rl_free_saved_history_line __P((void));
 
 /* rltty.c */
 extern int _rl_disable_tty_signals __P((void));
@@ -171,21 +168,22 @@ extern int _rl_restore_tty_signals __P((void));
 
 /* terminal.c */
 extern void _rl_get_screen_size __P((int, int));
-extern int _rl_init_terminal_io __P((char *));
+extern int _rl_init_terminal_io __P((const char *));
 #ifdef _MINIX
 extern void _rl_output_character_function __P((int));
 #else
 extern int _rl_output_character_function __P((int));
 #endif
-extern void _rl_output_some_chars __P((char *, int));
+extern void _rl_output_some_chars __P((const char *, int));
 extern int _rl_backspace __P((int));
 extern void _rl_enable_meta_key __P((void));
 extern void _rl_control_keypad __P((int));
 
 /* util.c */
-extern int alphabetic __P((int));
+extern int rl_alphabetic __P((int));
 extern int _rl_abort_internal __P((void));
-extern char *_rl_strindex __P((char *, char *));
+extern char *_rl_strindex __P((const char *, const char *));
+extern char *_rl_strpbrk __P((const char *, const char *));
 extern int _rl_qsort_string_compare __P((char **, char **));
 extern int (_rl_uppercase_p) __P((int));
 extern int (_rl_lowercase_p) __P((int));
@@ -206,6 +204,10 @@ extern void _rl_vi_done_inserting __P((void));
  * Undocumented private variables                                       *
  *************************************************************************/
 
+/* bind.c */
+extern const char *_rl_possible_control_prefixes[];
+extern const char *_rl_possible_meta_prefixes[];
+
 /* complete.c */
 extern int _rl_complete_show_all;
 extern int _rl_complete_mark_directories;
@@ -218,10 +220,6 @@ extern int _rl_last_c_pos;
 extern int _rl_suppress_redisplay;
 extern char *rl_display_prompt;
 
-/* funmap.c */
-extern char *possible_control_prefixes[];
-extern char *possible_meta_prefixes[];
-
 /* isearch.c */
 extern unsigned char *_rl_isearch_terminators;
 
@@ -248,20 +246,20 @@ extern procenv_t readline_top_level;
 /* terminal.c */
 extern int _rl_enable_keypad;
 extern int _rl_enable_meta;
-extern char *term_clreol;
-extern char *term_clrpag;
-extern char *term_im;
-extern char *term_ic;
-extern char *term_ei;
-extern char *term_DC;
-extern char *term_up;
-extern char *term_dc;
-extern char *term_cr;
-extern char *term_IC;
-extern int screenheight;
-extern int screenwidth;
-extern int screenchars;
-extern int terminal_can_insert;
+extern char *_rl_term_clreol;
+extern char *_rl_term_clrpag;
+extern char *_rl_term_im;
+extern char *_rl_term_ic;
+extern char *_rl_term_ei;
+extern char *_rl_term_DC;
+extern char *_rl_term_up;
+extern char *_rl_term_dc;
+extern char *_rl_term_cr;
+extern char *_rl_term_IC;
+extern int _rl_screenheight;
+extern int _rl_screenwidth;
+extern int _rl_screenchars;
+extern int _rl_terminal_can_insert;
 extern int _rl_term_autowrap;
 
 /* undo.c */
index 7a4e69963167095224d9505f87db04f9a6155ee3..60322755c27a73dacfe5a5a35519279aab9e80c8 100644 (file)
 
 #include "rlstdc.h"
 
-extern char *single_quote __P((char *));
-extern void set_lines_and_columns __P((int, int));
-extern char *get_env_value __P((char *));
-extern char *get_home_dir __P((void));
-extern int unset_nodelay_mode __P((int));
+extern char *sh_single_quote __P((char *));
+extern void sh_set_lines_and_columns __P((int, int));
+extern char *sh_get_env_value __P((const char *));
+extern char *sh_get_home_dir __P((void));
+extern int sh_unset_nodelay_mode __P((int));
 
 #endif /* _RL_SHELL_H_ */
index dac8e986e10a81b0893f39a1ce8186291be3d5f2..a1ca208b76bc0d2e395b417a0c47b2290983a2b0 100644 (file)
 #  endif
 #endif
 
+#if !defined (__STDC__) && !defined (__cplusplus)
+#  if defined (__GNUC__)       /* gcc with -traditional */
+#    if !defined (const)
+#      define const __const
+#    endif /* !const */
+#  else /* !__GNUC__ */
+#    if !defined (const)
+#      define const
+#    endif /* !const */
+#  endif /* !__GNUC__ */
+#endif /* !__STDC__ && !__cplusplus */
+
 #endif /* !_RL_STDC_H_ */
index b868b6970c24cca98dfe5b9ccb8a1159a050247e..636e7f79e681110b24d17c175afc15b1ca252d14 100644 (file)
@@ -49,8 +49,8 @@
 extern int errno;
 #endif /* !errno */
 
-VFunction *rl_prep_term_function = rl_prep_terminal;
-VFunction *rl_deprep_term_function = rl_deprep_terminal;
+rl_vintfunc_t *rl_prep_term_function = rl_prep_terminal;
+rl_voidfunc_t *rl_deprep_term_function = rl_deprep_terminal;
 
 /* **************************************************************** */
 /*                                                                 */
@@ -190,7 +190,7 @@ save_tty_chars (tiop)
       _rl_tty_chars.t_intr = tiop->tchars.t_intrc;
       _rl_tty_chars.t_quit = tiop->tchars.t_quitc;
       _rl_tty_chars.t_start = tiop->tchars.t_startc;
-      _rl_tty_chars.t_stop = tiop->tchars.t_stopc
+      _rl_tty_chars.t_stop = tiop->tchars.t_stopc;
       _rl_tty_chars.t_eof = tiop->tchars.t_eofc;
       _rl_tty_chars.t_eol = '\n';
       _rl_tty_chars.t_eol2 = tiop->tchars.t_brkc;
@@ -218,22 +218,23 @@ get_tty_settings (tty, tiop)
 
   tiop->flags = tiop->lflag = 0;
 
-  ioctl (tty, TIOCGETP, &(tiop->sgttyb));
+  if (ioctl (tty, TIOCGETP, &(tiop->sgttyb)) < 0)
+    return -1;
   tiop->flags |= SGTTY_SET;
 
 #if defined (TIOCLGET)
-  ioctl (tty, TIOCLGET, &(tiop->lflag));
-  tiop->flags |= LFLAG_SET;
+  if (ioctl (tty, TIOCLGET, &(tiop->lflag)) == 0)
+    tiop->flags |= LFLAG_SET;
 #endif
 
 #if defined (TIOCGETC)
-  ioctl (tty, TIOCGETC, &(tiop->tchars));
-  tiop->flags |= TCHARS_SET;
+  if (ioctl (tty, TIOCGETC, &(tiop->tchars)) == 0)
+    tiop->flags |= TCHARS_SET;
 #endif
 
 #if defined (TIOCGLTC)
-  ioctl (tty, TIOCGLTC, &(tiop->ltchars));
-  tiop->flags |= LTCHARS_SET;
+  if (ioctl (tty, TIOCGLTC, &(tiop->ltchars)) == 0)
+    tiop->flags |= LTCHARS_SET;
 #endif
 
   return 0;
@@ -279,23 +280,23 @@ set_tty_settings (tty, tiop)
 }
 
 static void
-prepare_terminal_settings (meta_flag, otio, tiop)
+prepare_terminal_settings (meta_flag, oldtio, tiop)
      int meta_flag;
-     TIOTYPE otio, *tiop;
+     TIOTYPE oldtio, *tiop;
 {
-  readline_echoing_p = (otio.sgttyb.sg_flags & ECHO);
+  readline_echoing_p = (oldtio.sgttyb.sg_flags & ECHO);
 
   /* Copy the original settings to the structure we're going to use for
      our settings. */
-  tiop->sgttyb = otio.sgttyb;
-  tiop->lflag = otio.lflag;
+  tiop->sgttyb = oldtio.sgttyb;
+  tiop->lflag = oldtio.lflag;
 #if defined (TIOCGETC)
-  tiop->tchars = otio.tchars;
+  tiop->tchars = oldtio.tchars;
 #endif
 #if defined (TIOCGLTC)
-  tiop->ltchars = otio.ltchars;
+  tiop->ltchars = oldtio.ltchars;
 #endif
-  tiop->flags = otio.flags;
+  tiop->flags = oldtio.flags;
 
   /* First, the basic settings to put us into character-at-a-time, no-echo
      input mode. */
@@ -308,8 +309,8 @@ prepare_terminal_settings (meta_flag, otio, tiop)
 #if !defined (ANYP)
 #  define ANYP (EVENP | ODDP)
 #endif
-  if (((otio.sgttyb.sg_flags & ANYP) == ANYP) ||
-      ((otio.sgttyb.sg_flags & ANYP) == 0))
+  if (((oldtio.sgttyb.sg_flags & ANYP) == ANYP) ||
+      ((oldtio.sgttyb.sg_flags & ANYP) == 0))
     {
       tiop->sgttyb.sg_flags |= ANYP;
 
@@ -328,13 +329,13 @@ prepare_terminal_settings (meta_flag, otio, tiop)
   tiop->tchars.t_startc = -1; /* C-q */
 
   /* If there is an XON character, bind it to restart the output. */
-  if (otio.tchars.t_startc != -1)
-    rl_bind_key (otio.tchars.t_startc, rl_restart_output);
+  if (oldtio.tchars.t_startc != -1)
+    rl_bind_key (oldtio.tchars.t_startc, rl_restart_output);
 #  endif /* USE_XON_XOFF */
 
   /* If there is an EOF char, bind _rl_eof_char to it. */
-  if (otio.tchars.t_eofc != -1)
-    _rl_eof_char = otio.tchars.t_eofc;
+  if (oldtio.tchars.t_eofc != -1)
+    _rl_eof_char = oldtio.tchars.t_eofc;
 
 #  if defined (NO_KILL_INTR)
   /* Get rid of terminal-generated SIGQUIT and SIGINT. */
@@ -373,7 +374,7 @@ prepare_terminal_settings (meta_flag, otio, tiop)
 #  define TIOTYPE struct termio
 #  define DRAIN_OUTPUT(fd)
 #  define GETATTR(tty, tiop)   (ioctl (tty, TCGETA, tiop))
-#  define SETATTR(tty, tiop)   (ioctl (tty, TCSETA, tiop))
+#  define SETATTR(tty, tiop)   (ioctl (tty, TCSETAW, tiop))
 #endif /* !TERMIOS_TTY_DRIVER */
 
 static TIOTYPE otio;
@@ -545,16 +546,16 @@ set_tty_settings (tty, tiop)
 }
 
 static void
-prepare_terminal_settings (meta_flag, otio, tiop)
+prepare_terminal_settings (meta_flag, oldtio, tiop)
      int meta_flag;
-     TIOTYPE otio, *tiop;
+     TIOTYPE oldtio, *tiop;
 {
-  readline_echoing_p = (otio.c_lflag & ECHO);
+  readline_echoing_p = (oldtio.c_lflag & ECHO);
 
   tiop->c_lflag &= ~(ICANON | ECHO);
 
-  if ((unsigned char) otio.c_cc[VEOF] != (unsigned char) _POSIX_VDISABLE)
-    _rl_eof_char = otio.c_cc[VEOF];
+  if ((unsigned char) oldtio.c_cc[VEOF] != (unsigned char) _POSIX_VDISABLE)
+    _rl_eof_char = oldtio.c_cc[VEOF];
 
 #if defined (USE_XON_XOFF)
 #if defined (IXANY)
@@ -585,7 +586,7 @@ prepare_terminal_settings (meta_flag, otio, tiop)
   if (OUTPUT_BEING_FLUSHED (tiop))
     {
       tiop->c_lflag &= ~FLUSHO;
-      otio.c_lflag &= ~FLUSHO;
+      oldtio.c_lflag &= ~FLUSHO;
     }
 #endif
 
@@ -645,6 +646,7 @@ rl_prep_terminal (meta_flag)
 
   fflush (rl_outstream);
   terminal_prepped = 1;
+  RL_SETSTATE(RL_STATE_TERMPREPPED);
 
   release_sigint ();
 }
@@ -675,6 +677,7 @@ rl_deprep_terminal ()
     }
 
   terminal_prepped = 0;
+  RL_UNSETSTATE(RL_STATE_TERMPREPPED);
 
   release_sigint ();
 }
@@ -751,6 +754,9 @@ rl_stop_output (count, key)
 /*                     Default Key Bindings                        */
 /*                                                                 */
 /* **************************************************************** */
+
+/* Set the system's default editing characters to their readline equivalents
+   in KMAP.  Should be static, now that we have rl_tty_set_default_bindings. */
 void
 rltty_set_default_bindings (kmap)
      Keymap kmap;
@@ -815,6 +821,15 @@ rltty_set_default_bindings (kmap)
 #endif /* !NEW_TTY_DRIVER */
 }
 
+/* New public way to set the system default editing chars to their readline
+   equivalents. */
+void
+rl_tty_set_default_bindings (kmap)
+     Keymap kmap;
+{
+  rltty_set_default_bindings (kmap);
+}
+
 #if defined (HANDLE_SIGNALS)
 
 #if defined (NEW_TTY_DRIVER)
diff --git a/lib/readline/rltypedefs.h b/lib/readline/rltypedefs.h
new file mode 100644 (file)
index 0000000..b6f9b42
--- /dev/null
@@ -0,0 +1,88 @@
+/* rltypedefs.h -- Type declarations for readline functions. */
+
+/* Copyright (C) 2000 Free Software Foundation, Inc.
+
+   This file is part of the GNU Readline Library, a library for
+   reading lines of text with interactive input and history editing.
+
+   The GNU Readline Library 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.
+
+   The GNU Readline Library is distributed in the hope that it will be
+   useful, but WITHOUT ANY WARRANTY; without even the implied warranty
+   of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   The GNU General Public License is often shipped with GNU software, and
+   is generally kept in a file called COPYING or LICENSE.  If you do not
+   have a copy of the license, write to the Free Software Foundation,
+   59 Temple Place, Suite 330, Boston, MA 02111 USA. */
+
+#ifndef _RL_TYPEDEFS_H_
+#define _RL_TYPEDEFS_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+/* Old-style */
+
+#if !defined (_FUNCTION_DEF)
+#  define _FUNCTION_DEF
+
+typedef int Function ();
+typedef void VFunction ();
+typedef char *CPFunction ();
+typedef char **CPPFunction ();
+
+#endif /* _FUNCTION_DEF */
+
+/* New style. */
+
+#if !defined (_RL_FUNCTION_TYPEDEF)
+#  define _RL_FUNCTION_TYPEDEF
+
+/* Bindable functions */
+typedef int rl_command_func_t __P((int, int));
+
+/* Typedefs for the completion system */
+typedef char *rl_compentry_func_t __P((const char *, int));
+typedef char **rl_completion_func_t __P((const char *, int, int));
+
+typedef char *rl_quote_func_t __P((char *, int, char *));
+typedef char *rl_dequote_func_t __P((char *, int));
+
+typedef int rl_compignore_func_t __P((char **));
+
+typedef void rl_compdisp_func_t __P((char **, int, int));
+
+/* Type for input and pre-read hook functions like rl_event_hook */
+typedef int rl_hook_func_t __P((void));
+
+/* Input function type */
+typedef int rl_getc_func_t __P((FILE *));
+
+/* Generic function that takes a character buffer (which could be the readline
+   line buffer) and an index into it (which could be rl_point) and returns
+   an int. */
+typedef int rl_linebuf_func_t __P((char *, int));
+
+/* `Generic' function pointer typedefs */
+typedef int rl_intfunc_t __P((int));
+#define rl_ivoidfunc_t rl_hook_func_t
+typedef int rl_icpfunc_t __P((char *));
+typedef int rl_icppfunc_t __P((char **));
+
+typedef void rl_voidfunc_t __P((void));
+typedef void rl_vintfunc_t __P((int));
+typedef void rl_vcpfunc_t __P((char *));
+typedef void rl_vcppfunc_t __P((char **));
+#endif /* _RL_FUNCTION_TYPEDEF */
+
+#ifdef __cplusplus
+}
+#endif
+
+#endif /* _RL_TYPEDEFS_H_ */
index 485890ea57cd6e524412a4b0a8f01d8aba5d5bfb..74141750fa1a15ef7f6196328c56ed2e8d41c078 100644 (file)
@@ -27,7 +27,7 @@ extern char *xmalloc ();
    all `public' readline header files. */
 char *
 savestring (s)
-     char *s;
+     const char *s;
 {
   return ((char *)strcpy (xmalloc (1 + (int)strlen (s)), (s)));
 }
index 112f8072866e1669ccab106a433739cb3384521d..45d7f13044f491536618bcb014730cc44025fe25 100644 (file)
@@ -51,7 +51,7 @@
 #endif
 #define abs(x)         (((x) >= 0) ? (x) : -(x))
 
-extern HIST_ENTRY *saved_line_for_history;
+extern HIST_ENTRY *_rl_saved_line_for_history;
 
 /* Functions imported from the rest of the library. */
 extern int _rl_free_history_entry __P((HIST_ENTRY *));
@@ -83,9 +83,9 @@ make_history_line_current (entry)
   rl_undo_list = (UNDO_LIST *)entry->data;
   rl_end = line_len;
 
-  if (saved_line_for_history)
-    _rl_free_history_entry (saved_line_for_history);
-  saved_line_for_history = (HIST_ENTRY *)NULL;
+  if (_rl_saved_line_for_history)
+    _rl_free_history_entry (_rl_saved_line_for_history);
+  _rl_saved_line_for_history = (HIST_ENTRY *)NULL;
 }
 
 /* Search the history list for STRING starting at absolute history position
@@ -100,13 +100,19 @@ noninc_search_from_pos (string, pos, dir)
 {
   int ret, old;
 
+  if (pos < 0)
+    return -1;
+
   old = where_history ();
-  history_set_pos (pos);
+  if (history_set_pos (pos) == 0)
+    return -1;
 
+  RL_SETSTATE(RL_STATE_SEARCH);
   if (*string == '^')
     ret = history_search_prefix (string + 1, dir);
   else
     ret = history_search (string, dir);
+  RL_UNSETSTATE(RL_STATE_SEARCH);
 
   if (ret != -1)
     ret = where_history ();
@@ -128,7 +134,7 @@ noninc_dosearch (string, dir)
 
   if (string == 0 || *string == '\0' || noninc_history_pos < 0)
     {
-      ding ();
+      rl_ding ();
       return;
     }
 
@@ -136,10 +142,10 @@ noninc_dosearch (string, dir)
   if (pos == -1)
     {
       /* Search failed, current history position unchanged. */
-      maybe_unsave_line ();
+      rl_maybe_unsave_line ();
       rl_clear_message ();
       rl_point = 0;
-      ding ();
+      rl_ding ();
       return;
     }
 
@@ -172,7 +178,7 @@ noninc_search (dir, pchar)
   int saved_point, c;
   char *p;
 
-  maybe_save_line ();
+  rl_maybe_save_line ();
   saved_point = rl_point;
 
   /* Use the line buffer to read the search string. */
@@ -183,18 +189,26 @@ noninc_search (dir, pchar)
   rl_message (p, 0, 0);
   free (p);
 
-#define SEARCH_RETURN rl_restore_prompt (); return
+#define SEARCH_RETURN rl_restore_prompt (); RL_UNSETSTATE(RL_STATE_NSEARCH); return
 
+  RL_SETSTATE(RL_STATE_NSEARCH);
   /* Read the search string. */
-  while (c = rl_read_key ())
+  while (1)
     {
+      RL_SETSTATE(RL_STATE_MOREINPUT);
+      c = rl_read_key ();
+      RL_UNSETSTATE(RL_STATE_MOREINPUT);
+
+      if (c == 0)
+       break;
+
       switch (c)
        {
        case CTRL('H'):
        case RUBOUT:
          if (rl_point == 0)
            {
-             maybe_unsave_line ();
+             rl_maybe_unsave_line ();
              rl_clear_message ();
              rl_point = saved_point;
              SEARCH_RETURN;
@@ -218,10 +232,10 @@ noninc_search (dir, pchar)
 
        case CTRL('C'):
        case CTRL('G'):
-         maybe_unsave_line ();
+         rl_maybe_unsave_line ();
          rl_clear_message ();
          rl_point = saved_point;
-         ding ();
+         rl_ding ();
          SEARCH_RETURN;
 
        default:
@@ -239,7 +253,7 @@ noninc_search (dir, pchar)
     {
       if (!noninc_search_string)
        {
-         ding ();
+         rl_ding ();
          SEARCH_RETURN;
        }
     }
@@ -253,6 +267,7 @@ noninc_search (dir, pchar)
 
   rl_restore_prompt ();
   noninc_dosearch (noninc_search_string, dir);
+  RL_UNSETSTATE(RL_STATE_NSEARCH);
 }
 
 /* Search forward through the history list for a string.  If the vi-mode
@@ -283,7 +298,7 @@ rl_noninc_forward_search_again (count, key)
 {
   if (!noninc_search_string)
     {
-      ding ();
+      rl_ding ();
       return (-1);
     }
   noninc_dosearch (noninc_search_string, 1);
@@ -298,7 +313,7 @@ rl_noninc_reverse_search_again (count, key)
 {
   if (!noninc_search_string)
     {
-      ding ();
+      rl_ding ();
       return (-1);
     }
   noninc_dosearch (noninc_search_string, -1);
@@ -312,7 +327,7 @@ rl_history_search_internal (count, dir)
   HIST_ENTRY *temp;
   int ret, oldpos;
 
-  maybe_save_line ();
+  rl_maybe_save_line ();
   temp = (HIST_ENTRY *)NULL;
 
   /* Search COUNT times through the history for a line whose prefix
@@ -341,8 +356,8 @@ rl_history_search_internal (count, dir)
   /* If we didn't find anything at all, return. */
   if (temp == 0)
     {
-      maybe_unsave_line ();
-      ding ();
+      rl_maybe_unsave_line ();
+      rl_ding ();
       /* If you don't want the saved history line (last match) to show up
          in the line buffer after the search fails, change the #if 0 to
          #if 1 */
@@ -353,7 +368,7 @@ rl_history_search_internal (count, dir)
           rl_line_buffer[rl_end] = '\0';
         }
 #else
-      rl_point = rl_history_search_len;        /* maybe_unsave_line changes it */
+      rl_point = rl_history_search_len;        /* rl_maybe_unsave_line changes it */
 #endif
       return 1;
     }
@@ -382,6 +397,7 @@ rl_history_search_reinit ()
       strncpy (history_search_string + 1, rl_line_buffer, rl_point);
       history_search_string[rl_point + 1] = '\0';
     }
+  _rl_free_saved_history_line ();
 }
 
 /* Search forward in the history for the string of characters
index 3daef69b4c2652349f97904d346f52434f5a13ac..3727f7c16ff7f1eb6fc259562022f89bcb037c56 100644 (file)
 
 #include <stdio.h>
 
+#include "rlstdc.h"
 #include "rlshell.h"
 #include "xmalloc.h"
 
 #if !defined (HAVE_GETPW_DECLS)
-extern struct passwd *getpwuid ();
+extern struct passwd *getpwuid __P((uid_t));
 #endif /* !HAVE_GETPW_DECLS */
 
 #ifndef NULL
@@ -65,7 +66,7 @@ extern struct passwd *getpwuid ();
 
 /* Does shell-like quoting using single quotes. */
 char *
-single_quote (string)
+sh_single_quote (string)
      char *string;
 {
   register int c;
@@ -96,7 +97,7 @@ single_quote (string)
 /* Set the environment variables LINES and COLUMNS to lines and cols,
    respectively. */
 void
-set_lines_and_columns (lines, cols)
+sh_set_lines_and_columns (lines, cols)
      int lines, cols;
 {
   char *b;
@@ -121,14 +122,14 @@ set_lines_and_columns (lines, cols)
 }
 
 char *
-get_env_value (varname)
-     char *varname;
+sh_get_env_value (varname)
+     const char *varname;
 {
   return ((char *)getenv (varname));
 }
 
 char *
-get_home_dir ()
+sh_get_home_dir ()
 {
   char *home_dir;
   struct passwd *entry;
@@ -147,7 +148,7 @@ get_home_dir ()
 #endif
 
 int
-unset_nodelay_mode (fd)
+sh_unset_nodelay_mode (fd)
      int fd;
 {
   int flags, bflags;
index 861019d336302b0d7bf518d82eee5ad07fd92fd3..ddc65638a2f89820d8e7fee63acfa7e69a3d356f 100644 (file)
@@ -61,7 +61,7 @@
 #  define SIGHANDLER_RETURN return (0)
 #endif
 
-/* This typedef is equivalant to the one for Function; it allows us
+/* This typedef is equivalent to the one for Function; it allows us
    to say SigHandler *foo = signal (SIGKILL, SIG_IGN); */
 typedef RETSIGTYPE SigHandler ();
 
@@ -119,6 +119,8 @@ rl_signal_handler (sig)
 #  endif /* !HAVE_BSD_SIGNALS */
 #endif /* !HAVE_POSIX_SIGNALS */
 
+  RL_SETSTATE(RL_STATE_SIGHANDLER);
+
 #if !defined (HAVE_BSD_SIGNALS) && !defined (HAVE_POSIX_SIGNALS)
   /* Since the signal will not be blocked while we are in the signal
      handler, ignore it until rl_clear_signals resets the catcher. */
@@ -169,6 +171,7 @@ rl_signal_handler (sig)
       rl_reset_after_signal ();
     }
 
+  RL_UNSETSTATE(RL_STATE_SIGHANDLER);
   SIGHANDLER_RETURN;
 }
 
@@ -189,6 +192,7 @@ rl_sigwinch_handler (sig)
   rl_set_sighandler (SIGWINCH, rl_sigwinch_handler, &dummy_winch);
 #endif
 
+  RL_SETSTATE(RL_STATE_SIGHANDLER);
   rl_resize_terminal ();
 
   /* If another sigwinch handler has been installed, call it. */
@@ -196,6 +200,7 @@ rl_sigwinch_handler (sig)
   if (oh &&  oh != (SigHandler *)SIG_IGN && oh != (SigHandler *)SIG_DFL)
     (*oh) (sig);
 
+  RL_UNSETSTATE(RL_STATE_SIGHANDLER);
   SIGHANDLER_RETURN;
 }
 #endif  /* SIGWINCH */
@@ -358,7 +363,7 @@ rl_cleanup_after_signal ()
   _rl_clean_up_for_exit ();
   (*rl_deprep_term_function) ();
   rl_clear_signals ();
-  rl_pending_input = 0;
+  rl_clear_pending_input ();
 }
 
 /* Reset the terminal and readline state after a signal handler returns. */
@@ -378,7 +383,7 @@ rl_free_line_state ()
 {
   register HIST_ENTRY *entry;
 
-  free_undo_list ();
+  rl_free_undo_list ();
 
   entry = current_history ();
   if (entry)
index 20ad126ec37465a2496888aad57ed27c64f08b1b..64256b4cd3214531abc3352146b5df9c8dac1213 100644 (file)
@@ -76,9 +76,6 @@ static char *term_string_buffer = (char *)NULL;
 
 static int tcap_initialized;
 
-/* Non-zero means this terminal can't really do anything. */
-static int dumb_term;
-
 #if !defined (__linux__)
 #  if defined (__EMX__) || defined (NEED_EXTERN_PC)
 extern 
@@ -87,27 +84,36 @@ char PC, *BC, *UP;
 #endif /* __linux__ */
 
 /* Some strings to control terminal actions.  These are output by tputs (). */
-char *term_goto, *term_clreol, *term_cr, *term_clrpag, *term_backspace;
-char *term_pc;
+char *_rl_term_clreol;
+char *_rl_term_clrpag;
+char *_rl_term_cr;
+char *_rl_term_backspace;
+char *_rl_term_goto;
+char *_rl_term_pc;
 
 /* Non-zero if we determine that the terminal can do character insertion. */
-int terminal_can_insert = 0;
+int _rl_terminal_can_insert = 0;
 
 /* How to insert characters. */
-char *term_im, *term_ei, *term_ic, *term_ip, *term_IC;
+char *_rl_term_im;
+char *_rl_term_ei;
+char *_rl_term_ic;
+char *_rl_term_ip;
+char *_rl_term_IC;
 
 /* How to delete characters. */
-char *term_dc, *term_DC;
+char *_rl_term_dc;
+char *_rl_term_DC;
 
 #if defined (HACK_TERMCAP_MOTION)
-char *term_forward_char;
+char *_rl_term_forward_char;
 #endif  /* HACK_TERMCAP_MOTION */
 
 /* How to go up a line. */
-char *term_up;
+char *_rl_term_up;
 
-/* A visible bell, if the terminal can be made to flash the screen. */
-static char *visible_bell;
+/* A visible bell; char if the terminal can be made to flash the screen. */
+static char *_rl_visible_bell;
 
 /* Non-zero means the terminal can auto-wrap lines. */
 int _rl_term_autowrap;
@@ -116,20 +122,26 @@ int _rl_term_autowrap;
 static int term_has_meta;
 
 /* The sequences to write to turn on and off the meta key, if this
-   terminal    has one. */
-static char *term_mm, *term_mo;
+   terminal has one. */
+static char *_rl_term_mm;
+static char *_rl_term_mo;
 
 /* The key sequences output by the arrow keys, if this terminal has any. */
-static char *term_ku, *term_kd, *term_kr, *term_kl;
+static char *_rl_term_ku;
+static char *_rl_term_kd;
+static char *_rl_term_kr;
+static char *_rl_term_kl;
 
 /* How to initialize and reset the arrow keys, if this terminal has any. */
-static char *term_ks, *term_ke;
+static char *_rl_term_ks;
+static char *_rl_term_ke;
 
 /* The key sequences sent by the Home and End keys, if any. */
-static char *term_kh, *term_kH;
+static char *_rl_term_kh;
+static char *_rl_term_kH;
 
 /* Variables that hold the screen dimensions, used by the display code. */
-int screenwidth, screenheight, screenchars;
+int _rl_screenwidth, _rl_screenheight, _rl_screenchars;
 
 /* Non-zero means the user wants to enable the keypad. */
 int _rl_enable_keypad;
@@ -169,72 +181,92 @@ _rl_get_screen_size (tty, ignore_env)
 #if defined (TIOCGWINSZ)
   if (ioctl (tty, TIOCGWINSZ, &window_size) == 0)
     {
-      screenwidth = (int) window_size.ws_col;
-      screenheight = (int) window_size.ws_row;
+      _rl_screenwidth = (int) window_size.ws_col;
+      _rl_screenheight = (int) window_size.ws_row;
     }
 #endif /* TIOCGWINSZ */
 
 #if defined (__EMX__)
-  _emx_get_screensize (&screenwidth, &screenheight);
+  _emx_get_screensize (&_rl_screenwidth, &_rl_screenheight);
 #endif
 
   /* Environment variable COLUMNS overrides setting of "co" if IGNORE_ENV
      is unset. */
-  if (screenwidth <= 0)
+  if (_rl_screenwidth <= 0)
     {
-      if (ignore_env == 0 && (ss = get_env_value ("COLUMNS")))
-       screenwidth = atoi (ss);
+      if (ignore_env == 0 && (ss = sh_get_env_value ("COLUMNS")))
+       _rl_screenwidth = atoi (ss);
 
 #if !defined (__DJGPP__)
-      if (screenwidth <= 0 && term_string_buffer)
-       screenwidth = tgetnum ("co");
+      if (_rl_screenwidth <= 0 && term_string_buffer)
+       _rl_screenwidth = tgetnum ("co");
 #endif
     }
 
   /* Environment variable LINES overrides setting of "li" if IGNORE_ENV
      is unset. */
-  if (screenheight <= 0)
+  if (_rl_screenheight <= 0)
     {
-      if (ignore_env == 0 && (ss = get_env_value ("LINES")))
-       screenheight = atoi (ss);
+      if (ignore_env == 0 && (ss = sh_get_env_value ("LINES")))
+       _rl_screenheight = atoi (ss);
 
 #if !defined (__DJGPP__)
-      if (screenheight <= 0 && term_string_buffer)
-       screenheight = tgetnum ("li");
+      if (_rl_screenheight <= 0 && term_string_buffer)
+       _rl_screenheight = tgetnum ("li");
 #endif
     }
 
   /* If all else fails, default to 80x24 terminal. */
-  if (screenwidth <= 1)
-    screenwidth = 80;
+  if (_rl_screenwidth <= 1)
+    _rl_screenwidth = 80;
 
-  if (screenheight <= 0)
-    screenheight = 24;
+  if (_rl_screenheight <= 0)
+    _rl_screenheight = 24;
 
   /* If we're being compiled as part of bash, set the environment
      variables $LINES and $COLUMNS to new values.  Otherwise, just
      do a pair of putenv () or setenv () calls. */
-  set_lines_and_columns (screenheight, screenwidth);
+  sh_set_lines_and_columns (_rl_screenheight, _rl_screenwidth);
 
   if (_rl_term_autowrap == 0)
-    screenwidth--;
+    _rl_screenwidth--;
 
-  screenchars = screenwidth * screenheight;
+  _rl_screenchars = _rl_screenwidth * _rl_screenheight;
 }
 
 void
 _rl_set_screen_size (rows, cols)
      int rows, cols;
 {
-  screenheight = rows;
-  screenwidth = cols;
+  if (rows == 0 || cols == 0)
+    return;
+
+  _rl_screenheight = rows;
+  _rl_screenwidth = cols;
 
   if (_rl_term_autowrap == 0)
-    screenwidth--;
+    _rl_screenwidth--;
 
-  screenchars = screenwidth * screenheight;
+  _rl_screenchars = _rl_screenwidth * _rl_screenheight;
+}
+
+void
+rl_set_screen_size (rows, cols)
+     int rows, cols;
+{
+  _rl_set_screen_size (rows, cols);
 }
 
+void
+rl_get_screen_size (rows, cols)
+     int *rows, *cols;
+{
+  if (rows)
+    *rows = _rl_screenheight;
+  if (cols)
+    *cols = _rl_screenwidth;
+}
+     
 void
 rl_resize_terminal ()
 {
@@ -246,7 +278,7 @@ rl_resize_terminal ()
 }
 
 struct _tc_string {
-     char *tc_var;
+     const char *tc_var;
      char **tc_value;
 };
 
@@ -254,32 +286,32 @@ struct _tc_string {
    search algorithm to something smarter. */
 static struct _tc_string tc_strings[] =
 {
-  { "DC", &term_DC },
-  { "IC", &term_IC },
-  { "ce", &term_clreol },
-  { "cl", &term_clrpag },
-  { "cr", &term_cr },
-  { "dc", &term_dc },
-  { "ei", &term_ei },
-  { "ic", &term_ic },
-  { "im", &term_im },
-  { "kd", &term_kd },
-  { "kh", &term_kh },  /* home */
-  { "kH", &term_kH },  /* end */
-  { "kl", &term_kl },
-  { "kr", &term_kr },
-  { "ku", &term_ku },
-  { "ks", &term_ks },
-  { "ke", &term_ke },
-  { "le", &term_backspace },
-  { "mm", &term_mm },
-  { "mo", &term_mo },
+  { "DC", &_rl_term_DC },
+  { "IC", &_rl_term_IC },
+  { "ce", &_rl_term_clreol },
+  { "cl", &_rl_term_clrpag },
+  { "cr", &_rl_term_cr },
+  { "dc", &_rl_term_dc },
+  { "ei", &_rl_term_ei },
+  { "ic", &_rl_term_ic },
+  { "im", &_rl_term_im },
+  { "kd", &_rl_term_kd },
+  { "kh", &_rl_term_kh },      /* home */
+  { "kH", &_rl_term_kH },      /* end */
+  { "kl", &_rl_term_kl },
+  { "kr", &_rl_term_kr },
+  { "ku", &_rl_term_ku },
+  { "ks", &_rl_term_ks },
+  { "ke", &_rl_term_ke },
+  { "le", &_rl_term_backspace },
+  { "mm", &_rl_term_mm },
+  { "mo", &_rl_term_mo },
 #if defined (HACK_TERMCAP_MOTION)
-  { "nd", &term_forward_char },
+  { "nd", &_rl_term_forward_char },
 #endif
-  { "pc", &term_pc },
-  { "up", &term_up },
-  { "vb", &visible_bell },
+  { "pc", &_rl_term_pc },
+  { "up", &_rl_term_up },
+  { "vb", &_rl_visible_bell },
 };
 
 #define NUM_TC_STRINGS (sizeof (tc_strings) / sizeof (struct _tc_string))
@@ -304,16 +336,17 @@ get_term_capabilities (bp)
 
 int
 _rl_init_terminal_io (terminal_name)
-     char *terminal_name;
+     const char *terminal_name;
 {
-  char *term, *buffer;
+  const char *term;
+  char *buffer;
   int tty, tgetent_ret;
   Keymap xkeymap;
 
-  term = terminal_name ? terminal_name : get_env_value ("TERM");
-  term_clrpag = term_cr = term_clreol = (char *)NULL;
+  term = terminal_name ? terminal_name : sh_get_env_value ("TERM");
+  _rl_term_clrpag = _rl_term_cr = _rl_term_clreol = (char *)NULL;
   tty = rl_instream ? fileno (rl_instream) : 0;
-  screenwidth = screenheight = 0;
+  _rl_screenwidth = _rl_screenheight = 0;
 
   if (term == 0)
     term = "dumb";
@@ -344,41 +377,40 @@ _rl_init_terminal_io (terminal_name)
       FREE (term_buffer);
       buffer = term_buffer = term_string_buffer = (char *)NULL;
 
-      dumb_term = 1;
       _rl_term_autowrap = 0;   /* used by _rl_get_screen_size */
 
 #if defined (__EMX__)
-      _emx_get_screensize (&screenwidth, &screenheight);
-      screenwidth--;
+      _emx_get_screensize (&_rl_screenwidth, &_rl_screenheight);
+      _rl_screenwidth--;
 #else /* !__EMX__ */
       _rl_get_screen_size (tty, 0);
 #endif /* !__EMX__ */
 
       /* Defaults. */
-      if (screenwidth <= 0 || screenheight <= 0)
+      if (_rl_screenwidth <= 0 || _rl_screenheight <= 0)
         {
-         screenwidth = 79;
-         screenheight = 24;
+         _rl_screenwidth = 79;
+         _rl_screenheight = 24;
         }
 
       /* Everything below here is used by the redisplay code (tputs). */
-      screenchars = screenwidth * screenheight;
-      term_cr = "\r";
-      term_im = term_ei = term_ic = term_IC = (char *)NULL;
-      term_up = term_dc = term_DC = visible_bell = (char *)NULL;
-      term_ku = term_kd = term_kl = term_kr = (char *)NULL;
-      term_mm = term_mo = (char *)NULL;
+      _rl_screenchars = _rl_screenwidth * _rl_screenheight;
+      _rl_term_cr = "\r";
+      _rl_term_im = _rl_term_ei = _rl_term_ic = _rl_term_IC = (char *)NULL;
+      _rl_term_up = _rl_term_dc = _rl_term_DC = _rl_visible_bell = (char *)NULL;
+      _rl_term_ku = _rl_term_kd = _rl_term_kl = _rl_term_kr = (char *)NULL;
+      _rl_term_mm = _rl_term_mo = (char *)NULL;
 #if defined (HACK_TERMCAP_MOTION)
       term_forward_char = (char *)NULL;
 #endif
-      terminal_can_insert = term_has_meta = 0;
+      _rl_terminal_can_insert = term_has_meta = 0;
 
       /* Reasonable defaults for tgoto().  Readline currently only uses
-         tgoto if term_IC or term_DC is defined, but just in case we
+         tgoto if _rl_term_IC or _rl_term_DC is defined, but just in case we
          change that later... */
       PC = '\0';
-      BC = term_backspace = "\b";
-      UP = term_up;
+      BC = _rl_term_backspace = "\b";
+      UP = _rl_term_up;
 
       return 0;
     }
@@ -387,12 +419,12 @@ _rl_init_terminal_io (terminal_name)
 
   /* Set up the variables that the termcap library expects the application
      to provide. */
-  PC = term_pc ? *term_pc : 0;
-  BC = term_backspace;
-  UP = term_up;
+  PC = _rl_term_pc ? *_rl_term_pc : 0;
+  BC = _rl_term_backspace;
+  UP = _rl_term_up;
 
-  if (!term_cr)
-    term_cr = "\r";
+  if (!_rl_term_cr)
+    _rl_term_cr = "\r";
 
   _rl_term_autowrap = tgetflag ("am") && tgetflag ("xn");
 
@@ -402,36 +434,36 @@ _rl_init_terminal_io (terminal_name)
       character insertion if *any one of* the capabilities `IC',
       `im', `ic' or `ip' is provided."  But we can't do anything if
       only `ip' is provided, so... */
-  terminal_can_insert = (term_IC || term_im || term_ic);
+  _rl_terminal_can_insert = (_rl_term_IC || _rl_term_im || _rl_term_ic);
 
   /* Check to see if this terminal has a meta key and clear the capability
      variables if there is none. */
   term_has_meta = (tgetflag ("km") || tgetflag ("MT"));
   if (!term_has_meta)
-    term_mm = term_mo = (char *)NULL;
+    _rl_term_mm = _rl_term_mo = (char *)NULL;
 
   /* Attempt to find and bind the arrow keys.  Do not override already
      bound keys in an overzealous attempt, however. */
   xkeymap = _rl_keymap;
 
   _rl_keymap = emacs_standard_keymap;
-  _rl_bind_if_unbound (term_ku, rl_get_previous_history);
-  _rl_bind_if_unbound (term_kd, rl_get_next_history);
-  _rl_bind_if_unbound (term_kr, rl_forward);
-  _rl_bind_if_unbound (term_kl, rl_backward);
+  _rl_bind_if_unbound (_rl_term_ku, rl_get_previous_history);
+  _rl_bind_if_unbound (_rl_term_kd, rl_get_next_history);
+  _rl_bind_if_unbound (_rl_term_kr, rl_forward);
+  _rl_bind_if_unbound (_rl_term_kl, rl_backward);
 
-  _rl_bind_if_unbound (term_kh, rl_beg_of_line);       /* Home */
-  _rl_bind_if_unbound (term_kH, rl_end_of_line);       /* End */
+  _rl_bind_if_unbound (_rl_term_kh, rl_beg_of_line);   /* Home */
+  _rl_bind_if_unbound (_rl_term_kH, rl_end_of_line);   /* End */
 
 #if defined (VI_MODE)
   _rl_keymap = vi_movement_keymap;
-  _rl_bind_if_unbound (term_ku, rl_get_previous_history);
-  _rl_bind_if_unbound (term_kd, rl_get_next_history);
-  _rl_bind_if_unbound (term_kr, rl_forward);
-  _rl_bind_if_unbound (term_kl, rl_backward);
+  _rl_bind_if_unbound (_rl_term_ku, rl_get_previous_history);
+  _rl_bind_if_unbound (_rl_term_kd, rl_get_next_history);
+  _rl_bind_if_unbound (_rl_term_kr, rl_forward);
+  _rl_bind_if_unbound (_rl_term_kl, rl_backward);
 
-  _rl_bind_if_unbound (term_kh, rl_beg_of_line);       /* Home */
-  _rl_bind_if_unbound (term_kH, rl_end_of_line);       /* End */
+  _rl_bind_if_unbound (_rl_term_kh, rl_beg_of_line);   /* Home */
+  _rl_bind_if_unbound (_rl_term_kH, rl_end_of_line);   /* End */
 #endif /* VI_MODE */
 
   _rl_keymap = xkeymap;
@@ -441,7 +473,7 @@ _rl_init_terminal_io (terminal_name)
 
 char *
 rl_get_termcap (cap)
-     char *cap;
+     const char *cap;
 {
   register int i;
 
@@ -459,7 +491,7 @@ rl_get_termcap (cap)
    has changed. */
 int
 rl_reset_terminal (terminal_name)
-     char *terminal_name;
+     const char *terminal_name;
 {
   _rl_init_terminal_io (terminal_name);
   return 0;
@@ -485,7 +517,7 @@ _rl_output_character_function (c)
 /* Write COUNT characters from STRING to the output stream. */
 void
 _rl_output_some_chars (string, count)
-     char *string;
+     const char *string;
      int count;
 {
   fwrite (string, 1, count, _rl_out_stream);
@@ -498,9 +530,9 @@ _rl_backspace (count)
 {
   register int i;
 
-  if (term_backspace)
+  if (_rl_term_backspace)
     for (i = 0; i < count; i++)
-      tputs (term_backspace, 1, _rl_output_character_function);
+      tputs (_rl_term_backspace, 1, _rl_output_character_function);
   else
     for (i = 0; i < count; i++)
       putc ('\b', _rl_out_stream);
@@ -509,11 +541,11 @@ _rl_backspace (count)
 
 /* Move to the start of the next line. */
 int
-crlf ()
+rl_crlf ()
 {
 #if defined (NEW_TTY_DRIVER)
-  if (term_cr)
-    tputs (term_cr, 1, _rl_output_character_function);
+  if (_rl_term_cr)
+    tputs (_rl_term_cr, 1, _rl_output_character_function);
 #endif /* NEW_TTY_DRIVER */
   putc ('\n', _rl_out_stream);
   return 0;
@@ -521,7 +553,7 @@ crlf ()
 
 /* Ring the terminal bell. */
 int
-ding ()
+rl_ding ()
 {
   if (readline_echoing_p)
     {
@@ -531,9 +563,9 @@ ding ()
        default:
          break;
        case VISIBLE_BELL:
-         if (visible_bell)
+         if (_rl_visible_bell)
            {
-             tputs (visible_bell, 1, _rl_output_character_function);
+             tputs (_rl_visible_bell, 1, _rl_output_character_function);
              break;
            }
          /* FALLTHROUGH */
@@ -557,8 +589,8 @@ void
 _rl_enable_meta_key ()
 {
 #if !defined (__DJGPP__)
-  if (term_has_meta && term_mm)
-    tputs (term_mm, 1, _rl_output_character_function);
+  if (term_has_meta && _rl_term_mm)
+    tputs (_rl_term_mm, 1, _rl_output_character_function);
 #endif
 }
 
@@ -567,9 +599,9 @@ _rl_control_keypad (on)
      int on;
 {
 #if !defined (__DJGPP__)
-  if (on && term_ks)
-    tputs (term_ks, 1, _rl_output_character_function);
-  else if (!on && term_ke)
-    tputs (term_ke, 1, _rl_output_character_function);
+  if (on && _rl_term_ks)
+    tputs (_rl_term_ks, 1, _rl_output_character_function);
+  else if (!on && _rl_term_ke)
+    tputs (_rl_term_ke, 1, _rl_output_character_function);
 #endif
 }
index 777b6559223798df6b1c1a5073d5f5f495614afa..7f33db4db96bf8a6dee73a90d8332f58fd845b7e 100644 (file)
 #if defined (TEST) || defined (STATIC_MALLOC)
 static char *xmalloc (), *xrealloc ();
 #else
-#  if defined __STDC__
-extern char *xmalloc (int);
-extern char *xrealloc (void *, int);
-#  else
-extern char *xmalloc (), *xrealloc ();
-#  endif /* !__STDC__ */
+extern char *xmalloc __P((int));
+extern char *xrealloc __P((void *, int));
 #endif /* TEST || STATIC_MALLOC */
 
 #if !defined (HAVE_GETPW_DECLS)
-extern struct passwd *getpwuid (), *getpwnam ();
+extern struct passwd *getpwuid __P((uid_t));
+extern struct passwd *getpwnam __P((const char *));
 #endif /* !HAVE_GETPW_DECLS */
 
 #if !defined (savestring)
@@ -80,42 +77,42 @@ extern char *strcpy ();
 /* If being compiled as part of bash, these will be satisfied from
    variables.o.  If being compiled as part of readline, they will
    be satisfied from shell.o. */
-extern char *get_home_dir __P((void));
-extern char *get_env_value __P((char *));
+extern char *sh_get_home_dir __P((void));
+extern char *sh_get_env_value __P((const char *));
 
 /* The default value of tilde_additional_prefixes.  This is set to
    whitespace preceding a tilde so that simple programs which do not
    perform any word separation get desired behaviour. */
-static char *default_prefixes[] =
-  { " ~", "\t~", (char *)NULL };
+static const char *default_prefixes[] =
+  { " ~", "\t~", (const char *)NULL };
 
 /* The default value of tilde_additional_suffixes.  This is set to
    whitespace or newline so that simple programs which do not
    perform any word separation get desired behaviour. */
-static char *default_suffixes[] =
-  { " ", "\n", (char *)NULL };
+static const char *default_suffixes[] =
+  { " ", "\n", (const char *)NULL };
 
 /* If non-null, this contains the address of a function that the application
    wants called before trying the standard tilde expansions.  The function
    is called with the text sans tilde, and returns a malloc()'ed string
    which is the expansion, or a NULL pointer if the expansion fails. */
-CPFunction *tilde_expansion_preexpansion_hook = (CPFunction *)NULL;
+tilde_hook_func_t *tilde_expansion_preexpansion_hook = (tilde_hook_func_t *)NULL;
 
 /* If non-null, this contains the address of a function to call if the
    standard meaning for expanding a tilde fails.  The function is called
    with the text (sans tilde, as in "foo"), and returns a malloc()'ed string
    which is the expansion, or a NULL pointer if there is no expansion. */
-CPFunction *tilde_expansion_failure_hook = (CPFunction *)NULL;
+tilde_hook_func_t *tilde_expansion_failure_hook = (tilde_hook_func_t *)NULL;
 
 /* When non-null, this is a NULL terminated array of strings which
    are duplicates for a tilde prefix.  Bash uses this to expand
    `=~' and `:~'. */
-char **tilde_additional_prefixes = default_prefixes;
+char **tilde_additional_prefixes = (char **)default_prefixes;
 
 /* When non-null, this is a NULL terminated array of strings which match
    the end of a username, instead of just "/".  Bash sets this to
    `:' and `=~'. */
-char **tilde_additional_suffixes = default_suffixes;
+char **tilde_additional_suffixes = (char **)default_suffixes;
 
 /* Find the start of a tilde expansion in STRING, and return the index of
    the tilde which starts the expansion.  Place the length of the text
@@ -186,7 +183,7 @@ tilde_find_suffix (string)
 /* Return a new string which is the result of tilde expanding STRING. */
 char *
 tilde_expand (string)
-     char *string;
+     const char *string;
 {
   char *result;
   int result_size, result_index;
@@ -235,9 +232,9 @@ tilde_expand (string)
       free (tilde_word);
 
       len = strlen (expansion);
-#ifdef __CYGWIN32__
+#ifdef __CYGWIN__
       /* Fix for Cygwin to prevent ~user/xxx from expanding to //xxx when
-         $HOME for `user' is /.  On cygwin, // denotes a network drive. */
+        $HOME for `user' is /.  On cygwin, // denotes a network drive. */
       if (len > 1 || *expansion != '/' || *string != '/')
 #endif
        {
@@ -303,7 +300,7 @@ glue_prefix_and_suffix (prefix, suffix, suffind)
    This always returns a newly-allocated string, never static storage. */
 char *
 tilde_expand_word (filename)
-     char *filename;
+     const char *filename;
 {
   char *dirname, *expansion, *username;
   int user_len;
@@ -321,12 +318,12 @@ tilde_expand_word (filename)
   if (filename[1] == '\0' || filename[1] == '/')
     {
       /* Prefix $HOME to the rest of the string. */
-      expansion = get_env_value ("HOME");
+      expansion = sh_get_env_value ("HOME");
 
       /* If there is no HOME variable, look up the directory in
         the password database. */
       if (expansion == 0)
-       expansion = get_home_dir ();
+       expansion = sh_get_home_dir ();
 
       return (glue_prefix_and_suffix (expansion, filename, 1));
     }
index 7783fd6101a1d291900860a4c76cf9db114245c2..d3966a634eb6c7a475b5027f2f741df622d8fc24 100644 (file)
@@ -40,26 +40,31 @@ extern "C" {
 #  endif
 #endif
 
-/* Function pointers can be declared as (Function *)foo. */
-#if !defined (_FUNCTION_DEF)
-#  define _FUNCTION_DEF
-typedef int Function ();
-typedef void VFunction ();
-typedef char *CPFunction ();
-typedef char **CPPFunction ();
-#endif /* _FUNCTION_DEF */
+#if !defined (__STDC__) && !defined (__cplusplus)
+#  if defined (__GNUC__)       /* gcc with -traditional */
+#    if !defined (const)
+#      define const __const
+#    endif /* !const */
+#  else /* !__GNUC__ */
+#    if !defined (const)
+#      define const
+#    endif /* !const */
+#  endif /* !__GNUC__ */
+#endif /* !__STDC__ && !__cplusplus */
+
+typedef char *tilde_hook_func_t __P((char *));
 
 /* If non-null, this contains the address of a function that the application
    wants called before trying the standard tilde expansions.  The function
    is called with the text sans tilde, and returns a malloc()'ed string
    which is the expansion, or a NULL pointer if the expansion fails. */
-extern CPFunction *tilde_expansion_preexpansion_hook;
+extern tilde_hook_func_t *tilde_expansion_preexpansion_hook;
 
 /* If non-null, this contains the address of a function to call if the
    standard meaning for expanding a tilde fails.  The function is called
    with the text (sans tilde, as in "foo"), and returns a malloc()'ed string
    which is the expansion, or a NULL pointer if there is no expansion. */
-extern CPFunction *tilde_expansion_failure_hook;
+extern tilde_hook_func_t *tilde_expansion_failure_hook;
 
 /* When non-null, this is a NULL terminated array of strings which
    are duplicates for a tilde prefix.  Bash uses this to expand
@@ -72,11 +77,11 @@ extern char **tilde_additional_prefixes;
 extern char **tilde_additional_suffixes;
 
 /* Return a new string which is the result of tilde expanding STRING. */
-extern char *tilde_expand __P((char *));
+extern char *tilde_expand __P((const char *));
 
 /* Do the work of tilde expansion on FILENAME.  FILENAME starts with a
    tilde.  If there is no expansion, call tilde_expansion_failure_hook. */
-extern char *tilde_expand_word __P((char *));
+extern char *tilde_expand_word __P((const char *));
 
 #ifdef __cplusplus
 }
index f7f30d17d9d8dc48d99e7c4e50069d04e647933d..e29e94062bf727cd9a4e48f4ba3f8de07a67d91b 100644 (file)
@@ -86,7 +86,7 @@ rl_add_undo (what, start, end, text)
 
 /* Free the existing undo list. */
 void
-free_undo_list ()
+rl_free_undo_list ()
 {
   while (rl_undo_list)
     {
@@ -107,17 +107,18 @@ int
 rl_do_undo ()
 {
   UNDO_LIST *release;
-  int waiting_for_begin = 0;
-  int start, end;
+  int waiting_for_begin, start, end;
 
 #define TRANS(i) ((i) == -1 ? rl_point : ((i) == -2 ? rl_end : (i)))
 
+  start = end = waiting_for_begin = 0;
   do
     {
       if (!rl_undo_list)
        return (0);
 
       _rl_doing_an_undo = 1;
+      RL_SETSTATE(RL_STATE_UNDOING);
 
       /* To better support vi-mode, a start or end value of -1 means
         rl_point, and a value of -2 means rl_end. */
@@ -152,11 +153,12 @@ rl_do_undo ()
          if (waiting_for_begin)
            waiting_for_begin--;
          else
-           ding ();
+           rl_ding ();
          break;
        }
 
       _rl_doing_an_undo = 0;
+      RL_UNSETSTATE(RL_STATE_UNDOING);
 
       release = rl_undo_list;
       rl_undo_list = rl_undo_list->next;
@@ -231,7 +233,7 @@ rl_revert_line (count, key)
      int count, key;
 {
   if (!rl_undo_list)
-    ding ();
+    rl_ding ();
   else
     {
       while (rl_undo_list)
@@ -254,7 +256,7 @@ rl_undo_command (count, key)
        count--;
       else
        {
-         ding ();
+         rl_ding ();
          break;
        }
     }
index be9e0a9869ac701d6c1c2523dbc4a26e2ec336d3..6d0a6e38d9232957429d5d2fc99e302cd01239de 100644 (file)
    in words, or 1 if it is. */
 
 int _rl_allow_pathname_alphabetic_chars = 0;
-static char *pathname_alphabetic_chars = "/-_=~.#$";
+static const char *pathname_alphabetic_chars = "/-_=~.#$";
 
 int
-alphabetic (c)
+rl_alphabetic (c)
      int c;
 {
   if (ALPHABETIC (c))
@@ -84,16 +84,16 @@ alphabetic (c)
 int
 _rl_abort_internal ()
 {
-  ding ();
+  rl_ding ();
   rl_clear_message ();
   _rl_init_argument ();
-  rl_pending_input = 0;
+  rl_clear_pending_input ();
 
   _rl_defining_kbd_macro = 0;
-  while (_rl_executing_macro)
+  while (rl_executing_macro)
     _rl_pop_executing_macro ();
 
-  rl_last_func = (Function *)NULL;
+  rl_last_func = (rl_command_func_t *)NULL;
   longjmp (readline_top_level, 1);
   return (0);
 }
@@ -113,7 +113,7 @@ rl_tty_status (count, key)
   ioctl (1, TIOCSTAT, (char *)0);
   rl_refresh_line (count, key);
 #else
-  ding ();
+  rl_ding ();
 #endif
   return 0;
 }
@@ -215,13 +215,32 @@ rl_tilde_expand (ignore, key)
    match in s1.  The compare is case insensitive. */
 char *
 _rl_strindex (s1, s2)
-     register char *s1, *s2;
+     register const char *s1, *s2;
 {
   register int i, l, len;
 
   for (i = 0, l = strlen (s2), len = strlen (s1); (len - i) >= l; i++)
     if (_rl_strnicmp (s1 + i, s2, l) == 0)
-      return (s1 + i);
+      return ((char *) (s1 + i));
+  return ((char *)NULL);
+}
+
+/* Find the first occurrence in STRING1 of any character from STRING2.
+   Return a pointer to the character in STRING1. */
+char *
+_rl_strpbrk (string1, string2)
+     const char *string1, *string2;
+{
+  register const char *scan;
+
+  for (; *string1; string1++)
+    {
+      for (scan = string2; *scan; scan++)
+       {
+         if (*string1 == *scan)
+           return ((char *)string1);
+       }
+    }
   return ((char *)NULL);
 }
 
@@ -345,7 +364,7 @@ _rl_digit_value (c)
 #undef _rl_savestring
 char *
 _rl_savestring (s)
-     char *s;
+     const char *s;
 {
-  return ((char *)strcpy (xmalloc (1 + (int)strlen (s)), (s)));
+  return (strcpy (xmalloc (1 + (int)strlen (s)), (s)));
 }
index cf6724cef134b37b1621314839d546f01cf95579..cb84c06d3f1e228073888d67f450c588a4f613f2 100644 (file)
@@ -33,429 +33,429 @@ extern KEYMAP_ENTRY_ARRAY vi_escape_keymap;
 /* The keymap arrays for handling vi mode. */
 KEYMAP_ENTRY_ARRAY vi_movement_keymap = {
   /* The regular control keys come first. */
-  { ISFUNC, (Function *)0x0 },         /* Control-@ */
-  { ISFUNC, (Function *)0x0 },         /* Control-a */
-  { ISFUNC, (Function *)0x0 },         /* Control-b */
-  { ISFUNC, (Function *)0x0 },         /* Control-c */
-  { ISFUNC, rl_vi_eof_maybe },         /* Control-d */
-  { ISFUNC, rl_emacs_editing_mode },   /* Control-e */
-  { ISFUNC, (Function *)0x0 },         /* Control-f */
-  { ISFUNC, rl_abort },                        /* Control-g */
-  { ISFUNC, rl_backward },             /* Control-h */
-  { ISFUNC, (Function *)0x0 },         /* Control-i */
-  { ISFUNC, rl_newline },              /* Control-j */
-  { ISFUNC, rl_kill_line },            /* Control-k */
-  { ISFUNC, rl_clear_screen },         /* Control-l */
-  { ISFUNC, rl_newline },              /* Control-m */
-  { ISFUNC, rl_get_next_history },     /* Control-n */
-  { ISFUNC, (Function *)0x0 },         /* Control-o */
-  { ISFUNC, rl_get_previous_history }, /* Control-p */
-  { ISFUNC, rl_quoted_insert },                /* Control-q */
-  { ISFUNC, rl_reverse_search_history }, /* Control-r */
-  { ISFUNC, rl_forward_search_history }, /* Control-s */
-  { ISFUNC, rl_transpose_chars },      /* Control-t */
-  { ISFUNC, rl_unix_line_discard },    /* Control-u */
-  { ISFUNC, rl_quoted_insert },                /* Control-v */
-  { ISFUNC, rl_unix_word_rubout },     /* Control-w */
-  { ISFUNC, (Function *)0x0 },         /* Control-x */
-  { ISFUNC, rl_yank },                 /* Control-y */
-  { ISFUNC, (Function *)0x0 },         /* Control-z */
-
-  { ISFUNC, (Function *)0x0 },         /* Control-[ */ /* vi_escape_keymap */
-  { ISFUNC, (Function *)0x0 },         /* Control-\ */
-  { ISFUNC, (Function *)0x0 },         /* Control-] */
-  { ISFUNC, (Function *)0x0 },         /* Control-^ */
-  { ISFUNC, rl_vi_undo },              /* Control-_ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-@ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-a */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-b */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-c */
+  { ISFUNC, rl_vi_eof_maybe },                 /* Control-d */
+  { ISFUNC, rl_emacs_editing_mode },           /* Control-e */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-f */
+  { ISFUNC, rl_abort },                                /* Control-g */
+  { ISFUNC, rl_backward },                     /* Control-h */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-i */
+  { ISFUNC, rl_newline },                      /* Control-j */
+  { ISFUNC, rl_kill_line },                    /* Control-k */
+  { ISFUNC, rl_clear_screen },                 /* Control-l */
+  { ISFUNC, rl_newline },                      /* Control-m */
+  { ISFUNC, rl_get_next_history },             /* Control-n */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-o */
+  { ISFUNC, rl_get_previous_history },         /* Control-p */
+  { ISFUNC, rl_quoted_insert },                        /* Control-q */
+  { ISFUNC, rl_reverse_search_history },       /* Control-r */
+  { ISFUNC, rl_forward_search_history },       /* Control-s */
+  { ISFUNC, rl_transpose_chars },              /* Control-t */
+  { ISFUNC, rl_unix_line_discard },            /* Control-u */
+  { ISFUNC, rl_quoted_insert },                        /* Control-v */
+  { ISFUNC, rl_unix_word_rubout },             /* Control-w */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-x */
+  { ISFUNC, rl_yank },                         /* Control-y */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-z */
+
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-[ */ /* vi_escape_keymap */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-\ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-] */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-^ */
+  { ISFUNC, rl_vi_undo },                      /* Control-_ */
 
   /* The start of printing characters. */
-  { ISFUNC, rl_forward },              /* SPACE */
-  { ISFUNC, (Function *)0x0 },         /* ! */
-  { ISFUNC, (Function *)0x0 },         /* " */
-  { ISFUNC, rl_insert_comment },       /* # */
-  { ISFUNC, rl_end_of_line },          /* $ */
-  { ISFUNC, rl_vi_match },             /* % */
-  { ISFUNC, rl_vi_tilde_expand },      /* & */
-  { ISFUNC, (Function *)0x0 },         /* ' */
-  { ISFUNC, (Function *)0x0 },         /* ( */
-  { ISFUNC, (Function *)0x0 },         /* ) */
-  { ISFUNC, rl_vi_complete },          /* * */
-  { ISFUNC, rl_get_next_history},      /* + */
-  { ISFUNC, rl_vi_char_search },       /* , */
-  { ISFUNC, rl_get_previous_history }, /* - */
-  { ISFUNC, rl_vi_redo },              /* . */
-  { ISFUNC, rl_vi_search },            /* / */
+  { ISFUNC, rl_forward },                      /* SPACE */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* ! */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* " */
+  { ISFUNC, rl_insert_comment },               /* # */
+  { ISFUNC, rl_end_of_line },                  /* $ */
+  { ISFUNC, rl_vi_match },                     /* % */
+  { ISFUNC, rl_vi_tilde_expand },              /* & */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* ' */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* ( */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* ) */
+  { ISFUNC, rl_vi_complete },                  /* * */
+  { ISFUNC, rl_get_next_history},              /* + */
+  { ISFUNC, rl_vi_char_search },               /* , */
+  { ISFUNC, rl_get_previous_history },         /* - */
+  { ISFUNC, rl_vi_redo },                      /* . */
+  { ISFUNC, rl_vi_search },                    /* / */
 
   /* Regular digits. */
-  { ISFUNC, rl_beg_of_line },          /* 0 */
-  { ISFUNC, rl_vi_arg_digit },         /* 1 */
-  { ISFUNC, rl_vi_arg_digit },         /* 2 */
-  { ISFUNC, rl_vi_arg_digit },         /* 3 */
-  { ISFUNC, rl_vi_arg_digit },         /* 4 */
-  { ISFUNC, rl_vi_arg_digit },         /* 5 */
-  { ISFUNC, rl_vi_arg_digit },         /* 6 */
-  { ISFUNC, rl_vi_arg_digit },         /* 7 */
-  { ISFUNC, rl_vi_arg_digit },         /* 8 */
-  { ISFUNC, rl_vi_arg_digit },         /* 9 */
+  { ISFUNC, rl_beg_of_line },                  /* 0 */
+  { ISFUNC, rl_vi_arg_digit },                 /* 1 */
+  { ISFUNC, rl_vi_arg_digit },                 /* 2 */
+  { ISFUNC, rl_vi_arg_digit },                 /* 3 */
+  { ISFUNC, rl_vi_arg_digit },                 /* 4 */
+  { ISFUNC, rl_vi_arg_digit },                 /* 5 */
+  { ISFUNC, rl_vi_arg_digit },                 /* 6 */
+  { ISFUNC, rl_vi_arg_digit },                 /* 7 */
+  { ISFUNC, rl_vi_arg_digit },                 /* 8 */
+  { ISFUNC, rl_vi_arg_digit },                 /* 9 */
 
   /* A little more punctuation. */
-  { ISFUNC, (Function *)0x0 },         /* : */
-  { ISFUNC, rl_vi_char_search },       /* ; */
-  { ISFUNC, (Function *)0x0 },         /* < */
-  { ISFUNC, rl_vi_complete },          /* = */
-  { ISFUNC, (Function *)0x0 },         /* > */
-  { ISFUNC, rl_vi_search },            /* ? */
-  { ISFUNC, (Function *)0x0 },         /* @ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* : */
+  { ISFUNC, rl_vi_char_search },               /* ; */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* < */
+  { ISFUNC, rl_vi_complete },                  /* = */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* > */
+  { ISFUNC, rl_vi_search },                    /* ? */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* @ */
 
   /* Uppercase alphabet. */
-  { ISFUNC, rl_vi_append_eol },                /* A */
-  { ISFUNC, rl_vi_prev_word},          /* B */
-  { ISFUNC, rl_vi_change_to },         /* C */
-  { ISFUNC, rl_vi_delete_to },         /* D */
-  { ISFUNC, rl_vi_end_word },          /* E */
-  { ISFUNC, rl_vi_char_search },       /* F */
-  { ISFUNC, rl_vi_fetch_history },     /* G */
-  { ISFUNC, (Function *)0x0 },         /* H */
-  { ISFUNC, rl_vi_insert_beg },                /* I */
-  { ISFUNC, (Function *)0x0 },         /* J */
-  { ISFUNC, (Function *)0x0 },         /* K */
-  { ISFUNC, (Function *)0x0 },         /* L */
-  { ISFUNC, (Function *)0x0 },         /* M */
-  { ISFUNC, rl_vi_search_again },      /* N */
-  { ISFUNC, (Function *)0x0 },         /* O */
-  { ISFUNC, rl_vi_put },               /* P */
-  { ISFUNC, (Function *)0x0 },         /* Q */
-  { ISFUNC, rl_vi_replace },           /* R */
-  { ISFUNC, rl_vi_subst },             /* S */
-  { ISFUNC, rl_vi_char_search },       /* T */
-  { ISFUNC, rl_revert_line },          /* U */
-  { ISFUNC, (Function *)0x0 },         /* V */
-  { ISFUNC, rl_vi_next_word },         /* W */
-  { ISFUNC, rl_rubout },               /* X */
-  { ISFUNC, rl_vi_yank_to },           /* Y */
-  { ISFUNC, (Function *)0x0 },         /* Z */
+  { ISFUNC, rl_vi_append_eol },                        /* A */
+  { ISFUNC, rl_vi_prev_word},                  /* B */
+  { ISFUNC, rl_vi_change_to },                 /* C */
+  { ISFUNC, rl_vi_delete_to },                 /* D */
+  { ISFUNC, rl_vi_end_word },                  /* E */
+  { ISFUNC, rl_vi_char_search },               /* F */
+  { ISFUNC, rl_vi_fetch_history },             /* G */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* H */
+  { ISFUNC, rl_vi_insert_beg },                        /* I */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* J */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* K */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* L */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* M */
+  { ISFUNC, rl_vi_search_again },              /* N */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* O */
+  { ISFUNC, rl_vi_put },                       /* P */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Q */
+  { ISFUNC, rl_vi_replace },                   /* R */
+  { ISFUNC, rl_vi_subst },                     /* S */
+  { ISFUNC, rl_vi_char_search },               /* T */
+  { ISFUNC, rl_revert_line },                  /* U */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* V */
+  { ISFUNC, rl_vi_next_word },                 /* W */
+  { ISFUNC, rl_rubout },                       /* X */
+  { ISFUNC, rl_vi_yank_to },                   /* Y */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Z */
 
   /* Some more punctuation. */
-  { ISFUNC, (Function *)0x0 },         /* [ */
-  { ISFUNC, rl_vi_complete },          /* \ */
-  { ISFUNC, (Function *)0x0 },         /* ] */
-  { ISFUNC, rl_vi_first_print },       /* ^ */
-  { ISFUNC, rl_vi_yank_arg },          /* _ */
-  { ISFUNC, rl_vi_goto_mark },         /* ` */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* [ */
+  { ISFUNC, rl_vi_complete },                  /* \ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* ] */
+  { ISFUNC, rl_vi_first_print },               /* ^ */
+  { ISFUNC, rl_vi_yank_arg },                  /* _ */
+  { ISFUNC, rl_vi_goto_mark },                 /* ` */
 
   /* Lowercase alphabet. */
-  { ISFUNC, rl_vi_append_mode },       /* a */
-  { ISFUNC, rl_vi_prev_word },         /* b */
-  { ISFUNC, rl_vi_change_to },         /* c */
-  { ISFUNC, rl_vi_delete_to },         /* d */
-  { ISFUNC, rl_vi_end_word },          /* e */
-  { ISFUNC, rl_vi_char_search },       /* f */
-  { ISFUNC, (Function *)0x0 },         /* g */
-  { ISFUNC, rl_backward },             /* h */
-  { ISFUNC, rl_vi_insertion_mode },    /* i */
-  { ISFUNC, rl_get_next_history },     /* j */
-  { ISFUNC, rl_get_previous_history }, /* k */
-  { ISFUNC, rl_forward },              /* l */
-  { ISFUNC, rl_vi_set_mark },          /* m */
-  { ISFUNC, rl_vi_search_again },      /* n */
-  { ISFUNC, (Function *)0x0 },         /* o */
-  { ISFUNC, rl_vi_put },               /* p */
-  { ISFUNC, (Function *)0x0 },         /* q */
-  { ISFUNC, rl_vi_change_char },       /* r */
-  { ISFUNC, rl_vi_subst },             /* s */
-  { ISFUNC, rl_vi_char_search },       /* t */
-  { ISFUNC, rl_vi_undo },              /* u */
-  { ISFUNC, (Function *)0x0 },         /* v */
-  { ISFUNC, rl_vi_next_word },         /* w */
-  { ISFUNC, rl_vi_delete },            /* x */
-  { ISFUNC, rl_vi_yank_to },           /* y */
-  { ISFUNC, (Function *)0x0 },         /* z */
+  { ISFUNC, rl_vi_append_mode },               /* a */
+  { ISFUNC, rl_vi_prev_word },                 /* b */
+  { ISFUNC, rl_vi_change_to },                 /* c */
+  { ISFUNC, rl_vi_delete_to },                 /* d */
+  { ISFUNC, rl_vi_end_word },                  /* e */
+  { ISFUNC, rl_vi_char_search },               /* f */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* g */
+  { ISFUNC, rl_backward },                     /* h */
+  { ISFUNC, rl_vi_insertion_mode },            /* i */
+  { ISFUNC, rl_get_next_history },             /* j */
+  { ISFUNC, rl_get_previous_history },         /* k */
+  { ISFUNC, rl_forward },                      /* l */
+  { ISFUNC, rl_vi_set_mark },                  /* m */
+  { ISFUNC, rl_vi_search_again },              /* n */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* o */
+  { ISFUNC, rl_vi_put },                       /* p */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* q */
+  { ISFUNC, rl_vi_change_char },               /* r */
+  { ISFUNC, rl_vi_subst },                     /* s */
+  { ISFUNC, rl_vi_char_search },               /* t */
+  { ISFUNC, rl_vi_undo },                      /* u */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* v */
+  { ISFUNC, rl_vi_next_word },                 /* w */
+  { ISFUNC, rl_vi_delete },                    /* x */
+  { ISFUNC, rl_vi_yank_to },                   /* y */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* z */
 
   /* Final punctuation. */
-  { ISFUNC, (Function *)0x0 },         /* { */
-  { ISFUNC, rl_vi_column },            /* | */
-  { ISFUNC, (Function *)0x0 },         /* } */
-  { ISFUNC, rl_vi_change_case },       /* ~ */
-  { ISFUNC, (Function *)0x0 },         /* RUBOUT */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* { */
+  { ISFUNC, rl_vi_column },                    /* | */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* } */
+  { ISFUNC, rl_vi_change_case },               /* ~ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* RUBOUT */
 
 #if KEYMAP_SIZE > 128
   /* Undefined keys. */
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 }
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 }
 #endif /* KEYMAP_SIZE > 128 */
 };
 
 
 KEYMAP_ENTRY_ARRAY vi_insertion_keymap = {
   /* The regular control keys come first. */
-  { ISFUNC, (Function *)0x0 },         /* Control-@ */
-  { ISFUNC, rl_insert },               /* Control-a */
-  { ISFUNC, rl_insert },               /* Control-b */
-  { ISFUNC, rl_insert },               /* Control-c */
-  { ISFUNC, rl_vi_eof_maybe },         /* Control-d */
-  { ISFUNC, rl_insert },               /* Control-e */
-  { ISFUNC, rl_insert },               /* Control-f */
-  { ISFUNC, rl_insert },               /* Control-g */
-  { ISFUNC, rl_rubout },               /* Control-h */
-  { ISFUNC, rl_complete },             /* Control-i */
-  { ISFUNC, rl_newline },              /* Control-j */
-  { ISFUNC, rl_insert },               /* Control-k */
-  { ISFUNC, rl_insert },               /* Control-l */
-  { ISFUNC, rl_newline },              /* Control-m */
-  { ISFUNC, rl_insert },               /* Control-n */
-  { ISFUNC, rl_insert },               /* Control-o */
-  { ISFUNC, rl_insert },               /* Control-p */
-  { ISFUNC, rl_insert },               /* Control-q */
-  { ISFUNC, rl_reverse_search_history }, /* Control-r */
-  { ISFUNC, rl_forward_search_history }, /* Control-s */
-  { ISFUNC, rl_transpose_chars },      /* Control-t */
-  { ISFUNC, rl_unix_line_discard },    /* Control-u */
-  { ISFUNC, rl_quoted_insert },                /* Control-v */
-  { ISFUNC, rl_unix_word_rubout },     /* Control-w */
-  { ISFUNC, rl_insert },               /* Control-x */
-  { ISFUNC, rl_yank },                 /* Control-y */
-  { ISFUNC, rl_insert },               /* Control-z */
-
-  { ISFUNC, rl_vi_movement_mode },     /* Control-[ */
-  { ISFUNC, rl_insert },               /* Control-\ */
-  { ISFUNC, rl_insert },               /* Control-] */
-  { ISFUNC, rl_insert },               /* Control-^ */
-  { ISFUNC, rl_vi_undo },              /* Control-_ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-@ */
+  { ISFUNC, rl_insert },                       /* Control-a */
+  { ISFUNC, rl_insert },                       /* Control-b */
+  { ISFUNC, rl_insert },                       /* Control-c */
+  { ISFUNC, rl_vi_eof_maybe },                 /* Control-d */
+  { ISFUNC, rl_insert },                       /* Control-e */
+  { ISFUNC, rl_insert },                       /* Control-f */
+  { ISFUNC, rl_insert },                       /* Control-g */
+  { ISFUNC, rl_rubout },                       /* Control-h */
+  { ISFUNC, rl_complete },                     /* Control-i */
+  { ISFUNC, rl_newline },                      /* Control-j */
+  { ISFUNC, rl_insert },                       /* Control-k */
+  { ISFUNC, rl_insert },                       /* Control-l */
+  { ISFUNC, rl_newline },                      /* Control-m */
+  { ISFUNC, rl_insert },                       /* Control-n */
+  { ISFUNC, rl_insert },                       /* Control-o */
+  { ISFUNC, rl_insert },                       /* Control-p */
+  { ISFUNC, rl_insert },                       /* Control-q */
+  { ISFUNC, rl_reverse_search_history },       /* Control-r */
+  { ISFUNC, rl_forward_search_history },       /* Control-s */
+  { ISFUNC, rl_transpose_chars },              /* Control-t */
+  { ISFUNC, rl_unix_line_discard },            /* Control-u */
+  { ISFUNC, rl_quoted_insert },                        /* Control-v */
+  { ISFUNC, rl_unix_word_rubout },             /* Control-w */
+  { ISFUNC, rl_insert },                       /* Control-x */
+  { ISFUNC, rl_yank },                         /* Control-y */
+  { ISFUNC, rl_insert },                       /* Control-z */
+
+  { ISFUNC, rl_vi_movement_mode },             /* Control-[ */
+  { ISFUNC, rl_insert },                       /* Control-\ */
+  { ISFUNC, rl_insert },                       /* Control-] */
+  { ISFUNC, rl_insert },                       /* Control-^ */
+  { ISFUNC, rl_vi_undo },                      /* Control-_ */
 
   /* The start of printing characters. */
-  { ISFUNC, rl_insert },               /* SPACE */
-  { ISFUNC, rl_insert },               /* ! */
-  { ISFUNC, rl_insert },               /* " */
-  { ISFUNC, rl_insert },               /* # */
-  { ISFUNC, rl_insert },               /* $ */
-  { ISFUNC, rl_insert },               /* % */
-  { ISFUNC, rl_insert },               /* & */
-  { ISFUNC, rl_insert },               /* ' */
-  { ISFUNC, rl_insert },               /* ( */
-  { ISFUNC, rl_insert },               /* ) */
-  { ISFUNC, rl_insert },               /* * */
-  { ISFUNC, rl_insert },               /* + */
-  { ISFUNC, rl_insert },               /* , */
-  { ISFUNC, rl_insert },               /* - */
-  { ISFUNC, rl_insert },               /* . */
-  { ISFUNC, rl_insert },               /* / */
+  { ISFUNC, rl_insert },                       /* SPACE */
+  { ISFUNC, rl_insert },                       /* ! */
+  { ISFUNC, rl_insert },                       /* " */
+  { ISFUNC, rl_insert },                       /* # */
+  { ISFUNC, rl_insert },                       /* $ */
+  { ISFUNC, rl_insert },                       /* % */
+  { ISFUNC, rl_insert },                       /* & */
+  { ISFUNC, rl_insert },                       /* ' */
+  { ISFUNC, rl_insert },                       /* ( */
+  { ISFUNC, rl_insert },                       /* ) */
+  { ISFUNC, rl_insert },                       /* * */
+  { ISFUNC, rl_insert },                       /* + */
+  { ISFUNC, rl_insert },                       /* , */
+  { ISFUNC, rl_insert },                       /* - */
+  { ISFUNC, rl_insert },                       /* . */
+  { ISFUNC, rl_insert },                       /* / */
 
   /* Regular digits. */
-  { ISFUNC, rl_insert },               /* 0 */
-  { ISFUNC, rl_insert },               /* 1 */
-  { ISFUNC, rl_insert },               /* 2 */
-  { ISFUNC, rl_insert },               /* 3 */
-  { ISFUNC, rl_insert },               /* 4 */
-  { ISFUNC, rl_insert },               /* 5 */
-  { ISFUNC, rl_insert },               /* 6 */
-  { ISFUNC, rl_insert },               /* 7 */
-  { ISFUNC, rl_insert },               /* 8 */
-  { ISFUNC, rl_insert },               /* 9 */
+  { ISFUNC, rl_insert },                       /* 0 */
+  { ISFUNC, rl_insert },                       /* 1 */
+  { ISFUNC, rl_insert },                       /* 2 */
+  { ISFUNC, rl_insert },                       /* 3 */
+  { ISFUNC, rl_insert },                       /* 4 */
+  { ISFUNC, rl_insert },                       /* 5 */
+  { ISFUNC, rl_insert },                       /* 6 */
+  { ISFUNC, rl_insert },                       /* 7 */
+  { ISFUNC, rl_insert },                       /* 8 */
+  { ISFUNC, rl_insert },                       /* 9 */
 
   /* A little more punctuation. */
-  { ISFUNC, rl_insert },               /* : */
-  { ISFUNC, rl_insert },               /* ; */
-  { ISFUNC, rl_insert },               /* < */
-  { ISFUNC, rl_insert },               /* = */
-  { ISFUNC, rl_insert },               /* > */
-  { ISFUNC, rl_insert },               /* ? */
-  { ISFUNC, rl_insert },               /* @ */
+  { ISFUNC, rl_insert },                       /* : */
+  { ISFUNC, rl_insert },                       /* ; */
+  { ISFUNC, rl_insert },                       /* < */
+  { ISFUNC, rl_insert },                       /* = */
+  { ISFUNC, rl_insert },                       /* > */
+  { ISFUNC, rl_insert },                       /* ? */
+  { ISFUNC, rl_insert },                       /* @ */
 
   /* Uppercase alphabet. */
-  { ISFUNC, rl_insert },               /* A */
-  { ISFUNC, rl_insert },               /* B */
-  { ISFUNC, rl_insert },               /* C */
-  { ISFUNC, rl_insert },               /* D */
-  { ISFUNC, rl_insert },               /* E */
-  { ISFUNC, rl_insert },               /* F */
-  { ISFUNC, rl_insert },               /* G */
-  { ISFUNC, rl_insert },               /* H */
-  { ISFUNC, rl_insert },               /* I */
-  { ISFUNC, rl_insert },               /* J */
-  { ISFUNC, rl_insert },               /* K */
-  { ISFUNC, rl_insert },               /* L */
-  { ISFUNC, rl_insert },               /* M */
-  { ISFUNC, rl_insert },               /* N */
-  { ISFUNC, rl_insert },               /* O */
-  { ISFUNC, rl_insert },               /* P */
-  { ISFUNC, rl_insert },               /* Q */
-  { ISFUNC, rl_insert },               /* R */
-  { ISFUNC, rl_insert },               /* S */
-  { ISFUNC, rl_insert },               /* T */
-  { ISFUNC, rl_insert },               /* U */
-  { ISFUNC, rl_insert },               /* V */
-  { ISFUNC, rl_insert },               /* W */
-  { ISFUNC, rl_insert },               /* X */
-  { ISFUNC, rl_insert },               /* Y */
-  { ISFUNC, rl_insert },               /* Z */
+  { ISFUNC, rl_insert },                       /* A */
+  { ISFUNC, rl_insert },                       /* B */
+  { ISFUNC, rl_insert },                       /* C */
+  { ISFUNC, rl_insert },                       /* D */
+  { ISFUNC, rl_insert },                       /* E */
+  { ISFUNC, rl_insert },                       /* F */
+  { ISFUNC, rl_insert },                       /* G */
+  { ISFUNC, rl_insert },                       /* H */
+  { ISFUNC, rl_insert },                       /* I */
+  { ISFUNC, rl_insert },                       /* J */
+  { ISFUNC, rl_insert },                       /* K */
+  { ISFUNC, rl_insert },                       /* L */
+  { ISFUNC, rl_insert },                       /* M */
+  { ISFUNC, rl_insert },                       /* N */
+  { ISFUNC, rl_insert },                       /* O */
+  { ISFUNC, rl_insert },                       /* P */
+  { ISFUNC, rl_insert },                       /* Q */
+  { ISFUNC, rl_insert },                       /* R */
+  { ISFUNC, rl_insert },                       /* S */
+  { ISFUNC, rl_insert },                       /* T */
+  { ISFUNC, rl_insert },                       /* U */
+  { ISFUNC, rl_insert },                       /* V */
+  { ISFUNC, rl_insert },                       /* W */
+  { ISFUNC, rl_insert },                       /* X */
+  { ISFUNC, rl_insert },                       /* Y */
+  { ISFUNC, rl_insert },                       /* Z */
 
   /* Some more punctuation. */
-  { ISFUNC, rl_insert },               /* [ */
-  { ISFUNC, rl_insert },               /* \ */
-  { ISFUNC, rl_insert },               /* ] */
-  { ISFUNC, rl_insert },               /* ^ */
-  { ISFUNC, rl_insert },               /* _ */
-  { ISFUNC, rl_insert },               /* ` */
+  { ISFUNC, rl_insert },                       /* [ */
+  { ISFUNC, rl_insert },                       /* \ */
+  { ISFUNC, rl_insert },                       /* ] */
+  { ISFUNC, rl_insert },                       /* ^ */
+  { ISFUNC, rl_insert },                       /* _ */
+  { ISFUNC, rl_insert },                       /* ` */
 
   /* Lowercase alphabet. */
-  { ISFUNC, rl_insert },               /* a */
-  { ISFUNC, rl_insert },               /* b */
-  { ISFUNC, rl_insert },               /* c */
-  { ISFUNC, rl_insert },               /* d */
-  { ISFUNC, rl_insert },               /* e */
-  { ISFUNC, rl_insert },               /* f */
-  { ISFUNC, rl_insert },               /* g */
-  { ISFUNC, rl_insert },               /* h */
-  { ISFUNC, rl_insert },               /* i */
-  { ISFUNC, rl_insert },               /* j */
-  { ISFUNC, rl_insert },               /* k */
-  { ISFUNC, rl_insert },               /* l */
-  { ISFUNC, rl_insert },               /* m */
-  { ISFUNC, rl_insert },               /* n */
-  { ISFUNC, rl_insert },               /* o */
-  { ISFUNC, rl_insert },               /* p */
-  { ISFUNC, rl_insert },               /* q */
-  { ISFUNC, rl_insert },               /* r */
-  { ISFUNC, rl_insert },               /* s */
-  { ISFUNC, rl_insert },               /* t */
-  { ISFUNC, rl_insert },               /* u */
-  { ISFUNC, rl_insert },               /* v */
-  { ISFUNC, rl_insert },               /* w */
-  { ISFUNC, rl_insert },               /* x */
-  { ISFUNC, rl_insert },               /* y */
-  { ISFUNC, rl_insert },               /* z */
+  { ISFUNC, rl_insert },                       /* a */
+  { ISFUNC, rl_insert },                       /* b */
+  { ISFUNC, rl_insert },                       /* c */
+  { ISFUNC, rl_insert },                       /* d */
+  { ISFUNC, rl_insert },                       /* e */
+  { ISFUNC, rl_insert },                       /* f */
+  { ISFUNC, rl_insert },                       /* g */
+  { ISFUNC, rl_insert },                       /* h */
+  { ISFUNC, rl_insert },                       /* i */
+  { ISFUNC, rl_insert },                       /* j */
+  { ISFUNC, rl_insert },                       /* k */
+  { ISFUNC, rl_insert },                       /* l */
+  { ISFUNC, rl_insert },                       /* m */
+  { ISFUNC, rl_insert },                       /* n */
+  { ISFUNC, rl_insert },                       /* o */
+  { ISFUNC, rl_insert },                       /* p */
+  { ISFUNC, rl_insert },                       /* q */
+  { ISFUNC, rl_insert },                       /* r */
+  { ISFUNC, rl_insert },                       /* s */
+  { ISFUNC, rl_insert },                       /* t */
+  { ISFUNC, rl_insert },                       /* u */
+  { ISFUNC, rl_insert },                       /* v */
+  { ISFUNC, rl_insert },                       /* w */
+  { ISFUNC, rl_insert },                       /* x */
+  { ISFUNC, rl_insert },                       /* y */
+  { ISFUNC, rl_insert },                       /* z */
 
   /* Final punctuation. */
-  { ISFUNC, rl_insert },               /* { */
-  { ISFUNC, rl_insert },               /* | */
-  { ISFUNC, rl_insert },               /* } */
-  { ISFUNC, rl_insert },               /* ~ */
-  { ISFUNC, rl_rubout },               /* RUBOUT */
+  { ISFUNC, rl_insert },                       /* { */
+  { ISFUNC, rl_insert },                       /* | */
+  { ISFUNC, rl_insert },                       /* } */
+  { ISFUNC, rl_insert },                       /* ~ */
+  { ISFUNC, rl_rubout },                       /* RUBOUT */
 
 #if KEYMAP_SIZE > 128
   /* Pure 8-bit characters (128 - 159).
@@ -598,280 +598,280 @@ KEYMAP_ENTRY_ARRAY vi_insertion_keymap = {
 #if 0
 KEYMAP_ENTRY_ARRAY vi_escape_keymap = {
   /* The regular control keys come first. */
-  { ISFUNC, (Function *)0x0 },         /* Control-@ */
-  { ISFUNC, (Function *)0x0 },         /* Control-a */
-  { ISFUNC, (Function *)0x0 },         /* Control-b */
-  { ISFUNC, (Function *)0x0 },         /* Control-c */
-  { ISFUNC, (Function *)0x0 },         /* Control-d */
-  { ISFUNC, (Function *)0x0 },         /* Control-e */
-  { ISFUNC, (Function *)0x0 },         /* Control-f */
-  { ISFUNC, (Function *)0x0 },         /* Control-g */
-  { ISFUNC, (Function *)0x0 },         /* Control-h */
-  { ISFUNC, rl_tab_insert},            /* Control-i */
-  { ISFUNC, rl_emacs_editing_mode},    /* Control-j */
-  { ISFUNC, rl_kill_line },            /* Control-k */
-  { ISFUNC, (Function *)0x0 },         /* Control-l */
-  { ISFUNC, rl_emacs_editing_mode},    /* Control-m */
-  { ISFUNC, (Function *)0x0 },         /* Control-n */
-  { ISFUNC, (Function *)0x0 },         /* Control-o */
-  { ISFUNC, (Function *)0x0 },         /* Control-p */
-  { ISFUNC, (Function *)0x0 },         /* Control-q */
-  { ISFUNC, (Function *)0x0 },         /* Control-r */
-  { ISFUNC, (Function *)0x0 },         /* Control-s */
-  { ISFUNC, (Function *)0x0 },         /* Control-t */
-  { ISFUNC, (Function *)0x0 },         /* Control-u */
-  { ISFUNC, (Function *)0x0 },         /* Control-v */
-  { ISFUNC, (Function *)0x0 },         /* Control-w */
-  { ISFUNC, (Function *)0x0 },         /* Control-x */
-  { ISFUNC, (Function *)0x0 },         /* Control-y */
-  { ISFUNC, (Function *)0x0 },         /* Control-z */
-
-  { ISFUNC, rl_vi_movement_mode },     /* Control-[ */
-  { ISFUNC, (Function *)0x0 },         /* Control-\ */
-  { ISFUNC, (Function *)0x0 },         /* Control-] */
-  { ISFUNC, (Function *)0x0 },         /* Control-^ */
-  { ISFUNC, rl_vi_undo },              /* Control-_ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-@ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-a */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-b */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-c */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-d */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-e */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-f */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-g */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-h */
+  { ISFUNC, rl_tab_insert},                    /* Control-i */
+  { ISFUNC, rl_emacs_editing_mode},            /* Control-j */
+  { ISFUNC, rl_kill_line },                    /* Control-k */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-l */
+  { ISFUNC, rl_emacs_editing_mode},            /* Control-m */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-n */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-o */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-p */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-q */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-r */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-s */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-t */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-u */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-v */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-w */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-x */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-y */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-z */
+
+  { ISFUNC, rl_vi_movement_mode },             /* Control-[ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-\ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-] */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* Control-^ */
+  { ISFUNC, rl_vi_undo },                      /* Control-_ */
 
   /* The start of printing characters. */
-  { ISFUNC, (Function *)0x0 },         /* SPACE */
-  { ISFUNC, (Function *)0x0 },         /* ! */
-  { ISFUNC, (Function *)0x0 },         /* " */
-  { ISFUNC, (Function *)0x0 },         /* # */
-  { ISFUNC, (Function *)0x0 },         /* $ */
-  { ISFUNC, (Function *)0x0 },         /* % */
-  { ISFUNC, (Function *)0x0 },         /* & */
-  { ISFUNC, (Function *)0x0 },         /* ' */
-  { ISFUNC, (Function *)0x0 },         /* ( */
-  { ISFUNC, (Function *)0x0 },         /* ) */
-  { ISFUNC, (Function *)0x0 },         /* * */
-  { ISFUNC, (Function *)0x0 },         /* + */
-  { ISFUNC, (Function *)0x0 },         /* , */
-  { ISFUNC, (Function *)0x0 },         /* - */
-  { ISFUNC, (Function *)0x0 },         /* . */
-  { ISFUNC, (Function *)0x0 },         /* / */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* SPACE */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* ! */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* " */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* # */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* $ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* % */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* & */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* ' */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* ( */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* ) */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* * */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* + */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* , */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* - */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* . */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* / */
 
   /* Regular digits. */
-  { ISFUNC, rl_vi_arg_digit },         /* 0 */
-  { ISFUNC, rl_vi_arg_digit },         /* 1 */
-  { ISFUNC, rl_vi_arg_digit },         /* 2 */
-  { ISFUNC, rl_vi_arg_digit },         /* 3 */
-  { ISFUNC, rl_vi_arg_digit },         /* 4 */
-  { ISFUNC, rl_vi_arg_digit },         /* 5 */
-  { ISFUNC, rl_vi_arg_digit },         /* 6 */
-  { ISFUNC, rl_vi_arg_digit },         /* 7 */
-  { ISFUNC, rl_vi_arg_digit },         /* 8 */
-  { ISFUNC, rl_vi_arg_digit },         /* 9 */
+  { ISFUNC, rl_vi_arg_digit },                 /* 0 */
+  { ISFUNC, rl_vi_arg_digit },                 /* 1 */
+  { ISFUNC, rl_vi_arg_digit },                 /* 2 */
+  { ISFUNC, rl_vi_arg_digit },                 /* 3 */
+  { ISFUNC, rl_vi_arg_digit },                 /* 4 */
+  { ISFUNC, rl_vi_arg_digit },                 /* 5 */
+  { ISFUNC, rl_vi_arg_digit },                 /* 6 */
+  { ISFUNC, rl_vi_arg_digit },                 /* 7 */
+  { ISFUNC, rl_vi_arg_digit },                 /* 8 */
+  { ISFUNC, rl_vi_arg_digit },                 /* 9 */
 
   /* A little more punctuation. */
-  { ISFUNC, (Function *)0x0 },         /* : */
-  { ISFUNC, (Function *)0x0 },         /* ; */
-  { ISFUNC, (Function *)0x0 },         /* < */
-  { ISFUNC, (Function *)0x0 },         /* = */
-  { ISFUNC, (Function *)0x0 },         /* > */
-  { ISFUNC, (Function *)0x0 },         /* ? */
-  { ISFUNC, (Function *)0x0 },         /* @ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* : */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* ; */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* < */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* = */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* > */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* ? */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* @ */
 
   /* Uppercase alphabet. */
-  { ISFUNC, rl_do_lowercase_version }, /* A */
-  { ISFUNC, rl_do_lowercase_version }, /* B */
-  { ISFUNC, rl_do_lowercase_version }, /* C */
-  { ISFUNC, rl_do_lowercase_version }, /* D */
-  { ISFUNC, rl_do_lowercase_version }, /* E */
-  { ISFUNC, rl_do_lowercase_version }, /* F */
-  { ISFUNC, rl_do_lowercase_version }, /* G */
-  { ISFUNC, rl_do_lowercase_version }, /* H */
-  { ISFUNC, rl_do_lowercase_version }, /* I */
-  { ISFUNC, rl_do_lowercase_version }, /* J */
-  { ISFUNC, rl_do_lowercase_version }, /* K */
-  { ISFUNC, rl_do_lowercase_version }, /* L */
-  { ISFUNC, rl_do_lowercase_version }, /* M */
-  { ISFUNC, rl_do_lowercase_version }, /* N */
-  { ISFUNC, rl_do_lowercase_version }, /* O */
-  { ISFUNC, rl_do_lowercase_version }, /* P */
-  { ISFUNC, rl_do_lowercase_version }, /* Q */
-  { ISFUNC, rl_do_lowercase_version }, /* R */
-  { ISFUNC, rl_do_lowercase_version }, /* S */
-  { ISFUNC, rl_do_lowercase_version }, /* T */
-  { ISFUNC, rl_do_lowercase_version }, /* U */
-  { ISFUNC, rl_do_lowercase_version }, /* V */
-  { ISFUNC, rl_do_lowercase_version }, /* W */
-  { ISFUNC, rl_do_lowercase_version }, /* X */
-  { ISFUNC, rl_do_lowercase_version }, /* Y */
-  { ISFUNC, rl_do_lowercase_version }, /* Z */
+  { ISFUNC, rl_do_lowercase_version },         /* A */
+  { ISFUNC, rl_do_lowercase_version },         /* B */
+  { ISFUNC, rl_do_lowercase_version },         /* C */
+  { ISFUNC, rl_do_lowercase_version },         /* D */
+  { ISFUNC, rl_do_lowercase_version },         /* E */
+  { ISFUNC, rl_do_lowercase_version },         /* F */
+  { ISFUNC, rl_do_lowercase_version },         /* G */
+  { ISFUNC, rl_do_lowercase_version },         /* H */
+  { ISFUNC, rl_do_lowercase_version },         /* I */
+  { ISFUNC, rl_do_lowercase_version },         /* J */
+  { ISFUNC, rl_do_lowercase_version },         /* K */
+  { ISFUNC, rl_do_lowercase_version },         /* L */
+  { ISFUNC, rl_do_lowercase_version },         /* M */
+  { ISFUNC, rl_do_lowercase_version },         /* N */
+  { ISFUNC, rl_do_lowercase_version },         /* O */
+  { ISFUNC, rl_do_lowercase_version },         /* P */
+  { ISFUNC, rl_do_lowercase_version },         /* Q */
+  { ISFUNC, rl_do_lowercase_version },         /* R */
+  { ISFUNC, rl_do_lowercase_version },         /* S */
+  { ISFUNC, rl_do_lowercase_version },         /* T */
+  { ISFUNC, rl_do_lowercase_version },         /* U */
+  { ISFUNC, rl_do_lowercase_version },         /* V */
+  { ISFUNC, rl_do_lowercase_version },         /* W */
+  { ISFUNC, rl_do_lowercase_version },         /* X */
+  { ISFUNC, rl_do_lowercase_version },         /* Y */
+  { ISFUNC, rl_do_lowercase_version },         /* Z */
 
   /* Some more punctuation. */
-  { ISFUNC, rl_arrow_keys },           /* [ */
-  { ISFUNC, (Function *)0x0 },         /* \ */
-  { ISFUNC, (Function *)0x0 },         /* ] */
-  { ISFUNC, (Function *)0x0 },         /* ^ */
-  { ISFUNC, (Function *)0x0 },         /* _ */
-  { ISFUNC, (Function *)0x0 },         /* ` */
+  { ISFUNC, rl_arrow_keys },                   /* [ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* \ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* ] */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* ^ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* _ */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* ` */
 
   /* Lowercase alphabet. */
-  { ISFUNC, (Function *)0x0 },         /* a */
-  { ISFUNC, (Function *)0x0 },         /* b */
-  { ISFUNC, (Function *)0x0 },         /* c */
-  { ISFUNC, (Function *)0x0 },         /* d */
-  { ISFUNC, (Function *)0x0 },         /* e */
-  { ISFUNC, (Function *)0x0 },         /* f */
-  { ISFUNC, (Function *)0x0 },         /* g */
-  { ISFUNC, (Function *)0x0 },         /* h */
-  { ISFUNC, (Function *)0x0 },         /* i */
-  { ISFUNC, (Function *)0x0 },         /* j */
-  { ISFUNC, (Function *)0x0 },         /* k */
-  { ISFUNC, (Function *)0x0 },         /* l */
-  { ISFUNC, (Function *)0x0 },         /* m */
-  { ISFUNC, (Function *)0x0 },         /* n */
-  { ISFUNC, rl_arrow_keys },           /* o */
-  { ISFUNC, (Function *)0x0 },         /* p */
-  { ISFUNC, (Function *)0x0 },         /* q */
-  { ISFUNC, (Function *)0x0 },         /* r */
-  { ISFUNC, (Function *)0x0 },         /* s */
-  { ISFUNC, (Function *)0x0 },         /* t */
-  { ISFUNC, (Function *)0x0 },         /* u */
-  { ISFUNC, (Function *)0x0 },         /* v */
-  { ISFUNC, (Function *)0x0 },         /* w */
-  { ISFUNC, (Function *)0x0 },         /* x */
-  { ISFUNC, (Function *)0x0 },         /* y */
-  { ISFUNC, (Function *)0x0 },         /* z */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* a */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* b */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* c */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* d */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* e */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* f */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* g */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* h */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* i */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* j */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* k */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* l */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* m */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* n */
+  { ISFUNC, rl_arrow_keys },                   /* o */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* p */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* q */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* r */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* s */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* t */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* u */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* v */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* w */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* x */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* y */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* z */
 
   /* Final punctuation. */
-  { ISFUNC, (Function *)0x0 },         /* { */
-  { ISFUNC, (Function *)0x0 },         /* | */
-  { ISFUNC, (Function *)0x0 },         /* } */
-  { ISFUNC, (Function *)0x0 },         /* ~ */
-  { ISFUNC, rl_backward_kill_word },   /* RUBOUT */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* { */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* | */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* } */
+  { ISFUNC, (rl_command_func_t *)0x0 },                /* ~ */
+  { ISFUNC, rl_backward_kill_word },           /* RUBOUT */
 
 #if KEYMAP_SIZE > 128
   /* Undefined keys. */
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 },
-  { ISFUNC, (Function *)0x0 }
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 },
+  { ISFUNC, (rl_command_func_t *)0x0 }
 #endif /* KEYMAP_SIZE > 128 */
 };
 #endif
index be7f949643427318fd8afd7a4de5778728da8981..b9c0ea8b904336258df9d4ef63f9fa3aa8f71d6b 100644 (file)
@@ -81,7 +81,7 @@
 static int _rl_vi_doing_insert;
 
 /* Command keys which do movement for xxx_to commands. */
-static char *vi_motion = " hl^$0ftFt;,%wbeWBE|";
+static const char *vi_motion = " hl^$0ftFt;,%wbeWBE|";
 
 /* Keymap used for vi replace characters.  Created dynamically since
    rarely used. */
@@ -109,7 +109,7 @@ static int _rl_vi_last_key_before_insert;
 static int vi_redoing;
 
 /* Text modification commands.  These are the `redoable' commands. */
-static char *vi_textmod = "_*\\AaIiCcDdPpYyRrSsXx~";
+static const char *vi_textmod = "_*\\AaIiCcDdPpYyRrSsXx~";
 
 /* Arrays for the saved marks. */
 static int vi_mark_chars[27];
@@ -274,7 +274,7 @@ rl_vi_search (count, key)
       break;
 
     default:
-      ding ();
+      rl_ding ();
       break;
     }
   return (0);
@@ -330,7 +330,7 @@ rl_vi_prev_word (count, key)
 
   if (rl_point == 0)
     {
-      ding ();
+      rl_ding ();
       return (0);
     }
 
@@ -352,7 +352,7 @@ rl_vi_next_word (count, key)
 
   if (rl_point >= (rl_end - 1))
     {
-      ding ();
+      rl_ding ();
       return (0);
     }
 
@@ -370,7 +370,7 @@ rl_vi_end_word (count, key)
 {
   if (count < 0)
     {
-      ding ();
+      rl_ding ();
       return -1;
     }
 
@@ -744,7 +744,9 @@ rl_vi_domove (key, nextkey)
   int old_end;
 
   rl_mark = rl_point;
+  RL_SETSTATE(RL_STATE_MOREINPUT);
   c = rl_read_key ();
+  RL_UNSETSTATE(RL_STATE_MOREINPUT);
   *nextkey = c;
 
   if (!member (c, vi_motion))
@@ -755,7 +757,9 @@ rl_vi_domove (key, nextkey)
          rl_numeric_arg = _rl_digit_value (c);
          rl_digit_loop1 ();
          rl_numeric_arg *= save;
+         RL_SETSTATE(RL_STATE_MOREINPUT);
          c = rl_read_key ();   /* real command */
+         RL_UNSETSTATE(RL_STATE_MOREINPUT);
          *nextkey = c;
        }
       else if (key == c && (key == 'd' || key == 'y' || key == 'c'))
@@ -825,16 +829,28 @@ rl_vi_domove (key, nextkey)
 }
 
 /* A simplified loop for vi. Don't dispatch key at end.
-   Don't recognize minus sign? */
+   Don't recognize minus sign?
+   Should this do rl_save_prompt/rl_restore_prompt? */
 static int
 rl_digit_loop1 ()
 {
   int key, c;
 
+  RL_SETSTATE(RL_STATE_NUMERICARG);
   while (1)
     {
+      if (rl_numeric_arg > 1000000)
+       {
+         rl_explicit_arg = rl_numeric_arg = 0;
+         rl_ding ();
+         rl_clear_message ();
+         RL_UNSETSTATE(RL_STATE_NUMERICARG);
+         return 1;
+       }
       rl_message ("(arg: %d) ", rl_arg_sign * rl_numeric_arg, 0);
+      RL_SETSTATE(RL_STATE_MOREINPUT);
       key = c = rl_read_key ();
+      RL_UNSETSTATE(RL_STATE_MOREINPUT);
 
       if (_rl_keymap[c].type == ISFUNC &&
          _rl_keymap[c].function == rl_universal_argument)
@@ -859,6 +875,8 @@ rl_digit_loop1 ()
          break;
        }
     }
+
+  RL_UNSETSTATE(RL_STATE_NUMERICARG);
   return (0);
 }
 
@@ -875,7 +893,7 @@ rl_vi_delete_to (count, key)
 
   if (rl_vi_domove (key, &c))
     {
-      ding ();
+      rl_ding ();
       return -1;
     }
 
@@ -903,7 +921,7 @@ rl_vi_change_to (count, key)
 
   if (rl_vi_domove (key, &c))
     {
-      ding ();
+      rl_ding ();
       return -1;
     }
 
@@ -953,7 +971,7 @@ rl_vi_yank_to (count, key)
 
   if (rl_vi_domove (key, &c))
     {
-      ding ();
+      rl_ding ();
       return -1;
     }
 
@@ -979,7 +997,7 @@ rl_vi_delete (count, key)
 
   if (rl_end == 0)
     {
-      ding ();
+      rl_ding ();
       return -1;
     }
 
@@ -1026,7 +1044,11 @@ rl_vi_char_search (count, key)
       if (vi_redoing)
        target = _rl_vi_last_search_char;
       else
-       _rl_vi_last_search_char = target = (*rl_getc_function) (rl_instream);
+       {
+         RL_SETSTATE(RL_STATE_MOREINPUT);
+         _rl_vi_last_search_char = target = rl_read_key ();
+         RL_UNSETSTATE(RL_STATE_MOREINPUT);
+       }
 
       switch (key)
         {
@@ -1068,7 +1090,7 @@ rl_vi_match (ignore, key)
       if (brack <= 0)
        {
          rl_point = pos;
-         ding ();
+         rl_ding ();
          return -1;
        }
     }
@@ -1089,7 +1111,7 @@ rl_vi_match (ignore, key)
            }
          else
            {
-             ding ();
+             rl_ding ();
              return -1;
            }
        }
@@ -1108,7 +1130,7 @@ rl_vi_match (ignore, key)
            }
          else
            {
-             ding ();
+             rl_ding ();
              return -1;
            }
        }
@@ -1142,7 +1164,11 @@ rl_vi_change_char (count, key)
   if (vi_redoing)
     c = _rl_vi_last_replacement;
   else
-    _rl_vi_last_replacement = c = (*rl_getc_function) (rl_instream);
+    {
+      RL_SETSTATE(RL_STATE_MOREINPUT);
+      _rl_vi_last_replacement = c = rl_read_key ();
+      RL_UNSETSTATE(RL_STATE_MOREINPUT);
+    }
 
   if (c == '\033' || c == CTRL ('C'))
     return -1;
@@ -1238,7 +1264,7 @@ rl_vi_overstrike_delete (count, key)
     {
       if (vi_replace_count == 0)
        {
-         ding ();
+         rl_ding ();
          break;
        }
       s = rl_point;
@@ -1308,7 +1334,7 @@ rl_vi_possible_completions()
     }
   else if (rl_line_buffer[rl_point - 1] == ';')
     {
-      ding ();
+      rl_ding ();
       return (0);
     }
 
@@ -1326,10 +1352,13 @@ rl_vi_set_mark (count, key)
 {
   int ch;
 
+  RL_SETSTATE(RL_STATE_MOREINPUT);
   ch = rl_read_key ();
+  RL_UNSETSTATE(RL_STATE_MOREINPUT);
+
   if (_rl_lowercase_p (ch) == 0)
     {
-      ding ();
+      rl_ding ();
       return -1;
     }
   ch -= 'a';
@@ -1343,7 +1372,10 @@ rl_vi_goto_mark (count, key)
 {
   int ch;
 
+  RL_SETSTATE(RL_STATE_MOREINPUT);
   ch = rl_read_key ();
+  RL_UNSETSTATE(RL_STATE_MOREINPUT);
+
   if (ch == '`')
     {
       rl_point = rl_mark;
@@ -1351,14 +1383,14 @@ rl_vi_goto_mark (count, key)
     }
   else if (_rl_lowercase_p (ch) == 0)
     {
-      ding ();
+      rl_ding ();
       return -1;
     }
 
   ch -= 'a';
   if (vi_mark_chars[ch] == -1)
     {
-      ding ();
+      rl_ding ();
       return -1;
     }
   rl_point = vi_mark_chars[ch];
index 789c5448918990fd7012425574733f05c8c42218..1c52e0d82d06ccedbd2089b0c04cfddff50de04c 100644 (file)
@@ -64,7 +64,9 @@ LIBRARY_NAME = libsh.a
 CSOURCES = clktck.c clock.c getcwd.c getenv.c oslib.c setlinebuf.c \
           strcasecmp.c strerror.c strtod.c strtol.c strtoul.c \
           vprint.c itos.c rename.c zread.c zwrite.c shtty.c \
-          inet_aton.c netopen.c strpbrk.c timeval.c makepath.c
+          inet_aton.c netopen.c strpbrk.c timeval.c makepath.c pathcanon.c \
+          pathphys.c tmpfile.c stringlist.c stringvec.c spell.c \
+          shquote.c strtrans.c strindex.c
 
 # The header files for this library.
 HSOURCES = 
@@ -73,7 +75,9 @@ HSOURCES =
 OBJECTS = clktck.o clock.o getcwd.o getenv.o oslib.o setlinebuf.o \
          strcasecmp.o strerror.o strtod.o strtol.o strtoul.o \
          vprint.o itos.o rename.o zread.o zwrite.o shtty.o \
-         inet_aton.o netopen.o strpbrk.o timeval.o makepath.o
+         inet_aton.o netopen.o strpbrk.o timeval.o makepath.o pathcanon.o \
+         pathphys.o tmpfile.o stringlist.o stringvec.o spell.o shquote.o \
+         strtrans.o strindex.o
 
 SUPPORT = Makefile
 
@@ -108,20 +112,29 @@ getcwd.o: getcwd.c
 getenv.o: getenv.c
 inet_aton.o: inet_aton.c
 itos.o: itos.c
+makepath.o: makepath.c
 netopen.o: netopen.c
 oslib.o: oslib.c
+pathcanon.o: pathcanon.c
+pathphys.o: pathphys.c
 rename.o: rename.c
 setlinebuf.o: setlinebuf.c
 shquote.o: shquote.c
 shtty.o: shtty.c
+spell.o: spell.c
 strcasecmp.o: strcasecmp.c
 strerror.o: strerror.c
+strindex.o: strindex.c
+stringlist.o: stringlist.c
+stringvec.o: stringvec.c
 strpbrk.o: strpbrk.c
 strtod.o: strtod.c
 strtol.o: strtol.c
 strtoul.o: strtoul.c
+strtrans.o: strtrans.c
 times.o: times.c
 timeval.o: timeval.c
+tmpfile.o: tmpfile.c
 vprint.o: vprint.c
 zread.o: zread.c
 zwrite.o: zwrite.c
@@ -133,20 +146,29 @@ getcwd.o: ${BUILD_DIR}/config.h
 getenv.o: ${BUILD_DIR}/config.h
 inet_aton.o: ${BUILD_DIR}/config.h
 itos.o: ${BUILD_DIR}/config.h
+makepath.o: ${BUILD_DIR}/config.h
 netopen.o: ${BUILD_DIR}/config.h
 oslib.o: ${BUILD_DIR}/config.h
+pathcanon.o: ${BUILD_DIR}/config.h
+pathphys.o: ${BUILD_DIR}/config.h
 rename.o: ${BUILD_DIR}/config.h
 setlinebuf.o: ${BUILD_DIR}/config.h
 shquote.o: ${BUILD_DIR}/config.h
 shtty.o: ${BUILD_DIR}/config.h
+spell.o: ${BUILD_DIR}/config.h
 strcasecmp.o: ${BUILD_DIR}/config.h
 strerror.o: ${BUILD_DIR}/config.h
+strindex.o: ${BUILD_DIR}/config.h
+stringlist.o: ${BUILD_DIR}/config.h
+stringvec.o: ${BUILD_DIR}/config.h
 strpbrk.o: ${BUILD_DIR}/config.h
 strtod.o: ${BUILD_DIR}/config.h
 strtol.o: ${BUILD_DIR}/config.h
 strtoul.o: ${BUILD_DIR}/config.h
+strtrans.o: ${BUILD_DIR}/config.h
 times.o: ${BUILD_DIR}/config.h
 timeval.o: ${BUILD_DIR}/config.h
+tmpfile.o: ${BUILD_DIR}/config.h
 vprint.o: ${BUILD_DIR}/config.h
 zread.o: ${BUILD_DIR}/config.h
 zwrite.o: ${BUILD_DIR}/config.h
@@ -158,7 +180,7 @@ getcwd.o: ${BASHINCDIR}/posixstat.h ${BASHINCDIR}/posixdir.h
 getcwd.o: ${BASHINCDIR}/memalloc.h ${BASHINCDIR}/ansi_stdlib.h
 
 getenv.o: ${topdir}/bashansi.h ${BASHINCDIR}/ansi_stdlib.h
-getenv.o: ${topdir}/shell.h ${topdir}/bashjmp.h ${BASHINCDIR}/posixjmp.h
+getenv.o: ${topdir}/shell.h ${topdir}/syntax.h ${topdir}/bashjmp.h ${BASHINCDIR}/posixjmp.h
 getenv.o: ${topdir}/command.h ${BASHINCDIR}/stdc.h ${topdir}/error.h
 getenv.o: ${topdir}/general.h ${topdir}/bashtypes.h ${topdir}/variables.h
 getenv.o: ${topdir}/array.h ${topdir}/hashlib.h ${topdir}/quit.h
@@ -170,7 +192,7 @@ inet_aton.o: ${topdir}/bashansi.h ${BASHINCDIR}/ansi_stdlib.h
 inet_aton.o: ${BASHINCDIR}/stdc.h
 
 itos.o: ${topdir}/bashansi.h ${BASHINCDIR}/ansi_stdlib.h
-itos.o: ${topdir}/shell.h ${topdir}/bashjmp.h ${BASHINCDIR}/posixjmp.h
+itos.o: ${topdir}/shell.h ${topdir}/syntax.h ${topdir}/bashjmp.h ${BASHINCDIR}/posixjmp.h
 itos.o: ${topdir}/command.h ${BASHINCDIR}/stdc.h ${topdir}/error.h
 itos.o: ${topdir}/general.h ${topdir}/bashtypes.h ${topdir}/variables.h
 itos.o: ${topdir}/array.h ${topdir}/hashlib.h ${topdir}/quit.h
@@ -178,10 +200,19 @@ itos.o: ${topdir}/unwind_prot.h ${topdir}/dispose_cmd.h
 itos.o: ${topdir}/make_cmd.h ${topdir}/subst.h ${topdir}/sig.h
 itos.o: ${topdir}/pathnames.h ${topdir}/externs.h
 
+makepath.o: ${topdir}/bashansi.h ${BASHINCDIR}/ansi_stdlib.h
+makepath.o: ${topdir}/shell.h ${topdir}/syntax.h ${topdir}/bashjmp.h ${BASHINCDIR}/posixjmp.h
+makepath.o: ${topdir}/command.h ${BASHINCDIR}/stdc.h ${topdir}/error.h
+makepath.o: ${topdir}/general.h ${topdir}/bashtypes.h ${topdir}/variables.h
+makepath.o: ${topdir}/array.h ${topdir}/hashlib.h ${topdir}/quit.h
+makepath.o: ${topdir}/unwind_prot.h ${topdir}/dispose_cmd.h
+makepath.o: ${topdir}/make_cmd.h ${topdir}/subst.h ${topdir}/sig.h
+makepath.o: ${topdir}/pathnames.h ${topdir}/externs.h
+
 netopen.o: ${topdir}/bashansi.h ${BASHINCDIR}/ansi_stdlib.h
 
 oslib.o: ${topdir}/bashtypes.h ${topdir}/bashansi.h ${BASHINCDIR}/maxpath.h
-oslib.o: ${topdir}/shell.h ${topdir}/bashjmp.h ${BASHINCDIR}/posixjmp.h
+oslib.o: ${topdir}/shell.h ${topdir}/syntax.h ${topdir}/bashjmp.h ${BASHINCDIR}/posixjmp.h
 oslib.o: ${topdir}/command.h ${BASHINCDIR}/stdc.h ${topdir}/error.h
 oslib.o: ${topdir}/general.h ${topdir}/bashtypes.h ${topdir}/variables.h
 oslib.o: ${topdir}/array.h ${topdir}/hashlib.h ${topdir}/quit.h
@@ -191,15 +222,42 @@ oslib.o: ${topdir}/pathnames.h ${topdir}/externs.h
 oslib.o: ${BASHINCDIR}/posixstat.h ${BASHINCDIR}/filecntl.h
 oslib.o: ${BASHINCDIR}/ansi_stdlib.h
 
+pathcanon.o: ${topdir}/bashtypes.h ${topdir}/bashansi.h ${BASHINCDIR}/maxpath.h
+pathcanon.o: ${topdir}/shell.h ${topdir}/syntax.h ${topdir}/bashjmp.h ${BASHINCDIR}/posixjmp.h
+pathcanon.o: ${topdir}/command.h ${BASHINCDIR}/stdc.h ${topdir}/error.h
+pathcanon.o: ${topdir}/general.h ${topdir}/bashtypes.h ${topdir}/variables.h
+pathcanon.o: ${topdir}/array.h ${topdir}/hashlib.h ${topdir}/quit.h
+pathcanon.o: ${topdir}/unwind_prot.h ${topdir}/dispose_cmd.h
+pathcanon.o: ${topdir}/make_cmd.h ${topdir}/subst.h ${topdir}/sig.h
+pathcanon.o: ${topdir}/pathnames.h ${topdir}/externs.h
+pathcanon.o: ${BASHINCDIR}/posixstat.h ${BASHINCDIR}/filecntl.h
+pathcanon.o: ${BASHINCDIR}/ansi_stdlib.h
+
+pathphys.o: ${topdir}/bashtypes.h ${topdir}/bashansi.h ${BASHINCDIR}/maxpath.h
+pathphys.o: ${topdir}/shell.h ${topdir}/syntax.h ${topdir}/bashjmp.h ${BASHINCDIR}/posixjmp.h
+pathphys.o: ${topdir}/command.h ${BASHINCDIR}/stdc.h ${topdir}/error.h
+pathphys.o: ${topdir}/general.h ${topdir}/bashtypes.h ${topdir}/variables.h
+pathphys.o: ${topdir}/array.h ${topdir}/hashlib.h ${topdir}/quit.h
+pathphys.o: ${topdir}/unwind_prot.h ${topdir}/dispose_cmd.h
+pathphys.o: ${topdir}/make_cmd.h ${topdir}/subst.h ${topdir}/sig.h
+pathphys.o: ${topdir}/pathnames.h ${topdir}/externs.h
+pathphys.o: ${BASHINCDIR}/posixstat.h ${BASHINCDIR}/filecntl.h
+pathphys.o: ${BASHINCDIR}/ansi_stdlib.h
+
 rename.o: ${topdir}/bashtypes.h ${BASHINCDIR}/stdc.h
 
 shtty.o: ${BASHINCDIR}/shtty.h
 shtty.o: ${BASHINCDIR}/stdc.h
 
-strcasecmp.o: ${BASHINCDIR}/stdc.h ${topdir}/bashansi.h ${BASHINCDIR}/ansi_stdlib.h
+spell.o: ${topdir}/bashtypes.h
+spell.o: ${BASHINCDIR}/posixstat.h ${BASHINCDIR}/posixdir.h
+spell.o: ${BASHINCDIR}/ansi_stdlib.h
+
+strcasecmp.o: ${BASHINCDIR}/stdc.h ${topdir}/bashansi.h
+strcasecmp.o: ${BASHINCDIR}/ansi_stdlib.h
 
 strerror.o: ${topdir}/bashtypes.h
-strerror.o: ${topdir}/shell.h ${topdir}/bashjmp.h ${BASHINCDIR}/posixjmp.h
+strerror.o: ${topdir}/shell.h ${topdir}/syntax.h ${topdir}/bashjmp.h ${BASHINCDIR}/posixjmp.h
 strerror.o: ${topdir}/command.h ${BASHINCDIR}/stdc.h ${topdir}/error.h
 strerror.o: ${topdir}/general.h ${topdir}/bashtypes.h ${topdir}/variables.h
 strerror.o: ${topdir}/array.h ${topdir}/hashlib.h ${topdir}/quit.h
@@ -207,6 +265,27 @@ strerror.o: ${topdir}/unwind_prot.h ${topdir}/dispose_cmd.h
 strerror.o: ${topdir}/make_cmd.h ${topdir}/subst.h ${topdir}/sig.h
 strerror.o: ${topdir}/pathnames.h ${topdir}/externs.h
 
+strindex.o: ${BASHINCDIR}/stdc.h ${topdir}/bashansi.h
+strindex.o: ${BASHINCDIR}/ansi_stdlib.h
+
+stringlist.o: ${topdir}/bashansi.h
+stringlist.o: ${topdir}/shell.h ${topdir}/syntax.h ${topdir}/bashjmp.h ${BASHINCDIR}/posixjmp.h
+stringlist.o: ${topdir}/command.h ${BASHINCDIR}/stdc.h ${topdir}/error.h
+stringlist.o: ${topdir}/general.h ${topdir}/bashtypes.h ${topdir}/variables.h
+stringlist.o: ${topdir}/array.h ${topdir}/hashlib.h ${topdir}/quit.h
+stringlist.o: ${topdir}/unwind_prot.h ${topdir}/dispose_cmd.h
+stringlist.o: ${topdir}/make_cmd.h ${topdir}/subst.h ${topdir}/sig.h
+stringlist.o: ${topdir}/pathnames.h ${topdir}/externs.h
+
+stringvec.o: ${topdir}/bashansi.h
+stringvec.o: ${topdir}/shell.h ${topdir}/syntax.h ${topdir}/bashjmp.h ${BASHINCDIR}/posixjmp.h
+stringvec.o: ${topdir}/command.h ${BASHINCDIR}/stdc.h ${topdir}/error.h
+stringvec.o: ${topdir}/general.h ${topdir}/bashtypes.h ${topdir}/variables.h
+stringvec.o: ${topdir}/array.h ${topdir}/hashlib.h ${topdir}/quit.h
+stringvec.o: ${topdir}/unwind_prot.h ${topdir}/dispose_cmd.h
+stringvec.o: ${topdir}/make_cmd.h ${topdir}/subst.h ${topdir}/sig.h
+stringvec.o: ${topdir}/pathnames.h ${topdir}/externs.h
+
 strpbrk.o: ${BASHINCDIR}/stdc.h
 
 strtod.o: ${topdir}/bashansi.h
@@ -218,9 +297,23 @@ strtol.o: ${BASHINCDIR}/ansi_stdlib.h
 strtoul.o: ${topdir}/bashansi.h
 strtoul.o: ${BASHINCDIR}/ansi_stdlib.h
 
+strtrans.o: ${topdir}/bashansi.h
+strtrans.o: ${BASHINCDIR}/ansi_stdlib.h
+strtrans.o: ${topdir}/shell.h ${topdir}/syntax.h ${topdir}/bashjmp.h ${BASHINCDIR}/posixjmp.h
+strtrans.o: ${topdir}/command.h ${BASHINCDIR}/stdc.h ${topdir}/error.h
+strtrans.o: ${topdir}/general.h ${topdir}/bashtypes.h ${topdir}/variables.h
+strtrans.o: ${topdir}/array.h ${topdir}/hashlib.h ${topdir}/quit.h
+strtrans.o: ${topdir}/unwind_prot.h ${topdir}/dispose_cmd.h
+strtrans.o: ${topdir}/make_cmd.h ${topdir}/subst.h ${topdir}/sig.h
+strtrans.o: ${topdir}/pathnames.h ${topdir}/externs.h
+
 times.o: ${BASHINCDIR}/systimes.h
 times.o: ${BASHINCDIR}/posixtime.h
 
 timeval.o: ${BASHINCDIR}/posixtime.h
 
+tmpfile.o: ${topdir}/bashtypes.h
+tmpfile.o: ${BASHINCDIR}/posixstat.h
+tmpfile.o: ${BASHINCDIR}/filecntl.h
+
 clock.o: ${BASHINCDIR}/posixtime.h
index dfc12108b2260a80519a0ee84126c458c5a12947..ba2bcb9c939d3c220e4a28673597433f2c54de01 100644 (file)
@@ -68,7 +68,7 @@ sh_makepath (path, dir, flags)
      int flags;
 {
   int dirlen, pathlen;
-  char *ret, *xpath;
+  char *ret, *xpath, *r, *s;
 
   if (path == 0 || *path == '\0')
     {
@@ -102,14 +102,15 @@ sh_makepath (path, dir, flags)
       dirlen -= 2;
     }
 
-  ret = xmalloc (2 + dirlen + pathlen);
-  strcpy (ret, xpath);
-  if (xpath[pathlen - 1] != '/')
-    {
-      ret[pathlen++] = '/';
-      ret[pathlen] = '\0';
-    }
-  strcpy (ret + pathlen, dir);
+  r = ret = xmalloc (2 + dirlen + pathlen);
+  s = xpath;
+  while (*s)
+    *r++ = *s++;
+  if (s[-1] != '/')
+    *r++ = '/';      
+  s = dir;
+  while (*r++ = *s++)
+    ;
   if (xpath != path)
     free (xpath);
   return (ret);
index 789a9b39b69fe78ea087b2fc29fd58c076a4675b..f0b0b9b8cc8afc561855e11dacb329123682fb63 100644 (file)
@@ -97,8 +97,9 @@ _getaddr (host, ap)
 /* Return 1 if SERV is a valid port number and stuff the converted value into
    PP in network byte order. */   
 static int
-_getserv (serv, pp)
+_getserv (serv, proto, pp)
      char *serv;
+     int proto;
      unsigned short *pp;
 {
   long l;
@@ -115,7 +116,20 @@ _getserv (serv, pp)
       return 1;
     }
   else
+#if defined (HAVE_GETSERVBYNAME)
+    {
+      struct servent *se;
+
+      se = getservbyname (serv, (proto == 't') ? "tcp" : "udp");
+      if (se == 0)
+       return 0;
+      if (pp)
+       *pp = se->s_port;       /* ports returned in network byte order */
+      return 1;
+    }
+#else /* !HAVE_GETSERVBYNAME */
     return 0;
+#endif /* !HAVE_GETSERVBYNAME */
 }
 
 static int 
@@ -126,18 +140,20 @@ _netopen(host, serv, typ)
   struct in_addr ina;
   struct sockaddr_in sin;
   unsigned short p;
-  int s;
+  int s, e;
   char **cp;
 
   if (_getaddr(host, &ina) == 0)
     {
       internal_error ("%s: host unknown", host);
+      errno = EINVAL;
       return -1;
     }
 
-  if (_getserv(serv, &p) == 0)
+  if (_getserv(serv, typ, &p) == 0)
     {
       internal_error("%s: invalid service", serv);
+      errno = EINVAL;
       return -1;
     }
        
@@ -155,8 +171,10 @@ _netopen(host, serv, typ)
 
   if (connect (s, (struct sockaddr *)&sin, sizeof (sin)) < 0)
     {
+      e = errno;
       sys_error("connect");
       close(s);
+      errno = e;
       return (-1);
     }
 
diff --git a/lib/sh/pathcanon.c b/lib/sh/pathcanon.c
new file mode 100644 (file)
index 0000000..41fc727
--- /dev/null
@@ -0,0 +1,195 @@
+/* pathcanon.c -- Canonicalize and manipulate pathnames. */
+
+/* Copyright (C) 2000 Free Software Foundation, Inc.
+
+   This file is part of GNU Bash, the Bourne Again SHell.
+
+   Bash 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.
+
+   Bash is distributed in the hope that it will be useful, but WITHOUT ANY
+   WARRANTY; without even the implied warranty of MERCHANTABILITY or
+   FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+   for more details.
+
+   You should have received a copy of the GNU General Public License along
+   with Bash; see the file COPYING.  If not, write to the Free Software
+   Foundation, 59 Temple Place, Suite 330, Boston, MA 02111 USA. */
+
+#include "config.h"
+
+#include "bashtypes.h"
+#ifndef _MINIX
+#  include <sys/param.h>
+#endif
+#include "posixstat.h"
+
+#if defined (HAVE_UNISTD_H)
+#  include <unistd.h>
+#endif
+
+#include "filecntl.h"
+#include "bashansi.h"
+#include <stdio.h>
+
+#include "shell.h"
+
+#include "maxpath.h"
+
+/* Return 1 if PATH corresponds to a directory.  A function for debugging. */
+static int
+_path_isdir (path)
+     char *path;
+{
+  int l;
+  struct stat sb;
+
+  l = stat (path, &sb) == 0 && S_ISDIR (sb.st_mode);
+  return l;
+}
+
+/* Canonicalize PATH, and return a new path.  The new path differs from PATH
+   in that:
+       Multple `/'s are collapsed to a single `/'.
+       Leading `./'s and trailing `/.'s are removed.
+       Trailing `/'s are removed.
+       Non-leading `../'s and trailing `..'s are handled by removing
+       portions of the path. */
+
+/* Look for ROOTEDPATH, PATHSEP, DIRSEP, and ISDIRSEP in ../../general.h */
+
+#define DOUBLE_SLASH(p)        ((p[0] == '/') && (p[1] == '/') && p[2] != '/')
+
+char *
+sh_canonpath (path, flags)
+     char *path;
+     int flags;
+{
+  char stub_char;
+  char *result, *p, *q, *base, *dotdot;
+  int rooted, double_slash_path;
+
+  /* The result cannot be larger than the input PATH. */
+  result = (flags & PATH_NOALLOC) ? path : savestring (path);
+
+  /* POSIX.2 says to leave a leading `//' alone.  On cygwin, we skip over any
+     leading `x:' (dos drive name). */
+  if (rooted = ROOTEDPATH(path))
+    {
+      stub_char = DIRSEP;
+#if defined (__CYGWIN__)
+      base = (isalpha(result[0]) && result[1] == ':') ? result + 3 : result + 1;
+#else
+      base = result + 1;
+#endif
+      double_slash_path = DOUBLE_SLASH (path);
+      base += double_slash_path;
+    }
+  else
+    {
+      stub_char = '.';
+#if defined (__CYGWIN__)
+      base = (isalpha(result[0]) && result[1] == ':') ? result + 2 : result;
+#else
+      base = result;
+#endif
+    }
+
+  /*
+   * invariants:
+   *     base points to the portion of the path we want to modify
+   *      p points at beginning of path element we're considering.
+   *      q points just past the last path element we wrote (no slash).
+   *      dotdot points just past the point where .. cannot backtrack
+   *     any further (no slash).
+   */
+  p = q = dotdot = base;
+
+  while (*p)
+    {
+      if (ISDIRSEP(p[0])) /* null element */
+       p++;
+      else if(p[0] == '.' && PATHSEP(p[1]))    /* . and ./ */
+       p += 1;         /* don't count the separator in case it is nul */
+      else if (p[0] == '.' && p[1] == '.' && PATHSEP(p[2])) /* .. and ../ */
+       {
+         p += 2; /* skip `..' */
+         if (q > dotdot)       /* can backtrack */
+           {
+             if (flags & PATH_CHECKDOTDOT)
+               {
+                 char c;
+
+                 /* Make sure what we have so far corresponds to a valid
+                    path before we chop some of it off. */
+                 c = *q;
+                 *q = '\0';
+                 if (_path_isdir (result) == 0)
+                   {
+                     if ((flags & PATH_NOALLOC) == 0)
+                       free (result);
+                     return ((char *)NULL);
+                   }
+                 *q = c;
+               }
+
+             while (--q > dotdot && ISDIRSEP(*q) == 0)
+               ;
+           }
+         else if (rooted == 0)
+           {
+             /* /.. is / but ./../ is .. */
+             if (q != base)
+               *q++ = DIRSEP;
+             *q++ = '.';
+             *q++ = '.';
+             dotdot = q;
+           }
+       }
+      else     /* real path element */
+       {
+         /* add separator if not at start of work portion of result */
+         if (q != base)
+           *q++ = DIRSEP;
+         while (*p && (ISDIRSEP(*p) == 0))
+           *q++ = *p++;
+         /* Check here for a valid directory with _path_isdir. */
+         if (flags & PATH_CHECKEXISTS)
+           {
+             char c;
+
+             /* Make sure what we have so far corresponds to a valid
+                path before we chop some of it off. */
+             c = *q;
+             *q = '\0';
+             if (_path_isdir (result) == 0)
+               {
+                 if ((flags & PATH_NOALLOC) == 0)
+                   free (result);
+                 return ((char *)NULL);
+               }
+             *q = c;
+           }
+       }
+    }
+
+  /* Empty string is really ``.'' or `/', depending on what we started with. */
+  if (q == result)
+    *q++ = stub_char;
+  *q = '\0';
+
+  /* If the result starts with `//', but the original path does not, we
+     can turn the // into /.  Because of how we set `base', this should never
+     be true, but it's a sanity check. */
+  if (DOUBLE_SLASH(result) && double_slash_path == 0)
+    {
+      if (result[2] == '\0')   /* short-circuit for bare `//' */
+       result[1] = '\0';
+      else
+       strcpy (result, result + 1);
+    }
+
+  return (result);
+}
diff --git a/lib/sh/pathphys.c b/lib/sh/pathphys.c
new file mode 100644 (file)
index 0000000..eb58524
--- /dev/null
@@ -0,0 +1,256 @@
+/* pathphys.c -- Return pathname with all symlinks expanded. */
+
+/* Copyright (C) 2000 Free Software Foundation, Inc.
+
+   This file is part of GNU Bash, the Bourne Again SHell.
+
+   Bash 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.
+
+   Bash is distributed in the hope that it will be useful, but WITHOUT ANY
+   WARRANTY; without even the implied warranty of MERCHANTABILITY or
+   FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+   for more details.
+
+   You should have received a copy of the GNU General Public License along
+   with Bash; see the file COPYING.  If not, write to the Free Software
+   Foundation, 59 Temple Place, Suite 330, Boston, MA 02111 USA. */
+
+#include "config.h"
+
+#include "bashtypes.h"
+#ifndef _MINIX
+#  include <sys/param.h>
+#endif
+#include "posixstat.h"
+
+#if defined (HAVE_UNISTD_H)
+#  include <unistd.h>
+#endif
+
+#include "filecntl.h"
+#include "bashansi.h"
+#include <stdio.h>
+#include <errno.h>
+
+#include "shell.h"
+
+#include "maxpath.h"
+
+#if !defined (MAXSYMLINKS)
+#  define MAXSYMLINKS 32
+#endif
+
+#if !defined (errno)
+extern int errno;
+#endif /* !errno */
+
+extern char *get_working_directory __P((char *));
+
+static int
+_path_readlink (path, buf, bufsiz)
+     char *path;
+     char *buf;
+     int bufsiz;
+{
+#ifdef HAVE_READLINK
+  return readlink (path, buf, bufsiz);
+#else
+  errno = EINVAL;
+  return -1;
+#endif
+}
+
+/* Look for ROOTEDPATH, PATHSEP, DIRSEP, and ISDIRSEP in ../../general.h */
+
+#define DOUBLE_SLASH(p)        ((p[0] == '/') && (p[1] == '/') && p[2] != '/')
+
+/*
+ * Return PATH with all symlinks expanded in newly-allocated memory.
+ * This always gets a full pathname.
+ */
+
+char *
+sh_physpath (path, flags)
+     char *path;
+     int flags;
+{
+  char tbuf[PATH_MAX+1], linkbuf[PATH_MAX+1];
+  char *result, *p, *q, *qsave, *qbase, *workpath;
+  int double_slash_path, linklen, nlink;
+
+  nlink = 0;
+  q = result = xmalloc (PATH_MAX + 1);
+
+  workpath = xmalloc (PATH_MAX + 1);
+  strcpy (workpath, path);
+
+  /* This always gets an absolute pathname. */
+
+  /* POSIX.2 says to leave a leading `//' alone.  On cygwin, we skip over any
+     leading `x:' (dos drive name). */
+#if defined (__CYGWIN__)
+  qbase = (isalpha(workpath[0]) && workpath[1] == ':') ? workpath + 3 : workpath + 1;
+#else
+  qbase = workpath + 1;
+#endif
+  double_slash_path = DOUBLE_SLASH (workpath);
+  qbase += double_slash_path;
+
+  for (p = workpath; p < qbase; )
+    *q++ = *p++;
+  qbase = q;
+
+  /*
+   * invariants:
+   *     qbase points to the portion of the result path we want to modify
+   *      p points at beginning of path element we're considering.
+   *      q points just past the last path element we wrote (no slash).
+   *
+   * XXX -- need to fix error checking for too-long pathnames
+   */
+
+  while (*p)
+    {
+      if (ISDIRSEP(p[0])) /* null element */
+       p++;
+      else if(p[0] == '.' && PATHSEP(p[1]))    /* . and ./ */
+       p += 1;         /* don't count the separator in case it is nul */
+      else if (p[0] == '.' && p[1] == '.' && PATHSEP(p[2])) /* .. and ../ */
+       {
+         p += 2; /* skip `..' */
+         if (q > qbase)
+           {
+             while (--q > qbase && ISDIRSEP(*q) == 0)
+               ;
+           }
+       }
+      else     /* real path element */
+       {
+         /* add separator if not at start of work portion of result */
+         qsave = q;
+         if (q != qbase)
+           *q++ = DIRSEP;
+         while (*p && (ISDIRSEP(*p) == 0))
+           *q++ = *p++;
+
+         *q = '\0';
+
+         linklen = _path_readlink (result, linkbuf, PATH_MAX);
+         if (linklen < 0)      /* if errno == EINVAL, it's not a symlink */
+           {
+             if (errno != EINVAL)
+               goto error;
+             continue;
+           }
+
+         /* It's a symlink, and the value is in LINKBUF. */
+         nlink++;
+         if (nlink > MAXSYMLINKS)
+           {
+#ifdef ELOOP
+             errno = ELOOP;
+#endif
+error:
+             free (result);
+             free (workpath);
+             return ((char *)NULL);
+           }
+
+         linkbuf[linklen] = '\0';
+
+         /* Form the new pathname by copying the link value to a temporary
+            buffer and appending the rest of `workpath'.  Reset p to point
+            to the start of the rest of the path.  If the link value is an
+            absolute pathname, reset p, q, and qbase.  If not, reset p
+            and q. */
+         strcpy (tbuf, linkbuf);
+         tbuf[linklen] = '/';
+         strcpy (tbuf + linklen, p);
+         strcpy (workpath, tbuf);
+
+         if (ABSPATH(linkbuf))
+           {
+             q = result;
+             /* Duplicating some code here... */
+#if defined (__CYGWIN__)
+             qbase = (isalpha(workpath[0]) && workpath[1] == ':') ? workpath + 3 : workpath + 1;
+#else
+             qbase = workpath + 1;
+#endif
+             double_slash_path = DOUBLE_SLASH (workpath);
+             qbase += double_slash_path;
+    
+             for (p = workpath; p < qbase; )
+               *q++ = *p++;
+             qbase = q;
+           }
+         else
+           {
+             p = workpath;
+             q = qsave;
+           }
+       }
+    }
+
+  *q = '\0';
+  free (workpath);
+
+  /* If the result starts with `//', but the original path does not, we
+     can turn the // into /.  Because of how we set `qbase', this should never
+     be true, but it's a sanity check. */
+  if (DOUBLE_SLASH(result) && double_slash_path == 0)
+    {
+      if (result[2] == '\0')   /* short-circuit for bare `//' */
+       result[1] = '\0';
+      else
+       strcpy (result, result + 1);
+    }
+
+  return (result);
+}
+
+char *
+sh_realpath (pathname, resolved)
+     const char *pathname;
+     char *resolved;
+{
+  char *tdir, *wd;
+
+  if (pathname == 0 || *pathname == '\0')
+    {
+      errno = (pathname == 0) ? EINVAL : ENOENT;
+      return ((char *)NULL);
+    }
+
+  if (ABSPATH (pathname) == 0)
+    {
+      wd = get_working_directory ("sh_realpath");
+      if (wd == 0)
+       return ((char *)NULL);
+      tdir = sh_makepath ((char *)pathname, wd, 0);
+      free (wd);
+    }
+  else
+    tdir = savestring (pathname);
+
+  wd = sh_physpath (tdir, 0);
+  free (tdir);
+
+  if (resolved == 0)
+    return (wd);
+
+  if (wd)
+    {
+      strncpy (resolved, wd, PATH_MAX - 1);
+      resolved[PATH_MAX - 1] = '\0';
+      return resolved;
+    }
+  else
+    {
+      resolved[0] = '\0';
+      return wd;
+    }
+}
index ab8009da8c93f9086d011058886b478a0159f6d7..981e9673d068c0c867f8bcbcec0b1e107f4487e5 100644 (file)
@@ -27,9 +27,7 @@
 
 #include <stdio.h>
 
-#if !defined(slashify_in_quotes)
-#  define slashify_in_quotes "\\`$\"\n"
-#endif
+#include "syntax.h"
 
 extern char *xmalloc ();
 
@@ -42,7 +40,7 @@ extern char *xmalloc ();
 /* Return a new string which is the single-quoted version of STRING.
    Used by alias and trap, among others. */
 char *
-single_quote (string)
+sh_single_quote (string)
      char *string;
 {
   register int c;
@@ -72,7 +70,7 @@ single_quote (string)
 
 /* Quote STRING using double quotes.  Return a new string. */
 char *
-double_quote (string)
+sh_double_quote (string)
      char *string;
 {
   register int c;
@@ -84,18 +82,10 @@ double_quote (string)
 
   for (s = string; s && (c = *s); s++)
     {
-      switch (c)
-        {
-       case '"':
-       case '$':
-       case '`':
-       case '\\':
-       case '\n':              /* XXX */
-         *r++ = '\\';
-       default:
-         *r++ = c;
-         break;
-        }
+      if (sh_syntaxtab[c] & CBSDQUOTE)
+       *r++ = '\\';
+
+      *r++ = c;
     }
 
   *r++ = '"';
@@ -107,7 +97,7 @@ double_quote (string)
 /* Remove backslashes that are quoting characters that are special between
    double quotes.  Return a new string. */
 char *
-un_double_quote (string)
+sh_un_double_quote (string)
      char *string;
 {
   register int c, pass_next;
@@ -123,7 +113,7 @@ un_double_quote (string)
          pass_next = 0;
          continue;
        }
-      if (c == '\\' && strchr (slashify_in_quotes, s[1]))
+      if (c == '\\' && (sh_syntaxtab[s[1]] & CBSDQUOTE))
        {
          pass_next = 1;
          continue;
@@ -138,7 +128,7 @@ un_double_quote (string)
 /* Quote special characters in STRING using backslashes.  Return a new
    string. */
 char *
-backslash_quote (string)
+sh_backslash_quote (string)
      char *string;
 {
   int c;
@@ -182,8 +172,33 @@ backslash_quote (string)
   return (result);
 }
 
+#if defined (PROMPT_STRING_DECODE)
+/* Quote characters that get special treatment when in double quotes in STRING
+   using backslashes.  Return a new string. */
+char *
+sh_backslash_quote_for_double_quotes (string)
+     char *string;
+{
+  int c;
+  char *result, *r, *s;
+
+  result = xmalloc (2 * strlen (string) + 1);
+
+  for (r = result, s = string; s && (c = *s); s++)
+    {
+      if (sh_syntaxtab[c] & CBSDQUOTE)
+       *r++ = '\\';
+
+      *r++ = c;
+    }
+
+  *r = '\0';
+  return (result);
+}
+#endif /* PROMPT_STRING_DECODE */
+
 int
-contains_shell_metas (string)
+sh_contains_shell_metas (string)
      char *string;
 {
   char *s;
diff --git a/lib/sh/spell.c b/lib/sh/spell.c
new file mode 100644 (file)
index 0000000..6da6376
--- /dev/null
@@ -0,0 +1,186 @@
+/* spell.c -- spelling correction for pathnames. */
+
+/* Copyright (C) 2000 Free Software Foundation, Inc.
+
+This file is part of GNU Bash, the Bourne Again SHell.
+
+Bash 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.
+
+Bash is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or
+FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+for more details.
+
+You should have received a copy of the GNU General Public License along
+with Bash; see the file COPYING.  If not, write to the Free Software
+Foundation, 59 Temple Place, Suite 330, Boston, MA 02111 USA. */
+
+#include <config.h>
+
+#if defined (HAVE_UNISTD_H)
+#  ifdef _MINIX
+#    include <sys/types.h>
+#  endif
+#  include <unistd.h>
+#endif
+
+#include <bashtypes.h>
+#include <posixdir.h>
+#include <posixstat.h>
+#ifndef _MINIX
+#include <sys/param.h>
+#endif
+
+#include <stdio.h>
+
+#include <bashansi.h>
+#include <maxpath.h>
+
+static int mindist (), spdist ();
+
+/*
+ * `spname' and its helpers are inspired by the code in "The UNIX
+ * Programming Environment", Kernighan & Pike, Prentice-Hall 1984,
+ * pages 209 - 213.
+ */
+
+/*
+ *     `spname' -- return a correctly spelled filename
+ *
+ *     int spname(char * oldname, char * newname)
+ *     Returns:  -1 if no reasonable match found
+ *                0 if exact match found
+ *                1 if corrected
+ *     Stores corrected name in `newname'.
+ */
+int
+spname(oldname, newname)
+     char *oldname;
+     char *newname;
+{
+  char *op, *np, *p;
+  char guess[PATH_MAX + 1], best[PATH_MAX + 1];
+
+  op = oldname;
+  np = newname;
+  for (;;)
+    {
+      while (*op == '/')    /* Skip slashes */
+       *np++ = *op++;
+      *np = '\0';
+
+      if (*op == '\0')    /* Exact or corrected */
+       {
+         /* `.' is rarely the right thing. */
+         if (oldname[1] == '\0' && newname[1] == '\0' &&
+               oldname[0] != '.' && newname[0] == '.')
+           return -1;
+         return strcmp(oldname, newname) != 0;
+       }
+
+      /* Copy next component into guess */
+      for (p = guess; *op != '/' && *op != '\0'; op++)
+       if (p < guess + PATH_MAX)
+         *p++ = *op;
+      *p = '\0';
+
+      if (mindist(newname, guess, best) >= 3)
+       return -1;  /* Hopeless */
+
+      /*
+       *  Add to end of newname
+       */
+      for (p = best; *np = *p++; np++)
+       ;
+    }
+}
+
+/*
+ *  Search directory for a guess
+ */
+static int
+mindist(dir, guess, best)
+     char *dir;
+     char *guess;
+     char *best;
+{
+  DIR *fd;
+  struct dirent *dp;
+  int dist, x;
+
+  dist = 3;    /* Worst distance */
+  if (*dir == '\0')
+    dir = ".";
+
+  if ((fd = opendir(dir)) == NULL)
+    return dist;
+
+  while ((dp = readdir(fd)) != NULL)
+    {
+      /*
+       *  Look for a better guess.  If the new guess is as
+       *  good as the current one, we take it.  This way,
+       *  any single character match will be a better match
+       *  than ".".
+       */
+      x = spdist(dp->d_name, guess);
+      if (x <= dist && x != 3)
+       {
+         strcpy(best, dp->d_name);
+         dist = x;
+         if (dist == 0)    /* Exact match */
+           break;
+       }
+    }
+  (void)closedir(fd);
+
+  /* Don't return `.' */
+  if (best[0] == '.' && best[1] == '\0')
+    dist = 3;
+  return dist;
+}
+
+/*
+ *  `spdist' -- return the "distance" between two names.
+ *
+ *  int spname(char * oldname, char * newname)
+ *  Returns:  0 if strings are identical
+ *      1 if two characters are transposed
+ *      2 if one character is wrong, added or deleted
+ *      3 otherwise
+ */
+static int
+spdist(cur, new)
+     char *cur, *new;
+{
+  while (*cur == *new)
+    {
+      if (*cur == '\0')
+       return 0;    /* Exact match */
+      cur++;
+      new++;
+    }
+
+  if (*cur)
+    {
+      if (*new)
+       {
+         if (cur[1] && new[1] && cur[0] == new[1] && cur[1] == new[0] && strcmp (cur + 2, new + 2) == 0)
+           return 1;  /* Transposition */
+
+         if (strcmp (cur + 1, new + 1) == 0)
+           return 2;  /* One character mismatch */
+       }
+
+      if (strcmp(&cur[1], &new[0]) == 0)
+       return 2;    /* Extra character */
+    }
+
+  if (*new && strcmp(cur, new + 1) == 0)
+    return 2;      /* Missing character */
+
+  return 3;
+}
index 74d98cb53a8e52801215807c27f53225cea82f72..1e15c021cad127399dea379ca85c57f744d8ea1a 100644 (file)
@@ -79,7 +79,7 @@ strcasecmp (string1, string2)
   while ((r = to_lower (*s1) - to_lower (*s2)) == 0)
     {
       if (*s1++ == '\0')
-        return 0;
+       return 0;
       s2++;
     }
 
diff --git a/lib/sh/strindex.c b/lib/sh/strindex.c
new file mode 100644 (file)
index 0000000..9d3f302
--- /dev/null
@@ -0,0 +1,52 @@
+/* strindex.c - Find if one string appears as a substring of another string,
+               without regard to case. */
+
+/* Copyright (C) 2000
+   Free Software Foundation, Inc.
+
+   This file is part of GNU Bash, the Bourne Again SHell.
+
+   Bash 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.
+
+   Bash is distributed in the hope that it will be useful, but WITHOUT ANY
+   WARRANTY; without even the implied warranty of MERCHANTABILITY or
+   FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+   for more details.
+
+   You should have received a copy of the GNU General Public License along
+   with Bash; see the file COPYING.  If not, write to the Free Software
+   Foundation, 59 Temple Place, Suite 330, Boston, MA 02111 USA. */
+
+#include <config.h>
+
+#include "bashansi.h"
+#include <ctype.h>
+
+#include <stdc.h>
+
+#ifndef to_upper
+#  define to_upper(c) (islower(c) ? toupper(c) : (c))
+#  define to_lower(c) (isupper(c) ? tolower(c) : (c))
+#endif
+
+/* Determine if s2 occurs in s1.  If so, return a pointer to the
+   match in s1.  The compare is case insensitive.  This is a
+   case-insensitive strstr(3). */
+char *
+strindex (s1, s2)
+     const char *s1;
+     const char *s2;
+{
+  register int i, l, len, c;
+
+  c = to_upper (s2[0]);
+  len = strlen (s1);
+  l = strlen (s2);
+  for (i = 0; (len - i) >= l; i++)
+    if ((to_upper (s1[i]) == c) && (strncasecmp (s1 + i, s2, l) == 0))
+      return ((char *)s1 + i);
+  return ((char *)0);
+}
diff --git a/lib/sh/stringlist.c b/lib/sh/stringlist.c
new file mode 100644 (file)
index 0000000..8fc57cb
--- /dev/null
@@ -0,0 +1,248 @@
+/* stringlist.c - functions to handle a generic `list of strings' structure */
+
+/* Copyright (C) 2000 Free Software Foundation, Inc.
+
+   This file is part of GNU Bash, the Bourne Again SHell.
+
+   Bash 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.
+
+   Bash is distributed in the hope that it will be useful, but WITHOUT ANY
+   WARRANTY; without even the implied warranty of MERCHANTABILITY or
+   FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+   for more details.
+
+   You should have received a copy of the GNU General Public License along
+   with Bash; see the file COPYING.  If not, write to the Free Software
+   Foundation, 59 Temple Place, Suite 330, Boston, MA 02111 USA. */
+
+#include <config.h>
+
+#if defined (HAVE_UNISTD_H)
+#  include <unistd.h>
+#endif
+
+#include <stdio.h>
+#include "bashansi.h"
+
+#include "shell.h"
+
+#ifdef STRDUP
+#  undef STRDUP
+#endif
+#define STRDUP(x)      ((x) ? savestring (x) : (char *)NULL)
+
+/* Allocate a new STRINGLIST, with room for N strings. */
+
+STRINGLIST *
+alloc_stringlist (n)
+     int n;
+{
+  STRINGLIST *ret;
+  register int i;
+
+  ret = (STRINGLIST *)xmalloc (sizeof (STRINGLIST));
+  if (n)
+    {
+      ret->list = alloc_array (n+1);
+      ret->list_size = n;
+      for (i = 0; i < n; i++)
+       ret->list[i] = (char *)NULL;
+    }
+  else
+    {
+      ret->list = (char **)NULL;
+      ret->list_size = 0;
+    }
+  ret->list_len = 0;
+  return ret;
+}
+
+STRINGLIST *
+realloc_stringlist (sl, n)
+     STRINGLIST *sl;
+     int n;
+{
+  register int i;
+
+  if (n > sl->list_size)
+    {
+      sl->list = (char **)xrealloc (sl->list, (n+1) * sizeof (char *));
+      for (i = sl->list_size; i <= n; i++)
+       sl->list[i] = (char *)NULL;
+      sl->list_size = n;
+    }
+  return sl;
+}
+  
+void
+free_stringlist (sl)
+     STRINGLIST *sl;
+{
+  if (sl == 0)
+    return;
+  if (sl->list)
+    free_array (sl->list);
+  free (sl);
+}
+
+STRINGLIST *
+copy_stringlist (sl)
+     STRINGLIST *sl;
+{
+  STRINGLIST *new;
+  register int i;
+
+  new = alloc_stringlist (sl->list_size);
+  /* I'd like to use copy_array, but that doesn't copy everything. */
+  if (sl->list)
+    {
+      for (i = 0; i < sl->list_size; i++)
+       new->list[i] = STRDUP (sl->list[i]);
+    }
+  new->list_size = sl->list_size;
+  new->list_len = sl->list_len;
+  /* just being careful */
+  if (new->list)
+    new->list[new->list_len] = (char *)NULL;
+  return new;
+}
+
+/* Return a new STRINGLIST with everything from M1 and M2. */
+
+STRINGLIST *
+merge_stringlists (m1, m2)
+     STRINGLIST *m1, *m2;
+{
+  STRINGLIST *sl;
+  int i, n, l1, l2;
+
+  l1 = m1 ? m1->list_len : 0;
+  l2 = m2 ? m2->list_len : 0;
+
+  sl = alloc_stringlist (l1 + l2 + 1);
+  for (i = n = 0; i < l1; i++, n++)
+    sl->list[n] = STRDUP (m1->list[i]);
+  for (i = 0; i < l2; i++, n++)
+    sl->list[n] = STRDUP (m2->list[i]);
+  sl->list_len = n;
+  sl->list[n] = (char *)NULL;
+}
+
+/* Make STRINGLIST M1 contain everything in M1 and M2. */
+STRINGLIST *
+append_stringlist (m1, m2)
+     STRINGLIST *m1, *m2;
+{
+  register int i, n, len1, len2;
+
+  if (m1 == 0)
+    {
+      m1 = copy_stringlist (m2);
+      return m1;
+    }
+
+  len1 = m1->list_len;
+  len2 = m2 ? m2->list_len : 0;
+
+  if (len2)
+    {
+      m1 = realloc_stringlist (m1, len1 + len2 + 1);
+      for (i = 0, n = len1; i < len2; i++, n++)
+       m1->list[n] = STRDUP (m2->list[i]);
+      m1->list[n] = (char *)NULL;
+      m1->list_len = n;
+    }
+
+  return m1;
+}
+
+STRINGLIST *
+prefix_suffix_stringlist (sl, prefix, suffix)
+     STRINGLIST *sl;
+     char *prefix, *suffix;
+{
+  int plen, slen, tlen, llen, i;
+  char *t;
+
+  if (sl == 0 || sl->list == 0 || sl->list_len == 0)
+    return sl;
+
+  plen = STRLEN (prefix);
+  slen = STRLEN (suffix);
+
+  if (plen == 0 && slen == 0)
+    return (sl);
+
+  for (i = 0; i < sl->list_len; i++)
+    {
+      llen = STRLEN (sl->list[i]);
+      tlen = plen + llen + slen + 1;
+      t = xmalloc (tlen + 1);
+      if (plen)
+       strcpy (t, prefix);
+      strcpy (t + plen, sl->list[i]);
+      if (slen)
+       strcpy (t + plen + llen, suffix);
+      free (sl->list[i]);
+      sl->list[i] = t;
+    }
+
+  return (sl);  
+}
+   
+void
+print_stringlist (sl, prefix)
+     STRINGLIST *sl;
+     char *prefix;
+{
+  register int i;
+
+  if (sl == 0)
+    return;
+  for (i = 0; i < sl->list_len; i++)
+    printf ("%s%s\n", prefix ? prefix : "", sl->list[i]);
+}
+
+void
+sort_stringlist (sl)
+     STRINGLIST *sl;
+{
+  if (sl == 0 || sl->list_len == 0 || sl->list == 0)
+    return;
+  sort_char_array (sl->list);
+}
+
+STRINGLIST *
+word_list_to_stringlist (list, copy, starting_index, ip)
+     WORD_LIST *list;
+     int copy, starting_index, *ip;
+{
+  STRINGLIST *ret;
+  int slen, len;
+
+  slen = list_length (list);
+  ret = (STRINGLIST *)xmalloc (sizeof (STRINGLIST));
+  ret->list = word_list_to_argv (list, copy, starting_index, &len);
+  ret->list_size = slen + starting_index;
+  ret->list_len = len;
+  if (ip)
+    *ip = len;
+  return ret;
+}
+
+WORD_LIST *
+stringlist_to_word_list (sl, copy, starting_index)
+     STRINGLIST *sl;
+     int copy, starting_index;
+{
+  WORD_LIST *list;
+
+  if (sl == 0 || sl->list == 0)
+    return ((WORD_LIST *)NULL);
+
+  list = argv_to_word_list (sl->list, copy, starting_index);
+  return list;
+}
diff --git a/lib/sh/stringvec.c b/lib/sh/stringvec.c
new file mode 100644 (file)
index 0000000..977ef48
--- /dev/null
@@ -0,0 +1,141 @@
+/* stringvec.c - function for managing arrays of strings. */
+
+/* Copyright (C) 2000 Free Software Foundation, Inc.
+
+   This file is part of GNU Bash, the Bourne Again SHell.
+
+   Bash 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.
+
+   Bash is distributed in the hope that it will be useful, but WITHOUT ANY
+   WARRANTY; without even the implied warranty of MERCHANTABILITY or
+   FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+   for more details.
+
+   You should have received a copy of the GNU General Public License along
+   with Bash; see the file COPYING.  If not, write to the Free Software
+   Foundation, 59 Temple Place, Suite 330, Boston, MA 02111 USA. */
+
+#include "config.h"
+
+#include "bashtypes.h"
+
+#if defined (HAVE_UNISTD_H)
+#  include <unistd.h>
+#endif
+
+#include "bashansi.h"
+#include <stdio.h>
+#include <ctype.h>
+
+#include "shell.h"
+
+#ifdef INCLUDE_UNUSED
+/* Find NAME in ARRAY.  Return the index of NAME, or -1 if not present.
+   ARRAY should be NULL terminated. */
+int
+find_name_in_array (name, array)
+     char *name, **array;
+{
+  int i;
+
+  for (i = 0; array[i]; i++)
+    if (STREQ (name, array[i]))
+      return (i);
+
+  return (-1);
+}
+#endif
+
+/* Allocate an array of strings with room for N members. */
+char **
+alloc_array (n)
+     int n;
+{
+  return ((char **)xmalloc ((n) * sizeof (char *)));
+}
+
+/* Return the length of ARRAY, a NULL terminated array of char *. */
+int
+array_len (array)
+     char **array;
+{
+  register int i;
+
+  for (i = 0; array[i]; i++);
+  return (i);
+}
+
+/* Free the contents of ARRAY, a NULL terminated array of char *. */
+void
+free_array_members (array)
+     char **array;
+{
+  register int i;
+
+  if (array == 0)
+    return;
+
+  for (i = 0; array[i]; i++)
+    free (array[i]);
+}
+
+void
+free_array (array)
+     char **array;
+{
+  if (array == 0)
+    return;
+
+  free_array_members (array);
+  free (array);
+}
+
+/* Allocate and return a new copy of ARRAY and its contents. */
+char **
+copy_array (array)
+     char **array;
+{
+  register int i;
+  int len;
+  char **new_array;
+
+  len = array_len (array);
+
+  new_array = (char **)xmalloc ((len + 1) * sizeof (char *));
+  for (i = 0; array[i]; i++)
+    new_array[i] = savestring (array[i]);
+  new_array[i] = (char *)NULL;
+
+  return (new_array);
+}
+
+/* Comparison routine for use with qsort() on arrays of strings.  Uses
+   strcoll(3) if available, otherwise it uses strcmp(3). */
+int
+qsort_string_compare (s1, s2)
+     register char **s1, **s2;
+{
+#if defined (HAVE_STRCOLL)
+   return (strcoll (*s1, *s2));
+#else /* !HAVE_STRCOLL */
+  int result;
+
+  if ((result = **s1 - **s2) == 0)
+    result = strcmp (*s1, *s2);
+
+  return (result);
+#endif /* !HAVE_STRCOLL */
+}
+
+/* Sort ARRAY, a null terminated array of pointers to strings. */
+void
+sort_char_array (array)
+     char **array;
+{
+  qsort (array, array_len (array), sizeof (char *),
+        (Function *)qsort_string_compare);
+}
+
index 8e3aa39fc36d3dee37975cedd10360d5394ee0d9..e990932ef736009db0f60478e10e852adf9491dc 100644 (file)
@@ -204,8 +204,8 @@ noconv:
       if (save - nptr >= 2 && toupper (save[-1]) == 'X' && save[-2] == '0')
        *endptr = (char *) &save[-1];
       else
-        /*  There was no number to convert.  */
-        *endptr = (char *) nptr;
+       /*  There was no number to convert.  */
+       *endptr = (char *) nptr;
     }
 
   return 0L;
diff --git a/lib/sh/strtrans.c b/lib/sh/strtrans.c
new file mode 100644 (file)
index 0000000..7005c46
--- /dev/null
@@ -0,0 +1,205 @@
+/* strtrans.c - Translate and untranslate strings with ANSI-C escape
+               sequences. */
+
+/* Copyright (C) 2000
+   Free Software Foundation, Inc.
+
+   This file is part of GNU Bash, the Bourne Again SHell.
+
+   Bash 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.
+
+   Bash is distributed in the hope that it will be useful, but WITHOUT ANY
+   WARRANTY; without even the implied warranty of MERCHANTABILITY or
+   FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+   for more details.
+
+   You should have received a copy of the GNU General Public License along
+   with Bash; see the file COPYING.  If not, write to the Free Software
+   Foundation, 59 Temple Place, Suite 330, Boston, MA 02111 USA. */
+
+#include <config.h>
+
+#if defined (HAVE_UNISTD_H)
+#  include <unistd.h>
+#endif
+
+#include "bashansi.h"
+#include <stdio.h>
+#include <ctype.h>
+
+#include "shell.h"
+
+#ifdef ESC
+#undef ESC
+#endif
+#define ESC '\033'     /* ASCII */
+
+#ifndef ISOCTAL
+#define ISOCTAL(c)     ((c) >= '0' && (c) <= '7')
+#endif
+
+#ifndef OCTVALUE
+#define OCTVALUE(c)    ((c) - '0')
+#endif
+
+#ifndef isxdigit
+#  define isxdigit(c)  (isdigit((c)) || ((c) >= 'a' && (c) <= 'f') || ((c) >= 'A' && (c) <= 'F'))
+#endif
+
+#define HEXVALUE(c) \
+  ((c) >= 'a' && (c) <= 'f' ? (c)-'a'+10 : (c) >= 'A' && (c) <= 'F' ? (c)-'A'+10 : (c)-'0')
+
+/* Convert STRING by expanding the escape sequences specified by the
+   ANSI C standard.  If SAWC is non-null, recognize `\c' and use that
+   as a string terminator.  If we see \c, set *SAWC to 1 before
+   returning.  LEN is the length of STRING.  FOR_ECHO is a flag that
+   means, if non-zero, that we're translating a string for `echo -e',
+   and therefore should not treat a single quote as a character that
+   may be escaped with a backslash. */
+char *
+ansicstr (string, len, for_echo, sawc, rlen)
+     char *string;
+     int len, for_echo, *sawc, *rlen;
+{
+  int c, temp;
+  char *ret, *r, *s;
+
+  if (string == 0 || *string == '\0')
+    return ((char *)NULL);
+
+  ret = xmalloc (len + 1);
+  for (r = ret, s = string; s && *s; )
+    {
+      c = *s++;
+      if (c != '\\' || *s == '\0')
+       *r++ = c;
+      else
+       {
+         switch (c = *s++)
+           {
+#if defined (__STDC__)
+           case 'a': c = '\a'; break;
+           case 'v': c = '\v'; break;
+#else
+           case 'a': c = '\007'; break;
+           case 'v': c = (int) 0x0B; break;
+#endif
+           case 'b': c = '\b'; break;
+           case 'e': case 'E':         /* ESC -- non-ANSI */
+             c = ESC; break;
+           case 'f': c = '\f'; break;
+           case 'n': c = '\n'; break;
+           case 'r': c = '\r'; break;
+           case 't': c = '\t'; break;
+           case '0': case '1': case '2': case '3':
+           case '4': case '5': case '6': case '7':
+             for (temp = 2, c -= '0'; ISOCTAL (*s) && temp--; s++)
+               c = (c * 8) + OCTVALUE (*s);
+             break;
+           case 'x':                   /* Hex digit -- non-ANSI */
+             for (temp = 3, c = 0; isxdigit (*s) && temp--; s++)
+               c = (c * 16) + HEXVALUE (*s);
+             /* \x followed by non-hex digits is passed through unchanged */
+             if (temp == 3)
+               {
+                 *r++ = '\\';
+                 c = 'x';
+               }
+             break;
+           case '\\':
+             break;
+           case '\'':
+             if (for_echo)
+               *r++ = '\\';
+             break;
+           case 'c':
+             if (sawc)
+               {
+                 *sawc = 1;
+                 *r = '\0';
+                 if (rlen)
+                   *rlen = r - ret;
+                 return ret;
+               }
+           default:  *r++ = '\\'; break;
+           }
+         *r++ = c;
+       }
+    }
+  *r = '\0';
+  if (rlen)
+    *rlen = r - ret;
+  return ret;
+}
+
+/* Take a string STR, possibly containing non-printing characters, and turn it
+   into a $'...' ANSI-C style quoted string.  Returns a new string. */
+char *
+ansic_quote (str, flags, rlen)
+     char *str;
+     int flags, *rlen;
+{
+  char *r, *ret, *s, obuf[8];
+  int l, c, rsize, t;
+
+  if (str == 0 || *str == 0)
+    return ((char *)0);
+
+  l = strlen (str);
+  rsize = 2 * l + 4;
+  r = ret = xmalloc (rsize);
+
+  *r++ = '$';
+  *r++ = '\'';
+
+  for (s = str, l = 0; *s; s++)
+    {
+      c = *(unsigned char *)s;
+      l = 1;           /* 1 == add backslash; 0 == no backslash */
+      switch (c)
+       {
+       case ESC: c = 'E'; break;
+#ifdef __STDC__
+       case '\a': c = 'a'; break;
+       case '\v': c = 'v'; break;
+#else
+       case '\007': c = 'a'; break;
+       case 0x0b: c = 'v'; break;
+#endif
+
+       case '\b': c = 'b'; break;
+       case '\f': c = 'f'; break;
+       case '\n': c = 'n'; break;
+       case '\r': c = 'r'; break;
+       case '\t': c = 't'; break;
+       case '\\':
+       case '\'':
+         break;
+       default:
+         if (isprint (c) == 0)
+           {
+             sprintf (obuf, "\\%.3o", c);
+             t = r - ret;
+             RESIZE_MALLOCED_BUFFER (ret, t, 5, rsize, 16);
+             r = ret + t;      /* in case reallocated */
+             for (t = 0; t < 4; t++)
+               *r++ = obuf[t];
+             continue;
+           }
+         l = 0;
+         break;
+       }
+      if (l)
+       *r++ = '\\';
+      *r++ = c;
+    }
+
+  *r++ = '\'';
+  *r = '\0';
+  if (rlen)
+    *rlen = r - ret;
+  return ret;
+}
index 240aafe1128c25b99773679609f486aea446c715..e26e41c63cf385baf3dc60dff44b8d55f7befa1c 100644 (file)
@@ -60,7 +60,7 @@ times(tms)
 
        if (gettimeofday(&tv, (struct timezone *) 0) < 0)
                return ((clock_t)-1);
-        rv = (clock_t)(CONVTCK(tv));
+       rv = (clock_t)(CONVTCK(tv));
 #else /* !HAVE_GETRUSAGE */
        if (clk_tck == -1)
                clk_tck = get_clk_tck();
diff --git a/lib/sh/tmpfile.c b/lib/sh/tmpfile.c
new file mode 100644 (file)
index 0000000..6912e5c
--- /dev/null
@@ -0,0 +1,183 @@
+/*
+ * tmpfile.c - functions to create and safely open temp files for the shell.
+ */
+
+/* Copyright (C) 2000 Free Software Foundation, Inc.
+
+   This file is part of GNU Bash, the Bourne Again SHell.
+
+   Bash 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.
+
+   Bash is distributed in the hope that it will be useful, but WITHOUT
+   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+   or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
+   License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with Bash; see the file COPYING.  If not, write to the Free
+   Software Foundation, 59 Temple Place, Suite 330, Boston, MA 02111 USA. */
+
+#include <config.h>
+
+#include <bashtypes.h>
+#include <posixstat.h>
+#include <filecntl.h>
+
+#if defined (HAVE_UNISTD_H)
+#  include <unistd.h>
+#endif
+
+#include <stdio.h>
+#include <errno.h>
+
+#include <shell.h>
+
+#ifndef errno
+extern int errno;
+#endif
+
+#define BASEOPENFLAGS  (O_CREAT | O_TRUNC | O_EXCL)
+
+#define DEFAULT_TMPDIR         "."     /* bogus default, should be changed */
+#define DEFAULT_NAMEROOT       "shtmp"
+
+extern int dollar_dollar_pid;
+
+static char *sys_tmpdir = (char *)NULL;
+static int ntmpfiles;
+static int tmpnamelen = -1;
+static unsigned long filenum = 1L;
+
+static char *
+get_sys_tmpdir ()
+{
+  struct stat sb;
+
+  if (sys_tmpdir)
+    return sys_tmpdir;
+
+  sys_tmpdir = "/tmp";
+  if (stat (sys_tmpdir, &sb) == 0)
+    return sys_tmpdir;
+
+  sys_tmpdir = "/var/tmp";
+  if (stat (sys_tmpdir, &sb) == 0)
+    return sys_tmpdir;
+
+  sys_tmpdir = "/usr/tmp";
+  if (stat (sys_tmpdir, &sb) == 0)
+    return sys_tmpdir;
+
+#ifdef P_tmpdir
+  sys_tmpdir = P_tmpdir;
+#else
+  sys_tmpdir = DEFAULT_TMPDIR;
+#endif
+
+  return sys_tmpdir;
+}
+
+static char *
+get_tmpdir (flags)
+     int flags;
+{
+  char *tdir;
+
+  tdir = (flags & MT_USETMPDIR) ? get_string_value ("TMPDIR") : (char *)NULL;
+  if (tdir == 0)
+    tdir = get_sys_tmpdir ();
+
+#if defined (HAVE_PATHCONF) && defined (_PC_NAME_MAX)
+  if (tmpnamelen == -1)
+    tmpnamelen = pathconf (tdir, _PC_NAME_MAX);
+#else
+  tmpnamelen = 0;
+#endif
+
+  return tdir;
+}
+
+char *
+sh_mktmpname (nameroot, flags)
+     char *nameroot;
+     int flags;
+{
+  char *filename, *tdir;
+  struct stat sb;
+  int r, tdlen;
+
+  filename = xmalloc (PATH_MAX + 1);
+  tdir = get_tmpdir (flags);
+  tdlen = strlen (tdir);
+
+  if (nameroot == 0)
+    nameroot = DEFAULT_NAMEROOT;
+
+  while (1)
+    {
+      filenum *= (int)time ((time_t *)0) * dollar_dollar_pid *
+               ((flags & MT_USERANDOM) ? get_random_number () : ntmpfiles++);
+      sprintf (filename, "%s/%s-%lu", tdir, nameroot, filenum);
+      if (tmpnamelen > 0 && tmpnamelen < 32)
+       filename[tdlen + 1 + tmpnamelen] = '\0';
+#ifdef HAVE_LSTAT
+      r = lstat (filename, &sb);
+#else
+      r = stat (filename, &sb);
+#endif
+      if (r < 0 && errno == ENOENT)
+       break;
+    }
+
+  return filename;
+}
+
+int
+sh_mktmpfd (nameroot, flags, namep)
+     char *nameroot;
+     int flags;
+     char **namep;
+{
+  char *filename, *tdir;
+  int fd, tdlen;
+
+  filename = xmalloc (PATH_MAX + 1);
+  tdir = get_tmpdir (flags);
+  tdlen = strlen (tdir);
+
+  if (nameroot == 0)
+    nameroot = DEFAULT_NAMEROOT;
+
+  do
+    {
+      filenum *= (int)time ((time_t *)0) * dollar_dollar_pid *
+               ((flags & MT_USERANDOM) ? get_random_number () : ntmpfiles++);
+      sprintf (filename, "%s/%s-%lu", tdir, nameroot, filenum);
+      if (tmpnamelen > 0 && tmpnamelen < 32)
+       filename[tdlen + 1 + tmpnamelen] = '\0';
+      fd = open (filename, BASEOPENFLAGS | ((flags & MT_READWRITE) ? O_RDWR : O_WRONLY), 0600);
+    }
+  while (fd < 0 && errno == EEXIST);
+
+  if (namep)
+    *namep = filename;
+  else
+    free (filename);
+
+  return fd;
+}
+
+FILE *
+sh_mktmpfp (nameroot, flags, namep)
+     char *nameroot;
+     int flags;
+     char **namep;
+{
+  int fd;
+
+  fd = sh_mktmpfd (nameroot, flags, namep);
+  return ((fd >= 0) ? (fdopen (fd, (flags & MT_READWRITE) ? "w+" : "w")) : (FILE *)NULL);
+}
index 0b23b38da810ecfb079ff33e565ff353ff1af2da..0d5320a18002bf8a47d615903adc7b62ae62c262 100644 (file)
@@ -69,7 +69,7 @@ zread1 (fd, buf, len)
     {
       r = read (fd, buf, len);
       if (r >= 0)
-        return r;
+       return r;
       if (r == -1 && errno == EINTR)
        {
          if (++nintr > NUM_INTR)
index 25550f8f541ee8aaa889db2df20b1927918616fe..d36ca5f4773871e1f2ed23b27db09d85dfb6e23f 100644 (file)
@@ -49,6 +49,7 @@ zwrite (fd, buf, nb)
          n -= i;
          if (n <= 0)
            return nb;
+         buf += i;
        }
       else if (i == 0)
        {
index 777b6559223798df6b1c1a5073d5f5f495614afa..7f33db4db96bf8a6dee73a90d8332f58fd845b7e 100644 (file)
 #if defined (TEST) || defined (STATIC_MALLOC)
 static char *xmalloc (), *xrealloc ();
 #else
-#  if defined __STDC__
-extern char *xmalloc (int);
-extern char *xrealloc (void *, int);
-#  else
-extern char *xmalloc (), *xrealloc ();
-#  endif /* !__STDC__ */
+extern char *xmalloc __P((int));
+extern char *xrealloc __P((void *, int));
 #endif /* TEST || STATIC_MALLOC */
 
 #if !defined (HAVE_GETPW_DECLS)
-extern struct passwd *getpwuid (), *getpwnam ();
+extern struct passwd *getpwuid __P((uid_t));
+extern struct passwd *getpwnam __P((const char *));
 #endif /* !HAVE_GETPW_DECLS */
 
 #if !defined (savestring)
@@ -80,42 +77,42 @@ extern char *strcpy ();
 /* If being compiled as part of bash, these will be satisfied from
    variables.o.  If being compiled as part of readline, they will
    be satisfied from shell.o. */
-extern char *get_home_dir __P((void));
-extern char *get_env_value __P((char *));
+extern char *sh_get_home_dir __P((void));
+extern char *sh_get_env_value __P((const char *));
 
 /* The default value of tilde_additional_prefixes.  This is set to
    whitespace preceding a tilde so that simple programs which do not
    perform any word separation get desired behaviour. */
-static char *default_prefixes[] =
-  { " ~", "\t~", (char *)NULL };
+static const char *default_prefixes[] =
+  { " ~", "\t~", (const char *)NULL };
 
 /* The default value of tilde_additional_suffixes.  This is set to
    whitespace or newline so that simple programs which do not
    perform any word separation get desired behaviour. */
-static char *default_suffixes[] =
-  { " ", "\n", (char *)NULL };
+static const char *default_suffixes[] =
+  { " ", "\n", (const char *)NULL };
 
 /* If non-null, this contains the address of a function that the application
    wants called before trying the standard tilde expansions.  The function
    is called with the text sans tilde, and returns a malloc()'ed string
    which is the expansion, or a NULL pointer if the expansion fails. */
-CPFunction *tilde_expansion_preexpansion_hook = (CPFunction *)NULL;
+tilde_hook_func_t *tilde_expansion_preexpansion_hook = (tilde_hook_func_t *)NULL;
 
 /* If non-null, this contains the address of a function to call if the
    standard meaning for expanding a tilde fails.  The function is called
    with the text (sans tilde, as in "foo"), and returns a malloc()'ed string
    which is the expansion, or a NULL pointer if there is no expansion. */
-CPFunction *tilde_expansion_failure_hook = (CPFunction *)NULL;
+tilde_hook_func_t *tilde_expansion_failure_hook = (tilde_hook_func_t *)NULL;
 
 /* When non-null, this is a NULL terminated array of strings which
    are duplicates for a tilde prefix.  Bash uses this to expand
    `=~' and `:~'. */
-char **tilde_additional_prefixes = default_prefixes;
+char **tilde_additional_prefixes = (char **)default_prefixes;
 
 /* When non-null, this is a NULL terminated array of strings which match
    the end of a username, instead of just "/".  Bash sets this to
    `:' and `=~'. */
-char **tilde_additional_suffixes = default_suffixes;
+char **tilde_additional_suffixes = (char **)default_suffixes;
 
 /* Find the start of a tilde expansion in STRING, and return the index of
    the tilde which starts the expansion.  Place the length of the text
@@ -186,7 +183,7 @@ tilde_find_suffix (string)
 /* Return a new string which is the result of tilde expanding STRING. */
 char *
 tilde_expand (string)
-     char *string;
+     const char *string;
 {
   char *result;
   int result_size, result_index;
@@ -235,9 +232,9 @@ tilde_expand (string)
       free (tilde_word);
 
       len = strlen (expansion);
-#ifdef __CYGWIN32__
+#ifdef __CYGWIN__
       /* Fix for Cygwin to prevent ~user/xxx from expanding to //xxx when
-         $HOME for `user' is /.  On cygwin, // denotes a network drive. */
+        $HOME for `user' is /.  On cygwin, // denotes a network drive. */
       if (len > 1 || *expansion != '/' || *string != '/')
 #endif
        {
@@ -303,7 +300,7 @@ glue_prefix_and_suffix (prefix, suffix, suffind)
    This always returns a newly-allocated string, never static storage. */
 char *
 tilde_expand_word (filename)
-     char *filename;
+     const char *filename;
 {
   char *dirname, *expansion, *username;
   int user_len;
@@ -321,12 +318,12 @@ tilde_expand_word (filename)
   if (filename[1] == '\0' || filename[1] == '/')
     {
       /* Prefix $HOME to the rest of the string. */
-      expansion = get_env_value ("HOME");
+      expansion = sh_get_env_value ("HOME");
 
       /* If there is no HOME variable, look up the directory in
         the password database. */
       if (expansion == 0)
-       expansion = get_home_dir ();
+       expansion = sh_get_home_dir ();
 
       return (glue_prefix_and_suffix (expansion, filename, 1));
     }
index 7783fd6101a1d291900860a4c76cf9db114245c2..d3966a634eb6c7a475b5027f2f741df622d8fc24 100644 (file)
@@ -40,26 +40,31 @@ extern "C" {
 #  endif
 #endif
 
-/* Function pointers can be declared as (Function *)foo. */
-#if !defined (_FUNCTION_DEF)
-#  define _FUNCTION_DEF
-typedef int Function ();
-typedef void VFunction ();
-typedef char *CPFunction ();
-typedef char **CPPFunction ();
-#endif /* _FUNCTION_DEF */
+#if !defined (__STDC__) && !defined (__cplusplus)
+#  if defined (__GNUC__)       /* gcc with -traditional */
+#    if !defined (const)
+#      define const __const
+#    endif /* !const */
+#  else /* !__GNUC__ */
+#    if !defined (const)
+#      define const
+#    endif /* !const */
+#  endif /* !__GNUC__ */
+#endif /* !__STDC__ && !__cplusplus */
+
+typedef char *tilde_hook_func_t __P((char *));
 
 /* If non-null, this contains the address of a function that the application
    wants called before trying the standard tilde expansions.  The function
    is called with the text sans tilde, and returns a malloc()'ed string
    which is the expansion, or a NULL pointer if the expansion fails. */
-extern CPFunction *tilde_expansion_preexpansion_hook;
+extern tilde_hook_func_t *tilde_expansion_preexpansion_hook;
 
 /* If non-null, this contains the address of a function to call if the
    standard meaning for expanding a tilde fails.  The function is called
    with the text (sans tilde, as in "foo"), and returns a malloc()'ed string
    which is the expansion, or a NULL pointer if there is no expansion. */
-extern CPFunction *tilde_expansion_failure_hook;
+extern tilde_hook_func_t *tilde_expansion_failure_hook;
 
 /* When non-null, this is a NULL terminated array of strings which
    are duplicates for a tilde prefix.  Bash uses this to expand
@@ -72,11 +77,11 @@ extern char **tilde_additional_prefixes;
 extern char **tilde_additional_suffixes;
 
 /* Return a new string which is the result of tilde expanding STRING. */
-extern char *tilde_expand __P((char *));
+extern char *tilde_expand __P((const char *));
 
 /* Do the work of tilde expansion on FILENAME.  FILENAME starts with a
    tilde.  If there is no expansion, call tilde_expansion_failure_hook. */
-extern char *tilde_expand_word __P((char *));
+extern char *tilde_expand_word __P((const char *));
 
 #ifdef __cplusplus
 }
index fba962cc3a31a59cae5a46748ec840c2b84f9d8f..39ded78da9e869066364655c5077836f0bfd9c6e 100644 (file)
--- a/locale.c
+++ b/locale.c
@@ -234,12 +234,10 @@ localetrans (string, len, lenp)
   if (string == 0 || *string == 0)
     {
       if (lenp)
-        *lenp = 0;
+       *lenp = 0;
       return ((char *)NULL);
     }
 
-  t = xmalloc (len + 1);
-
   locale = get_locale_var ("LC_MESSAGES");
 
   /* If we don't have setlocale() or the current locale is `C' or `POSIX',
@@ -250,6 +248,7 @@ localetrans (string, len, lenp)
       (locale[0] == 'C' && locale[1] == '\0') || STREQ (locale, "POSIX"))
 #endif
     {
+      t = xmalloc (len + 1);
       strcpy (t, string);
       if (lenp)
        *lenp = len;
@@ -261,13 +260,13 @@ localetrans (string, len, lenp)
   translated = gettext (string);
   if (translated == string)    /* gettext returns its argument if untranslatable */
     {
+      t = xmalloc (len + 1);
       strcpy (t, string);
       if (lenp)
        *lenp = len;
     }
   else
     {
-      free (t);
       tlen = strlen (translated);
       t = xmalloc (tlen + 1);
       strcpy (t, translated);
index a4d36701bdbcd73dc57d4f0725d9daaeee272f98..329ece70e0a3efd571b867308ab9a035c96c1a30 100644 (file)
@@ -283,7 +283,7 @@ parse_mailpath_spec (str)
          continue;
        }
       if (*s == '?' || *s == '%')
-        return s;
+       return s;
     }
   return ((char *)NULL);
 }
index 867484ffce5470aa787460068b1a7fca4587fac7..64f0379e391a403049682cf9402842999a2f0d24 100644 (file)
@@ -32,6 +32,7 @@ Foundation, 59 Temple Place, Suite 330, Boston, MA 02111 USA. */
 #  include <unistd.h>
 #endif
 
+#include "syntax.h"
 #include "command.h"
 #include "general.h"
 #include "error.h"
@@ -250,7 +251,7 @@ make_arith_for_command (exprs, action, lineno)
       start = s;
       /* skip to the semicolon or EOS */
       while (*s && *s != ';')
-        s++;
+       s++;
 
       t = (s > start) ? substring (start, 0, s - start) : (char *)NULL;
 
@@ -270,7 +271,7 @@ make_arith_for_command (exprs, action, lineno)
 
       FREE (t);
       if (*s == '\0')
-        break;
+       break;
       s++;     /* skip over semicolon */
     }
 
@@ -569,7 +570,7 @@ make_here_document (temp)
       line_number++;
 
       if (kill_leading && *line)
-        {
+       {
          /* Hack:  To be compatible with some Bourne shells, we
             check the word before stripping the whitespace.  This
             is a hack, though. */
@@ -581,7 +582,7 @@ make_here_document (temp)
        }
 
       if (*line == 0)
-        continue;
+       continue;
 
       if (STREQN (line, redir_word, redir_len) && line[redir_len] == '\n')
        goto document_done;
diff --git a/mksyntax.c b/mksyntax.c
new file mode 100644 (file)
index 0000000..3f65500
--- /dev/null
@@ -0,0 +1,377 @@
+/*
+ * mksyntax.c - construct shell syntax table for fast char attribute lookup.
+ */
+
+/* Copyright (C) 2000 Free Software Foundation, Inc.
+
+   This file is part of GNU Bash, the Bourne Again SHell.
+
+   Bash 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.
+
+   Bash is distributed in the hope that it will be useful, but WITHOUT ANY
+   WARRANTY; without even the implied warranty of MERCHANTABILITY or
+   FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+   for more details.
+
+   You should have received a copy of the GNU General Public License along
+   with Bash; see the file COPYING.  If not, write to the Free Software
+   Foundation, 59 Temple Place, Suite 330, Boston, MA 02111 USA. */
+
+#include "config.h"
+#include <stdio.h>
+#include "bashansi.h"
+#include <ctype.h>
+#include <errno.h>
+
+#include "syntax.h"
+
+extern int optind;
+extern char *optarg;
+
+#ifndef errno
+extern int errno;
+#endif
+
+#ifndef HAVE_STRERROR
+extern char *strerror();
+#endif
+
+struct wordflag {
+       int     flag;
+       char    *fstr;
+} wordflags[] = {
+       { CWORD,        "CWORD" },
+       { CSHMETA,      "CSHMETA" },
+       { CSHBRK,       "CSHBRK" },
+       { CBACKQ,       "CBACKQ" },
+       { CQUOTE,       "CQUOTE" },
+       { CSPECL,       "CSPECL" },
+       { CEXP,         "CEXP" },
+       { CBSDQUOTE,    "CBSDQUOTE" },
+       { CBSHDOC,      "CBSHDOC" },
+       { CGLOB,        "CGLOB" },
+       { CXGLOB,       "CXGLOB" },
+       { CXQUOTE,      "CXQUOTE" },
+       { CSPECVAR,     "CSPECVAR" }
+};
+       
+#define N_WFLAGS       (sizeof (wordflags) / sizeof (wordflags[0]))
+#define SYNSIZE                256
+
+int    lsyntax[SYNSIZE];
+int    debug;
+char   *progname;
+
+char   preamble[] = "\
+/*\n\
+ * This file was generated by mksyntax.  DO NOT EDIT.\n\
+ */\n\
+\n";
+
+char   includes[] = "\
+#include \"stdc.h\"\n\
+#include \"syntax.h\"\n\n";
+
+static void
+usage()
+{
+  fprintf (stderr, "%s: usage: %s [-d] [-o filename]\n", progname, progname);
+  exit (2);
+}
+
+static int
+getcflag (s)
+     char *s;
+{
+  int i;
+
+  for (i = 0; i < N_WFLAGS; i++)
+    if (strcmp (s, wordflags[i].fstr) == 0)
+      return wordflags[i].flag;
+  return -1;
+}
+
+static char *
+cdesc (i)
+     int i;
+{
+  static char xbuf[16];
+
+  if (i == ' ')
+    return "SPC";
+  else if (isprint (i))
+    {
+      xbuf[0] = i;
+      xbuf[1] = '\0';
+      return (xbuf);
+    }
+  else if (i == CTLESC)
+    return "CTLESC";
+  else if (i == CTLNUL)
+    return "CTLNUL";
+  else if (i == '\033')                /* ASCII */
+    return "ESC";
+
+  xbuf[0] = '\\';
+  xbuf[2] = '\0';
+    
+  switch (i)
+    {
+    case '\a': xbuf[1] = 'a'; break;
+    case '\v': xbuf[1] = 'v'; break;
+    case '\b': xbuf[1] = 'b'; break;
+    case '\f': xbuf[1] = 'f'; break;
+    case '\n': xbuf[1] = 'n'; break;
+    case '\r': xbuf[1] = 'r'; break;
+    case '\t': xbuf[1] = 't'; break;
+    default: sprintf (xbuf, "%d", i); break;
+    }
+
+  return xbuf; 
+}
+
+static char *
+getcstr (f)
+     int f;
+{
+  int i;
+
+  for (i = 0; i < N_WFLAGS; i++)
+    if (f == wordflags[i].flag)
+      return (wordflags[i].fstr);
+  return ((char *)NULL);
+}
+
+static void
+addcstr (str, flag)
+     char *str;
+     int flag;
+{
+  unsigned char *s;
+  char *fstr;
+
+  for (s = (unsigned char *)str; s && *s; s++)
+    {
+      if (debug)
+       {
+         fstr = getcstr (flag);
+         fprintf(stderr, "added %s for character %s\n", fstr, cdesc(*s));
+       }
+       
+      lsyntax[*s] |= flag;
+    }
+}
+
+static void
+addcchar (c, flag)
+     unsigned char c;
+     int flag;
+{
+  char *fstr;
+
+  if (debug)
+    {
+      fstr = getcstr (flag);
+      fprintf (stderr, "added %s for character %s\n", fstr, cdesc(c));
+    }
+  lsyntax[c] |= flag;
+}
+
+/* load up the correct flag values in lsyntax */
+static void
+load_lsyntax ()
+{
+  /* shell metacharacters */
+  addcstr (shell_meta_chars, CSHMETA);
+
+  /* shell word break characters */
+  addcstr (shell_break_chars, CSHBRK);
+
+  addcchar ('`', CBACKQ);
+
+  addcstr (shell_quote_chars, CQUOTE);
+
+  addcchar (CTLESC, CSPECL);
+  addcchar (CTLNUL, CSPECL);
+
+  addcstr (shell_exp_chars, CEXP);
+
+  addcstr (slashify_in_quotes, CBSDQUOTE);
+  addcstr (slashify_in_here_document, CBSHDOC);
+
+  addcstr (shell_glob_chars, CGLOB);
+
+#if defined (EXTENDED_GLOB)
+  addcstr (ext_glob_chars, CXGLOB);
+#endif
+
+  addcstr (shell_quote_chars, CXQUOTE);
+  addcchar ('\\', CXQUOTE);
+
+  addcstr ("@*#?-$!", CSPECVAR);       /* omits $0...$9 and $_ */
+}
+
+static void
+dump_lflags (fp, ind)
+     FILE *fp;
+     int ind;
+{
+  int xflags, first, i;
+
+  xflags = lsyntax[ind];
+  first = 1;
+
+  if (xflags == 0)
+    fputs (wordflags[0].fstr, fp);
+  else
+    {
+      for (i = 1; i < N_WFLAGS; i++)
+       if (xflags & wordflags[i].flag)
+         {
+           if (first)
+             first = 0;
+           else
+             putc ('|', fp);
+           fputs (wordflags[i].fstr, fp);
+         }
+    }
+}
+
+static void
+wcomment (fp, i)
+     FILE *fp;
+     int i;
+{
+  fputs ("\t\t/* ", fp);
+
+  fprintf (fp, "%s", cdesc(i));
+      
+  fputs (" */", fp);
+}
+
+static void
+dump_lsyntax (fp)
+     FILE *fp;
+{
+  int i, cflag;
+  char *cstr;
+
+  fprintf (fp, "const int sh_syntaxtab[%d] = {\n", SYNSIZE);
+
+  for (i = 0; i < SYNSIZE; i++)
+    {
+      putc ('\t', fp);
+      dump_lflags (fp, i);
+      putc (',', fp);
+      wcomment (fp, i);
+      putc ('\n', fp);
+    }
+
+  fprintf (fp, "};\n");
+}
+
+main(argc, argv)
+     int argc;
+     char **argv;
+{
+  int opt, i;
+  char *filename;
+  FILE *fp;
+
+  if ((progname = strrchr (argv[0], '/')) == 0)
+    progname = argv[0];
+  else
+    progname++;
+
+  filename = (char *)NULL;
+  debug = 0;
+
+  while ((opt = getopt (argc, argv, "do:")) != EOF)
+    {
+      switch (opt)
+       {
+       case 'd':
+         debug = 1;
+         break;
+       case 'o':
+         filename = optarg;
+         break;
+       default:
+         usage();
+       }
+    }
+
+  argc -= optind;
+  argv += optind;
+
+  if (filename)
+    {
+      fp = fopen (filename, "w");
+      if (fp == 0)
+       {
+         fprintf (stderr, "%s: %s: cannot open: %s\n", progname, filename, strerror(errno));
+         exit (1);
+       }
+    }
+  else
+    {
+      filename = "stdout";
+      fp = stdout;
+    }
+
+
+  for (i = 0; i < SYNSIZE; i++)
+    lsyntax[i] = CWORD;
+
+  load_lsyntax ();
+
+  fprintf (fp, "%s\n", preamble);
+  fprintf (fp, "%s\n", includes);
+
+  dump_lsyntax (fp);
+
+  if (fp != stdout)
+    fclose (fp);
+  exit (0);
+}
+
+
+#if !defined (HAVE_STRERROR)
+
+#include <bashtypes.h>
+#ifndef _MINIX
+#  include <sys/param.h>
+#endif
+
+#if defined (HAVE_UNISTD_H)
+#  include <unistd.h>
+#endif
+
+/* Return a string corresponding to the error number E.  From
+   the ANSI C spec. */
+#if defined (strerror)
+#  undef strerror
+#endif
+
+char *
+strerror (e)
+     int e;
+{
+  static char emsg[40];
+#if defined (HAVE_SYS_ERRLIST)
+  extern int sys_nerr;
+  extern char *sys_errlist[];
+
+  if (e > 0 && e < sys_nerr)
+    return (sys_errlist[e]);
+  else
+#endif /* HAVE_SYS_ERRLIST */
+    {
+      sprintf (emsg, "Unknown system error %d", e);
+      return (&emsg[0]);
+    }
+}
+#endif /* HAVE_STRERROR */
index ce426061af61e3df07329b1dfbb7cd1c8ecaca53..ca9b9fad805827812d419a19c49af4a4371aea59 100644 (file)
--- a/nojobs.c
+++ b/nojobs.c
@@ -83,7 +83,7 @@ extern int errno;
 #endif /* !errno */
 
 #if defined (READLINE)
-extern void _rl_set_screen_size (); 
+extern void rl_set_screen_size __P((int, int));
 #endif
 
 extern int interactive, interactive_shell, login_shell;
@@ -288,7 +288,7 @@ mark_dead_jobs_as_notified (force)
        continue;
       if (((pid_list[i].flags & PROC_RUNNING) == 0) &&
           (pid_list[i].flags & PROC_ASYNC))
-        ndead++;
+       ndead++;
     }
 
   if (force == 0 && ndead <= CHILD_MAX)
@@ -364,9 +364,9 @@ get_new_window_size (from_sig)
 #if defined (aixpc)
       shell_tty_info.c_winsize = win;  /* structure copying */
 #endif
-      set_lines_and_columns (win.ws_row, win.ws_col);
+      sh_set_lines_and_columns (win.ws_row, win.ws_col);
 #if defined (READLINE)
-      _rl_set_screen_size (win.ws_row, win.ws_col);
+      rl_set_screen_size (win.ws_row, win.ws_col);
 #endif
     }
 }
@@ -569,7 +569,7 @@ wait_for_single_pid (pid)
          break;
        }
       else if (got_pid > 0)
-        set_pid_status (got_pid, status);
+       set_pid_status (got_pid, status);
     }
 
   set_pid_status (got_pid, status);
@@ -649,10 +649,13 @@ wait_sigint_handler (sig)
       longjmp (wait_intr_buf, 1);
     }
 
-#if 0
-  /* Run a trap handler if one has been defined. */
-  maybe_call_trap_handler (sig);
-#endif
+  if (interrupt_immediately)
+    {
+      last_command_exit_value = EXECUTION_FAILURE;
+      restore_sigint_handler ();
+      ADDINTERRUPT;
+      QUIT;
+    }
 
   wait_sigint_received = 1;
 
@@ -808,8 +811,9 @@ set_tty_state ()
 }
 
 /* Give the terminal to PGRP.  */
-give_terminal_to (pgrp)
+give_terminal_to (pgrp, force)
      pid_t pgrp;
+     int force;
 {
 }
 
diff --git a/parse.y b/parse.y
index 3c37c73eb54665762257ea5d4bc3abb4f6701bcc..f9d33eed92cb51653d8856eded4a2035a85790a3 100644 (file)
--- a/parse.y
+++ b/parse.y
@@ -24,6 +24,8 @@
 #include "bashtypes.h"
 #include "bashansi.h"
 
+#include "filecntl.h"
+
 #if defined (HAVE_UNISTD_H)
 #  include <unistd.h>
 #endif
@@ -77,9 +79,6 @@
 #define YYDEBUG 0
 
 #if defined (EXTENDED_GLOB)
-#define PATTERN_CHAR(c) \
-       ((c) == '@' || (c) == '*' || (c) == '+' || (c) == '?' || (c) == '!')
-
 extern int extended_glob;
 #endif
 
@@ -127,6 +126,10 @@ static void reset_readline_prompt ();
 #endif
 static void print_prompt ();
 
+#if defined (HISTORY)
+char *history_delimiting_chars ();
+#endif
+
 extern int yyerror ();
 
 /* Default prompt strings */
@@ -220,7 +223,7 @@ static REDIRECTEE redir;
 %type <command> arith_command
 %type <command> cond_command
 %type <command> arith_for_command
-%type <command> function_def if_command elif_clause subshell
+%type <command> function_def function_body if_command elif_clause subshell
 %type <redirect> redirection redirection_list
 %type <element> simple_command_element
 %type <word_list> word_list pattern
@@ -462,25 +465,6 @@ command:   simple_command
                          COMMAND *tc;
 
                          tc = $1;
-                         /* According to Posix.2 3.9.5, redirections
-                            specified after the body of a function should
-                            be attached to the function and performed when
-                            the function is executed, not as part of the
-                            function definition command. */
-                         /* XXX - I don't think it matters, but we might
-                            want to change this in the future to avoid
-                            problems differentiating between a function
-                            definition with a redirection and a function
-                            definition containing a single command with a
-                            redirection.  The two are semantically equivalent,
-                            though -- the only difference is in how the
-                            command printing code displays the redirections. */
-                         if (tc->type == cm_function_def)
-                           {
-                             tc = tc->value.Function_def->command;
-                             if (tc->type == cm_group)
-                               tc = tc->value.Group->command;
-                           }
                          if (tc->redirects)
                            {
                              register REDIRECT *t;
@@ -492,6 +476,8 @@ command:    simple_command
                            tc->redirects = $2;
                          $$ = $1;
                        }
+       |       function_def
+                       { $$ = $1; }
        ;
 
 shell_command: for_command
@@ -516,8 +502,6 @@ shell_command:      for_command
                        { $$ = $1; }
        |       arith_for_command
                        { $$ = $1; }
-       |       function_def
-                       { $$ = $1; }
        ;
 
 for_command:   FOR WORD newline_list DO compound_list DONE
@@ -538,7 +522,12 @@ arith_for_command: FOR ARITH_FOR_EXPRS list_terminator newline_list DO compound_
                                { $$ = make_arith_for_command ($2, $6, arith_for_lineno); }
        |               FOR ARITH_FOR_EXPRS list_terminator newline_list '{' compound_list '}'
                                { $$ = make_arith_for_command ($2, $6, arith_for_lineno); }
+       |               FOR ARITH_FOR_EXPRS DO compound_list DONE
+                               { $$ = make_arith_for_command ($2, $4, arith_for_lineno); }
+       |               FOR ARITH_FOR_EXPRS '{' compound_list '}'
+                               { $$ = make_arith_for_command ($2, $4, arith_for_lineno); }
        ;
+
 select_command:        SELECT WORD newline_list DO list DONE
                        {
                          $$ = make_select_command ($2, add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), $5);
@@ -573,17 +562,50 @@ case_command:     CASE WORD newline_list IN newline_list ESAC
                        { $$ = make_case_command ($2, $5); }
        ;
 
-function_def:  WORD '(' ')' newline_list group_command
+function_def:  WORD '(' ')' newline_list function_body
                        { $$ = make_function_def ($1, $5, function_dstart, function_bstart); }
 
-
-       |       FUNCTION WORD '(' ')' newline_list group_command
+       |       FUNCTION WORD '(' ')' newline_list function_body
                        { $$ = make_function_def ($2, $6, function_dstart, function_bstart); }
 
-       |       FUNCTION WORD newline_list group_command
+       |       FUNCTION WORD newline_list function_body
                        { $$ = make_function_def ($2, $4, function_dstart, function_bstart); }
        ;
 
+
+function_body: shell_command
+                       { $$ = $1; }
+       |       shell_command redirection_list
+                       {
+                         COMMAND *tc;
+
+                         tc = $1;
+                         /* According to Posix.2 3.9.5, redirections
+                            specified after the body of a function should
+                            be attached to the function and performed when
+                            the function is executed, not as part of the
+                            function definition command. */
+                         /* XXX - I don't think it matters, but we might
+                            want to change this in the future to avoid
+                            problems differentiating between a function
+                            definition with a redirection and a function
+                            definition containing a single command with a
+                            redirection.  The two are semantically equivalent,
+                            though -- the only difference is in how the
+                            command printing code displays the redirections. */
+                         if (tc->redirects)
+                           {
+                             register REDIRECT *t;
+                             for (t = tc->redirects; t->next; t = t->next)
+                               ;
+                             t->next = $2;
+                           }
+                         else
+                           tc->redirects = $2;
+                         $$ = $1;
+                       }
+       ;
+
 subshell:      '(' compound_list ')'
                        {
                          $$ = make_subshell_command ($2);
@@ -600,7 +622,7 @@ if_command: IF compound_list THEN compound_list FI
        ;
 
 
-group_command: '{' list '}'
+group_command: '{' compound_list '}'
                        { $$ = make_group_command ($2); }
        ;
 
@@ -809,15 +831,6 @@ timespec:  TIME
 #define TOKEN_DEFAULT_INITIAL_SIZE 496
 #define TOKEN_DEFAULT_GROW_SIZE 512
 
-/* Shell meta-characters that, when unquoted, separate words. */
-#define shellmeta(c)   (strchr (shell_meta_chars, (c)) != 0)
-#define shellbreak(c)  (strchr (shell_break_chars, (c)) != 0)
-#define shellquote(c)  ((c) == '"' || (c) == '`' || (c) == '\'')
-#define shellexp(c)    ((c) == '$' || (c) == '<' || (c) == '>')
-
-char *shell_meta_chars = "()<>;&|";
-char *shell_break_chars = "()<>;&| \t\n";
-
 /* The token currently being read. */
 static int current_token;
 
@@ -966,7 +979,7 @@ yy_readline_get ()
 
 #if defined (JOB_CONTROL)
       if (job_control)
-       give_terminal_to (shell_pgrp);
+       give_terminal_to (shell_pgrp, 0);
 #endif /* JOB_CONTROL */
 
       if (signal_is_ignored (SIGINT) == 0)
@@ -1196,18 +1209,20 @@ pop_stream ()
         save stack, update the buffered fd to the new file descriptor and
         re-establish the buffer <-> bash_input fd correspondence. */
       if (bash_input.type == st_bstream && bash_input.location.buffered_fd >= 0)
-        {
-          if (bash_input_fd_changed)
+       {
+         if (bash_input_fd_changed)
            {
              bash_input_fd_changed = 0;
              if (default_buffered_input >= 0)
                {
                  bash_input.location.buffered_fd = default_buffered_input;
                  saver->bstream->b_fd = default_buffered_input;
+                 SET_CLOSE_ON_EXEC (default_buffered_input);
                }
            }
+         /* XXX could free buffered stream returned as result here. */
          set_buffered_stream (bash_input.location.buffered_fd, saver->bstream);
-        }
+       }
 #endif /* BUFFERED_INPUT */
 
       line_number = saver->line;
@@ -1412,8 +1427,14 @@ read_a_line (remove_quoted_newline)
       /* Allow immediate exit if interrupted during input. */
       QUIT;
 
+      /* Ignore null bytes in input. */
       if (c == 0)
-       continue;
+       {
+#if 0
+         internal_warning ("read_a_line: ignored null byte in input");
+#endif
+         continue;
+       }
 
       /* If there is no more input, then we return NULL. */
       if (c == EOF)
@@ -1435,10 +1456,10 @@ read_a_line (remove_quoted_newline)
         need to treat the backslash specially only if a backslash
         quoting a backslash-newline pair appears in the line. */
       if (pass_next)
-        {
+       {
          line_buffer[indx++] = c;
          pass_next = 0;
-        }
+       }
       else if (c == '\\' && remove_quoted_newline)
        {
          peekc = yy_getc ();
@@ -1516,8 +1537,8 @@ STRING_INT_ALIST word_token_alist[] = {
 };
 
 /* XXX - we should also have an alist with strings for other tokens, so we
-         can give more descriptive error messages.  Look at y.tab.h for the
-         other tokens. */
+        can give more descriptive error messages.  Look at y.tab.h for the
+        other tokens. */
 
 /* These are used by read_token_word, but appear up here so that shell_getc
    can use them to decide when to add otherwise blank lines to the history. */
@@ -1553,6 +1574,11 @@ static struct dstack temp_dstack = { (char *)NULL, 0, 0 };
    read the next line.  This is called by read_token when the shell is
    processing normal command input. */
 
+/* This implements one-character lookahead/lookbehind across physical input
+   lines, to avoid something being lost because it's pushed back with
+   shell_ungetc when we're at the start of a line. */
+static int eol_ungetc_lookahead = 0;
+
 static int
 shell_getc (remove_quoted_newline)
      int remove_quoted_newline;
@@ -1563,6 +1589,13 @@ shell_getc (remove_quoted_newline)
 
   QUIT;
 
+  if (eol_ungetc_lookahead)
+    {
+      c = eol_ungetc_lookahead;
+      eol_ungetc_lookahead = 0;
+      return (c);
+    }
+
 #if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
   /* If shell_input_line[shell_input_line_index] == 0, but there is
      something on the pushed list of strings, then we don't want to go
@@ -1604,11 +1637,21 @@ shell_getc (remove_quoted_newline)
       if (bash_input.type == st_stream)
        clearerr (stdin);
 
-      while (c = yy_getc ())
+      while (1)
        {
+         c = yy_getc ();
+
          /* Allow immediate exit if interrupted during input. */
          QUIT;
 
+         if (c == '\0')
+           {
+#if 0
+             internal_warning ("shell_getc: ignored null byte in input");
+#endif
+             continue;
+           }
+
          RESIZE_MALLOCED_BUFFER (shell_input_line, i, 2, shell_input_line_size, 256);
 
          if (c == EOF)
@@ -1632,6 +1675,7 @@ shell_getc (remove_quoted_newline)
              break;
            }
        }
+
       shell_input_line_index = 0;
       shell_input_line_len = i;                /* == strlen (shell_input_line) */
 
@@ -1663,20 +1707,29 @@ shell_getc (remove_quoted_newline)
                current_command_line_count--;
 
              /* We have to force the xrealloc below because we don't know
-                the true allocated size of shell_input_line anymore. */
+                the true allocated size of shell_input_line anymore. */
              shell_input_line_size = shell_input_line_len;
            }
        }
-      /* XXX - this is grotesque */
+      /* Try to do something intelligent with blank lines encountered while
+        entering multi-line commands.  XXX - this is grotesque */
       else if (remember_on_history && shell_input_line &&
               shell_input_line[0] == '\0' &&
-              current_command_line_count > 1 && current_delimiter (dstack))
+              current_command_line_count > 1)
        {
-         /* We know shell_input_line[0] == 0 and we're reading some sort of
-            quoted string.  This means we've got a line consisting of only
-            a newline in a quoted string.  We want to make sure this line
-            gets added to the history. */
-         maybe_add_history (shell_input_line);
+         if (current_delimiter (dstack))
+           /* We know shell_input_line[0] == 0 and we're reading some sort of
+              quoted string.  This means we've got a line consisting of only
+              a newline in a quoted string.  We want to make sure this line
+              gets added to the history. */
+           maybe_add_history (shell_input_line);
+         else
+           {
+             char *hdcs;
+             hdcs = history_delimiting_chars ();
+             if (hdcs && hdcs[0] == ';')
+               maybe_add_history (shell_input_line);
+           }
        }
 
 #endif /* HISTORY */
@@ -1732,18 +1785,18 @@ shell_getc (remove_quoted_newline)
   if (!c && (pushed_string_list != (STRING_SAVER *)NULL))
     {
       if (mustpop)
-        {
-          pop_string ();
-          c = shell_input_line[shell_input_line_index];
+       {
+         pop_string ();
+         c = shell_input_line[shell_input_line_index];
          if (c)
            shell_input_line_index++;
          mustpop--;
-        }
+       }
       else
-        {
-          mustpop++;
-          c = ' ';
-        }
+       {
+         mustpop++;
+         c = ' ';
+       }
     }
 #endif /* ALIAS || DPAREN_ARITHMETIC */
 
@@ -1760,6 +1813,8 @@ shell_ungetc (c)
 {
   if (shell_input_line && shell_input_line_index)
     shell_input_line[--shell_input_line_index] = c;
+  else
+    eol_ungetc_lookahead = c;
 }
 
 static void
@@ -1974,8 +2029,8 @@ time_command_acceptable ()
     case DO:
     case THEN:
     case ELSE:
-    case '{':
-    case '(':
+    case '{':          /* } */
+    case '(':          /* ) */
       return 1;
     default:
       return 0;
@@ -1996,9 +2051,10 @@ time_command_acceptable ()
        to be set
 
        `{' is recognized if the last token as WORD and the token
-       before that was FUNCTION.
+       before that was FUNCTION, or if we just parsed an arithmetic
+       `for' command.
 
-       `}' is recognized if there is an unclosed `{' prsent.
+       `}' is recognized if there is an unclosed `{' present.
 
        `-p' is returned as TIMEOPT if the last read token was TIME.
 
@@ -2066,6 +2122,16 @@ special_case_tokens (token)
        }
     }
 
+  /* We allow a `do' after a for ((...)) without an intervening
+     list_terminator */
+  if (last_read_token == ARITH_FOR_EXPRS && token[0] == 'd' && token[1] == 'o' && !token[2])
+    return (DO);
+  if (last_read_token == ARITH_FOR_EXPRS && token[0] == '{' && token[1] == '\0')       /* } */
+    {
+      open_brace_count++;
+      return ('{');                    /* } */
+    }
+
   if (open_brace_count && reserved_word_acceptable (last_read_token) && token[0] == '}' && !token[1])
     {
       open_brace_count--;              /* { */
@@ -2263,7 +2329,7 @@ read_token (command)
                  if (cmdtyp == 1)
                    {
                      /* parse_arith_cmd adds quotes at the beginning and end
-                        of the string it returns; we need to take those out. */
+                        of the string it returns; we need to take those out. */
                      len = strlen (wval);
                      wv2 = xmalloc (len);
                      strncpy (wv2, wval + 1, len - 2);
@@ -2342,7 +2408,7 @@ read_token (command)
        parser_state |= PST_SUBSHELL;
       /*(*/
       else if ((parser_state & PST_CASEPAT) && character == ')')
-        parser_state &= ~PST_CASEPAT;
+       parser_state &= ~PST_CASEPAT;
       /*(*/
       else if ((parser_state & PST_SUBSHELL) && character == ')')
        parser_state &= ~PST_SUBSHELL;
@@ -2386,8 +2452,8 @@ parse_matched_pair (qc, open, close, lenp, flags)
      int *lenp, flags;
 {
   int count, ch, was_dollar;
-  int pass_next_character, nestlen, start_lineno;
-  char *ret, *nestret;
+  int pass_next_character, nestlen, ttranslen, start_lineno;
+  char *ret, *nestret, *ttrans;
   int retind, retsize;
 
   count = 1;
@@ -2440,7 +2506,7 @@ parse_matched_pair (qc, open, close, lenp, flags)
 #if 1
       /* handle nested ${...} specially. */
       else if (open != close && was_dollar && open == '{' && ch == open) /* } */
-        count++;
+       count++;
 #endif
       else if (((flags & P_FIRSTCLOSE) == 0) && ch == open)            /* nested begin */
        count++;
@@ -2465,13 +2531,40 @@ parse_matched_pair (qc, open, close, lenp, flags)
            {
              /* '', ``, or "" inside $(...) or other grouping construct. */
              push_delimiter (dstack, ch);
-             nestret = parse_matched_pair (ch, ch, ch, &nestlen, 0);
+             if (was_dollar && ch == '\'')     /* $'...' inside group */
+               nestret = parse_matched_pair (ch, ch, ch, &nestlen, P_ALLOWESC);
+             else
+               nestret = parse_matched_pair (ch, ch, ch, &nestlen, 0);
              pop_delimiter (dstack);
              if (nestret == &matched_pair_error)
                {
                  free (ret);
                  return &matched_pair_error;
                }
+             if (was_dollar && ch == '\'')
+               {
+                 /* Translate $'...' here. */
+                 ttrans = ansiexpand (nestret, 0, nestlen - 1, &ttranslen);
+                 free (nestret);
+                 nestret = sh_single_quote (ttrans);
+                 free (ttrans);
+                 nestlen = strlen (nestret);
+                 retind -= 2;          /* back up before the $' */
+               }
+             else if (was_dollar && ch == '"')
+               {
+                 /* Locale expand $"..." here. */
+                 ttrans = localeexpand (nestret, 0, nestlen - 1, start_lineno, &ttranslen);
+                 free (nestret);
+                 nestret = xmalloc (ttranslen + 3);
+                 nestret[0] = '"';
+                 strcpy (nestret + 1, ttrans);
+                 nestret[ttranslen + 1] = '"';
+                 nestret[ttranslen += 2] = '\0';
+                 free (ttrans);
+                 nestlen = ttranslen;
+                 retind -= 2;          /* back up before the $" */
+               }
              if (nestlen)
                {
                  RESIZE_MALLOCED_BUFFER (ret, retind, nestlen, retsize, 64);
@@ -2696,14 +2789,16 @@ cond_term ()
       /* binop */
       tok = read_token (READ);
       if (tok == WORD && test_binop (yylval.word->word))
-        op = yylval.word;
+       op = yylval.word;
       else if (tok == '<' || tok == '>')
-        op = make_word_from_token (tok);
-      else if (tok == COND_END || tok == AND_AND || tok == OR_OR)
+       op = make_word_from_token (tok);  /* ( */
+      /* There should be a check before blindly accepting the `)' that we have
+        seen the opening `('. */
+      else if (tok == COND_END || tok == AND_AND || tok == OR_OR || tok == ')')
        {
          /* Special case.  [[ x ]] is equivalent to [[ -n x ]], just like
             the test command.  Similarly for [[ x && expr ]] or
-            [[ x || expr ]] */
+            [[ x || expr ]] or [[ (x) ]]. */
          op = make_word ("-n");
          term = make_cond_node (COND_UNARY, op, tleft, (COND_COM *)NULL);
          cond_token = tok;
@@ -2789,7 +2884,7 @@ read_token_word (character)
     token = xrealloc (token, token_buffer_size = TOKEN_DEFAULT_INITIAL_SIZE);
 
   token_index = 0;
-  all_digits = digit (character);
+  all_digits = isdigit (character);
   dollar_present = quoted = pass_next_character = 0;
 
   for (;;)
@@ -2824,7 +2919,7 @@ read_token_word (character)
 
              /* If the next character is to be quoted, note it now. */
              if (cd == 0 || cd == '`' ||
-                 (cd == '"' && member (peek_char, slashify_in_quotes)))
+                 (cd == '"' && (sh_syntaxtab[peek_char] & CBSDQUOTE)))
                pass_next_character++;
 
              quoted = 1;
@@ -2854,7 +2949,7 @@ read_token_word (character)
 
 #ifdef EXTENDED_GLOB
       /* Parse a ksh-style extended pattern matching specification. */
-      if (extended_glob && PATTERN_CHAR(character))
+      if (extended_glob && PATTERN_CHAR (character))
        {
          peek_char = shell_getc (1);
          if (peek_char == '(')         /* ) */
@@ -2882,11 +2977,7 @@ read_token_word (character)
 
       /* If the delimiter character is not single quote, parse some of
         the shell expansions that must be read as a single word. */
-#if defined (PROCESS_SUBSTITUTION)
-      if (character == '$' || character == '<' || character == '>')
-#else
-      if (character == '$')
-#endif /* !PROCESS_SUBSTITUTION */
+      if (shellexp (character))
        {
          peek_char = shell_getc (1);
          /* $(...), <(...), >(...), $((...)), ${...}, and $[...] constructs */
@@ -2894,7 +2985,7 @@ read_token_word (character)
                ((peek_char == '{' || peek_char == '[') && character == '$'))   /* ) ] } */
            {
              if (peek_char == '{')             /* } */
-               ttok = parse_matched_pair (cd, '{', '}', &ttoklen, P_FIRSTCLOSE);
+               ttok = parse_matched_pair (cd, '{', '}', &ttoklen, P_FIRSTCLOSE);
              else if (peek_char == '(')                /* ) */
                {
                  /* XXX - push and pop the `(' as a delimiter for use by
@@ -2942,7 +3033,7 @@ read_token_word (character)
                  /* Insert the single quotes and correctly quote any
                     embedded single quotes (allowed because P_ALLOWESC was
                     passed to parse_matched_pair). */
-                 ttok = single_quote (ttrans);
+                 ttok = sh_single_quote (ttrans);
                  free (ttrans);
                  ttrans = ttok;
                  ttranslen = strlen (ttrans);
@@ -3035,7 +3126,7 @@ read_token_word (character)
 
     got_character:
 
-      all_digits &= digit (character);
+      all_digits &= isdigit (character);
       dollar_present |= character == '$';
 
       if (character == CTLESC || character == CTLNUL)
@@ -3181,7 +3272,7 @@ mk_msgstr (string, foundnlp)
       if (*s == '"' || *s == '\\')
        len++;
       else if (*s == '\n')
-        len += 5;
+       len += 5;
     }
   
   r = result = xmalloc (len + 3);
@@ -3380,9 +3471,9 @@ history_delimiting_chars ()
       /* This does not work for subshells inside case statement
         command lists.  It's a suboptimal solution. */
       else if (parser_state & PST_CASESTMT)    /* case statement pattern */
-        return " ";
+       return " ";
       else     
-        return "; ";                           /* (...) subshell */
+       return "; ";                            /* (...) subshell */
     }
   else if (token_before_that == WORD && two_tokens_ago == FUNCTION)
     return " ";                /* function def using `function name' without `()' */
@@ -3392,7 +3483,7 @@ history_delimiting_chars ()
       /* Tricky.  `for i\nin ...' should not have a semicolon, but
         `for i\ndo ...' should.  We do what we can. */
       for (i = shell_input_line_index; whitespace(shell_input_line[i]); i++)
-        ;
+       ;
       if (shell_input_line[i] && shell_input_line[i] == 'i' && shell_input_line[i+1] == 'n')
        return " ";
       return ";";
@@ -3560,7 +3651,6 @@ decode_prompt_string (string)
 
              if (n == CTLESC || n == CTLNUL)
                {
-                 string += 3;
                  temp[0] = CTLESC;
                  temp[1] = n;
                  temp[2] = '\0';
@@ -3572,11 +3662,13 @@ decode_prompt_string (string)
                }
              else
                {
-                 string += 3;
                  temp[0] = n;
                  temp[1] = '\0';
                }
 
+             for (c = 0; n != -1 && c < 3 && ISOCTAL (*string); c++)
+               string++;
+
              c = 0;
              goto add_string;
 
@@ -3655,7 +3747,7 @@ decode_prompt_string (string)
                  {
                    if (getcwd (t_string, sizeof(t_string)) == 0)
                      {
-                       t_string[0] = '.';
+                       t_string[0] = '.';
                        tlen = 1;
                      }
                    else
@@ -3668,12 +3760,19 @@ decode_prompt_string (string)
                  }
                t_string[tlen] = '\0';
 
+#define ROOT_PATH(x)   ((x)[0] == '/' && (x)[1] == 0)
+#define DOUBLE_SLASH_ROOT(x)   ((x)[0] == '/' && (x)[1] == '/' && (x)[2] == 0)
                if (c == 'W')
                  {
-                   t = strrchr (t_string, '/');
-                   if (t && t != t_string)
-                     strcpy (t_string, t + 1);
+                   if (ROOT_PATH (t_string) == 0 && DOUBLE_SLASH_ROOT (t_string) == 0)
+                     {
+                       t = strrchr (t_string, '/');
+                       if (t)
+                         strcpy (t_string, t + 1);
+                     }
                  }
+#undef ROOT_PATH
+#undef DOUBLE_SLASH_ROOT
                else
                  /* polite_directory_format is guaranteed to return a string
                     no longer than PATH_MAX - 1 characters. */
@@ -3682,14 +3781,10 @@ decode_prompt_string (string)
                /* If we're going to be expanding the prompt string later,
                   quote the directory name. */
                if (promptvars || posixly_correct)
-#if 0
-                 temp = backslash_quote (t_string);
-#else
                  /* Make sure that expand_prompt_string is called with a
                     second argument of Q_DOUBLE_QUOTE if we use this
                     function here. */
-                 temp = backslash_quote_for_double_quotes (t_string);
-#endif
+                 temp = sh_backslash_quote_for_double_quotes (t_string);
                else
                  temp = savestring (t_string);
 
@@ -3804,11 +3899,7 @@ decode_prompt_string (string)
      the prompt string. */
   if (promptvars || posixly_correct)
     {
-#if 0
-      list = expand_string_unsplit (result, Q_DOUBLE_QUOTES);
-#else
       list = expand_prompt_string (result, Q_DOUBLE_QUOTES);
-#endif
       free (result);
       result = string_list (list);
       dispose_words (list);
@@ -3998,6 +4089,7 @@ parse_string_to_word_list (s, whom)
 {
   WORD_LIST *wl;
   int tok, orig_line_number, orig_input_terminator;
+  int orig_line_count;
 #if defined (HISTORY)
   int old_remember_on_history, old_history_expansion_inhibited;
 #endif
@@ -4011,10 +4103,12 @@ parse_string_to_word_list (s, whom)
 #endif
 
   orig_line_number = line_number;
+  orig_line_count = current_command_line_count;
   orig_input_terminator = shell_input_line_terminator;
 
   push_stream (1);
   last_read_token = '\n';
+  current_command_line_count = 0;
 
   with_input_from_string (s, whom);
   wl = (WORD_LIST *)NULL;
@@ -4022,6 +4116,8 @@ parse_string_to_word_list (s, whom)
     {
       if (tok == '\n' && *bash_input.location.string == '\0')
        break;
+      if (tok == '\n')         /* Allow newlines in compound assignments */
+       continue;
       if (tok != WORD && tok != ASSIGNMENT_WORD)
        {
          line_number = orig_line_number + line_number - 1;
@@ -4044,6 +4140,7 @@ parse_string_to_word_list (s, whom)
 #  endif /* BANG_HISTORY */
 #endif /* HISTORY */
 
+  current_command_line_count = orig_line_count;
   shell_input_line_terminator = orig_input_terminator;
 
   if (wl == &parse_string_error)
index 03e9ce0f54fc5d2ecc008cfd8893de9bbbda3c6c..c8e1ac21444182e25ebb41dcc015728114fb2354 100644 (file)
@@ -1,3 +1,46 @@
+#ifndef YYERRCODE
+#define YYERRCODE 256
+#endif
+
+#define IF 257
+#define THEN 258
+#define ELSE 259
+#define ELIF 260
+#define FI 261
+#define CASE 262
+#define ESAC 263
+#define FOR 264
+#define SELECT 265
+#define WHILE 266
+#define UNTIL 267
+#define DO 268
+#define DONE 269
+#define FUNCTION 270
+#define COND_START 271
+#define COND_END 272
+#define COND_ERROR 273
+#define IN 274
+#define BANG 275
+#define TIME 276
+#define TIMEOPT 277
+#define WORD 278
+#define ASSIGNMENT_WORD 279
+#define NUMBER 280
+#define ARITH_CMD 281
+#define ARITH_FOR_EXPRS 282
+#define COND_CMD 283
+#define AND_AND 284
+#define OR_OR 285
+#define GREATER_GREATER 286
+#define LESS_LESS 287
+#define LESS_AND 288
+#define GREATER_AND 289
+#define SEMI_SEMI 290
+#define LESS_LESS_MINUS 291
+#define AND_GREATER 292
+#define LESS_GREATER 293
+#define GREATER_BAR 294
+#define yacc_EOF 295
 typedef union {
   WORD_DESC *word;             /* the word that we read. */
   int number;                  /* the number that we read. */
@@ -7,45 +50,4 @@ typedef union {
   ELEMENT element;
   PATTERN_LIST *pattern;
 } YYSTYPE;
-#define        IF      258
-#define        THEN    259
-#define        ELSE    260
-#define        ELIF    261
-#define        FI      262
-#define        CASE    263
-#define        ESAC    264
-#define        FOR     265
-#define        SELECT  266
-#define        WHILE   267
-#define        UNTIL   268
-#define        DO      269
-#define        DONE    270
-#define        FUNCTION        271
-#define        COND_START      272
-#define        COND_END        273
-#define        COND_ERROR      274
-#define        IN      275
-#define        BANG    276
-#define        TIME    277
-#define        TIMEOPT 278
-#define        WORD    279
-#define        ASSIGNMENT_WORD 280
-#define        NUMBER  281
-#define        ARITH_CMD       282
-#define        ARITH_FOR_EXPRS 283
-#define        COND_CMD        284
-#define        AND_AND 285
-#define        OR_OR   286
-#define        GREATER_GREATER 287
-#define        LESS_LESS       288
-#define        LESS_AND        289
-#define        GREATER_AND     290
-#define        SEMI_SEMI       291
-#define        LESS_LESS_MINUS 292
-#define        AND_GREATER     293
-#define        LESS_GREATER    294
-#define        GREATER_BAR     295
-#define        yacc_EOF        296
-
-
 extern YYSTYPE yylval;
index 6f0f5472258bbbf6751c4ada9c141ed6f5952b92..90ef72d8405d106acd151ed321a4745d42038141 100644 (file)
--- a/pathexp.c
+++ b/pathexp.c
@@ -101,7 +101,7 @@ unquoted_glob_pattern_p (string)
    to match a filename should be performed. */
 char *
 quote_string_for_globbing (pathname, qflags)
-     char *pathname;
+     const char *pathname;
      int qflags;
 {
   char *temp;
@@ -118,13 +118,13 @@ quote_string_for_globbing (pathname, qflags)
   for (i = j = 0; pathname[i]; i++)
     {
       if (pathname[i] == CTLESC)
-        {
-          if ((qflags & QGLOB_FILENAME) && pathname[i+1] == '/')
-            continue;
+       {
+         if ((qflags & QGLOB_FILENAME) && pathname[i+1] == '/')
+           continue;
          temp[j++] = '\\';
-        }
+       }
       else
-        temp[j++] = pathname[i];
+       temp[j++] = pathname[i];
     }
   temp[j] = '\0';
 
@@ -141,21 +141,21 @@ quote_globbing_chars (string)
   for (t = temp, s = string; *s; )
     {
       switch (*s)
-        {
-        case '*':
-        case '[':
-        case ']':
-        case '?':
-        case '\\':
-          *t++ = '\\';
-          break;
-        case '+':
-        case '@':
-        case '!':
+       {
+       case '*':
+       case '[':
+       case ']':
+       case '?':
+       case '\\':
+         *t++ = '\\';
+         break;
+       case '+':
+       case '@':
+       case '!':
          if (s[1] == '(')      /*(*/
            *t++ = '\\';
          break;
-        }
+       }
       *t++ = *s++;
     }
   *t = '\0';
@@ -165,11 +165,11 @@ quote_globbing_chars (string)
 /* Call the glob library to do globbing on PATHNAME. */
 char **
 shell_glob_filename (pathname)
-     char *pathname;
+     const char *pathname;
 {
 #if defined (USE_POSIX_GLOB_LIBRARY)
   register int i;
-  char *temp, **return_value;
+  char *temp, **results;
   glob_t filenames;
   int glob_flags;
 
@@ -189,7 +189,7 @@ shell_glob_filename (pathname)
 
   free (temp);
 
-  if (i == GLOB_NOSPACE || i == GLOB_ABEND)
+  if (i == GLOB_NOSPACE || i == GLOB_ABORTED)
     return ((char **)NULL);
   else if (i == GLOB_NOMATCH)
     filenames.gl_pathv = (char **)NULL;
@@ -292,7 +292,7 @@ glob_name_is_acceptable (name)
   for (p = globignore.ignores; p->val; p++)
     {
       if (fnmatch (p->val, name, flags) != FNM_NOMATCH)
-        return (0);
+       return (0);
     }
   return (1);
 }
@@ -318,7 +318,7 @@ ignore_globbed_names (names, name_func)
   for (n = i = 0; names[i]; i++)
     {
       if ((*name_func) (names[i]))
-        newnames[n++] = names[i];
+       newnames[n++] = names[i];
       else
        free (names[i]);
     }
@@ -400,7 +400,7 @@ setup_ignore_patterns (ivp)
       ivp->ignores[numitems].len = strlen (colon_bit);
       ivp->ignores[numitems].flags = 0;
       if (ivp->item_func)
-        (*ivp->item_func) (&ivp->ignores[numitems]);
+       (*ivp->item_func) (&ivp->ignores[numitems]);
       numitems++;
     }
   ivp->ignores[numitems].val = (char *)NULL;
index 929065483d0f6410b809c5f623fdcdc78797d6e0..688938e26846c7f3cd2e7840b99ad7ffb1303067 100644 (file)
--- a/pathexp.h
+++ b/pathexp.h
@@ -56,12 +56,12 @@ extern int unquoted_glob_pattern_p __P((char *));
    pattern while executing a case statement), flags should include
    QGLOB_CVTNULL.  If flags includes QGLOB_FILENAME, appropriate quoting
    to match a filename should be performed. */
-extern char *quote_string_for_globbing __P((char *, int));
+extern char *quote_string_for_globbing __P((const char *, int));
 
 extern char *quote_globbing_chars __P((char *));
 
 /* Call the glob library to do globbing on PATHNAME. */
-extern char **shell_glob_filename __P((char *));
+extern char **shell_glob_filename __P((const char *));
 
 /* Filename completion ignore.  Used to the "fignore" facility of
    tcsh and GLOBIGNORE (like ksh-93 FIGNORE).
index a1fc04545ac14ed854766c9219f3e8ab15b7a43a..b954d3e65cf1d360a52c47c89015ea31fdc2e9bb 100644 (file)
@@ -78,7 +78,6 @@ typedef SHELL_VAR **SVFUNC ();
 extern char *strpbrk __P((char *, char *));
 #endif
 
-extern int rl_filename_completion_desired;
 extern int array_needs_making;
 extern STRING_INT_ALIST word_token_alist[];
 extern char *signal_names[];
@@ -209,132 +208,6 @@ clean_itemlist (itp)
   itp->flags &= ~(LIST_DONTFREE|LIST_DONTFREEMEMBERS|LIST_INITIALIZED|LIST_DIRTY);
 }
 
-/* Functions to manage the string lists -- lists of matches.  These should
-   really be moved to a separate file. */
-
-/* Allocate a new STRINGLIST, with room for N strings. */
-STRINGLIST *
-alloc_stringlist (n)
-     int n;
-{
-  STRINGLIST *ret;
-  register int i;
-
-  ret = (STRINGLIST *)xmalloc (sizeof (STRINGLIST));
-  if (n)
-    {
-      ret->list = alloc_array (n+1);
-      ret->list_size = n;
-      for (i = 0; i < n; i++)
-       ret->list[i] = (char *)NULL;
-    }
-  else
-    {
-      ret->list = (char **)NULL;
-      ret->list_size = 0;
-    }
-  ret->list_len = 0;
-  return ret;
-}
-
-STRINGLIST *
-realloc_stringlist (sl, n)
-     STRINGLIST *sl;
-     int n;
-{
-  register int i;
-
-  if (n > sl->list_size)
-    {
-      sl->list = (char **)xrealloc (sl->list, (n+1) * sizeof (char *));
-      for (i = sl->list_size; i <= n; i++)
-       sl->list[i] = (char *)NULL;
-      sl->list_size = n;
-    }
-  return sl;
-}
-  
-void
-free_stringlist (sl)
-     STRINGLIST *sl;
-{
-  if (sl == 0)
-    return;
-  if (sl->list)
-    free_array (sl->list);
-  free (sl);
-}
-
-STRINGLIST *
-copy_stringlist (sl)
-     STRINGLIST *sl;
-{
-  STRINGLIST *new;
-  register int i;
-
-  new = alloc_stringlist (sl->list_size);
-  /* I'd like to use copy_array, but that doesn't copy everything. */
-  if (sl->list)
-    {
-      for (i = 0; i < sl->list_size; i++)
-       new->list[i] = STRDUP (sl->list[i]);
-    }
-  new->list_size = sl->list_size;
-  new->list_len = sl->list_len;
-  /* just being careful */
-  if (new->list)
-    new->list[new->list_len] = (char *)NULL;
-  return new;
-}
-
-/* Return a new STRINGLIST with everything from M1 and M2. */
-
-STRINGLIST *
-merge_stringlists (m1, m2)
-     STRINGLIST *m1, *m2;
-{
-  STRINGLIST *sl;
-  int i, n, l1, l2;
-
-  l1 = m1 ? m1->list_len : 0;
-  l2 = m2 ? m2->list_len : 0;
-
-  sl = alloc_stringlist (l1 + l2 + 1);
-  for (i = n = 0; i < l1; i++, n++)
-    sl->list[n] = STRDUP (m1->list[i]);
-  for (i = 0; i < l2; i++, n++)
-    sl->list[n] = STRDUP (m2->list[i]);
-  sl->list_len = n;
-  sl->list[n] = (char *)NULL;
-}
-
-/* Make STRINGLIST M1 contain everything in M1 and M2. */
-STRINGLIST *
-append_stringlist (m1, m2)
-     STRINGLIST *m1, *m2;
-{
-  register int i, n, len1, len2;
-
-  if (m1 == 0)
-    {
-      m1 = copy_stringlist (m2);
-      return m1;
-    }
-
-  len1 = m1->list_len;
-  len2 = m2 ? m2->list_len : 0;
-
-  if (len2)
-    {
-      m1 = realloc_stringlist (m1, len1 + len2 + 1);
-      for (i = 0, n = len1; i < len2; i++, n++)
-       m1->list[n] = STRDUP (m2->list[i]);
-      m1->list[n] = (char *)NULL;
-      m1->list_len = n;
-    }
-
-  return m1;
-}
 
 static int
 shouldexp_filterpat (s)
@@ -405,55 +278,8 @@ filter_stringlist (sl, filterpat, text)
   return ret;
 }
 
-STRINGLIST *
-prefix_suffix_stringlist (sl, prefix, suffix)
-     STRINGLIST *sl;
-     char *prefix, *suffix;
-{
-  int plen, slen, tlen, llen, i;
-  char *t;
-
-  if (sl == 0 || sl->list == 0 || sl->list_len == 0)
-    return sl;
-
-  plen = STRLEN (prefix);
-  slen = STRLEN (suffix);
-
-  if (plen == 0 && slen == 0)
-    return (sl);
-
-  for (i = 0; i < sl->list_len; i++)
-    {
-      llen = STRLEN (sl->list[i]);
-      tlen = plen + llen + slen + 1;
-      t = xmalloc (tlen + 1);
-      if (plen)
-       strcpy (t, prefix);
-      strcpy (t + plen, sl->list[i]);
-      if (slen)
-       strcpy (t + plen + llen, suffix);
-      free (sl->list[i]);
-      sl->list[i] = t;
-    }
-
-  return (sl);  
-}
-   
-void
-print_stringlist (sl, prefix)
-     STRINGLIST *sl;
-     char *prefix;
-{
-  register int i;
-
-  if (sl == 0)
-    return;
-  for (i = 0; i < sl->list_len; i++)
-    printf ("%s%s\n", prefix ? prefix : "", sl->list[i]);
-}
-
-/* Turn an array of strings returned by completion_matches into a STRINGLIST.
-   This understands how completion_matches sets matches[0] (the lcd of the
+/* Turn an array of strings returned by rl_completion_matches into a STRINGLIST.
+   This understands how rl_completion_matches sets matches[0] (the lcd of the
    strings in the list, unless it's the only match). */
 STRINGLIST *
 completions_to_stringlist (matches)
@@ -554,7 +380,7 @@ it_init_bindings (itp)
   STRINGLIST *sl;
 
   /* rl_funmap_names allocates blist, but not its members */
-  blist = rl_funmap_names ();
+  blist = (char **)rl_funmap_names ();
   sl = alloc_stringlist (0);
   sl->list = blist;
   sl->list_size = 0;
@@ -683,7 +509,7 @@ it_init_joblist (itp, jstate)
          t = strpbrk (s, " \t\n");
          if (t)
            *t = '\0';
-       sl->list[sl->list_len++] = s;
+         sl->list[sl->list_len++] = s;
        }
     }
   itp->slist = sl;
@@ -789,7 +615,7 @@ it_init_shopts (itp)
 static STRINGLIST *
 gen_matches_from_itemlist (itp, text)
      ITEMLIST *itp;
-     char *text;
+     const char *text;
 {
   STRINGLIST *ret, *sl;
   int tlen, i, n;
@@ -814,11 +640,11 @@ gen_matches_from_itemlist (itp, text)
   return ret;
 }
 
-/* A wrapper for filename_completion_function that dequotes the filename
+/* A wrapper for rl_filename_completion_function that dequotes the filename
    before attempting completions. */
 static char *
 pcomp_filename_completion_function (text, state)
-     char *text;
+     const char *text;
      int state;
 {
   static char *dfn;    /* dequoted filename */
@@ -831,13 +657,13 @@ pcomp_filename_completion_function (text, state)
       if (rl_filename_dequoting_function)
        {
          qc = (text[0] == '"' || text[0] == '\'') ? text[0] : 0;
-         dfn = (*rl_filename_dequoting_function) (text, qc);
+         dfn = (*rl_filename_dequoting_function) ((char *)text, qc);
        }
       else
        dfn = savestring (text);
     }
 
-  return (filename_completion_function (dfn, state));
+  return (rl_filename_completion_function (dfn, state));
 }
 
 #define GEN_COMPS(bmap, flag, it, text, glist, tlist) \
@@ -854,7 +680,7 @@ pcomp_filename_completion_function (text, state)
   do { \
     if (bmap & flag) \
       { \
-       cmatches = completion_matches (text, func); \
+       cmatches = rl_completion_matches (text, func); \
        tlist = completions_to_stringlist (cmatches); \
        glist = append_stringlist (glist, tlist); \
        free_array (cmatches); \
@@ -867,10 +693,10 @@ pcomp_filename_completion_function (text, state)
 static STRINGLIST *
 gen_action_completions (cs, text)
      COMPSPEC *cs;
-     char *text;
+     const char *text;
 {
   STRINGLIST *ret, *tmatches;
-  char **cmatches;     /* from completion_matches ... */
+  char **cmatches;     /* from rl_completion_matches ... */
   unsigned long flags;
 
   ret = tmatches = (STRINGLIST *)NULL;
@@ -896,7 +722,7 @@ gen_action_completions (cs, text)
 
   GEN_XCOMPS(flags, CA_COMMAND, text, command_word_completion_function, cmatches, ret, tmatches);
   GEN_XCOMPS(flags, CA_FILE, text, pcomp_filename_completion_function, cmatches, ret, tmatches);
-  GEN_XCOMPS(flags, CA_USER, text, username_completion_function, cmatches, ret, tmatches);
+  GEN_XCOMPS(flags, CA_USER, text, rl_username_completion_function, cmatches, ret, tmatches);
 
   /* And lastly, the special case for directories */
   if (flags & CA_DIRECTORY)
@@ -919,7 +745,7 @@ gen_action_completions (cs, text)
 static STRINGLIST *
 gen_globpat_matches (cs, text)
       COMPSPEC *cs;
-      char *text;
+      const char *text;
 {
   STRINGLIST *sl;
   char *t;
@@ -938,7 +764,7 @@ gen_globpat_matches (cs, text)
 static STRINGLIST *
 gen_wordlist_matches (cs, text)
      COMPSPEC *cs;
-     char *text;
+     const char *text;
 {
   WORD_LIST *l, *l2;
   STRINGLIST *sl;
@@ -965,7 +791,7 @@ gen_wordlist_matches (cs, text)
   for (nw = 0, l = l2; l; l = l->next)
     {
       if (tlen == 0 || STREQN (l->word->word, text, tlen))
-        sl->list[nw++] = STRDUP (l->word->word);
+       sl->list[nw++] = STRDUP (l->word->word);
     }
   sl->list[sl->list_len = nw] = (char *)NULL;
 
@@ -1117,8 +943,8 @@ gen_shell_function_matches (cs, text, line, ind, lwords, nw, cw)
   f = find_function (funcname);
   if (f == 0)
     {
-      fprintf (stderr, "gen_shell_function_matches: function `%s' not found\n", funcname);
-      ding ();
+      internal_error ("completion: function `%s' not found", funcname);
+      rl_ding ();
       rl_on_new_line ();
       return ((STRINGLIST *)NULL);
     }
@@ -1205,7 +1031,7 @@ gen_command_matches (cs, text, line, ind, lwords, nw, cw)
   cscmd[cmdlen++] = ' ';
   for (cl = cmdlist->next; cl; cl = cl->next)   /* $1, $2, $3, ... */
     {
-      t = single_quote (cl->word->word ? cl->word->word : "");
+      t = sh_single_quote (cl->word->word ? cl->word->word : "");
       n = strlen (t);
       RESIZE_MALLOCED_BUFFER (cscmd, cmdlen, n + 2, cmdsize, 64);
       strcpy (cscmd + cmdlen, t);
@@ -1272,8 +1098,8 @@ command_line_to_word_list (line, llen, sentinel, nwp, cwp)
 STRINGLIST *
 gen_compspec_completions (cs, cmd, word, start, end)
      COMPSPEC *cs;
-     char *cmd;
-     char *word;
+     const char *cmd;
+     const char *word;
      int start, end;
 {
   STRINGLIST *ret, *tmatches;
@@ -1410,6 +1236,20 @@ gen_compspec_completions (cs, cmd, word, start, end)
   if (cs->prefix || cs->suffix)
     ret = prefix_suffix_stringlist (ret, cs->prefix, cs->suffix);
 
+  /* If no matches have been generated and the user has specified that
+      directory completion should be done as a default, call
+      gen_action_completions again to generate a list of matching directory
+      names. */
+  if ((ret == 0 || ret->list_len == 0) && (cs->options & COPT_DIRNAMES))
+    {
+      COMPSPEC *dummy;
+
+      dummy = alloc_compspec ();
+      dummy->actions = CA_DIRECTORY;
+      ret = gen_action_completions (dummy, word);
+      free_compspec (dummy);
+    }
+
   return (ret);
 }
 
@@ -1418,7 +1258,8 @@ gen_compspec_completions (cs, cmd, word, start, end)
    bound the command currently being completed in rl_line_buffer. */
 char **
 programmable_completions (cmd, word, start, end, foundp)
-     char *cmd, *word;
+     const char *cmd;
+     const char *word;
      int start, end, *foundp;
 {
   COMPSPEC *cs;
@@ -1441,9 +1282,10 @@ programmable_completions (cmd, word, start, end, foundp)
       return ((char **)NULL);
     }
 
-  /* Signal the caller that we found a COMPSPEC for this command. */
+  /* Signal the caller that we found a COMPSPEC for this command, and pass
+     back any meta-options associated with the compspec. */
   if (foundp)
-    *foundp = 1;
+    *foundp = 1|cs->options;
 
   ret = gen_compspec_completions (cs, cmd, word, start, end);
 
index 607b5d039197430c63347ae5dcb1079aa818702c..32fc58137abfbb132b4af9d97ccc77be629feba9 100644 (file)
@@ -28,6 +28,7 @@
 typedef struct compspec {
   int refcount;
   unsigned long actions;
+  unsigned long options;
   char *globpat;
   char *words;
   char *prefix;
@@ -62,13 +63,11 @@ typedef struct compspec {
 #define CA_USER                (1<<20)
 #define CA_VARIABLE    (1<<21)
 
-/* This is a general-purpose argv-style array struct that should be used
-   elsewhere. */
-typedef struct _list_of_strings {
-  char **list;
-  int list_size;
-  int list_len;
-} STRINGLIST;
+/* Values for COMPSPEC options field. */
+#define COPT_RESERVED  (1<<0)          /* reserved for other use */
+#define COPT_DEFAULT   (1<<1)
+#define COPT_FILENAMES (1<<2)
+#define COPT_DIRNAMES  (1<<3)
 
 /* List of items is used by the code that implements the programmable
    completions. */
@@ -133,14 +132,14 @@ extern int add_progcomp __P((char *, COMPSPEC *));
 
 extern int num_progcomps __P((void));
 
-extern COMPSPEC *find_compspec __P((char *));
+extern COMPSPEC *find_compspec __P((const char *));
 
 extern void print_all_compspecs __P((VFunction *));
 
 /* Functions from pcomplete.c */
 extern void set_itemlist_dirty __P((ITEMLIST *));
 
-extern STRINGLIST *gen_compspec_completions __P((COMPSPEC *, char *, char *, int, int));
-extern char **programmable_completions __P((char *, char *, int, int, int *));
+extern STRINGLIST *gen_compspec_completions __P((COMPSPEC *, const char *, const char *, int, int));
+extern char **programmable_completions __P((const char *, const char *, int, int, int *));
 
 #endif /* _PCOMPLETE_H_ */
index 133c6f40744e654ca35197a797bd565d70949d94..d531cf578241efd87d1d928d19283cd5e5e8909d 100644 (file)
@@ -52,6 +52,7 @@ alloc_compspec ()
   ret->refcount = 0;
 
   ret->actions = (unsigned long)0;
+  ret->options = (unsigned long)0;
 
   ret->globpat = (char *)NULL;
   ret->words = (char *)NULL;
@@ -93,6 +94,7 @@ copy_compspec (cs)
 
   new->refcount = cs->refcount;
   new->actions = cs->actions;
+  new->options = cs->options;
 
   new->globpat = STRDUP (cs->globpat);
   new->words = STRDUP (cs->words);
@@ -185,7 +187,7 @@ add_progcomp (cmd, cs)
 
 COMPSPEC *
 find_compspec (cmd)
-     char *cmd;
+     const char *cmd;
 {
   register BUCKET_CONTENTS *item;
   COMPSPEC *cs;
@@ -193,7 +195,7 @@ find_compspec (cmd)
   if (prog_completes == 0)
     return ((COMPSPEC *)NULL);
 
-  item = find_hash_item (cmd, prog_completes);
+  item = find_hash_item ((char *)cmd, prog_completes); /* XXX fix const later */
 
   if (item == NULL)
     return ((COMPSPEC *)NULL);
index 51cebf121b0388bbd6e2eeccfb33356007690d1f..9c362d3f3956154433f01e6b35f507a820a3f4f6 100644 (file)
@@ -320,9 +320,9 @@ xtrace_print_word_list (list)
       t = w->word->word;
       if (t == 0 || *t == '\0')
        fprintf (stderr, "''%s", w->next ? " " : "");
-      else if (contains_shell_metas (t))
+      else if (sh_contains_shell_metas (t))
        {
-         x = single_quote (t);
+         x = sh_single_quote (t);
          fprintf (stderr, "%s%s", x, w->next ? " " : "");
          free (x);
        }
@@ -581,6 +581,7 @@ print_cond_command (cond)
   cprintf (" ]]");
 }
 
+#ifdef DEBUG
 void
 debug_print_cond_command (cond)
      COND_COM *cond;
@@ -590,6 +591,7 @@ debug_print_cond_command (cond)
   print_cond_command (cond);
   fprintf (stderr, "%s\n", the_printed_command);
 }
+#endif
 
 void
 xtrace_print_cond_term (type, invert, op, arg1, arg2)
@@ -688,10 +690,10 @@ print_redirection_list (redirects)
     {
       cprintf (" "); 
       for (hdtail = heredocs; hdtail; hdtail = hdtail->next)
-        {
+       {
          print_redirection (hdtail);
          cprintf ("\n");
-        }
+       }
       dispose_redirects (heredocs);
       was_heredoc = 1;
     }
@@ -741,12 +743,12 @@ print_redirection (redirect)
        cprintf ("%d", redirector);
       /* If the here document delimiter is quoted, single-quote it. */
       if (redirect->redirectee.filename->flags & W_QUOTED)
-        {
-          char *x;
-          x = single_quote (redirect->here_doc_eof);
+       {
+         char *x;
+         x = sh_single_quote (redirect->here_doc_eof);
          cprintf ("<<%s%s\n", kill_leading? "-" : "", x);
-          free (x);
-        }
+         free (x);
+       }
       else
        cprintf ("<<%s%s\n", kill_leading? "-" : "", redirect->here_doc_eof);
       cprintf ("%s%s",
@@ -814,12 +816,11 @@ print_function_def (func)
   inside_function_def++;
   indentation += indentation_amount;
 
-  func_redirects = (REDIRECT *)NULL;
   cmdcopy = copy_command (func->command);
   if (cmdcopy->type == cm_group)
     {
-      func_redirects = cmdcopy->value.Group->command->redirects;
-      cmdcopy->value.Group->command->redirects = (REDIRECT *)NULL;
+      func_redirects = cmdcopy->redirects;
+      cmdcopy->redirects = (REDIRECT *)NULL;
     }
   make_command_string_internal (cmdcopy->type == cm_group
                                        ? cmdcopy->value.Group->command
@@ -833,7 +834,7 @@ print_function_def (func)
     { /* { */
       newline ("} ");
       print_redirection_list (func_redirects);
-      cmdcopy->value.Group->command->redirects = func_redirects;
+      cmdcopy->redirects = func_redirects;
     }
   else
     newline ("}");
@@ -887,8 +888,8 @@ named_function_string (name, command, multi_line)
   func_redirects = (REDIRECT *)NULL;
   if (cmdcopy->type == cm_group)
     {
-      func_redirects = cmdcopy->value.Group->command->redirects;
-      cmdcopy->value.Group->command->redirects = (REDIRECT *)NULL;
+      func_redirects = cmdcopy->redirects;
+      cmdcopy->redirects = (REDIRECT *)NULL;
     }
   make_command_string_internal (cmdcopy->type == cm_group
                                        ? cmdcopy->value.Group->command
@@ -902,7 +903,7 @@ named_function_string (name, command, multi_line)
     { /* { */
       newline ("} ");
       print_redirection_list (func_redirects);
-      cmdcopy->value.Group->command->redirects = func_redirects;
+      cmdcopy->redirects = func_redirects;
     }
   else
     newline ("}");
@@ -921,7 +922,7 @@ named_function_string (name, command, multi_line)
          }
 #else
       if (result[2] == '\n')   /* XXX -- experimental */
-        strcpy (result + 2, result + 3);
+       strcpy (result + 2, result + 3);
 #endif
     }
 
diff --git a/redir.c b/redir.c
index e3dd3d5456445b15433c026c83fa18eda835533b..faa76974c16c7ec73f9f0b2152c758f76cb68d3b 100644 (file)
--- a/redir.c
+++ b/redir.c
@@ -91,7 +91,7 @@ redirection_error (temp, error)
        }
       filename = redirection_expand (temp->redirectee.filename);
       if (posixly_correct && interactive_shell == 0)
-        temp->redirectee.filename->flags = oflags;
+       temp->redirectee.filename->flags = oflags;
       if (filename == 0)
        filename = savestring (temp->redirectee.filename->word);
       if (filename == 0)
@@ -252,7 +252,7 @@ write_here_document (fd, redirectee)
          return (errno);
        }
       else
-        return 0;
+       return 0;
     }
 
   tlist = expand_string (redirectee->word, Q_HERE_DOCUMENT);
@@ -302,23 +302,18 @@ static int
 here_document_to_fd (redirectee)
      WORD_DESC *redirectee;
 {
-  char filename[24];
+  char *filename;
   int r, fd, fd2;
   static int fnum = 0;
 
-  do
-    {
-      /* Make the filename for the temp file. */
-      sprintf (filename, "/tmp/t%d-%d-sh", (int)getpid (), fnum++);
-
-      /* Make sure we open it exclusively. */
-      fd = open (filename, O_TRUNC | O_WRONLY | O_CREAT | O_EXCL, 0600);
-    }
-  while (fd < 0 && errno == EEXIST);
+  fd = sh_mktmpfd ("sh-thd", MT_USERANDOM, &filename);
 
   /* If we failed for some reason other than the file existing, abort */
   if (fd < 0)
-    return (fd);
+    {
+      FREE (filename);
+      return (fd);
+    }
 
   errno = r = 0;               /* XXX */
   /* write_here_document returns 0 on success, errno on failure. */
@@ -329,6 +324,7 @@ here_document_to_fd (redirectee)
     {
       close (fd);
       unlink (filename);
+      free (filename);
       errno = r;
       return (-1);
     }
@@ -342,6 +338,7 @@ here_document_to_fd (redirectee)
     {
       r = errno;
       unlink (filename);
+      free (filename);
       close (fd);
       errno = r;
       return -1;
@@ -351,11 +348,21 @@ here_document_to_fd (redirectee)
   if (unlink (filename) < 0)
     {
       r = errno;
+#if defined (__CYGWIN__)
+      /* Under CygWin 1.1.0, the unlink will fail if the file is
+        open. This hack will allow the previous action of silently
+        ignoring the error, but will still leave the file there. This
+        needs some kind of magic. */
+      if (r == EACCES)
+       return (fd2);
+#endif /* __CYGWIN__ */
       close (fd2);
+      free (filename);
       errno = r;
       return (-1);
     }
 
+  free (filename);
   return (fd2);
 }
 
@@ -503,7 +510,7 @@ redir_open (filename, flags, mode, ri)
 
   /* If we are in noclobber mode, you are not allowed to overwrite
      existing files.  Check before opening. */
-  if (noclobber && OUTPUT_REDIRECT (ri))
+  if (noclobber && CLOBBERING_REDIRECT (ri))
     {
       fd = noclobber_open (filename, flags, mode, ri);
       if (fd == NOCLOBBER_REDIRECT)
@@ -571,13 +578,8 @@ do_redirection_internal (redirect, for_real, remembering, set_clexec)
        }
       else if (ri == r_duplicating_output_word && redirector == 1)
        {
-         if (posixly_correct == 0)
-           {
-             rd.filename = make_bare_word (redirectee_word);
-             new_redirect = make_redirection (1, r_err_and_out, rd);
-           }
-         else
-           new_redirect = copy_redirect (redirect);
+         rd.filename = make_bare_word (redirectee_word);
+         new_redirect = make_redirection (1, r_err_and_out, rd);
        }
       else
        {
@@ -627,10 +629,10 @@ do_redirection_internal (redirect, for_real, remembering, set_clexec)
     case r_input_output:
     case r_output_force:
       if (posixly_correct && interactive_shell == 0)
-        {
-          oflags = redirectee->flags;
-          redirectee->flags |= W_NOGLOB;
-        }
+       {
+         oflags = redirectee->flags;
+         redirectee->flags |= W_NOGLOB;
+       }
       redirectee_word = redirection_expand (redirectee);
       if (posixly_correct && interactive_shell == 0)
        redirectee->flags = oflags;
@@ -650,7 +652,7 @@ do_redirection_internal (redirect, for_real, remembering, set_clexec)
       free (redirectee_word);
 
       if (fd == NOCLOBBER_REDIRECT)
-        return (fd);
+       return (fd);
 
       if (fd < 0)
        return (errno);
@@ -781,7 +783,6 @@ do_redirection_internal (redirect, for_real, remembering, set_clexec)
 #if defined (BUFFERED_INPUT)
          check_bash_input (redirector);
 #endif
-
          /* This is correct.  2>&1 means dup2 (1, 2); */
          if (dup2 (redir_fd, redirector) < 0)
            return (errno);
@@ -844,7 +845,7 @@ add_undo_redirect (fd)
 
   if (new_fd < 0)
     {
-      sys_error ("redirection error");
+      sys_error ("redirection error: cannot duplicate fd");
       return (-1);
     }
 
@@ -855,7 +856,10 @@ add_undo_redirect (fd)
   dummy_redirect = copy_redirects (closer);
 
   rd.dest = (long)new_fd;
-  new_redirect = make_redirection (fd, r_duplicating_output, rd);
+  if (fd == 0)
+    new_redirect = make_redirection (fd, r_duplicating_input, rd);
+  else
+    new_redirect = make_redirection (fd, r_duplicating_output, rd);
   new_redirect->next = closer;
 
   closer->next = redirection_undo_list;
diff --git a/shell.c b/shell.c
index 4cb95e0183e6ed6063a0ee870bfac2678e952050..91395d7fb7f2726b1a9c16f9589badeb506f18b2 100644 (file)
--- a/shell.c
+++ b/shell.c
@@ -202,6 +202,7 @@ struct {
   { "dump-po-strings", Int, &dump_po_strings, (char **)0x0 },
   { "dump-strings", Int, &dump_translatable_strings, (char **)0x0 },
   { "help", Int, &want_initial_help, (char **)0x0 },
+  { "init-file", Charp, (int *)0x0, &bashrc_file },
   { "login", Int, &make_login_shell, (char **)0x0 },
   { "noediting", Int, &no_line_editing, (char **)0x0 },
   { "noprofile", Int, &no_profile, (char **)0x0 },
@@ -235,6 +236,7 @@ int default_buffered_input = -1;
 int read_from_stdin;           /* -s flag supplied */
 int want_pending_command;      /* -c flag supplied */
 
+static int shell_reinitialized = 0;
 static char *local_pending_command;
 
 static FILE *default_input;
@@ -258,7 +260,7 @@ static void shell_reinitialize ();
 
 static void show_shell_usage ();
 
-#ifdef __CYGWIN32__
+#ifdef __CYGWIN__
 static void
 _cygwin32_check_tmp ()
 {
@@ -272,7 +274,7 @@ _cygwin32_check_tmp ()
        internal_warning ("/tmp must be a valid directory name");
     }
 }
-#endif /* __CYGWIN32__ */
+#endif /* __CYGWIN__ */
 
 #if defined (NO_MAIN_ENV_ARG)
 /* systems without third argument to main() */
@@ -304,9 +306,9 @@ main (argc, argv, env)
 
   check_dev_tty ();
 
-#ifdef __CYGWIN32__
+#ifdef __CYGWIN__
   _cygwin32_check_tmp ();
-#endif
+#endif /* __CYGWIN__ */
 
   /* Wait forever if we are debugging a login shell. */
   while (debugging_login_shell);
@@ -315,8 +317,8 @@ main (argc, argv, env)
 
   running_setuid = uidget ();
 
-  posixly_correct = (getenv ("POSIXLY_CORRECT") != (char *)NULL) ||
-                   (getenv ("POSIX_PEDANTIC") != (char *)NULL);
+  if (getenv ("POSIXLY_CORRECT") || getenv ("POSIX_PEDANTIC"))
+    posixly_correct = 1;
 
 #if defined (USE_GNU_MALLOC_LIBRARY)
   mcheck (programming_error, (void (*) ())0);
@@ -330,6 +332,8 @@ main (argc, argv, env)
       sourced_env = 0;
     }
 
+  shell_reinitialized = 0;
+
   /* Initialize `local' variables for all `invocations' of main (). */
   arg_index = 1;
   local_pending_command = (char *)NULL;
@@ -452,11 +456,8 @@ main (argc, argv, env)
      other Posix.2 things. */
   if (posixly_correct)
     {
-      posix_initialize (posixly_correct);
-#if defined (READLINE)
-      if (interactive_shell)
-       posix_readline_initialize (posixly_correct);
-#endif
+      bind_variable ("POSIXLY_CORRECT", "y");
+      sv_strict_posix ("POSIXLY_CORRECT");
     }
 
   /* From here on in, the shell must be a normal functioning shell.
@@ -508,7 +509,8 @@ main (argc, argv, env)
     {
       makunbound ("PS1", shell_variables);
       makunbound ("PS2", shell_variables);
-      interactive = expand_aliases = 0;
+      interactive = 0;
+      expand_aliases = posixly_correct;
     }
   else
     {
@@ -535,18 +537,14 @@ main (argc, argv, env)
       exit_immediately_on_error = 0;
 
       run_startup_files ();
-
       exit_immediately_on_error += old_errexit_flag;
     }
 
   /* If we are invoked as `sh', turn on Posix mode. */
   if (act_like_sh)
     {
-      posix_initialize (posixly_correct = 1);
-#if defined (READLINE)
-      if (interactive_shell)
-        posix_readline_initialize (posixly_correct);
-#endif
+      bind_variable ("POSIXLY_CORRECT", "y");
+      sv_strict_posix ("POSIXLY_CORRECT");
     }
 
 #if defined (RESTRICTED_SHELL)
@@ -554,7 +552,8 @@ main (argc, argv, env)
      means that `bash -r' or `set -r' invoked from a startup file will
      turn on the restrictions after the startup files are executed. */
   restricted = saverst || restricted;
-  maybe_make_restricted (shell_name);
+  if (shell_reinitialized == 0)
+    maybe_make_restricted (shell_name);
 #endif /* RESTRICTED_SHELL */
 
   if (wordexp_only)
@@ -567,7 +566,6 @@ main (argc, argv, env)
   if (local_pending_command)
     {
       arg_index = bind_args (argv, arg_index, argc, 0);
-
       startup_state = 2;
 #if defined (ONESHOT)
       run_one_command (local_pending_command);
@@ -598,7 +596,6 @@ main (argc, argv, env)
 
   /* Bind remaining args to $1 ... $n */
   arg_index = bind_args (argv, arg_index, argc, 1);
-
   /* Do the things that should be done only for interactive shells. */
   if (interactive_shell)
     {
@@ -782,8 +779,11 @@ exit_shell (s)
     hangup_all_jobs ();
 
   /* If this shell is interactive, terminate all stopped jobs and
-     restore the original terminal process group. */
-  end_job_control ();
+     restore the original terminal process group.  Don't do this if we're
+     in a subshell and calling exit_shell after, for example, a failed
+     word expansion. */
+  if (subshell_environment == 0)
+    end_job_control ();
 #endif /* JOB_CONTROL */
 
   /* Always return the exit status of the last command to our parent. */
@@ -814,16 +814,16 @@ sh_exit (s)
 
    then:
 
-         COMMAND           EXECUTE BASHRC
-         --------------------------------
-         bash -c foo           NO
-         bash foo              NO
-         foo                   NO
-         rsh machine ls                YES (for rsh, which calls `bash -c')
-         rsh machine foo       YES (for shell started by rsh) NO (for foo!)
-         echo ls | bash                NO
-         login                 NO
-         bash                  YES
+        COMMAND            EXECUTE BASHRC
+        --------------------------------
+        bash -c foo            NO
+        bash foo               NO
+        foo                    NO
+        rsh machine ls         YES (for rsh, which calls `bash -c')
+        rsh machine foo        YES (for shell started by rsh) NO (for foo!)
+        echo ls | bash         NO
+        login                  NO
+        bash                   YES
 */
 
 static void
@@ -959,17 +959,17 @@ run_startup_files ()
          maybe_execute_file (SYS_BASHRC, 1);
 #  endif
 #endif
-          maybe_execute_file (bashrc_file, 1);
+         maybe_execute_file (bashrc_file, 1);
        }
       /* sh */
       else if (act_like_sh && privileged_mode == 0 && sourced_env++ == 0)
-        execute_env_file (get_string_value ("ENV"));
+       execute_env_file (get_string_value ("ENV"));
     }
   else         /* bash --posix, sh --posix */
     {
       /* bash and sh */
       if (interactive_shell && privileged_mode == 0 && sourced_env++ == 0)
-        execute_env_file (get_string_value ("ENV"));
+       execute_env_file (get_string_value ("ENV"));
     }
 
 #if defined (JOB_CONTROL)
@@ -1013,7 +1013,7 @@ maybe_make_restricted (name)
       set_var_read_only ("SHELL");
       set_var_read_only ("ENV");
       set_var_read_only ("BASH_ENV");
-      restricted++;
+      restricted = 1;
     }
   return (restricted);
 }
@@ -1084,14 +1084,14 @@ run_wordexp (words)
     {
       with_input_from_string (words, "--wordexp");
       if (parse_command () != 0)
-        return (126);
+       return (126);
       if (global_command == 0)
        {
          printf ("0\n0\n");
          return (0);
        }
       if (global_command->type != cm_simple)
-        return (126);
+       return (126);
       wl = global_command->value.Simple->words;
       result = wl ? expand_words_no_vars (wl) : (WORD_LIST *)0;
     }
@@ -1178,7 +1178,7 @@ bind_args (argv, arg_start, arg_end, start_index)
          remember_args (args->next, 1);
        }
       else                     /* bind to $1...$n for shell script */
-        remember_args (args, 1);
+       remember_args (args, 1);
 
       dispose_words (args);
     }
@@ -1196,7 +1196,7 @@ static int
 open_shell_script (script_name)
      char *script_name;
 {
-  int fd, e;
+  int fd, e, fd_is_tty;
   char *filename, *path_filename;
   unsigned char sample[80];
   int sample_len;
@@ -1230,8 +1230,14 @@ open_shell_script (script_name)
       exit ((e == ENOENT) ? EX_NOTFOUND : EX_NOINPUT);
     }
 
-  /* Only do this with file descriptors we can seek on. */
-  if (lseek (fd, 0L, 1) != -1)
+#ifdef HAVE_DEV_FD
+  fd_is_tty = isatty (fd);
+#else
+  fd_is_tty = 0;
+#endif
+
+  /* Only do this with non-tty file descriptors we can seek on. */
+  if (fd_is_tty == 0 && (lseek (fd, 0L, 1) != -1))
     {
       /* Check to see if the `file' in `bash file' is a binary file
         according to the same tests done by execute_simple_command (),
@@ -1242,7 +1248,7 @@ open_shell_script (script_name)
          e = errno;
          if ((fstat (fd, &sb) == 0) && S_ISDIR (sb.st_mode))
            internal_error ("%s: is a directory", filename);
-          else
+         else
            {
              errno = e;
              file_error (filename);
@@ -1263,16 +1269,12 @@ open_shell_script (script_name)
      not match with ours. */
   fd = move_to_high_fd (fd, 0, -1);
 
+#if defined (__CYGWIN__) && defined (O_TEXT)
+  setmode (fd, O_TEXT);
+#endif
+
 #if defined (BUFFERED_INPUT)
   default_buffered_input = fd;
-#  if 0
-  /* This is never executed. */
-  if (default_buffered_input == -1)
-    {
-      file_error (filename);
-      exit (EX_NOTFOUND);
-    }
-#  endif
   SET_CLOSE_ON_EXEC (default_buffered_input);
 #else /* !BUFFERED_INPUT */
   default_input = fdopen (fd, "r");
@@ -1288,13 +1290,10 @@ open_shell_script (script_name)
     SET_CLOSE_ON_EXEC (fileno (default_input));
 #endif /* !BUFFERED_INPUT */
 
-  if (interactive_shell == 0 || isatty (fd) == 0)
-    /* XXX - does this really need to be called again here? */
-    init_noninteractive ();
-  else
+  /* Just about the only way for this code to be executed is if something
+     like `bash -i /dev/stdin' is executed. */
+  if (interactive_shell && fd_is_tty)
     {
-      /* I don't believe that this code is ever executed, even in
-        the presence of /dev/fd. */
       dup2 (fd, 0);
       close (fd);
       fd = 0;
@@ -1305,6 +1304,7 @@ open_shell_script (script_name)
       default_input = stdin;
 #endif
     }
+
   free (filename);
   return (fd);
 }
@@ -1317,10 +1317,10 @@ set_bash_input ()
      no-delay mode. */
 #if defined (BUFFERED_INPUT)
   if (interactive == 0)
-    unset_nodelay_mode (default_buffered_input);
+    sh_unset_nodelay_mode (default_buffered_input);
   else
 #endif /* !BUFFERED_INPUT */
-    unset_nodelay_mode (fileno (stdin));
+    sh_unset_nodelay_mode (fileno (stdin));
 
   /* with_input_from_stdin really means `with_input_from_readline' */
   if (interactive && no_line_editing == 0)
@@ -1562,10 +1562,7 @@ shell_reinitialize ()
   delete_all_variables (shell_variables);
   delete_all_variables (shell_functions);
 
-#if 0
-  /* Pretend the PATH variable has changed. */
-  flush_hashed_filenames ();
-#endif
+  shell_reinitialized = 1;
 }
 
 static void
diff --git a/shell.h b/shell.h
index bf8a7bece3e5cecee152ca73ea51e30385a42f48..9316250d7ecd8fb589d11f54ed631e547ae54c12 100644 (file)
--- a/shell.h
+++ b/shell.h
@@ -23,6 +23,7 @@
 #include "bashjmp.h"
 
 #include "command.h"
+#include "syntax.h"
 #include "general.h"
 #include "error.h"
 #include "variables.h"
@@ -65,26 +66,6 @@ extern int EOF_Reached;
 #define EX_BADASSIGN   260     /* variable assignment error */
 #define EX_EXPFAIL     261     /* word expansion failed */
 
-/* The list of characters that are quoted in double-quotes with a
-   backslash.  Other characters following a backslash cause nothing
-   special to happen. */
-#define slashify_in_quotes "\\`$\"\n"
-#define slashify_in_here_document "\\`$"
-
-/* Constants which specify how to handle backslashes and quoting in
-   expand_word_internal ().  Q_DOUBLE_QUOTES means to use the function
-   slashify_in_quotes () to decide whether the backslash should be
-   retained.  Q_HERE_DOCUMENT means slashify_in_here_document () to
-   decide whether to retain the backslash.  Q_KEEP_BACKSLASH means
-   to unconditionally retain the backslash. */
-#define Q_DOUBLE_QUOTES  0x1
-#define Q_HERE_DOCUMENT  0x2
-#define Q_KEEP_BACKSLASH 0x4
-#define Q_NOQUOTE       0x8
-#define Q_QUOTED        0x10
-#define Q_ADDEDQUOTES   0x20
-#define Q_QUOTEDNULL    0x40
-
 /* Flag values that control parameter pattern substitution. */
 #define MATCH_ANY      0x0
 #define MATCH_BEG      0x1
diff --git a/sig.c b/sig.c
index 41b637b2c08072e71880411aec7df565f18579de..774b69dc9f7a0e374aaacb6a59d1c101af27aa9f 100644 (file)
--- a/sig.c
+++ b/sig.c
@@ -230,13 +230,13 @@ initialize_terminating_signals ()
       /* Don't do anything with signals that are ignored at shell entry
         if the shell is not interactive. */
       if (!interactive_shell && XHANDLER (i) == SIG_IGN)
-        {
+       {
          sigaction (XSIG (i), &oact, &act);
          set_signal_ignored (XSIG (i));
-        }
+       }
 #if defined (SIGPROF) && !defined (_MINIX)
       if (XSIG (i) == SIGPROF && XHANDLER (i) != SIG_DFL && XHANDLER (i) != SIG_IGN)
-        sigaction (XSIG (i), &oact, (struct sigaction *)NULL);
+       sigaction (XSIG (i), &oact, (struct sigaction *)NULL);
 #endif /* SIGPROF && !_MINIX */
     }
 
@@ -249,12 +249,12 @@ initialize_terminating_signals ()
         if the shell is not interactive. */
       if (!interactive_shell && XHANDLER (i) == SIG_IGN)
        {
-          signal (XSIG (i), SIG_IGN);
-          set_signal_ignored (XSIG (i));
+         signal (XSIG (i), SIG_IGN);
+         set_signal_ignored (XSIG (i));
        }
 #ifdef SIGPROF
       if (XSIG (i) == SIGPROF && XHANDLER (i) != SIG_DFL && XHANDLER (i) != SIG_IGN)
-        signal (XSIG (i), XHANDLER (i));
+       signal (XSIG (i), XHANDLER (i));
 #endif
     }
 
@@ -351,7 +351,7 @@ throw_to_top_level ()
     parse_and_execute_cleanup ();
 
 #if defined (JOB_CONTROL)
-  give_terminal_to (shell_pgrp);
+  give_terminal_to (shell_pgrp, 0);
 #endif /* JOB_CONTROL */
 
 #if defined (JOB_CONTROL) || defined (HAVE_POSIX_SIGNALS)
index 471c8face11db05215bfc0c4e37cecefde60d065..d232837dd9f492e48204afbc8d7860604b097b5c 100644 (file)
 #  include <glob/fnmatch.h>
 #endif
 
-#ifndef to_upper
-#  define to_upper(c) (islower(c) ? toupper(c) : (c))
-#  define to_lower(c) (isupper(c) ? tolower(c) : (c))
-#endif
-
-#define ISOCTAL(c)     ((c) >= '0' && (c) <= '7')
-#define OCTVALUE(c)    ((c) - '0')
-
-#ifndef isxdigit
-#  define isxdigit(c)  (isdigit((c)) || ((c) >= 'a' && (c) <= 'f') || ((c) >= 'A' && (c) <= 'F'))
-#endif
-
-#define HEXVALUE(c) \
-  ((c) >= 'a' && (c) <= 'f' ? (c)-'a'+10 : (c) >= 'A' && (c) <= 'F' ? (c)-'A'+10 : (c)-'0')
-
-/* Convert STRING by expanding the escape sequences specified by the
-   ANSI C standard.  If SAWC is non-null, recognize `\c' and use that
-   as a string terminator.  If we see \c, set *SAWC to 1 before
-   returning.  LEN is the length of STRING.  FOR_ECHO is a flag that
-   means, if non-zero, that we're translating a string for `echo -e',
-   and therefore should not treat a single quote as a character that
-   may be escaped with a backslash. */
-char *
-ansicstr (string, len, for_echo, sawc, rlen)
-     char *string;
-     int len, for_echo, *sawc, *rlen;
-{
-  int c, temp;
-  char *ret, *r, *s;
-
-  if (string == 0 || *string == '\0')
-    return ((char *)NULL);
-
-  ret = xmalloc (len + 1);
-  for (r = ret, s = string; s && *s; )
-    {
-      c = *s++;
-      if (c != '\\' || *s == '\0')
-        *r++ = c;
-      else
-       {
-         switch (c = *s++)
-           {
-#if defined (__STDC__)
-           case 'a': c = '\a'; break;
-           case 'v': c = '\v'; break;
-#else
-           case 'a': c = '\007'; break;
-           case 'v': c = (int) 0x0B; break;
-#endif
-           case 'b': c = '\b'; break;
-           case 'e': case 'E':         /* ESC -- non-ANSI */
-             c = '\033'; break;
-           case 'f': c = '\f'; break;
-           case 'n': c = '\n'; break;
-           case 'r': c = '\r'; break;
-           case 't': c = '\t'; break;
-           case '0': case '1': case '2': case '3':
-           case '4': case '5': case '6': case '7':
-             for (temp = 2, c -= '0'; ISOCTAL (*s) && temp--; s++)
-               c = (c * 8) + OCTVALUE (*s);
-             break;
-           case 'x':                   /* Hex digit -- non-ANSI */
-             for (temp = 3, c = 0; isxdigit (*s) && temp--; s++)
-               c = (c * 16) + HEXVALUE (*s);
-             /* \x followed by non-hex digits is passed through unchanged */
-             if (temp == 3)
-               {
-                 *r++ = '\\';
-                 c = 'x';
-               }
-             break;
-           case '\\':
-             break;
-           case '\'':
-             if (for_echo)
-               *r++ = '\\';
-             break;
-           case 'c':
-             if (sawc)
-               {
-                 *sawc = 1;
-                 *r = '\0';
-                 if (rlen)
-                   *rlen = r - ret;
-                 return ret;
-               }
-           default:  *r++ = '\\'; break;
-           }
-         *r++ = c;
-       }
-    }
-  *r = '\0';
-  if (rlen)
-    *rlen = r - ret;
-  return ret;
-}
-
 /* **************************************************************** */
 /*                                                                 */
 /*             Functions to manage arrays of strings               */
 /*                                                                 */
 /* **************************************************************** */
 
-#ifdef INCLUDE_UNUSED
-/* Find NAME in ARRAY.  Return the index of NAME, or -1 if not present.
-   ARRAY should be NULL terminated. */
-int
-find_name_in_array (name, array)
-     char *name, **array;
-{
-  int i;
-
-  for (i = 0; array[i]; i++)
-    if (STREQ (name, array[i]))
-      return (i);
-
-  return (-1);
-}
-#endif
-
-/* Allocate an array of strings with room for N members. */
-char **
-alloc_array (n)
-     int n;
-{
-  return ((char **)xmalloc ((n) * sizeof (char *)));
-}
-
-/* Return the length of ARRAY, a NULL terminated array of char *. */
-int
-array_len (array)
-     char **array;
-{
-  register int i;
-
-  for (i = 0; array[i]; i++);
-  return (i);
-}
-
-/* Free the contents of ARRAY, a NULL terminated array of char *. */
-void
-free_array_members (array)
-     char **array;
-{
-  register int i;
-
-  if (array == 0)
-    return;
-
-  for (i = 0; array[i]; i++)
-    free (array[i]);
-}
-
-void
-free_array (array)
-     char **array;
-{
-  if (array == 0)
-    return;
-
-  free_array_members (array);
-  free (array);
-}
-
-/* Allocate and return a new copy of ARRAY and its contents. */
-char **
-copy_array (array)
-     char **array;
-{
-  register int i;
-  int len;
-  char **new_array;
-
-  len = array_len (array);
-
-  new_array = (char **)xmalloc ((len + 1) * sizeof (char *));
-  for (i = 0; array[i]; i++)
-    new_array[i] = savestring (array[i]);
-  new_array[i] = (char *)NULL;
-
-  return (new_array);
-}
-
-/* Comparison routine for use with qsort() on arrays of strings.  Uses
-   strcoll(3) if available, otherwise it uses strcmp(3). */
-int
-qsort_string_compare (s1, s2)
-     register char **s1, **s2;
-{
-#if defined (HAVE_STRCOLL)
-   return (strcoll (*s1, *s2));
-#else /* !HAVE_STRCOLL */
-  int result;
-
-  if ((result = **s1 - **s2) == 0)
-    result = strcmp (*s1, *s2);
-
-  return (result);
-#endif /* !HAVE_STRCOLL */
-}
-
-/* Sort ARRAY, a null terminated array of pointers to strings. */
-void
-sort_char_array (array)
-     char **array;
-{
-  qsort (array, array_len (array), sizeof (char *),
-        (Function *)qsort_string_compare);
-}
-
 /* Cons up a new array of words.  The words are taken from LIST,
    which is a WORD_LIST *.  If COPY is true, everything is malloc'ed,
    so you should free everything in this array when you are done.
@@ -324,13 +119,13 @@ find_string_in_alist (string, alist, flags)
     {
 #if defined (EXTENDED_GLOB)
       if (flags)
-        r = fnmatch (alist[i].word, string, FNM_EXTMATCH) != FNM_NOMATCH;
+       r = fnmatch (alist[i].word, string, FNM_EXTMATCH) != FNM_NOMATCH;
       else
 #endif
-        r = STREQ (string, alist[i].word);
+       r = STREQ (string, alist[i].word);
 
       if (r)
-        return (alist[i].token);
+       return (alist[i].token);
     }
   return -1;
 }
@@ -357,15 +152,15 @@ strsub (string, pat, rep, global)
   for (temp = (char *)NULL, i = templen = tempsize = 0, repl = 1; string[i]; )
     {
       if (repl && STREQN (string + i, pat, patlen))
-        {
-          RESIZE_MALLOCED_BUFFER (temp, templen, replen, tempsize, (replen * 2));
+       {
+         RESIZE_MALLOCED_BUFFER (temp, templen, replen, tempsize, (replen * 2));
 
          for (r = rep; *r; )
            temp[templen++] = *r++;
 
          i += patlen;
          repl = global != 0;
-        }
+       }
       else
        {
          RESIZE_MALLOCED_BUFFER (temp, templen, 1, tempsize, 16);
@@ -422,9 +217,11 @@ strcreplace (string, c, text, do_glob)
          continue;
        }
 
-      if (*p == '\\' && p[1] == '&')
+      if (*p == '\\' && p[1] == c)
        p++;
 
+      RESIZE_MALLOCED_BUFFER (ret, ind, 2, rlen, rlen);
+      r = ret + ind;                   /* in case reallocated */
       *r++ = *p++;
     }
   *r = '\0';
@@ -465,30 +262,14 @@ strip_trailing (string, len, newlines_only)
   while (len >= 0)
     {
       if ((newlines_only && string[len] == '\n') ||
-          (!newlines_only && whitespace (string[len])))
-        len--;
+         (!newlines_only && whitespace (string[len])))
+       len--;
       else
-        break;
+       break;
     }
   string[len + 1] = '\0';
 }
 
-/* Determine if s2 occurs in s1.  If so, return a pointer to the
-   match in s1.  The compare is case insensitive.  This is a
-   case-insensitive strstr(3). */
-char *
-strindex (s1, s2)
-     char *s1, *s2;
-{
-  register int i, l, len, c;
-
-  c = to_upper (s2[0]);
-  for (i = 0, len = strlen (s1), l = strlen (s2); (len - i) >= l; i++)
-    if ((to_upper (s1[i]) == c) && (strncasecmp (s1 + i, s2, l) == 0))
-      return (s1 + i);
-  return ((char *)NULL);
-}
-
 /* A wrapper for bcopy that can be prototyped in general.h */
 void
 xbcopy (s, d, n)
diff --git a/subst.c b/subst.c
index d57867512be136dd3927c719a0a4ac2511ec271b..bba1eb2456b4cffe8aecf0c88703c088280b89fd 100644 (file)
--- a/subst.c
+++ b/subst.c
@@ -80,11 +80,26 @@ extern int errno;
 #define LPAREN         '('
 #define RPAREN         ')'
 
+/* Evaluates to 1 if C is one of the shell's special parameters whose length
+   can be taken, but is also one of the special expansion characters. */
+#define VALID_SPECIAL_LENGTH_PARAM(c) \
+  ((c) == '-' || (c) == '?' || (c) == '#')
+
+/* Evaluates to 1 if C is one of the shell's special parameters for which an
+   indirect variable reference may be made. */
+#define VALID_INDIR_PARAM(c) \
+  ((c) == '#' || (c) == '?' || (c) == '@' || (c) == '*')
+
+/* Evaluates to 1 if C is one of the OP characters that follows the parameter
+   in ${parameter[:]OPword}. */
+#define VALID_PARAM_EXPAND_CHAR(c) \
+  ((c) == '-' || (c) == '=' || (c) == '?' || (c) == '+')
+
 /* Evaluates to 1 if this is one of the shell's special variables. */
 #define SPECIAL_VAR(name, wi) \
- ((digit (*name) && all_digits (name)) || \
-      (name[1] == '\0' && member (*name, "#-?$!@*")) || \
-      (wi && name[2] == '\0' && member (name[1], "#?@*")))
+ ((isdigit (*name) && all_digits (name)) || \
+      (name[1] == '\0' && (sh_syntaxtab[*name] & CSPECVAR)) || \
+      (wi && name[2] == '\0' && VALID_INDIR_PARAM (name[1])))
 
 /* Process ID of the last command executed within command substitution. */
 pid_t last_command_subst_pid = NO_PID;
@@ -115,13 +130,19 @@ static int glob_argv_flags_size;
 static WORD_LIST expand_word_error, expand_word_fatal;
 static char expand_param_error, expand_param_fatal;
 
-static int doing_completion = 0;
-static int doing_prompt_expansion = 0;
+/* Tell the expansion functions to not longjmp back to top_level on fatal
+   errors.  Enabled when doing completion and prompt string expansion. */
+static int no_longjmp_on_fatal_error = 0;
+
+/* Set by expand_word_unsplit; used to inhibit splitting and re-joining
+   $* on $IFS, primarily when doing assignment statements. */
+static int expand_no_split_dollar_star = 0;
 
 /* Used to hold a list of variable assignments preceding a command.  Global
    so the SIGCHLD handler in jobs.c can unwind-protect it when it runs a
    SIGCHLD trap. */
 WORD_LIST *subst_assign_varlist = (WORD_LIST *)NULL;
+
 /* A WORD_LIST of words to be expanded by expand_word_list_internal,
    without any leading variable assignments. */
 static WORD_LIST *garglist = (WORD_LIST *)NULL;
@@ -187,12 +208,12 @@ quoted_substring (string, start, end)
     {
       if (*s == CTLESC)
        {
-          s++;
-          continue;
+         s++;
+         continue;
        }
       l++;
       if (*s == 0)
-        break;
+       break;
     }
 
   r = result = xmalloc (2*len + 1);      /* save room for quotes */
@@ -202,11 +223,11 @@ quoted_substring (string, start, end)
   for (l = 0; l < len; s++)
     {
       if (*s == CTLESC)
-        *r++ = *s++;
+       *r++ = *s++;
       *r++ = *s;
       l++;
       if (*s == 0)
-        break;
+       break;
     }
   *r = '\0';
   return result;
@@ -460,7 +481,7 @@ string_extract_double_quoted (string, sindex, stripdq)
                The returned string will be run through expansion as if
                it were double-quoted. */
          if ((stripdq == 0 && c != '"') ||
-             (stripdq && ((dquote && strchr (slashify_in_quotes, c)) || dquote == 0)))
+             (stripdq && ((dquote && (sh_syntaxtab[c] & CBSDQUOTE)) || dquote == 0)))
            temp[j++] = '\\';
          temp[j++] = c;
          pass_next = 0;
@@ -518,7 +539,7 @@ string_extract_double_quoted (string, sindex, stripdq)
        }
 
       /* Add any character but a double quote to the quoted string we're
-         accumulating. */
+        accumulating. */
       if (c != '"')
        {
          temp[j++] = c;
@@ -632,13 +653,13 @@ skip_single_quoted (string, sind)
      char *string;
      int sind;
 {
-  register int i;
+  register int c;
 
-  for (i = sind; string[i] && string[i] != '\''; i++)
+  for (c = sind; string[c] && string[c] != '\''; c++)
     ;
-  if (string[i])
-    i++;
-  return i;
+  if (string[c])
+    c++;
+  return c;
 }
 
 /* Just like string_extract, but doesn't hack backslashes or any of
@@ -688,7 +709,7 @@ extract_command_subst (string, sindex)
   return (extract_delimited_string (string, sindex, "$(", "(", ")"));
 }
 
-/* Extract the $[ construct in STRING, and return a new string.
+/* Extract the $[ construct in STRING, and return a new string. (])
    Start extracting at (SINDEX) as if we had just seen "$[".
    Make (SINDEX) get the position of the matching "]". */
 char *
@@ -696,7 +717,7 @@ extract_arithmetic_subst (string, sindex)
      char *string;
      int *sindex;
 {
-  return (extract_delimited_string (string, sindex, "$[", "[", "]"));
+  return (extract_delimited_string (string, sindex, "$[", "[", "]")); /*]*/
 }
 
 #if defined (PROCESS_SUBSTITUTION)
@@ -756,7 +777,7 @@ extract_delimited_string (string, sindex, opener, alt_opener, closer)
       c = string[i];
 
       if (c == 0)
-        break;
+       break;
 
       if (pass_character)      /* previous char was backslash */
        {
@@ -772,12 +793,7 @@ extract_delimited_string (string, sindex, opener, alt_opener, closer)
          continue;
        }
 
-#if 0
-      if (c == '\\' && delimiter == '"' &&
-             (member (string[i], slashify_in_quotes)))
-#else
       if (c == '\\')
-#endif
        {
          pass_character++;
          i++;
@@ -816,29 +832,29 @@ extract_delimited_string (string, sindex, opener, alt_opener, closer)
 
       /* Pass old-style command substitution through verbatim. */
       if (c == '`')
-        {
-          si = i + 1;
-          t = string_extract (string, &si, "`", 0);
-          i = si + 1;
-          FREE (t);
-          continue;
-        }
+       {
+         si = i + 1;
+         t = string_extract (string, &si, "`", 0);
+         i = si + 1;
+         FREE (t);
+         continue;
+       }
 
       /* Pass single-quoted strings through verbatim. */
       if (c == '\'')
-        {
-          si = i + 1;
-          i = skip_single_quoted (string, si);
-          continue;
-        }
+       {
+         si = i + 1;
+         i = skip_single_quoted (string, si);
+         continue;
+       }
 
       /* Pass embedded double-quoted strings through verbatim as well. */
       if (c == '"')
-        {
-          si = i + 1;
-          i = skip_double_quoted (string, si);
-          continue;
-        }
+       {
+         si = i + 1;
+         i = skip_double_quoted (string, si);
+         continue;
+       }
 
       i++;     /* move past this character, which was not special. */
     }
@@ -846,10 +862,11 @@ extract_delimited_string (string, sindex, opener, alt_opener, closer)
 #if 0
   if (c == 0 && nesting_level)
 #else
-  if (c == 0 && nesting_level && doing_completion == 0)
+  if (c == 0 && nesting_level && no_longjmp_on_fatal_error == 0)
 #endif
     {
       report_error ("bad substitution: no `%s' in %s", closer, string);
+      last_command_exit_value = EXECUTION_FAILURE;
       jump_to_top_level (DISCARD);
     }
 
@@ -948,9 +965,10 @@ extract_dollar_brace_string (string, sindex, quoted)
        }
     }
 
-  if (c == 0 && nesting_level && doing_completion == 0)
+  if (c == 0 && nesting_level && no_longjmp_on_fatal_error == 0)
     {
       report_error ("bad substitution: no ending `}' in %s", string);
+      last_command_exit_value = EXECUTION_FAILURE;
       jump_to_top_level (DISCARD);
     }
 
@@ -1003,11 +1021,11 @@ unquote_bang (string)
 #if defined (READLINE)
 /* Return 1 if the portion of STRING ending at EINDEX is quoted (there is
    an unclosed quoted string), or if the character at EINDEX is quoted
-   by a backslash. DOING_COMPLETION is used to flag that the various
+   by a backslash. NO_LONGJMP_ON_FATAL_ERROR is used to flag that the various
    single and double-quoted string parsing functions should not return an
    error if there are unclosed quotes or braces. */
 
-#define CQ_RETURN(x) do { doing_completion = 0; return (x); } while (0)
+#define CQ_RETURN(x) do { no_longjmp_on_fatal_error = 0; return (x); } while (0)
 
 int
 char_is_quoted (string, eindex)
@@ -1016,7 +1034,7 @@ char_is_quoted (string, eindex)
 {
   int i, pass_next, quoted;
 
-  doing_completion = 1;
+  no_longjmp_on_fatal_error = 1;
   for (i = pass_next = quoted = 0; i <= eindex; i++)
     {
       if (pass_next)
@@ -1097,7 +1115,7 @@ skip_to_delim (string, start, delims)
   int i, pass_next, backq, si;
   char *temp;
 
-  doing_completion = 1;
+  no_longjmp_on_fatal_error = 1;
   for (i = start, pass_next = backq = 0; string[i]; i++)
     {
       if (pass_next)
@@ -1143,7 +1161,7 @@ skip_to_delim (string, start, delims)
          continue;
        }
       else if (member (string[i], delims))
-        break;
+       break;
     }
   CQ_RETURN(i);
 }
@@ -1192,7 +1210,7 @@ split_at_delims (string, slen, delims, sentinel, nwp, cwp)
 
   ret = (WORD_LIST *)NULL;
 
-  for (i = 0; member (string[i], d) && whitespace(string[i]); i++)
+  for (i = 0; member (string[i], d) && (whitespace(string[i]) || string[i] == '\n'); i++)
     ;
   if (string[i] == '\0')
     return (ret);
@@ -1207,10 +1225,10 @@ split_at_delims (string, slen, delims, sentinel, nwp, cwp)
       /* If we have a non-whitespace delimiter character, use it to make a
         separate field.  This is just about what $IFS splitting does and
         is closer to the behavior of the shell parser. */
-      if (ts == te && member(string[ts], d2))
+      if (ts == te && d2 && member (string[ts], d2))
        {
          te = ts + 1;
-         while (member(string[te], d2))
+         while (member (string[te], d2))
            te++;
        }
 
@@ -1224,27 +1242,27 @@ split_at_delims (string, slen, delims, sentinel, nwp, cwp)
        cw = nw;
 
       /* If the cursor is at whitespace just before word start, set the
-         sentinel word to the current word. */
+        sentinel word to the current word. */
       if (cwp && cw == -1 && sentinel == ts-1)
        cw = nw;
 
       /* If the cursor is at whitespace between two words, make a new, empty
-         word, add it before (well, after, since the list is in reverse order)
-         the word we just added, and set the current word to that one. */
+        word, add it before (well, after, since the list is in reverse order)
+        the word we just added, and set the current word to that one. */
       if (cwp && cw == -1 && sentinel < ts)
-        {
-          tl = (WORD_LIST *)xmalloc (sizeof (WORD_LIST));
-          tl->word = make_word ("");
-          tl->next = ret->next;
-          ret->next = tl;
-          cw = nw;
-          nw++;
-        }
+       {
+         tl = (WORD_LIST *)xmalloc (sizeof (WORD_LIST));
+         tl->word = make_word ("");
+         tl->next = ret->next;
+         ret->next = tl;
+         cw = nw;
+         nw++;
+       }
 
       if (string[te] == 0)
        break;
 
-      i = te + member(string[te], d);
+      i = te + member (string[te], d);
       while (member (string[i], d) && whitespace(string[i]))
        i++;
 
@@ -1261,11 +1279,11 @@ split_at_delims (string, slen, delims, sentinel, nwp, cwp)
   if (cwp && cw == -1 && sentinel >= slen)
     {
       if (whitespace (string[sentinel - 1]))
-        {
-          token = "";
-          ret = add_string_to_list (token, ret);
-          nw++;
-        }
+       {
+         token = "";
+         ret = add_string_to_list (token, ret);
+         nw++;
+       }
       cw = nw;
     }
 
@@ -1444,7 +1462,7 @@ list_string (string, separators, quoted)
   WORD_LIST *result;
   WORD_DESC *t;
   char *current_word, *s;
-  int sindex, sh_style_split;
+  int sindex, sh_style_split, whitesep;
 
   if (!string || !*string)
     return ((WORD_LIST *)NULL);
@@ -1511,6 +1529,9 @@ list_string (string, separators, quoted)
 
       free (current_word);
 
+      /* Note whether or not the separator is IFS whitespace, used later. */
+      whitesep = string[sindex] && spctabnl (string[sindex]);
+
       /* Move past the current separator character. */
       if (string[sindex])
        sindex++;
@@ -1519,6 +1540,13 @@ list_string (string, separators, quoted)
         in the list of separators. */
       while (string[sindex] && spctabnl (string[sindex]) && issep (string[sindex]))
        sindex++;
+
+      /* If the first separator was IFS whitespace and the current character is
+        a non-whitespace IFS character, it should be part of the current field
+        delimiter, not a separate delimiter that would result in an empty field.
+        Look at POSIX.2, 3.6.5, (3)(b). */
+      if (string[sindex] && whitesep && issep (string[sindex]) && !spctabnl (string[sindex]))
+       sindex++;
     }
   return (REVERSE_LIST (result, WORD_LIST *));
 }
@@ -1534,7 +1562,7 @@ get_word_from_string (stringp, separators, endptr)
 {
   register char *s;
   char *current_word;
-  int sindex, sh_style_split;
+  int sindex, sh_style_split, whitesep;
 
   if (!stringp || !*stringp || !**stringp)
     return ((char *)NULL);
@@ -1573,6 +1601,9 @@ get_word_from_string (stringp, separators, endptr)
   if (endptr)
     *endptr = s + sindex;
 
+  /* Note whether or not the separator is IFS whitespace, used later. */
+  whitesep = s[sindex] && spctabnl (s[sindex]);
+
   /* Move past the current separator character. */
   if (s[sindex])
     sindex++;
@@ -1582,6 +1613,13 @@ get_word_from_string (stringp, separators, endptr)
   while (s[sindex] && spctabnl (s[sindex]) && issep (s[sindex]))
     sindex++;
 
+  /* If the first separator was IFS whitespace and the current character is
+     a non-whitespace IFS character, it should be part of the current field
+     delimiter, not a separate delimiter that would result in an empty field.
+     Look at POSIX.2, 3.6.5, (3)(b). */
+  if (s[sindex] && whitesep && issep (s[sindex]) && !spctabnl (s[sindex]))
+    sindex++;
+
   /* Update STRING to point to the next field. */
   *stringp = s + sindex;
   return (current_word);
@@ -1636,7 +1674,7 @@ list_string_with_quotes (string)
            i++;
        }
       else if (c == '\'')
-        i = skip_single_quoted (s, ++i);
+       i = skip_single_quoted (s, ++i);
       else if (c == '"')
        i = skip_double_quoted (s, ++i);
       else if (c == 0 || spctabnl (c))
@@ -1689,12 +1727,12 @@ do_array_element_assignment (name, value)
   ind = array_expand_index (t, ni - ind);
   if (ind < 0)
     {
-      t[-1] = '[';             /* restore original name */
+      t[-1] = '[';             /* restore original name */
       report_error ("%s: bad array subscript", name);
       return ((SHELL_VAR *)NULL);
     }
   entry = bind_array_variable (name, ind, value);
-  t[-1] = '[';         /* restore original name */
+  t[-1] = '[';         /* restore original name */
   return (entry);
 }
 #endif /* ARRAY_VARS */
@@ -1739,7 +1777,7 @@ do_assignment_internal (string, expand)
 
       /* Perform tilde expansion. */
       if (expand && temp[0])
-        {
+       {
          temp = (strchr (temp, '~') && unquoted_member ('~', temp))
                        ? bash_tilde_expand (temp)
                        : savestring (temp);
@@ -1768,7 +1806,7 @@ do_assignment_internal (string, expand)
 #define ASSIGN_RETURN(r)       do { FREE (value); free (name); return (r); } while (0)
 
 #if defined (ARRAY_VARS)
-  if (t = strchr (name, '['))
+  if (t = strchr (name, '['))  /*]*/
     {
       if (assign_list)
        {
@@ -1777,7 +1815,7 @@ do_assignment_internal (string, expand)
        }
       entry = do_array_element_assignment (name, value);
       if (entry == 0)
-        ASSIGN_RETURN (0);
+       ASSIGN_RETURN (0);
     }
   else if (assign_list)
     entry = assign_array_from_string (name, value);
@@ -1791,7 +1829,7 @@ do_assignment_internal (string, expand)
     VUNSETATTR (entry, att_invisible);
 
   /* Return 1 if the assignment seems to have been performed correctly. */
-  ASSIGN_RETURN (entry ? (readonly_p (entry) == 0) : 0);
+  ASSIGN_RETURN (entry ? ((readonly_p (entry) == 0) && noassign_p (entry) == 0) : 0);
 }
 
 /* Perform the assignment statement in STRING, and expand the
@@ -1863,7 +1901,7 @@ get_dollar_var_value (ind)
     {
       ind -= 10;
       for (p = rest_of_args; p && ind--; p = p->next)
-        ;
+       ;
       temp = p ? savestring (p->word->word) : (char *)NULL;
     }
   return (temp);
@@ -2014,9 +2052,9 @@ remove_backslashes (string)
   for (s = string; s && *s; )
     {
       if (*s == '\\')
-        s++;
+       s++;
       if (*s == 0)
-        break;
+       break;
       *r++ = *s++;
     }
   *r = '\0';
@@ -2041,6 +2079,13 @@ cond_expand_word (w, special)
   if (w->word == 0 || w->word[0] == '\0')
     return ((char *)NULL);
 
+  if (strchr (w->word, '~') && unquoted_member ('~', w->word))
+    {
+      p = bash_tilde_expand (w->word);
+      free (w->word);
+      w->word = p;
+    }
+
   l = call_expand_word_internal (w, 0, 0, (int *)0, (int *)0);
   if (l)
     {
@@ -2050,11 +2095,11 @@ cond_expand_word (w, special)
          r = string_list (l);
        }
       else
-        {
-          p = string_list (l);
-          r = quote_string_for_globbing (p, QGLOB_CVTNULL);
-          free (p);
-        }
+       {
+         p = string_list (l);
+         r = quote_string_for_globbing (p, QGLOB_CVTNULL);
+         free (p);
+       }
       dispose_words (l);
     }
   else
@@ -2077,11 +2122,13 @@ call_expand_word_internal (w, q, i, c, e)
   result = expand_word_internal (w, q, i, c, e);
   if (result == &expand_word_error || result == &expand_word_fatal)
     {
+      expand_no_split_dollar_star = 0; /* XXX */
       /* By convention, each time this error is returned, w->word has
         already been freed (it sometimes may not be in the fatal case,
         but that doesn't result in a memory leak because we're going
         to exit in most cases). */
       w->word = (char *)NULL;
+      last_command_exit_value = EXECUTION_FAILURE;
       jump_to_top_level ((result == &expand_word_error) ? DISCARD : FORCE_EOF);
       /* NOTREACHED */
     }
@@ -2102,9 +2149,12 @@ expand_string_internal (string, quoted)
   if (string == 0 || *string == 0)
     return ((WORD_LIST *)NULL);
 
-  bzero ((char *)&td, sizeof (td));
-  td.word = string;
+  td.flags = 0;
+  td.word = savestring (string);
+
   tresult = call_expand_word_internal (&td, quoted, 0, (int *)NULL, (int *)NULL);
+
+  FREE (td.word);
   return (tresult);
 }
 
@@ -2120,10 +2170,13 @@ expand_string_unsplit (string, quoted)
 {
   WORD_LIST *value;
 
-  if (!string || !*string)
+  if (string == 0 || *string == '\0')
     return ((WORD_LIST *)NULL);
 
+  expand_no_split_dollar_star = 1;
   value = expand_string_internal (string, quoted);
+  expand_no_split_dollar_star = 0;
+
   if (value)
     {
       if (value->word)
@@ -2149,11 +2202,13 @@ expand_prompt_string (string, quoted)
   if (string == 0 || *string == 0)
     return ((WORD_LIST *)NULL);
 
-  bzero ((char *)&td, sizeof (td));
+  td.flags = 0;
   td.word = savestring (string);
-  doing_prompt_expansion = 1;
+
+  no_longjmp_on_fatal_error = 1;
   value = expand_word_internal (&td, quoted, 0, (int *)NULL, (int *)NULL);
-  doing_prompt_expansion = 0;
+  no_longjmp_on_fatal_error = 0;
+
   if (value == &expand_word_error || value == &expand_word_fatal)
     {
       value = make_word_list (make_bare_word (string), (WORD_LIST *)NULL);
@@ -2209,7 +2264,7 @@ expand_string_for_rhs (string, quoted, dollar_at_p, has_dollar_at)
   if (string == 0 || *string == '\0')
     return (WORD_LIST *)NULL;
 
-  bzero ((char *)&td, sizeof (td));
+  td.flags = 0;
   td.word = string;
   tresult = call_expand_word_internal (&td, quoted, 1, dollar_at_p, has_dollar_at);
   return (tresult);
@@ -2227,7 +2282,7 @@ expand_string (string, quoted)
 {
   WORD_LIST *result;
 
-  if (!string || !*string)
+  if (string == 0 || *string == '\0')
     return ((WORD_LIST *)NULL);
 
   result = expand_string_leave_quoted (string, quoted);
@@ -2494,7 +2549,7 @@ remove_quoted_nulls (string)
          continue;
        }
       if (*s == CTLNUL)
-        continue;
+       continue;
       *p++ = *s;
     }
   *p = '\0';
@@ -2625,13 +2680,13 @@ match_pattern_char (pat, string)
     case '\\':
       return (*string == *pat);
     case '?':
-      return (*string == LPAREN ? 1 : (*string != '\0'));
+      return (*pat == LPAREN ? 1 : (*string != '\0'));
     case '*':
       return (1);
     case '+':
     case '!':
     case '@':
-      return (*string == LPAREN ? 1 : (*string == c));
+      return (*pat == LPAREN ? 1 : (*string == c));
     case '[':
       return (*string != '\0');
     }
@@ -2683,7 +2738,7 @@ match_pattern (string, pat, mtype, sp, ep)
 
     case MATCH_BEG:
       if (match_pattern_char (pat, string) == 0)
-        return (0);
+       return (0);
       for (p = end; p >= string; p--)
        {
          c = *p; *p = '\0';
@@ -2870,14 +2925,14 @@ array_remove_pattern (value, aspec, aval, c, quoted)
   if (ALL_ELEMENT_SUB (t[0]) && t[1] == ']')
     {
       if (array_p (var) == 0)
-        {
-          report_error ("%s: bad array subscript", aspec);
-          FREE (pattern);
-          return ((char *)NULL);
-        }
+       {
+         report_error ("%s: bad array subscript", aspec);
+         FREE (pattern);
+         return ((char *)NULL);
+       }
       l = array_to_word_list (array_cell (var));
       if (l == 0)
-        return ((char *)NULL);
+       return ((char *)NULL);
       ret = list_remove_pattern (l, pattern, patspec, t[0], quoted);
       dispose_words (l);
     }
@@ -2924,13 +2979,16 @@ expand_word (word, quoted)
    does parameter expansion, command substitution, arithmetic expansion,
    and quote removal. */
 WORD_LIST *
-expand_word_no_split (word, quoted)
+expand_word_unsplit (word, quoted)
      WORD_DESC *word;
      int quoted;
 {
   WORD_LIST *result;
 
+  expand_no_split_dollar_star = 1;
   result = call_expand_word_internal (word, quoted, 0, (int *)NULL, (int *)NULL);
+  expand_no_split_dollar_star = 0;
+  
   return (result ? dequote_list (result) : result);
 }
 
@@ -2958,7 +3016,6 @@ expand_word_leave_quoted (word, quoted)
    unlink all of them. add_fifo_list adds the name of an open FIFO to the
    list.  NFIFO is a count of the number of FIFOs in the list. */
 #define FIFO_INCR 20
-extern char *mktemp ();
 
 static char **fifo_list = (char **)NULL;
 static int nfifo;
@@ -2998,7 +3055,7 @@ make_named_pipe ()
 {
   char *tname;
 
-  tname = mktemp (savestring ("/tmp/sh-np-XXXXXX"));
+  tname = sh_mktmpname ("sh-np", MT_USERANDOM);
   if (mkfifo (tname, 0600) < 0)
     {
       free (tname);
@@ -3171,7 +3228,7 @@ process_substitute (string, open_for_read_in_child)
       /* Cancel traps, in trap.c. */
       restore_original_signals ();
       setup_async_signals ();
-      subshell_environment = SUBSHELL_COMSUB;
+      subshell_environment |= SUBSHELL_COMSUB;
     }
 
 #if defined (JOB_CONTROL)
@@ -3227,7 +3284,7 @@ process_substitute (string, open_for_read_in_child)
     }
   if (open_for_read_in_child)
     {
-      if (unset_nodelay_mode (fd) < 0)
+      if (sh_unset_nodelay_mode (fd) < 0)
        {
          sys_error ("cannout reset nodelay mode for fd %d", fd);
          exit (127);
@@ -3290,11 +3347,15 @@ read_comsub (fd, quoted)
   istring = (char *)NULL;
   istring_index = istring_size = bufn = 0;
 
+#ifdef __CYGWIN__
+  setmode (fd, O_TEXT);                /* we don't want CR/LF, we want Unix-style */
+#endif
+
   /* Read the output of the command through the pipe. */
   while (1)
     {
       if (fd < 0)
-        break;
+       break;
       if (--bufn <= 0)
        {
          bufn = zread (fd, buf, sizeof (buf));
@@ -3304,6 +3365,14 @@ read_comsub (fd, quoted)
        }
       c = *bufp++;
 
+      if (c == 0)
+       {
+#if 0
+         internal_warning ("read_comsub: ignored null byte in input");
+#endif
+         continue;
+       }
+
       /* Add the character to ISTRING, possibly after resizing it. */
       RESIZE_MALLOCED_BUFFER (istring, istring_index, 2, istring_size, DEFAULT_ARRAY_SIZE);
 
@@ -3311,6 +3380,16 @@ read_comsub (fd, quoted)
        istring[istring_index++] = CTLESC;
 
       istring[istring_index++] = c;
+
+#if 0
+#if defined (__CYGWIN__)
+      if (c == '\n' && istring_index > 1 && istring[istring_index - 2] == '\r')
+       {
+         istring_index--;
+         istring[istring_index - 1] = '\n';
+       }
+#endif
+#endif
     }
 
   if (istring)
@@ -3394,7 +3473,9 @@ command_substitute (string, quoted)
   old_pid = last_made_pid;
 #if defined (JOB_CONTROL)
   old_pipeline_pgrp = pipeline_pgrp;
-  pipeline_pgrp = shell_pgrp;
+  /* Don't reset the pipeline pgrp if we're already a subshell in a pipeline. */
+  if ((subshell_environment & SUBSHELL_PIPE) == 0)
+    pipeline_pgrp = shell_pgrp;
   cleanup_the_pipeline ();
 #endif
 
@@ -3424,11 +3505,7 @@ command_substitute (string, quoted)
   if (pid == 0)
     {
       set_sigint_handler ();   /* XXX */
-#if 0
-#if defined (JOB_CONTROL)
-      set_job_control (0);
-#endif
-#endif
+
       if (dup2 (fildes[1], 1) < 0)
        {
          sys_error ("command_substitute: cannot duplicate pipe as fd 1");
@@ -3455,10 +3532,12 @@ command_substitute (string, quoted)
       interactive = 0;
 
       /* This is a subshell environment. */
-      subshell_environment = SUBSHELL_COMSUB;
+      subshell_environment |= SUBSHELL_COMSUB;
 
-      /* Command substitution does not inherit the -e flag. */
-      exit_immediately_on_error = 0;
+      /* When not in POSIX mode, command substitution does not inherit
+         the -e flag. */
+      if (posixly_correct == 0)
+       exit_immediately_on_error = 0;
 
       remove_quoted_escapes (string);
 
@@ -3517,9 +3596,9 @@ command_substitute (string, quoted)
 #if 0
       if (interactive && pipeline_pgrp != (pid_t)0 && pipeline_pgrp != last_asynchronous_pid)
 #else
-      if (interactive && pipeline_pgrp != (pid_t)0 && subshell_environment != SUBSHELL_ASYNC)
+      if (interactive && pipeline_pgrp != (pid_t)0 && (subshell_environment & SUBSHELL_ASYNC) == 0)
 #endif
-       give_terminal_to (pipeline_pgrp);
+       give_terminal_to (pipeline_pgrp, 0);
 #endif /* JOB_CONTROL */
 
       return (istring);
@@ -3542,7 +3621,7 @@ valid_array_reference (name)
   char *t;
   int r, len;
 
-  t = strchr (name, '[');
+  t = strchr (name, '[');      /* ] */
   if (t)
     {
       *t = '\0';
@@ -3580,7 +3659,10 @@ array_expand_index (s, len)
   free (t);
   free (exp);
   if (expok == 0)
-    jump_to_top_level (DISCARD);
+    {
+      last_command_exit_value = EXECUTION_FAILURE;
+      jump_to_top_level (DISCARD);
+    }
   return val;
 }
 
@@ -3607,7 +3689,7 @@ array_variable_part (s, subp, lenp)
 
   *t = '\0';
   var = find_variable (s);
-  *t++ = '[';
+  *t++ = '[';          /* ] */
 
   if (subp)
     *subp = t;
@@ -3631,23 +3713,26 @@ array_value_internal (s, quoted, allow_all)
   if (var == 0)
     return (char *)NULL;
 
+  /* [ */
   if (ALL_ELEMENT_SUB (t[0]) && t[1] == ']')
     {
-      if (array_p (var) == 0 || allow_all == 0)
-        {
-          report_error ("%s: bad array subscript", s);
-          return ((char *)NULL);
-        }
-      l = array_to_word_list (array_cell (var));
-      if (l == (WORD_LIST *)NULL)
-       return ((char *) NULL);
+      if (allow_all == 0)
+       {
+         report_error ("%s: bad array subscript", s);
+         return ((char *)NULL);
+       }
+      else if (array_p (var) == 0)
+       {
+         l = (WORD_LIST *)NULL;
+         l = add_string_to_list (value_cell (var), l);
+       }
+      else
+       {
+         l = array_to_word_list (array_cell (var));
+         if (l == (WORD_LIST *)NULL)
+           return ((char *) NULL);
+       }
 
-#if 0
-      if (t[0] == '*')         /* ${name[*]} */
-       retval = (quoted & (Q_HERE_DOCUMENT|Q_DOUBLE_QUOTES)) ? string_list_dollar_star (l) : string_list (l);
-      else                     /* ${name[@]} */
-       retval = string_list ((quoted & (Q_HERE_DOCUMENT|Q_DOUBLE_QUOTES)) ? quote_list (l) : l);
-#else
       if (t[0] == '*' && (quoted & (Q_HERE_DOCUMENT|Q_DOUBLE_QUOTES)))
        {
          temp = string_list_dollar_star (l);
@@ -3656,7 +3741,6 @@ array_value_internal (s, quoted, allow_all)
        }
       else     /* ${name[@]} or unquoted ${name[*]} */
        retval = string_list_dollar_at (l, quoted);
-#endif
 
       dispose_words (l);
     }
@@ -3669,7 +3753,7 @@ array_value_internal (s, quoted, allow_all)
          return ((char *)NULL);
        }
       if (array_p (var) == 0)
-        return (ind == 0 ? savestring (value_cell (var)) : (char *)NULL);
+       return (ind == 0 ? savestring (value_cell (var)) : (char *)NULL);
       retval = array_reference (array_cell (var), ind);
       if (retval)
        retval = quote_escapes (retval);
@@ -3721,13 +3805,15 @@ array_length_reference (s)
     }
   else if (var == 0)
     return 0;
-  else if (array_p (var) == 0)
-    return 1;
 
-  array = array_cell (var);
+  /* We support a couple of expansions for variables that are not arrays.
+     We'll return the length of the value for v[0], and 1 for v[@] or
+     v[*].  Return 0 for everything else. */
+
+  array = array_p (var) ? array_cell (var) : (ARRAY *)NULL;
 
   if (ALL_ELEMENT_SUB (t[0]) && t[1] == ']')
-    return (array_num_elements (array));
+    return (array_p (var) ? array_num_elements (array) : 1);
 
   ind = array_expand_index (t, len);
   if (ind < 0)
@@ -3735,9 +3821,13 @@ array_length_reference (s)
       report_error ("%s: bad array subscript", t);
       return (-1);
     }
-  t = array_reference (array, ind);
-  len = STRLEN (t);
 
+  if (array_p (var))
+    t = array_reference (array, ind);
+  else
+    t = (ind == 0) ? value_cell (var) : (char *)NULL;
+
+  len = STRLEN (t);
   return (len);
 }
 #endif /* ARRAY_VARS */
@@ -3747,7 +3837,7 @@ valid_brace_expansion_word (name, var_is_special)
      char *name;
      int var_is_special;
 {
-  if (digit (*name) && all_digits (name))
+  if (isdigit (*name) && all_digits (name))
     return 1;
   else if (var_is_special)
     return 1;
@@ -3777,7 +3867,7 @@ parameter_brace_expand_word (name, var_is_special, quoted)
   WORD_LIST *l;
 
   /* Handle multiple digit arguments, as in ${11}. */
-  if (digit (*name))
+  if (isdigit (*name))
     {
       arg_index = atoi (name);
       temp = get_dollar_var_value (arg_index);
@@ -3808,7 +3898,7 @@ parameter_brace_expand_word (name, var_is_special, quoted)
   else if (var = find_variable (name))
     {
       if (var && invisible_p (var) == 0)
-        {
+       {
 #if defined (ARRAY_VARS)
          temp = array_p (var) ? array_reference (array_cell (var), 0) : value_cell (var);
 #else
@@ -3820,7 +3910,7 @@ parameter_brace_expand_word (name, var_is_special, quoted)
 
          if (tempvar_p (var))
            dispose_variable (var);
-        }
+       }
       else
        temp = (char *)NULL;
     }
@@ -3865,7 +3955,7 @@ parameter_brace_expand_rhs (name, value, c, quoted, qdollaratp, hasdollarat)
   int hasdol;
 
   temp = (*value == '~' || (strchr (value, '~') && unquoted_substring ("=~", value)))
-        ? bash_tilde_expand (value)
+       ? bash_tilde_expand (value)
        : savestring (value);
 
   /* If the entire expression is between double quotes, we want to treat
@@ -3935,7 +4025,12 @@ parameter_brace_expand_error (name, value)
 
   if (value && *value)
     {
-      l = expand_string (value, 0);
+      temp = (*value == '~' || (strchr (value, '~') && unquoted_substring ("=~", value)))
+               ? bash_tilde_expand (value)
+               : savestring (value);
+
+      l = expand_string (temp, 0);
+      FREE (temp);
       temp =  string_list (l);
       report_error ("%s: %s", name, temp ? temp : ""); /* XXX was value not "" */
       FREE (temp);
@@ -3956,10 +4051,9 @@ static int
 valid_length_expression (name)
      char *name;
 {
-  return (!name[1] ||                                          /* ${#} */
-         ((name[1] == '@' || name[1] == '*') && !name[2]) ||   /* ${#@}, ${#*} */
-         (member (name[1], "-?$!#") && !name[2]) ||            /* ${#-}, etc. */
-         (digit (name[1]) && all_digits (name + 1)) ||         /* ${#11} */
+  return (name[1] == '\0' ||                                   /* ${#} */
+         ((sh_syntaxtab[name[1]] & CSPECVAR) && name[2] == '\0') ||  /* special param */
+         (isdigit (name[1]) && all_digits (name + 1)) ||       /* ${#11} */
 #if defined (ARRAY_VARS)
          valid_array_reference (name + 1) ||                   /* ${#a[7]} */
 #endif
@@ -3983,7 +4077,7 @@ parameter_brace_expand_length (name)
     number = number_of_args ();
   else if ((name[1] == '@' || name[1] == '*') && name[2] == '\0')      /* ${#@}, ${#*} */
     number = number_of_args ();
-  else if (member (name[1], "-?$!#") && name[2] == '\0')
+  else if ((sh_syntaxtab[name[1]] & CSPECVAR) && name[2] == '\0')
     {
       /* Take the lengths of some of the shell's special parameters. */
       switch (name[1])
@@ -4018,7 +4112,7 @@ parameter_brace_expand_length (name)
     {
       number = 0;
 
-      if (digit (name[1]))             /* ${#1} */
+      if (isdigit (name[1]))           /* ${#1} */
        {
          t = get_dollar_var_value (atoi (name + 1));
          number = STRLEN (t);
@@ -4049,6 +4143,54 @@ parameter_brace_expand_length (name)
   return (number);
 }
 
+/* Skip characters in SUBSTR until DELIM.  SUBSTR is an arithmetic expression,
+   so we do some ad-hoc parsing of an arithmetic expression to find
+   the first DELIM, instead of using strchr(3).  Two rules:
+       1.  If the substring contains a `(', read until closing `)'.
+       2.  If the substring contains a `?', read past one `:' for each `?'.
+*/
+
+static char *
+skiparith (substr, delim)
+     char *substr;
+     int delim;
+{
+  int skipcol, pcount;
+  char *t;
+
+  for (skipcol = pcount = 0, t = substr; *t; t++)
+    {
+      /* Balance parens */
+      if (*t == '(')
+       {
+         pcount++;
+         continue;
+       }
+      if (*t == ')' && pcount)
+       {
+         pcount--;
+         continue;
+       }
+      if (pcount)
+       continue;
+
+      /* Skip one `:' for each `?' */
+      if (*t == ':' && skipcol)
+       {
+         skipcol--;
+         continue;
+       }
+      if (*t == delim)
+       break;
+      if (*t == '?')
+       {
+         skipcol++;
+         continue;
+       }
+    }
+  return t;
+}
+
 /* Verify and limit the start and end of the desired substring.  If
    VTYPE == 0, a regular shell variable is being used; if it is 1,
    then the positional parameters are being used; if it is 2, then
@@ -4066,9 +4208,18 @@ verify_substring_values (value, substr, vtype, e1p, e2p)
  ARRAY *a;
 #endif
 
+#if 1
+  /* duplicate behavior of strchr(3) */
+  t = skiparith (substr, ':');
+  if (*t && *t == ':')
+    *t = '\0'; 
+  else
+    t = (char *)0;
+#else
   t = strchr (substr, ':');
   if (t)
     *t = '\0';
+#endif
   temp1 = maybe_expand_string (substr, Q_DOUBLE_QUOTES, expand_string);
   *e1p = evalexp (temp1, &expok);
   free (temp1);
@@ -4108,15 +4259,15 @@ verify_substring_values (value, substr, vtype, e1p, e2p)
       *e2p = evalexp (temp1, &expok);
       free (temp1);
       if (expok == 0)
-        return (0);
+       return (0);
       if (*e2p < 0)
-        {
-          internal_error ("%s: substring expression < 0", t);
+       {
+         internal_error ("%s: substring expression < 0", t);
          return (0);
-        }
+       }
       *e2p += *e1p;            /* want E2 chars starting at E1 */
       if (*e2p > len)
-        *e2p = len;
+       *e2p = len;
     }
   else
     *e2p = len;
@@ -4217,6 +4368,8 @@ parameter_brace_substring (varname, value, substr, quoted)
     case VT_VARIABLE:
     case VT_ARRAYMEMBER:
       temp = quoted ? quoted_substring (value, e1, e2) : substring (value, e1, e2);
+      if (val && vtype == VT_ARRAYMEMBER)
+       free (val);
       break;
     case VT_POSPARMS:
       temp = pos_params (varname, e1, e2, quoted);
@@ -4285,8 +4438,8 @@ pat_subst (string, pat, rep, mflags)
 
       /* OK, now copy the leading unmatched portion of the string (from
         str to s) to ret starting at rptr (the current offset).  Then copy
-         the replacement string at ret + rptr + (s - str).  Increment
-         rptr (if necessary) and str and go on. */
+        the replacement string at ret + rptr + (s - str).  Increment
+        rptr (if necessary) and str and go on. */
       if (l)
        {
          strncpy (ret + rptr, str, l);
@@ -4297,9 +4450,11 @@ pat_subst (string, pat, rep, mflags)
          strncpy (ret + rptr, rep, replen);
          rptr += replen;
        }
+      if (s == e)
+       e++;            /* avoid infinite recursion on zero-length match */
       str = e;         /* e == end of match */
       if (((mflags & MATCH_GLOBREP) == 0) || mtype != MATCH_ANY)
-        break;
+       break;
     }
 
   /* Now copy the unmatched portion of the input string */
@@ -4400,7 +4555,7 @@ parameter_brace_patsub (varname, value, patsub, quoted)
       if ((mflags & MATCH_QUOTED) == 0)
        rep = maybe_expand_string (rep, quoted, expand_string_unsplit);
       else
-        rep = expand_string_to_string (rep, quoted, expand_string_unsplit);
+       rep = expand_string_to_string (rep, quoted, expand_string_unsplit);
     }
 
   p = pat;
@@ -4480,10 +4635,10 @@ parameter_brace_expand (string, indexp, quoted, quoted_dollar_atp, contains_doll
         string[t_index] == '?' ||
         string[t_index] == '#')) ||
       (sindex == t_index - 1 && string[sindex] == '!' &&
-        (string[t_index] == '#' ||
-         string[t_index] == '?' ||
-         string[t_index] == '@' ||
-         string[t_index] == '*')))
+       (string[t_index] == '#' ||
+        string[t_index] == '?' ||
+        string[t_index] == '@' ||
+        string[t_index] == '*')))
     {
       t_index++;
       free (name);
@@ -4492,9 +4647,9 @@ parameter_brace_expand (string, indexp, quoted, quoted_dollar_atp, contains_doll
       *name = string[sindex];
       if (string[sindex] == '!')
        {
-          /* indirect reference of $#, $?, $@, or $* */
-          name[1] = string[sindex + 1];
-          strcpy (name + 2, temp1);
+         /* indirect reference of $#, $?, $@, or $* */
+         name[1] = string[sindex + 1];
+         strcpy (name + 2, temp1);
        }
       else     
        strcpy (name + 1, temp1);
@@ -4511,7 +4666,7 @@ parameter_brace_expand (string, indexp, quoted, quoted_dollar_atp, contains_doll
      characters, move past it as normal.  If not, assume that
      a substring specification is being given, and do not move
      past it. */
-  if (c == ':' && member (string[sindex], "-=?+"))
+  if (c == ':' && VALID_PARAM_EXPAND_CHAR (string[sindex]))
     {
       check_nullness++;
       if (c = string[sindex])
@@ -4527,7 +4682,7 @@ parameter_brace_expand (string, indexp, quoted, quoted_dollar_atp, contains_doll
   /* ${#-} is a valid expansion and means to take the length of $-.
      Similarly for ${#?} and ${##}... */
   if (name[0] == '#' && name[1] == '\0' && check_nullness == 0 &&
-       member (c, "-?#") && string[sindex] == RBRACE)
+       VALID_SPECIAL_LENGTH_PARAM (c) && string[sindex] == RBRACE)
     {
       name = xrealloc (name, 3);
       name[1] = c;
@@ -4547,7 +4702,8 @@ parameter_brace_expand (string, indexp, quoted, quoted_dollar_atp, contains_doll
      either a variable name, one of the positional parameters or a special
      variable that expands to one of the positional parameters. */
   want_indir = *name == '!' &&
-    (legal_variable_starter (name[1]) || digit (name[1]) || member (name[1], "#?@*"));
+    (legal_variable_starter (name[1]) || isdigit (name[1])
+                                     || VALID_INDIR_PARAM (name[1]));
 
   /* Determine the value of this variable. */
 
@@ -4559,10 +4715,10 @@ parameter_brace_expand (string, indexp, quoted, quoted_dollar_atp, contains_doll
   if (*name == '#' && name[1])
     {
       /* If we are not pointing at the character just after the
-         closing brace, then we haven't gotten all of the name.
-         Since it begins with a special character, this is a bad
-         substitution.  Also check NAME for validity before trying
-         to go on. */
+        closing brace, then we haven't gotten all of the name.
+        Since it begins with a special character, this is a bad
+        substitution.  Also check NAME for validity before trying
+        to go on. */
       if (string[sindex - 1] != RBRACE || (valid_length_expression (name) == 0))
        {
          temp = (char *)NULL;
@@ -4599,7 +4755,16 @@ parameter_brace_expand (string, indexp, quoted, quoted_dollar_atp, contains_doll
       temp1[number - 1] = '\0';
       x = all_variables_matching_prefix (temp1);
       xlist = argv_to_word_list (x, 1, 0);
-      temp = string_list_dollar_star (xlist, quoted);
+      if (string[sindex - 2] == '*')
+       temp = string_list_dollar_star (xlist);
+      else
+       {
+         temp = string_list_dollar_at (xlist, quoted);
+         if ((quoted & (Q_HERE_DOCUMENT|Q_DOUBLE_QUOTES)) && quoted_dollar_atp)
+           *quoted_dollar_atp = 1;
+         if (contains_dollar_at)
+           *contains_dollar_at = 1;
+       }
       free (x);
       free (xlist);
       free (temp1);
@@ -4621,15 +4786,11 @@ parameter_brace_expand (string, indexp, quoted, quoted_dollar_atp, contains_doll
     temp = parameter_brace_expand_word (name, var_is_special, quoted);
 
 #if defined (ARRAY_VARS)
-#if 0
-  if ((quoted & (Q_HERE_DOCUMENT|Q_DOUBLE_QUOTES)) && valid_array_reference (name))
-#else
   if (valid_array_reference (name))
-#endif
     {
       temp1 = strchr (name, '[');
       if (temp1 && temp1[1] == '@' && temp1[2] == ']')
-        {
+       {
          if ((quoted & (Q_HERE_DOCUMENT|Q_DOUBLE_QUOTES)) && quoted_dollar_atp)
            *quoted_dollar_atp = 1;
          if (contains_dollar_at)
@@ -4652,10 +4813,10 @@ parameter_brace_expand (string, indexp, quoted, quoted_dollar_atp, contains_doll
   if (c && c != RBRACE)
     {
       /* Extract the contents of the ${ ... } expansion
-         according to the Posix.2 rules. */
+        according to the Posix.2 rules. */
       value = extract_dollar_brace_string (string, &sindex, quoted);
       if (string[sindex] == RBRACE)
-        sindex++;
+       sindex++;
       else
        goto bad_substitution;
     }
@@ -4696,7 +4857,7 @@ parameter_brace_expand (string, indexp, quoted, quoted_dollar_atp, contains_doll
 
     case RBRACE:
       if (var_is_set == 0 && unbound_vars_is_error)
-        {
+       {
          report_error ("%s: unbound variable", name);
          FREE (value);
          FREE (temp);
@@ -4709,10 +4870,10 @@ parameter_brace_expand (string, indexp, quoted, quoted_dollar_atp, contains_doll
     case '#':  /* ${param#[#]pattern} */
     case '%':  /* ${param%[%]pattern} */
       if (value == 0 || *value == '\0' || temp == 0 || *temp == '\0')
-        {
-          FREE (value);
+       {
+         FREE (value);
          break;
-        }
+       }
       if ((name[0] == '@' || name[0] == '*') && name[1] == '\0')
        temp1 = parameter_list_remove_pattern (value, name[0], c, quoted);
 #if defined (ARRAY_VARS)
@@ -4731,23 +4892,23 @@ parameter_brace_expand (string, indexp, quoted, quoted_dollar_atp, contains_doll
     case '?':
     case '+':
       if (var_is_set && var_is_null == 0)
-        {
-         /* We don't want the value of the named variable for
-            anything, just the value of the right hand side. */
-
-         /* XXX -- if we're double-quoted and the named variable is "$@",
-            we want to turn off any special handling of "$@" -- we're not
-            using it, so whatever is on the rhs applies. */
-         if ((quoted & (Q_HERE_DOCUMENT|Q_DOUBLE_QUOTES)) && quoted_dollar_atp)
-           *quoted_dollar_atp = 0;
-         if (contains_dollar_at)
-           *contains_dollar_at = 0;
+       {
+         /* If the operator is `+', we don't want the value of the named
+            variable for anything, just the value of the right hand side. */
 
          if (c == '+')
            {
+             /* XXX -- if we're double-quoted and the named variable is "$@",
+                       we want to turn off any special handling of "$@" --
+                       we're not using it, so whatever is on the rhs applies. */
+             if ((quoted & (Q_HERE_DOCUMENT|Q_DOUBLE_QUOTES)) && quoted_dollar_atp)
+               *quoted_dollar_atp = 0;
+             if (contains_dollar_at)
+               *contains_dollar_at = 0;
+
              FREE (temp);
              if (value)
-               {
+               {
                  temp = parameter_brace_expand_rhs (name, value, c,
                                                     quoted,
                                                     quoted_dollar_atp,
@@ -4755,7 +4916,7 @@ parameter_brace_expand (string, indexp, quoted, quoted_dollar_atp, contains_doll
                  free (value);
                }
              else
-               temp = (char *)NULL;
+               temp = (char *)NULL;
            }
          else
            {
@@ -4764,7 +4925,7 @@ parameter_brace_expand (string, indexp, quoted, quoted_dollar_atp, contains_doll
          /* Otherwise do nothing; just use the value in TEMP. */
        }
       else     /* VAR not set or VAR is NULL. */
-        {
+       {
          FREE (temp);
          temp = (char *)NULL;
          if (c == '=' && var_is_special)
@@ -4777,14 +4938,25 @@ parameter_brace_expand (string, indexp, quoted, quoted_dollar_atp, contains_doll
          else if (c == '?')
            {
              parameter_brace_expand_error (name, value);
-             return (interactive ? &expand_param_error : &expand_param_fatal);
+             return (interactive_shell ? &expand_param_error : &expand_param_fatal);
            }
          else if (c != '+')
-           temp = parameter_brace_expand_rhs (name, value, c, quoted,
-                                              quoted_dollar_atp,
-                                              contains_dollar_at);
+           {
+             /* XXX -- if we're double-quoted and the named variable is "$@",
+                       we want to turn off any special handling of "$@" --
+                       we're not using it, so whatever is on the rhs applies. */
+             if ((quoted & (Q_HERE_DOCUMENT|Q_DOUBLE_QUOTES)) && quoted_dollar_atp)
+               *quoted_dollar_atp = 0;
+             if (contains_dollar_at)
+               *contains_dollar_at = 0;
+
+             temp = parameter_brace_expand_rhs (name, value, c, quoted,
+                                                quoted_dollar_atp,
+                                                contains_dollar_at);
+           }
          free (value);
        }
+
       break;
     }
   free (name);
@@ -4899,12 +5071,12 @@ param_expand (string, sindex, quoted, expanded_something,
          temp = temp1;
        }
       else
-        {
-          /* If the $* is not quoted it is identical to $@ */
-          temp = string_list_dollar_at (list, quoted);
-          if (contains_dollar_at)
-            *contains_dollar_at = 1;
-        }
+       {
+         /* If the $* is not quoted it is identical to $@ */
+         temp = string_list_dollar_at (list, quoted);
+         if (expand_no_split_dollar_star == 0 && contains_dollar_at)
+           *contains_dollar_at = 1;
+       }
 
       dispose_words (list);
       break;
@@ -4948,13 +5120,19 @@ param_expand (string, sindex, quoted, expanded_something,
         in the string. */
       /* Note that we saw the quoted null so we can add one back at
         the end of this function if there are no other characters
-        in the string, discard TEMP, and go on. */
+        in the string, discard TEMP, and go on.  The exception to
+        this is when we have "${@}" and $1 is '', since $@ needs
+        special handling. */
       if (temp && QUOTED_NULL (temp))
        {
          if (had_quoted_null_p)
            *had_quoted_null_p = 1;
-         free (temp);
-         temp = (char *)NULL;
+         if (*quoted_dollar_at_p == 0)
+           {
+             free (temp);
+             temp = (char *)NULL;
+           }
+           
        }
 
       goto return0;
@@ -4967,7 +5145,7 @@ param_expand (string, sindex, quoted, expanded_something,
       zindex = t_index;
 
       /* For Posix.2-style `$(( ))' arithmetic substitution,
-         extract the expression and pass it to the evaluator. */
+        extract the expression and pass it to the evaluator. */
       if (temp && *temp == LPAREN)
        {
          char *temp2;
@@ -5161,6 +5339,7 @@ expand_word_internal (word, quoted, isexp, contains_dollar_at, expanded_somethin
 
   int had_quoted_null;
   int has_dollar_at;
+  int tflag;
 
   register int c;              /* Current character. */
   int number;                  /* Temporary number value. */
@@ -5300,13 +5479,14 @@ add_string:
          c = string[++sindex];
 
          if (quoted & Q_HERE_DOCUMENT)
-           temp1 = slashify_in_here_document;
+           tflag = CBSHDOC;
          else if (quoted & Q_DOUBLE_QUOTES)
-           temp1 = slashify_in_quotes;
+           tflag = CBSDQUOTE;
          else
-           temp1 = "";
+           tflag = 0;
+
 
-         if ((quoted & (Q_HERE_DOCUMENT|Q_DOUBLE_QUOTES)) && member (c, temp1) == 0)
+         if ((quoted & (Q_HERE_DOCUMENT|Q_DOUBLE_QUOTES)) && ((sh_syntaxtab[c] & tflag) == 0))
            {
              twochars[0] = '\\';
              twochars[1] = c;
@@ -5601,7 +5781,7 @@ finished_with_string:
       if (word->flags & W_NOGLOB)
        tword->flags |= W_NOGLOB;       /* XXX */
       if (quoted & (Q_HERE_DOCUMENT|Q_DOUBLE_QUOTES))
-        tword->flags |= W_QUOTED;
+       tword->flags |= W_QUOTED;
     }
   else
     {
@@ -5659,7 +5839,7 @@ string_quote_removal (string, quoted)
        {
        case '\\':
          c = string[++sindex];
-         if (((quoted & (Q_HERE_DOCUMENT|Q_DOUBLE_QUOTES)) || dquote) && member (c, slashify_in_quotes) == 0)
+         if (((quoted & (Q_HERE_DOCUMENT|Q_DOUBLE_QUOTES)) || dquote) && (sh_syntaxtab[c] & CBSDQUOTE) == 0)
            *r++ = '\\';
          /* FALLTHROUGH */
 
@@ -5976,12 +6156,8 @@ glob_expand_word_list (tlist, eflags)
       next = tlist->next;
 
       /* If the word isn't an assignment and contains an unquoted
-         pattern matching character, then glob it. */
-#if 0
-      if ((tlist->word->flags & W_ASSIGNMENT) == 0 &&
-#else
+        pattern matching character, then glob it. */
       if ((tlist->word->flags & W_NOGLOB) == 0 &&
-#endif
          unquoted_glob_pattern_p (tlist->word->word))
        {
          glob_array = shell_glob_filename (tlist->word->word);
@@ -6159,6 +6335,7 @@ shell_expand_word_list (tlist, eflags)
          /* Dispose the new list we're building. */
          dispose_words (new_list);
 
+         last_command_exit_value = EXECUTION_FAILURE;
          if (expanded == &expand_word_error)
            jump_to_top_level (DISCARD);
          else
@@ -6232,10 +6409,13 @@ expand_word_list_internal (list, eflags)
                  tint = do_assignment (temp_list->word->word);
                  /* Variable assignment errors in non-interactive shells
                     running in Posix.2 mode cause the shell to exit. */
-                 if (tint == 0 && interactive_shell == 0 && posixly_correct)
+                 if (tint == 0)
                    {
                      last_command_exit_value = EXECUTION_FAILURE;
-                     jump_to_top_level (FORCE_EOF);
+                     if (interactive_shell == 0 && posixly_correct)
+                       jump_to_top_level (FORCE_EOF);
+                     else
+                       jump_to_top_level (DISCARD);
                    }
                }
              dispose_words (subst_assign_varlist);
@@ -6287,11 +6467,13 @@ expand_word_list_internal (list, eflags)
          tint = (*assign_func) (temp_list->word->word);
          /* Variable assignment errors in non-interactive shells running
             in Posix.2 mode cause the shell to exit. */
-         if (tint == 0 && assign_func == do_assignment &&
-               interactive_shell == 0 && posixly_correct)
+         if (tint == 0 && assign_func == do_assignment)
            {
              last_command_exit_value = EXECUTION_FAILURE;
-             jump_to_top_level (FORCE_EOF);
+             if (interactive_shell == 0 && posixly_correct)
+               jump_to_top_level (FORCE_EOF);
+             else
+               jump_to_top_level (DISCARD);
            }
        }
 
diff --git a/subst.h b/subst.h
index 76df855f60aaace366a15b197ef79db640f5ab28..3d1648dc410401ceafc19e340c912c0e11b5c2be 100644 (file)
--- a/subst.h
+++ b/subst.h
 
 #include "stdc.h"
 
+/* Constants which specify how to handle backslashes and quoting in
+   expand_word_internal ().  Q_DOUBLE_QUOTES means to use the function
+   slashify_in_quotes () to decide whether the backslash should be
+   retained.  Q_HERE_DOCUMENT means slashify_in_here_document () to
+   decide whether to retain the backslash.  Q_KEEP_BACKSLASH means
+   to unconditionally retain the backslash. */
+#define Q_DOUBLE_QUOTES  0x1
+#define Q_HERE_DOCUMENT  0x2
+#define Q_KEEP_BACKSLASH 0x4
+#define Q_NOQUOTE       0x8
+#define Q_QUOTED        0x10
+#define Q_ADDEDQUOTES   0x20
+#define Q_QUOTEDNULL    0x40
+
 /* Cons a new string from STRING starting at START and ending at END,
    not including END. */
 extern char *substring __P((char *, int, int));
@@ -129,7 +143,7 @@ extern WORD_LIST *expand_word __P((WORD_DESC *, int));
 /* Expand WORD, but do not perform word splitting on the result.  This
    does parameter expansion, command substitution, arithmetic expansion,
    and quote removal. */
-extern WORD_LIST *expand_word_no_split __P((WORD_DESC *, int));
+extern WORD_LIST *expand_word_unsplit __P((WORD_DESC *, int));
 extern WORD_LIST *expand_word_leave_quoted __P((WORD_DESC *, int));
 
 /* Return the value of a positional parameter.  This handles values > 10. */
index cab105de3c46d7015b7eb101632f1f3003824818..1064cb44c69299b4d38697ace7fd9629520f7966 100644 (file)
@@ -21,7 +21,17 @@ MACHTYPE="!MACHTYPE!"
 PATH=/bin:/usr/bin:/usr/local/bin:$PATH
 export PATH
 
+# If the OS supplies a program to make temp files with semi-random names,
+# use it.
 TEMP=/tmp/bbug.$$
+for d in /bin /usr/bin /usr/local/bin ; do
+       if [ -x $d/mktemp ]; then
+               TEMP=`$d/mktemp -t bbug ` ; break;
+       elif [ -x $d/tempfile ]; then
+               TEMP=` $d/tempfile --prefix bbug --mode 600 `; break
+       fi
+done
+
 USAGE="Usage: $0 [--help] [--version] [bug-report-email-address]"
 VERSTR="GNU bashbug, version ${RELEASE}.${PATCHLEVEL}-${RELSTATUS}"
 
@@ -91,7 +101,9 @@ esac
 BUGADDR="${1-$BUGBASH}"
 
 if [ -z "$DEFEDITOR" ] && [ -z "$EDITOR" ]; then
-       if [ -x /usr/local/bin/ce ]; then
+       if [ -x /usr/bin/editor ]; then
+               DEFEDITOR=editor
+       elif [ -x /usr/local/bin/ce ]; then
                DEFEDITOR=ce
        elif [ -x /usr/local/bin/emacs ]; then
                DEFEDITOR=emacs
index ad5983e7618cf12d82eba2a248881e506d702ea9..6a2c9ffe977e456ade1937cd78d64d31f79ca416 100755 (executable)
@@ -168,10 +168,17 @@ case "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" in
     *:Windows:NT:*:SP*)
        echo intel-pc-opennt
        exit 0 ;;
+    *:NonStop-UX:*:*)
+       echo mips-compaq-nonstopux
+       exit 0 ;;
     # end cases added for Bash
     alpha:OSF1:*:*)
-       if test $UNAME_RELEASE = "V4.0"; then
+       # TEST CHANGED FOR BASH to handle `letter version' releases
+       UNAME_MAJOR=`echo "$UNAME_RELEASE" | sed -e 's/^.\([0-9]\).*/\1/'`
+       if test X"$UNAME_MAJOR" != X"" && test $UNAME_MAJOR = 4 ; then
                UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $3}'`
+       elif test X"$UNAME_MAJOR" != X"" && test $UNAME_MAJOR -gt 4 ; then
+               UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $4}'`           
        fi
        # A Vn.n version is a released version.
        # A Tn.n version is a released field test version.
@@ -703,7 +710,7 @@ EOF
        echo ${UNAME_MACHINE}-unknown-openbsd`echo ${UNAME_RELEASE}|sed -e 's/[-_].*/\./'`
        exit 0 ;;
     i*:CYGWIN*:*)
-       echo ${UNAME_MACHINE}-pc-cygwin32
+       echo ${UNAME_MACHINE}-pc-cygwin
        exit 0 ;;
     i*:MINGW*:*)
        echo ${UNAME_MACHINE}-pc-mingw32
@@ -1058,6 +1065,12 @@ EOF
     *:Rhapsody:*:*)
        echo ${UNAME_MACHINE}-apple-rhapsody${UNAME_RELEASE}
        exit 0 ;;
+    Power*:Darwin:*:*)
+       echo powerpc-apple-darwin${UNAME_RELEASE}
+       exit 0 ;;
+    *:Darwin:*:*)
+       echo ${UNAME_MACHINE}-apple-darwin${UNAME_RELEASE}
+       exit 0 ;;
 esac
 
 #echo '(No uname command or uname output not recognized.)' 1>&2
index 7d0c026d9bdfe256fdf4b0282d91fc45a63e313b..6cc1150a09eb269a84948b1a06be4f407c32cf0e 100755 (executable)
@@ -173,7 +173,7 @@ case $basic_machine in
                | mips64vr4300 | mips64vr4300el | mips64vr4100 | mips64vr4100el \
                | mips64vr5000 | miprs64vr5000el | mcore \
                | sparc | sparclet | sparclite | sparc64 | sparcv9 | v850 | c4x \
-               | thumb | d10v)
+               | thumb | d10v | s390)
                basic_machine=$basic_machine-unknown
                ;;
        m88110 | m680[12346]0 | m683?2 | m68360 | m5200 | z8k | v70 | h8500 | w65)
@@ -676,6 +676,10 @@ case $basic_machine in
        rtpc | rtpc-*)
                basic_machine=romp-ibm
                ;;
+       s390-*)
+               basic_machine=s390-ibm
+               os=-linux
+               ;;
         sa29200)
                 basic_machine=a29k-amd
                 os=-udi
@@ -946,13 +950,13 @@ case $os in
              | -lynxos* | -bosx* | -nextstep* | -cxux* | -aout* | -elf* | -oabi* \
              | -ptx* | -coff* | -ecoff* | -winnt* | -domain* | -vsta* \
              | -udi* | -eabi* | -lites* | -ieee* | -go32* | -aux* \
-             | -cygwin32* | -pe* | -psos* | -moss* | -proelf* | -rtems* \
+             | -cygwin* | -pe* | -psos* | -moss* | -proelf* | -rtems* \
              | -mingw32* | -linux-gnu* | -uxpv* | -beos* | -mpeix* | -udk* \
              | -interix* | -uwin* | -rhapsody* | -openstep* | -oskit*)
        # Remember, each alternative MUST END IN *, to match a version number.
                ;;
        # BEGIN CASES ADDED FOR Bash
-       -qnx* | -powerux* | -superux* )
+       -qnx* | -powerux* | -superux* | -darwin* | -nonstopux*)
                ;;
        # END CASES ADDED FOR Bash
         -sim | -es1800* | -hms* | -xray | -os68k* | -none* | -v88r* \
index cfc3508d09c8b4a5fe5cce8ad87e3ba1d65d14bf..6b3196e97010c29b4cfe49a7d2fd55cf7a9aa301 100644 (file)
 
 char *signal_names[2 * NSIG];
 
+#define signal_names_size (sizeof(signal_names)/sizeof(signal_names[0]))
+
 char *progname;
 
+/* AIX 4.3 defines SIGRTMIN and SIGRTMAX as 888 and 999 respectively.
+   I don't want to allocate so much unused space for the intervening signal
+   numbers, so we just punt if SIGRTMAX is past the bounds of the
+   signal_names array (handled in configure). */
+#if defined (SIGRTMAX) && defined (UNUSABLE_RT_SIGNALS)
+#  undef SIGRTMAX
+#  undef SIGRTMIN
+#endif
+
 #if defined (SIGRTMAX) || defined (SIGRTMIN)
 #  define RTLEN 14
 #  define RTLIM 256
@@ -49,7 +60,7 @@ initialize_signames ()
   int rtmin, rtmax, rtcnt;
 #endif
 
-  for (i = 1; i < sizeof(signal_names)/sizeof(signal_names[0]); i++)
+  for (i = 1; i < signal_names_size; i++)
     signal_names[i] = (char *)NULL;
 
   /* `signal' 0 is what we do on exit. */
index ea85afa4303704085e8a78239d6a62c65147ed23..a6d751f38d1c955f78fe0bb1e914c662bd8354ba 100755 (executable)
@@ -5,17 +5,22 @@
 #
 
 PROGNAME=`basename $0`
-TDIR=/tmp/rlvers
+
+: ${TMPDIR:=/tmp}
+TDIR=$TMPDIR/rlvers
 
 # defaults
 CC=cc
 RL_LIBDIR=/usr/local/lib
+RL_INCDIR=/usr/local/include
 
 TERMCAP_LIB="-ltermcap"
 
+# cannot rely on the presence of getopts
 while [ $# -gt 0 ]; do
        case "$1" in
        -C)     shift ; CC="$1"; shift ;;
+       -I)     shift ; RL_INCDIR="$1" ; shift ;;
        -L)     shift ; RL_LIBDIR="$1" ; shift ;;
        -T)     shift ; TERMCAP_LIB="$1" ; shift ;;
        -v)     shift ; verbose=y ;;
@@ -64,7 +69,15 @@ main()
 }
 EOF
 
-if eval ${CC} -L${RL_LIBDIR} -o $TDIR/rlvers $TDIR/rlvers.c -lreadline ${TERMCAP_LIB};
+opwd=`pwd`
+
+cd $TDIR || {
+       echo "${PROGNAME}: cannot cd to $TDIR" >&2
+       echo 0
+       exit 1
+}
+       
+if eval ${CC} -L${RL_LIBDIR} -I${RL_INCDIR} -o $TDIR/rlvers $TDIR/rlvers.c -lreadline ${TERMCAP_LIB};
 then
        v=`$TDIR/rlvers`
 else
@@ -80,4 +93,5 @@ unknown | "") echo 0 ;;
 *)             echo "$v" ;;
 esac
 
+cd $opwd
 exit 0
index 6649c700588f8863ddeeb0a17a60bc8f5dbfe46b..5abef8a3bee1ed7af0e6cf04207abc8a1cdd14c7 100755 (executable)
@@ -43,7 +43,7 @@ while [ $# -gt 0 ]; do
 done
 
 case "${host_os}-${SHOBJ_CC}" in
-sunos4*-gcc*)
+sunos4*-*gcc*)
        SHOBJ_CFLAGS=-fpic
        SHOBJ_LD=/usr/bin/ld
        SHOBJ_LDFLAGS='-assert pure-text'
@@ -59,7 +59,7 @@ sunos4*)
        SHLIB_LIBVERSION='$(SHLIB_LIBSUFF).$(SHLIB_MAJOR)$(SHLIB_MINOR)'
        ;;
 
-sunos5*-gcc*|solaris2*-gcc*)
+sunos5*-*gcc*|solaris2*-*gcc*)
        SHOBJ_CFLAGS=-fpic
        SHOBJ_LD='${CC}'
        SHOBJ_LDFLAGS='-shared -Wl,-i -Wl,-h,$@'
@@ -97,7 +97,7 @@ freebsd2* | netbsd* | openbsd*)
 #      ;;
 
 # FreeBSD-3.x ELF
-freebsd3*)
+freebsd[3-9]*|freebsdelf[3-9]*|freebsdaout[3-9]*)
        SHOBJ_CFLAGS=-fpic
        SHOBJ_LD='${CC}'
 
@@ -113,13 +113,13 @@ freebsd3*)
                SHLIB_LIBVERSION='$(SHLIB_LIBSUFF).$(SHLIB_MAJOR)$(SHLIB_MINOR)'
        fi
        ;;
-
-linux*)
+# All versions of Linux or the semi-mythical GNU Hurd.
+linux*|gnu*)
        SHOBJ_CFLAGS=-fPIC
        SHOBJ_LD='${CC}'
        SHOBJ_LDFLAGS='-shared -Wl,-soname,$@'
 
-       SHLIB_XLDFLAGS='-Wl,-rpath,$(libdir)'
+       SHLIB_XLDFLAGS='-Wl,-rpath,$(libdir) -Wl,-soname,`basename $@ $(SHLIB_MINOR)`'
        SHLIB_LIBVERSION='$(SHLIB_LIBSUFF).$(SHLIB_MAJOR)$(SHLIB_MINOR)'
        ;;
 
@@ -158,10 +158,11 @@ bsdi4*)
        SHOBJ_LD='${CC}'
        SHOBJ_LDFLAGS='-shared -Wl,-soname,$@'
 
+       SHLIB_XLDFLAGS='-Wl,-soname,`basename $@ $(SHLIB_MINOR)`'
        SHLIB_LIBVERSION='$(SHLIB_LIBSUFF).$(SHLIB_MAJOR)$(SHLIB_MINOR)'
        ;;
 
-osf*-gcc*)
+osf*-*gcc*)
        # Fix to use gcc linker driver from bfischer@TechFak.Uni-Bielefeld.DE
        SHOBJ_LD='${CC}'
        SHOBJ_LDFLAGS='-shared -Wl,-soname,$@'
@@ -178,7 +179,7 @@ osf*)
        SHLIB_LIBVERSION='$(SHLIB_LIBSUFF).$(SHLIB_MAJOR)'
        ;;
 
-aix4.[2-9]*-gcc*)              # lightly tested by jik@cisco.com
+aix4.[2-9]*-*gcc*)             # lightly tested by jik@cisco.com
        SHOBJ_CFLAGS=-fpic
        SHOBJ_LD='ld'
        SHOBJ_LDFLAGS='-bdynamic -bnoentry -bexpall'
@@ -203,7 +204,7 @@ aix4.[2-9]*)
 #
 # THE FOLLOWING ARE UNTESTED -- and some may not support the dlopen interface
 #
-irix[56]*-gcc*)
+irix[56]*-*gcc*)
        SHOBJ_CFLAGS='-fpic'
        SHOBJ_LD='${CC}'
        SHOBJ_LDFLAGS='-shared -Wl,-soname,$@'
@@ -216,14 +217,15 @@ irix[56]*)
        SHOBJ_CFLAGS='-K PIC'
        SHOBJ_LD=ld
 #      SHOBJ_LDFLAGS='-call_shared -hidden_symbol -no_unresolved -soname $@'
-#      Change from David Kaelbling <drk@sgi.com>
+#      Change from David Kaelbling <drk@sgi.com>.  If you have problems,
+#      remove the `-no_unresolved'
        SHOBJ_LDFLAGS='-shared -no_unresolved -soname $@'
 
        SHLIB_XLDFLAGS='-rpath $(libdir)'
        SHLIB_LIBVERSION='$(SHLIB_LIBSUFF).$(SHLIB_MAJOR)'
        ;;
 
-hpux9*-gcc*)
+hpux9*-*gcc*)
        # must use gcc; the bundled cc cannot compile PIC code
        SHOBJ_CFLAGS='-fpic'
        SHOBJ_LD='${CC}'
@@ -239,7 +241,7 @@ hpux9*)
        SHLIB_STATUS=unsupported
        ;;
 
-hpux10*-gcc*)
+hpux10*-*gcc*)
        # must use gcc; the bundled cc cannot compile PIC code
        SHOBJ_CFLAGS='-fpic'
        SHOBJ_LD='${CC}'
@@ -253,14 +255,27 @@ hpux10*-gcc*)
 hpux10*)
        SHOBJ_STATUS=unsupported
        SHLIB_STATUS=unsupported
+
+       # If you are using the HP ANSI C compiler, you can uncomment and use
+       # this code
+#      SHOBJ_STATUS=unsupported
+#      SHLIB_STATUS=unsupported
+#
+#      SHOBJ_CFLAGS='+z'
+#      SHOBJ_LD='ld'
+#      SHOBJ_LDFLAGS='-b'
+#
+#      SHLIB_XLDFLAGS=''
+#      SHLIB_LIBSUFF='sl'
+#      SHLIB_LIBVERSION='$(SHLIB_LIBSUFF).$(SHLIB_MAJOR)'      
        ;;
 
-hpux11*-gcc*)
+hpux11*-*gcc*)
        # must use gcc; the bundled cc cannot compile PIC code
        SHOBJ_CFLAGS='-fpic'
        SHOBJ_LD='${CC}'
 #      SHOBJ_LDFLAGS='-shared -Wl,-b -Wl,-B,symbolic -Wl,+s -Wl,+std -Wl,+h,$@'
-       SHOBJ_LDFLAGS='-shared -Wl,-b -Wl,+s -Wl,+h,$@'
+       SHOBJ_LDFLAGS='-shared -fpic -Wl,-b -Wl,+s -Wl,+h,$@'
 
        SHLIB_XLDFLAGS='-Wl,+b,$(libdir)'
        SHLIB_LIBSUFF='sl'
@@ -270,9 +285,23 @@ hpux11*-gcc*)
 hpux11*)
        SHOBJ_STATUS=unsupported
        SHLIB_STATUS=unsupported
+
+       # If you are using the HP ANSI C compiler, you can uncomment and use
+       # this code
+#      SHOBJ_STATUS=unsupported
+#      SHLIB_STATUS=unsupported
+#
+#      SHOBJ_CFLAGS='+z'
+#      SHOBJ_LD='ld'
+#      SHOBJ_LDFLAGS='-b'
+#
+#      SHLIB_XLDFLAGS=''
+#      SHLIB_LIBSUFF='sl'
+#      SHLIB_LIBVERSION='$(SHLIB_LIBSUFF).$(SHLIB_MAJOR)'      
+
        ;;
 
-sysv4*-gcc*)
+sysv4*-*gcc*)
        SHOBJ_CFLAGS=-shared
        SHOBJ_LDFLAGS='-shared -h $@'
        SHOBJ_LD='${CC}'
@@ -288,7 +317,7 @@ sysv4*)
        SHLIB_LIBVERSION='$(SHLIB_LIBSUFF).$(SHLIB_MAJOR)'
        ;;
 
-sco3.2v5*-gcc*)
+sco3.2v5*-*gcc*)
        SHOBJ_CFLAGS='-fpic'            # DEFAULTS TO ELF
        SHOBJ_LD='${CC}'
        SHOBJ_LDFLAGS='-shared'
@@ -304,7 +333,7 @@ sco3.2v5*)
        SHLIB_LIBVERSION='$(SHLIB_LIBSUFF).$(SHLIB_MAJOR)'
        ;;
 
-sysv5uw7*-gcc*)
+sysv5uw7*-*gcc*)
        SHOBJ_CFLAGS='-fpic'
        SHOBJ_LD='${CC}'
        SHOBJ_LDFLAGS='-shared'
@@ -320,7 +349,7 @@ sysv5uw7*)
        SHLIB_LIBVERSION='$(SHLIB_LIBSUFF).$(SHLIB_MAJOR)'
        ;;
        
-dgux*-gcc*)
+dgux*-*gcc*)
        SHOBJ_CFLAGS=-fpic
        SHOBJ_LD='${CC}'
        SHOBJ_LDFLAGS='-shared'
@@ -344,7 +373,7 @@ msdos*)
 #
 # Rely on correct gcc configuration for everything else
 #
-*-gcc*)
+*-*gcc*)
        SHOBJ_CFLAGS=-fpic
        SHOBJ_LD='${CC}'
        SHOBJ_LDFLAGS='-shared'
diff --git a/syntax.h b/syntax.h
new file mode 100644 (file)
index 0000000..87938d6
--- /dev/null
+++ b/syntax.h
@@ -0,0 +1,91 @@
+/* syntax.h -- Syntax definitions for the shell */
+
+/* Copyright (C) 2000 Free Software Foundation, Inc.
+
+   This file is part of GNU Bash, the Bourne Again SHell.
+
+   Bash 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.
+
+   Bash is distributed in the hope that it will be useful, but WITHOUT ANY
+   WARRANTY; without even the implied warranty of MERCHANTABILITY or
+   FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+   for more details.
+
+   You should have received a copy of the GNU General Public License along
+   with Bash; see the file COPYING.  If not, write to the Free Software
+   Foundation, 59 Temple Place, Suite 330, Boston, MA 02111 USA. */
+
+#ifndef _SYNTAX_H_
+#define _SYNTAX_H_
+
+/* Defines for use by mksyntax.c */
+
+#define slashify_in_quotes "\\`$\"\n"
+#define slashify_in_here_document "\\`$"
+
+#define shell_meta_chars   "()<>;&|"
+#define shell_break_chars  "()<>;&| \t\n"
+
+#define shell_quote_chars      "\"`'"
+
+#if defined (PROCESS_SUBSTITUTION)
+#  define shell_exp_chars              "$<>"
+#else
+#  define shell_exp_chars              "$"
+#endif
+
+#if defined (EXTENDED_GLOB)
+#  define ext_glob_chars       "@*+?!"
+#else
+#  define ext_glob_chars       ""
+#endif
+#define shell_glob_chars       "*?[]^"
+
+/* Defines shared by mksyntax.c and the rest of the shell code. */
+
+/* Values for character flags in syntax tables */
+
+#define CWORD          0x0000  /* nothing special; an ordinary character */
+#define CSHMETA                0x0001  /* shell meta character */
+#define CSHBRK         0x0002  /* shell break character */
+#define CBACKQ         0x0004  /* back quote */
+#define CQUOTE         0x0008  /* shell quote character */
+#define CSPECL         0x0010  /* special character that needs quoting */
+#define CEXP           0x0020  /* shell expansion character */
+#define CBSDQUOTE      0x0040  /* characters escaped by backslash in double quotes */
+#define CBSHDOC                0x0080  /* characters escaped by backslash in here doc */
+#define CGLOB          0x0100  /* globbing characters */
+#define CXGLOB         0x0200  /* extended globbing characters */
+#define CXQUOTE                0x0400  /* cquote + backslash */
+#define CSPECVAR       0x0800  /* single-character shell variable name */
+
+/* Defines for use by the rest of the shell. */
+extern const int sh_syntaxtab[];
+
+#define shellmeta(c)   (sh_syntaxtab[(c)] & CSHMETA)
+#define shellbreak(c)  (sh_syntaxtab[(c)] & CSHBRK)
+#define shellquote(c)  (sh_syntaxtab[(c)] & CQUOTE)
+
+#if defined (PROCESS_SUBSTITUTION)
+#  define shellexp(c)  ((c) == '$' || (c) == '<' || (c) == '>')
+#else
+#  define shellexp(c)  ((c) == '$')
+#endif
+
+#if defined (EXTENDED_GLOB)
+#  define PATTERN_CHAR(c) \
+       ((c) == '@' || (c) == '*' || (c) == '+' || (c) == '?' || (c) == '!')
+#else
+#  define PATTERN_CHAR(c) 0
+#endif
+
+#define GLOB_CHAR(c) \
+       ((c) == '*' || (c) == '?' || (c) == '[' || (c) == ']' || (c) == '^')
+
+#define CTLESC '\001'
+#define CTLNUL '\177'
+
+#endif /* _SYNTAX_H_ */
diff --git a/test.c b/test.c
index 2d81eb524e545895437d28d6058618421b91b567..a906f62f2753d95d78d07be185e6b9c1ec69ae9f 100644 (file)
--- a/test.c
+++ b/test.c
@@ -68,10 +68,6 @@ extern int errno;
 #  define STREQ(a, b) ((a)[0] == (b)[0] && strcmp (a, b) == 0)
 #endif /* !STREQ */
 
-#if !defined (member)
-#  define member(c, s) (int)((c) ? (char *)strchr ((s), (c)) : 0)
-#endif /* !member */
-
 #if !defined (R_OK)
 #define R_OK 4
 #define W_OK 2
@@ -241,7 +237,7 @@ test_eaccess (path, mode)
        return (0);
     }
 
-  if (st.st_uid == current_user.euid)        /* owner */
+  if (st.st_uid == current_user.euid)  /* owner */
     mode <<= 6;
   else if (group_member (st.st_gid))
     mode <<= 3;
@@ -358,7 +354,7 @@ term ()
       advance (1);
       value = expr ();
       if (argv[pos] == 0)
-        test_syntax_error ("`)' expected", (char *)NULL);
+       test_syntax_error ("`)' expected", (char *)NULL);
       else if (argv[pos][0] != ')' || argv[pos][1])
        test_syntax_error ("`)' expected, found %s", argv[pos]);
       advance (0);
@@ -393,8 +389,19 @@ filecomp (s, t, op)
 {
   struct stat st1, st2;
 
-  if (test_stat (s, &st1) < 0 || test_stat (t, &st2) < 0)
-    return (FALSE);
+  if (test_stat (s, &st1) < 0)
+    {
+      st1.st_mtime = 0;
+      if (op == EF)
+       return (FALSE);
+    }
+  if (test_stat (t, &st2) < 0)
+    {
+      st2.st_mtime = 0;
+      if (op == EF)
+       return (FALSE);
+    }
+  
   switch (op)
     {
     case OT: return (st1.st_mtime < st2.st_mtime);
@@ -475,8 +482,8 @@ binary_test (op, arg1, arg2, flags)
     {
       switch (op[1])
        {
-        case 'n': return (filecomp (arg1, arg2, NT));          /* -nt */
-        case 'o': return (filecomp (arg1, arg2, OT));          /* -ot */
+       case 'n': return (filecomp (arg1, arg2, NT));           /* -nt */
+       case 'o': return (filecomp (arg1, arg2, OT));           /* -ot */
        case 'l': return (arithcomp (arg1, arg2, LT, flags));   /* -lt */
        case 'g': return (arithcomp (arg1, arg2, GT, flags));   /* -gt */
        }
@@ -554,10 +561,15 @@ unary_operator ()
   if (op[1] == 't')
     {
       advance (0);
-      if (pos < argc && legal_number (argv[pos], &r))
+      if (pos < argc)
        {
-         advance (0);
-         return (unary_test (op, argv[pos - 1]));
+         if (legal_number (argv[pos], &r))
+           {
+             advance (0);
+             return (unary_test (op, argv[pos - 1]));
+           }
+         else
+           return (FALSE);
        }
       else
        return (unary_test (op, "1"));
@@ -731,7 +743,7 @@ test_binop (op)
            return (0);
          }
       else
-        return (0);
+       return (0);
     }
 }
 
@@ -791,9 +803,9 @@ three_arguments ()
   else if (ANDOR (argv[pos+1]))
     {
       if (argv[pos+1][1] == 'a')
-        value = ONE_ARG_TEST(argv[pos]) && ONE_ARG_TEST(argv[pos+2]);
+       value = ONE_ARG_TEST(argv[pos]) && ONE_ARG_TEST(argv[pos+2]);
       else
-        value = ONE_ARG_TEST(argv[pos]) || ONE_ARG_TEST(argv[pos+2]);
+       value = ONE_ARG_TEST(argv[pos]) || ONE_ARG_TEST(argv[pos+2]);
       pos = argc;
     }
   else if (argv[pos][0] == '!' && argv[pos][1] == '\0')
@@ -880,11 +892,11 @@ test_command (margc, margv)
     {
       --margc;
 
-      if (margc < 2)
-       test_exit (SHELL_BOOLEAN (FALSE));
-
       if (margv[margc] && (margv[margc][0] != ']' || margv[margc][1]))
        test_syntax_error ("missing `]'", (char *)NULL);
+
+      if (margc < 2)
+       test_exit (SHELL_BOOLEAN (FALSE));
     }
 
   argc = margc;
index f5b43e092e57bb99a8635ceca131926081b6b18c..0c05d98116659797fa34128dc155bcb2040acac6 100644 (file)
@@ -70,3 +70,5 @@ fx ()
 ./arith-for.tests: line 83: syntax error: `;' unexpected
 ./arith-for.tests: line 83: syntax error: `(( i=0; i < 3; i++; 7 ))'
 2
+20
+20
index 1d6da80d1f9c0e25eae39d55141de25ef65a676a..585aa5133e2d2704e6c4560a62b5ab233eb6d28c 100644 (file)
@@ -85,3 +85,10 @@ do
        echo $i
 done
 echo $?
+
+# one-liners added in post-bash-2.04
+for     ((i=0; i < 20; i++)) do : ; done
+echo $i
+
+for     ((i=0; i < 20; i++)) { : ; }
+echo $i
index d70ad78370a3d9dcc392013df8265b31c3a11b0e..5933620c2853b5ca7e78c632bf5a351f1bd76ae7 100644 (file)
@@ -144,3 +144,9 @@ ok
 ./arith.tests: ((: x=9 y=41 : syntax error in expression (error token is "y=41 ")
 ./arith.tests: a b: syntax error in expression (error token is "b")
 ./arith.tests: ((: a b: syntax error in expression (error token is "b")
+42
+42
+42
+42
+42
+42
index 913efbe05ac53f199611cf3890439a846171690a..fa56ad759aa0d88013d824d1455751c79818ff76 100644 (file)
@@ -267,3 +267,11 @@ echo $x $y
 # These are errors
 echo $((a b))
 ((a b))
+
+n=42
+printf "%d\n" $n
+printf "%i\n" $n
+echo $(( 8#$(printf "%o\n" $n) ))
+printf "%u\n" $n
+echo $(( 16#$(printf "%x\n" $n) ))
+echo $(( 16#$(printf "%X\n" $n) ))
index 2d3c179e5e8be840c42b698f317a62b1ec291a20..80027b2f6845b54768092b42fb7dff3e8a170931 100644 (file)
@@ -110,11 +110,20 @@ for case if then else
 <> < > !
 12 14 16 18 20
 4414758999202
-./array.tests: array assign: line 257: syntax error near unexpected token `for'
-./array.tests: array assign: line 257: `a b c for case if then else'
-./array.tests: array assign: line 259: syntax error near unexpected token `for'
-./array.tests: array assign: line 259: `for case if then else'
-./array.tests: array assign: line 261: syntax error near unexpected token `<>'
-./array.tests: array assign: line 261: ` <> < > ! '
-./array.tests: array assign: line 262: syntax error near unexpected token `[1]=<>'
-./array.tests: array assign: line 262: ` [1]=<> [2]=< [3]=> [4]=! '
+aaa bbb
+./array.tests: array assign: line 262: syntax error near unexpected token `for'
+./array.tests: array assign: line 262: `a b c for case if then else'
+./array.tests: array assign: line 264: syntax error near unexpected token `for'
+./array.tests: array assign: line 264: `for case if then else'
+./array.tests: array assign: line 266: syntax error near unexpected token `<>'
+./array.tests: array assign: line 266: ` <> < > ! '
+./array.tests: array assign: line 267: syntax error near unexpected token `[1]=<>'
+./array.tests: array assign: line 267: ` [1]=<> [2]=< [3]=> [4]=! '
+abc 3
+0
+abc 1
+abc 1
+0
+0
+1
+1
index 6f23486d084d2694bf43e8d740b98f60b0239f5b..d8b6564fe8c533400c156d25b8dc30419a725487 100644 (file)
@@ -253,6 +253,11 @@ echo ${foo[@]}
 foo=( 4414758999202 )
 echo ${foo[@]}
 
+# this was a bug in all versions of bash 2.x up to and including bash-2.04
+declare -a ddd=(aaa
+bbb)
+echo ${ddd[@]}
+
 # errors
 foo=(a b c for case if then else)
 
@@ -260,3 +265,16 @@ foo=(for case if then else)
 
 metas=( <> < > ! )
 metas=( [1]=<> [2]=< [3]=> [4]=! )
+
+# various expansions that didn't really work right until post-bash-2.04
+foo='abc'
+echo ${foo[0]} ${#foo[0]}
+echo ${foo[1]} ${#foo[1]}
+echo ${foo[@]} ${#foo[@]}
+echo ${foo[*]} ${#foo[*]}
+
+foo=''
+echo ${foo[0]} ${#foo[0]}
+echo ${foo[1]} ${#foo[1]}
+echo ${foo[@]} ${#foo[@]}
+echo ${foo[*]} ${#foo[*]}
index 4e2a07a6f8dc7f0f8be3ad5e57a82cc8d2bfe814..a14ed9e795a65f6d9a0c60760a3399c17a7cac1e 100644 (file)
@@ -2,6 +2,10 @@ returns: 0
 returns: 0
 returns: 1
 returns: 0
+returns: 0
+returns: 0
+returns: 0
+returns: 0
 returns: 1
 returns: 0
 returns: 0
index 4f3cbdff53abe7f0c4035abc6c0026ef47372539..acaa5272e9e90a50126fb4a0b8e2a464d611908c 100755 (executable)
@@ -20,6 +20,19 @@ echo returns: $?
 [[ ! x || x ]]
 echo returns: $?
 
+# parenthesized terms didn't work right until post-2.04
+[[ a ]]
+echo returns: $?
+
+[[ (a) ]]
+echo returns: $?
+
+[[ -n a ]]
+echo returns: $?
+
+[[ (-n a) ]]
+echo returns: $?
+
 # unset variables don't need to be quoted
 [[ -n $UNSET ]]
 echo returns: $?
index d8d4d282c925ce6d95c801e9299f2569c8a8ccfa..6b711b8c5a9030c516963160310e23cdc818fb35 100644 (file)
@@ -55,8 +55,8 @@ tf2 ()
 { 
     ( { 
         time -p echo a | cat - >/dev/null
-    } )
-} 2>&1
+    } ) 2>&1
+}
 cprint.tests is a regular file
 cprint.tests is not a directory
 a
index 307bf3111e61f74867f0460c1a0fae0d81ba4129..1a754d8c6bf319472193d47914f567d7f36d4ee0 100755 (executable)
@@ -117,3 +117,94 @@ unset IFS
 recho "$@"
 recho $@
 recho "$*"
+
+IFS=:
+
+# special variables
+set -- 1 2 3 4 5 6 7 8 9 10
+
+bar=${*}
+foo=$*
+echo foo = "$foo"
+echo bar = "$bar"
+
+foo1=$@
+bar1=${@}
+
+echo foo1 = "$foo1"
+echo bar1 = "$bar1"
+
+foo2="$*"
+bar2="${*}"
+
+echo foo2 = "$foo2"
+echo bar2 = "$bar2"
+
+eval foo3='$*' bar3='${*}'
+echo foo3 = "$foo3"
+echo bar3 = "$bar3"
+
+case $* in
+*\:*)  echo ok 1;;
+*)     echo bad 1;;
+esac
+
+case $@ in
+*\:*)  echo bad 2;;
+*)     echo ok 2;;
+esac
+
+case "$*" in
+*\:*)  echo ok 3;;
+*)     echo bad 3;;
+esac
+
+case "$@" in
+*\:*)  echo bad 4;;
+*)     echo ok 4;;
+esac
+
+IFS=$' \t\n'
+
+bar=${*}
+foo=$*
+echo foo = "$foo"
+echo bar = "$bar"
+
+foo1=$@
+bar1=${@}
+
+echo foo1 = "$foo1"
+echo bar1 = "$bar1"
+
+foo2="$*"
+bar2="${*}"
+
+echo foo2 = "$foo2"
+echo bar2 = "$bar2"
+
+eval foo3='$*' bar3='${*}'
+echo foo3 = "$foo3"
+echo bar3 = "$bar3"
+
+case $* in
+*\ *)  echo ok 1;;
+*)     echo bad 1;;
+esac
+
+case $@ in
+*\ *)  echo ok 2;;
+*)     echo bad 2;;
+esac
+
+case "$*" in
+*\ *)  echo ok 3;;
+*)     echo bad 3;;
+esac
+
+case "$@" in
+*\ *)  echo ok 4;;
+*)     echo bad 4;;
+esac
+
+exit 0
index d7cb9148a5d83e128603525dc9ecb399eb9de3e4..345775be035bba540378902a7ab2a5ef2a9b307b 100644 (file)
@@ -71,3 +71,27 @@ argv[1] = <foo>
 argv[2] = <bar>
 argv[3] = <bam>
 argv[1] = <foo bar bam>
+foo = 1:2:3:4:5:6:7:8:9:10
+bar = 1:2:3:4:5:6:7:8:9:10
+foo1 = 1 2 3 4 5 6 7 8 9 10
+bar1 = 1 2 3 4 5 6 7 8 9 10
+foo2 = 1:2:3:4:5:6:7:8:9:10
+bar2 = 1:2:3:4:5:6:7:8:9:10
+foo3 = 1:2:3:4:5:6:7:8:9:10
+bar3 = 1:2:3:4:5:6:7:8:9:10
+ok 1
+ok 2
+ok 3
+ok 4
+foo = 1 2 3 4 5 6 7 8 9 10
+bar = 1 2 3 4 5 6 7 8 9 10
+foo1 = 1 2 3 4 5 6 7 8 9 10
+bar1 = 1 2 3 4 5 6 7 8 9 10
+foo2 = 1 2 3 4 5 6 7 8 9 10
+bar2 = 1 2 3 4 5 6 7 8 9 10
+foo3 = 1 2 3 4 5 6 7 8 9 10
+bar3 = 1 2 3 4 5 6 7 8 9 10
+ok 1
+ok 2
+ok 3
+ok 4
index bd447c3078af2656c229737413eb82d32d766ba3..556f1a160367cee8d68c44864a31e2e4f68d7197 100644 (file)
@@ -16,7 +16,7 @@ notthere: notthere: No such file or directory
 126
 ./execscript: .: /: is a directory
 1
-126
+127
 ./execscript: .: /dev/null: not a regular file
 1
 this is bashenv
@@ -37,3 +37,17 @@ ok
 ./exec5.sub: exec: bash-notthere: not found
 127
 this is ohio-state
+0
+1
+1
+0
+42
+42
+0
+1
+1
+0
+0
+1
+0
+1
diff --git a/tests/exec6.sub b/tests/exec6.sub
new file mode 100644 (file)
index 0000000..50d0e70
--- /dev/null
@@ -0,0 +1,54 @@
+# builtins with exit status inverted
+
+( true )
+echo $?
+( ! true )
+echo $?
+
+( false )
+echo $?
+( ! false )
+echo $?
+
+# inverting shouldn't affect exit
+(exit 42)
+echo $?
+
+( ! exit 42 )
+echo $?
+
+# commands requiring an exec with exit status inverted -- broken in bash-2.04
+
+( ls > /dev/null 2>&1 )
+echo $?
+( ! ls > /dev/null 2>&1 )
+echo $?
+
+touch /tmp/notwrite
+chmod 400 /tmp/notwrite
+
+# make sure redirection failures in commands whose exit status is inverted
+# are handled correctly
+
+( ls > /tmp/notwrite ) 2>/dev/null
+echo $?
+
+( ! ls > /tmp/notwrite ) 2>/dev/null
+echo $?
+
+# now add exit traps, true and false for commands with and without exit
+# status inversion
+
+(trap 'false' 0 ; ! ls > /tmp/notwrite ) 2>/dev/null
+echo $?
+
+(trap 'false' 0 ; ls > /tmp/notwrite ) 2>/dev/null
+echo $?
+
+(trap 'true' 0 ; ! ls > /tmp/notwrite ) 2>/dev/null
+echo $?
+
+(trap 'true' 0 ; ls > /tmp/notwrite ) 2>/dev/null
+echo $?
+
+rm -f /tmp/notwrite
index ed38c8ee2f5dfcecfe3d6d6112e8d6347da99661..749b733fa0ccb97c8970284860e3c924b0cd9a71 100644 (file)
@@ -35,6 +35,8 @@ echo $?
 . /
 echo $?
 
+# try sourcing a binary file -- post-2.04 versions don't do the binary file
+# check, and will probably fail with `command not found', or status 127
 . ${THIS_SH} 2>/dev/null
 echo $?
 
@@ -82,3 +84,8 @@ ${THIS_SH} ./exec5.sub
 
 # this was a bug in bash versions before bash-2.04
 ${THIS_SH} -c 'cat </dev/null | cat >/dev/null' >&-
+
+# checks for proper return values in subshell commands with inverted return
+# values
+
+${THIS_SH} ./exec6.sub
index 398039510c7f37897d53b174021bbb86c20f4707..e51d92b10f6779ffe4c426ace8aef02bbe0881fd 100644 (file)
@@ -118,3 +118,33 @@ testgrp ()
     } 1>&2;
     echo testgrp-b
 }
+funca is a function
+funca () 
+{ 
+    ( echo func-a )
+}
+funcb is a function
+funcb () 
+{ 
+    ( echo func-b )
+}
+funcc is a function
+funcc () 
+{ 
+    ( echo func-c ) 2>&1
+}
+func-a
+func-b
+func-c
+expect 5 10
+5 10
+expect 20
+20
+expect 5 20
+5 20
+expect 5 30
+5 30
+expect 2 40
+2 40
+expect 5 20
+5 20
index ed3d355c457a96c856e17a0fcdf4e43d1cf4519d..2095f249919a6b5ff35543f06d384e120b3de879 100644 (file)
@@ -150,4 +150,11 @@ ${THIS_SH} -c 'type zf'
 
 ${THIS_SH} ./func1.sub
 
+# tests for functions whose bodies are not group commands, with and without
+# attached redirections
+${THIS_SH} ./func2.sub
+
+# test for some posix-specific function behavior
+${THIS_SH} ./func3.sub
+
 exit 0
diff --git a/tests/func2.sub b/tests/func2.sub
new file mode 100644 (file)
index 0000000..2f9d5ce
--- /dev/null
@@ -0,0 +1,17 @@
+funca() (
+       echo func-a
+)
+
+funcb() ( echo func-b )
+
+funcc() (
+       echo func-c
+) 2>&1
+
+type funca
+type funcb
+type funcc
+
+funca
+funcb
+funcc
diff --git a/tests/func3.sub b/tests/func3.sub
new file mode 100644 (file)
index 0000000..9d3d069
--- /dev/null
@@ -0,0 +1,54 @@
+#
+# test some posix-mode-specific function behavior
+#
+set -o posix
+func()
+{
+       return 5
+}
+
+myfunction () {
+    var=20 return
+}
+var=10
+echo expect 5 10
+func
+echo $? $var
+
+myfunction
+echo expect 20
+echo $var
+
+echo expect 5 20
+func
+echo $? $var
+
+echo expect 5 30
+var=30 func
+echo $? $var
+
+: ${TMPDIR:=/tmp}
+TMPFILE=$TMPDIR/func3.sub.$$
+
+rm -f $TMPFILE
+echo 'var=40 return 2' > $TMPFILE
+
+# test the behavior of `return' and preceding variable assignments here
+# because it's convenient
+var=10
+echo expect 2 40
+. $TMPFILE
+echo $? $var
+
+rm -f $TMPFILE
+
+#set -o posix
+var=0
+func()
+{
+       var=20 return 5
+}
+
+echo expect 5 20
+var=30 func
+echo $? $var
index 88ffe0cb7f0c98a31fec5809256a242a78172787..f2c4d33450c4bfb01673daccb8ede644e47bb4f5 100644 (file)
@@ -296,6 +296,11 @@ case p in
 [a-\z])        echo ok 36 ;;
 esac
 
+# this was a bug in all versions up to bash-2.04-release
+case "/tmp" in
+[/\\]*) echo ok 37 ;;
+esac
+
 # none of these should output anything
 
 case abc in
index c9bdbfee6a40f2e997bad46269cb4873c97e39ce..08f1778c38b280365dd5f23c0e9ebafb3d5ba536 100644 (file)
@@ -94,6 +94,7 @@ ok 33
 ok 34
 ok 35
 ok 36
+ok 37
 argv[1] = <b>
 argv[2] = <bb>
 argv[3] = <bcd>
index c7e1af57b20fdce6cbe078a51e1a87abf6889577..194fdeb582a9186deffc4dfe3f1cf4afab74e561 100644 (file)
@@ -206,3 +206,9 @@ argv[1] = <xxx>
 argv[2] = <yyy>
 1
 argv[1] = <>
+argv[1] = <>
+argv[1] = <>
+argv[1] = <:a:>
+argv[1] = <:b:>
+argv[1] = <>
+argv[1] = <>
index a562ae8d57f8880ded539f7b0d622b5baabb71ef..a2b7f77c56e5beddfaa50ab4988853b150c6e158 100644 (file)
@@ -481,4 +481,21 @@ set -- ''
 expect 1
 echo $#
 expect '<>'
+recho "${@}"
+expect '<>'
+recho "${@-}"
+expect '<>'
+recho "${@:-}"
+
+# this was a bug in bash-2.04, fixed in 2.05
+set -- a b
+expect '<:a:>' '<:b:>'
+for i in "${@-}"; do recho :$i:; done
+
+# I believe that ksh93 does these wrong -- we're using the rhs, so shouldn't
+# it behave the same as ""?
+set --
+expect '<>'
+recho "${@-}"
+expect '<>'
 recho "${@:-}"
index c2dc10bfc969680f48fb9e600c4e20b42f08d2c5..db66ab042c8090cc5072aca8c2c0e1cb4dd147e5 100644 (file)
@@ -48,6 +48,12 @@ argv[2] = <ef>
 argv[3] = <gh ij>
 argv[4] = <kl mn>
 argv[5] = <op>
+argv[1] = </home/chet/foo//bar/abcabcabc>
+argv[1] = <home/chet/foo//bar/abcabcabc>
+argv[1] = <home>
+argv[1] = <home>
+argv[1] = <home>
+argv[1] = <home>
 argv[1] = <abcdefghijklmnop>
 argv[1] = <4>
 argv[1] = <op>
index 683fa46a1b700a71754616eaeb45bd092a04c40c..4a33c35498516fba9bba84bdaf2ece31c64cb2aa 100644 (file)
@@ -118,6 +118,32 @@ recho "${@:3:4}"
 expect '<ab cd> <ef> <gh ij> <kl mn> <op>'
 recho "${@:1:$#}"
 
+# code to ad-hoc parse arithmetic expressions in substring expansions was
+# broken until post-2.04
+base=/home/chet/foo//bar
+string1=$base/abcabcabc
+x=1 j=4
+
+expect '</home/chet/foo//bar/abcabcabc>'
+recho ${string1:0}
+
+expect '<home/chet/foo//bar/abcabcabc>'
+recho ${string1:1}
+
+expect '<home>'
+recho ${string1:(j?1:0):j}
+
+expect '<home>'
+recho ${string1:j?1:0:j}
+
+expect '<home>'
+recho ${string1:(j?(x?1:0):0):j}
+
+expect '<home>'
+recho ${string1:j?(x?1:0):0:j}
+
+unset base string1 x j
+
 # indirect variable references
 expect '<abcdefghijklmnop>'
 recho ${!9:-$z}
index e6d2479289cccbf534d6f0ad373c8510e3013376..21613790c27e788ca46153e3456ee91f654da39c 100644 (file)
@@ -140,18 +140,20 @@ if [ "$OPTIND" != 3 ] || [ "$store" != a ] || [ "$OPTARG" != aoptval ]; then
     testfail "getopts"
 fi
 
+# if I change the default quoting style for variable values, these
+# next four must change
+
 newtest
 SQUOTE="'"
 val1=$(set | sed -n 's:^SQUOTE=::p')
-# if I change the default quoting style for variable values, this must change
-if [ "$val1" != "''\'''" ]; then
+if [ "$val1" != "\$'\\''" ]; then
         testfail "variable quoting 1"
 fi
 
 newtest
 VTILDE='~'
 val1=$(set | sed -n 's:^VTILDE=::p')
-if [ "$val1" != "'~'" ]; then
+if [ "$val1" != "\$'~'" ]; then
        testfail "variable quoting 2"
 fi
 
@@ -165,7 +167,7 @@ fi
 newtest
 VHASH2=#abcd
 val1=$(set | sed -n 's:^VHASH2=::p')
-if [ "$val1" != "'#abcd'" ]; then
+if [ "$val1" != "\$'#abcd'" ]; then
        testfail "variable quoting 4"
 fi
 
index 895aff7680feafdde19b635bb5f1c9756e636638..fe1549c418dc8bce1cefe4235ed79c9506366043 100644 (file)
@@ -14,6 +14,21 @@ if : ; then
        done
        set +e
 fi
+
+(
+set -e
+false
+echo bad
+)
+echo $?
+
+x=$(
+set -e
+false
+echo bad
+)
+echo $? $x
+
 # command subst should not inherit -e
 set -e
 echo $(false; echo ok)
index aa98063d6ae86d8617e12b4bc9897f9221c623f0..644841352ad43e35bce0d0f23969124b51178924 100644 (file)
@@ -13,6 +13,8 @@
 7
 8
 9
+1
+1
 ok
 hi
 while succeeded
index 3eff4b5e55faa0f243a8dfed76ea88fa155e8c1c..32c422ad0600d495add04ea22d2bcc68f855b17c 100644 (file)
@@ -98,7 +98,7 @@ set +o verbose
 set +o xtrace
 set -o history
 set +o ignoreeof
-set +o interactive-comments
+set -o interactive-comments
 set +o posix
 set -o emacs
 set +o vi
@@ -122,7 +122,7 @@ verbose             off
 xtrace                 off
 history                on
 ignoreeof              off
-interactive-comments   off
+interactive-comments   on
 posix                  off
 emacs                  on
 vi                     off
@@ -146,7 +146,7 @@ set +o verbose
 set +o xtrace
 set -o history
 set +o ignoreeof
-set +o interactive-comments
+set -o interactive-comments
 set +o posix
 set -o emacs
 set +o vi
@@ -160,6 +160,7 @@ set -o histexpand
 set -o monitor
 set -o privileged
 set -o history
+set -o interactive-comments
 set -o emacs
 --
 set +o allexport
@@ -175,7 +176,6 @@ set +o physical
 set +o verbose
 set +o xtrace
 set +o ignoreeof
-set +o interactive-comments
 set +o posix
 set +o vi
 --
@@ -192,7 +192,6 @@ physical            off
 verbose                off
 xtrace                 off
 ignoreeof              off
-interactive-comments   off
 posix                  off
 vi                     off
 --
index 2fd46808e0f065bece4b98093fa887a53dae8931..854e5dc52011114e860915dac18235733de767a3 100644 (file)
@@ -270,3 +270,15 @@ b ( 1 = 2
 2
 ./test.tests: test: (: unary operator expected
 2
+t -t a
+1
+t -t addsds
+1
+t -t 42
+1
+t -t /dev/tty
+1
+t -t /dev/tty4
+1
+t -t /dev/tty4444444...
+1
index 9df5cc2cd1537532ec846b3691822e503649123c..d84af1bde4d8201db562bda9d65e5fcf34031a91 100644 (file)
@@ -407,3 +407,17 @@ t 4 -eq 4 -a 3 4
 echo $?
 
 t \( \)
+
+# non-numeric arguments to `test -t' should return failure -- fix in 2.05
+echo 't -t a'
+t -t a
+echo 't -t addsds'
+t -t addsds
+echo 't -t 42'
+t -t 42
+echo 't -t /dev/tty'
+t -t /dev/tty
+echo 't -t /dev/tty4'
+t -t /dev/tty4
+echo 't -t /dev/tty4444444...'
+t -t /dev/tty4444444...
index 6fa6ba5bf2688dcb44ebe41325956f71ecf5d27d..f7b89a516181d0e6fa5f38a60ac9398d1ac83a49 100644 (file)
@@ -44,6 +44,7 @@ trap -- '' SIGINT
 trap -- 'echo aborting' SIGQUIT
 trap -- 'echo aborting' SIGABRT
 trap -- 'echo aborting' SIGTERM
+0
 caught a child death
 caught a child death
 caught a child death
index bcf16e5249aa0fd045b3d9719709a0641ec1948a..24f25aba1e86b663c8ee599581395be740ff247c 100644 (file)
@@ -40,6 +40,15 @@ trap '' int
 
 trap
 
+# exit 0 in exit trap should set exit status
+(
+set -e
+trap 'exit 0' EXIT
+false   
+echo bad
+)
+echo $?
+
 # hmmm...should this set the handling to SIG_IGN for children, too?
 trap '' USR2
 ./trap1.sub
index f5baaaef0b72feeb567b2bccf90e86652701e259..d477cebc31a2fe67b9925b7970a7f4728465285b 100644 (file)
@@ -29,8 +29,12 @@ declare -i ivar="10"
 unset
 declare -x ivar="42"
 hB
-braceexpand:hashall
+braceexpand:hashall:interactive-comments
 hPB
-braceexpand:hashall:physical
-declare -r SHELLOPTS="braceexpand:hashall:physical"
+braceexpand:hashall:physical:interactive-comments
+declare -r SHELLOPTS="braceexpand:hashall:physical:interactive-comments"
 abcde
+20
+30
+40
+50
index 4f9076183a9d4b78bb4bc4d0f1755bcf4d91e797..0cac0fdbaeaef3bd91678b04a617cca34190040f 100644 (file)
@@ -194,3 +194,7 @@ set -a
 typeset FOOFOO=abcde
 
 printenv FOOFOO
+
+# test out export behavior of variable assignments preceding builtins and
+# functions
+$THIS_SH ./varenv1.sub
diff --git a/tests/varenv1.sub b/tests/varenv1.sub
new file mode 100644 (file)
index 0000000..168f87b
--- /dev/null
@@ -0,0 +1,28 @@
+# test out the export behavior of variable assignments preceding `eval', `.'
+# and shell functions
+
+func()
+{
+       printenv var
+}
+
+export var=10
+echo expect 20
+var=20 eval printenv var
+
+: ${TMPDIR:=/tmp}
+TMPFILE=$TMPDIR/evalsub.$$
+
+rm -f $TMPFILE
+echo 'printenv var' > $TMPFILE
+
+echo expect 30
+var=30 . $TMPFILE
+
+rm -f $TMPFILE
+
+echo expect 40
+var=40 func
+
+echo expect 50
+var=50 command printenv var
diff --git a/trap.c b/trap.c
index 684d433b3da2dd9f97ddc5a7bd930d625d22eb39..a24130f4b9cc984d5861df657035aff2ca4a6046 100644 (file)
--- a/trap.c
+++ b/trap.c
@@ -221,7 +221,7 @@ run_pending_traps ()
   for (sig = 1; sig < NSIG; sig++)
     {
       /* XXX this could be made into a counter by using
-         while (pending_traps[sig]--) instead of the if statement. */
+        while (pending_traps[sig]--) instead of the if statement. */
       if (pending_traps[sig])
        {
 #if defined (HAVE_POSIX_SIGNALS)
@@ -303,7 +303,7 @@ trap_handler (sig)
     programming_error ("trap_handler: bad signal %d", sig);
   else
     {
-      errno = oerrno;
+      oerrno = errno;
 #if defined (MUST_REINSTALL_SIGHANDLERS)
       set_signal_handler (sig, trap_handler);
 #endif /* MUST_REINSTALL_SIGHANDLERS */
@@ -600,7 +600,7 @@ run_exit_trap ()
          parse_and_execute (trap_command, "exit trap", SEVAL_NONINT|SEVAL_NOHIST);
        }
       else if (code == EXITPROG)
-        return (last_command_exit_value);
+       return (last_command_exit_value);
       else
        return (old_exit_value);
     }
index 60e911dd3fdf303eb02d1375187749d8e1d3e24f..628845c5e347b121e1b19233595a5dc1a57aa9c6 100644 (file)
@@ -55,10 +55,13 @@ typedef struct {
   int size;
 } SAVED_VAR;
 
-static void unwind_frame_discard_internal (), unwind_frame_run_internal ();
-static void add_unwind_protect_internal (), remove_unwind_protect_internal ();
-static void run_unwind_protects_internal (), without_interrupts ();
-
+static void without_interrupts ();
+static void unwind_frame_discard_internal ();
+static void unwind_frame_run_internal ();
+static void add_unwind_protect_internal ();
+static void remove_unwind_protect_internal ();
+static void run_unwind_protects_internal ();
+static void clear_unwind_protects_internal ();
 static void restore_variable ();
 static void discard_saved_var ();
 
@@ -137,9 +140,19 @@ run_unwind_protects ()
       (run_unwind_protects_internal, (char *)NULL, (char *)NULL);
 }
 
+/* Erase the unwind-protect list.  If flags is 1, free the elements. */
+void
+clear_unwind_protect_list (flags)
+     int flags;
+{
+  if (unwind_protect_list)
+    without_interrupts
+      (clear_unwind_protects_internal, (char *)flags, (char *)NULL);
+}
+
 /* **************************************************************** */
 /*                                                                 */
-/*                        The Actual Functions                             */
+/*                     The Actual Functions                        */
 /*                                                                 */
 /* **************************************************************** */
 
@@ -158,7 +171,8 @@ add_unwind_protect_internal (cleanup, arg)
 }
 
 static void
-remove_unwind_protect_internal ()
+remove_unwind_protect_internal (ignore1, ignore2)
+     char *ignore1, *ignore2;
 {
   UNWIND_ELT *elt;
 
@@ -173,7 +187,8 @@ remove_unwind_protect_internal ()
 }
 
 static void
-run_unwind_protects_internal ()
+run_unwind_protects_internal (ignore1, ignore2)
+     char *ignore1, *ignore2;
 {
   UNWIND_ELT *t, *elt = unwind_protect_list;
 
@@ -194,8 +209,23 @@ run_unwind_protects_internal ()
 }
 
 static void
-unwind_frame_discard_internal (tag)
-     char *tag;
+clear_unwind_protects_internal (flag, ignore)
+     char *flag, *ignore;
+{
+  int free_elts = (int)flag;
+  UNWIND_ELT *elt;
+
+  if (free_elts != 0 && unwind_protect_list)
+    {
+      while (unwind_protect_list)
+       remove_unwind_protect_internal ((char *)NULL, (char *)NULL);
+    }
+  unwind_protect_list = (UNWIND_ELT *)NULL;
+}
+
+static void
+unwind_frame_discard_internal (tag, ignore)
+     char *tag, *ignore;
 {
   UNWIND_ELT *elt;
 
@@ -208,18 +238,18 @@ unwind_frame_discard_internal (tag)
          break;
        }
       else if (elt->cleanup && elt->cleanup == (Function *)restore_variable)
-        {
-          discard_saved_var ((SAVED_VAR *)elt->arg);
-          free (elt);
-        }
+       {
+         discard_saved_var ((SAVED_VAR *)elt->arg);
+         free (elt);
+       }
       else
        free (elt);
     }
 }
 
 static void
-unwind_frame_run_internal (tag)
-     char *tag;
+unwind_frame_run_internal (tag, ignore)
+     char *tag, *ignore;
 {
   UNWIND_ELT *elt;
 
@@ -290,17 +320,8 @@ unwind_protect_var (var, value, size)
   s->variable = var;
   if (size != sizeof (int))
     {
-      /* There is a problem here when VALUE is 0.  This tries to copy the
-         first SIZE bytes starting at memory location 0 into
-         s->desired_setting.  There is no guarantee that these bytes are
-         0, or make a valid null pointer.  We can try to bzero the space,
-         or just save it as 0 (or (void *)0).  If we do the latter, make
-         sure restore_variable is changed to understand it. */
       s->desired_setting = (char *)xmalloc (size);
-      if (value == 0)
-       bzero ((char *)s->desired_setting, size);
-      else
-       FASTCOPY (value, (char *)s->desired_setting, size);
+      FASTCOPY (value, (char *)s->desired_setting, size);
     }
   else
     s->desired_setting = value;
index a321f0eea8520c5f2095b4c840ad140e05202060..8814fde325afc9763b13be8b5eca407e46bb8295 100644 (file)
@@ -29,6 +29,7 @@ extern void add_unwind_protect ();
 extern void remove_unwind_protect ();
 extern void run_unwind_protects ();
 extern void unwind_protect_var ();
+extern void clear_unwind_protect_list ();
 
 /* Try to force correct alignment on machines where pointers and ints
    differ in size. */
@@ -55,7 +56,9 @@ typedef union {
 
 /* How to protect a pointer to a string. */
 #define unwind_protect_string(X) \
-  unwind_protect_var ((int *)&(X), (X), sizeof (char *))
+  unwind_protect_var ((int *)&(X), \
+                     ((sizeof (char *) == sizeof (int)) ? (char *) (X) : (char *) &(X)), \
+                      sizeof (char *))
 
 /* How to protect any old pointer. */
 #define unwind_protect_pointer(X) unwind_protect_string (X)
index 615aacd14f12eb482857879fc347e461e39dcef7..5dd13e35b611f9600001d22e8b3104031f65fd87 100644 (file)
@@ -99,7 +99,7 @@ char **function_env = (char **)NULL;
 
 /* The array of shell assignments which are made only in the environment
    for the execution of a shell builtin command which may cause more than
-   one command to be executed (e.g., "source"). */
+   one command to be executed (e.g., "eval" or "source"). */
 char **builtin_env = (char **)NULL;
 
 /* Some funky variables which are known about specially.  Here is where
@@ -137,6 +137,7 @@ static void initialize_dynamic_variables ();
 static void make_vers_array ();
 static void sbrand ();         /* set bash random number generator. */
 static int qsort_var_comp ();
+static SHELL_VAR *bind_tempenv_variable ();
 
 /* Make VAR be auto-exported.  VAR is a pointer to a SHELL_VAR. */
 #define set_auto_export(var) \
@@ -167,17 +168,17 @@ initialize_shell_variables (env, privmode)
       while ((c = *string++) && c != '=')
        ;
       if (string[-1] == '=')
-        char_index = string - name - 1;
+       char_index = string - name - 1;
 
       /* If there are weird things in the environment, like `=xxx' or a
         string without an `=', just skip them. */
       if (char_index == 0)
-        continue;
+       continue;
 
       /* ASSERT(name[char_index] == '=') */
       name[char_index] = '\0';
       /* Now, name = env variable name, string = env variable value, and
-         char_index == strlen (name) */
+        char_index == strlen (name) */
 
       /* If exported function, define it now. */
       if (privmode == 0 && read_but_dont_execute == 0 && STREQN ("() {", string, 4))
@@ -231,38 +232,14 @@ initialize_shell_variables (env, privmode)
 
       name[char_index] = '=';
       /* temp_var can be NULL if it was an exported function with a syntax
-         error (a different bug, but it still shouldn't dump core). */
+        error (a different bug, but it still shouldn't dump core). */
       if (temp_var && function_p (temp_var) == 0)      /* XXX not yet */
        {
          CACHE_IMPORTSTR (temp_var, name);
        }
     }
 
-  /* If we got PWD from the environment, update our idea of the current
-     working directory.  In any case, make sure that PWD exists before
-     checking it.  It is possible for getcwd () to fail on shell startup,
-     and in that case, PWD would be undefined. */
-  temp_var = find_variable ("PWD");
-  if (temp_var && imported_p (temp_var) &&
-      (temp_string = value_cell (temp_var)) &&
-      same_file (temp_string, ".", (struct stat *)NULL, (struct stat *)NULL))
-    set_working_directory (temp_string);
-  else
-    {
-      temp_string = get_working_directory ("shell-init");
-      if (temp_string)
-       {
-         temp_var = bind_variable ("PWD", temp_string);
-         set_auto_export (temp_var);
-         free (temp_string);
-       }
-    }
-
-  /* According to the Single Unix Specification, v2, $OLDPWD is an
-     `environment variable' and therefore should be auto-exported.
-     Make a dummy invisible variable for OLDPWD, and mark it as exported. */
-  temp_var = bind_variable ("OLDPWD", (char *)NULL);
-  VSETATTR (temp_var, (att_exported | att_invisible));
+  set_pwd ();
 
   /* Set up initial value of $_ */
   temp_var = bind_variable ("_", dollar_vars[0]);
@@ -306,13 +283,14 @@ initialize_shell_variables (env, privmode)
   temp_var = bind_variable ("IFS", " \t\n");
 
   /* Magic machine types.  Pretty convenient. */
-  temp_var = bind_variable ("HOSTTYPE", HOSTTYPE);
+  temp_var = set_if_not ("HOSTTYPE", HOSTTYPE);
   set_auto_export (temp_var);
-  temp_var = bind_variable ("OSTYPE", OSTYPE);
+  temp_var = set_if_not ("OSTYPE", OSTYPE);
   set_auto_export (temp_var);
-  temp_var = bind_variable ("MACHTYPE", MACHTYPE);
+  temp_var = set_if_not ("MACHTYPE", MACHTYPE);
   set_auto_export (temp_var);
-  temp_var = bind_variable ("HOSTNAME", current_host_name);
+
+  temp_var = set_if_not ("HOSTNAME", current_host_name);
   set_auto_export (temp_var);
 
   /* Default MAILCHECK for interactive shells.  Defer the creation of a
@@ -401,6 +379,12 @@ initialize_shell_variables (env, privmode)
 #endif /* HISTORY */
 
   temp_var = find_variable ("SSH_CLIENT");
+  if (temp_var && imported_p (temp_var))
+    {
+      VUNSETATTR (temp_var, att_exported);
+      array_needs_making = 1;
+    }
+  temp_var = find_variable ("SSH2_CLIENT");
   if (temp_var && imported_p (temp_var))
     {
       VUNSETATTR (temp_var, att_exported);
@@ -420,7 +404,7 @@ initialize_shell_variables (env, privmode)
 /* This function is not static so the tilde and readline libraries can
    use it. */
 char *
-get_home_dir ()
+sh_get_home_dir ()
 {
   if (current_user.home_dir == 0)
     get_current_user_info ();
@@ -434,7 +418,7 @@ set_home_var ()
 
   temp_var = find_variable ("HOME");
   if (temp_var == 0)
-    temp_var = bind_variable ("HOME", get_home_dir ());
+    temp_var = bind_variable ("HOME", sh_get_home_dir ());
   VSETATTR (temp_var, att_exported);
 }
 
@@ -460,13 +444,13 @@ get_bash_name ()
 {
   char *name;
 
-  if ((login_shell == 1) && (*shell_name != '/'))
+  if ((login_shell == 1) && RELPATH(shell_name))
     {
       if (current_user.shell == 0)
-        get_current_user_info ();
+       get_current_user_info ();
       name = savestring (current_user.shell);
     }
-  else if (*shell_name == '/')
+  else if (ABSPATH(shell_name))
     name = savestring (shell_name);
   else if (shell_name[0] == '.' && shell_name[1] == '/')
     {
@@ -475,10 +459,15 @@ get_bash_name ()
       int len;
 
       cdir = get_string_value ("PWD");
-      len = strlen (cdir);
-      name = xmalloc (len + strlen (shell_name) + 1);
-      strcpy (name, cdir);
-      strcpy (name + len, shell_name + 1);
+      if (cdir)
+       {
+         len = strlen (cdir);
+         name = xmalloc (len + strlen (shell_name) + 1);
+         strcpy (name, cdir);
+         strcpy (name + len, shell_name + 1);
+       }
+      else
+       name = savestring (shell_name);
     }
   else
     {
@@ -497,7 +486,7 @@ get_bash_name ()
              tname = make_absolute (shell_name, get_string_value ("PWD"));
              if (*shell_name == '.')
                {
-                 name = canonicalize_pathname (tname);
+                 name = sh_canonpath (tname, PATH_CHECKDOTDOT|PATH_CHECKEXISTS);
                  if (name == 0)
                    name = tname;
                  else
@@ -574,6 +563,52 @@ initialize_shell_level ()
   adjust_shell_level (1);
 }
 
+/* If we got PWD from the environment, update our idea of the current
+   working directory.  In any case, make sure that PWD exists before
+   checking it.  It is possible for getcwd () to fail on shell startup,
+   and in that case, PWD would be undefined.  If this is an interactive
+   login shell, see if $HOME is the current working directory, and if
+   that's not the same string as $PWD, set PWD=$HOME. */
+
+void
+set_pwd ()
+{
+  SHELL_VAR *temp_var, *home_var;
+  char *temp_string, *home_string;
+
+  home_var = find_variable ("HOME");
+  home_string = home_var ? value_cell (home_var) : (char *)NULL;
+
+  temp_var = find_variable ("PWD");
+  if (temp_var && imported_p (temp_var) &&
+      (temp_string = value_cell (temp_var)) &&
+      same_file (temp_string, ".", (struct stat *)NULL, (struct stat *)NULL))
+    set_working_directory (temp_string);
+  else if (home_string && interactive_shell && login_shell &&
+          same_file (home_string, ".", (struct stat *)NULL, (struct stat *)NULL))
+    {
+      set_working_directory (home_string);
+      temp_var = bind_variable ("PWD", home_string);
+      set_auto_export (temp_var);
+    }
+  else
+    {
+      temp_string = get_working_directory ("shell-init");
+      if (temp_string)
+       {
+         temp_var = bind_variable ("PWD", temp_string);
+         set_auto_export (temp_var);
+         free (temp_string);
+       }
+    }
+
+  /* According to the Single Unix Specification, v2, $OLDPWD is an
+     `environment variable' and therefore should be auto-exported.
+     Make a dummy invisible variable for OLDPWD, and mark it as exported. */
+  temp_var = bind_variable ("OLDPWD", (char *)NULL);
+  VSETATTR (temp_var, (att_exported | att_invisible));
+}
+
 /* Make a variable $PPID, which holds the pid of the shell's parent.  */
 void
 set_ppid ()
@@ -597,21 +632,21 @@ uidset ()
 
   b = inttostr (current_user.uid, buff, sizeof (buff));
   v = find_variable ("UID");
-  if (v)
-    VUNSETATTR (v, att_readonly);
-
-  v = bind_variable ("UID", b);
-  VSETATTR (v, (att_readonly | att_integer));
+  if (v == 0)
+    {
+      v = bind_variable ("UID", b);
+      VSETATTR (v, (att_readonly | att_integer));
+    }
 
   if (current_user.euid != current_user.uid)
     b = inttostr (current_user.euid, buff, sizeof (buff));
 
   v = find_variable ("EUID");
-  if (v)
-    VUNSETATTR (v, att_readonly);
-
-  v = bind_variable ("EUID", b);
-  VSETATTR (v, (att_readonly | att_integer));
+  if (v == 0)
+    {
+      v = bind_variable ("EUID", b);
+      VSETATTR (v, (att_readonly | att_integer));
+    }
 }
 
 #if defined (ARRAY_VARS)
@@ -646,7 +681,7 @@ make_vers_array ()
 /* Set the environment variables $LINES and $COLUMNS in response to
    a window size change. */
 void
-set_lines_and_columns (lines, cols)
+sh_set_lines_and_columns (lines, cols)
      int lines, cols;
 {
   char val[32], *v;
@@ -754,7 +789,8 @@ all_shell_functions ()
   return (all_vars (shell_functions));
 }
 
-/* Print VARS to stdout in such a way that they can be read back in. */
+/* Print LIST (a list of shell variables) to stdout in such a way that
+   they can be read back in. */
 void
 print_var_list (list)
      register SHELL_VAR **list;
@@ -767,6 +803,23 @@ print_var_list (list)
       print_assignment (var);
 }
 
+/* Print LIST (a list of shell functions) to stdout in such a way that
+   they can be read back in. */
+void
+print_func_list (list)
+     register SHELL_VAR **list;
+{
+  register int i;
+  register SHELL_VAR *var;
+
+  for (i = 0; list && (var = list[i]); i++)
+    {
+      printf ("%s ", var->name);
+      print_var_function (var);
+      printf ("\n");
+    }
+}
+      
 #if defined (NOTDEF)
 /* Print LIST (a linked list of shell variables) to stdout
    by printing the names, without the values.  Used to support the
@@ -793,7 +846,7 @@ print_assignment (var)
 {
   if (function_p (var) && var->value)
     {
-      printf ("%s=", var->name);
+      printf ("%s", var->name);
       print_var_function (var);
       printf ("\n");
     }
@@ -822,9 +875,13 @@ print_var_value (var, quote)
 
   if (var->value)
     {
-      if (quote && contains_shell_metas (var->value))
+      if (quote && sh_contains_shell_metas (var->value))
        {
-         t = single_quote (var->value);
+#if 0
+         t = sh_single_quote (var->value);
+#else
+         t = ansic_quote (var->value, 0, (int *)0);
+#endif
          printf ("%s", t);
          free (t);
        }
@@ -868,7 +925,7 @@ print_array_assignment (var, quoted)
 
 /* **************************************************************** */
 /*                                                                 */
-/*              Dynamic Variable Extension                         */
+/*              Dynamic Variable Extension                         */
 /*                                                                 */
 /* **************************************************************** */
 
@@ -988,12 +1045,10 @@ assign_random (self, value)
   return (self);
 }
 
-static SHELL_VAR *
-get_random (var)
-     SHELL_VAR *var;
+int
+get_random_number ()
 {
   int rv;
-  char *p;
 
   /* Reset for command and process substitution. */
   if (subshell_environment)
@@ -1002,7 +1057,17 @@ get_random (var)
   do
     rv = brand ();
   while (rv == (int)last_random_value);
+  return rv;
+}
 
+static SHELL_VAR *
+get_random (var)
+     SHELL_VAR *var;
+{
+  int rv;
+  char *p;
+
+  rv = get_random_number ();
   last_random_value = rv;
   p = itos ((int)rv);
 
@@ -1164,10 +1229,11 @@ initialize_dynamic_variables ()
 
 #if defined (ARRAY_VARS)
   INIT_DYNAMIC_ARRAY_VAR ("GROUPS", get_groupset, null_array_assign);
+  VSETATTR (v, att_noassign);
 #endif
 
   INIT_DYNAMIC_VAR ("FUNCNAME", (char *)NULL, get_funcname, null_assign);
-  VSETATTR (v, att_invisible);
+  VSETATTR (v, att_invisible|att_noassign);
 }
 
 /* How to get a pointer to the shell variable or function named NAME.
@@ -1191,7 +1257,9 @@ find_variable_internal (name, search_tempenv)
      char *name;
      int search_tempenv;
 {
-  SHELL_VAR *var = (SHELL_VAR *)NULL;
+  SHELL_VAR *var;
+
+  var = (SHELL_VAR *)NULL;
 
   /* If explicitly requested, first look in the temporary environment for
      the variable.  This allows constructs such as "foo=x eval 'echo $foo'"
@@ -1235,11 +1303,11 @@ find_function (name)
    in the temporary environment. */
 char *
 get_string_value (var_name)
-     char *var_name;
+     const char *var_name;
 {
   SHELL_VAR *var;
 
-  var = find_variable (var_name);
+  var = find_variable ((char *)var_name);      /* XXX fix later */
 
   if (!var)
     return (char *)NULL;
@@ -1253,8 +1321,8 @@ get_string_value (var_name)
 
 /* This is present for use by the tilde and readline libraries. */
 char *
-get_env_value (v)
-     char *v;
+sh_get_env_value (v)
+     const char *v;
 {
   return get_string_value (v);
 }
@@ -1266,6 +1334,7 @@ make_local_variable (name)
 {
   SHELL_VAR *new_var, *old_var;
   BUCKET_CONTENTS *elt;
+  int old_var_context;
 
   /* local foo; local foo;  is a no-op. */
   old_var = find_variable (name);
@@ -1274,10 +1343,16 @@ make_local_variable (name)
 
   /* Since this is called only from the local/declare/typeset code, we can
      call builtin_error here without worry (of course, it will also work
-     for anything that sets this_command_name). */
-  if (old_var && readonly_p (old_var))
-    {
-      builtin_error ("%s: readonly variable");
+     for anything that sets this_command_name).  Variables with the `noassign'
+     attribute may not be made local.  The test against old_var's context
+     level is to disallow local copies of readonly global variables (since I
+     believe that this could be a security hole).  Readonly copies of calling
+     function local variables are OK. */
+  if (old_var && (noassign_p (old_var) ||
+                (readonly_p (old_var) && old_var->context == 0)))
+    {
+      if (readonly_p (old_var))
+       builtin_error ("%s: readonly variable");
       return ((SHELL_VAR *)NULL);
     }
 
@@ -1378,6 +1453,10 @@ make_new_variable (name)
   entry->context = 0;
   entry->prev_context = (SHELL_VAR *)NULL;
 
+  /* Make sure we have a shell_variables hash table to add to. */
+  if (shell_variables == 0)
+    shell_variables = make_hash_table (0);
+
   elt = add_hash_item (savestring (name), shell_variables);
   elt->data = (char *)entry;
 
@@ -1444,8 +1523,28 @@ bind_variable (name, value)
      char *name, *value;
 {
   char *newval;
-  SHELL_VAR *entry;
+  SHELL_VAR *entry, *tempenv_entry;
+  int found_in_tempenv;
 
+  entry = (SHELL_VAR *)0;
+  found_in_tempenv = 0;
+
+  /* If we have a temporary environment, look there first for the variable,
+     and, if found, modify the value there before modifying it in the
+     shell_variables table.  This allows sourced scripts to modify values
+     given to them in a temporary environment while modifying the variable
+     value that the caller sees. */
+  if (temporary_env || builtin_env || function_env)
+    {
+      tempenv_entry = find_tempenv_variable (name);
+      if (tempenv_entry)
+       {
+         dispose_variable (tempenv_entry);
+         tempenv_entry = bind_tempenv_variable (name, value);
+         dispose_variable (tempenv_entry);
+       }
+    }
+    
   entry = var_lookup (name, shell_variables);
 
   if (entry == 0)
@@ -1453,20 +1552,17 @@ bind_variable (name, value)
       entry = make_new_variable (name);
       entry->value = make_variable_value (entry, value);
     }
-#if defined (ARRAY_VARS)
-  else if (entry->assign_func && array_p (entry) == 0)
-#else
-  else if (entry->assign_func)
-#endif
+  else if (entry->assign_func) /* array vars have assign functions now */
     {
       INVALIDATE_EXPORTSTR (entry);
       return ((*(entry->assign_func)) (entry, value));
     }
   else
     {
-      if (readonly_p (entry))
+      if (readonly_p (entry) || noassign_p (entry))
        {
-         report_error ("%s: readonly variable", name);
+         if (readonly_p (entry))
+           report_error ("%s: readonly variable", name);
          return (entry);
        }
 
@@ -1614,9 +1710,10 @@ bind_array_variable (name, ind, value)
 
   if (entry == (SHELL_VAR *) 0)
     entry = make_new_array_variable (name);
-  else if (readonly_p (entry))
+  else if (readonly_p (entry) || noassign_p (entry))
     {
-      report_error ("%s: readonly variable", name);
+      if (readonly_p (entry))
+       report_error ("%s: readonly variable", name);
       return (entry);
     }
   else if (array_p (entry) == 0)
@@ -1644,9 +1741,10 @@ assign_array_from_string (name, value)
   var = find_variable (name);
   if (var == 0)
     var = make_new_array_variable (name);
-  else if (readonly_p (var))
+  else if (readonly_p (var) || noassign_p (var))
     {
-      report_error ("%s: readonly variable", name);
+      if (readonly_p (var))
+       report_error ("%s: readonly variable", name);
       return ((SHELL_VAR *)NULL);
     }
   else if (array_p (var) == 0)
@@ -1729,7 +1827,7 @@ assign_array_var_from_string (var, value)
       ni = 1;
       val = extract_array_assignment_list (value, &ni);
       if (val == 0)
-        return var;
+       return var;
     }
   else
     val = value;
@@ -1810,7 +1908,7 @@ assign_array_var_from_string (var, value)
        }
 
       if (integer_p (var))
-        this_command_name = (char *)NULL;      /* no command name for errors */
+       this_command_name = (char *)NULL;       /* no command name for errors */
       nval = make_variable_value (var, val);
       if (var->assign_func)
        (*var->assign_func) (var, ind, nval);
@@ -2394,7 +2492,7 @@ all_variables_matching_prefix (prefix)
   for (vind = rind = 0; varlist[vind]; vind++)
     {
       if (plen == 0 || STREQN (prefix, varlist[vind]->name, plen))
-        rlist[rind++] = savestring (varlist[vind]->name);
+       rlist[rind++] = savestring (varlist[vind]->name);
     }
   rlist[rind] = (char *)0;
   free (varlist);
@@ -2437,7 +2535,7 @@ valid_exportstr (v)
   for (s = v->exportstr + 1; s && *s; s++)
     {
       if (*s == '=')
-        break;
+       break;
       if (legal_variable_char (*s) == 0)
        {
          internal_error ("invalid character %d in exportstr for %s", *s, v->name);
@@ -2475,25 +2573,12 @@ make_var_array (hashed_vars)
 
   for (i = 0, list_index = 0; var = vars[i]; i++)
     {
-      if (var->exportstr)
-        {
-#if defined(__CYGWIN__) || defined (__CYGWIN32__)
-         INVALIDATE_EXPORTSTR (var);
-         value = value_cell (var);
-#else
-         /* XXX -- this test can go away in the next release, to be replaced
-            by a simple `value = var->exportstr;', when the exportstr code
-            is better-tested.  Until then, don't do it for cygwin at all,
-            since that system has some weird environment variables. */
-          if (valid_exportstr (var))
-           value = var->exportstr;
-         else
-           {
-             INVALIDATE_EXPORTSTR (var);
-             value = value_cell (var);
-           }
+#if defined (__CYGWIN__)
+      /* We don't use the exportstr stuff on Cygwin at all. */
+      INVALIDATE_EXPORTSTR (var);
 #endif
-        }
+      if (var->exportstr)
+       value = var->exportstr;
       else if (function_p (var))
        value = named_function_string ((char *)NULL, function_cell (var), 0);
 #if defined (ARRAY_VARS)
@@ -2556,12 +2641,14 @@ assign_in_env (string)
       name[offset] = 0;
 
       var = find_variable (name);
-      if (var && readonly_p (var))
+      if (var && (readonly_p (var) || noassign_p (var)))
        {
-         report_error ("%s: readonly variable", name);
+         if (readonly_p (var))
+           report_error ("%s: readonly variable", name);
          free (name);
          return (0);
        }
+
       temp = name + offset + 1;
       temp = (strchr (temp, '~') != 0) ? bash_tilde_expand (temp) : savestring (temp);
 
@@ -2603,6 +2690,68 @@ assign_in_env (string)
   return 1;
 }
 
+/* Create a SHELL_VAR from a `name=value' string as in the environment, taking
+   the variable name, the environment string, and an index into the string
+   which is the offset of the `=' (the char before the value begins). */
+static SHELL_VAR *
+shell_var_from_env_string (name, env_string, l)
+     char *name, *env_string;
+     int l;
+{
+  SHELL_VAR *temp;
+  char *w;
+
+  /* This is a potential memory leak.  The code should really save
+     the created variables in some auxiliary data structure, which
+     can be disposed of at the appropriate time. */
+  temp = new_shell_variable (name);
+  w = env_string + l + 1;
+
+  temp->value = *w ? savestring (w) : (char *)NULL;
+
+  temp->attributes = att_exported|att_tempvar;
+  temp->context = 0;
+  temp->prev_context = (SHELL_VAR *)NULL;
+
+  temp->dynamic_value = temp->assign_func = (DYNAMIC_FUNC *)NULL;
+  CLEAR_EXPORTSTR (temp);
+
+  return (temp);
+}
+
+/* Bind NAME to VALUE in ARRAY, an array of strings in the same format as the
+   environment array (i.e, name=value).  If NAME is present, change the value,
+   cons up a new SHELL_VAR and return it.  Otherwise return (SHELL_VAR *)NULL. */
+
+static SHELL_VAR *
+bind_name_in_env_array (name, value, array)
+     char *name, *value;
+     char **array;
+{
+  register int i, l;
+  char *new_env_string, *w;
+  SHELL_VAR *temp;
+
+  if (array == 0)
+    return ((SHELL_VAR *)NULL);
+
+  for (i = 0, l = strlen (name); array[i]; i++)
+    {
+      if (STREQN (array[i], name, l) && array[i][l] == '=')
+       {
+         new_env_string = mk_env_string (name, value);
+
+         temp = shell_var_from_env_string (name, new_env_string, l);
+
+         free (array[i]);
+         array[i] = new_env_string;
+
+         return (temp);
+       }
+    }
+  return ((SHELL_VAR *)NULL);
+}
+
 /* Search for NAME in ARRAY, an array of strings in the same format as the
    environment array (i.e, name=value).  If NAME is present, make a new
    variable and return it.  Otherwise, return NULL. */
@@ -2612,6 +2761,7 @@ find_name_in_env_array (name, array)
      char **array;
 {
   register int i, l;
+  SHELL_VAR *temp;
 
   if (array == 0)
     return ((SHELL_VAR *)NULL);
@@ -2620,28 +2770,48 @@ find_name_in_env_array (name, array)
     {
       if (STREQN (array[i], name, l) && array[i][l] == '=')
        {
-         SHELL_VAR *temp;
-         char *w;
+         temp = shell_var_from_env_string (name, array[i], l);
+         return (temp);
+       }
+    }
+  return ((SHELL_VAR *)NULL);
+}
+
+#define FIND_AND_BIND_IN_ENV_ARRAY(N, V, A) \
+  do \
+    { \
+      var = find_name_in_env_array (N, A); \
+      if (var) \
+       { \
+         dispose_variable (var); \
+         var = bind_name_in_env_array (N, V, A); \
+         return (var); \
+       } \
+    } \
+  while (0)
+
+/* Make variable NAME have VALUE in one of the temporary environments. */
+static SHELL_VAR *
+bind_tempenv_variable (name, value)
+     char *name, *value;
+{
+  SHELL_VAR *var;
 
-         /* This is a potential memory leak.  The code should really save
-            the created variables in some auxiliary data structure, which
-            can be disposed of at the appropriate time. */
-         temp = new_shell_variable (name);
-         w = array[i] + l + 1;
+  var = (SHELL_VAR *)NULL;
 
-         temp->value = *w ? savestring (w) : (char *)NULL;
+  if (temporary_env)
+    FIND_AND_BIND_IN_ENV_ARRAY (name, value, temporary_env);
 
-         temp->attributes = att_exported|att_tempvar;
-         temp->context = 0;
-         temp->prev_context = (SHELL_VAR *)NULL;
+  /* We don't check this_shell_builtin because the command that needs the
+     value from builtin_env may be a disk command run inside a script run
+     with `.' and a temporary env. */
+  if (builtin_env)
+    FIND_AND_BIND_IN_ENV_ARRAY (name, value, builtin_env);
 
-         temp->dynamic_value = temp->assign_func = (DYNAMIC_FUNC *)NULL;
-         CLEAR_EXPORTSTR (temp);
+  if (variable_context && function_env)
+    FIND_AND_BIND_IN_ENV_ARRAY (name, value, function_env);
 
-         return (temp);
-       }
-    }
-  return ((SHELL_VAR *)NULL);
+  return (SHELL_VAR *)NULL;
 }
 
 /* Find a variable in the temporary environment that is named NAME.
@@ -2747,6 +2917,12 @@ merge_builtin_env ()
   merge_env_array (builtin_env);
 }
 
+void
+merge_function_env ()
+{
+  merge_env_array (function_env);
+}
+
 int
 any_temporary_variables ()
 {
@@ -2825,7 +3001,7 @@ maybe_make_export_env ()
       if (new_size > export_env_size)
        {
          export_env_size = new_size;
-          export_env = (char **)xrealloc (export_env, export_env_size * sizeof (char *));
+         export_env = (char **)xrealloc (export_env, export_env_size * sizeof (char *));
        }
       export_env[export_env_index = 0] = (char *)NULL;
 
@@ -2849,6 +3025,10 @@ maybe_make_export_env ()
        for (i = 0; function_env[i]; i++)
          export_env = add_or_supercede_exported_var (function_env[i], 1);
 
+      if (builtin_env)
+       for (i = 0; builtin_env[i]; i++)
+         export_env = add_or_supercede_exported_var (builtin_env[i], 1);
+
       if (temporary_env)
        for (i = 0; temporary_env[i]; i++)
          export_env = add_or_supercede_exported_var (temporary_env[i], 1);
@@ -3124,7 +3304,7 @@ sv_histsize (name)
   if (temp && *temp)
     {
       if (legal_number (temp, &num))
-        {
+       {
          if (name[4] == 'S')
            {
              stifle_history (num);
index baf7fd6aea7940796f10b5fa06501adadb9127ec..3599fd348e7953d0ddcaa405716a413e46f1ca5a 100644 (file)
@@ -80,6 +80,7 @@ typedef struct variable {
 #define att_local     0x100    /* variable is local to a function */
 #define att_tempvar   0x200    /* variable came from the temp environment */
 #define att_importstr 0x400    /* exportstr points into initial environment */
+#define att_noassign  0x800    /* assignment not allowed */
 
 #define exported_p(var)                ((((var)->attributes) & (att_exported)))
 #define readonly_p(var)                ((((var)->attributes) & (att_readonly)))
@@ -88,9 +89,10 @@ typedef struct variable {
 #define non_unsettable_p(var)  ((((var)->attributes) & (att_nounset)))
 #define function_p(var)                ((((var)->attributes) & (att_function)))
 #define integer_p(var)         ((((var)->attributes) & (att_integer)))
-#define imported_p(var)         ((((var)->attributes) & (att_imported)))
+#define imported_p(var)                ((((var)->attributes) & (att_imported)))
 #define local_p(var)           ((((var)->attributes) & (att_local)))
 #define tempvar_p(var)         ((((var)->attributes) & (att_tempvar)))
+#define noassign_p(var)                ((((var)->attributes) & (att_noassign)))
 
 #define value_cell(var) ((var)->value)
 #define function_cell(var) (COMMAND *)((var)->value)
@@ -114,7 +116,7 @@ typedef struct variable {
          if ((var)->exportstr) \
            { \
              if (((var)->attributes & att_importstr) == 0) \
-               free ((var)->exportstr); \
+               free ((var)->exportstr); \
            } \
        } while (0)
 
@@ -151,7 +153,9 @@ extern char **non_unsettable_vars;
 
 extern void initialize_shell_variables __P((char **, int));
 extern SHELL_VAR *set_if_not __P((char *, char *));
-extern void set_lines_and_columns __P((int, int));
+extern void sh_set_lines_and_columns __P((int, int));
+
+extern void set_pwd __P((void));
 
 extern void set_ppid __P((void));
 
@@ -181,7 +185,7 @@ extern char **all_variables_matching_prefix __P((char *));
 extern char **make_var_array __P((HASH_TABLE *));
 extern char **add_or_supercede_exported_var __P((char *, int));
 
-extern char *get_string_value __P((char *));
+extern char *get_string_value __P((const char *));
 extern char *make_variable_value __P((SHELL_VAR *, char *));
 
 extern SHELL_VAR *bind_variable_value __P((SHELL_VAR *, char *));
@@ -203,6 +207,7 @@ extern void dispose_function_env __P((void));
 extern void dispose_builtin_env __P((void));
 extern void merge_temporary_env __P((void));
 extern void merge_builtin_env __P((void));
+extern void merge_function_env __P((void));
 extern void kill_all_local_variables __P((void));
 extern void set_var_read_only __P((char *));
 extern void set_func_read_only __P((char *));
@@ -214,6 +219,7 @@ extern void update_export_env_inplace __P((char *, int, char *));
 extern void put_command_name_into_env __P((char *));
 extern void put_gnu_argv_flags_into_env __P((int, char *));
 extern void print_var_list __P((SHELL_VAR **));
+extern void print_func_list __P((SHELL_VAR **));
 extern void print_assignment __P((SHELL_VAR *));
 extern void print_var_value __P((SHELL_VAR *, int));
 extern void print_var_function __P((SHELL_VAR *));
@@ -241,6 +247,8 @@ extern void set_pipestatus_from_exit __P((int));
    is one of the special ones where something special happens. */
 extern void stupidly_hack_special_variables __P((char *));
 
+extern int get_random_number __P((void));
+
 /* The `special variable' functions that get called when a particular
    variable is set. */
 void sv_path (), sv_mail (), sv_ignoreeof (), sv_strict_posix ();
index b0ba6e32b09a7bc5ab22c7f2e054433d38b5beb2..379498095a896cbb3308646719147c8f8ccecbe4 100644 (file)
--- a/version.c
+++ b/version.c
@@ -67,5 +67,5 @@ show_shell_version (extended)
 {
   printf ("GNU bash, version %s (%s)\n", shell_version_string (), MACHTYPE);
   if (extended)
-    printf ("Copyright 1999 Free Software Foundation, Inc.\n");
+    printf ("Copyright 2000 Free Software Foundation, Inc.\n");
 }
diff --git a/y.tab.c b/y.tab.c
index dd66aa9293d7487b89d33899d893e22743299d8b..03f1af9d5d3ea788ccb883ea86382a860e12e0f3 100644 (file)
--- a/y.tab.c
+++ b/y.tab.c
@@ -1,57 +1,26 @@
-
-/*  A Bison parser, made from /usr/homes/chet/src/bash/src/parse.y
- by  GNU Bison version 1.25
-  */
-
-#define YYBISON 1  /* Identify Bison output.  */
-
-#define        IF      258
-#define        THEN    259
-#define        ELSE    260
-#define        ELIF    261
-#define        FI      262
-#define        CASE    263
-#define        ESAC    264
-#define        FOR     265
-#define        SELECT  266
-#define        WHILE   267
-#define        UNTIL   268
-#define        DO      269
-#define        DONE    270
-#define        FUNCTION        271
-#define        COND_START      272
-#define        COND_END        273
-#define        COND_ERROR      274
-#define        IN      275
-#define        BANG    276
-#define        TIME    277
-#define        TIMEOPT 278
-#define        WORD    279
-#define        ASSIGNMENT_WORD 280
-#define        NUMBER  281
-#define        ARITH_CMD       282
-#define        ARITH_FOR_EXPRS 283
-#define        COND_CMD        284
-#define        AND_AND 285
-#define        OR_OR   286
-#define        GREATER_GREATER 287
-#define        LESS_LESS       288
-#define        LESS_AND        289
-#define        GREATER_AND     290
-#define        SEMI_SEMI       291
-#define        LESS_LESS_MINUS 292
-#define        AND_GREATER     293
-#define        LESS_GREATER    294
-#define        GREATER_BAR     295
-#define        yacc_EOF        296
-
-#line 21 "/usr/homes/chet/src/bash/src/parse.y"
-
+#ifndef lint
+static char const 
+yyrcsid[] = "$FreeBSD: src/usr.bin/yacc/skeleton.c,v 1.28 2000/01/17 02:04:06 bde Exp $";
+#endif
+#include <stdlib.h>
+#define YYBYACC 1
+#define YYMAJOR 1
+#define YYMINOR 9
+#define YYLEX yylex()
+#define YYEMPTY -1
+#define yyclearin (yychar=(YYEMPTY))
+#define yyerrok (yyerrflag=0)
+#define YYRECOVERING() (yyerrflag!=0)
+static int yygrowstack();
+#define YYPREFIX "yy"
+#line 22 "/usr/homes/chet/src/bash/src/parse.y"
 #include "config.h"
 
 #include "bashtypes.h"
 #include "bashansi.h"
 
+#include "filecntl.h"
+
 #if defined (HAVE_UNISTD_H)
 #  include <unistd.h>
 #endif
 #define YYDEBUG 0
 
 #if defined (EXTENDED_GLOB)
-#define PATTERN_CHAR(c) \
-       ((c) == '@' || (c) == '*' || (c) == '+' || (c) == '?' || (c) == '!')
-
 extern int extended_glob;
 #endif
 
@@ -155,6 +121,10 @@ static void reset_readline_prompt ();
 #endif
 static void print_prompt ();
 
+#if defined (HISTORY)
+char *history_delimiting_chars ();
+#endif
+
 extern int yyerror ();
 
 /* Default prompt strings */
@@ -210,8 +180,7 @@ static int function_bstart;
 static int arith_for_lineno;
 
 static REDIRECTEE redir;
-
-#line 187 "/usr/homes/chet/src/bash/src/parse.y"
+#line 190 "/usr/homes/chet/src/bash/src/parse.y"
 typedef union {
   WORD_DESC *word;             /* the word that we read. */
   int number;                  /* the number that we read. */
@@ -221,5061 +190,4983 @@ typedef union {
   ELEMENT element;
   PATTERN_LIST *pattern;
 } YYSTYPE;
-#include <stdio.h>
-
-#ifndef __cplusplus
-#ifndef __STDC__
-#define const
-#endif
-#endif
-
-
-
-#define        YYFINAL         279
-#define        YYFLAG          -32768
-#define        YYNTBASE        53
-
-#define YYTRANSLATE(x) ((unsigned)(x) <= 296 ? yytranslate[x] : 87)
-
-static const char yytranslate[] = {     0,
-     2,     2,     2,     2,     2,     2,     2,     2,     2,    43,
-     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
-     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
-     2,     2,     2,     2,     2,     2,     2,    41,     2,    51,
-    52,     2,     2,     2,    48,     2,     2,     2,     2,     2,
-     2,     2,     2,     2,     2,     2,     2,     2,    42,    47,
-     2,    46,     2,     2,     2,     2,     2,     2,     2,     2,
-     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
-     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
-     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
-     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
-     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
-     2,     2,    49,    45,    50,     2,     2,     2,     2,     2,
-     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
-     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
-     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
-     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
-     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
-     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
-     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
-     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
-     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
-     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
-     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
-     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
-     2,     2,     2,     2,     2,     1,     2,     3,     4,     5,
-     6,     7,     8,     9,    10,    11,    12,    13,    14,    15,
-    16,    17,    18,    19,    20,    21,    22,    23,    24,    25,
-    26,    27,    28,    29,    30,    31,    32,    33,    34,    35,
-    36,    37,    38,    39,    40,    44
+#line 194 "y.tab.c"
+#define YYERRCODE 256
+#define IF 257
+#define THEN 258
+#define ELSE 259
+#define ELIF 260
+#define FI 261
+#define CASE 262
+#define ESAC 263
+#define FOR 264
+#define SELECT 265
+#define WHILE 266
+#define UNTIL 267
+#define DO 268
+#define DONE 269
+#define FUNCTION 270
+#define COND_START 271
+#define COND_END 272
+#define COND_ERROR 273
+#define IN 274
+#define BANG 275
+#define TIME 276
+#define TIMEOPT 277
+#define WORD 278
+#define ASSIGNMENT_WORD 279
+#define NUMBER 280
+#define ARITH_CMD 281
+#define ARITH_FOR_EXPRS 282
+#define COND_CMD 283
+#define AND_AND 284
+#define OR_OR 285
+#define GREATER_GREATER 286
+#define LESS_LESS 287
+#define LESS_AND 288
+#define GREATER_AND 289
+#define SEMI_SEMI 290
+#define LESS_LESS_MINUS 291
+#define AND_GREATER 292
+#define LESS_GREATER 293
+#define GREATER_BAR 294
+#define yacc_EOF 295
+const short yylhs[] = {                                        -1,
+    0,    0,    0,    0,   27,   27,   24,   24,   24,   24,
+   24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
+   24,   24,   24,   24,   24,   24,   24,   24,   24,   24,
+   24,   24,   24,   26,   26,   26,   25,   25,   10,   10,
+    1,    1,    1,    1,   11,   11,   11,   11,   11,   11,
+   11,   11,   11,   11,   11,   12,   12,   12,   12,   12,
+   12,   18,   18,   18,   18,   13,   13,   13,   13,   13,
+   13,   14,   14,   14,   19,   19,   19,   20,   20,   23,
+   21,   21,   21,   15,   16,   17,   22,   22,   22,   31,
+   31,   29,   29,   29,   29,   30,   30,   28,   28,    4,
+    7,    7,    5,    5,    5,    6,    6,    6,    6,    6,
+    6,   34,   34,   34,   33,   33,    8,    8,    8,    9,
+    9,    9,    9,    9,    3,    3,    3,    3,    3,    2,
+    2,   32,   32,
 };
-
-#if YYDEBUG != 0
-static const short yyprhs[] = {     0,
-     0,     3,     5,     8,    10,    12,    15,    18,    21,    25,
-    29,    32,    36,    39,    43,    46,    50,    53,    57,    60,
-    64,    67,    71,    74,    78,    81,    85,    88,    92,    95,
-    99,   102,   105,   109,   111,   113,   115,   117,   120,   122,
-   125,   127,   129,   132,   134,   136,   142,   148,   150,   152,
-   154,   156,   158,   160,   162,   164,   171,   178,   186,   194,
-   205,   216,   224,   232,   239,   246,   254,   262,   273,   284,
-   291,   299,   306,   312,   319,   324,   328,   334,   342,   349,
-   353,   355,   359,   364,   371,   377,   379,   382,   387,   392,
-   398,   404,   407,   411,   413,   417,   420,   422,   425,   429,
-   433,   437,   442,   447,   452,   457,   462,   464,   466,   468,
-   470,   471,   474,   476,   479,   482,   487,   492,   496,   500,
-   502,   504,   507,   510,   514,   518,   523,   525,   527
-};
-
-static const short yyrhs[] = {    82,
-    43,     0,    43,     0,     1,    43,     0,    44,     0,    24,
-     0,    54,    24,     0,    46,    24,     0,    47,    24,     0,
-    26,    46,    24,     0,    26,    47,    24,     0,    32,    24,
-     0,    26,    32,    24,     0,    33,    24,     0,    26,    33,
-    24,     0,    34,    26,     0,    26,    34,    26,     0,    35,
-    26,     0,    26,    35,    26,     0,    34,    24,     0,    26,
-    34,    24,     0,    35,    24,     0,    26,    35,    24,     0,
-    37,    24,     0,    26,    37,    24,     0,    35,    48,     0,
-    26,    35,    48,     0,    34,    48,     0,    26,    34,    48,
-     0,    38,    24,     0,    26,    39,    24,     0,    39,    24,
-     0,    40,    24,     0,    26,    40,    24,     0,    24,     0,
-    25,     0,    55,     0,    55,     0,    57,    55,     0,    56,
-     0,    58,    56,     0,    58,     0,    60,     0,    60,    57,
-     0,    61,     0,    64,     0,    12,    77,    14,    77,    15,
-     0,    13,    77,    14,    77,    15,     0,    63,     0,    67,
-     0,    66,     0,    68,     0,    69,     0,    70,     0,    62,
-     0,    65,     0,    10,    24,    81,    14,    77,    15,     0,
-    10,    24,    81,    49,    77,    50,     0,    10,    24,    42,
-    81,    14,    77,    15,     0,    10,    24,    42,    81,    49,
-    77,    50,     0,    10,    24,    81,    20,    54,    80,    81,
-    14,    77,    15,     0,    10,    24,    81,    20,    54,    80,
-    81,    49,    77,    50,     0,    10,    28,    80,    81,    14,
-    77,    15,     0,    10,    28,    80,    81,    49,    77,    50,
-     0,    11,    24,    81,    14,    76,    15,     0,    11,    24,
-    81,    49,    76,    50,     0,    11,    24,    42,    81,    14,
-    76,    15,     0,    11,    24,    42,    81,    49,    76,    50,
-     0,    11,    24,    81,    20,    54,    80,    81,    14,    76,
-    15,     0,    11,    24,    81,    20,    54,    80,    81,    49,
-    76,    50,     0,     8,    24,    81,    20,    81,     9,     0,
-     8,    24,    81,    20,    74,    81,     9,     0,     8,    24,
-    81,    20,    72,     9,     0,    24,    51,    52,    81,    68,
-     0,    16,    24,    51,    52,    81,    68,     0,    16,    24,
-    81,    68,     0,    51,    77,    52,     0,     3,    77,     4,
-    77,     7,     0,     3,    77,     4,    77,     5,    77,     7,
-     0,     3,    77,     4,    77,    71,     7,     0,    49,    76,
-    50,     0,    27,     0,    17,    29,    18,     0,     6,    77,
-     4,    77,     0,     6,    77,     4,    77,     5,    77,     0,
-     6,    77,     4,    77,    71,     0,    73,     0,    74,    73,
-     0,    81,    75,    52,    77,     0,    81,    75,    52,    81,
-     0,    81,    51,    75,    52,    77,     0,    81,    51,    75,
-    52,    81,     0,    73,    36,     0,    74,    73,    36,     0,
-    24,     0,    75,    45,    24,     0,    81,    78,     0,    76,
-     0,    81,    79,     0,    79,    43,    81,     0,    79,    41,
-    81,     0,    79,    42,    81,     0,    79,    30,    81,    79,
-     0,    79,    31,    81,    79,     0,    79,    41,    81,    79,
-     0,    79,    42,    81,    79,     0,    79,    43,    81,    79,
-     0,    84,     0,    43,     0,    42,     0,    44,     0,     0,
-    81,    43,     0,    83,     0,    83,    41,     0,    83,    42,
-     0,    83,    30,    81,    83,     0,    83,    31,    81,    83,
-     0,    83,    41,    83,     0,    83,    42,    83,     0,    84,
-     0,    85,     0,    21,    85,     0,    86,    85,     0,    86,
-    21,    85,     0,    21,    86,    85,     0,    85,    45,    81,
-    85,     0,    59,     0,    22,     0,    22,    23,     0
-};
-
-#endif
-
-#if YYDEBUG != 0
-static const short yyrline[] = { 0,
-   237,   246,   253,   268,   278,   280,   284,   289,   294,   299,
-   304,   309,   314,   320,   326,   331,   336,   341,   346,   351,
-   356,   361,   366,   373,   380,   385,   390,   395,   400,   405,
-   410,   415,   420,   427,   429,   431,   435,   439,   450,   452,
-   456,   458,   460,   497,   499,   501,   503,   505,   507,   509,
-   511,   513,   515,   517,   519,   523,   525,   527,   529,   531,
-   533,   537,   539,   542,   546,   550,   554,   558,   562,   568,
-   570,   572,   576,   580,   583,   587,   594,   596,   598,   603,
-   607,   611,   615,   617,   619,   623,   624,   628,   630,   632,
-   634,   638,   639,   643,   645,   654,   662,   663,   669,   670,
-   677,   681,   683,   685,   692,   694,   696,   700,   701,   702,
-   705,   706,   715,   721,   730,   738,   740,   742,   749,   752,
-   756,   758,   763,   768,   773,   780,   783,   787,   789
-};
-#endif
-
-
-#if YYDEBUG != 0 || defined (YYERROR_VERBOSE)
-
-static const char * const yytname[] = {   "$","error","$undefined.","IF","THEN",
-"ELSE","ELIF","FI","CASE","ESAC","FOR","SELECT","WHILE","UNTIL","DO","DONE",
-"FUNCTION","COND_START","COND_END","COND_ERROR","IN","BANG","TIME","TIMEOPT",
-"WORD","ASSIGNMENT_WORD","NUMBER","ARITH_CMD","ARITH_FOR_EXPRS","COND_CMD","AND_AND",
-"OR_OR","GREATER_GREATER","LESS_LESS","LESS_AND","GREATER_AND","SEMI_SEMI","LESS_LESS_MINUS",
-"AND_GREATER","LESS_GREATER","GREATER_BAR","'&'","';'","'\\n'","yacc_EOF","'|'",
-"'>'","'<'","'-'","'{'","'}'","'('","')'","inputunit","word_list","redirection",
-"simple_command_element","redirection_list","simple_command","command","shell_command",
-"for_command","arith_for_command","select_command","case_command","function_def",
-"subshell","if_command","group_command","arith_command","cond_command","elif_clause",
-"case_clause","pattern_list","case_clause_sequence","pattern","list","compound_list",
-"list0","list1","list_terminator","newline_list","simple_list","simple_list1",
-"pipeline_command","pipeline","timespec", NULL
+const short yylen[] = {                                         2,
+    2,    1,    2,    1,    1,    2,    2,    2,    3,    3,
+    2,    3,    2,    3,    2,    3,    2,    3,    2,    3,
+    2,    3,    2,    3,    2,    3,    2,    3,    2,    3,
+    2,    2,    3,    1,    1,    1,    1,    2,    1,    2,
+    1,    1,    2,    1,    1,    1,    5,    5,    1,    1,
+    1,    1,    1,    1,    1,    6,    6,    7,    7,   10,
+   10,    7,    7,    5,    5,    6,    6,    7,    7,   10,
+   10,    6,    7,    6,    5,    6,    4,    1,    2,    3,
+    5,    7,    6,    3,    1,    3,    4,    6,    5,    1,
+    2,    4,    4,    5,    5,    2,    3,    1,    3,    2,
+    1,    2,    3,    3,    3,    4,    4,    4,    4,    4,
+    1,    1,    1,    1,    0,    2,    1,    2,    2,    4,
+    4,    3,    3,    1,    1,    2,    2,    3,    3,    4,
+    1,    1,    2,
 };
-#endif
-
-static const short yyr1[] = {     0,
-    53,    53,    53,    53,    54,    54,    55,    55,    55,    55,
-    55,    55,    55,    55,    55,    55,    55,    55,    55,    55,
-    55,    55,    55,    55,    55,    55,    55,    55,    55,    55,
-    55,    55,    55,    56,    56,    56,    57,    57,    58,    58,
-    59,    59,    59,    60,    60,    60,    60,    60,    60,    60,
-    60,    60,    60,    60,    60,    61,    61,    61,    61,    61,
-    61,    62,    62,    63,    63,    63,    63,    63,    63,    64,
-    64,    64,    65,    65,    65,    66,    67,    67,    67,    68,
-    69,    70,    71,    71,    71,    72,    72,    73,    73,    73,
-    73,    74,    74,    75,    75,    76,    77,    77,    78,    78,
-    78,    79,    79,    79,    79,    79,    79,    80,    80,    80,
-    81,    81,    82,    82,    82,    83,    83,    83,    83,    83,
-    84,    84,    84,    84,    84,    85,    85,    86,    86
+const short yydefred[] = {                                      0,
+    0,  115,    0,    0,    0,  115,  115,    0,    0,    0,
+    0,    0,   35,    0,   85,    0,    0,    0,    0,    0,
+    0,    0,    0,    2,    4,    0,    0,  115,  115,    0,
+  131,    0,  124,    0,    0,    0,    0,   45,   49,   46,
+   52,   53,   54,   55,   44,   50,   51,   36,   39,    0,
+    3,  101,    0,    0,  115,    0,    0,    0,    0,    0,
+    0,    0,    0,    0,  133,    0,    0,    0,    0,    0,
+    0,    0,    0,    0,    0,   11,   13,   19,   15,   27,
+   21,   17,   25,   23,   29,   31,   32,    7,    8,    0,
+    0,  115,    1,  115,  115,    0,    0,   34,   40,   37,
+    0,    0,    0,  115,  116,  111,  100,    0,    0,  115,
+    0,  115,  113,  112,  114,  115,  115,  115,    0,  115,
+  115,    0,    0,   86,    0,  115,   12,   14,   20,   16,
+   28,   22,   18,   26,   24,   30,   33,    9,   10,   84,
+   80,    0,    0,    0,    0,    0,   38,    0,    0,  115,
+  115,  115,  115,  115,  115,    0,  115,    0,  115,    0,
+    0,    0,    0,  115,    0,  115,    0,    0,  115,    0,
+   77,    0,    0,  120,  121,    0,    0,  115,  115,   81,
+    0,    0,    0,    0,    0,    0,    0,  115,    0,    0,
+  115,  115,    0,    5,    0,    0,   64,   65,  115,  115,
+  115,  115,    0,    0,    0,    0,   47,   48,    0,    0,
+   75,    0,    0,   83,  106,  107,    0,    0,    0,   96,
+    0,    0,   74,   72,   98,    0,    0,    0,    0,   56,
+    6,  115,   57,    0,    0,    0,    0,   66,    0,  115,
+   67,   76,   82,  115,  115,  115,  115,   97,   73,    0,
+    0,  115,   58,   59,    0,   62,   63,   68,   69,    0,
+    0,    0,    0,    0,  115,   99,   92,    0,  115,  115,
+  115,  115,  115,   89,   94,    0,    0,    0,    0,    0,
+   88,   60,   61,   70,   71,
 };
-
-static const short yyr2[] = {     0,
-     2,     1,     2,     1,     1,     2,     2,     2,     3,     3,
-     2,     3,     2,     3,     2,     3,     2,     3,     2,     3,
-     2,     3,     2,     3,     2,     3,     2,     3,     2,     3,
-     2,     2,     3,     1,     1,     1,     1,     2,     1,     2,
-     1,     1,     2,     1,     1,     5,     5,     1,     1,     1,
-     1,     1,     1,     1,     1,     6,     6,     7,     7,    10,
-    10,     7,     7,     6,     6,     7,     7,    10,    10,     6,
-     7,     6,     5,     6,     4,     3,     5,     7,     6,     3,
-     1,     3,     4,     6,     5,     1,     2,     4,     4,     5,
-     5,     2,     3,     1,     3,     2,     1,     2,     3,     3,
-     3,     4,     4,     4,     4,     4,     1,     1,     1,     1,
-     0,     2,     1,     2,     2,     4,     4,     3,     3,     1,
-     1,     2,     2,     3,     3,     4,     1,     1,     2
+const short yydgoto[] = {                                      30,
+   31,   32,  106,   52,  107,  108,   53,   34,  145,   36,
+   37,   38,   39,   40,   41,   42,   43,   44,   45,  171,
+   46,  181,   47,   48,  101,   49,  195,  227,  187,  188,
+  189,   50,   54,  117,
 };
-
-static const short yydefact[] = {     0,
    0,   111,     0,     0,     0,   111,   111,     0,     0,     0,
  128,    34,    35,     0,    81,     0,     0,     0,     0,     0,
-     0,     0,     0,     2,     4,     0,     0,   111,   111,    36,
-    39,    41,   127,    42,    44,    54,    48,    45,    55,    50,
-    49,    51,    52,    53,     0,   113,   120,   121,     0,     3,
-    97,     0,     0,   111,   111,     0,   111,     0,     0,   111,
    0,   122,     0,   129,     0,     0,     0,     0,     0,     0,
-     0,     0,     0,     0,    11,    13,    19,    15,    27,    21,
-    17,    25,    23,    29,    31,    32,     7,     8,     0,     0,
-     0,    34,    40,    37,    43,     1,   111,   111,   114,   115,
-   111,     0,   123,   111,   112,    96,    98,   107,     0,   111,
-     0,   109,   108,   110,   111,   111,     0,   111,   111,     0,
-     0,    82,   125,   111,    12,    14,    20,    16,    28,    22,
-    18,    26,    24,    30,    33,     9,    10,    80,     0,    76,
-    38,     0,     0,   118,   119,     0,   124,     0,   111,   111,
-   111,   111,   111,   111,     0,   111,     0,   111,     0,     0,
-   111,     0,   111,     0,     0,   111,    75,     0,   116,   117,
    0,     0,   126,   111,   111,    77,     0,     0,     0,   100,
-   101,    99,     0,    86,   111,     0,   111,   111,     0,     5,
-     0,     0,   111,   111,   111,   111,     0,     0,     0,    46,
-    47,     0,    73,     0,     0,    79,   102,   103,   104,   105,
  106,    72,    92,    87,     0,    70,    94,     0,     0,     0,
-     0,    56,     6,   111,    57,     0,     0,     0,     0,    64,
-   111,    65,    74,    78,   111,   111,   111,   111,    93,    71,
    0,     0,   111,    58,    59,     0,    62,    63,    66,    67,
    0,    83,     0,     0,     0,   111,    95,    88,    89,   111,
-   111,   111,   111,   111,    85,    90,    91,     0,     0,     0,
-     0,    84,    60,    61,    68,    69,     0,     0,     0
+const short yysindex[] = {                                    -10,
+    2,    0, -258, -255, -246,    0,    0, -237, -249,  846,
-226,   15,    0,  123,    0, -211, -203,  -44,  -43, -199,
-198, -194, -193,    0,    0, -192, -191,    0,    0,    0,
+    0,  -41,    0,   78,   23,  956,  975,    0,    0,    0,
+    0,    0,    0,    0,    0,    0,    0,    0,    0,  721,
+    0,    0, -169,   71,    0,   35,   -6,   39, -177, -172,
+   61, -168,  -41,  933,    0,   62, -176, -173,  -30,  -27,
-166, -163, -162, -160, -159,    0,    0,    0,    0,    0,
+    0,    0,    0,    0,    0,    0,    0,    0,    0,  -17,
+   69,    0,    0,    0,    0,  813,  813,    0,    0,    0,
+  975,  933,  -41,    0,    0,    0,    0,   19,   -7,    0,
+   66,    0,    0,    0,    0,    0,    0,    0,   99,    0,
+    0,   79,  305,    0,  -41,    0,    0,    0,    0,    0,
+    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
+    0,  104,   71,   71, -247, -247,    0,  -41, -195,    0,
+    0,    0,    0,    0,    0,    4,    0, -156,    0, -145,
+    1,    7,   12,    0, -156,    0, -144, -140,    0,  975,
+    0,  305,  -41,    0,    0,  813,  813,    0,    0,    0,
-138,   71,   71,   71,   71,   71, -158,    0, -129,   -4,
+    0,    0, -132,    0,   -5,   16,    0,    0,    0,    0,
+    0,    0, -126,   71,   -5,   20,    0,    0,  305,  975,
+    0, -115, -111,    0,    0,    0, -240, -240, -240,    0,
-142,   32,    0,    0,    0, -128,  -34, -120,   26,    0,
+    0,    0,    0, -114,   36, -107,   38,    0,   19,    0,
+    0,    0,    0,    0,    0,    0,    0,    0,    0,  -25,
-113,    0,    0,    0,   29,    0,    0,    0,    0,   37,
-201,   71,   71,   71,    0,    0,    0,   71,    0,    0,
+    0,    0,    0,    0,    0,   71, -100,   45,  -98,   48,
+    0,    0,    0,    0,    0,
 };
-
-static const short yydefgoto[] = {   277,
-   191,    30,    31,    95,    32,    33,    34,    35,    36,    37,
-    38,    39,    40,    41,    42,    43,    44,   177,   183,   184,
-   185,   219,    51,    52,   106,   107,   115,    53,    45,   144,
-   108,    48,    49
+const short yyrindex[] = {                                      0,
+    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
+  888,   33,    0,    0,    0,    0,    0,    0,    0,    0,
+    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
+    0,  450,    0,    0,  164,  118,  162,    0,    0,    0,
+    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
+    0,    0,    0,    0,    0,  126,    0,  126,    0,    0,
+  216,    0,  462,    0,    0,    0,    0,    0,    0,    0,
+    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
+    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
+    0,    0,    0,    0,    0,  165,  166,    0,    0,    0,
+  174,    0,  495,    0,    0,    0,    0,  436,    0,    0,
+    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
+    0,    0,    0,    0,  507,    0,    0,    0,    0,    0,
+    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
+    0,    0,    0,    0,   11,   18,    0,  540,    0,    0,
+    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
+    0,    0,    0,    0,    0,    0,    0,    0,    0,  403,
+    0,    0,  553,    0,    0,    0,    0,    0,    0,    0,
+    0,    0,    0,  573,  662,  765,  -85,    0,    0,    0,
+    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
+    0,    0,    0,    0,    0,    0,    0,    0,    0,  416,
+    0,    0,    0,    0,    0,    0,  587,  599,  611,    0,
+  -84,    0,    0,    0,    0,    0,    0,    0,    0,    0,
+    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
+    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
+    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
+  -81,    0,    0,    0,    0,    0,    0, -250,    0,    0,
+    0,    0,    0,    0,    0, -244,    0,    0,    0,    0,
+    0,    0,    0,    0,    0,
 };
-
-static const short yypact[] = {   256,
-    -9,-32768,    28,    54,    31,-32768,-32768,    38,   -14,   382,
-    49,    24,-32768,   188,-32768,    41,    56,    35,    42,    61,
-    73,    75,   100,-32768,-32768,   111,   112,-32768,-32768,-32768,
--32768,   171,-32768,   530,-32768,-32768,-32768,-32768,-32768,-32768,
--32768,-32768,-32768,-32768,    95,   124,-32768,    59,   424,-32768,
--32768,   136,   298,-32768,   104,    64,   107,   137,   142,   106,
-   140,    59,   508,-32768,   108,   135,   138,    45,    55,   139,
-   143,   146,   154,   155,-32768,-32768,-32768,-32768,-32768,-32768,
--32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,   114,   298,
-   131,-32768,-32768,-32768,   530,-32768,-32768,-32768,   340,   340,
--32768,   508,    59,-32768,-32768,-32768,    80,-32768,    -8,-32768,
-    -4,-32768,-32768,-32768,-32768,-32768,    -1,-32768,-32768,   132,
-   -11,-32768,    59,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
--32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,    80,-32768,
--32768,   298,   298,    89,    89,   466,    59,    82,-32768,-32768,
--32768,-32768,-32768,-32768,    -3,-32768,   156,-32768,     4,    11,
--32768,   156,-32768,   170,   177,-32768,-32768,   -11,-32768,-32768,
-   340,   340,    59,-32768,-32768,-32768,   179,   298,   298,   298,
-   298,   298,   184,   158,-32768,    -2,-32768,-32768,   183,-32768,
-    52,   149,-32768,-32768,-32768,-32768,   186,    52,   152,-32768,
--32768,   -11,-32768,   208,   212,-32768,-32768,-32768,   101,   101,
-   101,-32768,-32768,   190,     0,-32768,-32768,   200,   -31,   215,
-   181,-32768,-32768,-32768,-32768,   218,   191,   221,   194,-32768,
--32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
-   -25,   216,-32768,-32768,-32768,    14,-32768,-32768,-32768,-32768,
-    15,   128,   298,   298,   298,-32768,-32768,-32768,   298,-32768,
--32768,-32768,-32768,-32768,-32768,-32768,   298,   230,   196,   232,
-   198,-32768,-32768,-32768,-32768,-32768,   249,   251,-32768
+const short yygindex[] = {                                      0,
+    0,   -2,   10, -133,    0,  340,  798,    0,   24,    0,
+ -112,    0,    0,    0,    0,    0,    0,    0,    0, -146,
+    0,  -80,    0,  -28,   21,  152,   25,  -33,    8,    0,
+    0,  182, 1196, -170,
 };
-
-static const short yypgoto[] = {-32768,
-    90,   -28,   224,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
--32768,-32768,-32768,-32768,  -118,-32768,-32768,     1,-32768,    76,
--32768,    44,   -20,    -6,-32768,   -64,  -154,   -24,-32768,     5,
-     2,     7,   250
+#define YYTABLESIZE 1468
+const short yytable[] = {                                      24,
+   80,   83,  105,  114,  114,  105,  252,   63,  100,   33,
+  170,   51,   93,  105,  131,  265,  105,  134,   95,   55,
+  122,  105,   56,   35,  232,  211,   57,  123,  154,   29,
+  203,   58,  206,   62,  240,  226,   94,   95,  105,   93,
+   61,  105,   34,  150,  151,   95,  105,  103,  122,   27,
+   65,   26,  113,  113,   66,  123,  152,  273,  179,  170,
+   96,  125,  242,  178,  179,  180,   76,  236,  237,  122,
+   34,  226,  147,   34,   77,  105,  123,  153,   84,   85,
+  105,   97,   92,   86,   87,   88,   89,   93,  104,  251,
+  120,   34,   34,  110,   34,  121,  170,  118,  251,  148,
+  122,  127,  126,  124,  128,   33,   33,  140,  105,  141,
+   29,  135,   28,  105,  136,  137,  116,  138,  139,  169,
+  146,  194,  214,  197,  207,  198,  192,   41,  208,  200,
+   27,  220,   26,  223,  202,  115,  230,  279,  280,  173,
+  233,  100,  238,   29,  241,  243,  244,  248,  253,  225,
+  254,  270,   33,   33,  256,   41,   34,   34,   41,  272,
+  257,  258,  259,   27,  266,   26,  174,  175,  282,  283,
+  284,   42,  285,  117,  118,  119,   41,   90,   91,   87,
+  274,  147,   75,   43,   74,   33,   33,   99,  159,  205,
+  210,   64,  250,   28,    0,  221,    0,    0,    0,   42,
+  146,    0,   42,    0,    0,    0,    0,    0,    0,    0,
+    0,   43,    0,    0,   43,    0,    0,    0,    0,    0,
+   42,  166,    0,    0,    0,  115,   28,    0,    0,    0,
+    0,    0,   43,   78,   81,   79,   82,    0,    0,    0,
+    0,   41,   41,    0,    0,    1,    2,  129,  115,  130,
+  132,    3,  133,    4,    5,    6,    7,    0,  224,    8,
+    9,  112,    0,    0,   10,   11,  155,   12,   13,   14,
+   15,  191,  231,  225,  199,   16,   17,   18,   19,  201,
+   20,   21,   22,   23,   25,   42,   42,    0,  115,  115,
+   34,   34,   34,   34,  249,   34,  269,   43,   43,    0,
+   34,   34,  150,  151,  271,    0,   94,   95,    0,  225,
+   34,   34,   34,    0,  105,    0,   34,   34,   34,   34,
+   34,   34,   34,   34,   34,   34,   34,    2,    0,    0,
+    0,    0,    3,  157,    4,    5,    6,    7,  115,  158,
+    8,    9,    0,    0,   29,   10,   11,    0,   12,   13,
+   14,   15,    0,    0,    0,    0,   16,   17,   18,   19,
+    2,   20,   21,   22,   23,    3,  164,    4,    5,    6,
+    7,    0,  165,    8,    9,   41,   41,   41,   41,    0,
+   41,   12,   13,   14,   15,   41,   41,    0,    0,   16,
+   17,   18,   19,  115,   20,   21,   22,   23,    0,  115,
+    0,   41,   41,    0,    0,    0,    0,   41,   67,   68,
+   69,   70,   78,   71,    0,   72,   73,    0,    0,   42,
+   42,   42,   42,    0,   42,   79,    0,   28,    0,   42,
+   42,   43,   43,   43,   43,    0,   43,    0,    0,    0,
+   78,   43,   43,   78,    0,   42,   42,    0,    0,    0,
+    0,   42,    0,   79,    0,    0,   79,   43,   43,  125,
+    0,   78,    0,   43,    0,    0,    0,    0,    0,    0,
+    0,  126,  115,    0,   79,    0,  102,  115,    0,  115,
+  115,  115,  115,    0,    0,    0,  115,  125,    0,    0,
+  125,    0,    0,    0,    0,    0,  115,    0,    0,  126,
+    0,    0,  126,    0,  127,    0,    0,    0,  125,    0,
+    0,    0,    0,    0,    0,    0,  129,    0,    0,    0,
+  126,  215,  216,  217,  218,  219,   78,   78,    0,    0,
+    0,    0,  127,    0,    0,  127,    0,    0,    0,   79,
+   79,    0,    0,  239,  129,    0,    0,  129,    0,  128,
+    0,    0,    0,  127,    0,    0,    0,    0,    0,    0,
+  102,    2,  130,    0,    0,  129,    3,    0,    4,    5,
+    6,    7,    0,    0,  125,    9,    0,  128,    0,    0,
+  128,    0,    0,    0,    0,   15,  126,    0,    0,    0,
+  130,    0,    0,  130,    0,    0,  108,    0,  128,    0,
+    0,  217,  218,  219,    0,    0,    0,    0,  109,    0,
+    0,  130,    0,  104,    0,    0,    0,    0,    0,  127,
+  110,    0,    0,    0,  108,    0,    0,  108,    0,    0,
+    0,  129,    0,    0,    0,    0,  109,    0,    0,  109,
+    0,    0,    0,    0,    0,  108,    0,    0,  110,    0,
+    0,  110,    0,    0,    0,    0,    0,  109,    0,    0,
+   78,   78,   78,   78,  128,   78,    0,    0,    0,  110,
+   78,   78,    0,   79,   79,   79,   79,  130,   79,    0,
+    0,    0,    0,   79,   79,    0,   78,   78,    0,    0,
+    0,    0,   78,  102,  102,  102,  102,  104,  102,   79,
+   79,    0,  105,  102,  102,   79,    0,  125,  125,  125,
+  125,  108,  125,    0,    0,    0,    0,  125,  125,  126,
+  126,  126,  126,  109,  126,  102,    0,    0,    0,  126,
+  126,    0,    0,  125,  125,  110,    0,    0,    0,  125,
+    0,    0,    0,    0,    0,  126,  126,    0,    0,    0,
+    0,  126,  127,  127,  127,  127,    0,  127,    0,    0,
+   29,    0,  127,  127,  129,  129,  129,  129,    0,  129,
+    0,    0,    0,    0,  129,  129,    0,    0,  127,  127,
+   27,    0,   26,    0,  127,    0,  105,    0,    0,    0,
+  129,  129,    0,    0,    0,    0,  129,  128,  128,  128,
+  128,    0,  128,   59,   60,  103,    0,  128,  128,    0,
+  130,  130,  130,  130,    0,  130,    0,    0,    0,    0,
+  130,  130,    0,  128,  128,   90,   91,    0,    0,  128,
+  104,  104,  104,  104,    0,  104,  130,  130,    0,    0,
+  104,  104,  130,   28,  108,  108,  108,  108,    0,  108,
+    0,    0,   29,    0,  108,  108,  109,  109,  109,  109,
+    0,  109,  104,    0,    0,    0,  109,  109,  110,  110,
+  110,  110,   27,  110,   26,    0,  108,    0,  110,  110,
+    0,    0,    0,    0,    0,   29,    0,    0,  109,  103,
+    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
+  110,  149,    0,    0,    0,   27,    0,   26,    0,  160,
+    0,    0,    0,  161,    0,    0,    0,  167,  168,  105,
+  105,  105,  105,    0,  105,    0,    0,  132,    0,  105,
+  105,    0,    0,    0,    0,   28,    0,    0,    0,    0,
+    0,    0,    0,    0,    0,    0,    0,  132,    0,  132,
+    0,  105,    0,    0,  193,    0,  196,    0,    0,    0,
+    0,    0,    0,    0,    0,    0,    0,    0,   28,    0,
+    0,    0,   29,    0,    0,  212,  213,    2,    0,    0,
+    0,    0,    3,    0,    4,    5,    6,    7,  228,  229,
+    8,    9,   27,    0,   26,  102,  234,  235,   12,   13,
+   14,   15,    0,    0,    0,    0,   16,   17,   18,   19,
+  132,   20,   21,   22,   23,   27,    0,   26,    0,    0,
+    0,    0,  103,  103,  103,  103,    0,  103,    0,    0,
+    0,    0,  103,  103,   27,    0,   26,    0,    0,    0,
+    0,  261,    0,    0,    0,    0,    0,    0,    0,  267,
+    0,    0,    0,    0,  103,   28,    0,    0,    0,    0,
+    0,    0,  275,    0,    0,    0,  277,  278,    0,    2,
+  281,    0,    0,    0,    3,    0,    4,    5,    6,    7,
+    0,    0,    8,    9,    0,    0,    0,   10,   11,    0,
+   12,   13,   14,   15,    0,    0,    0,    0,   16,   17,
+   18,   19,    2,   20,   21,   22,   23,    3,    0,    4,
+    5,    6,    7,    0,    0,    8,    9,    0,    0,    0,
+    0,   11,    0,   12,   13,   14,   15,    0,    0,    0,
+    0,   16,   17,   18,   19,    0,   20,   21,   22,   23,
+    0,    0,    0,    0,  132,    0,    0,    0,    0,  132,
+    0,  132,  132,  132,  132,    0,    0,  132,  132,    0,
+    0,    0,  132,    0,    0,  132,  132,  132,  132,    0,
+    0,    0,    0,  132,  132,  132,  132,    0,  132,  132,
+  132,  132,    0,    0,    0,    0,    0,    0,    0,    2,
+    0,    0,    0,    0,    3,    0,    4,    5,    6,    7,
+    0,    0,    8,    9,    0,    0,    0,    0,    0,    0,
+   12,   13,   14,   15,    0,    0,    0,    0,   16,   17,
+   18,   19,    0,   20,   21,   22,   23,    0,    0,    0,
+    0,    0,    0,   98,   13,   14,    0,    0,    0,    0,
+    0,   16,   17,   18,   19,    0,   20,   21,   22,   23,
+  109,  111,    0,  119,   14,    0,  123,    0,    0,    0,
+   16,   17,   18,   19,    0,   20,   21,   22,   23,    0,
+    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
+    0,    0,    0,    0,    0,    0,    0,  142,    0,  143,
+  144,    0,    0,    0,    0,    0,    0,    0,    0,    0,
+    0,    0,    0,    0,    0,  156,    0,    0,    0,    0,
+    0,    0,  162,  163,    0,    0,    0,    0,    0,    0,
+    0,  172,    0,    0,    0,    0,    0,    0,    0,    0,
+    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
+    0,    0,    0,    0,    0,  182,  183,  184,  185,  186,
+  190,    0,    0,    0,    0,    0,    0,    0,    0,  204,
+    0,  204,    0,    0,  209,    0,    0,    0,    0,    0,
+    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
+    0,    0,    0,  222,    0,    0,    0,    0,    0,    0,
+    0,    0,    0,    0,    0,    0,  204,  204,    0,    0,
+    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
+    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
+    0,    0,    0,    0,    0,    0,    0,  255,    0,    0,
+    0,    0,    0,    0,    0,  260,    0,    0,    0,    0,
+  262,  263,  264,    0,    0,    0,    0,  268,    0,    0,
+    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
+  276,    0,    0,    0,    0,    0,  204,  204,
 };
-
-
-#define        YYLAST          577
-
-
-static const short yytable[] = {    58,
-    59,    47,   167,    90,    46,    94,   216,    89,   240,   156,
-   187,   154,   161,   242,    61,   157,    62,   193,   162,   242,
-   243,   217,    91,   217,   195,   139,   256,   260,   262,   109,
-   111,   105,   117,    50,   105,   121,   224,    28,   105,   105,
-   105,   105,   105,   231,   158,   188,   105,   163,   218,   203,
-   218,    54,   194,   105,    57,   103,   105,   105,    77,   196,
-    78,    60,   261,   263,    75,    80,   141,    81,   127,   123,
-   128,    64,   142,   143,    65,   223,   146,    55,   130,    76,
-   131,    56,    79,   233,    83,   155,   174,   175,   176,    82,
-   159,   160,   129,   112,   113,   114,    84,   148,    85,   168,
-    47,    47,   132,   101,   145,   112,   113,   114,   147,   149,
-   150,   164,   165,   207,   208,   209,   210,   211,    97,    98,
-   151,   152,   153,    86,   178,   179,   180,   181,   182,   186,
-   149,   150,   264,   175,    87,    88,    90,    96,    90,   104,
-   197,   202,   199,    47,    47,   110,   169,   170,   116,   189,
-   118,   192,   173,    97,    98,   119,   120,   122,   125,   124,
-   215,   126,   133,   138,    99,   100,   134,   204,   205,   135,
-    90,    90,    47,    47,   228,   229,   145,   136,   137,   190,
-   220,   221,   140,   166,   200,   206,   226,   227,   209,   210,
-   211,   201,   212,   213,    92,    13,    14,   222,   225,   246,
-   230,   232,    16,    17,    18,    19,   251,    20,    21,    22,
-    23,   253,   254,   255,   234,   235,    26,    27,   259,    66,
-    67,    68,    69,   217,    70,   239,    71,    72,   252,   244,
-   245,   267,   247,    73,    74,   249,   258,    90,    90,   257,
-   248,   270,   271,   250,   273,   274,   275,   276,   278,   266,
-   279,   198,   265,   268,   269,    93,     1,   272,     2,    63,
-   214,   241,     0,     3,     0,     4,     5,     6,     7,     0,
-     0,     8,     9,     0,     0,     0,    10,    11,     0,    12,
-    13,    14,    15,     0,     0,     0,     0,    16,    17,    18,
-    19,     0,    20,    21,    22,    23,     0,     0,    24,    25,
-     2,    26,    27,     0,    28,     3,    29,     4,     5,     6,
-     7,     0,     0,     8,     9,     0,     0,     0,    10,    11,
-     0,    12,    13,    14,    15,     0,     0,     0,     0,    16,
-    17,    18,    19,     0,    20,    21,    22,    23,     0,     0,
-   105,     0,     2,    26,    27,     0,    28,     3,    29,     4,
-     5,     6,     7,     0,     0,     8,     9,     0,     0,     0,
-    10,    11,     0,    12,    13,    14,    15,     0,     0,     0,
-     0,    16,    17,    18,    19,     0,    20,    21,    22,    23,
-     0,     0,     0,     0,     2,    26,    27,     0,    28,     3,
-    29,     4,     5,     6,     7,     0,     0,     8,     9,     0,
-     0,     0,     0,    11,     0,    12,    13,    14,    15,     0,
-     0,     0,     0,    16,    17,    18,    19,     0,    20,    21,
-    22,    23,     0,     0,     0,     0,     2,    26,    27,     0,
-    28,     3,    29,     4,     5,     6,     7,     0,     0,     8,
-     9,     0,     0,     0,   102,     0,     0,    12,    13,    14,
-    15,     0,     0,     0,     0,    16,    17,    18,    19,     0,
-    20,    21,    22,    23,     0,     0,     0,     0,     2,    26,
-    27,     0,    28,     3,    29,     4,     5,     6,     7,     0,
-     0,     8,     9,     0,     0,     0,     0,     0,     0,    12,
-    13,    14,    15,     0,     0,     0,     0,    16,    17,    18,
-    19,     0,    20,    21,    22,    23,     0,     0,   105,     0,
-     2,    26,    27,     0,    28,     3,    29,     4,     5,     6,
-     7,     0,     0,     8,     9,     0,     0,     0,     0,     0,
-     0,    12,    13,    14,    15,     0,     0,     0,     0,    16,
-    17,    18,    19,     0,    20,    21,    22,    23,     0,     0,
-     0,     0,     0,    26,    27,    14,    28,     0,    29,     0,
-     0,    16,    17,    18,    19,     0,    20,    21,    22,    23,
-     0,     0,     0,     0,     0,    26,    27
+const short yycheck[] = {                                      10,
+   45,   45,   10,   10,   10,   10,   41,   10,   37,    0,
+  123,   10,  263,   10,   45,   41,   10,   45,  263,  278,
+   10,   10,  278,    0,  195,  172,  282,   10,   10,   40,
+  164,  278,  166,  283,  205,   40,  284,  285,   10,  290,
+  278,   10,   10,  284,  285,  290,   10,   50,   38,   60,
+  277,   62,   59,   59,   40,   38,   38,  259,  260,  172,
+   38,   64,  209,  259,  260,  261,  278,  201,  202,   59,
+   38,   40,  101,   41,  278,   10,   59,   59,  278,  278,
+   10,   59,  124,  278,  278,  278,  278,   10,  258,  124,
+  268,   59,   60,   59,   62,  268,  209,   59,  124,  102,
+   40,  278,   41,  272,  278,   96,   97,  125,   10,   41,
+   40,  278,  123,   10,  278,  278,  123,  278,  278,   41,
+   97,  278,  261,  269,  269,  125,  123,   10,  269,  123,
+   60,  290,   62,  263,  123,   10,  269,  271,  272,  142,
+  125,  170,  269,   40,  125,  261,  258,  290,  269,  278,
+  125,  123,  143,  144,  269,   38,  124,  125,   41,  123,
+  125,  269,  125,   60,  278,   62,  143,  144,  269,  125,
+  269,   10,  125,   10,   10,   10,   59,  263,  263,  261,
+  261,  210,   60,   10,   62,  176,  177,   36,  123,  165,
+  170,   10,  226,  123,   -1,  188,   -1,   -1,   -1,   38,
+  177,   -1,   41,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
+   -1,   38,   -1,   -1,   41,   -1,   -1,   -1,   -1,   -1,
+   59,  123,   -1,   -1,   -1,   10,  123,   -1,   -1,   -1,
+   -1,   -1,   59,  278,  278,  280,  280,   -1,   -1,   -1,
+   -1,  124,  125,   -1,   -1,  256,  257,  278,  123,  280,
+  278,  262,  280,  264,  265,  266,  267,   -1,  263,  270,
+  271,  268,   -1,   -1,  275,  276,  274,  278,  279,  280,
+  281,  268,  278,  278,  268,  286,  287,  288,  289,  268,
+  291,  292,  293,  294,  295,  124,  125,   -1,  295,  295,
+  258,  259,  260,  261,  263,  263,  268,  124,  125,   -1,
+  268,  269,  284,  285,  268,   -1,  284,  285,   -1,  278,
+  278,  279,  280,   -1,   10,   -1,  284,  285,  286,  287,
+  288,  289,  290,  291,  292,  293,  294,  257,   -1,   -1,
+   -1,   -1,  262,  268,  264,  265,  266,  267,  123,  274,
+  270,  271,   -1,   -1,   40,  275,  276,   -1,  278,  279,
+  280,  281,   -1,   -1,   -1,   -1,  286,  287,  288,  289,
+  257,  291,  292,  293,  294,  262,  268,  264,  265,  266,
+  267,   -1,  274,  270,  271,  258,  259,  260,  261,   -1,
+  263,  278,  279,  280,  281,  268,  269,   -1,   -1,  286,
+  287,  288,  289,  268,  291,  292,  293,  294,   -1,  274,
+   -1,  284,  285,   -1,   -1,   -1,   -1,  290,  286,  287,
+  288,  289,   10,  291,   -1,  293,  294,   -1,   -1,  258,
+  259,  260,  261,   -1,  263,   10,   -1,  123,   -1,  268,
+  269,  258,  259,  260,  261,   -1,  263,   -1,   -1,   -1,
+   38,  268,  269,   41,   -1,  284,  285,   -1,   -1,   -1,
+   -1,  290,   -1,   38,   -1,   -1,   41,  284,  285,   10,
+   -1,   59,   -1,  290,   -1,   -1,   -1,   -1,   -1,   -1,
+   -1,   10,  257,   -1,   59,   -1,   41,  262,   -1,  264,
+  265,  266,  267,   -1,   -1,   -1,  271,   38,   -1,   -1,
+   41,   -1,   -1,   -1,   -1,   -1,  281,   -1,   -1,   38,
+   -1,   -1,   41,   -1,   10,   -1,   -1,   -1,   59,   -1,
+   -1,   -1,   -1,   -1,   -1,   -1,   10,   -1,   -1,   -1,
+   59,  182,  183,  184,  185,  186,  124,  125,   -1,   -1,
+   -1,   -1,   38,   -1,   -1,   41,   -1,   -1,   -1,  124,
+  125,   -1,   -1,  204,   38,   -1,   -1,   41,   -1,   10,
+   -1,   -1,   -1,   59,   -1,   -1,   -1,   -1,   -1,   -1,
+  125,  257,   10,   -1,   -1,   59,  262,   -1,  264,  265,
+  266,  267,   -1,   -1,  125,  271,   -1,   38,   -1,   -1,
+   41,   -1,   -1,   -1,   -1,  281,  125,   -1,   -1,   -1,
+   38,   -1,   -1,   41,   -1,   -1,   10,   -1,   59,   -1,
+   -1,  262,  263,  264,   -1,   -1,   -1,   -1,   10,   -1,
+   -1,   59,   -1,   41,   -1,   -1,   -1,   -1,   -1,  125,
+   10,   -1,   -1,   -1,   38,   -1,   -1,   41,   -1,   -1,
+   -1,  125,   -1,   -1,   -1,   -1,   38,   -1,   -1,   41,
+   -1,   -1,   -1,   -1,   -1,   59,   -1,   -1,   38,   -1,
+   -1,   41,   -1,   -1,   -1,   -1,   -1,   59,   -1,   -1,
+  258,  259,  260,  261,  125,  263,   -1,   -1,   -1,   59,
+  268,  269,   -1,  258,  259,  260,  261,  125,  263,   -1,
+   -1,   -1,   -1,  268,  269,   -1,  284,  285,   -1,   -1,
+   -1,   -1,  290,  258,  259,  260,  261,  125,  263,  284,
+  285,   -1,   41,  268,  269,  290,   -1,  258,  259,  260,
+  261,  125,  263,   -1,   -1,   -1,   -1,  268,  269,  258,
+  259,  260,  261,  125,  263,  290,   -1,   -1,   -1,  268,
+  269,   -1,   -1,  284,  285,  125,   -1,   -1,   -1,  290,
+   -1,   -1,   -1,   -1,   -1,  284,  285,   -1,   -1,   -1,
+   -1,  290,  258,  259,  260,  261,   -1,  263,   -1,   -1,
+   40,   -1,  268,  269,  258,  259,  260,  261,   -1,  263,
+   -1,   -1,   -1,   -1,  268,  269,   -1,   -1,  284,  285,
+   60,   -1,   62,   -1,  290,   -1,  125,   -1,   -1,   -1,
+  284,  285,   -1,   -1,   -1,   -1,  290,  258,  259,  260,
+  261,   -1,  263,    6,    7,   41,   -1,  268,  269,   -1,
+  258,  259,  260,  261,   -1,  263,   -1,   -1,   -1,   -1,
+  268,  269,   -1,  284,  285,   28,   29,   -1,   -1,  290,
+  258,  259,  260,  261,   -1,  263,  284,  285,   -1,   -1,
+  268,  269,  290,  123,  258,  259,  260,  261,   -1,  263,
+   -1,   -1,   40,   -1,  268,  269,  258,  259,  260,  261,
+   -1,  263,  290,   -1,   -1,   -1,  268,  269,  258,  259,
+  260,  261,   60,  263,   62,   -1,  290,   -1,  268,  269,
+   -1,   -1,   -1,   -1,   -1,   40,   -1,   -1,  290,  125,
+   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
+  290,  104,   -1,   -1,   -1,   60,   -1,   62,   -1,  112,
+   -1,   -1,   -1,  116,   -1,   -1,   -1,  120,  121,  258,
+  259,  260,  261,   -1,  263,   -1,   -1,   40,   -1,  268,
+  269,   -1,   -1,   -1,   -1,  123,   -1,   -1,   -1,   -1,
+   -1,   -1,   -1,   -1,   -1,   -1,   -1,   60,   -1,   62,
+   -1,  290,   -1,   -1,  157,   -1,  159,   -1,   -1,   -1,
+   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  123,   -1,
+   -1,   -1,   40,   -1,   -1,  178,  179,  257,   -1,   -1,
+   -1,   -1,  262,   -1,  264,  265,  266,  267,  191,  192,
+  270,  271,   60,   -1,   62,  275,  199,  200,  278,  279,
+  280,  281,   -1,   -1,   -1,   -1,  286,  287,  288,  289,
+  123,  291,  292,  293,  294,   60,   -1,   62,   -1,   -1,
+   -1,   -1,  258,  259,  260,  261,   -1,  263,   -1,   -1,
+   -1,   -1,  268,  269,   60,   -1,   62,   -1,   -1,   -1,
+   -1,  244,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  252,
+   -1,   -1,   -1,   -1,  290,  123,   -1,   -1,   -1,   -1,
+   -1,   -1,  265,   -1,   -1,   -1,  269,  270,   -1,  257,
+  273,   -1,   -1,   -1,  262,   -1,  264,  265,  266,  267,
+   -1,   -1,  270,  271,   -1,   -1,   -1,  275,  276,   -1,
+  278,  279,  280,  281,   -1,   -1,   -1,   -1,  286,  287,
+  288,  289,  257,  291,  292,  293,  294,  262,   -1,  264,
+  265,  266,  267,   -1,   -1,  270,  271,   -1,   -1,   -1,
+   -1,  276,   -1,  278,  279,  280,  281,   -1,   -1,   -1,
+   -1,  286,  287,  288,  289,   -1,  291,  292,  293,  294,
+   -1,   -1,   -1,   -1,  257,   -1,   -1,   -1,   -1,  262,
+   -1,  264,  265,  266,  267,   -1,   -1,  270,  271,   -1,
+   -1,   -1,  275,   -1,   -1,  278,  279,  280,  281,   -1,
+   -1,   -1,   -1,  286,  287,  288,  289,   -1,  291,  292,
+  293,  294,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  257,
+   -1,   -1,   -1,   -1,  262,   -1,  264,  265,  266,  267,
+   -1,   -1,  270,  271,   -1,   -1,   -1,   -1,   -1,   -1,
+  278,  279,  280,  281,   -1,   -1,   -1,   -1,  286,  287,
+  288,  289,   -1,  291,  292,  293,  294,   -1,   -1,   -1,
+   -1,   -1,   -1,  278,  279,  280,   -1,   -1,   -1,   -1,
+   -1,  286,  287,  288,  289,   -1,  291,  292,  293,  294,
+   55,   56,   -1,   58,  280,   -1,   61,   -1,   -1,   -1,
+  286,  287,  288,  289,   -1,  291,  292,  293,  294,   -1,
+   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
+   -1,   -1,   -1,   -1,   -1,   -1,   -1,   92,   -1,   94,
+   95,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
+   -1,   -1,   -1,   -1,   -1,  110,   -1,   -1,   -1,   -1,
+   -1,   -1,  117,  118,   -1,   -1,   -1,   -1,   -1,   -1,
+   -1,  126,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
+   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
+   -1,   -1,   -1,   -1,   -1,  150,  151,  152,  153,  154,
+  155,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  164,
+   -1,  166,   -1,   -1,  169,   -1,   -1,   -1,   -1,   -1,
+   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
+   -1,   -1,   -1,  188,   -1,   -1,   -1,   -1,   -1,   -1,
+   -1,   -1,   -1,   -1,   -1,   -1,  201,  202,   -1,   -1,
+   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
+   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
+   -1,   -1,   -1,   -1,   -1,   -1,   -1,  232,   -1,   -1,
+   -1,   -1,   -1,   -1,   -1,  240,   -1,   -1,   -1,   -1,
+  245,  246,  247,   -1,   -1,   -1,   -1,  252,   -1,   -1,
+   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
+  265,   -1,   -1,   -1,   -1,   -1,  271,  272,
 };
-
-static const short yycheck[] = {     6,
-     7,     0,   121,    28,     0,    34,     9,    28,     9,    14,
-    14,    20,    14,    45,    29,    20,    10,    14,    20,    45,
-    52,    24,    29,    24,    14,    90,    52,    14,    14,    54,
-    55,    43,    57,    43,    43,    60,   191,    49,    43,    43,
-    43,    43,    43,   198,    49,    49,    43,    49,    51,   168,
-    51,    24,    49,    43,    24,    49,    43,    43,    24,    49,
-    26,    24,    49,    49,    24,    24,    95,    26,    24,    63,
-    26,    23,    97,    98,    51,    24,   101,    24,    24,    24,
-    26,    28,    48,   202,    24,   110,     5,     6,     7,    48,
-   115,   116,    48,    42,    43,    44,    24,   104,    24,   124,
-    99,   100,    48,    45,   100,    42,    43,    44,   102,    30,
-    31,   118,   119,   178,   179,   180,   181,   182,    30,    31,
-    41,    42,    43,    24,   149,   150,   151,   152,   153,   154,
-    30,    31,     5,     6,    24,    24,   161,    43,   163,     4,
-   161,   166,   163,   142,   143,    42,   142,   143,    42,   156,
-    14,   158,   146,    30,    31,    14,    51,    18,    24,    52,
-   185,    24,    24,    50,    41,    42,    24,   174,   175,    24,
-   195,   196,   171,   172,   195,   196,   172,    24,    24,    24,
-   187,   188,    52,    52,    15,     7,   193,   194,   253,   254,
-   255,    15,     9,    36,    24,    25,    26,    15,    50,   224,
-    15,    50,    32,    33,    34,    35,   231,    37,    38,    39,
-    40,   236,   237,   238,     7,     4,    46,    47,   243,    32,
-    33,    34,    35,    24,    37,    36,    39,    40,   235,    15,
-    50,   256,    15,    46,    47,    15,   243,   262,   263,    24,
-    50,   262,   263,    50,    15,    50,    15,    50,     0,   256,
-     0,   162,   252,   260,   261,    32,     1,   264,     3,    10,
-   185,   218,    -1,     8,    -1,    10,    11,    12,    13,    -1,
-    -1,    16,    17,    -1,    -1,    -1,    21,    22,    -1,    24,
-    25,    26,    27,    -1,    -1,    -1,    -1,    32,    33,    34,
-    35,    -1,    37,    38,    39,    40,    -1,    -1,    43,    44,
-     3,    46,    47,    -1,    49,     8,    51,    10,    11,    12,
-    13,    -1,    -1,    16,    17,    -1,    -1,    -1,    21,    22,
-    -1,    24,    25,    26,    27,    -1,    -1,    -1,    -1,    32,
-    33,    34,    35,    -1,    37,    38,    39,    40,    -1,    -1,
-    43,    -1,     3,    46,    47,    -1,    49,     8,    51,    10,
-    11,    12,    13,    -1,    -1,    16,    17,    -1,    -1,    -1,
-    21,    22,    -1,    24,    25,    26,    27,    -1,    -1,    -1,
-    -1,    32,    33,    34,    35,    -1,    37,    38,    39,    40,
-    -1,    -1,    -1,    -1,     3,    46,    47,    -1,    49,     8,
-    51,    10,    11,    12,    13,    -1,    -1,    16,    17,    -1,
-    -1,    -1,    -1,    22,    -1,    24,    25,    26,    27,    -1,
-    -1,    -1,    -1,    32,    33,    34,    35,    -1,    37,    38,
-    39,    40,    -1,    -1,    -1,    -1,     3,    46,    47,    -1,
-    49,     8,    51,    10,    11,    12,    13,    -1,    -1,    16,
-    17,    -1,    -1,    -1,    21,    -1,    -1,    24,    25,    26,
-    27,    -1,    -1,    -1,    -1,    32,    33,    34,    35,    -1,
-    37,    38,    39,    40,    -1,    -1,    -1,    -1,     3,    46,
-    47,    -1,    49,     8,    51,    10,    11,    12,    13,    -1,
-    -1,    16,    17,    -1,    -1,    -1,    -1,    -1,    -1,    24,
-    25,    26,    27,    -1,    -1,    -1,    -1,    32,    33,    34,
-    35,    -1,    37,    38,    39,    40,    -1,    -1,    43,    -1,
-     3,    46,    47,    -1,    49,     8,    51,    10,    11,    12,
-    13,    -1,    -1,    16,    17,    -1,    -1,    -1,    -1,    -1,
-    -1,    24,    25,    26,    27,    -1,    -1,    -1,    -1,    32,
-    33,    34,    35,    -1,    37,    38,    39,    40,    -1,    -1,
-    -1,    -1,    -1,    46,    47,    26,    49,    -1,    51,    -1,
-    -1,    32,    33,    34,    35,    -1,    37,    38,    39,    40,
-    -1,    -1,    -1,    -1,    -1,    46,    47
+#define YYFINAL 30
+#ifndef YYDEBUG
+#define YYDEBUG 0
+#endif
+#define YYMAXTOKEN 295
+#if YYDEBUG
+const char * const yyname[] = {
+"end-of-file",0,0,0,0,0,0,0,0,0,"'\\n'",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
+0,0,0,0,0,0,0,"'&'",0,"'('","')'",0,0,0,"'-'",0,0,0,0,0,0,0,0,0,0,0,0,0,"';'",
+"'<'",0,"'>'",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
+0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"'{'","'|'","'}'",0,0,0,0,
+0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
+0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
+0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
+0,0,0,0,0,0,0,"IF","THEN","ELSE","ELIF","FI","CASE","ESAC","FOR","SELECT",
+"WHILE","UNTIL","DO","DONE","FUNCTION","COND_START","COND_END","COND_ERROR",
+"IN","BANG","TIME","TIMEOPT","WORD","ASSIGNMENT_WORD","NUMBER","ARITH_CMD",
+"ARITH_FOR_EXPRS","COND_CMD","AND_AND","OR_OR","GREATER_GREATER","LESS_LESS",
+"LESS_AND","GREATER_AND","SEMI_SEMI","LESS_LESS_MINUS","AND_GREATER",
+"LESS_GREATER","GREATER_BAR","yacc_EOF",
 };
-/* -*-C-*-  Note some compilers choke on comments on `#line' lines.  */
-#line 3 "/usr/share/misc/bison.simple"
-
-/* Skeleton output parser for bison,
-   Copyright (C) 1984, 1989, 1990 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.
-
-   This program is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   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, write to the Free Software
-   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
-
-/* As a special exception, when this file is copied by Bison into a
-   Bison output file, you may use that output file without restriction.
-   This special exception was added by the Free Software Foundation
-   in version 1.24 of Bison.  */
-
-#ifndef alloca
-#ifdef __GNUC__
-#define alloca __builtin_alloca
-#else /* not GNU C.  */
-#if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__) || defined (__sparc) || defined (__sgi)
-#include <alloca.h>
-#else /* not sparc */
-#if defined (MSDOS) && !defined (__TURBOC__)
-#include <malloc.h>
-#else /* not MSDOS, or __TURBOC__ */
-#if defined(_AIX)
-#include <malloc.h>
- #pragma alloca
-#else /* not MSDOS, __TURBOC__, or _AIX */
-#ifdef __hpux
-#ifdef __cplusplus
-extern "C" {
-void *alloca (unsigned int);
+const char * const yyrule[] = {
+"$accept : inputunit",
+"inputunit : simple_list '\\n'",
+"inputunit : '\\n'",
+"inputunit : error '\\n'",
+"inputunit : yacc_EOF",
+"word_list : WORD",
+"word_list : word_list WORD",
+"redirection : '>' WORD",
+"redirection : '<' WORD",
+"redirection : NUMBER '>' WORD",
+"redirection : NUMBER '<' WORD",
+"redirection : GREATER_GREATER WORD",
+"redirection : NUMBER GREATER_GREATER WORD",
+"redirection : LESS_LESS WORD",
+"redirection : NUMBER LESS_LESS WORD",
+"redirection : LESS_AND NUMBER",
+"redirection : NUMBER LESS_AND NUMBER",
+"redirection : GREATER_AND NUMBER",
+"redirection : NUMBER GREATER_AND NUMBER",
+"redirection : LESS_AND WORD",
+"redirection : NUMBER LESS_AND WORD",
+"redirection : GREATER_AND WORD",
+"redirection : NUMBER GREATER_AND WORD",
+"redirection : LESS_LESS_MINUS WORD",
+"redirection : NUMBER LESS_LESS_MINUS WORD",
+"redirection : GREATER_AND '-'",
+"redirection : NUMBER GREATER_AND '-'",
+"redirection : LESS_AND '-'",
+"redirection : NUMBER LESS_AND '-'",
+"redirection : AND_GREATER WORD",
+"redirection : NUMBER LESS_GREATER WORD",
+"redirection : LESS_GREATER WORD",
+"redirection : GREATER_BAR WORD",
+"redirection : NUMBER GREATER_BAR WORD",
+"simple_command_element : WORD",
+"simple_command_element : ASSIGNMENT_WORD",
+"simple_command_element : redirection",
+"redirection_list : redirection",
+"redirection_list : redirection_list redirection",
+"simple_command : simple_command_element",
+"simple_command : simple_command simple_command_element",
+"command : simple_command",
+"command : shell_command",
+"command : shell_command redirection_list",
+"command : function_def",
+"shell_command : for_command",
+"shell_command : case_command",
+"shell_command : WHILE compound_list DO compound_list DONE",
+"shell_command : UNTIL compound_list DO compound_list DONE",
+"shell_command : select_command",
+"shell_command : if_command",
+"shell_command : subshell",
+"shell_command : group_command",
+"shell_command : arith_command",
+"shell_command : cond_command",
+"shell_command : arith_for_command",
+"for_command : FOR WORD newline_list DO compound_list DONE",
+"for_command : FOR WORD newline_list '{' compound_list '}'",
+"for_command : FOR WORD ';' newline_list DO compound_list DONE",
+"for_command : FOR WORD ';' newline_list '{' compound_list '}'",
+"for_command : FOR WORD newline_list IN word_list list_terminator newline_list DO compound_list DONE",
+"for_command : FOR WORD newline_list IN word_list list_terminator newline_list '{' compound_list '}'",
+"arith_for_command : FOR ARITH_FOR_EXPRS list_terminator newline_list DO compound_list DONE",
+"arith_for_command : FOR ARITH_FOR_EXPRS list_terminator newline_list '{' compound_list '}'",
+"arith_for_command : FOR ARITH_FOR_EXPRS DO compound_list DONE",
+"arith_for_command : FOR ARITH_FOR_EXPRS '{' compound_list '}'",
+"select_command : SELECT WORD newline_list DO list DONE",
+"select_command : SELECT WORD newline_list '{' list '}'",
+"select_command : SELECT WORD ';' newline_list DO list DONE",
+"select_command : SELECT WORD ';' newline_list '{' list '}'",
+"select_command : SELECT WORD newline_list IN word_list list_terminator newline_list DO list DONE",
+"select_command : SELECT WORD newline_list IN word_list list_terminator newline_list '{' list '}'",
+"case_command : CASE WORD newline_list IN newline_list ESAC",
+"case_command : CASE WORD newline_list IN case_clause_sequence newline_list ESAC",
+"case_command : CASE WORD newline_list IN case_clause ESAC",
+"function_def : WORD '(' ')' newline_list function_body",
+"function_def : FUNCTION WORD '(' ')' newline_list function_body",
+"function_def : FUNCTION WORD newline_list function_body",
+"function_body : shell_command",
+"function_body : shell_command redirection_list",
+"subshell : '(' compound_list ')'",
+"if_command : IF compound_list THEN compound_list FI",
+"if_command : IF compound_list THEN compound_list ELSE compound_list FI",
+"if_command : IF compound_list THEN compound_list elif_clause FI",
+"group_command : '{' compound_list '}'",
+"arith_command : ARITH_CMD",
+"cond_command : COND_START COND_CMD COND_END",
+"elif_clause : ELIF compound_list THEN compound_list",
+"elif_clause : ELIF compound_list THEN compound_list ELSE compound_list",
+"elif_clause : ELIF compound_list THEN compound_list elif_clause",
+"case_clause : pattern_list",
+"case_clause : case_clause_sequence pattern_list",
+"pattern_list : newline_list pattern ')' compound_list",
+"pattern_list : newline_list pattern ')' newline_list",
+"pattern_list : newline_list '(' pattern ')' compound_list",
+"pattern_list : newline_list '(' pattern ')' newline_list",
+"case_clause_sequence : pattern_list SEMI_SEMI",
+"case_clause_sequence : case_clause_sequence pattern_list SEMI_SEMI",
+"pattern : WORD",
+"pattern : pattern '|' WORD",
+"list : newline_list list0",
+"compound_list : list",
+"compound_list : newline_list list1",
+"list0 : list1 '\\n' newline_list",
+"list0 : list1 '&' newline_list",
+"list0 : list1 ';' newline_list",
+"list1 : list1 AND_AND newline_list list1",
+"list1 : list1 OR_OR newline_list list1",
+"list1 : list1 '&' newline_list list1",
+"list1 : list1 ';' newline_list list1",
+"list1 : list1 '\\n' newline_list list1",
+"list1 : pipeline_command",
+"list_terminator : '\\n'",
+"list_terminator : ';'",
+"list_terminator : yacc_EOF",
+"newline_list :",
+"newline_list : newline_list '\\n'",
+"simple_list : simple_list1",
+"simple_list : simple_list1 '&'",
+"simple_list : simple_list1 ';'",
+"simple_list1 : simple_list1 AND_AND newline_list simple_list1",
+"simple_list1 : simple_list1 OR_OR newline_list simple_list1",
+"simple_list1 : simple_list1 '&' simple_list1",
+"simple_list1 : simple_list1 ';' simple_list1",
+"simple_list1 : pipeline_command",
+"pipeline_command : pipeline",
+"pipeline_command : BANG pipeline",
+"pipeline_command : timespec pipeline",
+"pipeline_command : timespec BANG pipeline",
+"pipeline_command : BANG timespec pipeline",
+"pipeline : pipeline '|' newline_list pipeline",
+"pipeline : command",
+"timespec : TIME",
+"timespec : TIME TIMEOPT",
 };
-#else /* not __cplusplus */
-void *alloca ();
-#endif /* not __cplusplus */
-#endif /* __hpux */
-#endif /* not _AIX */
-#endif /* not MSDOS, or __TURBOC__ */
-#endif /* not sparc.  */
-#endif /* not GNU C.  */
-#endif /* alloca not defined.  */
-
-/* This is the parser code that is written into each bison parser
-  when the %semantic_parser declaration is not specified in the grammar.
-  It was written by Richard Stallman by simplifying the hairy parser
-  used when %semantic_parser is specified.  */
-
-/* Note: there must be only one dollar sign in this file.
-   It is replaced by the list of actions, each action
-   as one case of the switch.  */
-
-#define yyerrok                (yyerrstatus = 0)
-#define yyclearin      (yychar = YYEMPTY)
-#define YYEMPTY                -2
-#define YYEOF          0
-#define YYACCEPT       return(0)
-#define YYABORT        return(1)
-#define YYERROR                goto yyerrlab1
-/* Like YYERROR except do call yyerror.
-   This remains here temporarily to ease the
-   transition to the new meaning of YYERROR, for GCC.
-   Once GCC version 2 has supplanted version 1, this can go.  */
-#define YYFAIL         goto yyerrlab
-#define YYRECOVERING()  (!!yyerrstatus)
-#define YYBACKUP(token, value) \
-do                                                             \
-  if (yychar == YYEMPTY && yylen == 1)                         \
-    { yychar = (token), yylval = (value);                      \
-      yychar1 = YYTRANSLATE (yychar);                          \
-      YYPOPSTACK;                                              \
-      goto yybackup;                                           \
-    }                                                          \
-  else                                                         \
-    { yyerror ("syntax error: cannot back up"); YYERROR; }     \
-while (0)
-
-#define YYTERROR       1
-#define YYERRCODE      256
-
-#ifndef YYPURE
-#define YYLEX          yylex()
 #endif
-
-#ifdef YYPURE
-#ifdef YYLSP_NEEDED
-#ifdef YYLEX_PARAM
-#define YYLEX          yylex(&yylval, &yylloc, YYLEX_PARAM)
-#else
-#define YYLEX          yylex(&yylval, &yylloc)
+#if YYDEBUG
+#include <stdio.h>
 #endif
-#else /* not YYLSP_NEEDED */
-#ifdef YYLEX_PARAM
-#define YYLEX          yylex(&yylval, YYLEX_PARAM)
+#ifdef YYSTACKSIZE
+#undef YYMAXDEPTH
+#define YYMAXDEPTH YYSTACKSIZE
+#else
+#ifdef YYMAXDEPTH
+#define YYSTACKSIZE YYMAXDEPTH
 #else
-#define YYLEX          yylex(&yylval)
+#define YYSTACKSIZE 10000
+#define YYMAXDEPTH 10000
 #endif
-#endif /* not YYLSP_NEEDED */
 #endif
+#define YYINITSTACKSIZE 200
+int yydebug;
+int yynerrs;
+int yyerrflag;
+int yychar;
+short *yyssp;
+YYSTYPE *yyvsp;
+YYSTYPE yyval;
+YYSTYPE yylval;
+short *yyss;
+short *yysslim;
+YYSTYPE *yyvs;
+int yystacksize;
+#line 815 "/usr/homes/chet/src/bash/src/parse.y"
 
-/* If nonreentrant, generate the variables here */
+/* Possible states for the parser that require it to do special things. */
+#define PST_CASEPAT    0x001           /* in a case pattern list */
+#define PST_ALEXPNEXT  0x002           /* expand next word for aliases */
+#define PST_ALLOWOPNBRC        0x004           /* allow open brace for function def */
+#define PST_NEEDCLOSBRC        0x008           /* need close brace */
+#define PST_DBLPAREN   0x010           /* double-paren parsing */
+#define PST_SUBSHELL   0x020           /* ( ... ) subshell */
+#define PST_CMDSUBST   0x040           /* $( ... ) command substitution */
+#define PST_CASESTMT   0x080           /* parsing a case statement */
+#define PST_CONDCMD    0x100           /* parsing a [[...]] command */
+#define PST_CONDEXPR   0x200           /* parsing the guts of [[...]] */
+#define PST_ARITHFOR   0x400           /* parsing an arithmetic for command */
 
-#ifndef YYPURE
+/* Initial size to allocate for tokens, and the
+   amount to grow them by. */
+#define TOKEN_DEFAULT_INITIAL_SIZE 496
+#define TOKEN_DEFAULT_GROW_SIZE 512
 
-int    yychar;                 /*  the lookahead symbol                */
-YYSTYPE        yylval;                 /*  the semantic value of the           */
-                               /*  lookahead symbol                    */
+/* The token currently being read. */
+static int current_token;
 
-#ifdef YYLSP_NEEDED
-YYLTYPE yylloc;                        /*  location data for the lookahead     */
-                               /*  symbol                              */
-#endif
+/* The last read token, or NULL.  read_token () uses this for context
+   checking. */
+static int last_read_token;
 
-int yynerrs;                   /*  number of parse errors so far       */
-#endif  /* not YYPURE */
+/* The token read prior to last_read_token. */
+static int token_before_that;
 
-#if YYDEBUG != 0
-int yydebug;                   /*  nonzero means print parse trace     */
-/* Since this is uninitialized, it does not stop multiple parsers
-   from coexisting.  */
-#endif
+/* The token read prior to token_before_that. */
+static int two_tokens_ago;
 
-/*  YYINITDEPTH indicates the initial size of the parser's stacks      */
+/* If non-zero, it is the token that we want read_token to return
+   regardless of what text is (or isn't) present to be read.  This
+   is reset by read_token.  If token_to_read == WORD or
+   ASSIGNMENT_WORD, yylval.word should be set to word_desc_to_read. */
+static int token_to_read;
+static WORD_DESC *word_desc_to_read;
 
-#ifndef        YYINITDEPTH
-#define YYINITDEPTH 200
-#endif
+/* The current parser state. */
+static int parser_state;
 
-/*  YYMAXDEPTH is the maximum size the stacks can grow to
-    (effective only if the built-in stack extension method is used).  */
+/* Global var is non-zero when end of file has been reached. */
+int EOF_Reached = 0;
 
-#if YYMAXDEPTH == 0
-#undef YYMAXDEPTH
+void
+debug_parser (i)
+     int i;
+{
+#if YYDEBUG != 0
+  yydebug = i;
 #endif
+}
 
-#ifndef YYMAXDEPTH
-#define YYMAXDEPTH 10000
-#endif
+/* yy_getc () returns the next available character from input or EOF.
+   yy_ungetc (c) makes `c' the next character to read.
+   init_yy_io (get, unget, type, location) makes the function GET the
+   installed function for getting the next character, makes UNGET the
+   installed function for un-getting a character, sets the type of stream
+   (either string or file) from TYPE, and makes LOCATION point to where
+   the input is coming from. */
 
-/* Prevent warning if -Wstrict-prototypes.  */
-#ifdef __GNUC__
-int yyparse (void);
-#endif
-\f
-#if __GNUC__ > 1               /* GNU C and GNU C++ define this.  */
-#define __yy_memcpy(TO,FROM,COUNT)     __builtin_memcpy(TO,FROM,COUNT)
-#else                          /* not GNU C or C++ */
-#ifndef __cplusplus
-
-/* This is the most reliable way to avoid incompatibilities
-   in available built-in functions on various systems.  */
-static void
-__yy_memcpy (to, from, count)
-     char *to;
-     char *from;
-     int count;
+/* Unconditionally returns end-of-file. */
+int
+return_EOF ()
 {
-  register char *f = from;
-  register char *t = to;
-  register int i = count;
-
-  while (i-- > 0)
-    *t++ = *f++;
+  return (EOF);
 }
 
-#else /* __cplusplus */
+/* Variable containing the current get and unget functions.
+   See ./input.h for a clearer description. */
+BASH_INPUT bash_input;
 
-/* This is the most reliable way to avoid incompatibilities
-   in available built-in functions on various systems.  */
-static void
-__yy_memcpy (char *to, char *from, int count)
+/* Set all of the fields in BASH_INPUT to NULL.  Free bash_input.name if it
+   is non-null, avoiding a memory leak. */
+void
+initialize_bash_input ()
 {
-  register char *f = from;
-  register char *t = to;
-  register int i = count;
-
-  while (i-- > 0)
-    *t++ = *f++;
+  bash_input.type = st_none;
+  FREE (bash_input.name);
+  bash_input.name = (char *)NULL;
+  bash_input.location.file = (FILE *)NULL;
+  bash_input.location.string = (char *)NULL;
+  bash_input.getter = (Function *)NULL;
+  bash_input.ungetter = (Function *)NULL;
 }
 
-#endif
-#endif
-\f
-#line 196 "/usr/share/misc/bison.simple"
-
-/* The user can define YYPARSE_PARAM as the name of an argument to be passed
-   into yyparse.  The argument should have type void *.
-   It should actually point to an object.
-   Grammar actions can access the variable by casting it
-   to the proper pointer type.  */
-
-#ifdef YYPARSE_PARAM
-#ifdef __cplusplus
-#define YYPARSE_PARAM_ARG void *YYPARSE_PARAM
-#define YYPARSE_PARAM_DECL
-#else /* not __cplusplus */
-#define YYPARSE_PARAM_ARG YYPARSE_PARAM
-#define YYPARSE_PARAM_DECL void *YYPARSE_PARAM;
-#endif /* not __cplusplus */
-#else /* not YYPARSE_PARAM */
-#define YYPARSE_PARAM_ARG
-#define YYPARSE_PARAM_DECL
-#endif /* not YYPARSE_PARAM */
-
-int
-yyparse(YYPARSE_PARAM_ARG)
-     YYPARSE_PARAM_DECL
+/* Set the contents of the current bash input stream from
+   GET, UNGET, TYPE, NAME, and LOCATION. */
+void
+init_yy_io (get, unget, type, name, location)
+     Function *get, *unget;
+     enum stream_type type;
+     char *name;
+     INPUT_STREAM location;
 {
-  register int yystate;
-  register int yyn;
-  register short *yyssp;
-  register YYSTYPE *yyvsp;
-  int yyerrstatus;     /*  number of tokens to shift before error messages enabled */
-  int yychar1 = 0;             /*  lookahead token as an internal (translated) token number */
-
-  short        yyssa[YYINITDEPTH];     /*  the state stack                     */
-  YYSTYPE yyvsa[YYINITDEPTH];  /*  the semantic value stack            */
-
-  short *yyss = yyssa;         /*  refer to the stacks thru separate pointers */
-  YYSTYPE *yyvs = yyvsa;       /*  to allow yyoverflow to reallocate them elsewhere */
-
-#ifdef YYLSP_NEEDED
-  YYLTYPE yylsa[YYINITDEPTH];  /*  the location stack                  */
-  YYLTYPE *yyls = yylsa;
-  YYLTYPE *yylsp;
+  bash_input.type = type;
+  FREE (bash_input.name);
+  bash_input.name = name ? savestring (name) : (char *)NULL;
 
-#define YYPOPSTACK   (yyvsp--, yyssp--, yylsp--)
+  /* XXX */
+#if defined (CRAY)
+  memcpy((char *)&bash_input.location.string, (char *)&location.string, sizeof(location));
 #else
-#define YYPOPSTACK   (yyvsp--, yyssp--)
-#endif
-
-  int yystacksize = YYINITDEPTH;
-
-#ifdef YYPURE
-  int yychar;
-  YYSTYPE yylval;
-  int yynerrs;
-#ifdef YYLSP_NEEDED
-  YYLTYPE yylloc;
-#endif
+  bash_input.location = location;
 #endif
+  bash_input.getter = get;
+  bash_input.ungetter = unget;
+}
 
-  YYSTYPE yyval;               /*  the variable used to return         */
-                               /*  semantic values from the action     */
-                               /*  routines                            */
-
-  int yylen;
-
-#if YYDEBUG != 0
-  if (yydebug)
-    fprintf(stderr, "Starting parse\n");
-#endif
+/* Call this to get the next character of input. */
+int
+yy_getc ()
+{
+  return (*(bash_input.getter)) ();
+}
 
-  yystate = 0;
-  yyerrstatus = 0;
-  yynerrs = 0;
-  yychar = YYEMPTY;            /* Cause a token to be read.  */
+/* Call this to unget C.  That is, to make C the next character
+   to be read. */
+int
+yy_ungetc (c)
+     int c;
+{
+  return (*(bash_input.ungetter)) (c);
+}
 
-  /* Initialize stack pointers.
-     Waste one element of value and location stack
-     so that they stay on the same level as the state stack.
-     The wasted elements are never initialized.  */
+#if defined (BUFFERED_INPUT)
+int
+input_file_descriptor ()
+{
+  switch (bash_input.type)
+    {
+    case st_stream:
+      return (fileno (bash_input.location.file));
+    case st_bstream:
+      return (bash_input.location.buffered_fd);
+    case st_stdin:
+    default:
+      return (fileno (stdin));
+    }
+}
+#endif /* BUFFERED_INPUT */
 
-  yyssp = yyss - 1;
-  yyvsp = yyvs;
-#ifdef YYLSP_NEEDED
-  yylsp = yyls;
-#endif
+/* **************************************************************** */
+/*                                                                 */
+/*               Let input be read from readline ().               */
+/*                                                                 */
+/* **************************************************************** */
 
-/* Push a new state, which is found in  yystate  .  */
-/* In all cases, when you get here, the value and location stacks
-   have just been pushed. so pushing a state here evens the stacks.  */
-yynewstate:
+#if defined (READLINE)
+char *current_readline_prompt = (char *)NULL;
+char *current_readline_line = (char *)NULL;
+int current_readline_line_index = 0;
 
-  *++yyssp = yystate;
+static int
+yy_readline_get ()
+{
+  SigHandler *old_sigint;
+  int line_len, c;
 
-  if (yyssp >= yyss + yystacksize - 1)
+  if (!current_readline_line)
     {
-      /* Give user a chance to reallocate the stack */
-      /* Use copies of these so that the &'s don't force the real ones into memory. */
-      YYSTYPE *yyvs1 = yyvs;
-      short *yyss1 = yyss;
-#ifdef YYLSP_NEEDED
-      YYLTYPE *yyls1 = yyls;
-#endif
+      if (!bash_readline_initialized)
+       initialize_readline ();
 
-      /* Get the current used size of the three stacks, in elements.  */
-      int size = yyssp - yyss + 1;
-
-#ifdef yyoverflow
-      /* Each stack pointer address is followed by the size of
-        the data in use in that stack, in bytes.  */
-#ifdef YYLSP_NEEDED
-      /* This used to be a conditional around just the two extra args,
-        but that might be undefined if yyoverflow is a macro.  */
-      yyoverflow("parser stack overflow",
-                &yyss1, size * sizeof (*yyssp),
-                &yyvs1, size * sizeof (*yyvsp),
-                &yyls1, size * sizeof (*yylsp),
-                &yystacksize);
-#else
-      yyoverflow("parser stack overflow",
-                &yyss1, size * sizeof (*yyssp),
-                &yyvs1, size * sizeof (*yyvsp),
-                &yystacksize);
-#endif
+#if defined (JOB_CONTROL)
+      if (job_control)
+       give_terminal_to (shell_pgrp, 0);
+#endif /* JOB_CONTROL */
 
-      yyss = yyss1; yyvs = yyvs1;
-#ifdef YYLSP_NEEDED
-      yyls = yyls1;
-#endif
-#else /* no yyoverflow */
-      /* Extend the stack our own way.  */
-      if (yystacksize >= YYMAXDEPTH)
+      if (signal_is_ignored (SIGINT) == 0)
        {
-         yyerror("parser stack overflow");
-         return 2;
+         old_sigint = (SigHandler *)set_signal_handler (SIGINT, sigint_sighandler);
+         interrupt_immediately++;
        }
-      yystacksize *= 2;
-      if (yystacksize > YYMAXDEPTH)
-       yystacksize = YYMAXDEPTH;
-      yyss = (short *) alloca (yystacksize * sizeof (*yyssp));
-      __yy_memcpy ((char *)yyss, (char *)yyss1, size * sizeof (*yyssp));
-      yyvs = (YYSTYPE *) alloca (yystacksize * sizeof (*yyvsp));
-      __yy_memcpy ((char *)yyvs, (char *)yyvs1, size * sizeof (*yyvsp));
-#ifdef YYLSP_NEEDED
-      yyls = (YYLTYPE *) alloca (yystacksize * sizeof (*yylsp));
-      __yy_memcpy ((char *)yyls, (char *)yyls1, size * sizeof (*yylsp));
-#endif
-#endif /* no yyoverflow */
-
-      yyssp = yyss + size - 1;
-      yyvsp = yyvs + size - 1;
-#ifdef YYLSP_NEEDED
-      yylsp = yyls + size - 1;
-#endif
 
-#if YYDEBUG != 0
-      if (yydebug)
-       fprintf(stderr, "Stack size increased to %d\n", yystacksize);
-#endif
+      current_readline_line = readline (current_readline_prompt ?
+                                         current_readline_prompt : "");
 
-      if (yyssp >= yyss + yystacksize - 1)
-       YYABORT;
-    }
+      if (signal_is_ignored (SIGINT) == 0)
+       {
+         interrupt_immediately--;
+         set_signal_handler (SIGINT, old_sigint);
+       }
 
-#if YYDEBUG != 0
-  if (yydebug)
-    fprintf(stderr, "Entering state %d\n", yystate);
+#if 0
+      /* Reset the prompt to the decoded value of prompt_string_pointer. */
+      reset_readline_prompt ();
 #endif
 
-  goto yybackup;
- yybackup:
-
-/* Do appropriate processing given the current state.  */
-/* Read a lookahead token if we need one and don't already have one.  */
-/* yyresume: */
-
-  /* First try to decide what to do without reference to lookahead token.  */
-
-  yyn = yypact[yystate];
-  if (yyn == YYFLAG)
-    goto yydefault;
-
-  /* Not known => get a lookahead token if don't already have one.  */
+      if (current_readline_line == 0)
+       return (EOF);
 
-  /* yychar is either YYEMPTY or YYEOF
-     or a valid token in external form.  */
+      current_readline_line_index = 0;
+      line_len = strlen (current_readline_line);
 
-  if (yychar == YYEMPTY)
-    {
-#if YYDEBUG != 0
-      if (yydebug)
-       fprintf(stderr, "Reading a token: ");
-#endif
-      yychar = YYLEX;
+      current_readline_line = xrealloc (current_readline_line, 2 + line_len);
+      current_readline_line[line_len++] = '\n';
+      current_readline_line[line_len] = '\0';
     }
 
-  /* Convert token to internal form (in yychar1) for indexing tables with */
-
-  if (yychar <= 0)             /* This means end of input. */
+  if (current_readline_line[current_readline_line_index] == 0)
     {
-      yychar1 = 0;
-      yychar = YYEOF;          /* Don't call YYLEX any more */
-
-#if YYDEBUG != 0
-      if (yydebug)
-       fprintf(stderr, "Now at end of input.\n");
-#endif
+      free (current_readline_line);
+      current_readline_line = (char *)NULL;
+      return (yy_readline_get ());
     }
   else
     {
-      yychar1 = YYTRANSLATE(yychar);
+      c = (unsigned char)current_readline_line[current_readline_line_index++];
+      return (c);
+    }
+}
 
-#if YYDEBUG != 0
-      if (yydebug)
-       {
-         fprintf (stderr, "Next token is %d (%s", yychar, yytname[yychar1]);
-         /* Give the individual parser a way to print the precise meaning
-            of a token, for further debugging info.  */
-#ifdef YYPRINT
-         YYPRINT (stderr, yychar, yylval);
-#endif
-         fprintf (stderr, ")\n");
-       }
-#endif
+static int
+yy_readline_unget (c)
+     int c;
+{
+  if (current_readline_line_index && current_readline_line)
+    current_readline_line[--current_readline_line_index] = c;
+  return (c);
+}
+
+void
+with_input_from_stdin ()
+{
+  INPUT_STREAM location;
+
+  if (bash_input.type != st_stdin && stream_on_stack (st_stdin) == 0)
+    {
+      location.string = current_readline_line;
+      init_yy_io (yy_readline_get, yy_readline_unget,
+                 st_stdin, "readline stdin", location);
     }
+}
+
+#else  /* !READLINE */
+
+void
+with_input_from_stdin ()
+{
+  with_input_from_stream (stdin, "stdin");
+}
+#endif /* !READLINE */
 
-  yyn += yychar1;
-  if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != yychar1)
-    goto yydefault;
+/* **************************************************************** */
+/*                                                                 */
+/*   Let input come from STRING.  STRING is zero terminated.       */
+/*                                                                 */
+/* **************************************************************** */
 
-  yyn = yytable[yyn];
+static int
+yy_string_get ()
+{
+  register char *string;
+  register int c;
 
-  /* yyn is what to do for this token type in this state.
-     Negative => reduce, -yyn is rule number.
-     Positive => shift, yyn is new state.
-       New state is final state => don't bother to shift,
-       just return success.
-     0, or most negative number => error.  */
+  string = bash_input.location.string;
+  c = EOF;
 
-  if (yyn < 0)
+  /* If the string doesn't exist, or is empty, EOF found. */
+  if (string && *string)
     {
-      if (yyn == YYFLAG)
-       goto yyerrlab;
-      yyn = -yyn;
-      goto yyreduce;
+      c = *(unsigned char *)string++;
+      bash_input.location.string = string;
     }
-  else if (yyn == 0)
-    goto yyerrlab;
+  return (c);
+}
 
-  if (yyn == YYFINAL)
-    YYACCEPT;
+static int
+yy_string_unget (c)
+     int c;
+{
+  *(--bash_input.location.string) = c;
+  return (c);
+}
 
-  /* Shift the lookahead token.  */
+void
+with_input_from_string (string, name)
+     char *string, *name;
+{
+  INPUT_STREAM location;
 
-#if YYDEBUG != 0
-  if (yydebug)
-    fprintf(stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]);
-#endif
+  location.string = string;
+  init_yy_io (yy_string_get, yy_string_unget, st_string, name, location);
+}
 
-  /* Discard the token being shifted unless it is eof.  */
-  if (yychar != YYEOF)
-    yychar = YYEMPTY;
+/* **************************************************************** */
+/*                                                                 */
+/*                  Let input come from STREAM.                    */
+/*                                                                 */
+/* **************************************************************** */
 
-  *++yyvsp = yylval;
-#ifdef YYLSP_NEEDED
-  *++yylsp = yylloc;
-#endif
+/* These two functions used to test the value of the HAVE_RESTARTABLE_SYSCALLS
+   define, and just use getc/ungetc if it was defined, but since bash
+   installs its signal handlers without the SA_RESTART flag, some signals
+   (like SIGCHLD, SIGWINCH, etc.) received during a read(2) will not cause
+   the read to be restarted.  We need to restart it ourselves. */
 
-  /* count tokens shifted since error; after three, turn off error status.  */
-  if (yyerrstatus) yyerrstatus--;
+static int
+yy_stream_get ()
+{
+  int result;
 
-  yystate = yyn;
-  goto yynewstate;
+  result = EOF;
+  if (bash_input.location.file)
+    result = getc_with_restart (bash_input.location.file);
 
-/* Do the default action for the current state.  */
-yydefault:
+  return (result);
+}
 
-  yyn = yydefact[yystate];
-  if (yyn == 0)
-    goto yyerrlab;
+static int
+yy_stream_unget (c)
+     int c;
+{
+  return (ungetc_with_restart (c, bash_input.location.file));
+}
 
-/* Do a reduction.  yyn is the number of a rule to reduce with.  */
-yyreduce:
-  yylen = yyr2[yyn];
-  if (yylen > 0)
-    yyval = yyvsp[1-yylen]; /* implement default value of the action */
+void
+with_input_from_stream (stream, name)
+     FILE *stream;
+     char *name;
+{
+  INPUT_STREAM location;
 
-#if YYDEBUG != 0
-  if (yydebug)
-    {
-      int i;
+  location.file = stream;
+  init_yy_io (yy_stream_get, yy_stream_unget, st_stream, name, location);
+}
 
-      fprintf (stderr, "Reducing via rule %d (line %d), ",
-              yyn, yyrline[yyn]);
+typedef struct stream_saver {
+  struct stream_saver *next;
+  BASH_INPUT bash_input;
+  int line;
+#if defined (BUFFERED_INPUT)
+  BUFFERED_STREAM *bstream;
+#endif /* BUFFERED_INPUT */
+} STREAM_SAVER;
 
-      /* Print the symbols being reduced, and their result.  */
-      for (i = yyprhs[yyn]; yyrhs[i] > 0; i++)
-       fprintf (stderr, "%s ", yytname[yyrhs[i]]);
-      fprintf (stderr, " -> %s\n", yytname[yyr1[yyn]]);
-    }
+/* The globally known line number. */
+int line_number = 0;
+
+#if defined (COND_COMMAND)
+static int cond_lineno;
+static int cond_token;
 #endif
 
+STREAM_SAVER *stream_list = (STREAM_SAVER *)NULL;
+
+void
+push_stream (reset_lineno)
+     int reset_lineno;
+{
+  STREAM_SAVER *saver = (STREAM_SAVER *)xmalloc (sizeof (STREAM_SAVER));
 
-  switch (yyn) {
+  xbcopy ((char *)&bash_input, (char *)&(saver->bash_input), sizeof (BASH_INPUT));
 
-case 1:
-#line 238 "/usr/homes/chet/src/bash/src/parse.y"
+#if defined (BUFFERED_INPUT)
+  saver->bstream = (BUFFERED_STREAM *)NULL;
+  /* If we have a buffered stream, clear out buffers[fd]. */
+  if (bash_input.type == st_bstream && bash_input.location.buffered_fd >= 0)
+    saver->bstream = set_buffered_stream (bash_input.location.buffered_fd,
+                                         (BUFFERED_STREAM *)NULL);
+#endif /* BUFFERED_INPUT */
+
+  saver->line = line_number;
+  bash_input.name = (char *)NULL;
+  saver->next = stream_list;
+  stream_list = saver;
+  EOF_Reached = 0;
+  if (reset_lineno)
+    line_number = 0;
+}
+
+void
+pop_stream ()
 {
-                         /* Case of regular command.  Discard the error
-                            safety net,and return the command just parsed. */
-                         global_command = yyvsp[-1].command;
-                         eof_encountered = 0;
-                         discard_parser_constructs (0);
-                         YYACCEPT;
-                       ;
-    break;}
-case 2:
-#line 247 "/usr/homes/chet/src/bash/src/parse.y"
+  if (!stream_list)
+    EOF_Reached = 1;
+  else
+    {
+      STREAM_SAVER *saver = stream_list;
+
+      EOF_Reached = 0;
+      stream_list = stream_list->next;
+
+      init_yy_io (saver->bash_input.getter,
+                 saver->bash_input.ungetter,
+                 saver->bash_input.type,
+                 saver->bash_input.name,
+                 saver->bash_input.location);
+
+#if defined (BUFFERED_INPUT)
+      /* If we have a buffered stream, restore buffers[fd]. */
+      /* If the input file descriptor was changed while this was on the
+        save stack, update the buffered fd to the new file descriptor and
+        re-establish the buffer <-> bash_input fd correspondence. */
+      if (bash_input.type == st_bstream && bash_input.location.buffered_fd >= 0)
+       {
+         if (bash_input_fd_changed)
+           {
+             bash_input_fd_changed = 0;
+             if (default_buffered_input >= 0)
+               {
+                 bash_input.location.buffered_fd = default_buffered_input;
+                 saver->bstream->b_fd = default_buffered_input;
+                 SET_CLOSE_ON_EXEC (default_buffered_input);
+               }
+           }
+         /* XXX could free buffered stream returned as result here. */
+         set_buffered_stream (bash_input.location.buffered_fd, saver->bstream);
+       }
+#endif /* BUFFERED_INPUT */
+
+      line_number = saver->line;
+
+      FREE (saver->bash_input.name);
+      free (saver);
+    }
+}
+
+/* Return 1 if a stream of type TYPE is saved on the stack. */
+int
+stream_on_stack (type)
+     enum stream_type type;
 {
-                         /* Case of regular command, but not a very
-                            interesting one.  Return a NULL command. */
-                         global_command = (COMMAND *)NULL;
-                         YYACCEPT;
-                       ;
-    break;}
-case 3:
-#line 254 "/usr/homes/chet/src/bash/src/parse.y"
+  register STREAM_SAVER *s;
+
+  for (s = stream_list; s; s = s->next)
+    if (s->bash_input.type == type)
+      return 1;
+  return 0;
+}
+
+/* Save the current token state and return it in a malloced array. */
+int *
+save_token_state ()
 {
-                         /* Error during parsing.  Return NULL command. */
-                         global_command = (COMMAND *)NULL;
-                         eof_encountered = 0;
-                         discard_parser_constructs (1);
-                         if (interactive)
-                           {
-                             YYACCEPT;
-                           }
-                         else
-                           {
-                             YYABORT;
-                           }
-                       ;
-    break;}
-case 4:
-#line 269 "/usr/homes/chet/src/bash/src/parse.y"
+  int *ret;
+
+  ret = (int *)xmalloc (3 * sizeof (int));
+  ret[0] = last_read_token;
+  ret[1] = token_before_that;
+  ret[2] = two_tokens_ago;
+  return ret;
+}
+
+void
+restore_token_state (ts)
+     int *ts;
 {
-                         /* Case of EOF seen by itself.  Do ignoreeof or
-                            not. */
-                         global_command = (COMMAND *)NULL;
-                         handle_eof_input_unit ();
-                         YYACCEPT;
-                       ;
-    break;}
-case 5:
-#line 279 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.word_list = make_word_list (yyvsp[0].word, (WORD_LIST *)NULL); ;
-    break;}
-case 6:
-#line 281 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.word_list = make_word_list (yyvsp[0].word, yyvsp[-1].word_list); ;
-    break;}
-case 7:
-#line 285 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         redir.filename = yyvsp[0].word;
-                         yyval.redirect = make_redirection (1, r_output_direction, redir);
-                       ;
-    break;}
-case 8:
-#line 290 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         redir.filename = yyvsp[0].word;
-                         yyval.redirect = make_redirection (0, r_input_direction, redir);
-                       ;
-    break;}
-case 9:
-#line 295 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         redir.filename = yyvsp[0].word;
-                         yyval.redirect = make_redirection (yyvsp[-2].number, r_output_direction, redir);
-                       ;
-    break;}
-case 10:
-#line 300 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         redir.filename = yyvsp[0].word;
-                         yyval.redirect = make_redirection (yyvsp[-2].number, r_input_direction, redir);
-                       ;
-    break;}
-case 11:
-#line 305 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         redir.filename = yyvsp[0].word;
-                         yyval.redirect = make_redirection (1, r_appending_to, redir);
-                       ;
-    break;}
-case 12:
-#line 310 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         redir.filename = yyvsp[0].word;
-                         yyval.redirect = make_redirection (yyvsp[-2].number, r_appending_to, redir);
-                       ;
-    break;}
-case 13:
-#line 315 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         redir.filename = yyvsp[0].word;
-                         yyval.redirect = make_redirection (0, r_reading_until, redir);
-                         redir_stack[need_here_doc++] = yyval.redirect;
-                       ;
-    break;}
-case 14:
-#line 321 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         redir.filename = yyvsp[0].word;
-                         yyval.redirect = make_redirection (yyvsp[-2].number, r_reading_until, redir);
-                         redir_stack[need_here_doc++] = yyval.redirect;
-                       ;
-    break;}
-case 15:
-#line 327 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         redir.dest = yyvsp[0].number;
-                         yyval.redirect = make_redirection (0, r_duplicating_input, redir);
-                       ;
-    break;}
-case 16:
-#line 332 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         redir.dest = yyvsp[0].number;
-                         yyval.redirect = make_redirection (yyvsp[-2].number, r_duplicating_input, redir);
-                       ;
-    break;}
-case 17:
-#line 337 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         redir.dest = yyvsp[0].number;
-                         yyval.redirect = make_redirection (1, r_duplicating_output, redir);
-                       ;
-    break;}
-case 18:
-#line 342 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         redir.dest = yyvsp[0].number;
-                         yyval.redirect = make_redirection (yyvsp[-2].number, r_duplicating_output, redir);
-                       ;
-    break;}
-case 19:
-#line 347 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         redir.filename = yyvsp[0].word;
-                         yyval.redirect = make_redirection (0, r_duplicating_input_word, redir);
-                       ;
-    break;}
-case 20:
-#line 352 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         redir.filename = yyvsp[0].word;
-                         yyval.redirect = make_redirection (yyvsp[-2].number, r_duplicating_input_word, redir);
-                       ;
-    break;}
-case 21:
-#line 357 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         redir.filename = yyvsp[0].word;
-                         yyval.redirect = make_redirection (1, r_duplicating_output_word, redir);
-                       ;
-    break;}
-case 22:
-#line 362 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         redir.filename = yyvsp[0].word;
-                         yyval.redirect = make_redirection (yyvsp[-2].number, r_duplicating_output_word, redir);
-                       ;
-    break;}
-case 23:
-#line 367 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         redir.filename = yyvsp[0].word;
-                         yyval.redirect = make_redirection
-                           (0, r_deblank_reading_until, redir);
-                         redir_stack[need_here_doc++] = yyval.redirect;
-                       ;
-    break;}
-case 24:
-#line 374 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         redir.filename = yyvsp[0].word;
-                         yyval.redirect = make_redirection
-                           (yyvsp[-2].number, r_deblank_reading_until, redir);
-                         redir_stack[need_here_doc++] = yyval.redirect;
-                       ;
-    break;}
-case 25:
-#line 381 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         redir.dest = 0L;
-                         yyval.redirect = make_redirection (1, r_close_this, redir);
-                       ;
-    break;}
-case 26:
-#line 386 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         redir.dest = 0L;
-                         yyval.redirect = make_redirection (yyvsp[-2].number, r_close_this, redir);
-                       ;
-    break;}
-case 27:
-#line 391 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         redir.dest = 0L;
-                         yyval.redirect = make_redirection (0, r_close_this, redir);
-                       ;
-    break;}
-case 28:
-#line 396 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         redir.dest = 0L;
-                         yyval.redirect = make_redirection (yyvsp[-2].number, r_close_this, redir);
-                       ;
-    break;}
-case 29:
-#line 401 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         redir.filename = yyvsp[0].word;
-                         yyval.redirect = make_redirection (1, r_err_and_out, redir);
-                       ;
-    break;}
-case 30:
-#line 406 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         redir.filename = yyvsp[0].word;
-                         yyval.redirect = make_redirection (yyvsp[-2].number, r_input_output, redir);
-                       ;
-    break;}
-case 31:
-#line 411 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         redir.filename = yyvsp[0].word;
-                         yyval.redirect = make_redirection (0, r_input_output, redir);
-                       ;
-    break;}
-case 32:
-#line 416 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         redir.filename = yyvsp[0].word;
-                         yyval.redirect = make_redirection (1, r_output_force, redir);
-                       ;
-    break;}
-case 33:
-#line 421 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         redir.filename = yyvsp[0].word;
-                         yyval.redirect = make_redirection (yyvsp[-2].number, r_output_force, redir);
-                       ;
-    break;}
-case 34:
-#line 428 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.element.word = yyvsp[0].word; yyval.element.redirect = 0; ;
-    break;}
-case 35:
-#line 430 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.element.word = yyvsp[0].word; yyval.element.redirect = 0; ;
-    break;}
-case 36:
-#line 432 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.element.redirect = yyvsp[0].redirect; yyval.element.word = 0; ;
-    break;}
-case 37:
-#line 436 "/usr/homes/chet/src/bash/src/parse.y"
+  if (ts == 0)
+    return;
+  last_read_token = ts[0];
+  token_before_that = ts[1];
+  two_tokens_ago = ts[2];
+}
+
+/*
+ * This is used to inhibit alias expansion and reserved word recognition
+ * inside case statement pattern lists.  A `case statement pattern list' is:
+ *
+ *     everything between the `in' in a `case word in' and the next ')'
+ *     or `esac'
+ *     everything between a `;;' and the next `)' or `esac'
+ */
+
+#if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
+
+#if !defined (ALIAS)
+typedef void *alias_t;
+#endif
+
+#define END_OF_ALIAS 0
+
+/*
+ * Pseudo-global variables used in implementing token-wise alias expansion.
+ */
+
+/*
+ * Pushing and popping strings.  This works together with shell_getc to
+ * implement alias expansion on a per-token basis.
+ */
+
+typedef struct string_saver {
+  struct string_saver *next;
+  int expand_alias;  /* Value to set expand_alias to when string is popped. */
+  char *saved_line;
+#if defined (ALIAS)
+  alias_t *expander;   /* alias that caused this line to be pushed. */
+#endif
+  int saved_line_size, saved_line_index, saved_line_terminator;
+} STRING_SAVER;
+
+STRING_SAVER *pushed_string_list = (STRING_SAVER *)NULL;
+
+/*
+ * Push the current shell_input_line onto a stack of such lines and make S
+ * the current input.  Used when expanding aliases.  EXPAND is used to set
+ * the value of expand_next_token when the string is popped, so that the
+ * word after the alias in the original line is handled correctly when the
+ * alias expands to multiple words.  TOKEN is the token that was expanded
+ * into S; it is saved and used to prevent infinite recursive expansion.
+ */
+static void
+push_string (s, expand, ap)
+     char *s;
+     int expand;
+     alias_t *ap;
 {
-                         yyval.redirect = yyvsp[0].redirect;
-                       ;
-    break;}
-case 38:
-#line 440 "/usr/homes/chet/src/bash/src/parse.y"
+  STRING_SAVER *temp = (STRING_SAVER *) xmalloc (sizeof (STRING_SAVER));
+
+  temp->expand_alias = expand;
+  temp->saved_line = shell_input_line;
+  temp->saved_line_size = shell_input_line_size;
+  temp->saved_line_index = shell_input_line_index;
+  temp->saved_line_terminator = shell_input_line_terminator;
+#if defined (ALIAS)
+  temp->expander = ap;
+#endif
+  temp->next = pushed_string_list;
+  pushed_string_list = temp;
+
+#if defined (ALIAS)
+  if (ap)
+    ap->flags |= AL_BEINGEXPANDED;
+#endif
+
+  shell_input_line = s;
+  shell_input_line_size = strlen (s);
+  shell_input_line_index = 0;
+  shell_input_line_terminator = '\0';
+  parser_state &= ~PST_ALEXPNEXT;
+}
+
+/*
+ * Make the top of the pushed_string stack be the current shell input.
+ * Only called when there is something on the stack.  Called from shell_getc
+ * when it thinks it has consumed the string generated by an alias expansion
+ * and needs to return to the original input line.
+ */
+static void
+pop_string ()
 {
-                         register REDIRECT *t;
+  STRING_SAVER *t;
 
-                         for (t = yyvsp[-1].redirect; t->next; t = t->next)
-                           ;
-                         t->next = yyvsp[0].redirect;
-                         yyval.redirect = yyvsp[-1].redirect;
-                       ;
-    break;}
-case 39:
-#line 451 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = make_simple_command (yyvsp[0].element, (COMMAND *)NULL); ;
-    break;}
-case 40:
-#line 453 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = make_simple_command (yyvsp[0].element, yyvsp[-1].command); ;
-    break;}
-case 41:
-#line 457 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = clean_simple_command (yyvsp[0].command); ;
-    break;}
-case 42:
-#line 459 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
-    break;}
-case 43:
-#line 461 "/usr/homes/chet/src/bash/src/parse.y"
+  FREE (shell_input_line);
+  shell_input_line = pushed_string_list->saved_line;
+  shell_input_line_index = pushed_string_list->saved_line_index;
+  shell_input_line_size = pushed_string_list->saved_line_size;
+  shell_input_line_terminator = pushed_string_list->saved_line_terminator;
+
+  if (pushed_string_list->expand_alias)
+    parser_state |= PST_ALEXPNEXT;
+  else
+    parser_state &= ~PST_ALEXPNEXT;
+
+  t = pushed_string_list;
+  pushed_string_list = pushed_string_list->next;
+
+#if defined (ALIAS)
+  if (t->expander)
+    t->expander->flags &= ~AL_BEINGEXPANDED;
+#endif
+
+  free ((char *)t);
+}
+
+static void
+free_string_list ()
 {
-                         COMMAND *tc;
+  register STRING_SAVER *t, *t1;
 
-                         tc = yyvsp[-1].command;
-                         /* According to Posix.2 3.9.5, redirections
-                            specified after the body of a function should
-                            be attached to the function and performed when
-                            the function is executed, not as part of the
-                            function definition command. */
-                         /* XXX - I don't think it matters, but we might
-                            want to change this in the future to avoid
-                            problems differentiating between a function
-                            definition with a redirection and a function
-                            definition containing a single command with a
-                            redirection.  The two are semantically equivalent,
-                            though -- the only difference is in how the
-                            command printing code displays the redirections. */
-                         if (tc->type == cm_function_def)
-                           {
-                             tc = tc->value.Function_def->command;
-                             if (tc->type == cm_group)
-                               tc = tc->value.Group->command;
-                           }
-                         if (tc->redirects)
-                           {
-                             register REDIRECT *t;
-                             for (t = tc->redirects; t->next; t = t->next)
-                               ;
-                             t->next = yyvsp[0].redirect;
-                           }
-                         else
-                           tc->redirects = yyvsp[0].redirect;
-                         yyval.command = yyvsp[-1].command;
-                       ;
-    break;}
-case 44:
-#line 498 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
-    break;}
-case 45:
-#line 500 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
-    break;}
-case 46:
-#line 502 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = make_while_command (yyvsp[-3].command, yyvsp[-1].command); ;
-    break;}
-case 47:
-#line 504 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = make_until_command (yyvsp[-3].command, yyvsp[-1].command); ;
-    break;}
-case 48:
-#line 506 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
-    break;}
-case 49:
-#line 508 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
-    break;}
-case 50:
-#line 510 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
-    break;}
-case 51:
-#line 512 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
-    break;}
-case 52:
-#line 514 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
-    break;}
-case 53:
-#line 516 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
-    break;}
-case 54:
-#line 518 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
-    break;}
-case 55:
-#line 520 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
-    break;}
-case 56:
-#line 524 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = make_for_command (yyvsp[-4].word, add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), yyvsp[-1].command); ;
-    break;}
-case 57:
-#line 526 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = make_for_command (yyvsp[-4].word, add_string_to_list ("$@", (WORD_LIST *)NULL), yyvsp[-1].command); ;
-    break;}
-case 58:
-#line 528 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = make_for_command (yyvsp[-5].word, add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), yyvsp[-1].command); ;
-    break;}
-case 59:
-#line 530 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = make_for_command (yyvsp[-5].word, add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), yyvsp[-1].command); ;
-    break;}
-case 60:
-#line 532 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = make_for_command (yyvsp[-8].word, REVERSE_LIST (yyvsp[-5].word_list, WORD_LIST *), yyvsp[-1].command); ;
-    break;}
-case 61:
-#line 534 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = make_for_command (yyvsp[-8].word, REVERSE_LIST (yyvsp[-5].word_list, WORD_LIST *), yyvsp[-1].command); ;
-    break;}
-case 62:
-#line 538 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = make_arith_for_command (yyvsp[-5].word_list, yyvsp[-1].command, arith_for_lineno); ;
-    break;}
-case 63:
-#line 540 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = make_arith_for_command (yyvsp[-5].word_list, yyvsp[-1].command, arith_for_lineno); ;
-    break;}
-case 64:
-#line 543 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         yyval.command = make_select_command (yyvsp[-4].word, add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), yyvsp[-1].command);
-                       ;
-    break;}
-case 65:
-#line 547 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         yyval.command = make_select_command (yyvsp[-4].word, add_string_to_list ("$@", (WORD_LIST *)NULL), yyvsp[-1].command);
-                       ;
-    break;}
-case 66:
-#line 551 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         yyval.command = make_select_command (yyvsp[-5].word, add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), yyvsp[-1].command);
-                       ;
-    break;}
-case 67:
-#line 555 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         yyval.command = make_select_command (yyvsp[-5].word, add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), yyvsp[-1].command);
-                       ;
-    break;}
-case 68:
-#line 559 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         yyval.command = make_select_command (yyvsp[-8].word, (WORD_LIST *)reverse_list (yyvsp[-5].word_list), yyvsp[-1].command);
-                       ;
-    break;}
-case 69:
-#line 563 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         yyval.command = make_select_command (yyvsp[-8].word, (WORD_LIST *)reverse_list (yyvsp[-5].word_list), yyvsp[-1].command);
-                       ;
-    break;}
-case 70:
-#line 569 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = make_case_command (yyvsp[-4].word, (PATTERN_LIST *)NULL); ;
-    break;}
-case 71:
-#line 571 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = make_case_command (yyvsp[-5].word, yyvsp[-2].pattern); ;
-    break;}
-case 72:
-#line 573 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = make_case_command (yyvsp[-4].word, yyvsp[-1].pattern); ;
-    break;}
-case 73:
-#line 577 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = make_function_def (yyvsp[-4].word, yyvsp[0].command, function_dstart, function_bstart); ;
-    break;}
-case 74:
-#line 581 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = make_function_def (yyvsp[-4].word, yyvsp[0].command, function_dstart, function_bstart); ;
-    break;}
-case 75:
-#line 584 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = make_function_def (yyvsp[-2].word, yyvsp[0].command, function_dstart, function_bstart); ;
-    break;}
-case 76:
-#line 588 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         yyval.command = make_subshell_command (yyvsp[-1].command);
-                         yyval.command->flags |= CMD_WANT_SUBSHELL;
-                       ;
-    break;}
-case 77:
-#line 595 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = make_if_command (yyvsp[-3].command, yyvsp[-1].command, (COMMAND *)NULL); ;
-    break;}
-case 78:
-#line 597 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = make_if_command (yyvsp[-5].command, yyvsp[-3].command, yyvsp[-1].command); ;
-    break;}
-case 79:
-#line 599 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = make_if_command (yyvsp[-4].command, yyvsp[-2].command, yyvsp[-1].command); ;
-    break;}
-case 80:
-#line 604 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = make_group_command (yyvsp[-1].command); ;
-    break;}
-case 81:
-#line 608 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = make_arith_command (yyvsp[0].word_list); ;
-    break;}
-case 82:
-#line 612 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[-1].command; ;
-    break;}
-case 83:
-#line 616 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = make_if_command (yyvsp[-2].command, yyvsp[0].command, (COMMAND *)NULL); ;
-    break;}
-case 84:
-#line 618 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = make_if_command (yyvsp[-4].command, yyvsp[-2].command, yyvsp[0].command); ;
-    break;}
-case 85:
-#line 620 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = make_if_command (yyvsp[-3].command, yyvsp[-1].command, yyvsp[0].command); ;
-    break;}
-case 87:
-#line 625 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyvsp[0].pattern->next = yyvsp[-1].pattern; yyval.pattern = yyvsp[0].pattern; ;
-    break;}
-case 88:
-#line 629 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.pattern = make_pattern_list (yyvsp[-2].word_list, yyvsp[0].command); ;
-    break;}
-case 89:
-#line 631 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.pattern = make_pattern_list (yyvsp[-2].word_list, (COMMAND *)NULL); ;
-    break;}
-case 90:
-#line 633 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.pattern = make_pattern_list (yyvsp[-2].word_list, yyvsp[0].command); ;
-    break;}
-case 91:
-#line 635 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.pattern = make_pattern_list (yyvsp[-2].word_list, (COMMAND *)NULL); ;
-    break;}
-case 93:
-#line 640 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyvsp[-1].pattern->next = yyvsp[-2].pattern; yyval.pattern = yyvsp[-1].pattern; ;
-    break;}
-case 94:
-#line 644 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.word_list = make_word_list (yyvsp[0].word, (WORD_LIST *)NULL); ;
-    break;}
-case 95:
-#line 646 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.word_list = make_word_list (yyvsp[0].word, yyvsp[-2].word_list); ;
-    break;}
-case 96:
-#line 655 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         yyval.command = yyvsp[0].command;
-                         if (need_here_doc)
-                           gather_here_documents ();
-                        ;
-    break;}
-case 98:
-#line 664 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         yyval.command = yyvsp[0].command;
-                       ;
-    break;}
-case 100:
-#line 671 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         if (yyvsp[-2].command->type == cm_connection)
-                           yyval.command = connect_async_list (yyvsp[-2].command, (COMMAND *)NULL, '&');
-                         else
-                           yyval.command = command_connect (yyvsp[-2].command, (COMMAND *)NULL, '&');
-                       ;
-    break;}
-case 102:
-#line 682 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, AND_AND); ;
-    break;}
-case 103:
-#line 684 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, OR_OR); ;
-    break;}
-case 104:
-#line 686 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         if (yyvsp[-3].command->type == cm_connection)
-                           yyval.command = connect_async_list (yyvsp[-3].command, yyvsp[0].command, '&');
-                         else
-                           yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, '&');
-                       ;
-    break;}
-case 105:
-#line 693 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, ';'); ;
-    break;}
-case 106:
-#line 695 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, ';'); ;
-    break;}
-case 107:
-#line 697 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
-    break;}
-case 113:
-#line 716 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         yyval.command = yyvsp[0].command;
-                         if (need_here_doc)
-                           gather_here_documents ();
-                       ;
-    break;}
-case 114:
-#line 722 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         if (yyvsp[-1].command->type == cm_connection)
-                           yyval.command = connect_async_list (yyvsp[-1].command, (COMMAND *)NULL, '&');
-                         else
-                           yyval.command = command_connect (yyvsp[-1].command, (COMMAND *)NULL, '&');
-                         if (need_here_doc)
-                           gather_here_documents ();
-                       ;
-    break;}
-case 115:
-#line 731 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         yyval.command = yyvsp[-1].command;
-                         if (need_here_doc)
-                           gather_here_documents ();
-                       ;
-    break;}
-case 116:
-#line 739 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, AND_AND); ;
-    break;}
-case 117:
-#line 741 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, OR_OR); ;
-    break;}
-case 118:
-#line 743 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         if (yyvsp[-2].command->type == cm_connection)
-                           yyval.command = connect_async_list (yyvsp[-2].command, yyvsp[0].command, '&');
-                         else
-                           yyval.command = command_connect (yyvsp[-2].command, yyvsp[0].command, '&');
-                       ;
-    break;}
-case 119:
-#line 750 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = command_connect (yyvsp[-2].command, yyvsp[0].command, ';'); ;
-    break;}
-case 120:
-#line 753 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
-    break;}
-case 121:
-#line 757 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
-    break;}
-case 122:
-#line 759 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         yyvsp[0].command->flags |= CMD_INVERT_RETURN;
-                         yyval.command = yyvsp[0].command;
-                       ;
-    break;}
-case 123:
-#line 764 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         yyvsp[0].command->flags |= yyvsp[-1].number;
-                         yyval.command = yyvsp[0].command;
-                       ;
-    break;}
-case 124:
-#line 769 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         yyvsp[0].command->flags |= yyvsp[-2].number|CMD_INVERT_RETURN;
-                         yyval.command = yyvsp[0].command;
-                       ;
-    break;}
-case 125:
-#line 774 "/usr/homes/chet/src/bash/src/parse.y"
-{
-                         yyvsp[0].command->flags |= yyvsp[-1].number|CMD_INVERT_RETURN;
-                         yyval.command = yyvsp[0].command;
-                       ;
-    break;}
-case 126:
-#line 782 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, '|'); ;
-    break;}
-case 127:
-#line 784 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.command = yyvsp[0].command; ;
-    break;}
-case 128:
-#line 788 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.number = CMD_TIME_PIPELINE; ;
-    break;}
-case 129:
-#line 790 "/usr/homes/chet/src/bash/src/parse.y"
-{ yyval.number = CMD_TIME_PIPELINE|CMD_TIME_POSIX; ;
-    break;}
-}
-   /* the action file gets copied in in place of this dollarsign */
-#line 498 "/usr/share/misc/bison.simple"
-\f
-  yyvsp -= yylen;
-  yyssp -= yylen;
-#ifdef YYLSP_NEEDED
-  yylsp -= yylen;
-#endif
-
-#if YYDEBUG != 0
-  if (yydebug)
+  for (t = pushed_string_list; t; )
     {
-      short *ssp1 = yyss - 1;
-      fprintf (stderr, "state stack now");
-      while (ssp1 != yyssp)
-       fprintf (stderr, " %d", *++ssp1);
-      fprintf (stderr, "\n");
-    }
+      t1 = t->next;
+      FREE (t->saved_line);
+#if defined (ALIAS)
+      if (t->expander)
+       t->expander->flags &= ~AL_BEINGEXPANDED;
 #endif
-
-  *++yyvsp = yyval;
-
-#ifdef YYLSP_NEEDED
-  yylsp++;
-  if (yylen == 0)
-    {
-      yylsp->first_line = yylloc.first_line;
-      yylsp->first_column = yylloc.first_column;
-      yylsp->last_line = (yylsp-1)->last_line;
-      yylsp->last_column = (yylsp-1)->last_column;
-      yylsp->text = 0;
-    }
-  else
-    {
-      yylsp->last_line = (yylsp+yylen-1)->last_line;
-      yylsp->last_column = (yylsp+yylen-1)->last_column;
+      free ((char *)t);
+      t = t1;
     }
-#endif
-
-  /* Now "shift" the result of the reduction.
-     Determine what state that goes to,
-     based on the state we popped back to
-     and the rule number reduced by.  */
-
-  yyn = yyr1[yyn];
+  pushed_string_list = (STRING_SAVER *)NULL;
+}
 
-  yystate = yypgoto[yyn - YYNTBASE] + *yyssp;
-  if (yystate >= 0 && yystate <= YYLAST && yycheck[yystate] == *yyssp)
-    yystate = yytable[yystate];
-  else
-    yystate = yydefgoto[yyn - YYNTBASE];
+#endif /* ALIAS || DPAREN_ARITHMETIC */
 
-  goto yynewstate;
+/* Return a line of text, taken from wherever yylex () reads input.
+   If there is no more input, then we return NULL.  If REMOVE_QUOTED_NEWLINE
+   is non-zero, we remove unquoted \<newline> pairs.  This is used by
+   read_secondary_line to read here documents. */
+static char *
+read_a_line (remove_quoted_newline)
+     int remove_quoted_newline;
+{
+  static char *line_buffer = (char *)NULL;
+  static int buffer_size = 0;
+  int indx = 0, c, peekc, pass_next;
 
-yyerrlab:   /* here on detecting error */
+#if defined (READLINE)
+  if (interactive && bash_input.type != st_string && no_line_editing)
+#else
+  if (interactive && bash_input.type != st_string)
+#endif
+    print_prompt ();
 
-  if (! yyerrstatus)
-    /* If not already recovering from an error, report this error.  */
+  pass_next = 0;
+  while (1)
     {
-      ++yynerrs;
+      c = yy_getc ();
 
-#ifdef YYERROR_VERBOSE
-      yyn = yypact[yystate];
+      /* Allow immediate exit if interrupted during input. */
+      QUIT;
 
-      if (yyn > YYFLAG && yyn < YYLAST)
+      /* Ignore null bytes in input. */
+      if (c == 0)
        {
-         int size = 0;
-         char *msg;
-         int x, count;
-
-         count = 0;
-         /* Start X at -yyn if nec to avoid negative indexes in yycheck.  */
-         for (x = (yyn < 0 ? -yyn : 0);
-              x < (sizeof(yytname) / sizeof(char *)); x++)
-           if (yycheck[x + yyn] == x)
-             size += strlen(yytname[x]) + 15, count++;
-         msg = (char *) malloc(size + 15);
-         if (msg != 0)
-           {
-             strcpy(msg, "parse error");
-
-             if (count < 5)
-               {
-                 count = 0;
-                 for (x = (yyn < 0 ? -yyn : 0);
-                      x < (sizeof(yytname) / sizeof(char *)); x++)
-                   if (yycheck[x + yyn] == x)
-                     {
-                       strcat(msg, count == 0 ? ", expecting `" : " or `");
-                       strcat(msg, yytname[x]);
-                       strcat(msg, "'");
-                       count++;
-                     }
-               }
-             yyerror(msg);
-             free(msg);
-           }
-         else
-           yyerror ("parse error; also virtual memory exceeded");
-       }
-      else
-#endif /* YYERROR_VERBOSE */
-       yyerror("parse error");
-    }
-
-  goto yyerrlab1;
-yyerrlab1:   /* here on error raised explicitly by an action */
-
-  if (yyerrstatus == 3)
-    {
-      /* if just tried and failed to reuse lookahead token after an error, discard it.  */
-
-      /* return failure if at end of input */
-      if (yychar == YYEOF)
-       YYABORT;
-
-#if YYDEBUG != 0
-      if (yydebug)
-       fprintf(stderr, "Discarding token %d (%s).\n", yychar, yytname[yychar1]);
+#if 0
+         internal_warning ("read_a_line: ignored null byte in input");
 #endif
+         continue;
+       }
 
-      yychar = YYEMPTY;
-    }
+      /* If there is no more input, then we return NULL. */
+      if (c == EOF)
+       {
+         if (interactive && bash_input.type == st_stream)
+           clearerr (stdin);
+         if (indx == 0)
+           return ((char *)NULL);
+         c = '\n';
+       }
 
-  /* Else will try to reuse lookahead token
-     after shifting the error token.  */
+      /* `+2' in case the final character in the buffer is a newline. */
+      RESIZE_MALLOCED_BUFFER (line_buffer, indx, 2, buffer_size, 128);
 
-  yyerrstatus = 3;             /* Each real token shifted decrements this */
-
-  goto yyerrhandle;
+      /* IF REMOVE_QUOTED_NEWLINES is non-zero, we are reading a
+        here document with an unquoted delimiter.  In this case,
+        the line will be expanded as if it were in double quotes.
+        We allow a backslash to escape the next character, but we
+        need to treat the backslash specially only if a backslash
+        quoting a backslash-newline pair appears in the line. */
+      if (pass_next)
+       {
+         line_buffer[indx++] = c;
+         pass_next = 0;
+       }
+      else if (c == '\\' && remove_quoted_newline)
+       {
+         peekc = yy_getc ();
+         if (peekc == '\n')
+           continue;   /* Make the unquoted \<newline> pair disappear. */
+         else
+           {
+             yy_ungetc (peekc);
+             pass_next = 1;
+             line_buffer[indx++] = c;          /* Preserve the backslash. */
+           }
+       }
+      else
+       line_buffer[indx++] = c;
 
-yyerrdefault:  /* current state does not do anything special for the error token. */
+      if (c == '\n')
+       {
+         line_buffer[indx] = '\0';
+         return (line_buffer);
+       }
+    }
+}
 
-#if 0
-  /* This is wrong; only states that explicitly want error tokens
-     should shift them.  */
-  yyn = yydefact[yystate];  /* If its default is to accept any token, ok.  Otherwise pop it.*/
-  if (yyn) goto yydefault;
-#endif
+/* Return a line as in read_a_line (), but insure that the prompt is
+   the secondary prompt.  This is used to read the lines of a here
+   document.  REMOVE_QUOTED_NEWLINE is non-zero if we should remove
+   newlines quoted with backslashes while reading the line.  It is
+   non-zero unless the delimiter of the here document was quoted. */
+char *
+read_secondary_line (remove_quoted_newline)
+     int remove_quoted_newline;
+{
+  prompt_string_pointer = &ps2_prompt;
+  prompt_again ();
+  return (read_a_line (remove_quoted_newline));
+}
 
-yyerrpop:   /* pop the current state because it cannot handle the error token */
+/* **************************************************************** */
+/*                                                                 */
+/*                             YYLEX ()                            */
+/*                                                                 */
+/* **************************************************************** */
 
-  if (yyssp == yyss) YYABORT;
-  yyvsp--;
-  yystate = *--yyssp;
-#ifdef YYLSP_NEEDED
-  yylsp--;
+/* Reserved words.  These are only recognized as the first word of a
+   command. */
+STRING_INT_ALIST word_token_alist[] = {
+  { "if", IF },
+  { "then", THEN },
+  { "else", ELSE },
+  { "elif", ELIF },
+  { "fi", FI },
+  { "case", CASE },
+  { "esac", ESAC },
+  { "for", FOR },
+#if defined (SELECT_COMMAND)
+  { "select", SELECT },
 #endif
-
-#if YYDEBUG != 0
-  if (yydebug)
-    {
-      short *ssp1 = yyss - 1;
-      fprintf (stderr, "Error: state stack now");
-      while (ssp1 != yyssp)
-       fprintf (stderr, " %d", *++ssp1);
-      fprintf (stderr, "\n");
-    }
+  { "while", WHILE },
+  { "until", UNTIL },
+  { "do", DO },
+  { "done", DONE },
+  { "in", IN },
+  { "function", FUNCTION },
+#if defined (COMMAND_TIMING)
+  { "time", TIME },
+#endif
+  { "{", '{' },
+  { "}", '}' },
+  { "!", BANG },
+#if defined (COND_COMMAND)
+  { "[[", COND_START },
+  { "]]", COND_END },
 #endif
+  { (char *)NULL, 0}
+};
 
-yyerrhandle:
+/* XXX - we should also have an alist with strings for other tokens, so we
+        can give more descriptive error messages.  Look at y.tab.h for the
+        other tokens. */
 
-  yyn = yypact[yystate];
-  if (yyn == YYFLAG)
-    goto yyerrdefault;
+/* These are used by read_token_word, but appear up here so that shell_getc
+   can use them to decide when to add otherwise blank lines to the history. */
 
-  yyn += YYTERROR;
-  if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != YYTERROR)
-    goto yyerrdefault;
+/* The primary delimiter stack. */
+struct dstack dstack = {  (char *)NULL, 0, 0 };
 
-  yyn = yytable[yyn];
-  if (yyn < 0)
-    {
-      if (yyn == YYFLAG)
-       goto yyerrpop;
-      yyn = -yyn;
-      goto yyreduce;
-    }
-  else if (yyn == 0)
-    goto yyerrpop;
+/* A temporary delimiter stack to be used when decoding prompt strings.
+   This is needed because command substitutions in prompt strings (e.g., PS2)
+   can screw up the parser's quoting state. */
+static struct dstack temp_dstack = { (char *)NULL, 0, 0 };
 
-  if (yyn == YYFINAL)
-    YYACCEPT;
+/* Macro for accessing the top delimiter on the stack.  Returns the
+   delimiter or zero if none. */
+#define current_delimiter(ds) \
+  (ds.delimiter_depth ? ds.delimiters[ds.delimiter_depth - 1] : 0)
 
-#if YYDEBUG != 0
-  if (yydebug)
-    fprintf(stderr, "Shifting error token, ");
-#endif
+#define push_delimiter(ds, character) \
+  do \
+    { \
+      if (ds.delimiter_depth + 2 > ds.delimiter_space) \
+       ds.delimiters = xrealloc \
+         (ds.delimiters, (ds.delimiter_space += 10) * sizeof (char)); \
+      ds.delimiters[ds.delimiter_depth] = character; \
+      ds.delimiter_depth++; \
+    } \
+  while (0)
 
-  *++yyvsp = yylval;
-#ifdef YYLSP_NEEDED
-  *++yylsp = yylloc;
-#endif
+#define pop_delimiter(ds)      ds.delimiter_depth--
 
-  yystate = yyn;
-  goto yynewstate;
-}
-#line 792 "/usr/homes/chet/src/bash/src/parse.y"
+/* Return the next shell input character.  This always reads characters
+   from shell_input_line; when that line is exhausted, it is time to
+   read the next line.  This is called by read_token when the shell is
+   processing normal command input. */
 
+/* This implements one-character lookahead/lookbehind across physical input
+   lines, to avoid something being lost because it's pushed back with
+   shell_ungetc when we're at the start of a line. */
+static int eol_ungetc_lookahead = 0;
 
-/* Possible states for the parser that require it to do special things. */
-#define PST_CASEPAT    0x001           /* in a case pattern list */
-#define PST_ALEXPNEXT  0x002           /* expand next word for aliases */
-#define PST_ALLOWOPNBRC        0x004           /* allow open brace for function def */
-#define PST_NEEDCLOSBRC        0x008           /* need close brace */
-#define PST_DBLPAREN   0x010           /* double-paren parsing */
-#define PST_SUBSHELL   0x020           /* ( ... ) subshell */
-#define PST_CMDSUBST   0x040           /* $( ... ) command substitution */
-#define PST_CASESTMT   0x080           /* parsing a case statement */
-#define PST_CONDCMD    0x100           /* parsing a [[...]] command */
-#define PST_CONDEXPR   0x200           /* parsing the guts of [[...]] */
-#define PST_ARITHFOR   0x400           /* parsing an arithmetic for command */
+static int
+shell_getc (remove_quoted_newline)
+     int remove_quoted_newline;
+{
+  register int i;
+  int c;
+  static int mustpop = 0;
 
-/* Initial size to allocate for tokens, and the
-   amount to grow them by. */
-#define TOKEN_DEFAULT_INITIAL_SIZE 496
-#define TOKEN_DEFAULT_GROW_SIZE 512
+  QUIT;
 
-/* Shell meta-characters that, when unquoted, separate words. */
-#define shellmeta(c)   (strchr (shell_meta_chars, (c)) != 0)
-#define shellbreak(c)  (strchr (shell_break_chars, (c)) != 0)
-#define shellquote(c)  ((c) == '"' || (c) == '`' || (c) == '\'')
-#define shellexp(c)    ((c) == '$' || (c) == '<' || (c) == '>')
+  if (eol_ungetc_lookahead)
+    {
+      c = eol_ungetc_lookahead;
+      eol_ungetc_lookahead = 0;
+      return (c);
+    }
 
-char *shell_meta_chars = "()<>;&|";
-char *shell_break_chars = "()<>;&| \t\n";
+#if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
+  /* If shell_input_line[shell_input_line_index] == 0, but there is
+     something on the pushed list of strings, then we don't want to go
+     off and get another line.  We let the code down below handle it. */
 
-/* The token currently being read. */
-static int current_token;
+  if (!shell_input_line || ((!shell_input_line[shell_input_line_index]) &&
+                           (pushed_string_list == (STRING_SAVER *)NULL)))
+#else /* !ALIAS && !DPAREN_ARITHMETIC */
+  if (!shell_input_line || !shell_input_line[shell_input_line_index])
+#endif /* !ALIAS && !DPAREN_ARITHMETIC */
+    {
+      line_number++;
 
-/* The last read token, or NULL.  read_token () uses this for context
-   checking. */
-static int last_read_token;
+    restart_read:
 
-/* The token read prior to last_read_token. */
-static int token_before_that;
+      /* Allow immediate exit if interrupted during input. */
+      QUIT;
 
-/* The token read prior to token_before_that. */
-static int two_tokens_ago;
+      i = 0;
+      shell_input_line_terminator = 0;
 
-/* If non-zero, it is the token that we want read_token to return
-   regardless of what text is (or isn't) present to be read.  This
-   is reset by read_token.  If token_to_read == WORD or
-   ASSIGNMENT_WORD, yylval.word should be set to word_desc_to_read. */
-static int token_to_read;
-static WORD_DESC *word_desc_to_read;
+#if defined (JOB_CONTROL)
+      /* This can cause a problem when reading a command as the result
+        of a trap, when the trap is called from flush_child.  This call
+        had better not cause jobs to disappear from the job table in
+        that case, or we will have big trouble. */
+      notify_and_cleanup ();
+#else /* !JOB_CONTROL */
+      cleanup_dead_jobs ();
+#endif /* !JOB_CONTROL */
 
-/* The current parser state. */
-static int parser_state;
+#if defined (READLINE)
+      if (interactive && bash_input.type != st_string && no_line_editing)
+#else
+      if (interactive && bash_input.type != st_string)
+#endif
+       print_prompt ();
 
-/* Global var is non-zero when end of file has been reached. */
-int EOF_Reached = 0;
+      if (bash_input.type == st_stream)
+       clearerr (stdin);
 
-void
-debug_parser (i)
-     int i;
-{
-#if YYDEBUG != 0
-  yydebug = i;
+      while (1)
+       {
+         c = yy_getc ();
+
+         /* Allow immediate exit if interrupted during input. */
+         QUIT;
+
+         if (c == '\0')
+           {
+#if 0
+             internal_warning ("shell_getc: ignored null byte in input");
 #endif
-}
+             continue;
+           }
 
-/* yy_getc () returns the next available character from input or EOF.
-   yy_ungetc (c) makes `c' the next character to read.
-   init_yy_io (get, unget, type, location) makes the function GET the
-   installed function for getting the next character, makes UNGET the
-   installed function for un-getting a character, sets the type of stream
-   (either string or file) from TYPE, and makes LOCATION point to where
-   the input is coming from. */
+         RESIZE_MALLOCED_BUFFER (shell_input_line, i, 2, shell_input_line_size, 256);
 
-/* Unconditionally returns end-of-file. */
-int
-return_EOF ()
-{
-  return (EOF);
-}
+         if (c == EOF)
+           {
+             if (bash_input.type == st_stream)
+               clearerr (stdin);
 
-/* Variable containing the current get and unget functions.
-   See ./input.h for a clearer description. */
-BASH_INPUT bash_input;
+             if (i == 0)
+               shell_input_line_terminator = EOF;
 
-/* Set all of the fields in BASH_INPUT to NULL.  Free bash_input.name if it
-   is non-null, avoiding a memory leak. */
-void
-initialize_bash_input ()
-{
-  bash_input.type = st_none;
-  FREE (bash_input.name);
-  bash_input.name = (char *)NULL;
-  bash_input.location.file = (FILE *)NULL;
-  bash_input.location.string = (char *)NULL;
-  bash_input.getter = (Function *)NULL;
-  bash_input.ungetter = (Function *)NULL;
-}
+             shell_input_line[i] = '\0';
+             break;
+           }
 
-/* Set the contents of the current bash input stream from
-   GET, UNGET, TYPE, NAME, and LOCATION. */
-void
-init_yy_io (get, unget, type, name, location)
-     Function *get, *unget;
-     enum stream_type type;
-     char *name;
-     INPUT_STREAM location;
-{
-  bash_input.type = type;
-  FREE (bash_input.name);
-  bash_input.name = name ? savestring (name) : (char *)NULL;
-
-  /* XXX */
-#if defined (CRAY)
-  memcpy((char *)&bash_input.location.string, (char *)&location.string, sizeof(location));
-#else
-  bash_input.location = location;
-#endif
-  bash_input.getter = get;
-  bash_input.ungetter = unget;
-}
-
-/* Call this to get the next character of input. */
-int
-yy_getc ()
-{
-  return (*(bash_input.getter)) ();
-}
-
-/* Call this to unget C.  That is, to make C the next character
-   to be read. */
-int
-yy_ungetc (c)
-     int c;
-{
-  return (*(bash_input.ungetter)) (c);
-}
-
-#if defined (BUFFERED_INPUT)
-int
-input_file_descriptor ()
-{
-  switch (bash_input.type)
-    {
-    case st_stream:
-      return (fileno (bash_input.location.file));
-    case st_bstream:
-      return (bash_input.location.buffered_fd);
-    case st_stdin:
-    default:
-      return (fileno (stdin));
-    }
-}
-#endif /* BUFFERED_INPUT */
-
-/* **************************************************************** */
-/*                                                                 */
-/*               Let input be read from readline ().               */
-/*                                                                 */
-/* **************************************************************** */
+         shell_input_line[i++] = c;
 
-#if defined (READLINE)
-char *current_readline_prompt = (char *)NULL;
-char *current_readline_line = (char *)NULL;
-int current_readline_line_index = 0;
+         if (c == '\n')
+           {
+             shell_input_line[--i] = '\0';
+             current_command_line_count++;
+             break;
+           }
+       }
 
-static int
-yy_readline_get ()
-{
-  SigHandler *old_sigint;
-  int line_len, c;
+      shell_input_line_index = 0;
+      shell_input_line_len = i;                /* == strlen (shell_input_line) */
 
-  if (!current_readline_line)
-    {
-      if (!bash_readline_initialized)
-       initialize_readline ();
+#if defined (HISTORY)
+      if (remember_on_history && shell_input_line && shell_input_line[0])
+       {
+         char *expansions;
+#  if defined (BANG_HISTORY)
+         int old_hist;
 
-#if defined (JOB_CONTROL)
-      if (job_control)
-       give_terminal_to (shell_pgrp);
-#endif /* JOB_CONTROL */
+         /* If the current delimiter is a single quote, we should not be
+            performing history expansion, even if we're on a different
+            line from the original single quote. */
+         old_hist = history_expansion_inhibited;
+         if (current_delimiter (dstack) == '\'')
+           history_expansion_inhibited = 1;
+#  endif
+         expansions = pre_process_line (shell_input_line, 1, 1);
+#  if defined (BANG_HISTORY)
+         history_expansion_inhibited = old_hist;
+#  endif
+         if (expansions != shell_input_line)
+           {
+             free (shell_input_line);
+             shell_input_line = expansions;
+             shell_input_line_len = shell_input_line ?
+                                       strlen (shell_input_line) : 0;
+             if (!shell_input_line_len)
+               current_command_line_count--;
 
-      if (signal_is_ignored (SIGINT) == 0)
+             /* We have to force the xrealloc below because we don't know
+                the true allocated size of shell_input_line anymore. */
+             shell_input_line_size = shell_input_line_len;
+           }
+       }
+      /* Try to do something intelligent with blank lines encountered while
+        entering multi-line commands.  XXX - this is grotesque */
+      else if (remember_on_history && shell_input_line &&
+              shell_input_line[0] == '\0' &&
+              current_command_line_count > 1)
        {
-         old_sigint = (SigHandler *)set_signal_handler (SIGINT, sigint_sighandler);
-         interrupt_immediately++;
+         if (current_delimiter (dstack))
+           /* We know shell_input_line[0] == 0 and we're reading some sort of
+              quoted string.  This means we've got a line consisting of only
+              a newline in a quoted string.  We want to make sure this line
+              gets added to the history. */
+           maybe_add_history (shell_input_line);
+         else
+           {
+             char *hdcs;
+             hdcs = history_delimiting_chars ();
+             if (hdcs && hdcs[0] == ';')
+               maybe_add_history (shell_input_line);
+           }
        }
 
-      current_readline_line = readline (current_readline_prompt ?
-                                         current_readline_prompt : "");
+#endif /* HISTORY */
 
-      if (signal_is_ignored (SIGINT) == 0)
+      if (shell_input_line)
        {
-         interrupt_immediately--;
-         set_signal_handler (SIGINT, old_sigint);
+         /* Lines that signify the end of the shell's input should not be
+            echoed. */
+         if (echo_input_at_read && (shell_input_line[0] ||
+                                    shell_input_line_terminator != EOF))
+           fprintf (stderr, "%s\n", shell_input_line);
+       }
+      else
+       {
+         shell_input_line_size = 0;
+         prompt_string_pointer = &current_prompt_string;
+         prompt_again ();
+         goto restart_read;
        }
 
-#if 0
-      /* Reset the prompt to the decoded value of prompt_string_pointer. */
-      reset_readline_prompt ();
-#endif
+      /* Add the newline to the end of this string, iff the string does
+        not already end in an EOF character.  */
+      if (shell_input_line_terminator != EOF)
+       {
+         if (shell_input_line_len + 3 > shell_input_line_size)
+           shell_input_line = xrealloc (shell_input_line,
+                                       1 + (shell_input_line_size += 2));
 
-      if (current_readline_line == 0)
-       return (EOF);
+         shell_input_line[shell_input_line_len] = '\n';
+         shell_input_line[shell_input_line_len + 1] = '\0';
+       }
+    }
 
-      current_readline_line_index = 0;
-      line_len = strlen (current_readline_line);
+  c = shell_input_line[shell_input_line_index];
 
-      current_readline_line = xrealloc (current_readline_line, 2 + line_len);
-      current_readline_line[line_len++] = '\n';
-      current_readline_line[line_len] = '\0';
-    }
+  if (c)
+    shell_input_line_index++;
 
-  if (current_readline_line[current_readline_line_index] == 0)
+  if (c == '\\' && remove_quoted_newline &&
+      shell_input_line[shell_input_line_index] == '\n')
     {
-      free (current_readline_line);
-      current_readline_line = (char *)NULL;
-      return (yy_readline_get ());
+       prompt_again ();
+       line_number++;
+       goto restart_read;
     }
-  else
+
+#if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
+  /* If C is NULL, we have reached the end of the current input string.  If
+     pushed_string_list is non-empty, it's time to pop to the previous string
+     because we have fully consumed the result of the last alias expansion.
+     Do it transparently; just return the next character of the string popped
+     to. */
+  if (!c && (pushed_string_list != (STRING_SAVER *)NULL))
     {
-      c = (unsigned char)current_readline_line[current_readline_line_index++];
-      return (c);
+      if (mustpop)
+       {
+         pop_string ();
+         c = shell_input_line[shell_input_line_index];
+         if (c)
+           shell_input_line_index++;
+         mustpop--;
+       }
+      else
+       {
+         mustpop++;
+         c = ' ';
+       }
     }
+#endif /* ALIAS || DPAREN_ARITHMETIC */
+
+  if (!c && shell_input_line_terminator == EOF)
+    return ((shell_input_line_index != 0) ? '\n' : EOF);
+
+  return ((unsigned char)c);
 }
 
-static int
-yy_readline_unget (c)
+/* Put C back into the input for the shell. */
+static void
+shell_ungetc (c)
      int c;
 {
-  if (current_readline_line_index && current_readline_line)
-    current_readline_line[--current_readline_line_index] = c;
-  return (c);
+  if (shell_input_line && shell_input_line_index)
+    shell_input_line[--shell_input_line_index] = c;
+  else
+    eol_ungetc_lookahead = c;
 }
 
-void
-with_input_from_stdin ()
+static void
+shell_ungetchar ()
 {
-  INPUT_STREAM location;
-
-  if (bash_input.type != st_stdin && stream_on_stack (st_stdin) == 0)
-    {
-      location.string = current_readline_line;
-      init_yy_io (yy_readline_get, yy_readline_unget,
-                 st_stdin, "readline stdin", location);
-    }
+  if (shell_input_line && shell_input_line_index)
+    shell_input_line_index--;
 }
 
-#else  /* !READLINE */
-
-void
-with_input_from_stdin ()
+/* Discard input until CHARACTER is seen, then push that character back
+   onto the input stream. */
+static void
+discard_until (character)
+     int character;
 {
-  with_input_from_stream (stdin, "stdin");
-}
-#endif /* !READLINE */
+  int c;
 
-/* **************************************************************** */
-/*                                                                 */
-/*   Let input come from STRING.  STRING is zero terminated.       */
-/*                                                                 */
-/* **************************************************************** */
+  while ((c = shell_getc (0)) != EOF && c != character)
+    ;
 
-static int
-yy_string_get ()
-{
-  register char *string;
-  register int c;
+  if (c != EOF)
+    shell_ungetc (c);
+}
 
-  string = bash_input.location.string;
-  c = EOF;
+void
+execute_prompt_command (command)
+     char *command;
+{
+  Function *temp_last, *temp_this;
+  char *last_lastarg;
+  int temp_exit_value, temp_eof_encountered;
 
-  /* If the string doesn't exist, or is empty, EOF found. */
-  if (string && *string)
-    {
-      c = *(unsigned char *)string++;
-      bash_input.location.string = string;
-    }
-  return (c);
-}
+  temp_last = last_shell_builtin;
+  temp_this = this_shell_builtin;
+  temp_exit_value = last_command_exit_value;
+  temp_eof_encountered = eof_encountered;
+  last_lastarg = get_string_value ("_");
+  if (last_lastarg)
+    last_lastarg = savestring (last_lastarg);
 
-static int
-yy_string_unget (c)
-     int c;
-{
-  *(--bash_input.location.string) = c;
-  return (c);
-}
+  parse_and_execute (savestring (command), "PROMPT_COMMAND", SEVAL_NONINT|SEVAL_NOHIST);
 
-void
-with_input_from_string (string, name)
-     char *string, *name;
-{
-  INPUT_STREAM location;
+  last_shell_builtin = temp_last;
+  this_shell_builtin = temp_this;
+  last_command_exit_value = temp_exit_value;
+  eof_encountered = temp_eof_encountered;
 
-  location.string = string;
-  init_yy_io (yy_string_get, yy_string_unget, st_string, name, location);
+  bind_variable ("_", last_lastarg);
+  FREE (last_lastarg);
+
+  if (token_to_read == '\n')   /* reset_parser was called */
+    token_to_read = 0;
 }
 
-/* **************************************************************** */
-/*                                                                 */
-/*                  Let input come from STREAM.                    */
-/*                                                                 */
-/* **************************************************************** */
+/* Place to remember the token.  We try to keep the buffer
+   at a reasonable size, but it can grow. */
+static char *token = (char *)NULL;
 
-/* These two functions used to test the value of the HAVE_RESTARTABLE_SYSCALLS
-   define, and just use getc/ungetc if it was defined, but since bash
-   installs its signal handlers without the SA_RESTART flag, some signals
-   (like SIGCHLD, SIGWINCH, etc.) received during a read(2) will not cause
-   the read to be restarted.  We need to restart it ourselves. */
+/* Current size of the token buffer. */
+static int token_buffer_size;
+
+/* Command to read_token () explaining what we want it to do. */
+#define READ 0
+#define RESET 1
+#define prompt_is_ps1 \
+      (!prompt_string_pointer || prompt_string_pointer == &ps1_prompt)
 
+/* Function for yyparse to call.  yylex keeps track of
+   the last two tokens read, and calls read_token.  */
 static int
-yy_stream_get ()
+yylex ()
 {
-  int result;
+  if (interactive && (current_token == 0 || current_token == '\n'))
+    {
+      /* Before we print a prompt, we might have to check mailboxes.
+        We do this only if it is time to do so. Notice that only here
+        is the mail alarm reset; nothing takes place in check_mail ()
+        except the checking of mail.  Please don't change this. */
+      if (prompt_is_ps1 && time_to_check_mail ())
+       {
+         check_mail ();
+         reset_mail_timer ();
+       }
 
-  result = EOF;
-  if (bash_input.location.file)
-    result = getc_with_restart (bash_input.location.file);
+      /* Avoid printing a prompt if we're not going to read anything, e.g.
+        after resetting the parser with read_token (RESET). */
+      if (token_to_read == 0 && interactive)
+       prompt_again ();
+    }
 
-  return (result);
+  two_tokens_ago = token_before_that;
+  token_before_that = last_read_token;
+  last_read_token = current_token;
+  current_token = read_token (READ);
+  return (current_token);
 }
 
-static int
-yy_stream_unget (c)
-     int c;
-{
-  return (ungetc_with_restart (c, bash_input.location.file));
-}
+/* When non-zero, we have read the required tokens
+   which allow ESAC to be the next one read. */
+static int esacs_needed_count;
 
 void
-with_input_from_stream (stream, name)
-     FILE *stream;
-     char *name;
+gather_here_documents ()
 {
-  INPUT_STREAM location;
-
-  location.file = stream;
-  init_yy_io (yy_stream_get, yy_stream_unget, st_stream, name, location);
+  int r = 0;
+  while (need_here_doc)
+    {
+      make_here_document (redir_stack[r++]);
+      need_here_doc--;
+    }
 }
 
-typedef struct stream_saver {
-  struct stream_saver *next;
-  BASH_INPUT bash_input;
-  int line;
-#if defined (BUFFERED_INPUT)
-  BUFFERED_STREAM *bstream;
-#endif /* BUFFERED_INPUT */
-} STREAM_SAVER;
-
-/* The globally known line number. */
-int line_number = 0;
+/* When non-zero, an open-brace used to create a group is awaiting a close
+   brace partner. */
+static int open_brace_count;
 
-#if defined (COND_COMMAND)
-static int cond_lineno;
-static int cond_token;
-#endif
+#define command_token_position(token) \
+  (((token) == ASSIGNMENT_WORD) || \
+   ((token) != SEMI_SEMI && reserved_word_acceptable(token)))
 
-STREAM_SAVER *stream_list = (STREAM_SAVER *)NULL;
+#define assignment_acceptable(token) command_token_position(token) && \
+                                       ((parser_state & PST_CASEPAT) == 0)
 
-void
-push_stream (reset_lineno)
-     int reset_lineno;
-{
-  STREAM_SAVER *saver = (STREAM_SAVER *)xmalloc (sizeof (STREAM_SAVER));
+/* Check to see if TOKEN is a reserved word and return the token
+   value if it is. */
+#define CHECK_FOR_RESERVED_WORD(tok) \
+  do { \
+    if (!dollar_present && !quoted && \
+       reserved_word_acceptable (last_read_token)) \
+      { \
+       int i; \
+       for (i = 0; word_token_alist[i].word != (char *)NULL; i++) \
+         if (STREQ (tok, word_token_alist[i].word)) \
+           { \
+             if ((parser_state & PST_CASEPAT) && (word_token_alist[i].token != ESAC)) \
+               break; \
+             if (word_token_alist[i].token == TIME) \
+               break; \
+             if (word_token_alist[i].token == ESAC) \
+               parser_state &= ~(PST_CASEPAT|PST_CASESTMT); \
+             else if (word_token_alist[i].token == CASE) \
+               parser_state |= PST_CASESTMT; \
+             else if (word_token_alist[i].token == COND_END) \
+               parser_state &= ~(PST_CONDCMD|PST_CONDEXPR); \
+             else if (word_token_alist[i].token == COND_START) \
+               parser_state |= PST_CONDCMD; \
+             else if (word_token_alist[i].token == '{') \
+               open_brace_count++; \
+             else if (word_token_alist[i].token == '}' && open_brace_count) \
+               open_brace_count--; \
+             return (word_token_alist[i].token); \
+           } \
+      } \
+  } while (0)
 
-  xbcopy ((char *)&bash_input, (char *)&(saver->bash_input), sizeof (BASH_INPUT));
+#if defined (ALIAS)
 
-#if defined (BUFFERED_INPUT)
-  saver->bstream = (BUFFERED_STREAM *)NULL;
-  /* If we have a buffered stream, clear out buffers[fd]. */
-  if (bash_input.type == st_bstream && bash_input.location.buffered_fd >= 0)
-    saver->bstream = set_buffered_stream (bash_input.location.buffered_fd,
-                                         (BUFFERED_STREAM *)NULL);
-#endif /* BUFFERED_INPUT */
+    /* OK, we have a token.  Let's try to alias expand it, if (and only if)
+       it's eligible.
 
-  saver->line = line_number;
-  bash_input.name = (char *)NULL;
-  saver->next = stream_list;
-  stream_list = saver;
-  EOF_Reached = 0;
-  if (reset_lineno)
-    line_number = 0;
-}
+       It is eligible for expansion if the shell is in interactive mode, and
+       the token is unquoted and the last token read was a command
+       separator (or expand_next_token is set), and we are currently
+       processing an alias (pushed_string_list is non-empty) and this
+       token is not the same as the current or any previously
+       processed alias.
 
-void
-pop_stream ()
+       Special cases that disqualify:
+        In a pattern list in a case statement (parser_state & PST_CASEPAT). */
+static int
+alias_expand_token (token)
+     char *token;
 {
-  if (!stream_list)
-    EOF_Reached = 1;
-  else
+  char *expanded;
+  alias_t *ap;
+
+  if (((parser_state & PST_ALEXPNEXT) || command_token_position (last_read_token)) &&
+       (parser_state & PST_CASEPAT) == 0)
     {
-      STREAM_SAVER *saver = stream_list;
+      ap = find_alias (token);
 
-      EOF_Reached = 0;
-      stream_list = stream_list->next;
+      /* Currently expanding this token. */
+      if (ap && (ap->flags & AL_BEINGEXPANDED))
+       return (NO_EXPANSION);
 
-      init_yy_io (saver->bash_input.getter,
-                 saver->bash_input.ungetter,
-                 saver->bash_input.type,
-                 saver->bash_input.name,
-                 saver->bash_input.location);
+      expanded = ap ? savestring (ap->value) : (char *)NULL;
+      if (expanded)
+       {
+         push_string (expanded, ap->flags & AL_EXPANDNEXT, ap);
+         return (RE_READ_TOKEN);
+       }
+      else
+       /* This is an eligible token that does not have an expansion. */
+       return (NO_EXPANSION);
+    }
+  return (NO_EXPANSION);
+}
+#endif /* ALIAS */
 
-#if defined (BUFFERED_INPUT)
-      /* If we have a buffered stream, restore buffers[fd]. */
-      /* If the input file descriptor was changed while this was on the
-        save stack, update the buffered fd to the new file descriptor and
-        re-establish the buffer <-> bash_input fd correspondence. */
-      if (bash_input.type == st_bstream && bash_input.location.buffered_fd >= 0)
-        {
-          if (bash_input_fd_changed)
-           {
-             bash_input_fd_changed = 0;
-             if (default_buffered_input >= 0)
-               {
-                 bash_input.location.buffered_fd = default_buffered_input;
-                 saver->bstream->b_fd = default_buffered_input;
-               }
-           }
-         set_buffered_stream (bash_input.location.buffered_fd, saver->bstream);
-        }
-#endif /* BUFFERED_INPUT */
-
-      line_number = saver->line;
-
-      FREE (saver->bash_input.name);
-      free (saver);
-    }
-}
-
-/* Return 1 if a stream of type TYPE is saved on the stack. */
-int
-stream_on_stack (type)
-     enum stream_type type;
+static int
+time_command_acceptable ()
 {
-  register STREAM_SAVER *s;
-
-  for (s = stream_list; s; s = s->next)
-    if (s->bash_input.type == type)
+#if defined (COMMAND_TIMING)
+  switch (last_read_token)
+    {
+    case 0:
+    case ';':
+    case '\n':
+    case AND_AND:
+    case OR_OR:
+    case '&':
+    case DO:
+    case THEN:
+    case ELSE:
+    case '{':          /* } */
+    case '(':          /* ) */
       return 1;
+    default:
+      return 0;
+    }
+#else
   return 0;
+#endif /* COMMAND_TIMING */
 }
 
-/* Save the current token state and return it in a malloced array. */
-int *
-save_token_state ()
-{
-  int *ret;
-
-  ret = (int *)xmalloc (3 * sizeof (int));
-  ret[0] = last_read_token;
-  ret[1] = token_before_that;
-  ret[2] = two_tokens_ago;
-  return ret;
-}
-
-void
-restore_token_state (ts)
-     int *ts;
-{
-  if (ts == 0)
-    return;
-  last_read_token = ts[0];
-  token_before_that = ts[1];
-  two_tokens_ago = ts[2];
-}
-
-/*
- * This is used to inhibit alias expansion and reserved word recognition
- * inside case statement pattern lists.  A `case statement pattern list' is:
- *
- *     everything between the `in' in a `case word in' and the next ')'
- *     or `esac'
- *     everything between a `;;' and the next `)' or `esac'
- */
+/* Handle special cases of token recognition:
+       IN is recognized if the last token was WORD and the token
+       before that was FOR or CASE or SELECT.
 
-#if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
+       DO is recognized if the last token was WORD and the token
+       before that was FOR or SELECT.
 
-#if !defined (ALIAS)
-typedef void *alias_t;
-#endif
+       ESAC is recognized if the last token caused `esacs_needed_count'
+       to be set
 
-#define END_OF_ALIAS 0
+       `{' is recognized if the last token as WORD and the token
+       before that was FUNCTION, or if we just parsed an arithmetic
+       `for' command.
 
-/*
- * Pseudo-global variables used in implementing token-wise alias expansion.
- */
+       `}' is recognized if there is an unclosed `{' present.
 
-/*
- * Pushing and popping strings.  This works together with shell_getc to
- * implement alias expansion on a per-token basis.
- */
+       `-p' is returned as TIMEOPT if the last read token was TIME.
 
-typedef struct string_saver {
-  struct string_saver *next;
-  int expand_alias;  /* Value to set expand_alias to when string is popped. */
-  char *saved_line;
-#if defined (ALIAS)
-  alias_t *expander;   /* alias that caused this line to be pushed. */
-#endif
-  int saved_line_size, saved_line_index, saved_line_terminator;
-} STRING_SAVER;
+       ']]' is returned as COND_END if the parser is currently parsing
+       a conditional expression ((parser_state & PST_CONDEXPR) != 0)
 
-STRING_SAVER *pushed_string_list = (STRING_SAVER *)NULL;
+       `time' is returned as TIME if and only if it is immediately
+       preceded by one of `;', `\n', `||', `&&', or `&'.
+*/
 
-/*
- * Push the current shell_input_line onto a stack of such lines and make S
- * the current input.  Used when expanding aliases.  EXPAND is used to set
- * the value of expand_next_token when the string is popped, so that the
- * word after the alias in the original line is handled correctly when the
- * alias expands to multiple words.  TOKEN is the token that was expanded
- * into S; it is saved and used to prevent infinite recursive expansion.
- */
-static void
-push_string (s, expand, ap)
-     char *s;
-     int expand;
-     alias_t *ap;
+static int
+special_case_tokens (token)
+     char *token;
 {
-  STRING_SAVER *temp = (STRING_SAVER *) xmalloc (sizeof (STRING_SAVER));
-
-  temp->expand_alias = expand;
-  temp->saved_line = shell_input_line;
-  temp->saved_line_size = shell_input_line_size;
-  temp->saved_line_index = shell_input_line_index;
-  temp->saved_line_terminator = shell_input_line_terminator;
-#if defined (ALIAS)
-  temp->expander = ap;
+  if ((last_read_token == WORD) &&
+#if defined (SELECT_COMMAND)
+      ((token_before_that == FOR) || (token_before_that == CASE) || (token_before_that == SELECT)) &&
+#else
+      ((token_before_that == FOR) || (token_before_that == CASE)) &&
 #endif
-  temp->next = pushed_string_list;
-  pushed_string_list = temp;
+      (token[0] == 'i' && token[1] == 'n' && token[2] == 0))
+    {
+      if (token_before_that == CASE)
+       {
+         parser_state |= PST_CASEPAT;
+         esacs_needed_count++;
+       }
+      return (IN);
+    }
 
-#if defined (ALIAS)
-  if (ap)
-    ap->flags |= AL_BEINGEXPANDED;
+  if (last_read_token == WORD &&
+#if defined (SELECT_COMMAND)
+      (token_before_that == FOR || token_before_that == SELECT) &&
+#else
+      (token_before_that == FOR) &&
 #endif
+      (token[0] == 'd' && token[1] == 'o' && token[2] == '\0'))
+    return (DO);
 
-  shell_input_line = s;
-  shell_input_line_size = strlen (s);
-  shell_input_line_index = 0;
-  shell_input_line_terminator = '\0';
-  parser_state &= ~PST_ALEXPNEXT;
-}
+  /* Ditto for ESAC in the CASE case.
+     Specifically, this handles "case word in esac", which is a legal
+     construct, certainly because someone will pass an empty arg to the
+     case construct, and we don't want it to barf.  Of course, we should
+     insist that the case construct has at least one pattern in it, but
+     the designers disagree. */
+  if (esacs_needed_count)
+    {
+      esacs_needed_count--;
+      if (STREQ (token, "esac"))
+       {
+         parser_state &= ~PST_CASEPAT;
+         return (ESAC);
+       }
+    }
 
-/*
- * Make the top of the pushed_string stack be the current shell input.
- * Only called when there is something on the stack.  Called from shell_getc
- * when it thinks it has consumed the string generated by an alias expansion
- * and needs to return to the original input line.
- */
-static void
-pop_string ()
-{
-  STRING_SAVER *t;
+  /* The start of a shell function definition. */
+  if (parser_state & PST_ALLOWOPNBRC)
+    {
+      parser_state &= ~PST_ALLOWOPNBRC;
+      if (token[0] == '{' && token[1] == '\0')         /* } */
+       {
+         open_brace_count++;
+         function_bstart = line_number;
+         return ('{');                                 /* } */
+       }
+    }
 
-  FREE (shell_input_line);
-  shell_input_line = pushed_string_list->saved_line;
-  shell_input_line_index = pushed_string_list->saved_line_index;
-  shell_input_line_size = pushed_string_list->saved_line_size;
-  shell_input_line_terminator = pushed_string_list->saved_line_terminator;
+  /* We allow a `do' after a for ((...)) without an intervening
+     list_terminator */
+  if (last_read_token == ARITH_FOR_EXPRS && token[0] == 'd' && token[1] == 'o' && !token[2])
+    return (DO);
+  if (last_read_token == ARITH_FOR_EXPRS && token[0] == '{' && token[1] == '\0')       /* } */
+    {
+      open_brace_count++;
+      return ('{');                    /* } */
+    }
 
-  if (pushed_string_list->expand_alias)
-    parser_state |= PST_ALEXPNEXT;
-  else
-    parser_state &= ~PST_ALEXPNEXT;
+  if (open_brace_count && reserved_word_acceptable (last_read_token) && token[0] == '}' && !token[1])
+    {
+      open_brace_count--;              /* { */
+      return ('}');
+    }
 
-  t = pushed_string_list;
-  pushed_string_list = pushed_string_list->next;
+#if defined (COMMAND_TIMING)
+  /* Handle -p after `time'. */
+  if (last_read_token == TIME && token[0] == '-' && token[1] == 'p' && !token[2])
+    return (TIMEOPT);
+#endif
 
-#if defined (ALIAS)
-  if (t->expander)
-    t->expander->flags &= ~AL_BEINGEXPANDED;
+#if defined (COMMAND_TIMING)
+  if (STREQ (token, "time") && ((parser_state & PST_CASEPAT) == 0) && time_command_acceptable ())
+    return (TIME);
+#endif /* COMMAND_TIMING */
+
+#if defined (COND_COMMAND) /* [[ */
+  if ((parser_state & PST_CONDEXPR) && token[0] == ']' && token[1] == ']' && token[2] == '\0')
+    return (COND_END);
 #endif
 
-  free ((char *)t);
+  return (-1);
 }
 
-static void
-free_string_list ()
+/* Called from shell.c when Control-C is typed at top level.  Or
+   by the error rule at top level. */
+void
+reset_parser ()
 {
-  register STRING_SAVER *t, *t1;
+  dstack.delimiter_depth = 0;  /* No delimiters found so far. */
+  open_brace_count = 0;
 
-  for (t = pushed_string_list; t; )
-    {
-      t1 = t->next;
-      FREE (t->saved_line);
-#if defined (ALIAS)
-      if (t->expander)
-       t->expander->flags &= ~AL_BEINGEXPANDED;
-#endif
-      free ((char *)t);
-      t = t1;
-    }
-  pushed_string_list = (STRING_SAVER *)NULL;
-}
+  parser_state = 0;
 
+#if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
+  if (pushed_string_list)
+    free_string_list ();
 #endif /* ALIAS || DPAREN_ARITHMETIC */
 
-/* Return a line of text, taken from wherever yylex () reads input.
-   If there is no more input, then we return NULL.  If REMOVE_QUOTED_NEWLINE
-   is non-zero, we remove unquoted \<newline> pairs.  This is used by
-   read_secondary_line to read here documents. */
-static char *
-read_a_line (remove_quoted_newline)
-     int remove_quoted_newline;
-{
-  static char *line_buffer = (char *)NULL;
-  static int buffer_size = 0;
-  int indx = 0, c, peekc, pass_next;
-
-#if defined (READLINE)
-  if (interactive && bash_input.type != st_string && no_line_editing)
-#else
-  if (interactive && bash_input.type != st_string)
-#endif
-    print_prompt ();
-
-  pass_next = 0;
-  while (1)
+  if (shell_input_line)
     {
-      c = yy_getc ();
+      free (shell_input_line);
+      shell_input_line = (char *)NULL;
+      shell_input_line_size = shell_input_line_index = 0;
+    }
 
-      /* Allow immediate exit if interrupted during input. */
-      QUIT;
+  FREE (word_desc_to_read);
+  word_desc_to_read = (WORD_DESC *)NULL;
 
-      if (c == 0)
-       continue;
+  last_read_token = '\n';
+  token_to_read = '\n';
+}
 
-      /* If there is no more input, then we return NULL. */
-      if (c == EOF)
-       {
-         if (interactive && bash_input.type == st_stream)
-           clearerr (stdin);
-         if (indx == 0)
-           return ((char *)NULL);
-         c = '\n';
-       }
+/* Read the next token.  Command can be READ (normal operation) or
+   RESET (to normalize state). */
+static int
+read_token (command)
+     int command;
+{
+  int character;               /* Current character. */
+  int peek_char;               /* Temporary look-ahead character. */
+  int result;                  /* The thing to return. */
 
-      /* `+2' in case the final character in the buffer is a newline. */
-      RESIZE_MALLOCED_BUFFER (line_buffer, indx, 2, buffer_size, 128);
+  if (command == RESET)
+    {
+      reset_parser ();
+      return ('\n');
+    }
 
-      /* IF REMOVE_QUOTED_NEWLINES is non-zero, we are reading a
-        here document with an unquoted delimiter.  In this case,
-        the line will be expanded as if it were in double quotes.
-        We allow a backslash to escape the next character, but we
-        need to treat the backslash specially only if a backslash
-        quoting a backslash-newline pair appears in the line. */
-      if (pass_next)
-        {
-         line_buffer[indx++] = c;
-         pass_next = 0;
-        }
-      else if (c == '\\' && remove_quoted_newline)
+  if (token_to_read)
+    {
+      result = token_to_read;
+      if (token_to_read == WORD || token_to_read == ASSIGNMENT_WORD)
        {
-         peekc = yy_getc ();
-         if (peekc == '\n')
-           continue;   /* Make the unquoted \<newline> pair disappear. */
-         else
-           {
-             yy_ungetc (peekc);
-             pass_next = 1;
-             line_buffer[indx++] = c;          /* Preserve the backslash. */
-           }
+         yylval.word = word_desc_to_read;
+         word_desc_to_read = (WORD_DESC *)NULL;
        }
-      else
-       line_buffer[indx++] = c;
+      token_to_read = 0;
+      return (result);
+    }
 
-      if (c == '\n')
+#if defined (COND_COMMAND)
+  if ((parser_state & (PST_CONDCMD|PST_CONDEXPR)) == PST_CONDCMD)
+    {
+      cond_lineno = line_number;
+      parser_state |= PST_CONDEXPR;
+      yylval.command = parse_cond_command ();
+      if (cond_token != COND_END)
        {
-         line_buffer[indx] = '\0';
-         return (line_buffer);
+         if (EOF_Reached && cond_token != COND_ERROR)          /* [[ */
+           parser_error (cond_lineno, "unexpected EOF while looking for `]]'");
+         else if (cond_token != COND_ERROR)
+           parser_error (cond_lineno, "syntax error in conditional expression");
+         return (-1);
        }
+      token_to_read = COND_END;
+      parser_state &= ~(PST_CONDEXPR|PST_CONDCMD);
+      return (COND_CMD);
     }
-}
-
-/* Return a line as in read_a_line (), but insure that the prompt is
-   the secondary prompt.  This is used to read the lines of a here
-   document.  REMOVE_QUOTED_NEWLINE is non-zero if we should remove
-   newlines quoted with backslashes while reading the line.  It is
-   non-zero unless the delimiter of the here document was quoted. */
-char *
-read_secondary_line (remove_quoted_newline)
-     int remove_quoted_newline;
-{
-  prompt_string_pointer = &ps2_prompt;
-  prompt_again ();
-  return (read_a_line (remove_quoted_newline));
-}
-
-/* **************************************************************** */
-/*                                                                 */
-/*                             YYLEX ()                            */
-/*                                                                 */
-/* **************************************************************** */
-
-/* Reserved words.  These are only recognized as the first word of a
-   command. */
-STRING_INT_ALIST word_token_alist[] = {
-  { "if", IF },
-  { "then", THEN },
-  { "else", ELSE },
-  { "elif", ELIF },
-  { "fi", FI },
-  { "case", CASE },
-  { "esac", ESAC },
-  { "for", FOR },
-#if defined (SELECT_COMMAND)
-  { "select", SELECT },
-#endif
-  { "while", WHILE },
-  { "until", UNTIL },
-  { "do", DO },
-  { "done", DONE },
-  { "in", IN },
-  { "function", FUNCTION },
-#if defined (COMMAND_TIMING)
-  { "time", TIME },
-#endif
-  { "{", '{' },
-  { "}", '}' },
-  { "!", BANG },
-#if defined (COND_COMMAND)
-  { "[[", COND_START },
-  { "]]", COND_END },
 #endif
-  { (char *)NULL, 0}
-};
 
-/* XXX - we should also have an alist with strings for other tokens, so we
-         can give more descriptive error messages.  Look at y.tab.h for the
-         other tokens. */
-
-/* These are used by read_token_word, but appear up here so that shell_getc
-   can use them to decide when to add otherwise blank lines to the history. */
-
-/* The primary delimiter stack. */
-struct dstack dstack = {  (char *)NULL, 0, 0 };
+#if defined (ALIAS)
+  /* This is a place to jump back to once we have successfully expanded a
+     token with an alias and pushed the string with push_string () */
+ re_read_token:
+#endif /* ALIAS */
 
-/* A temporary delimiter stack to be used when decoding prompt strings.
-   This is needed because command substitutions in prompt strings (e.g., PS2)
-   can screw up the parser's quoting state. */
-static struct dstack temp_dstack = { (char *)NULL, 0, 0 };
+  /* Read a single word from input.  Start by skipping blanks. */
+  while ((character = shell_getc (1)) != EOF && whitespace (character))
+    ;
 
-/* Macro for accessing the top delimiter on the stack.  Returns the
-   delimiter or zero if none. */
-#define current_delimiter(ds) \
-  (ds.delimiter_depth ? ds.delimiters[ds.delimiter_depth - 1] : 0)
+  if (character == EOF)
+    {
+      EOF_Reached = 1;
+      return (yacc_EOF);
+    }
 
-#define push_delimiter(ds, character) \
-  do \
-    { \
-      if (ds.delimiter_depth + 2 > ds.delimiter_space) \
-       ds.delimiters = xrealloc \
-         (ds.delimiters, (ds.delimiter_space += 10) * sizeof (char)); \
-      ds.delimiters[ds.delimiter_depth] = character; \
-      ds.delimiter_depth++; \
-    } \
-  while (0)
+  if (character == '#' && (!interactive || interactive_comments))
+    {
+      /* A comment.  Discard until EOL or EOF, and then return a newline. */
+      discard_until ('\n');
+      shell_getc (0);
+      character = '\n';        /* this will take the next if statement and return. */
+    }
 
-#define pop_delimiter(ds)      ds.delimiter_depth--
+  if (character == '\n')
+    {
+      /* If we're about to return an unquoted newline, we can go and collect
+        the text of any pending here document. */
+      if (need_here_doc)
+       gather_here_documents ();
 
-/* Return the next shell input character.  This always reads characters
-   from shell_input_line; when that line is exhausted, it is time to
-   read the next line.  This is called by read_token when the shell is
-   processing normal command input. */
+#if defined (ALIAS)
+      parser_state &= ~PST_ALEXPNEXT;
+#endif /* ALIAS */
 
-static int
-shell_getc (remove_quoted_newline)
-     int remove_quoted_newline;
-{
-  register int i;
-  int c;
-  static int mustpop = 0;
+      return (character);
+    }
 
-  QUIT;
+  /* Shell meta-characters. */
+  if (shellmeta (character) && ((parser_state & PST_DBLPAREN) == 0))
+    {
+#if defined (ALIAS)
+      /* Turn off alias tokenization iff this character sequence would
+        not leave us ready to read a command. */
+      if (character == '<' || character == '>')
+       parser_state &= ~PST_ALEXPNEXT;
+#endif /* ALIAS */
 
-#if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
-  /* If shell_input_line[shell_input_line_index] == 0, but there is
-     something on the pushed list of strings, then we don't want to go
-     off and get another line.  We let the code down below handle it. */
+      peek_char = shell_getc (1);
+      if (character == peek_char)
+       {
+         switch (character)
+           {
+           case '<':
+             /* If '<' then we could be at "<<" or at "<<-".  We have to
+                look ahead one more character. */
+             peek_char = shell_getc (1);
+             if (peek_char == '-')
+               return (LESS_LESS_MINUS);
+             else
+               {
+                 shell_ungetc (peek_char);
+                 return (LESS_LESS);
+               }
 
-  if (!shell_input_line || ((!shell_input_line[shell_input_line_index]) &&
-                           (pushed_string_list == (STRING_SAVER *)NULL)))
-#else /* !ALIAS && !DPAREN_ARITHMETIC */
-  if (!shell_input_line || !shell_input_line[shell_input_line_index])
-#endif /* !ALIAS && !DPAREN_ARITHMETIC */
-    {
-      line_number++;
+           case '>':
+             return (GREATER_GREATER);
 
-    restart_read:
+           case ';':
+             parser_state |= PST_CASEPAT;
+#if defined (ALIAS)
+             parser_state &= ~PST_ALEXPNEXT;
+#endif /* ALIAS */
+             return (SEMI_SEMI);
 
-      /* Allow immediate exit if interrupted during input. */
-      QUIT;
+           case '&':
+             return (AND_AND);
 
-      i = 0;
-      shell_input_line_terminator = 0;
+           case '|':
+             return (OR_OR);
 
-#if defined (JOB_CONTROL)
-      /* This can cause a problem when reading a command as the result
-        of a trap, when the trap is called from flush_child.  This call
-        had better not cause jobs to disappear from the job table in
-        that case, or we will have big trouble. */
-      notify_and_cleanup ();
-#else /* !JOB_CONTROL */
-      cleanup_dead_jobs ();
-#endif /* !JOB_CONTROL */
+#if defined (DPAREN_ARITHMETIC) || defined (ARITH_FOR_COMMAND)
+           case '(':           /* ) */
+#  if defined (ARITH_FOR_COMMAND)
+             if (last_read_token == FOR)
+               {
+                 int cmdtyp, len;
+                 char *wval, *wv2;
+                 WORD_DESC *wd;
 
-#if defined (READLINE)
-      if (interactive && bash_input.type != st_string && no_line_editing)
-#else
-      if (interactive && bash_input.type != st_string)
+                 arith_for_lineno = line_number;
+                 cmdtyp = parse_arith_cmd (&wval);
+                 if (cmdtyp == 1)
+                   {
+                     /* parse_arith_cmd adds quotes at the beginning and end
+                        of the string it returns; we need to take those out. */
+                     len = strlen (wval);
+                     wv2 = xmalloc (len);
+                     strncpy (wv2, wval + 1, len - 2);
+                     wv2[len - 2] = '\0';
+                     wd = make_word (wv2);
+                     yylval.word_list = make_word_list (wd, (WORD_LIST *)NULL);
+                     free (wval);
+                     free (wv2);
+                     return (ARITH_FOR_EXPRS);
+                   }
+                 else
+                   return -1;          /* ERROR */
+               }
+#  endif
+#  if defined (DPAREN_ARITHMETIC)
+             if (reserved_word_acceptable (last_read_token))
+               {
+                 int cmdtyp, sline;
+                 char *wval;
+                 WORD_DESC *wd;
+
+                 sline = line_number;
+                 cmdtyp = parse_arith_cmd (&wval);
+                 if (cmdtyp == 1)      /* arithmetic command */
+                   {
+                     wd = make_word (wval);
+                     wd->flags = W_QUOTED;
+                     yylval.word_list = make_word_list (wd, (WORD_LIST *)NULL);
+                     free (wval);      /* make_word copies it */
+                     return (ARITH_CMD);
+                   }
+                 else if (cmdtyp == 0) /* nested subshell */
+                   {
+                     push_string (wval, 0, (alias_t *)NULL);
+                     if ((parser_state & PST_CASEPAT) == 0)
+                       parser_state |= PST_SUBSHELL;
+                     return (character);
+                   }
+                 else                  /* ERROR */
+                   return -1;
+               }
+             break;
+#  endif
 #endif
-       print_prompt ();
+           }
+       }
+      else if (character == '<' && peek_char == '&')
+       return (LESS_AND);
+      else if (character == '>' && peek_char == '&')
+       return (GREATER_AND);
+      else if (character == '<' && peek_char == '>')
+       return (LESS_GREATER);
+      else if (character == '>' && peek_char == '|')
+       return (GREATER_BAR);
+      else if (peek_char == '>' && character == '&')
+       return (AND_GREATER);
 
-      if (bash_input.type == st_stream)
-       clearerr (stdin);
+      shell_ungetc (peek_char);
 
-      while (c = yy_getc ())
+      /* If we look like we are reading the start of a function
+        definition, then let the reader know about it so that
+        we will do the right thing with `{'. */
+      if (character == ')' && last_read_token == '(' && token_before_that == WORD)
        {
-         /* Allow immediate exit if interrupted during input. */
-         QUIT;
+         parser_state |= PST_ALLOWOPNBRC;
+#if defined (ALIAS)
+         parser_state &= ~PST_ALEXPNEXT;
+#endif /* ALIAS */
+         function_dstart = line_number;
+       }
 
-         RESIZE_MALLOCED_BUFFER (shell_input_line, i, 2, shell_input_line_size, 256);
+      /* case pattern lists may be preceded by an optional left paren.  If
+        we're not trying to parse a case pattern list, the left paren
+        indicates a subshell. */
+      if (character == '(' && (parser_state & PST_CASEPAT) == 0) /* ) */
+       parser_state |= PST_SUBSHELL;
+      /*(*/
+      else if ((parser_state & PST_CASEPAT) && character == ')')
+       parser_state &= ~PST_CASEPAT;
+      /*(*/
+      else if ((parser_state & PST_SUBSHELL) && character == ')')
+       parser_state &= ~PST_SUBSHELL;
 
-         if (c == EOF)
-           {
-             if (bash_input.type == st_stream)
-               clearerr (stdin);
+#if defined (PROCESS_SUBSTITUTION)
+      /* Check for the constructs which introduce process substitution.
+        Shells running in `posix mode' don't do process substitution. */
+      if (posixly_correct ||
+         ((character != '>' && character != '<') || peek_char != '('))
+#endif /* PROCESS_SUBSTITUTION */
+       return (character);
+    }
 
-             if (i == 0)
-               shell_input_line_terminator = EOF;
+  /* Hack <&- (close stdin) case. */
+  if (character == '-' && (last_read_token == LESS_AND || last_read_token == GREATER_AND))
+    return (character);
 
-             shell_input_line[i] = '\0';
-             break;
-           }
+  /* Okay, if we got this far, we have to read a word.  Read one,
+     and then check it against the known ones. */
+  result = read_token_word (character);
+#if defined (ALIAS)
+  if (result == RE_READ_TOKEN)
+    goto re_read_token;
+#endif
+  return result;
+}
 
-         shell_input_line[i++] = c;
+/* Match a $(...) or other grouping construct.  This has to handle embedded
+   quoted strings ('', ``, "") and nested constructs.  It also must handle
+   reprompting the user, if necessary, after reading a newline, and returning
+   correct error values if it reads EOF. */
 
-         if (c == '\n')
-           {
-             shell_input_line[--i] = '\0';
-             current_command_line_count++;
-             break;
-           }
-       }
-      shell_input_line_index = 0;
-      shell_input_line_len = i;                /* == strlen (shell_input_line) */
+#define P_FIRSTCLOSE   0x01
+#define P_ALLOWESC     0x02
 
-#if defined (HISTORY)
-      if (remember_on_history && shell_input_line && shell_input_line[0])
-       {
-         char *expansions;
-#  if defined (BANG_HISTORY)
-         int old_hist;
+static char matched_pair_error;
+static char *
+parse_matched_pair (qc, open, close, lenp, flags)
+     int qc;   /* `"' if this construct is within double quotes */
+     int open, close;
+     int *lenp, flags;
+{
+  int count, ch, was_dollar;
+  int pass_next_character, nestlen, ttranslen, start_lineno;
+  char *ret, *nestret, *ttrans;
+  int retind, retsize;
 
-         /* If the current delimiter is a single quote, we should not be
-            performing history expansion, even if we're on a different
-            line from the original single quote. */
-         old_hist = history_expansion_inhibited;
-         if (current_delimiter (dstack) == '\'')
-           history_expansion_inhibited = 1;
-#  endif
-         expansions = pre_process_line (shell_input_line, 1, 1);
-#  if defined (BANG_HISTORY)
-         history_expansion_inhibited = old_hist;
-#  endif
-         if (expansions != shell_input_line)
-           {
-             free (shell_input_line);
-             shell_input_line = expansions;
-             shell_input_line_len = shell_input_line ?
-                                       strlen (shell_input_line) : 0;
-             if (!shell_input_line_len)
-               current_command_line_count--;
+  count = 1;
+  pass_next_character = was_dollar = 0;
 
-             /* We have to force the xrealloc below because we don't know
-                the true allocated size of shell_input_line anymore. */
-             shell_input_line_size = shell_input_line_len;
-           }
-       }
-      /* XXX - this is grotesque */
-      else if (remember_on_history && shell_input_line &&
-              shell_input_line[0] == '\0' &&
-              current_command_line_count > 1 && current_delimiter (dstack))
+  ret = xmalloc (retsize = 64);
+  retind = 0;
+
+  start_lineno = line_number;
+  while (count)
+    {
+      ch = shell_getc ((qc != '\'' || (flags & P_ALLOWESC)) && pass_next_character == 0);
+      if (ch == EOF)
        {
-         /* We know shell_input_line[0] == 0 and we're reading some sort of
-            quoted string.  This means we've got a line consisting of only
-            a newline in a quoted string.  We want to make sure this line
-            gets added to the history. */
-         maybe_add_history (shell_input_line);
+         free (ret);
+         parser_error (start_lineno, "unexpected EOF while looking for matching `%c'", close);
+         EOF_Reached = 1;      /* XXX */
+         return (&matched_pair_error);
        }
 
-#endif /* HISTORY */
+      /* Possible reprompting. */
+      if (ch == '\n' && interactive &&
+           (bash_input.type == st_stdin || bash_input.type == st_stream))
+       prompt_again ();
 
-      if (shell_input_line)
+      if (pass_next_character)         /* last char was backslash */
        {
-         /* Lines that signify the end of the shell's input should not be
-            echoed. */
-         if (echo_input_at_read && (shell_input_line[0] ||
-                                    shell_input_line_terminator != EOF))
-           fprintf (stderr, "%s\n", shell_input_line);
+         pass_next_character = 0;
+         if (qc != '\'' && ch == '\n') /* double-quoted \<newline> disappears. */
+           {
+             if (retind > 0) retind--; /* swallow previously-added backslash */
+             continue;
+           }
+
+         RESIZE_MALLOCED_BUFFER (ret, retind, 2, retsize, 64);
+         if (ch == CTLESC || ch == CTLNUL)
+           ret[retind++] = CTLESC;
+         ret[retind++] = ch;
+         continue;
        }
-      else
+      else if (ch == CTLESC || ch == CTLNUL)   /* special shell escapes */
        {
-         shell_input_line_size = 0;
-         prompt_string_pointer = &current_prompt_string;
-         prompt_again ();
-         goto restart_read;
+         RESIZE_MALLOCED_BUFFER (ret, retind, 2, retsize, 64);
+         ret[retind++] = CTLESC;
+         ret[retind++] = ch;
+         continue;
        }
+      else if (ch == close)            /* ending delimiter */
+       count--;
+#if 1
+      /* handle nested ${...} specially. */
+      else if (open != close && was_dollar && open == '{' && ch == open) /* } */
+       count++;
+#endif
+      else if (((flags & P_FIRSTCLOSE) == 0) && ch == open)            /* nested begin */
+       count++;
 
-      /* Add the newline to the end of this string, iff the string does
-        not already end in an EOF character.  */
-      if (shell_input_line_terminator != EOF)
+      /* Add this character. */
+      RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
+      ret[retind++] = ch;
+
+      if (open == '\'')                        /* '' inside grouping construct */
        {
-         if (shell_input_line_len + 3 > shell_input_line_size)
-           shell_input_line = xrealloc (shell_input_line,
-                                       1 + (shell_input_line_size += 2));
+         if ((flags & P_ALLOWESC) && ch == '\\')
+           pass_next_character++;
+         continue;
+       }
 
-         shell_input_line[shell_input_line_len] = '\n';
-         shell_input_line[shell_input_line_len + 1] = '\0';
+      if (ch == '\\')                  /* backslashes */
+       pass_next_character++;
+
+      if (open != close)               /* a grouping construct */
+       {
+         if (shellquote (ch))
+           {
+             /* '', ``, or "" inside $(...) or other grouping construct. */
+             push_delimiter (dstack, ch);
+             if (was_dollar && ch == '\'')     /* $'...' inside group */
+               nestret = parse_matched_pair (ch, ch, ch, &nestlen, P_ALLOWESC);
+             else
+               nestret = parse_matched_pair (ch, ch, ch, &nestlen, 0);
+             pop_delimiter (dstack);
+             if (nestret == &matched_pair_error)
+               {
+                 free (ret);
+                 return &matched_pair_error;
+               }
+             if (was_dollar && ch == '\'')
+               {
+                 /* Translate $'...' here. */
+                 ttrans = ansiexpand (nestret, 0, nestlen - 1, &ttranslen);
+                 free (nestret);
+                 nestret = sh_single_quote (ttrans);
+                 free (ttrans);
+                 nestlen = strlen (nestret);
+                 retind -= 2;          /* back up before the $' */
+               }
+             else if (was_dollar && ch == '"')
+               {
+                 /* Locale expand $"..." here. */
+                 ttrans = localeexpand (nestret, 0, nestlen - 1, start_lineno, &ttranslen);
+                 free (nestret);
+                 nestret = xmalloc (ttranslen + 3);
+                 nestret[0] = '"';
+                 strcpy (nestret + 1, ttrans);
+                 nestret[ttranslen + 1] = '"';
+                 nestret[ttranslen += 2] = '\0';
+                 free (ttrans);
+                 nestlen = ttranslen;
+                 retind -= 2;          /* back up before the $" */
+               }
+             if (nestlen)
+               {
+                 RESIZE_MALLOCED_BUFFER (ret, retind, nestlen, retsize, 64);
+                 strcpy (ret + retind, nestret);
+                 retind += nestlen;
+               }
+             FREE (nestret);
+           }
+       }
+      /* Parse an old-style command substitution within double quotes as a
+        single word. */
+      /* XXX - sh and ksh93 don't do this - XXX */
+      else if (open == '"' && ch == '`')
+       {
+         nestret = parse_matched_pair (0, '`', '`', &nestlen, 0);
+         if (nestret == &matched_pair_error)
+           {
+             free (ret);
+             return &matched_pair_error;
+           }
+         if (nestlen)
+           {
+             RESIZE_MALLOCED_BUFFER (ret, retind, nestlen, retsize, 64);
+             strcpy (ret + retind, nestret);
+             retind += nestlen;
+           }
+         FREE (nestret);
+       }
+      else if (was_dollar && (ch == '(' || ch == '{' || ch == '['))    /* ) } ] */
+       /* check for $(), $[], or ${} inside quoted string. */
+       {
+         if (open == ch)       /* undo previous increment */
+           count--;
+         if (ch == '(')                /* ) */
+           nestret = parse_matched_pair (0, '(', ')', &nestlen, 0);
+         else if (ch == '{')           /* } */
+           nestret = parse_matched_pair (0, '{', '}', &nestlen, P_FIRSTCLOSE);
+         else if (ch == '[')           /* ] */
+           nestret = parse_matched_pair (0, '[', ']', &nestlen, 0);
+         if (nestret == &matched_pair_error)
+           {
+             free (ret);
+             return &matched_pair_error;
+           }
+         if (nestlen)
+           {
+             RESIZE_MALLOCED_BUFFER (ret, retind, nestlen, retsize, 64);
+             strcpy (ret + retind, nestret);
+             retind += nestlen;
+           }
+         FREE (nestret);
        }
+      was_dollar = (ch == '$');
     }
 
-  c = shell_input_line[shell_input_line_index];
+  ret[retind] = '\0';
+  if (lenp)
+    *lenp = retind;
+  return ret;
+}
 
-  if (c)
-    shell_input_line_index++;
+#if defined (DPAREN_ARITHMETIC) || defined (ARITH_FOR_COMMAND)
+/* We've seen a `(('.  Look for the matching `))'.  If we get it, return 1.
+   If not, assume it's a nested subshell for backwards compatibility and
+   return 0.  In any case, put the characters we've consumed into a locally-
+   allocated buffer and make *ep point to that buffer.  Return -1 on an
+   error, for example EOF. */
+static int
+parse_arith_cmd (ep)
+     char **ep;
+{
+  int exp_lineno, rval, c;
+  char *ttok, *token;
+  int ttoklen;
 
-  if (c == '\\' && remove_quoted_newline &&
-      shell_input_line[shell_input_line_index] == '\n')
+  exp_lineno = line_number;
+  ttok = parse_matched_pair (0, '(', ')', &ttoklen, 0);
+  rval = 1;
+  if (ttok == &matched_pair_error)
+    return -1;
+  /* Check that the next character is the closing right paren.  If
+     not, this is a syntax error. ( */
+  if ((c = shell_getc (0)) != ')')
+    rval = 0;
+
+  token = xmalloc (ttoklen + 4);
+
+  /* (( ... )) -> "..." */
+  token[0] = (rval == 1) ? '"' : '(';
+  strncpy (token + 1, ttok, ttoklen - 1);      /* don't copy the final `)' */
+  if (rval == 1)
     {
-       prompt_again ();
-       line_number++;
-       goto restart_read;
+      token[ttoklen] = '"';
+      token[ttoklen+1] = '\0';
     }
-
-#if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
-  /* If C is NULL, we have reached the end of the current input string.  If
-     pushed_string_list is non-empty, it's time to pop to the previous string
-     because we have fully consumed the result of the last alias expansion.
-     Do it transparently; just return the next character of the string popped
-     to. */
-  if (!c && (pushed_string_list != (STRING_SAVER *)NULL))
+  else
     {
-      if (mustpop)
-        {
-          pop_string ();
-          c = shell_input_line[shell_input_line_index];
-         if (c)
-           shell_input_line_index++;
-         mustpop--;
-        }
-      else
-        {
-          mustpop++;
-          c = ' ';
-        }
+      token[ttoklen] = ')';
+      token[ttoklen+1] = c;
+      token[ttoklen+2] = '\0';
     }
-#endif /* ALIAS || DPAREN_ARITHMETIC */
-
-  if (!c && shell_input_line_terminator == EOF)
-    return ((shell_input_line_index != 0) ? '\n' : EOF);
-
-  return ((unsigned char)c);
+  *ep = token;
+  FREE (ttok);
+  return rval;
 }
+#endif /* DPAREN_ARITHMETIC || ARITH_FOR_COMMAND */
 
-/* Put C back into the input for the shell. */
-static void
-shell_ungetc (c)
-     int c;
-{
-  if (shell_input_line && shell_input_line_index)
-    shell_input_line[--shell_input_line_index] = c;
-}
+#if defined (COND_COMMAND)
+static COND_COM *cond_term ();
+static COND_COM *cond_and ();
+static COND_COM *cond_or ();
+static COND_COM *cond_expr ();
 
-static void
-shell_ungetchar ()
+static COND_COM *
+cond_expr ()
 {
-  if (shell_input_line && shell_input_line_index)
-    shell_input_line_index--;
+  return (cond_or ());  
 }
 
-/* Discard input until CHARACTER is seen, then push that character back
-   onto the input stream. */
-static void
-discard_until (character)
-     int character;
+static COND_COM *
+cond_or ()
 {
-  int c;
-
-  while ((c = shell_getc (0)) != EOF && c != character)
-    ;
+  COND_COM *l, *r;
 
-  if (c != EOF)
-    shell_ungetc (c);
+  l = cond_and ();
+  if (cond_token == OR_OR)
+    {
+      r = cond_or ();
+      l = make_cond_node (COND_OR, (WORD_DESC *)NULL, l, r);
+    }
+  return l;
 }
 
-void
-execute_prompt_command (command)
-     char *command;
+static COND_COM *
+cond_and ()
 {
-  Function *temp_last, *temp_this;
-  char *last_lastarg;
-  int temp_exit_value, temp_eof_encountered;
+  COND_COM *l, *r;
 
-  temp_last = last_shell_builtin;
-  temp_this = this_shell_builtin;
-  temp_exit_value = last_command_exit_value;
-  temp_eof_encountered = eof_encountered;
-  last_lastarg = get_string_value ("_");
-  if (last_lastarg)
-    last_lastarg = savestring (last_lastarg);
-
-  parse_and_execute (savestring (command), "PROMPT_COMMAND", SEVAL_NONINT|SEVAL_NOHIST);
-
-  last_shell_builtin = temp_last;
-  this_shell_builtin = temp_this;
-  last_command_exit_value = temp_exit_value;
-  eof_encountered = temp_eof_encountered;
-
-  bind_variable ("_", last_lastarg);
-  FREE (last_lastarg);
-
-  if (token_to_read == '\n')   /* reset_parser was called */
-    token_to_read = 0;
+  l = cond_term ();
+  if (cond_token == AND_AND)
+    {
+      r = cond_and ();
+      l = make_cond_node (COND_AND, (WORD_DESC *)NULL, l, r);
+    }
+  return l;
 }
 
-/* Place to remember the token.  We try to keep the buffer
-   at a reasonable size, but it can grow. */
-static char *token = (char *)NULL;
-
-/* Current size of the token buffer. */
-static int token_buffer_size;
-
-/* Command to read_token () explaining what we want it to do. */
-#define READ 0
-#define RESET 1
-#define prompt_is_ps1 \
-      (!prompt_string_pointer || prompt_string_pointer == &ps1_prompt)
-
-/* Function for yyparse to call.  yylex keeps track of
-   the last two tokens read, and calls read_token.  */
 static int
-yylex ()
+cond_skip_newlines ()
 {
-  if (interactive && (current_token == 0 || current_token == '\n'))
+  while ((cond_token = read_token (READ)) == '\n')
     {
-      /* Before we print a prompt, we might have to check mailboxes.
-        We do this only if it is time to do so. Notice that only here
-        is the mail alarm reset; nothing takes place in check_mail ()
-        except the checking of mail.  Please don't change this. */
-      if (prompt_is_ps1 && time_to_check_mail ())
-       {
-         check_mail ();
-         reset_mail_timer ();
-       }
-
-      /* Avoid printing a prompt if we're not going to read anything, e.g.
-        after resetting the parser with read_token (RESET). */
-      if (token_to_read == 0 && interactive)
+      if (interactive && (bash_input.type == st_stdin || bash_input.type == st_stream))
        prompt_again ();
     }
-
-  two_tokens_ago = token_before_that;
-  token_before_that = last_read_token;
-  last_read_token = current_token;
-  current_token = read_token (READ);
-  return (current_token);
+  return (cond_token);
 }
 
-/* When non-zero, we have read the required tokens
-   which allow ESAC to be the next one read. */
-static int esacs_needed_count;
+#define COND_RETURN_ERROR() \
+  do { cond_token = COND_ERROR; return ((COND_COM *)NULL); } while (0)
 
-void
-gather_here_documents ()
+static COND_COM *
+cond_term ()
 {
-  int r = 0;
-  while (need_here_doc)
+  WORD_DESC *op;
+  COND_COM *term, *tleft, *tright;
+  int tok, lineno;
+
+  /* Read a token.  It can be a left paren, a `!', a unary operator, or a
+     word that should be the first argument of a binary operator.  Start by
+     skipping newlines, since this is a compound command. */
+  tok = cond_skip_newlines ();
+  lineno = line_number;
+  if (tok == COND_END)
     {
-      make_here_document (redir_stack[r++]);
-      need_here_doc--;
+      COND_RETURN_ERROR ();
     }
-}
-
-/* When non-zero, an open-brace used to create a group is awaiting a close
-   brace partner. */
-static int open_brace_count;
+  else if (tok == '(')
+    {
+      term = cond_expr ();
+      if (cond_token != ')')
+       {
+         if (term)
+           dispose_cond_node (term);           /* ( */
+         parser_error (lineno, "expected `)'");
+         COND_RETURN_ERROR ();
+       }
+      term = make_cond_node (COND_EXPR, (WORD_DESC *)NULL, term, (COND_COM *)NULL);
+      (void)cond_skip_newlines ();
+    }
+  else if (tok == BANG || (tok == WORD && (yylval.word->word[0] == '!' && yylval.word->word[1] == '\0')))
+    {
+      if (tok == WORD)
+       dispose_word (yylval.word);     /* not needed */
+      term = cond_term ();
+      if (term)
+       term->flags |= CMD_INVERT_RETURN;
+    }
+  else if (tok == WORD && test_unop (yylval.word->word))
+    {
+      op = yylval.word;
+      tok = read_token (READ);
+      if (tok == WORD)
+       {
+         tleft = make_cond_node (COND_TERM, yylval.word, (COND_COM *)NULL, (COND_COM *)NULL);
+         term = make_cond_node (COND_UNARY, op, tleft, (COND_COM *)NULL);
+       }
+      else
+       {
+         dispose_word (op);
+         parser_error (line_number, "unexpected argument to conditional unary operator");
+         COND_RETURN_ERROR ();
+       }
 
-#define command_token_position(token) \
-  (((token) == ASSIGNMENT_WORD) || \
-   ((token) != SEMI_SEMI && reserved_word_acceptable(token)))
+      (void)cond_skip_newlines ();
+    }
+  else if (tok == WORD)                /* left argument to binary operator */
+    {
+      /* lhs */
+      tleft = make_cond_node (COND_TERM, yylval.word, (COND_COM *)NULL, (COND_COM *)NULL);
 
-#define assignment_acceptable(token) command_token_position(token) && \
-                                       ((parser_state & PST_CASEPAT) == 0)
+      /* binop */
+      tok = read_token (READ);
+      if (tok == WORD && test_binop (yylval.word->word))
+       op = yylval.word;
+      else if (tok == '<' || tok == '>')
+       op = make_word_from_token (tok);  /* ( */
+      /* There should be a check before blindly accepting the `)' that we have
+        seen the opening `('. */
+      else if (tok == COND_END || tok == AND_AND || tok == OR_OR || tok == ')')
+       {
+         /* Special case.  [[ x ]] is equivalent to [[ -n x ]], just like
+            the test command.  Similarly for [[ x && expr ]] or
+            [[ x || expr ]] or [[ (x) ]]. */
+         op = make_word ("-n");
+         term = make_cond_node (COND_UNARY, op, tleft, (COND_COM *)NULL);
+         cond_token = tok;
+         return (term);
+       }
+      else
+       {
+         parser_error (line_number, "conditional binary operator expected");
+         dispose_cond_node (tleft);
+         COND_RETURN_ERROR ();
+       }
 
-/* Check to see if TOKEN is a reserved word and return the token
-   value if it is. */
-#define CHECK_FOR_RESERVED_WORD(tok) \
-  do { \
-    if (!dollar_present && !quoted && \
-       reserved_word_acceptable (last_read_token)) \
-      { \
-       int i; \
-       for (i = 0; word_token_alist[i].word != (char *)NULL; i++) \
-         if (STREQ (tok, word_token_alist[i].word)) \
-           { \
-             if ((parser_state & PST_CASEPAT) && (word_token_alist[i].token != ESAC)) \
-               break; \
-             if (word_token_alist[i].token == TIME) \
-               break; \
-             if (word_token_alist[i].token == ESAC) \
-               parser_state &= ~(PST_CASEPAT|PST_CASESTMT); \
-             else if (word_token_alist[i].token == CASE) \
-               parser_state |= PST_CASESTMT; \
-             else if (word_token_alist[i].token == COND_END) \
-               parser_state &= ~(PST_CONDCMD|PST_CONDEXPR); \
-             else if (word_token_alist[i].token == COND_START) \
-               parser_state |= PST_CONDCMD; \
-             else if (word_token_alist[i].token == '{') \
-               open_brace_count++; \
-             else if (word_token_alist[i].token == '}' && open_brace_count) \
-               open_brace_count--; \
-             return (word_token_alist[i].token); \
-           } \
-      } \
-  } while (0)
+      /* rhs */
+      tok = read_token (READ);
+      if (tok == WORD)
+       {
+         tright = make_cond_node (COND_TERM, yylval.word, (COND_COM *)NULL, (COND_COM *)NULL);
+         term = make_cond_node (COND_BINARY, op, tleft, tright);
+       }
+      else
+       {
+         parser_error (line_number, "unexpected argument to conditional binary operator");
+         dispose_cond_node (tleft);
+         dispose_word (op);
+         COND_RETURN_ERROR ();
+       }
 
-#if defined (ALIAS)
+      (void)cond_skip_newlines ();
+    }
+  else
+    {
+      if (tok < 256)
+       parser_error (line_number, "unexpected token `%c' in conditional command", tok);
+      else
+       parser_error (line_number, "unexpected token %d in conditional command", tok);
+      COND_RETURN_ERROR ();
+    }
+  return (term);
+}      
 
-    /* OK, we have a token.  Let's try to alias expand it, if (and only if)
-       it's eligible.
+/* This is kind of bogus -- we slip a mini recursive-descent parser in
+   here to handle the conditional statement syntax. */
+static COMMAND *
+parse_cond_command ()
+{
+  COND_COM *cexp;
 
-       It is eligible for expansion if the shell is in interactive mode, and
-       the token is unquoted and the last token read was a command
-       separator (or expand_next_token is set), and we are currently
-       processing an alias (pushed_string_list is non-empty) and this
-       token is not the same as the current or any previously
-       processed alias.
+  cexp = cond_expr ();
+  return (make_cond_command (cexp));
+}
+#endif
 
-       Special cases that disqualify:
-        In a pattern list in a case statement (parser_state & PST_CASEPAT). */
 static int
-alias_expand_token (token)
-     char *token;
+read_token_word (character)
+     int character;
 {
-  char *expanded;
-  alias_t *ap;
+  /* The value for YYLVAL when a WORD is read. */
+  WORD_DESC *the_word;
 
-  if (((parser_state & PST_ALEXPNEXT) || command_token_position (last_read_token)) &&
-       (parser_state & PST_CASEPAT) == 0)
-    {
-      ap = find_alias (token);
+  /* Index into the token that we are building. */
+  int token_index;
 
-      /* Currently expanding this token. */
-      if (ap && (ap->flags & AL_BEINGEXPANDED))
-       return (NO_EXPANSION);
+  /* ALL_DIGITS becomes zero when we see a non-digit. */
+  int all_digits;
 
-      expanded = ap ? savestring (ap->value) : (char *)NULL;
-      if (expanded)
-       {
-         push_string (expanded, ap->flags & AL_EXPANDNEXT, ap);
-         return (RE_READ_TOKEN);
-       }
-      else
-       /* This is an eligible token that does not have an expansion. */
-       return (NO_EXPANSION);
-    }
-  return (NO_EXPANSION);
-}
-#endif /* ALIAS */
-
-static int
-time_command_acceptable ()
-{
-#if defined (COMMAND_TIMING)
-  switch (last_read_token)
-    {
-    case 0:
-    case ';':
-    case '\n':
-    case AND_AND:
-    case OR_OR:
-    case '&':
-    case DO:
-    case THEN:
-    case ELSE:
-    case '{':
-    case '(':
-      return 1;
-    default:
-      return 0;
-    }
-#else
-  return 0;
-#endif /* COMMAND_TIMING */
-}
-
-/* Handle special cases of token recognition:
-       IN is recognized if the last token was WORD and the token
-       before that was FOR or CASE or SELECT.
-
-       DO is recognized if the last token was WORD and the token
-       before that was FOR or SELECT.
-
-       ESAC is recognized if the last token caused `esacs_needed_count'
-       to be set
-
-       `{' is recognized if the last token as WORD and the token
-       before that was FUNCTION.
-
-       `}' is recognized if there is an unclosed `{' prsent.
+  /* DOLLAR_PRESENT becomes non-zero if we see a `$'. */
+  int dollar_present;
 
-       `-p' is returned as TIMEOPT if the last read token was TIME.
+  /* QUOTED becomes non-zero if we see one of ("), ('), (`), or (\). */
+  int quoted;
 
-       ']]' is returned as COND_END if the parser is currently parsing
-       a conditional expression ((parser_state & PST_CONDEXPR) != 0)
+  /* Non-zero means to ignore the value of the next character, and just
+     to add it no matter what. */
+ int pass_next_character;
 
-       `time' is returned as TIME if and only if it is immediately
-       preceded by one of `;', `\n', `||', `&&', or `&'.
-*/
+  /* The current delimiting character. */
+  int cd;
+  int result, peek_char;
+  char *ttok, *ttrans;
+  int ttoklen, ttranslen;
 
-static int
-special_case_tokens (token)
-     char *token;
-{
-  if ((last_read_token == WORD) &&
-#if defined (SELECT_COMMAND)
-      ((token_before_that == FOR) || (token_before_that == CASE) || (token_before_that == SELECT)) &&
-#else
-      ((token_before_that == FOR) || (token_before_that == CASE)) &&
-#endif
-      (token[0] == 'i' && token[1] == 'n' && token[2] == 0))
-    {
-      if (token_before_that == CASE)
-       {
-         parser_state |= PST_CASEPAT;
-         esacs_needed_count++;
-       }
-      return (IN);
-    }
+  if (token_buffer_size < TOKEN_DEFAULT_INITIAL_SIZE)
+    token = xrealloc (token, token_buffer_size = TOKEN_DEFAULT_INITIAL_SIZE);
 
-  if (last_read_token == WORD &&
-#if defined (SELECT_COMMAND)
-      (token_before_that == FOR || token_before_that == SELECT) &&
-#else
-      (token_before_that == FOR) &&
-#endif
-      (token[0] == 'd' && token[1] == 'o' && token[2] == '\0'))
-    return (DO);
+  token_index = 0;
+  all_digits = isdigit (character);
+  dollar_present = quoted = pass_next_character = 0;
 
-  /* Ditto for ESAC in the CASE case.
-     Specifically, this handles "case word in esac", which is a legal
-     construct, certainly because someone will pass an empty arg to the
-     case construct, and we don't want it to barf.  Of course, we should
-     insist that the case construct has at least one pattern in it, but
-     the designers disagree. */
-  if (esacs_needed_count)
+  for (;;)
     {
-      esacs_needed_count--;
-      if (STREQ (token, "esac"))
-       {
-         parser_state &= ~PST_CASEPAT;
-         return (ESAC);
-       }
-    }
+      if (character == EOF)
+       goto got_token;
 
-  /* The start of a shell function definition. */
-  if (parser_state & PST_ALLOWOPNBRC)
-    {
-      parser_state &= ~PST_ALLOWOPNBRC;
-      if (token[0] == '{' && token[1] == '\0')         /* } */
+      if (pass_next_character)
        {
-         open_brace_count++;
-         function_bstart = line_number;
-         return ('{');                                 /* } */
+         pass_next_character = 0;
+         goto got_character;
        }
-    }
-
-  if (open_brace_count && reserved_word_acceptable (last_read_token) && token[0] == '}' && !token[1])
-    {
-      open_brace_count--;              /* { */
-      return ('}');
-    }
-
-#if defined (COMMAND_TIMING)
-  /* Handle -p after `time'. */
-  if (last_read_token == TIME && token[0] == '-' && token[1] == 'p' && !token[2])
-    return (TIMEOPT);
-#endif
-
-#if defined (COMMAND_TIMING)
-  if (STREQ (token, "time") && ((parser_state & PST_CASEPAT) == 0) && time_command_acceptable ())
-    return (TIME);
-#endif /* COMMAND_TIMING */
-
-#if defined (COND_COMMAND) /* [[ */
-  if ((parser_state & PST_CONDEXPR) && token[0] == ']' && token[1] == ']' && token[2] == '\0')
-    return (COND_END);
-#endif
-
-  return (-1);
-}
-
-/* Called from shell.c when Control-C is typed at top level.  Or
-   by the error rule at top level. */
-void
-reset_parser ()
-{
-  dstack.delimiter_depth = 0;  /* No delimiters found so far. */
-  open_brace_count = 0;
-
-  parser_state = 0;
-
-#if defined (ALIAS) || defined (DPAREN_ARITHMETIC)
-  if (pushed_string_list)
-    free_string_list ();
-#endif /* ALIAS || DPAREN_ARITHMETIC */
 
-  if (shell_input_line)
-    {
-      free (shell_input_line);
-      shell_input_line = (char *)NULL;
-      shell_input_line_size = shell_input_line_index = 0;
-    }
+      cd = current_delimiter (dstack);
 
-  FREE (word_desc_to_read);
-  word_desc_to_read = (WORD_DESC *)NULL;
+      /* Handle backslashes.  Quote lots of things when not inside of
+        double-quotes, quote some things inside of double-quotes. */
+      if (character == '\\')
+       {
+         peek_char = shell_getc (0);
 
-  last_read_token = '\n';
-  token_to_read = '\n';
-}
+         /* Backslash-newline is ignored in all cases except
+            when quoted with single quotes. */
+         if (peek_char == '\n')
+           {
+             character = '\n';
+             goto next_character;
+           }
+         else
+           {
+             shell_ungetc (peek_char);
 
-/* Read the next token.  Command can be READ (normal operation) or
-   RESET (to normalize state). */
-static int
-read_token (command)
-     int command;
-{
-  int character;               /* Current character. */
-  int peek_char;               /* Temporary look-ahead character. */
-  int result;                  /* The thing to return. */
+             /* If the next character is to be quoted, note it now. */
+             if (cd == 0 || cd == '`' ||
+                 (cd == '"' && (sh_syntaxtab[peek_char] & CBSDQUOTE)))
+               pass_next_character++;
 
-  if (command == RESET)
-    {
-      reset_parser ();
-      return ('\n');
-    }
+             quoted = 1;
+             goto got_character;
+           }
+       }
 
-  if (token_to_read)
-    {
-      result = token_to_read;
-      if (token_to_read == WORD || token_to_read == ASSIGNMENT_WORD)
+      /* Parse a matched pair of quote characters. */
+      if (shellquote (character))
        {
-         yylval.word = word_desc_to_read;
-         word_desc_to_read = (WORD_DESC *)NULL;
+         push_delimiter (dstack, character);
+         ttok = parse_matched_pair (character, character, character, &ttoklen, 0);
+         pop_delimiter (dstack);
+         if (ttok == &matched_pair_error)
+           return -1;          /* Bail immediately. */
+         RESIZE_MALLOCED_BUFFER (token, token_index, ttoklen + 2,
+                                 token_buffer_size, TOKEN_DEFAULT_GROW_SIZE);
+         token[token_index++] = character;
+         strcpy (token + token_index, ttok);
+         token_index += ttoklen;
+         all_digits = 0;
+         quoted = 1;
+         dollar_present |= (character == '"' && strchr (ttok, '$') != 0);
+         FREE (ttok);
+         goto next_character;
        }
-      token_to_read = 0;
-      return (result);
-    }
 
-#if defined (COND_COMMAND)
-  if ((parser_state & (PST_CONDCMD|PST_CONDEXPR)) == PST_CONDCMD)
-    {
-      cond_lineno = line_number;
-      parser_state |= PST_CONDEXPR;
-      yylval.command = parse_cond_command ();
-      if (cond_token != COND_END)
+#ifdef EXTENDED_GLOB
+      /* Parse a ksh-style extended pattern matching specification. */
+      if (extended_glob && PATTERN_CHAR (character))
        {
-         if (EOF_Reached && cond_token != COND_ERROR)          /* [[ */
-           parser_error (cond_lineno, "unexpected EOF while looking for `]]'");
-         else if (cond_token != COND_ERROR)
-           parser_error (cond_lineno, "syntax error in conditional expression");
-         return (-1);
-       }
-      token_to_read = COND_END;
-      parser_state &= ~(PST_CONDEXPR|PST_CONDCMD);
-      return (COND_CMD);
-    }
-#endif
-
-#if defined (ALIAS)
-  /* This is a place to jump back to once we have successfully expanded a
-     token with an alias and pushed the string with push_string () */
- re_read_token:
-#endif /* ALIAS */
-
-  /* Read a single word from input.  Start by skipping blanks. */
-  while ((character = shell_getc (1)) != EOF && whitespace (character))
-    ;
-
-  if (character == EOF)
-    {
-      EOF_Reached = 1;
-      return (yacc_EOF);
-    }
-
-  if (character == '#' && (!interactive || interactive_comments))
-    {
-      /* A comment.  Discard until EOL or EOF, and then return a newline. */
-      discard_until ('\n');
-      shell_getc (0);
-      character = '\n';        /* this will take the next if statement and return. */
-    }
+         peek_char = shell_getc (1);
+         if (peek_char == '(')         /* ) */
+           {
+             push_delimiter (dstack, peek_char);
+             ttok = parse_matched_pair (cd, '(', ')', &ttoklen, 0);
+             pop_delimiter (dstack);
+             if (ttok == &matched_pair_error)
+               return -1;              /* Bail immediately. */
+             RESIZE_MALLOCED_BUFFER (token, token_index, ttoklen + 2,
+                                     token_buffer_size,
+                                     TOKEN_DEFAULT_GROW_SIZE);
+             token[token_index++] = character;
+             token[token_index++] = peek_char;
+             strcpy (token + token_index, ttok);
+             token_index += ttoklen;
+             FREE (ttok);
+             dollar_present = all_digits = 0;
+             goto next_character;
+           }
+         else
+           shell_ungetc (peek_char);
+       }
+#endif /* EXTENDED_GLOB */
 
-  if (character == '\n')
-    {
-      /* If we're about to return an unquoted newline, we can go and collect
-        the text of any pending here document. */
-      if (need_here_doc)
-       gather_here_documents ();
+      /* If the delimiter character is not single quote, parse some of
+        the shell expansions that must be read as a single word. */
+      if (shellexp (character))
+       {
+         peek_char = shell_getc (1);
+         /* $(...), <(...), >(...), $((...)), ${...}, and $[...] constructs */
+         if (peek_char == '(' ||
+               ((peek_char == '{' || peek_char == '[') && character == '$'))   /* ) ] } */
+           {
+             if (peek_char == '{')             /* } */
+               ttok = parse_matched_pair (cd, '{', '}', &ttoklen, P_FIRSTCLOSE);
+             else if (peek_char == '(')                /* ) */
+               {
+                 /* XXX - push and pop the `(' as a delimiter for use by
+                    the command-oriented-history code.  This way newlines
+                    appearing in the $(...) string get added to the
+                    history literally rather than causing a possibly-
+                    incorrect `;' to be added. ) */
+                 push_delimiter (dstack, peek_char);
+                 ttok = parse_matched_pair (cd, '(', ')', &ttoklen, 0);
+                 pop_delimiter (dstack);
+               }
+             else
+               ttok = parse_matched_pair (cd, '[', ']', &ttoklen, 0);
+             if (ttok == &matched_pair_error)
+               return -1;              /* Bail immediately. */
+             RESIZE_MALLOCED_BUFFER (token, token_index, ttoklen + 2,
+                                     token_buffer_size,
+                                     TOKEN_DEFAULT_GROW_SIZE);
+             token[token_index++] = character;
+             token[token_index++] = peek_char;
+             strcpy (token + token_index, ttok);
+             token_index += ttoklen;
+             FREE (ttok);
+             dollar_present = 1;
+             all_digits = 0;
+             goto next_character;
+           }
+         /* This handles $'...' and $"..." new-style quoted strings. */
+         else if (character == '$' && (peek_char == '\'' || peek_char == '"'))
+           {
+             int first_line;
 
-#if defined (ALIAS)
-      parser_state &= ~PST_ALEXPNEXT;
-#endif /* ALIAS */
+             first_line = line_number;
+             push_delimiter (dstack, peek_char);
+             ttok = parse_matched_pair (peek_char, peek_char, peek_char,
+                                        &ttoklen,
+                                        (peek_char == '\'') ? P_ALLOWESC : 0);
+             pop_delimiter (dstack);
+             if (ttok == &matched_pair_error)
+               return -1;
+             if (peek_char == '\'')
+               {
+                 ttrans = ansiexpand (ttok, 0, ttoklen - 1, &ttranslen);
+                 free (ttok);
+                 /* Insert the single quotes and correctly quote any
+                    embedded single quotes (allowed because P_ALLOWESC was
+                    passed to parse_matched_pair). */
+                 ttok = sh_single_quote (ttrans);
+                 free (ttrans);
+                 ttrans = ttok;
+                 ttranslen = strlen (ttrans);
+               }
+             else
+               {
+                 /* Try to locale-expand the converted string. */
+                 ttrans = localeexpand (ttok, 0, ttoklen - 1, first_line, &ttranslen);
+                 free (ttok);
 
-      return (character);
-    }
+                 /* Add the double quotes back */
+                 ttok = xmalloc (ttranslen + 3);
+                 ttok[0] = '"';
+                 strcpy (ttok + 1, ttrans);
+                 ttok[ttranslen + 1] = '"';
+                 ttok[ttranslen += 2] = '\0';
+                 free (ttrans);
+                 ttrans = ttok;
+               }
 
-  /* Shell meta-characters. */
-  if (shellmeta (character) && ((parser_state & PST_DBLPAREN) == 0))
-    {
-#if defined (ALIAS)
-      /* Turn off alias tokenization iff this character sequence would
-        not leave us ready to read a command. */
-      if (character == '<' || character == '>')
-       parser_state &= ~PST_ALEXPNEXT;
-#endif /* ALIAS */
+             RESIZE_MALLOCED_BUFFER (token, token_index, ttranslen + 2,
+                                     token_buffer_size,
+                                     TOKEN_DEFAULT_GROW_SIZE);
+             strcpy (token + token_index, ttrans);
+             token_index += ttranslen;
+             FREE (ttrans);
+             quoted = 1;
+             all_digits = 0;
+             goto next_character;
+           }
+         /* This could eventually be extended to recognize all of the
+            shell's single-character parameter expansions, and set flags.*/
+         else if (character == '$' && peek_char == '$')
+           {
+             ttok = xmalloc (3);
+             ttok[0] = ttok[1] = '$';
+             ttok[2] = '\0';
+             RESIZE_MALLOCED_BUFFER (token, token_index, 3,
+                                     token_buffer_size,
+                                     TOKEN_DEFAULT_GROW_SIZE);
+             strcpy (token + token_index, ttok);
+             token_index += 2;
+             dollar_present = 1;
+             all_digits = 0;
+             FREE (ttok);
+             goto next_character;
+           }
+         else
+           shell_ungetc (peek_char);
+       }
 
-      peek_char = shell_getc (1);
-      if (character == peek_char)
+#if defined (ARRAY_VARS)
+      /* Identify possible compound array variable assignment. */
+      else if (character == '=' && token_index > 0)
        {
-         switch (character)
+         peek_char = shell_getc (1);
+         if (peek_char == '(')         /* ) */
            {
-           case '<':
-             /* If '<' then we could be at "<<" or at "<<-".  We have to
-                look ahead one more character. */
-             peek_char = shell_getc (1);
-             if (peek_char == '-')
-               return (LESS_LESS_MINUS);
-             else
+             ttok = parse_matched_pair (cd, '(', ')', &ttoklen, 0);
+             if (ttok == &matched_pair_error)
+               return -1;              /* Bail immediately. */
+             if (ttok[0] == '(')       /* ) */
                {
-                 shell_ungetc (peek_char);
-                 return (LESS_LESS);
+                 FREE (ttok);
+                 return -1;
                }
+             RESIZE_MALLOCED_BUFFER (token, token_index, ttoklen + 2,
+                                     token_buffer_size,
+                                     TOKEN_DEFAULT_GROW_SIZE);
+             token[token_index++] = character;
+             token[token_index++] = peek_char;
+             strcpy (token + token_index, ttok);
+             token_index += ttoklen;
+             FREE (ttok);
+             all_digits = 0;
+             goto next_character;
+           }
+         else
+           shell_ungetc (peek_char);
+       }
+#endif
 
-           case '>':
-             return (GREATER_GREATER);
+      /* When not parsing a multi-character word construct, shell meta-
+        characters break words. */
+      if (shellbreak (character))
+       {
+         shell_ungetc (character);
+         goto got_token;
+       }
 
-           case ';':
-             parser_state |= PST_CASEPAT;
-#if defined (ALIAS)
-             parser_state &= ~PST_ALEXPNEXT;
-#endif /* ALIAS */
-             return (SEMI_SEMI);
+    got_character:
 
-           case '&':
-             return (AND_AND);
+      all_digits &= isdigit (character);
+      dollar_present |= character == '$';
 
-           case '|':
-             return (OR_OR);
+      if (character == CTLESC || character == CTLNUL)
+       token[token_index++] = CTLESC;
 
-#if defined (DPAREN_ARITHMETIC) || defined (ARITH_FOR_COMMAND)
-           case '(':           /* ) */
-#  if defined (ARITH_FOR_COMMAND)
-             if (last_read_token == FOR)
-               {
-                 int cmdtyp, len;
-                 char *wval, *wv2;
-                 WORD_DESC *wd;
+      token[token_index++] = character;
 
-                 arith_for_lineno = line_number;
-                 cmdtyp = parse_arith_cmd (&wval);
-                 if (cmdtyp == 1)
-                   {
-                     /* parse_arith_cmd adds quotes at the beginning and end
-                        of the string it returns; we need to take those out. */
-                     len = strlen (wval);
-                     wv2 = xmalloc (len);
-                     strncpy (wv2, wval + 1, len - 2);
-                     wv2[len - 2] = '\0';
-                     wd = make_word (wv2);
-                     yylval.word_list = make_word_list (wd, (WORD_LIST *)NULL);
-                     free (wval);
-                     free (wv2);
-                     return (ARITH_FOR_EXPRS);
-                   }
-                 else
-                   return -1;          /* ERROR */
-               }
-#  endif
-#  if defined (DPAREN_ARITHMETIC)
-             if (reserved_word_acceptable (last_read_token))
-               {
-                 int cmdtyp, sline;
-                 char *wval;
-                 WORD_DESC *wd;
+      RESIZE_MALLOCED_BUFFER (token, token_index, 1, token_buffer_size,
+                             TOKEN_DEFAULT_GROW_SIZE);
 
-                 sline = line_number;
-                 cmdtyp = parse_arith_cmd (&wval);
-                 if (cmdtyp == 1)      /* arithmetic command */
-                   {
-                     wd = make_word (wval);
-                     wd->flags = W_QUOTED;
-                     yylval.word_list = make_word_list (wd, (WORD_LIST *)NULL);
-                     free (wval);      /* make_word copies it */
-                     return (ARITH_CMD);
-                   }
-                 else if (cmdtyp == 0) /* nested subshell */
-                   {
-                     push_string (wval, 0, (alias_t *)NULL);
-                     if ((parser_state & PST_CASEPAT) == 0)
-                       parser_state |= PST_SUBSHELL;
-                     return (character);
-                   }
-                 else                  /* ERROR */
-                   return -1;
-               }
-             break;
-#  endif
-#endif
-           }
-       }
-      else if (character == '<' && peek_char == '&')
-       return (LESS_AND);
-      else if (character == '>' && peek_char == '&')
-       return (GREATER_AND);
-      else if (character == '<' && peek_char == '>')
-       return (LESS_GREATER);
-      else if (character == '>' && peek_char == '|')
-       return (GREATER_BAR);
-      else if (peek_char == '>' && character == '&')
-       return (AND_GREATER);
+    next_character:
+      if (character == '\n' && interactive &&
+       (bash_input.type == st_stdin || bash_input.type == st_stream))
+       prompt_again ();
 
-      shell_ungetc (peek_char);
+      /* We want to remove quoted newlines (that is, a \<newline> pair)
+        unless we are within single quotes or pass_next_character is
+        set (the shell equivalent of literal-next). */
+      cd = current_delimiter (dstack);
+      character = shell_getc (cd != '\'' && pass_next_character == 0);
+    }  /* end for (;;) */
 
-      /* If we look like we are reading the start of a function
-        definition, then let the reader know about it so that
-        we will do the right thing with `{'. */
-      if (character == ')' && last_read_token == '(' && token_before_that == WORD)
-       {
-         parser_state |= PST_ALLOWOPNBRC;
-#if defined (ALIAS)
-         parser_state &= ~PST_ALEXPNEXT;
-#endif /* ALIAS */
-         function_dstart = line_number;
-       }
+got_token:
 
-      /* case pattern lists may be preceded by an optional left paren.  If
-        we're not trying to parse a case pattern list, the left paren
-        indicates a subshell. */
-      if (character == '(' && (parser_state & PST_CASEPAT) == 0) /* ) */
-       parser_state |= PST_SUBSHELL;
-      /*(*/
-      else if ((parser_state & PST_CASEPAT) && character == ')')
-        parser_state &= ~PST_CASEPAT;
-      /*(*/
-      else if ((parser_state & PST_SUBSHELL) && character == ')')
-       parser_state &= ~PST_SUBSHELL;
+  token[token_index] = '\0';
 
-#if defined (PROCESS_SUBSTITUTION)
-      /* Check for the constructs which introduce process substitution.
-        Shells running in `posix mode' don't do process substitution. */
-      if (posixly_correct ||
-         ((character != '>' && character != '<') || peek_char != '('))
-#endif /* PROCESS_SUBSTITUTION */
-       return (character);
-    }
+  /* Check to see what thing we should return.  If the last_read_token
+     is a `<', or a `&', or the character which ended this token is
+     a '>' or '<', then, and ONLY then, is this input token a NUMBER.
+     Otherwise, it is just a word, and should be returned as such. */
+  if (all_digits && (character == '<' || character == '>' ||
+                   last_read_token == LESS_AND ||
+                   last_read_token == GREATER_AND))
+      {
+       yylval.number = atoi (token);
+       return (NUMBER);
+      }
 
-  /* Hack <&- (close stdin) case. */
-  if (character == '-' && (last_read_token == LESS_AND || last_read_token == GREATER_AND))
-    return (character);
+  /* Check for special case tokens. */
+  result = special_case_tokens (token);
+  if (result >= 0)
+    return result;
 
-  /* Okay, if we got this far, we have to read a word.  Read one,
-     and then check it against the known ones. */
-  result = read_token_word (character);
 #if defined (ALIAS)
-  if (result == RE_READ_TOKEN)
-    goto re_read_token;
+  /* Posix.2 does not allow reserved words to be aliased, so check for all
+     of them, including special cases, before expanding the current token
+     as an alias. */
+  if (posixly_correct)
+    CHECK_FOR_RESERVED_WORD (token);
+
+  /* Aliases are expanded iff EXPAND_ALIASES is non-zero, and quoting
+     inhibits alias expansion. */
+  if (expand_aliases && quoted == 0)
+    {
+      result = alias_expand_token (token);
+      if (result == RE_READ_TOKEN)
+       return (RE_READ_TOKEN);
+      else if (result == NO_EXPANSION)
+       parser_state &= ~PST_ALEXPNEXT;
+    }
+
+  /* If not in Posix.2 mode, check for reserved words after alias
+     expansion. */
+  if (posixly_correct == 0)
 #endif
-  return result;
-}
+    CHECK_FOR_RESERVED_WORD (token);
 
-/* Match a $(...) or other grouping construct.  This has to handle embedded
-   quoted strings ('', ``, "") and nested constructs.  It also must handle
-   reprompting the user, if necessary, after reading a newline, and returning
-   correct error values if it reads EOF. */
+  the_word = (WORD_DESC *)xmalloc (sizeof (WORD_DESC));
+  the_word->word = xmalloc (1 + token_index);
+  the_word->flags = 0;
+  strcpy (the_word->word, token);
+  if (dollar_present)
+    the_word->flags |= W_HASDOLLAR;
+  if (quoted)
+    the_word->flags |= W_QUOTED;
+  /* A word is an assignment if it appears at the beginning of a
+     simple command, or after another assignment word.  This is
+     context-dependent, so it cannot be handled in the grammar. */
+  if (assignment (token))
+    {
+      the_word->flags |= W_ASSIGNMENT;
+      /* Don't perform word splitting on assignment statements. */
+      if (assignment_acceptable (last_read_token))
+       the_word->flags |= W_NOSPLIT;
+    }
 
-#define P_FIRSTCLOSE   0x01
-#define P_ALLOWESC     0x02
+  yylval.word = the_word;
 
-static char matched_pair_error;
+  result = ((the_word->flags & (W_ASSIGNMENT|W_NOSPLIT)) == (W_ASSIGNMENT|W_NOSPLIT))
+               ? ASSIGNMENT_WORD : WORD;
+
+  if (last_read_token == FUNCTION)
+    {
+      parser_state |= PST_ALLOWOPNBRC;
+      function_dstart = line_number;
+    }
+
+  return (result);
+}
+
+/* $'...' ANSI-C expand the portion of STRING between START and END and
+   return the result.  The result cannot be longer than the input string. */
 static char *
-parse_matched_pair (qc, open, close, lenp, flags)
-     int qc;   /* `"' if this construct is within double quotes */
-     int open, close;
-     int *lenp, flags;
+ansiexpand (string, start, end, lenp)
+     char *string;
+     int start, end, *lenp;
 {
-  int count, ch, was_dollar;
-  int pass_next_character, nestlen, start_lineno;
-  char *ret, *nestret;
-  int retind, retsize;
+  char *temp, *t;
+  int len, tlen;
 
-  count = 1;
-  pass_next_character = was_dollar = 0;
+  temp = xmalloc (end - start + 1);
+  for (tlen = 0, len = start; len < end; )
+    temp[tlen++] = string[len++];
+  temp[tlen] = '\0';
 
-  ret = xmalloc (retsize = 64);
-  retind = 0;
+  if (*temp)
+    {
+      t = ansicstr (temp, tlen, 0, (int *)NULL, lenp);
+      free (temp);
+      return (t);
+    }
+  else
+    {
+      if (lenp)
+       *lenp = 0;
+      return (temp);
+    }
+}
 
-  start_lineno = line_number;
-  while (count)
+/* Change a bash string into a string suitable for inclusion in a `po' file.
+   This backslash-escapes `"' and `\' and changes newlines into \\\n"\n". */
+static char *
+mk_msgstr (string, foundnlp)
+     char *string;
+     int *foundnlp;
+{
+  register int c, len;
+  char *result, *r, *s;
+
+  for (len = 0, s = string; s && *s; s++)
     {
-      ch = shell_getc ((qc != '\'' || (flags & P_ALLOWESC)) && pass_next_character == 0);
-      if (ch == EOF)
+      len++;
+      if (*s == '"' || *s == '\\')
+       len++;
+      else if (*s == '\n')
+       len += 5;
+    }
+  
+  r = result = xmalloc (len + 3);
+  *r++ = '"';
+
+  for (s = string; s && (c = *s); s++)
+    {
+      if (c == '\n')   /* <NL> -> \n"<NL>" */
        {
-         free (ret);
-         parser_error (start_lineno, "unexpected EOF while looking for matching `%c'", close);
-         EOF_Reached = 1;      /* XXX */
-         return (&matched_pair_error);
+         *r++ = '\\';
+         *r++ = 'n';
+         *r++ = '"';
+         *r++ = '\n';
+         *r++ = '"';
+         if (foundnlp)
+           *foundnlp = 1;
+         continue;
        }
+      if (c == '"' || c == '\\')
+       *r++ = '\\';
+      *r++ = c;
+    }
 
-      /* Possible reprompting. */
-      if (ch == '\n' && interactive &&
-           (bash_input.type == st_stdin || bash_input.type == st_stream))
-       prompt_again ();
+  *r++ = '"';
+  *r++ = '\0';
 
-      if (pass_next_character)         /* last char was backslash */
-       {
-         pass_next_character = 0;
-         if (qc != '\'' && ch == '\n') /* double-quoted \<newline> disappears. */
-           {
-             if (retind > 0) retind--; /* swallow previously-added backslash */
-             continue;
-           }
+  return result;
+}
 
-         RESIZE_MALLOCED_BUFFER (ret, retind, 2, retsize, 64);
-         if (ch == CTLESC || ch == CTLNUL)
-           ret[retind++] = CTLESC;
-         ret[retind++] = ch;
-         continue;
-       }
-      else if (ch == CTLESC || ch == CTLNUL)   /* special shell escapes */
-       {
-         RESIZE_MALLOCED_BUFFER (ret, retind, 2, retsize, 64);
-         ret[retind++] = CTLESC;
-         ret[retind++] = ch;
-         continue;
-       }
-      else if (ch == close)            /* ending delimiter */
-       count--;
-#if 1
-      /* handle nested ${...} specially. */
-      else if (open != close && was_dollar && open == '{' && ch == open) /* } */
-        count++;
-#endif
-      else if (((flags & P_FIRSTCLOSE) == 0) && ch == open)            /* nested begin */
-       count++;
+/* $"..." -- Translate the portion of STRING between START and END
+   according to current locale using gettext (if available) and return
+   the result.  The caller will take care of leaving the quotes intact.
+   The string will be left without the leading `$' by the caller.
+   If translation is performed, the translated string will be double-quoted
+   by the caller.  The length of the translated string is returned in LENP,
+   if non-null. */
+static char *
+localeexpand (string, start, end, lineno, lenp)
+     char *string;
+     int start, end, lineno, *lenp;
+{
+  int len, tlen, foundnl;
+  char *temp, *t, *t2;
 
-      /* Add this character. */
-      RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);
-      ret[retind++] = ch;
+  temp = xmalloc (end - start + 1);
+  for (tlen = 0, len = start; len < end; )
+    temp[tlen++] = string[len++];
+  temp[tlen] = '\0';
 
-      if (open == '\'')                        /* '' inside grouping construct */
+  /* If we're just dumping translatable strings, don't do anything with the
+     string itself, but if we're dumping in `po' file format, convert it into a form more palatable to gettext(3)
+     and friends by quoting `"' and `\' with backslashes and converting <NL>
+     into `\n"<NL>"'.  If we find a newline in TEMP, we first output a
+     `msgid ""' line and then the translated string; otherwise we output the
+     `msgid' and translated string all on one line. */
+  if (dump_translatable_strings)
+    {
+      if (dump_po_strings)
        {
-         if ((flags & P_ALLOWESC) && ch == '\\')
-           pass_next_character++;
-         continue;
-       }
-
-      if (ch == '\\')                  /* backslashes */
-       pass_next_character++;
+         foundnl = 0;
+         t = mk_msgstr (temp, &foundnl);
+         t2 = foundnl ? "\"\"\n" : "";
 
-      if (open != close)               /* a grouping construct */
-       {
-         if (shellquote (ch))
-           {
-             /* '', ``, or "" inside $(...) or other grouping construct. */
-             push_delimiter (dstack, ch);
-             nestret = parse_matched_pair (ch, ch, ch, &nestlen, 0);
-             pop_delimiter (dstack);
-             if (nestret == &matched_pair_error)
-               {
-                 free (ret);
-                 return &matched_pair_error;
-               }
-             if (nestlen)
-               {
-                 RESIZE_MALLOCED_BUFFER (ret, retind, nestlen, retsize, 64);
-                 strcpy (ret + retind, nestret);
-                 retind += nestlen;
-               }
-             FREE (nestret);
-           }
-       }
-      /* Parse an old-style command substitution within double quotes as a
-        single word. */
-      /* XXX - sh and ksh93 don't do this - XXX */
-      else if (open == '"' && ch == '`')
-       {
-         nestret = parse_matched_pair (0, '`', '`', &nestlen, 0);
-         if (nestret == &matched_pair_error)
-           {
-             free (ret);
-             return &matched_pair_error;
-           }
-         if (nestlen)
-           {
-             RESIZE_MALLOCED_BUFFER (ret, retind, nestlen, retsize, 64);
-             strcpy (ret + retind, nestret);
-             retind += nestlen;
-           }
-         FREE (nestret);
-       }
-      else if (was_dollar && (ch == '(' || ch == '{' || ch == '['))    /* ) } ] */
-       /* check for $(), $[], or ${} inside quoted string. */
-       {
-         if (open == ch)       /* undo previous increment */
-           count--;
-         if (ch == '(')                /* ) */
-           nestret = parse_matched_pair (0, '(', ')', &nestlen, 0);
-         else if (ch == '{')           /* } */
-           nestret = parse_matched_pair (0, '{', '}', &nestlen, P_FIRSTCLOSE);
-         else if (ch == '[')           /* ] */
-           nestret = parse_matched_pair (0, '[', ']', &nestlen, 0);
-         if (nestret == &matched_pair_error)
-           {
-             free (ret);
-             return &matched_pair_error;
-           }
-         if (nestlen)
-           {
-             RESIZE_MALLOCED_BUFFER (ret, retind, nestlen, retsize, 64);
-             strcpy (ret + retind, nestret);
-             retind += nestlen;
-           }
-         FREE (nestret);
+         printf ("#: %s:%d\nmsgid %s%s\nmsgstr \"\"\n",
+                 (bash_input.name ? bash_input.name : "stdin"), lineno, t2, t);
+         free (t);
        }
-      was_dollar = (ch == '$');
-    }
-
-  ret[retind] = '\0';
-  if (lenp)
-    *lenp = retind;
-  return ret;
-}
-
-#if defined (DPAREN_ARITHMETIC) || defined (ARITH_FOR_COMMAND)
-/* We've seen a `(('.  Look for the matching `))'.  If we get it, return 1.
-   If not, assume it's a nested subshell for backwards compatibility and
-   return 0.  In any case, put the characters we've consumed into a locally-
-   allocated buffer and make *ep point to that buffer.  Return -1 on an
-   error, for example EOF. */
-static int
-parse_arith_cmd (ep)
-     char **ep;
-{
-  int exp_lineno, rval, c;
-  char *ttok, *token;
-  int ttoklen;
-
-  exp_lineno = line_number;
-  ttok = parse_matched_pair (0, '(', ')', &ttoklen, 0);
-  rval = 1;
-  if (ttok == &matched_pair_error)
-    return -1;
-  /* Check that the next character is the closing right paren.  If
-     not, this is a syntax error. ( */
-  if ((c = shell_getc (0)) != ')')
-    rval = 0;
-
-  token = xmalloc (ttoklen + 4);
+      else
+       printf ("\"%s\"\n", temp);
 
-  /* (( ... )) -> "..." */
-  token[0] = (rval == 1) ? '"' : '(';
-  strncpy (token + 1, ttok, ttoklen - 1);      /* don't copy the final `)' */
-  if (rval == 1)
+      if (lenp)
+       *lenp = tlen;
+      return (temp);
+    }
+  else if (*temp)
     {
-      token[ttoklen] = '"';
-      token[ttoklen+1] = '\0';
+      t = localetrans (temp, tlen, &len);
+      free (temp);
+      if (lenp)
+       *lenp = len;
+      return (t);
     }
   else
     {
-      token[ttoklen] = ')';
-      token[ttoklen+1] = c;
-      token[ttoklen+2] = '\0';
+      if (lenp)
+       *lenp = 0;
+      return (temp);
     }
-  *ep = token;
-  FREE (ttok);
-  return rval;
 }
-#endif /* DPAREN_ARITHMETIC || ARITH_FOR_COMMAND */
-
-#if defined (COND_COMMAND)
-static COND_COM *cond_term ();
-static COND_COM *cond_and ();
-static COND_COM *cond_or ();
-static COND_COM *cond_expr ();
 
-static COND_COM *
-cond_expr ()
+/* Return 1 if TOKEN is a token that after being read would allow
+   a reserved word to be seen, else 0. */
+static int
+reserved_word_acceptable (token)
+     int token;
 {
-  return (cond_or ());  
+  if (token == '\n' || token == ';' || token == '(' || token == ')' ||
+      token == '|' || token == '&' || token == '{' ||
+      token == '}' ||                  /* XXX */
+      token == AND_AND ||
+      token == BANG ||
+      token == TIME || token == TIMEOPT ||
+      token == DO ||
+      token == ELIF ||
+      token == ELSE ||
+      token == FI ||
+      token == IF ||
+      token == OR_OR ||
+      token == SEMI_SEMI ||
+      token == THEN ||
+      token == UNTIL ||
+      token == WHILE ||
+      token == DONE ||         /* XXX these two are experimental */
+      token == ESAC ||
+      token == 0)
+    return (1);
+  else
+    return (0);
 }
 
-static COND_COM *
-cond_or ()
+/* Return the index of TOKEN in the alist of reserved words, or -1 if
+   TOKEN is not a shell reserved word. */
+int
+find_reserved_word (token)
+     char *token;
 {
-  COND_COM *l, *r;
+  int i;
+  for (i = 0; word_token_alist[i].word; i++)
+    if (STREQ (token, word_token_alist[i].word))
+      return i;
+  return -1;
+}
 
-  l = cond_and ();
-  if (cond_token == OR_OR)
-    {
-      r = cond_or ();
-      l = make_cond_node (COND_OR, (WORD_DESC *)NULL, l, r);
-    }
-  return l;
-}
-
-static COND_COM *
-cond_and ()
+#if 0
+#if defined (READLINE)
+/* Called after each time readline is called.  This insures that whatever
+   the new prompt string is gets propagated to readline's local prompt
+   variable. */
+static void
+reset_readline_prompt ()
 {
-  COND_COM *l, *r;
+  char *temp_prompt;
 
-  l = cond_term ();
-  if (cond_token == AND_AND)
+  if (prompt_string_pointer)
     {
-      r = cond_and ();
-      l = make_cond_node (COND_AND, (WORD_DESC *)NULL, l, r);
-    }
-  return l;
-}
+      temp_prompt = (*prompt_string_pointer)
+                       ? decode_prompt_string (*prompt_string_pointer)
+                       : (char *)NULL;
 
-static int
-cond_skip_newlines ()
-{
-  while ((cond_token = read_token (READ)) == '\n')
-    {
-      if (interactive && (bash_input.type == st_stdin || bash_input.type == st_stream))
-       prompt_again ();
+      if (temp_prompt == 0)
+       {
+         temp_prompt = xmalloc (1);
+         temp_prompt[0] = '\0';
+       }
+
+      FREE (current_readline_prompt);
+      current_readline_prompt = temp_prompt;
     }
-  return (cond_token);
 }
+#endif /* READLINE */
+#endif /* 0 */
 
-#define COND_RETURN_ERROR() \
-  do { cond_token = COND_ERROR; return ((COND_COM *)NULL); } while (0)
+#if defined (HISTORY)
+/* A list of tokens which can be followed by newlines, but not by
+   semi-colons.  When concatenating multiple lines of history, the
+   newline separator for such tokens is replaced with a space. */
+static int no_semi_successors[] = {
+  '\n', '{', '(', ')', ';', '&', '|',
+  CASE, DO, ELSE, IF, SEMI_SEMI, THEN, UNTIL, WHILE, AND_AND, OR_OR, IN,
+  0
+};
 
-static COND_COM *
-cond_term ()
+/* If we are not within a delimited expression, try to be smart
+   about which separators can be semi-colons and which must be
+   newlines.  Returns the string that should be added into the
+   history entry. */
+char *
+history_delimiting_chars ()
 {
-  WORD_DESC *op;
-  COND_COM *term, *tleft, *tright;
-  int tok, lineno;
+  register int i;
 
-  /* Read a token.  It can be a left paren, a `!', a unary operator, or a
-     word that should be the first argument of a binary operator.  Start by
-     skipping newlines, since this is a compound command. */
-  tok = cond_skip_newlines ();
-  lineno = line_number;
-  if (tok == COND_END)
+  if (dstack.delimiter_depth != 0)
+    return ("\n");
+    
+  /* First, handle some special cases. */
+  /*(*/
+  /* If we just read `()', assume it's a function definition, and don't
+     add a semicolon.  If the token before the `)' was not `(', and we're
+     not in the midst of parsing a case statement, assume it's a
+     parenthesized command and add the semicolon. */
+  /*)(*/
+  if (token_before_that == ')')
     {
-      COND_RETURN_ERROR ();
+      if (two_tokens_ago == '(')       /*)*/   /* function def */
+       return " ";
+      /* This does not work for subshells inside case statement
+        command lists.  It's a suboptimal solution. */
+      else if (parser_state & PST_CASESTMT)    /* case statement pattern */
+       return " ";
+      else     
+       return "; ";                            /* (...) subshell */
     }
-  else if (tok == '(')
+  else if (token_before_that == WORD && two_tokens_ago == FUNCTION)
+    return " ";                /* function def using `function name' without `()' */
+
+  else if (token_before_that == WORD && two_tokens_ago == FOR)
     {
-      term = cond_expr ();
-      if (cond_token != ')')
-       {
-         if (term)
-           dispose_cond_node (term);           /* ( */
-         parser_error (lineno, "expected `)'");
-         COND_RETURN_ERROR ();
-       }
-      term = make_cond_node (COND_EXPR, (WORD_DESC *)NULL, term, (COND_COM *)NULL);
-      (void)cond_skip_newlines ();
+      /* Tricky.  `for i\nin ...' should not have a semicolon, but
+        `for i\ndo ...' should.  We do what we can. */
+      for (i = shell_input_line_index; whitespace(shell_input_line[i]); i++)
+       ;
+      if (shell_input_line[i] && shell_input_line[i] == 'i' && shell_input_line[i+1] == 'n')
+       return " ";
+      return ";";
     }
-  else if (tok == BANG || (tok == WORD && (yylval.word->word[0] == '!' && yylval.word->word[1] == '\0')))
+
+  for (i = 0; no_semi_successors[i]; i++)
     {
-      if (tok == WORD)
-       dispose_word (yylval.word);     /* not needed */
-      term = cond_term ();
-      if (term)
-       term->flags |= CMD_INVERT_RETURN;
+      if (token_before_that == no_semi_successors[i])
+       return (" ");
     }
-  else if (tok == WORD && test_unop (yylval.word->word))
-    {
-      op = yylval.word;
-      tok = read_token (READ);
-      if (tok == WORD)
-       {
-         tleft = make_cond_node (COND_TERM, yylval.word, (COND_COM *)NULL, (COND_COM *)NULL);
-         term = make_cond_node (COND_UNARY, op, tleft, (COND_COM *)NULL);
-       }
-      else
-       {
-         dispose_word (op);
-         parser_error (line_number, "unexpected argument to conditional unary operator");
-         COND_RETURN_ERROR ();
-       }
 
-      (void)cond_skip_newlines ();
-    }
-  else if (tok == WORD)                /* left argument to binary operator */
-    {
-      /* lhs */
-      tleft = make_cond_node (COND_TERM, yylval.word, (COND_COM *)NULL, (COND_COM *)NULL);
+  return ("; ");
+}
+#endif /* HISTORY */
 
-      /* binop */
-      tok = read_token (READ);
-      if (tok == WORD && test_binop (yylval.word->word))
-        op = yylval.word;
-      else if (tok == '<' || tok == '>')
-        op = make_word_from_token (tok);
-      else if (tok == COND_END || tok == AND_AND || tok == OR_OR)
-       {
-         /* Special case.  [[ x ]] is equivalent to [[ -n x ]], just like
-            the test command.  Similarly for [[ x && expr ]] or
-            [[ x || expr ]] */
-         op = make_word ("-n");
-         term = make_cond_node (COND_UNARY, op, tleft, (COND_COM *)NULL);
-         cond_token = tok;
-         return (term);
-       }
-      else
-       {
-         parser_error (line_number, "conditional binary operator expected");
-         dispose_cond_node (tleft);
-         COND_RETURN_ERROR ();
-       }
+/* Issue a prompt, or prepare to issue a prompt when the next character
+   is read. */
+static void
+prompt_again ()
+{
+  char *temp_prompt;
 
-      /* rhs */
-      tok = read_token (READ);
-      if (tok == WORD)
-       {
-         tright = make_cond_node (COND_TERM, yylval.word, (COND_COM *)NULL, (COND_COM *)NULL);
-         term = make_cond_node (COND_BINARY, op, tleft, tright);
-       }
-      else
-       {
-         parser_error (line_number, "unexpected argument to conditional binary operator");
-         dispose_cond_node (tleft);
-         dispose_word (op);
-         COND_RETURN_ERROR ();
-       }
+  if (!interactive)    /* XXX */
+    return;
 
-      (void)cond_skip_newlines ();
+  ps1_prompt = get_string_value ("PS1");
+  ps2_prompt = get_string_value ("PS2");
+
+  if (!prompt_string_pointer)
+    prompt_string_pointer = &ps1_prompt;
+
+  temp_prompt = *prompt_string_pointer
+                       ? decode_prompt_string (*prompt_string_pointer)
+                       : (char *)NULL;
+
+  if (temp_prompt == 0)
+    {
+      temp_prompt = xmalloc (1);
+      temp_prompt[0] = '\0';
+    }
+
+  current_prompt_string = *prompt_string_pointer;
+  prompt_string_pointer = &ps2_prompt;
+
+#if defined (READLINE)
+  if (!no_line_editing)
+    {
+      FREE (current_readline_prompt);
+      current_readline_prompt = temp_prompt;
     }
   else
+#endif /* READLINE */
     {
-      if (tok < 256)
-       parser_error (line_number, "unexpected token `%c' in conditional command", tok);
-      else
-       parser_error (line_number, "unexpected token %d in conditional command", tok);
-      COND_RETURN_ERROR ();
+      FREE (current_decoded_prompt);
+      current_decoded_prompt = temp_prompt;
     }
-  return (term);
-}      
+}
 
-/* This is kind of bogus -- we slip a mini recursive-descent parser in
-   here to handle the conditional statement syntax. */
-static COMMAND *
-parse_cond_command ()
+int
+get_current_prompt_level ()
 {
-  COND_COM *cexp;
-
-  cexp = cond_expr ();
-  return (make_cond_command (cexp));
+  return ((current_prompt_string && current_prompt_string == ps2_prompt) ? 2 : 1);
 }
-#endif
 
-static int
-read_token_word (character)
-     int character;
+void
+set_current_prompt_level (x)
+     int x;
 {
-  /* The value for YYLVAL when a WORD is read. */
-  WORD_DESC *the_word;
+  prompt_string_pointer = (x == 2) ? &ps2_prompt : &ps1_prompt;
+  current_prompt_string = *prompt_string_pointer;
+}
+      
+static void
+print_prompt ()
+{
+  fprintf (stderr, "%s", current_decoded_prompt);
+  fflush (stderr);
+}
 
-  /* Index into the token that we are building. */
-  int token_index;
-
-  /* ALL_DIGITS becomes zero when we see a non-digit. */
-  int all_digits;
-
-  /* DOLLAR_PRESENT becomes non-zero if we see a `$'. */
-  int dollar_present;
-
-  /* QUOTED becomes non-zero if we see one of ("), ('), (`), or (\). */
-  int quoted;
-
-  /* Non-zero means to ignore the value of the next character, and just
-     to add it no matter what. */
- int pass_next_character;
-
-  /* The current delimiting character. */
-  int cd;
-  int result, peek_char;
-  char *ttok, *ttrans;
-  int ttoklen, ttranslen;
+/* Return a string which will be printed as a prompt.  The string
+   may contain special characters which are decoded as follows:
 
-  if (token_buffer_size < TOKEN_DEFAULT_INITIAL_SIZE)
-    token = xrealloc (token, token_buffer_size = TOKEN_DEFAULT_INITIAL_SIZE);
+       \a      bell (ascii 07)
+       \e      escape (ascii 033)
+       \d      the date in Day Mon Date format
+       \h      the hostname up to the first `.'
+       \H      the hostname
+       \j      the number of active jobs
+       \l      the basename of the shell's tty device name
+       \n      CRLF
+       \s      the name of the shell
+       \t      the time in 24-hour hh:mm:ss format
+       \T      the time in 12-hour hh:mm:ss format
+       \@      the time in 12-hour am/pm format
+       \v      the version of bash (e.g., 2.00)
+       \V      the release of bash, version + patchlevel (e.g., 2.00.0)
+       \w      the current working directory
+       \W      the last element of $PWD
+       \u      your username
+       \#      the command number of this command
+       \!      the history number of this command
+       \$      a $ or a # if you are root
+       \nnn    character code nnn in octal
+       \\      a backslash
+       \[      begin a sequence of non-printing chars
+       \]      end a sequence of non-printing chars
+*/
+#define PROMPT_GROWTH 48
+char *
+decode_prompt_string (string)
+     char *string;
+{
+  WORD_LIST *list;
+  char *result, *t;
+  struct dstack save_dstack;
+#if defined (PROMPT_STRING_DECODE)
+  int result_size, result_index;
+  int c, n;
+  char *temp, octal_string[4];
+  time_t the_time;
 
-  token_index = 0;
-  all_digits = digit (character);
-  dollar_present = quoted = pass_next_character = 0;
+  result = xmalloc (result_size = PROMPT_GROWTH);
+  result[result_index = 0] = 0;
+  temp = (char *)NULL;
 
-  for (;;)
+  while (c = *string++)
     {
-      if (character == EOF)
-       goto got_token;
-
-      if (pass_next_character)
-       {
-         pass_next_character = 0;
-         goto got_character;
-       }
-
-      cd = current_delimiter (dstack);
-
-      /* Handle backslashes.  Quote lots of things when not inside of
-        double-quotes, quote some things inside of double-quotes. */
-      if (character == '\\')
+      if (posixly_correct && c == '!')
        {
-         peek_char = shell_getc (0);
-
-         /* Backslash-newline is ignored in all cases except
-            when quoted with single quotes. */
-         if (peek_char == '\n')
+         if (*string == '!')
            {
-             character = '\n';
-             goto next_character;
+             temp = savestring ("!");
+             goto add_string;
            }
          else
            {
-             shell_ungetc (peek_char);
-
-             /* If the next character is to be quoted, note it now. */
-             if (cd == 0 || cd == '`' ||
-                 (cd == '"' && member (peek_char, slashify_in_quotes)))
-               pass_next_character++;
-
-             quoted = 1;
-             goto got_character;
+#if !defined (HISTORY)
+               temp = savestring ("1");
+#else /* HISTORY */
+               temp = itos (history_number ());
+#endif /* HISTORY */
+               string--;       /* add_string increments string again. */
+               goto add_string;
            }
        }
-
-      /* Parse a matched pair of quote characters. */
-      if (shellquote (character))
+      if (c == '\\')
        {
-         push_delimiter (dstack, character);
-         ttok = parse_matched_pair (character, character, character, &ttoklen, 0);
-         pop_delimiter (dstack);
-         if (ttok == &matched_pair_error)
-           return -1;          /* Bail immediately. */
-         RESIZE_MALLOCED_BUFFER (token, token_index, ttoklen + 2,
-                                 token_buffer_size, TOKEN_DEFAULT_GROW_SIZE);
-         token[token_index++] = character;
-         strcpy (token + token_index, ttok);
-         token_index += ttoklen;
-         all_digits = 0;
-         quoted = 1;
-         dollar_present |= (character == '"' && strchr (ttok, '$') != 0);
-         FREE (ttok);
-         goto next_character;
-       }
+         c = *string;
 
-#ifdef EXTENDED_GLOB
-      /* Parse a ksh-style extended pattern matching specification. */
-      if (extended_glob && PATTERN_CHAR(character))
-       {
-         peek_char = shell_getc (1);
-         if (peek_char == '(')         /* ) */
+         switch (c)
            {
-             push_delimiter (dstack, peek_char);
-             ttok = parse_matched_pair (cd, '(', ')', &ttoklen, 0);
-             pop_delimiter (dstack);
-             if (ttok == &matched_pair_error)
-               return -1;              /* Bail immediately. */
-             RESIZE_MALLOCED_BUFFER (token, token_index, ttoklen + 2,
-                                     token_buffer_size,
-                                     TOKEN_DEFAULT_GROW_SIZE);
-             token[token_index++] = character;
-             token[token_index++] = peek_char;
-             strcpy (token + token_index, ttok);
-             token_index += ttoklen;
-             FREE (ttok);
-             dollar_present = all_digits = 0;
-             goto next_character;
-           }
-         else
-           shell_ungetc (peek_char);
-       }
-#endif /* EXTENDED_GLOB */
+           case '0':
+           case '1':
+           case '2':
+           case '3':
+           case '4':
+           case '5':
+           case '6':
+           case '7':
+             strncpy (octal_string, string, 3);
+             octal_string[3] = '\0';
 
-      /* If the delimiter character is not single quote, parse some of
-        the shell expansions that must be read as a single word. */
-#if defined (PROCESS_SUBSTITUTION)
-      if (character == '$' || character == '<' || character == '>')
-#else
-      if (character == '$')
-#endif /* !PROCESS_SUBSTITUTION */
-       {
-         peek_char = shell_getc (1);
-         /* $(...), <(...), >(...), $((...)), ${...}, and $[...] constructs */
-         if (peek_char == '(' ||
-               ((peek_char == '{' || peek_char == '[') && character == '$'))   /* ) ] } */
-           {
-             if (peek_char == '{')             /* } */
-               ttok = parse_matched_pair (cd, '{', '}', &ttoklen, P_FIRSTCLOSE);
-             else if (peek_char == '(')                /* ) */
+             n = read_octal (octal_string);
+             temp = xmalloc (3);
+
+             if (n == CTLESC || n == CTLNUL)
                {
-                 /* XXX - push and pop the `(' as a delimiter for use by
-                    the command-oriented-history code.  This way newlines
-                    appearing in the $(...) string get added to the
-                    history literally rather than causing a possibly-
-                    incorrect `;' to be added. ) */
-                 push_delimiter (dstack, peek_char);
-                 ttok = parse_matched_pair (cd, '(', ')', &ttoklen, 0);
-                 pop_delimiter (dstack);
+                 temp[0] = CTLESC;
+                 temp[1] = n;
+                 temp[2] = '\0';
                }
-             else
-               ttok = parse_matched_pair (cd, '[', ']', &ttoklen, 0);
-             if (ttok == &matched_pair_error)
-               return -1;              /* Bail immediately. */
-             RESIZE_MALLOCED_BUFFER (token, token_index, ttoklen + 2,
-                                     token_buffer_size,
-                                     TOKEN_DEFAULT_GROW_SIZE);
-             token[token_index++] = character;
-             token[token_index++] = peek_char;
-             strcpy (token + token_index, ttok);
-             token_index += ttoklen;
-             FREE (ttok);
-             dollar_present = 1;
-             all_digits = 0;
-             goto next_character;
-           }
-         /* This handles $'...' and $"..." new-style quoted strings. */
-         else if (character == '$' && (peek_char == '\'' || peek_char == '"'))
-           {
-             int first_line;
-
-             first_line = line_number;
-             push_delimiter (dstack, peek_char);
-             ttok = parse_matched_pair (peek_char, peek_char, peek_char,
-                                        &ttoklen,
-                                        (peek_char == '\'') ? P_ALLOWESC : 0);
-             pop_delimiter (dstack);
-             if (ttok == &matched_pair_error)
-               return -1;
-             if (peek_char == '\'')
+             else if (n == -1)
                {
-                 ttrans = ansiexpand (ttok, 0, ttoklen - 1, &ttranslen);
-                 free (ttok);
-                 /* Insert the single quotes and correctly quote any
-                    embedded single quotes (allowed because P_ALLOWESC was
-                    passed to parse_matched_pair). */
-                 ttok = single_quote (ttrans);
-                 free (ttrans);
-                 ttrans = ttok;
-                 ttranslen = strlen (ttrans);
+                 temp[0] = '\\';
+                 temp[1] = '\0';
                }
              else
                {
-                 /* Try to locale-expand the converted string. */
-                 ttrans = localeexpand (ttok, 0, ttoklen - 1, first_line, &ttranslen);
-                 free (ttok);
-
-                 /* Add the double quotes back */
-                 ttok = xmalloc (ttranslen + 3);
-                 ttok[0] = '"';
-                 strcpy (ttok + 1, ttrans);
-                 ttok[ttranslen + 1] = '"';
-                 ttok[ttranslen += 2] = '\0';
-                 free (ttrans);
-                 ttrans = ttok;
+                 temp[0] = n;
+                 temp[1] = '\0';
                }
 
-             RESIZE_MALLOCED_BUFFER (token, token_index, ttranslen + 2,
-                                     token_buffer_size,
-                                     TOKEN_DEFAULT_GROW_SIZE);
-             strcpy (token + token_index, ttrans);
-             token_index += ttranslen;
-             FREE (ttrans);
-             quoted = 1;
-             all_digits = 0;
-             goto next_character;
-           }
-         /* This could eventually be extended to recognize all of the
-            shell's single-character parameter expansions, and set flags.*/
-         else if (character == '$' && peek_char == '$')
-           {
-             ttok = xmalloc (3);
-             ttok[0] = ttok[1] = '$';
-             ttok[2] = '\0';
-             RESIZE_MALLOCED_BUFFER (token, token_index, 3,
-                                     token_buffer_size,
-                                     TOKEN_DEFAULT_GROW_SIZE);
-             strcpy (token + token_index, ttok);
-             token_index += 2;
-             dollar_present = 1;
-             all_digits = 0;
-             FREE (ttok);
-             goto next_character;
-           }
-         else
-           shell_ungetc (peek_char);
-       }
-
-#if defined (ARRAY_VARS)
-      /* Identify possible compound array variable assignment. */
-      else if (character == '=' && token_index > 0)
-       {
-         peek_char = shell_getc (1);
-         if (peek_char == '(')         /* ) */
-           {
-             ttok = parse_matched_pair (cd, '(', ')', &ttoklen, 0);
-             if (ttok == &matched_pair_error)
-               return -1;              /* Bail immediately. */
-             if (ttok[0] == '(')       /* ) */
-               {
-                 FREE (ttok);
-                 return -1;
-               }
-             RESIZE_MALLOCED_BUFFER (token, token_index, ttoklen + 2,
-                                     token_buffer_size,
-                                     TOKEN_DEFAULT_GROW_SIZE);
-             token[token_index++] = character;
-             token[token_index++] = peek_char;
-             strcpy (token + token_index, ttok);
-             token_index += ttoklen;
-             FREE (ttok);
-             all_digits = 0;
-             goto next_character;
-           }
-         else
-           shell_ungetc (peek_char);
-       }
-#endif
+             for (c = 0; n != -1 && c < 3 && ISOCTAL (*string); c++)
+               string++;
 
-      /* When not parsing a multi-character word construct, shell meta-
-        characters break words. */
-      if (shellbreak (character))
-       {
-         shell_ungetc (character);
-         goto got_token;
-       }
+             c = 0;
+             goto add_string;
 
-    got_character:
+           case 't':
+           case 'd':
+           case 'T':
+           case '@':
+             /* Make the current time/date into a string. */
+             the_time = time (0);
+             temp = ctime (&the_time);
 
-      all_digits &= digit (character);
-      dollar_present |= character == '$';
+             temp = (c != 'd') ? savestring (temp + 11) : savestring (temp);
+             temp[(c != 'd') ? 8 : 10] = '\0';
 
-      if (character == CTLESC || character == CTLNUL)
-       token[token_index++] = CTLESC;
+             /* quick and dirty conversion to 12-hour time */
+             if (c == 'T' || c == '@')
+               {
+                 if (c == '@')
+                   {
+                     temp[5] = 'a';    /* am/pm format */
+                     temp[6] = 'm';
+                     temp[7] = '\0';
+                   }
+                 c = temp[2];
+                 temp[2] = '\0';
+                 n = atoi (temp);
+                 temp[2] = c;
+                 n -= 12;
+                 if (n > 0)
+                   {
+                     temp[0] = (n / 10) + '0';
+                     temp[1] = (n % 10) + '0';
+                   }
+                 if (n >= 0 && temp[5] == 'a')
+                   temp[5] = 'p';
+               }
+             goto add_string;
 
-      token[token_index++] = character;
+           case 'r':
+             temp = xmalloc (2);
+             temp[0] = '\r';
+             temp[1] = '\0';
+             goto add_string;
 
-      RESIZE_MALLOCED_BUFFER (token, token_index, 1, token_buffer_size,
-                             TOKEN_DEFAULT_GROW_SIZE);
+           case 'n':
+             temp = xmalloc (3);
+             temp[0] = no_line_editing ? '\n' : '\r';
+             temp[1] = no_line_editing ? '\0' : '\n';
+             temp[2] = '\0';
+             goto add_string;
 
-    next_character:
-      if (character == '\n' && interactive &&
-       (bash_input.type == st_stdin || bash_input.type == st_stream))
-       prompt_again ();
+           case 's':
+             temp = base_pathname (shell_name);
+             temp = savestring (temp);
+             goto add_string;
 
-      /* We want to remove quoted newlines (that is, a \<newline> pair)
-        unless we are within single quotes or pass_next_character is
-        set (the shell equivalent of literal-next). */
-      cd = current_delimiter (dstack);
-      character = shell_getc (cd != '\'' && pass_next_character == 0);
-    }  /* end for (;;) */
+           case 'v':
+           case 'V':
+             temp = xmalloc (8);
+             if (c == 'v')
+               strcpy (temp, dist_version);
+             else
+               sprintf (temp, "%s.%d", dist_version, patch_level);
+             goto add_string;
 
-got_token:
+           case 'w':
+           case 'W':
+             {
+               /* Use the value of PWD because it is much more efficient. */
+               char t_string[PATH_MAX];
+               int tlen;
 
-  token[token_index] = '\0';
+               temp = get_string_value ("PWD");
 
-  /* Check to see what thing we should return.  If the last_read_token
-     is a `<', or a `&', or the character which ended this token is
-     a '>' or '<', then, and ONLY then, is this input token a NUMBER.
-     Otherwise, it is just a word, and should be returned as such. */
-  if (all_digits && (character == '<' || character == '>' ||
-                   last_read_token == LESS_AND ||
-                   last_read_token == GREATER_AND))
-      {
-       yylval.number = atoi (token);
-       return (NUMBER);
-      }
+               if (temp == 0)
+                 {
+                   if (getcwd (t_string, sizeof(t_string)) == 0)
+                     {
+                       t_string[0] = '.';
+                       tlen = 1;
+                     }
+                   else
+                     tlen = strlen (t_string);
+                 }
+               else
+                 {
+                   tlen = sizeof (t_string) - 1;
+                   strncpy (t_string, temp, tlen);
+                 }
+               t_string[tlen] = '\0';
 
-  /* Check for special case tokens. */
-  result = special_case_tokens (token);
-  if (result >= 0)
-    return result;
+#define ROOT_PATH(x)   ((x)[0] == '/' && (x)[1] == 0)
+#define DOUBLE_SLASH_ROOT(x)   ((x)[0] == '/' && (x)[1] == '/' && (x)[2] == 0)
+               if (c == 'W')
+                 {
+                   if (ROOT_PATH (t_string) == 0 && DOUBLE_SLASH_ROOT (t_string) == 0)
+                     {
+                       t = strrchr (t_string, '/');
+                       if (t)
+                         strcpy (t_string, t + 1);
+                     }
+                 }
+#undef ROOT_PATH
+#undef DOUBLE_SLASH_ROOT
+               else
+                 /* polite_directory_format is guaranteed to return a string
+                    no longer than PATH_MAX - 1 characters. */
+                 strcpy (t_string, polite_directory_format (t_string));
 
-#if defined (ALIAS)
-  /* Posix.2 does not allow reserved words to be aliased, so check for all
-     of them, including special cases, before expanding the current token
-     as an alias. */
-  if (posixly_correct)
-    CHECK_FOR_RESERVED_WORD (token);
+               /* If we're going to be expanding the prompt string later,
+                  quote the directory name. */
+               if (promptvars || posixly_correct)
+                 /* Make sure that expand_prompt_string is called with a
+                    second argument of Q_DOUBLE_QUOTE if we use this
+                    function here. */
+                 temp = sh_backslash_quote_for_double_quotes (t_string);
+               else
+                 temp = savestring (t_string);
 
-  /* Aliases are expanded iff EXPAND_ALIASES is non-zero, and quoting
-     inhibits alias expansion. */
-  if (expand_aliases && quoted == 0)
-    {
-      result = alias_expand_token (token);
-      if (result == RE_READ_TOKEN)
-       return (RE_READ_TOKEN);
-      else if (result == NO_EXPANSION)
-       parser_state &= ~PST_ALEXPNEXT;
-    }
+               goto add_string;
+             }
 
-  /* If not in Posix.2 mode, check for reserved words after alias
-     expansion. */
-  if (posixly_correct == 0)
-#endif
-    CHECK_FOR_RESERVED_WORD (token);
+           case 'u':
+             if (current_user.user_name == 0)
+               get_current_user_info ();
+             temp = savestring (current_user.user_name);
+             goto add_string;
 
-  the_word = (WORD_DESC *)xmalloc (sizeof (WORD_DESC));
-  the_word->word = xmalloc (1 + token_index);
-  the_word->flags = 0;
-  strcpy (the_word->word, token);
-  if (dollar_present)
-    the_word->flags |= W_HASDOLLAR;
-  if (quoted)
-    the_word->flags |= W_QUOTED;
-  /* A word is an assignment if it appears at the beginning of a
-     simple command, or after another assignment word.  This is
-     context-dependent, so it cannot be handled in the grammar. */
-  if (assignment (token))
-    {
-      the_word->flags |= W_ASSIGNMENT;
-      /* Don't perform word splitting on assignment statements. */
-      if (assignment_acceptable (last_read_token))
-       the_word->flags |= W_NOSPLIT;
-    }
+           case 'h':
+           case 'H':
+             temp = savestring (current_host_name);
+             if (c == 'h' && (t = (char *)strchr (temp, '.')))
+               *t = '\0';
+             goto add_string;
 
-  yylval.word = the_word;
+           case '#':
+             temp = itos (current_command_number);
+             goto add_string;
 
-  result = ((the_word->flags & (W_ASSIGNMENT|W_NOSPLIT)) == (W_ASSIGNMENT|W_NOSPLIT))
-               ? ASSIGNMENT_WORD : WORD;
+           case '!':
+#if !defined (HISTORY)
+             temp = savestring ("1");
+#else /* HISTORY */
+             temp = itos (history_number ());
+#endif /* HISTORY */
+             goto add_string;
 
-  if (last_read_token == FUNCTION)
-    {
-      parser_state |= PST_ALLOWOPNBRC;
-      function_dstart = line_number;
-    }
+           case '$':
+             t = temp = xmalloc (3);
+             if ((promptvars || posixly_correct) && (current_user.euid != 0))
+               *t++ = '\\';
+             *t++ = current_user.euid == 0 ? '#' : '$';
+             *t = '\0';
+             goto add_string;
 
-  return (result);
-}
+           case 'j':
+             temp = itos (count_all_jobs ());
+             goto add_string;
 
-/* $'...' ANSI-C expand the portion of STRING between START and END and
-   return the result.  The result cannot be longer than the input string. */
-static char *
-ansiexpand (string, start, end, lenp)
-     char *string;
-     int start, end, *lenp;
-{
-  char *temp, *t;
-  int len, tlen;
+           case 'l':
+#if defined (HAVE_TTYNAME)
+             temp = (char *)ttyname (fileno (stdin));
+             t = temp ? base_pathname (temp) : "tty";
+             temp = savestring (t);
+#else
+             temp = savestring ("tty");
+#endif /* !HAVE_TTYNAME */
+             goto add_string;
 
-  temp = xmalloc (end - start + 1);
-  for (tlen = 0, len = start; len < end; )
-    temp[tlen++] = string[len++];
-  temp[tlen] = '\0';
+#if defined (READLINE)
+           case '[':
+           case ']':
+             temp = xmalloc (3);
+             temp[0] = '\001';
+             temp[1] = (c == '[') ? RL_PROMPT_START_IGNORE : RL_PROMPT_END_IGNORE;
+             temp[2] = '\0';
+             goto add_string;
+#endif /* READLINE */
 
-  if (*temp)
+           case '\\':
+             temp = xmalloc (2);
+             temp[0] = c;
+             temp[1] = '\0';
+             goto add_string;
+
+           case 'a':
+           case 'e':
+             temp = xmalloc (2);
+             temp[0] = (c == 'a') ? '\07' : '\033';
+             temp[1] = '\0';
+             goto add_string;
+
+           default:
+             temp = xmalloc (3);
+             temp[0] = '\\';
+             temp[1] = c;
+             temp[2] = '\0';
+
+           add_string:
+             if (c)
+               string++;
+             result =
+               sub_append_string (temp, result, &result_index, &result_size);
+             temp = (char *)NULL; /* Freed in sub_append_string (). */
+             result[result_index] = '\0';
+             break;
+           }
+       }
+      else
+       {
+         RESIZE_MALLOCED_BUFFER (result, result_index, 3, result_size, PROMPT_GROWTH);
+         result[result_index++] = c;
+         result[result_index] = '\0';
+       }
+    }
+#else /* !PROMPT_STRING_DECODE */
+  result = savestring (string);
+#endif /* !PROMPT_STRING_DECODE */
+
+  /* Save the delimiter stack and point `dstack' to temp space so any
+     command substitutions in the prompt string won't result in screwing
+     up the parser's quoting state. */
+  save_dstack = dstack;
+  dstack = temp_dstack;
+  dstack.delimiter_depth = 0;
+
+  /* Perform variable and parameter expansion and command substitution on
+     the prompt string. */
+  if (promptvars || posixly_correct)
     {
-      t = ansicstr (temp, tlen, 0, (int *)NULL, lenp);
-      free (temp);
-      return (t);
+      list = expand_prompt_string (result, Q_DOUBLE_QUOTES);
+      free (result);
+      result = string_list (list);
+      dispose_words (list);
     }
   else
     {
-      if (lenp)
-       *lenp = 0;
-      return (temp);
+      t = dequote_string (result);
+      free (result);
+      result = t;
     }
+
+  dstack = save_dstack;
+
+  return (result);
 }
 
-/* Change a bash string into a string suitable for inclusion in a `po' file.
-   This backslash-escapes `"' and `\' and changes newlines into \\\n"\n". */
-static char *
-mk_msgstr (string, foundnlp)
-     char *string;
-     int *foundnlp;
+/* Report a syntax error, and restart the parser.  Call here for fatal
+   errors. */
+int
+yyerror ()
 {
-  register int c, len;
-  char *result, *r, *s;
+  report_syntax_error ((char *)NULL);
+  reset_parser ();
+  return (0);
+}
 
-  for (len = 0, s = string; s && *s; s++)
+/* Report a syntax error with line numbers, etc.
+   Call here for recoverable errors.  If you have a message to print,
+   then place it in MESSAGE, otherwise pass NULL and this will figure
+   out an appropriate message for you. */
+static void
+report_syntax_error (message)
+     char *message;
+{
+  char *msg, *t;
+  int token_end, i;
+  char msg2[2];
+
+  if (message)
     {
-      len++;
-      if (*s == '"' || *s == '\\')
-       len++;
-      else if (*s == '\n')
-        len += 5;
+      parser_error (line_number, "%s", message);
+      if (interactive && EOF_Reached)
+       EOF_Reached = 0;
+      last_command_exit_value = EX_USAGE;
+      return;
     }
-  
-  r = result = xmalloc (len + 3);
-  *r++ = '"';
 
-  for (s = string; s && (c = *s); s++)
+  /* If the line of input we're reading is not null, try to find the
+     objectionable token. */
+  if (shell_input_line && *shell_input_line)
     {
-      if (c == '\n')   /* <NL> -> \n"<NL>" */
-       {
-         *r++ = '\\';
-         *r++ = 'n';
-         *r++ = '"';
-         *r++ = '\n';
-         *r++ = '"';
-         if (foundnlp)
-           *foundnlp = 1;
-         continue;
-       }
-      if (c == '"' || c == '\\')
-       *r++ = '\\';
-      *r++ = c;
-    }
+      t = shell_input_line;
+      i = shell_input_line_index;
+      token_end = 0;
 
-  *r++ = '"';
-  *r++ = '\0';
+      if (i && t[i] == '\0')
+       i--;
 
-  return result;
-}
+      while (i && (whitespace (t[i]) || t[i] == '\n'))
+       i--;
 
-/* $"..." -- Translate the portion of STRING between START and END
-   according to current locale using gettext (if available) and return
-   the result.  The caller will take care of leaving the quotes intact.
-   The string will be left without the leading `$' by the caller.
-   If translation is performed, the translated string will be double-quoted
-   by the caller.  The length of the translated string is returned in LENP,
-   if non-null. */
-static char *
-localeexpand (string, start, end, lineno, lenp)
-     char *string;
-     int start, end, lineno, *lenp;
-{
-  int len, tlen, foundnl;
-  char *temp, *t, *t2;
+      if (i)
+       token_end = i + 1;
 
-  temp = xmalloc (end - start + 1);
-  for (tlen = 0, len = start; len < end; )
-    temp[tlen++] = string[len++];
-  temp[tlen] = '\0';
+      while (i && (member (t[i], " \n\t;|&") == 0))
+       i--;
 
-  /* If we're just dumping translatable strings, don't do anything with the
-     string itself, but if we're dumping in `po' file format, convert it into a form more palatable to gettext(3)
-     and friends by quoting `"' and `\' with backslashes and converting <NL>
-     into `\n"<NL>"'.  If we find a newline in TEMP, we first output a
-     `msgid ""' line and then the translated string; otherwise we output the
-     `msgid' and translated string all on one line. */
-  if (dump_translatable_strings)
-    {
-      if (dump_po_strings)
+      while (i != token_end && (whitespace (t[i]) || t[i] == '\n'))
+       i++;
+
+      /* Print the offending token. */
+      if (token_end || (i == 0 && token_end == 0))
        {
-         foundnl = 0;
-         t = mk_msgstr (temp, &foundnl);
-         t2 = foundnl ? "\"\"\n" : "";
+         if (token_end)
+           msg = substring (t, i, token_end);
+         else  /* one-character token */
+           {
+             msg2[0] = t[i];
+             msg2[1] = '\0';
+             msg = msg2;
+           }
 
-         printf ("#: %s:%d\nmsgid %s%s\nmsgstr \"\"\n",
-                 (bash_input.name ? bash_input.name : "stdin"), lineno, t2, t);
-         free (t);
+         parser_error (line_number, "syntax error near unexpected token `%s'", msg);
+
+         if (msg != msg2)
+           free (msg);
        }
-      else
-       printf ("\"%s\"\n", temp);
 
-      if (lenp)
-       *lenp = tlen;
-      return (temp);
-    }
-  else if (*temp)
-    {
-      t = localetrans (temp, tlen, &len);
-      free (temp);
-      if (lenp)
-       *lenp = len;
-      return (t);
-    }
+      /* If not interactive, print the line containing the error. */
+      if (interactive == 0)
+       {
+         msg = savestring (shell_input_line);
+         token_end = strlen (msg);
+         while (token_end && msg[token_end - 1] == '\n')
+           msg[--token_end] = '\0';
+
+         parser_error (line_number, "`%s'", msg);
+         free (msg);
+       }
+    }
   else
     {
-      if (lenp)
-       *lenp = 0;
-      return (temp);
+      msg = EOF_Reached ? "syntax error: unexpected end of file" : "syntax error";
+      parser_error (line_number, "%s", msg);
+      /* When the shell is interactive, this file uses EOF_Reached
+        only for error reporting.  Other mechanisms are used to
+        decide whether or not to exit. */
+      if (interactive && EOF_Reached)
+       EOF_Reached = 0;
     }
+  last_command_exit_value = EX_USAGE;
 }
 
-/* Return 1 if TOKEN is a token that after being read would allow
-   a reserved word to be seen, else 0. */
-static int
-reserved_word_acceptable (token)
-     int token;
+/* ??? Needed function. ??? We have to be able to discard the constructs
+   created during parsing.  In the case of error, we want to return
+   allocated objects to the memory pool.  In the case of no error, we want
+   to throw away the information about where the allocated objects live.
+   (dispose_command () will actually free the command. */
+static void
+discard_parser_constructs (error_p)
+     int error_p;
 {
-  if (token == '\n' || token == ';' || token == '(' || token == ')' ||
-      token == '|' || token == '&' || token == '{' ||
-      token == '}' ||                  /* XXX */
-      token == AND_AND ||
-      token == BANG ||
-      token == TIME || token == TIMEOPT ||
-      token == DO ||
-      token == ELIF ||
-      token == ELSE ||
-      token == FI ||
-      token == IF ||
-      token == OR_OR ||
-      token == SEMI_SEMI ||
-      token == THEN ||
-      token == UNTIL ||
-      token == WHILE ||
-      token == DONE ||         /* XXX these two are experimental */
-      token == ESAC ||
-      token == 0)
-    return (1);
-  else
-    return (0);
 }
 
-/* Return the index of TOKEN in the alist of reserved words, or -1 if
-   TOKEN is not a shell reserved word. */
-int
-find_reserved_word (token)
-     char *token;
-{
-  int i;
-  for (i = 0; word_token_alist[i].word; i++)
-    if (STREQ (token, word_token_alist[i].word))
-      return i;
-  return -1;
-}
+/* Do that silly `type "bye" to exit' stuff.  You know, "ignoreeof". */
 
-#if 0
-#if defined (READLINE)
-/* Called after each time readline is called.  This insures that whatever
-   the new prompt string is gets propagated to readline's local prompt
-   variable. */
+/* A flag denoting whether or not ignoreeof is set. */
+int ignoreeof = 0;
+
+/* The number of times that we have encountered an EOF character without
+   another character intervening.  When this gets above the limit, the
+   shell terminates. */
+int eof_encountered = 0;
+
+/* The limit for eof_encountered. */
+int eof_encountered_limit = 10;
+
+/* If we have EOF as the only input unit, this user wants to leave
+   the shell.  If the shell is not interactive, then just leave.
+   Otherwise, if ignoreeof is set, and we haven't done this the
+   required number of times in a row, print a message. */
 static void
-reset_readline_prompt ()
+handle_eof_input_unit ()
 {
-  char *temp_prompt;
-
-  if (prompt_string_pointer)
+  if (interactive)
     {
-      temp_prompt = (*prompt_string_pointer)
-                       ? decode_prompt_string (*prompt_string_pointer)
-                       : (char *)NULL;
+      /* shell.c may use this to decide whether or not to write out the
+        history, among other things.  We use it only for error reporting
+        in this file. */
+      if (EOF_Reached)
+       EOF_Reached = 0;
 
-      if (temp_prompt == 0)
+      /* If the user wants to "ignore" eof, then let her do so, kind of. */
+      if (ignoreeof)
        {
-         temp_prompt = xmalloc (1);
-         temp_prompt[0] = '\0';
+         if (eof_encountered < eof_encountered_limit)
+           {
+             fprintf (stderr, "Use \"%s\" to leave the shell.\n",
+                      login_shell ? "logout" : "exit");
+             eof_encountered++;
+             /* Reset the prompt string to be $PS1. */
+             prompt_string_pointer = (char **)NULL;
+             prompt_again ();
+             last_read_token = current_token = '\n';
+             return;
+           }
        }
 
-      FREE (current_readline_prompt);
-      current_readline_prompt = temp_prompt;
+      /* In this case EOF should exit the shell.  Do it now. */
+      reset_parser ();
+      exit_builtin ((WORD_LIST *)NULL);
+    }
+  else
+    {
+      /* We don't write history files, etc., for non-interactive shells. */
+      EOF_Reached = 1;
     }
 }
-#endif /* READLINE */
-#endif /* 0 */
 
-#if defined (HISTORY)
-/* A list of tokens which can be followed by newlines, but not by
-   semi-colons.  When concatenating multiple lines of history, the
-   newline separator for such tokens is replaced with a space. */
-static int no_semi_successors[] = {
-  '\n', '{', '(', ')', ';', '&', '|',
-  CASE, DO, ELSE, IF, SEMI_SEMI, THEN, UNTIL, WHILE, AND_AND, OR_OR, IN,
-  0
-};
+static WORD_LIST parse_string_error;
 
-/* If we are not within a delimited expression, try to be smart
-   about which separators can be semi-colons and which must be
-   newlines.  Returns the string that should be added into the
-   history entry. */
-char *
-history_delimiting_chars ()
+/* Take a string and run it through the shell parser, returning the
+   resultant word list.  Used by compound array assignment. */
+WORD_LIST *
+parse_string_to_word_list (s, whom)
+     char *s, *whom;
 {
-  register int i;
+  WORD_LIST *wl;
+  int tok, orig_line_number, orig_input_terminator;
+  int orig_line_count;
+#if defined (HISTORY)
+  int old_remember_on_history, old_history_expansion_inhibited;
+#endif
 
-  if (dstack.delimiter_depth != 0)
-    return ("\n");
-    
-  /* First, handle some special cases. */
-  /*(*/
-  /* If we just read `()', assume it's a function definition, and don't
-     add a semicolon.  If the token before the `)' was not `(', and we're
-     not in the midst of parsing a case statement, assume it's a
-     parenthesized command and add the semicolon. */
-  /*)(*/
-  if (token_before_that == ')')
-    {
-      if (two_tokens_ago == '(')       /*)*/   /* function def */
-       return " ";
-      /* This does not work for subshells inside case statement
-        command lists.  It's a suboptimal solution. */
-      else if (parser_state & PST_CASESTMT)    /* case statement pattern */
-        return " ";
-      else     
-        return "; ";                           /* (...) subshell */
-    }
-  else if (token_before_that == WORD && two_tokens_ago == FUNCTION)
-    return " ";                /* function def using `function name' without `()' */
+#if defined (HISTORY)
+  old_remember_on_history = remember_on_history;
+#  if defined (BANG_HISTORY)
+  old_history_expansion_inhibited = history_expansion_inhibited;
+#  endif
+  bash_history_disable ();
+#endif
 
-  else if (token_before_that == WORD && two_tokens_ago == FOR)
-    {
-      /* Tricky.  `for i\nin ...' should not have a semicolon, but
-        `for i\ndo ...' should.  We do what we can. */
-      for (i = shell_input_line_index; whitespace(shell_input_line[i]); i++)
-        ;
-      if (shell_input_line[i] && shell_input_line[i] == 'i' && shell_input_line[i+1] == 'n')
-       return " ";
-      return ";";
-    }
+  orig_line_number = line_number;
+  orig_line_count = current_command_line_count;
+  orig_input_terminator = shell_input_line_terminator;
 
-  for (i = 0; no_semi_successors[i]; i++)
+  push_stream (1);
+  last_read_token = '\n';
+  current_command_line_count = 0;
+
+  with_input_from_string (s, whom);
+  wl = (WORD_LIST *)NULL;
+  while ((tok = read_token (READ)) != yacc_EOF)
     {
-      if (token_before_that == no_semi_successors[i])
-       return (" ");
+      if (tok == '\n' && *bash_input.location.string == '\0')
+       break;
+      if (tok == '\n')         /* Allow newlines in compound assignments */
+       continue;
+      if (tok != WORD && tok != ASSIGNMENT_WORD)
+       {
+         line_number = orig_line_number + line_number - 1;
+         yyerror ();   /* does the right thing */
+         if (wl)
+           dispose_words (wl);
+         wl = &parse_string_error;
+         break;
+       }
+      wl = make_word_list (yylval.word, wl);
     }
+  
+  last_read_token = '\n';
+  pop_stream ();
 
-  return ("; ");
-}
+#if defined (HISTORY)
+  remember_on_history = old_remember_on_history;
+#  if defined (BANG_HISTORY)
+  history_expansion_inhibited = old_history_expansion_inhibited;
+#  endif /* BANG_HISTORY */
 #endif /* HISTORY */
 
-/* Issue a prompt, or prepare to issue a prompt when the next character
-   is read. */
-static void
-prompt_again ()
-{
-  char *temp_prompt;
+  current_command_line_count = orig_line_count;
+  shell_input_line_terminator = orig_input_terminator;
 
-  if (!interactive)    /* XXX */
-    return;
+  if (wl == &parse_string_error)
+    {
+      last_command_exit_value = EXECUTION_FAILURE;
+      if (interactive_shell == 0 && posixly_correct)
+       jump_to_top_level (FORCE_EOF);
+      else
+       jump_to_top_level (DISCARD);
+    }
 
-  ps1_prompt = get_string_value ("PS1");
-  ps2_prompt = get_string_value ("PS2");
+  return (REVERSE_LIST (wl, WORD_LIST *));
+}
+#line 4199 "y.tab.c"
+/* allocate initial stack or double stack size, up to YYMAXDEPTH */
+static int yygrowstack()
+{
+    int newsize, i;
+    short *newss;
+    YYSTYPE *newvs;
+
+    if ((newsize = yystacksize) == 0)
+        newsize = YYINITSTACKSIZE;
+    else if (newsize >= YYMAXDEPTH)
+        return -1;
+    else if ((newsize *= 2) > YYMAXDEPTH)
+        newsize = YYMAXDEPTH;
+    i = yyssp - yyss;
+    newss = yyss ? (short *)realloc(yyss, newsize * sizeof *newss) :
+      (short *)malloc(newsize * sizeof *newss);
+    if (newss == NULL)
+        return -1;
+    yyss = newss;
+    yyssp = newss + i;
+    newvs = yyvs ? (YYSTYPE *)realloc(yyvs, newsize * sizeof *newvs) :
+      (YYSTYPE *)malloc(newsize * sizeof *newvs);
+    if (newvs == NULL)
+        return -1;
+    yyvs = newvs;
+    yyvsp = newvs + i;
+    yystacksize = newsize;
+    yysslim = yyss + newsize - 1;
+    return 0;
+}
 
-  if (!prompt_string_pointer)
-    prompt_string_pointer = &ps1_prompt;
+#define YYABORT goto yyabort
+#define YYREJECT goto yyabort
+#define YYACCEPT goto yyaccept
+#define YYERROR goto yyerrlab
 
-  temp_prompt = *prompt_string_pointer
-                       ? decode_prompt_string (*prompt_string_pointer)
-                       : (char *)NULL;
+#ifndef YYPARSE_PARAM
+#if defined(__cplusplus) || __STDC__
+#define YYPARSE_PARAM_ARG void
+#define YYPARSE_PARAM_DECL
+#else  /* ! ANSI-C/C++ */
+#define YYPARSE_PARAM_ARG
+#define YYPARSE_PARAM_DECL
+#endif /* ANSI-C/C++ */
+#else  /* YYPARSE_PARAM */
+#ifndef YYPARSE_PARAM_TYPE
+#define YYPARSE_PARAM_TYPE void *
+#endif
+#if defined(__cplusplus) || __STDC__
+#define YYPARSE_PARAM_ARG YYPARSE_PARAM_TYPE YYPARSE_PARAM
+#define YYPARSE_PARAM_DECL
+#else  /* ! ANSI-C/C++ */
+#define YYPARSE_PARAM_ARG YYPARSE_PARAM
+#define YYPARSE_PARAM_DECL YYPARSE_PARAM_TYPE YYPARSE_PARAM;
+#endif /* ANSI-C/C++ */
+#endif /* ! YYPARSE_PARAM */
 
-  if (temp_prompt == 0)
+int
+yyparse (YYPARSE_PARAM_ARG)
+    YYPARSE_PARAM_DECL
+{
+    register int yym, yyn, yystate;
+#if YYDEBUG
+    register const char *yys;
+
+    if ((yys = getenv("YYDEBUG")))
     {
-      temp_prompt = xmalloc (1);
-      temp_prompt[0] = '\0';
+        yyn = *yys;
+        if (yyn >= '0' && yyn <= '9')
+            yydebug = yyn - '0';
     }
+#endif
 
-  current_prompt_string = *prompt_string_pointer;
-  prompt_string_pointer = &ps2_prompt;
+    yynerrs = 0;
+    yyerrflag = 0;
+    yychar = (-1);
 
-#if defined (READLINE)
-  if (!no_line_editing)
+    if (yyss == NULL && yygrowstack()) goto yyoverflow;
+    yyssp = yyss;
+    yyvsp = yyvs;
+    *yyssp = yystate = 0;
+
+yyloop:
+    if ((yyn = yydefred[yystate])) goto yyreduce;
+    if (yychar < 0)
     {
-      FREE (current_readline_prompt);
-      current_readline_prompt = temp_prompt;
+        if ((yychar = yylex()) < 0) yychar = 0;
+#if YYDEBUG
+        if (yydebug)
+        {
+            yys = 0;
+            if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
+            if (!yys) yys = "illegal-symbol";
+            printf("%sdebug: state %d, reading %d (%s)\n",
+                    YYPREFIX, yystate, yychar, yys);
+        }
+#endif
     }
-  else
-#endif /* READLINE */
+    if ((yyn = yysindex[yystate]) && (yyn += yychar) >= 0 &&
+            yyn <= YYTABLESIZE && yycheck[yyn] == yychar)
     {
-      FREE (current_decoded_prompt);
-      current_decoded_prompt = temp_prompt;
+#if YYDEBUG
+        if (yydebug)
+            printf("%sdebug: state %d, shifting to state %d\n",
+                    YYPREFIX, yystate, yytable[yyn]);
+#endif
+        if (yyssp >= yysslim && yygrowstack())
+        {
+            goto yyoverflow;
+        }
+        *++yyssp = yystate = yytable[yyn];
+        *++yyvsp = yylval;
+        yychar = (-1);
+        if (yyerrflag > 0)  --yyerrflag;
+        goto yyloop;
     }
-}
-
-int
-get_current_prompt_level ()
+    if ((yyn = yyrindex[yystate]) && (yyn += yychar) >= 0 &&
+            yyn <= YYTABLESIZE && yycheck[yyn] == yychar)
+    {
+        yyn = yytable[yyn];
+        goto yyreduce;
+    }
+    if (yyerrflag) goto yyinrecovery;
+#if defined(lint) || defined(__GNUC__)
+    goto yynewerror;
+#endif
+yynewerror:
+    yyerror("syntax error");
+#if defined(lint) || defined(__GNUC__)
+    goto yyerrlab;
+#endif
+yyerrlab:
+    ++yynerrs;
+yyinrecovery:
+    if (yyerrflag < 3)
+    {
+        yyerrflag = 3;
+        for (;;)
+        {
+            if ((yyn = yysindex[*yyssp]) && (yyn += YYERRCODE) >= 0 &&
+                    yyn <= YYTABLESIZE && yycheck[yyn] == YYERRCODE)
+            {
+#if YYDEBUG
+                if (yydebug)
+                    printf("%sdebug: state %d, error recovery shifting\
+ to state %d\n", YYPREFIX, *yyssp, yytable[yyn]);
+#endif
+                if (yyssp >= yysslim && yygrowstack())
+                {
+                    goto yyoverflow;
+                }
+                *++yyssp = yystate = yytable[yyn];
+                *++yyvsp = yylval;
+                goto yyloop;
+            }
+            else
+            {
+#if YYDEBUG
+                if (yydebug)
+                    printf("%sdebug: error recovery discarding state %d\n",
+                            YYPREFIX, *yyssp);
+#endif
+                if (yyssp <= yyss) goto yyabort;
+                --yyssp;
+                --yyvsp;
+            }
+        }
+    }
+    else
+    {
+        if (yychar == 0) goto yyabort;
+#if YYDEBUG
+        if (yydebug)
+        {
+            yys = 0;
+            if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
+            if (!yys) yys = "illegal-symbol";
+            printf("%sdebug: state %d, error recovery discards token %d (%s)\n",
+                    YYPREFIX, yystate, yychar, yys);
+        }
+#endif
+        yychar = (-1);
+        goto yyloop;
+    }
+yyreduce:
+#if YYDEBUG
+    if (yydebug)
+        printf("%sdebug: state %d, reducing by rule %d (%s)\n",
+                YYPREFIX, yystate, yyn, yyrule[yyn]);
+#endif
+    yym = yylen[yyn];
+    yyval = yyvsp[1-yym];
+    switch (yyn)
+    {
+case 1:
+#line 241 "/usr/homes/chet/src/bash/src/parse.y"
 {
-  return ((current_prompt_string && current_prompt_string == ps2_prompt) ? 2 : 1);
-}
-
-void
-set_current_prompt_level (x)
-     int x;
+                         /* Case of regular command.  Discard the error
+                            safety net,and return the command just parsed. */
+                         global_command = yyvsp[-1].command;
+                         eof_encountered = 0;
+                         discard_parser_constructs (0);
+                         YYACCEPT;
+                       }
+break;
+case 2:
+#line 250 "/usr/homes/chet/src/bash/src/parse.y"
 {
-  prompt_string_pointer = (x == 2) ? &ps2_prompt : &ps1_prompt;
-  current_prompt_string = *prompt_string_pointer;
-}
-      
-static void
-print_prompt ()
+                         /* Case of regular command, but not a very
+                            interesting one.  Return a NULL command. */
+                         global_command = (COMMAND *)NULL;
+                         YYACCEPT;
+                       }
+break;
+case 3:
+#line 257 "/usr/homes/chet/src/bash/src/parse.y"
 {
-  fprintf (stderr, "%s", current_decoded_prompt);
-  fflush (stderr);
-}
+                         /* Error during parsing.  Return NULL command. */
+                         global_command = (COMMAND *)NULL;
+                         eof_encountered = 0;
+                         discard_parser_constructs (1);
+                         if (interactive)
+                           {
+                             YYACCEPT;
+                           }
+                         else
+                           {
+                             YYABORT;
+                           }
+                       }
+break;
+case 4:
+#line 272 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         /* Case of EOF seen by itself.  Do ignoreeof or
+                            not. */
+                         global_command = (COMMAND *)NULL;
+                         handle_eof_input_unit ();
+                         YYACCEPT;
+                       }
+break;
+case 5:
+#line 282 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.word_list = make_word_list (yyvsp[0].word, (WORD_LIST *)NULL); }
+break;
+case 6:
+#line 284 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.word_list = make_word_list (yyvsp[0].word, yyvsp[-1].word_list); }
+break;
+case 7:
+#line 288 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         redir.filename = yyvsp[0].word;
+                         yyval.redirect = make_redirection (1, r_output_direction, redir);
+                       }
+break;
+case 8:
+#line 293 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         redir.filename = yyvsp[0].word;
+                         yyval.redirect = make_redirection (0, r_input_direction, redir);
+                       }
+break;
+case 9:
+#line 298 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         redir.filename = yyvsp[0].word;
+                         yyval.redirect = make_redirection (yyvsp[-2].number, r_output_direction, redir);
+                       }
+break;
+case 10:
+#line 303 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         redir.filename = yyvsp[0].word;
+                         yyval.redirect = make_redirection (yyvsp[-2].number, r_input_direction, redir);
+                       }
+break;
+case 11:
+#line 308 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         redir.filename = yyvsp[0].word;
+                         yyval.redirect = make_redirection (1, r_appending_to, redir);
+                       }
+break;
+case 12:
+#line 313 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         redir.filename = yyvsp[0].word;
+                         yyval.redirect = make_redirection (yyvsp[-2].number, r_appending_to, redir);
+                       }
+break;
+case 13:
+#line 318 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         redir.filename = yyvsp[0].word;
+                         yyval.redirect = make_redirection (0, r_reading_until, redir);
+                         redir_stack[need_here_doc++] = yyval.redirect;
+                       }
+break;
+case 14:
+#line 324 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         redir.filename = yyvsp[0].word;
+                         yyval.redirect = make_redirection (yyvsp[-2].number, r_reading_until, redir);
+                         redir_stack[need_here_doc++] = yyval.redirect;
+                       }
+break;
+case 15:
+#line 330 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         redir.dest = yyvsp[0].number;
+                         yyval.redirect = make_redirection (0, r_duplicating_input, redir);
+                       }
+break;
+case 16:
+#line 335 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         redir.dest = yyvsp[0].number;
+                         yyval.redirect = make_redirection (yyvsp[-2].number, r_duplicating_input, redir);
+                       }
+break;
+case 17:
+#line 340 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         redir.dest = yyvsp[0].number;
+                         yyval.redirect = make_redirection (1, r_duplicating_output, redir);
+                       }
+break;
+case 18:
+#line 345 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         redir.dest = yyvsp[0].number;
+                         yyval.redirect = make_redirection (yyvsp[-2].number, r_duplicating_output, redir);
+                       }
+break;
+case 19:
+#line 350 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         redir.filename = yyvsp[0].word;
+                         yyval.redirect = make_redirection (0, r_duplicating_input_word, redir);
+                       }
+break;
+case 20:
+#line 355 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         redir.filename = yyvsp[0].word;
+                         yyval.redirect = make_redirection (yyvsp[-2].number, r_duplicating_input_word, redir);
+                       }
+break;
+case 21:
+#line 360 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         redir.filename = yyvsp[0].word;
+                         yyval.redirect = make_redirection (1, r_duplicating_output_word, redir);
+                       }
+break;
+case 22:
+#line 365 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         redir.filename = yyvsp[0].word;
+                         yyval.redirect = make_redirection (yyvsp[-2].number, r_duplicating_output_word, redir);
+                       }
+break;
+case 23:
+#line 370 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         redir.filename = yyvsp[0].word;
+                         yyval.redirect = make_redirection
+                           (0, r_deblank_reading_until, redir);
+                         redir_stack[need_here_doc++] = yyval.redirect;
+                       }
+break;
+case 24:
+#line 377 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         redir.filename = yyvsp[0].word;
+                         yyval.redirect = make_redirection
+                           (yyvsp[-2].number, r_deblank_reading_until, redir);
+                         redir_stack[need_here_doc++] = yyval.redirect;
+                       }
+break;
+case 25:
+#line 384 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         redir.dest = 0L;
+                         yyval.redirect = make_redirection (1, r_close_this, redir);
+                       }
+break;
+case 26:
+#line 389 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         redir.dest = 0L;
+                         yyval.redirect = make_redirection (yyvsp[-2].number, r_close_this, redir);
+                       }
+break;
+case 27:
+#line 394 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         redir.dest = 0L;
+                         yyval.redirect = make_redirection (0, r_close_this, redir);
+                       }
+break;
+case 28:
+#line 399 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         redir.dest = 0L;
+                         yyval.redirect = make_redirection (yyvsp[-2].number, r_close_this, redir);
+                       }
+break;
+case 29:
+#line 404 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         redir.filename = yyvsp[0].word;
+                         yyval.redirect = make_redirection (1, r_err_and_out, redir);
+                       }
+break;
+case 30:
+#line 409 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         redir.filename = yyvsp[0].word;
+                         yyval.redirect = make_redirection (yyvsp[-2].number, r_input_output, redir);
+                       }
+break;
+case 31:
+#line 414 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         redir.filename = yyvsp[0].word;
+                         yyval.redirect = make_redirection (0, r_input_output, redir);
+                       }
+break;
+case 32:
+#line 419 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         redir.filename = yyvsp[0].word;
+                         yyval.redirect = make_redirection (1, r_output_force, redir);
+                       }
+break;
+case 33:
+#line 424 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         redir.filename = yyvsp[0].word;
+                         yyval.redirect = make_redirection (yyvsp[-2].number, r_output_force, redir);
+                       }
+break;
+case 34:
+#line 431 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.element.word = yyvsp[0].word; yyval.element.redirect = 0; }
+break;
+case 35:
+#line 433 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.element.word = yyvsp[0].word; yyval.element.redirect = 0; }
+break;
+case 36:
+#line 435 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.element.redirect = yyvsp[0].redirect; yyval.element.word = 0; }
+break;
+case 37:
+#line 439 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         yyval.redirect = yyvsp[0].redirect;
+                       }
+break;
+case 38:
+#line 443 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         register REDIRECT *t;
 
-/* Return a string which will be printed as a prompt.  The string
-   may contain special characters which are decoded as follows:
+                         for (t = yyvsp[-1].redirect; t->next; t = t->next)
+                           ;
+                         t->next = yyvsp[0].redirect;
+                         yyval.redirect = yyvsp[-1].redirect;
+                       }
+break;
+case 39:
+#line 454 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = make_simple_command (yyvsp[0].element, (COMMAND *)NULL); }
+break;
+case 40:
+#line 456 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = make_simple_command (yyvsp[0].element, yyvsp[-1].command); }
+break;
+case 41:
+#line 460 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = clean_simple_command (yyvsp[0].command); }
+break;
+case 42:
+#line 462 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = yyvsp[0].command; }
+break;
+case 43:
+#line 464 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         COMMAND *tc;
 
-       \a      bell (ascii 07)
-       \e      escape (ascii 033)
-       \d      the date in Day Mon Date format
-       \h      the hostname up to the first `.'
-       \H      the hostname
-       \j      the number of active jobs
-       \l      the basename of the shell's tty device name
-       \n      CRLF
-       \s      the name of the shell
-       \t      the time in 24-hour hh:mm:ss format
-       \T      the time in 12-hour hh:mm:ss format
-       \@      the time in 12-hour am/pm format
-       \v      the version of bash (e.g., 2.00)
-       \V      the release of bash, version + patchlevel (e.g., 2.00.0)
-       \w      the current working directory
-       \W      the last element of $PWD
-       \u      your username
-       \#      the command number of this command
-       \!      the history number of this command
-       \$      a $ or a # if you are root
-       \nnn    character code nnn in octal
-       \\      a backslash
-       \[      begin a sequence of non-printing chars
-       \]      end a sequence of non-printing chars
-*/
-#define PROMPT_GROWTH 48
-char *
-decode_prompt_string (string)
-     char *string;
+                         tc = yyvsp[-1].command;
+                         if (tc->redirects)
+                           {
+                             register REDIRECT *t;
+                             for (t = tc->redirects; t->next; t = t->next)
+                               ;
+                             t->next = yyvsp[0].redirect;
+                           }
+                         else
+                           tc->redirects = yyvsp[0].redirect;
+                         yyval.command = yyvsp[-1].command;
+                       }
+break;
+case 44:
+#line 480 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = yyvsp[0].command; }
+break;
+case 45:
+#line 484 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = yyvsp[0].command; }
+break;
+case 46:
+#line 486 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = yyvsp[0].command; }
+break;
+case 47:
+#line 488 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = make_while_command (yyvsp[-3].command, yyvsp[-1].command); }
+break;
+case 48:
+#line 490 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = make_until_command (yyvsp[-3].command, yyvsp[-1].command); }
+break;
+case 49:
+#line 492 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = yyvsp[0].command; }
+break;
+case 50:
+#line 494 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = yyvsp[0].command; }
+break;
+case 51:
+#line 496 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = yyvsp[0].command; }
+break;
+case 52:
+#line 498 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = yyvsp[0].command; }
+break;
+case 53:
+#line 500 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = yyvsp[0].command; }
+break;
+case 54:
+#line 502 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = yyvsp[0].command; }
+break;
+case 55:
+#line 504 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = yyvsp[0].command; }
+break;
+case 56:
+#line 508 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = make_for_command (yyvsp[-4].word, add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), yyvsp[-1].command); }
+break;
+case 57:
+#line 510 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = make_for_command (yyvsp[-4].word, add_string_to_list ("$@", (WORD_LIST *)NULL), yyvsp[-1].command); }
+break;
+case 58:
+#line 512 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = make_for_command (yyvsp[-5].word, add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), yyvsp[-1].command); }
+break;
+case 59:
+#line 514 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = make_for_command (yyvsp[-5].word, add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), yyvsp[-1].command); }
+break;
+case 60:
+#line 516 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = make_for_command (yyvsp[-8].word, REVERSE_LIST (yyvsp[-5].word_list, WORD_LIST *), yyvsp[-1].command); }
+break;
+case 61:
+#line 518 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = make_for_command (yyvsp[-8].word, REVERSE_LIST (yyvsp[-5].word_list, WORD_LIST *), yyvsp[-1].command); }
+break;
+case 62:
+#line 522 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = make_arith_for_command (yyvsp[-5].word_list, yyvsp[-1].command, arith_for_lineno); }
+break;
+case 63:
+#line 524 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = make_arith_for_command (yyvsp[-5].word_list, yyvsp[-1].command, arith_for_lineno); }
+break;
+case 64:
+#line 526 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = make_arith_for_command (yyvsp[-3].word_list, yyvsp[-1].command, arith_for_lineno); }
+break;
+case 65:
+#line 528 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = make_arith_for_command (yyvsp[-3].word_list, yyvsp[-1].command, arith_for_lineno); }
+break;
+case 66:
+#line 532 "/usr/homes/chet/src/bash/src/parse.y"
 {
-  WORD_LIST *list;
-  char *result, *t;
-  struct dstack save_dstack;
-#if defined (PROMPT_STRING_DECODE)
-  int result_size, result_index;
-  int c, n;
-  char *temp, octal_string[4];
-  time_t the_time;
-
-  result = xmalloc (result_size = PROMPT_GROWTH);
-  result[result_index = 0] = 0;
-  temp = (char *)NULL;
-
-  while (c = *string++)
-    {
-      if (posixly_correct && c == '!')
-       {
-         if (*string == '!')
-           {
-             temp = savestring ("!");
-             goto add_string;
-           }
-         else
-           {
-#if !defined (HISTORY)
-               temp = savestring ("1");
-#else /* HISTORY */
-               temp = itos (history_number ());
-#endif /* HISTORY */
-               string--;       /* add_string increments string again. */
-               goto add_string;
-           }
-       }
-      if (c == '\\')
-       {
-         c = *string;
-
-         switch (c)
-           {
-           case '0':
-           case '1':
-           case '2':
-           case '3':
-           case '4':
-           case '5':
-           case '6':
-           case '7':
-             strncpy (octal_string, string, 3);
-             octal_string[3] = '\0';
-
-             n = read_octal (octal_string);
-             temp = xmalloc (3);
-
-             if (n == CTLESC || n == CTLNUL)
-               {
-                 string += 3;
-                 temp[0] = CTLESC;
-                 temp[1] = n;
-                 temp[2] = '\0';
-               }
-             else if (n == -1)
-               {
-                 temp[0] = '\\';
-                 temp[1] = '\0';
-               }
-             else
-               {
-                 string += 3;
-                 temp[0] = n;
-                 temp[1] = '\0';
-               }
-
-             c = 0;
-             goto add_string;
-
-           case 't':
-           case 'd':
-           case 'T':
-           case '@':
-             /* Make the current time/date into a string. */
-             the_time = time (0);
-             temp = ctime (&the_time);
-
-             temp = (c != 'd') ? savestring (temp + 11) : savestring (temp);
-             temp[(c != 'd') ? 8 : 10] = '\0';
-
-             /* quick and dirty conversion to 12-hour time */
-             if (c == 'T' || c == '@')
-               {
-                 if (c == '@')
-                   {
-                     temp[5] = 'a';    /* am/pm format */
-                     temp[6] = 'm';
-                     temp[7] = '\0';
-                   }
-                 c = temp[2];
-                 temp[2] = '\0';
-                 n = atoi (temp);
-                 temp[2] = c;
-                 n -= 12;
-                 if (n > 0)
-                   {
-                     temp[0] = (n / 10) + '0';
-                     temp[1] = (n % 10) + '0';
-                   }
-                 if (n >= 0 && temp[5] == 'a')
-                   temp[5] = 'p';
-               }
-             goto add_string;
-
-           case 'r':
-             temp = xmalloc (2);
-             temp[0] = '\r';
-             temp[1] = '\0';
-             goto add_string;
-
-           case 'n':
-             temp = xmalloc (3);
-             temp[0] = no_line_editing ? '\n' : '\r';
-             temp[1] = no_line_editing ? '\0' : '\n';
-             temp[2] = '\0';
-             goto add_string;
-
-           case 's':
-             temp = base_pathname (shell_name);
-             temp = savestring (temp);
-             goto add_string;
-
-           case 'v':
-           case 'V':
-             temp = xmalloc (8);
-             if (c == 'v')
-               strcpy (temp, dist_version);
-             else
-               sprintf (temp, "%s.%d", dist_version, patch_level);
-             goto add_string;
-
-           case 'w':
-           case 'W':
-             {
-               /* Use the value of PWD because it is much more efficient. */
-               char t_string[PATH_MAX];
-               int tlen;
-
-               temp = get_string_value ("PWD");
-
-               if (temp == 0)
-                 {
-                   if (getcwd (t_string, sizeof(t_string)) == 0)
-                     {
-                       t_string[0] = '.';
-                       tlen = 1;
-                     }
-                   else
-                     tlen = strlen (t_string);
-                 }
-               else
-                 {
-                   tlen = sizeof (t_string) - 1;
-                   strncpy (t_string, temp, tlen);
-                 }
-               t_string[tlen] = '\0';
-
-               if (c == 'W')
-                 {
-                   t = strrchr (t_string, '/');
-                   if (t && t != t_string)
-                     strcpy (t_string, t + 1);
-                 }
-               else
-                 /* polite_directory_format is guaranteed to return a string
-                    no longer than PATH_MAX - 1 characters. */
-                 strcpy (t_string, polite_directory_format (t_string));
-
-               /* If we're going to be expanding the prompt string later,
-                  quote the directory name. */
-               if (promptvars || posixly_correct)
-#if 0
-                 temp = backslash_quote (t_string);
-#else
-                 /* Make sure that expand_prompt_string is called with a
-                    second argument of Q_DOUBLE_QUOTE if we use this
-                    function here. */
-                 temp = backslash_quote_for_double_quotes (t_string);
-#endif
-               else
-                 temp = savestring (t_string);
-
-               goto add_string;
-             }
-
-           case 'u':
-             if (current_user.user_name == 0)
-               get_current_user_info ();
-             temp = savestring (current_user.user_name);
-             goto add_string;
-
-           case 'h':
-           case 'H':
-             temp = savestring (current_host_name);
-             if (c == 'h' && (t = (char *)strchr (temp, '.')))
-               *t = '\0';
-             goto add_string;
-
-           case '#':
-             temp = itos (current_command_number);
-             goto add_string;
-
-           case '!':
-#if !defined (HISTORY)
-             temp = savestring ("1");
-#else /* HISTORY */
-             temp = itos (history_number ());
-#endif /* HISTORY */
-             goto add_string;
-
-           case '$':
-             t = temp = xmalloc (3);
-             if ((promptvars || posixly_correct) && (current_user.euid != 0))
-               *t++ = '\\';
-             *t++ = current_user.euid == 0 ? '#' : '$';
-             *t = '\0';
-             goto add_string;
-
-           case 'j':
-             temp = itos (count_all_jobs ());
-             goto add_string;
-
-           case 'l':
-#if defined (HAVE_TTYNAME)
-             temp = (char *)ttyname (fileno (stdin));
-             t = temp ? base_pathname (temp) : "tty";
-             temp = savestring (t);
-#else
-             temp = savestring ("tty");
-#endif /* !HAVE_TTYNAME */
-             goto add_string;
-
-#if defined (READLINE)
-           case '[':
-           case ']':
-             temp = xmalloc (3);
-             temp[0] = '\001';
-             temp[1] = (c == '[') ? RL_PROMPT_START_IGNORE : RL_PROMPT_END_IGNORE;
-             temp[2] = '\0';
-             goto add_string;
-#endif /* READLINE */
-
-           case '\\':
-             temp = xmalloc (2);
-             temp[0] = c;
-             temp[1] = '\0';
-             goto add_string;
-
-           case 'a':
-           case 'e':
-             temp = xmalloc (2);
-             temp[0] = (c == 'a') ? '\07' : '\033';
-             temp[1] = '\0';
-             goto add_string;
-
-           default:
-             temp = xmalloc (3);
-             temp[0] = '\\';
-             temp[1] = c;
-             temp[2] = '\0';
-
-           add_string:
-             if (c)
-               string++;
-             result =
-               sub_append_string (temp, result, &result_index, &result_size);
-             temp = (char *)NULL; /* Freed in sub_append_string (). */
-             result[result_index] = '\0';
-             break;
-           }
-       }
-      else
-       {
-         RESIZE_MALLOCED_BUFFER (result, result_index, 3, result_size, PROMPT_GROWTH);
-         result[result_index++] = c;
-         result[result_index] = '\0';
-       }
-    }
-#else /* !PROMPT_STRING_DECODE */
-  result = savestring (string);
-#endif /* !PROMPT_STRING_DECODE */
-
-  /* Save the delimiter stack and point `dstack' to temp space so any
-     command substitutions in the prompt string won't result in screwing
-     up the parser's quoting state. */
-  save_dstack = dstack;
-  dstack = temp_dstack;
-  dstack.delimiter_depth = 0;
-
-  /* Perform variable and parameter expansion and command substitution on
-     the prompt string. */
-  if (promptvars || posixly_correct)
-    {
-#if 0
-      list = expand_string_unsplit (result, Q_DOUBLE_QUOTES);
-#else
-      list = expand_prompt_string (result, Q_DOUBLE_QUOTES);
-#endif
-      free (result);
-      result = string_list (list);
-      dispose_words (list);
-    }
-  else
-    {
-      t = dequote_string (result);
-      free (result);
-      result = t;
-    }
-
-  dstack = save_dstack;
-
-  return (result);
-}
+                         yyval.command = make_select_command (yyvsp[-4].word, add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), yyvsp[-1].command);
+                       }
+break;
+case 67:
+#line 536 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         yyval.command = make_select_command (yyvsp[-4].word, add_string_to_list ("$@", (WORD_LIST *)NULL), yyvsp[-1].command);
+                       }
+break;
+case 68:
+#line 540 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         yyval.command = make_select_command (yyvsp[-5].word, add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), yyvsp[-1].command);
+                       }
+break;
+case 69:
+#line 544 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         yyval.command = make_select_command (yyvsp[-5].word, add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), yyvsp[-1].command);
+                       }
+break;
+case 70:
+#line 548 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         yyval.command = make_select_command (yyvsp[-8].word, (WORD_LIST *)reverse_list (yyvsp[-5].word_list), yyvsp[-1].command);
+                       }
+break;
+case 71:
+#line 552 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         yyval.command = make_select_command (yyvsp[-8].word, (WORD_LIST *)reverse_list (yyvsp[-5].word_list), yyvsp[-1].command);
+                       }
+break;
+case 72:
+#line 558 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = make_case_command (yyvsp[-4].word, (PATTERN_LIST *)NULL); }
+break;
+case 73:
+#line 560 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = make_case_command (yyvsp[-5].word, yyvsp[-2].pattern); }
+break;
+case 74:
+#line 562 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = make_case_command (yyvsp[-4].word, yyvsp[-1].pattern); }
+break;
+case 75:
+#line 566 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = make_function_def (yyvsp[-4].word, yyvsp[0].command, function_dstart, function_bstart); }
+break;
+case 76:
+#line 569 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = make_function_def (yyvsp[-4].word, yyvsp[0].command, function_dstart, function_bstart); }
+break;
+case 77:
+#line 572 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = make_function_def (yyvsp[-2].word, yyvsp[0].command, function_dstart, function_bstart); }
+break;
+case 78:
+#line 577 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = yyvsp[0].command; }
+break;
+case 79:
+#line 579 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         COMMAND *tc;
 
-/* Report a syntax error, and restart the parser.  Call here for fatal
-   errors. */
-int
-yyerror ()
+                         tc = yyvsp[-1].command;
+                         /* According to Posix.2 3.9.5, redirections
+                            specified after the body of a function should
+                            be attached to the function and performed when
+                            the function is executed, not as part of the
+                            function definition command. */
+                         /* XXX - I don't think it matters, but we might
+                            want to change this in the future to avoid
+                            problems differentiating between a function
+                            definition with a redirection and a function
+                            definition containing a single command with a
+                            redirection.  The two are semantically equivalent,
+                            though -- the only difference is in how the
+                            command printing code displays the redirections. */
+                         if (tc->redirects)
+                           {
+                             register REDIRECT *t;
+                             for (t = tc->redirects; t->next; t = t->next)
+                               ;
+                             t->next = yyvsp[0].redirect;
+                           }
+                         else
+                           tc->redirects = yyvsp[0].redirect;
+                         yyval.command = yyvsp[-1].command;
+                       }
+break;
+case 80:
+#line 610 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         yyval.command = make_subshell_command (yyvsp[-1].command);
+                         yyval.command->flags |= CMD_WANT_SUBSHELL;
+                       }
+break;
+case 81:
+#line 617 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = make_if_command (yyvsp[-3].command, yyvsp[-1].command, (COMMAND *)NULL); }
+break;
+case 82:
+#line 619 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = make_if_command (yyvsp[-5].command, yyvsp[-3].command, yyvsp[-1].command); }
+break;
+case 83:
+#line 621 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = make_if_command (yyvsp[-4].command, yyvsp[-2].command, yyvsp[-1].command); }
+break;
+case 84:
+#line 626 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = make_group_command (yyvsp[-1].command); }
+break;
+case 85:
+#line 630 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = make_arith_command (yyvsp[0].word_list); }
+break;
+case 86:
+#line 634 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = yyvsp[-1].command; }
+break;
+case 87:
+#line 638 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = make_if_command (yyvsp[-2].command, yyvsp[0].command, (COMMAND *)NULL); }
+break;
+case 88:
+#line 640 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = make_if_command (yyvsp[-4].command, yyvsp[-2].command, yyvsp[0].command); }
+break;
+case 89:
+#line 642 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = make_if_command (yyvsp[-3].command, yyvsp[-1].command, yyvsp[0].command); }
+break;
+case 91:
+#line 647 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyvsp[0].pattern->next = yyvsp[-1].pattern; yyval.pattern = yyvsp[0].pattern; }
+break;
+case 92:
+#line 651 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.pattern = make_pattern_list (yyvsp[-2].word_list, yyvsp[0].command); }
+break;
+case 93:
+#line 653 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.pattern = make_pattern_list (yyvsp[-2].word_list, (COMMAND *)NULL); }
+break;
+case 94:
+#line 655 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.pattern = make_pattern_list (yyvsp[-2].word_list, yyvsp[0].command); }
+break;
+case 95:
+#line 657 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.pattern = make_pattern_list (yyvsp[-2].word_list, (COMMAND *)NULL); }
+break;
+case 97:
+#line 662 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyvsp[-1].pattern->next = yyvsp[-2].pattern; yyval.pattern = yyvsp[-1].pattern; }
+break;
+case 98:
+#line 666 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.word_list = make_word_list (yyvsp[0].word, (WORD_LIST *)NULL); }
+break;
+case 99:
+#line 668 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.word_list = make_word_list (yyvsp[0].word, yyvsp[-2].word_list); }
+break;
+case 100:
+#line 677 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         yyval.command = yyvsp[0].command;
+                         if (need_here_doc)
+                           gather_here_documents ();
+                        }
+break;
+case 102:
+#line 686 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         yyval.command = yyvsp[0].command;
+                       }
+break;
+case 104:
+#line 693 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         if (yyvsp[-2].command->type == cm_connection)
+                           yyval.command = connect_async_list (yyvsp[-2].command, (COMMAND *)NULL, '&');
+                         else
+                           yyval.command = command_connect (yyvsp[-2].command, (COMMAND *)NULL, '&');
+                       }
+break;
+case 106:
+#line 704 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, AND_AND); }
+break;
+case 107:
+#line 706 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, OR_OR); }
+break;
+case 108:
+#line 708 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         if (yyvsp[-3].command->type == cm_connection)
+                           yyval.command = connect_async_list (yyvsp[-3].command, yyvsp[0].command, '&');
+                         else
+                           yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, '&');
+                       }
+break;
+case 109:
+#line 715 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, ';'); }
+break;
+case 110:
+#line 717 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, ';'); }
+break;
+case 111:
+#line 719 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = yyvsp[0].command; }
+break;
+case 117:
+#line 738 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         yyval.command = yyvsp[0].command;
+                         if (need_here_doc)
+                           gather_here_documents ();
+                       }
+break;
+case 118:
+#line 744 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         if (yyvsp[-1].command->type == cm_connection)
+                           yyval.command = connect_async_list (yyvsp[-1].command, (COMMAND *)NULL, '&');
+                         else
+                           yyval.command = command_connect (yyvsp[-1].command, (COMMAND *)NULL, '&');
+                         if (need_here_doc)
+                           gather_here_documents ();
+                       }
+break;
+case 119:
+#line 753 "/usr/homes/chet/src/bash/src/parse.y"
 {
-  report_syntax_error ((char *)NULL);
-  reset_parser ();
-  return (0);
-}
-
-/* Report a syntax error with line numbers, etc.
-   Call here for recoverable errors.  If you have a message to print,
-   then place it in MESSAGE, otherwise pass NULL and this will figure
-   out an appropriate message for you. */
-static void
-report_syntax_error (message)
-     char *message;
+                         yyval.command = yyvsp[-1].command;
+                         if (need_here_doc)
+                           gather_here_documents ();
+                       }
+break;
+case 120:
+#line 761 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, AND_AND); }
+break;
+case 121:
+#line 763 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, OR_OR); }
+break;
+case 122:
+#line 765 "/usr/homes/chet/src/bash/src/parse.y"
 {
-  char *msg, *t;
-  int token_end, i;
-  char msg2[2];
-
-  if (message)
-    {
-      parser_error (line_number, "%s", message);
-      if (interactive && EOF_Reached)
-       EOF_Reached = 0;
-      last_command_exit_value = EX_USAGE;
-      return;
-    }
-
-  /* If the line of input we're reading is not null, try to find the
-     objectionable token. */
-  if (shell_input_line && *shell_input_line)
-    {
-      t = shell_input_line;
-      i = shell_input_line_index;
-      token_end = 0;
-
-      if (i && t[i] == '\0')
-       i--;
-
-      while (i && (whitespace (t[i]) || t[i] == '\n'))
-       i--;
-
-      if (i)
-       token_end = i + 1;
-
-      while (i && (member (t[i], " \n\t;|&") == 0))
-       i--;
-
-      while (i != token_end && (whitespace (t[i]) || t[i] == '\n'))
-       i++;
-
-      /* Print the offending token. */
-      if (token_end || (i == 0 && token_end == 0))
-       {
-         if (token_end)
-           msg = substring (t, i, token_end);
-         else  /* one-character token */
-           {
-             msg2[0] = t[i];
-             msg2[1] = '\0';
-             msg = msg2;
-           }
-
-         parser_error (line_number, "syntax error near unexpected token `%s'", msg);
-
-         if (msg != msg2)
-           free (msg);
-       }
-
-      /* If not interactive, print the line containing the error. */
-      if (interactive == 0)
-       {
-         msg = savestring (shell_input_line);
-         token_end = strlen (msg);
-         while (token_end && msg[token_end - 1] == '\n')
-           msg[--token_end] = '\0';
-
-         parser_error (line_number, "`%s'", msg);
-         free (msg);
-       }
-    }
-  else
-    {
-      msg = EOF_Reached ? "syntax error: unexpected end of file" : "syntax error";
-      parser_error (line_number, "%s", msg);
-      /* When the shell is interactive, this file uses EOF_Reached
-        only for error reporting.  Other mechanisms are used to
-        decide whether or not to exit. */
-      if (interactive && EOF_Reached)
-       EOF_Reached = 0;
-    }
-  last_command_exit_value = EX_USAGE;
-}
-
-/* ??? Needed function. ??? We have to be able to discard the constructs
-   created during parsing.  In the case of error, we want to return
-   allocated objects to the memory pool.  In the case of no error, we want
-   to throw away the information about where the allocated objects live.
-   (dispose_command () will actually free the command. */
-static void
-discard_parser_constructs (error_p)
-     int error_p;
+                         if (yyvsp[-2].command->type == cm_connection)
+                           yyval.command = connect_async_list (yyvsp[-2].command, yyvsp[0].command, '&');
+                         else
+                           yyval.command = command_connect (yyvsp[-2].command, yyvsp[0].command, '&');
+                       }
+break;
+case 123:
+#line 772 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = command_connect (yyvsp[-2].command, yyvsp[0].command, ';'); }
+break;
+case 124:
+#line 775 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = yyvsp[0].command; }
+break;
+case 125:
+#line 779 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = yyvsp[0].command; }
+break;
+case 126:
+#line 781 "/usr/homes/chet/src/bash/src/parse.y"
 {
-}
-
-/* Do that silly `type "bye" to exit' stuff.  You know, "ignoreeof". */
-
-/* A flag denoting whether or not ignoreeof is set. */
-int ignoreeof = 0;
-
-/* The number of times that we have encountered an EOF character without
-   another character intervening.  When this gets above the limit, the
-   shell terminates. */
-int eof_encountered = 0;
-
-/* The limit for eof_encountered. */
-int eof_encountered_limit = 10;
-
-/* If we have EOF as the only input unit, this user wants to leave
-   the shell.  If the shell is not interactive, then just leave.
-   Otherwise, if ignoreeof is set, and we haven't done this the
-   required number of times in a row, print a message. */
-static void
-handle_eof_input_unit ()
+                         yyvsp[0].command->flags |= CMD_INVERT_RETURN;
+                         yyval.command = yyvsp[0].command;
+                       }
+break;
+case 127:
+#line 786 "/usr/homes/chet/src/bash/src/parse.y"
 {
-  if (interactive)
-    {
-      /* shell.c may use this to decide whether or not to write out the
-        history, among other things.  We use it only for error reporting
-        in this file. */
-      if (EOF_Reached)
-       EOF_Reached = 0;
-
-      /* If the user wants to "ignore" eof, then let her do so, kind of. */
-      if (ignoreeof)
-       {
-         if (eof_encountered < eof_encountered_limit)
-           {
-             fprintf (stderr, "Use \"%s\" to leave the shell.\n",
-                      login_shell ? "logout" : "exit");
-             eof_encountered++;
-             /* Reset the prompt string to be $PS1. */
-             prompt_string_pointer = (char **)NULL;
-             prompt_again ();
-             last_read_token = current_token = '\n';
-             return;
-           }
-       }
-
-      /* In this case EOF should exit the shell.  Do it now. */
-      reset_parser ();
-      exit_builtin ((WORD_LIST *)NULL);
+                         yyvsp[0].command->flags |= yyvsp[-1].number;
+                         yyval.command = yyvsp[0].command;
+                       }
+break;
+case 128:
+#line 791 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         yyvsp[0].command->flags |= yyvsp[-2].number|CMD_INVERT_RETURN;
+                         yyval.command = yyvsp[0].command;
+                       }
+break;
+case 129:
+#line 796 "/usr/homes/chet/src/bash/src/parse.y"
+{
+                         yyvsp[0].command->flags |= yyvsp[-1].number|CMD_INVERT_RETURN;
+                         yyval.command = yyvsp[0].command;
+                       }
+break;
+case 130:
+#line 804 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = command_connect (yyvsp[-3].command, yyvsp[0].command, '|'); }
+break;
+case 131:
+#line 806 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.command = yyvsp[0].command; }
+break;
+case 132:
+#line 810 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.number = CMD_TIME_PIPELINE; }
+break;
+case 133:
+#line 812 "/usr/homes/chet/src/bash/src/parse.y"
+{ yyval.number = CMD_TIME_PIPELINE|CMD_TIME_POSIX; }
+break;
+#line 5117 "y.tab.c"
     }
-  else
+    yyssp -= yym;
+    yystate = *yyssp;
+    yyvsp -= yym;
+    yym = yylhs[yyn];
+    if (yystate == 0 && yym == 0)
     {
-      /* We don't write history files, etc., for non-interactive shells. */
-      EOF_Reached = 1;
-    }
-}
-
-static WORD_LIST parse_string_error;
-
-/* Take a string and run it through the shell parser, returning the
-   resultant word list.  Used by compound array assignment. */
-WORD_LIST *
-parse_string_to_word_list (s, whom)
-     char *s, *whom;
-{
-  WORD_LIST *wl;
-  int tok, orig_line_number, orig_input_terminator;
-#if defined (HISTORY)
-  int old_remember_on_history, old_history_expansion_inhibited;
+#if YYDEBUG
+        if (yydebug)
+            printf("%sdebug: after reduction, shifting from state 0 to\
+ state %d\n", YYPREFIX, YYFINAL);
 #endif
-
-#if defined (HISTORY)
-  old_remember_on_history = remember_on_history;
-#  if defined (BANG_HISTORY)
-  old_history_expansion_inhibited = history_expansion_inhibited;
-#  endif
-  bash_history_disable ();
+        yystate = YYFINAL;
+        *++yyssp = YYFINAL;
+        *++yyvsp = yyval;
+        if (yychar < 0)
+        {
+            if ((yychar = yylex()) < 0) yychar = 0;
+#if YYDEBUG
+            if (yydebug)
+            {
+                yys = 0;
+                if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
+                if (!yys) yys = "illegal-symbol";
+                printf("%sdebug: state %d, reading %d (%s)\n",
+                        YYPREFIX, YYFINAL, yychar, yys);
+            }
 #endif
-
-  orig_line_number = line_number;
-  orig_input_terminator = shell_input_line_terminator;
-
-  push_stream (1);
-  last_read_token = '\n';
-
-  with_input_from_string (s, whom);
-  wl = (WORD_LIST *)NULL;
-  while ((tok = read_token (READ)) != yacc_EOF)
-    {
-      if (tok == '\n' && *bash_input.location.string == '\0')
-       break;
-      if (tok != WORD && tok != ASSIGNMENT_WORD)
-       {
-         line_number = orig_line_number + line_number - 1;
-         yyerror ();   /* does the right thing */
-         if (wl)
-           dispose_words (wl);
-         wl = &parse_string_error;
-         break;
-       }
-      wl = make_word_list (yylval.word, wl);
+        }
+        if (yychar == 0) goto yyaccept;
+        goto yyloop;
     }
-  
-  last_read_token = '\n';
-  pop_stream ();
-
-#if defined (HISTORY)
-  remember_on_history = old_remember_on_history;
-#  if defined (BANG_HISTORY)
-  history_expansion_inhibited = old_history_expansion_inhibited;
-#  endif /* BANG_HISTORY */
-#endif /* HISTORY */
-
-  shell_input_line_terminator = orig_input_terminator;
-
-  if (wl == &parse_string_error)
+    if ((yyn = yygindex[yym]) && (yyn += yystate) >= 0 &&
+            yyn <= YYTABLESIZE && yycheck[yyn] == yystate)
+        yystate = yytable[yyn];
+    else
+        yystate = yydgoto[yym];
+#if YYDEBUG
+    if (yydebug)
+        printf("%sdebug: after reduction, shifting from state %d \
+to state %d\n", YYPREFIX, *yyssp, yystate);
+#endif
+    if (yyssp >= yysslim && yygrowstack())
     {
-      last_command_exit_value = EXECUTION_FAILURE;
-      if (interactive_shell == 0 && posixly_correct)
-       jump_to_top_level (FORCE_EOF);
-      else
-       jump_to_top_level (DISCARD);
+        goto yyoverflow;
     }
-
-  return (REVERSE_LIST (wl, WORD_LIST *));
+    *++yyssp = yystate;
+    *++yyvsp = yyval;
+    goto yyloop;
+yyoverflow:
+    yyerror("yacc stack overflow");
+yyabort:
+    return (1);
+yyaccept:
+    return (0);
 }
diff --git a/y.tab.h b/y.tab.h
index 03e9ce0f54fc5d2ecc008cfd8893de9bbbda3c6c..c8e1ac21444182e25ebb41dcc015728114fb2354 100644 (file)
--- a/y.tab.h
+++ b/y.tab.h
@@ -1,3 +1,46 @@
+#ifndef YYERRCODE
+#define YYERRCODE 256
+#endif
+
+#define IF 257
+#define THEN 258
+#define ELSE 259
+#define ELIF 260
+#define FI 261
+#define CASE 262
+#define ESAC 263
+#define FOR 264
+#define SELECT 265
+#define WHILE 266
+#define UNTIL 267
+#define DO 268
+#define DONE 269
+#define FUNCTION 270
+#define COND_START 271
+#define COND_END 272
+#define COND_ERROR 273
+#define IN 274
+#define BANG 275
+#define TIME 276
+#define TIMEOPT 277
+#define WORD 278
+#define ASSIGNMENT_WORD 279
+#define NUMBER 280
+#define ARITH_CMD 281
+#define ARITH_FOR_EXPRS 282
+#define COND_CMD 283
+#define AND_AND 284
+#define OR_OR 285
+#define GREATER_GREATER 286
+#define LESS_LESS 287
+#define LESS_AND 288
+#define GREATER_AND 289
+#define SEMI_SEMI 290
+#define LESS_LESS_MINUS 291
+#define AND_GREATER 292
+#define LESS_GREATER 293
+#define GREATER_BAR 294
+#define yacc_EOF 295
 typedef union {
   WORD_DESC *word;             /* the word that we read. */
   int number;                  /* the number that we read. */
@@ -7,45 +50,4 @@ typedef union {
   ELEMENT element;
   PATTERN_LIST *pattern;
 } YYSTYPE;
-#define        IF      258
-#define        THEN    259
-#define        ELSE    260
-#define        ELIF    261
-#define        FI      262
-#define        CASE    263
-#define        ESAC    264
-#define        FOR     265
-#define        SELECT  266
-#define        WHILE   267
-#define        UNTIL   268
-#define        DO      269
-#define        DONE    270
-#define        FUNCTION        271
-#define        COND_START      272
-#define        COND_END        273
-#define        COND_ERROR      274
-#define        IN      275
-#define        BANG    276
-#define        TIME    277
-#define        TIMEOPT 278
-#define        WORD    279
-#define        ASSIGNMENT_WORD 280
-#define        NUMBER  281
-#define        ARITH_CMD       282
-#define        ARITH_FOR_EXPRS 283
-#define        COND_CMD        284
-#define        AND_AND 285
-#define        OR_OR   286
-#define        GREATER_GREATER 287
-#define        LESS_LESS       288
-#define        LESS_AND        289
-#define        GREATER_AND     290
-#define        SEMI_SEMI       291
-#define        LESS_LESS_MINUS 292
-#define        AND_GREATER     293
-#define        LESS_GREATER    294
-#define        GREATER_BAR     295
-#define        yacc_EOF        296
-
-
 extern YYSTYPE yylval;