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-doc.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-doc.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'eieio-opt) #@45 String representing the node we go BACK to. (defvar eieiodoc-currently-in-node nil (#$ . 621)) #@57 String represending what type of section header to use. (defvar eieiodoc-current-section-level nil (#$ . 722)) #@97 Non-nil when while `eieiodoc-recurse' is running. Can be referenced from the recursed function. (defvar eieiodoc-prev-class nil (#$ . 839)) #@91 Non-nil when `eieiodoc-recurse' is running. Can be referenced from the recursed function. (defvar eieiodoc-next-class nil (#$ . 985)) #@134 Call `eieiodoc-class' after nuking everything from POINT on. ROOT-CLASS, INDEXSTRING, and SKIPLIST are the same as `eieiodoc-class'. (defalias 'eieiodoc-class-nuke #[(root-class indexstring &optional skiplist) "`d|\210\303\304!\210\305 \n#\207" [root-class indexstring skiplist sit-for 0 eieiodoc-class] 4 (#$ . 1126)]) #@661 Create documentation starting with ROOT-CLASS. The first job is to create an indented menu of all the classes starting with `root-class' and including all it's children. Once this is done, @nodes are created for all the subclasses. Each node is then documented with a description of the class, a brief inheritance tree (with xrefs) and a list of all slots in a big table. Where each slot is inherited from is also documented. In addition, each class is documented in the index referenced by INDEXSTRING, a two letter code described in the texinfo manual. The optional third argument SKIPLIST is a list of object not to put into any menus, nodes or lists. (defalias 'eieiodoc-class #[(root-class indexstring &optional skiplist) "\212\304\305\306\307#\203\310\224\310\225{\202\311\312\313`\314\\\307#\203C\315\224b\210\316\317!\203+\320\202D\316\321!\2035\322\202D\316\323!\203?\324\202D\324\202D\324)\212\325\n\"\210\326c\210\327\n\330\306$)\207" [eieiodoc-currently-in-node eieiodoc-current-section-level root-class skiplist re-search-backward "@node \\([^,]+\\)" nil t 1 "Top" re-search-forward "@\\(chapter\\|\\(sub\\)*section\\)" 500 0 looking-at "@chapter" "section" "@section" "subsection" "@\\(sub\\)+section" "subsubsection" eieiodoc-main-menu "\n" eieiodoc-recurse eieiodoc-one-node] 5 (#$ . 1454) (list (intern-soft (completing-read "Class: " (eieio-build-class-alist) nil t)) (read-string "Index name (2 chars): "))]) #@109 Create a menu of all classes under CLASS indented the correct amount. SKIPLIST is a list of objects to skip (defalias 'eieiodoc-main-menu #[(class skiplist) "\302\210\303c\210\304\305\302 $\210\306c\207" [class skiplist nil "\n@menu\n" eieiodoc-recurse #[(class level) "\302\303\304\"\305 !\306\261\207" [level class "* " make-string 32 symbol-name " ::\n"] 4] "@end menu\n"] 5 (#$ . 2910)]) #@186 Create a node for CLASS, and for all subclasses of CLASS in order. This function should only be called by `eieiodoc-class' Argument LEVEL is the current level of recursion we have hit. (defalias 'eieiodoc-one-node #[(class level) "\306\307\"\210\310\311!\312 \203\311 !\202\313\312\n\203 \311\n!\202!\313\312\314\315\316\f\313\311!\314\316 \317\311!\320\261\210\321\32278\2119\203U98B8\3239!@\2119\204C\324c\2108\203\221\325\3268@:\"\203{8@=\204{\327\3118@!\330Q\202\200\3118@!\314\261\2108A87T7\202X\331;\332N?H@>AHB>CHD>EHF>GHH\322I\321J\321K\343\344!\"\345\261\210B\203|
`K\346c\210B\203o
\347B@@@F@D@HIH&\203S
\350JBAB@A@FAFDADITI\2023
\351c\210J\204|
`K|\210\352c\210\353!\321L\211M\205$\354\f\355\261\210M\205$\356M@\"L\357\311M@!\261\210L\204\262
\360c\210\202L@\203\321
\361c\210\362L@@!\210\314c\210\363L@AL@@#\210LA\211L@\203\364
\364c\210\362L@@!\210\314c\210\363L@AL@@#\210LA\211L@\203\365c\210\362L@@!\210\314c\210\363L@AL@@#\210\366c\210MA\211M\204\226
\321.\207" [class eieiodoc-next-class eieiodoc-prev-class eieiodoc-currently-in-node eieiodoc-current-section-level indexstring message "Building node for %s" "\n@node " symbol-name ", " " " "\n" "@comment node-name, next, previous, up\n" "@" "index " "\n\n" nil 0 class-parents "@table @asis\n@item Inheritance Tree:\n" "@table @code\n@item " child-of-class-p "@w{@xref{" "}.}" reverse eieio-class-definition "No children" "@table @asis\n@item Children:\n" "}" "," "." "} " "\n@end table\n" "@end table\n\n " eieiodoc-texify-docstring documentation "\n\n@table @asis\n" "@item Slots:\n\n@table @code\n" eieiodoc-one-attribute t "@end table\n\n" "@end table\n" eieio-all-generic-functions "@sub" " Specialized Methods\n\n" eieio-method-documentation "@deffn Method " "\n Undocumented" " :BEFORE " eieiodoc-output-deffn-args eieiodoc-insert-and-massage-docstring-with-args " :PRIMARY " " :AFTER " "\n@end deffn\n\n" depth revlist cl root-class rclass class-children clist cv class-public-doc docs class-public-a names class-public-d deflt class-protection prot class-public-type typev i set-one anchor doc methods] 21 (#$ . 3313)]) #@124 Update DOC with texinfo strings using ARGLST with @var. Argument CLASS is the class passed to `eieiodoc-texify-docstring'. (defalias 'eieiodoc-insert-and-massage-docstring-with-args #[(doc arglst class) "`\306\211\307\f\"c\210`\214\n }\210\212 \2057eb\210\310\311 @!\226\306\312#\203/\313\314\312\"\210\202 A\211\204\306-\207" [case-fold-search end start doc class arglst nil eieiodoc-texify-docstring re-search-forward symbol-name t replace-match "@var{\\&}"] 5 (#$ . 5769)]) #@28 Output ARGLST for a deffn. (defalias 'eieiodoc-output-deffn-args #[(arglst) "\205\301@!\302\261\210A\211\204\303\207" [arglst symbol-name " " nil] 3 (#$ . 6264)]) #@428 Create documentation of CLASS for a single ATTRIBUTE. Assume this attribute is inside a table, so it is initiated with the @item indicator. If this attribute is not inserted (because it is contained in the parent) then return nil, else return t. DOC is the documentation to use, PRIV is non-nil if it is a private slot, and DEFLT is the default value. TYPE is the symbol describing what type validation is done on that slot. (defalias 'eieiodoc-one-attribute #[(class attribute doc priv deflt type) "\306 \"\307 \"\310\211\311=\204y\203y\311\312 \203!\313\202\"\314\315!\261\210\203>\311=\204>\316\317\320\"\321\261\210=\204P\322\317\320\"\321\261\210\323c\210\f\324=\203g\325\315\326!@!\327\261\210\202y\203t\330\"\202u\331\332\261\210\n+\207" [class attribute set-me ia pv priv eieiodoc-parent-diff eieio-attribute-to-initarg nil t "@item " "Private: " "" symbol-name "\nType: @code{" format "%S" "}" " @*\nDefault Value: @code{" "\n\n" default "@xref{" class-parents "}.\n" eieiodoc-texify-docstring "Not Documented" "\n@refill\n\n" type deflt eieio-unbound doc] 5 (#$ . 6443)]) #@347 Recurse down all children of RCLASS, calling FUNC on each one. LEVEL indicates the current depth below the first call we are. The function FUNC will be called with RCLASS and LEVEL. This will then recursivly call itself once for each child class of RCLASS. The optional fourth argument SKIPLIST is a list of objects to ignore while recursing. (defalias 'eieiodoc-recurse #[(rclass func &optional level skiplist) "\204\306\307 \310N\nH!\f@\206  \f\235\204-\311 D\"\210 \203JA@\2068 \312@ T#A\211\2041,\207" [level rclass class-children children eieiodoc-next-class ocnc 0 reverse eieio-class-definition apply eieiodoc-recurse eieiodoc-prev-class skiplist func] 5 (#$ . 7576)]) #@129 Return nil if the parent of CLASS does not have slot SLOT. Return t if it does, and return 'default if the default has changed. (defalias 'eieiodoc-parent-diff #[(class slot) "\306\307\310!@\306\306\311\312\217\210?\205#\f\313 \"\232\203\"\307\202#\314,\207" [class eieio-skip-typecheck scoped-class err df slot nil t class-parents (byte-code "\304\305!@ \"\306\306\207" [class slot df err eieio-oref-default class-parents nil] 3) ((invalid-slot-name (byte-code "\301\301\207" [df nil] 1)) (error (byte-code "\301\301\207" [df nil] 1))) eieio-oref-default default] 4 (#$ . 8298)]) #@458 Take STRING, (a normal doc string), and convert it into a texinfo string. For instances where CLASS is the class being referenced, do not Xref that class. `function' => @dfn{function} `variable' => @code{variable} `class' => @code{class} @xref{class} `unknown' => @code{unknonwn} 'quoteme => @code{quoteme} non-nil => non-@code{nil} t => @code{t} :tag => @code{:tag} [ stuff ] => @code{[ stuff ]} Key => @kbd{Key} (defalias 'eieiodoc-texify-docstring #[(string class) "\304\305\"\203E\306\224\306\225O\307 !\310\311\312\313\217\204$\314\n!\203$\315\202%\316 \317\311\320\321\217\2059\n=?\2059\322 \323QR\311\324$\260
*\202\304\325\"\203W\310\326\324\311\327%\202E\304\330\"\203i\310\326\324\311\327%\202W\304\331\"\203{\310\332\324\311\327%\202i\207" [string vs v class string-match "`\\([-a-zA-Z0-9]+\\)'" 1 intern-soft replace-match nil (byte-code "\301N\302H\303=\207" [v eieio-class-definition 0 defclass] 2) ((error)) fboundp "@dfn{" "@code{" "}" (byte-code "\301N\302H\303=\207" [v eieio-class-definition 0 defclass] 2) ((error)) " @xref{" "}." t "\\( \\|^\\|-\\)\\(nil\\|t\\|'[-a-zA-Z0-9]+\\|:[-a-zA-Z0-9]+\\)\\([ ,]\\|$\\)" "@code{\\2}" 2 "\\( \\|^\\)\\(\\[[^]]+\\]\\)\\( \\|$\\)" "\\( \\|^\\)\\(\\(\\(C-\\|M-\\|S-\\)+\\([^ \n]\\|RET\\|SPC\\|TAB\\)\\)\\|\\(RET\\|SPC\\|TAB\\)\\)\\( \\|$\\)" "@kbd{\\2}"] 7 (#$ . 8901)]) (provide 'eieio-doc)