ikan Uploader :
Directory : /proc/thread-self/root/proc/self/root/usr/share/emacs/25.2/lisp/cedet/semantic/wisent/
Upload File : |
| Current File : //proc/thread-self/root/proc/self/root/usr/share/emacs/25.2/lisp/cedet/semantic/wisent/grammar.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\207" [require semantic semantic/grammar semantic/find semantic/lex semantic/wisent semantic/bovine] 2)
#@118 Given a $N placeholder symbol in SYMB, return a $regionN symbol.
Return nil if $N is not a valid placeholder symbol.
(defalias 'wisent-grammar-region-placeholder #[(symb) "\302!\303\304 \"\205 \305\306\307\310 \"P!)\207" [symb n symbol-name string-match "^[$]\\([1-9][0-9]*\\)$" intern "$region" match-string 1] 5 (#$ . 601)])
(put 'wisent-grammar-region-placeholder 'byte-optimizer 'byte-compile-inline-expand)
#@215 Expand call to EXPAND grammar macro.
Return the form to parse from within a nonterminal.
SYMB is a $I placeholder symbol that gives the bounds of the area to
parse.
NONTERM is the nonterminal symbol to start with.
(defalias 'wisent-grammar-EXPAND #[(symb nonterm) "\304\305!\235\204
\306\307\"\210 \310 !\311\312\n\"\205\" \313\314\315\316\n\"P!*\211\2036 \317\320 D\321 D\322DF\202; \306\323 #)\207" [nonterm symb n $ri semantic-grammar-tag-symbols start error "EXPANDFULL macro called with %s, but not used with %%start" symbol-name string-match "^[$]\\([1-9][0-9]*\\)$" intern "$region" match-string 1 semantic-bovinate-from-nonterminal car cdr quote "Invalid form (EXPAND %s %s)"] 6 (#$ . 1023)])
#@204 Expand call to EXPANDFULL grammar macro.
Return the form to recursively parse an area.
SYMB is a $I placeholder symbol that gives the bounds of the area.
NONTERM is the nonterminal symbol to start with.
(defalias 'wisent-grammar-EXPANDFULL #[(symb nonterm) "\304\305!\235\204
\306\307\"\210 \310 !\311\312\n\"\205\" \313\314\315\316\n\"P!*\211\203: \317\320 D\321 D\322D\323BBBB\202? \306\324 #)\207" [nonterm symb n $ri semantic-grammar-tag-symbols start error "EXPANDFULL macro called with %s, but not used with %%start" symbol-name string-match "^[$]\\([1-9][0-9]*\\)$" intern "$region" match-string 1 semantic-parse-region car cdr quote (1) "Invalid form (EXPANDFULL %s %s)"] 6 (#$ . 1739)])
#@174 Expand call to TAG grammar macro.
Return the form to create a generic semantic tag.
See the function `semantic-tag' for the meaning of arguments NAME,
CLASS and ATTRIBUTES.
(defalias 'wisent-grammar-TAG #[(name class &rest attributes) "\303\304 \nBBBD\207" [name class attributes wisent-raw-tag semantic-tag] 5 (#$ . 2450)])
#@220 Expand call to VARIABLE-TAG grammar macro.
Return the form to create a semantic tag of class variable.
See the function `semantic-tag-new-variable' for the meaning of
arguments NAME, TYPE, DEFAULT-VALUE and ATTRIBUTES.
(defalias 'wisent-grammar-VARIABLE-TAG #[(name type default-value &rest attributes) "\304\305 \n BBBBD\207" [name type default-value attributes wisent-raw-tag semantic-tag-new-variable] 6 (#$ . 2783)])
#@215 Expand call to FUNCTION-TAG grammar macro.
Return the form to create a semantic tag of class function.
See the function `semantic-tag-new-function' for the meaning of
arguments NAME, TYPE, ARG-LIST and ATTRIBUTES.
(defalias 'wisent-grammar-FUNCTION-TAG #[(name type arg-list &rest attributes) "\304\305 \n BBBBD\207" [name type arg-list attributes wisent-raw-tag semantic-tag-new-function] 6 (#$ . 3212)])
#@211 Expand call to TYPE-TAG grammar macro.
Return the form to create a semantic tag of class type.
See the function `semantic-tag-new-type' for the meaning of arguments
NAME, TYPE, MEMBERS, PARENTS and ATTRIBUTES.
(defalias 'wisent-grammar-TYPE-TAG #[(name type members parents &rest attributes) "\305\306 \n \fBBBBBD\207" [name type members parents attributes wisent-raw-tag semantic-tag-new-type] 7 (#$ . 3626)])
#@209 Expand call to INCLUDE-TAG grammar macro.
Return the form to create a semantic tag of class include.
See the function `semantic-tag-new-include' for the meaning of
arguments NAME, SYSTEM-FLAG and ATTRIBUTES.
(defalias 'wisent-grammar-INCLUDE-TAG #[(name system-flag &rest attributes) "\303\304 \nBBBD\207" [name system-flag attributes wisent-raw-tag semantic-tag-new-include] 5 (#$ . 4045)])
#@204 Expand call to PACKAGE-TAG grammar macro.
Return the form to create a semantic tag of class package.
See the function `semantic-tag-new-package' for the meaning of
arguments NAME, DETAIL and ATTRIBUTES.
(defalias 'wisent-grammar-PACKAGE-TAG #[(name detail &rest attributes) "\303\304 \nBBBD\207" [name detail attributes wisent-raw-tag semantic-tag-new-package] 5 (#$ . 4445)])
#@195 Expand call to CODE-TAG grammar macro.
Return the form to create a semantic tag of class code.
See the function `semantic-tag-new-code' for the meaning of arguments
NAME, DETAIL and ATTRIBUTES.
(defalias 'wisent-grammar-CODE-TAG #[(name detail &rest attributes) "\303\304 \nBBBD\207" [name detail attributes wisent-raw-tag semantic-tag-new-code] 5 (#$ . 4830)])
#@214 Expand call to ALIAS-TAG grammar macro.
Return the form to create a semantic tag of class alias.
See the function `semantic-tag-new-alias' for the meaning of arguments
NAME, ALIASCLASS, DEFINITION and ATTRIBUTES.
(defalias 'wisent-grammar-ALIAS-TAG #[(name aliasclass definition &rest attributes) "\304\305 \n BBBBD\207" [name aliasclass definition attributes wisent-raw-tag semantic-tag-new-alias] 6 (#$ . 5200)])
#@129 Expand call to EXPANDTAG grammar macro.
Return the form to produce a list of cooked tags from raw form of
Semantic tag RAW-TAG.
(defalias 'wisent-grammar-EXPANDTAG #[(raw-tag) "\301D\207" [raw-tag wisent-cook-tag] 2 (#$ . 5623)])
#@148 Expand call to AST-ADD grammar macro.
Return the form to update the abstract syntax tree AST with NODES.
See also the function `semantic-ast-add'.
(defalias 'wisent-grammar-AST-ADD #[(ast &rest nodes) "\302 BB\207" [ast nodes semantic-ast-add] 3 (#$ . 5861)])
#@148 Expand call to AST-PUT grammar macro.
Return the form to update the abstract syntax tree AST with NODES.
See also the function `semantic-ast-put'.
(defalias 'wisent-grammar-AST-PUT #[(ast &rest nodes) "\302 BB\207" [ast nodes semantic-ast-put] 3 (#$ . 6129)])
#@159 Expand call to AST-GET grammar macro.
Return the form to get, from the abstract syntax tree AST, the value
of NODE.
See also the function `semantic-ast-get'.
(defalias 'wisent-grammar-AST-GET #[(ast node) "\302 E\207" [ast node semantic-ast-get] 3 (#$ . 6397)])
#@167 Expand call to AST-GET1 grammar macro.
Return the form to get, from the abstract syntax tree AST, the first
value of NODE.
See also the function `semantic-ast-get1'.
(defalias 'wisent-grammar-AST-GET1 #[(ast node) "\302 E\207" [ast node semantic-ast-get1] 3 (#$ . 6667)])
#@185 Expand call to AST-GET-STRING grammar macro.
Return the form to get, from the abstract syntax tree AST, the value
of NODE as a string.
See also the function `semantic-ast-get-string'.
(defalias 'wisent-grammar-AST-GET-STRING #[(ast node) "\302 E\207" [ast node semantic-ast-get-string] 3 (#$ . 6947)])
#@151 Expand call to AST-MERGE grammar macro.
Return the form to merge the abstract syntax trees AST1 and AST2.
See also the function `semantic-ast-merge'.
(defalias 'wisent-grammar-AST-MERGE #[(ast1 ast2) "\302 E\207" [ast1 ast2 semantic-ast-merge] 3 (#$ . 7257)])
#@263 Expand call to SKIP-BLOCK grammar macro.
Return the form to skip a parenthesized block.
Optional argument SYMB is a $I placeholder symbol that gives the
bounds of the block to skip. By default, skip the block at `$1'.
See also the function `wisent-skip-block'.
(defalias 'wisent-grammar-SKIP-BLOCK #[(&optional symb) "\303 \203& \304 !\305\306\n\"\205 \307\310\311\312\n\"P!*\211\204& \313\314 \"\210\315)D\207" [$ri symb n nil symbol-name string-match "^[$]\\([1-9][0-9]*\\)$" intern "$region" match-string 1 error "Invalid form (SKIP-BLOCK %s)" wisent-skip-block] 5 (#$ . 7525)])
#@130 Expand call to SKIP-TOKEN grammar macro.
Return the form to skip the lookahead token.
See also the function `wisent-skip-token'.
(defalias 'wisent-grammar-SKIP-TOKEN #[nil "\300\207" [(wisent-skip-token)] 1 (#$ . 8122)])
#@56 Return associativity and precedence level definitions.
(defalias 'wisent-grammar-assocs #[nil "\303\304\305p!\306\211\203$ @\211A@)\307=\203 @B A\211\204\f \237*\"\207" [result tags tag mapcar #[(tag) "\302\211@)!\303\304\305\306\3078) \"*\"B\207" [tag attribute intern mapcar semantic-grammar-item-value :value plist-get 2] 7] semantic-something-to-tag-table nil assoc] 5 (#$ . 8349)])
#@99 Return the list of terminal symbols.
Keep order of declaration in the WY file without duplicates.
(defalias 'wisent-grammar-terminals #[nil "\305\306\307\310p\311 !\305\211 \203% \n\f@!\203 \f@ B\fA\211\204 \237,\"\210\237)\207" [terms table predicate result tags nil mapc #[(tag) "\302\303\211@)\304\305\3068) \"*B\"\207" [tag attribute mapcar #[(name) "\303!\211\n\235\203 \n\202 \nB\211)\207" [name #1=#:x terms intern] 3] :rest plist-get 2] 7] #[(tag) "\211A@)\301>\207" [tag (token keyword)] 3] semantic-something-to-tag-table] 4 (#$ . 8760)])
(defvar wisent--grammar-macros nil)
#@92 Expand expression EXPR into a form without grammar macros.
Return the expanded expression.
(defalias 'wisent-grammar-expand-macros #[(expr) ":\203 @\3041 \305 !\305\306!=0\202 \210\307)\203 \207\310\311\"\211@\n\236\211\2036 \312 AA\"\2027 *\207" [expr sym wisent--grammar-macros macro (error) indirect-function quote nil mapcar wisent-grammar-expand-macros apply] 4 (#$ . 9377)])
#@50 Return the list form of nonterminal definitions.
(defalias 'wisent-grammar-nonterminals #[nil "\306p!\307\211\203\" @\211A@)\310=\203 @B A\211\204\n \237*\311 \307\211\211\211\211\211\211\211\211 \211 \203d\312 @! \307 \203I @\313 \314\n\315\n8) \"* @\316 \314\n\315\n8) \"* @\317 \314\n\315\n8) \"*\307\203\345 \203\340 @A:\203\267 \320\321@!!\202\325 !\322\"!\"\203\320 \321\323!\324\325OP!\202\324 \326!!)\211B\202\230 \237 \203 \327 !\322\"!\"\203\321\323!\324\325OP!\202\326!!)!
\203\320\321
!!
\203* \203# \fE\2028\fD\2028 \2035 D\2028C\211B A\211 \204V \326 @\211@)!\237B B A\211 \204G \237. \207" [result tags tag prec sexp actn semantic-something-to-tag-table nil nonterminal semantic-grammar-macros semantic-tag-components :value plist-get 2 :prec :expr wisent-grammar-expand-macros read string-match "?" 1 -1 intern vector elem elems rule rules nterms rltags wisent--grammar-macros nttags attribute item semantic-grammar-lex-c-char-re] 12 (#$ . 9777)])
#@35 Return Elisp form of the grammar.
(defalias 'wisent-grammar-grammar #[nil "\303 \304 \305 \n +BB\207" [terminals nonterminals assocs wisent-grammar-terminals wisent-grammar-nonterminals wisent-grammar-assocs] 3 (#$ . 10882)])
#@39 Return the value of the parser table.
(defalias 'wisent-grammar-parsetable-builder #[nil "\300\301\302\303\304 D\303\305\306!DEE\207" [progn (eval-when-compile (require 'semantic/wisent/comp)) wisent-compile-grammar quote wisent-grammar-grammar semantic-grammar-tag-symbols start] 7 (#$ . 11118)])
#@31 Return the parser setup code.
(defalias 'wisent-grammar-setupcode-builder #[nil "\301\302\303P\304 \305P\306P%\207" [semantic--grammar-package format "(semantic-install-function-overrides\n '((parse-stream . wisent-parse-stream)))\n (setq semantic-parser-name \"LALR\"\n semantic--parse-table %s\n semantic-debug-parser-source %S\n semantic-flex-keywords-obarray %s\n semantic-lex-types-obarray %s)\n ;; Collect unmatched syntax lexical tokens\n (semantic-make-local-hook 'wisent-discarding-token-functions)\n (add-hook 'wisent-discarding-token-functions\n 'wisent-collect-unmatched-syntax nil t)" "--parse-table" buffer-name "--keyword-table" "--token-table"] 7 (#$ . 11422)])
#@84 WY mode specific grammar menu.
Menu items are appended to the common grammar menu.
(defvar wisent-grammar-menu '("WY Grammar" ["LALR Compiler Verbose" wisent-toggle-verbose-flag :style toggle :active (boundp 'wisent-verbose-flag) :selected (and (boundp 'wisent-verbose-flag) wisent-verbose-flag)]) (#$ . 12175))
#@159 Hook run after entering WY mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar wisent-grammar-mode-hook nil (#$ . 12494))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp wisent-grammar-mode-map put definition-name wisent-grammar-mode] 4)
(defvar wisent-grammar-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [wisent-grammar-mode-map variable-documentation put purecopy "Keymap for `wisent-grammar-mode'." boundp wisent-grammar-mode-syntax-table definition-name wisent-grammar-mode] 5)
(defvar wisent-grammar-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [wisent-grammar-mode-syntax-table variable-documentation put purecopy "Syntax table for `wisent-grammar-mode'." wisent-grammar-mode-abbrev-table definition-name wisent-grammar-mode] 5)
(defvar wisent-grammar-mode-abbrev-table (progn (define-abbrev-table 'wisent-grammar-mode-abbrev-table nil) wisent-grammar-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [wisent-grammar-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `wisent-grammar-mode'." wisent-grammar-mode derived-mode-parent semantic-grammar-mode] 5)
#@244 Major mode for editing Wisent grammars.
In addition to any hooks its parent mode `semantic-grammar-mode' might have run,
this mode runs the hook `wisent-grammar-mode-hook', as the final step
during initialization.
\{wisent-grammar-mode-map}
(defalias 'wisent-grammar-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036
\321 =\203< \322\f\323 \"\210)\324%\325\"\204V %&=\204V \326%\325&C#\210\327 !\210\330\f!\210%&\331\332!\204\235 \333\334!\210\335\332\317 \336'$\210(A\211 )\203\234 \337\334\340#\210)\203\234 \337\334)@#\210)A\211)\204\212 )\341\342!\210)\343\344!\207" [delay-mode-hooks major-mode mode-name wisent-grammar-mode-map wisent-grammar-mode-syntax-table parent make-local-variable t semantic-grammar-mode wisent-grammar-mode "WY" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table boundp emacs-lisp-mode-menu (lambda (#1=#:def-tmp-var) (defvar emacs-lisp-mode-menu #1# #2="Grammar Menu")) nil easy-menu-do-define #2# easy-menu-add-item "--" semantic-install-function-overrides ((grammar-parsetable-builder . wisent-grammar-parsetable-builder) (grammar-setupcode-builder . wisent-grammar-setupcode-builder)) run-mode-hooks wisent-grammar-mode-hook wisent-grammar-mode-abbrev-table local-abbrev-table semantic-grammar-menu wisent-grammar-menu #3=#:items] 6 (#$ . 13895) nil])
(byte-code "\306\307\310BC\311\312#\210\313\314\312\"\210)\315\310\312\316\n!\317 \2044
\211\2044 \2053 \320\f\" \203^ \204^ \321N\203M \320\f \321N\"\211\2044 \211\322N\206X \323N)\211\2048 ,\324\325#\207" [#1=#:tmp0 mode symbol bind name mode-local-active-mode ((ASSOC . semantic-grammar-ASSOC) (EXPAND . wisent-grammar-EXPAND) (EXPANDFULL . wisent-grammar-EXPANDFULL) (TAG . wisent-grammar-TAG) (VARIABLE-TAG . wisent-grammar-VARIABLE-TAG) (FUNCTION-TAG . wisent-grammar-FUNCTION-TAG) (TYPE-TAG . wisent-grammar-TYPE-TAG) (INCLUDE-TAG . wisent-grammar-INCLUDE-TAG) (PACKAGE-TAG . wisent-grammar-PACKAGE-TAG) (EXPANDTAG . wisent-grammar-EXPANDTAG) (CODE-TAG . wisent-grammar-CODE-TAG) (ALIAS-TAG . wisent-grammar-ALIAS-TAG) (AST-ADD . wisent-grammar-AST-ADD) (AST-PUT . wisent-grammar-AST-PUT) (AST-GET . wisent-grammar-AST-GET) (AST-GET1 . wisent-grammar-AST-GET1) (AST-GET-STRING . wisent-grammar-AST-GET-STRING) (AST-MERGE . wisent-grammar-AST-MERGE) (SKIP-BLOCK . wisent-grammar-SKIP-BLOCK) (SKIP-TOKEN . wisent-grammar-SKIP-TOKEN)) mode-local-bind semantic-grammar-macros (mode-variable-flag t) wisent-grammar-mode mode-local-map-mode-buffers #[nil "\302\301!\210\211\207" [#1# semantic-grammar-macros make-local-variable] 2] put symbol-name nil intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent variable-documentation "Semantic grammar macros used in wisent grammars." major-mode] 5)
(defvar wisent-make-parsers--emacs-license ";; This file is part of GNU Emacs.\n\n;; GNU Emacs is free software: you can redistribute it and/or modify\n;; it under the terms of the GNU General Public License as published by\n;; the Free Software Foundation, either version 3 of the License, or\n;; (at your option) any later version.\n\n;; GNU Emacs is distributed in the hope that it will be useful,\n;; but WITHOUT ANY WARRANTY; without even the implied warranty of\n;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n;; GNU General Public License for more details.\n\n;; You should have received a copy of the GNU General Public License\n;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.")
(defvar wisent-make-parsers--python-license ";; It is derived in part from the Python grammar, used under the\n;; following license:\n;;\n;; PYTHON SOFTWARE FOUNDATION LICENSE VERSION 2\n;; --------------------------------------------\n;; 1. This LICENSE AGREEMENT is between the Python Software Foundation\n;; (\"PSF\"), and the Individual or Organization (\"Licensee\") accessing\n;; and otherwise using this software (\"Python\") in source or binary\n;; form and its associated documentation.\n;;\n;; 2. Subject to the terms and conditions of this License Agreement,\n;; PSF hereby grants Licensee a nonexclusive, royalty-free, world-wide\n;; license to reproduce, analyze, test, perform and/or display\n;; publicly, prepare derivative works, distribute, and otherwise use\n;; Python alone or in any derivative version, provided, however, that\n;; PSF's License Agreement and PSF's notice of copyright, i.e.,\n;; \"Copyright (c) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,\n;; 2009, 2010 Python Software Foundation; All Rights Reserved\" are\n;; retained in Python alone or in any derivative version prepared by\n;; Licensee.\n;;\n;; 3. In the event Licensee prepares a derivative work that is based\n;; on or incorporates Python or any part thereof, and wants to make\n;; the derivative work available to others as provided herein, then\n;; Licensee hereby agrees to include in any such work a brief summary\n;; of the changes made to Python.\n;;\n;; 4. PSF is making Python available to Licensee on an \"AS IS\"\n;; basis. PSF MAKES NO REPRESENTATIONS OR WARRANTIES, EXPRESS OR\n;; IMPLIED. BY WAY OF EXAMPLE, BUT NOT LIMITATION, PSF MAKES NO AND\n;; DISCLAIMS ANY REPRESENTATION OR WARRANTY OF MERCHANTABILITY OR FITNESS\n;; FOR ANY PARTICULAR PURPOSE OR THAT THE USE OF PYTHON WILL NOT\n;; INFRINGE ANY THIRD PARTY RIGHTS.\n;;\n;; 5. PSF SHALL NOT BE LIABLE TO LICENSEE OR ANY OTHER USERS OF PYTHON\n;; FOR ANY INCIDENTAL, SPECIAL, OR CONSEQUENTIAL DAMAGES OR LOSS AS A\n;; RESULT OF MODIFYING, DISTRIBUTING, OR OTHERWISE USING PYTHON, OR\n;; ANY DERIVATIVE THEREOF, EVEN IF ADVISED OF THE POSSIBILITY THEREOF.\n;;\n;; 6. This License Agreement will automatically terminate upon a\n;; material breach of its terms and conditions.\n;;\n;; 7. Nothing in this License Agreement shall be deemed to create any\n;; relationship of agency, partnership, or joint venture between PSF\n;; and Licensee. This License Agreement does not grant permission to\n;; use PSF trademarks or trade name in a trademark sense to endorse or\n;; promote products or services of Licensee, or any third party.\n;;\n;; 8. By copying, installing or otherwise using Python, Licensee\n;; agrees to be bound by the terms and conditions of this License\n;; Agreement.")
(defvar wisent-make-parsers--ecmascript-license "\n;; It is derived from the grammar in the ECMAScript Language\n;; Specification published at\n;;\n;; http://www.ecma-international.org/publications/standards/Ecma-262.htm\n;;\n;; and redistributed under the following license:\n;;\n;; Redistribution and use in source and binary forms, with or without\n;; modification, are permitted provided that the following conditions\n;; are met:\n;;\n;; 1. Redistributions of source code must retain the above copyright\n;; notice, this list of conditions and the following disclaimer.\n;;\n;; 2. Redistributions in binary form must reproduce the above\n;; copyright notice, this list of conditions and the following\n;; disclaimer in the documentation and/or other materials provided\n;; with the distribution.\n;;\n;; 3. Neither the name of the authors nor Ecma International may be\n;; used to endorse or promote products derived from this software\n;; without specific prior written permission. THIS SOFTWARE IS\n;; PROVIDED BY THE ECMA INTERNATIONAL \"AS IS\" AND ANY EXPRESS OR\n;; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED\n;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE\n;; ARE DISCLAIMED. IN NO EVENT SHALL ECMA INTERNATIONAL BE LIABLE FOR\n;; ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR\n;; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT\n;; OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR\n;; BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF\n;; LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT\n;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE\n;; USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH\n;; DAMAGE.")
(defvar wisent-make-parsers--parser-file-name (byte-code "\302\303\304\305E\306\307\310 E\257\207" [wisent-make-parsers--ecmascript-license wisent-make-parsers--python-license ("semantic/grammar-wy.el") ("srecode/srt-wy.el") "semantic/wisent/js-wy.el" "Copyright (C) 1998-2011 Ecma International." ("semantic/wisent/javat-wy.el") "semantic/wisent/python-wy.el" "Copyright (c) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,\n;; 2009, 2010 Python Software Foundation; All Rights Reserved"] 7))
(defalias 'wisent--make-parser-1 #[(infile &optional outdir) "\203\n \306\307!!\3101# r\311 !q\210\203 \312\313\314\")0\202- \315\316\317 !\"\210)\313\313 \320
-\"\211\205\333 \fA@\321\f8\307\322\323
\"\210\324\325
\"\"\313 . / 0 1/\326\327\330!! 2 3\331\216r2q\210\332/!\210eb\2101\203~ \333\334!\210\3351\261\210\333\336!\210\337\224.\333\340!\210.\337\225|\210.b\2104c\210\341\342 !\343\261\2100\203\253 \3440\261\210\345c\210eb\210e\346 |\210\347
\350\261\210\333\351!\210\352
\313\211\211\325%\210\353 )r2q\210\354\313\2113\313\337%\210.*\207" [outdir infile default-directory err output-data packagename file-name-directory expand-file-name (error) find-file-noselect semantic-grammar-create-package nil t message "%s" error-message-string assoc 2 string-match ".*/\\(.*\\)" match-string 1 get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] insert-file-contents re-search-forward "Copyright (C).*$" "\n;; " "^;; Author:" 0 "^;;; Code:\n" "\n\n;;; Commentary:\n;;\n;; This file was generated from admin/grammars/" file-name-nondirectory "." "\n" "\n\n;;; Code:\n" line-end-position ";;; " " --- Generated parser support file" ";;; \\(.*\\) ends here" replace-match delete-trailing-whitespace write-region wisent-make-parsers--parser-file-name copyright-end filename additional-license additional-copyright #1# #2=#:temp-file wisent-make-parsers--emacs-license] 7])
#@53 Generate Emacs' built-in Wisent-based parser files.
(defalias 'wisent-make-parsers #[nil "\303\304!\210\305\306\307#\306\211\205 \n@\310 !\210\nA\211\204 \306*\207" [default-directory f --dolist-tail-- semantic-mode 1 directory-files nil "\\.wy\\'" wisent--make-parser-1] 5 (#$ . 24120) nil])
#@281 Generate a Wisent parser from input INFILE, writing to OUTDIR.
This is mainly intended for use in batch mode:
emacs -batch -l semantic/wisent/grammar -f wisent-make-parser-batch \
[-dir output-dir | -o output-file] file.by
If -o is supplied, only the directory part is used.
(defalias 'wisent-batch-make-parser #[(&optional infile outdir) "\305\306!\210\203> \204> \307 \203= \211A\242\211\310\230\203' \211A\242\202 \n\311\230\2038 \312 \211A\242!\202 \n\202 ) \204F \313\314!\210\315 !\204Q \313\316 \"\210\317 \f\"\207" [noninteractive infile arg command-line-args-left outdir semantic-mode 1 nil "-dir" "-o" file-name-directory error "No input file specified" file-readable-p "Input file `%s' not readable" wisent--make-parser-1] 4 (#$ . 24427)])
(provide 'semantic/wisent/grammar)
Kontol Shell Bypass