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

hush: rework variable storage and environment handling.

Browse Source 
More that -100 bytes of code + memory leak plugged.
Added a testcase for it.
This commit is contained in:
Denis Vlasenko 2007-05-25 02:16:25 +00:00
parent 163a855731
commit d76c049cc4
4 changed files with 237 additions and 166 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
shell/README
View File

@ -1,5 +1,9 @@
Various bits of what is known about busybox shells, in no particular order. Various bits of what is known about busybox shells, in no particular order.
2007-05-24
hush: environment-related memory leak plugged, with net code size
decrease.
2007-05-24 2007-05-24
hush: '( echo ${name )' will show syntax error message, but prompt hush: '( echo ${name )' will show syntax error message, but prompt
doesn't return (need to press <enter>). Pressing Ctrl-C, <enter>, doesn't return (need to press <enter>). Pressing Ctrl-C, <enter>,

318
shell/hush.c
View File

@ -37,7 +37,6 @@
* across continuation lines. * across continuation lines.
* *
* Bash grammar not implemented: (how many of these were in original sh?) * Bash grammar not implemented: (how many of these were in original sh?)
* $@ (those sure look like weird quoting rules)
* $_ * $_
* ! negation operator for pipes * ! negation operator for pipes
* &> and >& redirection of stdout+stderr * &> and >& redirection of stdout+stderr
@ -279,11 +278,18 @@ struct close_me {
int fd; int fd;
}; };
struct variables { /* On program start, environ points to initial environment.
struct variables *next; * putenv adds new pointers into it, unsetenv removes them.
const char *name; * Neither of these (de)allocates the strings.
const char *value; * setenv allocates new strings in malloc space and does putenv,
smallint flg_export; * and thus setenv is unusable (leaky) for shell's purposes */
#define setenv(...) setenv_is_leaky_dont_use()
struct variable {
struct variable *next;
char *name; /* points to "name=" portion */
char *value; /* points directly after "=" */
int max_len; /* if > 0, name is part of initial env; else name is malloced */
smallint flg_export; /* putenv should be done on this var */
smallint flg_read_only; smallint flg_read_only;
}; };
@ -322,14 +328,21 @@ enum {
CHAR_SPECIAL = 3, /* example: $ */ CHAR_SPECIAL = 3, /* example: $ */
}; };
#define HUSH_VER_STR "0.02"
static const char version_str[] = "HUSH_VERSION="HUSH_VER_STR;
static const struct variable const_shell_ver = {
.next = NULL,
.name = (char*)version_str,
.value = (char*)version_str + sizeof("HUSH_VERSION=")-1,
.max_len = 1, /* 0 can provoke free(name) */
.flg_export = 1,
.flg_read_only = 1,
};
/* "Globals" within this file */ /* "Globals" within this file */
#define HUSH_VER_STR "0.02"
static const struct variables const_shell_ver = {
NULL, "HUSH_VERSION", HUSH_VER_STR, 1, 1
};
/* Sorted roughly by size (smaller offsets == smaller code) */ /* Sorted roughly by size (smaller offsets == smaller code) */
struct globals { struct globals {
#if ENABLE_HUSH_INTERACTIVE #if ENABLE_HUSH_INTERACTIVE
@ -360,8 +373,8 @@ struct globals {
struct close_me *close_me_head; struct close_me *close_me_head;
const char *cwd; const char *cwd;
unsigned last_bg_pid; unsigned last_bg_pid;
struct variables *top_vars; /* = &shell_ver (both are set in main()) */ struct variable *top_var; /* = &shell_ver (both are set in main()) */
struct variables shell_ver; /* = const_shell_ver */ struct variable shell_ver; /* = const_shell_ver */
#if ENABLE_FEATURE_SH_STANDALONE #if ENABLE_FEATURE_SH_STANDALONE
struct nofork_save_area nofork_save; struct nofork_save_area nofork_save;
#endif #endif
@ -407,7 +420,7 @@ enum { run_list_level = 0 };
#define close_me_head (G.close_me_head ) #define close_me_head (G.close_me_head )
#define cwd (G.cwd ) #define cwd (G.cwd )
#define last_bg_pid (G.last_bg_pid ) #define last_bg_pid (G.last_bg_pid )
#define top_vars (G.top_vars ) #define top_var (G.top_var )
#define shell_ver (G.shell_ver ) #define shell_ver (G.shell_ver )
#if ENABLE_FEATURE_SH_STANDALONE #if ENABLE_FEATURE_SH_STANDALONE
#define nofork_save (G.nofork_save ) #define nofork_save (G.nofork_save )
@ -541,8 +554,8 @@ static char **expand_strvec_to_strvec(char **argv);
static char *expand_strvec_to_string(char **argv); static char *expand_strvec_to_string(char **argv);
/* used for expansion of right hand of assignments */ /* used for expansion of right hand of assignments */
static char *expand_string_to_string(const char *str); static char *expand_string_to_string(const char *str);
static const char *get_local_var(const char *var); static struct variable *get_local_var(const char *var);
static int set_local_var(const char *s, int flg_export); static int set_local_var(char *s, int flg_export);
static void unset_local_var(const char *name); static void unset_local_var(const char *name);
/* 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
@ -795,7 +808,7 @@ static int builtin_exit(char **argv)
/* built-in 'export VAR=value' handler */ /* built-in 'export VAR=value' handler */
static int builtin_export(char **argv) static int builtin_export(char **argv)
{ {
int res = 0; const char *value;
char *name = argv[1]; char *name = argv[1];
if (name == NULL) { if (name == NULL) {
@ -810,36 +823,23 @@ static int builtin_export(char **argv)
return EXIT_SUCCESS; return EXIT_SUCCESS;
} }
name = xstrdup(name); value = strchr(name, '=');
{
const char *value = strchr(name, '=');
if (!value) { if (!value) {
char *tmp; /* They are exporting something without a =VALUE */
/* They are exporting something without an =VALUE */ struct variable *var;
value = get_local_var(name); var = get_local_var(name);
if (value) { if (var) {
size_t ln = strlen(name); var->flg_export = 1;
putenv(var->name);
tmp = xrealloc(name, ln+strlen(value)+2); }
sprintf(tmp+ln, "=%s", value);
name = tmp;
} else {
/* bash does not return an error when trying to export /* bash does not return an error when trying to export
* an undefined variable. Do likewise. */ * an undefined variable. Do likewise. */
res = 1; return EXIT_SUCCESS;
} }
}
} set_local_var(xstrdup(name), 1);
if (res < 0) return EXIT_SUCCESS;
bb_perror_msg("export");
else if (res == 0)
res = set_local_var(name, 1);
else
res = 0;
free(name);
return res;
} }
#if ENABLE_HUSH_JOB #if ENABLE_HUSH_JOB
@ -965,20 +965,20 @@ static int builtin_read(char **argv)
/* read string. name_len+1 chars are already used by 'name=' */ /* read string. name_len+1 chars are already used by 'name=' */
fgets(p, sizeof(string) - 1 - name_len, stdin); fgets(p, sizeof(string) - 1 - name_len, stdin);
chomp(p); chomp(p);
return set_local_var(string, 0); return set_local_var(xstrdup(string), 0);
} }
/* built-in 'set [VAR=value]' handler */ /* built-in 'set [VAR=value]' handler */
static int builtin_set(char **argv) static int builtin_set(char **argv)
{ {
char *temp = argv[1]; char *temp = argv[1];
struct variables *e; struct variable *e;
if (temp == NULL) if (temp == NULL)
for (e = top_vars; e; e = e->next) for (e = top_var; e; e = e->next)
printf("%s=%s\n", e->name, e->value); puts(e->name);
else else
set_local_var(temp, 0); set_local_var(xstrdup(temp), 0);
return EXIT_SUCCESS; return EXIT_SUCCESS;
} }
@ -1742,26 +1742,9 @@ static int run_pipe_real(struct pipe *pi)
if (i != 0 && argv[i] == NULL) { if (i != 0 && argv[i] == NULL) {
/* assignments, but no command: set the local environment */ /* assignments, but no command: set the local environment */
for (i = 0; argv[i] != NULL; i++) { for (i = 0; argv[i] != NULL; i++) {
/* Ok, this case is tricky. We have to decide if this is a debug_printf("local environment set: %s\n", argv[i]);
* local variable, or an already exported variable. If it is
* already exported, we have to export the new value. If it is
* not exported, we need only set this as a local variable.
* This junk is all to decide whether or not to export this
* variable. */
int export_me = 0;
char *name, *value;
name = xstrdup(argv[i]);
debug_printf("local environment set: %s\n", name);
value = strchr(name, '=');
if (value)
*value = '\0';
if (get_local_var(name)) {
export_me = 1;
}
free(name);
p = expand_string_to_string(argv[i]); p = expand_string_to_string(argv[i]);
set_local_var(p, export_me); set_local_var(p, 0);
free(p);
} }
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 */
} }
@ -2693,109 +2676,115 @@ static char* expand_strvec_to_string(char **argv)
} }
/* This is used to get/check local shell variables */ /* This is used to get/check local shell variables */
static const char *get_local_var(const char *s) static struct variable *get_local_var(const char *s)
{ {
struct variables *cur; struct variable *cur;
int len;
if (!s) if (!s)
return NULL; return NULL;
for (cur = top_vars; cur; cur = cur->next) { len = strlen(s);
if (strcmp(cur->name, s) == 0) for (cur = top_var; cur; cur = cur->next) {
return cur->value; if (strncmp(cur->name, s, len) == 0 && cur->name[len] == '=')
return cur;
} }
return NULL; return NULL;
} }
/* This is used to set local shell variables /* name holds "NAME=VAL" and is expected to be malloced.
flg_export == 0 if only local (not exporting) variable * We take ownership of it. */
flg_export == 1 if "new" exporting environ static int set_local_var(char *name, int flg_export)
flg_export > 1 if current startup environ (not call putenv()) */
static int set_local_var(const char *s, int flg_export)
{ {
char *name, *value; struct variable *cur;
int result = 0; char *value;
struct variables *cur; int name_len;
name = xstrdup(s);
/* Assume when we enter this function that we are already in
* NAME=VALUE format. So the first order of business is to
* split 's' on the '=' into 'name' and 'value' */
value = strchr(name, '='); value = strchr(name, '=');
/*if (value == 0 && ++value == 0) ??? -vda */ if (!value) { /* not expected to ever happen? */
if (value == NULL || value[1] == '\0') {
free(name); free(name);
return -1; return -1;
} }
*value++ = '\0';
for (cur = top_vars; cur; cur = cur->next) { name_len = value - name;
if (strcmp(cur->name, name) == 0) { cur = top_var; /* cannot be NULL (we have HUSH_VERSION and it's RO) */
if (strcmp(cur->value, value) == 0) { while (1) {
if (flg_export && !cur->flg_export) if (strncmp(cur->name, name, name_len) != 0 || cur->name[name_len] != '=') {
cur->flg_export = flg_export; if (!cur->next) {
else /* cur points to last var in linked list */
result++; break;
} else if (cur->flg_read_only) { }
cur = cur->next;
continue;
}
/* We already have a var with this name */
if (cur->flg_read_only) {
bb_error_msg("%s: readonly variable", name); bb_error_msg("%s: readonly variable", name);
result = -1; free(name);
} else { return -1;
if (flg_export > 0 || cur->flg_export > 1)
cur->flg_export = 1;
free((char*)cur->value);
cur->value = xstrdup(value);
} }
goto skip; *value = '\0';
unsetenv(name); /* just in case */
*value++ = '=';
if (strcmp(cur->value, value) == 0) {
free_and_exp:
free(name);
goto exp;
} }
if (cur->max_len >= strlen(name)) {
/* This one is from startup env, reuse space */
strcpy(cur->name, name);
goto free_and_exp;
}
/* max_len == 0 signifies "malloced" var, which we can
* (and has to) free */
if (!cur->max_len)
free(cur->name);
cur->max_len = 0;
goto set_name_and_exp;
} }
cur = xzalloc(sizeof(*cur)); /* Not found - create next variable struct */
/*cur->next = 0;*/ cur->next = xzalloc(sizeof(*cur));
cur->name = xstrdup(name); cur = cur->next;
cur->value = xstrdup(value);
cur->flg_export = flg_export; set_name_and_exp:
/*cur->flg_read_only = 0;*/ cur->name = name;
{ exp:
struct variables *bottom = top_vars; cur->value = cur->name + name_len + 1;
while (bottom->next) if (flg_export)
bottom = bottom->next; cur->flg_export = 1;
bottom->next = cur; if (cur->flg_export)
} return putenv(cur->name);
skip: return 0;
if (result == 0 && cur->flg_export == 1) {
*(value-1) = '=';
result = putenv(name);
} else {
free(name);
if (result > 0) /* equivalent to previous set */
result = 0;
}
return result;
} }
static void unset_local_var(const char *name) static void unset_local_var(const char *name)
{ {
struct variables *cur, *next; struct variable *cur;
struct variable *prev = prev; /* for gcc */
int name_len;
if (!name) if (!name)
return; return;
for (cur = top_vars; cur; cur = cur->next) { name_len = strlen(name);
if (strcmp(cur->name, name) == 0) { cur = top_var;
while (cur) {
if (strncmp(cur->name, name, name_len) == 0 && cur->name[name_len] == '=') {
if (cur->flg_read_only) { if (cur->flg_read_only) {
bb_error_msg("%s: readonly variable", name); bb_error_msg("%s: readonly variable", name);
return; return;
} }
if (cur->flg_export) /* prev is ok to use here because 1st variable, HUSH_VERSION,
* is ro, and we cannot reach this code on the 1st pass */
prev->next = cur->next;
unsetenv(cur->name); unsetenv(cur->name);
free((char*)cur->name); if (!cur->max_len)
free((char*)cur->value); free(cur->name);
next = top_vars;
while (next->next != cur)
next = next->next;
next->next = cur->next;
free(cur); free(cur);
return; return;
} }
prev = cur;
cur = cur->next;
} }
} }
@ -3265,13 +3254,10 @@ static int parse_group(o_string *dest, struct p_context *ctx,
* see the bash man page under "Parameter Expansion" */ * see the bash man page under "Parameter Expansion" */
static const char *lookup_param(const char *src) static const char *lookup_param(const char *src)
{ {
const char *p = NULL; struct variable *var = get_local_var(src);
if (src) { if (var)
p = getenv(src); return var->value;
if (!p) return NULL;
p = get_local_var(src);
}
return p;
} }
/* return code: 0 for OK, 1 for syntax error */ /* return code: 0 for OK, 1 for syntax error */
@ -3681,10 +3667,29 @@ int hush_main(int argc, char **argv)
int opt; int opt;
FILE *input; FILE *input;
char **e; char **e;
struct variable *cur_var;
PTR_TO_GLOBALS = xzalloc(sizeof(G)); PTR_TO_GLOBALS = xzalloc(sizeof(G));
top_vars = &shell_ver;
shell_ver = const_shell_ver; /* copying struct here */ shell_ver = const_shell_ver; /* copying struct here */
top_var = &shell_ver;
/* initialize our shell local variables with the values
* currently living in the environment */
e = environ;
cur_var = top_var;
if (e) while (*e) {
char *value = strchr(*e, '=');
if (value) { /* paranoia */
cur_var->next = xzalloc(sizeof(*cur_var));
cur_var = cur_var->next;
cur_var->name = *e;
cur_var->value = value + 1;
cur_var->max_len = strlen(*e);
cur_var->flg_export = 1;
}
e++;
}
putenv(shell_ver.name);
#if ENABLE_FEATURE_EDITING #if ENABLE_FEATURE_EDITING
line_input_state = new_line_input_t(FOR_SHELL); line_input_state = new_line_input_t(FOR_SHELL);
@ -3701,13 +3706,7 @@ int hush_main(int argc, char **argv)
PS2 = "> "; PS2 = "> ";
#endif #endif
/* initialize our shell local variables with the values if (EXIT_SUCCESS) /* otherwise is already done */
* currently living in the environment */
e = environ;
if (e)
while (*e)
set_local_var(*e++, 2); /* without call putenv() */
last_return_code = EXIT_SUCCESS; last_return_code = EXIT_SUCCESS;
if (argv[0] && argv[0][0] == '-') { if (argv[0] && argv[0][0] == '-') {
@ -3818,23 +3817,20 @@ int hush_main(int argc, char **argv)
input = xfopen(argv[optind], "r"); input = xfopen(argv[optind], "r");
opt = parse_and_run_file(input); opt = parse_and_run_file(input);
final_return:
#if ENABLE_FEATURE_CLEAN_UP #if ENABLE_FEATURE_CLEAN_UP
fclose(input); fclose(input);
if (cwd != bb_msg_unknown) if (cwd != bb_msg_unknown)
free((char*)cwd); free((char*)cwd);
{ cur_var = top_var->next;
struct variables *cur, *tmp; while (cur_var) {
for (cur = top_vars; cur; cur = tmp) { struct variable *tmp = cur_var;
tmp = cur->next; if (!cur_var->max_len)
if (!cur->flg_read_only) { free(cur_var->name);
free((char*)cur->name); cur_var = cur_var->next;
free((char*)cur->value); free(tmp);
free(cur);
}
}
} }
#endif #endif
final_return:
hush_exit(opt ? opt : last_return_code); hush_exit(opt ? opt : last_return_code);
} }

2
shell/hush_test/hush-z_slow/leak_var.right Normal file
View File

@ -0,0 +1,2 @@
Measuring memory leak...
vsz does not grow

69
shell/hush_test/hush-z_slow/leak_var.tests Executable file
View File

@ -0,0 +1,69 @@
pid=$$
# Warm up
unset t
t=111111111111111111111111111111111111111111111111111111111111111111111111
export t
unset t
t=111111111111111111111111111111111111111111111111111111111111111111111111
export t
unset t
t=111111111111111111111111111111111111111111111111111111111111111111111111
export t
unset t
t=111111111111111111111111111111111111111111111111111111111111111111111111
export t
unset t
t=111111111111111111111111111111111111111111111111111111111111111111111111
export t
i=1
if test $i = 1111111111111111111111111111111111111111111111; then i=2; fi
beg=`ps -o pid,vsz | grep "^ *$pid "`
echo "Measuring memory leak..."
beg=`ps -o pid,vsz | grep "^ *$pid "`
i=1
while test $i != X; do
unset t
t=111111111111111111111111111111111111111111111111111111111111111111111111
export t
unset t
t=111111111111111111111111111111111111111111111111111111111111111111111111
export t
unset t
t=111111111111111111111111111111111111111111111111111111111111111111111111
export t
unset t
t=111111111111111111111111111111111111111111111111111111111111111111111111
export t
unset t
t=111111111111111111111111111111111111111111111111111111111111111111111111
export t
i=1$i
if test $i = 1111111111111111111111111111111111111111111111; then i=2; fi
if test $i = 1111111111111111111111111111111111111111111112; then i=3; fi
if test $i = 1111111111111111111111111111111111111111111113; then i=4; fi
if test $i = 1111111111111111111111111111111111111111111114; then i=5; fi
if test $i = 1111111111111111111111111111111111111111111115; then i=6; fi
if test $i = 1111111111111111111111111111111111111111111116; then i=7; fi
if test $i = 1111111111111111111111111111111111111111111117; then i=8; fi
if test $i = 1111111111111111111111111111111111111111111118; then i=9; fi
if test $i = 1111111111111111111111111111111111111111111119; then i=a; fi
if test $i = 111111111111111111111111111111111111111111111a; then i=b; fi
if test $i = 111111111111111111111111111111111111111111111b; then i=c; fi
if test $i = 111111111111111111111111111111111111111111111c; then i=d; fi
if test $i = 111111111111111111111111111111111111111111111d; then i=e; fi
if test $i = 111111111111111111111111111111111111111111111e; then i=f; fi
if test $i = 111111111111111111111111111111111111111111111f; then i=g; fi
if test $i = 111111111111111111111111111111111111111111111g; then i=h; fi
if test $i = 111111111111111111111111111111111111111111111h; then i=i; fi
if test $i = 111111111111111111111111111111111111111111111i; then i=j; fi
if test $i = 111111111111111111111111111111111111111111111j; then i=X; fi
done
end=`ps -o pid,vsz | grep "^ *$pid "`
if test "$beg" != "$end"; then
echo "vsz grows: $beg -> $end"
else
echo "vsz does not grow"
fi