From eed31ad9360f2607e5b6b4a8ecce6e6cc745ce71 Mon Sep 17 00:00:00 2001 From: Rick Frankel Date: Wed, 16 May 2012 21:26:56 -0400 Subject: [PATCH] Add dbi support to sql babel mode * lisp/ob-sql.el: add dbi engine type and pre/post processing --- lisp/ob-sql.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/ob-sql.el b/lisp/ob-sql.el index e3f6edd73..078c36550 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)