Apple-2gs-SW/hush
1
0
Fork 0
mirror of https://github.com/sheumann/hush.git synced 2024-10-12 01:24:10 +00:00
Code Issues Projects Releases Wiki Activity

This is a patch from Vladimir:

Browse Source 
> I rewrite *local_variable* function in hush.c with:
    > 1) remove many memory leaks
    > 2) add support read_only protect (require write builtin function for set this,
    > I write this special for variable HUSH_VERION=0.01)
    > 3) commad read set only local variable now
    > 4) remove many error messages if "set unset export" not defined variable
    > (bash syntax not put and set error code). Hmm, if I set result to -1, you hush
    > called waitpid and returned with error "no waitpid" ( i not found place this
    > error).
    > 5) destroy error in new version check xgetcwd()==NULL and set "(unknow)" -
    > this have error: crashe in next call `pwd`, but xgetcwd(not null) called
    > free(arg).
    > 6) next add integraion with libbb

Valdimir's patch missed two cases of local variable handling
    FOO=bar
    export FOO=baz
    unset FOO
and
    export FOO=bar
    FOO=baz
which were working before, so I fixed those two cases.
This commit is contained in:
Eric Andersen 2001-05-19 03:00:46 +00:00
parent 6197c51834
commit 9ffb7dd9a4
2 changed files with 374 additions and 402 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

388
hush.c
View File

@ -227,6 +227,14 @@ struct close_me {
struct close_me *next; struct close_me *next;
}; };
struct variables {
char *name;
char *value;
int flg_export;
int flg_read_only;
struct variables *next;
};
/* globals, connect us to the outside world /* globals, connect us to the outside world
* the first three support $?, $#, and $1 */ * the first three support $?, $#, and $1 */
char **global_argv; char **global_argv;
@ -248,13 +256,14 @@ static const char *cwd;
static struct jobset *job_list; static struct jobset *job_list;
static unsigned int last_bg_pid; static unsigned int last_bg_pid;
static char *PS1; static char *PS1;
static char *PS2; static char PS2[] = "> ";
static char **__shell_local_env;
struct variables shell_ver = { "HUSH_VERSION", "0.01", 1, 1, 0 };
struct variables *top_vars = &shell_ver;
#define B_CHUNK (100) #define B_CHUNK (100)
#define B_NOSPAC 1 #define B_NOSPAC 1
#define MAX_LINE 256 /* for cwd */
#define MAX_READ 256 /* for builtin_read */
typedef struct { typedef struct {
char *data; char *data;
@ -303,12 +312,12 @@ static void debug_printf(const char *format, ...)
va_end(args); va_end(args);
} }
#else #else
static void debug_printf(const char *format, ...) { } static inline void debug_printf(const char *format, ...) { }
#endif #endif
#define final_printf debug_printf #define final_printf debug_printf
void __syntax(char *file, int line) { static void __syntax(char *file, int line) {
fprintf(stderr,"syntax error %s:%d\n",file,line); error_msg("syntax error %s:%d", file, line);
} }
#define syntax() __syntax(__FILE__, __LINE__) #define syntax() __syntax(__FILE__, __LINE__)
@ -362,7 +371,6 @@ static int globhack(const char *src, int flags, glob_t *pglob);
static int glob_needed(const char *s); static int glob_needed(const char *s);
static int xglob(o_string *dest, int flags, glob_t *pglob); static int xglob(o_string *dest, int flags, glob_t *pglob);
/* variable assignment: */ /* variable assignment: */
static int set_local_var(const char *s);
static int is_assignment(const char *s); static int is_assignment(const char *s);
/* data structure manipulation: */ /* data structure manipulation: */
static int setup_redirect(struct p_context *ctx, int fd, redir_type style, struct in_str *input); static int setup_redirect(struct p_context *ctx, int fd, redir_type style, struct in_str *input);
@ -390,8 +398,8 @@ static void remove_bg_job(struct pipe *pi);
static void free_pipe(struct pipe *pi); static void free_pipe(struct pipe *pi);
/* local variable support */ /* local variable support */
static char *get_local_var(const char *var); static char *get_local_var(const char *var);
static int set_local_var(const char *s);
static void unset_local_var(const char *name); static void unset_local_var(const char *name);
static int set_local_var(const char *s, int flg_export);
/* Table of built-in functions. They can be forked or not, depending on /* Table of built-in functions. They can be forked or not, depending on
@ -427,6 +435,17 @@ static struct built_in_command bltins[] = {
{NULL, NULL, NULL} {NULL, NULL, NULL}
}; };
static const char *set_cwd(void)
{
if(cwd==unknown)
cwd = NULL; /* xgetcwd(arg) called free(arg) */
cwd = xgetcwd((char *)cwd);
if (!cwd)
cwd = unknown;
return cwd;
}
/* built-in 'cd <path>' handler */ /* built-in 'cd <path>' handler */
static int builtin_cd(struct child_prog *child) static int builtin_cd(struct child_prog *child)
{ {
@ -439,9 +458,7 @@ static int builtin_cd(struct child_prog *child)
printf("cd: %s: %s\n", newdir, strerror(errno)); printf("cd: %s: %s\n", newdir, strerror(errno));
return EXIT_FAILURE; return EXIT_FAILURE;
} }
cwd = xgetcwd((char *)cwd); set_cwd();
if (!cwd)
cwd = unknown;
return EXIT_SUCCESS; return EXIT_SUCCESS;
} }
@ -477,43 +494,48 @@ static int builtin_exit(struct child_prog *child)
/* built-in 'export VAR=value' handler */ /* built-in 'export VAR=value' handler */
static int builtin_export(struct child_prog *child) static int builtin_export(struct child_prog *child)
{ {
int res; int res = 0;
char *value, *name = child->argv[1]; char *name = child->argv[1];
if (name == NULL) { if (name == NULL) {
return (builtin_env(child)); return (builtin_env(child));
} }
value = strchr(name, '='); name = strdup(name);
if (!value) {
/* They are exporting something without an =VALUE.
* Assume this is a local shell variable they are exporting */
name = get_local_var(name);
if (! name ) {
error_msg("export failed");
return (EXIT_FAILURE);
}
/* FIXME -- I leak memory!!!!! */
value = malloc(strlen(child->argv[1]) + strlen(name) + 2);
sprintf(value, "%s=%s", child->argv[1], name);
} else {
/* Bourne shells always put exported variables into the
* local shell variable list. Do that first... */
set_local_var(name);
/* FIXME -- I leak memory!!!!! */
value = strdup(name);
}
/* FIXME -- I leak memory!!!!! if(name) {
* It seems most putenv implementations place the very char* pointer char *value = strchr(name, '=');
* we pass in directly into the environ array, so the memory holding
* this string has to be persistant. We can't even use the memory for if (!value) {
* the local shell variable list, since where that memory is keeps char *tmp;
* changing due to reallocs... */ /* They are exporting something without an =VALUE */
res = putenv(value);
if (res) value = get_local_var(name);
if (value) {
size_t ln = strlen(name);
tmp = realloc(name, ln+strlen(value)+2);
if(tmp==NULL)
res = -1;
else {
sprintf(tmp+ln, "=%s", value);
name = tmp;
}
} else {
/* bash not put error and set error code
if exporting not defined variable */
res = 1;
}
}
}
if (res<0)
perror_msg("export"); perror_msg("export");
return (res); else if(res==0)
res = set_local_var(name, 1);
else
res = 0;
free(name);
return res;
} }
/* built-in 'fg' and 'bg' handler */ /* built-in 'fg' and 'bg' handler */
@ -605,66 +627,52 @@ static int builtin_jobs(struct child_prog *child)
/* built-in 'pwd' handler */ /* built-in 'pwd' handler */
static int builtin_pwd(struct child_prog *dummy) static int builtin_pwd(struct child_prog *dummy)
{ {
cwd = xgetcwd((char *)cwd); puts(set_cwd());
if (!cwd)
cwd = unknown;
puts(cwd);
return EXIT_SUCCESS; return EXIT_SUCCESS;
} }
/* built-in 'read VAR' handler */ /* built-in 'read VAR' handler */
static int builtin_read(struct child_prog *child) static int builtin_read(struct child_prog *child)
{ {
int res = 0, len, newlen; int res;
char *s;
char string[MAX_READ];
if (child->argv[1]) { if (child->argv[1]) {
/* argument (VAR) given: put "VAR=" into buffer */ char string[BUFSIZ];
strcpy(string, child->argv[1]); char *var = 0;
len = strlen(string);
string[len++] = '=';
string[len] = '\0';
/* XXX would it be better to go through in_str? */
fgets(&string[len], sizeof(string) - len, stdin); /* read string */
newlen = strlen(string);
if(newlen > len)
string[--newlen] = '\0'; /* chomp trailing newline */
/*
** string should now contain "VAR=<value>"
** copy it (putenv() won't do that, so we must make sure
** the string resides in a static buffer!)
*/
res = -1;
if((s = strdup(string)))
res = putenv(s);
if (res)
fprintf(stderr, "read: %s\n", strerror(errno));
}
else
fgets(string, sizeof(string), stdin);
return (res); string[0] = 0; /* for correct work if stdin have "only EOF" */
/* read string */
fgets(string, sizeof(string), stdin);
chomp(string);
var = malloc(strlen(child->argv[1])+strlen(string)+2);
if(var) {
sprintf(var, "%s=%s", child->argv[1], string);
res = set_local_var(var, 0);
} else
res = -1;
if (res)
fprintf(stderr, "read: %m\n");
free(var); /* not move up - saved errno */
return res;
} else {
do res=getchar(); while(res!='\n' && res!=EOF);
return 0;
}
} }
/* built-in 'set VAR=value' handler */ /* built-in 'set VAR=value' handler */
static int builtin_set(struct child_prog *child) static int builtin_set(struct child_prog *child)
{ {
int res;
char *temp = child->argv[1]; char *temp = child->argv[1];
struct variables *e;
if (temp == NULL)
for(e = top_vars; e; e=e->next)
printf("%s=%s\n", e->name, e->value);
else
set_local_var(temp, 0);
if (child->argv[1] == NULL) {
char **e = __shell_local_env;
if (e == NULL) return EXIT_FAILURE;
for (; *e; e++) {
puts(*e);
}
return EXIT_SUCCESS; return EXIT_SUCCESS;
}
res = set_local_var(temp);
if (res)
fprintf(stderr, "set: %s\n", strerror(errno));
return (res);
} }
@ -697,7 +705,7 @@ static int builtin_source(struct child_prog *child)
/* XXX search through $PATH is missing */ /* XXX search through $PATH is missing */
input = fopen(child->argv[1], "r"); input = fopen(child->argv[1], "r");
if (!input) { if (!input) {
fprintf(stderr, "Couldn't open file '%s'\n", child->argv[1]); error_msg("Couldn't open file '%s'", child->argv[1]);
return EXIT_FAILURE; return EXIT_FAILURE;
} }
@ -732,11 +740,7 @@ static int builtin_umask(struct child_prog *child)
/* built-in 'unset VAR' handler */ /* built-in 'unset VAR' handler */
static int builtin_unset(struct child_prog *child) static int builtin_unset(struct child_prog *child)
{ {
if (child->argv[1] == NULL) { /* bash returned already true */
fprintf(stderr, "unset: parameter required.\n");
return EXIT_FAILURE;
}
unsetenv(child->argv[1]);
unset_local_var(child->argv[1]); unset_local_var(child->argv[1]);
return EXIT_SUCCESS; return EXIT_SUCCESS;
} }
@ -998,8 +1002,7 @@ static int setup_redirects(struct child_prog *prog, int squirrel[])
if (openfd < 0) { if (openfd < 0) {
/* this could get lost if stderr has been redirected, but /* this could get lost if stderr has been redirected, but
bash and ash both lose it as well (though zsh doesn't!) */ bash and ash both lose it as well (though zsh doesn't!) */
fprintf(stderr,"error opening %s: %s\n", redir->word.gl_pathv[0], perror_msg("error opening %s", redir->word.gl_pathv[0]);
strerror(errno));
return 1; return 1;
} }
} else { } else {
@ -1160,10 +1163,9 @@ static void insert_bg_job(struct pipe *pi)
/* physically copy the struct job */ /* physically copy the struct job */
memcpy(thejob, pi, sizeof(struct pipe)); memcpy(thejob, pi, sizeof(struct pipe));
thejob->next = NULL; thejob->next = NULL;
//thejob->num_progs = 0;
thejob->running_progs = thejob->num_progs; thejob->running_progs = thejob->num_progs;
thejob->stopped_progs = 0; thejob->stopped_progs = 0;
thejob->text = xmalloc(MAX_LINE); thejob->text = xmalloc(BUFSIZ); /* cmdedit buffer size */
//if (pi->progs[0] && pi->progs[0].argv && pi->progs[0].argv[0]) //if (pi->progs[0] && pi->progs[0].argv && pi->progs[0].argv[0])
{ {
@ -1327,7 +1329,7 @@ static int run_pipe_real(struct pipe *pi)
if (i!=0 && child->argv[i]==NULL) { if (i!=0 && child->argv[i]==NULL) {
/* assignments, but no command: set the local environment */ /* assignments, but no command: set the local environment */
for (i=0; child->argv[i]!=NULL; i++) { for (i=0; child->argv[i]!=NULL; i++) {
set_local_var(child->argv[i]); set_local_var(child->argv[i], 0);
} }
return EXIT_SUCCESS; /* don't worry about errors in set_local_var() yet */ return EXIT_SUCCESS; /* don't worry about errors in set_local_var() yet */
} }
@ -1646,12 +1648,10 @@ static int xglob(o_string *dest, int flags, glob_t *pglob)
gr = globhack(dest->data, flags, pglob); gr = globhack(dest->data, flags, pglob);
debug_printf("globhack returned %d\n",gr); debug_printf("globhack returned %d\n",gr);
} }
if (gr == GLOB_NOSPACE) { if (gr == GLOB_NOSPACE)
fprintf(stderr,"out of memory during glob\n"); error_msg_and_die("out of memory during glob");
exit(1);
}
if (gr != 0) { /* GLOB_ABORTED ? */ if (gr != 0) { /* GLOB_ABORTED ? */
fprintf(stderr,"glob(3) error %d\n",gr); error_msg("glob(3) error %d",gr);
} }
/* globprint(glob_target); */ /* globprint(glob_target); */
return gr; return gr;
@ -1660,129 +1660,113 @@ static int xglob(o_string *dest, int flags, glob_t *pglob)
/* This is used to get/check local shell variables */ /* This is used to get/check local shell variables */
static char *get_local_var(const char *s) static char *get_local_var(const char *s)
{ {
char **p; struct variables *cur;
int len;
if (!s) if (!s)
return NULL; return NULL;
if (!__shell_local_env) for (cur = top_vars; cur; cur=cur->next)
return NULL; if(strcmp(cur->name, s)==0)
len = strlen(s); return cur->value;
for (p = __shell_local_env; *p; p++) {
if (memcmp(s, *p, len) == 0 && (*p)[len] == '=') {
return *p + len + 1;
}
}
return NULL; return NULL;
} }
/* This is used to set local shell variables */ /* This is used to set local shell variables
static int set_local_var(const char *s) flg_export==0 if only local (not exporting) variable
flg_export==1 if "new" exporting environ
flg_export>1 if current startup environ (not call putenv()) */
static int set_local_var(const char *s, int flg_export)
{ {
char **ep; char *name, *value;
char *tmp,*name, *value;
size_t size;
size_t namelen;
size_t vallen;
int result=0; int result=0;
struct variables *cur;
char *newval = 0;
name=tmp=strdup(s); name=strdup(s);
/* Assume when we enter this function that we are already in /* Assume when we enter this function that we are already in
* NAME=VALUE format. So the first order of business is to * NAME=VALUE format. So the first order of business is to
* split 's' on the '=' into 'name' and 'value' */ * split 's' on the '=' into 'name' and 'value' */
value = strchr(name, '='); value = strchr(name, '=');
if (!value) { if (value==0 || (newval = strdup(value+1))==0) {
result = -1; result = -1;
goto done_already; } else {
} *value++ = 0;
*value='\0';
++value;
namelen = strlen (name); for(cur = top_vars; cur; cur = cur->next)
vallen = strlen (value); if(strcmp(cur->name, name)==0)
/* Now see how many local environment entries we have, and check
* if we match an existing environment entry (so we can overwrite it) */
size = 0;
for (ep = __shell_local_env; ep && *ep != NULL; ++ep) {
if (!memcmp (*ep, name, namelen) && (*ep)[namelen] == '=')
break; break;
else
++size;
}
if (ep == NULL || *ep == NULL) { if(cur) {
static char **last_environ = NULL; if(strcmp(cur->value, value)==0) {
char **new_environ = (char **) malloc((size + 2) * sizeof(char *)); result = cur->flg_export == flg_export;
if (new_environ == NULL) { } else {
if(cur->flg_read_only) {
result = -1; result = -1;
goto done_already; error_msg("%s: readonly variable", name);
} else {
free(cur->value);
cur->value = newval;
newval = 0; /* protect free */
} }
memcpy((__ptr_t) new_environ, (__ptr_t) __shell_local_env,
size * sizeof(char *));
new_environ[size] = malloc (namelen + 1 + vallen + 1);
if (new_environ[size] == NULL) {
free (new_environ);
errno=ENOMEM;
result = -1;
goto done_already;
}
memcpy (new_environ[size], name, namelen);
new_environ[size][namelen] = '=';
memcpy (&new_environ[size][namelen + 1], value, vallen + 1);
new_environ[size + 1] = NULL;
if (last_environ != NULL)
free ((__ptr_t) last_environ);
last_environ = new_environ;
__shell_local_env = new_environ;
} }
else { } else {
size_t len = strlen (*ep); cur = malloc(sizeof(struct variables));
if (len < namelen + 1 + vallen) { if(cur==0) {
char *new = malloc (namelen + 1 + vallen + 1);
if (new == NULL) {
result = -1; result = -1;
goto done_already; } else {
cur->name = strdup(name);
if(cur->name == 0) {
free(cur);
result = -1;
} else {
struct variables *bottom = top_vars;
cur->value = newval;
newval = 0; /* protect free */
cur->next = 0;
cur->flg_export = flg_export;
cur->flg_read_only = 0;
while(bottom->next) bottom=bottom->next;
bottom->next = cur;
} }
*ep = new;
memcpy (*ep, name, namelen);
(*ep)[namelen] = '=';
} }
memcpy (&(*ep)[namelen + 1], value, vallen + 1); }
} }
/* One last little detail... If this variable is already if((result==0 && flg_export==1) || (result>0 && cur->flg_export>0)) {
* in the environment we must set it there as well... */ *(value-1) = '=';
tmp = getenv(name); result = putenv(name);
if (tmp) { } else {
/* FIXME -- I leak memory!!!!! */
putenv(strdup(s));
}
done_already:
free(name); free(name);
if(result>0) /* equivalent to previous set */
result = 0;
}
free(newval);
return result; return result;
} }
static void unset_local_var(const char *name) static void unset_local_var(const char *name)
{ {
char **ep, **dp; struct variables *cur;
size_t namelen;
if (!name) if (name) {
for (cur = top_vars; cur; cur=cur->next)
if(strcmp(cur->name, name)==0)
break;
if(cur!=0) {
struct variables *next = top_vars;
if(cur==next)
return; return;
namelen = strlen(name); else {
for (dp = ep = __shell_local_env; ep && *ep != NULL; ++ep) { if(cur->flg_export)
if (memcmp (*ep, name, namelen)==0 && (*ep)[namelen] == '=') { unsetenv(cur->name);
*dp = *ep; free(cur->name);
++dp; free(cur->value);
*ep = NULL; while (next->next != cur)
break; next = next->next;
next->next = cur->next;
}
free(cur);
} }
} }
} }
@ -1963,7 +1947,7 @@ static int done_word(o_string *dest, struct p_context *ctx)
if (ctx->pending_redirect) { if (ctx->pending_redirect) {
ctx->pending_redirect=NULL; ctx->pending_redirect=NULL;
if (glob_target->gl_pathc != 1) { if (glob_target->gl_pathc != 1) {
fprintf(stderr, "ambiguous redirect\n"); error_msg("ambiguous redirect");
return 1; return 1;
} }
} else { } else {
@ -2049,7 +2033,7 @@ static int redirect_dup_num(struct in_str *input)
} }
if (ok) return d; if (ok) return d;
fprintf(stderr, "ambiguous redirect\n"); error_msg("ambiguous redirect");
return -2; return -2;
} }
@ -2261,7 +2245,7 @@ static int handle_dollar(o_string *dest, struct p_context *ctx, struct in_str *i
case '-': case '-':
case '_': case '_':
/* still unhandled, but should be eventually */ /* still unhandled, but should be eventually */
fprintf(stderr,"unhandled syntax: $%c\n",ch); error_msg("unhandled syntax: $%c",ch);
return 1; return 1;
break; break;
default: default:
@ -2505,16 +2489,14 @@ int shell_main(int argc, char **argv)
int opt; int opt;
FILE *input; FILE *input;
struct jobset joblist_end = { NULL, NULL }; struct jobset joblist_end = { NULL, NULL };
char **e = environ;
/* (re?) initialize globals */ /* initialize globals */
ifs=NULL; if (e) {
fake_mode=0; for (; *e; e++)
interactive=0; set_local_var(*e, 2); /* without call putenv() */
close_me_head = NULL; }
job_list = &joblist_end; job_list = &joblist_end;
last_bg_pid=0;
PS2 = "> ";
__shell_local_env = 0;
last_return_code=EXIT_SUCCESS; last_return_code=EXIT_SUCCESS;
@ -2581,9 +2563,13 @@ int shell_main(int argc, char **argv)
fake_mode++; fake_mode++;
break; break;
default: default:
#ifndef BB_VER
fprintf(stderr, "Usage: sh [FILE]...\n" fprintf(stderr, "Usage: sh [FILE]...\n"
" or: sh -c command [args]...\n\n"); " or: sh -c command [args]...\n\n");
exit(EXIT_FAILURE); exit(EXIT_FAILURE);
#else
show_usage();
#endif
} }
} }
/* A shell is interactive if the `-i' flag was given, or if all of /* A shell is interactive if the `-i' flag was given, or if all of

388
shell/hush.c
View File

@ -227,6 +227,14 @@ struct close_me {
struct close_me *next; struct close_me *next;
}; };
struct variables {
char *name;
char *value;
int flg_export;
int flg_read_only;
struct variables *next;
};
/* globals, connect us to the outside world /* globals, connect us to the outside world
* the first three support $?, $#, and $1 */ * the first three support $?, $#, and $1 */
char **global_argv; char **global_argv;
@ -248,13 +256,14 @@ static const char *cwd;
static struct jobset *job_list; static struct jobset *job_list;
static unsigned int last_bg_pid; static unsigned int last_bg_pid;
static char *PS1; static char *PS1;
static char *PS2; static char PS2[] = "> ";
static char **__shell_local_env;
struct variables shell_ver = { "HUSH_VERSION", "0.01", 1, 1, 0 };
struct variables *top_vars = &shell_ver;
#define B_CHUNK (100) #define B_CHUNK (100)
#define B_NOSPAC 1 #define B_NOSPAC 1
#define MAX_LINE 256 /* for cwd */
#define MAX_READ 256 /* for builtin_read */
typedef struct { typedef struct {
char *data; char *data;
@ -303,12 +312,12 @@ static void debug_printf(const char *format, ...)
va_end(args); va_end(args);
} }
#else #else
static void debug_printf(const char *format, ...) { } static inline void debug_printf(const char *format, ...) { }
#endif #endif
#define final_printf debug_printf #define final_printf debug_printf
void __syntax(char *file, int line) { static void __syntax(char *file, int line) {
fprintf(stderr,"syntax error %s:%d\n",file,line); error_msg("syntax error %s:%d", file, line);
} }
#define syntax() __syntax(__FILE__, __LINE__) #define syntax() __syntax(__FILE__, __LINE__)
@ -362,7 +371,6 @@ static int globhack(const char *src, int flags, glob_t *pglob);
static int glob_needed(const char *s); static int glob_needed(const char *s);
static int xglob(o_string *dest, int flags, glob_t *pglob); static int xglob(o_string *dest, int flags, glob_t *pglob);
/* variable assignment: */ /* variable assignment: */
static int set_local_var(const char *s);
static int is_assignment(const char *s); static int is_assignment(const char *s);
/* data structure manipulation: */ /* data structure manipulation: */
static int setup_redirect(struct p_context *ctx, int fd, redir_type style, struct in_str *input); static int setup_redirect(struct p_context *ctx, int fd, redir_type style, struct in_str *input);
@ -390,8 +398,8 @@ static void remove_bg_job(struct pipe *pi);
static void free_pipe(struct pipe *pi); static void free_pipe(struct pipe *pi);
/* local variable support */ /* local variable support */
static char *get_local_var(const char *var); static char *get_local_var(const char *var);
static int set_local_var(const char *s);
static void unset_local_var(const char *name); static void unset_local_var(const char *name);
static int set_local_var(const char *s, int flg_export);
/* Table of built-in functions. They can be forked or not, depending on /* Table of built-in functions. They can be forked or not, depending on
@ -427,6 +435,17 @@ static struct built_in_command bltins[] = {
{NULL, NULL, NULL} {NULL, NULL, NULL}
}; };
static const char *set_cwd(void)
{
if(cwd==unknown)
cwd = NULL; /* xgetcwd(arg) called free(arg) */
cwd = xgetcwd((char *)cwd);
if (!cwd)
cwd = unknown;
return cwd;
}
/* built-in 'cd <path>' handler */ /* built-in 'cd <path>' handler */
static int builtin_cd(struct child_prog *child) static int builtin_cd(struct child_prog *child)
{ {
@ -439,9 +458,7 @@ static int builtin_cd(struct child_prog *child)
printf("cd: %s: %s\n", newdir, strerror(errno)); printf("cd: %s: %s\n", newdir, strerror(errno));
return EXIT_FAILURE; return EXIT_FAILURE;
} }
cwd = xgetcwd((char *)cwd); set_cwd();
if (!cwd)
cwd = unknown;
return EXIT_SUCCESS; return EXIT_SUCCESS;
} }
@ -477,43 +494,48 @@ static int builtin_exit(struct child_prog *child)
/* built-in 'export VAR=value' handler */ /* built-in 'export VAR=value' handler */
static int builtin_export(struct child_prog *child) static int builtin_export(struct child_prog *child)
{ {
int res; int res = 0;
char *value, *name = child->argv[1]; char *name = child->argv[1];
if (name == NULL) { if (name == NULL) {
return (builtin_env(child)); return (builtin_env(child));
} }
value = strchr(name, '='); name = strdup(name);
if (!value) {
/* They are exporting something without an =VALUE.
* Assume this is a local shell variable they are exporting */
name = get_local_var(name);
if (! name ) {
error_msg("export failed");
return (EXIT_FAILURE);
}
/* FIXME -- I leak memory!!!!! */
value = malloc(strlen(child->argv[1]) + strlen(name) + 2);
sprintf(value, "%s=%s", child->argv[1], name);
} else {
/* Bourne shells always put exported variables into the
* local shell variable list. Do that first... */
set_local_var(name);
/* FIXME -- I leak memory!!!!! */
value = strdup(name);
}
/* FIXME -- I leak memory!!!!! if(name) {
* It seems most putenv implementations place the very char* pointer char *value = strchr(name, '=');
* we pass in directly into the environ array, so the memory holding
* this string has to be persistant. We can't even use the memory for if (!value) {
* the local shell variable list, since where that memory is keeps char *tmp;
* changing due to reallocs... */ /* They are exporting something without an =VALUE */
res = putenv(value);
if (res) value = get_local_var(name);
if (value) {
size_t ln = strlen(name);
tmp = realloc(name, ln+strlen(value)+2);
if(tmp==NULL)
res = -1;
else {
sprintf(tmp+ln, "=%s", value);
name = tmp;
}
} else {
/* bash not put error and set error code
if exporting not defined variable */
res = 1;
}
}
}
if (res<0)
perror_msg("export"); perror_msg("export");
return (res); else if(res==0)
res = set_local_var(name, 1);
else
res = 0;
free(name);
return res;
} }
/* built-in 'fg' and 'bg' handler */ /* built-in 'fg' and 'bg' handler */
@ -605,66 +627,52 @@ static int builtin_jobs(struct child_prog *child)
/* built-in 'pwd' handler */ /* built-in 'pwd' handler */
static int builtin_pwd(struct child_prog *dummy) static int builtin_pwd(struct child_prog *dummy)
{ {
cwd = xgetcwd((char *)cwd); puts(set_cwd());
if (!cwd)
cwd = unknown;
puts(cwd);
return EXIT_SUCCESS; return EXIT_SUCCESS;
} }
/* built-in 'read VAR' handler */ /* built-in 'read VAR' handler */
static int builtin_read(struct child_prog *child) static int builtin_read(struct child_prog *child)
{ {
int res = 0, len, newlen; int res;
char *s;
char string[MAX_READ];
if (child->argv[1]) { if (child->argv[1]) {
/* argument (VAR) given: put "VAR=" into buffer */ char string[BUFSIZ];
strcpy(string, child->argv[1]); char *var = 0;
len = strlen(string);
string[len++] = '=';
string[len] = '\0';
/* XXX would it be better to go through in_str? */
fgets(&string[len], sizeof(string) - len, stdin); /* read string */
newlen = strlen(string);
if(newlen > len)
string[--newlen] = '\0'; /* chomp trailing newline */
/*
** string should now contain "VAR=<value>"
** copy it (putenv() won't do that, so we must make sure
** the string resides in a static buffer!)
*/
res = -1;
if((s = strdup(string)))
res = putenv(s);
if (res)
fprintf(stderr, "read: %s\n", strerror(errno));
}
else
fgets(string, sizeof(string), stdin);
return (res); string[0] = 0; /* for correct work if stdin have "only EOF" */
/* read string */
fgets(string, sizeof(string), stdin);
chomp(string);
var = malloc(strlen(child->argv[1])+strlen(string)+2);
if(var) {
sprintf(var, "%s=%s", child->argv[1], string);
res = set_local_var(var, 0);
} else
res = -1;
if (res)
fprintf(stderr, "read: %m\n");
free(var); /* not move up - saved errno */
return res;
} else {
do res=getchar(); while(res!='\n' && res!=EOF);
return 0;
}
} }
/* built-in 'set VAR=value' handler */ /* built-in 'set VAR=value' handler */
static int builtin_set(struct child_prog *child) static int builtin_set(struct child_prog *child)
{ {
int res;
char *temp = child->argv[1]; char *temp = child->argv[1];
struct variables *e;
if (temp == NULL)
for(e = top_vars; e; e=e->next)
printf("%s=%s\n", e->name, e->value);
else
set_local_var(temp, 0);
if (child->argv[1] == NULL) {
char **e = __shell_local_env;
if (e == NULL) return EXIT_FAILURE;
for (; *e; e++) {
puts(*e);
}
return EXIT_SUCCESS; return EXIT_SUCCESS;
}
res = set_local_var(temp);
if (res)
fprintf(stderr, "set: %s\n", strerror(errno));
return (res);
} }
@ -697,7 +705,7 @@ static int builtin_source(struct child_prog *child)
/* XXX search through $PATH is missing */ /* XXX search through $PATH is missing */
input = fopen(child->argv[1], "r"); input = fopen(child->argv[1], "r");
if (!input) { if (!input) {
fprintf(stderr, "Couldn't open file '%s'\n", child->argv[1]); error_msg("Couldn't open file '%s'", child->argv[1]);
return EXIT_FAILURE; return EXIT_FAILURE;
} }
@ -732,11 +740,7 @@ static int builtin_umask(struct child_prog *child)
/* built-in 'unset VAR' handler */ /* built-in 'unset VAR' handler */
static int builtin_unset(struct child_prog *child) static int builtin_unset(struct child_prog *child)
{ {
if (child->argv[1] == NULL) { /* bash returned already true */
fprintf(stderr, "unset: parameter required.\n");
return EXIT_FAILURE;
}
unsetenv(child->argv[1]);
unset_local_var(child->argv[1]); unset_local_var(child->argv[1]);
return EXIT_SUCCESS; return EXIT_SUCCESS;
} }
@ -998,8 +1002,7 @@ static int setup_redirects(struct child_prog *prog, int squirrel[])
if (openfd < 0) { if (openfd < 0) {
/* this could get lost if stderr has been redirected, but /* this could get lost if stderr has been redirected, but
bash and ash both lose it as well (though zsh doesn't!) */ bash and ash both lose it as well (though zsh doesn't!) */
fprintf(stderr,"error opening %s: %s\n", redir->word.gl_pathv[0], perror_msg("error opening %s", redir->word.gl_pathv[0]);
strerror(errno));
return 1; return 1;
} }
} else { } else {
@ -1160,10 +1163,9 @@ static void insert_bg_job(struct pipe *pi)
/* physically copy the struct job */ /* physically copy the struct job */
memcpy(thejob, pi, sizeof(struct pipe)); memcpy(thejob, pi, sizeof(struct pipe));
thejob->next = NULL; thejob->next = NULL;
//thejob->num_progs = 0;
thejob->running_progs = thejob->num_progs; thejob->running_progs = thejob->num_progs;
thejob->stopped_progs = 0; thejob->stopped_progs = 0;
thejob->text = xmalloc(MAX_LINE); thejob->text = xmalloc(BUFSIZ); /* cmdedit buffer size */
//if (pi->progs[0] && pi->progs[0].argv && pi->progs[0].argv[0]) //if (pi->progs[0] && pi->progs[0].argv && pi->progs[0].argv[0])
{ {
@ -1327,7 +1329,7 @@ static int run_pipe_real(struct pipe *pi)
if (i!=0 && child->argv[i]==NULL) { if (i!=0 && child->argv[i]==NULL) {
/* assignments, but no command: set the local environment */ /* assignments, but no command: set the local environment */
for (i=0; child->argv[i]!=NULL; i++) { for (i=0; child->argv[i]!=NULL; i++) {
set_local_var(child->argv[i]); set_local_var(child->argv[i], 0);
} }
return EXIT_SUCCESS; /* don't worry about errors in set_local_var() yet */ return EXIT_SUCCESS; /* don't worry about errors in set_local_var() yet */
} }
@ -1646,12 +1648,10 @@ static int xglob(o_string *dest, int flags, glob_t *pglob)
gr = globhack(dest->data, flags, pglob); gr = globhack(dest->data, flags, pglob);
debug_printf("globhack returned %d\n",gr); debug_printf("globhack returned %d\n",gr);
} }
if (gr == GLOB_NOSPACE) { if (gr == GLOB_NOSPACE)
fprintf(stderr,"out of memory during glob\n"); error_msg_and_die("out of memory during glob");
exit(1);
}
if (gr != 0) { /* GLOB_ABORTED ? */ if (gr != 0) { /* GLOB_ABORTED ? */
fprintf(stderr,"glob(3) error %d\n",gr); error_msg("glob(3) error %d",gr);
} }
/* globprint(glob_target); */ /* globprint(glob_target); */
return gr; return gr;
@ -1660,129 +1660,113 @@ static int xglob(o_string *dest, int flags, glob_t *pglob)
/* This is used to get/check local shell variables */ /* This is used to get/check local shell variables */
static char *get_local_var(const char *s) static char *get_local_var(const char *s)
{ {
char **p; struct variables *cur;
int len;
if (!s) if (!s)
return NULL; return NULL;
if (!__shell_local_env) for (cur = top_vars; cur; cur=cur->next)
return NULL; if(strcmp(cur->name, s)==0)
len = strlen(s); return cur->value;
for (p = __shell_local_env; *p; p++) {
if (memcmp(s, *p, len) == 0 && (*p)[len] == '=') {
return *p + len + 1;
}
}
return NULL; return NULL;
} }
/* This is used to set local shell variables */ /* This is used to set local shell variables
static int set_local_var(const char *s) flg_export==0 if only local (not exporting) variable
flg_export==1 if "new" exporting environ
flg_export>1 if current startup environ (not call putenv()) */
static int set_local_var(const char *s, int flg_export)
{ {
char **ep; char *name, *value;
char *tmp,*name, *value;
size_t size;
size_t namelen;
size_t vallen;
int result=0; int result=0;
struct variables *cur;
char *newval = 0;
name=tmp=strdup(s); name=strdup(s);
/* Assume when we enter this function that we are already in /* Assume when we enter this function that we are already in
* NAME=VALUE format. So the first order of business is to * NAME=VALUE format. So the first order of business is to
* split 's' on the '=' into 'name' and 'value' */ * split 's' on the '=' into 'name' and 'value' */
value = strchr(name, '='); value = strchr(name, '=');
if (!value) { if (value==0 || (newval = strdup(value+1))==0) {
result = -1; result = -1;
goto done_already; } else {
} *value++ = 0;
*value='\0';
++value;
namelen = strlen (name); for(cur = top_vars; cur; cur = cur->next)
vallen = strlen (value); if(strcmp(cur->name, name)==0)
/* Now see how many local environment entries we have, and check
* if we match an existing environment entry (so we can overwrite it) */
size = 0;
for (ep = __shell_local_env; ep && *ep != NULL; ++ep) {
if (!memcmp (*ep, name, namelen) && (*ep)[namelen] == '=')
break; break;
else
++size;
}
if (ep == NULL || *ep == NULL) { if(cur) {
static char **last_environ = NULL; if(strcmp(cur->value, value)==0) {
char **new_environ = (char **) malloc((size + 2) * sizeof(char *)); result = cur->flg_export == flg_export;
if (new_environ == NULL) { } else {
if(cur->flg_read_only) {
result = -1; result = -1;
goto done_already; error_msg("%s: readonly variable", name);
} else {
free(cur->value);
cur->value = newval;
newval = 0; /* protect free */
} }
memcpy((__ptr_t) new_environ, (__ptr_t) __shell_local_env,
size * sizeof(char *));
new_environ[size] = malloc (namelen + 1 + vallen + 1);
if (new_environ[size] == NULL) {
free (new_environ);
errno=ENOMEM;
result = -1;
goto done_already;
}
memcpy (new_environ[size], name, namelen);
new_environ[size][namelen] = '=';
memcpy (&new_environ[size][namelen + 1], value, vallen + 1);
new_environ[size + 1] = NULL;
if (last_environ != NULL)
free ((__ptr_t) last_environ);
last_environ = new_environ;
__shell_local_env = new_environ;
} }
else { } else {
size_t len = strlen (*ep); cur = malloc(sizeof(struct variables));
if (len < namelen + 1 + vallen) { if(cur==0) {
char *new = malloc (namelen + 1 + vallen + 1);
if (new == NULL) {
result = -1; result = -1;
goto done_already; } else {
cur->name = strdup(name);
if(cur->name == 0) {
free(cur);
result = -1;
} else {
struct variables *bottom = top_vars;
cur->value = newval;
newval = 0; /* protect free */
cur->next = 0;
cur->flg_export = flg_export;
cur->flg_read_only = 0;
while(bottom->next) bottom=bottom->next;
bottom->next = cur;
} }
*ep = new;
memcpy (*ep, name, namelen);
(*ep)[namelen] = '=';
} }
memcpy (&(*ep)[namelen + 1], value, vallen + 1); }
} }
/* One last little detail... If this variable is already if((result==0 && flg_export==1) || (result>0 && cur->flg_export>0)) {
* in the environment we must set it there as well... */ *(value-1) = '=';
tmp = getenv(name); result = putenv(name);
if (tmp) { } else {
/* FIXME -- I leak memory!!!!! */
putenv(strdup(s));
}
done_already:
free(name); free(name);
if(result>0) /* equivalent to previous set */
result = 0;
}
free(newval);
return result; return result;
} }
static void unset_local_var(const char *name) static void unset_local_var(const char *name)
{ {
char **ep, **dp; struct variables *cur;
size_t namelen;
if (!name) if (name) {
for (cur = top_vars; cur; cur=cur->next)
if(strcmp(cur->name, name)==0)
break;
if(cur!=0) {
struct variables *next = top_vars;
if(cur==next)
return; return;
namelen = strlen(name); else {
for (dp = ep = __shell_local_env; ep && *ep != NULL; ++ep) { if(cur->flg_export)
if (memcmp (*ep, name, namelen)==0 && (*ep)[namelen] == '=') { unsetenv(cur->name);
*dp = *ep; free(cur->name);
++dp; free(cur->value);
*ep = NULL; while (next->next != cur)
break; next = next->next;
next->next = cur->next;
}
free(cur);
} }
} }
} }
@ -1963,7 +1947,7 @@ static int done_word(o_string *dest, struct p_context *ctx)
if (ctx->pending_redirect) { if (ctx->pending_redirect) {
ctx->pending_redirect=NULL; ctx->pending_redirect=NULL;
if (glob_target->gl_pathc != 1) { if (glob_target->gl_pathc != 1) {
fprintf(stderr, "ambiguous redirect\n"); error_msg("ambiguous redirect");
return 1; return 1;
} }
} else { } else {
@ -2049,7 +2033,7 @@ static int redirect_dup_num(struct in_str *input)
} }
if (ok) return d; if (ok) return d;
fprintf(stderr, "ambiguous redirect\n"); error_msg("ambiguous redirect");
return -2; return -2;
} }
@ -2261,7 +2245,7 @@ static int handle_dollar(o_string *dest, struct p_context *ctx, struct in_str *i
case '-': case '-':
case '_': case '_':
/* still unhandled, but should be eventually */ /* still unhandled, but should be eventually */
fprintf(stderr,"unhandled syntax: $%c\n",ch); error_msg("unhandled syntax: $%c",ch);
return 1; return 1;
break; break;
default: default:
@ -2505,16 +2489,14 @@ int shell_main(int argc, char **argv)
int opt; int opt;
FILE *input; FILE *input;
struct jobset joblist_end = { NULL, NULL }; struct jobset joblist_end = { NULL, NULL };
char **e = environ;
/* (re?) initialize globals */ /* initialize globals */
ifs=NULL; if (e) {
fake_mode=0; for (; *e; e++)
interactive=0; set_local_var(*e, 2); /* without call putenv() */
close_me_head = NULL; }
job_list = &joblist_end; job_list = &joblist_end;
last_bg_pid=0;
PS2 = "> ";
__shell_local_env = 0;
last_return_code=EXIT_SUCCESS; last_return_code=EXIT_SUCCESS;
@ -2581,9 +2563,13 @@ int shell_main(int argc, char **argv)
fake_mode++; fake_mode++;
break; break;
default: default:
#ifndef BB_VER
fprintf(stderr, "Usage: sh [FILE]...\n" fprintf(stderr, "Usage: sh [FILE]...\n"
" or: sh -c command [args]...\n\n"); " or: sh -c command [args]...\n\n");
exit(EXIT_FAILURE); exit(EXIT_FAILURE);
#else
show_usage();
#endif
} }
} }
/* A shell is interactive if the `-i' flag was given, or if all of /* A shell is interactive if the `-i' flag was given, or if all of