;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:45 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/ob-sqlite.el
;;; in Emacs version 24.3.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require ob ob-eval ob-ref] 2)
(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)) (#$ . 690))
#@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 (#$ . 942)])
(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>?>\204D\333\334!\210\335\336!@r@q\210\337\216\340\341\342\343AB\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\"\363B\"\"c\210\364?\235\204\337\365?\235\204\337\366?\235\204\337\367?\235\204\337ed\232\203\344\370 \202
\371ed\327\n\235\206
\326\n\235\206
\331\n\235\206
\332\n\235\206
\330\n\235\206

?\205
\372#\210\373\374\375 \"!.\n\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*" ((byte-code "\301!\203\n\302!\210\301\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 "scalar" "verbatim" "html" "code" buffer-string org-table-convert-region (4) org-babel-sqlite-table-or-scalar org-babel-sqlite-offset-colnames org-table-to-lisp db result-params #1# org-babel-sqlite3-command body] 17 (#$ . 1227)])
#@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\216rq\210\317	\320\"c\210)rq\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*" ((byte-code "\301!\203\n\302!\210\301\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 (#$ . 3097)])
#@55 If RESULT looks like a trivial table, then unwrap it.
(defalias 'org-babel-sqlite-table-or-scalar #[(result) "G\302\232\203@G\302\232\203\303\211@@)!\207\304\305\"\207" [result x 1 org-babel-read mapcar #[(row) "\301\232\203\301\207\302\303\"\207" [row hline mapcar org-babel-read] 3]] 4 (#$ . 3811)])
#@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 (#$ . 4132)])
#@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 (#$ . 4340)])
(provide 'ob-sqlite)