Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
cedet /
semantic /
wisent /
Delete
Unzip
Name
Size
Permission
Date
Action
comp.elc
81.61
KB
-rw-r--r--
2023-06-07 04:13
grammar.elc
23.87
KB
-rw-r--r--
2023-06-07 04:13
java-tags.elc
3.99
KB
-rw-r--r--
2023-06-07 04:13
javascript.elc
6.21
KB
-rw-r--r--
2023-06-07 04:13
javat-wy.elc
87.1
KB
-rw-r--r--
2023-06-07 04:13
js-wy.elc
130.45
KB
-rw-r--r--
2023-06-07 04:13
python-wy.elc
144.64
KB
-rw-r--r--
2023-06-07 04:13
python.elc
27.61
KB
-rw-r--r--
2023-06-07 04:13
wisent.elc
13.89
KB
-rw-r--r--
2023-06-07 04:13
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:13:24 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/semantic/wisent/comp.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'semantic/wisent) #@36 Return the context name from NAME. (defalias 'wisent-context-name '(macro . #[(name) "\301\302\303DE\304\305\306ED\307\310EF\207" [name if and symbolp intern format "wisent-context-%s" error "Invalid context name: %S"] 6 (#$ . 592)])) #@39 Return the variables in context NAME. (defalias 'wisent-context-bindings '(macro . #[(name) "\301\302DD\207" [name symbol-value wisent-context-name] 3 (#$ . 837)])) #@54 Define a context NAME that will bind variables VARS. (defalias 'wisent-defcontext '(macro . #[(name &rest vars) "\203 9\203 \304\305\306\"!\202 \307\310\"\311\312\n\"\313\314 \315 \316\nDEC\"*B\207" [name context vars bindings intern format "wisent-context-%s" error "Invalid context name: %S" mapcar #[(v) "\301D\207" [v defvar] 2] eval-when-compile append defvar quote] 7 (#$ . 1009)])) (put 'wisent-defcontext 'lisp-indent-function 1) #@48 Bind variables in context NAME then eval BODY. (defalias 'wisent-with-context '(macro . #[(name &rest body) "\302\203 9\203 \303\304\305\"!\202 \306\307\"J BB\207" [name body let* intern format "wisent-context-%s" error "Invalid context name: %S"] 5 (#$ . 1463)])) (put 'wisent-with-context 'lisp-indent-function 1) #@406 Define a simple data structure called NAME. Which contains data stored in FIELDS. FIELDS is a list of symbols which are field names or pairs (FIELD INITIAL-VALUE) where INITIAL-VALUE is a constant used as the initial value of FIELD when the data structure is created. INITIAL-VALUE defaults to nil. This defines a `make-NAME' constructor, get-able `NAME-FIELD' and set-able `set-NAME-FIELD' accessors. (defalias 'wisent-struct '(macro . #[(name &rest fields) "G\306\307\211\211\211\211 W\203t @A\f:\2034 \f\211 A@) B\f@\2028 \307 B\310\311 \f#\312\310\313 \"!\314\n\315\316\317\320FF B\312\310\321 \"!\314\n\322\316\323\320\324BBBBF BT\211\202 \325\314\312\310\326 \"!\307\327\330\331 \237DEF .BB\207" [fields ivals fun sufx field accors 0 nil format "%s-%s" intern "%s" defmacro (s) list 'aref s "set-%s" (s v) 'aset (v) progn "make-%s" cons 'vector quote i size x name] 9 (#$ . 1793)])) (put 'wisent-struct 'lisp-indent-function 1) #@150 Fill string S with spaces. Return a new string of at least N characters. Insert spaces on right. If optional LEFT is non-nil insert spaces on left. (defalias 'wisent-pad-string #[(s n &optional left) "G\211\nW\203# \203 \304\n Z\305\"P\202$ \304\n Z\305\"P\202$ )\207" [s i n left make-string 32] 5 (#$ . 2775)]) (put 'wisent-pad-string 'byte-optimizer 'byte-compile-inline-expand) (defconst wisent-BITS-PER-WORD (byte-code "\302\303\304!\203 \305\202\f \306\307 !!\204 T\202 *\207" [do-shift i 1 boundp most-positive-fixnum #[(i) "\302 [\"\207" [most-positive-fixnum i lsh] 3] #[(i) "\301\302\"\207" [i lsh 1] 3] zerop] 3)) #@42 (N + BITS-PER-WORD - 1) / BITS-PER-WORD. (defalias 'wisent-WORDSIZE #[(n) " \\S \245\207" [n wisent-BITS-PER-WORD] 2 (#$ . 3425)]) (put 'wisent-WORDSIZE 'byte-optimizer 'byte-compile-inline-expand) #@49 X[I/BITS-PER-WORD] |= 1 << (I % BITS-PER-WORD). (defalias 'wisent-SETBIT #[(x i) " \245 \n\304 \nH\305\306 \246\"\"I)\207" [i wisent-BITS-PER-WORD k x logior lsh 1] 8 (#$ . 3630)]) (put 'wisent-SETBIT 'byte-optimizer 'byte-compile-inline-expand) #@52 X[I/BITS-PER-WORD] &= ~(1 << (I % BITS-PER-WORD)). (defalias 'wisent-RESETBIT #[(x i) " \245 \n\304 \nH\305\306\307 \246\"!\"I)\207" [i wisent-BITS-PER-WORD k x logand lognot lsh 1] 9 (#$ . 3885)]) (put 'wisent-RESETBIT 'byte-optimizer 'byte-compile-inline-expand) #@57 (X[I/BITS-PER-WORD] & (1 << (I % BITS-PER-WORD))) != 0. (defalias 'wisent-BITISSET #[(x i) "\303\304 \n\245H\305\306 \n\246\"\"!?\207" [x i wisent-BITS-PER-WORD zerop logand lsh 1] 7 (#$ . 4159)]) (put 'wisent-BITISSET 'byte-optimizer 'byte-compile-inline-expand) #@57 Return non-nil if running without interactive terminal. (defalias 'wisent-noninteractive #[nil "\207" [noninteractive] 1 (#$ . 4430)]) (put 'wisent-noninteractive 'byte-optimizer 'byte-compile-inline-expand) #@40 Non-nil means enable some debug stuff. (defvar wisent-debug-flag nil (#$ . 4645)) #@25 Name of the log buffer. (defconst wisent-log-buffer-name "*wisent-log*" (#$ . 4733)) #@38 Non-nil means to start a new report. (defvar wisent-new-log-flag nil (#$ . 4824)) #@67 *Non-nil means to report verbose information on generated parser. (defvar wisent-verbose-flag nil (#$ . -4912)) #@67 Toggle whether to report verbose information on generated parser. (defalias 'wisent-toggle-verbose-flag #[nil "?\301\302!\205 \303\304\203 \305\202 \306\"\207" [wisent-verbose-flag called-interactively-p interactive message "Verbose report %sabled" "en" "dis"] 3 (#$ . 5030) nil]) #@82 Return the log buffer. Its name is defined in constant `wisent-log-buffer-name'. (defalias 'wisent-log-buffer '(macro . #[nil "\300\207" [(get-buffer-create wisent-log-buffer-name)] 1 (#$ . 5323)])) #@47 Delete the entire contents of the log buffer. (defalias 'wisent-clear-log '(macro . #[nil "\300\207" [(with-current-buffer (wisent-log-buffer) (erase-buffer))] 1 (#$ . 5528)])) #@45 Return the current source file name or nil. (defalias 'wisent-source #[nil "\303\300!\203\n \206 \206 \304 \211\205 \305\n!)\207" [byte-compile-current-file load-file-name source boundp buffer-file-name file-relative-name] 3 (#$ . 5711)]) #@40 Start a new entry into the log buffer. (defalias 'wisent-new-log #[nil "\303\304\305\306 \206 \307 \310\311!#r\312\n!q\210db\210 c*\207" [wisent-new-log-flag text wisent-log-buffer-name nil format "\n\n*** Wisent %s - %s\n\n" wisent-source buffer-name format-time-string "%Y-%m-%d %R" get-buffer-create] 5 (#$ . 5962)]) #@162 Insert text into the log buffer. `format' is applied to ARGS and the result string is inserted into the log buffer returned by the function `wisent-log-buffer'. (defalias 'wisent-log #[(&rest args) "\203 \303 \210r\304 !q\210\305\306\n\"c)\207" [wisent-new-log-flag wisent-log-buffer-name args wisent-new-log get-buffer-create apply format] 3 (#$ . 6292)]) (put 'wisent-log 'byte-optimizer 'byte-compile-inline-expand) #@63 The log file. Used when running without interactive terminal. (defconst wisent-log-file "wisent.output" (#$ . 6719)) #@57 Append contents of logging buffer to `wisent-log-file'. (defalias 'wisent-append-to-log-file #[nil "\301!\205\n \302\303\304\217\207" [wisent-log-buffer-name get-buffer err (byte-code "r\302!q\210~\210deV\205 \303ed \304$)\207" [wisent-log-buffer-name wisent-log-file get-buffer-create write-region t] 5) ((error (byte-code "\301\302\303!\"\207" [err message "*** %s" error-message-string] 4)))] 3 (#$ . 6842)]) #@30 The size of the state table. (custom-declare-variable 'wisent-state-table-size 1009 '(#$ . 7264) :type 'integer :group 'wisent) #@87 Return non-nil if item number S defines a token (terminal). That is if S < `ntokens'. (defalias 'wisent-ISTOKEN '(macro . #[(s) "\301\302BB\207" [s < (ntokens)] 3 (#$ . 7398)])) #@83 Return non-nil if item number S defines a nonterminal. That is if S >= `ntokens'. (defalias 'wisent-ISVAR '(macro . #[(s) "\301\302BB\207" [s >= (ntokens)] 3 (#$ . 7583)])) #@41 Return printable form of item number S. (defalias 'wisent-tag #[(s) " H\304\n!\203 \n \236A\206 \305\306\n\"\202 \307\n!)\207" [tags s item wisent-escape-sequence-strings wisent-char-p format "'%c'" symbol-name] 3 (#$ . 7763)]) (put 'wisent-tag 'byte-optimizer 'byte-compile-inline-expand) #@79 Store OBJECT's PROPNAME property with value VALUE. Use `eq' to locate OBJECT. (defalias 'wisent-put #[(object propname value) " \236\211\204 C\211 B\n\305\nA \f#\241)\207" [object ptable entry propname value plist-put] 6 (#$ . 8064)]) (put 'wisent-put 'byte-optimizer 'byte-compile-inline-expand) #@76 Return the value of OBJECT's PROPNAME property. Use `eq' to locate OBJECT. (defalias 'wisent-get #[(object propname) "\303 \236A\n\"\207" [object ptable propname plist-get] 3 (#$ . 8373)]) (put 'wisent-get 'byte-optimizer 'byte-compile-inline-expand) #@37 Return the item number of symbol X. (defalias 'wisent-item-number #[(x) "\304\305\n \236A \"*\207" [x propname object ptable wisent--item-no plist-get] 3 (#$ . 8631)]) (put 'wisent-item-number 'byte-optimizer 'byte-compile-inline-expand) #@39 Set the item number of symbol X to N. (defalias 'wisent-set-item-number #[(x n) "\306 \211 \236\211 \204 \fC\211 B\307A \n#\241,\207" [x n value propname object ptable wisent--item-no plist-put entry] 6 (#$ . 8878)]) (put 'wisent-set-item-number 'byte-optimizer 'byte-compile-inline-expand) #@39 Return the associativity of symbol X. (defalias 'wisent-assoc #[(x) "\304\305\n \236A \"*\207" [x propname object ptable wisent--assoc plist-get] 3 (#$ . 9188)]) (put 'wisent-assoc 'byte-optimizer 'byte-compile-inline-expand) #@41 Set the associativity of symbol X to A. (defalias 'wisent-set-assoc #[(x a) "\306 \211 \236\211 \204 \fC\211 B\307A \n#\241,\207" [x a value propname object ptable wisent--assoc plist-put entry] 6 (#$ . 9423)]) (put 'wisent-set-assoc 'byte-optimizer 'byte-compile-inline-expand) #@42 Return the precedence level of symbol X. (defalias 'wisent-prec #[(x) "\304\305\n \236A \"*\207" [x propname object ptable wisent--prec plist-get] 3 (#$ . 9721)]) (put 'wisent-prec 'byte-optimizer 'byte-compile-inline-expand) #@44 Set the precedence level of symbol X to P. (defalias 'wisent-set-prec #[(x p) "\306 \211 \236\211 \204 \fC\211 B\307A \n#\241,\207" [x p value propname object ptable wisent--prec plist-put entry] 6 (#$ . 9956)]) (put 'wisent-set-prec 'byte-optimizer 'byte-compile-inline-expand) (defalias 'make-core '(macro . #[nil "\300\301B\207" [vector (nil nil 0 0 0 [0])] 2])) (defalias 'set-core-items '(macro . #[(s v) "\302\303 F\207" [s v aset 5] 4])) (defalias 'core-items '(macro . #[(s) "\301\302E\207" [s aref 5] 3])) (defalias 'set-core-nitems '(macro . #[(s v) "\302\303 F\207" [s v aset 4] 4])) (defalias 'core-nitems '(macro . #[(s) "\301\302E\207" [s aref 4] 3])) (defalias 'set-core-accessing-symbol '(macro . #[(s v) "\302\303 F\207" [s v aset 3] 4])) (defalias 'core-accessing-symbol '(macro . #[(s) "\301\302E\207" [s aref 3] 3])) (defalias 'set-core-number '(macro . #[(s v) "\302\303 F\207" [s v aset 2] 4])) (defalias 'core-number '(macro . #[(s) "\301\302E\207" [s aref 2] 3])) (defalias 'set-core-link '(macro . #[(s v) "\302\303 F\207" [s v aset 1] 4])) (defalias 'core-link '(macro . #[(s) "\301\302E\207" [s aref 1] 3])) (defalias 'set-core-next '(macro . #[(s v) "\302\303 F\207" [s v aset 0] 4])) (defalias 'core-next '(macro . #[(s) "\301\302E\207" [s aref 0] 3])) (defalias 'make-shifts '(macro . #[nil "\300\301B\207" [vector (nil 0 0 [0])] 2])) (defalias 'set-shifts-shifts '(macro . #[(s v) "\302\303 F\207" [s v aset 3] 4])) (defalias 'shifts-shifts '(macro . #[(s) "\301\302E\207" [s aref 3] 3])) (defalias 'set-shifts-nshifts '(macro . #[(s v) "\302\303 F\207" [s v aset 2] 4])) (defalias 'shifts-nshifts '(macro . #[(s) "\301\302E\207" [s aref 2] 3])) (defalias 'set-shifts-number '(macro . #[(s v) "\302\303 F\207" [s v aset 1] 4])) (defalias 'shifts-number '(macro . #[(s) "\301\302E\207" [s aref 1] 3])) (defalias 'set-shifts-next '(macro . #[(s v) "\302\303 F\207" [s v aset 0] 4])) (defalias 'shifts-next '(macro . #[(s) "\301\302E\207" [s aref 0] 3])) (defalias 'make-reductions '(macro . #[nil "\300\301B\207" [vector (nil 0 0 [0])] 2])) (defalias 'set-reductions-rules '(macro . #[(s v) "\302\303 F\207" [s v aset 3] 4])) (defalias 'reductions-rules '(macro . #[(s) "\301\302E\207" [s aref 3] 3])) (defalias 'set-reductions-nreds '(macro . #[(s v) "\302\303 F\207" [s v aset 2] 4])) (defalias 'reductions-nreds '(macro . #[(s) "\301\302E\207" [s aref 2] 3])) (defalias 'set-reductions-number '(macro . #[(s v) "\302\303 F\207" [s v aset 1] 4])) (defalias 'reductions-number '(macro . #[(s) "\301\302E\207" [s aref 1] 3])) (defalias 'set-reductions-next '(macro . #[(s v) "\302\303 F\207" [s v aset 0] 4])) (defalias 'reductions-next '(macro . #[(s) "\301\302E\207" [s aref 0] 3])) (defalias 'make-errs '(macro . #[nil "\300\301B\207" [vector (0 [0])] 2])) (defalias 'set-errs-errs '(macro . #[(s v) "\302\303 F\207" [s v aset 1] 4])) (defalias 'errs-errs '(macro . #[(s) "\301\302E\207" [s aref 1] 3])) (defalias 'set-errs-nerrs '(macro . #[(s v) "\302\303 F\207" [s v aset 0] 4])) (defalias 'errs-nerrs '(macro . #[(s) "\301\302E\207" [s aref 0] 3])) #@106 Visit L and R and return non-nil if their first N elements are `='. L and R must be vectors of integers. (defalias 'wisent-bits-equal #[(L R n) "S\305\n\203 \306 !\203 H\f HU S\202 \n*\207" [n i iseq L R t natnump] 3 (#$ . 13093)]) #@41 Return number of bits set in integer I. (defalias 'wisent-nbits #[(i) "\302\303 !\204 \304 \305 \211[\"\"T\202 )\207" [count i 0 zerop logxor logand] 5 (#$ . 13341)]) #@94 In vector S count the total of bits set in first N elements. S must be a vector of integers. (defalias 'wisent-bits-size #[(S n) "S\304\305 !\203 \n\306 H!\\ S\202 \n*\207" [n i count S 0 natnump wisent-nbits] 4 (#$ . 13521)]) #@53 Return non-nil if production I is in useful set N0. (defalias 'wisent-useful-production #[(i N0) "\306 \nH\307 \203A H\211\310V\203A \f Y\203; \f Z \311\312\n\245H\313\314\n\246\"\"!*? T\202 +\207" [useful rrhs i r n ritem t nil 0 zerop logand lsh 1 ntokens N0 x wisent-BITS-PER-WORD] 7 (#$ . 13762)]) #@39 Find out which nonterminals are used. (defalias 'wisent-useless-nonterminals #[nil "\306\211\211\211\211 \211\\S\245)\307 \310\"\204\313 S\311\n!\2036 \f\n\nHI\210\nS\202\" \312\211X\203\261 \n \313\314\n\245H\315\312\n\246\"\"!*\203\252 \316\n\"\203\252 \f\nHZ \n\245 \317H\315\312\n\246\"\"I+\210\n \n\245 \317H\315\312\n\246\"\"I+\210\nT\211\2029 \320\f #\203\300 \321\211\202 \f \202 \f\211-\207" [break n i Ns Np nvars nil make-vector 0 natnump 1 zerop logand lsh wisent-useful-production logior wisent-bits-equal t wisent-BITS-PER-WORD N nrules P x rlhs ntokens k] 9 (#$ . 14092)]) #@70 Find out which productions are reachable and which symbols are used. (defalias 'wisent-inaccessible-symbols #[nil "\306\211\211\211\211\211\211\211\211 \211\\S\245)T\211\\S\245)\307\n\310\"\307 \310\"Z \311\312 \245H\313\314 \246\"\"!*\204\236 \245 \315 H\313\314 \246\"\"I+\210\204\236\nS\316 !\203\232 HI\210 S\202\205 \314\211X\203 \311\312 \245H\313\314 \246\"\"!*\203x \311\312 \245H\313\314 \246\"\"!*\204x H \311\312 \245H\313\314 \246\"\"!*\204x H\316! H\211!\203W\fW\2040\fZ \311\312 \245H\313\314 \246\"\"!*\204Q\f \245 \315 H\313\314 \246\"\"I+\210 T\202\377 \245 \315 H\313\314 \246\"\"I+\210 T\211\202\235 \317 \n#\203\217\320\211\202 \202~ \211 \310 \245 \315 H\313\314 \246\"\"I+\210 \314 \245 \315 H\313\314 \246\"\"I+\210 \321 \"Z\"#$\211W\203' \311\312 \245H\313\314 \246\"\"!*\204 $S$ T\211\202\371\314\211X\205b% H\203[&% H \245 \315 H\313\314 \246\"\"I+\210 T\211\202*. \207" [break m n r tt i nil make-vector 0 zerop logand lsh 1 logior natnump wisent-bits-equal t wisent-bits-size Pp Vs Vp nsyms wisent-BITS-PER-WORD nrules N start-symbol ntokens x V k P rlhs rrhs ritem nuseless-productions nvars nuseless-nonterminals rprec V1] 10 (#$ . 14769)]) #@30 Disable useless productions. (defalias 'wisent-reduce-grammar-tables #[nil "\306V\2053 \307\211\nX\2052 \f \310\311 \f\245H\312\307 \f\246\"\"!*?I\210 T\211\202 )\207" [nuseless-productions pn nrules ruseful P i 0 1 zerop logand lsh x wisent-BITS-PER-WORD] 10 (#$ . 16232)]) #@30 Remove useless nonterminals. (defalias 'wisent-nonterminals-reduce #[nil "\306\211\211\211\211\211 \307 \310\"\211W\203M \311\312 \245H\313\314 \246\"\"!*\204F Z\fI\210\fT T\211\202 \211W\203\205 \311\312 \245H\313\314 \246\"\"!*\203~ Z\fI\210\fT T\211\202Q \307 \306\"\211W\203\256 ZH\fZ HI\210 T\211\202\217 \211W\203\312 ZHI\210 T\211\202\262 \314\211X\203\350 HZHI\210 T\211\202\315 \310 H\211\203 \nY\203 \nZHI\210 T\202\352 ZHZ Z\211 .\207" [tags-sorted nontermmap item r n i nil make-vector 0 zerop logand lsh 1 nvars ntokens nsyms V x wisent-BITS-PER-WORD tags nrules rlhs ritem start-symbol nuseless-nonterminals] 8 (#$ . 16526)]) #@56 Report number of useless nonterminals and productions. (defalias 'wisent-total-useless #[nil "\304 \211\203 \305P\202 \306\307\310\"\n\311V\203+ \307\312 \n\211\311V\203( \313\202) \306$\n\311V\203< \311V\203< \307\314 \" \311V\203S \307\315 \211\311V\203P \313\202Q \306$\316 !+\207" [src msg nuseless-nonterminals nuseless-productions wisent-source " in " "" format "Grammar%s contains" 0 "%s %d useless nonterminal%s" "s" "%s and" "%s %d useless rule%s" message] 7 (#$ . 17306)]) #@59 Find unreachable terminals, nonterminals and productions. (defalias 'wisent-reduce-grammar #[nil "\306\211\n\\S\n\245)\307\"\306\fT\211\n\\S\n\245)\307\"\306\211\n\\S\n\245)\307\"\306\211\n\\S\n\245)\307\"\307\211\310 \210\311 \210\\\307V\205\252 \312 \210 Z \313\314 \n\245H\315\316 \n\246\"\"!*\203\236 \317\320 ! H \"\321\"!\203\227 \"#\236A\206\233 \322\323\"\"\202\233 \324\"!*\"\210\325 \210\307V\205\252 \326 \207" [nvars n wisent-BITS-PER-WORD N nrules P make-vector 0 wisent-useless-nonterminals wisent-inaccessible-symbols wisent-total-useless zerop logand lsh 1 error "Start symbol `%s' does not derive any sentence" wisent-char-p format "'%c'" symbol-name wisent-reduce-grammar-tables wisent-nonterminals-reduce nsyms V V1 nuseless-nonterminals nuseless-productions start-symbol ntokens i x s tags item wisent-escape-sequence-strings] 8 (#$ . 17807)]) #@48 Output the detailed results of the reductions. (defalias 'wisent-print-useless #[nil "\306\211\211 \307V\203u \310C \203 \311 \210r\312\"!q\210\313\314\f\"c*\210\307\211 W\203u \315#\n\\ $%$H &\316&!\203R &'\236A\206V \314\317&\"\202V \320&!*D \203` \311 \210r\312\"!q\210\313\314\f\"c*\210\nT\211\202' \306\307\211(W\203 )\n *\321\322*\n+\245H\323\324\n+\246\"\"!*\203,\n *\321\322*\n+\245H\323\324\n+\246\"\"!*\203 \204\324 \325C \203\306 \311 \210r\312\"!q\210\313\314\f\"c*\210\326\315\n $%$H &\316&!\203\371 &'\236A\206\375 \314\317&\"\202\375 \320&!*D \203\311 \210r\312\"!q\210\313\314\f\"c*\210\nT\211\202z -\307V\203R\327C \203-\311 \210r\312\"!q\210\313\314\f\"c*\210\324\211.X\203R/\nH\204K\330\314\331\n\"\332\306 0 1\211 $G\2111W\203\2010\203t\3331\nZ\334\"$P\202\203$\3331\nZ\334\"P\202\203$,D \203\215\311 \210r\312\"!q\210\313\314\f\"c*\210\3352\nH $%$H &\316&!\203\301&'\236A\206\305\314\317&\"\202\305\320&!*D \203\317\311 \210r\312\"!q\210\313\314\f\"c*\2103\nH\3364H!\2033\3374H $%$H &\316&!\203&'\236A\206\314\317&\"\202\320&!*D \203 \311 \210r\312\"!q\210\313\314\f\"c*\210T\202\342\340C \203=\311 \210r\312\"!q\210\313\314\f\"c*\210\nT\211\202> \204c \307V\204c-\307V\205z\341C \203m\311 \210r\312\"!q\210\313\314\f\"c*+\207" [r b i nuseless-nonterminals args wisent-new-log-flag nil 0 "\n\nUseless nonterminals:\n\n" wisent-new-log get-buffer-create apply format " %s\n" wisent-char-p "'%c'" symbol-name zerop logand lsh 1 "\n\nTerminals which are not used:\n\n" t "\n\nUseless rules:\n\n" "#%s " "%d" 4 make-string 32 "%s:" natnump " %s" ";\n" "\n\n" wisent-log-buffer-name nsyms s tags item wisent-escape-sequence-strings ntokens V x wisent-BITS-PER-WORD V1 nuseless-productions nrules ruseful left n rlhs rrhs ritem] 8 (#$ . 18723)]) #@182 Find, for each variable (nonterminal), which rules can derive it. It sets up the value of DERIVES so that DERIVES[i - NTOKENS] points to a list of rule numbers, terminated with -1. (defalias 'wisent-set-derives #[nil "\306\211\211\211\211\211 \307\n\306\"\307 T\310\"\310 \211\310V\203N \f H\203G H \fZHBI\210 \fZ I\210 T S\211\202 \307\n\306\"\211W\205\221 \306 ZH\211\203| H\211@\nB A\211\204l \311\nB\237 Z\nI\210 T\211\202Y .\207" [delts dset q p lhs i nil make-vector 0 -1 nvars nrules ruseful rlhs ntokens derives nsyms] 7 (#$ . 20622)]) #@17 Print NULLABLE. (defalias 'wisent-print-nullable #[nil "\306\307C\n\203\f \310 \210r\311 !q\210\312\313 \"c*\210\f\211 W\203t \314 H \315!\203D \236A\206H \313\316\"\202H \317!*\fZH\203V \320\202W \321E\n\203` \310 \210r\311 !q\210\312\313 \"c*\210T\211\202 \322C\n\203~ \310 \210r\311 !q\210\312\313 \"c+\207" [i args wisent-new-log-flag wisent-log-buffer-name ntokens nsyms nil "NULLABLE\n" wisent-new-log get-buffer-create apply format " %s: %s\n" wisent-char-p "'%c'" symbol-name "yes" "no" "\n\n" s tags item wisent-escape-sequence-strings nullable] 6 (#$ . 21224)]) #@138 Set up NULLABLE. A vector saying which nonterminals can expand into the null string. NULLABLE[i - NTOKENS] is nil if symbol I can do so. (defalias 'wisent-set-nullable #[nil "\306\211\211\211\211\211\211\211\211\211\211 \307\310\"\307T\310\"\307\306\"\307\311\312#\306\"\307\306\"\310\211\310\312\211X\203H\203HH\310V\203\325 \306HH\310V\203\220 HW\203\210 \313T\202q \204HH\211\310V\203\f\fHTI\210\n ZHBI\210 ZI\210TT\202\233 H\203H\211\203 ZH\204 Z\313I\210 I\210TT\211\202M W\203e HZHT\203\nH\211@A\314\f\fHSI!\203&H Z\313I\210 I\210T\202& \205l\315 . \207" [any-tokens item relts rsets rcount squeue nil make-vector 0 + 1 t zerop wisent-print-nullable r p s2 s1 ruleno nvars nrules nitems nullable ruseful ritem rrhs ntokens rlhs wisent-debug-flag] 12 (#$ . 21831)]) #@17 Print FDERIVES. (defalias 'wisent-print-fderives #[nil "\306\211\211\307C\f\203 \310 \210r\311 !q\210\312\313 \"c*\210\211W\205\267 \314\n H \315!\203J \236A\206N \313\316\"\202N \317!*D\f\203X \310 \210r\311 !q\210\312\313 \"c*\210 \nZH\320\211 X\203\260 \321\322 \n \245H\323\324\n \246\"\"!*\204\251 \325 D\f\203\234 \310 \210r\311 !q\210\312\313 \"c*\210 T\211\202p \nT\211\202! +\207" [rp j i args wisent-new-log-flag wisent-log-buffer-name nil "\n\n\nFDERIVES\n" wisent-new-log get-buffer-create apply format "\n\n%s derives\n\n" wisent-char-p "'%c'" symbol-name 0 zerop logand lsh 1 " %d\n" ntokens nsyms s tags item wisent-escape-sequence-strings fderives nrules x wisent-BITS-PER-WORD] 8 (#$ . 22815)]) #@319 Set up FDERIVES. An NVARS by NRULES matrix of bits indicating which rules can help derive the beginning of the data for each nonterminal. For example, if symbol 5 can be derived as the sequence of symbols 8 3 20, and one of the rules for deriving symbol 8 is rule 4, then the [5 - NTOKENS, 4] bit in FDERIVES is set. (defalias 'wisent-set-fderives #[nil "\306\211\211\307 \306\"\310\211 W\203\" \f\n\307 \310\"I\210\nT\211\202 \311 \210\211W\203\244 \211W\203\235 \nZH Z \312\313\n\245H\314\315\n\246\"\"!*\204\226 ZH\211@\310V\203\226 \f\nZH@ \n\245\316H\314\315\n\246\"\"I+\210A\211\202f T\211\2023 \nT\211\202) \205\253 \317 +\207" [k j i nvars fderives rulesetsize nil make-vector 0 wisent-set-firsts zerop logand lsh 1 logior wisent-print-fderives ntokens nsyms firsts x wisent-BITS-PER-WORD derives wisent-debug-flag] 9 (#$ . 23580)]) #@15 Print FIRSTS. (defalias 'wisent-print-firsts #[nil "\306\211\211\307C\f\203 \310 \210r\311 !q\210\312\313 \"c*\210\211W\205\344 \314\n H \315!\203J \236A\206N \313\316\"\202N \317!*D\f\203X \310 \210r\311 !q\210\312\313 \"c*\210 \nZH\320\211 W\203\335 \321\322 \n \245H\323\324\n \246\"\"!*\204\326 \325 \\ \\ H \315!\203\273 \236A\206\277 \313\316\"\202\277 \317!*E\f\203\311 \310 \210r\311 !q\210\312\313 \"c*\210 T\211\202p \nT\211\202! +\207" [v j i args wisent-new-log-flag wisent-log-buffer-name nil "\n\n\nFIRSTS\n\n" wisent-new-log get-buffer-create apply format "\n\n%s firsts\n\n" wisent-char-p "'%c'" symbol-name 0 zerop logand lsh 1 " %d (%s)\n" ntokens nsyms s tags item wisent-escape-sequence-strings firsts nvars x wisent-BITS-PER-WORD] 8 (#$ . 24488)]) #@123 Transitive closure. Given R an N by N matrix of bits, modify its contents to be the transitive closure of what was given. (defalias 'wisent-TC #[(R n) "\306\211\211\307\211 W\205\205 \307\211 W\203~ \f H\n \310\311 \n \245H\312\313\n \246\"\"!*\204w \307\211 W\203w \f\nH \310\311 \n \245H\312\313\n \246\"\"!*\204p \f H \n \245 \314 H\312\313\n \246\"\"I+\210T\211\2024 T\211\202 \nT\211\202 +\207" [k j i n R x nil 0 zerop logand lsh 1 logior wisent-BITS-PER-WORD] 9 (#$ . 25329)]) #@125 Reflexive Transitive Closure. Same as `wisent-TC' and then set all the bits on the diagonal of R, an N by N matrix of bits. (defalias 'wisent-RTC #[(R n) "\306\307 \n\"\210\310\211\nW\2050 H\f\245 \311 H\312\313\f\246\"\"I+\210T\211\202\n )\207" [i R n x wisent-BITS-PER-WORD k nil wisent-TC 0 logior lsh 1] 9 (#$ . 25847)]) #@342 Set up FIRSTS. An NVARS by NVARS bit matrix indicating which items can represent the beginning of the input corresponding to which other items. For example, if some rule expands symbol 5 into the sequence of symbols 8 3 20, the symbol 8 can be the beginning of the data for symbol 5, so the bit [8 - NTOKENS, 5 - NTOKENS] in FIRSTS is set. (defalias 'wisent-set-firsts #[nil "\306\211\211\211\211 \211 \\S\245)\211\307 \306\"\310\211 W\2038 \307 \310\"I\210T\211\202# \310\211W\203\233 ZH\n@\310Y\203\221 \n@HH\nA Y\203L Z\fH \245 \311H\312\313\246\"\"I+\210\202L \fTT\211\202> \314 \"\210\205\250 \315 -\207" [i rowsize sp symbol row nvars nil make-vector 0 logior lsh 1 wisent-RTC wisent-print-firsts n wisent-BITS-PER-WORD varsetsize firsts ntokens nsyms derives ritem rrhs x k wisent-debug-flag] 9 (#$ . 26193)]) #@163 Allocate the ITEMSET and RULESET vectors. And precompute useful data so that `wisent-closure' can be called. N is the number of elements to allocate for ITEMSET. (defalias 'wisent-initialize-closure #[(n) "\306\307\"\nT\211 \\S \245)\306\f\307\"\310 \207" [n itemset nrules wisent-BITS-PER-WORD rulesetsize ruleset make-vector 0 wisent-set-fderives] 4 (#$ . 27090)]) #@16 Print ITEMSET. (defalias 'wisent-print-closure #[nil "\306\307 D \203 \310 \210r\311\f!q\210\312\313\n\"c*\210\314\211 W\205C \315 HD \203/ \310 \210r\311\f!q\210\312\313\n\"c*\210T\211\202 )\207" [i nitemset args wisent-new-log-flag wisent-log-buffer-name itemset nil "\n\nclosure n = %d\n\n" wisent-new-log get-buffer-create apply format 0 " %d\n"] 4 (#$ . 27468)]) #@591 Set up RULESET and ITEMSET for the transitions out of CORE state. Given a vector of item numbers items, of length N, set up RULESET and ITEMSET to indicate what rules could be run and which items could be accepted when those items are the active ones. RULESET contains a bit for each rule. `wisent-closure' sets the bits for all rules which could potentially describe the next input to be read. ITEMSET is a vector of item numbers; NITEMSET is the number of items in ITEMSET. `wisent-closure' places there the indices of all items which represent units of input that could arrive next. (defalias 'wisent-closure #[(core n) "\306\211\211\211\211\211 \307!\2034 \310ZH\fW\203 \f \fHI\210\fT\211\202 \311\310\"\210\310\211W\203 HH\211Y\203x \310\nZH\fW\203x \f\312\fH \fH\"I\210\fT\211\202] T\211\202= \310\211\310_ \fW\203\357 \307\313\245H\314\315\246\"\"!*\204\350 H W\203\334 HW\203\334 HI\210T T\211\202\267 I\210T T\211\202\215 W\203\f HI\210T T\211\202\360 \205\316 .\207" [itemno ruleno symbol v r c nil zerop 0 fillarray logior logand lsh 1 wisent-print-closure n fderives start-symbol ntokens rulesetsize ruleset ritem core nitemset wisent-BITS-PER-WORD i x rrhs itemset wisent-debug-flag] 8 (#$ . 27854)]) #@32 Allocate storage for itemsets. (defalias 'wisent-allocate-itemsets #[nil "\306\211\211\211\307\310\f \\\307\"\307 \nH\211\2033 \307V\203- T HTI\210\nT\202 \310\f\306\"\n\310 \307\" \307\211\307\fW\203\\ \n\n I\210 \nH\\\nT\211\202D \f\310\f\306\"\211 ,\207" [symbol-count count i symbol nsyms nuseless-nonterminals nil 0 make-vector ritem kernel-base kernel-items shift-symbol kernel-end] 5 (#$ . 29207)]) #@41 Allocate storage for the state machine. (defalias 'wisent-allocate-storage #[nil "\306 \210\307\310\"\307\nT\310\"\307\f\311\"\211\207" [nsyms shiftset nrules redset wisent-state-table-size state-table wisent-allocate-itemsets make-vector 0 nil] 3 (#$ . 29647)]) #@411 Find which symbols can be shifted in the current state. And for each one record which items would be active after that shift. Uses the contents of ITEMSET. SHIFT-SYMBOL is set to a vector of the symbols that can be shifted. For each symbol in the grammar, KERNEL-BASE[symbol] points to a vector of item numbers activated if that symbol is shifted, and KERNEL-END[symbol] points after the end of that vector. (defalias 'wisent-new-itemsets #[nil "\306\211\211\211\211 \307 \306\"\210\310\211\n W\203U \n\nH\nT \fH\211\310V\203 H\211\204C \f I\210 T H \fTI\210 T I\210\202 \211-\207" [symbol ksp isp shiftcount i kernel-end nil fillarray 0 nitemset itemset ritem shift-symbol kernel-base kernel-items nshifts] 6 (#$ . 29921)]) #@122 Create a new state for those items, if necessary. SYMBOL is the core accessing-symbol. Subroutine of `wisent-get-state'. (defalias 'wisent-new-state #[(symbol) "\306\211\211\211\211\211 HH\211 Z\307\306\211\310\211\211\311&\312 \310\"\f\313I\210\f\314I\210\f\315 I\210\f\316I\210\310 W\203Z \n HI\210 T\nT\202C \310\fI\210\fT\f.\207" [items iend isp2 isp1 p n nil vector 0 [0] make-vector 3 2 4 5 kernel-base symbol kernel-end nstates kernel-items last-state] 8 (#$ . 30686)]) #@241 Find the state we would get to by shifting SYMBOL. Return the state number for the state we would get to (from the current state) by shifting SYMBOL. Create a new state if no equivalent one exists already. Used by `wisent-append-states'. (defalias 'wisent-get-state #[(symbol) "\306\211\211\211\211\211\211\211 HH\211Z\307\fW\203A H\\T\211\202) \246H\211\203\262 \306 \204\276 \310HU\203\223 \311H \312H\307 \203\223 \fW\203\223 H\n HU\204\210 \306T T\202o \204T \313H\203\244 \313H\202T \313\314!I\311\211\202U \314! I\210 \315H.\207" [n found sp2 sp iend isp2 nil 0 4 t 5 1 wisent-new-state 2 isp1 key kernel-base symbol kernel-end kernel-items wisent-state-table-size state-table] 9 (#$ . 31210)]) #@250 Find or create the core structures for states. Use the information computed by `wisent-new-itemsets' to find the state numbers reached by each shift transition from the current state. SHIFTSET is set up as a vector of state numbers of those states. (defalias 'wisent-append-states #[nil "\306\211\211\307\211 W\203> \f\nH\n\211\310V\2032 \f SHV\2032 \f \f SHI\210 S\211\202 \f I\210\nT\211\202 \310\211 W\205X \f\nH \n\311!I\210\nT\211\202A +\207" [symbol j i nshifts shift-symbol shiftset nil 1 0 wisent-get-state] 5 (#$ . 32011)]) #@20 Initialize states. (defalias 'wisent-initialize-states #[nil "\305\306\211\307\211\211\310&\211\311\211)\207" [p first-state last-state this-state nstates vector nil 0 [0] 1] 8 (#$ . 32566)]) #@60 Save the NSHIFTS of SHIFTSET into the current linked list. (defalias 'wisent-save-shifts #[nil "\306\211\211\307\306\310\211\311$\312 \310\"\310\n\313\f\314HI\210\n\314 I\210\n\315I\210 W\2039 HI\210 T\211\202& \203G \310\nI\210\202J \n\n\211+\207" [shifts i p nshifts this-state shiftset nil vector 0 [0] make-vector 1 2 3 last-shift first-shift] 6 (#$ . 32772)]) #@155 Create the next-to-final state. That is the state to which a shift has already been made in the initial state. Subroutine of `wisent-augment-automaton'. (defalias 'wisent-insert-start-shift #[nil "\306\211\307\306\211\310\211\211\311&\211\312\nI\210 \313 I\210\f\310 I\210 \307\306\310\211\314$\211\315\nI\210\nT\312\315I\210\313\307\n!I\210 \310I\210\211*\207" [sp statep nstates start-symbol last-state last-shift nil vector 0 [0] 2 3 [0] 1] 8 (#$ . 33165)]) #@335 Set up initial and final states as parser wants them. Make sure that the initial state has a shift that accepts the grammar's start symbol and goes to the next-to-final state, which has a shift going to the final state, which has a shift to the termination state. Create such states and shifts if they don't happen to exist already. (defalias 'wisent-augment-automaton #[nil "\306\211\211\211\211\211\211 \211\203\257\307 \310H!\203\214 \311H\312H\211\313HW\203@ \f\311H W\203@ \f\312H\211\202( \f\313HU\203\373 \f\311H \203c \310H W\203c \312H\211\204Q \203\316 \310H U\203\316 \311H\314\306\312\211\315$\316T\312\"\n\310 I\210\n\311TI\210\n\313I\210\312I\210\312V\203\265 \313HSHI\210S\211\202\233 \n\312 \312HI\210 \312\nI\210 =\203\314\n\202\314\314\306\312\211\315$\211\310 I\210\n\311\310I\210\n\313\314!I\210\n\312 I\210 \312\nI\210 \204\314\n\202\314\314\306\312\211\315$ \311H\316T\312\"\n\311TI\210\n\313I\210\312H\312\211 \311HW\203b\f\313HV\203I U\203I I\210 T \313HHI\210\f\312HT T\202' U\203r I\210 T\n\312 \312HI\210\n =\203\206\n\317 \210\202\314\314\306\312\211\315$\211\311\310I\210 \313\314!I\210 \312I\210 \317 \210\202\314\314\306\312\211\315$\211\311\310I\210 \313\314!I\210 \317 \210\314\306\211\312\211\211\320&\211\311I\210\312\fI\210\f\314\306\312\211\315$\211\310I\210T \311\310I\210 \313\314!I\210\312 I\210 \314\306\211\312\211\211\320&\211\311I\210T\312\fI\210\f\211.\207" [shifts sp1 sp2 sp statep k nil zerop 1 2 0 3 vector [0] make-vector wisent-insert-start-shift [0] i first-shift first-state start-symbol nstates last-shift last-state final-state] 8 (#$ . 33646)]) #@184 Make a reductions structure. Find which rules can be used for reduction transitions from the current state and make a reductions structure for the state to record their rule numbers. (defalias 'wisent-save-reductions #[nil "\306\211\211\211\211 \307\211\307 W\2033 \fHH\211\307W\203, \n [I\210\nT\fT\211\202 \n\307V\205\203 \310\306\307\211\311$\312\n\307\" \313\314HI\210 \314\nI\210 \315I\210\307\211\nW\203n \f\fHI\210\fT\211\202Z \203| \307 I\210\202 \211-\207" [rules p count item i nitemset nil 0 vector [0] make-vector 1 2 3 ritem itemset redset this-state last-reduction first-reduction] 6 (#$ . 35433)]) #@69 Compute the nondeterministic finite state machine from the grammar. (defalias 'wisent-generate-states #[nil "\303 \210\304!\210\305 \210 \2031 \306 \307H \310H\"\210\311 \210\312 \210\313 \210\n\314V\203) \315 \210 \314H\211\204 \316 \207" [nitems this-state nshifts wisent-allocate-storage wisent-initialize-closure wisent-initialize-states wisent-closure 5 4 wisent-save-reductions wisent-new-itemsets wisent-append-states 0 wisent-save-shifts wisent-augment-automaton] 5 (#$ . 36089)]) #@13 Traverse I. (defalias 'wisent-traverse #[(i) "\306\211\211\211\211\211 \fT\211\f \fI\210\fI\210H\211\203\220 \307\n H\307Y\203\220 \310\n HH!\203H \311\n H!\210H\n HHV\203c \n HHI\210H\307\211W\203\212 \f\312 \fH\n HH\fH\"I\210\fT\211\202l T\202/ H U\205\336 \306?\205\336 \fH\fS\f I\210 U\203\300 \313\211\202\235 \307\211W\203\234 H\fH\fHI\210\fT\211\202\303 .\207" [break Fi Ri height k j nil 0 zerop wisent-traverse logior t top VERTICES i INDEX R F tokensetsize infinity] 8 (#$ . 36587)]) #@19 Digraph RELATION. (defalias 'wisent-digraph #[(relation) "\306\211\306\211\306 \307\\\310 T\311\"\310 T\311\"\311 \311\211 \f W\205F \fH\311U\203= \fH\203= \312\f!\210\fT\211\f\202# .\207" [INDEX R VERTICES infinity top ngotos nil 2 make-vector 0 wisent-traverse relation i] 4 (#$ . 37169)]) #@20 Build state table. (defalias 'wisent-set-state-table #[nil "\304\305 \304\" \211\205 \n\306HI\210\307H\211\204 \304)\207" [sp nstates state-table first-state nil make-vector 2 0] 4 (#$ . 37486)]) #@31 Build accessing symbol table. (defalias 'wisent-set-accessing-symbol #[nil "\304\305 \306\" \211\205 \n\307H\310HI\210\306H\211\204 \304)\207" [sp nstates accessing-symbol first-state nil make-vector 0 2 3] 5 (#$ . 37697)]) #@20 Build shift table. (defalias 'wisent-set-shift-table #[nil "\304\305 \304\" \211\205 \n\306HI\210\307H\211\204 \304)\207" [sp nstates shift-table first-shift nil make-vector 1 0] 4 (#$ . 37936)]) #@24 Build reduction table. (defalias 'wisent-set-reduction-table #[nil "\304\305 \304\" \211\205 \n\306HI\210\307H\211\204 \304)\207" [rp nstates reduction-table first-reduction nil make-vector 1 0] 4 (#$ . 38147)]) #@22 Setup MAXRHS length. (defalias 'wisent-set-maxrhs #[nil "\305\211\211\306\211\306 \nH\2030 \nH\306V\203 T\202* V\203( \306\nT\202\f \211+\207" [max len i ritem maxrhs nil 0] 4 (#$ . 38374)]) #@12 Set up LA. (defalias 'wisent-initialize-LA #[nil "\306\211\211\211\211\211\211\211 \307\306\"\307T\310\"\310\211\310W\203\252 \fI\210HH \203g \311H\312V\204^ \n\203g \n\313H\310HHY\204g \f \311H\\\202n \314I\210\n\203\241 \310\n\311H\n\313H W\203\241 HHU\203\232 \306I\210 T\211\202~ T\211\202' \fI\210\315\f!\203\314 \307\312\306\"\307\312\310\"\307\312\306\"\202\336 \307\f\306\"\307\f\310\"\307\f\306\"\310GW\203\307\310\"I\210T\211\202\350 \310\211\310W\205PH\204GH\211\203G\310 \311H \313H W\203G HI\210 TT\211\202-T\211\202.\207" [v np sp rp count k nil make-vector 0 2 1 3 t zerop j i nstates consistent lookaheads reduction-table shift-table accessing-symbol ntokens error-token-number LA LAruleno lookback tokensetsize] 9 (#$ . 38589)]) #@18 Set up GOTO-MAP. (defalias 'wisent-set-goto-map #[nil "\306\211\211\211\211\211\211\211\211 \f \307T\310\"\307T\310\"\310\211\203 \311HS \312H \310Y\203u HH\211W\203W \310 \202l T Z ZHTI\210 S\211 \202= \310H\211\204/ \310 \310\f W\203\253 \f\fI\210\f\fH\\ T \fT\f\202\210 \310\f W\203\321 \f \fHI\210 T \fT\f\202\262 \fI\210 \fI\210\307\310\"\307\310\"\211\205T\313H\312H\311HS\211 \310Y\203I H H\211W\203$\310 \202@ ZH Z\fTI\210\f\nI\210\f I\210 S\211 \202\310H\211\204\366 \306. \207" [v state2 state1 temp-map k symbol nil make-vector 0 2 3 1 j i sp nvars goto-map ngotos first-shift accessing-symbol ntokens nsyms from-state to-state] 10 (#$ . 39491)]) #@58 Map a STATE/SYMBOL pair into its numeric representation. (defalias 'wisent-map-goto #[(state symbol) "\306\211\211\211\211 \n ZH \nT ZHS\204Q \fX\203Q \f\\\307\245\f\nH\211 U\203> \n\211\202 W\203K \nT\202 \nS\202 \206X \310\311!-\207" [result s middle low high goto-map nil 2 error "Internal error in `wisent-map-goto'" symbol ntokens from-state state] 6 (#$ . 40307)]) #@11 Set up F. (defalias 'wisent-initialize-F #[nil "\306\211\211\211\211\211\211\211\211\211\211\211\211 \307\306\"\310\211W\203F \307\310\"I\210T\211\202, \307\306\"\307T\310\"\310\211\310\211W\203J H H\211\203<\311H\312H\310\306\204\323 W\203\323 HH\211 Y\203\244 \313\211\202\204 H\n !\245 \314 H\315\316!\246\"\"I+\210T\202\203 W\203 HH\"\n ZH\203\371 \f\317 \n\"I\210\fTT\211\202\325 \f\310V\203<\307\fT\310\"\310 I\210\fW\2034HI\210T\211\202\f\320I\210\310TT\211\202] \321 !. \207" [break v symbol stateno nedges reads nil make-vector 0 2 3 t logior lsh 1 wisent-map-goto -1 wisent-digraph rp rowp edge sp k j i ngotos F tokensetsize to-state shift-table accessing-symbol ntokens x wisent-BITS-PER-WORD nullable] 14 (#$ . 40712)]) #@68 Add a lookback edge. STATENO, RULENO, GOTONO are self-explanatory. (defalias 'wisent-add-lookback-edge #[(stateno ruleno gotono) "\306\211\211 \fH \fTH\306\2040 \n W\2030 \nH\nU\203* \307\211\202 \nT\202 \2048 \310\311!\210 \n\f \nHBI+\207" [found k i lookaheads stateno LAruleno nil t error "Internal error in `wisent-add-lookback-edge'" ruleno lookback gotono] 6 (#$ . 41617)]) #@229 Return the transpose of R-ARG, of size N. Destroy R-ARG, as it is replaced with the result. R-ARG[I] is nil or a -1 terminated list of numbers. RESULT[NUM] is nil or the -1 terminated list of the I such as NUM is in R-ARG[I]. (defalias 'wisent-transpose #[(R-arg n) "\306\211\211\211\211\211\211 \n\307 \306\"\307 \306\"\307 \310\"\310\211\n W\203Z \f\nH\211\203Q \310 H\310Y\203Q \n H\n HHTI\210 T\2027 \nT\211\n\202% \310\211\n W\203\223 \n\nH\310V\203\212 \307\n\nHT\310\"\211\n\nH\311I\210\f\nI\210 \n\310I\210\nT\211\n\202^ \310\211\n W\203\332 \f\nH\211\203\321 \310 H\310Y\203\321 \f HH HH\nI\210 H HHTI\210 T\202\251 \nT\211\n\202\227 \f.\207" [sp v nedges end-R new-R j nil make-vector 0 -1 i n R-arg] 8 (#$ . 42021)]) #@18 Build relations. (defalias 'wisent-build-relations #[nil "\306\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211 \307\306\" \307T\310\"\307 T\310\"\310\211W\203\215\310 H HH!\f\"ZH\211@\310V\203L \310I\210\311#@H$H\310V\203\334 $H% H\211\312H\313H\310\211W\203\311 H H U\203\300 \211\202\244 T\211\202\244 I\210TT\202\200 & H\204\354 \314 @#\210S\306\204C\315S\211\310Y\203\364 $H\"Y\203\364 S H\n\316 $H\"I\210T'$H\"ZH\203\364 \306\211\203\371 A\211\202f \310V\203\204\307T\310\"\310 I\210W\203~\nHI\210T\211\202f\317I\210T\211\202C \320 \"\211 .\207" [v states edge symbol2 symbol1 stateno nil make-vector 0 1 2 3 wisent-add-lookback-edge t wisent-map-goto -1 wisent-transpose state1 done nedges length sp rp rulep k j i ngotos includes maxrhs from-state accessing-symbol to-state derives ntokens rrhs ritem shift-table consistent nullable] 17 (#$ . 42811)]) #@18 Compute follows. (defalias 'wisent-compute-FOLLOWS #[nil "\301!\207" [includes wisent-digraph] 2 (#$ . 43891)]) #@21 Compute lookaheads. (defalias 'wisent-compute-lookaheads #[nil "\306\211\211\211\211\211 \nH\307\211 W\205X H\211\203Q \f H @H\307\211W\203J \n\f\310\n\fH \fH\"I\210\fT\211\2021 A\211\204# T\211\202 .\207" [sp v2 v1 n j i nil 0 logior lookaheads nstates lookback LA F tokensetsize] 7 (#$ . 44010)]) #@63 Make the nondeterministic finite state machine deterministic. (defalias 'wisent-lalr #[nil "\211\n\\S\n\245)\304 \210\305 \210\306 \210\307 \210\310 \210\311 \210\312 \210\313 \210\314 \210\315 \210\316 \207" [ntokens n wisent-BITS-PER-WORD tokensetsize wisent-set-state-table wisent-set-accessing-symbol wisent-set-shift-table wisent-set-reduction-table wisent-set-maxrhs wisent-initialize-LA wisent-set-goto-map wisent-initialize-F wisent-build-relations wisent-compute-FOLLOWS wisent-compute-lookaheads] 3 (#$ . 44344)]) #@141 Log a shift-reduce conflict resolution. In specified STATE between rule pointed by lookahead number LANO and TOKEN, resolved as RESOLUTION. (defalias 'wisent-log-resolution #[(state LAno token resolution) "\204 \205P \306\n \fH H \307!\203/ \236A\2063 \310\311\"\2023 \312!*\257 \203B \313 \210r\314!q\210\315\310\"c*\207" [wisent-verbose-flag wisent-debug-flag state LAruleno LAno token "Conflict in state %d between rule %d and token %s resolved as %s.\n" wisent-char-p format "'%c'" symbol-name wisent-new-log get-buffer-create apply s tags item wisent-escape-sequence-strings resolution args wisent-new-log-flag wisent-log-buffer-name] 6 (#$ . 44878)]) (put 'wisent-log-resolution 'byte-optimizer 'byte-compile-inline-expand) #@135 Turn off the shift recorded in the specified STATE for TOKEN. Used when we resolve a shift-reduce conflict in favor of the reduction. (defalias 'wisent-flush-shift #[(state token) "\306\211\211\211\f H\211\205@ \307H \310H\311\211 W\205@ \312\nH!\2049 \f\nHHU\2039 \n\311I\210\nT\211\202 ,\207" [v k i shiftp shift-table state nil 2 3 0 zerop token accessing-symbol] 5 (#$ . 45645)]) #@366 Attempt to resolve shift-reduce conflict for one rule. Resolve by means of precedence declarations. The conflict occurred in specified STATE for the rule pointed by the lookahead symbol LOOKAHEADNUM. It has already been checked that the rule has a precedence. A conflict is resolved by modifying the shift or reduce tables so that there is no longer a conflict. (defalias 'wisent-resolve-sr-conflict #[(state lookaheadnum) "\306\211\211\211\211\211\211\211 \" #$%&'HHH\211\211 (\307 ) *\310*+\236A)\"+\"\311\312\313\"\314,\312\"\312\211# \315\fI\210#,W\203\301$#H-'H# # (\316\317(#.\245H\320\315#.\246\"\"!*\204\270/# # (\316\317(#.\245H\320\315#.\246\"\"!*\204\270\n\211 (\307 ) *\310*+\236A)\"+\211\203\270 \"W\203P0'#\321 1 2 03\204\322 4\205 \3220&2H\n 5$5H 6\3236!\203\374 67\236A\206 \324\3256\"\202 \3266!*1\257 89\203\327 \210r\330:!q\210\331\3248\"c*,\210/# # (#.\245 ;(;\317(;H\332\320\315#.\246\"!\"I+\210\3330#\"\210\202\270 \"V\203\3510'#\334 1 2 03\204o4\205\272\3220&2H\n 5$5H 6\3236!\203\23167\236A\206\235\324\3256\"\202\235\3266!*1\257 89\203\254\327 \210r\330:!q\210\331\3248\"c*,\210-'H# # (#.\245 ;(;\317(;H\332\320\315#.\246\"!\"I+\210\202\270\n\211 (\335 ) *\310*+\236A)\"+\211\336=\203l0'#\334 1 2 03\204 4\205g\3220&2H\n 5$5H 6\3236!\203F67\236A\206J\324\3256\"\202J\3266!*1\257 89\203Y\327 \210r\330:!q\210\331\3248\"c*,\210\202E\337=\203\3320'#\321 1 2 03\204\2124\205\325\3220&2H\n 5$5H 6\3236!\203\26467\236A\206\270\324\3256\"\202\270\3266!*1\257 89\203\307\327 \210r\330:!q\210\331\3248\"c*,\210\202E\340=\203E0'#\341 1 2 03\204\3704\205C\3220&2H\n 5$5H 6\3236!\203\"67\236A\206&\324\3256\"\202&\3266!*1\257 89\2035\327 \210r\330:!q\210\331\3248\"c*,\210\336=\204y/# # (#.\245 ;(;\317(;H\332\320\315#.\246\"!\"I+\210\3330#\"\210\337=\204\251-'H# # (#.\245 ;(;\317(;H\332\320\315#.\246\"!\"I+\210\340=\203\270\f #I\210 T#T\211#\202K \312V\205\322 \312 I\210<0 I.\207" [sassoc sprec token nerrs errs errp nil wisent--prec plist-get vector 0 [0] make-vector 1 zerop logand lsh "reduce" "Conflict in state %d between rule %d and token %s resolved as %s.\n" wisent-char-p format "'%c'" symbol-name wisent-new-log get-buffer-create apply lognot wisent-flush-shift "shift" wisent--assoc right left nonassoc "an error" redprec i tags rprec LAruleno lookaheadnum x propname object ptable ntokens LA wisent-BITS-PER-WORD lookaheadset state resolution LAno wisent-verbose-flag wisent-debug-flag s item wisent-escape-sequence-strings args wisent-new-log-flag wisent-log-buffer-name k err-table] 10 (#$ . 46053)]) #@59 Find and attempt to resolve conflicts in specified STATE. (defalias 'wisent-set-conflicts #[(state) "\306\211\211\211\211\211 H?\205 \307\310\"\210H\211\203p \311H \312H\310\211 W\203p \n HH\211W\203p \313\n H!\204i \245 \314 H\315\316 \246\"\"I+\210 T\211\2020 HTH W\203\304 HH\203\275 H\310\211 W\203\275 \313\317\n\fH\fH\"!\203\260 \fT\211\202\225 \320 \"\210 \211\202\225 T\211\202~ H\211 W\205 H\310\211 W\203\372 \313\317\n\fH\fH\"!\204\363 \321I\210\fT\211\202\330 \310\211 W\203\f\314\fH\n\fH\"I\210\fT\211\202\375 T\211\202\313 .\207" [symbol shiftp v k j i nil fillarray 0 2 3 zerop logior lsh 1 logand wisent-resolve-sr-conflict t consistent state lookaheadset shift-table accessing-symbol ntokens x wisent-BITS-PER-WORD lookaheads rprec LAruleno LA tokensetsize conflicts] 9 (#$ . 48854)]) #@29 Find and resolve conflicts. (defalias 'wisent-resolve-conflicts #[nil "\306\307 \306\"\307 \310\"\307 \310\"\307 \306\"\n\310\211 W\205* \311!\210T\211\202 )\207" [i nstates conflicts tokensetsize shiftset lookaheadset nil make-vector 0 wisent-set-conflicts err-table] 4 (#$ . 49767)]) #@64 Count the number of shift/reduce conflicts in specified STATE. (defalias 'wisent-count-sr-conflicts #[(state) "\306\211\211\211\211\211 \307H\211\203\310\307\"\210\310\307\"\210\n\311H\n\312H\307\211 W\203u \313 H!\204n HH\211Y\203P \202n \245 \314 H\315\316 \246\"\"I+\210 T\211\2020 THH\211 W\203\262 H\307\211W\203\253 \f\314\fH\fH\"I\210\fT\211\202\220 T\211\202\203 \307\211W\203\321 \317 H H\"I\210 T\211\202\265 \307\211W\203 \313\317 \245H\315\316 \246\"\"!*\204\373 T T\211\202\324 .\207" [v symbol shiftp k j i nil 0 fillarray 2 3 zerop logior lsh 1 logand src-count shift-table state shiftset lookaheadset accessing-symbol ntokens x wisent-BITS-PER-WORD lookaheads LA tokensetsize] 9 (#$ . 50069)]) #@65 Count the number of reduce/reduce conflicts in specified STATE. (defalias 'wisent-count-rr-conflicts #[(state) "\306\211\211\211\211 \307 H TH\211Z\310Y\203l \307\211W\203l \307\211 W\203\\ H\f \311\312\f\245H\313\314\f\246\"\"!*\204U \nT T\211\202/ \n\310Y\203e T\fT\211\202$ -\207" [m n count j i rrc-count nil 0 2 zerop logand lsh 1 lookaheads state ntokens LA x wisent-BITS-PER-WORD] 8 (#$ . 50893)]) #@307 *If non-nil suppress the warning about shift/reduce conflicts. It is a decimal integer N that says there should be no warning if there are N shift/reduce conflicts and no reduce/reduce conflicts. A warning is given if there are either more or fewer conflicts, or if there are any reduce/reduce conflicts. (defvar wisent-expected-conflicts nil (#$ . -51342)) #@39 Report the total number of conflicts. (defalias 'wisent-total-conflicts #[nil "\305!\205 \305 !\206 \n\206 \306U?\205n \307 \211\203$ \310 P\202% \311\312\313 \" \306V\203B \312\314\f \211\315V\203? \316\202@ \311$ \306V\203S \306V\203S \312\317\f\"\306V\203j \312\320\f\211\315V\203g \316\202h \311$\321\f!+\207" [rrc-total src-total wisent-expected-conflicts src msg zerop 0 wisent-source " in " "" format "Grammar%s contains" "%s %d shift/reduce conflict%s" 1 "s" "%s and" "%s %d reduce/reduce conflict%s" message] 7 (#$ . 51707)]) #@19 Report conflicts. (defalias 'wisent-print-conflicts #[nil "\306\307\211\307\211 W\203\361 \fH\203\352 \310!\210\311!\210 \\\n\\\204/ \203\352 \312D \203< \313 \210r\314 !q\210\315\316\"c*\210 \307V\203x \317 \211\320V\203] \321\202^ \322E \203i \313 \210r\314 !q\210\315\316\"c*\210 \307V\203\240 \307V\203\240 \323C \203\221 \313 \210r\314 !q\210\315\316\"c*\210\307V\203\317 \324\211\320V\203\264 \321\202\265 \322E \203\300 \313 \210r\314 !q\210\315\316\"c*\210\325C \203\333 \313 \210r\314 !q\210\315\316\"c*\210T\211\202 \326 )\207" [i src-total rrc-total nstates conflicts src-count nil 0 wisent-count-sr-conflicts wisent-count-rr-conflicts "State %d contains" wisent-new-log get-buffer-create apply format " %d shift/reduce conflict%s" 1 "s" "" " and" " %d reduce/reduce conflict%s" ".\n" wisent-total-conflicts rrc-count wisent-verbose-flag wisent-debug-flag args wisent-new-log-flag wisent-log-buffer-name] 5 (#$ . 52262)]) #@16 Print grammar. (defalias 'wisent-print-grammar #[nil "\306\211\211\211\211\211 \307C #$\203 \310 \210r\311%!q\210\312\313#\"c*\210\314\211&X\203R' H\203K\315\316 !\317\306 ( )\211 *G\211 )W\203l (\203_ \320) Z\321\"*P\202n *\320) Z\321\"P\202n *,+ H *,*H -\322-!\203\224 -.\236A\206\230 \313\323-\"\202\230 \324-!*E #$\203\244 \310 \210r\311%!q\210\312\313#\"c*\210/ H0 H\325V\2030 H\325V\2030\3260 H *,*H -\322-!\203\360 -.\236A\206\364 \313\323-\"\202\364 \324-!*D #$\203 \310 \210r\311%!q\210\312\313#\"c*\210 T\202\301 \327C #$\203!\310 \210r\311%!q\210\312\313#\"c*\210\330C #$\203<\310 \210r\311%!q\210\312\313#\"c*\210 T\211\202* \331C #$\203^\310 \210r\311%!q\210\312\313#\"c*\210\332\325 *,*H -\322-!\203\220-.\236A\206\224\313\323-\"\202\224\324-!*D #$\203\240\310 \210r\311%!q\210\312\313#\"c*\210\314\2111W\203q\333 *,*H -\322-!\203\333-.\236A\206\337\313\323-\"\202\337\324-!* E #$\203\354\310 \210r\311%!q\210\312\313#\"c*\210\314\211&X\203O/\fH\306\n\204H0 H\325V\203H0 H U\211\203B\334\fD #$\2030\310 \210r\311%!q\210\312\313#\"c*\210\202 T\202 \fT\211\202\376\330C #$\203[\310 \210r\311%!q\210\312\313#\"c*\210 T\211\202\262\335C #$\203}\310 \210r\311%!q\210\312\313#\"c*\2101\2112W\2053\325\211\314\211&X\203\342+\fH U\203\257 T/\fH\306\n\204\3330 H\325V\203\3330 H U\203\325T\336\211\202\267 T\202\266\fT\211\202\235\337 *,*H -\322-!\203-.\236A\206 \313\323-\"\202 \324-!* E #$\203\310 \210r\311%!q\210\312\313#\"c*\210 \325V\203{\340C #$\2037\310 \210r\311%!q\210\312\313#\"c*\210\314\211&X\203{+\fH U\203t\334\fD #$\203e\310 \210r\311%!q\210\312\313#\"c*\210\fT\211\202I\325V\203 \325V\203\242\341C #$\203\223\310 \210r\311%!q\210\312\313#\"c*\210\342C #$\203\256\310 \210r\311%!q\210\312\313#\"c*\210\314\211&X\203/\fH\306\n\204\n0 H\325V\203\n0 H U\211\203\334\fD #$\203\362\310 \210r\311%!q\210\312\313#\"c*\210\202\315 T\202\315\fT\211\202\300\330C #$\203 \310 \210r\311%!q\210\312\313#\"c*\210 T\211\202\220.\207" [right-count left-count break r j i nil "\n\nGrammar\n\n Number, Rule\n" wisent-new-log get-buffer-create apply format 1 " %s %s ->" number-to-string 6 make-string 32 wisent-char-p "'%c'" symbol-name 0 " %s" " /* empty */" "\n" "\n\nTerminals, with rules where they appear\n\n" "%s (-1)\n" "%s (%d)" " %d" "\n\nNonterminals, with rules where they appear\n\n" t "%s (%d)\n " " on left:" "," " on right:" args wisent-new-log-flag wisent-log-buffer-name nrules ruseful left n s rlhs tags item wisent-escape-sequence-strings rrhs ritem ntokens nsyms] 7 (#$ . 53257)]) #@28 Print reductions on STATE. (defalias 'wisent-print-reductions #[(state) "\306\211\211\211\211\211\211\211\211\211\211\211\211\211\211 ! \" # $ % &\306\307&\310'\307\"\210()H\211\203\252 \n\311H$\n\312H#\307\211&$W\203\252 \313#&H!\204\241 *#&HH\211\"+Y\203r $&\202\241 \",U\203| \314'\" & -&.\245 $-$\315-$H\316\317&.\246\"\"I+\210&T\211&\202J /)H\211\203 \307H$ \317H#\307\211&$W\203\313#&H\211\"!\204\372 '\" & -&.\245 $-$\315-$H\316\317&.\246\"\"I+\210&T\211&\202\302 0)H!0)TH\211 !Z\317U\203:\204:1!H2!H#\307\211$3W\203Q4$\320#$H'$H\"I\210$T\211$\2020\307\211&+W\203\3624& & -\313\320-&.\245H\316\317&.\246\"\"!*\204\351\321& 565H 7\3227!\203\23778\236A\206\243\323\3247\"\202\243\3257!* 9 H 565H 7\3227!\203\31278\236A\206\316\323\3247\"\202\316\3257!*F :;\203\332\326 \210r\327<!q\210\330\323:\"c*\210&T\211&\202U\331 9 H 565H 7\3227!\20378\236A\206 \323\3247\"\202 \3257!*E :;\203)\326 \210r\327<!q\210\330\323:\"c*\202\261 !Z\317Y\205\261\307\332 \307\204 !\211& W\203 2&H#\307\211$\3073W\203\2124$\320#$H\333'$H!\"I\210$T\211$\202g\307\211%+W\203\3004% & -\313\320-&.\245H\316\317&.\246\"\"!*\204\267 T%T\211%\202\216 \fV\203\322 & 1&H\307\211$3W\203\367'$\315'$H4$H\"I\210$T\211$\202\326&T\211&\202T\310'\307\"\210\n\203n\n\311H$\n\312H#\307\211&$W\203n\313#&H!\204e*#&HH\211\"+Y\203@$&\202e'\" & -&.\245 $-$\315-$H\316\317&.\246\"\"I+\210&T\211&\202\307\211&+W\203e\306 '& & -\313\320-&.\245H\316\317&.\246\"\"!*\204\237\317\202\240\307!\211% W\203\\2%H& & -\313\320-&.\245H\316\317&.\246\"\"!*\204S\313 !\203_% U\204V\334& 565H 7\3227!\20378\236A\206\323\3247\"\202\3257!*1%H91%HH 565H 7\3227!\203478\236A\2068\323\3247\"\2028\3257!*F :;\203D\326 \210r\327<!q\210\330\323:\"c*\210\202Y\314 T\202S \203\332\334& 565H 7\3227!\203\21078\236A\206\214\323\3247\"\202\214\3257!*1 H91 HH 565H 7\3227!\203\27378\236A\206\277\323\3247\"\202\277\3257!*F :;\203\313\326 \210r\327<!q\210\330\323:\"c*\210\306 \321& 565H 7\3227!\20378\236A\206\323\3247\"\202\3257!*1%H91%HH 565H 7\3227!\203478\236A\2068\323\3247\"\2028\3257!*F :;\203D\326 \210r\327<!q\210\330\323:\"c*\210%T\211%\202\246&T\211&\202r \307Y\205\261\335 9 H 565H 7\3227!\203\22378\236A\206\227\323\3247\"\202\227\3257!*E :;\203\243\326 \210r\327<!q\210\330\323:\"c*.\207" [nodefault errp shiftp count cmax default-rule nil 0 fillarray 2 3 zerop t logior lsh 1 logand " %s [reduce using rule %d (%s)]\n" wisent-char-p format "'%c'" symbol-name wisent-new-log get-buffer-create apply " $default reduce using rule %d (%s)\n\n" -1 lognot " %s reduce using rule %d (%s)\n" " $default reduce using rule %d (%s)\n" default-LA defaulted n m symbol v k j i shiftset shift-table state accessing-symbol ntokens error-token-number x wisent-BITS-PER-WORD err-table lookaheads LAruleno LA tokensetsize lookaheadset s tags item wisent-escape-sequence-strings rlhs args wisent-new-log-flag wisent-log-buffer-name] 16 (#$ . 56004)]) #@25 Print actions on STATE. (defalias 'wisent-print-actions #[(state) "\306\211\211\211\211\211\211\211\211\211\211\211 !\"#H$#H%#H \204z \204z &#U\203] \307C '(\203L \310 \210r\311)!q\210\312\313'\"c*\202\300\314C '(\203i \310 \210r\311)!q\210\312\313'\"c*\202\300 \204\207 \315\211! \202: \316H \317H \315!\306\204! W\203\320 !H\211 !\203\267 !T!\202\226 * H\211 +Y\203\313 \321\211\202\227 \322 ,-,H .\323.!\203\357 ./\236A\206\363 \313\324.\"\202\363 \325.!* E '(\203\310 \210r\311)!q\210\312\313'\"c*\210!T!\202\226 !\315V\203:\326C '(\203+\310 \210r\311)!q\210\312\313'\"c*\210\f\203\311\f\315H\f\327H \315\211 W\203\247 H\203\236\330 H ,-,H .\323.!\203./\236A\206\203\313\324.\"\202\203\325.!*D '(\203\217\310 \210r\311)!q\210\312\313'\"c*\210 T\211 \202K \315V\203\311\326C '(\203\272\310 \210r\311)!q\210\312\313'\"c*\2100#H\203( \203( \317H\315H1\nH \331\n ,-,H .\323.!\203./\236A\206\n\313\324.\"\202\n\325.!*E '(\203\310 \210r\311)!q\210\312\313'\"c*\210\2021 \2031\332#!\210! W\205\300 \317H ! W\203\246 !H\211 \203\235* H \333 ,-,H .\323.!\203|./\236A\206\200\313\324.\"\202\200\325.!* E '(\203\216\310 \210r\311)!q\210\312\313'\"c*\210!T\211!\202@\326C '(\203\262\310 \210r\311)!q\210\312\313'\"c*.\f\207" [break nerrs rule redp errp shiftp nil " $default accept\n" wisent-new-log get-buffer-create apply format " NO ACTIONS\n" 0 2 3 zerop t " %s shift, and go to state %d\n" wisent-char-p "'%c'" symbol-name "\n" 1 " %s error (nonassociative)\n" " $default reduce using rule %d (%s)\n\n" wisent-print-reductions " %s go to state %d\n" symbol state1 v k j i shift-table state reduction-table err-table final-state args wisent-new-log-flag wisent-log-buffer-name accessing-symbol ntokens s tags item wisent-escape-sequence-strings consistent rlhs] 13 (#$ . 59316)]) #@19 Print STATE core. (defalias 'wisent-print-core #[(state) "\306\211\211\211\211\211 H\211\307H\211\310V\205\211\310\211\fW\203o\n\311H H\211 H\310V\203; T\202, H[\312 H H \313 !\203g \236A\206k \314\315 \"\202k \316 !*D \203w \317 \210r\320!!q\210\321\314 \"c*\210\" H\211W\203\335 \322 H H \313 !\203\267 \236A\206\273 \314\315 \"\202\273 \316 !*D \203\307 \317 \210r\320!!q\210\321\314 \"c*\210 T\211\202\214 \323C \203\351 \317 \210r\320!!q\210\321\314 \"c*\210 H\310V\203L\324 H H \313 !\203' \236A\206+\314\315 \"\202+\316 !*D \2037\317 \210r\320!!q\210\321\314 \"c*\210 T\202\370 \325 D \203Y\317 \210r\320!!q\210\321\314 \"c*\210 T\211\202 \326C \203{\317 \210r\320!!q\210\321\314 \"c*.\207" [sp1 sp statep rule k i nil 4 0 5 " %s -> " wisent-char-p format "'%c'" symbol-name wisent-new-log get-buffer-create apply "%s " "." " %s" " (rule %d)\n" "\n" state-table state ritem rlhs s tags item wisent-escape-sequence-strings args wisent-new-log-flag wisent-log-buffer-name rrhs] 7 (#$ . 61303)]) #@29 Print information on STATE. (defalias 'wisent-print-state #[(state) "\304D\n\203 \305 \210r\306 !q\210\307\310 \"c*\210\311!\210\312!\207" [state args wisent-new-log-flag wisent-log-buffer-name "\n\nstate %d\n\n" wisent-new-log get-buffer-create apply format wisent-print-core wisent-print-actions] 3 (#$ . 62431)]) #@30 Print information on states. (defalias 'wisent-print-states #[nil "\302\211 W\205 \303!\210T\211\202 )\207" [i nstates 0 wisent-print-state] 3 (#$ . 62758)]) #@129 Print information on generated parser. Report detailed information if `wisent-verbose-flag' or `wisent-debug-flag' are non-nil. (defalias 'wisent-print-results #[nil "\204 \203 \304 \210\305 \210\204 \203 \306 \210\307 \210\n\205, \310 \210r\311 !q\210\312 )\207" [wisent-verbose-flag wisent-debug-flag noninteractive wisent-log-buffer-name wisent-print-useless wisent-print-conflicts wisent-print-grammar wisent-print-states wisent-append-to-log-file get-buffer-create erase-buffer] 2 (#$ . 62929)]) #@614 Figure out the actions for the specified STATE. Decide what to do for each type of token if seen as the lookahead token in specified state. The value returned is used as the default action for the state. In addition, ACTROW is filled with what to do for each kind of token, index by symbol number, with nil meaning do the default action. The value 'error, means this situation is an error. The parser recognizes this value specially. This is where conflicts are resolved. The loop over lookahead rules considered lower-numbered rules last, and the last rule considered that likes a token gets to handle it. (defalias 'wisent-action-row #[(state actrow) "\306\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211 \307\306\"\210\310\306\310\211\310 H\211\203\273 \311H\211\312Y\203\273 H TH\211S\211Y\203\273 \310\211 W\203\262 H !\313\314!\"\245H\315\312\"\246\"\"!*\204\251 #H[I\210T\211\202t S\211\202j $ H\211\203\n\311H\n\316H\310\211W\203H\313 !\204% H\211 Y\203\370 \202\f I\210\f&U\203\317T\211\202\323 ' H\211\203B \310H \312H\310\211W\203BH(I\210T\211\202(\312Y\203\363\204\363) H\203` \316H\310H[\202\363\310\211W\203\276\310#H[\310\211 W\203\245H\247\203\234HU\203\234TT\211\202}V\203\265T\211\202h\310V\203\363\310\211 W\203\363H\247\203\352HU\203\352\306I\210T\211\202\311\313!\2032* U\203 +\2022\310\211 W\203.H(=\203%\306I\210T\211\202 (.\207" [nodefault errp shiftp redp symbol shift-state nil fillarray 0 2 1 zerop logand lsh 3 t count max rule nreds default-rule v n m k j i actrow reduction-table state lookaheads ntokens LA x wisent-BITS-PER-WORD LAruleno shift-table accessing-symbol error-token-number err-table wisent-error-tag consistent final-state wisent-accept-tag] 18 (#$ . 63445)]) #@59 Tag used in an action table to indicate a default action. (defconst wisent-default-tag 'default (#$ . 65470)) #@66 Figure out the actions for every state. Return the action table. (defalias 'wisent-state-actions #[nil "\306\307\310\306\"I\210\311\211\211\211\211 \307\311\"\307\311\"\306\311\211 \311\211 \311 \312\313!\312\314!\312\315!\312\316! W\203\255 \317 \n\"\211\250\203_ \306W\203_ \320 [! BCI\210\306\211W\203\236 \n\fH\211\203\227 \250\203\211 \306W\203\211 \320 [! \fH B HBI\210\fT\211\202k H\237I\210 T\211\202D .\n\207" [rcode action actrow action-table j i 0 make-vector 13 nil make-symbol "stack" "sp" "gotos" "state" wisent-action-row wisent-semantic-action nstates ntokens stack sp gotos state NAME wisent-default-tag tags] 6 (#$ . 65586)]) #@177 Figure out what to do after reducing with each rule. Depending on the saved state from before the beginning of parsing the data that matched this rule. Return the goto table. (defalias 'wisent-goto-actions #[nil "\306\211\211\211\211\211\211 \307 \306\"\n\211 W\203` \nZ\f\nH\f\nTH\f\211 W\203W H H HB HBI\210 T\211\2024 T\211\202 .\207" [goto-table state symbol n m j nil make-vector i nstates ntokens nsyms goto-map from-state tags to-state] 8 (#$ . 66291)]) #@57 Return non-nil if SYM is bound to the `quote' function. (defalias 'wisent-quote-p #[(sym) "\300\301\302\217\207" [nil (byte-code "\301!\301\302!=\207" [sym indirect-function quote] 3) ((error))] 3 (#$ . 66801)]) (put 'wisent-quote-p 'byte-optimizer 'byte-compile-inline-expand) #@61 Return non-nil if SYM is bound to the `backquote' function. (defalias 'wisent-backquote-p #[(sym) "\300\301\302\217\207" [nil (byte-code "\301!\301\302!=\207" [sym indirect-function backquote] 3) ((error))] 3 (#$ . 67086)]) (put 'wisent-backquote-p 'byte-optimizer 'byte-compile-inline-expand) #@182 Return non-nil if X is a valid $N or $regionN symbol. That is if X is a $N or $regionN symbol with N >= 1 and N <= M. Also warn if X is a $N or $regionN symbol with N < 1 or N > M. (defalias 'wisent-check-$N #[(x m) "9\205K \305!\306\307 \"\205 \310\311\312 \"!\211\205J \n\313Y\203+ \n X\203+ \314\202J \315\316\f\317 \313W\203: \320\202E \313U\203D \321\202E \322 \"$\210\323*\207" [x n i m NAME symbol-name string-match "\\`\\$\\(region\\)?\\([0-9]+\\)\\'" string-to-number match-string 2 1 t message "*** In %s, %s might be a free variable (rule has %s)" format "no component" "%d component" "%d components" nil] 8 (#$ . 67388)]) #@384 Parse BODY of semantic action. N is the maximum number of $N variables that can be referenced in BODY. Warn on references out of permitted range. Optional argument FOUND is the accumulated list of '$N' references encountered so far. Return a cons (FOUND . XBODY), where FOUND is the list of $N references found in BODY, and XBODY is BODY expression with `backquote' forms expanded. (defalias 'wisent-semantic-action-expand-body #[(body n &optional found) "<\204 \306 \"\203 \307\302\"\210\nB\207\310\211 @ \310\311\312\217)\203( \313!\203e @A :\203Q @ \310\314\315\217)\204Q \316 \n#\211@ A\202] \306 \"\203] \307\302 \"\210\f C\244\202( \n\f*B\207" [body n found sexpr xbody sym wisent-check-$N add-to-list nil (byte-code "\301!\301\302!=\207" [sym indirect-function backquote] 3) ((error)) macroexpand (byte-code "\301!\301\302!=\207" [sym indirect-function quote] 3) ((error)) wisent-semantic-action-expand-body] 5 (#$ . 68036)]) #@553 Set up the Elisp function for semantic action at rule R. On entry RCODE[R] contains a vector [BODY N (NTERM I)] where BODY is the body of the semantic action, N is the maximum number of values available in the parser's stack, NTERM is the nonterminal the semantic action belongs to, and I is the index of the semantic action inside NTERM definition. Return the semantic action symbol. The semantic action function accepts three arguments: - the state/value stack - the top-of-stack index - the goto table And returns the updated top-of-stack index. (defalias 'wisent-semantic-action #[(r) " H\204 \n \306I\207\n H\211\307H \310\311\312 \313H# \314 \315H\f\"\211 &@ '&A &( H )\306\211 * +\306\211 , -\f\211,\315V\203\241 \f,Z\313_T-\316\311\317,\"!\211+'>\203t +\320\321.\322/-EEDD*B*\316\311\323,\"!\211+'>\203\230 +\324\321.\322/-EEDD*B*,S\211,\202B 0 H,\315-1,H\315V\203\301 -T-,T,\202\252 \316 \n\315H\"\211\325./2E\326\327*\330\f\307U\203\364 \331*\236\203\347 \331\202\n\320\321.\332/DED\202\n\f\307V\205\n\333.\322/\f\313_SE\332/DFD\334 D\335\3363)HDDE-\315V\205+/\322/-\313_EDC4\320\337\335\3212\321./EEEDDC$\340/\341/\342BBE\343.\332/D\344&\345BBF\343./4F/\257EM\210 . \207" [ruseful r rcode actn n NAME nil 1 apply format "%s:%d" 2 wisent-semantic-action-expand-body 0 intern "$region%d" cdr aref - "$%d" car lambda let* append $region $region1 1- wisent-production-bounds $action $nterm quote assq setq + (2) aset cons ($region) form $l rlhs nt bl $v i j stack sp rrhs ritem gotos tags state] 18 (#$ . 69001)]) #@167 Compute and return LALR(1) automaton from GRAMMAR. GRAMMAR is in internal format. GRAM/ACTS are grammar rules in internal format. STARTS defines the start symbols. (defalias 'wisent-parser-automaton #[nil "\302 \210\303 \210\304 \210\305 \210\306 \210\307 \210\310 \210\311\312 \313 \314H$\207" [start-table rcode wisent-reduce-grammar wisent-set-derives wisent-set-nullable wisent-generate-states wisent-lalr wisent-resolve-conflicts wisent-print-results vector wisent-state-actions wisent-goto-actions 0] 6 (#$ . 70604)]) #@143 The list of reserved symbols. Also all symbols starting with a character defined in `wisent-reserved-capitals' are reserved for internal use. (defconst wisent-reserved-symbols (list wisent-error-term) (#$ . 71139)) #@116 The list of reserved capital letters. All symbol starting with one of these letters are reserved for internal use. (defconst wisent-reserved-capitals '(36 64) (#$ . 71361)) #@58 Main start symbol. It gives the rules for start symbols. (defconst wisent-starts-nonterm '$STARTS (#$ . 71540)) #@193 Non-nil means allows only one start symbol like in Bison. That is don't add extra start rules to the grammar. This is useful to compare the Wisent's generated automaton with the Bison's one. (defvar wisent-single-start-flag nil (#$ . 71659)) #@58 Return non-nil if X is a character or an allowed symbol. (defalias 'wisent-ISVALID-VAR #[(x) "\205 9\205 \303!\304H >?\205 \n>?\207" [x wisent-reserved-capitals wisent-reserved-symbols symbol-name 0] 2 (#$ . 71908)]) (put 'wisent-ISVALID-VAR 'byte-optimizer 'byte-compile-inline-expand) #@58 Return non-nil if X is a character or an allowed symbol. (defalias 'wisent-ISVALID-TOKEN #[(x) "\303!\206! \211\205 9\205 \304!\305H >?\205 \n>?)\207" [x wisent-reserved-capitals wisent-reserved-symbols wisent-char-p symbol-name 0] 3 (#$ . 72208)]) (put 'wisent-ISVALID-TOKEN 'byte-optimizer 'byte-compile-inline-expand) #@81 Push a new SYMBOL in the list of tokens. Bypass checking if NOCHECK is non-nil. (defalias 'wisent-push-token #[(symbol &optional nocheck) "\2040 \306\n!\206' \n\211\205& \n9\205& \307\n!\310H >?\205& \n\f>?))\2040 \311\312 \"\210 >\203; \313\314 \"\207 \315 \211\316 \211 \236\211 \204_ C\211B\317A#\241.\210 \315 \211\320 \211 \236\211 \204\222 C\211B\317A#\241.\210 \211\321 \211 \236\211 \204\306 C\211B\317A#\241.\210T B\211\207" [nocheck symbol x wisent-reserved-capitals wisent-reserved-symbols token-list wisent-char-p symbol-name 0 error "Invalid terminal symbol: %S" message "*** duplicate terminal `%s' ignored" nil wisent--prec plist-put wisent--assoc wisent--item-no p value propname object ptable entry a ntokens n] 6 (#$ . 72544)]) #@87 Push a new SYMBOL in the list of nonterminals. Bypass checking if NOCHECK is non-nil. (defalias 'wisent-push-var #[(symbol &optional nocheck) "\2042 \211\205 \n9\205 \306\n!\307H >?\205 \n\f>?)\204' \310\311 \"\210 >\2032 \310\312 \"\210 \211\313 \211 \236\211 \204W C\211B\314A#\241.\210 T B\211\207" [nocheck symbol x wisent-reserved-capitals wisent-reserved-symbols var-list symbol-name 0 error "Invalid nonterminal symbol: %S" "Nonterminal `%s' already defined" wisent--item-no plist-put nvars n value propname object ptable entry] 6 (#$ . 73394)]) #@322 Parse nonterminal definitions in DEFS. Fill in each element of the global arrays RPREC, RCODE, RUSEFUL with respectively rule precedence level, semantic action code and usefulness flag. Return a list of rules of the form (LHS . RHS) where LHS and RHS are respectively the Left Hand Side and Right Hand Side of the rule. (defalias 'wisent-parse-nonterminals #[(defs) "\306\211\307\211\306\211\211\211\211\211\211\211\211\211\211\211\211\211\211 ! \" # $ % & ' ( )\307*\203\263*@)*A*)@()A'\307':\204\\ \310\311)\"\210'\2035 '@&'A'&@!&A#\307 \306$\nT!\203\f!@\"!A!\nT\"<\203\327 T\312\313\314 \"! \315 \316\"\210\317\" (\fD# \fT\306 B B \211\"C%B%\nT T\202\375 \"+>\204\375 \",>\204\375 \320\"!\203\367 \321\"\316\"\210\202\375 \310\322\"\"\210 T \"$B$\202~ \323#@!\205i#@\"#A#\"G\324U\203d\"\307H+>\203d\"\307H\211 -\325 . /\326/0\236A.\"+\203d\"\307H\211 -\327 . /\326/0\236A.\"+\202i\310\330\"\"\211 B\317#\203\211#A\203\203\310\331#\"\202\221#@\202\221 \307V\205\221\332 (\fD# \fT B($\237B%B% T\202\\ \333 T\316\"1\334\306\237B!\334\306 \237B!%\237.\207" [rprec rcode nitems nrules iactn @count nil 0 error "Invalid nonterminal definition syntax: %S" intern format "@%d" wisent-push-var t vector wisent-char-p wisent-push-token "Symbol `%s' is used, but is not defined as a token and has no rules" vectorp 1 wisent--prec plist-get wisent--item-no "Invalid rule precedence level syntax: %S" "Invalid semantic action syntax: %S" $1 make-vector vconcat @n semact plevel rhl items item rest rhs rules rule rlist nonterm def defs token-list var-list x propname object ptable ruseful] 16 (#$ . 73997)]) #@669 Parse GRAMMAR and build a suitable internal representation. Optional argument START-LIST defines the start symbols. GRAMMAR is a list of form: (TOKENS ASSOCS . NONTERMS) TOKENS is a list of terminal symbols (tokens). ASSOCS is nil or an alist of (ASSOC-TYPE . ASSOC-VALUE) elements describing the associativity of TOKENS. ASSOC-TYPE must be one of the `default-prec' `nonassoc', `left' or `right' symbols. When ASSOC-TYPE is `default-prec', ASSOC-VALUE must be nil or t (the default). Otherwise it is a list of tokens which must have been previously declared in TOKENS. NONTERMS is the list of non terminal definitions (see function `wisent-parse-nonterminals'). (defalias 'wisent-parse-grammar #[(grammar &optional start-list) ":\203\f G\306V\204 \307\310!\210\311\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211 ) * + , - . / 0 1 2 3 4 5\312\21167\3138\314\"\210\3139\314\"\210@\2110\203j \3130@!\2100A\2110\204[ A@0\3122\311\2111\314 0\203i0@\211)@.)A0A0.\315=\203\276 A\203\251 @\316>\204\251 \307\317 \"\210 @ 1\203\270 \320\321 \"\210\3141\202z .\322>\204\313 \307\323.\"\2102T2 \203z @+ A+\f>\203\350 \320\324+\"\210+:>\204\365 \313+!\210+\fB+2 ;\211 <\325; = >\211 ?@\236\211 A\204!?C\211A@B@A\326AA>=#\241.\210+. B\211 <\327B = >\211 ?@\236\211 A\204W?C\211A@B@A\326AA>=#\241.\210\202\320 AA0\3110\203\2510@)0A0):\204\213\307\330)\"\210)@:>\203\233\307\331)@\"\210\332)@!\210)\fB\202p\f\204\261\307\333!\210\f\237\311CD\204\310\f\211 <@@)/\202_E\204\323DA\204\347D@\211/\f\236\204_\307\334/\"\210\202_E\204_F/D\23700\203R0@*0A0*G>\204\307\334*\"\210*C\236\204\365\335\336\337*\"!\335\336\340*\"!\313 \314\"\210\332\n\314\"\210* BCBC\n *D\341DD\fB\nC\342D B\202\365\332/\314\"\210/ B\fB\343\f!-67\\H:\237:G0\311G0\203\3340@*0A0*GBG*6*\211 <\344 > ?\345?@\236A>\"+\\ I\211 <\344I = >\211 ?@\236\211 A\204\312?C\211A@B@A\326AA>=#\241.\210\202w9\211 <\344 > ?\345?@\236A>\"+J/\211 <\344 > ?\345?@\236A>\"+K\346:G\"L\347MT\311\"N\347MT\311\"O\347PT\311\"Q\3125\3504-\205\373N4-\211 <@@)\211 <\344 > ?\345?@\236A>\"+I\210O45I\210-\211 <@A)3\31123\203\2563@\211 <\344 > ?\345?@\236A>\"+\211,6W\203\230 \203\230,2Q5,I\2105T53A\2113\204pR4H\204\3362\203\336L2H\211 <\325 > ?\345?@\236A>\"+\203\336R42I\210Q54[I\2105T54T4-A\211-\2045\311.\207" [grammar ep-def ep-var ep-token defs tokens 2 error "Bad input grammar" nil 0 wisent-push-token t default-prec (t nil) "Invalid default-prec value: %S" message "*** redefining default-prec to %s" (left right nonassoc) "Invalid associativity syntax: %S" "*** redefining precedence of `%s'" wisent--prec plist-put wisent--assoc "Invalid nonterminal definition: %S" "Nonterminal `%s' already defined as token" wisent-push-var "No input grammar" "Start symbol `%s' has no rule" intern format "$%s" "$$%s" $2 $1 wisent-parse-nonterminals wisent--item-no plist-get vconcat make-vector 1 def var token item rules assoc start-var lst dpre pre rhs r i ntokens nvars wisent-eoi-term wisent-error-term token-list p x value propname object ptable entry a start-table start-list wisent-single-start-flag wisent-starts-nonterm var-list nsyms n error-token-number start-symbol tags nrules rlhs rrhs nitems ritem rprec] 19 (#$ . 75739)]) #@1655 Compile the LALR(1) GRAMMAR. GRAMMAR is a list (TOKENS ASSOCS . NONTERMS) where: - TOKENS is a list of terminal symbols (tokens). - ASSOCS is nil, or an alist of (ASSOC-TYPE . ASSOC-VALUE) elements describing the associativity of TOKENS. ASSOC-TYPE must be one of the `default-prec' `nonassoc', `left' or `right' symbols. When ASSOC-TYPE is `default-prec', ASSOC-VALUE must be nil or t (the default). Otherwise it is a list of tokens which must have been previously declared in TOKENS. - NONTERMS is a list of nonterminal definitions. Optional argument START-LIST specify the possible grammar start symbols. This is a list of nonterminals which must have been previously declared in GRAMMAR's NONTERMS form. By default, the start symbol is the first nonterminal defined. When START-LIST contains only one element, it is the start symbol. Otherwise, all elements are possible start symbols, unless `wisent-single-start-flag' is non-nil. In that case, the first element is the start symbol, and others are ignored. Return an automaton as a vector: [ACTIONS GOTOS STARTS FUNCTIONS] where: - ACTIONS is a state/token matrix telling the parser what to do at every state based on the current lookahead token. That is shift, reduce, accept or error. - GOTOS is a state/nonterminal matrix telling the parser the next state to go to after reducing with each rule. - STARTS is an alist which maps the allowed start nonterminal symbols to tokens that will be first shifted into the parser stack. - FUNCTIONS is an obarray of semantic action symbols. Each symbol's function definition is the semantic action lambda expression. (defalias 'wisent-compile-grammar #[(grammar &optional start-list) "\306!\203 \207\307\211\307\211 \307\211 \307\211 \307\211 \307\211 \307\211 \307\211 \307\211 \307\211 \307\211 \307\211 \307\211 !\307\211 \" #\307\211 $ %\307\211 & '\307\211 ( )\307\211 * +\307\211 , -\307\211 . /\307\211 0 1\307\211 2 3\307\211 4 5\307\211 6 7\307\211 8 9\307\211 : ;\307\211 < =\307\211 > ?\307\211 @ A\307\211 B C\307\211 D E\307\211 F G\307\211 H I\307\211 J K\307\211 L M\307\211 N O\307\211 P Q\307 R\310 S\311 \210\312T\313U\"\210\314 .L\207" [grammar F LA LAruleno accessing-symbol conflicts wisent-automaton-p nil 1000000 garbage-collect t wisent-parse-grammar wisent-parser-automaton consistent default-prec derives err-table fderives final-state first-reduction first-shift first-state firsts from-state goto-map includes itemset nitemset kernel-base kernel-end kernel-items last-reduction last-shift last-state lookaheads lookaheadset lookback maxrhs ngotos nitems nrules nshifts nstates nsyms ntokens nullable nvars rassoc redset reduction-table ritem rlhs rprec rrc-count rrc-total rrhs ruseful rcode ruleset rulesetsize shift-symbol shift-table shiftset src-count src-total start-table state-table tags this-state to-state tokensetsize varsetsize error-token-number start-symbol token-list var-list N P V V1 nuseless-nonterminals nuseless-productions ptable gc-cons-threshold wisent-new-log-flag start-list] 4 (#$ . 79206)]) (require 'bytecomp) #@131 Byte compile the `wisent-compile-grammar' FORM. Automatically called by the Emacs Lisp byte compiler as a `byte-compile' handler. (defalias 'wisent-byte-compile-grammar #[(form) "\301\302\303\304!!!!\207" [form byte-compile-form macroexpand-all wisent-automaton-lisp-form eval] 5 (#$ . 82355)]) (put 'wisent-compile-grammar 'byte-compile 'wisent-byte-compile-grammar) #@110 Return a Lisp form that produces AUTOMATON. See also `wisent-compile-grammar' for more details on AUTOMATON. (defalias 'wisent-automaton-lisp-form #[(automaton) "\304!\204 \305\306\304D\"\210\307\310!\311H\312\n\313BC\314\315\316\317 \"\210 )\320\211\321\322\323H\"B\324H\325\326HD\n\257C\"*BB\207" [automaton obv obn obcode wisent-automaton-p signal wrong-type-argument make-symbol "ob" 3 let ((make-vector 13 0)) append nil mapatoms #[(s) "\303\304\305! E\306KDE\nB\211\207" [s obn obcode fset intern symbol-name function] 4] vector mapcar #[(state) "\301\302\303\"B\207" [state list mapcar #[(tr) "@A 9\203+ \305\306 ! \"\203+ \307\n9\203 \310\nD\202! \n\305\306 !\fEE\202. \310D*\207" [tr a k obv obn intern-soft symbol-name cons quote] 5]] 4] 0 1 quote 2] 10 (#$ . 82731)]) (provide 'semantic/wisent/comp)