Edit file

File name : ob-sql.elc

Content :;ELC��� ;;; Compiled ;;; in Emacs version 26.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)) (#$ . 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)]) #@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 (#$ . 875)]) #@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 (#$ . 1241)]) #@95 Make Oracle command line args for database connection. (fn HOST PORT USER PASSWORD DATABASE) (defalias 'org-babel-sql-dbstring-oracle #[1285 "\300\301&\207" [format "%s/%s@%s:%s/%s"] 12 (#$ . 1587)]) #@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 (#$ . 1804)]) #@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 (#$ . 2271)]) #@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 (#$ . 2696)]) #@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 (#$ . 3138)]) #@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\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)]) #@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<\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)]) #@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 (#$ . 8736)]) (provide 'ob-sql)

Save