;ELC   
;;; Compiled
;;; in Emacs version 29.4
;;; with all optimizations.


(require 'cl-lib)
(defvar sqlite-mode-map (define-keymap "g" 'sqlite-mode-list-tables "c" 'sqlite-mode-list-columns "RET" 'sqlite-mode-list-data "DEL" 'sqlite-mode-delete))
(defvar sqlite-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [sqlite-mode-hook variable-documentation put "Hook run after entering Sqlite mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp sqlite-mode-map definition-name sqlite-mode] 4)
(defvar sqlite-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204* \303\307\310\311#\210\312\307\306\307!\203& \313\202( \314 \"\210\307\302N\2048 \303\307\302\304\315!#\210\306\300!\204X \303\300\310\311#\210\312\300\306\300!\203P \313\202V \316\300\313\"\210\"\210\300\302N\204f \303\300\302\304\317!#\210\303\311\320\321#\207" [sqlite-mode-abbrev-table sqlite-mode-map variable-documentation put purecopy "Keymap for `sqlite-mode'." boundp sqlite-mode-syntax-table definition-name sqlite-mode defvar-1 nil make-syntax-table "Syntax table for `sqlite-mode'." define-abbrev-table "Abbrev table for `sqlite-mode'." derived-mode-parent special-mode] 5)#@243 This mode lists the contents of an .sqlite3 file

In addition to any hooks its parent mode `special-mode' might have
run, this mode runs the hook `sqlite-mode-hook', as the final or
penultimate step during initialization.

\{sqlite-mode-map}
(defalias 'sqlite-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315!\204' \316\317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324\325\"\204R =\204R \326\325C#\210\327!\210\330\f!\210\331 \210\306\332!\210\307\306\333!\210\307)\334\335!\207" [delay-mode-hooks major-mode mode-name sqlite-mode-map sqlite-mode-syntax-table sqlite-mode-abbrev-table make-local-variable t special-mode sqlite-mode "Sqlite" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table buffer-disable-undo buffer-read-only truncate-lines run-mode-hooks sqlite-mode-hook local-abbrev-table] 5 (#$ . 1348)])
(defvar sqlite--db nil)#@51 Browse the contents of an sqlite file.

(fn FILE)
(defalias 'sqlite-mode-open-file #[257 "\301 \204	 \302\303!\210\304!\203 \302\305!\210\306\307\310\311\312!\"!!\210\313 \210\314\300!\210\315!\316!\2043 \302\317!\210\320\321\322\323\324$\210\325 \207" [sqlite--db sqlite-available-p error "This Emacs doesn't have SQLite support, so it can't view SQLite files" file-remote-p "Remote SQLite files are not yet supported" pop-to-buffer get-buffer-create format "*SQLite %s*" file-name-nondirectory sqlite-mode make-local-variable sqlite-open sqlitep "`sqlite-open' failed to open SQLite file" add-hook kill-buffer-hook #[0 "\301!\207" [sqlite--db sqlite-close] 2] nil t sqlite-mode-list-tables] 7 (#$ . 2433) "fSQLite file name: "])#@58 Re-list the tables from the currently selected database.
(defalias 'sqlite-mode-list-tables #[0 "\302\303\304 \210\305\306\"\211\203* \211@\211@\305\307\310@\"\"@@DB\262A\266\202\202\f \210\311\312\237\313#\210eb)\207" [sqlite--db inhibit-read-only t nil erase-buffer sqlite-select "select name from sqlite_master where type = 'table' and name not like 'sqlite_%' order by name" format "select count(*) from %s" sqlite-mode--tablify ("Table Name" "Number of Rows") table] 11 (#$ . 3176) [nil (sqlite-mode)]])#@43 

(fn COLUMNS ROWS TYPE &optional PREFIX)
(defalias 'sqlite-mode--tablify #[1027 "\300\301\302#\303\304GS\"\"\203 c\210\211G\304\211W\2039 \305\306\211\3078\"\n8\"\310\311#c\210\211T\262\202 \266\312c\210\211\205\247 \211@`\203M c\210G\304\211W\203\213 \2118\306\211\313\247\203e \314\202f \3158#\247\203w 8\202\200 \316\312\317\206 \314#\"c\266\211T\262\202P \266\320`\321$\210\320`\322	$\210\312c\266A\266\202\202? \207" [mapcar make-closure #[257 "\302\303\304\305\"\301\300B\"!T\207" [V0 V1 seq-max mapcar make-closure #[257 "\301\302\3008\"G\207" [V0 format "%s"] 5 "\n\n(fn ROW)"]] 6 "\n\n(fn I)"] number-sequence 0 propertize format "%%-%ds " face header-line "\n" "%%%s%ds " "" "-" string-replace " " put-text-property sqlite--row sqlite--type] 17 (#$ . 3700)])#@44 List the columns of the table under point.
(defalias 'sqlite-mode-list-columns #[0 "\301`\302\"\211\204\f \303\304!\210\305@!\306\212\307y\210\310\311!\203/ `\312\313\314\306#\203* \315\224\202+ d|\202E \211\211\205C \211@\316\317\"c\210A\266\202\2020 \262*\207" [inhibit-read-only get-text-property sqlite--row user-error "No table under point" sqlite-mode--column-names t 1 looking-at " " re-search-forward "^[^ 	]" nil 0 format "  %s\n"] 7 (#$ . 4519) [nil (sqlite-mode)]])#@58 Return a list of the column names for TABLE.

(fn TABLE)
(defalias 'sqlite-mode--column-names #[257 "\301\302\303\304\305\"\"\"\207" [sqlite--db mapcar #[257 "\211A@\207" [] 2 "\n\n(fn ROW)"] sqlite-select format "pragma table_info(%s)"] 8 (#$ . 5006)])#@43 List the data from the table under point.
(defalias 'sqlite-mode-list-data #[0 "\301`\302\"\303=\205 \301`\304\"\211\204 \305\306!\210\307\212\310y\210\311\312!\2034 `\313\314\315\307#\203/ \316\224\2020 d|\202: \317@\316D!*\207" [inhibit-read-only get-text-property sqlite--type table sqlite--row user-error "No table under point" t 1 looking-at " " re-search-forward "^[^ ]" nil 0 sqlite--mode--list-data] 6 (#$ . 5268) [nil (sqlite-mode)]])#@13 

(fn STMT)
(defalias 'sqlite-mode--more-data #[257 "\301\302 \210`\303y\210`|\210\304!)\207" [inhibit-read-only t beginning-of-line 1 sqlite--mode--list-data] 3 (#$ . 5721)])#@13 

(fn DATA)
(defalias 'sqlite--mode--list-data #[257 "\211@A@\301C\302\303\"\216\211\304\305\306\"C\307$\240\210\310\311\242!\312\301\211\211\313X\203G \314\242!\262\203G @\262B\262T\262\301\262\202# \237\266\204\315B\316$\210\317\242!\205a \320\321\322D#c)\207" [sqlite--db nil make-closure #[0 "\300\242\205	 \301\300\242!\207" [V0 sqlite-finalize] 2] sqlite-select format "select rowid, * from %s where rowid >= ?" set sqlite-mode--tablify sqlite-columns 0 1000 sqlite-next row "  " sqlite-more-p buttonize "  More data...\n" sqlite-mode--more-data] 12 (#$ . 5904)])#@29 Delete the row under point.
(defalias 'sqlite-mode-delete #[0 "\302`\303\"\302`\304\"\305:\203 @\306=\204 \307\310!\210\311\312!\204$ \307\313!\210\314	\315\316A\317\320\321\322\nA!B\"\323\324\325#\266\202##\210\326 \327y\210`|)\207" [inhibit-read-only sqlite--db get-text-property sqlite--type sqlite--row t row user-error "No row under point" yes-or-no-p "Really delete the row under point? " "Not deleting" sqlite-execute format "delete from %s where %s" mapcar #[257 "\300\301\302\303\"@\"\207" [format "%s = ?" split-string " "] 6 "\n\n(fn COLUMN)"] "rowid" sqlite-mode--column-names " and " mapconcat identity line-beginning-position 1] 13 (#$ . 6505) [nil (sqlite-mode)]])
(provide 'sqlite-mode)