1 This file is jobs.def, from which is created jobs.c.
2 It implements the builtins "jobs" and "disown" in Bash.
4 Copyright (C) 1987, 1989, 1991, 1992 Free Software Foundation, Inc.
6 This file is part of GNU Bash, the Bourne Again SHell.
8 Bash is free software; you can redistribute it and/or modify it under
9 the terms of the GNU General Public License as published by the Free
10 Software Foundation; either version 2, or (at your option) any later
13 Bash is distributed in the hope that it will be useful, but WITHOUT ANY
14 WARRANTY; without even the implied warranty of MERCHANTABILITY or
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
18 You should have received a copy of the GNU General Public License along
19 with Bash; see the file COPYING. If not, write to the Free Software
20 Foundation, 59 Temple Place, Suite 330, Boston, MA 02111 USA.
25 $FUNCTION jobs_builtin
26 $DEPENDS_ON JOB_CONTROL
27 $SHORT_DOC jobs [-lnprs] [jobspec ...] or jobs -x command [args]
28 Lists the active jobs. The -l option lists process id's in addition
29 to the normal information; the -p option lists process id's only.
30 If -n is given, only processes that have changed status since the last
31 notification are printed. JOBSPEC restricts output to that job. The
32 -r and -s options restrict output to running and stopped jobs only,
33 respectively. Without options, the status of all active jobs is
34 printed. If -x is given, COMMAND is run after all job specifications
35 that appear in ARGS have been replaced with the process ID of that job's
41 #if defined (JOB_CONTROL)
42 #include "../bashtypes.h"
44 #if defined (HAVE_UNISTD_H)
48 #include "../bashansi.h"
52 #include "../execute_cmd.h"
53 #include "bashgetopt.h"
56 #define JSTATE_ANY 0x0
57 #define JSTATE_RUNNING 0x1
58 #define JSTATE_STOPPED 0x2
60 extern int job_control, interactive_shell;
61 static int execute_list_with_replacements ();
63 /* The `jobs' command. Prints outs a list of active jobs. If the
64 argument `-l' is given, then the process id's are printed also.
65 If the argument `-p' is given, print the process group leader's
66 pid only. If `-n' is given, only processes that have changed
67 status since the last notification are printed. If -x is given,
68 replace all job specs with the pid of the appropriate process
69 group leader and execute the command. The -r and -s options mean
70 to print info about running and stopped jobs only, respectively. */
75 int form, execute, state, opt, any_failed, job;
78 if (job_control == 0 && interactive_shell == 0)
79 return (EXECUTION_SUCCESS);
81 execute = any_failed = 0;
82 form = JLIST_STANDARD;
85 reset_internal_getopt ();
86 while ((opt = internal_getopt (list, "lpnxrs")) != -1)
94 form = JLIST_PID_ONLY;
97 form = JLIST_CHANGED_ONLY;
100 if (form != JLIST_STANDARD)
102 builtin_error ("Other options not allowed with `-x'");
103 return (EXECUTION_FAILURE);
108 state = JSTATE_RUNNING;
111 state = JSTATE_STOPPED;
123 return (execute_list_with_replacements (list));
130 list_all_jobs (form);
133 list_running_jobs (form);
136 list_stopped_jobs (form);
139 return (EXECUTION_SUCCESS);
144 BLOCK_CHILD (set, oset);
145 job = get_job_spec (list);
147 if ((job == NO_JOB) || !jobs || !jobs[job])
149 builtin_error ("no such job %s", list->word->word);
152 else if (job != DUP_JOB)
153 list_one_job ((JOB *)NULL, form, 0, job);
155 UNBLOCK_CHILD (oset);
158 return (any_failed ? EXECUTION_FAILURE : EXECUTION_SUCCESS);
162 execute_list_with_replacements (list)
165 register WORD_LIST *l;
168 /* First do the replacement of job specifications with pids. */
169 for (l = list; l; l = l->next)
171 if (l->word->word[0] == '%') /* we have a winner */
173 job = get_job_spec (l);
175 /* A bad job spec is not really a job spec! Pass it through. */
176 if (job < 0 || job >= job_slots || !jobs[job])
179 free (l->word->word);
180 l->word->word = itos (jobs[job]->pgrp);
184 /* Next make a new simple command and execute it. */
185 begin_unwind_frame ("jobs_builtin");
187 COMMAND *command = (COMMAND *)NULL;
189 add_unwind_protect (dispose_command, command);
191 command = make_bare_simple_command ();
192 command->value.Simple->words = copy_word_list (list);
193 command->value.Simple->redirects = (REDIRECT *)NULL;
194 command->flags |= CMD_INHIBIT_EXPANSION;
195 command->value.Simple->flags |= CMD_INHIBIT_EXPANSION;
197 result = execute_command (command);
200 run_unwind_frame ("jobs_builtin");
203 #endif /* JOB_CONTROL */
206 $FUNCTION disown_builtin
207 $DEPENDS_ON JOB_CONTROL
208 $SHORT_DOC disown [-h] [-ar] [jobspec ...]
209 By default, removes each JOBSPEC argument from the table of active jobs.
210 If the -h option is given, the job is not removed from the table, but is
211 marked so that SIGHUP is not sent to the job if the shell receives a
212 SIGHUP. The -a option, when JOBSPEC is not supplied, means to remove all
213 jobs from the job table; the -r option means to remove only running jobs.
216 #if defined (JOB_CONTROL)
218 disown_builtin (list)
221 int opt, job, retval, nohup_only, running_jobs, all_jobs;
224 nohup_only = running_jobs = all_jobs = 0;
225 reset_internal_getopt ();
226 while ((opt = internal_getopt (list, "ahr")) != -1)
245 retval = EXECUTION_SUCCESS;
247 /* `disown -a' or `disown -r' */
248 if (list == 0 && (all_jobs || running_jobs))
251 nohup_all_jobs (running_jobs);
253 delete_all_jobs (running_jobs);
254 return (EXECUTION_SUCCESS);
259 BLOCK_CHILD (set, oset);
260 job = (list && all_digits(list->word->word))
261 ? get_job_by_pid (atoi(list->word->word), 0)
262 : get_job_spec (list);
264 if (job == NO_JOB || jobs == 0 || job < 0 || job >= job_slots || jobs[job] == 0)
266 builtin_error ("%s: no such job", list ? list->word->word : "current");
267 retval = EXECUTION_FAILURE;
273 UNBLOCK_CHILD (oset);
282 #endif /* JOB_CONTROL */