contrib/gdb-7/readline/shell.c

   1 /* shell.c -- readline utility functions that are normally provided by
   2               bash when readline is linked as part of the shell. */
   3
   4 /* Copyright (C) 1997-2009 Free Software Foundation, Inc.
   5
   6    This file is part of the GNU Readline Library (Readline), a library
   7    for reading lines of text with interactive input and history editing.
   8
   9    Readline is free software: you can redistribute it and/or modify
  10    it under the terms of the GNU General Public License as published by
  11    the Free Software Foundation, either version 3 of the License, or
  12    (at your option) any later version.
  13
  14    Readline is distributed in the hope that it will be useful,
  15    but WITHOUT ANY WARRANTY; without even the implied warranty of
  16    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17    GNU General Public License for more details.
  18
  19    You should have received a copy of the GNU General Public License
  20    along with Readline.  If not, see <http://www.gnu.org/licenses/>.
  21 */
  22
  23 #define READLINE_LIBRARY
  24
  25 #if defined (HAVE_CONFIG_H)
  26 #  include <config.h>
  27 #endif
  28
  29 #include <sys/types.h>
  30
  31 #if defined (HAVE_UNISTD_H)
  32 #  include <unistd.h>
  33 #endif /* HAVE_UNISTD_H */
  34
  35 #if defined (HAVE_STDLIB_H)
  36 #  include <stdlib.h>
  37 #else
  38 #  include "ansi_stdlib.h"
  39 #endif /* HAVE_STDLIB_H */
  40
  41 #if defined (HAVE_STRING_H)
  42 #  include <string.h>
  43 #else
  44 #  include <strings.h>
  45 #endif /* !HAVE_STRING_H */
  46
  47 #if defined (HAVE_LIMITS_H)
  48 #  include <limits.h>
  49 #endif
  50
  51 #if defined (HAVE_FCNTL_H)
  52 #include <fcntl.h>
  53 #endif
  54 #if defined (HAVE_PWD_H)
  55 #include <pwd.h>
  56 #endif
  57
  58 #include <stdio.h>
  59
  60 #include "rlstdc.h"
  61 #include "rlshell.h"
  62 #include "xmalloc.h"
  63
  64 #if defined (HAVE_GETPWUID) && !defined (HAVE_GETPW_DECLS)
  65 extern struct passwd *getpwuid PARAMS((uid_t));
  66 #endif /* HAVE_GETPWUID && !HAVE_GETPW_DECLS */
  67
  68 #ifndef NULL
  69 #  define NULL 0
  70 #endif
  71
  72 #ifndef CHAR_BIT
  73 #  define CHAR_BIT 8
  74 #endif
  75
  76 /* Nonzero if the integer type T is signed.  */
  77 #define TYPE_SIGNED(t) (! ((t) 0 < (t) -1))
  78
  79 /* Bound on length of the string representing an integer value of type T.
  80    Subtract one for the sign bit if T is signed;
  81    302 / 1000 is log10 (2) rounded up;
  82    add one for integer division truncation;
  83    add one more for a minus sign if t is signed.  */
  84 #define INT_STRLEN_BOUND(t) \
  85   ((sizeof (t) * CHAR_BIT - TYPE_SIGNED (t)) * 302 / 1000 \
  86    + 1 + TYPE_SIGNED (t))
  87
  88 /* All of these functions are resolved from bash if we are linking readline
  89    as part of bash. */
  90
  91 /* Does shell-like quoting using single quotes. */
  92 char *
  93 sh_single_quote (string)
  94      char *string;
  95 {
  96   register int c;
  97   char *result, *r, *s;
  98
  99   result = (char *)xmalloc (3 + (4 * strlen (string)));
 100   r = result;
 101   *r++ = '\'';
 102
 103   for (s = string; s && (c = *s); s++)
 104     {
 105       *r++ = c;
 106
 107       if (c == '\'')
 108         {
 109           *r++ = '\\';  /* insert escaped single quote */
 110           *r++ = '\'';
 111           *r++ = '\'';  /* start new quoted string */
 112         }
 113     }
 114
 115   *r++ = '\'';
 116   *r = '\0';
 117
 118   return (result);
 119 }
 120
 121 /* Set the environment variables LINES and COLUMNS to lines and cols,
 122    respectively. */
 123 void
 124 sh_set_lines_and_columns (lines, cols)
 125      int lines, cols;
 126 {
 127   char *b;
 128
 129 #if defined (HAVE_SETENV)
 130   b = (char *)xmalloc (INT_STRLEN_BOUND (int) + 1);
 131   sprintf (b, "%d", lines);
 132   setenv ("LINES", b, 1);
 133   xfree (b);
 134
 135   b = (char *)xmalloc (INT_STRLEN_BOUND (int) + 1);
 136   sprintf (b, "%d", cols);
 137   setenv ("COLUMNS", b, 1);
 138   xfree (b);
 139 #else /* !HAVE_SETENV */
 140 #  if defined (HAVE_PUTENV)
 141   b = (char *)xmalloc (INT_STRLEN_BOUND (int) + sizeof ("LINES=") + 1);
 142   sprintf (b, "LINES=%d", lines);
 143   putenv (b);
 144
 145   b = (char *)xmalloc (INT_STRLEN_BOUND (int) + sizeof ("COLUMNS=") + 1);
 146   sprintf (b, "COLUMNS=%d", cols);
 147   putenv (b);
 148 #  endif /* HAVE_PUTENV */
 149 #endif /* !HAVE_SETENV */
 150 }
 151
 152 char *
 153 sh_get_env_value (varname)
 154      const char *varname;
 155 {
 156   return ((char *)getenv (varname));
 157 }
 158
 159 char *
 160 sh_get_home_dir ()
 161 {
 162   char *home_dir;
 163   struct passwd *entry;
 164
 165   home_dir = (char *)NULL;
 166 #if defined (HAVE_GETPWUID)
 167   entry = getpwuid (getuid ());
 168   if (entry)
 169     home_dir = entry->pw_dir;
 170 #endif
 171   return (home_dir);
 172 }
 173
 174 #if !defined (O_NDELAY)
 175 #  if defined (FNDELAY)
 176 #    define O_NDELAY FNDELAY
 177 #  endif
 178 #endif
 179
 180 int
 181 sh_unset_nodelay_mode (fd)
 182      int fd;
 183 {
 184 #if defined (HAVE_FCNTL)
 185   int flags, bflags;
 186
 187   if ((flags = fcntl (fd, F_GETFL, 0)) < 0)
 188     return -1;
 189
 190   bflags = 0;
 191
 192 #ifdef O_NONBLOCK
 193   bflags |= O_NONBLOCK;
 194 #endif
 195
 196 #ifdef O_NDELAY
 197   bflags |= O_NDELAY;
 198 #endif
 199
 200   if (flags & bflags)
 201     {
 202       flags &= ~bflags;
 203       return (fcntl (fd, F_SETFL, flags));
 204     }
 205 #endif
 206
 207   return 0;
 208 }