[BACK]Return to readline.c CVS log [TXT][DIR] Up to [cvs.NetBSD.org] / src / lib / libedit

Please note that diffs are not public domain; they are subject to the copyright notices on the relevant files.

Diff for /src/lib/libedit/readline.c between version 1.69 and 1.123

version 1.69, 2006/08/21 12:45:30 version 1.123, 2016/02/16 15:53:48
Line 15 
Line 15 
  * 2. Redistributions in binary form must reproduce the above copyright   * 2. Redistributions in binary form must reproduce the above copyright
  *    notice, this list of conditions and the following disclaimer in the   *    notice, this list of conditions and the following disclaimer in the
  *    documentation and/or other materials provided with the distribution.   *    documentation and/or other materials provided with the distribution.
  * 3. Neither the name of The NetBSD Foundation 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 NETBSD FOUNDATION, INC. AND CONTRIBUTORS   * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED   * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
Line 40  __RCSID("$NetBSD$");
Line 37  __RCSID("$NetBSD$");
 #include <sys/types.h>  #include <sys/types.h>
 #include <sys/stat.h>  #include <sys/stat.h>
 #include <stdio.h>  #include <stdio.h>
   #include <stdint.h>
 #include <dirent.h>  #include <dirent.h>
 #include <string.h>  #include <string.h>
 #include <pwd.h>  #include <pwd.h>
Line 49  __RCSID("$NetBSD$");
Line 47  __RCSID("$NetBSD$");
 #include <limits.h>  #include <limits.h>
 #include <errno.h>  #include <errno.h>
 #include <fcntl.h>  #include <fcntl.h>
 #ifdef HAVE_VIS_H  #include <setjmp.h>
 #include <vis.h>  #include <vis.h>
 #else  
 #include "np/vis.h"  #include "readline/readline.h"
 #endif  
 #ifdef HAVE_ALLOCA_H  
 #include <alloca.h>  
 #endif  
 #include "el.h"  #include "el.h"
 #include "fcns.h"               /* for EL_NUM_FCNS */  #include "fcns.h"               /* for EL_NUM_FCNS */
 #include "histedit.h"  
 #include "readline/readline.h"  
 #include "filecomplete.h"  #include "filecomplete.h"
   
 void rl_prep_terminal(int);  void rl_prep_terminal(int);
Line 75  void rl_deprep_terminal(void);
Line 67  void rl_deprep_terminal(void);
 /* readline compatibility stuff - look at readline sources/documentation */  /* readline compatibility stuff - look at readline sources/documentation */
 /* to see what these variables mean */  /* to see what these variables mean */
 const char *rl_library_version = "EditLine wrapper";  const char *rl_library_version = "EditLine wrapper";
   int rl_readline_version = RL_READLINE_VERSION;
 static char empty[] = { '\0' };  static char empty[] = { '\0' };
 static char expand_chars[] = { ' ', '\t', '\n', '=', '(', '\0' };  static char expand_chars[] = { ' ', '\t', '\n', '=', '(', '\0' };
 static char break_chars[] = { ' ', '\t', '\n', '"', '\\', '\'', '`', '@', '$',  static char break_chars[] = { ' ', '\t', '\n', '"', '\\', '\'', '`', '@', '$',
Line 85  FILE *rl_outstream = NULL;
Line 78  FILE *rl_outstream = NULL;
 int rl_point = 0;  int rl_point = 0;
 int rl_end = 0;  int rl_end = 0;
 char *rl_line_buffer = NULL;  char *rl_line_buffer = NULL;
 VCPFunction *rl_linefunc = NULL;  rl_vcpfunc_t *rl_linefunc = NULL;
 int rl_done = 0;  int rl_done = 0;
 VFunction *rl_event_hook = NULL;  VFunction *rl_event_hook = NULL;
   KEYMAP_ENTRY_ARRAY emacs_standard_keymap,
       emacs_meta_keymap,
       emacs_ctlx_keymap;
   /*
    * The following is not implemented; we always catch signals in the
    * libedit fashion: set handlers on entry to el_gets() and clear them
    * on the way out. This simplistic approach works for most cases; if
    * it does not work for your application, please let us know.
    */
   int rl_catch_signals = 1;
   int rl_catch_sigwinch = 1;
   
 int history_base = 1;           /* probably never subject to change */  int history_base = 1;           /* probably never subject to change */
 int history_length = 0;  int history_length = 0;
Line 103  int rl_attempted_completion_over = 0;
Line 107  int rl_attempted_completion_over = 0;
 char *rl_basic_word_break_characters = break_chars;  char *rl_basic_word_break_characters = break_chars;
 char *rl_completer_word_break_characters = NULL;  char *rl_completer_word_break_characters = NULL;
 char *rl_completer_quote_characters = NULL;  char *rl_completer_quote_characters = NULL;
 Function *rl_completion_entry_function = NULL;  rl_compentry_func_t *rl_completion_entry_function = NULL;
 CPPFunction *rl_attempted_completion_function = NULL;  char *(*rl_completion_word_break_hook)(void) = NULL;
   rl_completion_func_t *rl_attempted_completion_function = NULL;
 Function *rl_pre_input_hook = NULL;  Function *rl_pre_input_hook = NULL;
 Function *rl_startup1_hook = NULL;  Function *rl_startup1_hook = NULL;
 Function *rl_getc_function = NULL;  int (*rl_getc_function)(FILE *) = NULL;
 char *rl_terminal_name = NULL;  char *rl_terminal_name = NULL;
 int rl_already_prompted = 0;  int rl_already_prompted = 0;
 int rl_filename_completion_desired = 0;  int rl_filename_completion_desired = 0;
 int rl_ignore_completion_duplicates = 0;  int rl_ignore_completion_duplicates = 0;
 int rl_catch_signals = 1;  int readline_echoing_p = 1;
   int _rl_print_completions_horizontally = 0;
 VFunction *rl_redisplay_function = NULL;  VFunction *rl_redisplay_function = NULL;
 Function *rl_startup_hook = NULL;  Function *rl_startup_hook = NULL;
 VFunction *rl_completion_display_matches_hook = NULL;  VFunction *rl_completion_display_matches_hook = NULL;
 VFunction *rl_prep_term_function = (VFunction *)rl_prep_terminal;  VFunction *rl_prep_term_function = (VFunction *)rl_prep_terminal;
 VFunction *rl_deprep_term_function = (VFunction *)rl_deprep_terminal;  VFunction *rl_deprep_term_function = (VFunction *)rl_deprep_terminal;
   KEYMAP_ENTRY_ARRAY emacs_meta_keymap;
   
 /*  /*
  * The current prompt string.   * The current prompt string.
Line 153  int rl_completion_append_character = ' '
Line 160  int rl_completion_append_character = ' '
   
 static History *h = NULL;  static History *h = NULL;
 static EditLine *e = NULL;  static EditLine *e = NULL;
 static Function *map[256];  static rl_command_func_t *map[256];
   static jmp_buf topbuf;
   
 /* internal functions */  /* internal functions */
 static unsigned char     _el_rl_complete(EditLine *, int);  static unsigned char     _el_rl_complete(EditLine *, int);
Line 174  static char *
Line 182  static char *
 _get_prompt(EditLine *el __attribute__((__unused__)))  _get_prompt(EditLine *el __attribute__((__unused__)))
 {  {
         rl_already_prompted = 1;          rl_already_prompted = 1;
         return (rl_prompt);          return rl_prompt;
 }  }
   
   
Line 188  _move_history(int op)
Line 196  _move_history(int op)
         static HIST_ENTRY rl_he;          static HIST_ENTRY rl_he;
   
         if (history(h, &ev, op) != 0)          if (history(h, &ev, op) != 0)
                 return (HIST_ENTRY *) NULL;                  return NULL;
   
         rl_he.line = ev.str;          rl_he.line = ev.str;
         rl_he.data = NULL;          rl_he.data = NULL;
   
         return (&rl_he);          return &rl_he;
 }  }
   
   
Line 202  _move_history(int op)
Line 210  _move_history(int op)
  */   */
 static int  static int
 /*ARGSUSED*/  /*ARGSUSED*/
 _getc_function(EditLine *el, char *c)  _getc_function(EditLine *el __attribute__((__unused__)), char *c)
 {  {
         int i;          int i;
   
         i = (*rl_getc_function)(NULL, 0);          i = (*rl_getc_function)(NULL);
         if (i == -1)          if (i == -1)
                 return 0;                  return 0;
         *c = i;          *c = (char)i;
         return 1;          return 1;
 }  }
   
   static void
   _resize_fun(EditLine *el, void *a)
   {
           const LineInfo *li;
           char **ap = a;
   
           li = el_line(el);
           /* a cheesy way to get rid of const cast. */
           *ap = memchr(li->buffer, *li->buffer, (size_t)1);
   }
   
   static const char *
   _default_history_file(void)
   {
           struct passwd *p;
           static char *path;
           size_t len;
   
           if (path)
                   return path;
   
           if ((p = getpwuid(getuid())) == NULL)
                   return NULL;
   
           len = strlen(p->pw_dir) + sizeof("/.history");
           if ((path = malloc(len)) == NULL)
                   return NULL;
   
           (void)snprintf(path, len, "%s/.history", p->pw_dir);
           return path;
   }
   
 /*  /*
  * READLINE compatibility stuff   * READLINE compatibility stuff
  */   */
   
 /*  /*
    * Set the prompt
    */
   int
   rl_set_prompt(const char *prompt)
   {
           char *p;
   
           if (!prompt)
                   prompt = "";
           if (rl_prompt != NULL && strcmp(rl_prompt, prompt) == 0)
                   return 0;
           if (rl_prompt)
                   el_free(rl_prompt);
           rl_prompt = strdup(prompt);
           if (rl_prompt == NULL)
                   return -1;
   
           while ((p = strchr(rl_prompt, RL_PROMPT_END_IGNORE)) != NULL)
                   *p = RL_PROMPT_START_IGNORE;
   
           return 0;
   }
   
   /*
  * initialize rl compat stuff   * initialize rl compat stuff
  */   */
 int  int
 rl_initialize(void)  rl_initialize(void)
 {  {
         HistEvent ev;          HistEvent ev;
         const LineInfo *li;  
         int editmode = 1;          int editmode = 1;
         struct termios t;          struct termios t;
   
Line 252  rl_initialize(void)
Line 314  rl_initialize(void)
   
         h = history_init();          h = history_init();
         if (!e || !h)          if (!e || !h)
                 return (-1);                  return -1;
   
         history(h, &ev, H_SETSIZE, INT_MAX);    /* unlimited */          history(h, &ev, H_SETSIZE, INT_MAX);    /* unlimited */
         history_length = 0;          history_length = 0;
         max_input_history = INT_MAX;          max_input_history = INT_MAX;
         el_set(e, EL_HIST, history, h);          el_set(e, EL_HIST, history, h);
   
           /* Setup resize function */
           el_set(e, EL_RESIZE, _resize_fun, &rl_line_buffer);
   
         /* setup getc function if valid */          /* setup getc function if valid */
         if (rl_getc_function)          if (rl_getc_function)
                 el_set(e, EL_GETCFN, _getc_function);                  el_set(e, EL_GETCFN, _getc_function);
   
         /* for proper prompt printing in readline() */          /* for proper prompt printing in readline() */
         rl_prompt = strdup("");          if (rl_set_prompt("") == -1) {
         if (rl_prompt == NULL) {  
                 history_end(h);                  history_end(h);
                 el_end(e);                  el_end(e);
                 return -1;                  return -1;
         }          }
         el_set(e, EL_PROMPT, _get_prompt);          el_set(e, EL_PROMPT, _get_prompt, RL_PROMPT_START_IGNORE);
         el_set(e, EL_SIGNAL, rl_catch_signals);          el_set(e, EL_SIGNAL, rl_catch_signals);
   
         /* set default mode to "emacs"-style and read setting afterwards */          /* set default mode to "emacs"-style and read setting afterwards */
         /* so this can be overriden */          /* so this can be overridden */
         el_set(e, EL_EDITOR, "emacs");          el_set(e, EL_EDITOR, "emacs");
         if (rl_terminal_name != NULL)          if (rl_terminal_name != NULL)
                 el_set(e, EL_TERMINAL, rl_terminal_name);                  el_set(e, EL_TERMINAL, rl_terminal_name);
Line 298  rl_initialize(void)
Line 362  rl_initialize(void)
             _el_rl_tstp);              _el_rl_tstp);
         el_set(e, EL_BIND, "^Z", "rl_tstp", NULL);          el_set(e, EL_BIND, "^Z", "rl_tstp", NULL);
   
           /*
            * Set some readline compatible key-bindings.
            */
           el_set(e, EL_BIND, "^R", "em-inc-search-prev", NULL);
   
           /*
            * Allow the use of Home/End keys.
            */
           el_set(e, EL_BIND, "\\e[1~", "ed-move-to-beg", NULL);
           el_set(e, EL_BIND, "\\e[4~", "ed-move-to-end", NULL);
           el_set(e, EL_BIND, "\\e[7~", "ed-move-to-beg", NULL);
           el_set(e, EL_BIND, "\\e[8~", "ed-move-to-end", NULL);
           el_set(e, EL_BIND, "\\e[H", "ed-move-to-beg", NULL);
           el_set(e, EL_BIND, "\\e[F", "ed-move-to-end", NULL);
   
           /*
            * Allow the use of the Delete/Insert keys.
            */
           el_set(e, EL_BIND, "\\e[3~", "ed-delete-next-char", NULL);
           el_set(e, EL_BIND, "\\e[2~", "ed-quoted-insert", NULL);
   
           /*
            * Ctrl-left-arrow and Ctrl-right-arrow for word moving.
            */
           el_set(e, EL_BIND, "\\e[1;5C", "em-next-word", NULL);
           el_set(e, EL_BIND, "\\e[1;5D", "ed-prev-word", NULL);
           el_set(e, EL_BIND, "\\e[5C", "em-next-word", NULL);
           el_set(e, EL_BIND, "\\e[5D", "ed-prev-word", NULL);
           el_set(e, EL_BIND, "\\e\\e[C", "em-next-word", NULL);
           el_set(e, EL_BIND, "\\e\\e[D", "ed-prev-word", NULL);
   
         /* read settings from configuration file */          /* read settings from configuration file */
         el_source(e, NULL);          el_source(e, NULL);
   
Line 305  rl_initialize(void)
Line 400  rl_initialize(void)
          * Unfortunately, some applications really do use rl_point           * Unfortunately, some applications really do use rl_point
          * and rl_line_buffer directly.           * and rl_line_buffer directly.
          */           */
         li = el_line(e);          _resize_fun(e, &rl_line_buffer);
         /* a cheesy way to get rid of const cast. */  
         rl_line_buffer = memchr(li->buffer, *li->buffer, 1);  
         _rl_update_pos();          _rl_update_pos();
   
         if (rl_startup_hook)          if (rl_startup_hook)
                 (*rl_startup_hook)(NULL, 0);                  (*rl_startup_hook)(NULL, 0);
   
         return (0);          return 0;
 }  }
   
   
Line 322  rl_initialize(void)
Line 415  rl_initialize(void)
  * trailing newline (if there is any)   * trailing newline (if there is any)
  */   */
 char *  char *
 readline(const char *prompt)  readline(const char *p)
 {  {
         HistEvent ev;          HistEvent ev;
           const char * volatile prompt = p;
         int count;          int count;
         const char *ret;          const char *ret;
         char *buf;          char *buf;
Line 335  readline(const char *prompt)
Line 429  readline(const char *prompt)
   
         rl_done = 0;          rl_done = 0;
   
           (void)setjmp(topbuf);
   
         /* update prompt accordingly to what has been passed */          /* update prompt accordingly to what has been passed */
         if (!prompt)          if (rl_set_prompt(prompt) == -1)
                 prompt = "";                  return NULL;
         if (strcmp(rl_prompt, prompt) != 0) {  
                 free(rl_prompt);  
                 rl_prompt = strdup(prompt);  
                 if (rl_prompt == NULL)  
                         return NULL;  
         }  
   
         if (rl_pre_input_hook)          if (rl_pre_input_hook)
                 (*rl_pre_input_hook)(NULL, 0);                  (*rl_pre_input_hook)(NULL, 0);
Line 425  _rl_compat_sub(const char *str, const ch
Line 515  _rl_compat_sub(const char *str, const ch
                 } else                  } else
                         s++;                          s++;
         }          }
         r = result = malloc(len + 1);          r = result = el_malloc((len + 1) * sizeof(*r));
         if (result == NULL)          if (result == NULL)
                 return NULL;                  return NULL;
         s = str;          s = str;
Line 436  _rl_compat_sub(const char *str, const ch
Line 526  _rl_compat_sub(const char *str, const ch
                         s += what_len;                          s += what_len;
                         if (!globally) {                          if (!globally) {
                                 (void)strcpy(r, s);                                  (void)strcpy(r, s);
                                 return(result);                                  return result;
                         }                          }
                 } else                  } else
                         *r++ = *s++;                          *r++ = *s++;
         }          }
         *r = 0;          *r = '\0';
         return(result);          return result;
 }  }
   
 static  char    *last_search_pat;       /* last !?pat[?] search pattern */  static  char    *last_search_pat;       /* last !?pat[?] search pattern */
Line 459  get_history_event(const char *cmd, int *
Line 549  get_history_event(const char *cmd, int *
   
         idx = *cindex;          idx = *cindex;
         if (cmd[idx++] != history_expansion_char)          if (cmd[idx++] != history_expansion_char)
                 return(NULL);                  return NULL;
   
         /* find out which event to take */          /* find out which event to take */
         if (cmd[idx] == history_expansion_char || cmd[idx] == 0) {          if (cmd[idx] == history_expansion_char || cmd[idx] == '\0') {
                 if (history(h, &ev, H_FIRST) != 0)                  if (history(h, &ev, H_FIRST) != 0)
                         return(NULL);                          return NULL;
                 *cindex = cmd[idx]? (idx + 1):idx;                  *cindex = cmd[idx]? (idx + 1):idx;
                 return(ev.str);                  return ev.str;
         }          }
         sign = 0;          sign = 0;
         if (cmd[idx] == '-') {          if (cmd[idx] == '-') {
Line 486  get_history_event(const char *cmd, int *
Line 576  get_history_event(const char *cmd, int *
                         num = history_length - num + 1;                          num = history_length - num + 1;
   
                 if (!(rl_he = history_get(num)))                  if (!(rl_he = history_get(num)))
                         return(NULL);                          return NULL;
   
                 *cindex = idx;                  *cindex = idx;
                 return(rl_he->line);                  return rl_he->line;
         }          }
         sub = 0;          sub = 0;
         if (cmd[idx] == '?') {          if (cmd[idx] == '?') {
Line 507  get_history_event(const char *cmd, int *
Line 597  get_history_event(const char *cmd, int *
                         break;                          break;
                 idx++;                  idx++;
         }          }
         len = idx - begin;          len = (size_t)idx - (size_t)begin;
         if (sub && cmd[idx] == '?')          if (sub && cmd[idx] == '?')
                 idx++;                  idx++;
         if (sub && len == 0 && last_search_pat && *last_search_pat)          if (sub && len == 0 && last_search_pat && *last_search_pat)
                 pat = last_search_pat;                  pat = last_search_pat;
         else if (len == 0)          else if (len == 0)
                 return(NULL);                  return NULL;
         else {          else {
                 if ((pat = malloc(len + 1)) == NULL)                  if ((pat = el_malloc((len + 1) * sizeof(*pat))) == NULL)
                         return NULL;                          return NULL;
                 (void)strncpy(pat, cmd + begin, len);                  (void)strncpy(pat, cmd + begin, len);
                 pat[len] = '\0';                  pat[len] = '\0';
Line 523  get_history_event(const char *cmd, int *
Line 613  get_history_event(const char *cmd, int *
   
         if (history(h, &ev, H_CURR) != 0) {          if (history(h, &ev, H_CURR) != 0) {
                 if (pat != last_search_pat)                  if (pat != last_search_pat)
                         free(pat);                          el_free(pat);
                 return (NULL);                  return NULL;
         }          }
         num = ev.num;          num = ev.num;
   
         if (sub) {          if (sub) {
                 if (pat != last_search_pat) {                  if (pat != last_search_pat) {
                         if (last_search_pat)                          if (last_search_pat)
                                 free(last_search_pat);                                  el_free(last_search_pat);
                         last_search_pat = pat;                          last_search_pat = pat;
                 }                  }
                 ret = history_search(pat, -1);                  ret = history_search(pat, -1);
Line 543  get_history_event(const char *cmd, int *
Line 633  get_history_event(const char *cmd, int *
                 history(h, &ev, H_FIRST);                  history(h, &ev, H_FIRST);
                 (void)fprintf(rl_outstream, "%s: Event not found\n", pat);                  (void)fprintf(rl_outstream, "%s: Event not found\n", pat);
                 if (pat != last_search_pat)                  if (pat != last_search_pat)
                         free(pat);                          el_free(pat);
                 return(NULL);                  return NULL;
         }          }
   
         if (sub && len) {          if (sub && len) {
                 if (last_search_match && last_search_match != pat)                  if (last_search_match && last_search_match != pat)
                         free(last_search_match);                          el_free(last_search_match);
                 last_search_match = pat;                  last_search_match = pat;
         }          }
   
         if (pat != last_search_pat)          if (pat != last_search_pat)
                 free(pat);                  el_free(pat);
   
         if (history(h, &ev, H_CURR) != 0)          if (history(h, &ev, H_CURR) != 0)
                 return(NULL);                  return NULL;
         *cindex = idx;          *cindex = idx;
         rptr = ev.str;          rptr = ev.str;
   
Line 575  get_history_event(const char *cmd, int *
Line 665  get_history_event(const char *cmd, int *
  * returns 0 if data was not modified, 1 if it was and 2 if the string   * returns 0 if data was not modified, 1 if it was and 2 if the string
  * should be only printed and not executed; in case of error,   * should be only printed and not executed; in case of error,
  * returns -1 and *result points to NULL   * returns -1 and *result points to NULL
  * it's callers responsibility to free() string returned in *result   * it's the caller's responsibility to free() the string returned in *result
  */   */
 static int  static int
 _history_expand_command(const char *command, size_t offs, size_t cmdlen,  _history_expand_command(const char *command, size_t offs, size_t cmdlen,
Line 609  _history_expand_command(const char *comm
Line 699  _history_expand_command(const char *comm
         } else {          } else {
                 if (command[offs + 1] == '#') {                  if (command[offs + 1] == '#') {
                         /* use command so far */                          /* use command so far */
                         if ((aptr = malloc(offs + 1)) == NULL)                          if ((aptr = el_malloc((offs + 1) * sizeof(*aptr)))
                               == NULL)
                                 return -1;                                  return -1;
                         (void)strncpy(aptr, command, offs);                          (void)strncpy(aptr, command, offs);
                         aptr[offs] = '\0';                          aptr[offs] = '\0';
Line 620  _history_expand_command(const char *comm
Line 711  _history_expand_command(const char *comm
                         qchar = (offs > 0 && command[offs - 1] == '"')? '"':0;                          qchar = (offs > 0 && command[offs - 1] == '"')? '"':0;
                         ptr = get_history_event(command + offs, &idx, qchar);                          ptr = get_history_event(command + offs, &idx, qchar);
                 }                  }
                 has_mods = command[offs + idx] == ':';                  has_mods = command[offs + (size_t)idx] == ':';
         }          }
   
         if (ptr == NULL && aptr == NULL)          if (ptr == NULL && aptr == NULL)
                 return(-1);                  return -1;
   
         if (!has_mods) {          if (!has_mods) {
                 *result = strdup(aptr? aptr : ptr);                  *result = strdup(aptr ? aptr : ptr);
                 if (aptr)                  if (aptr)
                         free(aptr);                          el_free(aptr);
                 return(1);                  if (*result == NULL)
                           return -1;
                   return 1;
         }          }
   
         cmd = command + offs + idx + 1;          cmd = command + offs + idx + 1;
Line 675  _history_expand_command(const char *comm
Line 768  _history_expand_command(const char *comm
                         (void)fprintf(rl_outstream, "%s: Bad word specifier",                          (void)fprintf(rl_outstream, "%s: Bad word specifier",
                             command + offs + idx);                              command + offs + idx);
                         if (aptr)                          if (aptr)
                                 free(aptr);                                  el_free(aptr);
                         return(-1);                          return -1;
                 }                  }
         } else          } else
                 tmp = strdup(aptr? aptr:ptr);                  tmp = strdup(aptr? aptr:ptr);
   
         if (aptr)          if (aptr)
                 free(aptr);                  el_free(aptr);
   
         if (*cmd == 0 || (cmd - (command + offs) >= cmdlen)) {          if (*cmd == '\0' || ((size_t)(cmd - (command + offs)) >= cmdlen)) {
                 *result = tmp;                  *result = tmp;
                 return(1);                  return 1;
         }          }
   
         for (; *cmd; cmd++) {          for (; *cmd; cmd++) {
Line 694  _history_expand_command(const char *comm
Line 787  _history_expand_command(const char *comm
                         continue;                          continue;
                 else if (*cmd == 'h') {         /* remove trailing path */                  else if (*cmd == 'h') {         /* remove trailing path */
                         if ((aptr = strrchr(tmp, '/')) != NULL)                          if ((aptr = strrchr(tmp, '/')) != NULL)
                                 *aptr = 0;                                  *aptr = '\0';
                 } else if (*cmd == 't') {       /* remove leading path */                  } else if (*cmd == 't') {       /* remove leading path */
                         if ((aptr = strrchr(tmp, '/')) != NULL) {                          if ((aptr = strrchr(tmp, '/')) != NULL) {
                                 aptr = strdup(aptr + 1);                                  aptr = strdup(aptr + 1);
                                 free(tmp);                                  el_free(tmp);
                                 tmp = aptr;                                  tmp = aptr;
                         }                          }
                 } else if (*cmd == 'r') {       /* remove trailing suffix */                  } else if (*cmd == 'r') {       /* remove trailing suffix */
                         if ((aptr = strrchr(tmp, '.')) != NULL)                          if ((aptr = strrchr(tmp, '.')) != NULL)
                                 *aptr = 0;                                  *aptr = '\0';
                 } else if (*cmd == 'e') {       /* remove all but suffix */                  } else if (*cmd == 'e') {       /* remove all but suffix */
                         if ((aptr = strrchr(tmp, '.')) != NULL) {                          if ((aptr = strrchr(tmp, '.')) != NULL) {
                                 aptr = strdup(aptr);                                  aptr = strdup(aptr);
                                 free(tmp);                                  el_free(tmp);
                                 tmp = aptr;                                  tmp = aptr;
                         }                          }
                 } else if (*cmd == 'p')         /* print only */                  } else if (*cmd == 'p')         /* print only */
Line 724  _history_expand_command(const char *comm
Line 817  _history_expand_command(const char *comm
                         else if (*cmd == 's') {                          else if (*cmd == 's') {
                                 delim = *(++cmd), cmd++;                                  delim = *(++cmd), cmd++;
                                 size = 16;                                  size = 16;
                                 what = realloc(from, size);                                  what = el_realloc(from, size * sizeof(*what));
                                 if (what == NULL) {                                  if (what == NULL) {
                                         free(from);                                          el_free(from);
                                         free(tmp);                                          el_free(tmp);
                                         return 0;                                          return 0;
                                 }                                  }
                                 len = 0;                                  len = 0;
Line 736  _history_expand_command(const char *comm
Line 829  _history_expand_command(const char *comm
                                                 cmd++;                                                  cmd++;
                                         if (len >= size) {                                          if (len >= size) {
                                                 char *nwhat;                                                  char *nwhat;
                                                 nwhat = realloc(what,                                                  nwhat = el_realloc(what,
                                                                 (size <<= 1));                                                      (size <<= 1) *
                                                       sizeof(*nwhat));
                                                 if (nwhat == NULL) {                                                  if (nwhat == NULL) {
                                                         free(what);                                                          el_free(what);
                                                         free(tmp);                                                          el_free(tmp);
                                                         return 0;                                                          return 0;
                                                 }                                                  }
                                                 what = nwhat;                                                  what = nwhat;
Line 750  _history_expand_command(const char *comm
Line 844  _history_expand_command(const char *comm
                                 what[len] = '\0';                                  what[len] = '\0';
                                 from = what;                                  from = what;
                                 if (*what == '\0') {                                  if (*what == '\0') {
                                         free(what);                                          el_free(what);
                                         if (search) {                                          if (search) {
                                                 from = strdup(search);                                                  from = strdup(search);
                                                 if (from == NULL) {                                                  if (from == NULL) {
                                                         free(tmp);                                                          el_free(tmp);
                                                         return 0;                                                          return 0;
                                                 }                                                  }
                                         } else {                                          } else {
                                                 from = NULL;                                                  from = NULL;
                                                 free(tmp);                                                  el_free(tmp);
                                                 return (-1);                                                  return -1;
                                         }                                          }
                                 }                                  }
                                 cmd++;  /* shift after delim */                                  cmd++;  /* shift after delim */
Line 768  _history_expand_command(const char *comm
Line 862  _history_expand_command(const char *comm
                                         continue;                                          continue;
   
                                 size = 16;                                  size = 16;
                                 with = realloc(to, size);                                  with = el_realloc(to, size * sizeof(*with));
                                 if (with == NULL) {                                  if (with == NULL) {
                                         free(to);                                          el_free(to);
                                         free(tmp);                                          el_free(tmp);
                                         return -1;                                          return -1;
                                 }                                  }
                                 len = 0;                                  len = 0;
Line 780  _history_expand_command(const char *comm
Line 874  _history_expand_command(const char *comm
                                         if (len + from_len + 1 >= size) {                                          if (len + from_len + 1 >= size) {
                                                 char *nwith;                                                  char *nwith;
                                                 size += from_len + 1;                                                  size += from_len + 1;
                                                 nwith = realloc(with, size);                                                  nwith = el_realloc(with,
                                                       size * sizeof(*nwith));
                                                 if (nwith == NULL) {                                                  if (nwith == NULL) {
                                                         free(with);                                                          el_free(with);
                                                         free(tmp);                                                          el_free(tmp);
                                                         return -1;                                                          return -1;
                                                 }                                                  }
                                                 with = nwith;                                                  with = nwith;
Line 806  _history_expand_command(const char *comm
Line 901  _history_expand_command(const char *comm
   
                         aptr = _rl_compat_sub(tmp, from, to, g_on);                          aptr = _rl_compat_sub(tmp, from, to, g_on);
                         if (aptr) {                          if (aptr) {
                                 free(tmp);                                  el_free(tmp);
                                 tmp = aptr;                                  tmp = aptr;
                         }                          }
                         g_on = 0;                          g_on = 0;
                 }                  }
         }          }
         *result = tmp;          *result = tmp;
         return (p_on? 2:1);          return p_on? 2:1;
 }  }
   
   
Line 832  history_expand(char *str, char **output)
Line 927  history_expand(char *str, char **output)
   
         if (history_expansion_char == 0) {          if (history_expansion_char == 0) {
                 *output = strdup(str);                  *output = strdup(str);
                 return(0);                  return 0;
         }          }
   
         *output = NULL;          *output = NULL;
         if (str[0] == history_subst_char) {          if (str[0] == history_subst_char) {
                 /* ^foo^foo2^ is equivalent to !!:s^foo^foo2^ */                  /* ^foo^foo2^ is equivalent to !!:s^foo^foo2^ */
                 *output = malloc(strlen(str) + 4 + 1);                  *output = el_malloc((strlen(str) + 4 + 1) * sizeof(**output));
                 if (*output == NULL)                  if (*output == NULL)
                         return 0;                          return 0;
                 (*output)[0] = (*output)[1] = history_expansion_char;                  (*output)[0] = (*output)[1] = history_expansion_char;
Line 855  history_expand(char *str, char **output)
Line 950  history_expand(char *str, char **output)
 #define ADD_STRING(what, len, fr)                                       \  #define ADD_STRING(what, len, fr)                                       \
         {                                                               \          {                                                               \
                 if (idx + len + 1 > size) {                             \                  if (idx + len + 1 > size) {                             \
                         char *nresult = realloc(result, (size += len + 1));\                          char *nresult = el_realloc(result,              \
                               (size += len + 1) * sizeof(*nresult));      \
                         if (nresult == NULL) {                          \                          if (nresult == NULL) {                          \
                                 free(*output);                          \                                  el_free(*output);                       \
                                 if (/*CONSTCOND*/fr)                    \                                  if (/*CONSTCOND*/fr)                    \
                                         free(tmp);                      \                                          el_free(tmp);                   \
                                 return 0;                               \                                  return 0;                               \
                         }                                               \                          }                                               \
                         result = nresult;                               \                          result = nresult;                               \
Line 883  loop:
Line 979  loop:
                 for (; str[j]; j++) {                  for (; str[j]; j++) {
                         if (str[j] == '\\' &&                          if (str[j] == '\\' &&
                             str[j + 1] == history_expansion_char) {                              str[j + 1] == history_expansion_char) {
                                 (void)strcpy(&str[j], &str[j + 1]);                                  len = strlen(&str[j + 1]) + 1;
                                   memmove(&str[j], &str[j + 1], len);
                                 continue;                                  continue;
                         }                          }
                         if (!loop_again) {                          if (!loop_again) {
Line 926  loop:
Line 1023  loop:
                         ADD_STRING(tmp, len, 1);                          ADD_STRING(tmp, len, 1);
                 }                  }
                 if (tmp) {                  if (tmp) {
                         free(tmp);                          el_free(tmp);
                         tmp = NULL;                          tmp = NULL;
                 }                  }
                 i = j;                  i = j;
Line 943  loop:
Line 1040  loop:
                 ret = -1;                  ret = -1;
 #endif  #endif
         }          }
         free(*output);          el_free(*output);
         *output = result;          *output = result;
   
         return (ret);          return ret;
 }  }
   
 /*  /*
Line 956  char *
Line 1053  char *
 history_arg_extract(int start, int end, const char *str)  history_arg_extract(int start, int end, const char *str)
 {  {
         size_t  i, len, max;          size_t  i, len, max;
         char    **arr, *result;          char    **arr, *result = NULL;
   
         arr = history_tokenize(str);          arr = history_tokenize(str);
         if (!arr)          if (!arr)
                 return(NULL);                  return NULL;
         if (arr && *arr == NULL) {          if (arr && *arr == NULL)
                 free(arr);                  goto out;
                 return(NULL);  
         }  
   
         for (max = 0; arr[max]; max++)          for (max = 0; arr[max]; max++)
                 continue;                  continue;
         max--;          max--;
   
         if (start == '$')          if (start == '$')
                 start = max;                  start = (int)max;
         if (end == '$')          if (end == '$')
                 end = max;                  end = (int)max;
         if (end < 0)          if (end < 0)
                 end = max + end + 1;                  end = (int)max + end + 1;
         if (start < 0)          if (start < 0)
                 start = end;                  start = end;
   
         if (start < 0 || end < 0 || start > max || end > max || start > end)          if (start < 0 || end < 0 || (size_t)start > max ||
                 return(NULL);              (size_t)end > max || start > end)
                   goto out;
   
         for (i = start, len = 0; i <= end; i++)          for (i = (size_t)start, len = 0; i <= (size_t)end; i++)
                 len += strlen(arr[i]) + 1;                  len += strlen(arr[i]) + 1;
         len++;          len++;
         result = malloc(len);          result = el_malloc(len * sizeof(*result));
         if (result == NULL)          if (result == NULL)
                 return NULL;                  goto out;
   
         for (i = start, len = 0; i <= end; i++) {          for (i = (size_t)start, len = 0; i <= (size_t)end; i++) {
                 (void)strcpy(result + len, arr[i]);                  (void)strcpy(result + len, arr[i]);
                 len += strlen(arr[i]);                  len += strlen(arr[i]);
                 if (i < end)                  if (i < (size_t)end)
                         result[len++] = ' ';                          result[len++] = ' ';
         }          }
         result[len] = 0;          result[len] = '\0';
   
   out:
         for (i = 0; arr[i]; i++)          for (i = 0; arr[i]; i++)
                 free(arr[i]);                  el_free(arr[i]);
         free(arr);          el_free(arr);
   
         return(result);          return result;
 }  }
   
 /*  /*
Line 1038  history_tokenize(const char *str)
Line 1135  history_tokenize(const char *str)
                 if (idx + 2 >= size) {                  if (idx + 2 >= size) {
                         char **nresult;                          char **nresult;
                         size <<= 1;                          size <<= 1;
                         nresult = realloc(result, size * sizeof(char *));                          nresult = el_realloc(result, (size_t)size * sizeof(*nresult));
                         if (nresult == NULL) {                          if (nresult == NULL) {
                                 free(result);                                  el_free(result);
                                 return NULL;                                  return NULL;
                         }                          }
                         result = nresult;                          result = nresult;
                 }                  }
                 len = i - start;                  len = (size_t)i - (size_t)start;
                 temp = malloc(len + 1);                  temp = el_malloc((size_t)(len + 1) * sizeof(*temp));
                 if (temp == NULL) {                  if (temp == NULL) {
                         for (i = 0; i < idx; i++)                          for (i = 0; i < idx; i++)
                                 free(result[i]);                                  el_free(result[i]);
                         free(result);                          el_free(result);
                         return NULL;                          return NULL;
                 }                  }
                 (void)strncpy(temp, &str[start], len);                  (void)strncpy(temp, &str[start], len);
Line 1060  history_tokenize(const char *str)
Line 1157  history_tokenize(const char *str)
                 if (str[i])                  if (str[i])
                         i++;                          i++;
         }          }
         return (result);          return result;
 }  }
   
   
Line 1092  unstifle_history(void)
Line 1189  unstifle_history(void)
         history(h, &ev, H_SETSIZE, INT_MAX);          history(h, &ev, H_SETSIZE, INT_MAX);
         omax = max_input_history;          omax = max_input_history;
         max_input_history = INT_MAX;          max_input_history = INT_MAX;
         return (omax);          /* some value _must_ be returned */          return omax;            /* some value _must_ be returned */
 }  }
   
   
Line 1101  history_is_stifled(void)
Line 1198  history_is_stifled(void)
 {  {
   
         /* cannot return true answer */          /* cannot return true answer */
         return (max_input_history != INT_MAX);          return max_input_history != INT_MAX;
   }
   
   static const char _history_tmp_template[] = "/tmp/.historyXXXXXX";
   
   int
   history_truncate_file (const char *filename, int nlines)
   {
           int ret = 0;
           FILE *fp, *tp;
           char template[sizeof(_history_tmp_template)];
           char buf[4096];
           int fd;
           char *cp;
           off_t off;
           int count = 0;
           ssize_t left = 0;
   
           if (filename == NULL && (filename = _default_history_file()) == NULL)
                   return errno;
           if ((fp = fopen(filename, "r+")) == NULL)
                   return errno;
           strcpy(template, _history_tmp_template);
           if ((fd = mkstemp(template)) == -1) {
                   ret = errno;
                   goto out1;
           }
   
           if ((tp = fdopen(fd, "r+")) == NULL) {
                   close(fd);
                   ret = errno;
                   goto out2;
           }
   
           for(;;) {
                   if (fread(buf, sizeof(buf), (size_t)1, fp) != 1) {
                           if (ferror(fp)) {
                                   ret = errno;
                                   break;
                           }
                           if (fseeko(fp, (off_t)sizeof(buf) * count, SEEK_SET) ==
                               (off_t)-1) {
                                   ret = errno;
                                   break;
                           }
                           left = (ssize_t)fread(buf, (size_t)1, sizeof(buf), fp);
                           if (ferror(fp)) {
                                   ret = errno;
                                   break;
                           }
                           if (left == 0) {
                                   count--;
                                   left = sizeof(buf);
                           } else if (fwrite(buf, (size_t)left, (size_t)1, tp)
                               != 1) {
                                   ret = errno;
                                   break;
                           }
                           fflush(tp);
                           break;
                   }
                   if (fwrite(buf, sizeof(buf), (size_t)1, tp) != 1) {
                           ret = errno;
                           break;
                   }
                   count++;
           }
           if (ret)
                   goto out3;
           cp = buf + left - 1;
           if(*cp != '\n')
                   cp++;
           for(;;) {
                   while (--cp >= buf) {
                           if (*cp == '\n') {
                                   if (--nlines == 0) {
                                           if (++cp >= buf + sizeof(buf)) {
                                                   count++;
                                                   cp = buf;
                                           }
                                           break;
                                   }
                           }
                   }
                   if (nlines <= 0 || count == 0)
                           break;
                   count--;
                   if (fseeko(tp, (off_t)sizeof(buf) * count, SEEK_SET) < 0) {
                           ret = errno;
                           break;
                   }
                   if (fread(buf, sizeof(buf), (size_t)1, tp) != 1) {
                           if (ferror(tp)) {
                                   ret = errno;
                                   break;
                           }
                           ret = EAGAIN;
                           break;
                   }
                   cp = buf + sizeof(buf);
           }
   
           if (ret || nlines > 0)
                   goto out3;
   
           if (fseeko(fp, (off_t)0, SEEK_SET) == (off_t)-1) {
                   ret = errno;
                   goto out3;
           }
   
           if (fseeko(tp, (off_t)sizeof(buf) * count + (cp - buf), SEEK_SET) ==
               (off_t)-1) {
                   ret = errno;
                   goto out3;
           }
   
           for(;;) {
                   if ((left = (ssize_t)fread(buf, (size_t)1, sizeof(buf), tp)) == 0) {
                           if (ferror(fp))
                                   ret = errno;
                           break;
                   }
                   if (fwrite(buf, (size_t)left, (size_t)1, fp) != 1) {
                           ret = errno;
                           break;
                   }
           }
           fflush(fp);
           if((off = ftello(fp)) > 0)
                   (void)ftruncate(fileno(fp), off);
   out3:
           fclose(tp);
   out2:
           unlink(template);
   out1:
           fclose(fp);
   
           return ret;
 }  }
   
   
Line 1115  read_history(const char *filename)
Line 1349  read_history(const char *filename)
   
         if (h == NULL || e == NULL)          if (h == NULL || e == NULL)
                 rl_initialize();                  rl_initialize();
         return (history(h, &ev, H_LOAD, filename) == -1);          if (filename == NULL && (filename = _default_history_file()) == NULL)
                   return errno;
           return history(h, &ev, H_LOAD, filename) == -1 ?
               (errno ? errno : EINVAL) : 0;
 }  }
   
   
Line 1129  write_history(const char *filename)
Line 1366  write_history(const char *filename)
   
         if (h == NULL || e == NULL)          if (h == NULL || e == NULL)
                 rl_initialize();                  rl_initialize();
         return (history(h, &ev, H_SAVE, filename) == -1);          if (filename == NULL && (filename = _default_history_file()) == NULL)
                   return errno;
           return history(h, &ev, H_SAVE, filename) == -1 ?
               (errno ? errno : EINVAL) : 0;
 }  }
   
   
Line 1150  history_get(int num)
Line 1390  history_get(int num)
   
         /* save current position */          /* save current position */
         if (history(h, &ev, H_CURR) != 0)          if (history(h, &ev, H_CURR) != 0)
                 return (NULL);                  return NULL;
         curr_num = ev.num;          curr_num = ev.num;
   
         /* start from most recent */          /* start from the oldest */
         if (history(h, &ev, H_FIRST) != 0)          if (history(h, &ev, H_LAST) != 0)
                 return (NULL);  /* error */                  return NULL;    /* error */
   
         /* look backwards for event matching specified offset */          /* look forwards for event matching specified offset */
         if (history(h, &ev, H_NEXT_EVENT, num))          if (history(h, &ev, H_NEXT_EVDATA, num, &she.data))
                 return (NULL);                  return NULL;
   
         she.line = ev.str;          she.line = ev.str;
         she.data = NULL;  
   
         /* restore pointer to where it was */          /* restore pointer to where it was */
         (void)history(h, &ev, H_SET, curr_num);          (void)history(h, &ev, H_SET, curr_num);
   
         return (&she);          return &she;
 }  }
   
   
Line 1179  add_history(const char *line)
Line 1418  add_history(const char *line)
 {  {
         HistEvent ev;          HistEvent ev;
   
           if (line == NULL)
                   return 0;
   
         if (h == NULL || e == NULL)          if (h == NULL || e == NULL)
                 rl_initialize();                  rl_initialize();
   
Line 1186  add_history(const char *line)
Line 1428  add_history(const char *line)
         if (history(h, &ev, H_GETSIZE) == 0)          if (history(h, &ev, H_GETSIZE) == 0)
                 history_length = ev.num;                  history_length = ev.num;
   
         return (!(history_length > 0)); /* return 0 if all is okay */          return !(history_length > 0); /* return 0 if all is okay */
 }  }
   
   
Line 1196  add_history(const char *line)
Line 1438  add_history(const char *line)
 HIST_ENTRY *  HIST_ENTRY *
 remove_history(int num)  remove_history(int num)
 {  {
         static HIST_ENTRY she;          HIST_ENTRY *he;
         HistEvent ev;          HistEvent ev;
   
         if (h == NULL || e == NULL)          if (h == NULL || e == NULL)
                 rl_initialize();                  rl_initialize();
   
         if (history(h, &ev, H_DEL, num) != 0)          if ((he = el_malloc(sizeof(*he))) == NULL)
                 return NULL;                  return NULL;
   
         she.line = ev.str;          if (history(h, &ev, H_DELDATA, num, &he->data) != 0) {
         she.data = NULL;                  el_free(he);
                   return NULL;
           }
   
         return &she;          he->line = ev.str;
           if (history(h, &ev, H_GETSIZE) == 0)
                   history_length = ev.num;
   
           return he;
 }  }
   
   
 /*  /*
    * replace the line and data of the num-th entry
    */
   HIST_ENTRY *
   replace_history_entry(int num, const char *line, histdata_t data)
   {
           HIST_ENTRY *he;
           HistEvent ev;
           int curr_num;
   
           if (h == NULL || e == NULL)
                   rl_initialize();
   
           /* save current position */
           if (history(h, &ev, H_CURR) != 0)
                   return NULL;
           curr_num = ev.num;
   
           /* start from the oldest */
           if (history(h, &ev, H_LAST) != 0)
                   return NULL;    /* error */
   
           if ((he = el_malloc(sizeof(*he))) == NULL)
                   return NULL;
   
           /* look forwards for event matching specified offset */
           if (history(h, &ev, H_NEXT_EVDATA, num, &he->data))
                   goto out;
   
           he->line = strdup(ev.str);
           if (he->line == NULL)
                   goto out;
   
           if (history(h, &ev, H_REPLACE, line, data))
                   goto out;
   
           /* restore pointer to where it was */
           if (history(h, &ev, H_SET, curr_num))
                   goto out;
   
           return he;
   out:
           el_free(he);
           return NULL;
   }
   
   /*
  * clear the history list - delete all entries   * clear the history list - delete all entries
  */   */
 void  void
Line 1220  clear_history(void)
Line 1514  clear_history(void)
 {  {
         HistEvent ev;          HistEvent ev;
   
         history(h, &ev, H_CLEAR);          if (h == NULL || e == NULL)
                   rl_initialize();
   
           (void)history(h, &ev, H_CLEAR);
           history_length = 0;
 }  }
   
   
Line 1234  where_history(void)
Line 1532  where_history(void)
         int curr_num, off;          int curr_num, off;
   
         if (history(h, &ev, H_CURR) != 0)          if (history(h, &ev, H_CURR) != 0)
                 return (0);                  return 0;
         curr_num = ev.num;          curr_num = ev.num;
   
         history(h, &ev, H_FIRST);          (void)history(h, &ev, H_FIRST);
         off = 1;          off = 1;
         while (ev.num != curr_num && history(h, &ev, H_NEXT) == 0)          while (ev.num != curr_num && history(h, &ev, H_NEXT) == 0)
                 off++;                  off++;
   
         return (off);          return off;
 }  }
   
   
Line 1253  HIST_ENTRY *
Line 1551  HIST_ENTRY *
 current_history(void)  current_history(void)
 {  {
   
         return (_move_history(H_CURR));          return _move_history(H_CURR);
 }  }
   
   
Line 1264  int
Line 1562  int
 history_total_bytes(void)  history_total_bytes(void)
 {  {
         HistEvent ev;          HistEvent ev;
         int curr_num, size;          int curr_num;
           size_t size;
   
         if (history(h, &ev, H_CURR) != 0)          if (history(h, &ev, H_CURR) != 0)
                 return (-1);                  return -1;
         curr_num = ev.num;          curr_num = ev.num;
   
         history(h, &ev, H_FIRST);          (void)history(h, &ev, H_FIRST);
         size = 0;          size = 0;
         do          do
                 size += strlen(ev.str);                  size += strlen(ev.str) * sizeof(*ev.str);
         while (history(h, &ev, H_NEXT) == 0);          while (history(h, &ev, H_NEXT) == 0);
   
         /* get to the same position as before */          /* get to the same position as before */
         history(h, &ev, H_PREV_EVENT, curr_num);          history(h, &ev, H_PREV_EVENT, curr_num);
   
         return (size);          return (int)size;
 }  }
   
   
Line 1292  history_set_pos(int pos)
Line 1591  history_set_pos(int pos)
         HistEvent ev;          HistEvent ev;
         int curr_num;          int curr_num;
   
         if (pos > history_length || pos < 0)          if (pos >= history_length || pos < 0)
                 return (-1);                  return -1;
   
         history(h, &ev, H_CURR);          (void)history(h, &ev, H_CURR);
         curr_num = ev.num;          curr_num = ev.num;
   
         if (history(h, &ev, H_SET, pos)) {          /*
                 history(h, &ev, H_SET, curr_num);           * use H_DELDATA to set to nth history (without delete) by passing
                 return(-1);           * (void **)-1
            */
           if (history(h, &ev, H_DELDATA, pos, (void **)-1)) {
                   (void)history(h, &ev, H_SET, curr_num);
                   return -1;
         }          }
         return (0);          return 0;
 }  }
   
   
Line 1313  HIST_ENTRY *
Line 1616  HIST_ENTRY *
 previous_history(void)  previous_history(void)
 {  {
   
         return (_move_history(H_PREV));          return _move_history(H_PREV);
 }  }
   
   
Line 1324  HIST_ENTRY *
Line 1627  HIST_ENTRY *
 next_history(void)  next_history(void)
 {  {
   
         return (_move_history(H_NEXT));          return _move_history(H_NEXT);
 }  }
   
   
Line 1339  history_search(const char *str, int dire
Line 1642  history_search(const char *str, int dire
         int curr_num;          int curr_num;
   
         if (history(h, &ev, H_CURR) != 0)          if (history(h, &ev, H_CURR) != 0)
                 return (-1);                  return -1;
         curr_num = ev.num;          curr_num = ev.num;
   
         for (;;) {          for (;;) {
                 if ((strp = strstr(ev.str, str)) != NULL)                  if ((strp = strstr(ev.str, str)) != NULL)
                         return (int) (strp - ev.str);                          return (int)(strp - ev.str);
                 if (history(h, &ev, direction < 0 ? H_NEXT:H_PREV) != 0)                  if (history(h, &ev, direction < 0 ? H_NEXT:H_PREV) != 0)
                         break;                          break;
         }          }
         history(h, &ev, H_SET, curr_num);          (void)history(h, &ev, H_SET, curr_num);
         return (-1);          return -1;
 }  }
   
   
Line 1361  history_search_prefix(const char *str, i
Line 1664  history_search_prefix(const char *str, i
 {  {
         HistEvent ev;          HistEvent ev;
   
         return (history(h, &ev, direction < 0? H_PREV_STR:H_NEXT_STR, str));          return (history(h, &ev, direction < 0 ?
               H_PREV_STR : H_NEXT_STR, str));
 }  }
   
   
Line 1381  history_search_pos(const char *str,
Line 1685  history_search_pos(const char *str,
         pos = (pos > 0) ? 1 : -1;          pos = (pos > 0) ? 1 : -1;
   
         if (history(h, &ev, H_CURR) != 0)          if (history(h, &ev, H_CURR) != 0)
                 return (-1);                  return -1;
         curr_num = ev.num;          curr_num = ev.num;
   
         if (history_set_pos(off) != 0 || history(h, &ev, H_CURR) != 0)          if (history_set_pos(off) != 0 || history(h, &ev, H_CURR) != 0)
                 return (-1);                  return -1;
   
   
         for (;;) {          for (;;) {
                 if (strstr(ev.str, str))                  if (strstr(ev.str, str))
                         return (off);                          return off;
                 if (history(h, &ev, (pos < 0) ? H_PREV : H_NEXT) != 0)                  if (history(h, &ev, (pos < 0) ? H_PREV : H_NEXT) != 0)
                         break;                          break;
         }          }
   
         /* set "current" pointer back to previous state */          /* set "current" pointer back to previous state */
         history(h, &ev, (pos < 0) ? H_NEXT_EVENT : H_PREV_EVENT, curr_num);          (void)history(h, &ev,
               pos < 0 ? H_NEXT_EVENT : H_PREV_EVENT, curr_num);
   
         return (-1);          return -1;
 }  }
   
   
Line 1421  filename_completion_function(const char 
Line 1725  filename_completion_function(const char 
  * a completion generator for usernames; returns _first_ username   * a completion generator for usernames; returns _first_ username
  * which starts with supplied text   * which starts with supplied text
  * text contains a partial username preceded by random character   * text contains a partial username preceded by random character
  * (usually '~'); state is ignored   * (usually '~'); state resets search from start (??? should we do that anyway)
  * it's callers responsibility to free returned value   * it's the caller's responsibility to free the returned value
  */   */
 char *  char *
 username_completion_function(const char *text, int state)  username_completion_function(const char *text, int state)
 {  {
         struct passwd *pwd, pwres;  #if defined(HAVE_GETPW_R_POSIX) || defined(HAVE_GETPW_R_DRAFT)
           struct passwd pwres;
         char pwbuf[1024];          char pwbuf[1024];
   #endif
           struct passwd *pass = NULL;
   
         if (text[0] == '\0')          if (text[0] == '\0')
                 return (NULL);                  return NULL;
   
         if (*text == '~')          if (*text == '~')
                 text++;                  text++;
Line 1439  username_completion_function(const char 
Line 1746  username_completion_function(const char 
         if (state == 0)          if (state == 0)
                 setpwent();                  setpwent();
   
         while (getpwent_r(&pwres, pwbuf, sizeof(pwbuf), &pwd) == 0          while (
             && pwd != NULL && text[0] == pwd->pw_name[0]  #if defined(HAVE_GETPW_R_POSIX) || defined(HAVE_GETPW_R_DRAFT)
             && strcmp(text, pwd->pw_name) == 0);              getpwent_r(&pwres, pwbuf, sizeof(pwbuf), &pass) == 0 && pass != NULL
   #else
               (pass = getpwent()) != NULL
   #endif
               && text[0] == pass->pw_name[0]
               && strcmp(text, pass->pw_name) == 0)
                   continue;
   
         if (pwd == NULL) {          if (pass == NULL) {
                 endpwent();                  endpwent();
                 return (NULL);                  return NULL;
         }          }
         return (strdup(pwd->pw_name));          return strdup(pass->pw_name);
 }  }
   
   
Line 1471  void
Line 1784  void
 rl_display_match_list(char **matches, int len, int max)  rl_display_match_list(char **matches, int len, int max)
 {  {
   
         fn_display_match_list(e, matches, len, max);          fn_display_match_list(e, matches, (size_t)len, (size_t)max);
 }  }
   
 static const char *  static const char *
Line 1480  _rl_completion_append_character_function
Line 1793  _rl_completion_append_character_function
     __attribute__((__unused__)))      __attribute__((__unused__)))
 {  {
         static char buf[2];          static char buf[2];
         buf[1] = rl_completion_append_character;          buf[0] = (char)rl_completion_append_character;
           buf[1] = '\0';
         return buf;          return buf;
 }  }
   
Line 1492  _rl_completion_append_character_function
Line 1806  _rl_completion_append_character_function
 int  int
 rl_complete(int ignore __attribute__((__unused__)), int invoking_key)  rl_complete(int ignore __attribute__((__unused__)), int invoking_key)
 {  {
   #ifdef WIDECHAR
           static ct_buffer_t wbreak_conv, sprefix_conv;
   #endif
           char *breakchars;
   
         if (h == NULL || e == NULL)          if (h == NULL || e == NULL)
                 rl_initialize();                  rl_initialize();
   
Line 1500  rl_complete(int ignore __attribute__((__
Line 1819  rl_complete(int ignore __attribute__((__
                 arr[0] = (char)invoking_key;                  arr[0] = (char)invoking_key;
                 arr[1] = '\0';                  arr[1] = '\0';
                 el_insertstr(e, arr);                  el_insertstr(e, arr);
                 return (CC_REFRESH);                  return CC_REFRESH;
         }          }
   
           if (rl_completion_word_break_hook != NULL)
                   breakchars = (*rl_completion_word_break_hook)();
           else
                   breakchars = rl_basic_word_break_characters;
   
           _rl_update_pos();
   
         /* Just look at how many global variables modify this operation! */          /* Just look at how many global variables modify this operation! */
         return fn_complete(e,          return fn_complete(e,
             (CPFunction *)rl_completion_entry_function,              (rl_compentry_func_t *)rl_completion_entry_function,
             rl_attempted_completion_function,              rl_attempted_completion_function,
             rl_basic_word_break_characters, rl_special_prefixes,              ct_decode_string(rl_basic_word_break_characters, &wbreak_conv),
             _rl_completion_append_character_function, rl_completion_query_items,              ct_decode_string(breakchars, &sprefix_conv),
               _rl_completion_append_character_function,
               (size_t)rl_completion_query_items,
             &rl_completion_type, &rl_attempted_completion_over,              &rl_completion_type, &rl_attempted_completion_over,
             &rl_point, &rl_end);              &rl_point, &rl_end);
   
   
 }  }
   
   
Line 1529  _el_rl_complete(EditLine *el __attribute
Line 1859  _el_rl_complete(EditLine *el __attribute
  * bind key c to readline-type function func   * bind key c to readline-type function func
  */   */
 int  int
 rl_bind_key(int c, int func(int, int))  rl_bind_key(int c, rl_command_func_t *func)
 {  {
         int retval = -1;          int retval = -1;
   
Line 1541  rl_bind_key(int c, int func(int, int))
Line 1871  rl_bind_key(int c, int func(int, int))
                 e->el_map.key[c] = ED_INSERT;                  e->el_map.key[c] = ED_INSERT;
                 retval = 0;                  retval = 0;
         }          }
         return (retval);          return retval;
 }  }
   
   
Line 1557  rl_read_key(void)
Line 1887  rl_read_key(void)
         if (e == NULL || h == NULL)          if (e == NULL || h == NULL)
                 rl_initialize();                  rl_initialize();
   
         return (el_getc(e, fooarr));          return el_getc(e, fooarr);
 }  }
   
   
Line 1587  rl_insert(int count, int c)
Line 1917  rl_insert(int count, int c)
                 rl_initialize();                  rl_initialize();
   
         /* XXX - int -> char conversion can lose on multichars */          /* XXX - int -> char conversion can lose on multichars */
         arr[0] = c;          arr[0] = (char)c;
         arr[1] = '\0';          arr[1] = '\0';
   
         for (; count > 0; count--)          for (; count > 0; count--)
                 el_push(e, arr);                  el_push(e, arr);
   
         return (0);          return 0;
   }
   
   int
   rl_insert_text(const char *text)
   {
           if (!text || *text == 0)
                   return 0;
   
           if (h == NULL || e == NULL)
                   rl_initialize();
   
           if (el_insertstr(e, text) < 0)
                   return 0;
           return (int)strlen(text);
 }  }
   
 /*ARGSUSED*/  /*ARGSUSED*/
 int  int
 rl_newline(int count, int c)  rl_newline(int count __attribute__((__unused__)),
       int c __attribute__((__unused__)))
 {  {
         /*          /*
          * Readline-4.0 appears to ignore the args.           * Readline-4.0 appears to ignore the args.
Line 1608  rl_newline(int count, int c)
Line 1953  rl_newline(int count, int c)
   
 /*ARGSUSED*/  /*ARGSUSED*/
 static unsigned char  static unsigned char
 rl_bind_wrapper(EditLine *el, unsigned char c)  rl_bind_wrapper(EditLine *el __attribute__((__unused__)), unsigned char c)
 {  {
         if (map[c] == NULL)          if (map[c] == NULL)
             return CC_ERROR;              return CC_ERROR;
   
         _rl_update_pos();          _rl_update_pos();
   
         (*map[c])(NULL, c);          (*map[c])(1, c);
   
         /* If rl_done was set by the above call, deal with it here */          /* If rl_done was set by the above call, deal with it here */
         if (rl_done)          if (rl_done)
Line 1625  rl_bind_wrapper(EditLine *el, unsigned c
Line 1970  rl_bind_wrapper(EditLine *el, unsigned c
 }  }
   
 int  int
 rl_add_defun(const char *name, Function *fun, int c)  rl_add_defun(const char *name, rl_command_func_t *fun, int c)
 {  {
         char dest[8];          char dest[8];
         if (c >= sizeof(map) / sizeof(map[0]) || c < 0)          if ((size_t)c >= sizeof(map) / sizeof(map[0]) || c < 0)
                 return -1;                  return -1;
         map[(unsigned char)c] = fun;          map[(unsigned char)c] = fun;
         el_set(e, EL_ADDFN, name, name, rl_bind_wrapper);          el_set(e, EL_ADDFN, name, name, rl_bind_wrapper);
         vis(dest, c, VIS_WHITE|VIS_NOSLASH, 0);          vis(dest, c, VIS_WHITE|VIS_NOSLASH, 0);
         el_set(e, EL_BIND, dest, name);          el_set(e, EL_BIND, dest, name, NULL);
         return 0;          return 0;
 }  }
   
 void  void
 rl_callback_read_char()  rl_callback_read_char(void)
 {  {
         int count = 0, done = 0;          int count = 0, done = 0;
         const char *buf = el_gets(e, &count);          const char *buf = el_gets(e, &count);
Line 1664  rl_callback_read_char()
Line 2009  rl_callback_read_char()
 }  }
   
 void  void
 rl_callback_handler_install (const char *prompt, VCPFunction *linefunc)  rl_callback_handler_install(const char *prompt, rl_vcpfunc_t *linefunc)
 {  {
         if (e == NULL) {          if (e == NULL) {
                 rl_initialize();                  rl_initialize();
         }          }
         if (rl_prompt)          (void)rl_set_prompt(prompt);
                 free(rl_prompt);  
         rl_prompt = prompt ? strdup(strchr(prompt, *prompt)) : NULL;  
         rl_linefunc = linefunc;          rl_linefunc = linefunc;
         el_set(e, EL_UNBUFFERED, 1);          el_set(e, EL_UNBUFFERED, 1);
 }  }
Line 1680  void 
Line 2023  void 
 rl_callback_handler_remove(void)  rl_callback_handler_remove(void)
 {  {
         el_set(e, EL_UNBUFFERED, 0);          el_set(e, EL_UNBUFFERED, 0);
           rl_linefunc = NULL;
 }  }
   
 void  void
 rl_redisplay(void)  rl_redisplay(void)
 {  {
         char a[2];          char a[2];
         a[0] = e->el_tty.t_c[TS_IO][C_REPRINT];          a[0] = (char)e->el_tty.t_c[TS_IO][C_REPRINT];
         a[1] = '\0';          a[1] = '\0';
         el_push(e, a);          el_push(e, a);
 }  }
Line 1695  int
Line 2039  int
 rl_get_previous_history(int count, int key)  rl_get_previous_history(int count, int key)
 {  {
         char a[2];          char a[2];
         a[0] = key;          a[0] = (char)key;
         a[1] = '\0';          a[1] = '\0';
         while (count--)          while (count--)
                 el_push(e, a);                  el_push(e, a);
Line 1704  rl_get_previous_history(int count, int k
Line 2048  rl_get_previous_history(int count, int k
   
 void  void
 /*ARGSUSED*/  /*ARGSUSED*/
 rl_prep_terminal(int meta_flag)  rl_prep_terminal(int meta_flag __attribute__((__unused__)))
 {  {
         el_set(e, EL_PREP_TERM, 1);          el_set(e, EL_PREP_TERM, 1);
 }  }
Line 1718  rl_deprep_terminal(void)
Line 2062  rl_deprep_terminal(void)
 int  int
 rl_read_init_file(const char *s)  rl_read_init_file(const char *s)
 {  {
         return(el_source(e, s));          return el_source(e, s);
 }  }
   
 int  int
Line 1732  rl_parse_and_bind(const char *line)
Line 2076  rl_parse_and_bind(const char *line)
         tok_str(tok, line, &argc, &argv);          tok_str(tok, line, &argc, &argv);
         argc = el_parse(e, argc, argv);          argc = el_parse(e, argc, argv);
         tok_end(tok);          tok_end(tok);
         return (argc ? 1 : 0);          return argc ? 1 : 0;
 }  }
   
 int  int
Line 1742  rl_variable_bind(const char *var, const 
Line 2086  rl_variable_bind(const char *var, const 
          * The proper return value is undocument, but this is what the           * The proper return value is undocument, but this is what the
          * readline source seems to do.           * readline source seems to do.
          */           */
         return ((el_set(e, EL_BIND, "", var, value) == -1) ? 1 : 0);          return el_set(e, EL_BIND, "", var, value, NULL) == -1 ? 1 : 0;
 }  }
   
 void  void
Line 1750  rl_stuff_char(int c)
Line 2094  rl_stuff_char(int c)
 {  {
         char buf[2];          char buf[2];
   
         buf[0] = c;          buf[0] = (char)c;
         buf[1] = '\0';          buf[1] = '\0';
         el_insertstr(e, buf);          el_insertstr(e, buf);
 }  }
Line 1758  rl_stuff_char(int c)
Line 2102  rl_stuff_char(int c)
 static int  static int
 _rl_event_read_char(EditLine *el, char *cp)  _rl_event_read_char(EditLine *el, char *cp)
 {  {
         int     n, num_read = 0;          int     n;
           ssize_t num_read = 0;
   
         *cp = 0;          *cp = '\0';
         while (rl_event_hook) {          while (rl_event_hook) {
   
                 (*rl_event_hook)();                  (*rl_event_hook)();
   
 #if defined(FIONREAD)  #if defined(FIONREAD)
                 if (ioctl(el->el_infd, FIONREAD, &n) < 0)                  if (ioctl(el->el_infd, FIONREAD, &n) < 0)
                         return(-1);                          return -1;
                 if (n)                  if (n)
                         num_read = read(el->el_infd, cp, 1);                          num_read = read(el->el_infd, cp, (size_t)1);
                 else                  else
                         num_read = 0;                          num_read = 0;
 #elif defined(F_SETFL) && defined(O_NDELAY)  #elif defined(F_SETFL) && defined(O_NDELAY)
                 if ((n = fcntl(el->el_infd, F_GETFL, 0)) < 0)                  if ((n = fcntl(el->el_infd, F_GETFL, 0)) < 0)
                         return(-1);                          return -1;
                 if (fcntl(el->el_infd, F_SETFL, n|O_NDELAY) < 0)                  if (fcntl(el->el_infd, F_SETFL, n|O_NDELAY) < 0)
                         return(-1);                          return -1;
                 num_read = read(el->el_infd, cp, 1);                  num_read = read(el->el_infd, cp, 1);
                 if (fcntl(el->el_infd, F_SETFL, n))                  if (fcntl(el->el_infd, F_SETFL, n))
                         return(-1);                          return -1;
 #else  #else
                 /* not non-blocking, but what you gonna do? */                  /* not non-blocking, but what you gonna do? */
                 num_read = read(el->el_infd, cp, 1);                  num_read = read(el->el_infd, cp, 1);
                 return(-1);                  return -1;
 #endif  #endif
   
                 if (num_read < 0 && errno == EAGAIN)                  if (num_read < 0 && errno == EAGAIN)
Line 1794  _rl_event_read_char(EditLine *el, char *
Line 2139  _rl_event_read_char(EditLine *el, char *
         }          }
         if (!rl_event_hook)          if (!rl_event_hook)
                 el_set(el, EL_GETCFN, EL_BUILTIN_GETCFN);                  el_set(el, EL_GETCFN, EL_BUILTIN_GETCFN);
         return(num_read);          return (int)num_read;
 }  }
   
 static void  static void
Line 1802  _rl_update_pos(void)
Line 2147  _rl_update_pos(void)
 {  {
         const LineInfo *li = el_line(e);          const LineInfo *li = el_line(e);
   
         rl_point = li->cursor - li->buffer;          rl_point = (int)(li->cursor - li->buffer);
         rl_end = li->lastchar - li->buffer;          rl_end = (int)(li->lastchar - li->buffer);
   }
   
   void
   rl_get_screen_size(int *rows, int *cols)
   {
           if (rows)
                   el_get(e, EL_GETTC, "li", rows, (void *)0);
           if (cols)
                   el_get(e, EL_GETTC, "co", cols, (void *)0);
   }
   
   void
   rl_set_screen_size(int rows, int cols)
   {
           char buf[64];
           (void)snprintf(buf, sizeof(buf), "%d", rows);
           el_set(e, EL_SETTC, "li", buf, NULL);
           (void)snprintf(buf, sizeof(buf), "%d", cols);
           el_set(e, EL_SETTC, "co", buf, NULL);
   }
   
   char **
   rl_completion_matches(const char *str, rl_compentry_func_t *fun)
   {
           size_t len, max, i, j, min;
           char **list, *match, *a, *b;
   
           len = 1;
           max = 10;
           if ((list = el_malloc(max * sizeof(*list))) == NULL)
                   return NULL;
   
           while ((match = (*fun)(str, (int)(len - 1))) != NULL) {
                   list[len++] = match;
                   if (len == max) {
                           char **nl;
                           max += 10;
                           if ((nl = el_realloc(list, max * sizeof(*nl))) == NULL)
                                   goto out;
                           list = nl;
                   }
           }
           if (len == 1)
                   goto out;
           list[len] = NULL;
           if (len == 2) {
                   if ((list[0] = strdup(list[1])) == NULL)
                           goto out;
                   return list;
           }
           qsort(&list[1], len - 1, sizeof(*list),
               (int (*)(const void *, const void *)) strcmp);
           min = SIZE_MAX;
           for (i = 1, a = list[i]; i < len - 1; i++, a = b) {
                   b = list[i + 1];
                   for (j = 0; a[j] && a[j] == b[j]; j++)
                           continue;
                   if (min > j)
                           min = j;
           }
           if (min == 0 && *str) {
                   if ((list[0] = strdup(str)) == NULL)
                           goto out;
           } else {
                   if ((list[0] = el_malloc((min + 1) * sizeof(*list[0]))) == NULL)
                           goto out;
                   (void)memcpy(list[0], list[1], min);
                   list[0][min] = '\0';
           }
           return list;
   
   out:
           el_free(list);
           return NULL;
   }
   
   char *
   rl_filename_completion_function (const char *text, int state)
   {
           return fn_filename_completion_function(text, state);
   }
   
   void
   rl_forced_update_display(void)
   {
           el_set(e, EL_REFRESH);
   }
   
   int
   _rl_abort_internal(void)
   {
           el_beep(e);
           longjmp(topbuf, 1);
           /*NOTREACHED*/
   }
   
   int
   _rl_qsort_string_compare(char **s1, char **s2)
   {
           return strcoll(*s1, *s2);
   }
   
   HISTORY_STATE *
   history_get_history_state(void)
   {
           HISTORY_STATE *hs;
   
           if ((hs = el_malloc(sizeof(*hs))) == NULL)
                   return NULL;
           hs->length = history_length;
           return hs;
   }
   
   int
   /*ARGSUSED*/
   rl_kill_text(int from __attribute__((__unused__)),
       int to __attribute__((__unused__)))
   {
           return 0;
   }
   
   Keymap
   rl_make_bare_keymap(void)
   {
           return NULL;
   }
   
   Keymap
   rl_get_keymap(void)
   {
           return NULL;
   }
   
   void
   /*ARGSUSED*/
   rl_set_keymap(Keymap k __attribute__((__unused__)))
   {
   }
   
   int
   /*ARGSUSED*/
   rl_generic_bind(int type __attribute__((__unused__)),
       const char * keyseq __attribute__((__unused__)),
       const char * data __attribute__((__unused__)),
       Keymap k __attribute__((__unused__)))
   {
           return 0;
   }
   
   int
   /*ARGSUSED*/
   rl_bind_key_in_map(int key __attribute__((__unused__)),
       rl_command_func_t *fun __attribute__((__unused__)),
       Keymap k __attribute__((__unused__)))
   {
           return 0;
   }
   
   /* unsupported, but needed by python */
   void
   rl_cleanup_after_signal(void)
   {
   }
   
   int
   rl_on_new_line(void)
   {
           return 0;
   }
   
   void
   rl_free_line_state(void)
   {
   }
   
   int
   /*ARGSUSED*/
   rl_set_keyboard_input_timeout(int u __attribute__((__unused__)))
   {
           return 0;
 }  }

Legend:
Removed from v.1.69  
changed lines
  Added in v.1.123

CVSweb <webmaster@jp.NetBSD.org>