| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (require 'ob) | |
| 16 | (defvar org-babel-default-header-args:sql nil) | |
| 17 | #@32 SQL-specific header arguments. | |
| 18 | (defconst org-babel-header-args:sql '((engine . :any) (out-file . :any) (dbhost . :any) (dbport . :any) (dbuser . :any) (dbpassword . :any) (database . :any)) (#$ . 469)) | |
| 19 | #@66 Expand BODY according to the values of PARAMS. | |
| 20 | ||
| 21 | (fn BODY PARAMS) | |
| 22 | (defalias 'org-babel-expand-body:sql #[514 "\300\301!\"\207" [org-babel-sql-expand-vars org-babel--get-vars] 6 (#$ . 677)]) | |
| 23 | #@118 Make MySQL cmd line args for database connection. Pass nil to omit that arg. | |
| 24 | ||
| 25 | (fn HOST PORT USER PASSWORD DATABASE) | |
| 26 | (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 (#$ . 875)]) | |
| 27 | #@117 Make PostgreSQL command line args for database connection. | |
| 28 | Pass nil to omit that arg. | |
| 29 | ||
| 30 | (fn HOST PORT USER DATABASE) | |
| 31 | (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 (#$ . 1241)]) | |
| 32 | #@95 Make Oracle command line args for database connection. | |
| 33 | ||
| 34 | (fn HOST PORT USER PASSWORD DATABASE) | |
| 35 | (defalias 'org-babel-sql-dbstring-oracle #[1285 "\300\301&\207" [format "%s/%s@%s:%s/%s"] 12 (#$ . 1587)]) | |
| 36 | #@196 Make sqlcmd command line args for database connection. | |
| 37 | `sqlcmd' is the preferred command line tool to access Microsoft | |
| 38 | SQL Server on Windows and Linux platform. | |
| 39 | ||
| 40 | (fn HOST USER PASSWORD DATABASE) | |
| 41 | (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 (#$ . 1804)]) | |
| 42 | #@155 Make sqsh command line args for database connection. | |
| 43 | "sqsh" is one method to access Sybase or MS SQL via Linux platform | |
| 44 | ||
| 45 | (fn HOST USER PASSWORD DATABASE) | |
| 46 | (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 (#$ . 2271)]) | |
| 47 | #@123 Make Vertica command line args for database connection. Pass nil to omit that arg. | |
| 48 | ||
| 49 | (fn HOST PORT USER PASSWORD DATABASE) | |
| 50 | (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 (#$ . 2696)]) | |
| 51 | #@227 Convert FILE to OS standard file name. | |
| 52 | If in Cygwin environment, uses Cygwin specific function to | |
| 53 | convert the file name. In a Windows-NT environment, do nothing. | |
| 54 | Otherwise, use Emacs' standard conversion function. | |
| 55 | ||
| 56 | (fn FILE) | |
| 57 | (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 (#$ . 3138)]) | |
| 58 | #@117 Execute a block of Sql code with Babel. | |
| 59 | This function is called by `org-babel-execute-src-block'. | |
| 60 | ||
| 61 | (fn BODY PARAMS) | |
| 62 | (defalias 'org-babel-execute:sql #[514 "\300\236A\301\236A\302\236A\303\236A\304\236A\305\236A\306\236A\307\236A\310 \236A\311\232?\312\313!\314 \236A\2069 \312\315!\316C\317!\211\320\267\202M\321\322 \206L \316\323!\324\323!%\202R\321\325 \206a \316\323!\323!$\202R\321\326 \206u \316\327 $\330\323 !!\330\323 !!%\202R\321\331\332 %\203\246 \316\202\247 \333\206\255 \316\323 !\323 !&\202R\321\334 \203\311 \321\335 \"\202\312 \316\203\323 \316\202\324 \336\337$\323 !\323 !\206\354 \316&\202R\321\340 \206\371 \316\341 $\330\323 !!\330\323 !!%\202R\321\342\343 %\323!\323!\206/\316%\202R\321\344\345 %\323!\323!$\202R\346\347\"\262\350\351\352!!\353\354\355\356\357!\360\"\361$\216r\211q\210\317!\211\362=\203x\363\202\227\211\364=\203\202\365\202\227\211\366>\203\214\367\202\227\211\370=\203\226\371\202\227\316\262\372\" \373\230\203\252\374\202\253\316\261\210)r\211q\210\375\376\211\376\354%\210*\266\377\316\"\210\f\201@ \235?\205~\201A \235\204&\201B \235\204&\201C \235\204&\201D \235\204&\201E \235\204&\201F \235\204&\201G \235\204 \201H \235\204 \201I \235\204 \201J \235\203O\201K \235\204O\201L \201M !r\211q\210\353\354\355\356\357!\201N \"\361$\216\201O !\210\201P *\262\202~\201L \201M !r\211q\210\353\354\355\356\357!\201Q \"\361$\216\317!\201R >\203\267\203 \201L \201M !r\211q\210\353\354\355\356\357!\201S \"\361$\216\201T !\210eb\210\201U y\210\201V c\210\201W \240\210\201X !\210*\210\202 \201L \201M !r\211q\210\353\354\355\356\357!\201Y \"\361$\216\201T !\210eb\210\201Z \201[ \376\201\\ #\203\362\201] \201U !\240\210db\210\201^ u\210\201_ \201` !\203\201a \201U !\210db\210\201^ u\210\202\372\201X !\210*\210\201b \373\230\2031\201c \2024\201d \"\210\201e \201f \353\201g \201h \356\357\n!\201i \"\201j \201k %\201l \"\201m \201n \236A\310\236A\"\201m \201o \236A\201p \236A\"#*\262\262\207" [:result-params :cmdline :dbhost :dbport :dbuser :dbpassword :database :engine :colnames "no" org-babel-temp-file "sql-in-" :out-file "sql-out-" "" intern #s(hash-table size 8 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (dbi 68 monetdb 89 mssql 109 mysql 143 postgresql 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 error "No support for the %s SQL engine" get-buffer-create generate-new-buffer-name " *temp file*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 dbi "/format partbox\n" oracle "SET PAGESIZE 50000\nSET NEWPAGE 0\nSET TAB OFF\nSET SPACE 0\nSET LINESIZE 9999\nSET ECHO OFF\nSET FEEDBACK OFF\nSET VERIFY OFF\nSET HEADING ON\nSET MARKUP HTML OFF SPOOL OFF\nSET COLSEP '|'\n\n" (sqsh mssql) "SET NOCOUNT ON\n\n" vertica "\\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" generate-new-buffer " *temp*" [buffer-name kill-buffer] insert-file-contents-literally buffer-string [buffer-name kill-buffer] (dbi mysql postgresql 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 (#$ . 3630)]) | |
| 63 | #@60 Expand the variables held in VARS in BODY. | |
| 64 | ||
| 65 | (fn BODY VARS) | |
| 66 | (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<\203C \304\305!\211\306\307\310!!\311\312\313\314\315!\316\"\317$\216r\211q\210\320\321\"c\210)r\211q\210\322\323\211\323\312%\210*\266\211\262\202P \211;\203L \211\202P \302\324\"\262\300\242#\240\207" vconcat vector [replace-regexp-in-string format "$%s" org-babel-temp-file "sql-data-" get-buffer-create generate-new-buffer-name " *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 (#$ . 7931)]) | |
| 67 | #@78 Raise an error because Sql sessions aren't implemented. | |
| 68 | ||
| 69 | (fn SESSION PARAMS) | |
| 70 | (defalias 'org-babel-prep-session:sql #[514 "\300\301!\207" [error "SQL sessions not yet implemented"] 4 (#$ . 8736)]) | |
| 71 | (provide 'ob-sql) | |
