From 5542c7fbd4d6aa695709f1b3b505477ea61c02e2 Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Fri, 8 Apr 2016 15:54:27 +0200 Subject: [PATCH] ob-sql: add vertica support - added Vertica support to org-babel sql. --- elpa/org-20160215/ob-sql.el | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) 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 -- 2.47.3