Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
progmodes /
[ HOME SHELL ]
Name
Size
Permission
Action
ada-mode.elc
107.46
KB
-rw-r--r--
ada-prj.elc
17.96
KB
-rw-r--r--
ada-stmt.elc
36.03
KB
-rw-r--r--
ada-xref.elc
54.99
KB
-rw-r--r--
antlr-mode.elc
77.63
KB
-rw-r--r--
asm-mode.elc
6.08
KB
-rw-r--r--
autoconf.elc
3.37
KB
-rw-r--r--
bug-reference.elc
5.83
KB
-rw-r--r--
cap-words.elc
3.54
KB
-rw-r--r--
cc-align.elc
35.43
KB
-rw-r--r--
cc-awk.elc
20.23
KB
-rw-r--r--
cc-bytecomp.elc
10.45
KB
-rw-r--r--
cc-cmds.elc
92.26
KB
-rw-r--r--
cc-compat.elc
2.97
KB
-rw-r--r--
cc-defs.elc
46.7
KB
-rw-r--r--
cc-engine.elc
143.05
KB
-rw-r--r--
cc-fonts.elc
140.72
KB
-rw-r--r--
cc-langs.elc
70.29
KB
-rw-r--r--
cc-menus.elc
7.32
KB
-rw-r--r--
cc-mode.elc
144.75
KB
-rw-r--r--
cc-styles.elc
16.11
KB
-rw-r--r--
cc-subword.elc
6.99
KB
-rw-r--r--
cc-vars.elc
71.07
KB
-rw-r--r--
cfengine.elc
8.09
KB
-rw-r--r--
cmacexp.elc
6.58
KB
-rw-r--r--
compile.elc
69.45
KB
-rw-r--r--
cperl-mode.elc
215.39
KB
-rw-r--r--
cpp.elc
21.52
KB
-rw-r--r--
cwarn.elc
12.8
KB
-rw-r--r--
dcl-mode.elc
49.31
KB
-rw-r--r--
delphi.elc
50.03
KB
-rw-r--r--
ebnf-abn.elc
7.39
KB
-rw-r--r--
ebnf-bnf.elc
7.99
KB
-rw-r--r--
ebnf-dtd.elc
13.82
KB
-rw-r--r--
ebnf-ebx.elc
8.77
KB
-rw-r--r--
ebnf-iso.elc
8.14
KB
-rw-r--r--
ebnf-otz.elc
8.51
KB
-rw-r--r--
ebnf-yac.elc
7.53
KB
-rw-r--r--
ebnf2ps.elc
121.25
KB
-rw-r--r--
ebrowse.elc
202.93
KB
-rw-r--r--
etags.elc
54.14
KB
-rw-r--r--
executable.elc
7.6
KB
-rw-r--r--
f90.elc
82.59
KB
-rw-r--r--
flymake.elc
61.25
KB
-rw-r--r--
fortran.elc
60.13
KB
-rw-r--r--
gdb-ui.elc
138.61
KB
-rw-r--r--
glasses.elc
10.15
KB
-rw-r--r--
grep.elc
27.75
KB
-rw-r--r--
gud.elc
93.94
KB
-rw-r--r--
hideif.elc
26.67
KB
-rw-r--r--
hideshow.elc
24.54
KB
-rw-r--r--
icon.elc
16.23
KB
-rw-r--r--
idlw-complete-structtag.elc
4.75
KB
-rw-r--r--
idlw-help.elc
35.31
KB
-rw-r--r--
idlw-shell.elc
134.39
KB
-rw-r--r--
idlw-toolbar.elc
28.34
KB
-rw-r--r--
idlwave.elc
254.7
KB
-rw-r--r--
inf-lisp.elc
18.43
KB
-rw-r--r--
ld-script.elc
4.91
KB
-rw-r--r--
m4-mode.elc
4.91
KB
-rw-r--r--
make-mode.elc
58.79
KB
-rw-r--r--
mantemp.elc
3.77
KB
-rw-r--r--
meta-mode.elc
27.42
KB
-rw-r--r--
mixal-mode.elc
35.32
KB
-rw-r--r--
modula2.elc
14.23
KB
-rw-r--r--
octave-inf.elc
11.87
KB
-rw-r--r--
octave-mod.elc
44.6
KB
-rw-r--r--
pascal.elc
40.31
KB
-rw-r--r--
perl-mode.elc
22.42
KB
-rw-r--r--
prolog.elc
12.7
KB
-rw-r--r--
ps-mode.elc
33.38
KB
-rw-r--r--
python.elc
86.23
KB
-rw-r--r--
ruby-mode.elc
34.59
KB
-rw-r--r--
scheme.elc
15.94
KB
-rw-r--r--
sh-script.elc
94.73
KB
-rw-r--r--
simula.elc
44.81
KB
-rw-r--r--
sql.elc
101.34
KB
-rw-r--r--
sym-comp.elc
7.15
KB
-rw-r--r--
tcl.elc
38.58
KB
-rw-r--r--
vera-mode.elc
44.5
KB
-rw-r--r--
verilog-mode.elc
331.76
KB
-rw-r--r--
vhdl-mode.elc
510.47
KB
-rw-r--r--
which-func.elc
9.72
KB
-rw-r--r--
xscheme.elc
37.76
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : ebnf2ps.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:07 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/progmodes/ebnf2ps.el ;;; in Emacs version 23.1.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`ebnf2ps.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@271 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@ig.com.br>. (defconst ebnf-version "4.4" (#$ . 616)) (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& \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 #[(key alist) "\211\203! @:\203 @@\n=\203 \303 @\" A\211\204 )\207" [alist tail key delq] 4 "Delete from ALIST all elements whose car is KEY.\nReturn the modified alist.\nElements of ALIST that are not conses are ignored."] custom-declare-group postscript nil "PostScript Group." :tag "PostScript" :version "20" :group emacs ebnf2ps "Translate an EBNF to a syntactic chart on PostScript." :prefix "ebnf-" wp 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"] 12) #@52 *Non-nil means productions are drawn horizontally. (custom-declare-variable 'ebnf-horizontal-orientation 'nil '(#$ . -2762) :type 'boolean :version "20" :group 'ebnf-displacement) #@140 *Non-nil means to use maximum production height in horizontal orientation. It is only used when `ebnf-horizontal-orientation' is non-nil. (custom-declare-variable 'ebnf-horizontal-max-height 'nil '(#$ . -2949) :type 'boolean :version "20" :group 'ebnf-displacement) #@133 *Specify horizontal space in points between productions. Value less or equal to zero forces ebnf2ps to set a proper default value. (custom-declare-variable 'ebnf-production-horizontal-space '0.0 '(#$ . -3223) :type 'number :version "20" :group 'ebnf-displacement) #@131 *Specify vertical space in points between productions. Value less or equal to zero forces ebnf2ps to set a proper default value. (custom-declare-variable 'ebnf-production-vertical-space '0.0 '(#$ . -3495) :type 'number :version "20" :group 'ebnf-displacement) #@180 *Specify justification of terms in a sequence inside alternatives. Valid values are: `left' left justification `right' right justification any other value centralize (custom-declare-variable 'ebnf-justify-sequence ''center '(#$ . -3763) :type '(radio :tag "Sequence Justification" (const left) (const right) (other :tag "center" center)) :version "20" :group 'ebnf-displacement) #@60 *Non-nil means special delimiter (character `?') is shown. (custom-declare-variable 'ebnf-special-show-delimiter 't '(#$ . -4161) :type 'boolean :version "20" :group 'ebnf-special) #@71 *Specify special font. See documentation for `ebnf-production-font'. (custom-declare-variable 'ebnf-special-font ''(7 Courier "Black" "Gray95" bold italic) '(#$ . -4348) :type '(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)))) :version "20" :group 'ebnf-special) #@79 *Specify special box shape. See documentation for `ebnf-non-terminal-shape'. (custom-declare-variable 'ebnf-special-shape ''bevel '(#$ . -4984) :type '(radio :tag "Special Shape" (const miter) (const round) (const bevel)) :version "20" :group 'ebnf-special) #@48 *Non-nil means special box will have a shadow. (custom-declare-variable 'ebnf-special-shadow 'nil '(#$ . -5249) :type 'boolean :version "20" :group 'ebnf-special) #@40 *Specify border width for special box. (custom-declare-variable 'ebnf-special-border-width '0.5 '(#$ . -5418) :type 'number :version "20" :group 'ebnf-special) #@40 *Specify border color for special box. (custom-declare-variable 'ebnf-special-border-color '"Black" '(#$ . -5584) :type 'string :version "20" :group 'ebnf-special) #@70 *Specify except font. See documentation for `ebnf-production-font'. (custom-declare-variable 'ebnf-except-font ''(7 Courier "Black" "Gray90" bold italic) '(#$ . -5754) :type '(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)))) :version "20" :group 'ebnf-except) #@78 *Specify except box shape. See documentation for `ebnf-non-terminal-shape'. (custom-declare-variable 'ebnf-except-shape ''bevel '(#$ . -6386) :type '(radio :tag "Except Shape" (const miter) (const round) (const bevel)) :version "20" :group 'ebnf-except) #@47 *Non-nil means except box will have a shadow. (custom-declare-variable 'ebnf-except-shadow 'nil '(#$ . -6647) :type 'boolean :version "20" :group 'ebnf-except) #@39 *Specify border width for except box. (custom-declare-variable 'ebnf-except-border-width '0.25 '(#$ . -6813) :type 'number :version "20" :group 'ebnf-except) #@39 *Specify border color for except box. (custom-declare-variable 'ebnf-except-border-color '"Black" '(#$ . -6977) :type 'string :version "20" :group 'ebnf-except) #@70 *Specify repeat font. See documentation for `ebnf-production-font'. (custom-declare-variable 'ebnf-repeat-font ''(7 Courier "Black" "Gray85" bold italic) '(#$ . -7144) :type '(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)))) :version "20" :group 'ebnf-repeat) #@78 *Specify repeat box shape. See documentation for `ebnf-non-terminal-shape'. (custom-declare-variable 'ebnf-repeat-shape ''bevel '(#$ . -7776) :type '(radio :tag "Repeat Shape" (const miter) (const round) (const bevel)) :version "20" :group 'ebnf-repeat) #@47 *Non-nil means repeat box will have a shadow. (custom-declare-variable 'ebnf-repeat-shadow 'nil '(#$ . -8037) :type 'boolean :version "20" :group 'ebnf-repeat) #@39 *Specify border width for repeat box. (custom-declare-variable 'ebnf-repeat-border-width '0.0 '(#$ . -8203) :type 'number :version "20" :group 'ebnf-repeat) #@39 *Specify border color for repeat box. (custom-declare-variable 'ebnf-repeat-border-color '"Black" '(#$ . -8366) :type 'string :version "20" :group 'ebnf-repeat) #@72 *Specify terminal font. See documentation for `ebnf-production-font'. (custom-declare-variable 'ebnf-terminal-font ''(7 Courier "Black" "White") '(#$ . -8533) :type '(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)))) :version "20" :group 'ebnf-terminal) #@80 *Specify terminal box shape. See documentation for `ebnf-non-terminal-shape'. (custom-declare-variable 'ebnf-terminal-shape ''miter '(#$ . -9160) :type '(radio :tag "Terminal Shape" (const miter) (const round) (const bevel)) :version "20" :group 'ebnf-terminal) #@49 *Non-nil means terminal box will have a shadow. (custom-declare-variable 'ebnf-terminal-shadow 'nil '(#$ . -9429) :type 'boolean :version "20" :group 'ebnf-terminal) #@41 *Specify border width for terminal box. (custom-declare-variable 'ebnf-terminal-border-width '1.0 '(#$ . -9601) :type 'number :version "20" :group 'ebnf-terminal) #@41 *Specify border color for terminal box. (custom-declare-variable 'ebnf-terminal-border-color '"Black" '(#$ . -9770) :type 'string :version "20" :group 'ebnf-terminal) #@49 *Non-nil means production name will be printed. (custom-declare-variable 'ebnf-production-name-p 't '(#$ . -9943) :type 'boolean :version "20" :group 'ebnf-production) #@159 *Specify how productions are sorted. Valid values are: nil don't sort productions. `ascending' ascending sort. any other value descending sort. (custom-declare-variable 'ebnf-sort-production 'nil '(#$ . -10118) :type '(radio :tag "Production Sort" (const :tag "Ascending" ascending) (const :tag "Descending" descending) (other :tag "No Sort" nil)) :version "20" :group 'ebnf-production) #@825 *Specify production header font. It is a list with the following form: (SIZE NAME FOREGROUND BACKGROUND ATTRIBUTE...) Where: SIZE is the font size. NAME is the font name symbol. ATTRIBUTE is one of the following symbols: bold - use bold font. italic - use italic font. underline - put a line under text. strikeout - like underline, but the line is in middle of text. overline - like underline, but the line is over the text. shadow - text will have a shadow. box - text will be surrounded by a box. outline - print characters as hollow outlines. FOREGROUND is a foreground string color name; if it's nil, the default color is "Black". BACKGROUND is a background string color name; if it's nil, the default color is "White". See `ps-font-info-database' for valid font name. (custom-declare-variable 'ebnf-production-font ''(10 Helvetica "Black" "White" bold) '(#$ . -10526) :type '(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)))) :version "20" :group 'ebnf-production) #@76 *Specify non-terminal font. See documentation for `ebnf-production-font'. (custom-declare-variable 'ebnf-non-terminal-font ''(7 Helvetica "Black" "White") '(#$ . -11921) :type '(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)))) :version "20" :group 'ebnf-non-terminal) #@229 *Specify non-terminal box shape. Valid values are: `miter' +-------+ | | +-------+ `round' ------- ( ) ------- `bevel' /-------\ | | \-------/ Any other value is treated as `miter'. (custom-declare-variable 'ebnf-non-terminal-shape ''round '(#$ . -12568) :type '(radio :tag "Non-Terminal Shape" (const miter) (const round) (const bevel)) :version "20" :group 'ebnf-non-terminal) #@53 *Non-nil means non-terminal box will have a shadow. (custom-declare-variable 'ebnf-non-terminal-shadow 'nil '(#$ . -12999) :type 'boolean :version "20" :group 'ebnf-non-terminal) #@45 *Specify border width for non-terminal box. (custom-declare-variable 'ebnf-non-terminal-border-width '1.0 '(#$ . -13184) :type 'number :version "20" :group 'ebnf-non-terminal) #@45 *Specify border color for non-terminal box. (custom-declare-variable 'ebnf-non-terminal-border-color '"Black" '(#$ . -13366) :type 'string :version "20" :group 'ebnf-non-terminal) #@741 *Specify the arrow shape. Valid values are: `none' ====== `semi-up' * `transparent' * * |* =====* | * ==+==* | * |* * `semi-down' =====* `hollow' * * |* * | * ==+ * | * |* * `simple' * `full' * * |* =====* |X* * ==+XX* * |X* |* * `semi-up-hollow' `semi-up-full' * * |* |* | * |X* ==+==* ==+==* `semi-down-hollow' `semi-down-full' ==+==* ==+==* | * |X* |* |* * * `user' See also documentation for variable `ebnf-user-arrow'. Any other value is treated as `none'. (custom-declare-variable 'ebnf-arrow-shape ''hollow '(#$ . -13553) :type '(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)) :version "20" :group 'ebnf-shape) #@78 *Specify chart flow shape. See documentation for `ebnf-non-terminal-shape'. (custom-declare-variable 'ebnf-chart-shape ''round '(#$ . -14649) :type '(radio :tag "Chart Flow Shape" (const miter) (const round) (const bevel)) :version "20" :group 'ebnf-shape) #@1093 *Specify a sexp for user arrow shape (a PostScript code). When evaluated, the sexp should return nil or a string containing PostScript code. PostScript code should draw a right arrow. The anatomy of a right arrow is: ...... Initial position : : *................. : | * } } : | * } hT4 } v | * } } ======+======*... } hT2 : | *: } } : | * : } hT4 } : | * : } } : *................. : : : : : :.......... : : } hT2 } : :.......... } hT : } hT2 } :....................... Where `hT', `hT2' and `hT4' are predefined PostScript variable names that can be used to generate your own arrow. As these variables are used along PostScript execution, *DON'T* modify the values of them. Instead, copy the values, if you need to modify them. The relation between these variables is: hT = 2 * hT2 = 4 * hT4. The variable `ebnf-user-arrow' is only used when `ebnf-arrow-shape' is set to symbol `user'. (custom-declare-variable 'ebnf-user-arrow 'nil '(#$ . -14915) :type '(sexp :tag "User Arrow Shape") :version "20" :group 'ebnf-shape) #@1294 *Specify syntax to be recognized. Valid values are: `ebnf' ebnf2ps recognizes the syntax described in ebnf2ps documentation. The following variables *ONLY* have effect with this setting: `ebnf-terminal-regexp', `ebnf-case-fold-search', `ebnf-lex-comment-char' and `ebnf-lex-eop-char'. `abnf' ebnf2ps recognizes the syntax described in the URL: `http://www.ietf.org/rfc/rfc2234.txt' ("Augmented BNF for Syntax Specifications: ABNF"). `iso-ebnf' ebnf2ps recognizes the syntax described in the URL: `http://www.cl.cam.ac.uk/~mgk25/iso-ebnf.html' ("International Standard of the ISO EBNF Notation"). The following variables *ONLY* have effect with this setting: `ebnf-iso-alternative-p' and `ebnf-iso-normalize-p'. `yacc' ebnf2ps recognizes the Yacc/Bison syntax. The following variable *ONLY* has effect with this setting: `ebnf-yac-ignore-error-recovery'. `ebnfx' ebnf2ps recognizes the syntax described in the URL: `http://www.w3.org/TR/2004/REC-xml-20040204/#sec-notation' ("Extensible Markup Language (XML) 1.0 (Third Edition)") `dtd' ebnf2ps recognizes the syntax described in the URL: `http://www.w3.org/TR/2004/REC-xml-20040204/' ("Extensible Markup Language (XML) 1.0 (Third Edition)") Any other value is treated as `ebnf'. (custom-declare-variable 'ebnf-syntax ''ebnf '(#$ . -16149) :type '(radio :tag "Syntax" (const ebnf) (const abnf) (const iso-ebnf) (const yacc) (const ebnfx) (const dtd)) :version "20" :group 'ebnf-syntactic) #@84 *Specify the line comment character. It's used only when `ebnf-syntax' is `ebnf'. (custom-declare-variable 'ebnf-lex-comment-char '59 '(#$ . -17657) :type 'character :version "20" :group 'ebnf-syntactic) #@89 *Specify the end of production character. It's used only when `ebnf-syntax' is `ebnf'. (custom-declare-variable 'ebnf-lex-eop-char '46 '(#$ . -17868) :type 'character :version "20" :group 'ebnf-syntactic) #@271 *Specify how it's a terminal name. If it's nil, the terminal name must be enclosed by `"'. If it's a string, it should be a regexp that it'll be used to determine a terminal name; terminal name may also be enclosed by `"'. It's used only when `ebnf-syntax' is `ebnf'. (custom-declare-variable 'ebnf-terminal-regexp 'nil '(#$ . -18081) :type '(radio :tag "Terminal Name" (const nil) regexp) :version "20" :group 'ebnf-syntactic) #@130 *Non-nil means ignore case on matching. It's only used when `ebnf-terminal-regexp' is non-nil and when `ebnf-syntax' is `ebnf'. (custom-declare-variable 'ebnf-case-fold-search 'nil '(#$ . -18518) :type 'boolean :version "20" :group 'ebnf-syntactic) #@291 *Non-nil means use alternative ISO EBNF. It's only used when `ebnf-syntax' is `iso-ebnf'. This variable affects the following symbol set: STANDARD ALTERNATIVE | ==> / or ! [ ==> (/ ] ==> /) { ==> (: } ==> :) ; ==> . (custom-declare-variable 'ebnf-iso-alternative-p 'nil '(#$ . -18775) :type 'boolean :version "20" :group 'ebnf-syntactic) #@230 *Non-nil means normalize ISO EBNF syntax names. Normalize a name means that several contiguous spaces inside name become a single space, so "A B C" is normalized to "A B C". It's only used when `ebnf-syntax' is `iso-ebnf'. (custom-declare-variable 'ebnf-iso-normalize-p 'nil '(#$ . -19194) :type 'boolean :version "20" :group 'ebnf-syntactic) #@82 *Specify file name suffix that contains EBNF. See `ebnf-eps-directory' command. (custom-declare-variable 'ebnf-file-suffix-regexp '".[Bb][Nn][Ff]$" '(#$ . -19549) :type 'regexp :version "20" :group 'ebnf2ps) #@87 *Specify EPS prefix file name. See `ebnf-eps-buffer' and `ebnf-eps-region' commands. (custom-declare-variable 'ebnf-eps-prefix '"ebnf--" '(#$ . -19764) :type 'string :version "20" :group 'ebnf2ps) #@129 *Specify EPS header font. See documentation for `ebnf-production-font'. See `ebnf-eps-buffer' and `ebnf-eps-region' commands. (custom-declare-variable 'ebnf-eps-header-font ''(11 Helvetica "Black" "White" bold) '(#$ . -19969) :type '(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)))) :version "22" :group 'ebnf2ps) #@1025 *Specify EPS header. The value should be a string, a symbol or nil. String is inserted unchanged. For symbol bounded to a function, the function is called and should return a string. For symbol bounded to a value, the value should be a string. If symbol is unbounded, it is silently ignored. Empty string or nil mean that no header will be generated. Note that when the header action comment (;H in EBNF syntax) is specified, the string in the header action comment is processed and, if it returns a non-empty string, it's used to generate the header. The header action comment accepts the following formats: %% prints a % character. %H prints the `ebnf-eps-header' value. %F prints the `ebnf-eps-footer' (which see) value. Any other format is ignored, that is, if, for example, it's used %s then %s characters are stripped out from the header. If header action comment is an empty string, no header is generated until a non-empty header is specified or `ebnf-eps-header' has a non-empty string value. (custom-declare-variable 'ebnf-eps-header 'nil '(#$ . -20662) :type '(repeat (choice :menu-tag "EPS Header" :tag "EPS Header" string symbol (const :tag "No Header" nil))) :version "22" :group 'ebnf2ps) #@129 *Specify EPS footer font. See documentation for `ebnf-production-font'. See `ebnf-eps-buffer' and `ebnf-eps-region' commands. (custom-declare-variable 'ebnf-eps-footer-font ''(7 Helvetica "Black" "White" bold) '(#$ . -21895) :type '(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)))) :version "22" :group 'ebnf2ps) #@1025 *Specify EPS footer. The value should be a string, a symbol or nil. String is inserted unchanged. For symbol bounded to a function, the function is called and should return a string. For symbol bounded to a value, the value should be a string. If symbol is unbounded, it is silently ignored. Empty string or nil mean that no footer will be generated. Note that when the footer action comment (;F in EBNF syntax) is specified, the string in the footer action comment is processed and, if it returns a non-empty string, it's used to generate the footer. The footer action comment accepts the following formats: %% prints a % character. %H prints the `ebnf-eps-header' (which see) value. %F prints the `ebnf-eps-footer' value. Any other format is ignored, that is, if, for example, it's used %s then %s characters are stripped out from the footer. If footer action comment is an empty string, no footer is generated until a non-empty footer is specified or `ebnf-eps-footer' has a non-empty string value. (custom-declare-variable 'ebnf-eps-footer 'nil '(#$ . -22587) :type '(repeat (choice :menu-tag "EPS Footer" :tag "EPS Footer" string symbol (const :tag "No Footer" nil))) :version "22" :group 'ebnf2ps) #@96 *Specify entry height on alternatives. It must be a float between 0.0 (top) and 1.0 (bottom). (custom-declare-variable 'ebnf-entry-percentage '0.5 '(#$ . -23819) :type 'number :version "20" :group 'ebnf2ps) #@82 *Specify additional border width over default terminal, non-terminal or special. (custom-declare-variable 'ebnf-default-width '0.6 '(#$ . -24033) :type 'number :version "20" :group 'ebnf2ps) #@27 *Non-nil means use color. (custom-declare-variable 'ebnf-color-p '(or (fboundp 'x-color-values) (fboundp 'color-instance-rgb-components)) '(#$ . -24230) :type 'boolean :version "20" :group 'ebnf2ps) #@27 *Specify flow line width. (custom-declare-variable 'ebnf-line-width '1.0 '(#$ . -24435) :type 'number :version "20" :group 'ebnf2ps) #@27 *Specify flow line color. (custom-declare-variable 'ebnf-line-color '"Black" '(#$ . -24574) :type 'string :version "20" :group 'ebnf2ps) #@189 *Specify extra width for arrow shape drawing. The extra width is used to avoid that the arrowhead and the terminal border overlap. It depens on `ebnf-arrow-shape' and `ebnf-line-width'. (custom-declare-variable 'ebnf-arrow-extra-width '(if (eq ebnf-arrow-shape 'none) 0.0 (* (sqrt 5.0) 0.65 ebnf-line-width)) '(#$ . -24718) :type 'number :version "22" :group 'ebnf-shape) #@112 *Specify the arrow scale. Values lower than 1.0, shrink the arrow. Values greater than 1.0, expand the arrow. (custom-declare-variable 'ebnf-arrow-scale '1.0 '(#$ . -25099) :type 'number :version "22" :group 'ebnf-shape) #@118 *Non-nil means to generate PostScript debug procedures. It is intended to help PostScript programmers in debugging. (custom-declare-variable 'ebnf-debug-ps 'nil '(#$ . -25328) :type 'boolean :version "20" :group 'ebnf2ps) #@260 *Non-nil means use `%f' float format. The advantage of using float format is that ebnf2ps generates a little short PostScript file. If it occurs the error message: Invalid format operation %f when executing ebnf2ps, set `ebnf-use-float-format' to nil. (custom-declare-variable 'ebnf-use-float-format 't '(#$ . -25558) :type 'boolean :version "20" :group 'ebnf2ps) #@78 *Non-nil means signal error and stop. Otherwise, signal error and continue. (custom-declare-variable 'ebnf-stop-on-error 'nil '(#$ . -25935) :type 'boolean :version "20" :group 'ebnf2ps) #@85 *Non-nil means ignore error recovery. It's only used when `ebnf-syntax' is `yacc'. (custom-declare-variable 'ebnf-yac-ignore-error-recovery 'nil '(#$ . -26129) :type 'boolean :version "20" :group 'ebnf-syntactic) #@135 *Non-nil means ignore empty rules. It's interesting to set this variable if your Yacc/Bison grammar has a lot of middle action rule. (custom-declare-variable 'ebnf-ignore-empty-rule 'nil '(#$ . -26350) :type 'boolean :version "20" :group 'ebnf-optimization) #@737 *Non-nil means optimize syntactic chart of rules. The following optimizations are done: left recursion: 1. A = B | A C. ==> A = B {C}*. 2. A = B | A B. ==> A = {B}+. 3. A = | A B. ==> A = {B}*. 4. A = B | A C B. ==> A = {B || C}+. 5. A = B | D | A C | A E. ==> A = ( B | D ) { C | E }*. optional: 6. A = B | . ==> A = [B]. 7. A = | B . ==> A = [B]. factorization: 8. A = B C | B D. ==> A = B (C | D). 9. A = C B | D B. ==> A = (C | D) B. 10. A = B C E | B D E. ==> A = B (C | D) E. The above optimizations are specially useful when `ebnf-syntax' is `yacc'. (custom-declare-variable 'ebnf-optimize 'nil '(#$ . -26616) :type 'boolean :version "20" :group 'ebnf-optimization) #@157 *Non-nil means generate log messages. The log messages are generated into the buffer *Ebnf2ps Log*. These messages are intended to help debugging ebnf2ps. (custom-declare-variable 'ebnf-log 'nil '(#$ . -27475) :type 'boolean :version "22" :group 'ebnf2ps) #@24 Eliminate empty rules. (autoload 'ebnf-eliminate-empty-rules "ebnf-otz" '(#$ . 27738)) #@28 Syntactic chart optimizer. (autoload 'ebnf-optimize "ebnf-otz" '(#$ . 27831)) #@23 Initialize optimizer. (autoload 'ebnf-otz-initialize "ebnf-otz" '(#$ . 27915)) #@31 Customization for ebnf group. (defalias 'ebnf-customize #[nil "\300\301!\207" [customize-group ebnf2ps] 2 (#$ . 28000) nil]) #@243 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'. (defalias 'ebnf-print-directory #[(&optional directory) "\301\302\"\210\303\304\"\207" [directory ebnf-log-header "(ebnf-print-directory %S)" ebnf-directory ebnf-print-buffer] 3 (#$ . 28132) (list (read-file-name "Directory containing EBNF files (print): " nil default-directory))]) #@213 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'. (defalias 'ebnf-print-file #[(file &optional do-not-kill-buffer-when-done) "\302\303 #\210\304\305 #\207" [file do-not-kill-buffer-when-done ebnf-log-header "(ebnf-print-file %S %S)" ebnf-file ebnf-print-buffer] 4 (#$ . 28666) "fEBNF file to generate PostScript and print from: "]) #@499 Generate and print a PostScript syntactic chart image of the buffer. When called with a numeric prefix argument (C-u), 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. (defalias 'ebnf-print-buffer #[(&optional filename) "\301\302\"\210\303ed#\207" [filename ebnf-log-header "(ebnf-print-buffer %S)" ebnf-print-region] 4 (#$ . 29169) (list (ps-print-preprint current-prefix-arg))]) #@132 Generate and print a PostScript syntactic chart image of the region. Like `ebnf-print-buffer', but prints just the current region. (defalias 'ebnf-print-region #[(from to &optional filename) "\303\304 \n$\210\305\306!\210\307 \"\206 \310\n!\207" [from to filename ebnf-log-header "(ebnf-print-region %S %S %S)" run-hooks ebnf-hook ebnf-spool-region ps-do-despool] 5 (#$ . 29889) (list (point) (mark) (ps-print-preprint current-prefix-arg))]) #@243 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'. (defalias 'ebnf-spool-directory #[(&optional directory) "\301\302\"\210\303\304\"\207" [directory ebnf-log-header "(ebnf-spool-directory %S)" ebnf-directory ebnf-spool-buffer] 3 (#$ . 30341) (list (read-file-name "Directory containing EBNF files (spool): " nil default-directory))]) #@213 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'. (defalias 'ebnf-spool-file #[(file &optional do-not-kill-buffer-when-done) "\302\303 #\210\304\305 #\207" [file do-not-kill-buffer-when-done ebnf-log-header "(ebnf-spool-file %S %S)" ebnf-file ebnf-spool-buffer] 4 (#$ . 30875) "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 #[nil "\300\301!\210\302ed\"\207" [ebnf-log-header "(ebnf-spool-buffer)" ebnf-spool-region] 3 (#$ . 31378) nil]) #@215 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. (defalias 'ebnf-spool-region #[(from to) "\302\303 #\210\304 \305#\207" [from to ebnf-log-header "(ebnf-spool-region %S)" ebnf-generate-region ebnf-generate] 4 (#$ . 31789) "r"]) #@222 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'. (defalias 'ebnf-eps-directory #[(&optional directory) "\301\302\"\210\303\304\"\207" [directory ebnf-log-header "(ebnf-eps-directory %S)" ebnf-directory ebnf-eps-buffer] 3 (#$ . 32191) (list (read-file-name "Directory containing EBNF files (EPS): " nil default-directory))]) #@176 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'. (defalias 'ebnf-eps-file #[(file &optional do-not-kill-buffer-when-done) "\302\303 #\210\304\305 #\207" [file do-not-kill-buffer-when-done ebnf-log-header "(ebnf-eps-file %S %S)" ebnf-file ebnf-eps-buffer] 4 (#$ . 32696) "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 #[nil "\300\301!\210\302ed\"\207" [ebnf-log-header "(ebnf-eps-buffer)" ebnf-eps-region] 3 (#$ . 33144) nil]) #@676 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. (defalias 'ebnf-eps-region #[(from to) "\303\304 #\210\305\306 \307#)\207" [from to ebnf-eps-executing ebnf-log-header "(ebnf-eps-region %S %S)" t ebnf-generate-region ebnf-generate-eps] 4 (#$ . 33962) "r"]) (defalias 'ebnf-despool 'ps-despool) #@224 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'. (defalias 'ebnf-syntax-directory #[(&optional directory) "\301\302\"\210\303\304\"\207" [directory ebnf-log-header "(ebnf-syntax-directory %S)" ebnf-directory ebnf-syntax-buffer] 3 (#$ . 34892) (list (read-file-name "Directory containing EBNF files (syntax): " nil default-directory))]) #@181 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'. (defalias 'ebnf-syntax-file #[(file &optional do-not-kill-buffer-when-done) "\302\303 #\210\304\305 #\207" [file do-not-kill-buffer-when-done ebnf-log-header "(ebnf-syntax-file %S %S)" ebnf-file ebnf-syntax-buffer] 4 (#$ . 35411) "fEBNF file to check syntax: "]) #@48 Do a syntactic analysis of the current buffer. (defalias 'ebnf-syntax-buffer #[nil "\300\301!\210\302ed\"\207" [ebnf-log-header "(ebnf-syntax-buffer)" ebnf-syntax-region] 3 (#$ . 35862) nil]) #@38 Do a syntactic analysis of a region. (defalias 'ebnf-syntax-region #[(from to) "\302\303 #\210\304 \305#\207" [from to ebnf-log-header "(ebnf-syntax-region %S %S)" ebnf-generate-region nil] 4 (#$ . 36060) "r"]) #@35 Return the current ebnf2ps setup. (defalias 'ebnf-setup #[nil "\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 (#$ . 36279)]) #@79 Used in functions `ebnf-reset-style', `ebnf-push-style' and `ebnf-pop-style'. (defvar ebnf-stack-style nil (#$ . 40822)) #@61 Used in functions `ebnf-apply-style' and `ebnf-push-style'. (defvar ebnf-current-style 'default (#$ . 40949)) #@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) (#$ . 41065)) #@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))) (#$ . 42452)) #@118 Return style definition if NAME is already defined; otherwise, return nil. See `ebnf-style-database' documentation. (defalias 'ebnf-find-style #[(name) "\302 \"\207" [name ebnf-style-database assoc] 3 (#$ . 45874) "SStyle name: "]) #@112 Insert a new style NAME with inheritance INHERITS and values VALUES. See `ebnf-style-database' documentation. (defalias 'ebnf-insert-style #[(name inherits &rest values) "\304 \"\203\f \305\306\"\210\304\n \"\204 \305\307\n\"\210\n\310 !BB B\211\207" [name ebnf-style-database inherits values assoc error "Style name already exists: %s" "Style inheritance name doesn't exist: %s" ebnf-check-style-values] 4 (#$ . 46115) "SStyle name: \nSStyle inherits from: \nXStyle values: "]) #@62 Delete style NAME. See `ebnf-style-database' documentation. (defalias 'ebnf-delete-style #[(name) "\303 \"\204\f \304\305\"\210 \211\203* \n@A@=\203# \304\306\n@@#\210\nA\211\204 )\307 \"\211\207" [name ebnf-style-database db assoc error "Style name doesn't exist: %s" "Style name `%s' is inherited by `%s' style" assq-delete-all] 5 (#$ . 46606) "SDelete style name: "]) #@89 Merge values of style NAME with style VALUES. See `ebnf-style-database' documentation. (defalias 'ebnf-merge-style #[(name &rest values) "\306 \"\206 \307\310\"\311\n!\312\211\211\211 \f\211 AA \f\203H \f@\fA\f\306 @ \"\211\203A A\241\210\202 \fB\202 \f\237\244.\207" [name ebnf-style-database values check new elt assoc error "Style name doesn't exist: %s" ebnf-check-style-values nil val merge style] 7 (#$ . 46993) "SStyle name: \nXStyle values: "]) #@106 Set STYLE as the current style. Returns the old style symbol. See `ebnf-style-database' documentation. (defalias 'ebnf-apply-style #[(style) "\302 !\203 \207" [ebnf-current-style style ebnf-apply-style1] 3 (#$ . 47480) "SApply style: "]) #@95 Reset current style. Returns the old style symbol. See `ebnf-style-database' documentation. (defalias 'ebnf-reset-style #[(&optional style) "\302\303 \206 \304!\207" [ebnf-stack-style style nil ebnf-apply-style default] 2 (#$ . 47730) "SReset style: "]) #@174 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. (defalias 'ebnf-push-style #[(&optional style) "\211 B\n\203 \303\n!\210\207" [ebnf-current-style ebnf-stack-style style ebnf-apply-style] 3 (#$ . 47995) "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 #[nil "\301@!A\207" [ebnf-stack-style ebnf-apply-style] 2 (#$ . 48350) nil]) (defalias 'ebnf-apply-style1 #[(style) "\304 \"A\211\211@\203 \305\n@!\210\nA\211\203+ \n\211@@)\306\n\211@A)!L\210\202 )\207" [style ebnf-style-database value x assoc ebnf-apply-style1 eval] 5]) (defalias 'ebnf-check-style-values #[(values) "\304 \203 \211@@) >\203 @B A\211\204 \237)\207" [style values x ebnf-style-custom-list nil] 3]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\306\"\210\307B\302\307!\204- \303\307\306\"\210\310B\302\310!\204< \303\310\306\"\210\311B\302\311!\204K \303\311\306\"\210\312B\302\312!\204Z \303\312\313\"\210\314\312!\210\315B\302\315!\204m \303\315\316\"\210\314\315!\210\317B\302\317!\204\200 \303\317\320\"\210\314\317!\210\321B\302\321!\204\223 \303\321\322\"\210\314\321!\210\323B\302\323!\204\246 \303\323\324\"\210\314\323!\207" [current-load-list ebnf-eps-buffer-name default-boundp set-default " *EPS*" ebnf-parser-func nil ebnf-eps-executing ebnf-eps-header-comment ebnf-eps-footer-comment ebnf-eps-upper-x 0.0 make-variable-buffer-local ebnf-eps-upper-y 0.0 ebnf-eps-prod-width 0.0 ebnf-eps-max-height 0.0 ebnf-eps-max-width 0.0] 3) #@100 List of EPS file name during parsing. See section "Actions in Comments" in ebnf2ps documentation. (defvar ebnf-eps-context nil (#$ . 49795)) #@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 (#$ . 49944)) #@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 (#$ . 50379)) #@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)) (#$ . 50787)) #@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)) (#$ . 51129)) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\306B\302\306!\204- \303\306\304\"\210\307B\302\307!\204< \303\307\304\"\210\310B\302\310!\204K \303\310\311\"\210\312B\302\312!\204Z \303\312\311\"\210\313B\302\313!\204i \303\313\311\"\210\314B\302\314!\204x \303\314\311\"\210\315B\302\315!\204\207 \303\315\311\"\210\316B\302\316!\204\226 \303\316\311\"\210\317B\302\317!\204\245 \303\317\311\"\210\320B\302\320!\204\264 \303\320\311\"\210\321B\302\321!\204\303 \303\321\311\"\210\322B\302\322!\204\322 \303\322\311\"\210\323B\302\323!\204\341 \303\323\311\"\210\324B\302\324!\204\360 \303\324\311\"\210\325B\302\325!\204\377 \303\325\311\"\210\326B\302\326!\204\303\326\311\"\210\327B\302\327!\204 \303\327\311\"\210\330B\302\330!\204,\303\330\311\"\210\331B\302\331!\204;\303\331\311\"\210\332B\302\332!\204J\303\332\311\"\210\333B\302\333!\204Y\303\333\311\"\210\334B\302\334!\204h\303\334\311\"\210\335B\302\335!\204w\303\335\311\"\210\336B\302\336!\204\206\303\336\311\"\210\337B\302\337!\204\225\303\337\311\"\210\340B\302\340!\204\244\303\340\304\"\210\341B\302\341!\204\263\303\341\304\"\210\304\207" [current-load-list ebnf-limit default-boundp set-default nil ebnf-action ebnf-action-list ebnf-default-p ebnf-font-height-P 0 ebnf-font-height-T ebnf-font-height-NT ebnf-font-height-S ebnf-font-height-E 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-extra ebnf-basic-width ebnf-basic-height ebnf-basic-empty-height ebnf-vertical-space ebnf-horizontal-space ebnf-settings ebnf-fonts-required] 3) #@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" (#$ . 53169)) #@26 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 Descendent: 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 Ascendent: 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 Descendent: 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 Ascendent: 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}if\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" (#$ . 53758)) #@19 EBNF EPS prologue (defconst ebnf-eps-prologue "\n/#ebnf2ps#dict 230 dict def\n#ebnf2ps#dict begin\n\n% Initiliaze 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" (#$ . 69481)) #@16 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" (#$ . 77841)) #@14 EBNF EPS end (defconst ebnf-eps-end "#ebnf2ps#end\n%%EOF\n" (#$ . 78115)) (defalias 'ebnf-eps-header-footer #[(value) "9\203 \302!\203 \202 \303!\203 J\202 \304\202 \211;\205' )\207" [value tmp fboundp boundp nil] 3]) (defalias 'ebnf-eps-header #[nil "\301!\207" [ebnf-eps-header ebnf-eps-header-footer] 2]) (defalias 'ebnf-eps-footer #[nil "\301!\207" [ebnf-eps-footer ebnf-eps-header-footer] 2]) (defalias 'ebnf-eps-string #[(string) "\306!\211G\307\310 \311\211 \312\313 #\211\203G H\f O\307X\203: \314X\203: H\202? \315\316\"Q T\202 \f \nW\205R \nO\317Q.\207" [string str len index new start string-as-unibyte 0 "(" nil string-match "[^]-~ -'*-[]" 255 format "\\%04X" ")" special ps-string-escape-codes] 6]) (defalias 'ebnf-eps-header-footer-comment #[(str) "GS\306\307\211\211 \310\311\f#\211\203T \n W\203# \nTH\202$ \312 \f\nO \313U\2034 \311\202K \314U\203? \315 \202K \316U\203J \317 \202K \307Q\n\320\\\202\f \321 \f X\205a \f TOP!-\207" [str fmt start new index len 0 nil string-match "%" 63 37 72 ebnf-eps-header 70 ebnf-eps-footer 2 ebnf-eps-string] 5]) (defalias 'ebnf-eps-header-footer-p #[(value) "?\206 ;\205 \301\230?\207" [value ""] 2]) (defalias 'ebnf-eps-header-comment #[(str) "\303!\205 \304 !\211\207" [ebnf-eps-header str ebnf-eps-header-comment ebnf-eps-header-footer-p ebnf-eps-header-footer-comment] 2]) (defalias 'ebnf-eps-footer-comment #[(str) "\303!\205 \304 !\211\207" [ebnf-eps-footer str ebnf-eps-footer-comment ebnf-eps-header-footer-p ebnf-eps-header-footer-comment] 2]) (defalias 'ebnf-eps-header-footer-file #[(filename) "\306 \"\n\206\n \307 \206 \310 \211 \204# \fE B\211\202/ A \240\210 AA\f\240+\207" [filename ebnf-eps-file-alist ebnf-eps-header-comment ebnf-eps-footer-comment footer header assoc ebnf-eps-header ebnf-eps-footer filehf] 4]) (defalias 'ebnf-eps-header-footer-set #[(filename) "\305 \"\211A@\306\n8\211)\207" [filename ebnf-eps-file-alist header-footer ebnf-eps-header-comment ebnf-eps-footer-comment assoc 2] 4]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list ebnf-format-float default-boundp set-default "%1.3f"] 3) (defalias 'ebnf-format-float #[(&rest floats) "\301\302\303#\207" [floats mapconcat #[(float) "\302 \"\207" [ebnf-format-float float format] 3] " "] 4]) (defalias 'ebnf-format-color #[(format-str color default) "\206 \305\n!\306\f\307\310 @ A@\311 8#\312Q\n#*\207" [color default the-color rgb format-str ps-color-scale format "[" ebnf-format-float 2 "]"] 8]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list ebnf-message-float default-boundp set-default "%3.2f"] 3) (defalias 'ebnf-message-float #[(format-str value) "\303\304 \n\"\"\207" [format-str ebnf-message-float value message format] 5]) (byte-code "\301\302\303\304#\210\305B\306\305!\204 \307\305\310\"\210\311B\306\311!\204$ \307\311\310\"\210\301\207" [current-load-list put ebnf-message-float byte-optimizer byte-compile-inline-expand ebnf-total default-boundp set-default 0 ebnf-nprod] 4) (defalias 'ebnf-message-info #[(messag) "\303\304\305 T\211\306_\n\245!#\207" [messag ebnf-nprod ebnf-total message "%s...%3d%%" round 100.0] 6]) (put 'ebnf-message-info 'byte-optimizer 'byte-compile-inline-expand) (defalias 'ebnf-node-kind '(macro . #[(vec &optional value) "\203\n \302 \303F\207\304 \305BB\207" [value vec aset 0 aref (0)] 4])) (defalias 'ebnf-node-width-func '(macro . #[(node width) "\302\303\304BB F\207" [node width funcall aref (1)] 4])) (defalias 'ebnf-node-dimension-func '(macro . #[(node &optional value) "\203\n \302 \303F\207\304\305 \306BB E\207" [value node aset 2 funcall aref (2)] 4])) (defalias 'ebnf-node-entry '(macro . #[(vec &optional value) "\203\n \302 \303F\207\304 \305BB\207" [value vec aset 3 aref (3)] 4])) (defalias 'ebnf-node-height '(macro . #[(vec &optional value) "\203\n \302 \303F\207\304 \305BB\207" [value vec aset 4 aref (4)] 4])) (defalias 'ebnf-node-width '(macro . #[(vec &optional value) "\203\n \302 \303F\207\304 \305BB\207" [value vec aset 5 aref (5)] 4])) (defalias 'ebnf-node-name '(macro . #[(vec) "\301\302BB\207" [vec aref (6)] 3])) (defalias 'ebnf-node-list '(macro . #[(vec &optional value) "\203\n \302 \303F\207\304 \305BB\207" [value vec aset 6 aref (6)] 4])) (defalias 'ebnf-node-default '(macro . #[(vec) "\301\302BB\207" [vec aref (7)] 3])) (defalias 'ebnf-node-production '(macro . #[(vec &optional value) "\203\n \302 \303F\207\304 \305BB\207" [value vec aset 7 aref (7)] 4])) (defalias 'ebnf-node-separator '(macro . #[(vec &optional value) "\203\n \302 \303F\207\304 \305BB\207" [value vec aset 7 aref (7)] 4])) (defalias 'ebnf-node-action '(macro . #[(vec &optional value) "\203\n \302 \303F\207\304 \305BB\207" [value vec aset 8 aref (8)] 4])) (defalias 'ebnf-node-generation '(macro . #[(node) "\301\302DE\207" [node funcall ebnf-node-kind] 3])) (defalias 'ebnf-max-width '(macro . #[(prod) "\301\302D\303\304\305\306DD\307BB\310BBE\207" [prod max ebnf-node-width + * length ebnf-node-name (ebnf-font-width-P) (ebnf-production-horizontal-space)] 7])) (defalias 'ebnf-generate-eps #[(ebnf-tree) "\205 \306 \211\203 \307\310\311!@!\202 \312 G \313 \314K \315K \316 ! \317\211 \317\211 ! \"\317\211 # $\317\211 % &\317 '\320\314\321\"\210\320\315\322\"\210\212\323\324\325\217\210)\320\314\"\210\320\315 \"\210\326 !\210\327'\317\"\210 \203v \330 !\210\331\332!.\207" [ebnf-color-p ps-color-p ps-print-color-scale ebnf-tree ebnf-total ebnf-nprod ps-color-device float ps-color-values "white" 1.0 0 ps-output ps-output-string get-buffer-create nil defalias ebnf-eps-output ps-output-string-prim data (byte-code "\203q @\211\306H \307H \306HG _\f\\] \310H \311H>\212q\210\312\313 \314 !\210)\315\n\"A\211 \203Y \316 \317 &\210\202a \320\321\n!\"\210\212q\210\322 \210)A\211\204 \323\324\"\210\325\211\207" [ebnf-tree prod prod-name ebnf-font-width-P ebnf-production-horizontal-space prod-width 6 5 4 8 0.0 0.0 ebnf-generate-production assoc ebnf-eps-production-list file-list ebnf-eps-finish-and-write ebnf-eps-filename erase-buffer ebnf-eps-write-kill-temp t nil prod-height ebnf-action-list horizontal eps-buffer ebnf-eps-upper-x ebnf-eps-upper-y ebnf-eps-max-width ebnf-eps-max-height prod-list] 8) (((quit error) (byte-code "\302!\302\207" [data error-msg error-message-string] 2))) kill-buffer ebnf-eps-write-kill-temp error message " " old-ps-output old-ps-output-string ebnf-eps-buffer-name eps-buffer ebnf-debug-ps error-msg horizontal prod prod-name prod-width prod-height prod-list file-list] 4]) (defalias 'ebnf-eps-write-kill-temp #[(file-list write-p) "\205' \303\304@\305Q!\211\203 \n\203 \306 @\"\210\307 !\210)A\211\204 \310\207" [file-list buffer write-p get-buffer " *" "*" ebnf-eps-finish-and-write kill-buffer nil] 5]) (defalias 'ebnf-eps-production-list #[(prod-list file-list-sym horizontal prod-width prod-height eps-buffer) "\205y \306 @\"\210\212\307\310@\311Q!q\210db\210\312\313 !\203+ \314\315\f\202h \203F \316!\210\317 \f#]\202h \320!\210\n ]\312 !\203Z \202a \317 #\f\f\321!\210)A\211\204 \322\207" [prod-list file-list-sym ebnf-eps-upper-x ebnf-eps-upper-y prod-width ebnf-eps-max-width add-to-list get-buffer-create " *" "*" zerop buffer-size 0.0 0.0 ebnf-eop-horizontal + ebnf-eop-vertical insert-buffer-substring nil prod-height ebnf-eps-max-height horizontal ebnf-eps-prod-width ebnf-production-horizontal-space ebnf-production-vertical-space eps-buffer] 5]) (defalias 'ebnf-generate #[(ebnf-tree) "\205 \306 \211\203 \307\310\311!@!\202 \312\313\211 \313\211 \313\211 \313 \314ped\315$. \207" [ebnf-color-p ps-color-p ps-print-color-scale ps-zebra-stripes ps-line-number ps-razzle-dazzle ps-color-device float ps-color-values "white" 1.0 nil ps-generate ebnf-generate-postscript ps-print-hook ps-print-begin-sheet-hook ps-print-begin-page-hook ps-print-begin-column-hook] 6]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\306\"\210\304\207" [current-load-list ebnf-tree default-boundp set-default nil ebnf-direction "R"] 3) (defalias 'ebnf-generate-postscript #[(from to) "\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 " "] 2]) (defalias 'ebnf-generate-with-max-height #[nil "G\306\307\211\211\211 \205\246 @\211\310H\311\n\211\312H\n\313HG_\\]\"\210\fA\211\203p \f@\211\203p \n\314H>\203p \n\312H\n\313HG_\\]\211\203p X\203p \n\310H] \\Z\202- \315 !\210@\316\n!\210A\211\f=\204\237 \317\n\312H\n\313HG_\\]!\210@\316\n!\210\202{ \320 !\210\202 .\207" [ebnf-tree the-width prod max-height next-line ebnf-nprod 0 nil 4 ebnf-begin-line 5 6 8 ebnf-newline ebnf-generate-production ebnf-eop-horizontal ebnf-eop-vertical ebnf-total ebnf-font-width-P ebnf-production-horizontal-space ebnf-action-list ps-width-remaining] 7]) (defalias 'ebnf-generate-without-max-height #[nil "G\306\307\211\211\211 \205\222 @\211\310H \311H \312HG_\\]\313 \n\"\210\314 !\210A\211\203\207 @\211\203\207 \315H>\203\207 \311H \312HG_\\]\211\203\207 X\203\207 \310HX\203\207 \316\n!\210\314 !\210 \f \310H] \\Z\2021 \317\f!\210\320\f!\210\202 .\207" [ebnf-tree cur-width bef-width prod max-height ebnf-nprod 0 nil 4 5 6 ebnf-begin-line ebnf-generate-production 8 ebnf-eop-horizontal ebnf-eop-vertical ebnf-newline ebnf-total ebnf-font-width-P ebnf-production-horizontal-space ebnf-action-list ps-width-remaining ps-height-remaining] 7]) (defalias 'ebnf-begin-line #[(prod width) "\305H\306=\204 \307H V\203 \310 \210\n \f\\Z\211\207" [prod ps-height-remaining ps-width-remaining width ebnf-production-horizontal-space 8 form-feed 4 ebnf-new-page] 3]) (defalias 'ebnf-newline #[(height) " V\203 \305 \210\n \f\\Z\211\207" [height ps-height-remaining ps-print-width ps-width-remaining ebnf-production-vertical-space ebnf-new-page] 3]) (defalias 'ebnf-generate-production #[(production) "\306\307\310\311 T\211\312_\n\245!#\210)\313\314!\210\315 \203! \f\316H\202\" \317!\210\320\321\322\f\323H \2032 \2023 \324\f\325H\326H\\\"\327#\210\f\325H\330H\f\325H!\210\320\331!\207" [messag ebnf-nprod ebnf-total ebnf-production-name-p production 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"] 7]) (defalias 'ebnf-generate-alternative #[(alternative) "\306H\307H\310\311\211 \211 \2032 \312\313\f @\307HZ!\314\"\210\315\f @\316H# T A\211\204 \312\317\320 \"\313\321H!\322#\210\306H\211\203Y @\310H @!\210 @\316H @\307HZ A\211\203\201 @\307H\323\324\n #[!\210 @\310H @!\210 @\316H Z\202Y -\312\325!\207" [alternative alt-entry alt-height nlist entry alt 6 3 0 nil ps-output ebnf-format-float " " - 4 format "%d " 5 " AT\n" ebnf-vertical-movement + "EOS\n" ebnf-vertical-space] 6]) (defalias 'ebnf-generate-sequence #[(sequence) "\303\304!\210\305H\306\211\203 \n@\307H\n@!\210\n@\310H\nA\211\2036 \311 !\210\n@\307H\n@!\210\n@\310H\202 *\303\312!\207" [sequence seq-width seq ps-output "BOS\n" 6 nil 0 5 ebnf-horizontal-movement "EOS\n"] 3]) (defalias 'ebnf-generate-terminal #[(terminal) "\301\302\"\207" [terminal ebnf-gen-terminal "T"] 3]) (defalias 'ebnf-generate-non-terminal #[(non-terminal) "\301\302\"\207" [non-terminal ebnf-gen-terminal "NT"] 3]) (defalias 'ebnf-generate-empty #[(empty) "\301\302H!\207" [empty ebnf-empty-alternative 5] 3]) (defalias 'ebnf-generate-optional #[(optional) "\303H\304\305 \306H\307HZ\n\\\310H\"\311\"\210 \312H !\210\304\313!)\207" [optional the-optional ebnf-vertical-space 6 ps-output ebnf-format-float 4 3 5 " OP\n" 0 "EOS\n"] 5]) (defalias 'ebnf-generate-one-or-more #[(one-or-more) "\306H\307H\310H\n\203 \n\310H\202 \311Z\312\313 \"\314\"\210\315H\311H\315H!\210\316 !\210\n\203> \317 \n\311H\n!\210)\202G \320\321 #!\210+\312\322!\207" [one-or-more width sep entry ebnf-direction ebnf-horizontal-space 5 7 3 0 ps-output ebnf-format-float " OM\n" 6 ebnf-vertical-movement "L" ebnf-empty-alternative - "EOS\n" ebnf-basic-width-extra] 5]) (defalias 'ebnf-generate-zero-or-more #[(zero-or-more) "\306H\307H\211\310H\311H \312 \f\203! \f\313H\f\310HZ\202# # \314\315\n\313H Z \\ #\316\"\210\307H\317H\307H!\210\320!\210\311H\203\\ \321 \311H\317H\311H!\210)\202f \322\323 #!\210-\314\324!\207" [zero-or-more width node-list list-entry node-sep ebnf-vertical-space 5 6 3 7 + 4 ps-output ebnf-format-float " ZM\n" 0 ebnf-vertical-movement "L" ebnf-empty-alternative - "EOS\n" ebnf-basic-empty-height entry ebnf-direction ebnf-horizontal-space ebnf-basic-width-extra] 7]) (defalias 'ebnf-generate-special #[(special) "\301\302\"\207" [special ebnf-gen-terminal "SP"] 3]) (defalias 'ebnf-generate-repeat #[(repeat) "\306H\307H\310\n!\210\311\312\313\314H\315H\316H \203+ \317 \316H \211\211\nG\f_%\202, \320$\312 \321%\210 \203< \322H !\210*\311\323!\207" [repeat element times 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"] 13]) (defalias 'ebnf-generate-except #[(except) "\306H\307H \310H\311\312 \313H\314H\310H\315 \f\211\211 \n\203* \n\310H\f\\\202+ \316&%\317\320$\210\306H\321H\306H!\210\n\203Q \322\315 \f \f$!\210\n\321H\n!\210+\311\323!\207" [except element exception width ebnf-space-E ebnf-font-width-E 6 7 5 ps-output ebnf-format-float 3 4 + 0.0 " " "EX\n" 0 ebnf-horizontal-movement "EOS\n" ebnf-direction] 14]) (defalias 'ebnf-gen-terminal #[(node code) "\303\304H!\210\305\306\307\310H!\306 \n\311H\203 \312\202 \313&\207" [node ebnf-direction code ps-output-string 6 ps-output " " ebnf-format-float 5 7 "D\n" "\n"] 8]) #@200 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. (defalias 'ebnf-directory #[(fun &optional directory) "\306\206 \307\n#\211\205( \310 @!q\210\f \210\307\311 \210\312p!\210 A\211\204 \313)\207" [directory default-directory ebnf-file-suffix-regexp files fun buffer-backed-up directory-files t find-file-noselect save-buffer kill-buffer nil] 5 (#$ . 92122)]) #@156 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. (defalias 'ebnf-file #[(fun file &optional do-not-kill-buffer-when-done) "\303!q\210 \210\n\206 \304p!\207" [file fun do-not-kill-buffer-when-done find-file-noselect kill-buffer] 2 (#$ . 92643)]) (defalias 'ebnf-range-regexp #[(prefix from to) "\304 \nX\203 \305 !P T\211\202 P)\207" [str from to prefix nil char-to-string] 4]) (byte-code "\302B\303\302!\204 \304\302\305\306\307\"\310\311\312\"\210 )\"\210\302\207" [current-load-list map ebnf-map-name default-boundp set-default make-vector 256 95 mapc #[(char) " \211I\207" [map char] 3] "#$%&+-.0123456789=?@~ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"] 5) (defalias 'ebnf-eps-filename #[(str) "G\306\307 \310\"\n W\203 \n\f\nHHI\210\nT\211\202 \311Q+\207" [str len stri new ebnf-map-name ebnf-eps-prefix 0 make-string 32 ".eps"] 6]) (defalias 'ebnf-eps-output #[(&rest args) "\205 @c\210A\211\204 \301\207" [args nil] 2]) (defalias 'ebnf-generate-region #[(from to gen-func) "\306\307!\210 ]\310\311 \212\214\312 \313\216\314\315\316\217\210, \2032 \nb\210\203+ \317 !\202> \320\321 \"\202> \203; \311\202> \320\322!+\207" [from to the-point error-msg ebnf-limit save-match-data-internal run-hooks ebnf-hook "SYNTAX" nil match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) data (byte-code "\305 ^! \203\" \306\307\n!\310\311\n!\312\313\n!\314 \n!\210\315)\315\207" [from to tree gen-func error-msg ebnf-parse-and-sort "EMPTY RULES" ebnf-eliminate-empty-rules "OPTMIZE" ebnf-optimize "DIMENSIONS" ebnf-dimensions "GENERATION" nil] 3) (((quit error) (byte-code "\303 \210`Se] \304\305\n!\306 \307\230\205 \310\311\"\310\312\313 \"\260\303\207" [the-point error-msg data ding ": " error-message-string ", " "SYNTAX" format "at position %d " "in buffer \"%s\"." buffer-name] 8))) error message "%s" "EBNF syntactic analysis: NO ERRORS." ebnf-stop-on-error gen-func] 3]) (defalias 'ebnf-parse-and-sort #[(start) "\304\305\"\210\306 \210 ! \203% \307\310!\210\311\n \312=\203 \313\202! \314\"\202' \n\237)\207" [start ebnf-parser-func tree ebnf-sort-production ebnf-log "(ebnf-parse-and-sort %S)" ebnf-begin-job message "Sorting..." sort ascending ebnf-sorter-ascending ebnf-sorter-descending] 4]) (defalias 'ebnf-sorter-ascending #[(first second) "\302H \302H\231\207" [first second 6] 3]) (defalias 'ebnf-sorter-descending #[(first second) "\302H \302H\231\207" [second first 6] 3]) (defalias 'ebnf-empty-alternative #[(width) "\301\302!\303\"\207" [width ps-output ebnf-format-float " EA\n"] 3]) (defalias 'ebnf-vertical-movement #[(height) "\301\302!\303\"\207" [height ps-output ebnf-format-float " vm\n"] 3]) (defalias 'ebnf-horizontal-movement #[(width) "\301\302!\303\"\207" [width ps-output ebnf-format-float " hm\n"] 3]) (defalias 'ebnf-entry #[(height) " _\207" [height ebnf-entry-percentage] 2]) (defalias 'ebnf-eop-vertical #[(height) "\302\303 \\!\304\"\207" [height ebnf-production-vertical-space ps-output ebnf-format-float " EOPV\n\n"] 4]) (defalias 'ebnf-eop-horizontal #[(width) "\302\303 \\!\304\"\207" [width ebnf-production-horizontal-space ps-output ebnf-format-float " EOPH\n\n"] 4]) (defalias 'ebnf-new-page #[nil " 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]) (defalias 'ebnf-font-size #[(font) "@\207" [font] 1]) (put 'ebnf-font-size 'byte-optimizer 'byte-compile-inline-expand) (defalias 'ebnf-font-name #[(font) "A@\207" [font] 1]) (put 'ebnf-font-name 'byte-optimizer 'byte-compile-inline-expand) (defalias 'ebnf-font-foreground #[(font) "\3018\207" [font 2] 2]) (put 'ebnf-font-foreground 'byte-optimizer 'byte-compile-inline-expand) (defalias 'ebnf-font-background #[(font) "\3018\207" [font 3] 2]) (put 'ebnf-font-background 'byte-optimizer 'byte-compile-inline-expand) (defalias 'ebnf-font-list #[(font) "\301\233\207" [font 4] 2]) (put 'ebnf-font-list 'byte-optimizer 'byte-compile-inline-expand) (defalias 'ebnf-font-attributes #[(font) "\301\302A!\303\"\207" [font lsh ps-extension-bit -2] 3]) (byte-code "\301\302\303\304#\210\305B\306\307\310\311\312\313$!\207" [current-load-list put ebnf-font-attributes byte-optimizer byte-compile-inline-expand ebnf-font-name-select (lambda (#1=#:defconst-tmp-var) (defconst ebnf-font-name-select #1#)) vector normal bold italic bold-italic] 6) (defalias 'ebnf-font-name-select #[(font) "\306\233)\307 >\203 \310\202 \311\312 >\203 \313\202 \311\\\211A@)\314 \f\"A \314\315 \"A\2068 \316\317 \" \314\nH\"A\206J \316\320 \"-\207" [font font-list font-index name ps-font-info-database database 4 bold 1 0 italic 2 assoc fonts error "Invalid font: %s" "Invalid attributes for font %s" info-list ebnf-font-name-select] 4]) (defalias 'ebnf-font-select #[(font select) "\211A@)\306 \n\"A\306\304 \"A \306 \"A \f\2030 \2030 \211@) _\f\245\2024 \307\310 \",\207" [font name ps-font-info-database database size select assoc error "Invalid font: %s" base] 4]) (defalias 'ebnf-font-width #[(font) "\301\302\"\207" [font ebnf-font-select avg-char-width] 3]) (put 'ebnf-font-width 'byte-optimizer 'byte-compile-inline-expand) (defalias 'ebnf-font-height #[(font) "\301\302\"\207" [font ebnf-font-select line-height] 3]) (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)) (#$ . 98223)) (defalias 'ebnf-begin-job #[nil "\306\307\211\211#\210\203 \310\311\202 \312\211\313 \210\314 \f\"\206# \314\315\f\"\211 A@0\316 8 \210)1\203= 1;\204= \30712\203H 2;\204K \31723\320]\321^34\203\\ \322\202] \3235\307\21167\307\21189\307\211:;\307\211<=\307>\324?\325@A B\326B\327\")CD B\326B\327\")EF B\326B\327\")GH B\326B\327\")IJ B\326B\327\")KL B\326B\327\")MA B\326B\330\")ND B\326B\330\")OF B\326B\330\")PH B\326B\330\")QJ B\326B\330\")RL B\326B\330\")SE\331_TG\332_UI\333_VK\334_WM\335_XEG\\\211 Y\336_ZY\211\\[Z\337_\\Z]Z^\340Z_\341#`a\247\203da\342V\204hYab\247\203ub\343V\204yYb)\344\345!\210\344\346_\"\210\344\347c\"\210\344\350`\"\210\344\351Z\"\210\344\352[\"\210\344\353\\\"\210\344\354]\"\210\344\355^\"\210\344\356a\"\210\344\357b\"\207" [ebnf-use-float-format ebnf-format-float ebnf-message-float ebnf-syntax ebnf-syntax-alist init 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-parser-func 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 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 basic 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] 5]) (defalias 'ebnf-shape-value #[(sym alist) " \236A\206 \302\207" [sym alist 0] 2]) (put 'ebnf-shape-value 'byte-optimizer 'byte-compile-inline-expand) (defalias 'ebnf-boolean #[(value) "\203 \301\207\302\207" [value "true" "false"] 1]) (put 'ebnf-boolean 'byte-optimizer 'byte-compile-inline-expand) (defalias 'ebnf-begin-file #[nil "\302 \210\212q\210eb\210\303\304\305\306#\2055 \303\307\212\305\210`)\306#?\2055 \305\210\310 \261\210db\210\311\312!\210\313 \210\314\315!)\207" [ps-spool-buffer ebnf-version ps-flush-output search-forward "%%Creator: " nil t "& ebnf2ps v" " & ebnf2ps v" search-backward "\n%%EndProlog\n" ebnf-insert-ebnf-prologue ps-output "\n"] 4]) (defalias 'ebnf-eps-finish-and-write #[(buffer filename) "\306!\205\226 \212q\210\307 !\210\n ]\310\f!\203 \202\" \311\f) #eb\210\312\313\314\315\nT\fT#\316 \317\320\321!\322\323 \324*\325\326+\206` \327\330\331\332\333,-./0123\257\"!\334#\211+\3354\261\210\336 \2105\337\340\f6\341_Z!\342\261\210db\2107c\210\343\344!\210\345 !\346 8\347ed #\210)\343\350 \")\207" [buffer filename ebnf-eps-upper-x ebnf-eps-max-width ebnf-eps-upper-y ebnf-eps-max-height buffer-modified-p ebnf-eps-header-footer-set zerop + "%!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-production-vertical-space ebnf-version 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] 26]) (defalias 'ebnf-insert-ebnf-prologue #[nil "\206\244\306\307\310 \206\f \311\"\307\312\n\206 \311\"\307\313\314 !\211 \203# \315\202$ \316)\"\307\317\320 \211 @@)!\321 !#\322\323 @\324@8)\325#\322\326 @\327@8)\330#\307\331 @\332\333@A!\334\")\"\307\335\314A!\211 \203j \315\202k \316)\"\307\336\320B\211 @@)!\321B!#\322\337B @\324@8)\325#\322\340B @\327@8)\330#\307\341B @\332\333@A!\334\")\"\307\342\320C\211 @@)!\321C!#\322\343C @\324@8)\325#\322\344C @\327@8)\330#\307\345C @\332\333@A!\334\")\"\307\346\320D\211 @@)!\321D!#\322\347D @\324@8)\325#\322\350D @\327@8)\330#\307\351D @\332\333@A!\334\")\"\307\352\320E!\"\322\353F\325#\307\354GH I\211 JI\236A\206;\355*\"\307\356K\211 \203J\315\202K\316)\"\307\357\320L\211 @@)!\321L!#\322\360L @\324@8)\325#\322\361L @\327@8)\330#\307\362L @\332\333@A!\334\")\"\307\363\320M!\"\322\364N\325#\307\365OH I\211 JI\236A\206\247\355*\"\307\366P\211 \203\266\315\202\267\316)\"\307\367\320Q\211 @@)!\321Q!#\322\370Q @\324@8)\325#\322\371Q @\327@8)\372#\307\373Q @\332\333@A!\334\")\"\307\374\320R!\"\322\375S\325#\307\376TH I\211 JI\236A\206\355*\"\307\377U\211 \203\"\315\202#\316)\"\307\201m \320V\211 @@)!\321V!#\322\201n V @\324@8)\325#\322\201o V @\327@8)\201p #\307\201q V @\332\333@A!\334\")\"\307\201r \320W!\"\322\201s X\325#\307\201t YH I\211 JI\236A\206\217\355*\"\307\201u Z\211 \203\240\315\202\241\316)\"\307\201v \320[\211 @@)!\321[!#\322\201w [ @\324@8)\325#\322\201x [ @\327@8)\201y #\307\201z [ @\332\333@A!\334\")\"\307\201{ \320\\!\"\322\201| ]\325#\307\201} ^H I\211 JI\236A\206 \355*\"\307\201~ _\211 \203 \315\202 \316)\"\307\201 \320`!\"\307\201\200 \320a!\"\307\201\201 \320b!\"\307\201\202 \320c!\"\322\201\203 d\325#\307\201\204 ef I\211 JI\236A\206b\355*\"\307\201\205 gH I\211 JI\236A\206y\355*\"\307\201\206 \201\207 h!\211 i;\203\221i\202\224\201\210 )\"\201\211 j\205\240k\260C\211l\261\207" [ebnf-settings ebnf-eps-header-comment ebnf-eps-footer-comment ebnf-eps-header value ebnf-eps-header-font "\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" lsh 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" font ebnf-eps-footer 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 alist sym 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 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]) (defalias 'ebnf-dimensions #[(tree) "\303\304!\210G\305\306\307\"\210*\207" [tree ebnf-nprod ebnf-total ebnf-log "(ebnf-dimensions tree)" 0 mapc ebnf-production-dimension] 3]) (defalias 'ebnf-production-dimension #[(production) "\306\307!\210\310\311\312\313 T\211\314_\n\245!#\210) \315H\316H \315H!\210 \315H \317 \203. \202/ \320\211\f\321H% \322 I\210 \321 I\210 \323\317\f\323H $I\210*\306\324 \325H\"\210\306\326 \322H\"\210\306\327 \321H\"\210\306\330 \323H\"\207" [messag ebnf-nprod ebnf-total production prod ebnf-production-name-p 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-font-height-P ebnf-line-width ebnf-basic-height height ebnf-horizontal-space ebnf-basic-width-extra] 7]) (defalias 'ebnf-terminal-dimension #[(terminal) "\304\305!\210\306 \n $\207" [terminal ebnf-font-height-T ebnf-font-width-T ebnf-space-T ebnf-log "(ebnf-terminal-dimension terminal)" ebnf-terminal-dimension1] 5]) (defalias 'ebnf-non-terminal-dimension #[(non-terminal) "\304\305!\210\306 \n $\207" [non-terminal ebnf-font-height-NT ebnf-font-width-NT ebnf-space-NT ebnf-log "(ebnf-non-terminal-dimension non-terminal)" ebnf-terminal-dimension1] 5]) (defalias 'ebnf-special-dimension #[(special) "\304\305!\210\306 \n $\207" [special ebnf-font-height-S ebnf-font-width-S ebnf-space-S ebnf-log "(ebnf-special-dimension special)" ebnf-terminal-dimension1] 5]) (defalias 'ebnf-terminal-dimension1 #[(node font-height font-width space) "\306 #\n\307HG \n\310\f\311_I\210\n\312\fI\210\n\313\306 _ &I\210*\314\315\n\307H\"\210\314\316\n\310H\"\210\314\317\n\312H\"\210\314\320\n\313H\"\207" [space font-height node len height ebnf-basic-width + 6 3 0.5 4 5 ebnf-log " name : %S" " entry : %7.3f" " height : %7.3f" " width : %7.3f" ebnf-arrow-extra-width font-width] 9]) (byte-code "\301B\302\303\304\211\211\305\306\307&!\207" [current-load-list ebnf-null-vector (lambda (#1=#:defconst-tmp-var) (defconst ebnf-null-vector #1#)) vector t 0.0 0.0 0.0] 8) (defalias 'ebnf-repeat-dimension #[(repeat) "\306\307!\210\310H\311H \203 \312H !\210\202 \313 \313H\f\\I\210\314\315 \314H ]\f\211#I\210\316\315 \316H\f\211\211\nG_&I\210*\306\317\313H\"\210\306\320\314H\"\210\306\321\316H\"\207" [repeat element times ebnf-null-vector ebnf-space-R ebnf-font-height-S ebnf-log "(ebnf-repeat-dimension repeat)" 6 7 2 3 4 + 5 " repeat entry : %7.3f" " repeat height : %7.3f" " repeat width : %7.3f" ebnf-arrow-extra-width ebnf-horizontal-space ebnf-font-width-R] 11]) (defalias 'ebnf-except-dimension #[(except) "\306\307!\210\310H\311H\211\312H\n!\210 \203 \312H !\210\202! \313\n\313H \313H]\f\\I\210\314\315\n\314H \314H]\f\211#I\210\316\315\n\316H \316H \f\211\211\211& I\210*\306\317\313H\"\210\306\320\314H\"\210\306\321\316H\"\207" [except element factor ebnf-null-vector ebnf-space-E ebnf-arrow-extra-width ebnf-log "(ebnf-except-dimension except)" 6 7 2 3 4 + 5 " except entry : %7.3f" " except height : %7.3f" " except width : %7.3f" ebnf-font-width-E ebnf-horizontal-space] 13]) (defalias 'ebnf-alternative-dimension #[(alternative) "\306\307!\210\310H\310H \203 @\311H @!\210 A\211\204 \312\313\n\314\n!@\n@\315H\316 \203U @A \317H\\ \320H]\2024 \321\n\"\210\nGS_\\\315\f\322\323\f \317H \315HZ#!\\I\210\317I\210\320\324 #I\210\310\nI\210.\306\325\315H\"\210\306\326\317H\"\210\306\327\320H\"\207" [alternative lis body node entry tail 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" alt width height ebnf-vertical-space ebnf-horizontal-space ebnf-basic-width-extra] 11]) (defalias 'ebnf-optional-dimension #[(optional) "\304\305!\210\306H\211\307H !\210\310 \310HI\210\311 \311H\n\\I\210\312 \312H \\I\210)\304\313\310H\"\210\304\314\311H\"\210\304\315\312H\"\207" [optional body 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"] 5]) (defalias 'ebnf-one-or-more-dimension #[(or-more) "\306\307!\210\310H\311H\211\312H\n!\210 \203 \312H !\210\313 \203' \314H\202( \f\n\314H# \2037 \315H\2028 \316\n\315H] \203M \317\n \"\210\317 \"\210\320\n\314HZ\n\320H\\I\210\314I\210\315\313 #I\210,\306\321\320H\"\210\306\322\314H\"\210\306\323\315H\"\207" [or-more sep-part list-part ebnf-basic-empty-height ebnf-vertical-space width 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" height ebnf-horizontal-space ebnf-basic-width-extra] 7]) (defalias 'ebnf-zero-or-more-dimension #[(or-more) "\306\307!\210\310H\311H\211\312H\n!\210 \203 \312H !\210\313 \203' \314H\202( \f\n\314H\f$ \2038 \315H\2029 \316\n\315H] \203N \317\n \"\210\317 \"\210\320I\210\314I\210\315\313 #I\210,\306\321\320H\"\210\306\322\314H\"\210\306\323\315H\"\207" [or-more sep-part list-part ebnf-basic-empty-height ebnf-vertical-space width 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" height ebnf-horizontal-space ebnf-basic-width-extra] 7]) (defalias 'ebnf-sequence-dimension #[(sequence) "\306\307!\210\310\311\312\313H\314\211 \203> @ A \315H !\210 \316H\n] \317H\nZ]\f \320H\\\202 \316I\210\317 \\I\210\320\fI\210.\306\321\316H\"\210\306\322\317H\"\210\306\323\320H\"\207" [sequence node entry lis width below 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" above] 6]) (defalias 'ebnf-adjust-width #[(node width) "<\203 \211\203P \303@ \"\240\210A\211\202 \304!\203O \305HU\203) \207\n\306=\2035 \307 \310#\207\n\311=\203A \307 \312#\207\313H \"\210\305 I\210\207\207" [node width ebnf-justify-sequence ebnf-adjust-width vectorp 5 left ebnf-adjust-empty nil right t 1] 6]) (defalias 'ebnf-adjust-empty #[(node width last-p) "\304H\305=\203 \306 I\210\207\307 \306HZ!\310 \203# \nD\202& \nD\")\207" [node width empty last-p 0 ebnf-generate-empty 5 ebnf-make-empty ebnf-make-dup-sequence] 4]) (defalias 'ebnf-alternative-width #[(alternative width) "\303\304H \nZ\"\207" [alternative width ebnf-horizontal-space ebnf-adjust-width 6] 4]) (defalias 'ebnf-element-width #[(or-more width) " Z\n\303\304\n\211\303H#I\210\n\305\304\n\211\305H#I\207" [width ebnf-horizontal-space or-more 6 ebnf-justify-list 7] 6]) (defalias 'ebnf-sequence-width #[(sequence width) "\302\303\211\302H #I\207" [sequence width 6 ebnf-justify-list] 6]) (defalias 'ebnf-justify-list #[(node seq width) "\306H\n U\203 \202^ \f\307=\203 \310 \n\311%\202^ \f\312=\203. \310 \n\313%\202^ \314 !\203; \315 \n\"\202^ \n Z G\245 \203\\ \315 @ @\306H\\\"\210 A\211\204I *)\207" [node seq-width width seq ebnf-justify-sequence lis 5 left ebnf-justify t right nil vectorp ebnf-adjust-width the-width] 7]) (defalias 'ebnf-justify #[(node seq seq-width width last-p) "\203\n \305 !\202 @\211\306H\307=\203$ \n\310 \fZ\n\310H\\I\210 \202: \2033 \311 \fZ!C\244\202: \311 \fZ! B)\207" [last-p seq term width seq-width last 0 ebnf-generate-empty 5 ebnf-make-empty] 6]) (defalias 'ebnf-eps-add-context #[(name) "\303!\211\n\235\203 \304\305 \"\210\202 \nB\306 !)\207" [name filename ebnf-eps-context ebnf-eps-filename error "Try to open an already opened EPS file: %s" ebnf-eps-header-footer-file] 4]) (defalias 'ebnf-eps-remove-context #[(name) "\303!\211\n\235\203 \304 \n\"\211\202 \305\306 \")\207" [name filename ebnf-eps-context ebnf-eps-filename delete error "Try to close a not opened EPS file: %s"] 4]) (defalias 'ebnf-eps-add-production #[(header) "\205- \203( \305\n \"\211 \203 \f\306\307 \fA\"!\241\202& \n\306 !B B\211)\207\310\311\n!!\207" [ebnf-eps-executing ebnf-eps-context header ebnf-eps-production-list prod assoc ebnf-dup-list append ebnf-eps-header-footer-file ebnf-eps-filename] 6]) (defalias 'ebnf-dup-list #[(old) "\302 \203 @B A\211\204 \237)\207" [new old nil] 3]) (defalias 'ebnf-buffer-substring #[(chars) "\302` w\210`\"\207" [chars ebnf-limit buffer-substring-no-properties] 4]) (byte-code "\301B\302\303\304\305\306#!\207" [current-load-list ebnf-8-bit-chars (lambda (#1=#:defconst-tmp-var) (defconst ebnf-8-bit-chars #1#)) ebnf-range-regexp "" 160 255] 5) (defalias 'ebnf-string #[(chars eos-char kind) "\305u\210\306` P\nw\210m\204 g U\204 \307\310\f #\202\" \305u\210`S\"\207" [chars ebnf-8-bit-chars ebnf-limit eos-char kind nil buffer-substring-no-properties error "Invalid %s: missing `%c'"] 6]) (defalias 'ebnf-get-string #[nil "\300u\210\301`\302 \"\207" [nil buffer-substring-no-properties ebnf-end-of-string] 3]) (defalias 'ebnf-end-of-string #[nil "\302\303\302\"\304V\203 \305 w\210\306\307x[\310`\302#b\210\202 )h\311U\203( `S\207\312\313!\207" [n ebnf-limit 1 logand 0 "^\"" "\\\\" nil + 34 error "Missing `\"'"] 4]) (defalias 'ebnf-trim-right #[(str) "GS\211\211\303V\203 \nH\304U\203 \nS\211\202 \n U\203% \202* \303\nTO*\207" [str len index 0 32] 4]) (defalias 'ebnf-make-empty #[(&optional width) "\302\303\304\211\305\306\206 &\207" [width ebnf-horizontal-space vector ebnf-generate-empty ignore 0.0 0.0] 7]) (defalias 'ebnf-make-terminal #[(name) "\301\302\303#\207" [name ebnf-make-terminal1 ebnf-generate-terminal ebnf-terminal-dimension] 4]) (defalias 'ebnf-make-non-terminal #[(name) "\301\302\303#\207" [name ebnf-make-terminal1 ebnf-generate-non-terminal ebnf-non-terminal-dimension] 4]) (defalias 'ebnf-make-special #[(name) "\301\302\303#\207" [name ebnf-make-terminal1 ebnf-generate-special ebnf-special-dimension] 4]) (defalias 'ebnf-make-terminal1 #[(name gen-func dim-func) "\305\306 \307\310\311\nG\211\312V\203 \n\202; \312U\203 \n\313P\202; \314U\203- \313\n\313Q\202; \315U\203: \313\n\316Q\202; \317)\f&\207" [gen-func dim-func name len ebnf-default-p vector ignore 0.0 0.0 0.0 3 " " 2 1 " " " "] 11]) (defalias 'ebnf-make-one-or-more #[(list-part &optional sep-part) "\302\303\304 $\207" [list-part sep-part ebnf-make-or-more1 ebnf-generate-one-or-more ebnf-one-or-more-dimension] 5]) (defalias 'ebnf-make-zero-or-more #[(list-part &optional sep-part) "\302\303\304 $\207" [list-part sep-part ebnf-make-or-more1 ebnf-generate-zero-or-more ebnf-zero-or-more-dimension] 5]) (defalias 'ebnf-make-or-more1 #[(gen-func dim-func list-part sep-part) "\304\305 \306\307\310\n<\203 \311\n!\202 \n \203\" <\203\" \311 !\202# &\207" [gen-func dim-func list-part sep-part vector ebnf-element-width 0.0 0.0 0.0 ebnf-make-sequence] 10]) (defalias 'ebnf-make-production #[(name prod action) "\303\304\305\306\307\310\311 \n& \207" [name prod action vector ebnf-generate-production ignore ebnf-production-dimension 0.0 0.0 0.0] 10]) (defalias 'ebnf-make-alternative #[(body) "\301\302\303\304\305\306\307&\207" [body vector ebnf-generate-alternative ebnf-alternative-width ebnf-alternative-dimension 0.0 0.0 0.0] 8]) (defalias 'ebnf-make-optional #[(body) "\301\302\303\304\305\306\307&\207" [body vector ebnf-generate-optional ebnf-alternative-width ebnf-optional-dimension 0.0 0.0 0.0] 8]) (defalias 'ebnf-make-except #[(factor exception) "\302\303\304\305\306\307\310 &\207" [factor exception vector ebnf-generate-except ignore ebnf-except-dimension 0.0 0.0 0.0] 9]) (defalias 'ebnf-make-repeat #[(times primary &optional upper) "\303\304\305\306\307\310\311\203* \203* \230\203# \312\230\203 \313\202? \202? \313 Q\202? \2034 \314P\202? \203> \315 P\202? \313\n&\207" [times upper primary vector ebnf-generate-repeat ignore ebnf-repeat-dimension 0.0 0.0 0.0 "" " * " " *" "* "] 10]) (defalias 'ebnf-make-sequence #[(seq) "\301\302\303\304\305\306\307&\207" [seq vector ebnf-generate-sequence ebnf-sequence-width ebnf-sequence-dimension 0.0 0.0 0.0] 8]) (defalias 'ebnf-make-dup-sequence #[(node seq) "\302\303\304\305\306H\307H\310H &\207" [node seq vector ebnf-generate-sequence ebnf-sequence-width ebnf-sequence-dimension 3 4 5] 8]) (defalias 'ebnf-token-except #[(element exception) "@A \205\211 \305H\204 \n\306=\203 \307H\202\210 \2045 \n\310=\2035 \305\311I\210 \312\313I\210 \202\210 \204\204 \n\314=\203\204 \315 \307H!@\305H\316=\203\204 \307H\317\211 A\203` \f\fA\211\202S \204m \320 \321H!\202 \317\241\210 \307H\211G\322U\203 \f@ *\202\210 \323 \")B\207" [exception element kind bef elt 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] 5]) (defalias 'ebnf-token-repeat #[(times repeat &optional upper) "A\204 \207@\303 A\n#B\207" [repeat times upper ebnf-make-repeat] 5]) (defalias 'ebnf-token-optional #[(body) "\302H\211\303=\203 \304\202? \305=\203 \202? \306=\203' \302\305I\210\202? \307=\203< \310\310H\311 C\244I\210\202? \312!)\207" [body kind 0 ebnf-generate-empty nil ebnf-generate-zero-or-more ebnf-generate-one-or-more ebnf-generate-alternative 6 ebnf-make-empty ebnf-make-optional] 5]) (defalias 'ebnf-token-alternative #[(body sequence) "\204 A\203 \207 @\303 B\207 @ AG\304U\203& \n\204& @\2024 \305\n\2031 \nB\2022 \237!)B\207" [body sequence seq ebnf-make-empty 1 ebnf-make-alternative] 4]) (defalias 'ebnf-token-sequence #[(sequence) "\204 \301 \207G\302U\203 @\207\303\237!\207" [sequence ebnf-make-empty 1 ebnf-make-sequence] 2]) #@59 Vector used to map characters to a special comment token. (defconst ebnf-comment-table (byte-code "\301\302\303\"\211\304\305I\210\306\307I\210\310\311I\210)\207" [table make-vector 256 nil 60 newline 62 keep-line 94 form-feed] 4) (#$ . 122473)) (defalias 'ebnf-log-header #[(format-str &rest args) "\205 \303\300\304 P\n#\207" [ebnf-log format-str args apply "\n\n===============================================================\n\n"] 4]) (defalias 'ebnf-log #[(format-str &rest args) "\205 \212\303\304!q\210db\210\305\306 \n#\307\261)\207" [ebnf-log format-str args get-buffer-create "*Ebnf2ps Log*" apply format "\n"] 4]) #@14 ABNF parser. (autoload 'ebnf-abn-parser "ebnf-abn" '(#$ . 123113)) #@30 Initialize ABNF token table. (autoload 'ebnf-abn-initialize "ebnf-abn" '(#$ . 123186)) #@14 EBNF parser. (autoload 'ebnf-bnf-parser "ebnf-bnf" '(#$ . 123279)) #@30 Initialize EBNF token table. (autoload 'ebnf-bnf-initialize "ebnf-bnf" '(#$ . 123352)) #@18 ISO EBNF parser. (autoload 'ebnf-iso-parser "ebnf-iso" '(#$ . 123445)) #@34 Initialize ISO EBNF token table. (autoload 'ebnf-iso-initialize "ebnf-iso" '(#$ . 123522)) #@20 Yacc/Bison parser. (autoload 'ebnf-yac-parser "ebnf-yac" '(#$ . 123619)) #@40 Initializations for Yacc/Bison parser. (autoload 'ebnf-yac-initialize "ebnf-yac" '(#$ . 123698)) #@15 EBNFX parser. (autoload 'ebnf-ebx-parser "ebnf-ebx" '(#$ . 123801)) #@35 Initializations for EBNFX parser. (autoload 'ebnf-ebx-initialize "ebnf-ebx" '(#$ . 123875)) #@13 DTD parser. (autoload 'ebnf-dtd-parser "ebnf-dtd" '(#$ . 123973)) #@33 Initializations for DTD parser. (autoload 'ebnf-dtd-initialize "ebnf-dtd" '(#$ . 124045)) (provide 'ebnf2ps)
Close
