From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: zsh-workers-return-43393-ml=inbox.vuxu.org@zsh.org X-Spam-Checker-Version: SpamAssassin 3.4.1 (2015-04-28) on inbox.vuxu.org X-Spam-Level: X-Spam-Status: No, score=-1.1 required=5.0 tests=DKIM_SIGNED,DKIM_VALID, DKIM_VALID_AU,MAILING_LIST_MULTI,RCVD_IN_DNSWL_NONE,T_DKIMWL_WL_MED autolearn=ham autolearn_force=no version=3.4.1 Received: from primenet.com.au (ns1.primenet.com.au [203.24.36.2]) by inbox.vuxu.org (OpenSMTPD) with ESMTP id fa9a1e10 for ; Wed, 5 Sep 2018 20:08:03 +0000 (UTC) Received: (qmail 24109 invoked by alias); 5 Sep 2018 20:07:50 -0000 Mailing-List: contact zsh-workers-help@zsh.org; run by ezmlm Precedence: bulk X-No-Archive: yes List-Id: Zsh Workers List List-Post: List-Help: List-Unsubscribe: X-Seq: 43393 Received: (qmail 10872 invoked by uid 1010); 5 Sep 2018 20:07:50 -0000 X-Qmail-Scanner-Diagnostics: from know-smtprelay-omc-6.server.virginmedia.net by f.primenet.com.au (envelope-from , uid 7791) with qmail-scanner-2.11 (clamdscan: 0.99.2/21882. spamassassin: 3.4.1. Clear:RC:0(80.0.253.70):SA:0(-1.9/5.0):. Processed in 1.503402 secs); 05 Sep 2018 20:07:50 -0000 X-Envelope-From: p.w.stephenson@ntlworld.com X-Qmail-Scanner-Mime-Attachments: | X-Qmail-Scanner-Zip-Files: | X-Originating-IP: [86.21.219.59] X-Authenticated-User: p.w.stephenson@ntlworld.com X-Spam: 0 X-Authority: v=2.3 cv=YOexNyOx c=1 sm=1 tr=0 a=utowdAHh8RITBM/6U1BPxA==:117 a=utowdAHh8RITBM/6U1BPxA==:17 a=kj9zAlcOel0A:10 a=x7bEGLp0ZPQA:10 a=GKWABpiToqwjZWidV7UA:9 a=hcUTD8IQ9JonjHjw:21 a=ouiCXcvi4AH2Jgwn:21 a=CjuIK1q_8ugA:10 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=ntlworld.com; s=meg.feb2017; t=1536178061; bh=NdMI2vOb7gqfrNAx+JbC6SVEjXloITmXzwvIcECRVdE=; h=Date:From:To:Subject; b=Ql1hlxPOm5BAH1kZfDDwKy/ORgMbaOeJXyTReEmAbY8j4/24wPg9kr5I+sg3UdbV9 EbYYEaSkiix8YufZqe4VdUc8k72DkehUpEBzaTRM2x5FBycYsMjABQ6z4SRh/mZwuk JFRHkxSjlV60uHdYXRBoe4wlPgLkAXnTWsmaEO2UD2J1O2wFGBVkhl31Dhq7reG606 9Y2X3hJh19ZZpGIaJiEdbK3HDl+09K3ZlPnPUgvnS31v9y5REhwv0uKTrZdnEC03NO oLTY/FnAR0Gnb9NBjcdYFgoX9u52qNmmViagDfmEEBsFQtSHacEn6NR74aseLb8nu/ hklZJEzknHBvQ== Date: Wed, 5 Sep 2018 21:07:40 +0100 From: Peter Stephenson To: Zsh hackers list Subject: PATCH: job control debug Message-ID: <20180905210740.5a6aec15@pws-HP.localdomain> X-Mailer: Claws Mail 3.16.0 (GTK+ 2.24.32; x86_64-redhat-linux-gnu) MIME-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit X-CMAE-Envelope: MS4wfGOhwLuaX/fILWP5ZvuS+Lhmg4WFHPEYNjIKxzRbtjpWn6QB5XfvHMA/VbRkdoDIVCxrUeG7YnJeReYkhnSKcw6jGhk+Aa+GFoYuUi2qeey0ZTgZxiHr 0hwy9G9+zU+LonnlPrPIfzKciidB3IL79eS36F3gZl2W9GUWc4UtgPCCpkXUzm2tnDpARY7BZo75gA== This should help debug Rimmerworld pipeline problems. There may be more that can be added, but the different patterns of setting process group leaders and attaching the terminal to a process group has certainly got a lot to do with it. There appears to be an obscure error where it prints out a bogus attachtty() location index. pws diff --git a/Src/Modules/zpty.c b/Src/Modules/zpty.c index 2f83f7ce6..f8a5a9534 100644 --- a/Src/Modules/zpty.c +++ b/Src/Modules/zpty.c @@ -356,7 +356,7 @@ newptycmd(char *nam, char *pname, char **args, int echo, int nblock) if (get_pty(0, &slave)) exit(1); SHTTY = slave; - attachtty(mypid); + ATTACHTTY(mypid, 17); #ifdef TIOCGWINSZ /* Set the window size before associating with the terminal * * so that we don't get hit with a SIGWINCH. I'm paranoid. */ diff --git a/Src/Zle/zle_main.c b/Src/Zle/zle_main.c index db70e7d7e..b57245708 100644 --- a/Src/Zle/zle_main.c +++ b/Src/Zle/zle_main.c @@ -233,7 +233,7 @@ zsetterm(void) shttyinfo.lmodes &= ~LFLUSHO; #endif - attachtty(mypgrp); + ATTACHTTY(mypgrp, 18); ti = shttyinfo; #ifdef HAS_TIO if (unset(FLOWCONTROL)) @@ -917,7 +917,7 @@ getbyte(long do_keytmout, int *timeout) } else if (errno == EIO && !die) { ret = opts[MONITOR]; opts[MONITOR] = 1; - attachtty(mypgrp); + ATTACHTTY(mypgrp, 19); zrefresh(); /* kludge! */ opts[MONITOR] = ret; die = 1; diff --git a/Src/builtin.c b/Src/builtin.c index 93fa9112c..02bcd854d 100644 --- a/Src/builtin.c +++ b/Src/builtin.c @@ -6129,7 +6129,7 @@ bin_read(char *name, char **args, Options ops, UNUSED(int func)) if (unset(INTERACTIVE)) gettyinfo(&shttyinfo); /* attach to the tty */ - attachtty(mypgrp); + ATTACHTTY(mypgrp, 1); if (!isem) setcbreak(); readfd = SHTTY; diff --git a/Src/exec.c b/Src/exec.c index 615a5086f..9af6ea8d1 100644 --- a/Src/exec.c +++ b/Src/exec.c @@ -1020,11 +1020,12 @@ entersubsh(int flags) if (jobtab[list_pipe_job].gleader && (list_pipe || list_pipe_child)) { if (setpgrp(0L, jobtab[list_pipe_job].gleader) == -1 || killpg(jobtab[list_pipe_job].gleader, 0) == -1) { - jobtab[list_pipe_job].gleader = - jobtab[thisjob].gleader = (list_pipe_child ? mypgrp : getpid()); + SET_GLEADER(list_pipe_job, + (list_pipe_child ? mypgrp : getpid()), 1); + SET_GLEADER(thisjob, jobtab[list_pipe_job].gleader, 2); setpgrp(0L, jobtab[list_pipe_job].gleader); if (!(flags & ESUB_ASYNC)) - attachtty(jobtab[thisjob].gleader); + ATTACHTTY(jobtab[thisjob].gleader, 2); } } else if (!jobtab[thisjob].gleader || @@ -1039,13 +1040,13 @@ entersubsh(int flags) * the operation is allowed to work (in addition to not * causing the shell to be suspended). */ - jobtab[thisjob].gleader = getpid(); + SET_GLEADER(thisjob, getpid(), 3); if (list_pipe_job != thisjob && !jobtab[list_pipe_job].gleader) - jobtab[list_pipe_job].gleader = jobtab[thisjob].gleader; + SET_GLEADER(list_pipe_job, jobtab[thisjob].gleader, 4); setpgrp(0L, jobtab[thisjob].gleader); if (!(flags & ESUB_ASYNC)) - attachtty(jobtab[thisjob].gleader); + ATTACHTTY(jobtab[thisjob].gleader, 3); } } if (!(flags & ESUB_FAKE)) @@ -1683,7 +1684,7 @@ execpline(Estate state, wordcode slcode, int how, int last1) /* If the super-job contains only the sub-shell, the sub-shell is the group leader. */ if (!jn->procs->next || lpforked == 2) { - jn->gleader = list_pipe_pid; + SET_GLEADER(jn->gleader, list_pipe_pid, 5); jn->stat |= STAT_SUBLEADER; /* * Pick up any subjob that's still lying around @@ -1806,7 +1807,7 @@ execpline(Estate state, wordcode slcode, int how, int last1) jn->stat |= STAT_SUBJOB | STAT_NOPRINT; jn->other = list_pipe_pid; /* see zsh.h */ if (hasprocs(list_pipe_job)) - jn->gleader = jobtab[list_pipe_job].gleader; + SET_GLEADER(jn-jobtab, jobtab[list_pipe_job].gleader, 6); } if ((list_pipe || last1) && hasprocs(list_pipe_job)) killpg(jobtab[list_pipe_job].gleader, SIGSTOP); diff --git a/Src/hist.c b/Src/hist.c index dbdc1e4e5..4e50b75e2 100644 --- a/Src/hist.c +++ b/Src/hist.c @@ -1116,7 +1116,7 @@ hbegin(int dohist) hist_ring->ftim = time(NULL); if ((dohist == 2 || (interact && isset(SHINSTDIN))) && !strin) { histactive = HA_ACTIVE; - attachtty(mypgrp); + ATTACHTTY(mypgrp, 4); linkcurline(); defev = addhistnum(curhist, -1, HIST_FOREIGN); } else diff --git a/Src/jobs.c b/Src/jobs.c index 38b3d896b..397ef9727 100644 --- a/Src/jobs.c +++ b/Src/jobs.c @@ -260,7 +260,7 @@ handle_sub(int job, int fg) killpg(jn->gleader, 0) == -1))) { Process p; for (p = jn->procs; p->next; p = p->next); - jn->gleader = p->pid; + SET_GLEADER(jn-jobtab, p->pid, 7); } /* This deleted the job too early if the parent shell waited for a command in a list that will @@ -275,7 +275,7 @@ handle_sub(int job, int fg) now. */ if ((fg || thisjob == job) && (!jn->procs->next || cp || jn->procs->pid != jn->gleader)) - attachtty(jn->gleader); + ATTACHTTY(jn->gleader, 5); kill(sj->other, SIGCONT); if (jn->stat & STAT_DISOWN) { @@ -495,7 +495,7 @@ update_job(Job jn) (jn->gleader == pgrp || (pgrp > 1 && kill(-pgrp, 0) == -1))) { if (list_pipe) { if (somestopped || (pgrp > 1 && kill(-pgrp, 0) == -1)) { - attachtty(mypgrp); + ATTACHTTY(mypgrp, 6); /* check window size and adjust if necessary */ adjustwinsize(0); } else { @@ -522,7 +522,7 @@ update_job(Job jn) inerrflush(); } } else { - attachtty(mypgrp); + ATTACHTTY(mypgrp, 7); /* check window size and adjust if necessary */ adjustwinsize(0); } @@ -1326,7 +1326,8 @@ freejob(Job jn, int deleting) freejob(jobtab + jn->other, 0); jn = jobtab + job; } - jn->gleader = jn->other = 0; + SET_GLEADER(jn-jobtab, 0, 8); + jn->other = 0; jn->stat = jn->stty_in_env = 0; jn->filelist = NULL; jn->ty = NULL; @@ -1353,7 +1354,7 @@ deletejob(Job jn, int disowning) { deletefilelist(jn->filelist, disowning); if (jn->stat & STAT_ATTACH) { - attachtty(mypgrp); + ATTACHTTY(mypgrp, 8); adjustwinsize(0); } if (jn->stat & STAT_SUPERJOB) { @@ -1395,7 +1396,7 @@ addproc(pid_t pid, char *text, int aux, struct timeval *bgtime) /* if this is the first process we are adding to * * the job, then it's the group leader. */ if (!jobtab[thisjob].gleader) - jobtab[thisjob].gleader = pid; + SET_GLEADER(thisjob, pid, 9); /* attach this process to end of process list of current job */ pnlist = &jobtab[thisjob].procs; } @@ -1643,7 +1644,7 @@ static int initnewjob(int i) zsfree(jobtab[i].pwd); jobtab[i].pwd = NULL; } - jobtab[i].gleader = 0; + SET_GLEADER(i, 0, 10); if (i > maxjob) maxjob = i; @@ -2384,9 +2385,9 @@ bin_fg(char *name, char **argv, Options ops, int func) (jobtab[job].stat & STAT_SUBLEADER) || killpg(jobtab[job].gleader, 0) == -1)) && jobtab[jobtab[job].other].gleader) - attachtty(jobtab[jobtab[job].other].gleader); + ATTACHTTY(jobtab[jobtab[job].other].gleader, 9); else - attachtty(jobtab[job].gleader); + ATTACHTTY(jobtab[job].gleader, 10); } } if (stopped) { @@ -2848,11 +2849,15 @@ acquire_pgrp(void) oldset = signal_block(blockset); while ((ttpgrp = gettygrp()) != -1 && ttpgrp != mypgrp) { mypgrp = GETPGRP(); +#ifdef DEBUG_JOB_CONTROL + fprintf(stderr, "mypgrp(1) %ld -> %d, pid %d, mypid %ld\n", + lastpgrp, mypgrp, getpid(), mypid); +#endif if (mypgrp == mypid) { if (!interact) break; /* attachtty() will be a no-op, give up */ signal_setmask(oldset); - attachtty(mypgrp); /* Might generate SIGT* */ + ATTACHTTY(mypgrp, 11); /* Might generate SIGT* */ signal_block(blockset); } if (mypgrp == gettygrp()) @@ -2861,6 +2866,10 @@ acquire_pgrp(void) if (read(0, NULL, 0) != 0) {} /* Might generate SIGT* */ signal_block(blockset); mypgrp = GETPGRP(); +#ifdef DEBUG_JOB_CONTROL + fprintf(stderr, "mypgrp(2) %ld -> %d, pid %d, mypid %ld\n", + lastpgrp, mypgrp, getpid(), mypid); +#endif if (mypgrp == lastpgrp && !interact) break; /* Unlikely that pgrp will ever change */ lastpgrp = mypgrp; @@ -2868,7 +2877,11 @@ acquire_pgrp(void) if (mypgrp != mypid) { if (setpgrp(0, 0) == 0) { mypgrp = mypid; - attachtty(mypgrp); +#ifdef DEBUG_JOB_CONTROL + fprintf(stderr, "mypgrp(3) %ld -> %d, pid %d, mypid %ld\n", + lastpgrp, mypgrp, getpid(), mypid); +#endif + ATTACHTTY(mypgrp, 12); } else opts[MONITOR] = 0; } @@ -2886,9 +2899,13 @@ release_pgrp(void) if (origpgrp != mypgrp) { /* in linux pid namespaces, origpgrp may never have been set */ if (origpgrp) { - attachtty(origpgrp); + ATTACHTTY(origpgrp, 13); setpgrp(0, origpgrp); } +#ifdef DEBUG_JOB_CONTROL + fprintf(stderr, "mypgrp(4) %d -> %d, pid %d, mypid %ld\n", + mypgrp, origpgrp, getpid(), mypid); +#endif mypgrp = origpgrp; } } diff --git a/Src/params.c b/Src/params.c index a1c299f60..66687fbf3 100644 --- a/Src/params.c +++ b/Src/params.c @@ -2586,7 +2586,7 @@ assignstrvalue(Value v, char *val, int flags) Param pm = v->pm; /* Size doesn't change, can limit actions to only * overwriting bytes in already allocated string */ - strncpy(z + v->start, val, vlen); + memcpy(z + v->start, val, vlen); /* Implement remainder of strsetfn */ if (!(pm->node.flags & PM_HASHELEM) && ((pm->node.flags & PM_NAMEDDIR) || diff --git a/Src/signals.c b/Src/signals.c index 20c6fdf4a..868764dd9 100644 --- a/Src/signals.c +++ b/Src/signals.c @@ -540,7 +540,7 @@ wait_for_processes(void) if (WIFEXITED(status) && pn->pid == jn->gleader && killpg(pn->pid, 0) == -1) { - jn->gleader = 0; + SET_GLEADER(jn-jobtab, 0, 11); if (!(jn->stat & STAT_NOSTTY)) { /* * This PID was in control of the terminal; @@ -549,7 +549,7 @@ wait_for_processes(void) * process of this job will become group * leader, however. */ - attachtty(mypgrp); + ATTACHTTY(mypgrp, 14); } } } diff --git a/Src/utils.c b/Src/utils.c index 075d27241..df077f1da 100644 --- a/Src/utils.c +++ b/Src/utils.c @@ -2952,7 +2952,7 @@ getquery(char *valid_chars, int purge) int isem = !strcmp(term, "emacs"); struct ttyinfo ti; - attachtty(mypgrp); + ATTACHTTY(mypgrp, 15); gettyinfo(&ti); #ifdef HAS_TIO @@ -4639,13 +4639,21 @@ setcbreak(void) /* give the tty to some process */ -/**/ +/* note: deliberately not automatically prototyped */ mod_export void -attachtty(pid_t pgrp) +attachtty(pid_t pgrp +#ifdef DEBUG_JOB_CONTROL + , int index +#endif + ) { static int ep = 0; if (jobbing && interact) { +#ifdef DEBUG_JOB_CONTROL + fprintf(stderr, "attachtty(%d): pgrp = %d, mypgrp = %d\n", + index, pgrp, mypgrp); +#endif #ifdef HAVE_TCSETPGRP if (SHTTY != -1 && tcsetpgrp(SHTTY, pgrp) == -1 && !ep) #else @@ -4659,7 +4667,7 @@ attachtty(pid_t pgrp) #endif { if (pgrp != mypgrp && kill(-pgrp, 0) == -1) - attachtty(mypgrp); + ATTACHTTY(mypgrp, 16); else { if (errno != ENOTTY) { @@ -4673,6 +4681,18 @@ attachtty(pid_t pgrp) } } +/**/ +#ifdef DEBUG_JOB_CONTROL + +void set_gleader(int job, int pid, int index) +{ + jobtab[job].gleader = pid; + fprintf(stderr, "set_gleader(%d): %d = %d\n", index, job, pid); +} + +/**/ +#endif /* DEBUG_JOB_CONTROL */ + /* get the process group associated with the tty */ /**/ diff --git a/Src/zsh.h b/Src/zsh.h index 8e7f20b2c..1ec89e56f 100644 --- a/Src/zsh.h +++ b/Src/zsh.h @@ -3292,7 +3292,7 @@ typedef int convchar_t; #define MB_METASTRLEN2(str, widthp) ztrlen(str) #define MB_METASTRLEN2END(str, widthp, eptr) ztrlenend(str, eptr) -#define MB_CHARINIT() +#define MBT_CHARINIT() #define MB_CHARLENCONV(str, len, cp) charlenconv((str), (len), (cp)) #define MB_CHARLEN(str, len) ((len) ? 1 : 0) @@ -3303,3 +3303,20 @@ typedef int convchar_t; #define ZWS(s) s #endif /* MULTIBYTE_SUPPORT */ + + +/* Uncomment to debug problems with job control */ +/*#define DEBUG_JOB_CONTROL*/ + +#ifdef DEBUG_JOB_CONTROL +#define ATTACHTTY(pgrp, index) attachtty(pgpr, index) +void attachtty(pid_t pgrp, int index); + +#define SET_GLEADER(job, pid, index) set_gleader(job, pid, index) +void set_gleader(int job, int pid, int index); +#else +#define ATTACHTTY(pgrp, index) attachtty(pgrp) + +#define SET_GLEADER(job, pid, index) (jobtab[(job)].gleader = (pid)) +void attachtty(pid_t pgrp); +#endif