jobs.c revision 5155f1c7438ef540d7b25eb70aa1639579795b07
15155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* $OpenBSD: jobs.c,v 1.38 2009/12/12 04:28:44 deraadt Exp $ */ 25155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 35155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/*- 45155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * Copyright (c) 2003, 2004, 2005, 2006, 2007, 2008, 2009 55155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * Thorsten Glaser <tg@mirbsd.org> 65155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * 75155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * Provided that these terms and disclaimer and all copyright notices 85155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * are retained or reproduced in an accompanying document, permission 95155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * is granted to deal in this work without restriction, including un- 105155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * limited rights to use, publicly perform, distribute, sell, modify, 115155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * merge, give away, or sublicence. 125155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * 135155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * This work is provided "AS IS" and WITHOUT WARRANTY of any kind, to 145155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * the utmost extent permitted by applicable law, neither express nor 155155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * implied; without malicious intent or gross negligence. In no event 165155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * may a licensor, author or contributor be held liable for indirect, 175155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * direct, other damage, loss, or other issues arising in any way out 185155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * of dealing in the work, even if advised of the possibility of such 195155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * damage or existence of a defect, except proven that it results out 205155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * of said person's immediate fault when using the work as intended. 215155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 225155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 235155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#include "sh.h" 245155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 255155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru__RCSID("$MirOS: src/bin/mksh/jobs.c,v 1.69 2010/07/04 17:33:54 tg Exp $"); 265155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 275155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#if HAVE_KILLPG 285155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define mksh_killpg killpg 295155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#else 305155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* cross fingers and hope kill is killpg-endowed */ 315155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define mksh_killpg(p,s) kill(-(p), (s)) 325155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#endif 335155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 345155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* Order important! */ 355155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define PRUNNING 0 365155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define PEXITED 1 375155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define PSIGNALLED 2 385155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define PSTOPPED 3 395155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 405155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querutypedef struct proc Proc; 415155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustruct proc { 425155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Proc *next; /* next process in pipeline (if any) */ 435155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru pid_t pid; /* process id */ 445155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int state; 455155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int status; /* wait status */ 465155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru char command[48]; /* process command string */ 475155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru}; 485155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 495155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* Notify/print flag - j_print() argument */ 505155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define JP_NONE 0 /* don't print anything */ 515155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define JP_SHORT 1 /* print signals processes were killed by */ 525155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define JP_MEDIUM 2 /* print [job-num] -/+ command */ 535155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define JP_LONG 3 /* print [job-num] -/+ pid command */ 545155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define JP_PGRP 4 /* print pgrp */ 555155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 565155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* put_job() flags */ 575155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define PJ_ON_FRONT 0 /* at very front */ 585155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define PJ_PAST_STOPPED 1 /* just past any stopped jobs */ 595155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 605155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* Job.flags values */ 615155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define JF_STARTED 0x001 /* set when all processes in job are started */ 625155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define JF_WAITING 0x002 /* set if j_waitj() is waiting on job */ 635155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define JF_W_ASYNCNOTIFY 0x004 /* set if waiting and async notification ok */ 645155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define JF_XXCOM 0x008 /* set for $(command) jobs */ 655155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define JF_FG 0x010 /* running in foreground (also has tty pgrp) */ 665155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define JF_SAVEDTTY 0x020 /* j->ttystate is valid */ 675155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define JF_CHANGED 0x040 /* process has changed state */ 685155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define JF_KNOWN 0x080 /* $! referenced */ 695155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define JF_ZOMBIE 0x100 /* known, unwaited process */ 705155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define JF_REMOVE 0x200 /* flagged for removal (j_jobs()/j_noityf()) */ 715155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define JF_USETTYMODE 0x400 /* tty mode saved if process exits normally */ 725155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define JF_SAVEDTTYPGRP 0x800 /* j->saved_ttypgrp is valid */ 735155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 745155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querutypedef struct job Job; 755155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustruct job { 765155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Job *next; /* next job in list */ 775155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Proc *proc_list; /* process list */ 785155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Proc *last_proc; /* last process in list */ 795155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru struct timeval systime; /* system time used by job */ 805155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru struct timeval usrtime; /* user time used by job */ 815155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru pid_t pgrp; /* process group of job */ 825155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru pid_t ppid; /* pid of process that forked job */ 835155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int job; /* job number: %n */ 845155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int flags; /* see JF_* */ 855155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru volatile int state; /* job state */ 865155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int status; /* exit status of last process */ 875155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int32_t age; /* number of jobs started */ 885155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Coproc_id coproc_id; /* 0 or id of coprocess output pipe */ 895155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#ifndef MKSH_UNEMPLOYED 905155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru struct termios ttystate;/* saved tty state for stopped jobs */ 915155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru pid_t saved_ttypgrp; /* saved tty process group for stopped jobs */ 925155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#endif 935155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru}; 945155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 955155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* Flags for j_waitj() */ 965155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define JW_NONE 0x00 975155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define JW_INTERRUPT 0x01 /* ^C will stop the wait */ 985155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define JW_ASYNCNOTIFY 0x02 /* asynchronous notification during wait ok */ 995155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define JW_STOPPEDWAIT 0x04 /* wait even if job stopped */ 1005155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 1015155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* Error codes for j_lookup() */ 1025155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define JL_OK 0 1035155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define JL_NOSUCH 1 /* no such job */ 1045155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define JL_AMBIG 2 /* %foo or %?foo is ambiguous */ 1055155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define JL_INVALID 3 /* non-pid, non-% job id */ 1065155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 1075155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic const char *const lookup_msgs[] = { 1085155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru null, 1095155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru "no such job", 1105155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru "ambiguous", 1115155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru "argument must be %job or process id", 1125155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru NULL 1135155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru}; 1145155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 1155155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic Job *job_list; /* job list */ 1165155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic Job *last_job; 1175155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic Job *async_job; 1185155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic pid_t async_pid; 1195155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 1205155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic int nzombie; /* # of zombies owned by this process */ 1215155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic int32_t njobs; /* # of jobs started */ 1225155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 1235155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#ifndef CHILD_MAX 1245155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#define CHILD_MAX 25 1255155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#endif 1265155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 1275155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* held_sigchld is set if sigchld occurs before a job is completely started */ 1285155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic volatile sig_atomic_t held_sigchld; 1295155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 1305155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#ifndef MKSH_UNEMPLOYED 1315155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic struct shf *shl_j; 1325155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic bool ttypgrp_ok; /* set if can use tty pgrps */ 1335155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic pid_t restore_ttypgrp = -1; 1345155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic int const tt_sigs[] = { SIGTSTP, SIGTTIN, SIGTTOU }; 1355155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#endif 1365155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 1375155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic void j_set_async(Job *); 1385155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic void j_startjob(Job *); 1395155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic int j_waitj(Job *, int, const char *); 1405155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic void j_sigchld(int); 1415155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic void j_print(Job *, int, struct shf *); 1425155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic Job *j_lookup(const char *, int *); 1435155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic Job *new_job(void); 1445155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic Proc *new_proc(void); 1455155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic void check_job(Job *); 1465155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic void put_job(Job *, int); 1475155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic void remove_job(Job *, const char *); 1485155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic int kill_job(Job *, int); 1495155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 1505155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* initialise job control */ 1515155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruvoid 1525155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruj_init(void) 1535155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru{ 1545155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#ifndef MKSH_UNEMPLOYED 1555155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru bool mflagset = Flag(FMONITOR) != 127; 1565155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 1575155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Flag(FMONITOR) = 0; 1585155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#endif 1595155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 1605155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru (void)sigemptyset(&sm_default); 1615155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_SETMASK, &sm_default, NULL); 1625155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 1635155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru (void)sigemptyset(&sm_sigchld); 1645155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru (void)sigaddset(&sm_sigchld, SIGCHLD); 1655155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 1665155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru setsig(&sigtraps[SIGCHLD], j_sigchld, 1675155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru SS_RESTORE_ORIG|SS_FORCE|SS_SHTRAP); 1685155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 1695155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#ifndef MKSH_UNEMPLOYED 1705155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (!mflagset && Flag(FTALKING)) 1715155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Flag(FMONITOR) = 1; 1725155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 1735155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* 1745155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * shl_j is used to do asynchronous notification (used in 1755155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * an interrupt handler, so need a distinct shf) 1765155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 1775155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru shl_j = shf_fdopen(2, SHF_WR, NULL); 1785155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 1795155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (Flag(FMONITOR) || Flag(FTALKING)) { 1805155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int i; 1815155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 1825155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* 1835155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * the TF_SHELL_USES test is a kludge that lets us know if 1845155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * if the signals have been changed by the shell. 1855155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 1865155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (i = NELEM(tt_sigs); --i >= 0; ) { 1875155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigtraps[tt_sigs[i]].flags |= TF_SHELL_USES; 1885155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* j_change() sets this to SS_RESTORE_DFL if FMONITOR */ 1895155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru setsig(&sigtraps[tt_sigs[i]], SIG_IGN, 1905155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru SS_RESTORE_IGN|SS_FORCE); 1915155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 1925155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 1935155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 1945155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* j_change() calls tty_init() */ 1955155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (Flag(FMONITOR)) 1965155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j_change(); 1975155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru else 1985155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#endif 1995155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (Flag(FTALKING)) 2005155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru tty_init(true, true); 2015155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru} 2025155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 2035155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* job cleanup before shell exit */ 2045155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruvoid 2055155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruj_exit(void) 2065155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru{ 2075155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* kill stopped, and possibly running, jobs */ 2085155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Job *j; 2095155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int killed = 0; 2105155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 2115155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (j = job_list; j != NULL; j = j->next) { 2125155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->ppid == procpid && 2135155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru (j->state == PSTOPPED || 2145155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru (j->state == PRUNNING && 2155155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru ((j->flags & JF_FG) || 2165155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru (Flag(FLOGIN) && !Flag(FNOHUP) && procpid == kshpid))))) { 2175155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru killed = 1; 2185155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->pgrp == 0) 2195155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru kill_job(j, SIGHUP); 2205155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru else 2215155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru mksh_killpg(j->pgrp, SIGHUP); 2225155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#ifndef MKSH_UNEMPLOYED 2235155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->state == PSTOPPED) { 2245155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->pgrp == 0) 2255155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru kill_job(j, SIGCONT); 2265155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru else 2275155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru mksh_killpg(j->pgrp, SIGCONT); 2285155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 2295155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#endif 2305155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 2315155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 2325155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (killed) 2335155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sleep(1); 2345155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j_notify(); 2355155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 2365155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#ifndef MKSH_UNEMPLOYED 2375155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (kshpid == procpid && restore_ttypgrp >= 0) { 2385155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* 2395155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * Need to restore the tty pgrp to what it was when the 2405155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * shell started up, so that the process that started us 2415155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * will be able to access the tty when we are done. 2425155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * Also need to restore our process group in case we are 2435155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * about to do an exec so that both our parent and the 2445155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * process we are to become will be able to access the tty. 2455155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 2465155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru tcsetpgrp(tty_fd, restore_ttypgrp); 2475155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru setpgid(0, restore_ttypgrp); 2485155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 2495155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (Flag(FMONITOR)) { 2505155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Flag(FMONITOR) = 0; 2515155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j_change(); 2525155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 2535155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#endif 2545155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru} 2555155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 2565155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#ifndef MKSH_UNEMPLOYED 2575155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* turn job control on or off according to Flag(FMONITOR) */ 2585155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruvoid 2595155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruj_change(void) 2605155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru{ 2615155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int i; 2625155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 2635155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (Flag(FMONITOR)) { 2645155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru bool use_tty = Flag(FTALKING); 2655155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 2665155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* Don't call tcgetattr() 'til we own the tty process group */ 2675155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (use_tty) 2685155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru tty_init(false, true); 2695155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 2705155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* no controlling tty, no SIGT* */ 2715155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if ((ttypgrp_ok = use_tty && tty_fd >= 0 && tty_devtty)) { 2725155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru setsig(&sigtraps[SIGTTIN], SIG_DFL, 2735155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru SS_RESTORE_ORIG|SS_FORCE); 2745155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* wait to be given tty (POSIX.1, B.2, job control) */ 2755155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru while (1) { 2765155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru pid_t ttypgrp; 2775155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 2785155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if ((ttypgrp = tcgetpgrp(tty_fd)) < 0) { 2795155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru warningf(false, 2805155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru "j_init: tcgetpgrp() failed: %s", 2815155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru strerror(errno)); 2825155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru ttypgrp_ok = false; 2835155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru break; 2845155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 2855155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (ttypgrp == kshpgrp) 2865155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru break; 2875155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru kill(0, SIGTTIN); 2885155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 2895155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 2905155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (i = NELEM(tt_sigs); --i >= 0; ) 2915155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru setsig(&sigtraps[tt_sigs[i]], SIG_IGN, 2925155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru SS_RESTORE_DFL|SS_FORCE); 2935155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (ttypgrp_ok && kshpgrp != kshpid) { 2945155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (setpgid(0, kshpid) < 0) { 2955155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru warningf(false, 2965155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru "j_init: setpgid() failed: %s", 2975155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru strerror(errno)); 2985155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru ttypgrp_ok = false; 2995155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } else { 3005155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (tcsetpgrp(tty_fd, kshpid) < 0) { 3015155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru warningf(false, 3025155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru "j_init: tcsetpgrp() failed: %s", 3035155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru strerror(errno)); 3045155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru ttypgrp_ok = false; 3055155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } else 3065155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru restore_ttypgrp = kshpgrp; 3075155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru kshpgrp = kshpid; 3085155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 3095155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 3105155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (use_tty && !ttypgrp_ok) 3115155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru warningf(false, "warning: won't have full job control"); 3125155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (tty_fd >= 0) 3135155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru tcgetattr(tty_fd, &tty_state); 3145155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } else { 3155155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru ttypgrp_ok = false; 3165155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (Flag(FTALKING)) 3175155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (i = NELEM(tt_sigs); --i >= 0; ) 3185155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru setsig(&sigtraps[tt_sigs[i]], SIG_IGN, 3195155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru SS_RESTORE_IGN|SS_FORCE); 3205155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru else 3215155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (i = NELEM(tt_sigs); --i >= 0; ) { 3225155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (sigtraps[tt_sigs[i]].flags & 3235155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru (TF_ORIG_IGN | TF_ORIG_DFL)) 3245155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru setsig(&sigtraps[tt_sigs[i]], 3255155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru (sigtraps[tt_sigs[i]].flags & TF_ORIG_IGN) ? 3265155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru SIG_IGN : SIG_DFL, 3275155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru SS_RESTORE_ORIG|SS_FORCE); 3285155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 3295155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (!Flag(FTALKING)) 3305155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru tty_close(); 3315155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 3325155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru} 3335155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#endif 3345155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 3355155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* execute tree in child subprocess */ 3365155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruint 3375155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruexchild(struct op *t, int flags, 3385155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru volatile int *xerrok, 3395155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* used if XPCLOSE or XCCLOSE */ int close_fd) 3405155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru{ 3415155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru static Proc *last_proc; /* for pipelines */ 3425155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 3435155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int rv = 0, forksleep; 3445155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigset_t omask; 3455155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru struct { 3465155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Proc *p; 3475155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Job *j; 3485155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru pid_t cldpid; 3495155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } pi; 3505155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 3515155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (flags & XEXEC) 3525155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* 3535155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * Clear XFORK|XPCLOSE|XCCLOSE|XCOPROC|XPIPEO|XPIPEI|XXCOM|XBGND 3545155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * (also done in another execute() below) 3555155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 3565155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (execute(t, flags & (XEXEC | XERROK), xerrok)); 3575155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 3585155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* no SIGCHLDs while messing with job and process lists */ 3595155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_BLOCK, &sm_sigchld, &omask); 3605155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 3615155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru pi.p = new_proc(); 3625155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru pi.p->next = NULL; 3635155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru pi.p->state = PRUNNING; 3645155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru pi.p->status = 0; 3655155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru pi.p->pid = 0; 3665155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 3675155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* link process into jobs list */ 3685155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (flags & XPIPEI) { 3695155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* continuing with a pipe */ 3705155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (!last_job) 3715155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru internal_errorf( 3725155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru "exchild: XPIPEI and no last_job - pid %d", 3735155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru (int)procpid); 3745155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru pi.j = last_job; 3755155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (last_proc) 3765155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru last_proc->next = pi.p; 3775155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru last_proc = pi.p; 3785155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } else { 3795155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru pi.j = new_job(); /* fills in pi.j->job */ 3805155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* 3815155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * we don't consider XXCOMs foreground since they don't get 3825155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * tty process group and we don't save or restore tty modes. 3835155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 3845155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru pi.j->flags = (flags & XXCOM) ? JF_XXCOM : 3855155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru ((flags & XBGND) ? 0 : (JF_FG|JF_USETTYMODE)); 3865155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru timerclear(&pi.j->usrtime); 3875155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru timerclear(&pi.j->systime); 3885155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru pi.j->state = PRUNNING; 3895155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru pi.j->pgrp = 0; 3905155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru pi.j->ppid = procpid; 3915155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru pi.j->age = ++njobs; 3925155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru pi.j->proc_list = pi.p; 3935155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru pi.j->coproc_id = 0; 3945155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru last_job = pi.j; 3955155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru last_proc = pi.p; 3965155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru put_job(pi.j, PJ_PAST_STOPPED); 3975155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 3985155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 3995155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru snptreef(pi.p->command, sizeof(pi.p->command), "%T", t); 4005155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 4015155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* create child process */ 4025155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru forksleep = 1; 4035155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru while ((pi.cldpid = fork()) < 0 && errno == EAGAIN && forksleep < 32) { 4045155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (intrsig) /* allow user to ^C out... */ 4055155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru break; 4065155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sleep(forksleep); 4075155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru forksleep <<= 1; 4085155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 4095155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (pi.cldpid < 0) { 4105155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru kill_job(pi.j, SIGKILL); 4115155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru remove_job(pi.j, "fork failed"); 4125155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_SETMASK, &omask, NULL); 4135155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru errorf("cannot fork - try again"); 4145155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 4155155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru pi.p->pid = pi.cldpid ? pi.cldpid : (procpid = getpid()); 4165155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 4175155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* 4185155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * ensure next child gets a (slightly) different $RANDOM sequence 4195155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * from its parent process and other child processes 4205155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 4215155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru change_random(&pi, sizeof(pi)); 4225155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 4235155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#ifndef MKSH_UNEMPLOYED 4245155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* job control set up */ 4255155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (Flag(FMONITOR) && !(flags&XXCOM)) { 4265155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int dotty = 0; 4275155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (pi.j->pgrp == 0) { /* First process */ 4285155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru pi.j->pgrp = pi.p->pid; 4295155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru dotty = 1; 4305155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 4315155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 4325155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* set pgrp in both parent and child to deal with race 4335155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * condition 4345155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 4355155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru setpgid(pi.p->pid, pi.j->pgrp); 4365155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (ttypgrp_ok && dotty && !(flags & XBGND)) 4375155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru tcsetpgrp(tty_fd, pi.j->pgrp); 4385155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 4395155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#endif 4405155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 4415155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* used to close pipe input fd */ 4425155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (close_fd >= 0 && (((flags & XPCLOSE) && pi.cldpid) || 4435155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru ((flags & XCCLOSE) && !pi.cldpid))) 4445155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru close(close_fd); 4455155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (!pi.cldpid) { 4465155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* child */ 4475155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 4485155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* Do this before restoring signal */ 4495155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (flags & XCOPROC) 4505155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru coproc_cleanup(false); 4515155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_SETMASK, &omask, NULL); 4525155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru cleanup_parents_env(); 4535155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#ifndef MKSH_UNEMPLOYED 4545155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* If FMONITOR or FTALKING is set, these signals are ignored, 4555155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * if neither FMONITOR nor FTALKING are set, the signals have 4565155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * their inherited values. 4575155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 4585155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (Flag(FMONITOR) && !(flags & XXCOM)) { 4595155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (forksleep = NELEM(tt_sigs); --forksleep >= 0; ) 4605155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru setsig(&sigtraps[tt_sigs[forksleep]], SIG_DFL, 4615155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru SS_RESTORE_DFL|SS_FORCE); 4625155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 4635155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#endif 4645155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#if HAVE_NICE 4655155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (Flag(FBGNICE) && (flags & XBGND)) 4665155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru (void)nice(4); 4675155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#endif 4685155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if ((flags & XBGND) 4695155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#ifndef MKSH_UNEMPLOYED 4705155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru && !Flag(FMONITOR) 4715155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#endif 4725155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru ) { 4735155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru setsig(&sigtraps[SIGINT], SIG_IGN, 4745155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru SS_RESTORE_IGN|SS_FORCE); 4755155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru setsig(&sigtraps[SIGQUIT], SIG_IGN, 4765155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru SS_RESTORE_IGN|SS_FORCE); 4775155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if ((!(flags & (XPIPEI | XCOPROC))) && 4785155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru ((forksleep = open("/dev/null", 0)) > 0)) { 4795155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru (void)ksh_dup2(forksleep, 0, true); 4805155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru close(forksleep); 4815155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 4825155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 4835155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru remove_job(pi.j, "child"); /* in case of $(jobs) command */ 4845155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru nzombie = 0; 4855155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#ifndef MKSH_UNEMPLOYED 4865155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru ttypgrp_ok = false; 4875155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Flag(FMONITOR) = 0; 4885155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#endif 4895155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Flag(FTALKING) = 0; 4905155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru tty_close(); 4915155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru cleartraps(); 4925155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* no return */ 4935155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru execute(t, (flags & XERROK) | XEXEC, NULL); 4945155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#ifndef MKSH_SMALL 4955155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (t->type == TPIPE) 4965155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru unwind(LLEAVE); 4975155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru internal_warningf("exchild: execute() returned"); 4985155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru fptreef(shl_out, 2, "exchild: tried to execute {\n%T\n}\n", t); 4995155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru shf_flush(shl_out); 5005155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#endif 5015155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru unwind(LLEAVE); 5025155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* NOTREACHED */ 5035155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 5045155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 5055155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* shell (parent) stuff */ 5065155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (!(flags & XPIPEO)) { /* last process in a job */ 5075155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j_startjob(pi.j); 5085155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (flags & XCOPROC) { 5095155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru pi.j->coproc_id = coproc.id; 5105155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* n jobs using co-process output */ 5115155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru coproc.njobs++; 5125155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* j using co-process input */ 5135155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru coproc.job = (void *)pi.j; 5145155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 5155155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (flags & XBGND) { 5165155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j_set_async(pi.j); 5175155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (Flag(FTALKING)) { 5185155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru shf_fprintf(shl_out, "[%d]", pi.j->job); 5195155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (pi.p = pi.j->proc_list; pi.p; 5205155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru pi.p = pi.p->next) 5215155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru shf_fprintf(shl_out, " %d", 5225155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru (int)pi.p->pid); 5235155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru shf_putchar('\n', shl_out); 5245155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru shf_flush(shl_out); 5255155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 5265155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } else 5275155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru rv = j_waitj(pi.j, JW_NONE, "jw:last proc"); 5285155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 5295155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 5305155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_SETMASK, &omask, NULL); 5315155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 5325155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (rv); 5335155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru} 5345155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 5355155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* start the last job: only used for $(command) jobs */ 5365155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruvoid 5375155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustartlast(void) 5385155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru{ 5395155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigset_t omask; 5405155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 5415155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_BLOCK, &sm_sigchld, &omask); 5425155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 5435155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (last_job) { /* no need to report error - waitlast() will do it */ 5445155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* ensure it isn't removed by check_job() */ 5455155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru last_job->flags |= JF_WAITING; 5465155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j_startjob(last_job); 5475155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 5485155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_SETMASK, &omask, NULL); 5495155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru} 5505155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 5515155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* wait for last job: only used for $(command) jobs */ 5525155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruint 5535155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruwaitlast(void) 5545155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru{ 5555155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int rv; 5565155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Job *j; 5575155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigset_t omask; 5585155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 5595155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_BLOCK, &sm_sigchld, &omask); 5605155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 5615155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j = last_job; 5625155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (!j || !(j->flags & JF_STARTED)) { 5635155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (!j) 5645155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru warningf(true, "waitlast: no last job"); 5655155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru else 5665155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru internal_warningf("waitlast: not started"); 5675155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_SETMASK, &omask, NULL); 5685155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (125); /* not so arbitrary, non-zero value */ 5695155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 5705155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 5715155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru rv = j_waitj(j, JW_NONE, "jw:waitlast"); 5725155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 5735155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_SETMASK, &omask, NULL); 5745155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 5755155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (rv); 5765155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru} 5775155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 5785155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* wait for child, interruptable. */ 5795155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruint 5805155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruwaitfor(const char *cp, int *sigp) 5815155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru{ 5825155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int rv; 5835155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Job *j; 5845155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int ecode; 5855155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int flags = JW_INTERRUPT|JW_ASYNCNOTIFY; 5865155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigset_t omask; 5875155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 5885155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_BLOCK, &sm_sigchld, &omask); 5895155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 5905155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru *sigp = 0; 5915155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 5925155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (cp == NULL) { 5935155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* 5945155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * wait for an unspecified job - always returns 0, so 5955155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * don't have to worry about exited/signaled jobs 5965155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 5975155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (j = job_list; j; j = j->next) 5985155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* AT&T ksh will wait for stopped jobs - we don't */ 5995155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->ppid == procpid && j->state == PRUNNING) 6005155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru break; 6015155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (!j) { 6025155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_SETMASK, &omask, NULL); 6035155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (-1); 6045155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 6055155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } else if ((j = j_lookup(cp, &ecode))) { 6065155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* don't report normal job completion */ 6075155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru flags &= ~JW_ASYNCNOTIFY; 6085155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->ppid != procpid) { 6095155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_SETMASK, &omask, NULL); 6105155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (-1); 6115155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 6125155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } else { 6135155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_SETMASK, &omask, NULL); 6145155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (ecode != JL_NOSUCH) 6155155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru bi_errorf("%s: %s", cp, lookup_msgs[ecode]); 6165155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (-1); 6175155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 6185155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 6195155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* AT&T ksh will wait for stopped jobs - we don't */ 6205155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru rv = j_waitj(j, flags, "jw:waitfor"); 6215155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 6225155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_SETMASK, &omask, NULL); 6235155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 6245155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (rv < 0) /* we were interrupted */ 6255155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru *sigp = 128 + -rv; 6265155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 6275155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (rv); 6285155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru} 6295155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 6305155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* kill (built-in) a job */ 6315155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruint 6325155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruj_kill(const char *cp, int sig) 6335155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru{ 6345155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Job *j; 6355155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int rv = 0; 6365155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int ecode; 6375155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigset_t omask; 6385155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 6395155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_BLOCK, &sm_sigchld, &omask); 6405155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 6415155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if ((j = j_lookup(cp, &ecode)) == NULL) { 6425155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_SETMASK, &omask, NULL); 6435155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru bi_errorf("%s: %s", cp, lookup_msgs[ecode]); 6445155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (1); 6455155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 6465155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 6475155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->pgrp == 0) { /* started when !Flag(FMONITOR) */ 6485155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (kill_job(j, sig) < 0) { 6495155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru bi_errorf("%s: %s", cp, strerror(errno)); 6505155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru rv = 1; 6515155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 6525155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } else { 6535155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#ifndef MKSH_UNEMPLOYED 6545155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->state == PSTOPPED && (sig == SIGTERM || sig == SIGHUP)) 6555155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru mksh_killpg(j->pgrp, SIGCONT); 6565155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#endif 6575155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (mksh_killpg(j->pgrp, sig) < 0) { 6585155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru bi_errorf("%s: %s", cp, strerror(errno)); 6595155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru rv = 1; 6605155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 6615155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 6625155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 6635155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_SETMASK, &omask, NULL); 6645155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 6655155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (rv); 6665155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru} 6675155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 6685155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#ifndef MKSH_UNEMPLOYED 6695155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* fg and bg built-ins: called only if Flag(FMONITOR) set */ 6705155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruint 6715155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruj_resume(const char *cp, int bg) 6725155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru{ 6735155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Job *j; 6745155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Proc *p; 6755155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int ecode; 6765155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int running; 6775155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int rv = 0; 6785155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigset_t omask; 6795155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 6805155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_BLOCK, &sm_sigchld, &omask); 6815155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 6825155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if ((j = j_lookup(cp, &ecode)) == NULL) { 6835155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_SETMASK, &omask, NULL); 6845155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru bi_errorf("%s: %s", cp, lookup_msgs[ecode]); 6855155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (1); 6865155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 6875155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 6885155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->pgrp == 0) { 6895155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_SETMASK, &omask, NULL); 6905155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru bi_errorf("job not job-controlled"); 6915155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (1); 6925155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 6935155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 6945155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (bg) 6955155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru shprintf("[%d] ", j->job); 6965155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 6975155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru running = 0; 6985155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (p = j->proc_list; p != NULL; p = p->next) { 6995155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (p->state == PSTOPPED) { 7005155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru p->state = PRUNNING; 7015155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru p->status = 0; 7025155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru running = 1; 7035155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 7045155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru shf_puts(p->command, shl_stdout); 7055155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (p->next) 7065155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru shf_puts("| ", shl_stdout); 7075155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 7085155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru shf_putc('\n', shl_stdout); 7095155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru shf_flush(shl_stdout); 7105155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (running) 7115155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->state = PRUNNING; 7125155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 7135155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru put_job(j, PJ_PAST_STOPPED); 7145155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (bg) 7155155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j_set_async(j); 7165155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru else { 7175155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* attach tty to job */ 7185155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->state == PRUNNING) { 7195155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (ttypgrp_ok && (j->flags & JF_SAVEDTTY)) 7205155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru tcsetattr(tty_fd, TCSADRAIN, &j->ttystate); 7215155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* See comment in j_waitj regarding saved_ttypgrp. */ 7225155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (ttypgrp_ok && 7235155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru tcsetpgrp(tty_fd, (j->flags & JF_SAVEDTTYPGRP) ? 7245155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->saved_ttypgrp : j->pgrp) < 0) { 7255155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru rv = errno; 7265155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->flags & JF_SAVEDTTY) 7275155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru tcsetattr(tty_fd, TCSADRAIN, &tty_state); 7285155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_SETMASK, &omask, 7295155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru NULL); 7305155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru bi_errorf("1st tcsetpgrp(%d, %d) failed: %s", 7315155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru tty_fd, 7325155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru (int)((j->flags & JF_SAVEDTTYPGRP) ? 7335155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->saved_ttypgrp : j->pgrp), 7345155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru strerror(rv)); 7355155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (1); 7365155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 7375155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 7385155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->flags |= JF_FG; 7395155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->flags &= ~JF_KNOWN; 7405155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j == async_job) 7415155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru async_job = NULL; 7425155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 7435155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 7445155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->state == PRUNNING && mksh_killpg(j->pgrp, SIGCONT) < 0) { 7455155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int err = errno; 7465155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 7475155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (!bg) { 7485155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->flags &= ~JF_FG; 7495155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (ttypgrp_ok && (j->flags & JF_SAVEDTTY)) 7505155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru tcsetattr(tty_fd, TCSADRAIN, &tty_state); 7515155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (ttypgrp_ok && tcsetpgrp(tty_fd, kshpgrp) < 0) 7525155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru warningf(true, 7535155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru "fg: 2nd tcsetpgrp(%d, %ld) failed: %s", 7545155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru tty_fd, (long)kshpgrp, strerror(errno)); 7555155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 7565155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_SETMASK, &omask, NULL); 7575155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru bi_errorf("cannot continue job %s: %s", 7585155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru cp, strerror(err)); 7595155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (1); 7605155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 7615155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (!bg) { 7625155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (ttypgrp_ok) { 7635155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->flags &= ~(JF_SAVEDTTY | JF_SAVEDTTYPGRP); 7645155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 7655155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru rv = j_waitj(j, JW_NONE, "jw:resume"); 7665155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 7675155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_SETMASK, &omask, NULL); 7685155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (rv); 7695155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru} 7705155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#endif 7715155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 7725155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* are there any running or stopped jobs ? */ 7735155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruint 7745155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruj_stopped_running(void) 7755155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru{ 7765155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Job *j; 7775155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int which = 0; 7785155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 7795155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (j = job_list; j != NULL; j = j->next) { 7805155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#ifndef MKSH_UNEMPLOYED 7815155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->ppid == procpid && j->state == PSTOPPED) 7825155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru which |= 1; 7835155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#endif 7845155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (Flag(FLOGIN) && !Flag(FNOHUP) && procpid == kshpid && 7855155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->ppid == procpid && j->state == PRUNNING) 7865155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru which |= 2; 7875155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 7885155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (which) { 7895155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru shellf("You have %s%s%s jobs\n", 7905155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru which & 1 ? "stopped" : "", 7915155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru which == 3 ? " and " : "", 7925155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru which & 2 ? "running" : ""); 7935155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (1); 7945155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 7955155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 7965155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (0); 7975155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru} 7985155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 7995155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruint 8005155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruj_njobs(void) 8015155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru{ 8025155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Job *j; 8035155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int nj = 0; 8045155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigset_t omask; 8055155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 8065155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_BLOCK, &sm_sigchld, &omask); 8075155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (j = job_list; j; j = j->next) 8085155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru nj++; 8095155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 8105155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_SETMASK, &omask, NULL); 8115155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (nj); 8125155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru} 8135155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 8145155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 8155155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* list jobs for jobs built-in */ 8165155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruint 8175155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruj_jobs(const char *cp, int slp, 8185155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int nflag) /* 0: short, 1: long, 2: pgrp */ 8195155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru{ 8205155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Job *j, *tmp; 8215155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int how; 8225155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int zflag = 0; 8235155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigset_t omask; 8245155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 8255155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_BLOCK, &sm_sigchld, &omask); 8265155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 8275155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (nflag < 0) { /* kludge: print zombies */ 8285155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru nflag = 0; 8295155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru zflag = 1; 8305155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 8315155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (cp) { 8325155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int ecode; 8335155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 8345155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if ((j = j_lookup(cp, &ecode)) == NULL) { 8355155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_SETMASK, &omask, NULL); 8365155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru bi_errorf("%s: %s", cp, lookup_msgs[ecode]); 8375155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (1); 8385155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 8395155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } else 8405155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j = job_list; 8415155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru how = slp == 0 ? JP_MEDIUM : (slp == 1 ? JP_LONG : JP_PGRP); 8425155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (; j; j = j->next) { 8435155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if ((!(j->flags & JF_ZOMBIE) || zflag) && 8445155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru (!nflag || (j->flags & JF_CHANGED))) { 8455155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j_print(j, how, shl_stdout); 8465155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->state == PEXITED || j->state == PSIGNALLED) 8475155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->flags |= JF_REMOVE; 8485155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 8495155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (cp) 8505155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru break; 8515155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 8525155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* Remove jobs after printing so there won't be multiple + or - jobs */ 8535155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (j = job_list; j; j = tmp) { 8545155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru tmp = j->next; 8555155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->flags & JF_REMOVE) 8565155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru remove_job(j, "jobs"); 8575155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 8585155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_SETMASK, &omask, NULL); 8595155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (0); 8605155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru} 8615155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 8625155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* list jobs for top-level notification */ 8635155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruvoid 8645155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruj_notify(void) 8655155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru{ 8665155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Job *j, *tmp; 8675155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigset_t omask; 8685155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 8695155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_BLOCK, &sm_sigchld, &omask); 8705155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (j = job_list; j; j = j->next) { 8715155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#ifndef MKSH_UNEMPLOYED 8725155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (Flag(FMONITOR) && (j->flags & JF_CHANGED)) 8735155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j_print(j, JP_MEDIUM, shl_out); 8745155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#endif 8755155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* Remove job after doing reports so there aren't 8765155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * multiple +/- jobs. 8775155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 8785155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->state == PEXITED || j->state == PSIGNALLED) 8795155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->flags |= JF_REMOVE; 8805155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 8815155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (j = job_list; j; j = tmp) { 8825155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru tmp = j->next; 8835155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->flags & JF_REMOVE) 8845155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru remove_job(j, "notify"); 8855155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 8865155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru shf_flush(shl_out); 8875155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_SETMASK, &omask, NULL); 8885155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru} 8895155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 8905155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* Return pid of last process in last asynchronous job */ 8915155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querupid_t 8925155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruj_async(void) 8935155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru{ 8945155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigset_t omask; 8955155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 8965155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_BLOCK, &sm_sigchld, &omask); 8975155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 8985155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (async_job) 8995155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru async_job->flags |= JF_KNOWN; 9005155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 9015155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigprocmask(SIG_SETMASK, &omask, NULL); 9025155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 9035155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (async_pid); 9045155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru} 9055155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 9065155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* 9075155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * Make j the last async process 9085155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * 9095155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * If jobs are compiled in then this routine expects sigchld to be blocked. 9105155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 9115155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic void 9125155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruj_set_async(Job *j) 9135155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru{ 9145155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Job *jl, *oldest; 9155155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 9165155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (async_job && (async_job->flags & (JF_KNOWN|JF_ZOMBIE)) == JF_ZOMBIE) 9175155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru remove_job(async_job, "async"); 9185155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (!(j->flags & JF_STARTED)) { 9195155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru internal_warningf("j_async: job not started"); 9205155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return; 9215155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 9225155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru async_job = j; 9235155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru async_pid = j->last_proc->pid; 9245155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru while (nzombie > CHILD_MAX) { 9255155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru oldest = NULL; 9265155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (jl = job_list; jl; jl = jl->next) 9275155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (jl != async_job && (jl->flags & JF_ZOMBIE) && 9285155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru (!oldest || jl->age < oldest->age)) 9295155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru oldest = jl; 9305155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (!oldest) { 9315155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* XXX debugging */ 9325155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (!(async_job->flags & JF_ZOMBIE) || nzombie != 1) { 9335155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru internal_warningf("j_async: bad nzombie (%d)", 9345155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru nzombie); 9355155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru nzombie = 0; 9365155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 9375155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru break; 9385155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 9395155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru remove_job(oldest, "zombie"); 9405155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 9415155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru} 9425155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 9435155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* 9445155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * Start a job: set STARTED, check for held signals and set j->last_proc 9455155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * 9465155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * If jobs are compiled in then this routine expects sigchld to be blocked. 9475155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 9485155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic void 9495155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruj_startjob(Job *j) 9505155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru{ 9515155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Proc *p; 9525155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 9535155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->flags |= JF_STARTED; 9545155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (p = j->proc_list; p->next; p = p->next) 9555155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru ; 9565155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->last_proc = p; 9575155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 9585155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (held_sigchld) { 9595155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru held_sigchld = 0; 9605155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* Don't call j_sigchld() as it may remove job... */ 9615155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru kill(procpid, SIGCHLD); 9625155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 9635155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru} 9645155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 9655155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* 9665155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * wait for job to complete or change state 9675155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * 9685155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * If jobs are compiled in then this routine expects sigchld to be blocked. 9695155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 9705155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic int 9715155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruj_waitj(Job *j, 9725155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int flags, /* see JW_* */ 9735155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru const char *where) 9745155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru{ 9755155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int rv; 9765155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 9775155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* 9785155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * No auto-notify on the job we are waiting on. 9795155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 9805155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->flags |= JF_WAITING; 9815155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (flags & JW_ASYNCNOTIFY) 9825155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->flags |= JF_W_ASYNCNOTIFY; 9835155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 9845155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#ifndef MKSH_UNEMPLOYED 9855155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (!Flag(FMONITOR)) 9865155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#endif 9875155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru flags |= JW_STOPPEDWAIT; 9885155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 9895155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru while (j->state == PRUNNING || 9905155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru ((flags & JW_STOPPEDWAIT) && j->state == PSTOPPED)) { 9915155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sigsuspend(&sm_default); 9925155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (fatal_trap) { 9935155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int oldf = j->flags & (JF_WAITING|JF_W_ASYNCNOTIFY); 9945155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->flags &= ~(JF_WAITING|JF_W_ASYNCNOTIFY); 9955155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru runtraps(TF_FATAL); 9965155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->flags |= oldf; /* not reached... */ 9975155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 9985155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if ((flags & JW_INTERRUPT) && (rv = trap_pending())) { 9995155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->flags &= ~(JF_WAITING|JF_W_ASYNCNOTIFY); 10005155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (-rv); 10015155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 10025155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 10035155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->flags &= ~(JF_WAITING|JF_W_ASYNCNOTIFY); 10045155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 10055155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->flags & JF_FG) { 10065155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->flags &= ~JF_FG; 10075155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#ifndef MKSH_UNEMPLOYED 10085155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (Flag(FMONITOR) && ttypgrp_ok && j->pgrp) { 10095155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* 10105155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * Save the tty's current pgrp so it can be restored 10115155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * when the job is foregrounded. This is to 10125155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * deal with things like the GNU su which does 10135155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * a fork/exec instead of an exec (the fork means 10145155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * the execed shell gets a different pid from its 10155155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * pgrp, so naturally it sets its pgrp and gets hosed 10165155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * when it gets foregrounded by the parent shell which 10175155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * has restored the tty's pgrp to that of the su 10185155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * process). 10195155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 10205155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->state == PSTOPPED && 10215155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru (j->saved_ttypgrp = tcgetpgrp(tty_fd)) >= 0) 10225155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->flags |= JF_SAVEDTTYPGRP; 10235155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (tcsetpgrp(tty_fd, kshpgrp) < 0) 10245155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru warningf(true, 10255155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru "j_waitj: tcsetpgrp(%d, %ld) failed: %s", 10265155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru tty_fd, (long)kshpgrp, strerror(errno)); 10275155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->state == PSTOPPED) { 10285155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->flags |= JF_SAVEDTTY; 10295155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru tcgetattr(tty_fd, &j->ttystate); 10305155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 10315155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 10325155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#endif 10335155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (tty_fd >= 0) { 10345155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* 10355155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * Only restore tty settings if job was originally 10365155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * started in the foreground. Problems can be 10375155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * caused by things like 'more foobar &' which will 10385155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * typically get and save the shell's vi/emacs tty 10395155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * settings before setting up the tty for itself; 10405155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * when more exits, it restores the 'original' 10415155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * settings, and things go down hill from there... 10425155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 10435155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->state == PEXITED && j->status == 0 && 10445155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru (j->flags & JF_USETTYMODE)) { 10455155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru tcgetattr(tty_fd, &tty_state); 10465155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } else { 10475155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru tcsetattr(tty_fd, TCSADRAIN, &tty_state); 10485155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /*- 10495155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * Don't use tty mode if job is stopped and 10505155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * later restarted and exits. Consider 10515155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * the sequence: 10525155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * vi foo (stopped) 10535155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * ... 10545155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * stty something 10555155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * ... 10565155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * fg (vi; ZZ) 10575155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * mode should be that of the stty, not what 10585155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * was before the vi started. 10595155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 10605155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->state == PSTOPPED) 10615155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->flags &= ~JF_USETTYMODE; 10625155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 10635155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 10645155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#ifndef MKSH_UNEMPLOYED 10655155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* 10665155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * If it looks like user hit ^C to kill a job, pretend we got 10675155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * one too to break out of for loops, etc. (AT&T ksh does this 10685155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * even when not monitoring, but this doesn't make sense since 10695155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * a tty generated ^C goes to the whole process group) 10705155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 10715155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru { 10725155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int status; 10735155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 10745155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru status = j->last_proc->status; 10755155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (Flag(FMONITOR) && j->state == PSIGNALLED && 10765155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru WIFSIGNALED(status) && 10775155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru (sigtraps[WTERMSIG(status)].flags & TF_TTY_INTR)) 10785155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru trapsig(WTERMSIG(status)); 10795155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 10805155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#endif 10815155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 10825155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 10835155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j_usrtime = j->usrtime; 10845155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j_systime = j->systime; 10855155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru rv = j->status; 10865155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 10875155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (!(flags & JW_ASYNCNOTIFY) 10885155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#ifndef MKSH_UNEMPLOYED 10895155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru && (!Flag(FMONITOR) || j->state != PSTOPPED) 10905155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#endif 10915155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru ) { 10925155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j_print(j, JP_SHORT, shl_out); 10935155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru shf_flush(shl_out); 10945155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 10955155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->state != PSTOPPED 10965155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#ifndef MKSH_UNEMPLOYED 10975155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru && (!Flag(FMONITOR) || !(flags & JW_ASYNCNOTIFY)) 10985155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#endif 10995155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru ) 11005155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru remove_job(j, where); 11015155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 11025155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (rv); 11035155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru} 11045155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 11055155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* 11065155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * SIGCHLD handler to reap children and update job states 11075155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * 11085155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * If jobs are compiled in then this routine expects sigchld to be blocked. 11095155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 11105155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* ARGSUSED */ 11115155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic void 11125155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruj_sigchld(int sig MKSH_A_UNUSED) 11135155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru{ 11145155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* this runs inside interrupt context, with errno saved */ 11155155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 11165155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Job *j; 11175155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Proc *p = NULL; 11185155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru pid_t pid; 11195155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int status; 11205155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru struct rusage ru0, ru1; 11215155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 11225155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* 11235155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * Don't wait for any processes if a job is partially started. 11245155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * This is so we don't do away with the process group leader 11255155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * before all the processes in a pipe line are started (so the 11265155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * setpgid() won't fail) 11275155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 11285155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (j = job_list; j; j = j->next) 11295155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->ppid == procpid && !(j->flags & JF_STARTED)) { 11305155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru held_sigchld = 1; 11315155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return; 11325155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 11335155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 11345155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru getrusage(RUSAGE_CHILDREN, &ru0); 11355155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru do { 11365155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru pid = waitpid(-1, &status, (WNOHANG|WUNTRACED)); 11375155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 11385155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* 11395155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * return if this would block (0) or no children 11405155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * or interrupted (-1) 11415155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 11425155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (pid <= 0) 11435155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return; 11445155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 11455155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru getrusage(RUSAGE_CHILDREN, &ru1); 11465155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 11475155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* find job and process structures for this pid */ 11485155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (j = job_list; j != NULL; j = j->next) 11495155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (p = j->proc_list; p != NULL; p = p->next) 11505155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (p->pid == pid) 11515155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru goto found; 11525155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru found: 11535155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j == NULL) { 11545155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* Can occur if process has kids, then execs shell 11555155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru warningf(true, "bad process waited for (pid = %d)", 11565155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru pid); 11575155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 11585155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru ru0 = ru1; 11595155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru continue; 11605155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 11615155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 11625155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru timeradd(&j->usrtime, &ru1.ru_utime, &j->usrtime); 11635155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru timersub(&j->usrtime, &ru0.ru_utime, &j->usrtime); 11645155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru timeradd(&j->systime, &ru1.ru_stime, &j->systime); 11655155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru timersub(&j->systime, &ru0.ru_stime, &j->systime); 11665155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru ru0 = ru1; 11675155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru p->status = status; 11685155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#ifndef MKSH_UNEMPLOYED 11695155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (WIFSTOPPED(status)) 11705155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru p->state = PSTOPPED; 11715155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru else 11725155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#endif 11735155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (WIFSIGNALED(status)) 11745155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru p->state = PSIGNALLED; 11755155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru else 11765155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru p->state = PEXITED; 11775155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 11785155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru check_job(j); /* check to see if entire job is done */ 11795155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } while (1); 11805155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru} 11815155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 11825155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* 11835155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * Called only when a process in j has exited/stopped (ie, called only 11845155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * from j_sigchld()). If no processes are running, the job status 11855155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * and state are updated, asynchronous job notification is done and, 11865155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * if unneeded, the job is removed. 11875155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * 11885155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * If jobs are compiled in then this routine expects sigchld to be blocked. 11895155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 11905155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic void 11915155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querucheck_job(Job *j) 11925155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru{ 11935155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int jstate; 11945155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Proc *p; 11955155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 11965155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* XXX debugging (nasty - interrupt routine using shl_out) */ 11975155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (!(j->flags & JF_STARTED)) { 11985155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru internal_warningf("check_job: job started (flags 0x%x)", 11995155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->flags); 12005155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return; 12015155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 12025155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 12035155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru jstate = PRUNNING; 12045155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (p=j->proc_list; p != NULL; p = p->next) { 12055155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (p->state == PRUNNING) 12065155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return; /* some processes still running */ 12075155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (p->state > jstate) 12085155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru jstate = p->state; 12095155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 12105155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->state = jstate; 12115155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 12125155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru switch (j->last_proc->state) { 12135155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru case PEXITED: 12145155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->status = WEXITSTATUS(j->last_proc->status); 12155155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru break; 12165155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru case PSIGNALLED: 12175155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->status = 128 + WTERMSIG(j->last_proc->status); 12185155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru break; 12195155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru default: 12205155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->status = 0; 12215155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru break; 12225155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 12235155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 12245155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* 12255155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * Note when co-process dies: can't be done in j_wait() nor 12265155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * remove_job() since neither may be called for non-interactive 12275155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * shells. 12285155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 12295155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->state == PEXITED || j->state == PSIGNALLED) { 12305155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* 12315155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * No need to keep co-process input any more 12325155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * (at least, this is what ksh93d thinks) 12335155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 12345155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (coproc.job == j) { 12355155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru coproc.job = NULL; 12365155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* 12375155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * XXX would be nice to get the closes out of here 12385155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * so they aren't done in the signal handler. 12395155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * Would mean a check in coproc_getfd() to 12405155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * do "if job == 0 && write >= 0, close write". 12415155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 12425155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru coproc_write_close(coproc.write); 12435155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 12445155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* Do we need to keep the output? */ 12455155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->coproc_id && j->coproc_id == coproc.id && 12465155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru --coproc.njobs == 0) 12475155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru coproc_readw_close(coproc.read); 12485155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 12495155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 12505155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->flags |= JF_CHANGED; 12515155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#ifndef MKSH_UNEMPLOYED 12525155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (Flag(FMONITOR) && !(j->flags & JF_XXCOM)) { 12535155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* 12545155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * Only put stopped jobs at the front to avoid confusing 12555155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * the user (don't want finished jobs effecting %+ or %-) 12565155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 12575155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->state == PSTOPPED) 12585155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru put_job(j, PJ_ON_FRONT); 12595155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (Flag(FNOTIFY) && 12605155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru (j->flags & (JF_WAITING|JF_W_ASYNCNOTIFY)) != JF_WAITING) { 12615155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* Look for the real file descriptor 2 */ 12625155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru { 12635155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru struct env *ep; 12645155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int fd = 2; 12655155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 12665155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (ep = e; ep; ep = ep->oenv) 12675155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (ep->savefd && ep->savefd[2]) 12685155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru fd = ep->savefd[2]; 12695155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru shf_reopen(fd, SHF_WR, shl_j); 12705155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 12715155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* 12725155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * Can't call j_notify() as it removes jobs. The job 12735155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * must stay in the job list as j_waitj() may be 12745155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * running with this job. 12755155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 12765155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j_print(j, JP_MEDIUM, shl_j); 12775155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru shf_flush(shl_j); 12785155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (!(j->flags & JF_WAITING) && j->state != PSTOPPED) 12795155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru remove_job(j, "notify"); 12805155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 12815155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 12825155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#endif 12835155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if ( 12845155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#ifndef MKSH_UNEMPLOYED 12855155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru !Flag(FMONITOR) && 12865155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#endif 12875155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru !(j->flags & (JF_WAITING|JF_FG)) && 12885155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->state != PSTOPPED) { 12895155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j == async_job || (j->flags & JF_KNOWN)) { 12905155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->flags |= JF_ZOMBIE; 12915155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->job = -1; 12925155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru nzombie++; 12935155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } else 12945155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru remove_job(j, "checkjob"); 12955155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 12965155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru} 12975155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 12985155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* 12995155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * Print job status in either short, medium or long format. 13005155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * 13015155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * If jobs are compiled in then this routine expects sigchld to be blocked. 13025155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 13035155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic void 13045155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruj_print(Job *j, int how, struct shf *shf) 13055155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru{ 13065155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Proc *p; 13075155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int state; 13085155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int status; 13095155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int coredumped; 13105155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru char jobchar = ' '; 13115155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru char buf[64]; 13125155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru const char *filler; 13135155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int output = 0; 13145155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 13155155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (how == JP_PGRP) { 13165155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* 13175155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * POSIX doesn't say what to do it there is no process 13185155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * group leader (ie, !FMONITOR). We arbitrarily return 13195155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * last pid (which is what $! returns). 13205155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 13215155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru shf_fprintf(shf, "%d\n", (int)(j->pgrp ? j->pgrp : 13225155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru (j->last_proc ? j->last_proc->pid : 0))); 13235155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return; 13245155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 13255155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->flags &= ~JF_CHANGED; 13265155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru filler = j->job > 10 ? "\n " : "\n "; 13275155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j == job_list) 13285155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru jobchar = '+'; 13295155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru else if (j == job_list->next) 13305155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru jobchar = '-'; 13315155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 13325155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (p = j->proc_list; p != NULL;) { 13335155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru coredumped = 0; 13345155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru switch (p->state) { 13355155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru case PRUNNING: 13365155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru memcpy(buf, "Running", 8); 13375155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru break; 13385155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru case PSTOPPED: 13395155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru strlcpy(buf, sigtraps[WSTOPSIG(p->status)].mess, 13405155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sizeof(buf)); 13415155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru break; 13425155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru case PEXITED: 13435155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (how == JP_SHORT) 13445155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru buf[0] = '\0'; 13455155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru else if (WEXITSTATUS(p->status) == 0) 13465155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru memcpy(buf, "Done", 5); 13475155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru else 13485155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru shf_snprintf(buf, sizeof(buf), "Done (%d)", 13495155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru WEXITSTATUS(p->status)); 13505155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru break; 13515155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru case PSIGNALLED: 13525155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#ifdef WCOREDUMP 13535155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (WCOREDUMP(p->status)) 13545155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru coredumped = 1; 13555155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru#endif 13565155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* 13575155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * kludge for not reporting 'normal termination 13585155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * signals' (i.e. SIGINT, SIGPIPE) 13595155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 13605155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (how == JP_SHORT && !coredumped && 13615155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru (WTERMSIG(p->status) == SIGINT || 13625155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru WTERMSIG(p->status) == SIGPIPE)) { 13635155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru buf[0] = '\0'; 13645155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } else 13655155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru strlcpy(buf, sigtraps[WTERMSIG(p->status)].mess, 13665155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru sizeof(buf)); 13675155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru break; 13685155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 13695155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 13705155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (how != JP_SHORT) { 13715155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (p == j->proc_list) 13725155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru shf_fprintf(shf, "[%d] %c ", j->job, jobchar); 13735155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru else 13745155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru shf_fprintf(shf, "%s", filler); 13755155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 13765155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 13775155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (how == JP_LONG) 13785155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru shf_fprintf(shf, "%5d ", (int)p->pid); 13795155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 13805155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (how == JP_SHORT) { 13815155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (buf[0]) { 13825155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru output = 1; 13835155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru shf_fprintf(shf, "%s%s ", 13845155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru buf, coredumped ? " (core dumped)" : null); 13855155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 13865155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } else { 13875155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru output = 1; 13885155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru shf_fprintf(shf, "%-20s %s%s%s", buf, p->command, 13895155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru p->next ? "|" : null, 13905155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru coredumped ? " (core dumped)" : null); 13915155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 13925155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 13935155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru state = p->state; 13945155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru status = p->status; 13955155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru p = p->next; 13965155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru while (p && p->state == state && p->status == status) { 13975155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (how == JP_LONG) 13985155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru shf_fprintf(shf, "%s%5d %-20s %s%s", filler, 13995155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru (int)p->pid, " ", p->command, 14005155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru p->next ? "|" : null); 14015155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru else if (how == JP_MEDIUM) 14025155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru shf_fprintf(shf, " %s%s", p->command, 14035155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru p->next ? "|" : null); 14045155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru p = p->next; 14055155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 14065155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 14075155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (output) 14085155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru shf_putc('\n', shf); 14095155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru} 14105155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 14115155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* 14125155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * Convert % sequence to job 14135155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * 14145155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * If jobs are compiled in then this routine expects sigchld to be blocked. 14155155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 14165155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic Job * 14175155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruj_lookup(const char *cp, int *ecodep) 14185155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru{ 14195155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Job *j, *last_match; 14205155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Proc *p; 14215155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int len, job = 0; 14225155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 14235155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (ksh_isdigit(*cp)) { 14245155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru getn(cp, &job); 14255155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* Look for last_proc->pid (what $! returns) first... */ 14265155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (j = job_list; j != NULL; j = j->next) 14275155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->last_proc && j->last_proc->pid == job) 14285155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (j); 14295155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* 14305155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * ...then look for process group (this is non-POSIX, 14315155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * but should not break anything 14325155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 14335155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (j = job_list; j != NULL; j = j->next) 14345155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->pgrp && j->pgrp == job) 14355155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (j); 14365155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (ecodep) 14375155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru *ecodep = JL_NOSUCH; 14385155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (NULL); 14395155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 14405155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (*cp != '%') { 14415155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (ecodep) 14425155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru *ecodep = JL_INVALID; 14435155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (NULL); 14445155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 14455155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru switch (*++cp) { 14465155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru case '\0': /* non-standard */ 14475155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru case '+': 14485155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru case '%': 14495155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (job_list != NULL) 14505155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (job_list); 14515155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru break; 14525155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 14535155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru case '-': 14545155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (job_list != NULL && job_list->next) 14555155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (job_list->next); 14565155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru break; 14575155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 14585155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru case '0': case '1': case '2': case '3': case '4': 14595155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru case '5': case '6': case '7': case '8': case '9': 14605155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru getn(cp, &job); 14615155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (j = job_list; j != NULL; j = j->next) 14625155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j->job == job) 14635155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (j); 14645155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru break; 14655155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 14665155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru case '?': /* %?string */ 14675155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru last_match = NULL; 14685155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (j = job_list; j != NULL; j = j->next) 14695155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (p = j->proc_list; p != NULL; p = p->next) 14705155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (strstr(p->command, cp+1) != NULL) { 14715155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (last_match) { 14725155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (ecodep) 14735155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru *ecodep = JL_AMBIG; 14745155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (NULL); 14755155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 14765155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru last_match = j; 14775155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 14785155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (last_match) 14795155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (last_match); 14805155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru break; 14815155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 14825155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru default: /* %string */ 14835155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru len = strlen(cp); 14845155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru last_match = NULL; 14855155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (j = job_list; j != NULL; j = j->next) 14865155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (strncmp(cp, j->proc_list->command, len) == 0) { 14875155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (last_match) { 14885155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (ecodep) 14895155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru *ecodep = JL_AMBIG; 14905155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (NULL); 14915155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 14925155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru last_match = j; 14935155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 14945155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (last_match) 14955155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (last_match); 14965155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru break; 14975155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 14985155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (ecodep) 14995155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru *ecodep = JL_NOSUCH; 15005155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (NULL); 15015155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru} 15025155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 15035155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic Job *free_jobs; 15045155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic Proc *free_procs; 15055155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 15065155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* 15075155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * allocate a new job and fill in the job number. 15085155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * 15095155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * If jobs are compiled in then this routine expects sigchld to be blocked. 15105155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 15115155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic Job * 15125155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querunew_job(void) 15135155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru{ 15145155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int i; 15155155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Job *newj, *j; 15165155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 15175155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (free_jobs != NULL) { 15185155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru newj = free_jobs; 15195155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru free_jobs = free_jobs->next; 15205155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } else 15215155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru newj = alloc(sizeof(Job), APERM); 15225155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 15235155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* brute force method */ 15245155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (i = 1; ; i++) { 15255155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (j = job_list; j && j->job != i; j = j->next) 15265155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru ; 15275155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j == NULL) 15285155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru break; 15295155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 15305155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru newj->job = i; 15315155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 15325155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (newj); 15335155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru} 15345155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 15355155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* 15365155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * Allocate new process struct 15375155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * 15385155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * If jobs are compiled in then this routine expects sigchld to be blocked. 15395155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 15405155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic Proc * 15415155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querunew_proc(void) 15425155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru{ 15435155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Proc *p; 15445155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 15455155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (free_procs != NULL) { 15465155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru p = free_procs; 15475155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru free_procs = free_procs->next; 15485155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } else 15495155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru p = alloc(sizeof(Proc), APERM); 15505155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 15515155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (p); 15525155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru} 15535155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 15545155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* 15555155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * Take job out of job_list and put old structures into free list. 15565155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * Keeps nzombies, last_job and async_job up to date. 15575155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * 15585155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * If jobs are compiled in then this routine expects sigchld to be blocked. 15595155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 15605155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic void 15615155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruremove_job(Job *j, const char *where) 15625155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru{ 15635155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Proc *p, *tmp; 15645155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Job **prev, *curr; 15655155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 15665155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru prev = &job_list; 15675155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru curr = *prev; 15685155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (; curr != NULL && curr != j; prev = &curr->next, curr = *prev) 15695155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru ; 15705155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (curr != j) { 15715155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru internal_warningf("remove_job: job not found (%s)", where); 15725155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return; 15735155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 15745155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru *prev = curr->next; 15755155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 15765155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* free up proc structures */ 15775155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (p = j->proc_list; p != NULL; ) { 15785155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru tmp = p; 15795155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru p = p->next; 15805155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru tmp->next = free_procs; 15815155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru free_procs = tmp; 15825155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 15835155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 15845155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if ((j->flags & JF_ZOMBIE) && j->ppid == procpid) 15855155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru --nzombie; 15865155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->next = free_jobs; 15875155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru free_jobs = j; 15885155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 15895155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j == last_job) 15905155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru last_job = NULL; 15915155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (j == async_job) 15925155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru async_job = NULL; 15935155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru} 15945155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 15955155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* 15965155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * put j in a particular location (taking it out job_list if it is there 15975155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * already) 15985155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * 15995155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * If jobs are compiled in then this routine expects sigchld to be blocked. 16005155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 16015155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic void 16025155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queruput_job(Job *j, int where) 16035155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru{ 16045155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Job **prev, *curr; 16055155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 16065155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru /* Remove job from list (if there) */ 16075155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru prev = &job_list; 16085155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru curr = job_list; 16095155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (; curr && curr != j; prev = &curr->next, curr = *prev) 16105155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru ; 16115155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (curr == j) 16125155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru *prev = curr->next; 16135155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 16145155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru switch (where) { 16155155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru case PJ_ON_FRONT: 16165155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->next = job_list; 16175155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru job_list = j; 16185155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru break; 16195155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 16205155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru case PJ_PAST_STOPPED: 16215155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru prev = &job_list; 16225155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru curr = job_list; 16235155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (; curr && curr->state == PSTOPPED; prev = &curr->next, 16245155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru curr = *prev) 16255155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru ; 16265155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru j->next = curr; 16275155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru *prev = j; 16285155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru break; 16295155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru } 16305155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru} 16315155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 16325155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru/* 16335155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * nuke a job (called when unable to start full job). 16345155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * 16355155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru * If jobs are compiled in then this routine expects sigchld to be blocked. 16365155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru */ 16375155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querustatic int 16385155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Querukill_job(Job *j, int sig) 16395155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru{ 16405155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru Proc *p; 16415155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru int rval = 0; 16425155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru 16435155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru for (p = j->proc_list; p != NULL; p = p->next) 16445155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (p->pid != 0) 16455155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru if (kill(p->pid, sig) < 0) 16465155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru rval = -1; 16475155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru return (rval); 16485155f1c7438ef540d7b25eb70aa1639579795b07Jean-Baptiste Queru} 1649