%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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)) (#$ . 469))
#@66 Expand BODY according to the values of PARAMS.
(fn BODY PARAMS)
(defalias 'org-babel-expand-body:sql #[514 "\300\301!\"\207" [org-babel-sql-expand-vars org-babel--get-vars] 6 (#$ . 677)])
#@156 Set `sql-product' in Org edit buffer.
Set `sql-product' in Org edit buffer according to the
corresponding :engine source block header argument.
(fn INFO)
(defalias 'org-babel-edit-prep:sql #[257 "\300\3018\236A\302!\207" [:engine 2 sql-set-product] 4 (#$ . 875)])
#@118 Make MySQL cmd line args for database connection. Pass nil to omit that arg.
(fn HOST PORT USER PASSWORD DATABASE)
(defalias 'org-babel-sql-dbstring-mysql #[1285 "\300\301\302\205\f \303P\205 \304\305 \"\205 \306P\205( \307P\2051 \310P\257\"!\207" [combine-and-quote-strings delq nil "-h" format "-P%d" "-u" "-p" "-D"] 14 (#$ . 1149)])
#@117 Make PostgreSQL command line args for database connection.
Pass nil to omit that arg.
(fn HOST PORT USER DATABASE)
(defalias 'org-babel-sql-dbstring-postgresql #[1028 "\300\301\302\205\f \303P\205 \304\305\"\205 \306P\205( \307PF\"!\207" [combine-and-quote-strings delq nil "-h" format "-p%d" "-U" "-d"] 12 (#$ . 1516)])
#@336 Make Oracle command line arguments for database connection.
If HOST and PORT are nil then don't pass them. This allows you
to use names defined in your "TNSNAMES" file. So you can
connect with
<user>/<password>@<host>:<port>/<database>
or
<user>/<password>@<database>
using its alias.
(fn HOST PORT USER PASSWORD DATABASE)
(defalias 'org-babel-sql-dbstring-oracle #[1285 "\203! \203! \211\203! \203! \203! \300\301&\207\2034 \2034 \211\2034 \300\302$\207\303\304!\207" [format "%s/%s@%s:%s/%s" "%s/%s@%s" user-error "Missing information to connect to database"] 12 (#$ . 1863)])
#@196 Make sqlcmd command line args for database connection.
`sqlcmd' is the preferred command line tool to access Microsoft
SQL Server on Windows and Linux platform.
(fn HOST USER PASSWORD DATABASE)
(defalias 'org-babel-sql-dbstring-mssql #[1028 "\300\301\302\303\205 \304\305 \"\205 \304\306 \"\205\" \304\307 \"\205, \304\310 \"F\"\311#\207" [mapconcat identity delq nil format "-S \"%s\"" "-U \"%s\"" "-P \"%s\"" "-d \"%s\"" " "] 14 (#$ . 2479)])
#@155 Make sqsh command line args for database connection.
"sqsh" is one method to access Sybase or MS SQL via Linux platform
(fn HOST USER PASSWORD DATABASE)
(defalias 'org-babel-sql-dbstring-sqsh #[1028 "\300\301\302\303\205 \304\305 \"\205 \304\306 \"\205\" \304\307 \"\205, \304\310 \"F\"\311#\207" [mapconcat identity delq nil format "-S \"%s\"" "-U \"%s\"" "-P \"%s\"" "-D \"%s\"" " "] 14 (#$ . 2946)])
#@123 Make Vertica command line args for database connection. Pass nil to omit that arg.
(fn HOST PORT USER PASSWORD DATABASE)
(defalias 'org-babel-sql-dbstring-vertica #[1285 "\300\301\302\303\205 \304\305\n\"\205 \304\306\n\"\205\" \304\307\n\"\205. \304\310\311 !\"\2058 \304\312\n\"\257\"\313#\207" [mapconcat identity delq nil format "-h %s" "-p %d" "-U %s" "-w %s" shell-quote-argument "-d %s" " "] 16 (#$ . 3371)])
#@227 Convert FILE to OS standard file name.
If in Cygwin environment, uses Cygwin specific function to
convert the file name. In a Windows-NT environment, do nothing.
Otherwise, use Emacs' standard conversion function.
(fn FILE)
(defalias 'org-babel-sql-convert-standard-filename #[257 "\301\302!\203
\303\304\302!\"\207\305\230\203 \207\303\304\306!\"\207" [system-type fboundp cygwin-convert-file-name-to-windows format "%S" "windows-nt" convert-standard-filename] 5 (#$ . 3813)])
#@336 Return database connection parameter NAME.
Given a parameter NAME, if :dbconnection is defined in PARAMS
then look for the parameter into the corresponding connection
defined in `sql-connection-alist`, otherwise look into PARAMS.
Look `sql-connection-alist` (part of SQL mode) for how to define
database connections.
(fn PARAMS NAME)
(defalias 'org-babel-find-db-connection-param #[514 "\301\236\203 \301\236A\302\236A\211\303\"A\236A@\207\211\236A\207" [sql-connection-alist :dbconnection ((:dbhost . sql-server) (:dbport . sql-port) (:dbuser . sql-user) (:dbpassword . sql-password) (:database . sql-database)) assoc] 9 (#$ . 4305)])
#@117 Execute a block of Sql code with Babel.
This function is called by `org-babel-execute-src-block'.
(fn BODY PARAMS)
(defalias 'org-babel-execute:sql #[514 "\300\236A\301\236A\302\303\"\302\304\"\302\305\"\302\306\"\302\307\"\310\236A\311 \236A\312\232?\313\314!\315 \236A\2069 \313\316!\317C\320!\211\321\267\202M\322\323
\206L \317\324!\325\324!%\202R\322\326
\206a \317\324!\324!$\202R\322\327
\206u \317\330
$\331\324 !!\331\324 !!%\202R\322\332\333
%\203\246 \317\202\247 \334\206\255 \317\324 !\324 !&\202R\322\335 \203\311 \322\336 \"\202\312 \317\203\323 \317\202\324 \337\340$\324 !\324 !\206\354 \317&\202R\322\341
\206\371 \317\342
$\331\324 !!\331\324 !!%\202R\322\343\344
%\324!\324!\206/\317%\202R\322\345\346
%\324!\324!$\202R\347\350\"\262\351\352!\353\354\355\356\357!\360\"\361$\216r\211q\210\320!\211\362\267\202\202\363\202\203\364\202\203\365\202\203\366\202\203\317\262\367\" \370\230\203\226\371\202\227\317\261\210)r\211q\210\372\373\211\373\354%\210*\266\374\317\"\210\f\375\235?\205\\\376\235\204\f\377\235\204\f\201@ \235\204\f\201A \235\204\f\201B \235\204\f\201C \235\204\f\201D \235\204\201E \235\204\201F \235\204\201G \235\2033\201H \235\2043\351\201I !r\211q\210\353\354\355\356\357!\201J \"\361$\216\201K !\210\201L *\262\202\\\351\201I !r\211q\210\353\354\355\356\357!\201M \"\361$\216\320!\201N >\203\227\203\376\351\201I !r\211q\210\353\354\355\356\357!\201O \"\361$\216\201P !\210eb\210\201Q y\210\201R c\210\201S \240\210\201T !\210*\210\202\376\351\201I !r\211q\210\353\354\355\356\357!\201U \"\361$\216\201P !\210eb\210\201V \201W \373\201X #\203\320\201Y \201Q !\240\210db\210\201Z u\210\201[ \201\\ !\203\365\201] \201Q !\210db\210\201Z u\210\202\330\201T !\210*\210\201^ \370\230\203\201_ \202\201` \"\210\201a \201b \353\201c \201d \356\357\n!\201e \"\201f \201g %\201h \"\201i \201j \236A\311\236A\"\201i \201k \236A\201l \236A\"#*\262\262\207" [:result-params :cmdline org-babel-find-db-connection-param :dbhost :dbport :dbuser :dbpassword :database :engine :colnames "no" org-babel-temp-file "sql-in-" :out-file "sql-out-" "" intern #s(hash-table size 9 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (dbi 68 monetdb 89 mssql 109 mysql 143 postgresql 186 postgres 186 sqsh 241 vertica 275 oracle 307)) format "dbish --batch %s < %s | sed '%s' > %s" org-babel-process-file-name "/^+/d;s/^|//;s/(NULL)/ /g;$d" "mclient -f tab %s < %s > %s" "sqlcmd %s -s \" \" %s -i %s -o %s" org-babel-sql-dbstring-mssql org-babel-sql-convert-standard-filename "mysql %s %s %s < %s > %s" org-babel-sql-dbstring-mysql "-N" "%spsql --set=\"ON_ERROR_STOP=1\" %s -A -P footer=off -F \" \" %s -f %s -o %s %s" "PGPASSWORD=%s " "-t" org-babel-sql-dbstring-postgresql "sqsh %s %s -i %s -o %s -m csv" org-babel-sql-dbstring-sqsh "vsql %s -f %s -o %s %s" org-babel-sql-dbstring-vertica "sqlplus -s %s < %s > %s" org-babel-sql-dbstring-oracle user-error "No support for the %s SQL engine" generate-new-buffer " *temp file*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (dbi 370 oracle 374 sqsh 378 mssql 378 vertica 382)) "/format partbox\n" "SET PAGESIZE 50000\nSET NEWPAGE 0\nSET TAB OFF\nSET SPACE 0\nSET LINESIZE 9999\nSET TRIMOUT ON TRIMSPOOL ON\nSET ECHO OFF\nSET FEEDBACK OFF\nSET VERIFY OFF\nSET HEADING ON\nSET MARKUP HTML OFF SPOOL OFF\nSET COLSEP '|'\n\n" "SET NOCOUNT ON\n\n" "\\a\n" org-babel-expand-body:sql "sqsh" "\ngo" write-region nil org-babel-eval "none" "scalar" "verbatim" "html" "code" "pp" "file" "output" "raw" "org" "drawer" "table" " *temp*" [buffer-name kill-buffer] insert-file-contents-literally buffer-string [buffer-name kill-buffer] (dbi mysql postgresql postgres sqsh vertica) [buffer-name kill-buffer] insert-file-contents 1 "-\n" "-" write-file [buffer-name kill-buffer] re-search-forward "^\\(-+\\)[^-]" t match-string-no-properties -1 looking-at "\n" delete-char org-table-import (4) (16) org-babel-reassemble-table mapcar 257 "\211@\300\242\230\203\n \301\207\207" [hline] 3 "\n\n(fn X)" org-table-to-lisp org-babel-pick-name :colname-names :rowname-names :rownames] 25 (#$ . 4957)])
#@60 Expand the variables held in VARS in BODY.
(fn BODY VARS)
(defalias 'org-babel-sql-expand-vars #[514 "C\300\301\302\303\304\305!\306\"\307\310%\"\210\211\242\207" [mapc make-byte-code 257 "\300\301\302\303@\"A\211<\203A \304\305!\211\306\307!\310\311\312\313\314!\315\"\316$\216r\211q\210\317\320\"c\210)r\211q\210\321\322\211\322\311%\210*\266\211\262\202N \211;\203J \211\202N \302\323\"\262\300\242#\240\207" vconcat vector [replace-regexp-in-string format "$%s" org-babel-temp-file "sql-data-" generate-new-buffer " *temp file*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 orgtbl-to-csv (:fmt (lambda (el) (if (stringp el) el (format "%S" el)))) write-region nil "%S"] 14 "\n\n(fn PAIR)"] 10 (#$ . 9367)])
#@78 Raise an error because Sql sessions aren't implemented.
(fn SESSION PARAMS)
(defalias 'org-babel-prep-session:sql #[514 "\300\301!\207" [error "SQL sessions not yet implemented"] 4 (#$ . 10144)])
(provide 'ob-sql)
Zerion Mini Shell 1.0