From: Andreas Gerler Date: Fri, 8 Apr 2016 13:54:27 +0000 (+0200) Subject: ob-sql: add vertica support X-Git-Url: http://git.bundesbrandschatzamt.de/?a=commitdiff_plain;h=5542c7fbd4d6aa695709f1b3b505477ea61c02e2;p=emacsconfig.git ob-sql: add vertica support - added Vertica support to org-babel sql. --- diff --git a/elpa/org-20160215/ob-sql.el b/elpa/org-20160215/ob-sql.el index 1a5c5517..044da623 100644 --- a/elpa/org-20160215/ob-sql.el +++ b/elpa/org-20160215/ob-sql.el @@ -99,6 +99,16 @@ Pass nil to omit that arg." (when user (concat "-U" user)) (when database (concat "-d" database)))))) +(defun org-babel-sql-dbstring-vertica (host port user password database) + "Make Vertica command line args for database connection. Pass nil to omit that arg." + (combine-and-quote-strings + (delq nil + (list (when host (concat "-h" host)) + (when port (format "-p%d" port)) + (when user (concat "-U" user)) + (when password (concat "-w" password)) + (when database (concat "-d" database)))))) + (defun org-babel-execute:sql (body params) "Execute a block of Sql code with Babel. This function is called by `org-babel-execute-src-block'." @@ -144,6 +154,12 @@ This function is called by `org-babel-execute-src-block'." (org-babel-process-file-name in-file) (org-babel-process-file-name out-file) (or cmdline ""))) + ('vertica (format "vsql %s -f %s -o %s %s" + (org-babel-sql-dbstring-vertica + dbhost dbport dbuser dbpassword database) + (org-babel-process-file-name in-file) + (org-babel-process-file-name out-file) + (or cmdline ""))) (t (error "No support for the %s SQL engine" engine))))) (with-temp-file in-file (insert @@ -160,7 +176,8 @@ This function is called by `org-babel-execute-src-block'." (cond ((or (eq (intern engine) 'mysql) (eq (intern engine) 'dbi) - (eq (intern engine) 'postgresql)) + (eq (intern engine) 'postgresql) + (eq (intern engine) 'vertica)) ;; Add header row delimiter after column-names header in first line (cond (colnames-p