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 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 #include <fcntl.h> 52 #include <pwd.h> 53 54 #include <stdio.h> 55 56 #include "rlstdc.h" 57 #include "rlshell.h" 58 #include "xmalloc.h" 59 60 #if !defined (HAVE_GETPW_DECLS) 61 extern struct passwd *getpwuid PARAMS((uid_t)); 62 #endif /* !HAVE_GETPW_DECLS */ 63 64 #ifndef NULL 65 # define NULL 0 66 #endif 67 68 #ifndef CHAR_BIT 69 # define CHAR_BIT 8 70 #endif 71 72 /* Nonzero if the integer type T is signed. */ 73 #define TYPE_SIGNED(t) (! ((t) 0 < (t) -1)) 74 75 /* Bound on length of the string representing an integer value of type T. 76 Subtract one for the sign bit if T is signed; 77 302 / 1000 is log10 (2) rounded up; 78 add one for integer division truncation; 79 add one more for a minus sign if t is signed. */ 80 #define INT_STRLEN_BOUND(t) \ 81 ((sizeof (t) * CHAR_BIT - TYPE_SIGNED (t)) * 302 / 1000 \ 82 + 1 + TYPE_SIGNED (t)) 83 84 /* All of these functions are resolved from bash if we are linking readline 85 as part of bash. */ 86 87 /* Does shell-like quoting using single quotes. */ 88 char * 89 sh_single_quote (string) 90 char *string; 91 { 92 register int c; 93 char *result, *r, *s; 94 95 result = (char *)xmalloc (3 + (4 * strlen (string))); 96 r = result; 97 *r++ = '\''; 98 99 for (s = string; s && (c = *s); s++) 100 { 101 *r++ = c; 102 103 if (c == '\'') 104 { 105 *r++ = '\\'; /* insert escaped single quote */ 106 *r++ = '\''; 107 *r++ = '\''; /* start new quoted string */ 108 } 109 } 110 111 *r++ = '\''; 112 *r = '\0'; 113 114 return (result); 115 } 116 117 /* Set the environment variables LINES and COLUMNS to lines and cols, 118 respectively. */ 119 void 120 sh_set_lines_and_columns (lines, cols) 121 int lines, cols; 122 { 123 char *b; 124 125 #if defined (HAVE_PUTENV) 126 if (asprintf (&b, "LINES=%d", lines) == -1) 127 memory_error_and_abort("asprintf"); 128 putenv (b); 129 if (asprintf (&b, "COLUMNS=%d", cols) == -1) 130 memory_error_and_abort("asprintf"); 131 putenv (b); 132 #else /* !HAVE_PUTENV */ 133 # if defined (HAVE_SETENV) 134 if (asprintf(&b, "%d", lines) == -1) 135 memory_error_and_abort("asprintf"); 136 setenv ("LINES", b, 1); 137 if (asprintf (&b, "%d", cols) == -1) 138 memory_error_and_abort("asprintf"); 139 setenv ("COLUMNS", b, 1); 140 # endif /* HAVE_SETENV */ 141 #endif /* !HAVE_PUTENV */ 142 } 143 144 char * 145 sh_get_env_value (varname) 146 const char *varname; 147 { 148 return ((char *)getenv (varname)); 149 } 150 151 char * 152 sh_get_home_dir () 153 { 154 char *home_dir; 155 struct passwd *entry; 156 157 home_dir = (char *)NULL; 158 entry = getpwuid (getuid ()); 159 if (entry) 160 home_dir = entry->pw_dir; 161 return (home_dir); 162 } 163 164 #if !defined (O_NDELAY) 165 # if defined (FNDELAY) 166 # define O_NDELAY FNDELAY 167 # endif 168 #endif 169 170 int 171 sh_unset_nodelay_mode (fd) 172 int fd; 173 { 174 int flags, bflags; 175 176 if ((flags = fcntl (fd, F_GETFL, 0)) < 0) 177 return -1; 178 179 bflags = 0; 180 181 #ifdef O_NONBLOCK 182 bflags |= O_NONBLOCK; 183 #endif 184 185 #ifdef O_NDELAY 186 bflags |= O_NDELAY; 187 #endif 188 189 if (flags & bflags) 190 { 191 flags &= ~bflags; 192 return (fcntl (fd, F_SETFL, flags)); 193 } 194 195 return 0; 196 } 197