| Current Path : /usr/share/emacs/24.3/lisp/progmodes/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/progmodes/ebnf-dtd.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:23 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/progmodes/ebnf-dtd.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'ebnf-otz)
#@44 Value returned by `ebnf-dtd-lex' function.
(defvar ebnf-dtd-lex nil (#$ . 581))
#@13 DTD parser.
(defalias 'ebnf-dtd-parser #[(start) " ZT S`\306\211\211\211 b\210\307 \211\310=\203% \311\312!\210\313\f!\211@\314=\204\224 \fA\f@\f\n=\204q \315`Z\316_\245 \317\320\"\"\210*\321\f!\211A\f@ \2036 \322 !\2046
B\2026 \n\310=\204\202 \307 \323=\204\202 \311\324!\210\315\325 \317\320\"\"\210*b\210
.\207" [ebnf-limit start the-end rule token rule-list nil ebnf-dtd-lex end-of-input error "Empty DTD file" ebnf-dtd-prolog end-prolog "Parsing...%s%%" 100.0 message format ebnf-dtd-intsubset ebnf-add-empty-rule-list end-decl "Missing end of DOCTYPE" 100.0 origin bias total value format-str ebnf-message-float] 8 (#$ . 667)])
(defalias 'ebnf-dtd-prolog #[(token) "\302=\203, \303\230\203, \304\301 \305\306\307$\310\311\312\313$\310\314\315\316$\211\317=\204, \320\321!\210\322\301 !\211\323=\203R \301 \324=\204B \320\325!\210\326 \327=\203N \301 \202O \330\331B\207\332>\203\\ \333B\207\334\207" [token ebnf-dtd-lex begin-pi "xml" ebnf-dtd-attribute version-attr "^1\\.0$" "XML version" ebnf-dtd-attribute-optional encoding-attr "^[A-Za-z][-A-Za-z0-9._]*$" "XML encoding" standalone-attr "^yes|no$" "XML standalone" end-pi error "Missing end of XML processing instruction" ebnf-dtd-pi doctype-decl name "Document type name is missing" ebnf-dtd-externalid begin-subset end-prolog end-subset (element-decl attlist-decl entity-decl notation-decl) end-of-input (end-prolog . end-subset)] 6])
(defalias 'ebnf-dtd-attribute #[(token attr match attr-name) " =\204 \304\305\n\"\210\306 \n$\207" [token attr attr-name match error "%s attribute is missing" ebnf-dtd-attribute-optional] 5])
(defalias 'ebnf-dtd-attribute-optional #[(token attr match attr-name) " =\203# \303 \305=\203 \303 \306=\203 \307\n \"\204 \310\311\f\"\210\303 \207" [token attr match ebnf-dtd-lex attr-name equal string string-match error "XML %s attribute is invalid"] 3])
(defalias 'ebnf-dtd-externalid #[(&optional token) "\204 \302 \303=\203 \304 \202- \305=\203\" \306 \210\304 \202- \203, \307\310!\202- )\207" [token must-have ebnf-dtd-lex system ebnf-dtd-systemliteral public ebnf-dtd-pubidliteral error "Missing `SYSTEM' or `PUBLIC' in external id"] 2])
(defalias 'ebnf-dtd-systemliteral #[nil "\300 \301=\204 \302\303!\210\300 \207" [ebnf-dtd-lex string error "System identifier is invalid"] 2])
(defalias 'ebnf-dtd-pubidliteral #[nil "\300 \301=\203 \302\303\"\206 \304\305!\207" [ebnf-dtd-lex string string-match "^[-'()+,./:=?;!*#@$_%\n
a-zA-Z0-9]*$" error "Public identifier is invalid"] 3])
(defalias 'ebnf-dtd-pi #[(token) "\302=\203 \303\304 \"\203 \305\306!\210\301 \307=\203 \301 \211\202 \207" [token ebnf-dtd-lex begin-pi string-match "^[xX][mM][lL]$" error "Processing instruction name can not be `XML'" end-pi] 4])
(defalias 'ebnf-dtd-intsubset #[(token) "\301=\203\n \302!\303>\203 \304B\207\305=\203 \306 \304B\207\307=\203( \310 \207\311=\2031 \312 \207\313=\203: \314 \207\315=\203C \316 \207\317\320!\207" [token begin-pi ebnf-dtd-pi (end-subset end-of-input) nil pe-ref ebnf-dtd-lex element-decl ebnf-dtd-elementdecl attlist-decl ebnf-dtd-attlistdecl entity-decl ebnf-dtd-entitydecl notation-decl ebnf-dtd-notationdecl error "Invalid DOCTYPE element"] 2])
(defalias 'ebnf-dtd-elementdecl #[nil "\306\211\211 \306\305 \303=\204 \307\310!\210
\305 \211\311>\203. \312
! \305 )B\202K \n\313=\203H \305 \211\314=\203B \315 \202K \316\n!\202K \307\317!\211@\320=\204W \307\321!\210\322 !\210\305 \323 A\f#,B\207" [ebnf-action body token name action ebnf-dtd-lex nil error "Invalid ELEMENT name" (empty any) ebnf-make-terminal begin-group pcdata ebnf-dtd-mixed ebnf-dtd-children "Invalid ELEMENT content" end-decl "Missing `>' in ELEMENT declaration" ebnf-eps-add-production ebnf-make-production term] 6])
(defalias 'ebnf-dtd-mixed #[nil "\304!\305B\300 \211\306=\n\306=\203) \300 \307=\204 \310\311!\210 B\300 \211\202 \n\312=\2043 \310\313!\210 \203B \300 \314=\204B \310\315!\210\316 \300 \305B\"+\207" [ebnf-dtd-lex alt token has-alternative ebnf-make-terminal nil alternative name error "Invalid name" end-group "Missing `)'" zero-or-more "Missing `*'" ebnf-token-alternative] 5])
(defalias 'ebnf-dtd-children #[(token) "\301\302!!\207" [token ebnf-dtd-operators ebnf-dtd-choice-seq] 3])
(defalias 'ebnf-dtd-choice-seq #[(token) "\302!\303@\304=\203* @\304=\203\" A B\302\305 !\211\202 \306 \"\202S @\307=\203P @\307=\203F A B\302\305 !\211\2022 \310A B!\202S A@\311=\204^ \312\313!\210 )\207" [token elist ebnf-dtd-cp nil alternative ebnf-dtd-lex ebnf-token-alternative comma ebnf-token-sequence end-group error "Missing `)' in ELEMENT content"] 4])
(defalias 'ebnf-dtd-cp #[(token) "\302\303=\203
\304 !\202 \305=\203 \306\301 !\202 \307\310!!\207" [token ebnf-dtd-lex ebnf-dtd-operators name ebnf-make-terminal begin-group ebnf-dtd-choice-seq error "Invalid element"] 3])
(defalias 'ebnf-dtd-operators #[(elm) "\302 \211\303=\203 \302 \304 !B\2023 \305=\203! \302 \306 !B\2023 \307=\2030 \302 \310 !B\2023 B)\207" [token elm ebnf-dtd-lex optional ebnf-token-optional zero-or-more ebnf-make-zero-or-more one-or-more ebnf-make-one-or-more] 4])
(defalias 'ebnf-dtd-attlistdecl #[nil "\301 \302=\204 \303\304!\210\305\301 \211\302=\203p \301 \211\306=\2032 \301 \307=\204* \303\310!\210\311\312\313\"\210\202J \307=\203@ \311\314\315\"\210\202J \316>\204J \303\317!\210\301 \211\320>\204
\321=\203\\ \301 \322=\203i \323\324 \"\204
\303\325!\210\202
\326=\204z \303\327!\210\301 )\305B\207" [token ebnf-dtd-lex name error "Invalid ATTLIST name" nil notation begin-group "Missing `(' in NOTATION type in ATTLIST declaration" ebnf-dtd-namelist "NOTATION" (name) "enumeration" (name name-char) (cdata id idref idrefs entity entities nmtoken nmtokens) "Invalid type in ATTLIST declaration" (required implied) fixed string string-match "^\\(&\\([A-Za-z_:][-A-Za-z0-9._:]*\\|#\\(x[0-9a-fA-F]+\\|[0-9]+\\)\\);\\|[^<&]\\)*$" "Invalid default value in ATTLIST declaration" end-decl "Missing `>' in end of ATTLIST"] 4])
(defalias 'ebnf-dtd-namelist #[(type name-list) "\303\304 >\204 \305\306\n\"\210\304 \211\307=\204 \310=\206! \305\311\n\")\207" [token name-list type nil ebnf-dtd-lex error "Invalid name in %s type in ATTLIST declaration" alternative end-group "Missing `)' in %s type in ATTLIST declaration"] 3])
(defalias 'ebnf-dtd-entitydecl #[nil "\302 \211\303=\211\203 \302 \304=\204 \305\306!\210\302 \211\307=\2035 \310\311\n\"\203. \302 \202Q \305\312!\210\202Q \313! \204Q \314=\203Q \302 \304=\204N \305\315!\210\302 \316=\204[ \305\317!\210\302 *\320B\207" [token pedecl ebnf-dtd-lex percent name error "Invalid name of ENTITY" string string-match "^\\(%[A-Za-z_:][-A-Za-z0-9._:]*;\\|&\\([A-Za-z_:][-A-Za-z0-9._:]*\\|#\\(x[0-9a-fA-F]+\\|[0-9]+\\)\\);\\|[^%&]\\)*$" "Invalid ENTITY definition" ebnf-dtd-externalid ndata "Invalid NDATA name" end-decl "Missing `>' in end of ENTITY" nil] 4])
(defalias 'ebnf-dtd-notationdecl #[nil "\300 \301=\204 \302\303!\210\304 \305=\204 \302\306!\210\300 \307B\207" [ebnf-dtd-lex name error "Invalid name NOTATION" ebnf-dtd-externalid-or-publicid end-decl "Missing `>' in end of NOTATION" nil] 2])
(defalias 'ebnf-dtd-externalid-or-publicid #[nil "\301 \211\302=\203 \303 \202* \304=\203' \305 \210\301 \211\306=\203# \301 \202* \307\310!)\207" [token ebnf-dtd-lex system ebnf-dtd-systemliteral public ebnf-dtd-pubidliteral string error "Missing `SYSTEM' or `PUBLIC'"] 3])
#@51 Vector used to map characters to a lexical token.
(defconst ebnf-dtd-token-table (make-vector 256 'error) (#$ . 8186))
#@30 Initialize EBNF token table.
(defalias 'ebnf-dtd-initialize #[nil "\302\211\303W\203 \304I\210T\211\202 \305\211\306W\203( \307I\210T\211\202 \310\211\311W\203< \307I\210T\211\202+ \312\211\313W\203P \307I\210T\211\202? \314\307I\210 \303\307I\210 \315\304I\210 \316\304I\210 \317\320I\210 \321\320I\210 \322\320I\210 \323\320I\210 \324\325I\210 \326\327I\210 \330\331I\210 \332\333I\210 \334\335I\210 \336\337I\210 \340\341I\210 \342\343I\210 \344\345I\210 \346\347I\210 \350\351I\210 \352\353I\210 \354\355I\210 \356\357I\210 \360\361I\210 \306\362I\210 \363\364I)\207" [char ebnf-dtd-token-table 48 58 name-char 65 91 name 97 123 160 256 95 46 45 10 space 13 9 32 61 equal 44 comma 42 zero-or-more 43 one-or-more 124 alternative 37 percent 38 ampersand 35 hash 63 interrogation 34 double-quote 39 single-quote 60 less-than 62 end-decl 40 begin-group 41 end-group begin-subset 93 end-subset] 4 (#$ . 8311)])
(defconst ebnf-dtd-name-chars (ebnf-range-regexp "-._:0-9A-Za-z" 160 255))
(defconst ebnf-dtd-decl-alist '(("ATTLIST" . attlist-decl) ("DOCTYPE" . doctype-decl) ("ELEMENT" . element-decl) ("ENTITY" . entity-decl) ("NOTATION" . notation-decl)))
(defconst ebnf-dtd-element-alist '(("#FIXED" . fixed) ("#IMPLIED" . implied) ("#PCDATA" . pcdata) ("#REQUIRED" . required)))
(defconst ebnf-dtd-name-alist '(("ANY" . any) ("CDATA" . cdata) ("EMPTY" . empty) ("ENTITIES" . entities) ("ENTITY" . entity) ("ID" . id) ("IDREF" . idref) ("IDREFS" . idrefs) ("NDATA" . ndata) ("NMTOKEN" . nmtoken) ("NMTOKENS" . nmtokens) ("NOTATION" . notation) ("PUBLIC" . public) ("SYSTEM" . system) ("encoding" . encoding-attr) ("standalone" . standalone-attr) ("version" . version-attr)))
#@100 Lexical analyzer for DTD.
Return a lexical token.
See documentation for variable `ebnf-dtd-lex'.
(defalias 'ebnf-dtd-lex #[nil "`Y\203 \306\207\307g\310V\203 \311\202> \ngH\211\312=\203) \313w\210`W\202; \314=\203: \315\316!\203: \317 \202; \307\204\n `Y\203H \306\202W \311=\203T \311\320!\202W \314=\203\231 \307u\210g\211\321U\203p \307u\210\322\f!\323\202\225 \324U\203\221 \307u\210\322\f! 6\32567\"A\206\215 \311\3266\")\202\225 \311\327 \")\202W \330>\203\260 \322\f!\325
8\"A\206W \202W \331=\203\312 \307u\210g\332U\204\303 \333\202W\307u\210\334\202W \335=\203\351 \307u\210\336\322\f!P\325
9\"A\206W\311\337
\"\202W \340=\203\367 \341\342!\343\202W \344=\203\341\345!\343\202W \346=\203 \307u\210\315\347!\203\346\202W\350\351!\352\202W \353=\203S\307u\210g\354U\2047\350\355!\356\202W\307u\210g\357U\204G\360\361\362\"\202N\307u\210\360\363\364\"\365\202W\307u\210 )\207" [ebnf-limit token ebnf-dtd-token-table char ebnf-dtd-name-chars ebnf-dtd-lex end-of-input nil 255 error space " \n
" less-than looking-at "<!--" ebnf-dtd-skip-comment "Invalid character" 63 ebnf-buffer-substring begin-pi 33 assoc "Invalid declaration name `%s'" "Invalid declaration `<%c'" (name name-char) interrogation 62 optional end-pi hash "#" "Invalid element `%s'" double-quote ebnf-dtd-string 34 string single-quote 39 percent "[ \n
]" ebnf-dtd-name-ref "%" pe-ref ampersand 35 "&" entity-ref 120 ebnf-dtd-char-ref "&#" "0-9" "&#x" "0-9a-fA-F" char-ref decl ebnf-dtd-decl-alist ebnf-dtd-name-alist ebnf-dtd-element-alist] 4 (#$ . 10016)])
(defalias 'ebnf-dtd-name-ref #[(start) "\302 \"\207" [start ebnf-dtd-name-chars ebnf-dtd-char-ref] 3])
(defalias 'ebnf-dtd-char-ref #[(start chars) "\303!g\304U\204 \305\306\n g$\210\307u\210\310\311\n #)\207" [chars char start ebnf-buffer-substring 59 error "Invalid element `%s%s%c'" nil format "%s%s;"] 5])
(defconst ebnf-dtd-double-string-chars (ebnf-range-regexp " -!#-~" 160 255))
(defconst ebnf-dtd-single-string-chars (ebnf-range-regexp " -&(-~" 160 255))
(defalias 'ebnf-dtd-string #[(delim) "\304\305u\210`\306U\203 \202 \n w\210gU\204 \307\310\"\210`\305u\210\"\207" [delim ebnf-dtd-double-string-chars ebnf-dtd-single-string-chars ebnf-limit buffer-substring-no-properties nil 34 error "Missing string delimiter `%c'"] 5])
(defconst ebnf-dtd-comment-chars (ebnf-range-regexp "^- - \f- " 127 159))
(defconst ebnf-dtd-filename-chars (ebnf-range-regexp "^- - " 127 159))
(defalias 'ebnf-dtd-skip-comment #[nil "\305u\210\203 g\306U\203 \307\310 !\210\202O \203' g\311U\203' \312\310 !\210\202O \2039 g\313U\2039 \314\310 !\210\202O \203K g\315U\203K \316\310 !\210\202O gH \fw\210`\fW\203f \317\320!\204f \321\fw\210\202O `\fY\203n \322\207\317\320!\203y \323u\210\324\207\325\326!\207" [ebnf-eps-executing ebnf-comment-table ebnf-action ebnf-dtd-comment-chars ebnf-limit 4 91 ebnf-eps-add-context ebnf-dtd-eps-filename 93 ebnf-eps-remove-context 72 ebnf-eps-header-comment 70 ebnf-eps-footer-comment looking-at "-->" "-" nil 3 t error "Invalid character"] 2])
(defalias 'ebnf-dtd-eps-filename #[nil "\303u\210\303\211\304 !P`\nW\203' g\305U\203' \306\307!\204' \304\310!P\211\202 )\207" [fname ebnf-dtd-filename-chars ebnf-limit nil ebnf-buffer-substring 45 looking-at "-->" "-"] 4])
(provide 'ebnf-dtd)