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

Chizi123
2018-11-21 5ddac8bd2392ec5b64392e8750d725029bf5aa79
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\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)])
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)