From: Peter Stephenson <p.w.stephenson@ntlworld.com>
To: nwsgpamachine@alcatel-lucent.com,
zsh-workers@sunsite.dk (Zsh hackers list)
Subject: Re: "trap ... DEBUG" to execute before (instead of after) each
Date: Sun, 14 Jan 2007 19:14:18 +0000 [thread overview]
Message-ID: <20070114191418.6974b2d1.p.w.stephenson@ntlworld.com> (raw)
In-Reply-To: <200701112232.l0BMWX4G003770@pwslaptop.csr.com>
On Thu, 11 Jan 2007 22:32:33 +0000
Peter Stephenson <p.w.stephenson@ntlworld.com> wrote:
> nwsgpamachine@alcatel-lucent.com wrote:
> > Dear Peter,
> > !! The BIG problem is that the patched version does not report
> > !! LINENO values correctly.
>
> Yes, I forgot about the line number stuff which isn't particularly well
> implemented at the moment.
I think the following (relatively straightforward) change should do the
trick. The reason I think it's OK is that it sets up the line number
right at the start of each top-level chunk of code, so it should cover
all possible cases. The line number is still updated for each pipeline,
which is what you'd see if you were doing debugging at a lower level (or
printing the line number). The difference is that code like "foo &&
bar" only invokes the DEBUG trap once, but updates the line number for
both "foo" and "bar".
There may be other simplifications or rearrangements but I couldn't see
anything crying out to be changed.
The zsh.h changes are simply making definitions clearer; there's no
functional change, and hence no incompatibility in compiled wordcode.
Please let me know if you notice any more line numbering
oddities... there have been a number over the years and it looks like
you're in a good position to notice them.
Index: Src/exec.c
===================================================================
RCS file: /cvsroot/zsh/zsh/Src/exec.c,v
retrieving revision 1.108
diff -u -r1.108 exec.c
--- Src/exec.c 9 Jan 2007 21:59:31 -0000 1.108
+++ Src/exec.c 14 Jan 2007 19:01:12 -0000
@@ -866,6 +866,35 @@
code = *state->pc++;
while (wc_code(code) == WC_LIST && !breaks && !retflag) {
int donedebug;
+
+ ltype = WC_LIST_TYPE(code);
+ csp = cmdsp;
+
+ if ((!intrap || trapisfunc) && !ineval) {
+ /*
+ * Ensure we have a valid line number for debugging,
+ * unless we are in an evaluated trap in which case
+ * we retain the line number from the context.
+ * This was added for DEBUGBEFORECMD but I've made
+ * it unconditional to keep dependencies to a minimum.
+ *
+ * The line number is updated for individual pipelines.
+ * This isn't necessary for debug traps since they only
+ * run once per sublist.
+ */
+ wordcode code2 = *state->pc, lnp1 = 0;
+ if (ltype & Z_SIMPLE) {
+ lnp1 = code2;
+ } else if (wc_code(code2) == WC_SUBLIST) {
+ if (WC_SUBLIST_FLAGS(code2) == WC_SUBLIST_SIMPLE)
+ lnp1 = state->pc[2];
+ else
+ lnp1 = WC_PIPE_LINENO(state->pc[1]);
+ }
+ if (lnp1)
+ lineno = lnp1 - 1;
+ }
+
if (sigtrapped[SIGDEBUG] && isset(DEBUGBEFORECMD)) {
exiting = donetrap;
ret = lastval;
@@ -881,9 +910,6 @@
} else
donedebug = 0;
- ltype = WC_LIST_TYPE(code);
- csp = cmdsp;
-
if (ltype & Z_SIMPLE) {
next = state->pc + WC_LIST_SKIP(code);
execsimple(state);
Index: Src/zsh.h
===================================================================
RCS file: /cvsroot/zsh/zsh/Src/zsh.h,v
retrieving revision 1.107
diff -u -r1.107 zsh.h
--- Src/zsh.h 9 Jan 2007 21:59:31 -0000 1.107
+++ Src/zsh.h 14 Jan 2007 19:01:14 -0000
@@ -703,8 +703,9 @@
#define WC_LIST_TYPE(C) wc_data(C)
#define Z_END (1<<4)
#define Z_SIMPLE (1<<5)
-#define WC_LIST_SKIP(C) (wc_data(C) >> 6)
-#define WCB_LIST(T,O) wc_bld(WC_LIST, ((T) | ((O) << 6)))
+#define WC_LIST_FREE (6) /* Next bit available in integer */
+#define WC_LIST_SKIP(C) (wc_data(C) >> WC_LIST_FREE)
+#define WCB_LIST(T,O) wc_bld(WC_LIST, ((T) | ((O) << WC_LIST_FREE)))
#define WC_SUBLIST_TYPE(C) (wc_data(C) & ((wordcode) 3))
#define WC_SUBLIST_END 0
@@ -714,8 +715,10 @@
#define WC_SUBLIST_COPROC 4
#define WC_SUBLIST_NOT 8
#define WC_SUBLIST_SIMPLE 16
-#define WC_SUBLIST_SKIP(C) (wc_data(C) >> 5)
-#define WCB_SUBLIST(T,F,O) wc_bld(WC_SUBLIST, ((T) | (F) | ((O) << 5)))
+#define WC_SUBLIST_FREE (5) /* Next bit available in integer */
+#define WC_SUBLIST_SKIP(C) (wc_data(C) >> WC_SUBLIST_FREE)
+#define WCB_SUBLIST(T,F,O) wc_bld(WC_SUBLIST, \
+ ((T) | (F) | ((O) << WC_SUBLIST_FREE)))
#define WC_PIPE_TYPE(C) (wc_data(C) & ((wordcode) 1))
#define WC_PIPE_END 0
--
Peter Stephenson <p.w.stephenson@ntlworld.com>
Web page now at http://homepage.ntlworld.com/p.w.stephenson/
prev parent reply other threads:[~2007-01-14 19:14 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <200701100744.l0A7il227749@nwsgpa.ih.lucent.com>
2007-01-11 22:32 ` Peter Stephenson
2007-01-14 19:14 ` Peter Stephenson [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20070114191418.6974b2d1.p.w.stephenson@ntlworld.com \
--to=p.w.stephenson@ntlworld.com \
--cc=nwsgpamachine@alcatel-lucent.com \
--cc=zsh-workers@sunsite.dk \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.vuxu.org/mirror/zsh/
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).