From mboxrd@z Thu Jan 1 00:00:00 1970 From: Martyn Jago Subject: Re: [babel][bug] org-babel-balanced-split (with Emacs-22) Date: Tue, 03 Jan 2012 18:32:56 +0000 Message-ID: References: <87hb0cu1bb.fsf@gmx.com> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([140.186.70.92]:53687) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Ri9Aj-0005gz-SH for emacs-orgmode@gnu.org; Tue, 03 Jan 2012 13:33:22 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Ri9Ai-0003qG-Mm for emacs-orgmode@gnu.org; Tue, 03 Jan 2012 13:33:17 -0500 Received: from lo.gmane.org ([80.91.229.12]:34139) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Ri9Ai-0003q5-DR for emacs-orgmode@gnu.org; Tue, 03 Jan 2012 13:33:16 -0500 Received: from list by lo.gmane.org with local (Exim 4.69) (envelope-from ) id 1Ri9Ag-00068S-Fw for emacs-orgmode@gnu.org; Tue, 03 Jan 2012 19:33:14 +0100 Received: from 88-96-171-138.dsl.zen.co.uk ([88.96.171.138]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 03 Jan 2012 19:33:14 +0100 Received: from martyn.jago by 88-96-171-138.dsl.zen.co.uk with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 03 Jan 2012 19:33:14 +0100 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Eric Schulte writes: > Martyn Jago writes: > >> Martyn Jago writes: >> >> [...] >> >> The problem appears to be associated with the way `member' works: >> >> - on Emacs 23+ the following doesn't generate an error >> - on Emacs 22 it generates "Wrong type argument: listp, 58" >> >> #+begin_src emacs-lisp >> >> (member 116 58) >> >> #+end_src >> >> `org-babel-balanced-split' appears to rely on not generating an error >> when the `member' LIST parameter is actually a number. >> > > Ah, I see where this comes in, does the included alternative definition > of this function fix the issue on Emacs22? If so I'll apply this change > to the repository. > > Thanks, > > (defun org-babel-balanced-split (string alts) > "Split STRING on instances of ALTS. > ALTS is a cons of two character options where each option may be > either the numeric code of a single character or a list of > character alternatives. For example to split on balanced > instances of \"[ \t]:\" set ALTS to '((32 9) . 58)." > (flet ((matches (ch spec) (or (and (numberp spec) (= spec ch)) > (not (numberp spec) (member ch spec)))) [...] Hi Eric I fixed a typo on your fix, and added a regression test, and it now works on Emacs 22. Thanks! Best, Martyn --8<---------------cut here---------------start------------->8--- (defun org-babel-balanced-split (string alts) "Split STRING on instances of ALTS. ALTS is a cons of two character options where each option may be either the numeric code of a single character or a list of character alternatives. For example to split on balanced instances of \"[ \t]:\" set ALTS to '((32 9) . 58)." (flet ((matches (ch spec) (or (and (numberp spec) (= spec ch)) (and (not (numberp spec)) (member ch spec)))) (matched (ch last) (if (consp alts) (and (matches ch (cdr alts)) (matches last (car alts))) (matches ch alts)))) (let ((balance 0) (quote nil) (partial nil) (lst nil) (last 0)) (mapc (lambda (ch) ; split on [], (), "" balanced instances of [ \t]: (setq balance (+ balance (cond ((or (equal 91 ch) (equal 40 ch)) 1) ((or (equal 93 ch) (equal 41 ch)) -1) (t 0)))) (when (and (equal 34 ch) (not (equal 92 last))) (setq quote (not quote))) (setq partial (cons ch partial)) (when (and (= balance 0) (not quote) (matched ch last)) (setq lst (cons (apply #'string (nreverse (if (consp alts) (cddr partial) (cdr partial)))) lst)) (setq partial nil)) (setq last ch)) (string-to-list string)) (nreverse (cons (apply #'string (nreverse partial)) lst))))) --8<---------------cut here---------------end--------------->8--- --8<---------------cut here---------------start------------->8--- (ert-deftest test-ob/org-babel-balanced-split () (should (equal '(":a 1" "b [2 3]" "c (4 :d (5 6))") (org-babel-balanced-split ":a 1 :b [2 3] :c (4 :d (5 6))" '((32 9) . 58))))) --8<---------------cut here---------------end--------------->8---