| 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 1, 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 | 675 Mass Ave, Cambridge, MA 02139, USA. */ |
| 23 | #define READLINE_LIBRARY |
| 24 | |
| 25 | #if defined (HAVE_CONFIG_H) |
| 26 | # include <config.h> |
| 27 | #endif |
| 28 | |
| 29 | #if defined (HAVE_UNISTD_H) |
| 30 | # ifdef _MINIX |
| 31 | # include <sys/types.h> |
| 32 | # endif |
| 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 | extern char *xmalloc (), *xrealloc (); |
| 49 | |
| 50 | #if !defined (SHELL) |
| 51 | |
| 52 | #ifdef savestring |
| 53 | #undef savestring |
| 54 | #endif |
| 55 | |
| 56 | /* Backwards compatibility, now that savestring has been removed from |
| 57 | all `public' readline header files. */ |
| 58 | #if 0 |
| 59 | char * |
| 60 | savestring (s) |
| 61 | char *s; |
| 62 | { |
| 63 | return ((char *)strcpy (xmalloc (1 + (int)strlen (s)), (s))); |
| 64 | } |
| 65 | #endif |
| 66 | |
| 67 | /* Does shell-like quoting using single quotes. */ |
| 68 | char * |
| 69 | single_quote (string) |
| 70 | char *string; |
| 71 | { |
| 72 | register int c; |
| 73 | char *result, *r, *s; |
| 74 | |
| 75 | result = (char *)xmalloc (3 + (3 * strlen (string))); |
| 76 | r = result; |
| 77 | *r++ = '\''; |
| 78 | |
| 79 | for (s = string; s && (c = *s); s++) |
| 80 | { |
| 81 | *r++ = c; |
| 82 | |
| 83 | if (c == '\'') |
| 84 | { |
| 85 | *r++ = '\\'; /* insert escaped single quote */ |
| 86 | *r++ = '\''; |
| 87 | *r++ = '\''; /* start new quoted string */ |
| 88 | } |
| 89 | } |
| 90 | |
| 91 | *r++ = '\''; |
| 92 | *r = '\0'; |
| 93 | |
| 94 | return (result); |
| 95 | } |
| 96 | |
| 97 | /* Set the environment variables LINES and COLUMNS to lines and cols, |
| 98 | respectively. */ |
| 99 | void |
| 100 | set_lines_and_columns (lines, cols) |
| 101 | int lines, cols; |
| 102 | { |
| 103 | char *b; |
| 104 | |
| 105 | #if defined (HAVE_PUTENV) |
| 106 | b = xmalloc (24); |
| 107 | sprintf (b, "LINES=%d", lines); |
| 108 | putenv (b); |
| 109 | b = xmalloc (24); |
| 110 | sprintf (b, "COLUMNS=%d", cols); |
| 111 | putenv (b); |
| 112 | #else /* !HAVE_PUTENV */ |
| 113 | # if defined (HAVE_SETENV) |
| 114 | b = xmalloc (8); |
| 115 | sprintf (b, "%d", lines); |
| 116 | setenv ("LINES", b, 1); |
| 117 | b = xmalloc (8); |
| 118 | sprintf (b, "%d", cols); |
| 119 | setenv ("COLUMNS", b, 1); |
| 120 | # endif /* HAVE_SETENV */ |
| 121 | #endif /* !HAVE_PUTENV */ |
| 122 | } |
| 123 | |
| 124 | char * |
| 125 | get_env_value (varname) |
| 126 | char *varname; |
| 127 | { |
| 128 | return ((char *)getenv (varname)); |
| 129 | } |
| 130 | |
| 131 | #else /* SHELL */ |
| 132 | extern char *get_string_value (); |
| 133 | |
| 134 | char * |
| 135 | get_env_value (varname) |
| 136 | char *varname; |
| 137 | { |
| 138 | return get_string_value (varname); |
| 139 | } |
| 140 | #endif /* SHELL */ |