extern void assign(List *s1, List *s2, bool stack) {
List *val = s2;
if (s1 == NULL)
rc_error("null variable name");
if (s1->n != NULL)
rc_error("multi-word variable name");
if (*s1->w == '\0')
rc_error("zero-length variable name");
if (a2u(s1->w) != -1)
rc_error("numeric variable name");
if (strchr(s1->w, '=') != NULL)
rc_error("'=' in variable name");
if (*s1->w == '*' && s1->w[1] == '\0')
val = append(varlookup("0"), s2); /* preserve $0 when * is assigned explicitly */
if (s2 != NULL || stack) {
if (dashex)
prettyprint_var(2, s1->w, val);
varassign(s1->w, val, stack);
alias(s1->w, varlookup(s1->w), stack);
} else {
if (dashex)
prettyprint_var(2, s1->w, NULL);
varrm(s1->w, stack);
}
}
static void b_whatis(char **av) {
bool ess, eff, vee, pee, bee;
bool f, found;
int i, ac, c;
List *s;
Node *n;
char *e;
for (rc_optind = ac = 0; av[ac] != NULL; ac++)
; /* count the arguments for getopt */
ess = eff = vee = pee = bee = FALSE;
while ((c = rc_getopt(ac, av, "sfvpb")) != -1)
switch (c) {
default: set(FALSE); return;
case 's': ess = TRUE; break;
case 'f': eff = TRUE; break;
case 'v': vee = TRUE; break;
case 'p': pee = TRUE; break;
case 'b': bee = TRUE; break;
}
av += rc_optind;
if (*av == NULL) {
if (vee|eff)
whatare_all_vars(eff, vee);
if (ess)
whatare_all_signals();
if (bee)
for (i = 0; i < arraysize(builtins); i++)
fprint(1, "builtin %s\n", builtins[i].name);
if (pee)
fprint(2, "whatis -p: must specify argument\n");
if (show(FALSE)) /* no options? */
whatare_all_vars(TRUE, TRUE);
set(TRUE);
return;
}
found = TRUE;
for (i = 0; av[i] != NULL; i++) {
f = FALSE;
errno = ENOENT;
if (show(vee) && (s = varlookup(av[i])) != NULL) {
f = TRUE;
prettyprint_var(1, av[i], s);
}
if (((show(ess)&&issig(av[i])) || show(eff)) && (n = fnlookup(av[i])) != NULL) {
f = TRUE;
prettyprint_fn(1, av[i], n);
} else if (show(bee) && isbuiltin(av[i]) != NULL) {
f = TRUE;
fprint(1, "builtin %s\n", av[i]);
} else if (show(pee) && (e = which(av[i], FALSE)) != NULL) {
f = TRUE;
fprint(1, "%S\n", e);
}
if (!f) {
found = FALSE;
if (errno != ENOENT)
uerror(av[i]);
else
fprint(2, "%s not found\n", av[i]);
}
}
set(found);
}
