trap.c revision da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/***********************************************************************
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* This software is part of the ast package *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Copyright (c) 1982-2007 AT&T Knowledge Ventures *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* and is licensed under the *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Common Public License, Version 1.0 *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* by AT&T Knowledge Ventures *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* A copy of the License is available at *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* http://www.opensource.org/licenses/cpl1.0.txt *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Information and Software Systems Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* AT&T Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Florham Park NJ *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* David Korn <dgk@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin***********************************************************************/
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#pragma prototyped
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * trap [-p] action sig...
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * kill [-l] [sig...]
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * kill [-s sig] pid...
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * David Korn
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * AT&T Labs
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * research!dgk
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "defs.h"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <ctype.h>
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "jobs.h"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "builtins.h"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define L_FLAG 1
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define S_FLAG 2
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic const char trapfmt[] = "trap -- %s %s\n";
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int sig_number(const char*);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void sig_list(Shell_t*,int);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint b_trap(int argc,char *argv[],void *extra)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char *arg = argv[1];
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int sig, pflag = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register Shell_t *shp = (Shell_t*)extra;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin NOT_USED(argc);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (sig = optget(argv, sh_opttrap)) switch (sig)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'p':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pflag=1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case ':':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,2, "%s", opt_info.arg);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '?':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_usage(0), "%s", opt_info.arg);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(2);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv += opt_info.index;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(error_info.errors)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_usage(2),"%s", optusage((char*)0));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(arg = *argv)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int clear;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *action = arg;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!pflag)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* first argument all digits or - means clear */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(isdigit(*arg))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin arg++;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin clear = (arg!=action && *arg==0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!clear)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ++argv;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*action=='-' && action[1]==0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin clear++;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(!argv[0])
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_exit(1),e_condition);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(arg = *argv++)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sig = sig_number(arg);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sig<0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,2,e_trap,arg);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* internal traps */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sig&SH_TRAP)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sig &= ~SH_TRAP;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sig>SH_DEBUGTRAP)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,2,e_trap,arg);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(pflag)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(arg=shp->st.trap[sig])
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfputr(sfstdout,sh_fmtq(arg),'\n');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(shp->st.trap[sig])
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin free(shp->st.trap[sig]);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shp->st.trap[sig] = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!clear && *action)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shp->st.trap[sig] = strdup(action);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sig == SH_DEBUGTRAP)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(shp->st.trap[sig])
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shp->trapnote |= SH_SIGTRAP;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shp->trapnote = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sig>shp->sigmax)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,2,e_trap,arg);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(pflag)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char **trapcom = (shp->st.otrapcom?shp->st.otrapcom:shp->st.trapcom);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(arg=trapcom[sig])
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfputr(sfstdout,arg,'\n');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(clear)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_sigclear(sig);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sig >= shp->st.trapmax)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shp->st.trapmax = sig+1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(arg=shp->st.trapcom[sig])
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin free(arg);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shp->st.trapcom[sig] = strdup(action);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_sigtrap(sig);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else /* print out current traps */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sig_list(shp,-1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint b_kill(int argc,char *argv[],void *extra)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char *signame;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int sig=SIGTERM, flag=0, n;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register Shell_t *shp = (Shell_t*)extra;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin NOT_USED(argc);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while((n = optget(argv,sh_optkill))) switch(n)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case ':':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((signame=argv[opt_info.index++]) && (sig=sig_number(signame+1))>=0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto endopts;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin opt_info.index--;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,2, "%s", opt_info.arg);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'n':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sig = (int)opt_info.num;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto endopts;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 's':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flag |= S_FLAG;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin signame = opt_info.arg;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto endopts;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'l':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flag |= L_FLAG;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '?':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_usage(2), "%s", opt_info.arg);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinendopts:
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv += opt_info.index;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*argv && strcmp(*argv,"--")==0 && strcmp(*(argv-1),"--")!=0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv++;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(error_info.errors || flag==(L_FLAG|S_FLAG) || (!(*argv) && !(flag&L_FLAG)))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_usage(2),"%s", optusage((char*)0));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* just in case we send a kill -9 $$ */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfsync(sfstderr);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(flag&L_FLAG)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(*argv))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sig_list(shp,0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else while(signame = *argv++)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(isdigit(*signame))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sig_list(shp,((int)strtol(signame, (char**)0, 10)&0177)+1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((sig=sig_number(signame))<0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shp->exitval = 2;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_exit(1),e_nosignal,signame);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfprintf(sfstdout,"%d\n",sig);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(shp->exitval);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(flag&S_FLAG)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((sig=sig_number(signame)) < 0 || sig > shp->sigmax)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_exit(1),e_nosignal,signame);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(job_walk(sfstdout,job_kill,sig,argv))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shp->exitval = 1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(shp->exitval);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * Given the name or number of a signal return the signal number
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int sig_number(const char *string)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin const Shtable_t *tp;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int n,sig=0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *last;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(isdigit(*string))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = strtol(string,&last,10);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*last)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int c;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = staktell();
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin do
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = *string++;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(islower(c))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = toupper(c);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakputc(c);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(c);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakseek(n);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(memcmp(stakptr(n),"SIG",3)==0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sig = 1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n += 3;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin tp = sh_locate(stakptr(n),(const Shtable_t*)shtab_signals,sizeof(*shtab_signals));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = tp->sh_number;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sig==1 && (n>=(SH_TRAP-1) && n < (1<<SH_SIGBITS)))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* sig prefix cannot match internal traps */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin tp = (Shtable_t*)((char*)tp + sizeof(*shtab_signals));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(strcmp(stakptr(n),tp->sh_name)==0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = tp->sh_number;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n &= (1<<SH_SIGBITS)-1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n < SH_TRAP)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n--;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(n);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * if <flag> is positive, then print signal name corresponding to <flag>
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * if <flag> is zero, then print all signal names
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * if <flag> is negative, then print all traps
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void sig_list(register Shell_t *shp,register int flag)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register const struct shtable2 *tp;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int sig = shp->sigmax+1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin const char *names[SH_TRAP];
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin const char *traps[SH_DEBUGTRAP+1];
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin tp=shtab_signals;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(flag==0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* not all signals may be defined, so initialize */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(--sig >= 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin names[sig] = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(sig=SH_DEBUGTRAP; sig>=0; sig--)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin traps[sig] = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(*tp->sh_name)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sig = tp->sh_number;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sig &= ((1<<SH_SIGBITS)-1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sig==flag)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfprintf(sfstdout,"%s\n",tp->sh_name);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(sig&SH_TRAP)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin traps[sig&~SH_TRAP] = (char*)tp->sh_name;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(sig < sizeof(names)/sizeof(char*))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin names[sig] = (char*)tp->sh_name;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin tp++;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(flag > 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfprintf(sfstdout,"%d\n",flag-1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(flag<0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* print the traps */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char *trap,*sname,**trapcom;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char name[6];
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sig = shp->st.trapmax;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* use parent traps if otrapcom is set (for $(trap) */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin trapcom = (shp->st.otrapcom?shp->st.otrapcom:shp->st.trapcom);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(--sig >= 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(trap=trapcom[sig]))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(sname=(char*)names[sig+1]))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sname = name;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sname[0] = 'S';
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sname[1] = 'I';
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sname[2] = 'G';
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sname[3] = (sig/10)+'0';
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sname[4] = (sig%10)+'0';
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfprintf(sfstdout,trapfmt,sh_fmtq(trap),sname);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(sig=SH_DEBUGTRAP; sig>=0; sig--)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(trap=shp->st.trap[sig]))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfprintf(sfstdout,trapfmt,sh_fmtq(trap),traps[sig]);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* print all the signal names */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(sig=2; sig <= shp->sigmax; sig++)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(names[sig])
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfputr(sfstdout,names[sig],'\n');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfprintf(sfstdout,"SIG%d\n",sig-1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin