HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/emacs-lisp/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/emacs-lisp/eieio-base.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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\303\304\305\306!\"\210\303\307\310\306!\"\210\303\311\307\"\210\312\311\313\314#\210\315\306\316\307#\317\306\320\321\322$\207" [require eieio seq defalias eieio-instance-inheritor-p eieio-make-class-predicate eieio-instance-inheritor eieio-instance-inheritor--eieio-childp eieio-make-child-predicate eieio-instance-inheritor-child-p make-obsolete "use (cl-typep ... \\='eieio-instance-inheritor) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal nil ((parent-instance :initarg :parent-instance :type eieio-instance-inheritor :documentation "The parent of this instance.\nIf a slot of this class is referenced, and is unbound, then the parent\nis checked for a value.")) (:documentation "This special class can enable instance inheritance.\nUse `clone' to make a new object that does instance inheritance from\na parent instance.  When a slot in the child is referenced, and has\nnot been set, use values from the parent." :abstract t)] 6)
#@82 You cannot create a new object of type `eieio-instance-inheritor'.

(fn &rest _)
(defalias 'eieio-instance-inheritor #[128 "\300\301!\207" [error "Class eieio-instance-inheritor is abstract"] 3 (#$ . 1417)])
(byte-code "\300\301\302\303\304\305%\210\300\306\302\307\304\310%\210\300\311\302\312\302\313%\210\314\315\316\317!\"\210\314\320\321\317!\"\210\314\322\320\"\210\323\322\324\325#\210\326\317\327\320#\330\317\302\331\332$\207" [cl-generic-define-method slot-unbound nil ((object eieio-instance-inheritor) _class slot-name _fn) t #[1285 "\300\301\"\203\302\211\301\"\"\207 \207" [slot-boundp parent-instance eieio-oref] 9 "If a slot OBJECT in this CLASS is unbound, try to inherit, or throw a signal.\nSLOT-NAME is the offending slot.  FN is the function signaling the error.\n\n(fn CL--CNM OBJECT CLASS SLOT-NAME FN)"] clone ((obj eieio-instance-inheritor) &rest _params) #[642 " \300\301#\210\211\207" [eieio-oset parent-instance] 8 "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)"] eieio-instance-inheritor-slot-boundp ((object eieio-instance-inheritor) slot) #[514 "\300\"\203	\301\207\300\302\"\205\303\304\302\"\"\207" [slot-boundp t parent-instance eieio-instance-inheritor-slot-boundp eieio-oref] 6 "Return non-nil if the instance inheritor OBJECT's SLOT is bound.\nSee `slot-boundp' for details on binding slots.\nThe instance inheritor uses unbound slots as a way of cascading cloned\nslot values, so testing for a slot being bound requires extra steps\nfor this kind of object.\n\n(fn OBJECT SLOT)"] defalias eieio-instance-tracker-p eieio-make-class-predicate eieio-instance-tracker eieio-instance-tracker--eieio-childp eieio-make-child-predicate eieio-instance-tracker-child-p make-obsolete "use (cl-typep ... \\='eieio-instance-tracker) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal ((tracking-symbol :type symbol :allocation :class :documentation "The symbol used to maintain a list of our instances.\nThe instance list is treated as a variable, with new instances added to it.")) (:documentation "This special class enables instance tracking.\nInheritors from this class must overload `tracking-symbol' which is\na variable symbol used to store a list of all instances." :abstract t)] 6)
#@80 You cannot create a new object of type `eieio-instance-tracker'.

(fn &rest _)
(defalias 'eieio-instance-tracker #[128 "\300\301!\207" [error "Class eieio-instance-tracker is abstract"] 3 (#$ . 3768)])
(byte-code "\300\301\302\303\304\305%\210\300\306\304\307\304\310%\207" [cl-generic-define-method initialize-instance (:after) ((this eieio-instance-tracker) &rest _slots) nil #[385 "\300\301\"J>?\205\211\302JC\"L\207" [eieio-oref tracking-symbol append] 7 "Make sure THIS is in our master list of this class.\nOptional argument SLOTS are the initialization arguments.\n\n(fn THIS &rest SLOTS)"] delete-instance ((this eieio-instance-tracker)) #[257 "\300\301\"\302\300\301\"J\"L\207" [eieio-oref tracking-symbol delq] 7 "Remove THIS from the master list of this class.\n\n(fn THIS)"]] 6)
#@115 Find KEY as an element of SLOT in the objects in LIST-SYMBOL.
Returns the first match.

(fn KEY SLOT LIST-SYMBOL)
(defalias 'eieio-instance-tracker-find #[771 "\300J#\207" [object-assoc] 7 (#$ . 4576)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias eieio-singleton-p eieio-make-class-predicate eieio-singleton eieio-singleton--eieio-childp eieio-make-child-predicate eieio-singleton-child-p make-obsolete "use (cl-typep ... \\='eieio-singleton) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal nil ((singleton :type eieio-singleton :allocation :class :documentation "The only instance of this class that will be instantiated.\nMultiple calls to `make-instance' will return this object.")) (:documentation "This special class causes subclasses to be singletons.\nA singleton is a class which will only ever have one instance." :abstract t)] 6)
#@73 You cannot create a new object of type `eieio-singleton'.

(fn &rest _)
(defalias 'eieio-singleton #[128 "\300\301!\207" [error "Class eieio-singleton is abstract"] 3 (#$ . 5564)])
(byte-code "\300\301\302\303\304\305%\210\306\307\310\311!\"\210\306\312\313\311!\"\210\306\314\312\"\210\315\314\316\317#\210\320\311\321\312#\322\311\302\323\324$\207" [cl-generic-define-method make-instance nil ((class (subclass eieio-singleton)) &rest _slots) t #[642 "\301\302\"\211=\203\303\302 #\202\211\207" [eieio-unbound eieio-oref-default singleton eieio-oset-default] 8 "Constructor for singleton CLASS.\nNAME and SLOTS initialize the new object.\nThis constructor guarantees that no matter how many you request,\nonly one object ever exists.\n\n(fn CLASS &rest SLOTS)"] defalias eieio-persistent-p eieio-make-class-predicate eieio-persistent eieio-persistent--eieio-childp eieio-make-child-predicate eieio-persistent-child-p make-obsolete "use (cl-typep ... \\='eieio-persistent) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal ((file :initarg :file :type string :documentation "The save file for this persistent object.\nThis must be a string, and must be specified when the new object is\ninstantiated.") (extension :type string :allocation :class :initform ".eieio" :documentation "Extension of files saved by this object.\nEnables auto-choosing nice file names based on name.") (file-header-line :type string :allocation :class :initform ";; EIEIO PERSISTENT OBJECT" :documentation "Header line for the save file.\nThis is used with the `object-write' method.") (do-backups :type boolean :allocation :class :initform t :documentation "Saving this object should make backup files.\nSetting to nil will mean no backups are made.")) (:documentation "This special class enables persistence through save files\nUse the `object-save' method to write this object to disk.  The save\nformat is Emacs Lisp code which calls the constructor for the saved\nobject.  For this reason, only slots which do not have an `:initarg'\nspecified will not be saved." :abstract t)] 6)
#@74 You cannot create a new object of type `eieio-persistent'.

(fn &rest _)
(defalias 'eieio-persistent #[128 "\300\301!\207" [error "Class eieio-persistent is abstract"] 3 (#$ . 7671)])
(cl-generic-define-method 'eieio-persistent-save-interactive nil '((this eieio-persistent) prompt &optional name) nil #[770 "\300\301\"\204\302\301\303\304\205\305\n\306\"P##\210\305\301\"\207" [slot-boundp file eieio-oset read-file-name nil eieio-oref extension] 13 "Prepare to save THIS.  Use in an `interactive' statement.\nQuery user for file name with PROMPT if THIS does not yet specify\na file.  Optional argument NAME specifies a default file name.\n\n(fn THIS PROMPT &optional NAME)"])
#@306 Read a persistent object from FILENAME, and return it.
Signal an error if the object in FILENAME is not a constructor
for CLASS.  Optional ALLOW-SUBCLASS says that it is ok for
`eieio-persistent-read' to load in subclasses of class instead of
being pedantic.

(fn FILENAME &optional CLASS ALLOW-SUBCLASS)
(defalias 'eieio-persistent-read #[769 "\204\300\301!\210\203\302!\204\303\304\305\305E\"\210\306\211\307\216r\310\311!q\210\312\306\211\211\313%\210eb\210\314 \262)\315!\262\316@\317\"\204G\320\321@\"\210\203f@=\204f\203^\316@\"\204f\320\322@#\210\323!\262\324\325#\210)\207" [warn "`eieio-persistent-read' called without specifying a class" class-p signal wrong-type-argument class nil #[0 "\300\301!\207" [kill-buffer " *tmp eieio read*"] 2] get-buffer-create " *tmp eieio read*" insert-file-contents t buffer-string read child-of-class-p eieio-persistent error "Invalid object: %s is not a subclass of `eieio-persistent'" "Invalid object: %s is not an object of class %s nor a subclass" eieio-persistent-convert-list-to-object eieio-oset file] 11 (#$ . 8370)])
#@421 Convert the INPUTLIST, representing object creation to an object.
While it is possible to just `eval' the INPUTLIST, this code instead
validates the existing list, and explicitly creates objects instead of
calling eval.  This avoids the possibility of accidentally running
malicious code.

Note: This function recurses when a slot of :type of some object is
identified, and needing more object creation.

(fn INPUTLIST)
(defalias 'eieio-persistent-convert-list-to-object #[257 "\211@A@;\203
\300\202\301\233\302\303K!\266\2119\203(\211\304N\206)\211\202)\211\262\203R@A@\305\306\"#\262B\262\211B\262\266AA\262\202+\307\310\237#\207" [2 1 nil autoload-do-load cl--class eieio-persistent-validate/fix-slot-value eieio--initarg-to-attribute apply make-instance] 12 (#$ . 9483)])
#@277 Validate that in CLASS, the SLOT with PROPOSED-VALUE is good, then fix.
A limited number of functions, such as quote, list, and valid object
constructor functions are considered valid.
Second, any text properties will be stripped from strings.

(fn CLASS SLOT PROPOSED-VALUE)
(defalias 'eieio-persistent-validate/fix-slot-value #[771 "\211:\203\336\301\"S\302\303HH!>\204\"\304\305\306\303HHD\"\210\303HH\307H\310!@\311=\2039A@\202\335@\312=\203KG\313U\203K\314\202\335@\312=\203\265A@:\203\265\315A@@!\203\265\211:\203n\315@!\204u\316\317#\210A\211\203\225\211@\320@@\"\204\216\316\321@@#\210A\266\202\202w\210\314A\211\203\255\211@\322!B\262A\266\202\202\231\210\211\237\262\202\335\211\203\334\323\324\325\326\327\330	!\331\"\303\332%<\203\320\202\322C\"\203\334\322!\202\335\207\333!\203\366\334\324\335\336\327\330!\337\"\340\341%\"\210\207\342!\203<\211G\343\211W\2039\211H\315\242!\203\322H!I\210\2020\211:\2030\211@\311=\2030A@I\210\266\211T\262\202\377\266\207\211;\203E\344!\207\207" [cl-struct-cl-slot-descriptor-tags eieio--slot-name-index type-of 4 signal wrong-type-argument cl-slot-descriptor 3 eieio-persistent-slot-type-is-class-p quote list 1 nil class-p error "In save file, list of object constructors found, but no :type specified for slot %S of type %S" child-of-class-p "Invalid object: slot member %s does not match class %s" eieio-persistent-convert-list-to-object seq-some make-byte-code 257 "\301\300@\"\207" vconcat vector [child-of-class-p] "\n\n(fn ELT)" hash-table-p maphash 514 "\301\242!\203\300\302\303!#\207\211:\205(\211@\304=\205(\300\302A@#\266\202\207" [class-p puthash eieio-persistent-convert-list-to-object quote] 8 "\n\n(fn KEY VALUE)" vectorp 0 substring-no-properties] 13 (#$ . 10299)])
#@100 Return the class referred to in TYPE.
If no class is referenced there, then return nil.

(fn TYPE)
(defalias 'eieio-persistent-slot-type-is-class-p #[257 "\301!\203\207\211\242\302=\203\301A@!\203\211A@B\207\2119\203.\211\303N\203.\304\303N !\207\2119\203f\305\306\307!\"\203f\301\310\307!\311\211\224O!!\203f\204\\\312\313\310\307!\311\211\224O!#\210\310\307!\311\211\224O!\207\2119\203\240\305\314\307!\"\203\240\301\310\307!\311\211\224O!!\203\240\204\224\312\315\310\307!\311\211\224O!#\210\310\307!\311\211\224O!B\207\211\242\316=\203\255\317\304A\"\207\320\207" [eieio-backward-compatibility class-p list-of cl-deftype-handler eieio-persistent-slot-type-is-class-p string-match "-child\\'" symbol-name intern-soft 0 error "Use of bogus %S type instead of %S" "-list\\'" "Use of bogus %S type instead of (list-of %S)" or seq-filter nil] 8 (#$ . 12146)])
(byte-code "\300\301\302\303\304\305%\210\300\306\302\307\302\310%\210\300\311\302\312\302\313%\210\314\315\316\317!\"\210\314\320\321\317!\"\210\314\322\320\"\210\323\322\324\325#\210\326\317\327\320#\330\317\302\331\332$\207" [cl-generic-define-method object-write nil ((this eieio-persistent) &optional comment) t #[770 "\206\n\300\301\"\"\207" [eieio-oref file-header-line] 8 "Write persistent object THIS out to the current stream.\nOptional argument COMMENT is a header line comment.\n\n(fn CL--CNM THIS &optional COMMENT)"] eieio-persistent-path-relative ((this eieio-persistent) file) #[514 "\300\301!\302\303\304\"!\"\207" [file-relative-name expand-file-name file-name-directory eieio-oref file] 8 "For object THIS, make absolute file name FILE relative.\n\n(fn THIS FILE)"] eieio-persistent-save ((this eieio-persistent) &optional file) #[513 "\211\203	\304!\262\305\306!r\211q\210\307\310\311\312\313!\314\"\315$\216\206$\316\317\"\320!p\2037\321\"\202:\322!\316\317\"\307\310\323\312\313\"\324\"\325$\216\326\317#\210\327\316\n\330\"\"\210*\266\316\331\"?\332\333ed\334\335%+\262*\207" [default-directory standard-output coding-system-for-write backup-inhibited expand-file-name generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 eieio-oref file file-name-directory eieio-persistent-path-relative file-name-nondirectory "\302\300\303\301#\207" [eieio-oset file] 4 eieio-oset object-write file-header-line do-backups utf-8-emacs write-region nil 1] 15 "Save persistent object THIS to disk.\nOptional argument FILE overrides the file name specified in the object\ninstance.\n\n(fn THIS &optional FILE)"] defalias eieio-named-p eieio-make-class-predicate eieio-named eieio-named--eieio-childp eieio-make-child-predicate eieio-named-child-p make-obsolete "use (cl-typep ... \\='eieio-named) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal ((object-name :initarg :object-name :initform nil)) (:documentation "Object with a name." :abstract t)] 6)
#@69 You cannot create a new object of type `eieio-named'.

(fn &rest _)
(defalias 'eieio-named #[128 "\300\301!\207" [error "Class eieio-named is abstract"] 3 (#$ . 15146)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\312\313%\210\300\314\302\315\312\316%\210\317\320!\207" [cl-generic-define-method eieio-object-name-string nil ((obj eieio-named)) #[257 "\300\301\"\206\f\302\303!!\207" [slot-value object-name symbol-name eieio-object-class] 4 "Return a string which is OBJ's name.\n\n(fn OBJ)"] eieio-object-set-name-string ((obj eieio-named) name) #[514 "\211;\204
\300\301\302\303E\"\210\304\305#\207" [signal wrong-type-argument string name eieio-oset object-name] 7 "Set the string which is OBJ's NAME.\n\n(fn OBJ NAME)"] clone ((obj eieio-named) &rest params) t #[642 "\211@;\205\f\211A\262\242\300#\301\302\"\303\302\206S\304 \305\306\307\310\311!\312\"\313$\216\203M\314\315\"\203M\316\317\320\"!T\306\211\224O\321\322!Q\262\202P\323P)\262#\210\207" [apply slot-value object-name eieio-oset match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match "-\\([0-9]+\\)" string-to-number match-string 1 "-" int-to-string "-1"] 16 "Clone OBJ, initializing `:parent' to OBJ.\nAll slots are unbound, except those initialized with PARAMS.\n\n(fn OBJ &rest PARAMS)"] make-instance ((class (subclass eieio-named)) &rest args) #[642 "\211@;\204	 \207\203\301\202\302\303\"\210\304\305$\207" [eieio-backward-compatibility ignore message "Obsolete: name passed without :object-name to %S constructor" apply :object-name] 8 "\n\n(fn CLASS &rest ARGS)"] provide eieio-base] 6)