emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* [babel] Expand code is failing on a #+call line
@ 2011-10-20 15:12 Sebastien Vauban
  2011-10-20 15:48 ` Eric Schulte
  0 siblings, 1 reply; 4+ messages in thread
From: Sebastien Vauban @ 2011-10-20 15:12 UTC (permalink / raw)
  To: emacs-orgmode-mXXj517/zsQ

Hi Eric,

* Config

** Some file to be ingested

Let's say I have this code in a =my-lob.org= file:

#+srcname: add-column-in-table(table="", column="", type="", nullability="")
#+begin_src sql
-- add column `$column' (if column does not exist yet)
IF NOT EXISTS (SELECT *
               FROM INFORMATION_SCHEMA.COLUMNS
               WHERE TABLE_NAME = '$table'
               AND COLUMN_NAME = '$column')
BEGIN
    ALTER TABLE $table
    ADD $column $type $nullability
END
#+end_src

** In .emacs

... which I ingest at Emacs startup through the lines:

#+begin_src emacs-lisp
(require 'ob-lob)
(org-babel-lob-ingest "~/org/my-lob.org")
#+end_src

* Some other document

** Source params

In some other document, I have a table with columns I'd like to add in a
database:

#+results: params
| table   | column         | type        | nullability |
|---------+----------------+-------------+-------------|
| dossier | pfiResetDate   | date        | NULL        |
| dossier | pfiResetOprID  | tinyint     | NULL        |
| dossier | pfiResetOprNom | varchar(64) | NULL        |

Normally, I could call statements like this:

#+call: add-column-in-table(table=params[2,0], column=params[2,1], type=params[2,2], nullability=params[2,3])

But...

** Expand code is failing

=C-c C-v C-v= does generate an error:

    setf: Wrong type argument: consp, nil

#+begin_src text
Debugger entered--Lisp error: (wrong-type-argument consp nil)
  setcar(nil ((:cache . "") (:comments . "") (:exports . "") (:noweb . "") (:padline . "") (:results . "") (:shebang . "") (:tangle . "")))
  (setf (nth 2 info) (sort (org-babel-merge-params ... params) (lambda ... ...)))
  (let* ((info ...) (lang ...) (params ...) (body ...) (expand-cmd ...) (assignments-cmd ...) (expanded ...)) (org-edit-src-code nil expanded (concat "*Org-Babel Preview " ... "[ " lang " ]*")))
  org-babel-expand-src-block()
  call-interactively(org-babel-expand-src-block nil nil)
#+end_src

This stays very unclear to me...

** Execute code is failing

By the way, =C-c C-v C-e= returns as well an error:

    let: Wrong type argument: stringp, nil

This is explainable: that's because the SQL =engine= is not known (not given
neither in the header of the code block, neither anywhere in this file).

#+begin_src text
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  intern(nil)
  (let ((--cl-var-- ...)) (cond (... ...) (... ...) (... ...) (t ...)))
  (case (intern engine) ((quote msosql) (format "osql %s -s \"	\" -i %s -o %s" ... ... ...)) ((quote mysql) (format "mysql %s < %s > %s" ... ... ...)) ((quote postgresql) (format "psql -A -P footer=off -F \"	\"  -f %s -o %s %s" ... ... ...)) (t (error "no support for the %s sql engine" engine)))
  (let* ((result-params ...) (cmdline ...) (engine ...) (in-file ...) (out-file ...) (header-delim "") (command ...)) (with-temp-file in-file (insert ...)) (message command) (shell-command command) (if (or ... ... ... ... ...) (with-temp-buffer ...) (with-temp-buffer ... ... ...)))
  org-babel-execute:sql("-- add column `$column' (if column does not exist yet)\nIF NOT EXISTS (SELECT *\n               FROM INFORMATION_SCHEMA.COLUMNS\n               WHERE TABLE_NAME = '$table'\n               AND COLUMN_NAME = '$column')\nBEGIN\n    ALTER TABLE $table\n    ADD $column $type $nullability\nEND" ((:var table . "dossier") (:var column . "pfiResetDate") (:var type . "date") (:var nullability . "NULL") (:colname-names) (:rowname-names) (:result-params "silent" "replace") (:result-type . value) (:comments . "") (:shebang . "") (:cache . "no") (:padline . "") (:noweb . "no") (:tangle . "no") (:exports . "code") (:results . "silent") (:padnewline . "yes") (:hlines . "no") (:session . "none") (:result-type . value) (:result-params "replace") (:rowname-names) (:colname-names)))
#+end_src

Though, I guess we should have a proper manner to report that some necessary
arguments are missing, instead of failing with a unclear message.

** Other weirdnesses

While the variable =org-babel-library-of-babel= contains the ingested code
(here, of =add-column-in-table=), the variable =org-babel-lob-files= is =nil=!?

** Speed commands

Speed commands don't work on the =#+call= lines. If I press =v= or =e=, they're
inserted verbatim.

Can you help me understand the 1^st point of these 4?  Thanks a lot!!

Best regards,
  Seb

-- 
Sebastien Vauban

^ permalink raw reply	[flat|nested] 4+ messages in thread

end of thread, other threads:[~2011-10-20 17:53 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2011-10-20 15:12 [babel] Expand code is failing on a #+call line Sebastien Vauban
2011-10-20 15:48 ` Eric Schulte
2011-10-20 16:33   ` Sebastien Vauban
2011-10-20 17:52     ` Eric Schulte

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).