ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ob-sql.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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) (dbuser . :any) (dbpassword . :any) (database . :any)) (#$ . 471))
#@48 Expand BODY according to the values of PARAMS.
(defalias 'org-babel-expand-body:sql #[(body params) "\302\303\304\305 \306\"\"\"\207" [body params org-babel-sql-expand-vars mapcar cdr org-babel-get-header :var] 7 (#$ . 663)])
#@79 Make MySQL cmd line args for database connection. Pass nil to omit that arg.
(defalias 'dbstring-mysql #[(host user password database) "\304\305\306\205\n \307P \205 \310 P\n\205 \311\nP \205 \312 PF\"!\207" [host user password database combine-and-quote-strings remq nil "-h" "-u" "-p" "-D"] 8 (#$ . 896)])
#@99 Execute a block of Sql code with Babel.
This function is called by `org-babel-execute-src-block'.
(defalias 'org-babel-execute:sql #[(body params) "\306\307\"A\306\310\"A\306\311\"A\306\312\"A \306\313\"A \306\314\"A @\306\315\"A A\306\316\"A\317\232? B\320\321! C\306\322\"A\206F \320\323! D\324 E\325A! F\326F\327\"\203m \330\331\n\206` \324\332C!\333\332D!%\202\360 \326F\334\"\203\210 \330\335\n\206| \324\332C!\332D!$\202\360 \326F\336\"\203\243 \330\337\n\206\227 \324\332C!\332D!$\202\360 \326F\340\"\203\320 \330\341\342 \f
@$B\203\275 \324\202\276 \343\n\206\303 \324\332C!\332D!&\202\360 \326F\344\"\203\353 \330\345\332C!\332D!\n\206\347 \324$\202\360 \346\347A\") GC\350\351\352!! H I\353\216rHq\210\325A! J\326J\354\"\203\355\202\324)\356K\"\261\210)rHq\210\357\360\211I\360\361%\210,\362G!\210\363G\324\"\210 L\364L\235?\205\260\365L\235\204\215\366L\235\204\215\367L\235\204\215\370L\235\204\215\371L\235\204\215\372L\235\204\206\373L\235\204\206\374L\235\204\206\375L\235\203\254\376L\235\204\254\377\201Q ! MrMq\210\201R \216\201S D!\210\201T +\202\260\377\201Q ! NrNq\210\201U \216\325A!\201V =\204\335\325A!\201W =\204\335\325A!\201X =\203B\203t\377\201Q ! OrOq\210\201Y \216\201Z D!\210eb\210\201[ y\210\201\\ c\210\201] E\201^ D!\210+\202t\377\201Q ! PrPq\210\201_ \216\201Z D!\210eb\210\201` \201a \360\201b #\203G\201c \201[ !Edb\210\201d u\210\201e \201f !\203l\201g \201[ !\210db\210\201d u\210\202O\201^ D!\210+\201h D\201i \"\210\201j \201k \201l \201m \"\201n \306\201o \"A\306\316\"A\"\201n \306\201p \"A\306\201q \"A\"#+.
\207" [params result-params cmdline dbhost dbuser dbpassword assoc :result-params :cmdline :dbhost :dbuser :dbpassword :database :engine :colnames "no" org-babel-temp-file "sql-in-" :out-file "sql-out-" "" intern memql 'dbi format "dbish --batch %s < %s | sed '%s' > %s" org-babel-process-file-name "/^+/d;s/^|//;s/(NULL)/ /g;$d" 'monetdb "mclient -f tab %s < %s > %s" 'msosql "osql %s -s \" \" -i %s -o %s" 'mysql "mysql %s %s %s < %s > %s" dbstring-mysql "-N" 'postgresql "psql -A -P footer=off -F \" \" -f %s -o %s %s" error "No support for the %s SQL engine" get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] 'dbi "/format partbox\n" org-babel-expand-body:sql write-region nil 0 message org-babel-eval "none" "scalar" "verbatim" "html" "code" "pp" "output" "raw" "org" "drawer" "table" generate-new-buffer database engine colnames-p in-file out-file header-delim #2=#:temp command #1# #3=#:temp-file #4=#:temp body #5=#:--params #6=#:temp-buffer #7=#:temp-buffer #8=#:temp-buffer #9=#:temp-buffer " *temp*" #[nil "\301!\205 \302!\207" [#6# buffer-name kill-buffer] 2] insert-file-contents-literally buffer-string #[nil "\301!\205 \302!\207" [#7# buffer-name kill-buffer] 2] mysql dbi postgresql #[nil "\301!\205 \302!\207" [#8# buffer-name kill-buffer] 2] insert-file-contents 1 "-\n" "-" write-file #[nil "\301!\205 \302!\207" [#9# buffer-name kill-buffer] 2] re-search-forward "^\\(-+\\)[^-]" t match-string-no-properties -1 looking-at "\n" delete-char org-table-import (16) org-babel-reassemble-table mapcar #[(x) "@ \230\203 \302\207\207" [x header-delim hline] 2] org-table-to-lisp org-babel-pick-name :colname-names :rowname-names :rownames] 8 (#$ . 1216)])
#@44 Expand the variables held in VARS in BODY.
(defalias 'org-babel-sql-expand-vars #[(body vars) "\302\303\"\210 \207" [vars body mapc #[(pair) "\306\307\310@\"A\211<\2039 \311\312!\211\313\314\315!! \316\216r q\210\317 \320\"c\210)r q\210\321\322\211\f\322\323%\210,\n)\202F ;\203B \202F \307\324 \")
#\211\207" [pair val data-file #1=#:temp-buffer #2=#:temp-file body replace-regexp-in-string format "$%s" org-babel-temp-file "sql-data-" get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] orgtbl-to-csv (:fmt (lambda (el) (if (stringp el) el (format "%S" el)))) write-region nil 0 "%S"] 9]] 3 (#$ . 4645)])
#@57 Raise an error because Sql sessions aren't implemented.
(defalias 'org-babel-prep-session:sql #[(session params) "\300\301!\207" [error "SQL sessions not yet implemented"] 2 (#$ . 5337)])
(provide 'ob-sql)
Kontol Shell Bypass