;ELC ;;; Compiled ;;; in Emacs version 24.5.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'ob) (defvar org-babel-default-header-args:sql nil) #@32 SQL-specific header arguments. (defconst org-babel-header-args:sql '((engine . :any) (out-file . :any) (dbhost . :any) (dbport . :any) (dbuser . :any) (dbpassword . :any) (database . :any)) (#$ . 471)) #@48 Expand BODY according to the values of PARAMS. (defalias 'org-babel-expand-body:sql #[(body params) "\302\303\304\305 \306\"\"\"\207" [body params org-babel-sql-expand-vars mapcar cdr org-babel-get-header :var] 7 (#$ . 679)]) #@79 Make MySQL cmd line args for database connection. Pass nil to omit that arg. (defalias 'org-babel-sql-dbstring-mysql #[(host port user password database) "\305\306\307\205\n\310P \205\311\312 \"\n\205\313\nP \205 \314 P\f\205'\315\fP\257\"!\207" [host port user password database combine-and-quote-strings delq nil "-h" format "-P%d" "-u" "-p" "-D"] 9 (#$ . 912)]) #@87 Make PostgreSQL command line args for database connection. Pass nil to omit that arg. (defalias 'org-babel-sql-dbstring-postgresql #[(host user database) "\303\304\305\205\n\306P \205\307 P\n\205\310\nPE\"!\207" [host user database combine-and-quote-strings delq nil "-h" "-U" "-d"] 7 (#$ . 1294)]) #@99 Execute a block of Sql code with Babel. This function is called by `org-babel-execute-src-block'. (defalias 'org-babel-execute:sql #[(body params) "\306\307\"A\306\310\"A\306\311\"A\312\236A\306\313\"A\306\314\"A@\306\315\"AA\306\316\"AB\306\317\"A\320\232?C\321\322!D\306\323\"A\206L\321\324!E\325F\326B!G\327G\330\"\203s\331\332\n\206f\325\333D!\334\333E!%\202 \327G\335\"\203\216\331\336\n\206\202\325\333D!\333E!$\202 \327G\337\"\203\251\331\340\n\206\235\325\333D!\333E!$\202 \327G\341\"\203\330\331\342\343 \f @A%C\203\305\325\202\306\344\n\206\313\325\333D!\333E!&\202 \327G\345\"\203\331\346C\203\353\325\202\354\347\350 A#\333D!\333E!\n\206\377\325&\202 \351\352B\")HD\353\354\355!!IJ\356\216rIq\210\326B!K\327K\357\"\2030\360\2021\325)\361L\"\261\210)rIq\210\362\363\211J\363\364%\210,\365H!\210\366H\325\"\210 M\367M\235?\205\336\370M\235\204\263\371M\235\204\263\372M\235\204\263\373M\235\204\263\374M\235\204\263\375M\235\204\263\376M\235\204\252\377M\235\204\252\201RM\235\204\252\201SM\235\203\324\201TM\235\204\324\201U\201V!NrNq\210\201W\216\201XE!\210\201Y +\202\336\201U\201V!OrOq\210\201Z\216\326B!\201[=\204\326B!\201\\=\204\326B!\201]=\203BC\203\242\201U\201V!PrPq\210\201^\216\201_E!\210eb\210\201`y\210\201ac\210\201bF\201cE!\210+\202\242\201U\201V!QrQq\210\201d\216\201_E!\210eb\210\201e\201f\363\201g#\203u\201h\201`!Fdb\210\201iu\210\201j\201k!\203\232\201l\201`!\210db\210\201iu\210\202}\201cE!\210+\201mE\201n\"\210\201o\201p\201q\201r \"\201s\306\201t\"A\306\317\"A\"\201s\306\201u\"A\306\201v\"A\"#+.\207" [params result-params cmdline dbhost dbport dbuser assoc :result-params :cmdline :dbhost :dbport :dbuser :dbpassword :database :engine :colnames "no" org-babel-temp-file "sql-in-" :out-file "sql-out-" "" intern memql 'dbi format "dbish --batch %s < %s | sed '%s' > %s" org-babel-process-file-name "/^+/d;s/^|//;s/(NULL)/ /g;$d" 'monetdb "mclient -f tab %s < %s > %s" 'msosql "osql %s -s \" \" -i %s -o %s" 'mysql "mysql %s %s %s < %s > %s" org-babel-sql-dbstring-mysql "-N" 'postgresql "psql --set=\"ON_ERROR_STOP=1\" %s -A -P footer=off -F \" \" %s -f %s -o %s %s" "-t" org-babel-sql-dbstring-postgresql error "No support for the %s SQL engine" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) 'dbi "/format partbox\n" org-babel-expand-body:sql write-region nil 0 message org-babel-eval "none" "scalar" "verbatim" "html" "code" "pp" "file" "output" "raw" dbpassword database engine colnames-p in-file out-file header-delim #2=#:--cl-var-- command #1# #3=#:temp-file #4=#:--cl-var-- body #5=#:--params #6=#:temp-buffer #7=#:temp-buffer #8=#:temp-buffer #9=#:temp-buffer "org" "drawer" "table" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#6# buffer-name kill-buffer] 2)) insert-file-contents-literally buffer-string ((byte-code "\301!\203\n\302!\210\301\207" [#7# buffer-name kill-buffer] 2)) mysql dbi postgresql ((byte-code "\301!\203\n\302!\210\301\207" [#8# buffer-name kill-buffer] 2)) insert-file-contents 1 "-\n" "-" write-file ((byte-code "\301!\203\n\302!\210\301\207" [#9# buffer-name kill-buffer] 2)) re-search-forward "^\\(-+\\)[^-]" t match-string-no-properties -1 looking-at "\n" delete-char org-table-import (16) org-babel-reassemble-table mapcar #[(x) "@ \230\203 \302\207\207" [x header-delim hline] 2] org-table-to-lisp org-babel-pick-name :colname-names :rowname-names :rownames] 8 (#$ . 1606)]) #@44 Expand the variables held in VARS in BODY. (defalias 'org-babel-sql-expand-vars #[(body vars) "\302\303\"\210 \207" [vars body mapc #[(pair) "\306\307\310@\"A\211<\2039\311\312!\211\313\314\315!!\316\216r q\210\317 \320\"c\210)r q\210\321\322\211\f\322\323%\210,\n)\202F ;\203B \202F\307\324 \") #\211\207" [pair val data-file #1=#:temp-buffer #2=#:temp-file body replace-regexp-in-string format "$%s" org-babel-temp-file "sql-data-" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) orgtbl-to-csv (:fmt (lambda (el) (if (stringp el) el (format "%S" el)))) write-region nil 0 "%S"] 9]] 3 (#$ . 5307)]) #@57 Raise an error because Sql sessions aren't implemented. (defalias 'org-babel-prep-session:sql #[(session params) "\300\301!\207" [error "SQL sessions not yet implemented"] 2 (#$ . 6015)]) (provide 'ob-sql)