;ELC ;;; Compiled ;;; in Emacs version 30.2 ;;; with all optimizations. #@82 Access the slot `types' from object of class `emacsql-pg-connection'. (fn THIS)#@88 Retrieve the slot `result' from an object of class `emacsql-pg-connection'. (fn THIS)#@19 (fn VALUE THIS)#@83 Access the slot `dbname' from object of class `emacsql-pg-connection'. (fn THIS)#@82 Access the slot `pgcon' from object of class `emacsql-pg-connection'. (fn THIS)#@78 Create a new object of class type `emacsql-pg-connection'. (fn &rest SLOTS) (byte-code "\301\302!\210\303Y\203\301\304\305\306#\210\202\307\310!\210\311\312\313\314!\"\210\311\315\316\314!\"\210\311\317\315\"\210\320\317\321\322#\210\323\314\324\315#\325\314\326\327\330$\210\331\332\305\333\305\334%\210\331\335\305\336\305\337%\210\331\340\305\341\305\342%\210\331\343\305\344\305\345%\210\331\346\305\347\305\350%\207" [emacs-major-version require emacsql 28 pg nil t message "emacsql-pg.el requires Emacs 28.1 or later" defalias emacsql-pg-connection-p eieio-make-class-predicate emacsql-pg-connection emacsql-pg-connection--eieio-childp eieio-make-child-predicate emacsql-pg-connection-child-p make-obsolete "use (cl-typep ... 'emacsql-pg-connection) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (emacsql-connection) ((pgcon :reader emacsql-pg-pgcon :initarg :pgcon) (dbname :reader emacsql-pg-dbname :initarg :dbname) (result :accessor emacsql-pg-result) (types :allocation :class :reader emacsql-types :initform '((integer "BIGINT") (float "DOUBLE PRECISION") (object "TEXT") (nil "TEXT")))) (:documentation "A connection to a PostgreSQL database via pg.el.") cl-generic-define-method emacsql-types ((this emacsql-pg-connection)) #[257 "\300\301\"\207" [slot-value types] 4 (#$ . 83)] emacsql-pg-result ((this emacsql-pg-connection)) #[257 "\300\301\"\207" [slot-value result] 4 (#$ . 169)] \(setf\ emacsql-pg-result\) (value (this emacsql-pg-connection)) #[514 "\300\301#\207" [eieio-oset result] 6 (#$ . 261)] emacsql-pg-dbname ((this emacsql-pg-connection)) #[257 "\300\301\"\207" [slot-value dbname] 4 (#$ . 284)] emacsql-pg-pgcon ((this emacsql-pg-connection)) #[257 "\300\301\"\207" [slot-value pgcon] 4 (#$ . 371)]] 7) (defalias 'emacsql-pg-connection #[128 "\300\301\302#\207" [apply make-instance emacsql-pg-connection] 5 (#$ . 457)])#@26 (fn WHOLE &rest SLOTS) (byte-code "\300\301\302\303#\300\207" [function-put emacsql-pg-connection compiler-macro emacsql-pg-connection--anon-cmacro] 4) (defalias 'emacsql-pg-connection--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\304\211@%\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity nil] 8 (#$ . 2361)])#@119 Connect to a PostgreSQL server using pg.el. (fn DBNAME USER &key (HOST "localhost") (PASSWORD "") (PORT 5432) DEBUG) (defalias 'emacsql-pg #[642 "\300\301\"\206\302A@\300\303\"\206\304A@\300\305\"\206\306A@\300\307\"A@\211\203W\211@\310>\203@\211A\204;\311\312@\"\210AA\202%\313>A@\203N\210\314\202%\311\315@\"\210\202%\210\316\317!\210\320%\321\322\323\324\325!\205s\325!\326\327&\203\202\330!\210\331\332\"\210\333!\207" [plist-member :host (nil "localhost") :password (nil "") :port (nil 5432) :debug (:host :password :port :debug :allow-other-keys) error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:host :password :port :debug)" require pg pg-connect make-instance emacsql-pg-connection :handle fboundp pgcon-process :pgcon :dbname emacsql-enable-debugging emacsql [:set (= default-transaction-isolation 'SERIALIZABLE)] emacsql-register] 16 (#$ . 2742)])#@19 (fn CONNECTION)#@27 (fn CONNECTION MESSAGE) (byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\300\313\302\314\302\315%\210\316\317!\207" [cl-generic-define-method emacsql-close nil ((connection emacsql-pg-connection)) #[257 "\3001 \301\302!!0\207\303\207" [(error) pg-disconnect emacsql-pg-pgcon nil] 5 (#$ . 3687)] emacsql-send-message ((connection emacsql-pg-connection) message) #[514 "\3001\301\302\303!\"\"0\207\304\305\"\207" [(error) \(setf\ emacsql-pg-result\) pg-exec emacsql-pg-pgcon signal emacsql-error] 6 (#$ . 3710)] emacsql-waiting-p ((_connection emacsql-pg-connection)) #[257 "\300\207" [t] 2 (#$ . 3687)] emacsql-parse ((connection emacsql-pg-connection)) #[257 "\300\301!\302\"\211\303\211:\203G@\262\303\211:\2039@\262;\203-\304!B\262\2022B\262A\262\202\266\202\237B\262A\262\202 \237\207" [pg-result emacsql-pg-result :tuples nil read] 10 (#$ . 3687)] provide emacsql-pg] 6)