;ELC ;;; Compiled by root@loma.devel.redhat.com on Tue Feb 17 01:44:29 2004 ;;; from file /usr/src/build/355475-noarch/BUILD/psgml-1.2.5/psgml-parse.el ;;; in Emacs version 21.3.1 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file contains multibyte non-ASCII characters ;;; and therefore cannot be loaded into Emacs 19. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "20"))) (error "`psgml-parse.el' was compiled for Emacs 20 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\"\210\302\305\304\"\210\302\306\304\"\207" [require psgml autoload sgml-do-usemap-element "psgml-dtd" sgml-write-dtd sgml-check-dtd-subset] 3) #@222 If non-nil, it should be a function of no arguments. The functions is evaluated before the standard auto-fill function, do-auto-fill, tries to fill a line. If the function returns a true value the auto-fill is inhibited. (defvar sgml-auto-fill-inhibit-function nil (#$ . 824)) #@269 The hook run by `sgml-open-element'. Theses functions are called with two arguments, the first argument is the opened element and the second argument is the attribute specification list. It is probably best not to refer to the content or the end-tag of the element. (defvar sgml-open-element-hook nil (#$ . 1108)) #@126 The hook run by `sgml-close-element'. These functions are invoked with `sgml-current-tree' bound to the element just parsed. (defvar sgml-close-element-hook nil (#$ . 1431)) #@130 This hook is called after the doctype has been parsed. It can be used to load any additional information into the DTD structure. (defvar sgml-doctype-parsed-hook nil (#$ . 1612)) #@331 This variable should contain a list of functions. Each function should take one argument, the system identifier of an entity. If the function can handle that identifier, it should insert the text of the entity into the current buffer at point and return t. If the system identifier is not handled the function should return nil. (defvar sgml-sysid-resolve-functions nil (#$ . 1798)) (byte-code "\301B\302\303!\301\207" [current-load-list sgml-pcdata-token intern "#PCDATA"] 2) #@47 Internal representation of entity search map. (defvar sgml-computed-map nil (#$ . 2285)) #@87 The value of `sgml-current-entity-map' used to compute the map in `sgml-compute-map'. (defvar sgml-used-entity-map nil (#$ . 2380)) #@80 Used to keep information about position in element structure between commands. (defvar sgml-last-element nil (#$ . 2518)) #@59 List of commands that set the sgml-last-element variable. (defconst sgml-users-of-last-element '(sgml-beginning-of-element sgml-end-of-element sgml-up-element sgml-backward-up-element sgml-backward-element sgml-forward-element sgml-down-element sgml-show-context sgml-next-data-field) (#$ . 2646)) #@35 Syntax table used during parsing. (defvar sgml-parser-syntax nil (#$ . 2950)) #@34 Assoc list caching parsed ecats. (defvar sgml-ecat-assoc nil (#$ . 3034)) #@37 Assoc list caching parsed catalogs. (defvar sgml-catalog-assoc nil (#$ . 3114)) #@79 Set to a symbol other than nil to make sgml-log-warning throw to that symbol. (defvar sgml-throw-on-warning nil (#$ . 3200)) #@73 Set to a symbol other than nil to make sgml-error throw to that symbol. (defvar sgml-throw-on-error nil (#$ . 3331)) #@28 Set to t to show warnings. (defvar sgml-show-warnings nil (#$ . 3454)) #@124 Can be nil for no trap, an element or t for any element. Tested by sgml-close-element to see if the parse should be ended. (defvar sgml-close-element-trap nil (#$ . 3532)) #@33 Point in buffer to parse up to. (defvar sgml-goal 0 (#$ . 3710)) #@169 Function called by parser to handle a short reference. Called with the entity as argument. The start and end of the short reference is `sgml-markup-start' and point. (defvar sgml-shortref-handler 'sgml-handle-shortref (#$ . 3782)) #@35 Function called with parsed data. (defvar sgml-data-function nil (#$ . 4021)) #@67 Function called with entity referenced at current point in parse. (defvar sgml-entity-function nil (#$ . 4105)) #@50 Function called with parsed process instruction. (defvar sgml-pi-function nil (#$ . 4223)) #@89 Called when some data characters are conceptually parsed, e.g. a data entity reference. (defvar sgml-signal-data-function nil (#$ . 4320)) #@12 Throw tag. (defvar sgml-throw-on-element-change nil (#$ . 4465)) #@61 This variable is bound to `t' while parsing a DTD (subset). (defvar sgml-parsing-dtd nil (#$ . 4536)) #@58 Set to position of last parsing start in current buffer. (defvar sgml-rs-ignore-pos nil (#$ . 4644)) (make-variable-buffer-local 'sgml-rs-ignore-pos) #@60 Holds the `sgml-dtd' structure describing the current DTD. (defvar sgml-dtd-info nil (#$ . 4800)) #@72 Value of `sgml-namecase-general' in main buffer. Valid during parsing. (defvar sgml-current-namecase-general t (#$ . 4904)) #@63 Value of `sgml-omittag' in main buffer. Valid during parsing. (defvar sgml-current-omittag nil (#$ . 5034)) #@64 Value of `sgml-shorttag' in main buffer. Valid during parsing. (defvar sgml-current-shorttag nil (#$ . 5148)) #@70 Value of `sgml-local-catalogs' in main buffer. Valid during parsing. (defvar sgml-current-localcat nil (#$ . 5264)) #@72 Value of `sgml-local-ecat-files' in main buffer. Valid during parsing. (defvar sgml-current-local-ecat nil (#$ . 5386)) #@128 The buffer of the document entity, the main buffer. Valid during parsing. This is used to find current directory for catalogs. (defvar sgml-current-top-buffer nil (#$ . 5513)) #@71 Current state in content model or model type if CDATA, RCDATA or ANY. (defvar sgml-current-state nil (#$ . 5695)) #@41 The current active short reference map. (defvar sgml-current-shortmap nil (#$ . 5815)) #@51 Current parse tree node, identifies open element. (defvar sgml-current-tree nil (#$ . 5908)) #@70 Previous tree node in current tree. This is nil if no previous node. (defvar sgml-previous-tree nil (#$ . 6007)) #@94 Buffer where last parse was ended. Used for restarting parser at the point where it left of. (defvar sgml-last-buffer nil (#$ . 6126)) #@489 Contains the type of markup parsed last. The value is a symbol: nil - pcdata or space CDATA - CDATA or RCDATA comment - comment declaration doctype - doctype declaration end-tag ignored - ignored marked section ms-end - marked section start, if not ignored ms-start - marked section end, if not ignored pi - processing instruction sgml - SGML declaration start-tag entity - general entity reference param - parameter reference shortref- short reference mdecl - markup declaration  (defvar sgml-markup-type nil (#$ . 6268)) #@41 Root node of parse tree during parsing. (defvar sgml-top-tree nil (#$ . 6804)) #@135 Tree node of markup parsed. In case markup closed element this is different from sgml-current-tree. Only valid after `sgml-parse-to'. (defvar sgml-markup-tree nil (#$ . 6890)) #@37 Start point of markup being parsed. (defvar sgml-markup-start nil (#$ . 7072)) #@100 This variable is set by `sgml-parse-attribute-specification-list' if a CONREF attribute is parsed. (defvar sgml-conref-flag nil (#$ . 7158)) #@30 Number of declared elements. (defvar sgml-no-elements nil (#$ . 7305)) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list sgml-previous-buffer boundp nil] 2) #@112 This is the entity reference used to enter current entity. If this is nil, then current entity is main buffer. (defvar sgml-current-eref nil (#$ . 7488)) #@45 This is the file name of the current entity (defvar sgml-current-file nil (#$ . 7648)) #@182 The global value of this variable is the first scratch buffer for entities. The entity buffers can have a buffer local value for this variable to point to the next scratch buffer. (defvar sgml-scratch-buffer nil (#$ . 7742)) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list sgml-last-entity-buffer boundp nil] 2) #@62 Octets greater than this is the first of a two octet coding. (defconst sgml-max-single-octet-number 250 (#$ . 8082)) (byte-code "\301B\303\301!\204\f\304\302B\303\302!\204\304\304\207" [current-load-list sgml-read-token-vector sgml-read-nodes boundp nil] 2) #@41 File name corresponding to current DTD. (defvar sgml-loaded-dtd nil (#$ . 8355)) (make-variable-buffer-local 'sgml-loaded-dtd) #@48 Name of current element for mode line display. (defvar sgml-current-element-name nil (#$ . 8488)) (byte-code "\305\306!\210\307 \310\310\311W\203\312 \313#\210 T\211\202\n)\314\315\316\317#\210\314\320\321\317#\210\304\nB\307 \310\310\322W\203E\312 \313 #\210 T\211\2023)\314\323\324\317#\210\314\325\326\317#\210 )\305\207" [sgml-parser-syntax i current-load-list tab xml-parser-syntax make-variable-buffer-local sgml-current-element-name make-syntax-table 0 256 modify-syntax-entry " " mapconcat #[(c) "\302\303 #\207" [c sgml-parser-syntax modify-syntax-entry "w"] 4] "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrtsuvwxyz" "" #[(c) "\302\303 #\207" [c sgml-parser-syntax modify-syntax-entry "_"] 4] "-.0123456789" 128 #[(c) "\302\303 #\207" [c tab modify-syntax-entry "w"] 4] "_:ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrtsuvwxyz" #[(c) "\302\303 #\207" [c tab modify-syntax-entry "_"] 4] "-.0123456789·"] 5) (defalias 'sgml-with-parser-syntax '(macro . #[(&rest body) "\301\302\303\304\305B\306BBF\207" [body let ((normal-syntax-table (syntax-table)) (cb (current-buffer))) (set-syntax-table (if sgml-xml-p xml-parser-syntax sgml-parser-syntax)) unwind-protect progn ((setq sgml-last-buffer (current-buffer)) (set-buffer cb) (set-syntax-table normal-syntax-table))] 6])) (defalias 'sgml-with-parser-syntax-ro '(macro . #[(&rest body) "\301\302\303\304\305B\306BBF\207" [body let ((normal-syntax-table (syntax-table)) (cb (current-buffer)) (buffer-modified (buffer-modified-p))) (set-syntax-table (if sgml-xml-p xml-parser-syntax sgml-parser-syntax)) unwind-protect progn ((setq sgml-last-buffer (current-buffer)) (set-buffer cb) (set-syntax-table normal-syntax-table) (set-buffer-modified-p buffer-modified) (sgml-debug "Restoring buffer mod: %s" buffer-modified))] 6])) (defalias 'sgml-set-buffer-multibyte #[(flag) "\303\304!\203\207\305\301!\203\" \306Y\203\"\307\310=\203\n\202 !\207\305\311!\203,\312L\207\207" [flag emacs-major-version default-enable-multibyte-characters featurep xemacs boundp 20 set-buffer-multibyte default MULE mc-flag] 3]) (defalias 'sgml-make-move '(macro . #[(token node) "\302 E\207" [token node cons] 3])) (defalias 'sgml-move-token '(macro . #[(x) "\301D\207" [x car] 2])) (defalias 'sgml-move-dest '(macro . #[(x) "\301D\207" [x cdr] 2])) (defalias 'sgml-add-move-to-set '(macro . #[(token node set) "\303\211 E\nE\207" [token node set cons] 4])) (defalias 'sgml-moves-lookup '(macro . #[(token set) "\302 E\207" [token set assq] 3])) (defalias 'sgml-make-state #[nil "\300\301\211BB\207" [normal-state nil] 3]) (put 'sgml-make-state 'byte-optimizer 'byte-compile-inline-expand) (defalias 'sgml-normal-state-p '(macro . #[(s) "\301\302D\303BB\207" [s eq car ('normal-state)] 3])) (defalias 'sgml-state-opts '(macro . #[(s) "\301D\207" [s cadr] 2])) (defalias 'sgml-state-reqs '(macro . #[(s) "\301D\207" [s cddr] 2])) (defalias 'sgml-state-final-p '(macro . #[(s) "\301\302DD\207" [s null sgml-state-reqs] 3])) (defalias 'sgml-add-opt-move #[(s token dest) " \211A@)\236\206 A B \211A@)B\240\207" [token s x dest] 4]) (put 'sgml-add-opt-move 'byte-optimizer 'byte-compile-inline-expand) (defalias 'sgml-add-req-move #[(s token dest) " \211AA)\236\206 A B \211AA)B\241\207" [token s x dest] 4]) (put 'sgml-add-req-move 'byte-optimizer 'byte-compile-inline-expand) (defalias 'sgml-make-primitive-content-token #[(token) "\306\307\211BB\306\307\211BB\211\n\n\f\211AA)\236\204+\fA\n B\f\211AA)B\241\210+ *\207" [s2 s1 token dest s x normal-state nil] 5]) (put 'sgml-make-primitive-content-token 'byte-optimizer 'byte-compile-inline-expand) (defalias 'sgml-make-and-state #[(state dfas next) " \nBB\207" [state next dfas] 3]) (put 'sgml-make-and-state 'byte-optimizer 'byte-compile-inline-expand) (defalias 'sgml-step-and-state #[(state and-state) " AB\207" [state and-state] 2]) (put 'sgml-step-and-state 'byte-optimizer 'byte-compile-inline-expand) (defalias 'sgml-and-state-substate #[(s) "@\207" [s] 1]) (put 'sgml-and-state-substate 'byte-optimizer 'byte-compile-inline-expand) (defalias 'sgml-and-state-dfas #[(s) "\211AA)\207" [s x] 2]) (put 'sgml-and-state-dfas 'byte-optimizer 'byte-compile-inline-expand) (defalias 'sgml-and-state-next #[(s) "\211A@)\207" [s x] 2]) (put 'sgml-and-state-next 'byte-optimizer 'byte-compile-inline-expand) (defalias 'sgml-make-and-node #[(dfas next) " B\207" [next dfas] 2]) (put 'sgml-make-and-node 'byte-optimizer 'byte-compile-inline-expand) (defalias 'sgml-and-node-next '(macro . #[(n) "\301D\207" [n car] 2])) (defalias 'sgml-and-node-dfas '(macro . #[(n) "\301D\207" [n cdr] 2])) (defalias 'sgml-final #[(state) "@\302=\203\211AA)?\207\303!\207" [state x normal-state sgml-final-and] 3]) (put 'sgml-final 'byte-optimizer 'byte-compile-inline-expand) (defalias 'sgml-final-and #[(state) "\211@)\211@\305=\203\211AA)?\202\306!)\205]\211\211AA*\307\310 :\203F @\211\211AA)?\211\203F A\211\202,\f\205K\310+\205]\211\211A@*\211AA)?\207" [state s x #1=#:G60326 #2=#:G60327 normal-state sgml-final-and nil t] 4]) #@63 Return a new state or nil, after traversing TOKEN from STATE. (defalias 'sgml-get-move #[(state token) "9\203\305\207@\306=\203> \211A@)\236\206! \211AA)\236\211\205< A\211@\306=\2034\f\202;\307\fA \f@#))\207\310 \"\207" [state token x c dest nil normal-state sgml-next-sub-and sgml-get-and-move] 5 (#$ . 13593)]) (put 'sgml-get-move 'byte-optimizer 'byte-compile-inline-expand) (defalias 'sgml-get-and-move #[(state token) "\211@)\n\2119\203\306\202N@\307=\203J\n\211A@)\236\206+\n\211AA)\236\211\205F\fA\211@\307=\203> \202E\310 A\n @#))\202N\311\n\"*\211 \203] AB\202\216\211@)\211@\307=\203t\211AA)?\202w\312!)\205\216\310\211\211AA*\n\211\211A@*#)\207" [state s token x c dest nil normal-state sgml-next-sub-and sgml-get-and-move sgml-final-and m] 6]) #@137 Compute the next state, choosing from DFAS and moving by TOKEN. If this is not possible, but all DFAS are final, move by TOKEN in NEXT. (defalias 'sgml-next-sub-and #[(dfas token next) "\306\307\211\211\f\203\240 \204\240\f@ \205!\n\211\fAA)?\n  \2119\2032\307\202@\310=\203y \211\fA@)\236\206S \211\fAA)\236\211\205uA\211@\310=\203j\202t\311A @#))\202\312 \"*\211\205\230 \313\n\"\211+BB\fA\211\204 \206 \205  \2119\203\271\307\202@\310=\203 \211\fA@)\236\206\332 \211\fAA)\236\211\205\374A\211@\310=\203\361\202\373\311A @#))\202\312 \"*-\207" [dfas s2 s1 res l allfinal t nil normal-state sgml-next-sub-and sgml-get-and-move remq x token state c dest next] 6 (#$ . 14414)]) (defalias 'sgml-tokens-of-moves #[(moves) "\301\302\"\207" [moves mapcar #[(m) "@\207" [m] 1]] 3]) (put 'sgml-tokens-of-moves 'byte-optimizer 'byte-compile-inline-expand) (defalias 'sgml-required-tokens #[(state) "@\306=\203\211AA)\307\310\n\")\207\311\211@)!\206c\211\211AA*\312\312\f:\203J\f@\211\211AA)\307\310\n\")\237 \244\fA\211\202, \237+\206c\211\211A@*\211AA)\307\310\n\")\207" [state x moves s #1=#:G60328 #2=#:G60329 normal-state mapcar #[(m) "@\207" [m] 1] sgml-required-tokens nil] 5]) (defalias 'sgml-optional-tokens #[(state) "@\306=\203\211A@)\307\310\n\")\207\311\211@)!\211@)\211@\306=\2032\211AA)?\2025\312!)\205h\211\211AA*\313\313\f:\203e\f@\211\211A@)\307\310\n\")\237 \244\fA\211\202G \237+\244\211\211AA* \313\314 :\203\230 @\211\211AA)?\211\203\230 A\211 \202z\205\236\314+\205\265\211\211A@*\211A@)\307\310\n\")\244\207" [state x moves s #1=#:G60330 #2=#:G60331 normal-state mapcar #[(m) "@\207" [m] 1] sgml-optional-tokens sgml-final-and nil t #3=#:G60332 #4=#:G60333] 6]) (defalias 'sgml-make-attdecl #[(name dcl-value default-value) " \nE\207" [name dcl-value default-value] 3]) (defalias 'sgml-attdecl-name #[(attdecl) "@\207" [attdecl] 1]) #@122 The declared value of ATTDECL. It may be a symbol or (name-token-group (NAME1 ... NAMEn)) or (notation (NOT1 ... NOTn)) (defalias 'sgml-attdecl-declared-value #[(attdecl) "\211A@)\207" [attdecl x] 2 (#$ . 16476)]) #@189 The default value of ATTDECL. The default value is either a symbol (REQUIRED | IMPLIED | CURRENT | CONREF) or a list with first element nil or symbol `FIXED' and second element the value. (defalias 'sgml-attdecl-default-value #[(attdecl) "\211AA)@\207" [attdecl x] 2 (#$ . 16700)]) #@55 Return the attribute declaration for NAME in ATTLIST. (defalias 'sgml-lookup-attdecl #[(name attlist) "\302 \"\207" [name attlist assoc] 3 (#$ . 16990)]) #@62 Find the first attribute in ATTLIST that has DECLARED-VALUE. (defalias 'sgml-attribute-with-declared-value #[(attlist declared-value) "\303 \203\204\n\304 @!\232\203 @ A\211\204)\207" [found attlist declared-value nil sgml-attdecl-declared-value] 4 (#$ . 17151)]) #@133 Make a declared-value of TYPE. TYPE should be a symbol. If TYPE is name-token-group or notation NAMES should be a list of symbols. (defalias 'sgml-make-declared-value #[(type &optional names) ":\203 D\207 \207" [names type] 2 (#$ . 17435)]) #@132 Return the name token group for the DECLARED-VALUE. This applies to name token groups. For other declared values nil is returned. (defalias 'sgml-declared-value-token-group #[(declared-value) ":\205@\302=\205\211A@)\207" [declared-value x name-token-group] 3 (#$ . 17688)]) #@144 Return the list of notation names for the DECLARED-VALUE. This applies to notation declared value. For other declared values nil is returned. (defalias 'sgml-declared-value-notation #[(declared-value) ":\205@\302=\205\211A@)\207" [declared-value x NOTATION] 3 (#$ . 17978)]) (defalias 'sgml-make-default-value #[(type &optional attval) "\203 D\207 \207" [attval type] 2]) #@125 Return the actual default value of the declared DEFAULT-VALUE. The actual value is a string. Return nil if no actual value. (defalias 'sgml-default-value-attval #[(default-value) ":\205 \211A@)\207" [default-value x] 2 (#$ . 18370)]) #@110 Return true if DEFAULT-VALUE is of TYPE. Where TYPE is a symbol, one of REQUIRED, IMPLIED, CONREF, or FIXED. (defalias 'sgml-default-value-type-p #[(type default-value) " =\206 :\205 @=\207" [type default-value] 2 (#$ . 18615)]) #@102 Create an attspec from NAME and ATTVAL. Special case, if ATTVAL is nil this is an implied attribute. (defalias 'sgml-make-attspec #[(name attval) " B\207" [name attval] 2 (#$ . 18857)]) (defalias 'sgml-attspec-name #[(attspec) "@\207" [attspec] 1]) #@90 Return the value of attribute specification ATTSPEC. If ATTSPEC is nil, nil is returned. (defalias 'sgml-attspec-attval #[(attspec) "A\207" [attspec] 1 (#$ . 19114)]) (defalias 'sgml-lookup-attspec #[(name asl) "\302 \"\207" [name asl assoc] 3]) (defalias 'sgml-model-group-p #[(model) ":\207" [model] 1]) (byte-code "\305\306\307\310#\210\301B\311\302B\312\303B\313\304B\314\305\207" [current-load-list sgml-cdata sgml-rcdata sgml-empty sgml-any put sgml-model-group-p byte-optimizer byte-compile-inline-expand CDATA RCDATA EMPTY ANY] 4) (defalias 'sgml-make-extid #[(pubid sysid &optional pubid-ok) "\203 \204\n\203 \204\305\306!\210\n \fBB\207" [sgml-xml-p pubid-ok pubid sysid default-directory sgml-error "XML requires a system ID after a public ID."] 3]) (defalias 'sgml-extid-pubid #[(extid) "@\207" [extid] 1]) (defalias 'sgml-extid-sysid #[(extid) "A:\203 \211A@)\207A\207" [extid x] 2]) #@36 Directory where EXTID was declared (defalias 'sgml-extid-dir #[(extid) "A:\205\f\211AA)\207" [extid x] 2 (#$ . 20047)]) #@48 Expand file name FILE in the context of EXTID. (defalias 'sgml-extid-expand #[(file extid) "\303! B\304\n \"\206\305\n\303!\")\207" [extid sgml-system-path file sgml-extid-dir sgml-extid-expand-2 expand-file-name] 4 (#$ . 20177)]) (defalias 'sgml-extid-expand-2 #[(file directories) "\204\303\207\304 @\"\305\n!\203\n\202\306 A\")\207" [directories file f nil expand-file-name file-exists-p sgml-extid-expand-2] 3]) (byte-code "\301B\302\303\304\305#\210\303\306N\204\302\303\306\307#\210\301\207" [current-load-list cl-struct-sgml-dtd-tags put sgml-dtd-doctype cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\305\211&\207" [cl-x cl-defsubst-expand (cl-x) (block sgml-dtd-doctype (aref cl-x 0)) t nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'sgml-dtd-doctype #[(cl-x) "\301H\207" [cl-x 0] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put sgml-dtd-doctype setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander sgml-dtd sgml-dtd-doctype nil 0] 6] sgml-dtd-eltypes cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\305\211&\207" [cl-x cl-defsubst-expand (cl-x) (block sgml-dtd-eltypes (aref cl-x 1)) t nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'sgml-dtd-eltypes #[(cl-x) "\301H\207" [cl-x 1] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put sgml-dtd-eltypes setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander sgml-dtd sgml-dtd-eltypes nil 1] 6] sgml-dtd-parameters cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\305\211&\207" [cl-x cl-defsubst-expand (cl-x) (block sgml-dtd-parameters (aref cl-x 2)) t nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'sgml-dtd-parameters #[(cl-x) "\301H\207" [cl-x 2] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put sgml-dtd-parameters setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander sgml-dtd sgml-dtd-parameters nil 2] 6] sgml-dtd-entities cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\305\211&\207" [cl-x cl-defsubst-expand (cl-x) (block sgml-dtd-entities (aref cl-x 3)) t nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'sgml-dtd-entities #[(cl-x) "\301H\207" [cl-x 3] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put sgml-dtd-entities setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander sgml-dtd sgml-dtd-entities nil 3] 6] sgml-dtd-shortmaps cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\305\211&\207" [cl-x cl-defsubst-expand (cl-x) (block sgml-dtd-shortmaps (aref cl-x 4)) t nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'sgml-dtd-shortmaps #[(cl-x) "\301H\207" [cl-x 4] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put sgml-dtd-shortmaps setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander sgml-dtd sgml-dtd-shortmaps nil 4] 6] sgml-dtd-notations cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\305\211&\207" [cl-x cl-defsubst-expand (cl-x) (block sgml-dtd-notations (aref cl-x 5)) t nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'sgml-dtd-notations #[(cl-x) "\301H\207" [cl-x 5] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put sgml-dtd-notations setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander sgml-dtd sgml-dtd-notations nil 5] 6] sgml-dtd-dependencies cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\305\211&\207" [cl-x cl-defsubst-expand (cl-x) (block sgml-dtd-dependencies (aref cl-x 6)) t nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'sgml-dtd-dependencies #[(cl-x) "\301H\207" [cl-x 6] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put sgml-dtd-dependencies setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander sgml-dtd sgml-dtd-dependencies nil 6] 6] sgml-dtd-merged cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\305\211&\207" [cl-x cl-defsubst-expand (cl-x) (block sgml-dtd-merged (aref cl-x 7)) t nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'sgml-dtd-merged #[(cl-x) "\301H\207" [cl-x 7] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put sgml-dtd-merged setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander sgml-dtd sgml-dtd-merged nil 7] 6] sgml-dtd-undef-entities cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\305\211&\207" [cl-x cl-defsubst-expand (cl-x) (block sgml-dtd-undef-entities (aref cl-x 8)) t nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'sgml-dtd-undef-entities #[(cl-x) "\301H\207" [cl-x 8] 2]) (put 'sgml-dtd-undef-entities 'setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander sgml-dtd sgml-dtd-undef-entities nil 8] 6]) (defalias 'copy-sgml-dtd #[(x) "\301!\207" [x copy-sequence] 2]) (byte-code "\300\301\302\303#\210\301\304N\204\300\301\304\305#\210\300\207" [put make-sgml-dtd cl-compiler-macro #[(cl-whole &rest #1=#:--rest--60334) "\306>A@\307>\206 \310A@\311>\206\312A@\313>\206!\314A@\315>\206+\316A@\317>A@\320>A@\321>A@\322>A@  \203} @\323>\203d AA\211 \202O\324>A@\203s\325\211 \202O\326\327 @\"\210\202M)\330\331\332\333!\325 \n \f &. \207" [#1# doctype eltypes parameters entities shortmaps :doctype :eltypes (nil (sgml-make-eltype-table)) :parameters (nil (sgml-make-entity-table)) :entities (nil (sgml-make-entity-table)) :shortmaps (nil (sgml-make-shortref-table)) :notations :dependencies :merged :undef-entities (:doctype :eltypes :parameters :entities :shortmaps :notations :dependencies :merged :undef-entities :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:doctype :eltypes :parameters :entities :shortmaps :notations :dependencies :merged :undef-entities)" cl-defsubst-expand (doctype eltypes parameters entities shortmaps notations dependencies merged undef-entities) (block make-sgml-dtd (vector doctype eltypes parameters entities shortmaps notations dependencies merged undef-entities)) t notations dependencies merged undef-entities #:--keys--60335 cl-whole] 16] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'make-sgml-dtd #[(&rest #1=#:--rest--60336) "\306>A@\307>\206\310\311 DA@\312>\206\310\313 DA@\314>\206*\310\313 DA@\315>\2067\310\316 DA@\317>A@\320>A@\321>A@\322>A@\203\211@\323>\203pAA\211\202[\324>A@\203\310\211\202[\325\326@\"\210\202Y)\327 \n \f & . \207" [#1# doctype eltypes parameters entities shortmaps :doctype :eltypes nil sgml-make-eltype-table :parameters sgml-make-entity-table :entities :shortmaps sgml-make-shortref-table :notations :dependencies :merged :undef-entities (:doctype :eltypes :parameters :entities :shortmaps :notations :dependencies :merged :undef-entities :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:doctype :eltypes :parameters :entities :shortmaps :notations :dependencies :merged :undef-entities)" vector notations dependencies merged undef-entities #2=#:--keys--60337] 11]) (byte-code "\300\301\302\303#\210\301\304N\204\300\301\304\305#\210\300\207" [put sgml-make-dtd cl-compiler-macro #[(cl-whole doctype) "\301\302\303\304\211\305&\207" [doctype cl-defsubst-expand (doctype) (block sgml-make-dtd (vector doctype (sgml-make-eltype-table) (sgml-make-entity-table) (sgml-make-entity-table) (sgml-make-shortref-table) nil nil nil nil)) nil t] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'sgml-make-dtd #[(doctype) "\301\302 \303 \303 \304 \305\211\211\211& \207" [doctype vector sgml-make-eltype-table sgml-make-entity-table sgml-make-shortref-table nil] 10]) (byte-code "\301C\302\303\304\305#\210\302\303\306\307#\210\302\303\310\311#\210\302\303\312\311#\210\302\313\314\315#\210\302\316\314\315#\210\302\317\314\315#\210\302\320\314\315#\210\302\321\314\315#\210\302\322\314\315#\210\302\323\314\315#\210\302\324\314\315#\210\302\325\314\315#\210\302\326\314\315#\207" [cl-struct-sgml-dtd-tags cl-struct-sgml-dtd put sgml-dtd cl-struct-slots ((doctype) (eltypes (sgml-make-eltype-table)) (parameters (sgml-make-entity-table)) (entities (sgml-make-entity-table)) (shortmaps (sgml-make-shortref-table)) (notations nil) (dependencies nil) (merged nil) (undef-entities nil)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print copy-sgml-dtd side-effect-free t sgml-dtd-undef-entities sgml-dtd-merged sgml-dtd-dependencies sgml-dtd-notations sgml-dtd-shortmaps sgml-dtd-entities sgml-dtd-parameters sgml-dtd-eltypes sgml-dtd-doctype] 4) (defalias 'sgml-eltype-name #[(et) "\301!\207" [et symbol-name] 2]) (byte-code "\300\301\302\303#\210\301\304N\204\300\301\304\305#\210\300\207" [put sgml-eltype-name cl-compiler-macro #[(--cl-whole-arg-- et) "\301D\207" [et symbol-name] 2] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'sgml-eltype-defined #[(et) "\301!\207" [et fboundp] 2]) #@37 Return a token for the element type (defalias 'sgml-eltype-token #[(et) "\207" [et] 1 (#$ . 29578)]) (byte-code "\300\301\302\303#\210\301\304N\204\300\301\304\305#\210\300\207" [put sgml-eltype-token cl-compiler-macro #[(--cl-whole-arg-- et) "\207" [et] 1] byte-compile cl-byte-compile-compiler-macro] 4) #@49 Return the element type corresponding to TOKEN. (defalias 'sgml-token-eltype #[(token) "\207" [token] 1 (#$ . 29894)]) (byte-code "\300\301\302\303#\210\301\304N\204\300\301\304\305#\210\300\207" [put sgml-token-eltype cl-compiler-macro #[(--cl-whole-arg-- token) "\207" [token] 1] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'sgml-prop-fields '(macro . #[(&rest names) "\304\305\305 :\203+ @\306\307\310\311\n\"!\312\313\314\315\316\211\nDDFF B A\211\202 \237+B\207" [names #1=#:G60338 n #2=#:G60339 progn nil defmacro intern format "sgml-eltype-%s" (et) list 'get et quote] 11])) (defalias 'sgml-eltype-attlist '(macro . #[(et) "\301\302E\207" [et get 'attlist] 3])) (defalias 'sgml-eltype-includes '(macro . #[(et) "\301\302E\207" [et get 'includes] 3])) (defalias 'sgml-eltype-excludes '(macro . #[(et) "\301\302E\207" [et get 'excludes] 3])) (defalias 'sgml-eltype-shortmap '(macro . #[(et) "\301\302E\207" [et get 'shortmap] 3])) (defalias 'sgml-eltype-flags '(macro . #[(et) "\301D\207" [et symbol-value] 2])) (defalias 'sgml-eltype-model #[(et) "\302!\203 K\207 \207" [et sgml-any fboundp] 2]) (put 'sgml-eltype-model 'setf-method #[(&rest args) "\304\305\"\305\306! \nC \n\307\310 C\"*B\311 B\257*\207" [args --args--temp-- --store--temp-- store mapcar gensym "--store--" fset append sgml-eltype-model] 7]) (defalias 'sgml-eltype-stag-optional #[(et) "\301J!\207" [et oddp] 2]) (defalias 'sgml-eltype-etag-optional #[(et) "\301J\302\"\303U?\207" [et logand 2 0] 3]) (defalias 'sgml-eltype-mixed #[(et) "\301JW\207" [et 3] 2]) (byte-code "\300\301\302\303#\210\301\304N\204\300\301\304\305#\210\300\306\307\310#\210\300\311\307\312#\210\300\301\307\313#\207" [put sgml-eltype-mixed cl-compiler-macro #[(--cl-whole-arg-- et) "\301\302\303DE\207" [et < 3 sgml-eltype-flags] 4] byte-compile cl-byte-compile-compiler-macro sgml-eltype-stag-optional setf-method #[(et) "\304\305!\304\306!C\nC C \307\n\310 F*\311D\257*\207" [--et--temp-- --f--temp-- et f gensym "--et--" "--f--" sgml-set-eltype-flag 1 sgml-eltype-stag-optional] 7] sgml-eltype-etag-optional #[(et) "\304\305!\304\306!C\nC C \307\n\310 F*\311D\257*\207" [--et--temp-- --f--temp-- et f gensym "--et--" "--f--" sgml-set-eltype-flag 2 sgml-eltype-etag-optional] 7] #[(et) "\304\305!\304\306!C\nC C \307\n\310 F*\311D\257*\207" [--et--temp-- --f--temp-- et f gensym "--et--" "--f--" sgml-set-eltype-flag 4 sgml-eltype-mixed] 7]] 4) (defalias 'sgml-set-eltype-flag #[(et mask f) "\303\304\305!\203J\202\306\307 !\"\n\203 \202\306\"L\207" [et mask f logior logand boundp 0 lognot] 6]) (defalias 'sgml-maybe-put #[(sym prop val) "\205 \303 \n#\207" [val sym prop put] 4]) (byte-code "\300\301\302\303#\210\300\304\302\305#\207" [put sgml-eltype-includes setf-method #[(et) "\304\305!\304\306!C\nC C \307\n\310 F*\311D\257*\207" [--et--temp-- --l--temp-- et l gensym "--et--" "--l--" sgml-maybe-put 'includes sgml-eltype-includes] 7] sgml-eltype-excludes #[(et) "\304\305!\304\306!C\nC C \307\n\310 F*\311D\257*\207" [--et--temp-- --l--temp-- et l gensym "--et--" "--l--" sgml-maybe-put 'excludes sgml-eltype-excludes] 7]] 4) #@199 Get application data from element type ET with name PROP. PROP should be a symbol, reserved names are: flags, model, attlist, includes, excludes, conref-regexp, mixed, stag-optional, etag-optional. (defalias 'sgml-eltype-appdata '(macro . #[(et prop) "\302 E\207" [et prop get] 3 (#$ . 33092)])) (defalias 'sgml-eltype-all-miscdata #[(et) "\304!\305 :\203* @\306>\204 @ \211A@)D\237\n\244 \211AA)\211\202\n\237*\207" [et p #1=#:G60342 x symbol-plist nil (model flags includes excludes)] 3]) (defalias 'sgml-eltype-set-all-miscdata #[(et miscdata) "\302\303! \244\"\207" [et miscdata setplist symbol-plist] 4]) (defalias 'sgml-make-eltype #[(name) "\302!\211\303L\210 )\207" [name et make-symbol 0] 3]) #@39 Make an empty table of element types. (defalias 'sgml-make-eltype-table #[nil "\300\301\302\"\207" [make-vector 73 0] 3 (#$ . 33817)]) (defalias 'sgml-eltype-table-empty #[(eltype-table) "\305\306\307\nT\211 GW\203 \nH\211\310=\211\204\f\205#\307,\207" [eltype-table #1=#:G60347 #2=#:G60348 x #3=#:G60349 -1 nil t 0] 3]) #@140 Return the merge of two element type tables ELTYPES1 and ELTYPES2. This may change ELTYPES1, ELTYPES2 is unchanged. Returns the new table. (defalias 'sgml-merge-eltypes #[(eltypes1 eltypes2) "\302!\203 \207\303\304 \"\210\207" [eltypes1 eltypes2 sgml-eltype-table-empty mapatoms #[(sym) "\303\304! \"\305\n!\204#\305!\203\nKM\210\306!\203#\nJL\210\307\n\310\n!\311\310!!\244\")\207" [sym eltypes1 et intern symbol-name fboundp boundp setplist symbol-plist copy-list] 6]] 3 (#$ . 34158)]) #@50 Lookup the element definition for NAME (string). (defalias 'sgml-lookup-eltype #[(name &optional dtd) "\303 \206\n\304H\"\207" [name dtd sgml-dtd-info intern 1] 4 (#$ . 34667)]) #@65 Make a completion table from a list, ELTYPES, of element types. (defalias 'sgml-eltype-completion-table #[(eltypes) "\305\305\305 :\203' @\306\n!\307\n!\203 \211B\fB A\211\202 \f\237,\207" [eltypes #1=#:G60352 et name #2=#:G60353 nil symbol-name boundp] 3 (#$ . 34854)]) #@205 Read an element type name. PROMPT is displayed as a prompt and DTD should be the dtd to get the element types from. Optional argument DEFAULT (string) will be used as a default for the element type name. (defalias 'sgml-read-element-type #[(prompt dtd &optional default) "\306\n \307H\310\311\312\211&)\211\313\232\203 \206\314\315!\316\f \")\207" [sgml-namecase-general completion-ignore-case prompt dtd name default completing-read 1 fboundp t nil "" error "Aborted" sgml-lookup-eltype] 8 (#$ . 35145)]) (defalias 'sgml-map-eltypes #[(fn dtd &optional collect all) "\304\305 \203\n\203\306\202 \203\307\202 \n\203\310\202 \311 \312H\"\210\237)\207" [*res* collect all dtd nil mapatoms #[(a) " !\nB\211\207" [fn a *res*] 2] #[(a) "\303!\205 !\nB\211\207" [a fn *res* boundp] 2] #[(a) " !\207" [fn a] 2] #[(a) "\302!\205 !\207" [a fn boundp] 2] 1] 4]) (defalias 'sgml-char-int '(macro . #[(ch) "\301\302!\203\n\302D\207\207" [ch fboundp char-int] 2])) (defalias 'sgml-read-octet #[nil "g\300u\210\207" [nil] 2]) (put 'sgml-read-octet 'byte-optimizer 'byte-compile-inline-expand) (defalias 'sgml-read-peek #[nil "g\207" [] 1]) (put 'sgml-read-peek 'byte-optimizer 'byte-compile-inline-expand) #@130 Read a number. A number is 1: an octet [0--sgml-max-single-octet-number] or 2: two octets (n,m) interpreted as (n-t-1)*256+m+t. (defalias 'sgml-read-number #[nil "gV\203g\301u\210\302Z\303_g\301u\210\\\\\207g\301u\210\207" [sgml-max-single-octet-number nil 251 256] 3 (#$ . 36382)]) (put 'sgml-read-number 'byte-optimizer 'byte-compile-inline-expand) (defalias 'sgml-read-sexp #[nil "p\301 )\302\303w\210\304u\210\207" [standard-input read " " nil 1] 3]) (defalias 'sgml-read-token #[nil "g V\203g\302u\210\303Z\304_g\302u\210\\ \\\202g\302u\210H\207" [sgml-read-token-vector sgml-max-single-octet-number nil 251 256] 4]) (put 'sgml-read-token 'byte-optimizer 'byte-compile-inline-expand) (defalias 'sgml-read-node-ref #[nil "g\301u\210H\207" [sgml-read-nodes nil] 3]) (put 'sgml-read-node-ref 'byte-optimizer 'byte-compile-inline-expand) (defalias 'sgml-read-model-seq #[nil "gV\203g\303u\210\304Z\305_g\303u\210\\\\\202g\303u\210\303 S\211\306Y\2030\307 \nB\202\n\237*\207" [sgml-max-single-octet-number #1=#:G60354 #2=#:G60355 nil 251 256 0 sgml-read-model] 3]) (defalias 'sgml-read-token-seq #[nil "gV\203g\304u\210\305Z\306_g\304u\210\\\\\202g\304u\210\304 S\211\307Y\203L gV\203Ag\304u\210\305Z\306_g\304u\210\\\\\202Eg\304u\210H\nB\202\n\237*\207" [sgml-max-single-octet-number #1=#:G60356 #2=#:G60357 sgml-read-token-vector nil 251 256 0] 4]) (defalias 'sgml-read-moves #[nil "gV\203g\305u\210\306Z\307_g\305u\210\\\\\202g\305u\210\305 S\211\310Y\203S gV\203Ag\305u\210\306Z\307_g\305u\210\\\\\202Eg\305u\210H\fg\305u\210HB\nB\202\n\237*\207" [sgml-max-single-octet-number #1=#:G60358 #2=#:G60359 sgml-read-token-vector sgml-read-nodes nil 251 256 0] 4]) (defalias 'sgml-read-model #[nil "gV\203g\306u\210\307Z\310_g\306u\210\\\\\202g\306u\210\311 \306\"\312  \fW\203<\n \313\306\211BBI\210 T\211\202'*\n\314\306T\211 GW\203\206 Hg\315=\203ug\306u\210\210\ng\306u\210H\240\210\316 \241\210\202EA\317 \240\210A\317 \241\210\202E+\n\312H*\207" [sgml-max-single-octet-number n sgml-read-nodes i #1=#:G60360 #2=#:G60361 nil 251 256 make-vector 0 normal-state -1 255 sgml-read-model-seq sgml-read-moves #3=#:G60362 e] 6]) (defalias 'sgml-read-content #[nil "g\305u\210\211\306=\203 \202?\307=\203\n\202?\310=\203# \202?\311=\203-\f\202?\312=\2037\305\202?\313=\205?\314 )\207" [c sgml-cdata sgml-rcdata sgml-empty sgml-any nil 0 1 2 3 4 128 sgml-read-model] 3]) (defalias 'sgml-read-decode-flag #[(flag mask) "\302\303 \"!?\207" [flag mask zerop logand] 4]) (defalias 'sgml-read-element #[(et) "\306\307 \"\210g\310u\210\211\311U?\2052 L\210\312 M\210\313 \314\n\315 #\210*\313 \314\f\316 #*)\207" [et flags #1=#:--et--60375 #2=#:--l--60376 #3=#:--et--60377 #4=#:--l--60378 sgml-eltype-set-all-miscdata sgml-read-sexp nil 128 sgml-read-content sgml-read-token-seq sgml-maybe-put includes excludes] 5]) #@57 Decode the saved DTD in current buffer, return the DTD. (defalias 'sgml-read-dtd #[nil "\303]\304 \305\n\306\232\203\307 \202\310\311\n\"\210 +\207" [gc-cons-threshold dtd file-version 500000 sgml-read-sexp nil (sgml-saved-dtd-version 7) sgml-bdtd-read-dtd error "Unknown file format for saved DTD: %s"] 3 (#$ . 39322)]) #@29 Load a saved DTD from FILE. (defalias 'sgml-load-dtd #[(file) "\306\307\310\311 B\"@\211\204\312\313 \"\210p\306\211\314 \315 \203>\204> @q\210\n\232\2037p A\211\204%\203L\316!\202eq\210\317\n!\210\320\321\n\"\210\322 \320\323\n\"\210\324 \210q\210\325!\210 \n\211.\207" [sgml-loaded-dtd sgml-system-path real-file file find-file-type l nil mapcan #[(dir) "\303 \"\304\n!\205 \nC)\207" [file dir f expand-file-name file-exists-p] 3] "." error "Saved DTD file %s not found" buffer-list #[(fname) "\300\207" [1] 1] sgml-pstate-dtd sgml-push-to-entity message "Loading DTD from %s..." sgml-read-dtd "Loading DTD from %s...done" sgml-pop-entity sgml-set-initial-state dtd tem cb sgml-buffer-parse-state sgml-default-dtd-file] 6 (#$ . 39658) (let ((tem (expand-file-name (or sgml-default-dtd-file (sgml-default-dtd-file))))) (list (read-file-name "Load DTD from: " (file-name-directory tem) tem t (file-name-nondirectory tem))))]) #@218 Load the compiled dtd from CFILE into the current buffer. If this file does not exists, is of an old version or out of date, a new compiled dtd will be created from file DTDFILE and parameter entity settings in ENTS. (defalias 'sgml-bdtd-load #[(cfile dtdfile ents) "\203 \306\307 \"\210\310 !\203<\311\312 \313\211\211$)\203<\314 \315\232\203<\316 \314 \"\206A \317=\2037\320\321!?\2029 ?\206A\322\f #\207" [sgml-debug cfile find-file-type sgml-recompile-out-of-date-cdtd dtdfile ents sgml-log-message "Trying to load compiled DTD from %s..." file-readable-p #[(fname) "\300\207" [1] 1] insert-file-contents nil sgml-read-sexp (sgml-saved-dtd-version 7) sgml-up-to-date-p ask y-or-n-p "Compiled DTD is out of date, recompile? " sgml-compile-dtd] 5 (#$ . 40636)]) #@136 Check if FILE is newer than all files in the list DEPENDENCIES. If DEPENDENCIES contains the symbol `t', FILE is not considered newer. (defalias 'sgml-up-to-date-p #[(file dependencies) "\305>?\205+\306\305 :\203% @\307\f\n\"\211\203% A\211\202 \205*\305+\207" [dependencies #1=#:G60379 f #2=#:G60380 file t nil file-newer-than-file-p] 4 (#$ . 41418)]) #@259 Construct a binary code compiled dtd from DTD-FILE and write it to TO-FILE. The dtd will be constructed with the parameter entities set according to ENTS. The bdtd will be left in the current buffer. The current buffer is assumed to be empty to start with. (defalias 'sgml-compile-dtd #[(dtd-file to-file ents) "\306\307\"\210\310\311\310\312 \313 \313 \314 \310\211\211\211& )\211\315H\316\n\317\n\317HBI\210 \310\310:\203V@\211\211A@\320 \321$\210A\211\2023+\322!\210\323 \210\324 \210\325 \210\326\n\"\210+\316\207" [dtd-file doctype sgml-dtd-info parameters sgml-parsing-dtd ents sgml-log-message "Recompiling DTD file %s..." nil vector sgml-make-eltype-table sgml-make-entity-table sgml-make-shortref-table 2 t 6 sgml-entity-declare text sgml-push-to-entity sgml-check-dtd-subset sgml-pop-entity erase-buffer sgml-write-dtd #1=#:G60383 val name to-file] 11 (#$ . 41792)]) #@48 Check that PARAMS1 is compatible with PARAMS2. (defalias 'sgml-check-entities #[(params1 params2) "\300\301\215\207" [--cl-block-check-entities-- (byte-code "\301\302\"\210\303\207" [params1 sgml-map-entities #[(entity) "\303\304! \"\211?\206\n\232?\205$\305\306\304!\307\n!\307!$\210\310\311\312\")\207" [entity params2 other sgml-lookup-entity sgml-entity-name sgml-log-message "Parameter %s in compiled DTD has wrong value; is '%s' should be '%s'" sgml-entity-text throw --cl-block-check-entities-- nil] 7] t] 3)] 2 (#$ . 42711)]) #@175 Merge the binary coded dtd in the current buffer with the current dtd. The current dtd is the variable sgml-dtd-info. Return t if the merge was successful or nil if failed. (defalias 'sgml-bdtd-merge #[nil "\306\307!\210eb\210\310 \210\310 \310 \311]\307\312\f\313H\n\"\205\367\314\315!\210\316\f\313H\n\"\210\f\f\317H \244 \317I\210*\310 \211\203L\f\320H\204L\f\320 I\210gV\203fg\307u\210\321Z\322_g\307u\210\\\\\202jg\307u\210\323 T\307\"\211\320I\210\324 ! !X\203\231 \325\310 !I\210 T\211 \202\200*\324 gV\203\267g\307u\210\321Z\322_g\307u\210\\\\\202\273g\307u\210\" \"X\203\326\326 H!\210 T\211 \202\277*\316\f\327H\310 \"\210\330\f\331H\310 \"\210\f#\310 $#\332$I\210*\333,\207" [gc-cons-threshold temp parameters dependencies sgml-dtd-info #1=#:--x--60384 sgml-set-buffer-multibyte nil sgml-read-sexp 500000 sgml-check-entities 2 sgml-message "Reading compiled DTD..." sgml-merge-entity-tables 6 0 251 256 make-vector 1 sgml-lookup-eltype sgml-read-element 3 sgml-merge-shortmaps 4 5 t #2=#:--store--60385 sgml-max-single-octet-number sgml-read-token-vector sgml-pcdata-token i #3=#:G60388 #4=#:G60389 #5=#:--x--60390 #6=#:--store--60391] 6 (#$ . 43261)]) #@74 Create and return a dtd from the binary coded dtd in the current buffer. (defalias 'sgml-bdtd-read-dtd #[nil "\302\303\302\304 \305 \305 \306 \302\211\211\211& )\307 \210 )\207" [doctype sgml-dtd-info nil vector sgml-make-eltype-table sgml-make-entity-table sgml-make-shortref-table sgml-bdtd-merge] 10 (#$ . 44490)]) #@129 Set the type of the markup parsed to TYPE. The markup starts at position given by variable sgml-markup-start and ends at point. (defalias 'sgml-set-markup-type #[(type) "\203 \204\305\n` #\210 \211\207" [sgml-set-face sgml-current-eref sgml-markup-start type sgml-markup-type sgml-set-face-for] 4 (#$ . 44817)]) (byte-code "\302\303\304\305#\210\301B\306\302\207" [current-load-list sgml-delimiters put sgml-set-markup-type byte-optimizer byte-compile-inline-expand ("AND" "&" "COM" "--" "CRO" "&#" "DSC" "]" "DSO" "[" "DTGC" "]" "DTGO" "[" "ERO" "&" "ETAGO" "" "MDO" "" "PIO" "" "VI" "=" "MS-START" "" "XML-ECOM" "-->" "XML-PIC" "?>" "XML-SCOM" "" nil t -3 62 sgml-delimiter-parse-error "XML-ECOM" comment sgml-set-face-for] 4]) #@91 Skip over the separator used in the catalog. Return true if not at the end of the buffer. (defalias 'sgml-skip-cs #[nil "\301\302\301w\303U)\203\304 \204m?\207" [shortmap nil " \n " 0 sgml-parse-comment] 2 (#$ . 57385)]) #@77 Move point forward stopping before a char that isn't a parameter separator. (defalias 'sgml-skip-ps #[nil "\301\302\301w\303U)\203m\203\304 \204g\305=\203/`Tf\206!\303z\306=\203/\307u\210\310 \204\311 \2057\202\207" [shortmap nil " \n " 0 sgml-pop-entity 37 119 1 sgml-do-parameter-entity-ref sgml-parse-comment] 2 (#$ . 57618)]) (put 'sgml-skip-ps 'byte-optimizer 'byte-compile-inline-expand) (defalias 'sgml-parse-ds #[nil "m\203 \302 \206G\303\304\303w\305U)?\206Gg\306=\2030`Tf\206\"\305z\307=\2030\310u\210\311 \206G\301g\312=\205F`Tf\313=\205F\314u\210\315 !)\207" [shortmap in-declaration sgml-pop-entity nil " \n " 0 37 119 1 sgml-do-parameter-entity-ref 60 63 2 sgml-do-processing-instruction] 2]) (put 'sgml-parse-ds 'byte-optimizer 'byte-compile-inline-expand) (defalias 'sgml-skip-ds #[nil "m\203 \302 \204\303\304\303w\305U)\203g\306=\203/`Tf\206!\305z\307=\203/\310u\210\311 \204\301g\312=\205E`Tf\313=\205E\314u\210\315 !)\205L\202\207" [shortmap in-declaration sgml-pop-entity nil " \n " 0 37 119 1 sgml-do-parameter-entity-ref 60 63 2 sgml-do-processing-instruction] 2]) #@90 Parse a RNI (#) return nil if none; with optional NAME, a RNI must be followed by NAME. (defalias 'sgml-parse-rni '(macro . #[(&optional name) "\203 \301\302\303DE\207\304\207" [name if (sgml-parse-delim "RNI") sgml-check-token (sgml-parse-delim "RNI")] 4 (#$ . 58758)])) (defalias 'sgml-check-token #[(name) "\301m\204gz\302=\203\303\304`\305\306!\210`\"!\206\307\310!!\232\206&\307\311\"\207" [name sgml-check-case 119 sgml-general-case buffer-substring-no-properties skip-syntax-forward "w_" sgml-parse-error "Name expected" "Reserved name not expected (expecting %s)"] 6]) #@135 Check that NAME is in upper case. If sgml-namecase-general is nil, then signal an error if the argument is not already in upper case. (defalias 'sgml-check-case #[(name) "\204 \211\226\232\204\302\303 \"\210 \207" [sgml-current-namecase-general name sgml-parse-error "Uppercase keyword expected (found %s)"] 3 (#$ . 59355)]) #@64 Parse a literal and return a string, if no literal return nil. (defalias 'sgml-parse-literal #[nil "\303\211\211g\304=\203\305u\210\202!g\306=\205\305u\210\307\211\205_`\n\203.\310\303w\210\2022\311\303w\210\312 `\"\n\203Ng\306=\203G\305u\210\202^\313\314!\210\202^g\304=\203Z\305u\210\202^\313\315!\210+\207" [value start lita nil 34 1 39 t "^'" "^\"" buffer-substring-no-properties sgml-delimiter-parse-error "LITA" "LIT"] 3 (#$ . 59691)]) (defalias 'sgml-check-literal #[nil "\300 \206\301\302!\207" [sgml-parse-literal sgml-parse-error "A literal expected"] 2]) #@68 Parse a quoted SGML string and return it, if no string return nil. (defalias 'sgml-parse-minimum-literal #[nil "g\306>\205\\g\307\310\311 #`\312\312\313u\210 \314w\210g=\203)\313u\210\202Ym\2037 b\210\315\316!\210\202\314\317\314w\320U)\204H\321\202\f \322`\n\314w\210`\"Q\312\202\f.\207" [qchar blanks qskip start value spaced (34 39) " \n" format "^%s%c" "" 1 nil sgml-parse-error "Unterminated literal" " \n " 0 " " buffer-substring-no-properties shortmap] 6 (#$ . 60286)]) (defalias 'sgml-check-minimum-literal #[nil "\300 \206\301\302!\207" [sgml-parse-minimum-literal sgml-parse-error "A minimum literal expected"] 2]) #@50 Leaves nil if no external id, or (pubid . sysid) (defalias 'sgml-parse-external #[(&optional pubid-ok) "\306\307\306w\310U)\203m\203\311 \204g\312=\203/`Tf\206!\310z\313=\203/\314u\210\315 \204\316 \204`\317 \211\205\314\306\307\306w\310U)\203=m\203Q\311 \204=g\312=\203l`Tf\206^\310z\313=\203l\314u\210\315 \204=\316 \204=\320\n!\321\235\203\310\n\322\230\205\207\323 \206\207\324\325!\306\307\306w\310U)\203\210m\203\234\311 \204\210g\312=\203\267`Tf\206\251\310z\313=\203\267\314u\210\315 \204\210\316 \204\210\326 \327 \f #*\202\314 b\210\306*\207" [shortmap p token pubid sysid pubid-ok nil " \n " 0 sgml-pop-entity 37 119 1 sgml-do-parameter-entity-ref sgml-parse-comment sgml-parse-nametoken sgml-check-case ("PUBLIC" "SYSTEM") "PUBLIC" sgml-parse-minimum-literal sgml-parse-error "Public identifier expected" sgml-parse-literal sgml-make-extid] 5 (#$ . 60947)]) (defalias 'sgml-skip-tag #[nil "g\300=\2053\301u\210g\302=\203\301u\210\303\304\305\306#\204\307\310!\210g\311=\203)\301u\210\306\207g\302=\2053\301u\210\306\207" [60 1 47 search-forward-regexp "\\([^\"'<>/]\\|\"[^\"]*\"\\|'[^']*'\\)*" nil t sgml-error "Invalid tag" 62] 4]) (byte-code "\301B\302\303\304\305#\210\303\306N\204\302\303\306\307#\210\301\207" [current-load-list cl-struct-sgml-entity-tags put sgml-entity-name cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\305\211&\207" [cl-x cl-defsubst-expand (cl-x) (block sgml-entity-name (car cl-x)) t nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'sgml-entity-name #[(cl-x) "@\207" [cl-x] 1]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put sgml-entity-name setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander sgml-entity sgml-entity-name nil 0] 6] sgml-entity-type cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\305\211&\207" [cl-x cl-defsubst-expand (cl-x) (block sgml-entity-type (nth 1 cl-x)) t nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'sgml-entity-type #[(cl-x) "A@\207" [cl-x] 1]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put sgml-entity-type setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander sgml-entity sgml-entity-type nil 1] 6] sgml-entity-text cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\305\211&\207" [cl-x cl-defsubst-expand (cl-x) (block sgml-entity-text (nth 2 cl-x)) t nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'sgml-entity-text #[(cl-x) "\3018\207" [cl-x 2] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put sgml-entity-text setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander sgml-entity sgml-entity-text nil 2] 6] sgml-entity-notation cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\305\211&\207" [cl-x cl-defsubst-expand (cl-x) (block sgml-entity-notation (nth 3 cl-x)) t nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'sgml-entity-notation #[(cl-x) "\3018\207" [cl-x 3] 2]) (put 'sgml-entity-notation 'setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander sgml-entity sgml-entity-notation nil 3] 6]) (defalias 'copy-sgml-entity #[(x) "\301!\207" [x copy-sequence] 2]) (byte-code "\300\301\302\303#\210\301\304N\204\300\301\304\305#\210\300\207" [put make-sgml-entity cl-compiler-macro #[(cl-whole &rest #1=#:--rest--60402) "\306>A@\307>A@\310>A@\311>A@ \203D @\312>\203- AA\211\202\313>A@\203;\314\211\202\315\316 @\"\210\202)\317\320\321\322\314 \n \f& ,\207" [#1# name type text notation #:--keys--60403 :name :type :text :notation (:name :type :text :notation :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :type :text :notation)" cl-defsubst-expand (name type text notation) (block make-sgml-entity (list name type text notation)) t cl-whole] 11] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'make-sgml-entity #[(&rest #1=#:--rest--60404) "\306>A@\307>A@\310>A@\311>A@ \203D @\312>\203- AA\211\202\313>A@\203;\314\211\202\315\316 @\"\210\202) \n \fF,\207" [#1# name type text notation #2=#:--keys--60405 :name :type :text :notation (:name :type :text :notation :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :type :text :notation)"] 5]) (byte-code "\300\301\302\303#\210\301\304N\204\300\301\304\305#\210\300\207" [put sgml-make-entity cl-compiler-macro #[(cl-whole name type text &rest #1=#:--rest--60406) "\211A@\203\305\306\307G\310\\D\"\210\311\312\313\314\315\211\n \f & )\207" [#1# notation name type text signal wrong-number-of-arguments sgml-make-entity 5 cl-defsubst-expand (name type text notation) (block sgml-make-entity (list name type text notation)) t nil] 10] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'sgml-make-entity #[(name type text &rest #1=#:--rest--60407) "\211A@\203\305\306\307G\310\\D\"\210\n \f F)\207" [#1# notation name type text signal wrong-number-of-arguments sgml-make-entity 4] 5]) (byte-code "\301C\302\303\304\305#\210\302\303\306\307#\210\302\303\310\311#\210\302\303\312\311#\210\302\313\314\315#\210\302\316\314\315#\210\302\317\314\315#\210\302\320\314\315#\210\302\321\314\315#\210\302\322\314\315#\210\302\323\314\315#\207" [cl-struct-sgml-entity-tags cl-struct-sgml-entity put sgml-entity cl-struct-slots ((name) (type) (text) (notation)) cl-struct-type (list nil) cl-struct-include nil cl-struct-print sgml-make-entity side-effect-free t make-sgml-entity copy-sgml-entity sgml-entity-notation sgml-entity-text sgml-entity-type sgml-entity-name] 4) #@61 True if ENTITY is a data entity, that is not a text entity. (defalias 'sgml-entity-data-p #[(entity) "A@\301=?\207" [entity text] 2 (#$ . 66739)]) (defalias 'sgml-entity-marked-undefined-p #[(entity) "\211AA)AA\207" [entity x] 2]) (put 'sgml-entity-marked-undefined-p 'setf-method #[(entity) "\304\305!\304\306!C\nC C \307\310\nD E*\311D\257*\207" [--entity--temp-- --val--temp-- entity val gensym "--entity--" "--val--" setf cddddr sgml-entity-marked-undefined-p] 6]) (defalias 'sgml-make-entity-table #[nil "\300C\207" [nil] 1]) (defalias 'sgml-lookup-entity #[(name entity-table) "\302 A\"\206\n @\207" [name entity-table assoc] 3]) #@301 Declare an entity with name NAME in table ENTITY-TABLE. TYPE should be the type of the entity (text|CDATA|NDATA|SDATA...). TEXT is the text of the entity, a string or an external identifier. NOTATION is the notation of an external entity, if present. If NAME is nil, this defines the default entity. (defalias 'sgml-entity-declare #[(name entity-table type text &optional notation) "\203 \306 \"?\2057\n\203\307\310 \f$\210  \f FC\244\207 @?\2057\n\2030\307\311 \f#\210  \f\312F\240\207" [name entity-table sgml-debug type text notation sgml-lookup-entity sgml-log-message "Declare entity %s %s as %S" "Declare default entity %s as %S" nil] 5 (#$ . 67395)]) #@48 Make a completion table from the ENTITY-TABLE. (defalias 'sgml-entity-completion-table #[(entity-table) "A\207" [entity-table] 1 (#$ . 68070)]) (defalias 'sgml-map-entities #[(fn entity-table &optional collect) "\203\n\305 \nA\"\207\nA\306 :\203\" @ \f!\210 A\211\202*\306\207" [collect fn entity-table #1=#:G60408 e mapcar nil] 3]) #@55 Merge entity table TAB2 into TAB1. TAB1 is modified. (defalias 'sgml-merge-entity-tables #[(tab1 tab2) " A\244\210\211@\206 @\240\207" [tab1 tab2] 2 (#$ . 68419)]) #@79 Insert the text of ENTITY. PTYPE can be 'param if this is a parameter entity. (defalias 'sgml-entity-insert-text #[(entity &optional ptype) "\3038\211;\203 c\202\304 \n\206A@@#)\207" [entity text ptype 2 sgml-insert-external-entity] 5 (#$ . 68594)]) #@266 Return parsed catalog. FILE is the file containing the catalog. Maintains a cache of parsed catalog files in variable CACHE-VAR. The parsing is done by function PARSER-FUN that should parse the current buffer and return the parsed representation of the catalog. (defalias 'sgml-cache-catalog #[(file cache-var parser-fun &optional default-dir) "\306 \"\307!\205j\310\nJ\"\311\312!!\313\234\211\2031\f\211A@) \232\2031\f\211AA)\202i\f\203=\n\314\f\nJ\"L\210\315\316\317\"\210\212\320!\210\321! )\n BB\nJBL\210\316\322\"\210)*\207" [file default-dir cache-var modtime c x expand-file-name file-readable-p assoc file-attributes file-truename 5 delq nil message "Loading %s ..." sgml-push-to-entity file-name-directory "Loading %s ... done" new default-directory parser-fun] 5 (#$ . 68861)]) #@35 Directory of the document entity. (defalias 'sgml-main-directory #[nil "p q\210\nq\210)\207" [cb sgml-current-top-buffer default-directory] 2 (#$ . 69689)]) #@87 Log a message like `sgml-log-message', but only if `sgml-trace-entity-lookup' is set. (defalias 'sgml-trace-lookup #[(&rest args) "\205\302\303 \"\207" [sgml-trace-entity-lookup args apply sgml-log-message] 3 (#$ . 69854)]) #@220 Look up the public identifier/entity name in catalogs. The result is a file name or nil. FILES is a list of catalogs to use. PUBID is the public identifier (if any). TYPE is the entity type and NAME is the entity name. (defalias 'sgml-catalog-lookup #[(files pubid type name) "\306=\203\307\310 \"\311\202\312=\203\313\n\314\f\2035 \2045\314\315\f@\316\317\320 $\321\322\323\f@\320 \" \204@\324\202A\325#\210\203\256 \314 \314!\314\"\314#:\203\255@\211 \211A @! \211A @\" @# \204\255!\326=\203\244\"\230\203\244\327#!\203\225#\321\330# \203\241\331\202\242\332#\210A\211\202Y- $\314%\314!\314\"\314#$:\203)$@\211%\211A%@!%\211A%@\"%@# \204)!\333=\203\360#B!=\203 \"\203 \"\230\203 \327#!\203 #\321\334#!\" \203\331\202\332%\210$A\211$\202\277-\237\fA\244*\202 *\207" [type name files file remaining cat param format "%%%s" entity dtd doctype nil sgml-cache-catalog sgml-catalog-assoc sgml-parse-catalog-buffer sgml-main-directory sgml-trace-lookup " catalog: %s %s" expand-file-name "empty/non existent" "exists" public file-readable-p " >> %s [by pubid]%s" "" " !unreadable" catalog " >> %s [by %s %s]%s" additional pubid #1=#:G60411 #2=#:G60412 key cname cfile #3=#:G60413 #4=#:G60414] 7 (#$ . 70088)]) (defalias 'sgml-path-lookup #[(extid type name) "\306!\307!\310C \203 \311\312 !BC\244\313 !\244\210\314 !\n\203+ \315\nBC\244\210\f\2036 \316\fBC\244\210 \203_ \317 \320=\203F\321\202[ \322=\203P\323\202[ \324=\203Z\325\202[\326BC\244\210 \203i\327\330 \"\210!\"\331#\332$\331%\":\203\270\"@#\333# \"\211#\205\245\334\335\336#!\"\211#!\205\245\337#!?\205\245#\211%?\211$\203\270\"A\211\"\202x%.\207" [extid pubid sysid subst name type sgml-extid-pubid sgml-extid-sysid (37 37) 112 sgml-transliterate-file sgml-pubid-parts sgml-canonize-pubid 115 110 121 dtd "dtd" text "text" param "parm" "sgml" sgml-log-message "Ext. file subst. = %S" nil t sgml-subst-expand file-readable-p sgml-extid-expand substitute-in-file-name file-directory-p sgml-debug sgml-public-map #1=#:G60415 cand #2=#:G60416 #3=#:G60417] 5]) #@149 Return file name for entity with external identifier EXTID. Optional argument TYPE should be the type of entity and NAME should be the entity name. (defalias 'sgml-external-file #[(extid &optional type name) "\306!\211\203\f\307 !\310\311\n\206\312 \206\313 \314!%\210\f\203;\314!\203;\315!\206]\316\317\320\314!\"\320\211#\206]\321 \n $\206]\321 \n $\206]\f\204X\315!\206]\316\n #)\207" [extid pubid type name sgml-system-identifiers-are-preferred sgml-current-localcat sgml-extid-pubid sgml-canonize-pubid sgml-trace-lookup "Start looking for %s entity %s public %s system %s" "-" "?" sgml-extid-sysid sgml-lookup-sysid-as-file sgml-path-lookup sgml-make-extid nil sgml-catalog-lookup sgml-catalog-files] 8 (#$ . 72271)]) (defalias 'sgml-lookup-sysid-as-file #[(extid) "\306!\211\205<\n\307\310 :\203' @\311\312\f\"?\211\203' A\211\202 \205,\310+\205<\313\314 \"\211!\205< )\207" [extid sysid sgml-public-map #1=#:G60418 pat #2=#:G60419 sgml-extid-sysid nil t string-match "%[Ss]" file-readable-p sgml-extid-expand] 5]) #@234 Insert the contents of an external entity at point. EXTID is the external identifier of the entity. Optional arguments TYPE is the entity type and NAME is the entity name, used to find the entity. Returns nil if entity is not found. (defalias 'sgml-insert-external-entity #[(extid &optional type name) "\306!\307!\211\2038 \310\311\310\f:\2032\f@\211\n!\211?\211\2032\fA\211\202,\206f\312#\211\205I\313!)\206f\314\315\"\210 \203\\\314\316 \"\210\n\203e\314\317\n\"\210\310*\207" [extid pubid sysid sgml-sysid-resolve-functions #1=#:G60420 fn sgml-extid-pubid sgml-extid-sysid nil t sgml-external-file insert-file-contents sgml-log-warning "External entity %s not found" " Public identifier %s" " System identifier %s" #2=#:G60421 #3=#:G60422 type name file] 5 (#$ . 73343)]) #@35 Parse all entries in a catalogue. (defalias 'sgml-parse-catalog-buffer #[nil "\306\307\310!\210\306\306\306\311 \203W\312 \227\313 \314\"A\211\203\f\n\315=\203/\311 \210\316\317 !\202D \320\230\203<\321\312 !\202D\n\304=\205D\312 \322\312 !\323 !\f E* B\202\f \237,\207" [sgml-xml-p type class #1=#:G60423 name file nil sgml-trace-lookup " (Parsing catalog)" sgml-skip-cs sgml-check-cat-literal assoc (("public" . public) ("dtddecl" . public) ("entity" . name) ("linktype" . name) ("doctype" . name) ("sgmldecl" . noname) ("document" . noname) ("catalog" . noname)) public sgml-canonize-pubid sgml-check-minimum-literal "doctype" sgml-general-case expand-file-name intern] 4 (#$ . 74165)]) #@65 Read the next catalog token. Skips any leading spaces/comments. (defalias 'sgml-check-cat-literal #[nil "\300 \210\301 \206\302`\303\304w\210`\"\207" [sgml-skip-cs sgml-parse-literal buffer-substring-no-properties "^ \n " nil] 4 (#$ . 74879)]) (byte-code "\301B\302\301\207" [current-load-list sgml-formal-pubid-regexp "^\\(+//\\|-//\\|\\)\\(\\([^/]\\|/[^/]\\)+\\)//\\([^ ]+\\) \\(\\([^/]\\|/[^/]\\)*\\)//\\(\\([^/]\\|/[^/]\\)*\\)\\(//\\(\\([^/]\\|/[^/]\\)*\\)\\)?"] 2) (defalias 'sgml-pubid-parts #[(pubid) "\302 \"\205>\303\304\305 \306\"!B\307\305 \310\"\227B\311\304\305 \312\"!B\313\304\305 \312\"!B\314\305 \315\"\227B\257\316\224\205=\317\304\305 \320\"!BC\244\207" [sgml-formal-pubid-regexp pubid string-match 111 sgml-transliterate-file sgml-matched-string 2 99 4 100 5 116 108 7 9 118 10] 8]) (defalias 'sgml-canonize-pubid #[(pubid) "\302 \"\2050\303 \304\"\303 \305\"\306\303 \307\"\226\310\303 \311\"\306\303 \312\"\226\306\313\224\203-\303 \314\"\202.\315\260\n\207" [sgml-formal-pubid-regexp pubid string-match sgml-matched-string 1 2 "//" 4 " " 5 7 9 10 ""] 12]) (defalias 'sgml-transliterate-file #[(string) "\301\302\303#\207" [string mapconcat #[(c) "\302 \236\243\206 !\207" [c sgml-public-transliterations char-to-string] 3] ""] 4]) (defalias 'sgml-subst-expand-char #[(c parts) "\227 \236\243\207" [c parts] 2]) (defalias 'sgml-subst-expand #[(s parts) "\300\301\215\207" [--cl-block-nil-- (byte-code "\306 GS\307\310\nX\203< H\f \311=\203.\312 T\211H \"\2063\313\314\307\"\2023\315 H!PT\211\202 \f,\207" [i s #1=#:G60424 c #2=#:G60425 parts 0 nil "" 37 sgml-subst-expand-char throw --cl-block-nil-- char-to-string] 6)] 2]) (defalias 'sgml-matched-string #[(string n &optional regexp noerror) "\205\305 \"\206\n\206\306\307!\203 \247\205\" \f\224\f\225O)\207" [regexp string noerror res n string-match error "String match fail"] 3]) (defalias 'sgml-declaration #[nil "\206 \203\303 \304\"\206\n\203\303\n@\305\"\206\306\307\310\"\207" [sgml-declaration sgml-doctype sgml-parent-document sgml-in-file-eval (sgml-declaration) (sgml-declaration) sgml-external-file nil sgmldecl] 3]) (defalias 'sgml-in-file-eval #[(file expr) "p\303 !q\210\304\n!q\210)\207" [cb file expr find-file-noselect eval] 2]) (byte-code "\301B\302\303\304\305#\210\303\306N\204\302\303\306\307#\210\301\207" [current-load-list cl-struct-sgml-eref-tags put sgml-eref-entity cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\305\211&\207" [cl-x cl-defsubst-expand (cl-x) (block sgml-eref-entity (car cl-x)) t nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'sgml-eref-entity #[(cl-x) "@\207" [cl-x] 1]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put sgml-eref-entity setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander sgml-eref sgml-eref-entity nil 0] 6] sgml-eref-start cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\305\211&\207" [cl-x cl-defsubst-expand (cl-x) (block sgml-eref-start (nth 1 cl-x)) t nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'sgml-eref-start #[(cl-x) "A@\207" [cl-x] 1]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put sgml-eref-start setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander sgml-eref sgml-eref-start nil 1] 6] sgml-eref-end cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\305\211&\207" [cl-x cl-defsubst-expand (cl-x) (block sgml-eref-end (nth 2 cl-x)) t nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'sgml-eref-end #[(cl-x) "\3018\207" [cl-x 2] 2]) (put 'sgml-eref-end 'setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander sgml-eref sgml-eref-end nil 2] 6]) (defalias 'copy-sgml-eref #[(x) "\301!\207" [x copy-sequence] 2]) (byte-code "\300\301\302\303#\210\301\304N\204\300\301\304\305#\210\300\207" [put make-sgml-eref cl-compiler-macro #[(cl-whole &rest #1=#:--rest--60427) "\306>A@\307>A@\310>A@\f\203>\f@\311>\203'\fAA\211\202\312>A@\2035\313\211\202\314\315\f@\"\210\202)\316\317\320\321 \313 \n &+\207" [#1# entity start end #:--keys--60428 cl-whole :entity :start :end (:entity :start :end :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:entity :start :end)" cl-defsubst-expand (entity start end) (block make-sgml-eref (list entity start end)) t] 10] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'make-sgml-eref #[(&rest #1=#:--rest--60429) "\305>A@\306>A@\307>A@\f\203>\f@\310>\203'\fAA\211\202\311>A@\2035\312\211\202\313\314\f@\"\210\202) \n E+\207" [#1# entity start end #2=#:--keys--60430 :entity :start :end (:entity :start :end :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:entity :start :end)"] 4]) (byte-code "\300\301\302\303#\210\301\304N\204\300\301\304\305#\210\300\207" [put sgml-make-eref cl-compiler-macro #[(cl-whole entity start end) "\303\304\305\306\307\211 \n&\207" [entity start end cl-defsubst-expand (entity start end) (block sgml-make-eref (list entity start end)) t nil] 9] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'sgml-make-eref #[(entity start end) " \nE\207" [entity start end] 3]) (byte-code "\301C\302\303\304\305#\210\302\303\306\307#\210\302\303\310\311#\210\302\303\312\311#\210\302\313\314\315#\210\302\316\314\315#\210\302\317\314\315#\210\302\320\314\315#\210\302\321\314\315#\210\302\322\314\315#\207" [cl-struct-sgml-eref-tags cl-struct-sgml-eref put sgml-eref cl-struct-slots ((entity) (start) (end)) cl-struct-type (list nil) cl-struct-include nil cl-struct-print sgml-make-eref side-effect-free t make-sgml-eref copy-sgml-eref sgml-eref-end sgml-eref-start sgml-eref-entity] 4) (defalias 'sgml-make-epos #[(eref pos) " B\207" [eref pos] 2]) (defalias 'sgml-epos-eref #[(epos) ":\205@\207" [epos] 1]) #@48 The buffer position of EPOS within its entity. (defalias 'sgml-epos-pos #[(epos) ":\203A\207\207" [epos] 1 (#$ . 80869)]) #@48 True if EPOS is a position in the main buffer. (defalias 'sgml-bpos-p #[(epos) "\247\207" [epos] 1 (#$ . 81002)]) #@69 True if EPOS is a position in an entity other then the main buffer. (defalias 'sgml-strict-epos-p #[(epos) ":\207" [epos] 1 (#$ . 81123)]) #@45 Convert a buffer position POS into an epos. (defalias 'sgml-epos #[(pos) "\203 \302 \"\207 \207" [sgml-current-eref pos sgml-make-epos] 3 (#$ . 81269)]) #@173 The last position in buffer not after EPOS. If EPOS is a buffer position this is the same. If EPOS is in an entity this is the buffer position before the entity reference. (defalias 'sgml-epos-before #[(epos) ":\203\301!A@\211\202\207" [epos sgml-epos-eref] 3 (#$ . 81432)]) #@132 The first position in buffer after EPOS. If EPOS is in an other entity, buffer position is after entity reference leading to EPOS. (defalias 'sgml-epos-after #[(epos) ":\203\301\302!8\211\202\207" [epos 2 sgml-epos-eref] 4 (#$ . 81722)]) #@260 Convert position in entity structure EPOS to a buffer position. If EPOS is in an entity, the buffer position will be the position before the entity reference if EPOS is first character in entity text. Otherwise buffer position will be after entity reference. (defalias 'sgml-epos-promote #[(epos) ":\203A\301U\203@A@\211\202\302!\207" [epos 1 sgml-epos-after] 3 (#$ . 81975)]) #@23 Return ecat for FILE. (defalias 'sgml-load-ecat #[(file) "\301\302\303#\207" [file sgml-cache-catalog sgml-ecat-assoc #[nil "\306\211\211\211\211\211\211\211\307 \210m?\205+gz\310=\205+\311\312`\313\314!\210`\"!\211\203\264\315 \227!\306\306\307 \210 \316=\203J\317\320 !\202U \321=\203U\322\323 ! \204b\324\325\"\210\202\307 \210g\326=\203\240\327u\210\307 \210m?\205\205gz\310=\205\205\312`\313\314!\210`\"\211\203\231\307 \210\330  B\fB\202n\331\332!\210\307 \210\322\323 ! \n\fBBBB\202\237.\207" [val name to from ents type nil sgml-skip-cs 119 sgml-general-case buffer-substring-no-properties skip-syntax-forward "w_" intern public sgml-canonize-pubid sgml-check-minimum-literal file expand-file-name sgml-check-cat-literal error "Syntax error in ECAT: %s" 91 1 sgml-check-literal sgml-check-char 93 new sgml-xml-p] 8]] 4 (#$ . 82369)]) #@30 Return (file . ents) or nil. (defalias 'sgml-ecat-lookup #[(files pubid file) "\306H\n\307\310\307 :\203\363 @\203\311\312\f\"\210\313\f!\307\307\307\307\310\307:\203\337@\211\211A@\211A@\211A@\314=\203j\232\202v\315=\205\314 \232\205\314\307\307\307\310:\203\275@\211\211A@\316 \"\211\205\256\3068\232\211\203\275A\211\202\213\205\303\310-\205\314B\211?\211\203\337A\211\2028.\211?\211\203\363 A\211\202-\207" [sgml-dtd-info params files #1=#:G60431 f #2=#:G60432 2 nil t sgml-log-message "Search ECAT %s" sgml-load-ecat public file sgml-lookup-entity #3=#:G60433 sgml-debug #4=#:G60434 ents type name cfile #5=#:G60435 #6=#:G60436 pubid #7=#:G60437 val entity #8=#:G60438] 6 (#$ . 83265)]) (defalias 'sgml-try-merge-compiled-dtd #[(pubid file) "\203\306! \203\307 !\n\203\310\311 #\210\312  #\206'\312\f #\211\205[ @ A\n\203>\310\313\"\210\314 \203N\315 $\202Z\316 #\205Z\317 *)\207" [pubid file sgml-debug sgml-current-local-ecat sgml-ecat-files ce sgml-canonize-pubid expand-file-name sgml-log-message "Find compiled dtd for %s %s" sgml-ecat-lookup "Found %s" sgml-use-special-case sgml-try-merge-special-case sgml-bdtd-load sgml-bdtd-merge ents cfile] 6]) (defalias 'sgml-use-special-case #[nil "\302H?\205\303\304H!\205 @A@\305=\207" [sgml-dtd-info sgml-current-eref 7 sgml-eltype-table-empty 1 dtd] 3]) (defalias 'sgml-try-merge-special-case #[(pubid file cfile ents) "\306 \203\n\307\310!\210p\311 \306 :\203D @\211q\210 \203=\312 !\313H\211\2059@\230\2059A\211)\204D A\211\202*\nq\210)\204[\314#\203[\315 \205\257\316\317H\317H\"\205\257\320\320HI\210\321\322H\322H\"\210\321\317H\317H\"\210\323\324H\324H\"\210\325H\325H\244\325I\210*\313BI)\207" [cdtd sgml-debug cb #1=#:G60439 b sgml-buffer-parse-state nil sgml-log-message "Merging special case" buffer-list sgml-pstate-dtd 7 sgml-bdtd-load sgml-bdtd-read-dtd sgml-check-entities 2 1 sgml-merge-entity-tables 3 sgml-merge-shortmaps 4 6 m cfile file ents sgml-dtd-info #2=#:--x--60442 #3=#:--store--60443] 4]) #@244 Set current buffer to a buffer containing the entity ENTITY. ENTITY can also be a file name. Optional argument REF-START should be the start point of the entity reference. Optional argument TYPE, overrides the entity type in entity look up. (defalias 'sgml-push-to-entity #[(entity &optional ref-start type) "\203\306\307 ;\203\310\311 \"\202 @\"\210\n\203\n\f\203&\312\f!\204*\313\314!p \315 ) ;\203= \316\211\211F\202> \317\n\206D`!\317`!E*+ ,-\fq\210\f\320\304!=\203d\321\304!\210\316p.\322 \210\323\324!\210,\321\325!\210\321\326!\210*\327 !\210\321\330!\210-+) ;\204\232\331 8;\203\236`\202\237\332/\203\260\203\255\306\333!\210\316/ ;\203\304\334 !\210 \335 !\211\202\262\331 8:\203\254\331 80\33601\206\333 A@ @#23\203\3654\3372\206\356\3404\337HBI\210\203\306\34102#\2102\2033\203\342\3430!2\"\203db\202\2502\2039\322 \210\3342\316\211\211$\2102\3352!eb\202\250\212\3430!5\3440!\2116\20378\3169\340:\316;8:\203y8@\21196!\211;?\211:\203y8A\2118\202Y;,\206\247 \211A@\307>A@\310>A@\311>A@\312>A@\313>A@ \314>A@!\315>A@\"\316>A@#\317>A@$\320>A@%\321>A@&\322>A@'\323>A@(\324>A@)\325>A@*\326>A@+,,\203\245,@\327>\203\214,AA\211,\202w\330>A@\203\233\331\211,\202w\332\333,@\"\210\202u)\334\335\336\337-\331 \n \f  !\"#$%&'()*+&.\207" [#1# eltype stag-epos etag-epos stag-len etag-len :eltype :stag-epos :etag-epos :stag-len :etag-len :parent :level :excludes :includes :pstate :next :content :net-enabled :conref :shortmap :pshortmap :asl (:eltype :stag-epos :etag-epos :stag-len :etag-len :parent :level :excludes :includes :pstate :next :content :net-enabled :conref :shortmap :pshortmap :asl :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:eltype :stag-epos :etag-epos :stag-len :etag-len :parent :level :excludes :includes :pstate :next :content :net-enabled :conref :shortmap :pshortmap :asl)" cl-defsubst-expand (eltype stag-epos etag-epos stag-len etag-len parent level excludes includes pstate next content net-enabled conref shortmap pshortmap asl) (block make-sgml-tree (vector eltype stag-epos etag-epos stag-len etag-len parent level excludes includes pstate next content net-enabled conref shortmap pshortmap asl)) t parent level excludes includes pstate next content net-enabled conref shortmap pshortmap asl #:--keys--60456 cl-whole] 24] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'make-sgml-tree #[(&rest #1=#:--rest--60457) "\306>A@\307>A@\310>A@\311>A@\312>A@\313>A@\314>A@\315>A@\316>A@ \317>A@!\320>A@\"\321>A@#\322>A@$\323>A@%\324>A@&\325>A@'\326>A@())\203\245)@\327>\203\214)AA\211)\202w\330>A@\203\233\331\211)\202w\332\333)@\"\210\202u)\334 \n \f  !\"#$%&'(&.\207" [#1# eltype stag-epos etag-epos stag-len etag-len :eltype :stag-epos :etag-epos :stag-len :etag-len :parent :level :excludes :includes :pstate :next :content :net-enabled :conref :shortmap :pshortmap :asl (:eltype :stag-epos :etag-epos :stag-len :etag-len :parent :level :excludes :includes :pstate :next :content :net-enabled :conref :shortmap :pshortmap :asl :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:eltype :stag-epos :etag-epos :stag-len :etag-len :parent :level :excludes :includes :pstate :next :content :net-enabled :conref :shortmap :pshortmap :asl)" vector parent level excludes includes pstate next content net-enabled conref shortmap pshortmap asl #2=#:--keys--60458] 19]) (byte-code "\300\301\302\303#\210\301\304N\204\300\301\304\305#\210\300\207" [put sgml-make-tree cl-compiler-macro #[(cl-whole eltype stag-epos stag-len parent level excludes includes pstate net-enabled conref &rest #1=#:--rest--60459) "\211A@\211A@\211A@\203 \306\307\310G\311\\D\"\210\312\313\314\315\316\211\f  \n &+\207" [#1# shortmap pshortmap asl eltype stag-epos signal wrong-number-of-arguments sgml-make-tree 14 cl-defsubst-expand (eltype stag-epos stag-len parent level excludes includes pstate net-enabled conref shortmap pshortmap asl) (block sgml-make-tree (vector eltype stag-epos nil stag-len nil parent level excludes includes pstate nil nil net-enabled conref shortmap pshortmap asl)) t nil stag-len parent level excludes includes pstate net-enabled conref] 19] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'sgml-make-tree #[(eltype stag-epos stag-len parent level excludes includes pstate net-enabled conref &rest #1=#:--rest--60460) "\211A@\211A@\211A@\203 \306\307\310G\311\\D\"\210\312\f \313\f\313 \313\211 \n &+\207" [#1# shortmap pshortmap asl eltype stag-epos signal wrong-number-of-arguments sgml-make-tree 13 vector nil stag-len parent level excludes includes pstate net-enabled conref] 18]) (byte-code "\301C\302\303\304\305#\210\302\303\306\307#\210\302\303\310\311#\210\302\303\312\311#\210\302\313\314\315#\210\302\316\314\315#\210\302\317\314\315#\210\302\320\314\315#\210\302\321\314\315#\210\302\322\314\315#\210\302\323\314\315#\210\302\324\314\315#\210\302\325\314\315#\210\302\326\314\315#\210\302\327\314\315#\210\302\330\314\315#\210\302\331\314\315#\210\302\332\314\315#\210\302\333\314\315#\210\302\334\314\315#\210\302\335\314\315#\210\302\336\314\315#\210\302\337\314\315#\210\302\340\314\315#\207" [cl-struct-sgml-tree-tags cl-struct-sgml-tree put sgml-tree cl-struct-slots ((eltype) (stag-epos) (etag-epos) (stag-len) (etag-len) (parent) (level) (excludes) (includes) (pstate) (next) (content) (net-enabled) (conref) (shortmap) (pshortmap) (asl)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print sgml-make-tree side-effect-free t make-sgml-tree copy-sgml-tree sgml-tree-asl sgml-tree-pshortmap sgml-tree-shortmap sgml-tree-conref sgml-tree-net-enabled sgml-tree-content sgml-tree-next sgml-tree-pstate sgml-tree-includes sgml-tree-excludes sgml-tree-level sgml-tree-parent sgml-tree-etag-len sgml-tree-stag-len sgml-tree-etag-epos sgml-tree-stag-epos sgml-tree-eltype] 4) #@36 Buffer position after end of TREE. (defalias 'sgml-tree-end #[(tree) "\303H\304H\305\n!\203\n \\\202#\306 !\203 \307\n!\202#\310\n!*\207" [tree len epos 2 4 sgml-bpos-p zerop sgml-epos-promote sgml-epos-after] 3 (#$ . 103105)]) (defalias 'sgml-max-pos-in-tree #[(tree) "\303H \204&\304H\211\203\n\203\"\n\n\305H\211\202\306H)\202\307 !)\207" [tree epos children 2 11 10 1 sgml-epos-after] 3]) (defalias 'sgml-alias-fields '(macro . #[(orig dest &rest fields) "\304 \203/\305\306\307\310\n @#!\311\307\312 @\"\313\314\306\307\310 @#!D\315BB\257B A\211\204\316)B\207" [macs fields dest orig nil defmacro intern format "%s-%s" (element) "Return %s field of ELEMENT." list quote (element) progn] 12])) #@38 Return net-enabled field of ELEMENT. (defalias 'sgml-element-net-enabled '(macro . #[(element) "\301D\207" [element sgml-tree-net-enabled] 2 (#$ . 103844)])) #@33 Return pstate field of ELEMENT. (defalias 'sgml-element-pstate '(macro . #[(element) "\301D\207" [element sgml-tree-pstate] 2 (#$ . 104009)])) #@35 Return includes field of ELEMENT. (defalias 'sgml-element-includes '(macro . #[(element) "\301D\207" [element sgml-tree-includes] 2 (#$ . 104159)])) #@35 Return excludes field of ELEMENT. (defalias 'sgml-element-excludes '(macro . #[(element) "\301D\207" [element sgml-tree-excludes] 2 (#$ . 104315)])) #@32 Return level field of ELEMENT. (defalias 'sgml-element-level '(macro . #[(element) "\301D\207" [element sgml-tree-level] 2 (#$ . 104471)])) #@33 Return parent field of ELEMENT. (defalias 'sgml-element-parent '(macro . #[(element) "\301D\207" [element sgml-tree-parent] 2 (#$ . 104618)])) #@35 Return etag-len field of ELEMENT. (defalias 'sgml-element-etag-len '(macro . #[(element) "\301D\207" [element sgml-tree-etag-len] 2 (#$ . 104768)])) #@35 Return stag-len field of ELEMENT. (defalias 'sgml-element-stag-len '(macro . #[(element) "\301D\207" [element sgml-tree-stag-len] 2 (#$ . 104924)])) #@36 Return etag-epos field of ELEMENT. (defalias 'sgml-element-etag-epos '(macro . #[(element) "\301D\207" [element sgml-tree-etag-epos] 2 (#$ . 105080)])) #@36 Return stag-epos field of ELEMENT. (defalias 'sgml-element-stag-epos '(macro . #[(element) "\301D\207" [element sgml-tree-stag-epos] 2 (#$ . 105239)])) #@33 Return eltype field of ELEMENT. (defalias 'sgml-element-eltype '(macro . #[(element) "\301D\207" [element sgml-tree-eltype] 2 (#$ . 105398)])) #@47 Declared content or content model of ELEMENT. (defalias 'sgml-element-model #[(element) "\301\302H!\207" [element sgml-eltype-model 0] 3 (#$ . 105548)]) #@34 Return name (symbol) of ELEMENT. (defalias 'sgml-element-name #[(element) "\301H\207" [element 0] 2 (#$ . 105708)]) #@48 Return general identifier (string) of ELEMENT. (defalias 'sgml-element-gi #[(element) "\301\302H!\207" [element symbol-name 0] 3 (#$ . 105831)]) #@77 Return the application data named PROP associated with the type of ELEMENT. (defalias 'sgml-element-appdata #[(element prop) "\302H N\207" [element prop 0] 2 (#$ . 105983)]) #@44 True if start-tag of ELEMENT is omissible. (defalias 'sgml-element-stag-optional '(macro . #[(element) "\301\302DD\207" [element sgml-eltype-stag-optional sgml-tree-eltype] 3 (#$ . 106164)])) #@42 True if end-tag of ELEMENT is omissible. (defalias 'sgml-element-etag-optional #[(element) "\301\302H!\207" [element sgml-eltype-etag-optional 0] 3 (#$ . 106363)]) (byte-code "\300\301\302\303#\210\301\304N\204\300\301\304\305#\210\300\207" [put sgml-element-etag-optional cl-compiler-macro #[(--cl-whole-arg-- element) "\301\302DD\207" [element sgml-eltype-etag-optional sgml-tree-eltype] 3 "True if end-tag of ELEMENT is omissible."] byte-compile cl-byte-compile-compiler-macro] 4) #@53 Return the attribute specification list of ELEMENT. (defalias 'sgml-element-attlist #[(element) "\301H\302N\207" [element 0 attlist] 2 (#$ . 106857)]) #@36 True if ELEMENT has mixed content. (defalias 'sgml-element-mixed #[(element) "\301\302HJW\207" [element 3 0] 3 (#$ . 107015)]) (byte-code "\300\301\302\303#\210\301\304N\204\300\301\304\305#\210\300\207" [put sgml-element-mixed cl-compiler-macro #[(--cl-whole-arg-- element) "\301\302DD\207" [element sgml-eltype-mixed sgml-tree-eltype] 3] byte-compile cl-byte-compile-compiler-macro] 4) #@35 Position before start of ELEMENT. (defalias 'sgml-element-start #[(element) "\301\302H!\207" [element sgml-epos-promote 1] 3 (#$ . 107413)]) #@38 Position after start-tag of ELEMENT. (defalias 'sgml-element-stag-end #[(element) "\303H\304H\305\n!\203\n \\\202#\306 !\203 \307\n!\202#\310\n!*\207" [element len epos 1 3 sgml-bpos-p zerop sgml-epos-promote sgml-epos-after] 3 (#$ . 107561)]) #@27 True if ELEMENT is empty. (defalias 'sgml-element-empty #[(element) "\303H\206 ?\205\n\304!=\207" [element sgml-xml-p sgml-empty 13 sgml-element-model] 3 (#$ . 107820)]) #@37 True if element with NAME is empty. (defalias 'sgml-check-empty #[(name) "9\203 \202\f\303!\n\304 !)=\207" [name eltype sgml-empty sgml-lookup-eltype sgml-eltype-model] 3 (#$ . 108002)]) #@58 True if ELEMENT can have data characters in its content. (defalias 'sgml-element-data-p #[(element) "\303\304HJW\206 \305!=\206\n\305!=\207" [element sgml-cdata sgml-rcdata 3 0 sgml-element-model] 3 (#$ . 108201)]) #@46 Return string describing context of ELEMENT. (defalias 'sgml-element-context-string #[(element) " =\203\302\207\303\304\305!\306\307H!#\207" [element sgml-top-tree "" format "in %s %s" sgml-element-gi sgml-element-context-string 5] 6 (#$ . 108429)]) (defalias 'sgml-update-display #[nil "\306=?\205\266\307`\310\"\203:\307`\310\"\307`S\310\"=\203:\311\312>\2030\313`\310\"\206+eb\210\202:\314`\310\"\2068db\210\n?\205\266 \204G\f\205\266 ??\205\266\315\316!\205\266\311\317 \210\212\320\210`)`\321!Z\322W\211\204x\323 \315\320!\203\261!>\203\213 \203\213\324 ! \202\241 \203\241\212\311\325\326\217\210\327 \204\240\324\"! )\f\203\261\327 \204\261\212\311\330\331\217\210)*\332\333!)\207" [this-command sgml-last-element executing-macro sgml-live-element-indicator sgml-set-face sgml-buffer-parse-state keyboard-quit get-text-property invisible nil (backward-char previous-line backward-word) previous-single-property-change next-single-property-change sit-for 0 sgml-need-dtd 1 sgml-max-pos-in-tree 500 "?" sgml-element-gi (byte-code "\301`\302#\207" [quiet sgml-parse-to input-pending-p] 4) ((error (byte-code "\301\302\207" [sgml-current-element-name "*error*" nil] 1))) input-pending-p (byte-code "\302\303 #\207" [eol-pos quiet sgml-parse-to input-pending-p] 4) ((error)) sgml-fontify-buffer 6 deactivate-mark eol-pos sgml-top-tree quiet sgml-current-element-name sgml-users-of-last-element sgml-current-tree] 5]) (defalias 'sgml-fontify-buffer #[(delay) "\205\303 !\304H?\205\305\n!\205\306\307\310\217\207" [sgml-set-face sgml-buffer-parse-state delay sgml-pstate-top-tree 2 sit-for nil (byte-code "\212\300\301!\210\302\303\211\304\305$\210\300\306!)\207" [message "Fontifying..." sgml-parse-until-end-of nil input-pending-p t "Fontifying...done"] 5) ((error))] 3]) (defalias 'sgml-set-active-dtd-indicator #[(name) "\301\302!\303\304\"\305\306EL\210\307 \207" [name make-local-variable sgml-active-dtd-indicator format " [%s" (sgml-live-element-indicator ("/" sgml-current-element-name)) "]" force-mode-line-update] 4]) (byte-code "\301B\302\303\304\305#\210\303\306N\204\302\303\306\307#\210\301\207" [current-load-list cl-struct-sgml-pstate-tags put sgml-pstate-dtd cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block sgml-pstate-dtd (or (and (memq (aref cl-x 0) cl-struct-sgml-pstate-tags)) (error "sgml-pstate-dtd accessing a non-sgml-pstate" cl-x)) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'sgml-pstate-dtd #[(cl-x) "\302H >\204 \303\304\"\210\305H\207" [cl-x cl-struct-sgml-pstate-tags 0 error "sgml-pstate-dtd accessing a non-sgml-pstate" 1] 3]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put sgml-pstate-dtd setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander sgml-pstate sgml-pstate-dtd (and (memq (aref cl-x 0) cl-struct-sgml-pstate-tags)) 1] 6] sgml-pstate-top-tree cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block sgml-pstate-top-tree (or (and (memq (aref cl-x 0) cl-struct-sgml-pstate-tags)) (error "sgml-pstate-top-tree accessing a non-sgml-pstate" cl-x)) (aref cl-x 2)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'sgml-pstate-top-tree #[(cl-x) "\302H >\204 \303\304\"\210\305H\207" [cl-x cl-struct-sgml-pstate-tags 0 error "sgml-pstate-top-tree accessing a non-sgml-pstate" 2] 3]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put sgml-pstate-top-tree setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander sgml-pstate sgml-pstate-top-tree (and (memq (aref cl-x 0) cl-struct-sgml-pstate-tags)) 2] 6] sgml-pstate-p cl-compiler-macro #[(cl-whole cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block sgml-pstate-p (and (vectorp cl-x) (>= (length cl-x) 3) (memq (aref cl-x 0) cl-struct-sgml-pstate-tags) t)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'sgml-pstate-p #[(cl-x) "\302!\205G\303Y\205\304H >\205\305\207" [cl-x cl-struct-sgml-pstate-tags vectorp 3 0 t] 2]) (defalias 'copy-sgml-pstate #[(x) "\301!\207" [x copy-sequence] 2]) (byte-code "\300\301\302\303#\210\301\304N\204\300\301\304\305#\210\300\207" [put make-sgml-pstate cl-compiler-macro #[(cl-whole &rest #1=#:--rest--60461) "\305>A@\306>A@ \2038 @\307>\203! AA\211\202\310>A@\203/\311\211\202\312\313 @\"\210\202)\314\315\316\317\f\311 \n&*\207" [#1# dtd top-tree #:--keys--60462 cl-whole :dtd :top-tree (:dtd :top-tree :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:dtd :top-tree)" cl-defsubst-expand (dtd top-tree) (block make-sgml-pstate (vector 'cl-struct-sgml-pstate dtd top-tree)) t] 9] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'make-sgml-pstate #[(&rest #1=#:--rest--60463) "\304>A@\305>A@ \2038 @\306>\203! AA\211\202\307>A@\203/\310\211\202\311\312 @\"\210\202)\313\314 \n#*\207" [#1# dtd top-tree #2=#:--keys--60464 :dtd :top-tree (:dtd :top-tree :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:dtd :top-tree)" vector cl-struct-sgml-pstate] 5]) (byte-code "\300\301\302\303#\210\301\304N\204\300\301\304\305#\210\300\207" [put sgml-make-pstate cl-compiler-macro #[(cl-whole dtd top-tree) "\302\303\304\305\306\211 &\207" [dtd top-tree cl-defsubst-expand (dtd top-tree) (block sgml-make-pstate (vector 'cl-struct-sgml-pstate dtd top-tree)) t nil] 8] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'sgml-make-pstate #[(dtd top-tree) "\302\303 #\207" [dtd top-tree vector cl-struct-sgml-pstate] 4]) (byte-code "\302B\303C\304\305\306\307#\210\304\305\310\311#\210\304\305\312\313#\210\304\305\314\315#\210\304\316\317\315#\210\304\320\317\315#\210\304\321\317\315#\210\304\322\317\323#\210\304\324\317\315#\210\304\325\317\315#\207" [custom-print-functions cl-struct-sgml-pstate-tags #[(cl-x cl-s cl-n) "\303!\205RG\304Y\205R\305H >\205R\306\307\n\"\210\306\310\n\"\210\311\305H >\204-\312\313\"\210\314H\n\"\210\306\315\n\"\210\311\305H >\204F\312\316\"\210\317H\n\"\210\306\320\n\"\210\321\207" [cl-x cl-struct-sgml-pstate-tags cl-s vectorp 3 0 princ "#S(sgml-pstate" " dtd" prin1 error "sgml-pstate-dtd accessing a non-sgml-pstate" 1 " top-tree" "sgml-pstate-top-tree accessing a non-sgml-pstate" 2 ")" t] 4] cl-struct-sgml-pstate put sgml-pstate cl-struct-slots ((cl-tag-slot) (dtd) (top-tree)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t sgml-make-pstate side-effect-free make-sgml-pstate copy-sgml-pstate sgml-pstate-p error-free sgml-pstate-top-tree sgml-pstate-dtd] 4) (defalias 'sgml-current-mixed-p #[nil "\301\302HJW\207" [sgml-current-tree 3 0] 3]) (put 'sgml-current-mixed-p 'byte-optimizer 'byte-compile-inline-expand) #@30 Set initial state of parsing (defalias 'sgml-set-initial-state #[(dtd) "\306\307!\210\306\310!\210\311\307\312\313\314$\210\311\310\315\313\314$\210\316\317H!\210\320\321!\211\322\317H\"\323\313\211BB\323\313\211BB\211\n \n\211AA)\236\204YA\n B\211AA)B\241\210+\f+M\210\324\325\324 \317\313\317\313\211\317\313\211\211\211\211\211\211\211\211\211&#\211)\207" [dtd top-type token s2 s1 dest make-local-hook before-change-functions after-change-functions add-hook sgml-note-change-at nil local sgml-set-face-after-change sgml-set-active-dtd-indicator 0 sgml-make-eltype "#DOC" sgml-lookup-eltype normal-state vector cl-struct-sgml-pstate s x sgml-buffer-parse-state] 22 (#$ . 115415)]) #@110 Set parse state from TREE, either from start of TREE if WHERE is start or from after TREE if WHERE is after. (defalias 'sgml-set-parse-state #[(tree where) "\306\307! \310=\203H\f\204H\311 ! \312H\313\314\315H!?\2053\316\317H!\2053\320\321 !\322 \317H!\210 \315Hu\210\202v \323H \324H \322 \325H!\210 \326Hu\210\f\203h\320\202i\327` \326HZ \330H\204\201\331\332\333C\"\210)\313\207" [tree sgml-current-tree sgml-markup-tree sgml-rs-ignore-pos empty where 0 sgml-element-empty start sgml-element-model 14 nil zerop 3 sgml-bpos-p 1 start-tag sgml-element-start sgml-goto-epos 9 15 2 4 end-tag 5 signal cl-assertion-failed sgml-current-state sgml-current-shortmap sgml-previous-tree sgml-markup-type sgml-markup-start] 3 (#$ . 116132)]) (defalias 'sgml-final-p #[(state) ":?\206\211@\302=\203\211AA)?\202\303!)\207" [state x normal-state sgml-final-and] 4]) (put 'sgml-final-p 'byte-optimizer 'byte-compile-inline-expand) #@146 Return an entity position for start of region START END. If region is empty, choose return an epos as high in the entity hierarchy as possible. (defalias 'sgml-promoted-epos #[(start end) "\303!\nU\203!\304 !\203!\305 !\306U\203!\307 !A@\202\n )\207" [start epos end sgml-epos sgml-strict-epos-p sgml-epos-pos 1 sgml-epos-eref] 2 (#$ . 117110)]) (defalias 'sgml-open-element #[(eltype conref before-tag after-tag &optional asl) "\306!\204\307\310\311#\210\307\312\311#\210 \203\313\314\315!\"\210\316N\211\2035\n\317=?\2056\320 \310H\n\"\2026\f\321\322*+\"\323+*Z\323,\211\324HT\325\326N,\327H\"\325\330N,\331H\"%\323\211,\332H\205j\333- \f.&/0\203\2211\203\207\334\3350\336H#\2100\337/I\210\202\2461\203\237\334\340,\336H#\210,\341/I\210,\337\323I\210\342!% /,\3230%\204\305\343\344\345C\"\210,2\346\347,.#\210\350,!\205\335\351+\211\"+\207" [eltype sgml-warn-about-undefined-elements emap sgml-dtd-info sgml-current-shortmap newmap sgml-eltype-defined sgml-set-eltype-flag 4 t 2 sgml-log-warning "Start-tag of undefined element %s; assume O O ANY" symbol-name shortmap empty sgml-lookup-shortref-map vector sgml-promoted-epos nil 6 append excludes 7 includes 8 12 1 sgml-log-message "Open element %s: after %s" 0 10 "Open element %s: first in %s" 11 sgml-eltype-model signal cl-assertion-failed sgml-current-state run-hook-with-args sgml-open-element-hook sgml-element-empty sgml-close-element before-tag after-tag sgml-current-tree conref asl nt sgml-previous-tree sgml-debug sgml-markup-tree] 19]) (defalias 'sgml-fake-open-element #[(tree el &optional state) "\303\304\305\304\305 \304\306\307N \310H\"\306\311N \312H\"\n\305\211\211\211\211\211\211&\207" [el tree state vector 0 nil append excludes 7 includes 8] 18]) (defalias 'sgml-close-element #[(before-tag after-tag) "\306=\204\f =\203` \203\307 \310\"\210\f\203\"\311\312 \313H\"\210 \314! \315I\210* \316ZI\210\317\320!\210  =\203Qm?\205n\321\322!\207  \323H \324H \325H\204m\326\327\330C\"\210\331\207" [sgml-close-element-trap sgml-current-tree sgml-goal sgml-throw-on-element-change sgml-debug #1=#:--x--60477 t throw end sgml-log-message "Close element %s" 0 sgml-epos 2 4 run-hooks sgml-close-element-hook sgml-error "Parse ended" 9 15 5 signal cl-assertion-failed sgml-current-state nil before-tag #2=#:--store--60478 after-tag sgml-markup-tree sgml-top-tree sgml-previous-tree sgml-current-shortmap] 4]) (defalias 'sgml-fake-close-element #[(tree) "\301H\207" [tree 5] 2]) (defalias 'sgml-note-change-at #[(at &optional end) "\205\267 \203 \306\307\n\"\210\310H >\204\311\312\"\210\313H\211\205\266 \2037\neV\2037\nSf\314=\2037\nS\f\315H\203O\n\316\f\315H!V\203O\f\315H\211\202\260\f\315\317I\210\f\313H\203t\n\320\f!V\203t\f\321H\310V\204p\322\f!\203t\317\202\266\f\313\317I\210\f\323H\203\221\n\316\f\323H!V\203\221\f\323H\211\202\260\324\f\325H!\203\254\n\326\f!V\203\254\326\f!\211\202\260\f\323\317I\205\266\2027)\207" [sgml-buffer-parse-state sgml-debug at cl-struct-sgml-pstate-tags u sgml-xml-p sgml-log-message "sgml-note-change-at %s" 0 error "sgml-pstate-top-tree accessing a non-sgml-pstate" 2 47 10 sgml-element-stag-end nil sgml-tree-end 4 sgml-element-empty 11 zerop 3 sgml-element-start sgml-top-tree] 5]) #@157 Return a list of the tags implied by a token TOKEN. TOKEN is a token, and the list elements are either tokens or `t'. Where the latter represents end-tags. (defalias 'sgml-list-implications #[(token type) " \306\211 =\204N :\203\202\f\307H>\204\202\f\310H>\204N \2119\2035\306\202~ @\311=\203y \211A@)\236\206S \211AA)\236\211\205uA\211@\311=\203j\202t\312A@#))\202~\313 \"*\204N =\204\264 \211:?\206\251 \211@\311=\203\245 \211AA)?\202\250\314 !))\203\312\f=\204\312 =\204\277\315\nB\f\316H\317\f!\202\320 !\211\203B A\204B @\321\f \2119\203\353\306\2024 @\311=\203/ \211A@)\236\206  \211AA)\236\211\205+A\211@\311=\203 \202*\312A@#))\2024\313 \"*#\322\f! \nB\202\323\324\"\210\306\211\204\n\237,\207" [sgml-current-state sgml-current-tree imps temp tree state nil 7 8 normal-state sgml-next-sub-and sgml-get-and-move sgml-final-and t 9 sgml-fake-close-element sgml-required-tokens sgml-fake-open-element sgml-element-model sgml-log-warning "Out of context %s" sgml-any token x c dest sgml-empty sgml-top-tree type] 9 (#$ . 120458)]) #@64 Return list of element types (eltype) valid in STATE and TREE. (defalias 'sgml-eltypes-in-state #[(tree state) ":\205\306!:\205 \307\n\310!\"\244\f\311H\312 :\2039 @\211 >\2042 B A\211\202*\f\313H\312:\203\\@\307 \"A\211\202D*\203\251\211:?\206\202\211@\314=\203~\211AA)?\202\201\315!))\204\251 \203\251 A\204\251 @\316!\203\250 \317\320\f\"\321!\"\244) *\207" [state req sgml-pcdata-token elems tree #1=#:G60487 sgml-required-tokens delq sgml-optional-tokens 8 nil 7 normal-state sgml-final-and sgml-eltype-stag-optional sgml-eltypes-in-state sgml-fake-open-element sgml-eltype-model et #2=#:G60488 sgml-omittag-transparent x] 6 (#$ . 121625)]) #@62 Returns a list of contextually valid element types (eltype). (defalias 'sgml-current-list-of-valid-eltypes #[nil "\306 \"  \203r \203r\n\211:?\2061\n\211@\307=\203-\n\211AA)?\2020\310\n!))\203r\311 \312H!\203r \313H \314H\306 \n\"\315:\203n@\211\f>\204e\fC\244A\211\202P*\202 \316\f\317\"+\207" [sgml-current-tree sgml-current-state state tree elems sgml-omittag-transparent sgml-eltypes-in-state normal-state sgml-final-and sgml-eltype-etag-optional 0 9 5 nil sort string-lessp x #1=#:G60489 e] 5 (#$ . 122346)]) #@62 Return a list of the element types endable in current state. (defalias 'sgml-current-list-of-endable-eltypes #[nil "\306  \f\211:?\206%\f\211@\307=\203!\f\211AA)?\202$\310\f!))\203O\n =\204O\n\311HC\244\203O\312\n\311H!\203O\n\313H\n\314H\202+\207" [elems sgml-current-tree tree sgml-current-state state x nil normal-state sgml-final-and 0 sgml-eltype-etag-optional 9 5 sgml-top-tree sgml-omittag] 5 (#$ . 122905)]) (byte-code "\301B\303\302B\304\302!\204\305\301\207" [current-load-list sgml-log-buffer-name sgml-log-last-size "*SGML LOG*" boundp 0] 2) (defalias 'sgml-display-log #[nil "\303!\211\205\304 !\210\212 q\210d)\211)\207" [sgml-log-buffer-name buf sgml-log-last-size get-buffer display-buffer] 3]) (defalias 'sgml-log-warning #[(format &rest things) "\203\305\306 \n#\210\307\310\"\210 \204\f\205\"\305\311 \n#\210\305\312 \n#\207" [sgml-throw-on-warning format things sgml-show-warnings sgml-parsing-dtd apply message throw t sgml-message sgml-log-message] 4]) (defalias 'sgml-log-message #[(format &rest things) "\306\300 #\307\n!p\fq\210db\210 \310\261\210\311\f!\203 d\n q+\207" [format things sgml-log-buffer-name cb buf mess apply get-buffer-create "\n" get-buffer-window sgml-log-last-size] 4]) (defalias 'sgml-error #[(format &rest things) "\203 \303\304\"\210\305 \210\306\307 \n#\210\306\310 \n#\207" [sgml-throw-on-error format things throw nil sgml-log-entity-stack apply sgml-log-warning error] 4]) (defalias 'sgml-log-entity-stack #[nil "\212\304\305\206 \306 \206 \307\310e`\"i \205 @\211\203+\nA@\203+\311\312\n@\"\202,\313)%\210\314\303!\203? \203? q\210\202)\315\207" [sgml-current-file sgml-current-eref entity sgml-previous-buffer sgml-log-message "%s line %s col %s %s" buffer-file-name "-" count-lines format "entity %s" "" boundp nil] 9]) (defalias 'sgml-parse-warning #[(format &rest things) "\302 \210\303\304 #\207" [format things sgml-log-entity-stack apply sgml-log-warning] 4]) (defalias 'sgml-parse-error #[(format &rest things) "\302\303\304P\305 \306`d`\307\\^\"C\"#\207" [format things apply sgml-error "; at: %s" append buffer-substring-no-properties 12] 10]) (defalias 'sgml-message #[(format &rest things) "\305!\211\203\212 q\210d)\nV\203\306 \210)\307\310 \f#\207" [sgml-log-buffer-name buf sgml-log-last-size format things get-buffer sgml-display-log apply message] 5]) (defalias 'sgml-reset-log #[nil "\303!\211\205\212 q\210d)\211)\207" [sgml-log-buffer-name buf sgml-log-last-size get-buffer] 3]) (defalias 'sgml-clear-log #[nil "\303!\211\205\304 !\210\305 !\210\306\211)\207" [sgml-log-buffer-name b sgml-log-last-size get-buffer delete-windows-on kill-buffer 0] 3]) #@91 Show the *SGML LOG* buffer if it is not showing, or clear and remove it if it is showing. (defalias 'sgml-show-or-clear-log #[nil "\301!\203\302!\204\303 \207\304 \207" [sgml-log-buffer-name get-buffer get-buffer-window sgml-display-log sgml-clear-log] 2 (#$ . 125619) nil]) (byte-code "\301B\302\301!\204\f\303\301\207" [current-load-list sgml-lazy-time boundp 0] 2) (defalias 'sgml-lazy-message #[(&rest args) "\303 \211A@)U?\205\304\305\n\"\210\303 \211A@)\211\207" [sgml-lazy-time x args current-time apply message] 4]) (byte-code "\301B\302\301\207" [current-load-list sgml-shortref-list (" " "\n" "" "B" "\n" "B\n" "B\n" " " "BB" "\"" "#" "%" "'" "(" ")" "*" "+" "," "-" "--" ":" ";" "=" "@" "[" "]" "^" "_" "{" "|" "}" "~")] 2) (defalias 'sgml-shortref-index #[(string) " \235 G\211\205\n GZ*\207" [string sgml-shortref-list len pos] 3]) #@83 Create a shortreference map from PAIRS. Where PAIRS is a list of (delim . ename). (defalias 'sgml-make-shortmap #[(pairs) "\306GT\307\"\307 \307\307\307\f:\203B\f@\211@ A\310!\211\2045\311\312\"\210\202;\n I\210\fA\211\202,\n\313\314\315\316\"\203P\317\202Q\320I\210\n*\207" [sgml-shortref-list index map pairs #1=#:G60490 p make-vector nil sgml-shortref-index sgml-log-warning "Illegal short reference delimiter '%s'" 32 some #[(r) "\302 !H\207" [map r sgml-shortref-index] 3] ("B\n" "B\n" " " "BB") "^<]/& \n \"#%'()*+,\\-:;=@[]\\^_{|}~" "^<]/&\n \"#%'()*+,\\-:;=@[]\\^_{|}~" delim name] 5 (#$ . 126498)]) (defalias 'sgml-shortmap-skipstring #[(map) "n\203\301\207\302H\207" [map "" 32] 2]) (byte-code "\306B \307\307\307\n:\203:\n@\211\310H G\311U\2033\f\311U\2043\f\312U\2043\f\313 !B B\nA\211\202 \237,\307\207" [current-load-list sgml-shortref-list #:G60491 d c #:G60492 sgml-shortref-oneassq nil 0 1 10 sgml-shortref-index] 4) (defalias 'sgml-parse-B #[nil "\300\301w\302U?\207" [" " nil 0] 2]) #@128 Identify shortref delimiter at point and return entity name. Also move point. Return nil, either if no shortref or undefined. (defalias 'sgml-deref-shortmap #[(map &optional nobol) "\203\304\202 \305\211\247\203\266n\203C\306 !\203C\307 \203.l\203(\n\310H\202\261\n\311H\202\261\312 \2039\n\313H\202\261\n\314H\206\261\304\202\261g\315=\203S\304u\210\n\305H\202`g\316=\203|\304u\210\n\317H\307 \203i\n\320Hg\321=\203x\304u\210\n\322H\202\261 \202\261\312 \203\207\n\304H\202\261g\323=\203\236`Tf\323=\203\236\314u\210\n\324H\202\261g \236\211\205\261 \203\255\304u\210\n AH\211\202 )\207" [nobol i map sgml-shortref-oneassq 1 0 zerop sgml-parse-B 5 3 sgml-parse-RE 4 2 9 32 7 8 10 6 45 19] 3 (#$ . 127560)]) (defalias 'sgml-make-shortref-table #[nil "\300C\207" [nil] 1]) (defalias 'sgml-add-shortref-map #[(table name map) " \nBC\244\207" [table name map] 3]) (defalias 'sgml-lookup-shortref-map #[(table name) "\302 A\"A\207" [name table assoc] 3]) (defalias 'sgml-lookup-shortref-name #[(table map) "\302 A\"@\207" [map table rassq] 3]) #@70 Merge tables of short reference maps TAB2 into TAB1, modifying TAB1. (defalias 'sgml-merge-shortmaps #[(tab1 tab2) " A\244\207" [tab1 tab2] 2 (#$ . 128647)]) (defalias 'sgml-skip-until-dsc #[nil "\203 \301\302w\210\202\303\302w\210g\304=\205\305u\210\306?\205I\307 \204g\310=\2031\305u\210\311 \210\202\203:\312 \204\204C\313 \204\305u\210\202\207" [sgml-xml-p "^[]'\"<\\-" nil "^[]'\"\\-" 93 1 t sgml-parse-literal 91 sgml-skip-until-dsc sgml-parse-xml-comment sgml-parse-comment] 2]) #@116 Move point forward until end of current markup declaration. Assumes starts with point inside a markup declaration. (defalias 'sgml-skip-upto-mdc #[nil "\300\301w\210g\302=\205 \303?\205.g\304=\203\305u\210\306 \210\202\307 \204\310 \204\305u\210\202\207" ["^[>\"'\\-" nil 62 t 91 1 sgml-skip-until-dsc sgml-parse-literal sgml-parse-comment] 2 (#$ . 129163)]) (defalias 'sgml-do-sgml-declaration #[nil "\301 \210\302\211\207" [sgml-markup-type sgml-skip-upto-mdc sgml] 2]) (defalias 'sgml-do-doctype #[nil "\203\n\303 \210\2025\304\305\306!\210\307m\204)gz\310=\203)\311\312`\313\314!\210`\"!\206,\315\316!\317 \"\210\305\320!\210)\321\211\207" [sgml-dtd-info sgml-markup-start sgml-markup-type sgml-skip-upto-mdc nil message "Parsing doctype..." sgml-setup-doctype 119 sgml-general-case buffer-substring-no-properties skip-syntax-forward "w_" sgml-parse-error "Name expected" sgml-parse-external "Parsing doctype...done" doctype] 6]) (defalias 'sgml-check-end-of-entity #[(type) "m?\205\n\301\302g#\207" [type sgml-parse-error "Illegal character '%c' in %s"] 4]) (defalias 'sgml-setup-doctype #[(docname external) "\306\307\n\310\n\311 \312 \312 \313 \314\211\211\211& )\314\315\314w\307U)\203m\203,\316 \204g\317=\203G`Tf\2069\307z\320=\203G\321u\210\322 \204\323 \204g\324=\203{\321u\210p\"\325 \210p\"=\203ug\326=\203n\321u\210\202z\327\330!\210\202z\331\332g\"\210)#\203\223\333\n\334#\314F!\210\325 \210\335\336!\210\316 \210\337\f!\210\340\341!)\207" [sgml-parsing-dtd sgml-no-elements docname doctype sgml-dtd-info shortmap t 0 vector sgml-make-eltype-table sgml-make-entity-table sgml-make-shortref-table nil " \n " sgml-pop-entity 37 119 1 sgml-do-parameter-entity-ref sgml-parse-comment 91 sgml-check-dtd-subset 93 sgml-delimiter-parse-error "DSC" sgml-parse-error "Illegal character '%c' in doctype declaration" sgml-push-to-entity dtd sgml-check-end-of-entity "DTD subset" sgml-set-initial-state run-hooks sgml-doctype-parsed-hook original-buffer external] 10]) #@64 Move point forward until there is an end-tag open after point. (defalias 'sgml-do-data #[(type &optional marked-section) "`\306\306 ?\205\374 \203M=\203\307\202\310\306w\210\203.\311\f`\"!\210g\312=\205I`Tf\312=\205I`\313\\f\314=\205I\315u\210\316\202\250=\203Y\317\202Z\320\306w\210\203j\311\f`\"!\210g\321=\203\230`Tf\322=\203\230`\313\\f\206\200\323z\324=\204\224 \203\230`\313\\f\314=\203\230\316\202\247g\322=\205\247 \205\247\325!!` \204m\203\313\n=\203\303\326\327 \205\301\330#\210\331 \210`\202\204\326\332u\210\202g\333=\203\366`Tf\206\343\323z\324=\203\366\332u\210\334 \203\366`\202\332u\210\202,\207" [sgml-current-eref sgml-signal-data-function eref done start marked-section nil "^]" "^&]" buffer-substring-no-properties 93 2 62 3 t "^\204k\n\324\235\203k\325\326\n\"\210 \327>\204|\n\330\235\203|\325\331\n\"\210 \332=\203\210\333 \210\202\315\f\203\310\317+\334\317w\312U)\203\214m\203\241\335 \204\214g\336=\203\274`Tf\206\256\312z\313=\203\274\337u\210\340 \204\214\341 \204\214\fA \210\202\315\342\343\n\"\210*\202\323\344\317+\334\317w\312U)\203\323m\203\350\335 \204\323g\336=\203`Tf\206\365\312z\313=\203\337u\210\340 \204\323\341 \204\323g\316=\203\337u\210\202\345\346!\210 \332=\204; \203; ,-\2037.\2047\347/`,#\210,)\350\207g\307=\205Y`Tf\310=\205Y`\311\\f\351=\205Y\315u\210\352 \207" [sgml-xml-p sgml-markup-type tok sgml-markup-declaration-table rut option sgml-parse-xml-comment 60 33 2 0 119 45 3 62 nil sgml-parse-nametoken assoc sgml-check-case (prolog ignore) ("SGML" "DOCTYPE") sgml-error "%s declaration is only valid in prolog" (dtd ignore) ("ELEMENT" "ENTITY" "ATTLIST" "NOTATION" "SHORTREF") "%s declaration is only valid in doctype" ignore sgml-skip-upto-mdc " \n " sgml-pop-entity 37 1 sgml-do-parameter-entity-ref sgml-parse-comment sgml-parse-error "Illegal markup declaration %s" comment sgml-delimiter-parse-error "MDC" sgml-set-face-for t 91 sgml-do-marked-section shortmap type sgml-set-face sgml-current-eref sgml-markup-start] 4 (#$ . 134968)]) #@153 Parse an attribute specification list. Optional argument ELTYPE, is used to resolve omitted name=. Returns a list of attspec (attribute specification). (defalias 'sgml-parse-attribute-specification-list #[(&optional eltype) "\306 \205 \307N\306\211\211\211\306\310\306w\311U\210)\312 \211\203\263\306\310\306w\311U\210)g\313=\203g\314u\210\306\310\306w\311U\210)\315\316!\211\204N\306\202\216 \203\216\317 \"\211\204\216\320\321 \322 !#\210\202\216 \204r\323\324!\210\202\216\204{\320\325!\210\326 \211 \"\211\204\216\320\327\f\322 !#\210\n\203\251\330\331\n!\f\" B\332\333\334\n!\"\203\335\202\330 \f\" B\202 -\207" [sgml-conref-flag eltype attdecl asl val name nil attlist " \n " 0 sgml-parse-nametoken 61 1 sgml-parse-attribute-value-specification warn sgml-lookup-attdecl sgml-log-warning "Attribute %s not declared for element %s" symbol-name sgml-parse-error "Expecting a =" "Must have attribute name when SHORTTAG NO" sgml-find-attdecl-for-value "%s is not in any name group for element %s" sgml-make-attspec sgml-attdecl-name sgml-default-value-type-p CONREF sgml-attdecl-default-value t shortmap sgml-current-shorttag] 6 (#$ . 136670)]) (defalias 'sgml-check-attribute-value-specification #[nil "\301 \206\302\303!\203\304\305!\210\206\306\307!\207" [sgml-xml-p sgml-parse-literal sgml-parse-nametoken t sgml-parse-warning "XML forbids undelimited literals." sgml-parse-error "Expecting an attribute value: literal or token"] 3]) (defalias 'sgml-parse-attribute-value-specification #[(&optional warn) "\301 \206\302\303!\206\205\304\305!\210\306\207" [warn sgml-parse-literal sgml-parse-nametoken t sgml-log-warning "Expecting an attribute value: literal or token" nil] 2]) #@123 Find the attribute declaration of ELTYPE that has VALUE in its name group. VALUE is a string. Returns nil or an attdecl. (defalias 'sgml-find-attdecl-for-value #[(value eltype) "\304N\305\211\203#\306\n@!\211:\203 \307 !\235\204#\nA\211\204\n\n\205)\n@*\207" [eltype dv al value attlist nil sgml-attdecl-declared-value sgml-declared-value-token-group] 4 (#$ . 138421)]) #@53 Make sure that an eventual DTD is parsed or loaded. (defalias 'sgml-need-dtd #[nil "\306 \210\307 \210\204#\310\311\312\"\210\313\301!\210\314\n\203 \315\n!\210\202#\316 \210 \203-\317\320\321 \"\210\322H\f>\204:\323\324\"\210\325H\322H\f>\204K\323\326\"\210\327H\330 \207" [sgml-buffer-parse-state sgml-auto-fill-inhibit-function sgml-default-dtd-file sgml-debug cl-struct-sgml-pstate-tags sgml-dtd-info sgml-pop-all-entities sgml-cleanup-entities add-hook pre-command-hook sgml-reset-log make-local-variable sgml-in-prolog-p sgml-load-dtd sgml-load-doctype sgml-log-message "Need dtd getting state from %s" buffer-name 0 error "sgml-pstate-dtd accessing a non-sgml-pstate" 1 "sgml-pstate-top-tree accessing a non-sgml-pstate" 2 sgml-set-global sgml-top-tree] 3 (#$ . 138809)]) (defalias 'sgml-load-doctype #[nil "\204 \203@\212\305:\203@\202 \206!q\210\306 \210\n\307H >\204,\310\311\n\"\210\n\312H)\313\f!\210:\205>\314A!)\207\212\315 )\207" [sgml-parent-document sgml-doctype sgml-buffer-parse-state cl-struct-sgml-pstate-tags dtd find-file-noselect sgml-need-dtd 0 error "sgml-pstate-dtd accessing a non-sgml-pstate" 1 sgml-set-initial-state sgml-modify-dtd sgml-parse-prolog] 3]) (defalias 'sgml-modify-dtd #[(modifier) "\306H >\204 \307\310\"\210\311H\306H >\204\307\312\"\210\313H\314 \210  \211A@);\203I\315\316 @!!\317\320ee$\210 A)\202' @;\204S\307\321!\210 @\315\3169\203f\322!\202h!!\211\323\320\211BB\323\320\211BB\211 !!\211AA)\236\204\251!A B!\211AA)B\241\210++\" A:\203C\317\320ee$\210 \211A@)#\320$#:\203B#@$\"\315\316$!!\211%9\203\351\320\2026%@\323=\2030%\211A@)\236\206\n%\211AA)\236\211&\205,&A\211 @\323=\203! \202+\324 A @#))\2026\325%\"*\"#A\211#\202\313**\306H >\204Q\307\312\"\210\313H\211'\326\f\326HI\210'\327\f\327HI\210'\330(I\210'\306H\"M\210'\331\320I)\207" [sgml-buffer-parse-state cl-struct-sgml-pstate-tags sgml-dtd-info sgml-top-tree sgml-current-tree modifier 0 error "sgml-pstate-dtd accessing a non-sgml-pstate" 1 "sgml-pstate-top-tree accessing a non-sgml-pstate" 2 sgml-set-global sgml-lookup-eltype sgml-general-case sgml-open-element nil "wrong format of sgml-parent-document" symbol-name normal-state sgml-next-sub-and sgml-get-and-move 8 7 14 11 x et doctypename token s2 s1 dest s sgml-current-state #1=#:G60493 seenel state c top sgml-current-shortmap] 7]) (defalias 'sgml-set-global #[nil "\n\f \np \306\211\f\207" [sgml-namecase-general sgml-current-namecase-general sgml-omittag sgml-current-omittag sgml-shorttag sgml-current-shorttag nil sgml-local-catalogs sgml-current-localcat sgml-local-ecat-files sgml-current-local-ecat sgml-current-top-buffer sgml-markup-start] 2]) #@45 Parse the document prolog to learn the DTD. (defalias 'sgml-parse-prolog #[nil "\203\n\306\307\310 \"\210\204\311 \210\312\313!\210\314 \210\315 \210\316eb\210\317 p\320 \321 \2032(\2024)!\210\322\216`*\316+\323\316w\324U)\2038\316,g\325=\205_`Tf\326=\205_\327u\210\330,!)\2048\331\332!\203m \2038 \204\274-\206\257g\325=\205\257`Tf\206\203\324z\333=\204\226.\205\257`Tf\334=\205\257\335u\210m?\205\257gz\333=\205\257\336\337`\340\341!\210`\"!\211/\203\273\342/\343\"\210), \204\305\344\345!\210\346\347!\207" [sgml-debug sgml-dtd-info buffer-modified cb normal-syntax-table sgml-xml-p sgml-log-message "Parse prolog in buffer %s" buffer-name sgml-clear-log message "Parsing prolog..." sgml-cleanup-entities sgml-set-global nil syntax-table buffer-modified-p set-syntax-table ((byte-code "p q\210\305\n!\210\306 !\210\f\203\307\310 \"\210\305\207" [sgml-last-buffer cb normal-syntax-table buffer-modified sgml-debug set-syntax-table set-buffer-modified-p sgml-log-message "Restoring buffer mod: %s"] 3)) " \n " 0 60 63 2 sgml-do-processing-instruction sgml-parse-markup-declaration prolog 119 62 1 sgml-general-case buffer-substring-no-properties skip-syntax-forward "w_" sgml-setup-doctype (nil) error "No document type defined by prolog" sgml-message "Parsing prolog...done" xml-parser-syntax sgml-parser-syntax sgml-markup-start shortmap in-declaration sgml-default-doctype-name sgml-current-shorttag docname] 6 (#$ . 141613) nil]) #@133 Parse until the SGML-CLOSE-ELEMENT-TRAP has ended, or if it is t, any additional element has ended, or if nil, until end of buffer. (defalias 'sgml-parse-until-end-of #[(sgml-close-element-trap &optional cont extra-cond quiet) "\203\306\307!\210 \203\310d!\210\202\311d\n #\210m\2037\f\312=\206-\f =\206- =?\313\314``#\210\204\205>\306\315!\207" [sgml-debug cont extra-cond quiet sgml-close-element-trap sgml-current-tree sgml-log-message "-> sgml-parse-until-end-of" sgml-parse-continue sgml-parse-to t sgml-implied-end-tag "buffer end" "<- sgml-parse-until-end-of" sgml-top-tree] 5 (#$ . 143097)]) #@261 Parse until (at least) SGML-GOAL. Optional argument EXTRA-COND should be a function. This function is called in the parser loop, and the loop is exited if the function returns t. If third argument QUIET is non-nil, no "Parsing..." message will be displayed. (defalias 'sgml-parse-to #[(sgml-goal &optional extra-cond quiet) "\306 \210\307 p\310 \311 \203\f\202 !\210\312\216\313d^!\210\206,\314 Z\315W\211\2046\316\317!\210\320!\210?\205D\316\321!,\207" [buffer-modified cb normal-syntax-table sgml-xml-p xml-parser-syntax sgml-parser-syntax sgml-need-dtd syntax-table buffer-modified-p set-syntax-table ((byte-code "p q\210\305\n!\210\306 !\210\f\203\307\310 \"\210\305\207" [sgml-last-buffer cb normal-syntax-table buffer-modified sgml-debug set-syntax-table set-buffer-modified-p sgml-log-message "Restoring buffer mod: %s"] 3)) sgml-goto-start-point sgml-mainbuf-point 500 sgml-message "Parsing..." sgml-parser-loop "" sgml-goal quiet extra-cond] 4 (#$ . 143720)]) #@35 Parse until (at least) SGML-GOAL. (defalias 'sgml-parse-continue #[(sgml-goal &optional extra-cond quiet) "\204\n\306\307\300C\"\210 \204\310\311!\210\n\203\312\313!\210\314 p\315 \316\203-\202/!\210\317\216q\210\320!\210, ?\205E\310\321!\207" [sgml-current-tree quiet sgml-debug buffer-modified cb normal-syntax-table signal cl-assertion-failed sgml-message "Parsing..." sgml-log-message "Parse continue" syntax-table buffer-modified-p set-syntax-table ((byte-code "p q\210\305\n!\210\306 !\210\f\203\307\310 \"\210\305\207" [sgml-last-buffer cb normal-syntax-table buffer-modified sgml-debug set-syntax-table set-buffer-modified-p sgml-log-message "Restoring buffer mod: %s"] 3)) sgml-parser-loop "" sgml-xml-p xml-parser-syntax sgml-parser-syntax sgml-last-buffer extra-cond] 3 (#$ . 144722)]) #@209 Reparse the buffer and let SHORTREF-FUN take care of short references. SHORTREF-FUN is called with the entity as argument and `sgml-markup-start' pointing to start of short ref and point pointing to the end. (defalias 'sgml-reparse-buffer #[(shortref-fun) "\302e!\210\303\304!)\207" [shortref-fun sgml-shortref-handler sgml-note-change-at sgml-parse-until-end-of nil] 2 (#$ . 145551)]) (defalias 'sgml-move-current-state #[(token) " \2119\203 \306\202J\n@\307=\203F \n\211A@)\236\206' \n\211AA)\236\211\205B\fA\211@\307=\203: \202A\310 A @#))\202J\311\n \"*\206O\211\207" [sgml-current-state token state x c dest nil normal-state sgml-next-sub-and sgml-get-and-move] 6]) (put 'sgml-move-current-state 'byte-optimizer 'byte-compile-inline-expand) (defalias 'sgml-execute-implied #[(imps type) "\306 :\203\264 @\211\307=\203\310 \f\211#\210\202\255\n \n\2119\203+\306\202t@\311=\203o\n\211A@)\236\206J\n\211AA)\236\211\205kA\211@\311=\203a\202j\312A\n@#))\202t\313\n\"*\206y )\203\206\314\315\"\210\316\n\205\223\317\n!=\f\211$\210\203\245\320\321H!\204\255\322\323\324\n! #\210 A\211\202*\306\207" [imps #1=#:G60504 token type sgml-markup-start sgml-current-state nil t sgml-implied-end-tag normal-state sgml-next-sub-and sgml-get-and-move throw start sgml-open-element sgml-eltype-model sgml-eltype-stag-optional 0 sgml-log-warning "%s start-tag implied by %s; not minimizable" symbol-name state x c dest sgml-throw-on-element-change sgml-xml-p sgml-empty sgml-current-omittag sgml-current-tree] 7]) (defalias 'sgml-do-move #[(token type) " =\206\314 \n\2119\203\306\202T @\307=\203P\n \211A@)\236\206-\n \211AA)\236\211\205L A\211\f@\307=\203B\f\202K\310\fA\n\f@#))\202T\311 \n\"*\211 \203b \211\202\313\312\313\n\"\"\210 =?\205\313\n \n\2119\203\202\306\202\303 @\307=\203\277\n \211A@)\236\206\234\n \211AA)\236\211\205\273 A\211\f@\307=\203\261\f\202\272\310\fA\n\f@#))\202\303\311 \n\"*\206\310 \211))\207" [sgml-any sgml-current-state token state x c nil normal-state sgml-next-sub-and sgml-get-and-move sgml-execute-implied sgml-list-implications dest next-state type] 7]) #@45 Modify parser state to reflect parsed data. (defalias 'sgml-pcdata-move #[nil "\301\302\"\207" [sgml-pcdata-token sgml-do-move "data character"] 3 (#$ . 147774)]) (defalias 'sgml-parse-pcdata #[nil "\203\f\301!\302w\202\303\302w\304U?\207" [sgml-current-shortmap sgml-shortmap-skipstring nil "^<]/&" 0] 2]) (put 'sgml-parse-pcdata 'byte-optimizer 'byte-compile-inline-expand) (defalias 'sgml-do-pcdata #[nil "\306 \210\307u\210\203\310!\311w\202\312\311w\313U\210 \203# \314\n`\"!\210\311\f\2033 \2043\315\n` #\210 \211)\207" [sgml-current-shortmap sgml-data-function sgml-markup-start type sgml-set-face sgml-current-eref sgml-pcdata-move 1 sgml-shortmap-skipstring nil "^<]/&" 0 buffer-substring-no-properties sgml-set-face-for sgml-markup-type] 4]) (byte-code "\302\303\304\305#\210\301B\306\301!\204\307\307\207" [current-load-list sgml-parser-loop-hook put sgml-do-pcdata byte-optimizer byte-compile-inline-expand boundp nil] 4) (defalias 'sgml-parser-loop #[(extra-cond) "\306\307\n =\203H`\fW\204 \203H`,\306-\306.\310\306w\311U)\203\312\313!\204\306/g\314=\205D`Tf\315=\205D\316u\210\317/!)\204`\fW\204R \205w0\205Z0 ?\205w\n\204h\320\321\302C\"\210`,\306-m\203x\322 \210\202H12=\204\21013=\203\327g\314=\203\270`Tf\323=\203\270`\316\\f\206\236\311z\324=\204\2624\203\270`\316\\f\325=\203\270\316u\210\202\311g\323=\203\3174\203\317\326\n!\203\317\327 \210\202H\3301!\210\202H5\203\374\3315`6=\"\211\204\360,b\210\202\374,67 !\210\202H\332\n\311HJW\204C5\211.\2039\333\306w\311U?\206?\334\306w\311U?\206?g\335=\203,\336u\210\337\202?g\340=\205?\336u\210\337\202?\310\306w\311U?)\204Hg\314=\203s`Tf\323=\203s`\316\\f\206Y\311z\324=\204m4\203s`\316\\f\325=\203s\316u\210\202\204g\323=\203\2124\203\212\326\n!\203\212\327 \210\202Hg\314=\203\263`Tf\206\227\311z\324=\204\2524\203\263`Tf\325=\203\263\336u\210\341 \210\202Hg\342=\203\316`Tf\206\300\311z\324=\203\316\336u\210\343 \204H\312\306!\204Hg\344=\203\n`Tf\344=\203\n`\316\\f\325=\203\n\332u\210\34589\203 \204\346,`8#\2108-)\202H\306/g\314=\205\"`Tf\315=\205\"\316u\210\317/!)\204H(\2031\347\350!\204H\307 \210\336u\2105\203E\3515!\306w\202H\352\306w\311U\210:\203Y:\353,`\"!\210\30689\203m \204m\346,`8#\2108\211-)\210\202H*\207" [sgml-signal-data-function tem sgml-current-tree sgml-top-tree sgml-goal sgml-current-eref nil sgml-pcdata-move " \n " 0 sgml-parse-markup-declaration prolog 60 63 2 sgml-do-processing-instruction signal cl-assertion-failed sgml-pop-entity 47 119 62 sgml-tree-net-enabled sgml-do-end-tag sgml-do-data sgml-deref-shortmap 3 " " " " 10 1 t 13 sgml-do-start-tag 38 sgml-do-general-entity-ref 93 ms-end sgml-set-face-for run-hook-with-args-until-success sgml-parser-loop-hook sgml-shortmap-skipstring "^<]/&" buffer-substring-no-properties sgml-markup-start sgml-markup-type shortmap in-declaration extra-cond sgml-current-state sgml-cdata sgml-rcdata sgml-current-shorttag sgml-current-shortmap sgml-rs-ignore-pos sgml-shortref-handler type sgml-set-face sgml-data-function] 5]) (defalias 'sgml-handle-shortref #[(name) "\306 \203\n\204\307 `#\210)\310 !\207" [type sgml-set-face sgml-current-eref sgml-markup-start sgml-markup-type name shortref sgml-set-face-for sgml-do-entity-ref] 4]) (defalias 'sgml-do-start-tag #[nil "\203 \306\307\"\210\310\310\211\211g\311=\203\312 \2029\313m\2045gz\314=\2035\315\316`\317\320!\210`\"!\2068\321\322!!g\311=\203F\323u\210\202\204\324 ! \204f\325g=\203f\323u\210\326\211%\204c\327\330!\210\204\204 \203\201\325g=\203\201\311`Tf=\203\201\331u\210\326\211\204\204\332 \210\333&'\203\231(\204\231\334)`&#\210&*)+\203\267\335 !\204\267,\205\323\327\336\337 !\"\202\323\340 \341\342\337 !\"\"\210\343 )`\n%\210\f\205\323-\344\326I+\207" [sgml-throw-on-element-change sgml-conref-flag asl et net-enabled sgml-xml-p throw start nil 62 sgml-do-empty-start-tag sgml-lookup-eltype 119 sgml-general-case buffer-substring-no-properties skip-syntax-forward "w_" sgml-parse-error "Name expected" 1 sgml-parse-attribute-specification-list 47 t sgml-log-warning "NET enabling start-tag is not allowed with SHORTTAG NO" 2 sgml-check-tag-close start-tag sgml-set-face-for sgml-eltype-defined "Start-tag of undefined element %s; ignored" symbol-name sgml-do-move format "%s start-tag" sgml-open-element 12 sgml-current-shorttag type sgml-set-face sgml-current-eref sgml-markup-start sgml-markup-type sgml-ignore-undefined-elements sgml-warn-about-undefined-elements sgml-current-tree] 6]) #@41 Return eltype to use if empty start tag (defalias 'sgml-do-empty-start-tag #[nil " =\203\f\305\n\306H!\207 \203\306H\207\f\203\f\306H\207\307\310\215\207" [sgml-current-tree sgml-top-tree sgml-dtd-info sgml-current-omittag sgml-previous-tree sgml-lookup-eltype 0 --cl-block-outer-- (byte-code "\306\306\307\307\203 \202\310H\211\310H\211\f=\203 \311\312!\210 \313H=\204Q\306\307\307\2037 \313H\202: \314H \314H=\203J\315\316 \317H\"\210\306\211\202.\306\211\202" [current parent #1=#:G60507 sgml-current-tree sgml-top-tree c nil t 5 sgml-error "No previously closed element" 11 10 throw --cl-block-outer-- 0 #2=#:G60508] 6)] 3 (#$ . 152399)]) #@40 Assume point after \323\324!!\307\325\307w\313U\210)\326 \210\327)\203_*\204_\330+` #\210 ,) \203\256\331 !\307-\310.\310/\3070/\203\200 \202\204-\332H\211-\203\241 -\313H=\2110?\211.\203\241\307\211/\202y0,\211\204\256\333\334\n\"\210\205#\307\2041\2112:?\206\3362\2112@\335=\203\3312\2113AA)?\202\335\3362!))\204\356\333\337\340 !\3411!\n$\210 4=\203\372\342\343\n\"\210 \313H=\206\f ?\205\f \344H\310=\211\204\264\345\346\347\n\"+\211#\210\202\264\350+`\"+\207" [found et gi sgml-current-tree shortmap type "Null" nil t 62 1 0 47 sgml-lookup-eltype 119 sgml-general-case buffer-substring-no-properties skip-syntax-forward "w_" sgml-parse-error "Name expected" " \n " sgml-check-tag-close end-tag sgml-set-face-for symbol-name 5 sgml-log-warning "End-tag %s does not end any open element; ignored" normal-state sgml-final-and "%s element can't end here, need one of %s; %s end-tag out of context" sgml-element-gi sgml-required-tokens sgml-error "%s end-tag ended document and parse" 12 sgml-implied-end-tag format "%s end-tag" sgml-close-element sgml-set-face sgml-current-eref sgml-markup-start sgml-markup-type u #1=#:G60510 #2=#:G60509 #3=#:G60511 sgml-current-state state x sgml-top-tree] 7 (#$ . 153082)]) (defalias 'sgml-is-goal-after-start #[(goal tree) "\205\302\303H!\203 \303HV\207 \304\303H!Y\207" [tree goal sgml-bpos-p 1 sgml-epos-after] 4]) (defalias 'sgml-goto-start-point #[(goal) "\303\n \304H\"\203 \304H\211\202Q \305H\203: \306H\307V\203)\n\310 !Y\202.\n\310 !V\203:\311 \312\"\210\313\202W\303\n \314H\"\203K \314H\211\202Q\311 \315\"\210\313\205W\202)\207" [sgml-top-tree u goal sgml-is-goal-after-start 10 2 4 0 sgml-tree-end sgml-set-parse-state after nil 11 start] 4]) (defalias 'sgml-check-tag-close #[nil "g\301=\203 \302u\210\303\207g\304=\203*`Tf\206\305z\306=\204S\203*`Tf\301=\204Sg\304=\203_`Tf\307=\203_`\310\\f\206@\305z\306=\204S\203_`\310\\f\301=\203_\206c\311\312!\206c\303\207\311\313g\"\207" [sgml-current-shorttag 62 1 t 60 0 119 47 2 sgml-log-warning "Unclosed tag is not allowed with SHORTTAG NO" "Invalid character in markup %c"] 3]) (defalias 'sgml-implied-end-tag #[(type start end) " =\203\ndU\204(\306\307 \"\210\202(\f\203 \310\311H!\204(\312\313\314! #\210\315\n \"\207" [sgml-current-tree sgml-top-tree start type sgml-current-omittag end sgml-error "document ended by %s" sgml-eltype-etag-optional 0 sgml-log-warning "%s end-tag implied by %s; not minimizable" sgml-element-gi sgml-close-element] 4]) #@222 Find the parser context for POS, returns the parse tree. Also sets sgml-current-tree and sgml-current-state. If POS is in markup, sgml-markup-type will be a symbol identifying the markup type. It will be nil otherwise. (defalias 'sgml-find-context-of #[(pos) "\212\304!\210`V\203 \203 \305>\203\n\202\306 )\207" [pos sgml-markup-type sgml-markup-tree sgml-current-tree sgml-parse-to (start-tag end-tag) nil] 2 (#$ . 155841)]) #@67 Find context of point. See documentation of sgml-find-context-of. (defalias 'sgml-parse-to-here #[nil "\300`!\207" [sgml-find-context-of] 2 (#$ . 156287)]) #@47 Find the element containing character at POS. (defalias 'sgml-find-element-of #[(pos) "d=\203\n\303\304!\210\212\305T!\210 \n\306H\203*\307\n\306H!Y\203*\n\306H\211\202T\n\310H\203?\311\n!Y\203?\n\312H\202W\n\313H\203W\307\n\313H!Y\203W\n\313H\211\204\n*\207" [pos sgml-top-tree u error "End of buffer" sgml-parse-to 10 sgml-element-start 2 sgml-tree-end 5 11] 4 (#$ . 156449)]) #@258 Find the element before POS and return it, error if non found. If in IN-ELEMENT is given look for previous element in IN-ELEMENT else look in current element. If this element has no content elements but end at POS, it will be returned as previous element. (defalias 'sgml-find-previous-element #[(pos &optional in-element) "\212\304!\210 \204 \n \305H \204 \306 !U\203F \202F\307 !X\203.\310\211\202C \311H\203F\307 \311H!Y\204F \311H\211\204 \206P\312\313\314 !\"*\207" [pos in-element sgml-current-tree c sgml-parse-to 11 sgml-element-end sgml-element-start nil 10 error "No previous element in %s element" sgml-element-gi] 4 (#$ . 156855)]) #@95 Find the first element starting after POS. Returns parse tree; error if no element after POS. (defalias 'sgml-find-element-after #[(pos &optional in-element) "\206 \212\304 !)\305!\211\203\" \306\n!V\203\"\307\n!\211\204\n)\206F\310 !\211\2058 \306 !U\2058 )\206F\311\312!\210\313\314\315!\"\207" [in-element pos c el sgml-find-context-of sgml-element-content sgml-element-start sgml-element-next sgml-find-element-of sgml-message "" error "No more elements in %s element" sgml-element-gi] 5 (#$ . 157526)]) #@46 First element in content of ELEMENT, or nil. (defalias 'sgml-element-content #[(element) "\301H\204\302H\204\212\303\304!\210)\301H\207" [element 11 2 sgml-parse-until-end-of t] 2 (#$ . 158056)]) #@26 Next sibling of ELEMENT. (defalias 'sgml-element-next #[(element) "\301H\204\f\212\302!\210)\303H\204 \304H\301H\204 \212\302\305!\210)\303H\207" [element 2 sgml-parse-until-end-of 10 5 t] 2 (#$ . 158265)]) #@67 Last position in content of ELEMENT and start of end-tag, if any. (defalias 'sgml-element-etag-start #[(element) "\302H\204\f\212\303!\210)\302H\204 \203\304\305\306!\"\210\302H\204)\307\310\311C\"\210\312\302H!\207" [element sgml-debug 2 sgml-parse-until-end-of sgml-log-message "Failed to define end of element %s" sgml-element-gi signal cl-assertion-failed (sgml-tree-etag-epos element) sgml-epos-promote] 4 (#$ . 158486)]) #@31 First position after ELEMENT. (defalias 'sgml-element-end #[(element) "\301!\210\302!\207" [element sgml-element-etag-start sgml-tree-end] 2 (#$ . 158931)]) (defalias 'sgml-read-element-name #[(prompt) "\306 \210\203 \307\310!\207 \n=\203\311 \f\"\207 \n=\204F\312\313\314 \"\211\204,\307\315!\202D\316 \317\320 A?\205B \211@@)%))\207\321 !\207" [sgml-markup-type sgml-current-state sgml-any prompt sgml-dtd-info tab sgml-parse-to-here error "No elements allowed in markup" sgml-read-element-type mapcar #[(x) "\301\302!!\303B\207" [x sgml-general-insert-case symbol-name nil] 3] sgml-current-list-of-valid-eltypes "No element valid at this point" completing-read nil t read-from-minibuffer sgml-namecase-general completion-ignore-case x] 7]) #@95 Return the attribute specification list for ELEMENT. This is a list of (attname value) lists. (defalias 'sgml-element-attribute-specification-list #[(element) "\301H\207" [element 16] 2 (#$ . 159699)]) #@77 Return the element to which an attribute editing command should be applied. (defalias 'sgml-find-attribute-element #[nil "\303`!\212\304`!\210 \305=\203\n\202*\207" [el sgml-markup-type sgml-markup-tree sgml-find-element-of sgml-parse-to start-tag] 2 (#$ . 159908)]) #@62 Return the value of the ATTRIBUTE in ELEMENT, string or nil. (defalias 'sgml-element-attval #[(element attribute) "\304!\305\306 \307!\"!\310\311 \"!\206\312\n!*\207" [element attribute def asl sgml-element-attribute-specification-list sgml-attdecl-default-value sgml-lookup-attdecl sgml-element-attlist sgml-attspec-attval sgml-lookup-attspec sgml-default-value-attval] 6 (#$ . 160187)]) #@74 Convert X into a string where X can be a string, a symbol or an element. (defalias 'sgml-cohere-name #[(x) ";\203\2079\203\301!\207\302!\207" [x symbol-name sgml-element-gi] 2 (#$ . 160589)]) #@35 Return the start-tag for ELEMENT. (defalias 'sgml-start-tag-of #[(element) "\203\302\303 !!\203\304\305\306\303 !!\"\207\304\307\306\303 !!\"\207" [sgml-xml-p element sgml-check-empty sgml-cohere-name format "<%s/>" sgml-general-insert-case "<%s>"] 5 (#$ . 160796)]) #@52 Return the end-tag for ELEMENT (token or element). (defalias 'sgml-end-tag-of #[(element) "\301\302\303\304!!\"\207" [element format "" sgml-general-insert-case sgml-cohere-name] 5 (#$ . 161074)]) #@30 Return the document element. (defalias 'sgml-top-element #[nil "\300\301e!!\207" [sgml-element-content sgml-find-context-of] 3 (#$ . 161283)]) #@67 True if ELEMENT is the pseudo element above the document element. (defalias 'sgml-off-top-p #[(element) "\301H?\207" [element 5] 2 (#$ . 161432)]) (defalias 'sgml-safe-context-of #[(pos) "\301\301\302\215)\207" [sgml-throw-on-error parse-error (sgml-find-context-of pos)] 2]) (defalias 'sgml-safe-element-at #[(pos) "\301\301\302\215)\207" [sgml-throw-on-error parse-error (byte-code "dU\203\n\301!\207\302!\207" [pos sgml-find-context-of sgml-find-element-of] 2)] 2]) (defalias 'sgml-in-prolog-p #[nil "\301`!\211?\206\f\302!)\207" [el sgml-safe-context-of sgml-off-top-p] 3]) (provide 'psgml-parse)