Re: (no subject)

[Eric Schulte <eric.schulte@gmx.com>]

Thanks for the patch, I would like to apply it.

Have you signed the FSF papers for contribution to Org-mode and Emacs?
If you haven't would you be willing to?  See the Org-mode contribution
instructions for more information.
http://orgmode.org/worg/org-contribute.html

Thanks!

rick@rickster.com (Rick Frankel) writes:

> From 113bbbe1ce9540e2af8c613ba655599fc474cedd Mon Sep 17 00:00:00 2001
> From: Rick Frankel <rick@rickster.com>
> Date: Fri, 11 May 2012 16:54:32 -0400
> Subject: [PATCH] Add support for perl dbi to SQL code block
>
> * lisp/ob-sql.el (org-babel-execute:sql): Add dbi as a suppored engine.
>
> Invokes `dbish' with the arguments specified to ":cmdline". Minimum is
> usually the "dbi:{dbd}" argument, plus the username and password if
> required.
> For example:
>
>  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 e3f6edd..c6d4790 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)

-- 
Eric Schulte
http://cs.unm.edu/~eschulte/