HOME

Mini Shell 1.0
DIR:/proc/self/root/proc/thread-self/root/usr/share/emacs/26.1/lisp/progmodes/
Current File : //proc/self/root/proc/thread-self/root/usr/share/emacs/26.1/lisp/progmodes/ebnf-dtd.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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 (#$ . 428))
#@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 (#$ . 514)])
(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=\203FA	B\302\305 !\211\2022\310A	B!\202SA@\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\267\202\304	!\202\305\301 !\202\306\307!!\207" [token ebnf-dtd-lex ebnf-dtd-operators #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (name 7 begin-group 13)) ebnf-make-terminal ebnf-dtd-choice-seq error "Invalid element"] 3])
(defalias 'ebnf-dtd-operators #[(elm) "\302 \211\303\267\202$\302 \304	!B\202'\302 \305	!B\202'\302 \306	!B\202'	B)\207" [token elm ebnf-dtd-lex #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (optional 9 zero-or-more 18 one-or-more 27)) ebnf-token-optional ebnf-make-zero-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\267\202!\303 \202$\304 \210\301 \211\305=\203\301 \202$\306\307!)\207" [token ebnf-dtd-lex #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (system 9 public 14)) ebnf-dtd-systemliteral 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) (#$ . 8276))
#@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 (#$ . 8401)])
(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 (#$ . 10106)])
(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\nw\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\203g\306U\203\307\310 !\210\202O\203'g\311U\203'\312\310 !\210\202O\2039g\313U\2039\314\310 !\210\202O\203Kg\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)