emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Tobias Zawada <Zawada@itisim.com>
To: "emacs-orgmode@gnu.org" <emacs-orgmode@gnu.org>
Subject: Bug in org-lob: Function call adds space to argument string with parenthesis
Date: Fri, 18 Dec 2015 08:46:42 +0000	[thread overview]
Message-ID: <b7e5f0cd5b2f4bfb91e06c3a695e9489@VS-Exchange-1.DD1.iti.local> (raw)


[-- Attachment #1.1: Type: text/plain, Size: 6879 bytes --]

* Bug in org-lob: Function call adds space to argument string with parenthesis
Dear all,
  Please see the following code. I would expect arg="()" as result of the  call-line but the result is arg="() " with an additional space.

  #+NAME: test
  #+BEGIN_SRC emacs-lisp :var arg=""
(message "arg=%S" arg)
  #+END_SRC

  #+RESULTS:
  : arg=""

  #+call: test(arg="()")

  #+RESULTS:
  : arg="() "


* My current fast and dirty hack is using sexps instead of regular expressions:

  #+BEGIN_SRC emacs-lisp
(require 'ob-lob)
(defadvice org-babel-lob-get-info (around correct-args activate)
  "Return a Library of Babel function call as a list.
1st element is the function call as a string.
2nd element is the indentation width
3rd element is the name of the function call if this call is named."
  (setq ad-return-value (let ((case-fold-search t)
                                                      (nonempty (lambda (a b)
                                                                                  (let ((it (match-string a)))
                                                                                    (if (= (length it) 0) (match-string b) it)))))
                                                  (save-excursion
                                                    (beginning-of-line 1)
                                                    (when (looking-at org-babel-lob-one-liner-regexp)
                                                      (append
                                                       (list (if (= (length (match-string 12)) 0)
                                                                                (org-babel-lob-get-info-call-line)
                                                                       (org-babel-lob-get-info-inline)))
                                                       (list (length (if (= (length (match-string 12)) 0)
                                                                                                (match-string 2) (match-string 11)))
                                                                     (save-excursion
                                                                       (forward-line -1)
                                                                       (and (looking-at (concat org-babel-src-name-regexp
                                                                                                                                "\\([^\n]*\\)$"))
                                                                                    (org-no-properties (match-string 1)))))))))))

(defun org-babel-lob-get-info-call-line ()
  "Unify Library of Babel call string of form \"#+CALL:\"
The unified syntax is
,,#+CALL: <name>[<inside header arguments>](<arguments>) <end header arguments>"
  (save-excursion
    (save-match-data
      (let ((name "")
                    (inside-header-args "[]")
                    (args "()")
                    end-header-args)
                (skip-syntax-forward " ")
                (unless (looking-at "#\\+call:[[:space:]]+\\(\\(?:\\sw\\|\\s_\\)+\\)")
                  (error "Expecting #+CALL: at beginning of line"))
                (setq name (match-string 1))
                (goto-char (match-end 0))
                (skip-syntax-forward " ")
                (when (eq (char-after) ?\[) ;; inside-header-args
                  (setq inside-header-args (buffer-substring-no-properties (point) (goto-char (scan-sexps (point) 1)))))
                (skip-syntax-forward " ")
                (when (eq (char-after) ?\()
                  (setq args (buffer-substring-no-properties (point) (goto-char (scan-sexps (point) 1)))))
                (setq end-header-args (buffer-substring-no-properties (point) (line-end-position)))
                (concat name inside-header-args args end-header-args)))))

(defun org-babel-lob-get-info-inline ()
  "Transform one-line Library of Babel calls of form call_<name>[<inside header arguments>](<arguments>)[<end header arguments>] into the unified syntax
,,#+CALL: <name>[<inside header arguments>](<arguments>) <end header arguments>"
  (save-excursion
    (save-match-data
      (let ((name "")
                    (inside-header-args "[]")
                    (args "()")
                    (end-header-args ""))
                (skip-syntax-forward " ")
                (unless (looking-at "call_\\(\\(?:\\sw\\|\\s_\\)+\\)")
                  (error "Expecting #+CALL: at beginning of line"))
                (setq name (match-string 1))
                (goto-char (match-end 0))
                (skip-syntax-forward " ")
                (when (eq (char-after) ?\[) ;; inside-header-args
                  (setq inside-header-args (buffer-substring-no-properties (point) (goto-char (scan-sexps (point) 1)))))
                (skip-syntax-forward " ")
                (when (eq (char-after) ?\()
                  (setq args (buffer-substring-no-properties (point) (goto-char (scan-sexps (point) 1)))))
                (when (eq (char-after) ?\[)
                  (setq end-header-args (buffer-substring-no-properties (1+ (point)) (1- (scan-sexps (point) 1)))))
                (concat name inside-header-args args end-header-args)))))
  #+END_SRC


  Emacs  : GNU Emacs 24.5.1 (x86_64-unknown-cygwin, GTK+ Version 3.14.13)
of 2015-06-23 on desktop-new
Package: Org-mode version 8.3.2

Mit freundlichen Grüßen / Best regards
Tobias Zawada
Engineering / Software Development
T

+49 (351) 26050 0

F

+49 (351) 26050 155

Zawada@itisim.com<mailto:Zawada@itisim.com>



itisim.com
<www.itisim.com>________________________________

SimulationX 3.7 now available
More information <https://www.simulationx.com/simulation-software.html>

Always up to date
Subscribe to the ITI Newsletter<http://www.iti.de/newsletter/>!

[cid:Charta-der-Vielfalt-Logo_2ed28c31-dc91-41ff-ad23-4b8bdeebfbf2.png]<http://www.charta-der-vielfalt.de/>
________________________________

ITI GmbH
Schweriner Straße 1
01067 Dresden
Germany

Managing Director/Geschäftsführer
Dr. Andreas Uhlig

Commercial Register/Handelsregister
Amtsgericht Dresden · HRB 2331
USt.-IdNr.: DE140297717

Diese E-Mail ist streng vertraulich und nur für den Empfänger bestimmt.
Sie kann Informationen enthalten, die rechtliche, geschäftliche oder andere Vergünstigungen bedeuten.
Sollten Sie nicht der ausdrückliche Empfänger sein, dürfen Sie diese Informationen nicht benutzen, veröffentlichen oder vervielfältigen.

The information in this e-mail is strictly confidential, is intended solely for the addressee, and may be privileged.
If you are not the intended addressee you must not disclose, print or take action based upon this transmission and should delete it from your system.

[-- Attachment #1.2: Type: text/html, Size: 27947 bytes --]

[-- Attachment #2: Charta-der-Vielfalt-Logo_2ed28c31-dc91-41ff-ad23-4b8bdeebfbf2.png --]
[-- Type: image/png, Size: 6608 bytes --]

             reply	other threads:[~2015-12-18  9:07 UTC|newest]

Thread overview: 5+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2015-12-18  8:46 Tobias Zawada [this message]
2015-12-20 15:49 ` Bug in org-lob: Function call adds space to argument string with parenthesis Nicolas Goaziou
2015-12-21  8:55   ` Tobias Zawada
2015-12-22 22:01     ` Nicolas Goaziou
2015-12-23  0:04       ` Robert Klein

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

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=b7e5f0cd5b2f4bfb91e06c3a695e9489@VS-Exchange-1.DD1.iti.local \
    --to=zawada@itisim.com \
    --cc=emacs-orgmode@gnu.org \
    /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.savannah.gnu.org/cgit/emacs/org-mode.git

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 read-only IMAP folder(s) and NNTP newsgroup(s).