Sébastien Vauban <wxhgmqzgw...@spammotel.com> writes:
<...>
> Is there a way to tangle it with some string replacements being made, such as:
>
> | pTable | dossier |
> | pColumn | pfiNew |
> | pDatatype | string |
> | pAcceptnullvalues | NULL |
>
> I've tried the following, with no success:
>
> #+srcname:
> add-column-in-table(pTable=dossier,pColumn=pfiNew,pDatatype=string,pAcceptnullvalues=NULL)
Hi Seb,
Those function-arguments / variable assignments won't affect the
*tangled* output. Afaik the only method for making substitutions in the
tangled output is the <<source block name>> block references. So one way
to achieve what you want would be to create a block for each string
replacement (Example [1] below; I don't know if I've got the quoting
right in the sql output). But perhaps Tom/Eric will have a better
answer.
Incidentally, it seems that we do not currently support variables when
*evaluating* an sql block. I.e. the function-arguments that you used:
> #+srcname:
> add-column-in-table(pTable=dossier,pColumn=pfiNew,pDatatype=string,pAcceptnullvalues=NULL)
will have no effect. The patch below[2] implements that. I'll let Eric
decide whether it's appropriate as I don't know anything about sql. Note
that you would need to quote the strings in your srcname line
(i.e. (pTable="dossier", ...))
Dan
> #+begin_src sql :tangle dossier.sql
> -- add column `pfiDossierSentToSecteur' (if column does not exist yet)
> IF NOT EXISTS (SELECT *
> FROM INFORMATION_SCHEMA.COLUMNS
> WHERE TABLE_NAME = 'pTable'
> AND COLUMN_NAME = 'pColumn)
> BEGIN
> ALTER TABLE pTable
> ADD pColumn pDatatype pAcceptnullvalues
> END
> GO
> #+end_src
>
> Is such a feature supported, or another way to come down to the same result?
Footnotes:
[1]
----------------------------------------------------------------
#+srcname: pTable
#+begin_src emacs-lisp
"dossier"
#+end_src
#+srcname: pColumn
#+begin_src emacs-lisp
"pfiNew"
#+end_src
#+srcname: pDatatype
#+begin_src emacs-lisp
"string"
#+end_src
#+srcname: pAcceptnullvalues
#+begin_src emacs-lisp
"NULL"
#+end_src
#+begin_src sql :tangle dossier.sql :engine mysql
-- add column `pfiDossierSentToSecteur' (if column does not exist yet)
IF NOT EXISTS (SELECT *
FROM INFORMATION_SCHEMA.COLUMNS
WHERE TABLE_NAME = <<pTable>>
AND COLUMN_NAME = <<pColumn>>)
BEGIN
ALTER TABLE <<pTable>>
ADD <<pColumn>> <<pDatatype>> <<pAcceptnullvalues>>
END
GO
#+end_src
----------------------------------------------------------------
[2]
----------------------------------------------------------------
diff --git a/contrib/babel/lisp/langs/org-babel-sql.el
b/contrib/babel/lisp/langs/org-babel-sql.el
index 837c5fd..7e37fee 100644
--- a/contrib/babel/lisp/langs/org-babel-sql.el
+++ b/contrib/babel/lisp/langs/org-babel-sql.el
@@ -55,7 +55,8 @@
"Execute a block of Sql code with org-babel. This function is
called by `org-babel-execute-src-block'."
(message "executing Sql source code block")
- (let* ((result-params (split-string (or (cdr (assoc :results params)) "")))
+ (let* ((processed-params (org-babel-process-params params))
+ (vars (second processed-params))
(cmdline (cdr (assoc :cmdline params)))
(engine (cdr (assoc :engine params)))
(in-file (make-temp-file "org-babel-sql-in"))
@@ -66,6 +67,9 @@ called by `org-babel-execute-src-block'."
(or cmdline "") in-file out-file))
('nil (error "sql engine not specified"))
(t (error "no support for the %s sql engine" engine)))))
+ (mapc (lambda (pair)
+ (setq body (replace-regexp-in-string (format "%s" (car pair)) (cdr
pair) body)))
+ vars)
(with-temp-file in-file (insert body))
(message command)
(shell-command command)
----------------------------------------------------------------
_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
