;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\207" [require ob ob-sql] 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)) (#$ . 197))
#@66 Expand BODY according to the values of PARAMS.

(fn BODY PARAMS)
(defalias 'org-babel-expand-body:sqlite #[514 "\300\301!\302#\207" [org-babel-sql-expand-vars org-babel--get-vars t] 6 (#$ . 449)])
(defvar org-babel-sqlite3-command "sqlite3")
#@120 Execute a block of Sqlite code with Babel.
This function is called by `org-babel-execute-src-block'.

(fn BODY PARAMS)
(defalias 'org-babel-execute:sqlite #[514 "\301\302\236A\206	\303!\304\236A\305\236A\306\236A\307\236A\310\232\311\312\313\314\315\n\"\316\317\320\321\322\323\324\325\257\"\"\2048\326\327!\210\330\331\332\"r\211q\210\314\333\"\216\334\335\336\337B\340\203U\341\202V\342B\343\n\203e\344\345\f\"\202f\303B\346\n\203u\344\347\f\"\202v\303B\350\351\352\353#B\354\322>\204\250\321>\204\250\324>\204\250\325>\204\250\323>\204\250
\203\254\303\202\255\355B\356B\257\"\357\"\"c\210\360\235?\205W
\361\235\204
\362\235\204
\363\235\204
\364\235\204
\365\235\204
\366\235\204
\367\235\204\f
\370\235\204\f
\371\235\204\f
\372\235\203
\373\235\204
\374 \202W
ed\232\203\"
\303\202W
\375ed\322>\206E
\321>\206E
\324>\206E
\325>\206E
\323>\206E
?\205J
\376#\210\377\201@\201A \"!*\207" [org-babel-sqlite3-command split-string :results "" :db :separator :nullvalue :colnames "yes" delq nil mapcar make-closure #[257 "\211\300\236@\207" [V0] 3 "\n\n(fn ARG)"] :header :echo :bail :column :csv :html :line :list error "ob-sqlite: can't evaluate without a database" generate-new-buffer " *temp*" t #[0 "\301\300!\205	\302\300!\207" [V0 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 #[257 "\300\301\302!\303\304O\"\207" [format "-%s" symbol-name 1 nil] 6 "\n\n(fn ARG)"] " " "csv" "-csv" "db " org-babel-expand-body:sqlite "none" "scalar" "verbatim" "html" "code" "pp" "file" "output" "raw" "org" "drawer" "table" buffer-string org-table-convert-region (4) org-babel-sqlite-table-or-scalar org-babel-sqlite-offset-colnames org-table-to-lisp] 21 (#$ . 700)])
#@60 Expand the variables held in VARS in BODY.

(fn BODY VARS)
(defalias 'org-babel-sqlite-expand-vars #[514 "\300\301#\207" [org-babel-sql-expand-vars t] 6 (#$ . 2649)])
(make-obsolete 'org-babel-sqlite-expand-vars "use `org-babel-sql-expand-vars' instead." "9.5")
#@68 If RESULT looks like a trivial table, then unwrap it.

(fn RESULT)
(defalias 'org-babel-sqlite-table-or-scalar #[257 "\211G\300=\203\211@G\300=\203\301
@@\302\"\207\303\304\"\207" [1 org-babel-read t mapcar #[257 "\211\300=\203\300\207\301\302\"\207" [hline mapcar org-babel-sqlite--read-cell] 4 "\n\n(fn ROW)"]] 4 (#$ . 2919)])
#@90 If HEADERS-P is non-nil then offset the first row as column names.

(fn TABLE HEADERS-P)
(defalias 'org-babel-sqlite-offset-colnames #[514 "\211\203\f
@\300ABB\207
\207" [hline] 5 (#$ . 3262)])
#@163 Raise an error because support for SQLite sessions isn't implemented.
Prepare SESSION according to the header arguments specified in PARAMS.

(fn SESSION PARAMS)
(defalias 'org-babel-prep-session:sqlite #[514 "\300\301!\207" [error "SQLite sessions not yet implemented"] 4 (#$ . 3465)])
#@59 Process CELL to remove unnecessary characters.

(fn CELL)
(defalias 'org-babel-sqlite--read-cell #[257 "\300
\301\"\207" [org-babel-read t] 4 (#$ . 3758)])
(provide 'ob-sqlite)