Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /home/zhenxiangba/zhenxiangba.com/public_html/phproxy-improved-master/index.php on line 456
;ELC ;;; Compiled by leavens@CMC3251632-A on Thu Sep 04 23:07:35 2003 ;;; from file d:/emacs/eieio/eieio-base.el ;;; in Emacs version 21.2.1 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`eieio-base.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306$\207" [require eieio eieio-defclass eieio-instance-inheritor nil ((parent-instance :initarg :parent-instance :type eieio-instance-inheritor-child :documentation "The parent of this instance.\nIf a slot of this class is reference, and is unbound, then the parent\nis checked for a value.")) ("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) (eieio-defmethod 'slot-unbound '(((object eieio-instance-inheritor) class slot-name fn) #[(object class slot-name fn) "\302\303\"\203\304\211\303\" \"\207\305 \207" [object slot-name slot-boundp parent-instance eieio-oref call-next-method] 4 "If a slot OBJECT in this CLASS is unbound, try to inherit, or throw a signal. SLOT-NAME, is the offending slot. FN is the function signalling the error."])) (eieio-defmethod 'clone '(((obj eieio-instance-inheritor) &rest params) #[(obj &rest params) "\306G \" H\205@;\307\211\310\311I\210HI\210 \204X\312 \313\216\314\315\"\203H\316\317\307\"!T\310\211\224O \320\321!QI\210*\202_ @I\210\203r\322 \203oA\202p\"\210\323\324#\210,\207" [obj eieio-unbound object-name params num passname make-vector 1 0 object match-data ((set-match-data save-match-data-internal)) string-match "-\\([0-9]+\\)" string-to-int match-string "-" int-to-string shared-initialize eieio-oset parent-instance nm nobj object-class save-match-data-internal] 7 "Clone OBJ, initializing `:parent' to OBJ. All slots are unbound, except those initialized with PARAMS."])) (eieio-defclass 'eieio-instance-tracker nil '((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.")) '("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)) (eieio-defmethod 'initialize-instance '(:AFTER ((this eieio-instance-tracker) &rest fields) #[(this &rest fields) "\302\303\" J\235?\205 \304 JC\"L)\207" [this sym eieio-oref tracking-symbol append] 4 "Make sure THIS is in our master list of this class. Optional argument FIELDS are the initialization arguments."])) (eieio-defmethod 'delete-instance '(((this eieio-instance-tracker)) #[(this) "\301\302\"\303\301\302\"J\"L\207" [this eieio-oref tracking-symbol delq] 6 "Remove THIS from the master list of this class."])) #@89 Find KEY as an element of FIELD in the objects in LIST-SYMBOL. Returns the first match. (defalias 'eieio-instance-tracker-find #[(key field list-symbol) "\303 \nJ#\207" [key field list-symbol object-assoc] 4 (#$ . 3300)]) (eieio-defclass 'eieio-singleton 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.")) '("This special class causes subclasses to be singletons.\nA singleton is a class which will only ever have one instace." :abstract t)) (eieio-defmethod 'constructor '(:STATIC ((class eieio-singleton) name &rest fields) #[(class name &rest fields) "\302\303\"\211\206\304 )\207" [class old eieio-oref-default singleton call-next-method] 4 "Constructor for singleton CLASS. NAME and FIELDS initialize the new object. This constructor guarantees that no matter how many you request, only one object ever exists."])) (eieio-defclass 'eieio-persistent nil '((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.")) '("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)) (eieio-defmethod 'eieio-persistent-save-interactive '(((this eieio-persistent) prompt &optional name) #[(this prompt &optional name) "\303\304\"\204\305\304\306 \307 \205 \310\311\"P##\210\310\304\"\207" [this prompt name slot-boundp file eieio-oset read-file-name nil eieio-oref extension] 10 "Perpare to save THIS. Use in an `interactive' statement. Query user for file name with PROMPT if THIS does not yet specify a file. Optional argument NAME specifies a default file name."])) #@41 Read a persistent object from FILENAME. (defalias 'eieio-persistent-read #[(filename) "\212\302\303\304!q\210\305\216\306 \210\307 !\210eb\210\310p!\311@\312\"\204$\313\314!\210\315!\316\317 #\210)*\207" [ret filename nil get-buffer-create " *tmp eieio read*" ((kill-buffer " *tmp eieio read*")) erase-buffer insert-file read child-of-class-p eieio-persistent error "Corrupt object on disk" eval eieio-oset file] 4 (#$ . 5663)]) (eieio-defmethod 'object-write '(((this eieio-persistent) &optional comment) #[(this &optional comment) "\302 \206 \303\304\"\"\207" [this comment call-next-method eieio-oref file-header-line] 5 "Write persistent object THIS out to the current stream. Optional argument COMMENT is a header line comment."])) (eieio-defmethod 'eieio-persistent-path-relative '(((this eieio-persistent) file) #[(this file) "\302\303!\304\305 \300\"!\"\207" [file this file-relative-name expand-file-name file-name-directory eieio-oref] 6 "For object THIS, make absolute file name FILE relative."])) (eieio-defmethod 'eieio-persistent-save '(((this eieio-persistent) &optional file) #[(this &optional file) "\212\306\307!q\310\311\305\"!\311\305\"\312\216\212\313 \210p\314\305 \203(\315 \"\202+\316 !#\210\317\311\320\"\"\210)\321 \322\".\207" [this cfn default-directory b standard-output file get-buffer-create " *tmp object write*" file-name-directory eieio-oref ((byte-code "\304\305 #\210\306\307!\207" [this cfn buffer-file-name b eieio-oset file nil kill-buffer] 4)) erase-buffer eieio-oset eieio-persistent-path-relative file-name-nondirectory object-write file-header-line write-file nil] 6 "Save persistent object THIS to disk. Optional argument FILE overrides the file name specified in the object instance."])) (byte-code "\300\301\302\211\303$\207" [eieio-defclass eieio-named nil ("Object with a name.\nName storage already occurs in an object. This object provides get/set\naccess to it." :abstract t)] 5) (eieio-defmethod 'slot-missing '(((obj eieio-named) slot-name operation &optional new-value) #[(obj slot-name operation &optional new-value) "\304=\204\305=\203) \306=\203% ;\204 \307\310\311 F\"\210\312 \"\207\313!\207\314 \207" [slot-name operation new-value obj object-name :object-name oset signal invalid-slot-type string object-set-name-string object-name-string call-next-method] 6 "Called when a on-existant slot is accessed. For variable `eieio-named', provide an imaginary `object-nam' slot. Argument OBJ is the Named object. Argument SLOT-NAME is the slot that was attempted to be accessed. OPERATION is the type of access, such as `oref' or `oset'. NEW-VALUE is the value that was being set into SLOT if OPERATION were a set type."])) (provide 'eieio-base)