ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/emacs-lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/emacs-lisp/eieio-base.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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\302\303\304\305!\"\210\302\306\307\305!\"\210\302\310\306\"\210\311\310\312\313#\210\314\305\315\306#\210\316\305\317\320\321$\207" [require eieio 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" put 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)] 5)
#@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 (#$ . 1388)])
(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#\210\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" put 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 (#$ . 3725)])
(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 (#$ . 4533)])
(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#\210\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" put 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)] 5)
#@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 (#$ . 5507)])
(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#\210\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" put 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 (#$ . 7600)])
(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\"\204E \320\321!\210\203` @=\204` \203\\ \316@\"\204` \320\322!\210\323!\262\324\325#\210)\207" [message "Unsafe call to `eieio-persistent-read'." 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 "Corrupt object on disk: Unknown saved object" "Corrupt object on disk: Invalid saved class" eieio-persistent-convert-list-to-object eieio-oset file] 11 (#$ . 8299)])
#@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@AA\300\301K!\266\2119\203 \211\302N\206 \211\202 \211\262\203G @A@\303\304\"#\262B\262\211B\262\266AA\262\202 \305\306\237#\207" [nil autoload-do-load cl--class eieio-persistent-validate/fix-slot-value eieio--initarg-to-attribute apply make-instance] 12 (#$ . 9358)])
#@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\313 \301\"S\302HH\303H>\204\" \304\305\306\302HHD\"\210\302HH\307H\310!@\311=\2039 A@\202\312 @\312=\203K G\313U\203K \314\202\312 \211\203c \315!\203c \316@\"\203c \317!\202\312 @\312=\203\311 A@:\203\311 \315A@@!\203\311 \211:\203\206 \315@!\204\215 \320\321#\210A\211\203\251 \211@\316@@\"\204\242 \320\322!\210A\266\202\202\217 \210\314A\211\203\301 \211@\317!B\262A\266\202\202\255 \210\211\237\262\202\312 \207\211;\203\324 \323!\207\207" [cl-struct-cl-slot-descriptor-tags eieio--slot-name-index 4 0 signal wrong-type-argument cl-slot-descriptor 3 eieio-persistent-slot-type-is-class-p quote list 1 nil class-p child-of-class-p eieio-persistent-convert-list-to-object error "In save file, list of object constructors found, but no :type specified for slot %S of type %S" "Corrupt object on disk" substring-no-properties] 11 (#$ . 10144)])
#@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\277 \317A\211\203\274 \211@\304!\262A\266\202\202\252 \210\211\207\317\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 nil] 8 (#$ . 11380)])
(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#\210\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" put 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 (#$ . 14405)])
(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)
Kontol Shell Bypass