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