Gecko [ 122.154.134.11 ]

Name	Size	Permission
ada-mode.elc	107.46 KB	-rw-r--r--
ada-prj.elc	17.96 KB	-rw-r--r--
ada-stmt.elc	36.03 KB	-rw-r--r--
ada-xref.elc	54.99 KB	-rw-r--r--
antlr-mode.elc	77.63 KB	-rw-r--r--
asm-mode.elc	6.08 KB	-rw-r--r--
autoconf.elc	3.37 KB	-rw-r--r--
bug-reference.elc	5.83 KB	-rw-r--r--
cap-words.elc	3.54 KB	-rw-r--r--
cc-align.elc	35.43 KB	-rw-r--r--
cc-awk.elc	20.23 KB	-rw-r--r--
cc-bytecomp.elc	10.45 KB	-rw-r--r--
cc-cmds.elc	92.26 KB	-rw-r--r--
cc-compat.elc	2.97 KB	-rw-r--r--
cc-defs.elc	46.7 KB	-rw-r--r--
cc-engine.elc	143.05 KB	-rw-r--r--
cc-fonts.elc	140.72 KB	-rw-r--r--
cc-langs.elc	70.29 KB	-rw-r--r--
cc-menus.elc	7.32 KB	-rw-r--r--
cc-mode.elc	144.75 KB	-rw-r--r--
cc-styles.elc	16.11 KB	-rw-r--r--
cc-subword.elc	6.99 KB	-rw-r--r--
cc-vars.elc	71.07 KB	-rw-r--r--
cfengine.elc	8.09 KB	-rw-r--r--
cmacexp.elc	6.58 KB	-rw-r--r--
compile.elc	69.45 KB	-rw-r--r--
cperl-mode.elc	215.39 KB	-rw-r--r--
cpp.elc	21.52 KB	-rw-r--r--
cwarn.elc	12.8 KB	-rw-r--r--
dcl-mode.elc	49.31 KB	-rw-r--r--
delphi.elc	50.03 KB	-rw-r--r--
ebnf-abn.elc	7.39 KB	-rw-r--r--
ebnf-bnf.elc	7.99 KB	-rw-r--r--
ebnf-dtd.elc	13.82 KB	-rw-r--r--
ebnf-ebx.elc	8.77 KB	-rw-r--r--
ebnf-iso.elc	8.14 KB	-rw-r--r--
ebnf-otz.elc	8.51 KB	-rw-r--r--
ebnf-yac.elc	7.53 KB	-rw-r--r--
ebnf2ps.elc	121.25 KB	-rw-r--r--
ebrowse.elc	202.93 KB	-rw-r--r--
etags.elc	54.14 KB	-rw-r--r--
executable.elc	7.6 KB	-rw-r--r--
f90.elc	82.59 KB	-rw-r--r--
flymake.elc	61.25 KB	-rw-r--r--
fortran.elc	60.13 KB	-rw-r--r--
gdb-ui.elc	138.61 KB	-rw-r--r--
glasses.elc	10.15 KB	-rw-r--r--
grep.elc	27.75 KB	-rw-r--r--
gud.elc	93.94 KB	-rw-r--r--
hideif.elc	26.67 KB	-rw-r--r--
hideshow.elc	24.54 KB	-rw-r--r--
icon.elc	16.23 KB	-rw-r--r--
idlw-complete-structtag.elc	4.75 KB	-rw-r--r--
idlw-help.elc	35.31 KB	-rw-r--r--
idlw-shell.elc	134.39 KB	-rw-r--r--
idlw-toolbar.elc	28.34 KB	-rw-r--r--
idlwave.elc	254.7 KB	-rw-r--r--
inf-lisp.elc	18.43 KB	-rw-r--r--
ld-script.elc	4.91 KB	-rw-r--r--
m4-mode.elc	4.91 KB	-rw-r--r--
make-mode.elc	58.79 KB	-rw-r--r--
mantemp.elc	3.77 KB	-rw-r--r--
meta-mode.elc	27.42 KB	-rw-r--r--
mixal-mode.elc	35.32 KB	-rw-r--r--
modula2.elc	14.23 KB	-rw-r--r--
octave-inf.elc	11.87 KB	-rw-r--r--
octave-mod.elc	44.6 KB	-rw-r--r--
pascal.elc	40.31 KB	-rw-r--r--
perl-mode.elc	22.42 KB	-rw-r--r--
prolog.elc	12.7 KB	-rw-r--r--
ps-mode.elc	33.38 KB	-rw-r--r--
python.elc	86.23 KB	-rw-r--r--
ruby-mode.elc	34.59 KB	-rw-r--r--
scheme.elc	15.94 KB	-rw-r--r--
sh-script.elc	94.73 KB	-rw-r--r--
simula.elc	44.81 KB	-rw-r--r--
sql.elc	101.34 KB	-rw-r--r--
sym-comp.elc	7.15 KB	-rw-r--r--
tcl.elc	38.58 KB	-rw-r--r--
vera-mode.elc	44.5 KB	-rw-r--r--
verilog-mode.elc	331.76 KB	-rw-r--r--
vhdl-mode.elc	510.47 KB	-rw-r--r--
which-func.elc	9.72 KB	-rw-r--r--
xscheme.elc	37.76 KB	-rw-r--r--

Code Editor : ebnf-dtd.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:06 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/progmodes/ebnf-dtd.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`ebnf-dtd.el' was compiled for Emacs 19.29 or later"))

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

(require 'ebnf-otz)
#@44 Value returned by `ebnf-dtd-lex' function.
(defvar ebnf-dtd-lex nil (#$ . 637))
#@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 (#$ . 723)])
(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) (#$ . 8242))
#@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 (#$ . 8367)])
(byte-code "\301B\302\303\304\305\306#!\210\307B\310\311!\210\312B\313\314!\210\315B\316\317!\207" [current-load-list ebnf-dtd-name-chars (lambda (#1=#:defconst-tmp-var) (defconst ebnf-dtd-name-chars #1#)) ebnf-range-regexp "-._:0-9A-Za-z" 160 255 ebnf-dtd-decl-alist (lambda (#2=#:defconst-tmp-var) (defconst ebnf-dtd-decl-alist #2#)) (("ATTLIST" . attlist-decl) ("DOCTYPE" . doctype-decl) ("ELEMENT" . element-decl) ("ENTITY" . entity-decl) ("NOTATION" . notation-decl)) ebnf-dtd-element-alist (lambda (#3=#:defconst-tmp-var) (defconst ebnf-dtd-element-alist #3#)) (("#FIXED" . fixed) ("#IMPLIED" . implied) ("#PCDATA" . pcdata) ("#REQUIRED" . required)) ebnf-dtd-name-alist (lambda (#4=#:defconst-tmp-var) (defconst ebnf-dtd-name-alist #4#)) (("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))] 5)
#@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 "" "-" 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)

${this.title}

Code Editor : ebnf-dtd.elc