mirror/zsh
1
0
Fork 0
mirror of git://git.code.sf.net/p/zsh/code synced 2024-09-28 15:01:21 +02:00
Code

Unsetting gdbm tied variable basically works.

Browse Source 
Allows variables in nested scope.

However, explicitly untying a variable doesn't properly expose
the scope above.
This commit is contained in:
Peter Stephenson 2015-01-26 18:10:39 +00:00
parent 494c251cb0
commit 5136628599
2 changed files with 31 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ChangeLog
View File

@ -1,3 +1,9 @@
2015-01-26 Peter Stephenson <p.stephenson@samsung.com>
* 34402: Src/Modules/db_gdbm.c: make unsetting a tied gdbm
variable work and hence allow tied variables in nested scope.
Untying still doesn't uncover scope properly.
2015-01-25 Barton E. Schaefer <schaefer@zsh.org>
* 34399: Src/utils.c: fix polltty thinko from 34365

26
Src/Modules/db_gdbm.c
View File

@ -43,6 +43,9 @@ static char *backtype = "db/gdbm";
static const struct gsu_scalar gdbm_gsu =
{ gdbmgetfn, gdbmsetfn, gdbmunsetfn };
/**/
static const struct gsu_hash gdbm_hash_gsu =
{ hashgetfn, hashsetfn, gdbmhashunsetfn };
static struct builtin bintab[] = {
BUILTIN("ztie", 0, bin_ztie, 1, -1, 0, "d:f:", NULL),
@ -84,12 +87,14 @@ bin_ztie(char *nam, char **args, Options ops, UNUSED(int func))
return 1;
}
if (!(tied_param = createspecialhash(pmname, &getgdbmnode, &scangdbmkeys, 0))) {
if (!(tied_param = createspecialhash(pmname, &getgdbmnode, &scangdbmkeys,
PM_REMOVABLE))) {
zwarnnam(nam, "cannot create the requested parameter %s", pmname);
gdbm_close(dbf);
return 1;
}
tied_param->gsu.h = &gdbm_hash_gsu;
tied_param->u.hash->tmpdata = (void *)dbf;
return 0;
@ -225,6 +230,25 @@ scangdbmkeys(HashTable ht, ScanFunc func, int flags)
}
/**/
static void
gdbmhashunsetfn(Param pm, UNUSED(int exp))
{
GDBM_FILE dbf = (GDBM_FILE)(pm->u.hash->tmpdata);
if (!dbf) /* paranoia */
return;
gdbm_close(dbf);
pm->u.hash->tmpdata = NULL;
/* hash table is now normal, so proceed normally... */
pm->node.flags &= ~PM_SPECIAL;
pm->gsu.h = &stdhash_gsu;
pm->gsu.h->setfn(pm, NULL);
pm->node.flags |= PM_UNSET;
}
#else
# error no gdbm
#endif /* have gdbm */