%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@274 ebnf2ps.el, v 4.4 <2007/02/12 vinicius>
Vinicius's last change version. When reporting bugs, please also
report the version of Emacs, if any, that ebnf2ps was running with.
Please send all bug fixes and enhancements to
Vinicius Jose Latorre <viniciusjl.gnu@gmail.com>.
(defconst ebnf-version "4.4" (#$ . 409))
(byte-code "\301\302!\210\303\231\203 \304\305!\210\306\307!\204 \310\307\311\"\210\312\313\314\315\316\317\320\321\322\323& \210\312\324\314\325\326\327\320\321\322\330\322\313& \210\312\331\314\332\326\327\316\333\320\321\322\324& \210\312\334\314\335\326\327\316\336\320\321\322\324& \210\312\337\314\340\326\327\316\341\320\321\322\324& \210\312\342\314\343\326\327\316\344\320\321\322\324& \210\312\345\314\346\326\327\316\347\320\321\322\324& \210\312\350\314\351\326\327\316\352\320\321\322\324& \210\312\353\314\354\326\327\316\355\320\321\322\324& \210\312\356\314\357\326\327\316\360\320\321\322\324& \210\312\361\314\362\326\327\316\363\320\321\322\324& \210\312\364\314\365\326\327\316\366\320\321\322\324& \210\367\370\371\372\373DD\374\375\376\320\321\322\356& \210\367\377\371\372\201@ DD\201A \375\376\320\321\322\356& \210\367\201B \371\372\201C DD\201D \375\201E \320\321\322\356& \210\367\201F \371\372\201G DD\201H \375\201E \320\321\322\356& \210\367\201I \371\372\201J DD\201K \375\201L \320\321\322\356& \210\367\201M \371\372\201N DD\201O \375\376\320\321\322\331& \210\367\201P \371\372\201Q DD\201R \375\201S \320\321\322\331& \210\367\201T \371\372\201U DD\201V \375\201W \320\321\322\331& \210\367\201X \371\372\201Y DD\201Z \375\376\320\321\322\331& \210\367\201[ \371\372\201\\ DD\201] \375\201E \320\321\322\331& \210\367\201^ \371\372\201_ DD\201` \375\201a \320\321\322\331& \210\367\201b \371\372\201c DD\201d \375\201e \320\321\322\334& \210\367\201f \371\372\201g DD\201h \375\201i \320\321\322\334& \210\367\201j \371\372\201k DD\201l \375\376\320\321\322\334& \210\367\201m \371\372\201n DD\201o \375\201E \320\321\322\334& \210\367\201p \371\372\201q DD\201r \375\201a \320\321\322\334& \210\367\201s \371\372\201t DD\201u \375\201v \320\321\322\337& \210\367\201w \371\372\201x DD\201y \375\201z \320\321\322\337& \210\367\201{ \371\372\201| DD\201} \375\376\320\321\322\337& \210\367\201~ \371\372\201 DD\201\200 \375\201E \320\321\322\337& \210\367\201\201 \371\372\201\202 DD\201\203 \375\201a \320\321\322\337& \210\367\201\204 \371\372\201\205 DD\201\206 \375\201\207 \320\321\322\342& \210\367\201\210 \371\372\201\211 DD\201\212 \375\201\213 \320\321\322\342& \210\367\201\214 \371\372\201\215 DD\201\216 \375\376\320\321\322\342& \210\367\201\217 \371\372\201\220 DD\201\221 \375\201E \320\321\322\342& \210\367\201\222 \371\372\201\223 DD\201\224 \375\201a \320\321\322\342& \210\367\201\225 \371\372\201\226 DD\201\227 \375\376\320\321\322\350& \210\367\201\230 \371\372\201\231 DD\201\232 \375\201\233 \320\321\322\350& \210\367\201\234 \371\372\201\235 DD\201\236 \375\201\237 \320\321\322\350& \210\367\201\240 \371\372\201\241 DD\201\242 \375\201\243 \320\321\322\345& \210\367\201\244 \371\372\201\245 DD\201\246 \375\201\247 \320\321\322\345& \210\367\201\250 \371\372\201\251 DD\201\252 \375\376\320\321\322\345& \210\367\201\253 \371\372\201\254 DD\201\255 \375\201E \320\321\322\345& \210\367\201\256 \371\372\201\257 DD\201\260 \375\201a \320\321\322\345& \210\367\201\261 \371\372\201\262 DD\201\263 \375\201\264 \320\321\322\353& \210\367\201\265 \371\372\201\266 DD\201\267 \375\201\270 \320\321\322\353& \210\367\201\271 \371\372\201\272 DD\201\273 \375\201\274 \320\321\322\353& \210\367\201\275 \371\372\201\276 DD\201\277 \375\201\300 \320\321\322\361& \210\367\201\301 \371\372\201\302 DD\201\303 \375\201\304 \320\321\322\361& \210\367\201\305 \371\372\201\306 DD\201\307 \375\201\304 \320\321\322\361& \210\367\201\310 \371\372\201\311 DD\201\312 \375\201\313 \320\321\322\361& \210\367\201\314 \371\372\201\315 DD\201\316 \375\376\320\321\322\361& \210\367\201\317 \371\372\201\320 DD\201\321 \375\376\320\321\322\361& \210\367\201\322 \371\372\201\323 DD\201\324 \375\376\320\321\322\361& \210\367\201\325 \371\372\201\326 DD\201\327 \375\201\330 \320\321\322\324& \210\367\201\331 \371\372\201\332 DD\201\333 \375\201a \320\321\322\324& \210\367\201\334 \371\372\201\335 DD\201\336 \375\201\337 \320\201\340 \322\324& \210\367\201\341 \371\372\201\342 DD\201\343 \375\201\344 \320\201\340 \322\324& \210\367\201\345 \371\372\201\346 DD\201\347 \375\201\350 \320\201\340 \322\324& \210\367\201\351 \371\372\201\352 DD\201\353 \375\201\354 \320\201\340 \322\324& \210\367\201\355 \371\372\201\356 DD\201\357 \375\201E \320\321\322\324& \210\367\201\360 \371\372\201\361 DD\201\362 \375\201E \320\321\322\324& \210\367\201\363 \371\372\201\364 DD\201\365 \375\376\320\321\322\324& \210\367\201\366 \371\372\201\367 DD\201\370 \375\201E \320\321\322\324& \210\367\201\371 \371\372\201\372 DD\201\373 \375\201a \320\321\322\324& \210\367\201\374 \371\372\201\375 DD\201\376 \375\201E \320\201\340 \322\353& \210\367\201\377 \371\372\201 DD\201\375\201E \320\201\340 \322\353& \210\367\201\371\372\201DD\201\375\376\320\321\322\324& \210\367\201\371\372\201DD\201\375\376\320\321\322\324& \210\367\201\371\372\201 DD\201\n\375\376\320\321\322\324& \210\367\201 \371\372\201\fDD\201
\375\376\320\321\322\361& \210\367\201\371\372\201DD\201\375\376\320\321\322\364& \210\367\201\371\372\201DD\201\375\376\320\321\322\364& \210\367\201\371\372\201DD\201\375\376\320\201\340 \322\324& \207" [ps-print-version require ps-print "5.2.3" error "`ebnf2ps' requires `ps-print' package version 5.2.3 or later" fboundp assq-delete-all defalias #[514 "\211\211\203! \211@:\203 \211@@=\203 \300@\"\262\211A\262\202 \207" [delq] 6 "Delete from ALIST all elements whose car is KEY.\nReturn the modified alist.\nElements of ALIST that are not conses are ignored.\n\n(fn KEY ALIST)"] custom-declare-group postscript nil "Printing with PostScript" :tag "PostScript" :version "20" :group environment ebnf2ps "Translate an EBNF to a syntactic chart on PostScript." :prefix "ebnf-" text ebnf-special "Special customization." "Special" ebnf-except "Except customization." "Except" ebnf-repeat "Repeat customization." "Repeat" ebnf-terminal "Terminal customization." "Terminal" ebnf-non-terminal "Non-Terminal customization." "Non-Terminal" ebnf-production "Production customization." "Production" ebnf-shape "Shapes customization." "Shape" ebnf-displacement "Displacement customization." "Displacement" ebnf-syntactic "Syntactic customization." "Syntactic" ebnf-optimization "Optimization customization." "Optimization" custom-declare-variable ebnf-horizontal-orientation funcall function #[0 "\300\207" [nil] 1] "Non-nil means productions are drawn horizontally." :type boolean ebnf-horizontal-max-height #[0 "\300\207" [nil] 1] "Non-nil means to use maximum production height in horizontal orientation.\n\nIt is only used when `ebnf-horizontal-orientation' is non-nil." ebnf-production-horizontal-space #[0 "\300\207" [0.0] 1] "Specify horizontal space in points between productions.\n\nValue less or equal to zero forces ebnf2ps to set a proper default value." number ebnf-production-vertical-space #[0 "\300\207" [0.0] 1] "Specify vertical space in points between productions.\n\nValue less or equal to zero forces ebnf2ps to set a proper default value." ebnf-justify-sequence #[0 "\300\207" [center] 1] "Specify justification of terms in a sequence inside alternatives.\n\nValid values are:\n\n `left' left justification\n `right' right justification\n any other value centralize" (radio :tag "Sequence Justification" (const left) (const right) (other :tag "center" center)) ebnf-special-show-delimiter #[0 "\300\207" [t] 1] "Non-nil means special delimiter (character `?') is shown." ebnf-special-font #[0 "\300\207" [(7 Courier "Black" "Gray95" bold italic)] 1] "Specify special font.\n\nSee documentation for `ebnf-production-font'." (list :tag "Special Font" (number :tag "Font Size") (symbol :tag "Font Name") (choice :tag "Foreground Color" (string :tag "Name") (other :tag "Default" nil)) (choice :tag "Background Color" (string :tag "Name") (other :tag "Default" nil)) (repeat :tag "Font Attributes" :inline t (choice (const bold) (const italic) (const underline) (const strikeout) (const overline) (const shadow) (const box) (const outline)))) ebnf-special-shape #[0 "\300\207" [bevel] 1] "Specify special box shape.\n\nSee documentation for `ebnf-non-terminal-shape'." (radio :tag "Special Shape" (const miter) (const round) (const bevel)) ebnf-special-shadow #[0 "\300\207" [nil] 1] "Non-nil means special box will have a shadow." ebnf-special-border-width #[0 "\300\207" [0.5] 1] "Specify border width for special box." ebnf-special-border-color #[0 "\300\207" [#1="Black"] 1 #1#] "Specify border color for special box." string ebnf-except-font #[0 "\300\207" [(7 Courier "Black" "Gray90" bold italic)] 1] "Specify except font.\n\nSee documentation for `ebnf-production-font'." (list :tag "Except Font" (number :tag "Font Size") (symbol :tag "Font Name") (choice :tag "Foreground Color" (string :tag "Name") (other :tag "Default" nil)) (choice :tag "Background Color" (string :tag "Name") (other :tag "Default" nil)) (repeat :tag "Font Attributes" :inline t (choice (const bold) (const italic) (const underline) (const strikeout) (const overline) (const shadow) (const box) (const outline)))) ebnf-except-shape #[0 "\300\207" [bevel] 1] "Specify except box shape.\n\nSee documentation for `ebnf-non-terminal-shape'." (radio :tag "Except Shape" (const miter) (const round) (const bevel)) ebnf-except-shadow #[0 "\300\207" [nil] 1] "Non-nil means except box will have a shadow." ebnf-except-border-width #[0 "\300\207" [0.25] 1] "Specify border width for except box." ebnf-except-border-color #[0 "\300\207" [#2="Black"] 1 #2#] "Specify border color for except box." ebnf-repeat-font #[0 "\300\207" [(7 Courier "Black" "Gray85" bold italic)] 1] "Specify repeat font.\n\nSee documentation for `ebnf-production-font'." (list :tag "Repeat Font" (number :tag "Font Size") (symbol :tag "Font Name") (choice :tag "Foreground Color" (string :tag "Name") (other :tag "Default" nil)) (choice :tag "Background Color" (string :tag "Name") (other :tag "Default" nil)) (repeat :tag "Font Attributes" :inline t (choice (const bold) (const italic) (const underline) (const strikeout) (const overline) (const shadow) (const box) (const outline)))) ebnf-repeat-shape #[0 "\300\207" [bevel] 1] "Specify repeat box shape.\n\nSee documentation for `ebnf-non-terminal-shape'." (radio :tag "Repeat Shape" (const miter) (const round) (const bevel)) ebnf-repeat-shadow #[0 "\300\207" [nil] 1] "Non-nil means repeat box will have a shadow." ebnf-repeat-border-width #[0 "\300\207" [0.0] 1] "Specify border width for repeat box." ebnf-repeat-border-color #[0 "\300\207" [#3="Black"] 1 #3#] "Specify border color for repeat box." ebnf-terminal-font #[0 "\300\207" [(7 Courier "Black" "White")] 1] "Specify terminal font.\n\nSee documentation for `ebnf-production-font'." (list :tag "Terminal Font" (number :tag "Font Size") (symbol :tag "Font Name") (choice :tag "Foreground Color" (string :tag "Name") (other :tag "Default" nil)) (choice :tag "Background Color" (string :tag "Name") (other :tag "Default" nil)) (repeat :tag "Font Attributes" :inline t (choice (const bold) (const italic) (const underline) (const strikeout) (const overline) (const shadow) (const box) (const outline)))) ebnf-terminal-shape #[0 "\300\207" [miter] 1] "Specify terminal box shape.\n\nSee documentation for `ebnf-non-terminal-shape'." (radio :tag "Terminal Shape" (const miter) (const round) (const bevel)) ebnf-terminal-shadow #[0 "\300\207" [nil] 1] "Non-nil means terminal box will have a shadow." ebnf-terminal-border-width #[0 "\300\207" [1.0] 1] "Specify border width for terminal box." ebnf-terminal-border-color #[0 "\300\207" [#4="Black"] 1 #4#] "Specify border color for terminal box." ebnf-production-name-p #[0 "\300\207" [t] 1] "Non-nil means production name will be printed." ebnf-sort-production #[0 "\300\207" [nil] 1] "Specify how productions are sorted.\n\nValid values are:\n\n nil don't sort productions.\n `ascending' ascending sort.\n any other value descending sort." (radio :tag "Production Sort" (const :tag "Ascending" ascending) (const :tag "Descending" descending) (other :tag "No Sort" nil)) ebnf-production-font #[0 "\300\207" [(10 Helvetica "Black" "White" bold)] 1] "Specify production header font.\n\nIt is a list with the following form:\n\n (SIZE NAME FOREGROUND BACKGROUND ATTRIBUTE...)\n\nWhere:\nSIZE is the font size.\nNAME is the font name symbol.\nATTRIBUTE is one of the following symbols:\n bold - use bold font.\n italic - use italic font.\n underline - put a line under text.\n strikeout - like underline, but the line is in middle of text.\n overline - like underline, but the line is over the text.\n shadow - text will have a shadow.\n box - text will be surrounded by a box.\n outline - print characters as hollow outlines.\nFOREGROUND is a foreground string color name; if it's nil, the default color is\n\"Black\".\nBACKGROUND is a background string color name; if it's nil, the default color is\n\"White\".\n\nSee `ps-font-info-database' for valid font name." (list :tag "Production Font" (number :tag "Font Size") (symbol :tag "Font Name") (choice :tag "Foreground Color" (string :tag "Name") (other :tag "Default" nil)) (choice :tag "Background Color" (string :tag "Name") (other :tag "Default" nil)) (repeat :tag "Font Attributes" :inline t (choice (const bold) (const italic) (const underline) (const strikeout) (const overline) (const shadow) (const box) (const outline)))) ebnf-non-terminal-font #[0 "\300\207" [(7 Helvetica "Black" "White")] 1] "Specify non-terminal font.\n\nSee documentation for `ebnf-production-font'." (list :tag "Non-Terminal Font" (number :tag "Font Size") (symbol :tag "Font Name") (choice :tag "Foreground Color" (string :tag "Name") (other :tag "Default" nil)) (choice :tag "Background Color" (string :tag "Name") (other :tag "Default" nil)) (repeat :tag "Font Attributes" :inline t (choice (const bold) (const italic) (const underline) (const strikeout) (const overline) (const shadow) (const box) (const outline)))) ebnf-non-terminal-shape #[0 "\300\207" [round] 1] "Specify non-terminal box shape.\n\nValid values are:\n\n `miter' +-------+\n | |\n +-------+\n\n `round' -------\n ( )\n -------\n\n `bevel' /-------\\\n | |\n \\-------/\n\nAny other value is treated as `miter'." (radio :tag "Non-Terminal Shape" (const miter) (const round) (const bevel)) ebnf-non-terminal-shadow #[0 "\300\207" [nil] 1] "Non-nil means non-terminal box will have a shadow." ebnf-non-terminal-border-width #[0 "\300\207" [1.0] 1] "Specify border width for non-terminal box." ebnf-non-terminal-border-color #[0 "\300\207" [#5="Black"] 1 #5#] "Specify border color for non-terminal box." ebnf-arrow-shape #[0 "\300\207" [hollow] 1] "Specify the arrow shape.\n\nValid values are:\n\n `none' ======\n\n `semi-up' * `transparent' *\n * |*\n =====* | *\n ==+==*\n | *\n |*\n *\n\n `semi-down' =====* `hollow' *\n * |*\n * | *\n ==+ *\n | *\n |*\n *\n\n `simple' * `full' *\n * |*\n =====* |X*\n * ==+XX*\n * |X*\n |*\n *\n\n `semi-up-hollow' `semi-up-full'\n * *\n |* |*\n | * |X*\n ==+==* ==+==*\n\n `semi-down-hollow' `semi-down-full'\n ==+==* ==+==*\n | * |X*\n |* |*\n * *\n\n `user' See also documentation for variable `ebnf-user-arrow'.\n\nAny other value is treated as `none'." (radio :tag "Arrow Shape" (const none) (const semi-up) (const semi-down) (const simple) (const transparent) (const hollow) (const full) (const semi-up-hollow) (const semi-down-hollow) (const semi-up-full) (const semi-down-full) (const user)) ebnf-chart-shape #[0 "\300\207" [round] 1] "Specify chart flow shape.\n\nSee documentation for `ebnf-non-terminal-shape'." (radio :tag "Chart Flow Shape" (const miter) (const round) (const bevel)) ebnf-user-arrow #[0 "\300\207" [nil] 1] "Specify a sexp for user arrow shape (a PostScript code).\n\nWhen evaluated, the sexp should return nil or a string containing PostScript\ncode. PostScript code should draw a right arrow.\n\nThe anatomy of a right arrow is:\n\n ...... Initial position\n :\n : *.................\n : | * } }\n : | * } hT4 }\n v | * } }\n ======+======*... } hT2\n : | *: } }\n : | * : } hT4 }\n : | * : } }\n : *.................\n : : :\n : : :..........\n : : } hT2 }\n : :.......... } hT\n : } hT2 }\n :.......................\n\nWhere `hT', `hT2' and `hT4' are predefined PostScript variable names that can\nbe used to generate your own arrow. As these variables are used along\nPostScript execution, *DON'T* modify the values of them. Instead, copy the\nvalues, if you need to modify them.\n\nThe relation between these variables is: hT = 2 * hT2 = 4 * hT4.\n\nThe variable `ebnf-user-arrow' is only used when `ebnf-arrow-shape' is set to\nsymbol `user'." (sexp :tag "User Arrow Shape") ebnf-syntax #[0 "\300\207" [ebnf] 1] "Specify syntax to be recognized.\n\nValid values are:\n\n `ebnf' ebnf2ps recognizes the syntax described in ebnf2ps\n documentation.\n The following variables *ONLY* have effect with this\n setting:\n `ebnf-terminal-regexp', `ebnf-case-fold-search',\n `ebnf-lex-comment-char' and `ebnf-lex-eop-char'.\n\n `abnf' ebnf2ps recognizes the syntax described in the URL:\n `http://www.ietf.org/rfc/rfc2234.txt'\n (\"Augmented BNF for Syntax Specifications: ABNF\").\n\n `iso-ebnf' ebnf2ps recognizes the syntax described in the URL:\n `http://www.cl.cam.ac.uk/~mgk25/iso-ebnf.html'\n (\"International Standard of the ISO EBNF Notation\").\n The following variables *ONLY* have effect with this\n setting:\n `ebnf-iso-alternative-p' and `ebnf-iso-normalize-p'.\n\n `yacc' ebnf2ps recognizes the Yacc/Bison syntax.\n The following variable *ONLY* has effect with this\n setting:\n `ebnf-yac-ignore-error-recovery'.\n\n `ebnfx' ebnf2ps recognizes the syntax described in the URL:\n `http://www.w3.org/TR/2004/REC-xml-20040204/#sec-notation'\n (\"Extensible Markup Language (XML) 1.0 (Third Edition)\")\n\n `dtd' ebnf2ps recognizes the syntax described in the URL:\n `http://www.w3.org/TR/2004/REC-xml-20040204/'\n (\"Extensible Markup Language (XML) 1.0 (Third Edition)\")\n\nAny other value is treated as `ebnf'." (radio :tag "Syntax" (const ebnf) (const abnf) (const iso-ebnf) (const yacc) (const ebnfx) (const dtd)) ebnf-lex-comment-char #[0 "\300\207" [59] 1] "Specify the line comment character.\n\nIt's used only when `ebnf-syntax' is `ebnf'." character ebnf-lex-eop-char #[0 "\300\207" [46] 1] "Specify the end of production character.\n\nIt's used only when `ebnf-syntax' is `ebnf'." ebnf-terminal-regexp #[0 "\300\207" [nil] 1] "Specify how it's a terminal name.\n\nIf it's nil, the terminal name must be enclosed by `\"'.\nIf it's a string, it should be a regexp that it'll be used to determine a\nterminal name; terminal name may also be enclosed by `\"'.\n\nIt's used only when `ebnf-syntax' is `ebnf'." (radio :tag "Terminal Name" (const nil) regexp) ebnf-case-fold-search #[0 "\300\207" [nil] 1] "Non-nil means ignore case on matching.\n\nIt's only used when `ebnf-terminal-regexp' is non-nil and when `ebnf-syntax' is\n`ebnf'." ebnf-iso-alternative-p #[0 "\300\207" [nil] 1] "Non-nil means use alternative ISO EBNF.\n\nIt's only used when `ebnf-syntax' is `iso-ebnf'.\n\nThis variable affects the following symbol set:\n\n STANDARD ALTERNATIVE\n | ==> / or !\n [ ==> (/\n ] ==> /)\n { ==> (:\n } ==> :)\n ; ==> ." ebnf-iso-normalize-p #[0 "\300\207" [nil] 1] "Non-nil means normalize ISO EBNF syntax names.\n\nNormalize a name means that several contiguous spaces inside name become a\nsingle space, so \"A B C\" is normalized to \"A B C\".\n\nIt's only used when `ebnf-syntax' is `iso-ebnf'." ebnf-file-suffix-regexp #[0 "\300\207" [#6="\\.[Bb][Nn][Ff]\\'"] 1 #6#] "Specify file name suffix that contains EBNF.\n\nSee `ebnf-eps-directory' command." regexp ebnf-eps-prefix #[0 "\300\207" [#7="ebnf--"] 1 #7#] "Specify EPS prefix file name.\n\nSee `ebnf-eps-buffer' and `ebnf-eps-region' commands." ebnf-eps-header-font #[0 "\300\207" [(11 Helvetica "Black" "White" bold)] 1] "Specify EPS header font.\n\nSee documentation for `ebnf-production-font'.\n\nSee `ebnf-eps-buffer' and `ebnf-eps-region' commands." (list :tag "EPS Header Font" (number :tag "Font Size") (symbol :tag "Font Name") (choice :tag "Foreground Color" (string :tag "Name") (other :tag "Default" nil)) (choice :tag "Background Color" (string :tag "Name") (other :tag "Default" nil)) (repeat :tag "Font Attributes" :inline t (choice (const bold) (const italic) (const underline) (const strikeout) (const overline) (const shadow) (const box) (const outline)))) "22" ebnf-eps-header #[0 "\300\207" [nil] 1] "Specify EPS header.\n\nThe value should be a string, a symbol or nil.\n\nString is inserted unchanged.\n\nFor symbol bounded to a function, the function is called and should return a\nstring. For symbol bounded to a value, the value should be a string.\n\nIf symbol is unbounded, it is silently ignored.\n\nEmpty string or nil mean that no header will be generated.\n\nNote that when the header action comment (;H in EBNF syntax) is specified, the\nstring in the header action comment is processed and, if it returns a non-empty\nstring, it's used to generate the header. The header action comment accepts\nthe following formats:\n\n %% prints a % character.\n\n %H prints the `ebnf-eps-header' value.\n\n %F prints the `ebnf-eps-footer' (which see) value.\n\nAny other format is ignored, that is, if, for example, it's used %s then %s\ncharacters are stripped out from the header. If header action comment is an\nempty string, no header is generated until a non-empty header is specified or\n`ebnf-eps-header' has a non-empty string value." (repeat (choice :menu-tag "EPS Header" :tag "EPS Header" string symbol (const :tag "No Header" nil))) ebnf-eps-footer-font #[0 "\300\207" [(7 Helvetica "Black" "White" bold)] 1] "Specify EPS footer font.\n\nSee documentation for `ebnf-production-font'.\n\nSee `ebnf-eps-buffer' and `ebnf-eps-region' commands." (list :tag "EPS Footer Font" (number :tag "Font Size") (symbol :tag "Font Name") (choice :tag "Foreground Color" (string :tag "Name") (other :tag "Default" nil)) (choice :tag "Background Color" (string :tag "Name") (other :tag "Default" nil)) (repeat :tag "Font Attributes" :inline t (choice (const bold) (const italic) (const underline) (const strikeout) (const overline) (const shadow) (const box) (const outline)))) ebnf-eps-footer #[0 "\300\207" [nil] 1] "Specify EPS footer.\n\nThe value should be a string, a symbol or nil.\n\nString is inserted unchanged.\n\nFor symbol bounded to a function, the function is called and should return a\nstring. For symbol bounded to a value, the value should be a string.\n\nIf symbol is unbounded, it is silently ignored.\n\nEmpty string or nil mean that no footer will be generated.\n\nNote that when the footer action comment (;F in EBNF syntax) is specified, the\nstring in the footer action comment is processed and, if it returns a non-empty\nstring, it's used to generate the footer. The footer action comment accepts\nthe following formats:\n\n %% prints a % character.\n\n %H prints the `ebnf-eps-header' (which see) value.\n\n %F prints the `ebnf-eps-footer' value.\n\nAny other format is ignored, that is, if, for example, it's used %s then %s\ncharacters are stripped out from the footer. If footer action comment is an\nempty string, no footer is generated until a non-empty footer is specified or\n`ebnf-eps-footer' has a non-empty string value." (repeat (choice :menu-tag "EPS Footer" :tag "EPS Footer" string symbol (const :tag "No Footer" nil))) ebnf-entry-percentage #[0 "\300\207" [0.5] 1] "Specify entry height on alternatives.\n\nIt must be a float between 0.0 (top) and 1.0 (bottom)." ebnf-default-width #[0 "\300\207" [0.6] 1] "Additional border width over default terminal, non-terminal or special." ebnf-color-p #[0 "\300\301!\206 \300\302!\207" [fboundp x-color-values color-instance-rgb-components] 2] "Non-nil means use color." ebnf-line-width #[0 "\300\207" [1.0] 1] "Specify flow line width." ebnf-line-color #[0 "\300\207" [#8="Black"] 1 #8#] "Specify flow line color." ebnf-arrow-extra-width #[0 "\302=\203 \303\207\304\305\306!\307 #\207" [ebnf-arrow-shape ebnf-line-width none 0.0 * sqrt 5.0 0.65] 4] "Specify extra width for arrow shape drawing.\n\nThe extra width is used to avoid that the arrowhead and the terminal border\noverlap. It depends on `ebnf-arrow-shape' and `ebnf-line-width'." ebnf-arrow-scale #[0 "\300\207" [1.0] 1] "Specify the arrow scale.\n\nValues lower than 1.0, shrink the arrow.\nValues greater than 1.0, expand the arrow." ebnf-debug-ps #[0 "\300\207" [nil] 1] "Non-nil means to generate PostScript debug procedures.\n\nIt is intended to help PostScript programmers in debugging." ebnf-use-float-format #[0 "\300\207" [t] 1] "Non-nil means use `%f' float format.\n\nThe advantage of using float format is that ebnf2ps generates a little short\nPostScript file.\n\nIf it occurs the error message:\n\n Invalid format operation %f\n\nwhen executing ebnf2ps, set `ebnf-use-float-format' to nil." ebnf-stop-on-error #[0 "\300\207" [nil] 1] "Non-nil means signal error and stop. Otherwise, signal error and continue." ebnf-yac-ignore-error-recovery #[0 "\300\207" [nil] 1] "Non-nil means ignore error recovery.\n\nIt's only used when `ebnf-syntax' is `yacc'." ebnf-ignore-empty-rule #[0 "\300\207" [nil] 1] "Non-nil means ignore empty rules.\n\nIt's interesting to set this variable if your Yacc/Bison grammar has a lot of\nmiddle action rule." ebnf-optimize #[0 "\300\207" [nil] 1] "Non-nil means optimize syntactic chart of rules.\n\nThe following optimizations are done:\n\n left recursion:\n 1. A = B | A C. ==> A = B {C}*.\n 2. A = B | A B. ==> A = {B}+.\n 3. A = | A B. ==> A = {B}*.\n 4. A = B | A C B. ==> A = {B || C}+.\n 5. A = B | D | A C | A E. ==> A = ( B | D ) { C | E }*.\n\n optional:\n 6. A = B | . ==> A = [B].\n 7. A = | B . ==> A = [B].\n\n factorization:\n 8. A = B C | B D. ==> A = B (C | D).\n 9. A = C B | D B. ==> A = (C | D) B.\n 10. A = B C E | B D E. ==> A = B (C | D) E.\n\nThe above optimizations are specially useful when `ebnf-syntax' is `yacc'." ebnf-log #[0 "\300\207" [nil] 1] "Non-nil means generate log messages.\n\nThe log messages are generated into the buffer *Ebnf2ps Log*.\nThese messages are intended to help debugging ebnf2ps."] 12)
#@24 Eliminate empty rules.
(autoload 'ebnf-eliminate-empty-rules "ebnf-otz" '(#$ . 27730))
#@28 Syntactic chart optimizer.
(autoload 'ebnf-optimize "ebnf-otz" '(#$ . 27823))
#@23 Initialize optimizer.
(autoload 'ebnf-otz-initialize "ebnf-otz" '(#$ . 27907))
#@31 Customization for ebnf group.
(defalias 'ebnf-customize #[0 "\300\301!\207" [customize-group ebnf2ps] 2 (#$ . 27992) nil])
#@269 Generate and print a PostScript syntactic chart image of DIRECTORY.
If DIRECTORY is nil, it's used `default-directory'.
The files in DIRECTORY that matches `ebnf-file-suffix-regexp' (which see) are
processed.
See also `ebnf-print-buffer'.
(fn &optional DIRECTORY)
(defalias 'ebnf-print-directory #[256 "\300\301\"\210\302\303\"\207" [ebnf-log-header "(ebnf-print-directory %S)" ebnf-directory ebnf-print-buffer] 4 (#$ . 28122) (byte-code "\301\302\303#C\207" [default-directory read-directory-name "Directory containing EBNF files (print): " nil] 4)])
#@263 Generate and print a PostScript syntactic chart image of the file FILE.
If optional arg DO-NOT-KILL-BUFFER-WHEN-DONE is non-nil, the buffer isn't
killed after process termination.
See also `ebnf-print-buffer'.
(fn FILE &optional DO-NOT-KILL-BUFFER-WHEN-DONE)
(defalias 'ebnf-print-file #[513 "\300\301#\210\302\303#\207" [ebnf-log-header "(ebnf-print-file %S %S)" ebnf-file ebnf-print-buffer] 6 (#$ . 28688) "fEBNF file to generate PostScript and print from: "])
#@542 Generate and print a PostScript syntactic chart image of the buffer.
When called with a numeric prefix argument (\[universal-argument]), prompts the user for
the name of a file to save the PostScript image in, instead of sending
it to the printer.
More specifically, the FILENAME argument is treated as follows: if it
is nil, send the image to the printer. If FILENAME is a string, save
the PostScript image in a file with that name. If FILENAME is a
number, prompt the user for the name of the file to save in.
(fn &optional FILENAME)
(defalias 'ebnf-print-buffer #[256 "\300\301\"\210\302ed#\207" [ebnf-log-header "(ebnf-print-buffer %S)" ebnf-print-region] 5 (#$ . 29165) (byte-code "\301!C\207" [current-prefix-arg ps-print-preprint] 2)])
#@165 Generate and print a PostScript syntactic chart image of the region.
Like `ebnf-print-buffer', but prints just the current region.
(fn FROM TO &optional FILENAME)
(defalias 'ebnf-print-region #[770 "\300\301$\210\302\303!\210\304\"\206 \305!\207" [ebnf-log-header "(ebnf-print-region %S %S %S)" run-hooks ebnf-hook ebnf-spool-region ps-do-despool] 8 (#$ . 29923) (byte-code "`\301 \302!E\207" [current-prefix-arg mark ps-print-preprint] 4)])
#@269 Generate and spool a PostScript syntactic chart image of DIRECTORY.
If DIRECTORY is nil, it's used `default-directory'.
The files in DIRECTORY that matches `ebnf-file-suffix-regexp' (which see) are
processed.
See also `ebnf-spool-buffer'.
(fn &optional DIRECTORY)
(defalias 'ebnf-spool-directory #[256 "\300\301\"\210\302\303\"\207" [ebnf-log-header "(ebnf-spool-directory %S)" ebnf-directory ebnf-spool-buffer] 4 (#$ . 30381) (byte-code "\301\302\303#C\207" [default-directory read-directory-name "Directory containing EBNF files (spool): " nil] 4)])
#@263 Generate and spool a PostScript syntactic chart image of the file FILE.
If optional arg DO-NOT-KILL-BUFFER-WHEN-DONE is non-nil, the buffer isn't
killed after process termination.
See also `ebnf-spool-buffer'.
(fn FILE &optional DO-NOT-KILL-BUFFER-WHEN-DONE)
(defalias 'ebnf-spool-file #[513 "\300\301#\210\302\303#\207" [ebnf-log-header "(ebnf-spool-file %S %S)" ebnf-file ebnf-spool-buffer] 6 (#$ . 30947) "fEBNF file to generate PostScript and spool from: "])
#@263 Generate and spool a PostScript syntactic chart image of the buffer.
Like `ebnf-print-buffer' except that the PostScript image is saved in a
local buffer to be sent to the printer later.
Use the command `ebnf-despool' to send the spooled images to the printer.
(defalias 'ebnf-spool-buffer #[0 "\300\301!\210\302ed\"\207" [ebnf-log-header "(ebnf-spool-buffer)" ebnf-spool-region] 3 (#$ . 31424) nil])
#@229 Generate a PostScript syntactic chart image of the region and spool locally.
Like `ebnf-spool-buffer', but spools just the current region.
Use the command `ebnf-despool' to send the spooled images to the printer.
(fn FROM TO)
(defalias 'ebnf-spool-region #[514 "\300\301#\210\302\303#\207" [ebnf-log-header "(ebnf-spool-region %S)" ebnf-generate-region ebnf-generate] 6 (#$ . 31833) "r"])
#@248 Generate EPS files from EBNF files in DIRECTORY.
If DIRECTORY is nil, it's used `default-directory'.
The files in DIRECTORY that matches `ebnf-file-suffix-regexp' (which see) are
processed.
See also `ebnf-eps-buffer'.
(fn &optional DIRECTORY)
(defalias 'ebnf-eps-directory #[256 "\300\301\"\210\302\303\"\207" [ebnf-log-header "(ebnf-eps-directory %S)" ebnf-directory ebnf-eps-buffer] 4 (#$ . 32235) (byte-code "\301\302\303#C\207" [default-directory read-directory-name "Directory containing EBNF files (EPS): " nil] 4)])
#@226 Generate an EPS file from EBNF file FILE.
If optional arg DO-NOT-KILL-BUFFER-WHEN-DONE is non-nil, the buffer isn't
killed after EPS generation.
See also `ebnf-eps-buffer'.
(fn FILE &optional DO-NOT-KILL-BUFFER-WHEN-DONE)
(defalias 'ebnf-eps-file #[513 "\300\301#\210\302\303#\207" [ebnf-log-header "(ebnf-eps-file %S %S)" ebnf-file ebnf-eps-buffer] 6 (#$ . 32772) "fEBNF file to generate EPS file from: "])
#@676 Generate a PostScript syntactic chart image of the buffer in an EPS file.
Generate an EPS file for each production in the buffer.
The EPS file name has the following form:
<PREFIX><PRODUCTION>.eps
<PREFIX> is given by variable `ebnf-eps-prefix'.
The default value is "ebnf--".
<PRODUCTION> is the production name.
Some characters in the production file name are replaced to
produce a valid file name. For example, the production name
"A/B + C" is modified to produce "A_B_+_C", and the EPS
file name used in this case will be "ebnf--A_B_+_C.eps".
WARNING: This function does *NOT* ask any confirmation to override existing
files.
(defalias 'ebnf-eps-buffer #[0 "\300\301!\210\302ed\"\207" [ebnf-log-header "(ebnf-eps-buffer)" ebnf-eps-region] 3 (#$ . 33194) nil])
#@690 Generate a PostScript syntactic chart image of the region in an EPS file.
Generate an EPS file for each production in the region.
The EPS file name has the following form:
<PREFIX><PRODUCTION>.eps
<PREFIX> is given by variable `ebnf-eps-prefix'.
The default value is "ebnf--".
<PRODUCTION> is the production name.
Some characters in the production file name are replaced to
produce a valid file name. For example, the production name
"A/B + C" is modified to produce "A_B_+_C", and the EPS
file name used in this case will be "ebnf--A_B_+_C.eps".
WARNING: This function does *NOT* ask any confirmation to override existing
files.
(fn FROM TO)
(defalias 'ebnf-eps-region #[514 "\301\302#\210\303\304\305#)\207" [ebnf-eps-executing ebnf-log-header "(ebnf-eps-region %S %S)" t ebnf-generate-region ebnf-generate-eps] 6 (#$ . 34010) "r"])
(defalias 'ebnf-despool 'ps-despool)
#@250 Do a syntactic analysis of the files in DIRECTORY.
If DIRECTORY is nil, use `default-directory'.
Only the files in DIRECTORY that match `ebnf-file-suffix-regexp' (which see)
are processed.
See also `ebnf-syntax-buffer'.
(fn &optional DIRECTORY)
(defalias 'ebnf-syntax-directory #[256 "\300\301\"\210\302\303\"\207" [ebnf-log-header "(ebnf-syntax-directory %S)" ebnf-directory ebnf-syntax-buffer] 4 (#$ . 34940) (byte-code "\301\302\303#C\207" [default-directory read-directory-name "Directory containing EBNF files (syntax): " nil] 4)])
#@231 Do a syntactic analysis of the named FILE.
If optional arg DO-NOT-KILL-BUFFER-WHEN-DONE is non-nil, the buffer isn't
killed after syntax checking.
See also `ebnf-syntax-buffer'.
(fn FILE &optional DO-NOT-KILL-BUFFER-WHEN-DONE)
(defalias 'ebnf-syntax-file #[513 "\300\301#\210\302\303#\207" [ebnf-log-header "(ebnf-syntax-file %S %S)" ebnf-file ebnf-syntax-buffer] 6 (#$ . 35491) "fEBNF file to check syntax: "])
#@48 Do a syntactic analysis of the current buffer.
(defalias 'ebnf-syntax-buffer #[0 "\300\301!\210\302ed\"\207" [ebnf-log-header "(ebnf-syntax-buffer)" ebnf-syntax-region] 3 (#$ . 35916) nil])
#@52 Do a syntactic analysis of a region.
(fn FROM TO)
(defalias 'ebnf-syntax-region #[514 "\300\301#\210\302\303#\207" [ebnf-log-header "(ebnf-syntax-region %S %S)" ebnf-generate-region nil] 6 (#$ . 36112) "r"])
#@35 Return the current ebnf2ps setup.
(defalias 'ebnf-setup #[0 "\306\307 \n\310 !\310\f!
\n\310 !\310\f!
\310!\310!\310!\310!\310 !\310 ! !\310\"!\310#!\310$!\310%!\310&!'()*\310+!,-\310.!/012\3103!\3104!\3105!\3106!789:;<=>?@ABC&B\207" [ebnf-version emacs-version ebnf-special-show-delimiter ebnf-special-font ebnf-special-shape ebnf-special-shadow format "\n;;; ebnf2ps.el version %s\n\n;;; Emacs version %S\n\n(setq ebnf-special-show-delimiter %S\n ebnf-special-font %s\n ebnf-special-shape %s\n ebnf-special-shadow %S\n ebnf-special-border-width %S\n ebnf-special-border-color %S\n ebnf-except-font %s\n ebnf-except-shape %s\n ebnf-except-shadow %S\n ebnf-except-border-width %S\n ebnf-except-border-color %S\n ebnf-repeat-font %s\n ebnf-repeat-shape %s\n ebnf-repeat-shadow %S\n ebnf-repeat-border-width %S\n ebnf-repeat-border-color %S\n ebnf-terminal-regexp %S\n ebnf-case-fold-search %S\n ebnf-terminal-font %s\n ebnf-terminal-shape %s\n ebnf-terminal-shadow %S\n ebnf-terminal-border-width %S\n ebnf-terminal-border-color %S\n ebnf-non-terminal-font %s\n ebnf-non-terminal-shape %s\n ebnf-non-terminal-shadow %S\n ebnf-non-terminal-border-width %S\n ebnf-non-terminal-border-color %S\n ebnf-production-name-p %S\n ebnf-sort-production %s\n ebnf-production-font %s\n ebnf-arrow-shape %s\n ebnf-chart-shape %s\n ebnf-user-arrow %s\n ebnf-horizontal-orientation %S\n ebnf-horizontal-max-height %S\n ebnf-production-horizontal-space %S\n ebnf-production-vertical-space %S\n ebnf-justify-sequence %s\n ebnf-lex-comment-char ?\\%03o\n ebnf-lex-eop-char ?\\%03o\n ebnf-syntax %s\n ebnf-iso-alternative-p %S\n ebnf-iso-normalize-p %S\n ebnf-file-suffix-regexp %S\n ebnf-eps-prefix %S\n ebnf-eps-header-font %s\n ebnf-eps-header %s\n ebnf-eps-footer-font %s\n ebnf-eps-footer %s\n ebnf-entry-percentage %S\n ebnf-color-p %S\n ebnf-line-width %S\n ebnf-line-color %S\n ebnf-arrow-extra-width %S\n ebnf-arrow-scale %S\n ebnf-debug-ps %S\n ebnf-use-float-format %S\n ebnf-stop-on-error %S\n ebnf-yac-ignore-error-recovery %S\n ebnf-ignore-empty-rule %S\n ebnf-optimize %S\n ebnf-log %S)\n\n;;; ebnf2ps.el - end of settings\n" ps-print-quote ebnf-special-border-width ebnf-special-border-color ebnf-except-font ebnf-except-shape ebnf-except-shadow ebnf-except-border-width ebnf-except-border-color ebnf-repeat-font ebnf-repeat-shape ebnf-repeat-shadow ebnf-repeat-border-width ebnf-repeat-border-color ebnf-terminal-regexp ebnf-case-fold-search ebnf-terminal-font ebnf-terminal-shape ebnf-terminal-shadow ebnf-terminal-border-width ebnf-terminal-border-color ebnf-non-terminal-font ebnf-non-terminal-shape ebnf-non-terminal-shadow ebnf-non-terminal-border-width ebnf-non-terminal-border-color ebnf-production-name-p ebnf-sort-production ebnf-production-font ebnf-arrow-shape ebnf-chart-shape ebnf-user-arrow ebnf-horizontal-orientation ebnf-horizontal-max-height ebnf-production-horizontal-space ebnf-production-vertical-space ebnf-justify-sequence ebnf-lex-comment-char ebnf-lex-eop-char ebnf-syntax ebnf-iso-alternative-p ebnf-iso-normalize-p ebnf-file-suffix-regexp ebnf-eps-prefix ebnf-eps-header-font ebnf-eps-header ebnf-eps-footer-font ebnf-eps-footer ebnf-entry-percentage ebnf-color-p ebnf-line-width ebnf-line-color ebnf-arrow-extra-width ebnf-arrow-scale ebnf-debug-ps ebnf-use-float-format ebnf-stop-on-error ebnf-yac-ignore-error-recovery ebnf-ignore-empty-rule ebnf-optimize ebnf-log] 67 (#$ . 36331)])
#@96 Stack of styles.
Used in functions `ebnf-reset-style', `ebnf-push-style' and
`ebnf-pop-style'.
(defvar ebnf-stack-style nil (#$ . 40872))
#@61 Used in functions `ebnf-apply-style' and `ebnf-push-style'.
(defvar ebnf-current-style 'default (#$ . 41016))
#@39 List of valid symbol custom variable.
(defconst ebnf-style-custom-list '(ebnf-special-show-delimiter ebnf-special-font ebnf-special-shape ebnf-special-shadow ebnf-special-border-width ebnf-special-border-color ebnf-except-font ebnf-except-shape ebnf-except-shadow ebnf-except-border-width ebnf-except-border-color ebnf-repeat-font ebnf-repeat-shape ebnf-repeat-shadow ebnf-repeat-border-width ebnf-repeat-border-color ebnf-terminal-regexp ebnf-case-fold-search ebnf-terminal-font ebnf-terminal-shape ebnf-terminal-shadow ebnf-terminal-border-width ebnf-terminal-border-color ebnf-non-terminal-font ebnf-non-terminal-shape ebnf-non-terminal-shadow ebnf-non-terminal-border-width ebnf-non-terminal-border-color ebnf-production-name-p ebnf-sort-production ebnf-production-font ebnf-arrow-shape ebnf-chart-shape ebnf-user-arrow ebnf-horizontal-orientation ebnf-horizontal-max-height ebnf-production-horizontal-space ebnf-production-vertical-space ebnf-justify-sequence ebnf-lex-comment-char ebnf-lex-eop-char ebnf-syntax ebnf-iso-alternative-p ebnf-iso-normalize-p ebnf-file-suffix-regexp ebnf-eps-prefix ebnf-eps-header-font ebnf-eps-header ebnf-eps-footer-font ebnf-eps-footer ebnf-entry-percentage ebnf-color-p ebnf-line-width ebnf-line-color ebnf-debug-ps ebnf-use-float-format ebnf-stop-on-error ebnf-yac-ignore-error-recovery ebnf-ignore-empty-rule ebnf-optimize) (#$ . 41132))
#@950 Style database.
Each element has the following form:
(NAME INHERITS (VAR . VALUE)...)
Where:
NAME is a symbol name style.
INHERITS is a symbol name style from which the current style inherits
the context. If INHERITS is nil, then there is no inheritance.
This is a simple inheritance of style: if you declare that
style A inherits from style B, all settings of B are applied
first, and then the settings of A are applied. This is useful
when you wish to modify some aspects of an existing style, but
at the same time wish to keep it unmodified.
VAR is a valid ebnf2ps symbol custom variable.
See `ebnf-style-custom-list' for valid symbol variables.
VALUE is a sexp which will be evaluated to set the value of VAR.
Don't forget to quote symbols and constant lists.
See `default' style for an example.
Don't use this variable directly. Use functions `ebnf-insert-style',
`ebnf-delete-style' and `ebnf-merge-style'.
(defvar ebnf-style-database '((default nil (ebnf-special-show-delimiter . t) (ebnf-special-font quote (7 Courier "Black" "Gray95" bold italic)) (ebnf-special-shape quote bevel) (ebnf-special-shadow) (ebnf-special-border-width . 0.5) (ebnf-special-border-color . "Black") (ebnf-except-font quote (7 Courier "Black" "Gray90" bold italic)) (ebnf-except-shape quote bevel) (ebnf-except-shadow) (ebnf-except-border-width . 0.25) (ebnf-except-border-color . "Black") (ebnf-repeat-font quote (7 Courier "Black" "Gray85" bold italic)) (ebnf-repeat-shape quote bevel) (ebnf-repeat-shadow) (ebnf-repeat-border-width . 0.0) (ebnf-repeat-border-color . "Black") (ebnf-terminal-regexp) (ebnf-case-fold-search) (ebnf-terminal-font quote (7 Courier "Black" "White")) (ebnf-terminal-shape quote miter) (ebnf-terminal-shadow) (ebnf-terminal-border-width . 1.0) (ebnf-terminal-border-color . "Black") (ebnf-non-terminal-font quote (7 Helvetica "Black" "White")) (ebnf-non-terminal-shape quote round) (ebnf-non-terminal-shadow) (ebnf-non-terminal-border-width . 1.0) (ebnf-non-terminal-border-color . "Black") (ebnf-production-name-p . t) (ebnf-sort-production) (ebnf-production-font quote (10 Helvetica "Black" "White" bold)) (ebnf-arrow-shape quote hollow) (ebnf-chart-shape quote round) (ebnf-user-arrow) (ebnf-horizontal-orientation) (ebnf-horizontal-max-height) (ebnf-production-horizontal-space . 0.0) (ebnf-production-vertical-space . 0.0) (ebnf-justify-sequence quote center) (ebnf-lex-comment-char . 59) (ebnf-lex-eop-char . 46) (ebnf-syntax quote ebnf) (ebnf-iso-alternative-p) (ebnf-iso-normalize-p) (ebnf-file-suffix-regexp . "\\.[Bb][Nn][Ff]\\'") (ebnf-eps-prefix . "ebnf--") (ebnf-eps-header-font quote (11 Helvetica "Black" "White" bold)) (ebnf-eps-header) (ebnf-eps-footer-font quote (7 Helvetica "Black" "White" bold)) (ebnf-eps-footer) (ebnf-entry-percentage . 0.5) (ebnf-color-p or (fboundp 'x-color-values) (fboundp 'color-instance-rgb-components)) (ebnf-line-width . 1.0) (ebnf-line-color . "Black") (ebnf-debug-ps) (ebnf-use-float-format . t) (ebnf-stop-on-error) (ebnf-yac-ignore-error-recovery) (ebnf-ignore-empty-rule) (ebnf-optimize)) (happy default (ebnf-justify-sequence quote left) (ebnf-lex-comment-char . 35) (ebnf-lex-eop-char . 59)) (abnf default (ebnf-syntax quote abnf)) (iso-ebnf default (ebnf-syntax quote iso-ebnf)) (yacc default (ebnf-syntax quote yacc)) (ebnfx default (ebnf-syntax quote ebnfx)) (dtd default (ebnf-syntax quote dtd))) (#$ . 42519))
#@129 Return style definition if NAME is already defined; otherwise, return nil.
See `ebnf-style-database' documentation.
(fn NAME)
(defalias 'ebnf-find-style #[257 "\301\"\207" [ebnf-style-database assoc] 4 (#$ . 45945) "SStyle name: "])
#@145 Insert a new style NAME with inheritance INHERITS and values VALUES.
See `ebnf-style-database' documentation.
(fn NAME INHERITS &rest VALUES)
(defalias 'ebnf-insert-style #[642 "\301\"\203\f \302\303\"\210\301\"\204 \302\304\"\210\305!BBB\211\207" [ebnf-style-database assoc error "Style name already exists: %s" "Style inheritance name doesn't exist: %s" ebnf-check-style-values] 7 (#$ . 46189) "SStyle name: \nSStyle inherits from: \nXStyle values: "])
#@73 Delete style NAME.
See `ebnf-style-database' documentation.
(fn NAME)
(defalias 'ebnf-delete-style #[257 "\301\"\204\f \302\303\"\210\211\203) \211@A@=\203\" \302\304@@#\210\211A\262\202
\210\305\"\211\207" [ebnf-style-database assoc error "Style name doesn't exist: %s" "Style name `%s' is inherited by `%s' style" assq-delete-all] 6 (#$ . 46664) "SDelete style name: "])
#@113 Merge values of style NAME with style VALUES.
See `ebnf-style-database' documentation.
(fn NAME &rest VALUES)
(defalias 'ebnf-merge-style #[385 "\301\"\206 \302\303\"\304!\305\211\211\211AA\262\203> @\262A\262\301@\"\262\2036 A\241\210\202 \211B\262\202 \237\244\207" [ebnf-style-database assoc error "Style name doesn't exist: %s" ebnf-check-style-values nil] 11 (#$ . 47058) "SStyle name: \nXStyle values: "])
#@118 Set STYLE as the current style.
Returns the old style symbol.
See `ebnf-style-database' documentation.
(fn STYLE)
(defalias 'ebnf-apply-style #[257 "\301!\203 \207" [ebnf-current-style ebnf-apply-style1] 4 (#$ . 47503) "SApply style: "])
#@117 Reset current style.
Returns the old style symbol.
See `ebnf-style-database' documentation.
(fn &optional STYLE)
(defalias 'ebnf-reset-style #[256 "\301\302\206 \303!\207" [ebnf-stack-style nil ebnf-apply-style default] 3 (#$ . 47756) "SReset style: "])
#@196 Push the current style onto a stack and set STYLE as the current style.
Returns the old style symbol.
See also `ebnf-pop-style'.
See `ebnf-style-database' documentation.
(fn &optional STYLE)
(defalias 'ebnf-push-style #[256 "\211 B\203
\302!\210\207" [ebnf-current-style ebnf-stack-style ebnf-apply-style] 4 (#$ . 48023) "SPush style: "])
#@180 Pop a style from the stack of pushed styles and set it as the current style.
Returns the old style symbol.
See also `ebnf-push-style'.
See `ebnf-style-database' documentation.
(defalias 'ebnf-pop-style #[0 "\301@!A\207" [ebnf-stack-style ebnf-apply-style] 2 (#$ . 48378) nil])
#@14
(fn STYLE)
(defalias 'ebnf-apply-style1 #[257 "\301\"A\211@\203 \302@!\210A\211\262\203% @@\303@A!L\210\202 \207" [ebnf-style-database assoc ebnf-apply-style1 eval] 6 (#$ . 48667)])
#@15
(fn VALUES)
(defalias 'ebnf-check-style-values #[257 "\301\203 @@>\203 @B\262A\262\202 \211\237\207" [ebnf-style-custom-list nil] 4 (#$ . 48867)])
(defvar ebnf-eps-buffer-name " *EPS*")
(defvar ebnf-parser-func nil)
(defvar ebnf-eps-executing nil)
(defvar ebnf-eps-header-comment nil)
(defvar ebnf-eps-footer-comment nil)
(defvar ebnf-eps-upper-x 0.0)
(make-variable-buffer-local 'ebnf-eps-upper-x)
(defvar ebnf-eps-upper-y 0.0)
(make-variable-buffer-local 'ebnf-eps-upper-y)
(defvar ebnf-eps-prod-width 0.0)
(make-variable-buffer-local 'ebnf-eps-prod-width)
(defvar ebnf-eps-max-height 0.0)
(make-variable-buffer-local 'ebnf-eps-max-height)
(defvar ebnf-eps-max-width 0.0)
(make-variable-buffer-local 'ebnf-eps-max-width)
#@100 List of EPS file name during parsing.
See section "Actions in Comments" in ebnf2ps documentation.
(defvar ebnf-eps-context nil (#$ . 49610))
#@383 Alist associating file name with EPS header and footer.
Each element has the following form:
(EPS-FILENAME HEADER FOOTER)
EPS-FILENAME is the EPS file name.
HEADER is the header string or nil.
FOOTER is the footer string or nil.
It's generated during parsing and used during EPS generation.
See `ebnf-eps-context' and section "Actions in Comments" in ebnf2ps
documentation.
(defvar ebnf-eps-file-alist nil (#$ . 49759))
#@352 Alist associating production name with EPS file name list.
Each element has the following form:
(PRODUCTION EPS-FILENAME...)
PRODUCTION is the production name.
EPS-FILENAME is the EPS file name.
This is generated during parsing and used during EPS generation.
See `ebnf-eps-context' and section "Actions in Comments" in ebnf2ps
documentation.
(defvar ebnf-eps-production-list nil (#$ . 50194))
#@93 Alist associating values for `ebnf-arrow-shape'.
See documentation for `ebnf-arrow-shape'.
(defconst ebnf-arrow-shape-alist '((none . 0) (semi-up . 1) (semi-down . 2) (simple . 3) (transparent . 4) (hollow . 5) (full . 6) (semi-up-hollow . 7) (semi-up-full . 8) (semi-down-hollow . 9) (semi-down-full . 10) (user . 11)) (#$ . 50602))
#@166 Alist associating values from `ebnf-terminal-shape' to a bit vector.
See documentation for `ebnf-terminal-shape', `ebnf-non-terminal-shape' and
`ebnf-chart-shape'.
(defconst ebnf-terminal-shape-alist '((miter . 0) (round . 1) (bevel . 2)) (#$ . 50944))
(defvar ebnf-limit nil)
(defvar ebnf-action nil)
(defvar ebnf-action-list nil)
(defvar ebnf-default-p nil)
(defvar ebnf-font-height-P 0)
(defvar ebnf-font-height-T 0)
(defvar ebnf-font-height-NT 0)
(defvar ebnf-font-height-S 0)
(defvar ebnf-font-height-E 0)
(defvar ebnf-font-height-R 0)
(defvar ebnf-font-width-P 0)
(defvar ebnf-font-width-T 0)
(defvar ebnf-font-width-NT 0)
(defvar ebnf-font-width-S 0)
(defvar ebnf-font-width-E 0)
(defvar ebnf-font-width-R 0)
(defvar ebnf-space-T 0)
(defvar ebnf-space-NT 0)
(defvar ebnf-space-S 0)
(defvar ebnf-space-E 0)
(defvar ebnf-space-R 0)
(defvar ebnf-basic-width-extra 0)
(defvar ebnf-basic-width 0)
(defvar ebnf-basic-height 0)
(defvar ebnf-basic-empty-height 0)
(defvar ebnf-vertical-space 0)
(defvar ebnf-horizontal-space 0)
(defvar ebnf-settings nil)
(defvar ebnf-fonts-required nil)
#@60 This is intended to help debugging PostScript programming.
(defconst ebnf-debug "\n% === begin EBNF procedures to help debugging\n\n% Mark visually current point: string debug\n/debug\n{/-s- exch def\n currentpoint\n gsave -s- show grestore\n gsave\n 20 20 rlineto\n 0 -40 rlineto\n -40 40 rlineto\n 0 -40 rlineto\n 20 20 rlineto\n stroke\n grestore\n moveto\n}def\n\n% Show number value: number string debug-number\n/debug-number\n{gsave\n 20 0 rmoveto show ([) show 60 string cvs show (]) show\n grestore\n}def\n\n% === end EBNF procedures to help debugging\n\n" (#$ . 52038))
#@27 EBNF PostScript prologue.
(defconst ebnf-prologue "\n% === begin EBNF engine\n\n% --- Basic Definitions\n\n/fS F\n/SpaceS FontHeight 0.5 mul def\n/HeightS FontHeight FontHeight add def\n\n/fE F\n/SpaceE FontHeight 0.5 mul def\n/HeightE FontHeight FontHeight add def\n\n/fR F\n/SpaceR FontHeight 0.5 mul def\n/HeightR FontHeight FontHeight add def\n\n/fT F\n/SpaceT FontHeight 0.5 mul def\n/HeightT FontHeight FontHeight add def\n\n/fNT F\n/SpaceNT FontHeight 0.5 mul def\n/HeightNT FontHeight FontHeight add def\n\n/T HeightT HeightNT add 0.5 mul def\n/hT T 0.5 mul def\n/hT2 hT 0.5 mul ArrowScale mul def\n/hT4 hT 0.25 mul ArrowScale mul def\n\n/Er 0.1 def % Error factor\n\n\n/c{currentpoint}bind def\n/xyi{/xi c /yi exch def def}bind def\n/xyo{/xo c /yo exch def def}bind def\n/xyp{/xp c /yp exch def def}bind def\n/xyt{/xt c /yt exch def def}bind def\n\n% vertical movement: x y height vm\n/vm{add moveto}bind def\n\n% horizontal movement: x y width hm\n/hm{3 -1 roll exch add exch moveto}bind def\n\n% set color: [R G B] SetRGB\n/SetRGB{aload pop setrgbcolor}bind def\n\n% filling gray area: gray-scale FillGray\n/FillGray{gsave setgray fill grestore}bind def\n\n% filling color area: [R G B] FillRGB\n/FillRGB{gsave SetRGB fill grestore}bind def\n\n/Stroke{LineWidth setlinewidth LineColor SetRGB stroke}bind def\n/StrokeShape{borderwidth setlinewidth bordercolor SetRGB stroke}bind def\n/Gstroke{gsave Stroke grestore}bind def\n\n% Empty Line: width EL\n/EL{0 rlineto Gstroke}bind def\n\n% --- Arrows\n\n/Down{hT2 neg hT4 neg rlineto}bind def\n\n/Arrow\n{hT2 neg hT4 rmoveto\n hT2 hT4 neg rlineto\n Down\n}bind def\n\n/ArrowPath{c newpath moveto Arrow closepath}bind def\n\n/UpPath\n{c newpath moveto\n hT2 neg 0 rmoveto\n 0 hT4 rlineto\n hT2 hT4 neg rlineto\n closepath\n}bind def\n\n/DownPath\n{c newpath moveto\n hT2 neg 0 rmoveto\n 0 hT4 neg rlineto\n hT2 hT4 rlineto\n closepath\n}bind def\n\n%>Right Arrow: RA\n% \\\n% *---+\n% /\n/RA-vector\n[{} % 0 - none\n {hT2 neg hT4 rlineto} % 1 - semi-up\n {Down} % 2 - semi-down\n {Arrow} % 3 - simple\n {Gstroke ArrowPath} % 4 - transparent\n {Gstroke ArrowPath 1 FillGray} % 5 - hollow\n {Gstroke ArrowPath LineColor FillRGB} % 6 - full\n {Gstroke UpPath 1 FillGray} % 7 - semi-up-hollow\n {Gstroke UpPath LineColor FillRGB} % 8 - semi-up-full\n {Gstroke DownPath 1 FillGray} % 9 - semi-down-hollow\n {Gstroke DownPath LineColor FillRGB} % 10 - semi-down-full\n {Gstroke gsave UserArrow grestore} % 11 - user\n]def\n\n/RA\n{hT 0 rlineto\n c\n RA-vector ArrowShape get exec\n Gstroke\n moveto\n ExtraWidth 0 rmoveto\n}def\n\n% rotation DrawArrow\n/DrawArrow\n{gsave\n 0 0 translate\n rotate\n RA\n c\n grestore\n rmoveto\n}def\n\n%>Left Arrow: LA\n% /\n% +---*\n% \\\n/LA{180 DrawArrow}def\n\n%>Up Arrow: UA\n% +\n% /|\\\n% |\n% *\n/UA{90 DrawArrow}def\n\n%>Down Arrow: DA\n% *\n% |\n% \\|/\n% +\n/DA{270 DrawArrow}def\n\n% --- Corners\n\n%>corner Right Descendant: height arrow corner_RD\n% _ | arrow\n% / height > 0 | 0 - none\n% | | 1 - right\n% * ---------- | 2 - left\n% | | 3 - vertical\n% \\ height < 0 |\n% - |\n/cRD0-vector\n[% 0 - none\n {0 h rlineto\n hT 0 rlineto}\n % 1 - right\n {0 h rlineto\n RA}\n % 2 - left\n {hT 0 rmoveto xyi\n LA\n 0 h neg rlineto\n xi yi moveto}\n % 3 - vertical\n {hT h rmoveto xyi\n hT neg 0 rlineto\n h 0 gt{DA}{UA}ifelse\n xi yi moveto}\n]def\n\n/cRD-vector\n[{cRD0-vector arrow get exec} % 0 - miter\n {0 0 0 h hT h rcurveto} % 1 - rounded\n {hT h rlineto} % 2 - bevel\n]def\n\n/corner_RD\n{/arrow exch def /h exch def\n cRD-vector ChartShape get exec\n Gstroke\n}def\n\n%>corner Right Ascendant: height arrow corner_RA\n% | arrow\n% | height > 0 | 0 - none\n% / | 1 - right\n% *- ---------- | 2 - left\n% \\ | 3 - vertical\n% | height < 0 |\n% |\n/cRA0-vector\n[% 0 - none\n {hT 0 rlineto\n 0 h rlineto}\n % 1 - right\n {RA\n 0 h rlineto}\n % 2 - left\n {hT h rmoveto xyi\n 0 h neg rlineto\n LA\n xi yi moveto}\n % 3 - vertical\n {hT h rmoveto xyi\n h 0 gt{DA}{UA}ifelse\n hT neg 0 rlineto\n xi yi moveto}\n]def\n\n/cRA-vector\n[{cRA0-vector arrow get exec} % 0 - miter\n {0 0 hT 0 hT h rcurveto} % 1 - rounded\n {hT h rlineto} % 2 - bevel\n]def\n\n/corner_RA\n{/arrow exch def /h exch def\n cRA-vector ChartShape get exec\n Gstroke\n}def\n\n%>corner Left Descendant: height arrow corner_LD\n% _ | arrow\n% \\ height > 0 | 0 - none\n% | | 1 - right\n% * ---------- | 2 - left\n% | | 3 - vertical\n% / height < 0 |\n% - |\n/cLD0-vector\n[% 0 - none\n {0 h rlineto\n hT neg 0 rlineto}\n % 1 - right\n {hT neg h rmoveto xyi\n RA\n 0 h neg rlineto\n xi yi moveto}\n % 2 - left\n {0 h rlineto\n LA}\n % 3 - vertical\n {hT neg h rmoveto xyi\n hT 0 rlineto\n h 0 gt{DA}{UA}ifelse\n xi yi moveto}\n]def\n\n/cLD-vector\n[{cLD0-vector arrow get exec} % 0 - miter\n {0 0 0 h hT neg h rcurveto} % 1 - rounded\n {hT neg h rlineto} % 2 - bevel\n]def\n\n/corner_LD\n{/arrow exch def /h exch def\n cLD-vector ChartShape get exec\n Gstroke\n}def\n\n%>corner Left Ascendant: height arrow corner_LA\n% | arrow\n% | height > 0 | 0 - none\n% \\ | 1 - right\n% -* ---------- | 2 - left\n% / | 3 - vertical\n% | height < 0 |\n% |\n/cLA0-vector\n[% 0 - none\n {hT neg 0 rlineto\n 0 h rlineto}\n % 1 - right\n {hT neg h rmoveto xyi\n 0 h neg rlineto\n RA\n xi yi moveto}\n % 2 - left\n {LA\n 0 h rlineto}\n % 3 - vertical\n {hT neg h rmoveto xyi\n h 0 gt{DA}{UA}ifelse\n hT 0 rlineto\n xi yi moveto}\n]def\n\n/cLA-vector\n[{cLA0-vector arrow get exec} % 0 - miter\n {0 0 hT neg 0 hT neg h rcurveto} % 1 - rounded\n {hT neg h rlineto} % 2 - bevel\n]def\n\n/corner_LA\n{/arrow exch def /h exch def\n cLA-vector ChartShape get exec\n Gstroke\n}def\n\n% --- Flow Stuff\n\n% height prepare-height |- line_height corner_height corner_height\n/prepare-height\n{dup 0 gt\n {T sub hT}\n {T add hT neg}ifelse\n dup\n}def\n\n%>Left Alternative: height LAlt\n% _\n% /\n% | height > 0\n% |\n% /\n% *- ----------\n% \\\n% |\n% | height < 0\n% \\\n% -\n/LAlt\n{dup 0 eq\n {T exch rlineto}\n {dup abs T lt\n {0.5 mul dup\n 1 corner_RA\n 0 corner_RD}\n {prepare-height\n 1 corner_RA\n exch 0 exch rlineto\n 0 corner_RD\n }ifelse\n }ifelse\n}def\n\n%>Left Loop: height LLoop\n% _\n% /\n% | height > 0\n% |\n% \\\n% -* ----------\n% /\n% |\n% | height < 0\n% \\\n% -\n/LLoop\n{prepare-height\n 3 corner_LA\n exch 0 exch rlineto\n 0 corner_RD\n}def\n\n%>Right Alternative: height RAlt\n% _\n% \\\n% | height > 0\n% |\n% \\\n% -* ----------\n% /\n% |\n% | height < 0\n% /\n% -\n/RAlt\n{dup 0 eq\n {T neg exch rlineto}\n {dup abs T lt\n {0.5 mul dup\n 1 corner_LA\n 0 corner_LD}\n {prepare-height\n 1 corner_LA\n exch 0 exch rlineto\n 0 corner_LD\n }ifelse\n }ifelse\n}def\n\n%>Right Loop: height RLoop\n% _\n% \\\n% | height > 0\n% |\n% /\n% *- ----------\n% \\\n% |\n% | height < 0\n% /\n% -\n/RLoop\n{prepare-height\n 1 corner_RA\n exch 0 exch rlineto\n 0 corner_LD\n}def\n\n% --- Terminal, Non-terminal and Special Basics\n\n% string width prepare-width |- string\n/prepare-width\n{/width exch def\n dup stringwidth pop space add space add width exch sub ExtraWidth sub 0.5 mul\n /w exch def\n}def\n\n% string width begin-right\n/begin-right\n{xyo\n prepare-width\n w hT sub EL\n RA\n}def\n\n% end-right\n/end-right\n{xo width add Er add yo moveto\n w Er add neg EL\n xo yo moveto\n}def\n\n% string width begin-left\n/begin-left\n{xyo\n prepare-width\n w EL\n}def\n\n% end-left\n/end-left\n{xo width add Er add yo moveto\n hT w sub Er add EL\n LA\n xo yo moveto\n}def\n\n/ShapePath-vector\n[% 0 - miter\n {xx yy moveto\n xx YY lineto\n XX YY lineto\n XX yy lineto}\n % 1 - rounded\n {/half YY yy sub 0.5 mul abs def\n xx half add YY moveto\n 0 0 half neg 0 half neg half neg rcurveto\n 0 0 0 half neg half half neg rcurveto\n XX xx sub abs half sub half sub 0 rlineto\n 0 0 half 0 half half rcurveto\n 0 0 0 half half neg half rcurveto}\n % 2 - bevel\n {/quarter YY yy sub 0.25 mul abs def\n xx quarter add YY moveto\n quarter neg quarter neg rlineto\n 0 quarter quarter add neg rlineto\n quarter quarter neg rlineto\n XX xx sub abs quarter sub quarter sub 0 rlineto\n quarter quarter rlineto\n 0 quarter quarter add rlineto\n quarter neg quarter rlineto}\n]def\n\n/doShapePath\n{newpath\n ShapePath-vector shape get exec\n closepath\n}def\n\n/doShapeShadow\n{gsave\n Xshadow Xshadow add Xshadow add\n Yshadow Yshadow add Yshadow add translate\n doShapePath\n 0.9 FillGray\n grestore\n}def\n\n/doShape\n{gsave\n doShapePath\n shapecolor FillRGB\n StrokeShape\n grestore\n}def\n\n% string SBound |- string\n/SBound\n{/xx c dup /yy exch def\n FontHeight add /YY exch def def\n dup stringwidth pop xx add /XX exch def\n Effect 8 and 0 ne\n {/yy yy YShadow add def\n /XX XX XShadow add def\n }if\n}def\n\n% string SBox\n/SBox\n{gsave\n c space sub moveto\n SBound\n /XX XX space add space add def\n /YY YY space add def\n /yy yy space sub def\n shadow{doShapeShadow}if\n doShape\n space Descent abs rmoveto\n foreground SetRGB S\n grestore\n}def\n\n% --- Terminal\n\n% TeRminal: string TR\n/TR\n{/Effect EffectT def\n /shape ShapeT def\n /shapecolor BackgroundT def\n /borderwidth BorderWidthT def\n /bordercolor BorderColorT def\n /foreground ForegroundT def\n /shadow ShadowT def\n SBox\n}def\n\n%>Right Terminal: string width RT |- x y\n/RT\n{xyt\n /fT F\n /space SpaceT def\n begin-right\n TR\n end-right\n xt yt\n}def\n\n%>Left Terminal: string width LT |- x y\n/LT\n{xyt\n /fT F\n /space SpaceT def\n begin-left\n TR\n end-left\n xt yt\n}def\n\n%>Right Terminal Default: string width RTD |- x y\n/RTD\n{/-save- BorderWidthT def\n /BorderWidthT BorderWidthT DefaultWidth add def\n RT\n /BorderWidthT -save- def\n}def\n\n%>Left Terminal Default: string width LTD |- x y\n/LTD\n{/-save- BorderWidthT def\n /BorderWidthT BorderWidthT DefaultWidth add def\n LT\n /BorderWidthT -save- def\n}def\n\n% --- Non-Terminal\n\n% Non-Terminal: string NT\n/NT\n{/Effect EffectNT def\n /shape ShapeNT def\n /shapecolor BackgroundNT def\n /borderwidth BorderWidthNT def\n /bordercolor BorderColorNT def\n /foreground ForegroundNT def\n /shadow ShadowNT def\n SBox\n}def\n\n%>Right Non-Terminal: string width RNT |- x y\n/RNT\n{xyt\n /fNT F\n /space SpaceNT def\n begin-right\n NT\n end-right\n xt yt\n}def\n\n%>Left Non-Terminal: string width LNT |- x y\n/LNT\n{xyt\n /fNT F\n /space SpaceNT def\n begin-left\n NT\n end-left\n xt yt\n}def\n\n%>Right Non-Terminal Default: string width RNTD |- x y\n/RNTD\n{/-save- BorderWidthNT def\n /BorderWidthNT BorderWidthNT DefaultWidth add def\n RNT\n /BorderWidthNT -save- def\n}def\n\n%>Left Non-Terminal Default: string width LNTD |- x y\n/LNTD\n{/-save- BorderWidthNT def\n /BorderWidthNT BorderWidthNT DefaultWidth add def\n LNT\n /BorderWidthNT -save- def\n}def\n\n% --- Special\n\n% SPecial: string SP\n/SP\n{/Effect EffectS def\n /shape ShapeS def\n /shapecolor BackgroundS def\n /borderwidth BorderWidthS def\n /bordercolor BorderColorS def\n /foreground ForegroundS def\n /shadow ShadowS def\n SBox\n}def\n\n%>Right SPecial: string width RSP |- x y\n/RSP\n{xyt\n /fS F\n /space SpaceS def\n begin-right\n SP\n end-right\n xt yt\n}def\n\n%>Left SPecial: string width LSP |- x y\n/LSP\n{xyt\n /fS F\n /space SpaceS def\n begin-left\n SP\n end-left\n xt yt\n}def\n\n%>Right SPecial Default: string width RSPD |- x y\n/RSPD\n{/-save- BorderWidthS def\n /BorderWidthS BorderWidthS DefaultWidth add def\n RSP\n /BorderWidthS -save- def\n}def\n\n%>Left SPecial Default: string width LSPD |- x y\n/LSPD\n{/-save- BorderWidthS def\n /BorderWidthS BorderWidthS DefaultWidth add def\n LSP\n /BorderWidthS -save- def\n}def\n\n% --- Repeat and Except basics\n\n/begin-direction\n{/w width rwidth sub 0.5 mul def\n width 0 rmoveto}def\n\n/end-direction\n{gsave\n /xx c entry add /YY exch def def\n /yy YY height sub def\n /XX xx rwidth add def\n shadow{doShapeShadow}if\n doShape\n grestore\n}def\n\n/right-direction\n{begin-direction\n w neg EL\n xt yt moveto\n w hT sub EL RA\n end-direction\n}def\n\n/left-direction\n{begin-direction\n hT w sub EL LA\n xt yt moveto\n w EL\n end-direction\n}def\n\n% --- Repeat\n\n% entry height width rwidth begin-repeat\n/begin-repeat\n{/rwidth exch def\n /width exch def\n /height exch def\n /entry exch def\n /fR F\n /space SpaceR def\n /Effect EffectR def\n /shape ShapeR def\n /shapecolor BackgroundR def\n /borderwidth BorderWidthR def\n /bordercolor BorderColorR def\n /foreground ForegroundR def\n /shadow ShadowR def\n xyt\n}def\n\n% string end-repeat |- x y\n/end-repeat\n{gsave\n space Descent rmoveto\n foreground SetRGB S\n c Descent sub\n grestore\n exch space add exch moveto\n xt yt\n}def\n\n%>Right RePeat: string entry height width rwidth RRP |- x y\n/RRP{begin-repeat right-direction end-repeat}def\n\n%>Left RePeat: string entry height width rwidth LRP |- x y\n/LRP{begin-repeat left-direction end-repeat}def\n\n% --- Except\n\n% entry height width rwidth begin-except\n/begin-except\n{/rwidth exch def\n /width exch def\n /height exch def\n /entry exch def\n /fE F\n /space SpaceE def\n /Effect EffectE def\n /shape ShapeE def\n /shapecolor BackgroundE def\n /borderwidth BorderWidthE def\n /bordercolor BorderColorE def\n /foreground ForegroundE def\n /shadow ShadowE def\n xyt\n}def\n\n% x-width end-except |- x y\n/end-except\n{gsave\n space space add add Descent rmoveto\n (-) foreground SetRGB S\n grestore\n space 0 rmoveto\n xt yt\n}def\n\n%>Right EXcept: x-width entry height width rwidth REX |- x y\n/REX{begin-except right-direction end-except}def\n\n%>Left EXcept: x-width entry height width rwidth LEX |- x y\n/LEX{begin-except left-direction end-except}def\n\n% --- Sequence\n\n%>Beginning Of Sequence: BOS |- x y\n/BOS{currentpoint}bind def\n\n%>End Of Sequence: x y x1 y1 EOS |- x y\n/EOS{pop pop}bind def\n\n% --- Production\n\n%>Beginning Of Production: string width height BOP |- y x\n/BOP\n{xyp\n neg yp add /yw exch def\n xp add T sub /xw exch def\n dup length 0 gt % empty string ==> no production name\n {/Effect EffectP def\n /fP F ForegroundP SetRGB BackgroundP aload pop true BG S\n /Effect 0 def\n ( :) S false BG}{pop}ifelse\n xw yw moveto\n hT EL RA\n xp yw moveto\n T EL\n yp xp\n}def\n\n%>End Of Production: y x delta EOP\n/EOPH{add exch moveto}bind def % horizontal\n/EOPV{exch pop sub 0 exch moveto}bind def % vertical\n\n% --- Empty Alternative\n\n%>Empty Alternative: width EA |- x y\n/EA\n{gsave\n Er add 0 rlineto\n Stroke\n grestore\n c\n}def\n\n% --- Alternative\n\n%>AlTernative: h1 h2 ... hn n width AT |- x y\n/AT\n{xyo xo add /xw exch def\n xw yo moveto\n Er EL\n {xw yo moveto\n dup RAlt\n xo yo moveto\n LAlt}repeat\n xo yo\n}def\n\n% --- Optional\n\n%>OPtional: height width OP |- x y\n/OP\n{xyo\n T sub /ow exch def\n ow Er sub 0 rmoveto\n T Er add EL\n neg dup RAlt\n ow T sub neg EL\n xo yo moveto\n LAlt\n xo yo moveto\n T EL\n xo yo\n}def\n\n% --- List Flow\n\n%>One or More: height width OM |- x y\n/OM\n{xyo\n /ow exch def\n ow Er add 0 rmoveto\n T Er add neg EL\n dup RLoop\n xo T add yo moveto\n LLoop\n xo yo moveto\n T EL\n xo yo\n}def\n\n%>Zero or More: h2 h1 width ZM |- x y\n/ZM\n{xyo\n Er add EL\n Er neg 0 rmoveto\n dup RAlt\n exch dup RLoop\n xo yo moveto\n exch dup LAlt\n exch LLoop\n yo add xo T add exch moveto\n xo yo\n}def\n\n% === end EBNF engine\n\n" (#$ . 52627))
#@20 EBNF EPS prologue.
(defconst ebnf-eps-prologue "\n/#ebnf2ps#dict 230 dict def\n#ebnf2ps#dict begin\n\n% Initialize variables to avoid name-conflicting with document variables.\n% This is the case when using `bind' operator.\n/-fillp- 0 def /h 0 def\n/-ox- 0 def /half 0 def\n/-oy- 0 def /height 0 def\n/-save- 0 def /ow 0 def\n/Ascent 0 def /quarter 0 def\n/Descent 0 def /rXX 0 def\n/Effect 0 def /rYY 0 def\n/FontHeight 0 def /rwidth 0 def\n/LineThickness 0 def /rxx 0 def\n/OverlinePosition 0 def /ryy 0 def\n/SpaceBackground 0 def /shadow 0 def\n/StrikeoutPosition 0 def /shape 0 def\n/UnderlinePosition 0 def /shapecolor 0 def\n/XBox 0 def /space 0 def\n/XX 0 def /st 1 string def\n/Xshadow 0 def /w 0 def\n/YBox 0 def /width 0 def\n/YY 0 def /xi 0 def\n/Yshadow 0 def /xo 0 def\n/arrow 0 def /xp 0 def\n/bg false def /xt 0 def\n/bgcolor 0 def /xw 0 def\n/bordercolor 0 def /xx 0 def\n/borderwidth 0 def /yi 0 def\n/dd 0 def /yo 0 def\n/entry 0 def /yp 0 def\n/foreground 0 def /yt 0 def\n /yy 0 def\n\n\n% ISOLatin1Encoding stolen from ps_init.ps in GhostScript 2.6.1.4:\n/ISOLatin1Encoding where\n{pop}\n{% -- The ISO Latin-1 encoding vector isn't known, so define it.\n % -- The first half is the same as the standard encoding,\n % -- except for minus instead of hyphen at code 055.\n /ISOLatin1Encoding\n StandardEncoding 0 45 getinterval aload pop\n /minus\n StandardEncoding 46 82 getinterval aload pop\n %*** NOTE: the following are missing in the Adobe documentation,\n %*** but appear in the displayed table:\n %*** macron at 0225, dieresis at 0230, cedilla at 0233, space at 0240.\n % 0200 (128)\n /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef\n /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef\n /dotlessi /grave /acute /circumflex /tilde /macron /breve /dotaccent\n /dieresis /.notdef /ring /cedilla /.notdef /hungarumlaut /ogonek /caron\n % 0240 (160)\n /space /exclamdown /cent /sterling\n /currency /yen /brokenbar /section\n /dieresis /copyright /ordfeminine /guillemotleft\n /logicalnot /hyphen /registered /macron\n /degree /plusminus /twosuperior /threesuperior\n /acute /mu /paragraph /periodcentered\n /cedilla /onesuperior /ordmasculine /guillemotright\n /onequarter /onehalf /threequarters /questiondown\n % 0300 (192)\n /Agrave /Aacute /Acircumflex /Atilde\n /Adieresis /Aring /AE /Ccedilla\n /Egrave /Eacute /Ecircumflex /Edieresis\n /Igrave /Iacute /Icircumflex /Idieresis\n /Eth /Ntilde /Ograve /Oacute\n /Ocircumflex /Otilde /Odieresis /multiply\n /Oslash /Ugrave /Uacute /Ucircumflex\n /Udieresis /Yacute /Thorn /germandbls\n % 0340 (224)\n /agrave /aacute /acircumflex /atilde\n /adieresis /aring /ae /ccedilla\n /egrave /eacute /ecircumflex /edieresis\n /igrave /iacute /icircumflex /idieresis\n /eth /ntilde /ograve /oacute\n /ocircumflex /otilde /odieresis /divide\n /oslash /ugrave /uacute /ucircumflex\n /udieresis /yacute /thorn /ydieresis\n 256 packedarray def\n}ifelse\n\n/reencodeFontISO %def\n{dup\n length 12 add dict % Make a new font (a new dict the same size\n % as the old one) with room for our new symbols.\n\n begin % Make the new font the current dictionary.\n {1 index /FID ne\n {def}{pop pop}ifelse\n }forall % Copy each of the symbols from the old dictionary\n % to the new one except for the font ID.\n\n currentdict /FontType get 0 ne\n {/Encoding ISOLatin1Encoding def}if % Override the encoding with\n % the ISOLatin1 encoding.\n\n % Use the font's bounding box to determine the ascent, descent,\n % and overall height; don't forget that these values have to be\n % transformed using the font's matrix.\n\n % ^ (x2 y2)\n % | |\n % | v\n % | +----+ - -\n % | | | ^\n % | | | | Ascent (usually > 0)\n % | | | |\n % (0 0) -> +--+----+-------->\n % | | |\n % | | v Descent (usually < 0)\n % (x1 y1) --> +----+ - -\n\n currentdict /FontType get 0 ne\n {/FontBBox load aload pop % -- x1 y1 x2 y2\n FontMatrix transform /Ascent exch def pop\n FontMatrix transform /Descent exch def pop}\n {/PrimaryFont FDepVector 0 get def\n PrimaryFont /FontBBox get aload pop\n PrimaryFont /FontMatrix get transform /Ascent exch def pop\n PrimaryFont /FontMatrix get transform /Descent exch def pop\n }ifelse\n\n /FontHeight Ascent Descent sub def % use `sub' because descent < 0\n\n % Define these in case they're not in the FontInfo\n % (also, here they're easier to get to).\n /UnderlinePosition Descent 0.70 mul def\n /OverlinePosition Descent UnderlinePosition sub Ascent add def\n /StrikeoutPosition Ascent 0.30 mul def\n /LineThickness FontHeight 0.05 mul def\n /Xshadow FontHeight 0.08 mul def\n /Yshadow FontHeight -0.09 mul def\n /SpaceBackground Descent neg UnderlinePosition add def\n /XBox Descent neg def\n /YBox LineThickness 0.7 mul def\n\n currentdict % Leave the new font on the stack\n end % Stop using the font as the current dictionary\n definefont % Put the font into the font dictionary\n pop % Discard the returned font\n}bind def\n\n% Font definition\n/DefFont{findfont exch scalefont reencodeFontISO}def\n\n% Font selection\n/F\n{findfont\n dup /Ascent get /Ascent exch def\n dup /Descent get /Descent exch def\n dup /FontHeight get /FontHeight exch def\n dup /UnderlinePosition get /UnderlinePosition exch def\n dup /OverlinePosition get /OverlinePosition exch def\n dup /StrikeoutPosition get /StrikeoutPosition exch def\n dup /LineThickness get /LineThickness exch def\n dup /Xshadow get /Xshadow exch def\n dup /Yshadow get /Yshadow exch def\n dup /SpaceBackground get /SpaceBackground exch def\n dup /XBox get /XBox exch def\n dup /YBox get /YBox exch def\n setfont\n}def\n\n/BG\n{dup /bg exch def\n {mark 4 1 roll ]}\n {[ 1.0 1.0 1.0 ]}\n ifelse\n /bgcolor exch def\n}def\n\n% stack: --\n/FillBgColor{bgcolor aload pop setrgbcolor fill}bind def\n\n% stack: fill-or-not lower-x lower-y upper-x upper-y |- --\n/doRect\n{/rYY exch def\n /rXX exch def\n /ryy exch def\n /rxx exch def\n gsave\n newpath\n rXX rYY moveto\n rxx rYY lineto\n rxx ryy lineto\n rXX ryy lineto\n closepath\n % top of stack: fill-or-not\n {FillBgColor}\n {LineThickness setlinewidth stroke}\n ifelse\n grestore\n}bind def\n\n% stack: string fill-or-not |- --\n/doOutline\n{/-fillp- exch def\n /-ox- currentpoint /-oy- exch def def\n gsave\n LineThickness setlinewidth\n {st 0 3 -1 roll put\n st dup true charpath\n -fillp- {gsave FillBgColor grestore}if\n stroke stringwidth\n -oy- add /-oy- exch def\n -ox- add /-ox- exch def\n -ox- -oy- moveto\n }forall\n grestore\n -ox- -oy- moveto\n}bind def\n\n% stack: fill-or-not delta |- --\n/doBox\n{/dd exch def\n xx XBox sub dd sub yy YBox sub dd sub\n XX XBox add dd add YY YBox add dd add\n doRect\n}bind def\n\n% stack: string |- --\n/doShadow\n{gsave\n Xshadow Yshadow rmoveto\n false doOutline\n grestore\n}bind def\n\n% stack: position |- --\n/Hline\n{currentpoint exch pop add dup\n gsave\n newpath\n xx exch moveto\n XX exch lineto\n closepath\n LineThickness setlinewidth stroke\n grestore\n}bind def\n\n% stack: string |- --\n% effect: 1 - underline 2 - strikeout 4 - overline\n% 8 - shadow 16 - box 32 - outline\n/S\n{/xx currentpoint dup Descent add /yy exch def\n Ascent add /YY exch def def\n dup stringwidth pop xx add /XX exch def\n Effect 8 and 0 ne\n {/yy yy Yshadow add def\n /XX XX Xshadow add def\n }if\n bg\n {true\n Effect 16 and 0 ne\n {SpaceBackground doBox}\n {xx yy XX YY doRect}\n ifelse\n }if % background\n Effect 16 and 0 ne{false 0 doBox}if % box\n Effect 8 and 0 ne{dup doShadow}if % shadow\n Effect 32 and 0 ne\n {true doOutline} % outline\n {show} % normal text\n ifelse\n Effect 1 and 0 ne{UnderlinePosition Hline}if % underline\n Effect 2 and 0 ne{StrikeoutPosition Hline}if % strikeout\n Effect 4 and 0 ne{OverlinePosition Hline}if % overline\n}bind def\n\n" (#$ . 68360))
#@17 EBNF EPS begin.
(defconst ebnf-eps-begin "\nend\n\n% x y #ebnf2ps#begin\n/#ebnf2ps#begin\n{#ebnf2ps#dict begin /#ebnf2ps#save save def\n moveto false BG 0.0 0.0 0.0 setrgbcolor}def\n\n/#ebnf2ps#end{showpage #ebnf2ps#save restore end}def\n\n%%EndProlog\n" (#$ . 76721))
#@15 EBNF EPS end.
(defconst ebnf-eps-end "#ebnf2ps#end\n%%EOF\n" (#$ . 76996))
#@14
(fn VALUE)
(defalias 'ebnf-eps-header-footer #[257 "\2119\203 \300!\203 \211 \202 \301!\203 \211J\202 \302\202 \211\211;\205& \211\207" [fboundp boundp nil] 3 (#$ . 77077)])
(defalias 'ebnf-eps-header #[0 "\301!\207" [ebnf-eps-header ebnf-eps-header-footer] 2])
(defalias 'ebnf-eps-footer #[0 "\301!\207" [ebnf-eps-footer ebnf-eps-header-footer] 2])
#@15
(fn STRING)
(defalias 'ebnf-eps-string #[257 "\211\211G\301\302\303\211\304\305#\211\262\203A H\262\306#\301X\2033 \307X\2033 H\2027 \310\311\"Q\262T\262\202 W\205Q \306#\312Q\207" [ps-string-escape-codes 0 "(" nil string-match "[[:cntrl:][:nonascii:]()\\]" substring 255 format "\\%04X" ")"] 12 (#$ . 77445)])
#@12
(fn STR)
(defalias 'ebnf-eps-header-footer-comment #[257 "\211GS\300\301\211\211\302\303#\211\262\203X W\203! TH\202\" \304\262\305#\306U\2036 \303\202M \307U\203A \310 \202M \311U\203L \312 \202M \301Q\262\313\\\262\202 \314X\205j \305 T#P!\207" [0 nil string-match "%" 63 substring 37 72 ebnf-eps-header 70 ebnf-eps-footer 2 ebnf-eps-string] 12 (#$ . 77798)])
#@14
(fn VALUE)
(defalias 'ebnf-eps-header-footer-p #[257 "\211?\206
\211;\205
\211\300\230?\207" [""] 3 (#$ . 78200)])
#@12
(fn STR)
(defalias 'ebnf-eps-header-comment #[257 "\302!\205 \303!\211\207" [ebnf-eps-header ebnf-eps-header-comment ebnf-eps-header-footer-p ebnf-eps-header-footer-comment] 3 (#$ . 78325)])
#@12
(fn STR)
(defalias 'ebnf-eps-footer-comment #[257 "\302!\205 \303!\211\207" [ebnf-eps-footer ebnf-eps-footer-comment ebnf-eps-header-footer-p ebnf-eps-header-footer-comment] 3 (#$ . 78528)])
#@17
(fn FILENAME)
(defalias 'ebnf-eps-header-footer-file #[257 "\303\" \206\n \304 \n\206 \305 \204 EB\211\202) A\240\210AA\240\207" [ebnf-eps-file-alist ebnf-eps-header-comment ebnf-eps-footer-comment assoc ebnf-eps-header ebnf-eps-footer] 7 (#$ . 78731)])
#@17
(fn FILENAME)
(defalias 'ebnf-eps-header-footer-set #[257 "\303\"\211A@\3048\211\207" [ebnf-eps-file-alist ebnf-eps-header-comment ebnf-eps-footer-comment assoc 2] 4 (#$ . 79007)])
(defvar ebnf-format-float "%1.3f")
#@21
(fn &rest FLOATS)
(defalias 'ebnf-format-float #[128 "\300\301\302#\207" [mapconcat #[257 "\301\"\207" [ebnf-format-float format] 4 "\n\n(fn FLOAT)"] " "] 5 (#$ . 79236)])
#@33
(fn FORMAT-STR COLOR DEFAULT)
(defalias 'ebnf-format-color #[771 "\206 \211\300!\301\302\303@A@\3048#\305Q#\207" [ps-color-scale format "[" ebnf-format-float 2 "]"] 13 (#$ . 79419)])
(defvar ebnf-message-float "%3.2f")
#@25
(fn FORMAT-STR VALUE)
(defalias 'ebnf-message-float #[514 "\301\302\"\"\207" [ebnf-message-float message format] 7 (#$ . 79655)])
(put 'ebnf-message-float 'byte-optimizer 'byte-compile-inline-expand)
(defvar ebnf-total 0)
(defvar ebnf-nprod 0)
#@15
(fn MESSAG)
(defalias 'ebnf-message-info #[257 "\302\303\304T\211\305_ \245!#\207" [ebnf-nprod ebnf-total message "%s...%3d%%" round 100.0] 7 (#$ . 79910)])
(put 'ebnf-message-info 'byte-optimizer 'byte-compile-inline-expand)
#@28
(fn VEC &optional VALUE)
(defalias 'ebnf-node-kind '(macro . #[513 "\211\203\n \300\301F\207\302\303BB\207" [aset 0 aref (0)] 6 (#$ . 80147)]))
#@19
(fn NODE WIDTH)
(defalias 'ebnf-node-width-func '(macro . #[514 "\300\301\302BBF\207" [funcall aref (1)] 6 (#$ . 80302)]))
#@29
(fn NODE &optional VALUE)
(defalias 'ebnf-node-dimension-func '(macro . #[513 "\211\203\n \300\301F\207\302\303\304BBE\207" [aset 2 funcall aref (2)] 6 (#$ . 80436)]))
#@28
(fn VEC &optional VALUE)
(defalias 'ebnf-node-entry '(macro . #[513 "\211\203\n \300\301F\207\302\303BB\207" [aset 3 aref (3)] 6 (#$ . 80616)]))
#@28
(fn VEC &optional VALUE)
(defalias 'ebnf-node-height '(macro . #[513 "\211\203\n \300\301F\207\302\303BB\207" [aset 4 aref (4)] 6 (#$ . 80772)]))
#@28
(fn VEC &optional VALUE)
(defalias 'ebnf-node-width '(macro . #[513 "\211\203\n \300\301F\207\302\303BB\207" [aset 5 aref (5)] 6 (#$ . 80929)]))
#@12
(fn VEC)
(defalias 'ebnf-node-name '(macro . #[257 "\300\301BB\207" [aref (6)] 4 (#$ . 81085)]))
#@28
(fn VEC &optional VALUE)
(defalias 'ebnf-node-list '(macro . #[513 "\211\203\n \300\301F\207\302\303BB\207" [aset 6 aref (6)] 6 (#$ . 81191)]))
#@12
(fn VEC)
(defalias 'ebnf-node-default '(macro . #[257 "\300\301BB\207" [aref (7)] 4 (#$ . 81346)]))
#@28
(fn VEC &optional VALUE)
(defalias 'ebnf-node-production '(macro . #[513 "\211\203\n \300\301F\207\302\303BB\207" [aset 7 aref (7)] 6 (#$ . 81455)]))
#@28
(fn VEC &optional VALUE)
(defalias 'ebnf-node-separator '(macro . #[513 "\211\203\n \300\301F\207\302\303BB\207" [aset 7 aref (7)] 6 (#$ . 81616)]))
#@28
(fn VEC &optional VALUE)
(defalias 'ebnf-node-action '(macro . #[513 "\211\203\n \300\301F\207\302\303BB\207" [aset 8 aref (8)] 6 (#$ . 81776)]))
#@13
(fn NODE)
(defalias 'ebnf-node-generation '(macro . #[257 "\300\301DE\207" [funcall ebnf-node-kind] 4 (#$ . 81933)]))
#@13
(fn PROD)
(defalias 'ebnf-max-width '(macro . #[257 "\300\301D\302\303\304\305DD\306BB\307BBE\207" [max ebnf-node-width + * length ebnf-node-name (ebnf-font-width-P) (ebnf-production-horizontal-space)] 8 (#$ . 82061)]))
#@13
(fn TREE)
(defalias 'ebnf-generate-eps #[257 "\211 \205 \306 \211\203 \307\310\311!@!\202 \312G \313 \3141!\315\211 2\315\211\211\211\211\211C\316\313\317\320\321\f\"\322\"\323$\216\324K\325K\316\313\326\320\321\"\327\"\330$\216\324\331M\210\325\332M\210\212\203\355 @\262\333H\262\334H\333HG3_4\\]\262\335H\262\336H5>\262 r q\210\3376\340789\341!\210)\342#\"A\211\262\203\324 \343\316\313\344\320\321 !\345\"\346$\316\347\350\320\321\n!\345\"\323\351%B &\210\202\335 \352\n\353 !\"\210r q\210\354 \210)A\211\204[ \355\242\356\"\210\315\240\210*\266)\357\360!.\207" [ebnf-tree ebnf-color-p ps-color-p ps-print-color-scale ebnf-total ebnf-nprod ps-color-device float ps-color-values "white" 1.0 0 get-buffer-create nil make-byte-code "\302\300!\210\303\301\242\304\"\207" vconcat vector [kill-buffer ebnf-eps-write-kill-temp nil] 3 ps-output-string ps-output "\302\300M\210\303\301M\207" [ps-output-string ps-output] 2 ps-output-string-prim ebnf-eps-output 6 5 4 8 0.0 0.0 ebnf-generate-production assoc ebnf-eps-production-list "\300\242\207" [] 1 257 "\300\240\207" "\n\n(fn GV--VAL)" ebnf-eps-finish-and-write ebnf-eps-filename erase-buffer ebnf-eps-write-kill-temp t message " " ebnf-eps-buffer-name ebnf-debug-ps ebnf-font-width-P ebnf-production-horizontal-space ebnf-action-list ebnf-eps-upper-x ebnf-eps-upper-y ebnf-eps-max-width ebnf-eps-max-height] 21 (#$ . 82292)])
#@26
(fn FILE-LIST WRITE-P)
(defalias 'ebnf-eps-write-kill-temp #[514 "\205% \300\301@\302Q!\211\203 \203 \303@\"\210\304!\210\210A\262\202 \207" [get-buffer " *" "*" ebnf-eps-finish-and-write kill-buffer] 6 (#$ . 83745)])
#@77
(fn PROD-LIST FILE-LIST-REF HORIZONTAL PROD-WIDTH PROD-HEIGHT EPS-BUFFER)
(defalias 'ebnf-eps-production-list #[1542 "\205\201 @\211A\211@ \262\235\203 \211\202 B\262!\266r\306\307@\310Q!q\210db\210\311 \312U\203A \313\314\202s \203V \315\f!\210\316\n
# ]\202s \317 !\210\n] \312U\203h \202n \316 #\320!\210)A\262\202 \207" [ebnf-eps-upper-x ebnf-eps-upper-y ebnf-eps-max-width ebnf-eps-max-height ebnf-eps-prod-width ebnf-production-horizontal-space get-buffer-create " *" "*" buffer-size 0 0.0 0.0 ebnf-eop-horizontal + ebnf-eop-vertical insert-buffer-substring ebnf-production-vertical-space] 12 (#$ . 83982)])
#@13
(fn TREE)
(defalias 'ebnf-generate #[257 "\211 \205 \306 \211\203 \307\310\311!@!\202 \312\313\211 \313\211 \313\211 \313 \314ped\315$.\n\207" [ebnf-tree ebnf-color-p ps-color-p ps-print-color-scale ps-zebra-stripes ps-line-number ps-color-device float ps-color-values "white" 1.0 nil ps-generate ebnf-generate-postscript ps-razzle-dazzle ps-print-hook ps-print-begin-sheet-hook ps-print-begin-page-hook ps-print-begin-column-hook] 7 (#$ . 84647)])
(defvar ebnf-direction "R")
#@16
(fn FROM TO)
(defalias 'ebnf-generate-postscript #[514 "\301 \210\203
\302 \210\202 \303 \210\304\305!\207" [ebnf-horizontal-max-height ebnf-begin-file ebnf-generate-with-max-height ebnf-generate-without-max-height message " "] 4 (#$ . 85146)])
(defalias 'ebnf-generate-with-max-height #[0 "G\306\307\211\211\211\205\244 \262@\262\310H\262\311\211\312H\313HG _\f\\]\"\210A\211\262\203n @\211\262\203n \314H
>\203n \312H\313HG _\f\\]\211\262\203n \211X\203n \310H]\262\f\\Z\202+ \315!\210@\262\316!\210A\211=\204\235 \317\312H\313HG _\f\\]!\210@\262\316!\210\202z \320!\210\202 *\207" [ebnf-tree ebnf-nprod ebnf-total ebnf-font-width-P ebnf-production-horizontal-space ebnf-action-list 0 nil 4 ebnf-begin-line 5 6 8 ebnf-newline ebnf-generate-production ebnf-eop-horizontal ebnf-eop-vertical ps-width-remaining] 11])
(defalias 'ebnf-generate-without-max-height #[0 "G\306\307\211\211\211\205\220 @\262\310H\262\311H\312HG _\f\\]\262\313\"\210\314!\210A\211\203\205 @\211\262\203\205 \315H
>\203\205 \311H\312HG _\f\\]\211\262\203\205 \211X\203\205 \310HX\203\205 \316!\210\314!\210\211\262\310H]\262\f\\Z\202/ \317!\210\320!\210\202 *\207" [ebnf-tree ebnf-nprod ebnf-total ebnf-font-width-P ebnf-production-horizontal-space ebnf-action-list 0 nil 4 5 6 ebnf-begin-line ebnf-generate-production 8 ebnf-eop-horizontal ebnf-eop-vertical ebnf-newline ps-width-remaining ps-height-remaining] 9])
#@19
(fn PROD WIDTH)
(defalias 'ebnf-begin-line #[514 "\303H\304=\204 \305HV\203 \306 \210 \n\\Z\211\207" [ps-height-remaining ps-width-remaining ebnf-production-horizontal-space 8 form-feed 4 ebnf-new-page] 5 (#$ . 86636)])
#@15
(fn HEIGHT)
(defalias 'ebnf-newline #[257 "\211V\203 \304 \210 \\Z\211\207" [ps-height-remaining ps-print-width ps-width-remaining ebnf-production-vertical-space ebnf-new-page] 4 (#$ . 86871)])
#@19
(fn PRODUCTION)
(defalias 'ebnf-generate-production #[257 "\304\305\306\307T\211\310_ \245!#\266\311\312!\210\313\n\203 \314H\202! \315!\210\316\317\320\321H\n\2031 \2022 \322\323H\324H\\\"\325#\210\211\323H\326H\323H!\210\316\327!\207" [ebnf-nprod ebnf-total ebnf-production-name-p ebnf-basic-height "Generating" message "%s...%3d%%" round 100.0 run-hooks ebnf-production-hook ps-output-string 6 "" ps-output " " ebnf-format-float 5 0.0 7 3 " BOP\n" 0 "EOS\n"] 8 (#$ . 87080)])
#@20
(fn ALTERNATIVE)
(defalias 'ebnf-generate-alternative #[257 "\211\301H\302H\303\304\211\2030 \305\306@\302HZ!\307\"\210\310@\311H#\262T\262A\262\202 \305\312\313\"\306\314H!\315#\210\301H\262\203Z @\303H@!\210@\311H@\302HZ\262A\211\262\203\204 @\302H\262\316\317#[!\210@\303H@!\210@\311HZ\262\202Z \266\305\320!\207" [ebnf-vertical-space 6 3 0 nil ps-output ebnf-format-float " " - 4 format "%d " 5 " AT\n" ebnf-vertical-movement + "EOS\n"] 11 (#$ . 87577)])
#@17
(fn SEQUENCE)
(defalias 'ebnf-generate-sequence #[257 "\300\301!\210\211\302H\303\203 @\304H@!\210@\305H\262A\211\262\2037 \306!\210@\304H@!\210@\305H\262\202 \266\300\307!\207" [ps-output "BOS\n" 6 nil 0 5 ebnf-horizontal-movement "EOS\n"] 5 (#$ . 88083)])
#@17
(fn TERMINAL)
(defalias 'ebnf-generate-terminal #[257 "\300\301\"\207" [ebnf-gen-terminal "T"] 4 (#$ . 88364)])
#@21
(fn NON-TERMINAL)
(defalias 'ebnf-generate-non-terminal #[257 "\300\301\"\207" [ebnf-gen-terminal "NT"] 4 (#$ . 88485)])
#@14
(fn EMPTY)
(defalias 'ebnf-generate-empty #[257 "\300\301H!\207" [ebnf-empty-alternative 5] 4 (#$ . 88615)])
#@17
(fn OPTIONAL)
(defalias 'ebnf-generate-optional #[257 "\211\301H\302\303\304H\305HZ\\\306H\"\307\"\210\211\310H!\210\302\311!\207" [ebnf-vertical-space 6 ps-output ebnf-format-float 4 3 5 " OP\n" 0 "EOS\n"] 7 (#$ . 88733)])
#@20
(fn ONE-OR-MORE)
(defalias 'ebnf-generate-one-or-more #[257 "\211\303H\304H\305H\203 \305H\202 \306Z\307\310\"\311\"\210\312H\306H\312H!\210\313!\210\203; \314\306H!\210)\202C \315\316 \n#!\210\266\307\317!\207" [ebnf-direction ebnf-horizontal-space ebnf-basic-width-extra 5 7 3 0 ps-output ebnf-format-float " OM\n" 6 ebnf-vertical-movement "L" ebnf-empty-alternative - "EOS\n"] 9 (#$ . 88970)])
#@21
(fn ZERO-OR-MORE)
(defalias 'ebnf-generate-zero-or-more #[257 "\211\305H\306H\211\307H\310H\311\203 \312H\307HZ\202 #\313\314\312HZ\\#\315\"\210\306H\316H\306H!\210\317!\210\310H\203W \320\310H\316H\310H!\210)\202` \321\322 \f#!\210\266\313\323!\207" [ebnf-vertical-space ebnf-basic-empty-height ebnf-direction ebnf-horizontal-space ebnf-basic-width-extra 5 6 3 7 + 4 ps-output ebnf-format-float " ZM\n" 0 ebnf-vertical-movement "L" ebnf-empty-alternative - "EOS\n"] 11 (#$ . 89392)])
#@16
(fn SPECIAL)
(defalias 'ebnf-generate-special #[257 "\300\301\"\207" [ebnf-gen-terminal "SP"] 4 (#$ . 89915)])
#@15
(fn REPEAT)
(defalias 'ebnf-generate-repeat #[257 "\211\303H\304H\305!\210\306\307\310\311H\312H\313H\203. \314\313H\211\211\fG _%\202/ \315$\307\n\316%\210\211\203? \211\317H!\210\266\306\320!\207" [ebnf-space-R ebnf-font-width-R ebnf-direction 6 7 ps-output-string ps-output " " ebnf-format-float 3 4 5 + 0.0 "RP\n" 0 "EOS\n"] 16 (#$ . 90035)])
#@15
(fn EXCEPT)
(defalias 'ebnf-generate-except #[257 "\211\303H\304H\305H\306\307\310H\311H\305H\312\211\211
\203-
\305H\\\202. \313&%\314\n\315$\210\303H\316H\303H!\210\203S \317\312 $!\210\316H!\210\266\306\320!\207" [ebnf-space-E ebnf-font-width-E ebnf-direction 6 7 5 ps-output ebnf-format-float 3 4 + 0.0 " " "EX\n" 0 ebnf-horizontal-movement "EOS\n"] 18 (#$ . 90405)])
#@18
(fn NODE CODE)
(defalias 'ebnf-gen-terminal #[514 "\301\302H!\210\303\304\305\306H!\304\307H\203 \310\202 \311&\207" [ebnf-direction ps-output-string 6 ps-output " " ebnf-format-float 5 7 "D\n" "\n"] 10 (#$ . 90812)])
#@230 Process files in DIRECTORY applying function FUN on each file.
If DIRECTORY is nil, use `default-directory'.
Only files in DIRECTORY that match `ebnf-file-suffix-regexp' (which see) are
processed.
(fn FUN &optional DIRECTORY)
(defalias 'ebnf-directory #[513 "\303\206 \304 #\211\205& \305@!q\210 \210\304\306 \210\307p!\210\211A\262\202 \207" [default-directory ebnf-file-suffix-regexp buffer-backed-up directory-files t find-file-noselect save-buffer kill-buffer] 6 (#$ . 91048)])
#@210 Process the named FILE applying function FUN.
If optional arg DO-NOT-KILL-BUFFER-WHEN-DONE is non-nil, the buffer isn't
killed after process termination.
(fn FUN FILE &optional DO-NOT-KILL-BUFFER-WHEN-DONE)
(defalias 'ebnf-file #[770 "\300!q\210 \210\211\206 \301p!\207" [find-file-noselect kill-buffer] 5 (#$ . 91548)])
#@23
(fn PREFIX FROM TO)
(defalias 'ebnf-range-regexp #[771 "\300X\203 \211\301!P\262T\262\202 P\207" [nil char-to-string] 7 (#$ . 91880)])
(defvar ebnf-map-name (byte-code "\300\301\302\"\303\304\305\306\307\310!\311\"\312\313%\314\"\210\211\207" [make-vector 256 95 mapc make-byte-code 257 "\300\211I\207" vconcat vector [] 4 "\n\n(fn CHAR)" "#$%&+-.0123456789=?@~ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"] 8))
#@12
(fn STR)
(defalias 'ebnf-eps-filename #[257 "\211G\302\303\304\"W\203 \211HHI\210T\262\202 \305Q\207" [ebnf-map-name ebnf-eps-prefix 0 make-string 32 ".eps"] 9 (#$ . 92321)])
#@19
(fn &rest ARGS)
(defalias 'ebnf-eps-output #[128 "\211\205 \211@c\210\211A\262\202 \207" [] 2 (#$ . 92518)])
#@25
(fn FROM TO GEN-FUNC)
(defalias 'ebnf-generate-region #[771 "\302\303!\210]\304\305\212\214\306 \307\310\311\312\313!\314\"\315$\216\3161S \317^!\203I \320\262\321!\262\322\262\323!\262\324\262\325!\262\326\262!\210\305\211\262\2620\202z \327 \210`Se]\262\330\331!\332\304\230\205n \333\334\"\333\335\336 \"\260\211\262\262\210)\210*\203\226 \211b\210 \203\217 \337!\202\241 \340\341\"\202\241 \203\236 \305\202\241 \340\342!)\207" [ebnf-limit ebnf-stop-on-error run-hooks ebnf-hook "SYNTAX" nil match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 (quit error) ebnf-parse-and-sort "EMPTY RULES" ebnf-eliminate-empty-rules "OPTIMIZE" ebnf-optimize "DIMENSIONS" ebnf-dimensions "GENERATION" ding ": " error-message-string ", " format "at position %d " "in buffer \"%s\"." buffer-name error message "%s" "EBNF syntactic analysis: NO ERRORS."] 16 (#$ . 92638)])
#@14
(fn START)
(defalias 'ebnf-parse-and-sort #[257 "\302\303\"\210\304 \210! \203$ \305\306!\210\307 \310=\203 \311\202 \312\"\202& \211\237\207" [ebnf-parser-func ebnf-sort-production ebnf-log "(ebnf-parse-and-sort %S)" ebnf-begin-job message "Sorting..." sort ascending ebnf-sorter-ascending ebnf-sorter-descending] 6 (#$ . 93583)])
#@21
(fn FIRST SECOND)
(defalias 'ebnf-sorter-ascending #[514 "\300H\300H\231\207" [6] 5 (#$ . 93929)])
#@21
(fn FIRST SECOND)
(defalias 'ebnf-sorter-descending #[514 "\211\300H\300H\231\207" [6] 5 (#$ . 94038)])
#@14
(fn WIDTH)
(defalias 'ebnf-empty-alternative #[257 "\300\301!\302\"\207" [ps-output ebnf-format-float " EA\n"] 4 (#$ . 94151)])
#@15
(fn HEIGHT)
(defalias 'ebnf-vertical-movement #[257 "\300\301!\302\"\207" [ps-output ebnf-format-float " vm\n"] 4 (#$ . 94288)])
#@14
(fn WIDTH)
(defalias 'ebnf-horizontal-movement #[257 "\300\301!\302\"\207" [ps-output ebnf-format-float " hm\n"] 4 (#$ . 94426)])
#@15
(fn HEIGHT)
(defalias 'ebnf-entry #[257 "\211_\207" [ebnf-entry-percentage] 3 (#$ . 94565)])
#@15
(fn HEIGHT)
(defalias 'ebnf-eop-vertical #[257 "\301\302\\!\303\"\207" [ebnf-production-vertical-space ps-output ebnf-format-float " EOPV\n\n"] 5 (#$ . 94667)])
#@14
(fn WIDTH)
(defalias 'ebnf-eop-horizontal #[257 "\301\302\\!\303\"\207" [ebnf-production-horizontal-space ps-output ebnf-format-float " EOPH\n\n"] 5 (#$ . 94838)])
(defalias 'ebnf-new-page #[0 " W\205 \302\303!\210\304\305!\210\306 \210\307 \210\304\310!\207" [ps-height-remaining ps-print-height run-hooks ebnf-page-hook ps-output "EndPage\nEndDSCPage\n" ps-flush-output ps-begin-page "\n"] 2])
#@13
(fn FONT)
(defalias 'ebnf-font-size #[257 "\211@\207" [] 2 (#$ . 95246)])
(put 'ebnf-font-size 'byte-optimizer 'byte-compile-inline-expand)
#@13
(fn FONT)
(defalias 'ebnf-font-name #[257 "\211A@\207" [] 2 (#$ . 95394)])
(put 'ebnf-font-name 'byte-optimizer 'byte-compile-inline-expand)
#@13
(fn FONT)
(defalias 'ebnf-font-foreground #[257 "\3008\207" [2] 3 (#$ . 95543)])
(put 'ebnf-font-foreground 'byte-optimizer 'byte-compile-inline-expand)
#@13
(fn FONT)
(defalias 'ebnf-font-background #[257 "\3008\207" [3] 3 (#$ . 95705)])
(put 'ebnf-font-background 'byte-optimizer 'byte-compile-inline-expand)
#@13
(fn FONT)
(defalias 'ebnf-font-list #[257 "\300\233\207" [4] 3 (#$ . 95867)])
(put 'ebnf-font-list 'byte-optimizer 'byte-compile-inline-expand)
#@13
(fn FONT)
(defalias 'ebnf-font-attributes #[257 "\300\301A!\302\"\207" [ash ps-extension-bit -2] 4 (#$ . 96020)])
(put 'ebnf-font-attributes 'byte-optimizer 'byte-compile-inline-expand)
(defconst ebnf-font-name-select (vector 'normal 'bold 'italic 'bold-italic))
#@13
(fn FONT)
(defalias 'ebnf-font-name-select #[257 "\211\302\233\262\303>\203 \304\202 \305\306>\203 \307\202 \305\\\211A@\262\310\"A\310\311\"A\2064 \312\313\"\310 H\"A\206B \312\314\"\207" [ps-font-info-database ebnf-font-name-select 4 bold 1 0 italic 2 assoc fonts error "Invalid font: %s" "Invalid attributes for font %s"] 9 (#$ . 96292)])
#@20
(fn FONT SELECT)
(defalias 'ebnf-font-select #[514 "\211A@\262\301\"A\301\302\"A\301\"A\203) \211\203) \211@\262_\245\202- \303\304\"\207" [ps-font-info-database assoc size error "Invalid font: %s"] 9 (#$ . 96659)])
#@13
(fn FONT)
(defalias 'ebnf-font-width #[257 "\300\301\"\207" [ebnf-font-select avg-char-width] 4 (#$ . 96896)])
(put 'ebnf-font-width 'byte-optimizer 'byte-compile-inline-expand)
#@13
(fn FONT)
(defalias 'ebnf-font-height #[257 "\300\301\"\207" [ebnf-font-select line-height] 4 (#$ . 97083)])
(put 'ebnf-font-height 'byte-optimizer 'byte-compile-inline-expand)
#@65 Alist associating EBNF syntax with a parser and an initializer.
(defconst ebnf-syntax-alist '((iso-ebnf ebnf-iso-parser ebnf-iso-initialize) (yacc ebnf-yac-parser ebnf-yac-initialize) (abnf ebnf-abn-parser ebnf-abn-initialize) (ebnf ebnf-bnf-parser ebnf-bnf-initialize) (ebnfx ebnf-ebx-parser ebnf-ebx-initialize) (dtd ebnf-dtd-parser ebnf-dtd-initialize)) (#$ . 97269))
(defalias 'ebnf-begin-job #[0 "\306\307\211\211#\210\203 \310\311\202 \312\211\313 \210\314 \f\"\206# \314\315\f\"\211A@\3168 \2660\203; 0;\204; \30701\203F 1;\204I \31712\320]\321^23\203Z \322\202[ \3234\307\21156\307\21178\307\2119:\307\211;<\307=\324>\325?@\326\327\"\262AB\326\327\"\262CD\326\327\"\262EF\326\327\"\262GH\326\327\"\262IJ\326\327\"\262K@\326\330\"\262LB\326\330\"\262MD\326\330\"\262NF\326\330\"\262OH\326\330\"\262PJ\326\330\"\262QC\331_RE\332_SG\333_TI\334_UK\335_VCE\\\211\336_W\211\\XW\337_YWZW[\340W\\\341#]^\247\203G^\342V\204J\211^_\247\203W_\343V\204Z\211_\210\344\345!\210\344\346\\\"\210\344\347`\"\210\344\350]\"\210\344\351W\"\210\344\352X\"\210\344\353Y\"\210\344\354Z\"\210\344\355[\"\210\344\356^\"\210\344\357_\"\207" [ebnf-use-float-format ebnf-format-float ebnf-message-float ebnf-syntax ebnf-syntax-alist ebnf-parser-func ps-printing-region nil "%1.3f" "%3.2f" "%s" ebnf-otz-initialize assoc ebnf 2 "ebnf--" 0.0 1.0 (nil keep-line) (keep-line) 0.0 0.0 ebnf-font-select line-height avg-char-width 0.5 0.5 0.5 0.5 0.5 0.5 0.5 - 0.1 0.0 0.0 ebnf-log "(ebnf-begin-job)" " ebnf-arrow-extra-width ............ : %7.3f" " ebnf-arrow-scale .................. : %7.3f" " ebnf-basic-width-extra ............ : %7.3f" " ebnf-basic-width .................. : %7.3f (T)" " ebnf-horizontal-space ............. : %7.3f (4T)" " ebnf-basic-empty-height ........... : %7.3f (hT)" " ebnf-basic-height ................. : %7.3f (T)" " ebnf-vertical-space ............... : %7.3f (T)" " ebnf-production-horizontal-space .. : %7.3f (2T)" " ebnf-production-vertical-space .... : %7.3f (2T)" ebnf-terminal-regexp ebnf-eps-prefix ebnf-entry-percentage ebnf-horizontal-orientation ebnf-action-list ebnf-settings ebnf-fonts-required ebnf-action ebnf-default-p ebnf-eps-context ebnf-eps-file-alist ebnf-eps-production-list ebnf-eps-header-comment ebnf-eps-footer-comment ebnf-eps-upper-x ebnf-eps-upper-y ebnf-production-font ebnf-font-height-P ebnf-terminal-font ebnf-font-height-T ebnf-non-terminal-font ebnf-font-height-NT ebnf-special-font ebnf-font-height-S ebnf-except-font ebnf-font-height-E ebnf-repeat-font ebnf-font-height-R ebnf-font-width-P ebnf-font-width-T ebnf-font-width-NT ebnf-font-width-S ebnf-font-width-E ebnf-font-width-R ebnf-space-T ebnf-space-NT ebnf-space-S ebnf-space-E ebnf-space-R ebnf-basic-width ebnf-horizontal-space ebnf-basic-empty-height ebnf-basic-height ebnf-vertical-space ebnf-arrow-extra-width ebnf-basic-width-extra ebnf-production-horizontal-space ebnf-production-vertical-space ebnf-arrow-scale] 6])
#@18
(fn SYM ALIST)
(defalias 'ebnf-shape-value #[514 "\236A\206 \300\207" [0] 4 (#$ . 100342)])
(put 'ebnf-shape-value 'byte-optimizer 'byte-compile-inline-expand)
#@14
(fn VALUE)
(defalias 'ebnf-boolean #[257 "\211\203 \300\207\301\207" ["true" "false"] 2 (#$ . 100513)])
(put 'ebnf-boolean 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ebnf-begin-file #[0 "\302 \210rq\210eb\210\303\304\305\306#\2051 \303\307\310 \306#?\2051 \305\210\311 \261\210db\210\312\313!\210\314 \210\315\316!)\207" [ps-spool-buffer ebnf-version ps-flush-output search-forward "%%Creator: " nil t "& ebnf2ps v" line-end-position " & ebnf2ps v" search-backward "\n%%EndProlog\n" ebnf-insert-ebnf-prologue ps-output "\n"] 4])
#@24
(fn BUFFER FILENAME)
(defalias 'ebnf-eps-finish-and-write #[514 "\306!\205\225 rq\210\307!\210 ]\n\310U\203 \202! \311\n\f #eb\210\312\313\314\315T\nT#\316\317\320\321!\322\323 \324
\325\326)\206^ \327\330\331\332\333*+,-./01\257\"!\334#\211)\3352\261\210\336 \2103\337\340\n4\341_Z!\342\261\210db\2105c\210\343\344!\210\345!\262\346 6\347ed#\210)\343\350\")\207" [ebnf-eps-upper-x ebnf-eps-max-width ebnf-eps-upper-y ebnf-eps-max-height ebnf-production-vertical-space ebnf-version buffer-modified-p ebnf-eps-header-footer-set 0 + "%!PS-Adobe-3.0 EPSF-3.0" "\n%%BoundingBox: 0 0 " format "%d %d" "\n%%Title: " "\n%%CreationDate: " format-time-string "%T %b %d %Y" "\n%%Creator: " user-full-name " (using ebnf2ps v" ")" "\n%%DocumentNeededResources: font " mapconcat identity ps-remove-duplicates mapcar ebnf-font-name-select "\n%%+ font " "\n%%Pages: 0\n%%EndComments\n\n%%BeginProlog\n" ebnf-insert-ebnf-prologue "\n0 " ebnf-format-float 0.7 " #ebnf2ps#begin\n" message "Saving..." expand-file-name raw-text-unix write-region "Wrote %s" ebnf-fonts-required ebnf-production-font ebnf-terminal-font ebnf-non-terminal-font ebnf-special-font ebnf-except-font ebnf-repeat-font ebnf-eps-header-font ebnf-eps-footer-font ebnf-eps-prologue ebnf-eps-begin ebnf-font-height-P ebnf-eps-end coding-system-for-write] 28 (#$ . 101067)])
(defalias 'ebnf-insert-ebnf-prologue #[0 "\206[\306\307\310 \206\f \311\"\307\312\n\206 \311\"\307\313\314 !\211\203$ \315\262\202' \316\262\"\307\317\320\f\211@\262!\321\f!#\322\323\f\3248\262\325#\322\326\f\3278\262\330#\307\331\f\332\333A!\334\"\262\"\307\335\314
!\211\203e \315\262\202h \316\262\"\307\336\320@\211@\262!\321@!#\322\337@\3248\262\325#\322\340@\3278\262\330#\307\341@\332\333A!\334\"\262\"\307\342\320A\211@\262!\321A!#\322\343A\3248\262\325#\322\344A\3278\262\330#\307\345A\332\333A!\334\"\262\"\307\346\320B\211@\262!\321B!#\322\347B\3248\262\325#\322\350B\3278\262\330#\307\351B\332\333A!\334\"\262\"\307\352\320C!\"\322\353D\325#\307\354EF\236A\206 \355\266\202\"\307\356G\211\203.\315\262\2021\316\262\"\307\357\320H\211@\262!\321H!#\322\360H\3248\262\325#\322\361H\3278\262\330#\307\362H\332\333A!\334\"\262\"\307\363\320I!\"\322\364J\325#\307\365KF\236A\206\200\355\266\202\"\307\366L\211\203\221\315\262\202\224\316\262\"\307\367\320M\211@\262!\321M!#\322\370M\3248\262\325#\322\371M\3278\262\372#\307\373M\332\333A!\334\"\262\"\307\374\320N!\"\322\375O\325#\307\376PF\236A\206\343\355\266\202\"\307\377Q\211\203\364\315\262\202\367\316\262\"\307\201h \320R\211@\262!\321R!#\322\201i R\3248\262\325#\322\201j R\3278\262\201k #\307\201l R\332\333A!\334\"\262\"\307\201m \320S!\"\322\201n T\325#\307\201o UF\236A\206V\355\266\202\"\307\201p V\211\203i\315\262\202l\316\262\"\307\201q \320W\211@\262!\321W!#\322\201r W\3248\262\325#\322\201s W\3278\262\201t #\307\201u W\332\333A!\334\"\262\"\307\201v \320X!\"\322\201w Y\325#\307\201x ZF\236A\206\313\355\266\202\"\307\201y [\211\203\336\315\262\202\341\316\262\"\307\201z \320\\!\"\307\201{ \320]!\"\307\201| \320^!\"\307\201} \320_!\"\322\201~ `\325#\307\201 ab\236A\206 \355\266\202\"\307\201\200 cF\236A\2061\355\266\202\"\307\201\201 \201\202 d!\211;\203G\211\202J\201\203 \262\"\201\204 e\205Wf\260C\211g\261\207" [ebnf-settings ebnf-eps-header-comment ebnf-eps-footer-comment ebnf-eps-header ebnf-eps-header-font ebnf-eps-footer "\n\n% === begin EBNF settings\n\n" format "/Header %s def\n" "()" "/Footer %s def\n" "/ShowHeader %s def\n" ebnf-eps-header-footer-p "true" "false" "/fH %s /%s DefFont\n" ebnf-format-float ebnf-font-name-select ebnf-format-color "/ForegroundH %s def %% %s\n" 2 "Black" "/BackgroundH %s def %% %s\n" 3 "White" "/EffectH %d def\n" ash ps-extension-bit -2 "/ShowFooter %s def\n" "/fF %s /%s DefFont\n" "/ForegroundF %s def %% %s\n" "/BackgroundF %s def %% %s\n" "/EffectF %d def\n" "/fP %s /%s DefFont\n" "/ForegroundP %s def %% %s\n" "/BackgroundP %s def %% %s\n" "/EffectP %d def\n" "/fT %s /%s DefFont\n" "/ForegroundT %s def %% %s\n" "/BackgroundT %s def %% %s\n" "/EffectT %d def\n" "/BorderWidthT %s def\n" "/BorderColorT %s def %% %s\n" "/ShapeT %d def\n" 0 "/ShadowT %s def\n" "/fNT %s /%s DefFont\n" "/ForegroundNT %s def %% %s\n" "/BackgroundNT %s def %% %s\n" "/EffectNT %d def\n" "/BorderWidthNT %s def\n" "/BorderColorNT %s def %% %s\n" "/ShapeNT %d def\n" "/ShadowNT %s def\n" "/fS %s /%s DefFont\n" "/ForegroundS %s def %% %s\n" "/BackgroundS %s def %% %s\n" "Gray95" "/EffectS %d def\n" "/BorderWidthS %s def\n" "/BorderColorS %s def %% %s\n" "/ShapeS %d def\n" "/ShadowS %s def\n" ebnf-eps-footer-font ebnf-production-font ebnf-terminal-font ebnf-terminal-border-width ebnf-terminal-border-color ebnf-terminal-shape ebnf-terminal-shape-alist ebnf-terminal-shadow ebnf-non-terminal-font ebnf-non-terminal-border-width ebnf-non-terminal-border-color ebnf-non-terminal-shape ebnf-non-terminal-shadow ebnf-special-font ebnf-special-border-width ebnf-special-border-color ebnf-special-shape ebnf-special-shadow ebnf-except-font ebnf-except-border-width ebnf-except-border-color ebnf-except-shape ebnf-except-shadow ebnf-repeat-font ebnf-repeat-border-width ebnf-repeat-border-color ebnf-repeat-shape ebnf-repeat-shadow ebnf-arrow-extra-width ebnf-arrow-scale ebnf-default-width ebnf-line-width ebnf-line-color ebnf-arrow-shape ebnf-arrow-shape-alist ebnf-chart-shape ebnf-user-arrow ebnf-debug-ps ebnf-debug ebnf-prologue "/fE %s /%s DefFont\n" "/ForegroundE %s def %% %s\n" "/BackgroundE %s def %% %s\n" "Gray90" "/EffectE %d def\n" "/BorderWidthE %s def\n" "/BorderColorE %s def %% %s\n" "/ShapeE %d def\n" "/ShadowE %s def\n" "/fR %s /%s DefFont\n" "/ForegroundR %s def %% %s\n" "/BackgroundR %s def %% %s\n" "Gray85" "/EffectR %d def\n" "/BorderWidthR %s def\n" "/BorderColorR %s def %% %s\n" "/ShapeR %d def\n" "/ShadowR %s def\n" "/ExtraWidth %s def\n" "/ArrowScale %s def\n" "/DefaultWidth %s def\n" "/LineWidth %s def\n" "/LineColor %s def %% %s\n" "/ArrowShape %d def\n" "/ChartShape %d def\n" "/UserArrow{%s}def\n" eval "" "\n% === end EBNF settings\n\n"] 69])
#@13
(fn TREE)
(defalias 'ebnf-dimensions #[257 "\302\303!\210\211G\304\305\306\"\210*\207" [ebnf-nprod ebnf-total ebnf-log "(ebnf-dimensions tree)" 0 mapc ebnf-production-dimension] 4 (#$ . 107585)])
#@19
(fn PRODUCTION)
(defalias 'ebnf-production-dimension #[257 "\306\307!\210\310\311\312\313T\211\314_ \245!#\266\211\315H\316H\315H!\210\211\315H\317\n\203+ \202, \320\f\211
\321H%\322I\210\321I\210\323\317\323H\f$I\266\306\324\325H\"\210\306\326\322H\"\210\306\327\321H\"\210\306\330\323H\"\207" [ebnf-nprod ebnf-total ebnf-production-name-p ebnf-font-height-P ebnf-line-width ebnf-basic-height ebnf-log "(ebnf-production-dimension production)" "Calculating dimensions" message "%s...%3d%%" round 100.0 7 2 + 0.0 4 3 5 " production name : %S" 6 " production entry : %7.3f" " production height : %7.3f" " production width : %7.3f" ebnf-horizontal-space ebnf-basic-width-extra] 10 (#$ . 107792)])
#@17
(fn TERMINAL)
(defalias 'ebnf-terminal-dimension #[257 "\303\304!\210\305 \n$\207" [ebnf-font-height-T ebnf-font-width-T ebnf-space-T ebnf-log "(ebnf-terminal-dimension terminal)" ebnf-terminal-dimension1] 6 (#$ . 108528)])
#@21
(fn NON-TERMINAL)
(defalias 'ebnf-non-terminal-dimension #[257 "\303\304!\210\305 \n$\207" [ebnf-font-height-NT ebnf-font-width-NT ebnf-space-NT ebnf-log "(ebnf-non-terminal-dimension non-terminal)" ebnf-terminal-dimension1] 6 (#$ . 108762)])
#@16
(fn SPECIAL)
(defalias 'ebnf-special-dimension #[257 "\303\304!\210\305 \n$\207" [ebnf-font-height-S ebnf-font-width-S ebnf-space-S ebnf-log "(ebnf-special-dimension special)" ebnf-terminal-dimension1] 6 (#$ . 109015)])
#@42
(fn NODE FONT-HEIGHT FONT-WIDTH SPACE)
(defalias 'ebnf-terminal-dimension1 #[1028 "\302#\303HG\304\305_I\210\306I\210\307\302 \n_ &I\266\310\311\303H\"\210\310\312\304H\"\210\310\313\306H\"\210\310\314\307H\"\207" [ebnf-basic-width ebnf-arrow-extra-width + 6 3 0.5 4 5 ebnf-log " name : %S" " entry : %7.3f" " height : %7.3f" " width : %7.3f"] 15 (#$ . 109245)])
(defconst ebnf-null-vector (byte-code "\300\301\211\211\302\303\304&\207" [vector t 0.0 0.0 0.0] 7))
#@15
(fn REPEAT)
(defalias 'ebnf-repeat-dimension #[257 "\306\307!\210\211\310H\311H\211\203 \211\312H!\210\202 \262\313\313H \\I\210\314\315\314H\n] \211#I\210\316\315\316H \211\211\f\nG
_&I\266\306\317\313H\"\210\306\320\314H\"\210\306\321\316H\"\207" [ebnf-null-vector ebnf-space-R ebnf-font-height-S ebnf-arrow-extra-width ebnf-horizontal-space ebnf-font-width-R ebnf-log "(ebnf-repeat-dimension repeat)" 6 7 2 3 4 + 5 " repeat entry : %7.3f" " repeat height : %7.3f" " repeat width : %7.3f"] 14 (#$ . 109753)])
#@15
(fn EXCEPT)
(defalias 'ebnf-except-dimension #[257 "\305\306!\210\211\307H\310H\311H!\210\211\203 \211\311H!\210\202 \262\312\312H\312H] \\I\210\313\314\313H\313H] \211#I\210\315\314\315H\315H\n \211\211\211 \f& I\266\305\316\312H\"\210\305\317\313H\"\210\305\320\315H\"\207" [ebnf-null-vector ebnf-space-E ebnf-arrow-extra-width ebnf-font-width-E ebnf-horizontal-space ebnf-log "(ebnf-except-dimension except)" 6 7 2 3 4 + 5 " except entry : %7.3f" " except height : %7.3f" " except width : %7.3f"] 15 (#$ . 110299)])
#@20
(fn ALTERNATIVE)
(defalias 'ebnf-alternative-dimension #[257 "\303\304!\210\211\305H\305H\211\203 \211@\306H@!\210\211A\262\202\n \307\310\311!@@\312H\313\203G @\262A\262\211\314H\\\262\211\315H]\262\202) \316\"\210GS_\\\262\312\317\320\n \314H\n\312HZ#!\\I\210\314I\210\315\321 \n#I\210\305 I\266 \303\322\312H\"\210\303\323\314H\"\210\303\324\315H\"\207" [ebnf-vertical-space ebnf-horizontal-space ebnf-basic-width-extra ebnf-log "(ebnf-alternative-dimension alternative)" 6 2 0.0 0.0 last 3 nil 4 5 ebnf-adjust-width ebnf-entry - + " alternative entry : %7.3f" " alternative height : %7.3f" " alternative width : %7.3f"] 19 (#$ . 110855)])
#@17
(fn OPTIONAL)
(defalias 'ebnf-optional-dimension #[257 "\302\303!\210\211\304H\211\305H!\210\306\306HI\210\307\307H\\I\210\310\310H \\I\266\302\311\306H\"\210\302\312\307H\"\210\302\313\310H\"\207" [ebnf-vertical-space ebnf-horizontal-space ebnf-log "(ebnf-optional-dimension optional)" 6 2 3 4 5 " optional entry : %7.3f" " optional height : %7.3f" " optional width : %7.3f"] 6 (#$ . 111562)])
#@16
(fn OR-MORE)
(defalias 'ebnf-one-or-more-dimension #[257 "\304\305!\210\211\306H\307H\310H!\210\211\203 \211\310H!\210\311\203% \312H\202& \312H#\2035 \313H\2026 \314\313H]\203H \315\"\210\315\"\210\316\312HZ\316H\\I\210\312I\210\313\311\n #I\266\304\317\316H\"\210\304\320\312H\"\210\304\321\313H\"\207" [ebnf-basic-empty-height ebnf-vertical-space ebnf-horizontal-space ebnf-basic-width-extra ebnf-log "(ebnf-one-or-more-dimension or-more)" 6 7 2 + 4 5 0.0 ebnf-adjust-width 3 " one-or-more entry : %7.3f" " one-or-more height : %7.3f" " one-or-more width : %7.3f"] 11 (#$ . 111985)])
#@16
(fn OR-MORE)
(defalias 'ebnf-zero-or-more-dimension #[257 "\304\305!\210\211\306H\307H\310H!\210\211\203 \211\310H!\210\311\203% \312H\202& \312H $\2036 \313H\2027 \314\313H]\203I \315\"\210\315\"\210\316I\210\312I\210\313\311\n #I\266\304\317\316H\"\210\304\320\312H\"\210\304\321\313H\"\207" [ebnf-basic-empty-height ebnf-vertical-space ebnf-horizontal-space ebnf-basic-width-extra ebnf-log "(ebnf-zero-or-more-dimension or-more)" 6 7 2 + 4 5 0.0 ebnf-adjust-width 3 " zero-or-more entry : %7.3f" " zero-or-more height : %7.3f" " zero-or-more width : %7.3f"] 11 (#$ . 112620)])
#@17
(fn SEQUENCE)
(defalias 'ebnf-sequence-dimension #[257 "\300\301!\210\302\303\304\305H\306\211\203; @\262A\262\211\307H!\210\211\310H\262]\262\311HZ]\262\312H\\\262\202\f \310I\210\311\\I\210\312I\266\300\313\310H\"\210\300\314\311H\"\210\300\315\312H\"\207" [ebnf-log "(ebnf-sequence-dimension sequence)" 0.0 0.0 0.0 6 nil 2 3 4 5 " sequence entry : %7.3f" " sequence height : %7.3f" " sequence width : %7.3f"] 11 (#$ . 113244)])
#@19
(fn NODE WIDTH)
(defalias 'ebnf-adjust-width #[514 "<\203 \203K \301@\"\240\210A\262\202 \207\302!\203J \211\303HU\203* \207\304\267\202< \305\306#\207\305\307#\207\310H\"\210\303I\210\207\207" [ebnf-justify-sequence ebnf-adjust-width vectorp 5 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (left 48 right 54)) ebnf-adjust-empty nil t 1] 7 (#$ . 113726)])
#@26
(fn NODE WIDTH LAST-P)
(defalias 'ebnf-adjust-empty #[771 "\300H\301=\203 \302I\210\207\303\302HZ!\304\203# D\202& D\"\207" [0 ebnf-generate-empty 5 ebnf-make-empty ebnf-make-dup-sequence] 8 (#$ . 114154)])
#@26
(fn ALTERNATIVE WIDTH)
(defalias 'ebnf-alternative-width #[514 "\301\302HZ\"\207" [ebnf-horizontal-space ebnf-adjust-width 6] 6 (#$ . 114383)])
#@22
(fn OR-MORE WIDTH)
(defalias 'ebnf-element-width #[514 "\211Z\262\301\302\211\301H#I\210\303\302\211\303H#I\207" [ebnf-horizontal-space 6 ebnf-justify-list 7] 8 (#$ . 114538)])
#@23
(fn SEQUENCE WIDTH)
(defalias 'ebnf-sequence-width #[514 "\300\301\211\300H#I\207" [6 ebnf-justify-list] 8 (#$ . 114731)])
#@23
(fn NODE SEQ WIDTH)
(defalias 'ebnf-justify-list #[771 "\301HU\203
\202T \302\267\202' \303\304%\202T \303\305%\202T \306!\2034 \307\"\202T ZG\245\211\203Q \307@@\301H\\\"\210\211A\262\202; \266\202\207" [ebnf-justify-sequence 5 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (left 19 right 29)) ebnf-justify t nil vectorp ebnf-adjust-width] 10 (#$ . 114865)])
#@40
(fn NODE SEQ SEQ-WIDTH WIDTH LAST-P)
(defalias 'ebnf-justify #[1285 "\211\203\n \300!\202 @\211\301H\302=\203$ \211\303Z\303H\\I\210\202; \2034 \304Z!C\244\202; \304Z!B\207" [last 0 ebnf-generate-empty 5 ebnf-make-empty] 11 (#$ . 115298)])
#@13
(fn NAME)
(defalias 'ebnf-eps-add-context #[257 "\301!\211\235\203 \302\303\"\210\202 \211B\304!\207" [ebnf-eps-context ebnf-eps-filename error "Try to open an already opened EPS file: %s" ebnf-eps-header-footer-file] 5 (#$ . 115562)])
#@13
(fn NAME)
(defalias 'ebnf-eps-remove-context #[257 "\301!\211\235\203 \302\"\211\202 \303\304\"\207" [ebnf-eps-context ebnf-eps-filename delete error "Try to close a not opened EPS file: %s"] 5 (#$ . 115814)])
#@15
(fn HEADER)
(defalias 'ebnf-eps-add-production #[257 "\205+ \203& \303\n\"\211\203 \211\304\305 A\"!\241\202% \304 !B\nB\211\207\306\307!!\207" [ebnf-eps-executing ebnf-eps-context ebnf-eps-production-list assoc ebnf-dup-list append ebnf-eps-header-footer-file ebnf-eps-filename] 7 (#$ . 116040)])
#@12
(fn OLD)
(defalias 'ebnf-dup-list #[257 "\300\203 @B\262A\262\202 \211\237\207" [nil] 4 (#$ . 116354)])
#@14
(fn CHARS)
(defalias 'ebnf-buffer-substring #[257 "\301`w\210`\"\207" [ebnf-limit buffer-substring-no-properties] 5 (#$ . 116474)])
(defconst ebnf-8-bit-chars (ebnf-range-regexp "" 160 255))
#@28
(fn CHARS EOS-CHAR KIND)
(defalias 'ebnf-string #[771 "\302u\210\303`P w\210m\204 gU\204 \304\305#\202# \302u\210`S\"\207" [ebnf-8-bit-chars ebnf-limit nil buffer-substring-no-properties error "Invalid %s: missing `%c'"] 9 (#$ . 116675)])
(defalias 'ebnf-get-string #[0 "\300u\210\301`\302 \"\207" [nil buffer-substring-no-properties ebnf-end-of-string] 3])
(defalias 'ebnf-end-of-string #[0 "\301\302\301\"\303V\203 \304w\210\305\306x[\262\307`\301#b\210\202 \210h\310U\203( `S\207\311\312!\207" [ebnf-limit 1 logand 0 "^\"" "\\\\" nil + 34 error "Missing `\"'"] 5])
#@12
(fn STR)
(defalias 'ebnf-trim-right #[257 "\211GS\211\211\300V\203 H\301U\203 \211S\262\202 \211U\203# \202) \302\300T#\207" [0 32 substring] 7 (#$ . 117265)])
#@24
(fn &optional WIDTH)
(defalias 'ebnf-make-empty #[256 "\301\302\303\211\304\305\206\f &\207" [ebnf-horizontal-space vector ebnf-generate-empty ignore 0.0 0.0] 8 (#$ . 117443)])
#@13
(fn NAME)
(defalias 'ebnf-make-terminal #[257 "\300\301\302#\207" [ebnf-make-terminal1 ebnf-generate-terminal ebnf-terminal-dimension] 5 (#$ . 117632)])
#@13
(fn NAME)
(defalias 'ebnf-make-non-terminal #[257 "\300\301\302#\207" [ebnf-make-terminal1 ebnf-generate-non-terminal ebnf-non-terminal-dimension] 5 (#$ . 117794)])
#@13
(fn NAME)
(defalias 'ebnf-make-special #[257 "\300\301\302#\207" [ebnf-make-terminal1 ebnf-generate-special ebnf-special-dimension] 5 (#$ . 117968)])
#@31
(fn NAME GEN-FUNC DIM-FUNC)
(defalias 'ebnf-make-terminal1 #[771 "\301\302\303\304\305 G\211\306V\203 \n\202? \211\306U\203\" \n\307P\202? \211\310U\2030 \307 \307Q\202? \211\311U\203> \307 \312Q\202? \313\262&\207" [ebnf-default-p vector ignore 0.0 0.0 0.0 3 " " 2 1 " " " "] 14 (#$ . 118127)])
#@37
(fn LIST-PART &optional SEP-PART)
(defalias 'ebnf-make-one-or-more #[513 "\300\301\302$\207" [ebnf-make-or-more1 ebnf-generate-one-or-more ebnf-one-or-more-dimension] 7 (#$ . 118446)])
#@37
(fn LIST-PART &optional SEP-PART)
(defalias 'ebnf-make-zero-or-more #[513 "\300\301\302$\207" [ebnf-make-or-more1 ebnf-generate-zero-or-more ebnf-zero-or-more-dimension] 7 (#$ . 118641)])
#@45
(fn GEN-FUNC DIM-FUNC LIST-PART SEP-PART)
(defalias 'ebnf-make-or-more1 #[1028 "\300\301\302\303\304<\203 \305 !\202 \203( <\203( \305 !\202* &\207" [vector ebnf-element-width 0.0 0.0 0.0 ebnf-make-sequence] 14 (#$ . 118839)])
#@25
(fn NAME PROD ACTION)
(defalias 'ebnf-make-production #[771 "\300\301\302\303\304\305\306 & \207" [vector ebnf-generate-production ignore ebnf-production-dimension 0.0 0.0 0.0] 13 (#$ . 119091)])
#@13
(fn BODY)
(defalias 'ebnf-make-alternative #[257 "\300\301\302\303\304\305\306&\207" [vector ebnf-generate-alternative ebnf-alternative-width ebnf-alternative-dimension 0.0 0.0 0.0] 9 (#$ . 119300)])
#@13
(fn BODY)
(defalias 'ebnf-make-optional #[257 "\300\301\302\303\304\305\306&\207" [vector ebnf-generate-optional ebnf-alternative-width ebnf-optional-dimension 0.0 0.0 0.0] 9 (#$ . 119511)])
#@25
(fn FACTOR EXCEPTION)
(defalias 'ebnf-make-except #[514 "\300\301\302\303\304\305\306&\207" [vector ebnf-generate-except ignore ebnf-except-dimension 0.0 0.0 0.0] 11 (#$ . 119713)])
#@38
(fn TIMES PRIMARY &optional UPPER)
(defalias 'ebnf-make-repeat #[770 "\300\301\302\303\304\305\306 \2032 \2032 \230\203) \307\230\203$ \310\202K \202K \310 Q\202K \203> \311P\202K \203J \312P\202K \310 &\207" [vector ebnf-generate-repeat ignore ebnf-repeat-dimension 0.0 0.0 0.0 "" " * " " *" "* "] 13 (#$ . 119908)])
#@12
(fn SEQ)
(defalias 'ebnf-make-sequence #[257 "\300\301\302\303\304\305\306&\207" [vector ebnf-generate-sequence ebnf-sequence-width ebnf-sequence-dimension 0.0 0.0 0.0] 9 (#$ . 120258)])
#@17
(fn NODE SEQ)
(defalias 'ebnf-make-dup-sequence #[514 "\300\301\302\303\304H\305H\306H&\207" [vector ebnf-generate-sequence ebnf-sequence-width ebnf-sequence-dimension 3 4 5] 10 (#$ . 120456)])
#@26
(fn ELEMENT EXCEPTION)
(defalias 'ebnf-token-except #[514 "\211@A\262\205\216 \300H\204 \211\301=\203 \302H\202\214 \2045 \211\303=\2035 \300\304I\210\305\306I\210\202\214 \204\210 \211\307=\203\210 \310\302H!@\300H\311=\203\210 \302H\312A\203_ \262A\262\202P \211\204n \313\314H!\262\202\202 \211\312\241\210\302H\262G\315U\203\202 @\262\266\202\202\214 \316\"\262B\207" [0 ebnf-generate-optional 6 ebnf-generate-zero-or-more ebnf-generate-one-or-more 2 ebnf-one-or-more-dimension ebnf-generate-alternative last ebnf-generate-empty nil ebnf-make-empty 5 1 ebnf-make-except] 9 (#$ . 120666)])
#@37
(fn TIMES REPEAT &optional UPPER)
(defalias 'ebnf-token-repeat #[770 "A\204 \207@\300A#B\207" [ebnf-make-repeat] 8 (#$ . 121299)])
#@13
(fn BODY)
(defalias 'ebnf-token-optional #[257 "\211\300H\211\301\267\202) \302\202, \202, \300\303I\210\202, \304\304H\305 C\244I\210\202, \306!\207" [0 #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ebnf-generate-empty 9 ebnf-generate-zero-or-more 13 ebnf-generate-one-or-more 17 ebnf-generate-alternative 26)) nil ebnf-generate-zero-or-more 6 ebnf-make-empty ebnf-make-optional] 6 (#$ . 121445)])
#@22
(fn BODY SEQUENCE)
(defalias 'ebnf-token-alternative #[514 "\204 \211A\203\n \207\211@\300 B\207\211@AG\301U\203$ \211\204$ @\2022 \302\203/ B\2020 \237!\262B\207" [ebnf-make-empty 1 ebnf-make-alternative] 7 (#$ . 121899)])
#@17
(fn SEQUENCE)
(defalias 'ebnf-token-sequence #[257 "\211\204 \300 \207\211G\301U\203 \211@\207\302\237!\207" [ebnf-make-empty 1 ebnf-make-sequence] 3 (#$ . 122141)])
#@59 Vector used to map characters to a special comment token.
(defconst ebnf-comment-table (byte-code "\300\301\302\"\211\303\304I\210\211\305\306I\210\211\307\310I\210\211\207" [make-vector 256 nil 60 newline 62 keep-line 94 form-feed] 4) (#$ . 122318))
#@30
(fn FORMAT-STR &rest ARGS)
(defalias 'ebnf-log-header #[385 "\205 \301\300\302P#\207" [ebnf-log apply "\n\n===============================================================\n\n"] 6 (#$ . 122575)])
#@30
(fn FORMAT-STR &rest ARGS)
(defalias 'ebnf-log #[385 "\205 r\301\302!q\210db\210\303\304#\305\261)\207" [ebnf-log get-buffer-create "*Ebnf2ps Log*" apply format-message "\n"] 6 (#$ . 122782)])
#@14 ABNF parser.
(autoload 'ebnf-abn-parser "ebnf-abn" '(#$ . 122988))
#@30 Initialize ABNF token table.
(autoload 'ebnf-abn-initialize "ebnf-abn" '(#$ . 123061))
#@14 EBNF parser.
(autoload 'ebnf-bnf-parser "ebnf-bnf" '(#$ . 123154))
#@30 Initialize EBNF token table.
(autoload 'ebnf-bnf-initialize "ebnf-bnf" '(#$ . 123227))
#@18 ISO EBNF parser.
(autoload 'ebnf-iso-parser "ebnf-iso" '(#$ . 123320))
#@34 Initialize ISO EBNF token table.
(autoload 'ebnf-iso-initialize "ebnf-iso" '(#$ . 123397))
#@20 Yacc/Bison parser.
(autoload 'ebnf-yac-parser "ebnf-yac" '(#$ . 123494))
#@40 Initializations for Yacc/Bison parser.
(autoload 'ebnf-yac-initialize "ebnf-yac" '(#$ . 123573))
#@15 EBNFX parser.
(autoload 'ebnf-ebx-parser "ebnf-ebx" '(#$ . 123676))
#@35 Initializations for EBNFX parser.
(autoload 'ebnf-ebx-initialize "ebnf-ebx" '(#$ . 123750))
#@13 DTD parser.
(autoload 'ebnf-dtd-parser "ebnf-dtd" '(#$ . 123848))
#@33 Initializations for DTD parser.
(autoload 'ebnf-dtd-initialize "ebnf-dtd" '(#$ . 123920))
(provide 'ebnf2ps)
Zerion Mini Shell 1.0