diff options
author | Rick Frankel <rick@rickster.com> | 2012-05-16 21:26:56 -0400 |
---|---|---|
committer | Eric Schulte <eric.schulte@gmx.com> | 2012-05-16 19:50:43 -0400 |
commit | eed31ad9360f2607e5b6b4a8ecce6e6cc745ce71 (patch) | |
tree | 23ad5f3e2b09f0c009c999849a8c258c05ce1d70 | |
parent | c4cad9f80bc2d581570c572ac4ed0e4c971a6c91 (diff) | |
download | org-mode-eed31ad9360f2607e5b6b4a8ecce6e6cc745ce71.tar.gz |
Add dbi support to sql babel mode
* lisp/ob-sql.el: add dbi engine type and pre/post processing
-rw-r--r-- | lisp/ob-sql.el | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lisp/ob-sql.el b/lisp/ob-sql.el index e3f6edd..078c365 100644 --- a/lisp/ob-sql.el +++ b/lisp/ob-sql.el @@ -71,6 +71,11 @@ This function is called by `org-babel-execute-src-block'." (org-babel-temp-file "sql-out-"))) (header-delim "") (command (case (intern engine) + ('dbi (format "dbish --batch '%s' < %s | sed '%s' > %s" + (or cmdline "") + (org-babel-process-file-name in-file) + "/^+/d;s/^\|//;$d" + (org-babel-process-file-name out-file))) ('monetdb (format "mclient -f tab %s < %s > %s" (or cmdline "") (org-babel-process-file-name in-file) @@ -90,7 +95,11 @@ This function is called by `org-babel-execute-src-block'." (or cmdline ""))) (t (error "no support for the %s sql engine" engine))))) (with-temp-file in-file - (insert (org-babel-expand-body:sql body params))) + (insert + (case (intern engine) + ('dbi "/format partbox\n") + (t "")) + (org-babel-expand-body:sql body params))) (message command) (shell-command command) (if (or (member "scalar" result-params) |