mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-21 e75a20334813452c6912c090d70a0de2c805f94d
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
;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\201Uy\210\201Vc\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)