JehanneOS/mksh
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

this is a rather stupid diff: give ktsearch/ktenter the capability to

Browse Source 
return information needed to do a real ktremove instead of the pseudo
ktdelete operation which merely unsets the DEFINED flag to mark it as
eligible for texpand garbage collection (even worse, !DEFINED entries
are still counted)
This commit is contained in:
tg
2009-08-28 19:57:43 +00:00
parent cd7f3fd836
commit 7240c843ce
9 changed files with 95 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
funcs.c
View File

@ -25,7 +25,7 @@
#include "sh.h"
__RCSID("$MirOS: src/bin/mksh/funcs.c,v 1.121 2009/08/28 18:53:58 tg Exp $");
__RCSID("$MirOS: src/bin/mksh/funcs.c,v 1.122 2009/08/28 19:57:40 tg Exp $");
#if HAVE_KILLPG
/*
@ -639,9 +639,9 @@ c_whence(const char **wp)
while ((vflag || rv == 0) && (id = *wp++) != NULL) {
tp = NULL;
if ((iam_whence || vflag) && !pflag)
tp = ktsearch(&keywords, id, hash(id));
tp = ktsearch(&keywords, id, hash(id), NULL);
if (!tp && !pflag) {
tp = ktsearch(&aliases, id, hash(id));
tp = ktsearch(&aliases, id, hash(id), NULL);
if (tp && !(tp->flag & ISSET))
tp = NULL;
}
@ -879,7 +879,7 @@ c_typeset(const char **wp)
for (i = builtin_opt.optind; wp[i]; i++) {
if (func) {
f = findfunc(wp[i], hash(wp[i]),
(fset&UCASEV_AL) ? true : false);
(fset&UCASEV_AL) ? true : false, NULL);
if (!f) {
/* AT&T ksh does ++rv: bogus */
rv = 1;
@ -1138,7 +1138,7 @@ c_alias(const char **wp)
}
h = hash(alias);
if (val == NULL && !tflag && !xflag) {
ap = ktsearch(t, alias, h);
ap = ktsearch(t, alias, h, NULL);
if (ap != NULL && (ap->flag&ISSET)) {
if (pflag)
shf_puts("alias ", shl_stdout);
@ -1154,7 +1154,7 @@ c_alias(const char **wp)
}
continue;
}
ap = ktenter(t, alias, h);
ap = ktenter(t, alias, h, NULL);
ap->type = tflag ? CTALIAS : CALIAS;
/* Are we setting the value or just some flags? */
if ((val && !tflag) || (!val && tflag && !Uflag)) {
@ -1214,7 +1214,7 @@ c_unalias(const char **wp)
wp += builtin_opt.optind;
for (; *wp != NULL; wp++) {
ap = ktsearch(t, *wp, hash(*wp));
ap = ktsearch(t, *wp, hash(*wp), NULL);
if (ap == NULL) {
rv = 1; /* POSIX */
continue;