ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ob-sqlite.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:sqlite nil)
#@30 Sqlite specific header args.
(defvar org-babel-header-args:sqlite '((db . :any) (header . :any) (echo . :any) (bail . :any) (csv . :any) (column . :any) (html . :any) (line . :any) (list . :any) (separator . :any) (nullvalue . :any)) (#$ . 474))
#@48 Expand BODY according to the values of PARAMS.
(defalias 'org-babel-expand-body:sqlite #[(body params) "\302\303\304\305 \306\"\"\"\207" [body params org-babel-sqlite-expand-vars mapcar cdr org-babel-get-header :var] 7 (#$ . 726)])
(defvar org-babel-sqlite3-command "sqlite3")
#@102 Execute a block of Sqlite code with Babel.
This function is called by `org-babel-execute-src-block'.
(defalias 'org-babel-execute:sqlite #[(body params) "\306\307\310\"A\206\n \311!\307\312\"A\307\313\"A\307\314\"A\307\315\"A\316\232\317\320\321\322\323\324\325\326\327\330\331\332\257\"\"\320 @ A@\204D \333\334!\210\335\336! BrBq\210\337\216\340\341\342\343CB\344 \203` \345\202a \346B\347
\203n \350\351
\"\202o \311B\352\f\203| \350\353\f\"\202} \311B\354\355\356\n\357#B\360\327\n\235\204\250 \326\n\235\204\250 \331\n\235\204\250 \332\n\235\204\250 \330\n\235\204\250
\203\254 \311\202\255 \361B\362@B\257\"\363D\"\"c\210A E\364E\235?\205X\365E\235\204\366E\235\204\367E\235\204\370E\235\204\371E\235\204\372E\235\204\373E\235\204\374E\235\204\375E\235\203\376E\235\204\377 \202Xed\232\203 \311\202X\201F ed\327\n\235\206B\326\n\235\206B\331\n\235\206B\332\n\235\206B\330\n\235\206B
?\205I\201G #\210\201H \201I \201J \"!. \207" [params exit-code others headers-p nullvalue separator split-string assoc :results "" :db :separator :nullvalue :colnames "yes" delq nil mapcar #[(arg) "\302 \"@\207" [arg params assoc] 3] :header :echo :bail :column :csv :html :line :list error "ob-sqlite: can't evaluate without a database" generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] org-babel-eval org-fill-template "%cmd %header %separator %nullvalue %others %csv %db " "cmd" "header" "-header" "-noheader" "separator" format "-separator %s" "nullvalue" "-nullvalue %s" "others" mapconcat #[(arg) "\301\302\303!\304\305O\"\207" [arg format "-%s" symbol-name 1 nil] 5] " " "csv" "-csv" "db " org-babel-expand-body:sqlite "none" "scalar" "verbatim" "html" "code" "pp" "output" "raw" "org" "drawer" "table" buffer-string db result-params #1# org-babel-sqlite3-command body #2=#:--params org-table-convert-region (4) org-babel-sqlite-table-or-scalar org-babel-sqlite-offset-colnames org-table-to-lisp] 17 (#$ . 1011)])
#@44 Expand the variables held in VARS in BODY.
(defalias 'org-babel-sqlite-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 "sqlite-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 (#$ . 3050)])
#@55 If RESULT looks like a trivial table, then unwrap it.
(defalias 'org-babel-sqlite-table-or-scalar #[(result) "G\301\232\203 @G\301\232\203 \302@@!\207\303\304\"\207" [result 1 org-babel-read mapcar #[(row) "\301\232\203 \301\207\302\303\"\207" [row hline mapcar org-babel-string-read] 3]] 3 (#$ . 3748)])
#@68 If HEADERS-P is non-nil then offset the first row as column names.
(defalias 'org-babel-sqlite-offset-colnames #[(table headers-p) "\203\f @\302 ABB\207 \207" [headers-p table hline] 3 (#$ . 4068)])
#@142 Raise an error because support for SQLite sessions isn't implemented.
Prepare SESSION according to the header arguments specified in PARAMS.
(defalias 'org-babel-prep-session:sqlite #[(session params) "\300\301!\207" [error "SQLite sessions not yet implemented"] 2 (#$ . 4276)])
(provide 'ob-sqlite)
Kontol Shell Bypass