From c1e47cb71f9f974eba00e780746e092296ceb958 Mon Sep 17 00:00:00 2001 From: Peter Stephenson Date: Tue, 20 Apr 2004 12:57:27 +0000 Subject: 19801: implement autoloading of trap functions --- Src/builtin.c | 24 +++++++++++++++++++++--- 1 file changed, 21 insertions(+), 3 deletions(-) (limited to 'Src') diff --git a/Src/builtin.c b/Src/builtin.c index 6f443851a..010c8c1f3 100644 --- a/Src/builtin.c +++ b/Src/builtin.c @@ -2508,14 +2508,32 @@ bin_functions(char *name, char **argv, Options ops, int func) /* no flags, so just print */ shfunctab->printnode((HashNode) shf, pflags); } else if (on & PM_UNDEFINED) { + int signum, ok = 1; + /* Add a new undefined (autoloaded) function to the * * hash table with the corresponding flags set. */ shf = (Shfunc) zshcalloc(sizeof *shf); shf->flags = on; shf->funcdef = mkautofn(shf); - shfunctab->addnode(shfunctab, ztrdup(*argv), shf); - if (OPT_ISSET(ops,'X') && eval_autoload(shf, shf->nam, ops, func)) - returnval = 1; + + if (!strncmp(*argv, "TRAP", 4) && + (signum = getsignum(*argv + 4)) != -1) { + if (settrap(signum, shf->funcdef)) { + freeeprog(shf->funcdef); + zfree(shf, sizeof(*shf)); + returnval = 1; + ok = 0; + } + else + sigtrapped[signum] |= ZSIG_FUNC; + } + + if (ok) { + shfunctab->addnode(shfunctab, ztrdup(*argv), shf); + if (OPT_ISSET(ops,'X') && + eval_autoload(shf, shf->nam, ops, func)) + returnval = 1; + } } else returnval = 1; } -- cgit 1.4.1