Large dos2unix commit...

1 files changed, 979 insertions, 979 deletions

diff --git a/MSVC/readline/readline.c b/MSVC/readline/readline.c
index 21694c7..54fea59 100644
--- a/MSVC/readline/readline.c
+++ b/MSVC/readline/readline.c
@@ -1,979 +1,979 @@
-/* readline.c -- a general facility for reading lines of input

-   with emacs style editing and completion. */

-

-/* Copyright (C) 1987-2002 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

-

-#include "config.h"

-

-#include <sys/types.h>

-#include "posixstat.h"

-#include <fcntl.h>

-#if defined (HAVE_SYS_FILE_H)

-#  include <sys/file.h>

-#endif /* HAVE_SYS_FILE_H */

-

-#if defined (HAVE_UNISTD_H)

-#  include <unistd.h>

-#endif /* HAVE_UNISTD_H */

-

-#if defined (HAVE_STDLIB_H)

-#  include <stdlib.h>

-#else

-#  include "ansi_stdlib.h"

-#endif /* HAVE_STDLIB_H */

-

-#if defined (HAVE_LOCALE_H)

-#  include <locale.h>

-#endif

-

-#include <stdio.h>

-#include "posixjmp.h"

-

-/* System-specific feature definitions and include files. */

-#include "rldefs.h"

-#include "rlmbutil.h"

-

-#if defined (__EMX__)

-#  define INCL_DOSPROCESS

-#  include <os2.h>

-#endif /* __EMX__ */

-

-/* Some standard library routines. */

-#include "readline.h"

-#include "history.h"

-

-#include "rlprivate.h"

-#include "rlshell.h"

-#include "xmalloc.h"

-

-#ifndef RL_LIBRARY_VERSION

-#  define RL_LIBRARY_VERSION "4.3"

-#endif

-

-#ifndef RL_READLINE_VERSION

-#  define RL_READLINE_VERSION	0x0403

-#endif

-

-extern void _rl_free_history_entry PARAMS((HIST_ENTRY *));

-

-/* Forward declarations used in this file. */

-static char *readline_internal PARAMS((void));

-static void readline_initialize_everything PARAMS((void));

-

-static void bind_arrow_keys_internal PARAMS((Keymap));

-static void bind_arrow_keys PARAMS((void));

-

-static void readline_default_bindings PARAMS((void));

-

-/* **************************************************************** */

-/*								    */

-/*			Line editing input utility		    */

-/*								    */

-/* **************************************************************** */

-

-const char *rl_library_version = RL_LIBRARY_VERSION;

-

-int rl_readline_version = RL_READLINE_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.

-   By default, it is the standard emacs keymap. */

-Keymap _rl_keymap = emacs_standard_keymap;

-

-/* The current style of editing. */

-int rl_editing_mode = emacs_mode;

-

-/* The current insert mode:  input (the default) or overwrite */

-int rl_insert_mode = RL_IM_DEFAULT;

-

-/* Non-zero if we called this function from _rl_dispatch().  It's present

-   so functions can find out whether they were called from a key binding

-   or directly from an application. */

-int rl_dispatching;

-

-/* Non-zero if the previous command was a kill command. */

-int _rl_last_command_was_kill = 0;

-

-/* The current value of the numeric argument specified by the user. */

-int rl_numeric_arg = 1;

-

-/* Non-zero if an argument was typed. */

-int rl_explicit_arg = 0;

-

-/* Temporary value used while generating the argument. */

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

-

-/* Mark in the current input line. */

-int rl_mark;

-

-/* Length of the current input line. */

-int rl_end;

-

-/* Make this non-zero to return the current input_line. */

-int rl_done;

-

-/* The last function executed by readline. */

-rl_command_func_t *rl_last_func = (rl_command_func_t *)NULL;

-

-/* Top level environment for readline_internal (). */

-procenv_t readline_top_level;

-

-/* The streams we interact with. */

-FILE *_rl_in_stream, *_rl_out_stream;

-

-/* The names of the streams that we do input and output to. */

-FILE *rl_instream = (FILE *)NULL;

-FILE *rl_outstream = (FILE *)NULL;

-

-/* Non-zero means echo characters as they are read.  Defaults to no echo;

-   set to 1 if there is a controlling terminal, we can get its attributes,

-   and the attributes include `echo'.  Look at rltty.c:prepare_terminal_settings

-   for the code that sets it. */

-int readline_echoing_p = 0;

-

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

-   and does not want readline to do it the first time. */

-int rl_already_prompted = 0;

-

-/* The number of characters read in order to type this complete command. */

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

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

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

-

-/* The character that can generate an EOF.  Really read from

-   the terminal driver... just defaulted here. */

-int _rl_eof_char = CTRL ('D');

-

-/* Non-zero makes this the next keystroke to read. */

-int rl_pending_input = 0;

-

-/* Pointer to a useful terminal name. */

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

-

-/* Non-zero means to display an asterisk at the starts of history lines

-   which have been modified. */

-int _rl_mark_modified_lines = 0;  

-

-/* The style of `bell' notification preferred.  This can be set to NO_BELL,

-   AUDIBLE_BELL, or VISIBLE_BELL. */

-int _rl_bell_preference = AUDIBLE_BELL;

-     

-/* String inserted into the line by rl_insert_comment (). */

-char *_rl_comment_begin;

-

-/* Keymap holding the function currently being executed. */

-Keymap rl_executing_keymap;

-

-/* Non-zero means to erase entire line, including prompt, on empty input lines. */

-int rl_erase_empty_line = 0;

-

-/* Non-zero means to read only this many characters rather than up to a

-   character bound to accept-line. */

-int rl_num_chars_to_read;

-

-/* Line buffer and maintenence. */

-char *rl_line_buffer = (char *)NULL;

-int rl_line_buffer_len = 0;

-

-/* Forward declarations used by the display, termcap, and history code. */

-

-/* **************************************************************** */

-/*								    */

-/*			`Forward' declarations  		    */

-/*								    */

-/* **************************************************************** */

-

-/* Non-zero means do not parse any lines other than comments and

-   parser directives. */

-unsigned char _rl_parsing_conditionalized_out = 0;

-

-/* Non-zero means to convert characters with the meta bit set to

-   escape-prefixed characters so we can indirect through

-   emacs_meta_keymap or vi_escape_keymap. */

-int _rl_convert_meta_chars_to_ascii = 1;

-

-/* Non-zero means to output characters with the meta bit set directly

-   rather than as a meta-prefixed escape sequence. */

-int _rl_output_meta_chars = 0;

-

-/* **************************************************************** */

-/*								    */

-/*			Top Level Functions			    */

-/*								    */

-/* **************************************************************** */

-

-/* 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_expand_prompt (rl_prompt);

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

-     const char *prompt;

-{

-  char *value;

-

-  /* If we are at EOF return a NULL string. */

-  if (rl_pending_input == EOF)

-    {

-      rl_clear_pending_input ();

-      return ((char *)NULL);

-    }

-

-  rl_set_prompt (prompt);

-

-  rl_initialize ();

-  (*rl_prep_term_function) (_rl_meta_flag);

-

-#if defined (HANDLE_SIGNALS)

-  rl_set_signals ();

-#endif

-

-  value = readline_internal ();

-  (*rl_deprep_term_function) ();

-

-#if defined (HANDLE_SIGNALS)

-  rl_clear_signals ();

-#endif

-

-  return (value);

-}

-

-#if defined (READLINE_CALLBACKS)

-#  define STATIC_CALLBACK

-#else

-#  define STATIC_CALLBACK static

-#endif

-

-STATIC_CALLBACK void

-readline_internal_setup ()

-{

-  char *nprompt;

-

-  _rl_in_stream = rl_instream;

-  _rl_out_stream = rl_outstream;

-

-  if (rl_startup_hook)

-    (*rl_startup_hook) ();

-

-  /* If we're not echoing, we still want to at least print a prompt, because

-     rl_redisplay will not do it for us.  If the calling application has a

-     custom redisplay function, though, let that function handle it. */

-  if (readline_echoing_p == 0 && rl_redisplay_function == rl_redisplay)

-    {

-      if (rl_prompt && rl_already_prompted == 0)

-	{

-	  nprompt = _rl_strip_prompt (rl_prompt);

-	  fprintf (_rl_out_stream, "%s", nprompt);

-	  fflush (_rl_out_stream);

-	  free (nprompt);

-	}

-    }

-  else

-    {

-      if (rl_prompt && rl_already_prompted)

-	rl_on_new_line_with_prompt ();

-      else

-	rl_on_new_line ();

-      (*rl_redisplay_function) ();

-    }

-

-#if defined (VI_MODE)

-  if (rl_editing_mode == vi_mode)

-    rl_vi_insertion_mode (1, 0);

-#endif /* VI_MODE */

-

-  if (rl_pre_input_hook)

-    (*rl_pre_input_hook) ();

-}

-

-STATIC_CALLBACK char *

-readline_internal_teardown (eof)

-     int eof;

-{

-  char *temp;

-  HIST_ENTRY *entry;

-

-  /* Restore the original of this history line, iff the line that we

-     are editing was originally in the history, AND the line has changed. */

-  entry = current_history ();

-

-  if (entry && rl_undo_list)

-    {

-      temp = savestring (the_line);

-      rl_revert_line (1, 0);

-      entry = replace_history_entry (where_history (), the_line, (histdata_t)NULL);

-      _rl_free_history_entry (entry);

-

-      strcpy (the_line, temp);

-      free (temp);

-    }

-

-  /* At any rate, it is highly likely that this line has an undo list.  Get

-     rid of it now. */

-  if (rl_undo_list)

-    rl_free_undo_list ();

-

-  /* Restore normal cursor, if available. */

-  _rl_set_insert_mode (RL_IM_INSERT, 0);

-

-  return (eof ? (char *)NULL : savestring (the_line));

-}

-

-STATIC_CALLBACK int

-#if defined (READLINE_CALLBACKS)

-readline_internal_char ()

-#else

-readline_internal_charloop ()

-#endif

-{

-  static int lastc, eof_found;

-  int c, code, lk;

-

-  lastc = -1;

-  eof_found = 0;

-

-#if !defined (READLINE_CALLBACKS)

-  while (rl_done == 0)

-    {

-#endif

-      lk = _rl_last_command_was_kill;

-      code = setjmp (readline_top_level);

-

-      if (code)

-	(*rl_redisplay_function) ();

-

-      if (rl_pending_input == 0)

-	{

-	  /* Then initialize the argument and number of keys read. */

-	  _rl_init_argument ();

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

-	c = NEWLINE;

-

-      /* The character _rl_eof_char typed to blank line, and not as the

-	 previous character is interpreted as EOF. */

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

-	  break;

-#endif

-	}

-

-      lastc = c;

-//      _rl_dispatch ((unsigned char)c, _rl_keymap);

-      _rl_dispatch (c, _rl_keymap);

-

-      /* If there was no change in _rl_last_command_was_kill, then no kill

-	 has taken place.  Note that if input is pending we are reading

-	 a prefix command, so nothing has changed yet. */

-      if (rl_pending_input == 0 && lk == _rl_last_command_was_kill)

-	_rl_last_command_was_kill = 0;

-

-#if defined (VI_MODE)

-      /* In vi mode, when you exit insert mode, the cursor moves back

-	 over the previous character.  We explicitly check for that here. */

-      if (rl_editing_mode == vi_mode && _rl_keymap == vi_movement_keymap)

-	rl_vi_check ();

-#endif /* VI_MODE */

-

-      if (rl_num_chars_to_read && rl_end >= rl_num_chars_to_read)

-        {

-          (*rl_redisplay_function) ();

-          rl_newline (1, '\n');

-        }

-

-      if (rl_done == 0)

-	(*rl_redisplay_function) ();

-

-      /* If the application writer has told us to erase the entire line if

-	  the only character typed was something bound to rl_newline, do so. */

-      if (rl_erase_empty_line && rl_done && rl_last_func == rl_newline &&

-	  rl_point == 0 && rl_end == 0)

-	_rl_erase_entire_line ();

-

-#if defined (READLINE_CALLBACKS)

-      return 0;

-#else

-    }

-

-  return (eof_found);

-#endif

-}

-

-#if defined (READLINE_CALLBACKS)

-static int

-readline_internal_charloop ()

-{

-  int eof = 1;

-

-  while (rl_done == 0)

-    eof = readline_internal_char ();

-  return (eof);

-}

-#endif /* READLINE_CALLBACKS */

-

-/* Read a line of input from the global rl_instream, doing output on

-   the global rl_outstream.

-   If rl_prompt is non-null, then that is our prompt. */

-static char *

-readline_internal ()

-{

-  int eof;

-

-  readline_internal_setup ();

-  eof = readline_internal_charloop ();

-  return (readline_internal_teardown (eof));

-}

-

-void

-_rl_init_line_state ()

-{

-  rl_point = rl_end = rl_mark = 0;

-  the_line = rl_line_buffer;

-  the_line[0] = 0;

-}

-

-void

-_rl_set_the_line ()

-{

-  the_line = rl_line_buffer;

-}

-

-/* Do the command associated with KEY in MAP.

-   If the associated command is really a keymap, then read

-   another key, and dispatch into that map. */

-int

-_rl_dispatch (key, map)

-     register int key;

-     Keymap map;

-{

-  return _rl_dispatch_subseq (key, map, 0);

-}

-

-int

-_rl_dispatch_subseq (key, map, got_subseq)

-     register int key;

-     Keymap map;

-     int got_subseq;

-{

-  int r, newkey;

-  char *macro;

-  rl_command_func_t *func;

-

-  if (META_CHAR (key) && _rl_convert_meta_chars_to_ascii)

-    {

-      if (map[ESC].type == ISKMAP)

-	{

-	  if (RL_ISSTATE (RL_STATE_MACRODEF))

-	    _rl_add_macro_char (ESC);

-	  map = FUNCTION_TO_KEYMAP (map, ESC);

-	  key = UNMETA (key);

-	  rl_key_sequence_length += 2;

-	  return (_rl_dispatch (key, map));

-	}

-      else

-	rl_ding ();

-      return 0;

-    }

-

-  if (RL_ISSTATE (RL_STATE_MACRODEF))

-    _rl_add_macro_char (key);

-

-  r = 0;

-  switch (map[key].type)

-    {

-    case ISFUNC:

-      func = map[key].function;

-      if (func)

-	{

-	  /* Special case rl_do_lowercase_version (). */

-	  if (func == rl_do_lowercase_version)

-	    return (_rl_dispatch (_rl_to_lower (key), map));

-

-	  rl_executing_keymap = map;

-

-#if 0

-	  _rl_suppress_redisplay = (map[key].function == rl_insert) && _rl_input_available ();

-#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 == 0 && map[key].function != rl_digit_argument)

-	    rl_last_func = map[key].function;

-	}

-      else if (map[ANYOTHERKEY].function)

-	{

-	  /* OK, there's no function bound in this map, but there is a

-	     shadow function that was overridden when the current keymap

-	     was created.  Return -2 to note  that. */

-	  _rl_unget_char  (key);

-	  return -2;

-	}

-      else if (got_subseq)

-	{

-	  /* Return -1 to note that we're in a subsequence, but  we don't

-	     have a matching key, nor was one overridden.  This means

-	     we need to back up the recursion chain and find the last

-	     subsequence that is bound to a function. */

-	  _rl_unget_char (key);

-	  return -1;

-	}

-      else

-	{

-	  _rl_abort_internal ();

-	  return -1;

-	}

-      break;

-

-    case ISKMAP:

-      if (map[key].function != 0)

-	{

-#if defined (VI_MODE)

-	  /* The only way this test will be true is if a subsequence has been

-	     bound starting with ESC, generally the arrow keys.  What we do is

-	     check whether there's input in the queue, which there generally

-	     will be if an arrow key has been pressed, and, if there's not,

-	     just dispatch to (what we assume is) rl_vi_movement_mode right

-	     away.  This is essentially an input test with a zero timeout. */

-	  if (rl_editing_mode == vi_mode && key == ESC && map == vi_insertion_keymap

-	      && _rl_input_queued (0) == 0)

-	    return (_rl_dispatch (ANYOTHERKEY, FUNCTION_TO_KEYMAP (map, key)));

-#endif

-

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

-

-	  if (newkey < 0)

-	    {

-	      _rl_abort_internal ();

-	      return -1;

-	    }

-

-	  r = _rl_dispatch_subseq (newkey, FUNCTION_TO_KEYMAP (map, key), got_subseq || map[ANYOTHERKEY].function);

-

-	  if (r == -2)

-	    /* We didn't match anything, and the keymap we're indexed into

-	       shadowed a function previously bound to that prefix.  Call

-	       the function.  The recursive call to _rl_dispatch_subseq has

-	       already taken care of pushing any necessary input back onto

-	       the input queue with _rl_unget_char. */

-	    r = _rl_dispatch (ANYOTHERKEY, FUNCTION_TO_KEYMAP (map, key));

-	  else if (r && map[ANYOTHERKEY].function)

-	    {

-	      /* We didn't match (r is probably -1), so return something to

-		 tell the caller that it should try ANYOTHERKEY for an

-		 overridden function. */

-	      _rl_unget_char (key);

-	      return -2;

-	    }

-	  else if (r && got_subseq)

-	    {

-	      /* OK, back up the chain. */

-	      _rl_unget_char (key);

-	      return -1;

-	    }

-	}

-      else

-	{

-	  _rl_abort_internal ();

-	  return -1;

-	}

-      break;

-

-    case ISMACR:

-      if (map[key].function != 0)

-	{

-	  macro = savestring ((char *)map[key].function);

-	  _rl_with_macro_input (macro);

-	  return 0;

-	}

-      break;

-    }

-#if defined (VI_MODE)

-  if (rl_editing_mode == vi_mode && _rl_keymap == vi_movement_keymap &&

-      _rl_vi_textmod_command (key))

-    _rl_vi_set_last (key, rl_numeric_arg, rl_arg_sign);

-#endif

-  return (r);

-}

-

-/* **************************************************************** */

-/*								    */

-/*			Initializations 			    */

-/*								    */

-/* **************************************************************** */

-

-/* Initialize readline (and terminal if not already). */

-int

-rl_initialize ()

-{

-  /* If we have never been called before, initialize the

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

-  _rl_init_line_state ();

-

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

-  _rl_start_using_history ();

-

-  /* Make the display buffer match the state of the line. */

-  rl_reset_line_state ();

-

-  /* No such function typed yet. */

-  rl_last_func = (rl_command_func_t *)NULL;

-

-  /* Parsing of key-bindings begins in an enabled state. */

-  _rl_parsing_conditionalized_out = 0;

-

-#if defined (VI_MODE)

-  if (rl_editing_mode == vi_mode)

-    _rl_vi_initialize_line ();

-#endif

-

-  /* Each line starts in insert mode (the default). */

-  _rl_set_insert_mode (RL_IM_DEFAULT, 1);

-

-  return 0;

-}

-

-#if 0

-#if defined (__EMX__)

-static void

-_emx_build_environ ()

-{

-  TIB *tibp;

-  PIB *pibp;

-  char *t, **tp;

-  int c;

-

-  DosGetInfoBlocks (&tibp, &pibp);

-  t = pibp->pib_pchenv;

-  for (c = 1; *t; c++)

-    t += strlen (t) + 1;

-  tp = environ = (char **)xmalloc ((c + 1) * sizeof (char *));

-  t = pibp->pib_pchenv;

-  while (*t)

-    {

-      *tp++ = t;

-      t += strlen (t) + 1;

-    }

-  *tp = 0;

-}

-#endif /* __EMX__ */

-#endif

-

-/* Initialize the entire state of the world. */

-static void

-readline_initialize_everything ()

-{

-#if 0

-#if defined (__EMX__)

-  if (environ == 0)

-    _emx_build_environ ();

-#endif

-#endif

-

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

-    rl_instream = stdin;

-

-  if (!rl_outstream)

-    rl_outstream = stdout;

-

-  /* Bind _rl_in_stream and _rl_out_stream immediately.  These values

-     may change, but they may also be used before readline_internal ()

-     is called. */

-  _rl_in_stream = rl_instream;

-  _rl_out_stream = rl_outstream;

-

-  /* Allocate data structures. */

-  if (rl_line_buffer == 0)

-    rl_line_buffer = (char *)xmalloc (rl_line_buffer_len = DEFAULT_BUFFER_SIZE);

-

-  /* Initialize the terminal interface. */

-  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 ();

-

-  /* Initialize the function names. */

-  rl_initialize_funmap ();

-

-  /* Decide whether we should automatically go into eight-bit mode. */

-  _rl_init_eightbit ();

-      

-  /* Read in the init file. */

-  rl_read_init_file ((char *)NULL);

-

-  /* XXX */

-  if (_rl_horizontal_scroll_mode && _rl_term_autowrap)

-    {

-      _rl_screenwidth--;

-      _rl_screenchars -= _rl_screenheight;

-    }

-

-  /* Override the effect of any `set keymap' assignments in the

-     inputrc file. */

-  rl_set_keymap_from_edit_mode ();

-

-#if !defined _WIN32

-  /* Try to bind a common arrow key prefix, if not already bound. */

-  bind_arrow_keys ();

-#endif	/* !_WIN32  */

-

-  /* Enable the meta key, if this terminal has one. */

-  if (_rl_enable_meta)

-    _rl_enable_meta_key ();

-

-  /* If the completion parser's default word break characters haven't

-     been set yet, then do so now. */

-  if (rl_completer_word_break_characters == (char *)NULL)

-    rl_completer_word_break_characters = rl_basic_word_break_characters;

-}

-

-/* If this system allows us to look at the values of the regular

-   input editing characters, then bind them to their readline

-   equivalents, iff the characters are not bound to keymaps. */

-static void

-readline_default_bindings ()

-{

-  rl_tty_set_default_bindings (_rl_keymap);

-}

-

-#if !defined _WIN32	/* in Windows the rltty, i.e. console binding is sufficient */

-/* Bind some common arrow key sequences in MAP. */

-static void

-bind_arrow_keys_internal (map)

-     Keymap map;

-{

-  Keymap xkeymap;

-

-  xkeymap = _rl_keymap;

-  _rl_keymap = map;

-

-#if defined (__MSDOS__)

-   _rl_bind_if_unbound ("\033[0A", rl_get_previous_history);

-   _rl_bind_if_unbound ("\033[0B", rl_backward_char);

-   _rl_bind_if_unbound ("\033[0C", rl_forward_char);

-   _rl_bind_if_unbound ("\033[0D", rl_get_next_history);

-#endif

-

-  _rl_bind_if_unbound ("\033[A", rl_get_previous_history);

-  _rl_bind_if_unbound ("\033[B", rl_get_next_history);

-  _rl_bind_if_unbound ("\033[C", rl_forward_char);

-  _rl_bind_if_unbound ("\033[D", rl_backward_char);

-  _rl_bind_if_unbound ("\033[H", rl_beg_of_line);

-  _rl_bind_if_unbound ("\033[F", rl_end_of_line);

-

-  _rl_bind_if_unbound ("\033OA", rl_get_previous_history);

-  _rl_bind_if_unbound ("\033OB", rl_get_next_history);

-  _rl_bind_if_unbound ("\033OC", rl_forward_char);

-  _rl_bind_if_unbound ("\033OD", rl_backward_char);

-  _rl_bind_if_unbound ("\033OH", rl_beg_of_line);

-  _rl_bind_if_unbound ("\033OF", rl_end_of_line);

-

-  _rl_keymap = xkeymap;

-}

-

-/* Try and bind the common arrow key prefixes after giving termcap and

-   the inputrc file a chance to bind them and create `real' keymaps

-   for the arrow key prefix. */

-static void

-bind_arrow_keys ()

-{

-  bind_arrow_keys_internal (emacs_standard_keymap);

-

-#if defined (VI_MODE)

-  bind_arrow_keys_internal (vi_movement_keymap);

-  bind_arrow_keys_internal (vi_insertion_keymap);

-#endif

-}

-

-#endif	/* !_WIN32  */

-

-/* **************************************************************** */

-/*								    */

-/*		Saving and Restoring Readline's state		    */

-/*								    */

-/* **************************************************************** */

-

-int

-rl_save_state (sp)

-     struct readline_state *sp;

-{

-  if (sp == 0)

-    return -1;

-

-  sp->point = rl_point;

-  sp->end = rl_end;

-  sp->mark = rl_mark;

-  sp->buffer = rl_line_buffer;

-  sp->buflen = rl_line_buffer_len;

-  sp->ul = rl_undo_list;

-  sp->prompt = rl_prompt;

-

-  sp->rlstate = rl_readline_state;

-  sp->done = rl_done;

-  sp->kmap = _rl_keymap;

-

-  sp->lastfunc = rl_last_func;

-  sp->insmode = rl_insert_mode;

-  sp->edmode = rl_editing_mode;

-  sp->kseqlen = rl_key_sequence_length;

-  sp->inf = rl_instream;

-  sp->outf = rl_outstream;

-  sp->pendingin = rl_pending_input;

-  sp->macro = rl_executing_macro;

-

-  sp->catchsigs = rl_catch_signals;

-#ifdef SIGWINCH

-  sp->catchsigwinch = rl_catch_sigwinch;

-#endif

-

-  return (0);

-}

-

-int

-rl_restore_state (sp)

-     struct readline_state *sp;

-{

-  if (sp == 0)

-    return -1;

-

-  rl_point = sp->point;

-  rl_end = sp->end;

-  rl_mark = sp->mark;

-  the_line = rl_line_buffer = sp->buffer;

-  rl_line_buffer_len = sp->buflen;

-  rl_undo_list = sp->ul;

-  rl_prompt = sp->prompt;

-

-  rl_readline_state = sp->rlstate;

-  rl_done = sp->done;

-  _rl_keymap = sp->kmap;

-

-  rl_last_func = sp->lastfunc;

-  rl_insert_mode = sp->insmode;

-  rl_editing_mode = sp->edmode;

-  rl_key_sequence_length = sp->kseqlen;

-  rl_instream = sp->inf;

-  rl_outstream = sp->outf;

-  rl_pending_input = sp->pendingin;

-  rl_executing_macro = sp->macro;

-

-  rl_catch_signals = sp->catchsigs;

-#ifdef SIGWINCH

-  rl_catch_sigwinch = sp->catchsigwinch;

-#endif

-  return (0);

-}

+/* readline.c -- a general facility for reading lines of input
+   with emacs style editing and completion. */
+
+/* Copyright (C) 1987-2002 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
+
+#include "config.h"
+
+#include <sys/types.h>
+#include "posixstat.h"
+#include <fcntl.h>
+#if defined (HAVE_SYS_FILE_H)
+#  include <sys/file.h>
+#endif /* HAVE_SYS_FILE_H */
+
+#if defined (HAVE_UNISTD_H)
+#  include <unistd.h>
+#endif /* HAVE_UNISTD_H */
+
+#if defined (HAVE_STDLIB_H)
+#  include <stdlib.h>
+#else
+#  include "ansi_stdlib.h"
+#endif /* HAVE_STDLIB_H */
+
+#if defined (HAVE_LOCALE_H)
+#  include <locale.h>
+#endif
+
+#include <stdio.h>
+#include "posixjmp.h"
+
+/* System-specific feature definitions and include files. */
+#include "rldefs.h"
+#include "rlmbutil.h"
+
+#if defined (__EMX__)
+#  define INCL_DOSPROCESS
+#  include <os2.h>
+#endif /* __EMX__ */
+
+/* Some standard library routines. */
+#include "readline.h"
+#include "history.h"
+
+#include "rlprivate.h"
+#include "rlshell.h"
+#include "xmalloc.h"
+
+#ifndef RL_LIBRARY_VERSION
+#  define RL_LIBRARY_VERSION "4.3"
+#endif
+
+#ifndef RL_READLINE_VERSION
+#  define RL_READLINE_VERSION	0x0403
+#endif
+
+extern void _rl_free_history_entry PARAMS((HIST_ENTRY *));
+
+/* Forward declarations used in this file. */
+static char *readline_internal PARAMS((void));
+static void readline_initialize_everything PARAMS((void));
+
+static void bind_arrow_keys_internal PARAMS((Keymap));
+static void bind_arrow_keys PARAMS((void));
+
+static void readline_default_bindings PARAMS((void));
+
+/* **************************************************************** */
+/*								    */
+/*			Line editing input utility		    */
+/*								    */
+/* **************************************************************** */
+
+const char *rl_library_version = RL_LIBRARY_VERSION;
+
+int rl_readline_version = RL_READLINE_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.
+   By default, it is the standard emacs keymap. */
+Keymap _rl_keymap = emacs_standard_keymap;
+
+/* The current style of editing. */
+int rl_editing_mode = emacs_mode;
+
+/* The current insert mode:  input (the default) or overwrite */
+int rl_insert_mode = RL_IM_DEFAULT;
+
+/* Non-zero if we called this function from _rl_dispatch().  It's present
+   so functions can find out whether they were called from a key binding
+   or directly from an application. */
+int rl_dispatching;
+
+/* Non-zero if the previous command was a kill command. */
+int _rl_last_command_was_kill = 0;
+
+/* The current value of the numeric argument specified by the user. */
+int rl_numeric_arg = 1;
+
+/* Non-zero if an argument was typed. */
+int rl_explicit_arg = 0;
+
+/* Temporary value used while generating the argument. */
+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;
+
+/* Mark in the current input line. */
+int rl_mark;
+
+/* Length of the current input line. */
+int rl_end;
+
+/* Make this non-zero to return the current input_line. */
+int rl_done;
+
+/* The last function executed by readline. */
+rl_command_func_t *rl_last_func = (rl_command_func_t *)NULL;
+
+/* Top level environment for readline_internal (). */
+procenv_t readline_top_level;
+
+/* The streams we interact with. */
+FILE *_rl_in_stream, *_rl_out_stream;
+
+/* The names of the streams that we do input and output to. */
+FILE *rl_instream = (FILE *)NULL;
+FILE *rl_outstream = (FILE *)NULL;
+
+/* Non-zero means echo characters as they are read.  Defaults to no echo;
+   set to 1 if there is a controlling terminal, we can get its attributes,
+   and the attributes include `echo'.  Look at rltty.c:prepare_terminal_settings
+   for the code that sets it. */
+int readline_echoing_p = 0;
+
+/* Current 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
+   and does not want readline to do it the first time. */
+int rl_already_prompted = 0;
+
+/* The number of characters read in order to type this complete command. */
+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. */
+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. */
+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;
+
+/* The character that can generate an EOF.  Really read from
+   the terminal driver... just defaulted here. */
+int _rl_eof_char = CTRL ('D');
+
+/* Non-zero makes this the next keystroke to read. */
+int rl_pending_input = 0;
+
+/* Pointer to a useful terminal name. */
+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;
+
+/* Non-zero means to display an asterisk at the starts of history lines
+   which have been modified. */
+int _rl_mark_modified_lines = 0;  
+
+/* The style of `bell' notification preferred.  This can be set to NO_BELL,
+   AUDIBLE_BELL, or VISIBLE_BELL. */
+int _rl_bell_preference = AUDIBLE_BELL;
+     
+/* String inserted into the line by rl_insert_comment (). */
+char *_rl_comment_begin;
+
+/* Keymap holding the function currently being executed. */
+Keymap rl_executing_keymap;
+
+/* Non-zero means to erase entire line, including prompt, on empty input lines. */
+int rl_erase_empty_line = 0;
+
+/* Non-zero means to read only this many characters rather than up to a
+   character bound to accept-line. */
+int rl_num_chars_to_read;
+
+/* Line buffer and maintenence. */
+char *rl_line_buffer = (char *)NULL;
+int rl_line_buffer_len = 0;
+
+/* Forward declarations used by the display, termcap, and history code. */
+
+/* **************************************************************** */
+/*								    */
+/*			`Forward' declarations  		    */
+/*								    */
+/* **************************************************************** */
+
+/* Non-zero means do not parse any lines other than comments and
+   parser directives. */
+unsigned char _rl_parsing_conditionalized_out = 0;
+
+/* Non-zero means to convert characters with the meta bit set to
+   escape-prefixed characters so we can indirect through
+   emacs_meta_keymap or vi_escape_keymap. */
+int _rl_convert_meta_chars_to_ascii = 1;
+
+/* Non-zero means to output characters with the meta bit set directly
+   rather than as a meta-prefixed escape sequence. */
+int _rl_output_meta_chars = 0;
+
+/* **************************************************************** */
+/*								    */
+/*			Top Level Functions			    */
+/*								    */
+/* **************************************************************** */
+
+/* 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_expand_prompt (rl_prompt);
+  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)
+     const char *prompt;
+{
+  char *value;
+
+  /* If we are at EOF return a NULL string. */
+  if (rl_pending_input == EOF)
+    {
+      rl_clear_pending_input ();
+      return ((char *)NULL);
+    }
+
+  rl_set_prompt (prompt);
+
+  rl_initialize ();
+  (*rl_prep_term_function) (_rl_meta_flag);
+
+#if defined (HANDLE_SIGNALS)
+  rl_set_signals ();
+#endif
+
+  value = readline_internal ();
+  (*rl_deprep_term_function) ();
+
+#if defined (HANDLE_SIGNALS)
+  rl_clear_signals ();
+#endif
+
+  return (value);
+}
+
+#if defined (READLINE_CALLBACKS)
+#  define STATIC_CALLBACK
+#else
+#  define STATIC_CALLBACK static
+#endif
+
+STATIC_CALLBACK void
+readline_internal_setup ()
+{
+  char *nprompt;
+
+  _rl_in_stream = rl_instream;
+  _rl_out_stream = rl_outstream;
+
+  if (rl_startup_hook)
+    (*rl_startup_hook) ();
+
+  /* If we're not echoing, we still want to at least print a prompt, because
+     rl_redisplay will not do it for us.  If the calling application has a
+     custom redisplay function, though, let that function handle it. */
+  if (readline_echoing_p == 0 && rl_redisplay_function == rl_redisplay)
+    {
+      if (rl_prompt && rl_already_prompted == 0)
+	{
+	  nprompt = _rl_strip_prompt (rl_prompt);
+	  fprintf (_rl_out_stream, "%s", nprompt);
+	  fflush (_rl_out_stream);
+	  free (nprompt);
+	}
+    }
+  else
+    {
+      if (rl_prompt && rl_already_prompted)
+	rl_on_new_line_with_prompt ();
+      else
+	rl_on_new_line ();
+      (*rl_redisplay_function) ();
+    }
+
+#if defined (VI_MODE)
+  if (rl_editing_mode == vi_mode)
+    rl_vi_insertion_mode (1, 0);
+#endif /* VI_MODE */
+
+  if (rl_pre_input_hook)
+    (*rl_pre_input_hook) ();
+}
+
+STATIC_CALLBACK char *
+readline_internal_teardown (eof)
+     int eof;
+{
+  char *temp;
+  HIST_ENTRY *entry;
+
+  /* Restore the original of this history line, iff the line that we
+     are editing was originally in the history, AND the line has changed. */
+  entry = current_history ();
+
+  if (entry && rl_undo_list)
+    {
+      temp = savestring (the_line);
+      rl_revert_line (1, 0);
+      entry = replace_history_entry (where_history (), the_line, (histdata_t)NULL);
+      _rl_free_history_entry (entry);
+
+      strcpy (the_line, temp);
+      free (temp);
+    }
+
+  /* At any rate, it is highly likely that this line has an undo list.  Get
+     rid of it now. */
+  if (rl_undo_list)
+    rl_free_undo_list ();
+
+  /* Restore normal cursor, if available. */
+  _rl_set_insert_mode (RL_IM_INSERT, 0);
+
+  return (eof ? (char *)NULL : savestring (the_line));
+}
+
+STATIC_CALLBACK int
+#if defined (READLINE_CALLBACKS)
+readline_internal_char ()
+#else
+readline_internal_charloop ()
+#endif
+{
+  static int lastc, eof_found;
+  int c, code, lk;
+
+  lastc = -1;
+  eof_found = 0;
+
+#if !defined (READLINE_CALLBACKS)
+  while (rl_done == 0)
+    {
+#endif
+      lk = _rl_last_command_was_kill;
+      code = setjmp (readline_top_level);
+
+      if (code)
+	(*rl_redisplay_function) ();
+
+      if (rl_pending_input == 0)
+	{
+	  /* Then initialize the argument and number of keys read. */
+	  _rl_init_argument ();
+	  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)
+	c = NEWLINE;
+
+      /* The character _rl_eof_char typed to blank line, and not as the
+	 previous character is interpreted as EOF. */
+      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;
+	  break;
+#endif
+	}
+
+      lastc = c;
+//      _rl_dispatch ((unsigned char)c, _rl_keymap);
+      _rl_dispatch (c, _rl_keymap);
+
+      /* If there was no change in _rl_last_command_was_kill, then no kill
+	 has taken place.  Note that if input is pending we are reading
+	 a prefix command, so nothing has changed yet. */
+      if (rl_pending_input == 0 && lk == _rl_last_command_was_kill)
+	_rl_last_command_was_kill = 0;
+
+#if defined (VI_MODE)
+      /* In vi mode, when you exit insert mode, the cursor moves back
+	 over the previous character.  We explicitly check for that here. */
+      if (rl_editing_mode == vi_mode && _rl_keymap == vi_movement_keymap)
+	rl_vi_check ();
+#endif /* VI_MODE */
+
+      if (rl_num_chars_to_read && rl_end >= rl_num_chars_to_read)
+        {
+          (*rl_redisplay_function) ();
+          rl_newline (1, '\n');
+        }
+
+      if (rl_done == 0)
+	(*rl_redisplay_function) ();
+
+      /* If the application writer has told us to erase the entire line if
+	  the only character typed was something bound to rl_newline, do so. */
+      if (rl_erase_empty_line && rl_done && rl_last_func == rl_newline &&
+	  rl_point == 0 && rl_end == 0)
+	_rl_erase_entire_line ();
+
+#if defined (READLINE_CALLBACKS)
+      return 0;
+#else
+    }
+
+  return (eof_found);
+#endif
+}
+
+#if defined (READLINE_CALLBACKS)
+static int
+readline_internal_charloop ()
+{
+  int eof = 1;
+
+  while (rl_done == 0)
+    eof = readline_internal_char ();
+  return (eof);
+}
+#endif /* READLINE_CALLBACKS */
+
+/* Read a line of input from the global rl_instream, doing output on
+   the global rl_outstream.
+   If rl_prompt is non-null, then that is our prompt. */
+static char *
+readline_internal ()
+{
+  int eof;
+
+  readline_internal_setup ();
+  eof = readline_internal_charloop ();
+  return (readline_internal_teardown (eof));
+}
+
+void
+_rl_init_line_state ()
+{
+  rl_point = rl_end = rl_mark = 0;
+  the_line = rl_line_buffer;
+  the_line[0] = 0;
+}
+
+void
+_rl_set_the_line ()
+{
+  the_line = rl_line_buffer;
+}
+
+/* Do the command associated with KEY in MAP.
+   If the associated command is really a keymap, then read
+   another key, and dispatch into that map. */
+int
+_rl_dispatch (key, map)
+     register int key;
+     Keymap map;
+{
+  return _rl_dispatch_subseq (key, map, 0);
+}
+
+int
+_rl_dispatch_subseq (key, map, got_subseq)
+     register int key;
+     Keymap map;
+     int got_subseq;
+{
+  int r, newkey;
+  char *macro;
+  rl_command_func_t *func;
+
+  if (META_CHAR (key) && _rl_convert_meta_chars_to_ascii)
+    {
+      if (map[ESC].type == ISKMAP)
+	{
+	  if (RL_ISSTATE (RL_STATE_MACRODEF))
+	    _rl_add_macro_char (ESC);
+	  map = FUNCTION_TO_KEYMAP (map, ESC);
+	  key = UNMETA (key);
+	  rl_key_sequence_length += 2;
+	  return (_rl_dispatch (key, map));
+	}
+      else
+	rl_ding ();
+      return 0;
+    }
+
+  if (RL_ISSTATE (RL_STATE_MACRODEF))
+    _rl_add_macro_char (key);
+
+  r = 0;
+  switch (map[key].type)
+    {
+    case ISFUNC:
+      func = map[key].function;
+      if (func)
+	{
+	  /* Special case rl_do_lowercase_version (). */
+	  if (func == rl_do_lowercase_version)
+	    return (_rl_dispatch (_rl_to_lower (key), map));
+
+	  rl_executing_keymap = map;
+
+#if 0
+	  _rl_suppress_redisplay = (map[key].function == rl_insert) && _rl_input_available ();
+#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 == 0 && map[key].function != rl_digit_argument)
+	    rl_last_func = map[key].function;
+	}
+      else if (map[ANYOTHERKEY].function)
+	{
+	  /* OK, there's no function bound in this map, but there is a
+	     shadow function that was overridden when the current keymap
+	     was created.  Return -2 to note  that. */
+	  _rl_unget_char  (key);
+	  return -2;
+	}
+      else if (got_subseq)
+	{
+	  /* Return -1 to note that we're in a subsequence, but  we don't
+	     have a matching key, nor was one overridden.  This means
+	     we need to back up the recursion chain and find the last
+	     subsequence that is bound to a function. */
+	  _rl_unget_char (key);
+	  return -1;
+	}
+      else
+	{
+	  _rl_abort_internal ();
+	  return -1;
+	}
+      break;
+
+    case ISKMAP:
+      if (map[key].function != 0)
+	{
+#if defined (VI_MODE)
+	  /* The only way this test will be true is if a subsequence has been
+	     bound starting with ESC, generally the arrow keys.  What we do is
+	     check whether there's input in the queue, which there generally
+	     will be if an arrow key has been pressed, and, if there's not,
+	     just dispatch to (what we assume is) rl_vi_movement_mode right
+	     away.  This is essentially an input test with a zero timeout. */
+	  if (rl_editing_mode == vi_mode && key == ESC && map == vi_insertion_keymap
+	      && _rl_input_queued (0) == 0)
+	    return (_rl_dispatch (ANYOTHERKEY, FUNCTION_TO_KEYMAP (map, key)));
+#endif
+
+	  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);
+
+	  if (newkey < 0)
+	    {
+	      _rl_abort_internal ();
+	      return -1;
+	    }
+
+	  r = _rl_dispatch_subseq (newkey, FUNCTION_TO_KEYMAP (map, key), got_subseq || map[ANYOTHERKEY].function);
+
+	  if (r == -2)
+	    /* We didn't match anything, and the keymap we're indexed into
+	       shadowed a function previously bound to that prefix.  Call
+	       the function.  The recursive call to _rl_dispatch_subseq has
+	       already taken care of pushing any necessary input back onto
+	       the input queue with _rl_unget_char. */
+	    r = _rl_dispatch (ANYOTHERKEY, FUNCTION_TO_KEYMAP (map, key));
+	  else if (r && map[ANYOTHERKEY].function)
+	    {
+	      /* We didn't match (r is probably -1), so return something to
+		 tell the caller that it should try ANYOTHERKEY for an
+		 overridden function. */
+	      _rl_unget_char (key);
+	      return -2;
+	    }
+	  else if (r && got_subseq)
+	    {
+	      /* OK, back up the chain. */
+	      _rl_unget_char (key);
+	      return -1;
+	    }
+	}
+      else
+	{
+	  _rl_abort_internal ();
+	  return -1;
+	}
+      break;
+
+    case ISMACR:
+      if (map[key].function != 0)
+	{
+	  macro = savestring ((char *)map[key].function);
+	  _rl_with_macro_input (macro);
+	  return 0;
+	}
+      break;
+    }
+#if defined (VI_MODE)
+  if (rl_editing_mode == vi_mode && _rl_keymap == vi_movement_keymap &&
+      _rl_vi_textmod_command (key))
+    _rl_vi_set_last (key, rl_numeric_arg, rl_arg_sign);
+#endif
+  return (r);
+}
+
+/* **************************************************************** */
+/*								    */
+/*			Initializations 			    */
+/*								    */
+/* **************************************************************** */
+
+/* Initialize readline (and terminal if not already). */
+int
+rl_initialize ()
+{
+  /* If we have never been called before, initialize the
+     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. */
+  _rl_init_line_state ();
+
+  /* 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. */
+  _rl_start_using_history ();
+
+  /* Make the display buffer match the state of the line. */
+  rl_reset_line_state ();
+
+  /* No such function typed yet. */
+  rl_last_func = (rl_command_func_t *)NULL;
+
+  /* Parsing of key-bindings begins in an enabled state. */
+  _rl_parsing_conditionalized_out = 0;
+
+#if defined (VI_MODE)
+  if (rl_editing_mode == vi_mode)
+    _rl_vi_initialize_line ();
+#endif
+
+  /* Each line starts in insert mode (the default). */
+  _rl_set_insert_mode (RL_IM_DEFAULT, 1);
+
+  return 0;
+}
+
+#if 0
+#if defined (__EMX__)
+static void
+_emx_build_environ ()
+{
+  TIB *tibp;
+  PIB *pibp;
+  char *t, **tp;
+  int c;
+
+  DosGetInfoBlocks (&tibp, &pibp);
+  t = pibp->pib_pchenv;
+  for (c = 1; *t; c++)
+    t += strlen (t) + 1;
+  tp = environ = (char **)xmalloc ((c + 1) * sizeof (char *));
+  t = pibp->pib_pchenv;
+  while (*t)
+    {
+      *tp++ = t;
+      t += strlen (t) + 1;
+    }
+  *tp = 0;
+}
+#endif /* __EMX__ */
+#endif
+
+/* Initialize the entire state of the world. */
+static void
+readline_initialize_everything ()
+{
+#if 0
+#if defined (__EMX__)
+  if (environ == 0)
+    _emx_build_environ ();
+#endif
+#endif
+
+#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)
+    rl_instream = stdin;
+
+  if (!rl_outstream)
+    rl_outstream = stdout;
+
+  /* Bind _rl_in_stream and _rl_out_stream immediately.  These values
+     may change, but they may also be used before readline_internal ()
+     is called. */
+  _rl_in_stream = rl_instream;
+  _rl_out_stream = rl_outstream;
+
+  /* Allocate data structures. */
+  if (rl_line_buffer == 0)
+    rl_line_buffer = (char *)xmalloc (rl_line_buffer_len = DEFAULT_BUFFER_SIZE);
+
+  /* Initialize the terminal interface. */
+  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 ();
+
+  /* Initialize the function names. */
+  rl_initialize_funmap ();
+
+  /* Decide whether we should automatically go into eight-bit mode. */
+  _rl_init_eightbit ();
+      
+  /* Read in the init file. */
+  rl_read_init_file ((char *)NULL);
+
+  /* XXX */
+  if (_rl_horizontal_scroll_mode && _rl_term_autowrap)
+    {
+      _rl_screenwidth--;
+      _rl_screenchars -= _rl_screenheight;
+    }
+
+  /* Override the effect of any `set keymap' assignments in the
+     inputrc file. */
+  rl_set_keymap_from_edit_mode ();
+
+#if !defined _WIN32
+  /* Try to bind a common arrow key prefix, if not already bound. */
+  bind_arrow_keys ();
+#endif	/* !_WIN32  */
+
+  /* Enable the meta key, if this terminal has one. */
+  if (_rl_enable_meta)
+    _rl_enable_meta_key ();
+
+  /* If the completion parser's default word break characters haven't
+     been set yet, then do so now. */
+  if (rl_completer_word_break_characters == (char *)NULL)
+    rl_completer_word_break_characters = rl_basic_word_break_characters;
+}
+
+/* If this system allows us to look at the values of the regular
+   input editing characters, then bind them to their readline
+   equivalents, iff the characters are not bound to keymaps. */
+static void
+readline_default_bindings ()
+{
+  rl_tty_set_default_bindings (_rl_keymap);
+}
+
+#if !defined _WIN32	/* in Windows the rltty, i.e. console binding is sufficient */
+/* Bind some common arrow key sequences in MAP. */
+static void
+bind_arrow_keys_internal (map)
+     Keymap map;
+{
+  Keymap xkeymap;
+
+  xkeymap = _rl_keymap;
+  _rl_keymap = map;
+
+#if defined (__MSDOS__)
+   _rl_bind_if_unbound ("\033[0A", rl_get_previous_history);
+   _rl_bind_if_unbound ("\033[0B", rl_backward_char);
+   _rl_bind_if_unbound ("\033[0C", rl_forward_char);
+   _rl_bind_if_unbound ("\033[0D", rl_get_next_history);
+#endif
+
+  _rl_bind_if_unbound ("\033[A", rl_get_previous_history);
+  _rl_bind_if_unbound ("\033[B", rl_get_next_history);
+  _rl_bind_if_unbound ("\033[C", rl_forward_char);
+  _rl_bind_if_unbound ("\033[D", rl_backward_char);
+  _rl_bind_if_unbound ("\033[H", rl_beg_of_line);
+  _rl_bind_if_unbound ("\033[F", rl_end_of_line);
+
+  _rl_bind_if_unbound ("\033OA", rl_get_previous_history);
+  _rl_bind_if_unbound ("\033OB", rl_get_next_history);
+  _rl_bind_if_unbound ("\033OC", rl_forward_char);
+  _rl_bind_if_unbound ("\033OD", rl_backward_char);
+  _rl_bind_if_unbound ("\033OH", rl_beg_of_line);
+  _rl_bind_if_unbound ("\033OF", rl_end_of_line);
+
+  _rl_keymap = xkeymap;
+}
+
+/* Try and bind the common arrow key prefixes after giving termcap and
+   the inputrc file a chance to bind them and create `real' keymaps
+   for the arrow key prefix. */
+static void
+bind_arrow_keys ()
+{
+  bind_arrow_keys_internal (emacs_standard_keymap);
+
+#if defined (VI_MODE)
+  bind_arrow_keys_internal (vi_movement_keymap);
+  bind_arrow_keys_internal (vi_insertion_keymap);
+#endif
+}
+
+#endif	/* !_WIN32  */
+
+/* **************************************************************** */
+/*								    */
+/*		Saving and Restoring Readline's state		    */
+/*								    */
+/* **************************************************************** */
+
+int
+rl_save_state (sp)
+     struct readline_state *sp;
+{
+  if (sp == 0)
+    return -1;
+
+  sp->point = rl_point;
+  sp->end = rl_end;
+  sp->mark = rl_mark;
+  sp->buffer = rl_line_buffer;
+  sp->buflen = rl_line_buffer_len;
+  sp->ul = rl_undo_list;
+  sp->prompt = rl_prompt;
+
+  sp->rlstate = rl_readline_state;
+  sp->done = rl_done;
+  sp->kmap = _rl_keymap;
+
+  sp->lastfunc = rl_last_func;
+  sp->insmode = rl_insert_mode;
+  sp->edmode = rl_editing_mode;
+  sp->kseqlen = rl_key_sequence_length;
+  sp->inf = rl_instream;
+  sp->outf = rl_outstream;
+  sp->pendingin = rl_pending_input;
+  sp->macro = rl_executing_macro;
+
+  sp->catchsigs = rl_catch_signals;
+#ifdef SIGWINCH
+  sp->catchsigwinch = rl_catch_sigwinch;
+#endif
+
+  return (0);
+}
+
+int
+rl_restore_state (sp)
+     struct readline_state *sp;
+{
+  if (sp == 0)
+    return -1;
+
+  rl_point = sp->point;
+  rl_end = sp->end;
+  rl_mark = sp->mark;
+  the_line = rl_line_buffer = sp->buffer;
+  rl_line_buffer_len = sp->buflen;
+  rl_undo_list = sp->ul;
+  rl_prompt = sp->prompt;
+
+  rl_readline_state = sp->rlstate;
+  rl_done = sp->done;
+  _rl_keymap = sp->kmap;
+
+  rl_last_func = sp->lastfunc;
+  rl_insert_mode = sp->insmode;
+  rl_editing_mode = sp->edmode;
+  rl_key_sequence_length = sp->kseqlen;
+  rl_instream = sp->inf;
+  rl_outstream = sp->outf;
+  rl_pending_input = sp->pendingin;
+  rl_executing_macro = sp->macro;
+
+  rl_catch_signals = sp->catchsigs;
+#ifdef SIGWINCH
+  rl_catch_sigwinch = sp->catchsigwinch;
+#endif
+  return (0);
+}