;ELC   
;;; Compiled
;;; in Emacs version 26.3
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\207" [require psgml psgml-parse] 2)
#@37 True if model group built is mixed.
(defvar sgml-used-pcdata nil (#$ . 479))
#@65 Copy all moves from S1 to S2, keeping their status.

(fn S1 S2)
(defalias 'sgml-copy-moves #[514 "A@\211\203, @@@AA@\236\204# \211ABA@B\240\266\266\211A\262\202 AA\262\211\205Z @@@AAA\236\204Q \211ABAAB\241\266\266\211A\262\2021 \207" [] 10 (#$ . 562)])
#@61 Copy all moves from S1 to S2 as optional moves.

(fn S1 S2)
(defalias 'sgml-copy-moves-to-opt #[514 "A@\211\203, @@@AA@\236\204# \211ABA@B\240\266\266\211A\262\202 AA\262\211\205Z @@@AA@\236\204Q \211ABA@B\240\266\266\211A\262\2021 \207" [] 10 (#$ . 850)])
#@14 

(fn STATE)
(defalias 'sgml-some-states-of #[257 "\211C\211\300\211\211\203E @\262\301A@AA\"\262\203> @A\262A\262\211@\302=\2040 \211@\262\211>\204 C\244\210\202 A\262\202 \207" [nil append normal-state] 9 (#$ . 1141)])
#@98 For all final states S in DFA do FORMS.
Syntax: var dfa-expr &body forms

(fn S DFA &rest FORMS)
(defalias 'sgml-for-all-final-states '(macro . #[642 "\300\301\302DDD\303\301\304\305\306	\307BBDBB\310BBBE\207" [let L-states sgml-some-states-of while when sgml-state-final-p setq ((car L-states)) ((setq L-states (cdr L-states)))] 12 (#$ . 1389)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put sgml-for-all-final-states lisp-indent-hook 2 edebug-form-hook (symbolp &rest form)] 4)
#@10 

(fn S)
(defalias 'sgml-empty-state-p #[257 "\211@\300=\205 \211AA?\205 \211A@?\207" [normal-state] 3 (#$ . 1896)])
(put 'sgml-empty-state-p 'byte-optimizer 'byte-compile-inline-expand)
#@10 

(fn S)
(defalias 'sgml-one-final-state #[257 "\203 \301\302AAGA@G#\210\303\211\304AAA@\"\303:\203W @\262\211A\262\211@\305=\205; \211AA?\205; \211A@?\262\203P \204J \262\202P \211\211\241\266A\262\202 \303\266\202\207" [sgml-debug message "OPT one final: reqs %d opts %d" nil append normal-state] 8 (#$ . 2091)])
#@14 

(fn S1 S2)
(defalias 'sgml-states-equal #[514 "A@GA@GU\205s AAGAAGU\205s A@\300\301:\203= @\262A@A@\236A=\211\262\203= A\262\202 \211\205B \301\266\203\205s AA\300\301:\203l @\262A@AA\236A=\211\262\203l A\262\202L \211\205q \301\266\203\207" [nil t] 8 (#$ . 2432)])
#@10 

(fn S)
(defalias 'sgml-remove-redundant-states-1 #[257 "\203 \301\302AAGA@G#\210\303CAAA@\303\204( \303\262\211\262\203T @A\211\262@\304=\203M \211>\204M \211>\204M \305\"\203M \211B\262A\262\202 A@\262AA\262\205\222 \203m \301\306G\"\210\204{ \303\262\211\262\205\222 @A>\203\213 @\211\241\266A\262\202m \207" [sgml-debug message "OPT redundant-1: reqs %d opts %d" nil normal-state sgml-states-equal "OPT redundant-1: success %s"] 9 (#$ . 2731)])
#@11 

(fn S1)
(defalias 'sgml-make-opt #[257 "\211AA\203 \211\211AA@AA\244\240\266\211\211A\300\241\266\207" [nil] 5 (#$ . 3230)])
#@11 

(fn S1)
(defalias 'sgml-make-* #[257 "\300!\262\211AA\203 \301!\210\302!\210\207" [sgml-make-+ sgml-make-opt sgml-remove-redundant-states-1] 3 (#$ . 3368)])
#@11 

(fn S1)
(defalias 'sgml-make-+ #[257 "\300!\301\203 @\211\262AA\204 \302\"\210A\262\202 \266\303!\210\207" [sgml-some-states-of nil sgml-copy-moves-to-opt sgml-remove-redundant-states-1] 6 (#$ . 3538)])
#@14 

(fn S1 S2)
(defalias 'sgml-make-conc #[514 "\300AAA@\"\211\301\302:\2037 @\262A\211@\303=\205( \211AA?\205( \211A@?\262\211\262\2037 A\262\202 \211\205< \302\266\203\203i \211\301:\203Y @\262\211\211\241\266A\262\202C \266AA\204\215 \304\"\210\202\215 \305!\301\203\213 @\211\262AA\204\204 \304\"\210\306!\210A\262\202m \266\210\207" [append nil t normal-state sgml-copy-moves sgml-some-states-of sgml-remove-redundant-states-1] 9 (#$ . 3762)])
(defalias 'sgml-make-pcdata #[0 "\301\302\303\211BB\302\303\211BBAA\236\204$ \211ABAAB\241\266\266\266\202\262!\207" [sgml-pcdata-token sgml-make-* normal-state nil] 11])
#@10 

(fn L)
(defalias 'sgml-reduce-\, #[257 "\211A\203 \211A\300@A@\"\240\210\211A\262\202  \211@\207" [sgml-make-conc] 5 (#$ . 4433)])
#@10 

(fn L)
(defalias 'sgml-reduce-| #[257 "\211A\2035 \211@AA\203 \211A@AA\204$ \300@!\210\301A@@\"\210\202, \302A@@\"\210\211AA\241\210\202  \303@!\210\211@\207" [sgml-make-opt sgml-copy-moves-to-opt sgml-copy-moves sgml-one-final-state] 4 (#$ . 4576)])
#@13 

(fn DFAS)
(defalias 'sgml-make-& #[257 "\211\300\301\211BB\211B\266\202\300\301\211BB\211\203\202 \211@A@\301:\203F @\262@A@\236\204= \211ABA@B\240\266\266A\262\202 \266\211@AA\301:\203y @\262@AA\236\204p \211ABAAB\241\266\266A\262\202M \266\211A\262\202 \207" [normal-state nil] 13 (#$ . 4843)])
(defalias 'sgml-skip-ts #[0 "\300\211\2031 \301\300w\302U?\2067 \303\300w\302U?\2067 g\304=\203$ \305u\210\306\2027 g\307=\2057 \305u\210\306\2027 \310\300w\302U?\262\204  m\203E \311 \204  g\312=\203` `Tf\206R \302z\313=\203` \305u\210\314 \204  \315 \205h \202  \207" [nil " " 0 "	" 10 1 t 13 " 	\n" sgml-pop-entity 37 119 sgml-do-parameter-entity-ref sgml-parse-comment] 3])
#@28 

(fn &optional DOFUNCHAR)
(defalias 'sgml-parse-character-reference #[256 "\211\203/ g\300=\205z `Tf\301=\205z \302`\\f\303>\204) \302`\\f\206# \304z\305=\205z \302u\210\202I g\300=\205z `Tf\301=\205z \302`\\f\303>\205z \302u\210g\303>\203V \306\307 !\202m \310\311!\206` \312\313!\262\314\315\"A\206k \316\262g\317=\203w \320u\210\207\321 \210\207" [38 35 2 (48 49 50 51 52 53 54 55 56 57) 0 119 string-to-number sgml-check-nametoken nil sgml-parse-name sgml-parse-error "Name expected" assoc (("RE" . 10) ("RS" . 1) ("TAB" . 9) ("SPACE" . 32)) 127 59 1 sgml-parse-RE] 5 (#$ . 5570)])
#@28 

(fn &optional DOFUNCHAR)
(defalias 'sgml-parse-parameter-literal #[256 "\301\302p\301g\303=\203 \304u\210\202  g\305=\205 \304u\210\306\211\262\205\266 p=\203B \2036 g\305=\203B \304u\210\202\265 g\303=\203B \304u\210\202\265 m\203R \307 \204  \310\311!\210\202  g\312=\203m `Tf\206_ \313z\314=\203m \304u\210\315 \204  \316!\211\262\203\227 \317W\203\215 \203\206 \320!\262\321\322\"\202\221 \321\323\"P\262\202  \324`\304u\210\203\251 \325\301w\210\202\255 \326\301w\210`\"P\262\202  \207" [enable-multibyte-characters nil "" 34 1 39 t sgml-pop-entity sgml-error "Parameter literal unterminated" 37 0 119 sgml-do-parameter-entity-ref sgml-parse-character-reference 256 unibyte-char-to-multibyte format "%c" "&#%d;" buffer-substring-no-properties "^'%&" "^\"%&"] 10 (#$ . 6167)])
(defalias 'sgml-check-parameter-literal #[0 "\300 \206 \301\302!\207" [sgml-parse-parameter-literal sgml-parse-error "Parameter literal expected"] 2])
(defalias 'sgml-parse-connector #[0 "\301\211\2031 \302\301w\303U?\2067 \304\301w\303U?\2067 g\305=\203$ \306u\210\307\2027 g\310=\2057 \306u\210\307\2027 \311\301w\303U?\262\204  m\203E \312 \204  g\313=\203` `Tf\206R \303z\314=\203` \306u\210\315 \204  \316 \204  g\317=\203p \306u\210\320\207g\321=\203{ \306u\210\322\207g\323=\205\215 \306u\210\203\214 \324\325!\207\326\207" [sgml-xml-p nil " " 0 "	" 10 1 t 13 " 	\n" sgml-pop-entity 37 119 sgml-do-parameter-entity-ref sgml-parse-comment 44 sgml-reduce-\, 124 sgml-reduce-| 38 sgml-error "XML forbids AND connector" sgml-make-&] 3])
(put 'sgml-parse-connector 'byte-optimizer 'byte-compile-inline-expand)
#@93 Parse a single name or a name group (general name case) .
Returns a list of strings or nil.
(defalias 'sgml-parse-name-group #[0 "\301g\302=\203\210\303u\210\301\211\203; \304\301w\305U?\206A \306\301w\305U?\206A g\307=\203. \303u\210\310\202A g\311=\205A \303u\210\310\202A \312\301w\305U?\262\204\n m\203O \313 \204\n g\314=\203j `Tf\206\\ \305z\315=\203j \303u\210\316 \204\n \317 \204\n \320 \262\301\211\203\244 \304\301w\305U?\206\252 \306\301w\305U?\206\252 g\307=\203\227 \303u\210\310\202\252 g\311=\205\252 \303u\210\310\202\252 \312\301w\305U?\262\204s m\203\270 \313 \204s g\314=\203\323 `Tf\206\305 \305z\315=\203\323 \303u\210\316 \204s \317 \204s g\321=\203\344 \303u\210\202g\322=\203\360 \303u\210\202g\323=\203t\303u\210\203\324\325!\202\326\203t\301\211\2038\304\301w\305U?\206>\306\301w\305U?\206>g\307=\203+\303u\210\310\202>g\311=\205>\303u\210\310\202>\312\301w\305U?\262\204m\203L\313 \204g\314=\203g`Tf\206Y\305z\315=\203g\303u\210\316 \204\317 \204\211\320 \244\210\202s g\327=\203\200\303u\210\202\204\330\331!\210\211\202\246m?\205\236gz\315=\205\236\332\333`\334\335!\210`\"!\211\262\205\246\211C\207" [sgml-xml-p nil 40 1 " " 0 "	" 10 t 13 " 	\n" sgml-pop-entity 37 119 sgml-do-parameter-entity-ref sgml-parse-comment sgml-parse-name-group 44 124 38 sgml-error "XML forbids AND connector" sgml-make-& 41 sgml-delimiter-parse-error "GRPC" sgml-general-case buffer-substring-no-properties skip-syntax-forward "w_"] 6 (#$ . 7792)])
(defalias 'sgml-check-name-group #[0 "\300 \206 \301\302!\207" [sgml-parse-name-group sgml-parse-error "Expecting a name or a name group"] 2])
#@89 Parse a name token group, return a list of strings.
Case transformed for general names.
(defalias 'sgml-check-nametoken-group #[0 "\301\211\2031 \302\301w\303U?\2067 \304\301w\303U?\2067 g\305=\203$ \306u\210\307\2027 g\310=\2057 \306u\210\307\2027 \311\301w\303U?\262\204  m\203E \312 \204  g\313=\203` `Tf\206R \303z\314=\203` \306u\210\315 \204  \316 \204  \301g\317=\203\205\306u\210\301\211\203\240 \302\301w\303U?\206\246 \304\301w\303U?\206\246 g\305=\203\223 \306u\210\307\202\246 g\310=\205\246 \306u\210\307\202\246 \311\301w\303U?\262\204o m\203\264 \312 \204o g\313=\203\317 `Tf\206\301 \303z\314=\203\317 \306u\210\315 \204o \316 \204o \320\321 !B\262\301\211\203\302\301w\303U?\206\304\301w\303U?\206g\305=\203 \306u\210\307\202g\310=\205\306u\210\307\202\311\301w\303U?\262\204\334 m\203!\312 \204\334 g\313=\203<`Tf\206.\303z\314=\203<\306u\210\315 \204\334 \316 \204\334 g\322=\203M\306u\210\202o g\323=\203Y\306u\210\202o g\324=\203p\306u\210\203l\325\326!\202m\327\204o g\330=\203|\306u\210\202\200\331\332!\210\211\237\202\212\320\321 !C\207" [sgml-xml-p nil " " 0 "	" 10 1 t 13 " 	\n" sgml-pop-entity 37 119 sgml-do-parameter-entity-ref sgml-parse-comment 40 sgml-general-case sgml-check-nametoken 44 124 38 sgml-error "XML forbids AND connector" sgml-make-& 41 sgml-delimiter-parse-error "GRPC"] 4 (#$ . 9444)])
#@58 Parse and check an element type, return list of strings.
(defalias 'sgml-check-element-type #[0 "g\301=\203p\302u\210\203 \303\304!\210\305 \210\306\307!\206 \310\311!\262C\305 \210\306\211\203U \312\306w\313U?\206[ \314\306w\313U?\206[ g\315=\203H \302u\210\316\202[ g\317=\205[ \302u\210\316\202[ \320\306w\313U?\262\204$ m\203i \321 \204$ g\322=\203\204 `Tf\206v \313z\323=\203\204 \302u\210\324 \204$ \325 \204$ g\326=\203\225 \302u\210\202\270 g\327=\203\241 \302u\210\202\270 g\330=\203\316 \302u\210\203\264 \303\331!\202\265 \332\203\316 \305 \210\211\306\307!\206\306 \310\311!\262C\244\210\202! g\333=\203\332 \302u\210\202\336 \334\335!\210\306\211\203\312\306w\313U?\206\314\306w\313U?\206g\315=\203\302u\210\316\202g\317=\205\302u\210\316\202\320\306w\313U?\262\204\336 m\203#\321 \204\336 g\322=\203>`Tf\2060\313z\323=\203>\302u\210\324 \204\336 \325 \204\336 g\336>\203n\337 \306\211:\203e@\262PB\262A\262\202N\211\237\266\203\262\202o\211\207\306\307!\206z\310\311!\262\306\211\203\255\312\306w\313U?\206\263\314\306w\313U?\206\263g\315=\203\240\302u\210\316\202\263g\317=\205\263\302u\210\316\202\263\320\306w\313U?\262\204|m\203\301\321 \204|g\322=\203\334`Tf\206\316\313z\323=\203\334\302u\210\324 \204|\325 \204|g\336>\203\356\211\340 P\202\357\211C\207" [sgml-xml-p 40 1 sgml-error "XML forbids name groups for the element type" sgml-skip-ts nil sgml-parse-name sgml-parse-error "Name expected" " " 0 "	" 10 t 13 " 	\n" sgml-pop-entity 37 119 sgml-do-parameter-entity-ref sgml-parse-comment 44 124 38 "XML forbids AND connector" sgml-make-& 41 sgml-delimiter-parse-error "GRPC" (48 49 50 51 52 53 54 55 56 57) sgml-parse-nametoken sgml-check-nametoken] 7 (#$ . 10817)])
#@27 

(fn &optional PUBID-OK)
(defalias 'sgml-check-external #[256 "\300!\206	 \301\302!\207" [sgml-parse-external sgml-parse-error "Expecting a PUBLIC or SYSTEM"] 3 (#$ . 12580)])
(defalias 'sgml-declare-notation #[0 "\300\211\2031 \301\300w\302U?\2067 \303\300w\302U?\2067 g\304=\203$ \305u\210\306\2027 g\307=\2057 \305u\210\306\2027 \310\300w\302U?\262\204  m\203E \311 \204  g\312=\203` `Tf\206R \302z\313=\203` \305u\210\314 \204  \315 \204  \300\316!\204p \317\320!\210\210\300\211\203\242 \301\300w\302U?\206\250 \303\300w\302U?\206\250 g\304=\203\225 \305u\210\306\202\250 g\307=\205\250 \305u\210\306\202\250 \310\300w\302U?\262\204q m\203\266 \311 \204q g\312=\203\321 `Tf\206\303 \302z\313=\203\321 \305u\210\314 \204q \315 \204q \321\306!\207" [nil " " 0 "	" 10 1 t 13 " 	\n" sgml-pop-entity 37 119 sgml-do-parameter-entity-ref sgml-parse-comment sgml-parse-name sgml-parse-error "Name expected" sgml-check-external] 3])
(defalias 'sgml-parse-opt #[0 "\301\211\2031 \302\301w\303U?\2067 \304\301w\303U?\2067 g\305=\203$ \306u\210\307\2027 g\310=\2057 \306u\210\307\2027 \311\301w\303U?\262\204  m\203E \312 \204  g\313=\203` `Tf\206R \303z\314=\203` \306u\210\315 \204  \316 \204  g\317=\203q \306u\210\202z g\320=\203\204 \306u\210\203\202 \321\322!\207\307\207g\323=\205\224 \306u\210\205\224 \321\324!\207" [sgml-xml-p nil " " 0 "	" 10 1 t 13 " 	\n" sgml-pop-entity 37 119 sgml-do-parameter-entity-ref sgml-parse-comment 111 79 sgml-error "XML forbids omitted tag minimization." 45 "XML forbids omitted tag minimization"] 3])
(defalias 'sgml-parse-modifier #[0 "g\300=\203 \301u\210\302\207g\303=\203 \301u\210\304\207g\305=\205  \301u\210\306\207" [43 1 sgml-make-+ 42 sgml-make-* 63 sgml-make-opt] 2])
(defalias 'sgml-check-primitive-content-token #[0 "\300\301\302!\206 \303\304!\262!\211\262\305\301\211BB\305\301\211BBAA\236\2043 \211ABAAB\241\266\266\266\202\207" [sgml-lookup-eltype nil sgml-parse-name sgml-parse-error "Name expected" normal-state] 10])
(defalias 'sgml-check-model-group #[0 "\302\211\2031 \303\302w\304U?\2067 \305\302w\304U?\2067 g\306=\203$ \307u\210\310\2027 g\311=\2057 \307u\210\310\2027 \312\302w\304U?\262\204  m\203E \313 \204  g\314=\203` `Tf\206R \304z\315=\203` \307u\210\316 \204  \317 \204  \302\211g\320=\203L\307u\210\321 C\302\211\302\211\203\246 \303\302w\304U?\206\254 \305\302w\304U?\206\254 g\306=\203\231 \307u\210\310\202\254 g\311=\205\254 \307u\210\310\202\254 \312\302w\304U?\262\204u m\203\272 \313 \204u g\314=\203\325 `Tf\206\307 \304z\315=\203\325 \307u\210\316 \204u \317 \204u g\322=\203\347 \307u\210\323\202g\324=\203\364 \307u\210\325\202g\326=\205\307u\210\203\327\330!\202\331\211\262\203)\203=\204\332\333!\210\211\262\321 C\244\262\202u g\334=\2035\307u\210\2029\335\336!\210\203C!\202E@\262\266\202\267g\337=\203d\307u\210\340\341!\203d\310\342 \262\202\267g\343=\203\263\307u\210\203u\327\344!\210\345 \210\346 \345 \210g\322=\203\211\307u\210\202\215\335\347!\210\345 \210\350 \210\345 \210g\351=\203\242\307u\210\202\246\335\352!\210\353\342 \"\262\310\210\202\267\346 \262\354 \262\211\203\305\211!\202\306\207" [sgml-xml-p sgml-used-pcdata nil " " 0 "	" 10 1 t 13 " 	\n" sgml-pop-entity 37 119 sgml-do-parameter-entity-ref sgml-parse-comment 40 sgml-check-model-group 44 sgml-reduce-\, 124 sgml-reduce-| 38 sgml-error "XML forbids AND connector" sgml-make-& sgml-parse-error "Mixed connectors" 41 sgml-delimiter-parse-error "GRPC" 35 sgml-check-token "PCDATA" sgml-make-pcdata 91 "XML forbids DATATAG" sgml-skip-ts sgml-check-primitive-content-token "SEQ" sgml-check-data-tag-pattern 93 "DTGC" sgml-make-conc sgml-parse-modifier] 8])
(defalias 'sgml-check-data-tag-pattern #[0 "g\300=\203: \301u\210\302 \210\303 \210\302 \210g\304=\203$ \301u\210\302 \210\303 \210\202 \302 \210g\305=\2033 \301u\210\202= \306\307!\210\202= \303 \210\302 \210g\310=\205K \301u\210\303 \207" [40 1 sgml-skip-ts sgml-check-parameter-literal 124 41 sgml-delimiter-parse-error "GRPC" 44] 2])
(defalias 'sgml-check-content-model #[0 "\300 \207" [sgml-check-model-group] 1])
(defalias 'sgml-check-content #[0 "\302\211\2031 \303\302w\304U?\2067 \305\302w\304U?\2067 g\306=\203$ \307u\210\310\2027 g\311=\2057 \307u\210\310\2027 \312\302w\304U?\262\204  m\203E \313 \204  g\314=\203` `Tf\206R \304z\315=\203` \307u\210\316 \204  \317 \204  g\320=\203n \321 \207\322\323\302\324!\206z \325\326!\262!!\211\327=\203\211 \310\202\276 \211\330=\203\232 	\203\276 \331\332!\210\202\276 \211\333=\203\253 	\203\276 \331\334!\210\202\276 \211\335=\204\276 \331\336	\203\273 \337\202\274 \340\"\210\211\207" [sgml-used-pcdata sgml-xml-p nil " " 0 "	" 10 1 t 13 " 	\n" sgml-pop-entity 37 119 sgml-do-parameter-entity-ref sgml-parse-comment 40 sgml-check-content-model intern sgml-check-case sgml-parse-name sgml-parse-error "Name expected" ANY CDATA sgml-error "XML forbids CDATA declared content" RCDATA "XML forbids RCDATA declared content" EMPTY "Exptected content model group or one of %s" "ANY or EMPTY" "ANY, CDATA, RCDATA or EMPTY"] 5])
#@13 

(fn TYPE)
(defalias 'sgml-parse-exception #[257 "\301\211\2031 \302\301w\303U?\2067 \304\301w\303U?\2067 g\305=\203$ \306u\210\307\2027 g\310=\2057 \306u\210\307\2027 \311\301w\303U?\262\204  m\203E \312 \204  g\313=\203` `Tf\206R \303z\314=\203` \306u\210\315 \204  \316 \204  \211g=\205{ \306u\210\203v \317\320!\207\321\322\323 \"\207" [sgml-xml-p nil " " 0 "	" 10 1 t 13 " 	\n" sgml-pop-entity 37 119 sgml-do-parameter-entity-ref sgml-parse-comment sgml-error "XML forbids inclusion and exclusion exceptions" mapcar sgml-lookup-eltype sgml-check-name-group] 4 (#$ . 17672)])
(defalias 'sgml-before-eltype-modification #[0 "\300\207" [nil] 1])
(defalias 'sgml-declare-element #[0 "\303 \304 \304 \305\306 \307\310!\307\311!\312 \210\203_ 	\203\" \313\314@\"\210\315@!\211\316\317	#\266\211\316\320#\266\211\211M\266\211\316\321#\266\211\322\323#\266\211\322\324#\266A\262\202 \nT\325\326\n\")\207" [sgml-used-pcdata sgml-debug sgml-no-elements sgml-check-element-type sgml-parse-opt nil sgml-check-content sgml-parse-exception 45 43 sgml-before-eltype-modification message "Defining element %s" sgml-lookup-eltype sgml-set-eltype-flag 1 2 4 sgml-maybe-put excludes includes sgml-lazy-message "Parsing doctype (%s elements)..."] 12])
(defalias 'sgml-declare-entity #[0 "\302\211\303\302\211\211g\304=\203\212 \305u\210\302\211\203@ \306\302w\307U?\206F \310\302w\307U?\206F g\311=\2033 \305u\210\312\202F g\313=\205F \305u\210\312\202F \314\302w\307U?\262\204 m\203T \315 \204 g\304=\203o `Tf\206a \307z\316=\203o \305u\210\317 \204 \320 \204 \312\321!\206~ \322\323!\262\262\324H\262\202\254 g\325=\203\231 \305u\210\326\327!\204\247 \312\321!\206\243 \322\323!\262\262\330H\262\302\211\203\335 \306\302w\307U?\206\343 \310\302w\307U?\206\343 g\311=\203\320 \305u\210\312\202\343 g\313=\205\343 \305u\210\312\202\343 \314\302w\307U?\262\204\254 m\203\361 \315 \204\254 g\304=\203\f`Tf\206\376 \307z\316=\203\f\305u\210\317 \204\254 \320 \204\254 \331 \262\211\203\230\302\211\203J\306\302w\307U?\206P\310\302w\307U?\206Pg\311=\203=\305u\210\312\202Pg\313=\205P\305u\210\312\202P\314\302w\307U?\262\204m\203^\315 \204g\304=\203y`Tf\206k\307z\316=\203y\305u\210\317 \204\320 \204\332 \211@\206\206\303\262\211A\333=\204\223\211A\262\210\211\202\200m\204~gz\316=\203~\334\335\302\321!\206\257\322\323!\262!!\302\211\203\344\306\302w\307U?\206\352\310\302w\307U?\206\352g\311=\203\327\305u\210\312\202\352g\313=\205\352\305u\210\312\202\352\314\302w\307U?\262\204\263m\203\370\315 \204\263g\304=\203`Tf\206\307z\316=\203\305u\210\317 \204\263\320 \204\263	\203*\211\336>\203*\337\340\341!\226\"\210\211\342>\2038\211\262\343 \202y\211\344=\203F\345\343 \346Q\202y\211\347=\203S\350\343 !\202y\211\351=\203`\352\343 !\202y\211\353=\203n\354\343 \355Q\202y\211\356=\205y\357\343 \346Q\262\202\200\343 \262\205\221\360%\207" [sgml-dtd-info sgml-xml-p nil text 37 1 " " 0 "	" 10 t 13 " 	\n" sgml-pop-entity 119 sgml-do-parameter-entity-ref sgml-parse-comment sgml-parse-name sgml-parse-error "Name expected" 2 35 sgml-check-token "DEFAULT" 3 sgml-parse-external sgml-parse-entity-type "" intern sgml-check-case (CDATA SDATA PI STARTTAG ENDTAG MS MD) sgml-error "XML forbids %s entities" symbol-name (CDATA SDATA) sgml-check-parameter-literal PI "<?" ">" STARTTAG sgml-start-tag-of ENDTAG sgml-end-tag-of MS "<![" "]]>" MD "<!" sgml-entity-declare] 12])
(defalias 'sgml-parse-entity-type #[0 "m?\205 gz\301=\205 \302\303`\304\305!\210`\"!\306\203z\307\310!!\262\2034 \311>\2034 \312\313\314!\226\"\210\315=\204z\316>\203u\306\211\203q \317\306w\320U?\206w \321\306w\320U?\206w g\322=\203d \323u\210\324\202w g\325=\205w \323u\210\324\202w \326\306w\320U?\262\204@ m\203\205 \327 \204@ g\330=\203\240 `Tf\206\222 \320z\301=\203\240 \323u\210\331 \204@ \332 \204@ m?\205\273 gz\301=\205\273 \302\303`\304\305!\210`\"!\262\306\211\203\356 \317\306w\320U?\206\364 \321\306w\320U?\206\364 g\322=\203\341 \323u\210\324\202\364 g\325=\205\364 \323u\210\324\202\364 \326\306w\320U?\262\204\275 m\203\327 \204\275 g\330=\203`Tf\206\320z\301=\203\323u\210\331 \204\275 \332 \204\275 g\333=\203z\323u\210\334 \210\306\211\203[\317\306w\320U\203a\321\306w\320U\203ag\322=\203O\323u\210\202ag\325=\203a\323u\210\202a\326\306w\320U\210\210g\335=\203n\323u\210\202z\336\337!\210\202z\312\340\"\210B\207" [sgml-xml-p 119 sgml-general-case buffer-substring-no-properties skip-syntax-forward "w_" nil intern sgml-check-case (SUBDOC CDATA SDATA) sgml-error "XML forbids %s entities" symbol-name SUBDOC (CDATA NDATA SDATA) " " 0 "	" 10 1 t 13 " 	\n" sgml-pop-entity 37 sgml-do-parameter-entity-ref sgml-parse-comment 91 sgml-parse-attribute-specification-list 93 sgml-delimiter-parse-error "DSC" "Illegal entity type: %s"] 7])
(defalias 'sgml-declare-attlist #[0 "g\301=\205} \302u\210\303\304!\205} \203 \305\306!\210\307\211\203H \310\307w\311U?\206N \312\307w\311U?\206N g\313=\203; \302u\210\314\202N g\315=\205N \302u\210\314\202N \316\307w\311U?\262\204 m\203\\ \317 \204 g\320=\203w `Tf\206i \311z\321=\203w \302u\210\322 \204 \323 \204 \314\324 \307\211\203\220 G\302V\203\220 \305\325!\210\326 \211\262\203\240 \211B\262\202\220 \237\262?\205\324 \327 \210\307:\203\321 @\262\330!\331\332\333\330!\332N	\"#\266A\262\202\256 \307\266\202\207" [sgml-xml-p 35 1 sgml-check-token "NOTATION" sgml-error "XML forbids data attribute declarations" nil " " 0 "	" 10 t 13 " 	\n" sgml-pop-entity 37 119 sgml-do-parameter-entity-ref sgml-parse-comment sgml-check-name-group "XML forbids name groups for an associated element type" sgml-parse-attribute-definition sgml-before-eltype-modification sgml-lookup-eltype put attlist sgml-merge-attlists] 13])
#@16 

(fn OLD NEW)
(defalias 'sgml-merge-attlists #[514 "\300!\237\262\211\301:\203% @\262\302@\"\204 \211B\262A\262\202 \266\237\207" [copy-sequence nil assoc] 7 (#$ . 23501)])
(defalias 'sgml-parse-attribute-definition #[0 "\300\211\2031 \301\300w\302U?\2067 \303\300w\302U?\2067 g\304=\203$ \305u\210\306\2027 g\307=\2057 \305u\210\306\2027 \310\300w\302U?\262\204  m\203E \311 \204  g\312=\203` `Tf\206R \302z\313=\203` \305u\210\314 \204  \315 \204  g\316=\205l \306?\205\202 \317\300\320!\206{ \321\322!\262\323 \324 #\207" [nil " " 0 "	" 10 1 t 13 " 	\n" sgml-pop-entity 37 119 sgml-do-parameter-entity-ref sgml-parse-comment 62 sgml-make-attdecl sgml-parse-name sgml-parse-error "Name expected" sgml-check-declared-value sgml-check-default-value] 4])
(defalias 'sgml-check-declared-value #[0 "\300\211\2031 \301\300w\302U?\2067 \303\300w\302U?\2067 g\304=\203$ \305u\210\306\2027 g\307=\2057 \305u\210\306\2027 \310\300w\302U?\262\204  m\203E \311 \204  g\312=\203` `Tf\206R \302z\313=\203` \305u\210\314 \204  \315 \204  \316\300g\317=\204\350 \320\321\300\322!\206y \323\324!\262!!\262\325!\210\300\211\203\264 \301\300w\302U?\206\272 \303\300w\302U?\206\272 g\304=\203\247 \305u\210\306\202\272 g\307=\205\272 \305u\210\306\202\272 \310\300w\302U?\262\204\203 m\203\310 \311 \204\203 g\312=\203\343 `Tf\206\325 \302z\313=\203\343 \305u\210\314 \204\203 \315 \204\203 \326>\203\362 \327 \262\330\"\207" [nil " " 0 "	" 10 1 t 13 " 	\n" sgml-pop-entity 37 119 sgml-do-parameter-entity-ref sgml-parse-comment name-token-group 40 intern sgml-check-case sgml-parse-name sgml-parse-error "Name expected" sgml-validate-declared-value (name-token-group NOTATION) sgml-check-nametoken-group sgml-make-declared-value] 7])
#@13 

(fn TYPE)
(defalias 'sgml-validate-declared-value #[257 "\211\301>\204 \302\303\"\210\205 \211\304>\205 \302\305\306!\226\"\207" [sgml-xml-p (CDATA ENTITY ENTITIES ID IDREF IDREFS NAME NAMES NMTOKEN NMTOKENS NOTATION NUMBER NUMBERS NUTOKEN NUTOKENS) sgml-error "Invalid attribute declared value: %s" (NAME NAMES NUMBER NUMBERS NUTOKEN NUTOKENS) "XML forbids %s attributes" symbol-name] 5 (#$ . 25255)])
(defalias 'sgml-check-default-value #[0 "\300\211\2031 \301\300w\302U?\2067 \303\300w\302U?\2067 g\304=\203$ \305u\210\306\2027 g\307=\2057 \305u\210\306\2027 \310\300w\302U?\262\204  m\203E \311 \204  g\312=\203` `Tf\206R \302z\313=\203` \305u\210\314 \204  \315 \204  g\316=\205o \305u\210\306\211\205\203 \317\320\300\321!\206 \322\323!\262!!\203\213 \324!\210\300\211\203\274 \301\300w\302U?\206\302 \303\300w\302U?\206\302 g\304=\203\257 \305u\210\306\202\302 g\307=\205\302 \305u\210\306\202\302 \310\300w\302U?\262\204\213 m\203\320 \311 \204\213 g\312=\203\353 `Tf\206\335 \302z\313=\203\353 \305u\210\314 \204\213 \315 \204\213 \325\203\374 \326=\205\376 \327 \"\207" [nil " " 0 "	" 10 1 t 13 " 	\n" sgml-pop-entity 37 119 sgml-do-parameter-entity-ref sgml-parse-comment 35 intern sgml-check-case sgml-parse-name sgml-parse-error "Name expected" sgml-validate-default-value-rn sgml-make-default-value FIXED sgml-check-attribute-value-specification] 6])
#@11 

(fn RN)
(defalias 'sgml-validate-default-value-rn #[257 "\211\301>\204 \302\303\304!\226\"\210\205 \211\305>\205 \302\306\304!\226\"\207" [sgml-xml-p (REQUIRED FIXED CURRENT CONREF IMPLIED) sgml-error "Unknown reserved name: %s" symbol-name (CURRENT CONREF) "XML forbids #%s attributes"] 5 (#$ . 26645)])
(defalias 'sgml-declare-shortref #[0 "\301\302!\206\n \303\304!\262\301\211\211\301\211\203@ \305\301w\306U?\206F \307\301w\306U?\206F g\310=\2033 \311u\210\312\202F g\313=\205F \311u\210\312\202F \314\301w\306U?\262\204 m\203T \315 \204 g\316=\203o `Tf\206a \306z\317=\203o \311u\210\320 \204 \321 \204 \322\323!\211\262\203\372 \301\211\203\256 \305\301w\306U?\206\264 \307\301w\306U?\206\264 g\310=\203\241 \311u\210\312\202\264 g\313=\205\264 \311u\210\312\202\264 \314\301w\306U?\262\204} m\203\302 \315 \204} g\316=\203\335 `Tf\206\317 \306z\317=\203\335 \311u\210\320 \204} \321 \204} \312\302!\206\354 \303\304!\262\262BB\262\202 \324\325H\326!#\207" [sgml-dtd-info nil sgml-parse-name sgml-parse-error "Name expected" " " 0 "	" 10 1 t 13 " 	\n" sgml-pop-entity 37 119 sgml-do-parameter-entity-ref sgml-parse-comment sgml-parse-parameter-literal dofunchar sgml-add-shortref-map 4 sgml-make-shortmap] 9])
#@16 

(fn MAPNAME)
(defalias 'sgml-do-usemap-element #[257 "\301 \210\302 \303:\203+ @\262\304\"\305\306\204 \307\202! #\266A\262\202 \303\207" [sgml-dtd-info sgml-before-eltype-modification sgml-parse-name-group nil sgml-lookup-eltype put shortmap empty] 8 (#$ . 27898)])
(defalias 'sgml-check-dtd-subset #[0 "\303`m\203 =\203 \304\202\261 m\203 \305 \204 \304\211\203N \306\304w\307U?\206T \310\304w\307U?\206T g\311=\203A \312u\210\303\202T g\313=\205T \312u\210\303\202T \314\304w\307U?\262\204 g\315=\203t `Tf\206f \307z\316=\203t \312u\210\317 \204 \320g\321=\205\211 `Tf\322=\205\211 \323u\210\324!\262\204 \325\326!\204 g\327=\205\261 `Tf\327=\205\261 \323`\\f\330=\205\261 \331u\210\202 )\207" [sgml-current-eref sgml-parsing-dtd sgml-markup-start t nil sgml-pop-entity " " 0 "	" 10 1 13 " 	\n" 37 119 sgml-do-parameter-entity-ref in-declaration 60 63 2 sgml-do-processing-instruction sgml-parse-markup-declaration dtd 93 62 3] 5])
(defvar sgml-translate-table nil)
#@13 

(fn NODE)
(defalias 'sgml-translate-node #[257 "\211\247\203	 \301\302!\210\211\236\211\204 GB\262C\244\210\211A\207" [sgml-translate-table cl--assertion-failed (not (numberp node))] 4 (#$ . 28909)])
#@14 

(fn MOVES)
(defalias 'sgml-translate-moves #[257 "\211\205 \300@A!\210\211A\262\202  \207" [sgml-translate-node] 3 (#$ . 29124)])
#@14 

(fn MODEL)
(defalias 'sgml-translate-model #[257 "\211\301BC\211\211\2034 \211@@@\302=\203& \303@@A@!\210\303@@AA!\210\202- \304@@@!\210\211A\262\202 )\207" [sgml-translate-table 0 normal-state sgml-translate-moves sgml-translate-node] 5 (#$ . 29265)])
(defvar sgml-code-token-numbers nil)
(defvar sgml-code-xlate nil)
#@13 

(fn NODE)
(defalias 'sgml-code-xlate #[257 "\211\236A\207" [sgml-code-xlate] 3 (#$ . 29599)])
(put 'sgml-code-xlate 'byte-optimizer 'byte-compile-inline-expand)
#@12 

(fn NUM)
(defalias 'sgml-code-number #[257 "\211V\203 \301\302Z\303\"\304#\305Z\306\"\261\207\211c\207" [sgml-max-single-octet-number + lsh -8 1 logand 255] 5 (#$ . 29769)])
#@14 

(fn TOKEN)
(defalias 'sgml-code-token-number #[257 "\211\236\211\204 GB\211\262C\244\211A\207" [sgml-code-token-numbers] 5 (#$ . 29959)])
#@14 

(fn TOKEN)
(defalias 'sgml-code-token #[257 "\300\301!!\207" [sgml-code-number sgml-code-token-number] 4 (#$ . 30112)])
#@174 Produce the binary coding of a counted sequence from a list.
Syntax: (var seq) &body forms
FORMS should produce the binary coding of element in VAR.

(fn LOOP-C &rest BODY)
(defalias 'sgml-code-sequence '(macro . #[385 "@A@\300\301DC\302\303\304\305\301\306BBBBBBF\207" [let seq (sgml-code-number (length seq)) cl-loop for in do] 14 (#$ . 30242)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put sgml-code-sequence lisp-indent-hook 1 edbug-forms-hook (sexp &rest form)] 4)
#@13 

(fn SEXP)
(defalias 'sgml-code-sexp #[257 "p\301!\210\302 )\207" [standard-output prin1 terpri] 3 (#$ . 30742)])
#@10 

(fn L)
(defalias 'sgml-code-tokens #[257 "\211\300G!\210\211\301:\203 @\262\302!\210A\262\202 \301\266\202\207" [sgml-code-number nil sgml-code-token] 6 (#$ . 30865)])
#@10 

(fn M)
(defalias 'sgml-code-move #[257 "\301@!\210\211A\211\236A\262c\207" [sgml-code-xlate sgml-code-token] 4 (#$ . 31050)])
(put 'sgml-code-move 'byte-optimizer 'byte-compile-inline-expand)
#@10 

(fn M)
(defalias 'sgml-code-model #[257 "\301!\211\302G!\210\211\303:\203\306 @\262\211@\262\211@\304=\203\223 \211A@G\305W\2032 \211AAG\306W\2046 \307\310!\210\211A@\302G!\210\211\303:\203a @\262\211\311@!\210\211A\211\236A\262c\266A\262\202@ \266\211AA\302G!\210\211\303:\203\216 @\262\211\311@!\210\211A\211\236A\262c\266A\262\202m \266\202\277 \305c\210\211@\211\236A\262c\210\211A\302G!\210\211\303:\203\275 @\262\312!\210A\262\202\251 \266A\262\202\f \303\266\202\262)\207" [sgml-code-xlate sgml-translate-model sgml-code-number nil normal-state 255 256 cl--assertion-failed (and (< (length (sgml-state-opts s)) 255) (< (length (sgml-state-reqs s)) 256)) sgml-code-token sgml-code-model] 12 (#$ . 31253)])
#@11 

(fn ET)
(defalias 'sgml-code-element #[257 "\304\305!!\210\211\306!\262\204 \307c\207\211Jc\210\310!\211=\203% \311c\210\202f \211	=\2031 \312c\210\202f \211\n=\203= \313c\210\202f \211=\203I \314c\210\202f \211\204S \315c\210\202f \211\211:\262\204_ \316\317!\210\307c\210\320!\210\210\321\322N!\210\321\323N!\207" [sgml-cdata sgml-rcdata sgml-empty sgml-any sgml-code-sexp sgml-eltype-all-miscdata fboundp 128 sgml-eltype-model 0 1 2 3 4 cl--assertion-failed (sgml-model-group-p c) sgml-code-model sgml-code-tokens includes excludes] 4 (#$ . 32015)])
#@81 Produce the binary coding of the current DTD into the current buffer.

(fn DTD)
(defalias 'sgml-code-dtd #[257 "\302\303H!\210\302\304H!\210\302\305H!\210\305\306\211\307	!\210\310\311\306\312$\210G\262A\313G!\210\211\306:\203H @\262\302@\314!\262!\210A\262\202. \266A\313G!\210\211\306:\203w @\262T\262\315@!\210\316\317\320_\245\"\210A\262\202S \266\302\321H!\210\302\322H!\210\302\323H!\207" [sgml-code-token-numbers sgml-pcdata-token sgml-code-sexp 6 2 0 nil sgml-code-token-number sgml-map-eltypes #[257 "\300\211\262!\207" [sgml-code-token-number] 4 "\n\n(fn ET)"] t sgml-code-number symbol-name sgml-code-element sgml-lazy-message "Saving DTD %d%% done" 100 3 4 5] 10 (#$ . 32587)])
#@41 Save the parsed dtd on FILE.

(fn FILE)
(defalias 'sgml-save-dtd #[257 "\304!\262\211\305 \232\203 \306\307!\210\310 \210\311\312\313\314\313F!\210\315\"\210\316 \210\304	!\317!\232\2033 \320!\2024 \211\211\211\207" [sgml-dtd-info default-directory sgml-default-dtd-file sgml-loaded-dtd expand-file-name buffer-file-name error "Would clobber current file" sgml-need-dtd sgml-push-to-entity "#SAVE" nil "" sgml-write-dtd sgml-pop-entity file-name-directory file-name-nondirectory] 6 (#$ . 33321) (byte-code "\301\206 \300 !\302!\303!\304\305\306%C\207" [sgml-default-dtd-file expand-file-name file-name-directory file-name-nondirectory read-file-name "Save DTD in: " nil] 9)])
#@106 Save the parsed DTD in FILE.
Construct the binary coded DTD (bdtd) in the current buffer.

(fn DTD FILE)
(defalias 'sgml-write-dtd #[514 "\302\303!\210\304\305 \306\307\261\210\310\311!\210)\312\313ed#)\207" [print-escape-multibyte coding-system-for-write sgml-set-buffer-multibyte nil ";;; This file was created by psgml on " current-time-string " -*-coding:binary-*-\n" "(sgml-saved-dtd-version 7)\n" t sgml-code-dtd no-conversion write-region] 6 (#$ . 34020)])
(provide 'psgml-dtd)