;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305!\"\210\302\306\307\305!\"\210\302\310\306\"\210\311\310\312\313#\210\314\305\315\306#\316\305\317\320\317$\207" [require eieio defalias logito-object-p eieio-make-class-predicate logito-object logito-object--eieio-childp eieio-make-child-predicate logito-object-child-p make-obsolete "use (cl-typep ... \\='logito-object) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal nil ((level :initarg :level :initform nil))] 6) #@52 Create a new object of class type `logito-object'. (defalias 'logito-object #[(&rest slots) "\301\302\303#\207" [slots apply make-instance logito-object] 4 (#$ . 579)]) (byte-code "\300\301\302\303#\300\207" [function-put logito-object compiler-macro logito-object--anon-cmacro] 4) (defalias 'logito-object--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5]) (byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\300\310\302\313\302\314%\210\315\316\317\320!\"\210\315\321\322\320!\"\210\315\323\321\"\210\324\323\325\326#\210\327\320\330\321#\331\320\332\302\211$\207" [cl-generic-define-method logito-insert-log nil ((log logito-object) format &rest objects) #[(log format &rest objects) "\300\207" ["Base implementation, do nothing"] 1 "\n\n(fn LOG FORMAT &rest OBJECTS)"] logito-should-log ((log logito-object) level) #[(log level) "\303\302\"\211\250\205 \n X)\207" [log l level eieio-oref] 4] logito-log ((log logito-object) level tag string &rest objects) #[(log level tag string &rest objects) "\305 \"\205\306\307\310\311\n #\f$\207" [log level tag string objects logito-should-log apply logito-insert-log format "[%s] %s"] 7 "\n\n(fn LOG LEVEL TAG STRING &rest OBJECTS)"] (log level tag string &rest objects) #[(log level tag string &rest objects) "\300\207" [nil] 1 "Fallback implementation, do nothing. This allows in particular\n to pass nil as the log object.\n\n(fn LOG LEVEL TAG STRING &rest OBJECTS)"] defalias logito-message-object-p eieio-make-class-predicate logito-message-object logito-message-object--eieio-childp eieio-make-child-predicate logito-message-object-child-p make-obsolete "use (cl-typep ... \\='logito-message-object) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (logito-object)] 6) #@60 Create a new object of class type `logito-message-object'. (defalias 'logito-message-object #[(&rest slots) "\301\302\303#\207" [slots apply make-instance logito-message-object] 4 (#$ . 2530)]) (byte-code "\300\301\302\303#\300\207" [function-put logito-message-object compiler-macro logito-message-object--anon-cmacro] 4) (defalias 'logito-message-object--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5]) (byte-code "\300\301\302\303\302\304%\210\305\306\307\310!\"\210\305\311\312\310!\"\210\305\313\311\"\210\314\313\315\316#\210\317\310\320\311#\321\310\322\323\302$\207" [cl-generic-define-method logito-insert-log nil ((log logito-message-object) format &rest objects) #[(log format &rest objects) "\302\303 #\207" [format objects apply message] 4 "\n\n(fn LOG FORMAT &rest OBJECTS)"] defalias logito-buffer-object-p eieio-make-class-predicate logito-buffer-object logito-buffer-object--eieio-childp eieio-make-child-predicate logito-buffer-object-child-p make-obsolete "use (cl-typep ... \\='logito-buffer-object) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (logito-object) ((buffer :initarg :buffer :initform nil))] 6) #@59 Create a new object of class type `logito-buffer-object'. (defalias 'logito-buffer-object #[(&rest slots) "\301\302\303#\207" [slots apply make-instance logito-buffer-object] 4 (#$ . 3839)]) (byte-code "\300\301\302\303#\300\207" [function-put logito-buffer-object compiler-macro logito-buffer-object--anon-cmacro] 4) (defalias 'logito-buffer-object--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5]) (byte-code "\300\301\302\303\304\305%\210\300\306\302\307\302\310%\207" [cl-generic-define-method logito-should-log nil ((log logito-buffer-object) level) t #[(#1=#:cl--cnm log level) "\302\303\"\205 \207" [log #1# eieio-oref buffer] 3] logito-insert-log ((log logito-buffer-object) format &rest objects) #[(log format &rest objects) "\304\305\301\"!r q\210db\210\306\302\n #\307\261*\207" [log buffer format objects get-buffer-create eieio-oref apply "\n\n"] 4 "\n\n(fn LOG FORMAT &rest OBJECTS)"]] 6) #@114 Define a constant --level and a macro : associated with this level. PKG defaults to `logito' (defalias 'logito-def-level '(macro . #[(sym val &optional pkg) "\206\305\306\307\310\311!\311 !#!\306\307\312\311!\311 !#!\313\314\n\fE\315 \316\317\320\321\322\n\323\211 DD\324BBBBB\325BBFE+\207" [pkg sym const mac val logito intern format "%s:%s-level" symbol-name "%s:%s" progn defconst defmacro (log string &rest objects) append list 'logito-log log quote (string) (objects)] 13 (#$ . 4895)])) (defconst logito:error-level 0) (defalias 'logito:error '(macro . #[(log string &rest objects) "\304\305 \306\n\257 \"\207" [log logito:error-level string objects append logito-log 'error] 6])) (defconst logito:info-level 5) (defalias 'logito:info '(macro . #[(log string &rest objects) "\304\305 \306\n\257 \"\207" [log logito:info-level string objects append logito-log 'info] 6])) (defconst logito:verbose-level 10) (defalias 'logito:verbose '(macro . #[(log string &rest objects) "\304\305 \306\n\257 \"\207" [log logito:verbose-level string objects append logito-log 'verbose] 6])) (defconst logito:debug-level 15) (defalias 'logito:debug '(macro . #[(log string &rest objects) "\304\305 \306\n\257 \"\207" [log logito:debug-level string objects append logito-log 'debug] 6])) (provide 'logito)