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/grammar.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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 (#$ . 759)]) (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 (#$ . 1181)]) #@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 (#$ . 1897)]) #@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 (#$ . 2608)]) #@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 (#$ . 2941)]) #@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 (#$ . 3370)]) #@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 (#$ . 3784)]) #@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 (#$ . 4203)]) #@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 (#$ . 4603)]) #@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 (#$ . 4988)]) #@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 (#$ . 5358)]) #@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 (#$ . 5781)]) #@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 (#$ . 6019)]) #@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 (#$ . 6287)]) #@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 (#$ . 6555)]) #@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 (#$ . 6825)]) #@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 (#$ . 7105)]) #@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 (#$ . 7415)]) #@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 (#$ . 7683)]) #@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 (#$ . 8280)]) #@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 (#$ . 8507)]) #@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) "\301\302\303!\"\207" [name add-to-list terms intern] 4] :rest plist-get 2] 7] #[(tag) "\211A@)\301>\207" [tag (token keyword)] 3] semantic-something-to-tag-table] 4 (#$ . 8918)]) (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 @\304\305\306\217)\203 \207\307\310\"\211@\n\236\211\203) \311 AA\"\202* *\207" [expr sym wisent--grammar-macros macro nil (byte-code "\301!\301\302!=\207" [sym indirect-function quote] 3) ((error)) mapcar wisent-grammar-expand-macros apply] 4 (#$ . 9515)]) #@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 (#$ . 9938)]) #@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 (#$ . 11043)]) #@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 (#$ . 11279)]) #@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 (#$ . 11583)]) #@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)]) (#$ . 12336)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [wisent-grammar-mode-hook variable-documentation put purecopy "Hook run when entering WY mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp wisent-grammar-mode-map definition-name wisent-grammar-mode] 5) (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 (#$ . 14098) nil]) (byte-code "\306\307\310BC\311\312#\210\313\314\312\"\210\210)\315\310\312\316\n!\317 \2046 \211\2046 \2055 \320\f\" \203` \204` \321N\203O \320\f \321N\"\211\2046 \211\322N\206Z \323N)\211\204: ,\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)) #@53 Generate Emacs' built-in Wisent-based parser files. (defalias 'wisent-make-parsers #[nil "\306\307!\210\310\311\312#\311\211\205\275 \n@\313\314\315\217\311 \316\f \"\211\203\264 A@\317 8\320\321\f\"\210\322\307\f\"\311 ) * + ,\323\324! -r-q\210\325\216\326*!\210eb\210,\203^ \327\330!\210\331,\261\210\327\332!\210\333\224)\327\334!\210)\333\225|\210)b\210.c\210\335 \336\261\210+\203\211 \337+\261\210\340c\210eb\210e\341 |\210\342\f\343\261\210\327\344!\210\345\f\311\211\211\307%\210\346 \210\347\311\211\350*!#\210.*\nA\211\204 \311*\207" [default-directory f --dolist-tail-- output-data packagename wisent-make-parsers--parser-file-name semantic-mode 1 directory-files nil "\\.wy\\'" err (byte-code "r\301!q\210\302 )\207" [f find-file-noselect semantic-grammar-create-package] 2) ((error (byte-code "\301\302\303!\"\210\304\207" [err message "%s" error-message-string nil] 4))) assoc 2 string-match ".*/\\(.*\\)" match-string generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\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/" "." "\n" "\n\n;;; Code:\n" line-end-position ";;; " " --- Generated parser support file" ";;; \\(.*\\) ends here" replace-match delete-trailing-whitespace write-region expand-file-name copyright-end filename additional-license additional-copyright #1# wisent-make-parsers--emacs-license] 7 (#$ . 22844) nil]) (provide 'semantic/wisent/grammar)