Add grammar files for grammar-wy.el and wrt-wy.el.

Regenerate the relevant CEDET parsers.

* admin/grammars/bovine-grammar.el:
* admin/grammars/wisent-grammar.el: Add scripts for generating the parsers.

1 files changed, 252 insertions, 253 deletions

diff --git a/lisp/cedet/semantic/grammar-wy.el b/lisp/cedet/semantic/grammar-wy.el
index acaad49f6af..879fdd92331 100644
--- a/lisp/cedet/semantic/grammar-wy.el
+++ b/lisp/cedet/semantic/grammar-wy.el
@@ -22,8 +22,7 @@
 
 ;;; Commentary:
 ;;
-;; This file is generated from the grammar file semantic-grammar.wy in
-;; the upstream CEDET repository.
+;; This file was generated from admin/grammars/grammar.wy.
 
 ;;; Code:
 
@@ -113,296 +112,296 @@
      '((DEFAULT-PREC NO-DEFAULT-PREC KEYWORD LANGUAGEMODE LEFT NONASSOC PACKAGE PREC PUT QUOTEMODE RIGHT SCOPESTART START TOKEN TYPE USE-MACROS STRING SYMBOL PERCENT_PERCENT CHARACTER PREFIXED_LIST SEXP PROLOGUE EPILOGUE PAREN_BLOCK BRACE_BLOCK LPAREN RPAREN LBRACE RBRACE COLON SEMI OR LT GT)
        nil
        (grammar
-        ((prologue))
-        ((epilogue))
-        ((declaration))
-        ((nonterminal))
-        ((PERCENT_PERCENT)))
+	((prologue))
+	((epilogue))
+	((declaration))
+	((nonterminal))
+	((PERCENT_PERCENT)))
        (prologue
-        ((PROLOGUE)
-         (wisent-raw-tag
-          (semantic-tag-new-code "prologue" nil))))
+	((PROLOGUE)
+	 (wisent-raw-tag
+	  (semantic-tag-new-code "prologue" nil))))
        (epilogue
-        ((EPILOGUE)
-         (wisent-raw-tag
-          (semantic-tag-new-code "epilogue" nil))))
+	((EPILOGUE)
+	 (wisent-raw-tag
+	  (semantic-tag-new-code "epilogue" nil))))
        (declaration
-        ((decl)
-         (eval $1)))
+	((decl)
+	 (eval $1)))
        (decl
-        ((default_prec_decl))
-        ((no_default_prec_decl))
-        ((languagemode_decl))
-        ((package_decl))
-        ((precedence_decl))
-        ((put_decl))
-        ((quotemode_decl))
-        ((scopestart_decl))
-        ((start_decl))
-        ((keyword_decl))
-        ((token_decl))
-        ((type_decl))
-        ((use_macros_decl)))
+	((default_prec_decl))
+	((no_default_prec_decl))
+	((languagemode_decl))
+	((package_decl))
+	((precedence_decl))
+	((put_decl))
+	((quotemode_decl))
+	((scopestart_decl))
+	((start_decl))
+	((keyword_decl))
+	((token_decl))
+	((type_decl))
+	((use_macros_decl)))
        (default_prec_decl
-         ((DEFAULT-PREC)
-          `(wisent-raw-tag
-            (semantic-tag "default-prec" 'assoc :value
-                          '("t")))))
+	 ((DEFAULT-PREC)
+	  `(wisent-raw-tag
+	    (semantic-tag "default-prec" 'assoc :value
+			  '("t")))))
        (no_default_prec_decl
-        ((NO-DEFAULT-PREC)
-         `(wisent-raw-tag
-           (semantic-tag "default-prec" 'assoc :value
-                         '("nil")))))
+	((NO-DEFAULT-PREC)
+	 `(wisent-raw-tag
+	   (semantic-tag "default-prec" 'assoc :value
+			 '("nil")))))
        (languagemode_decl
-        ((LANGUAGEMODE symbols)
-         `(wisent-raw-tag
-           (semantic-tag ',(car $2)
-                         'languagemode :rest ',(cdr $2)))))
+	((LANGUAGEMODE symbols)
+	 `(wisent-raw-tag
+	   (semantic-tag ',(car $2)
+			 'languagemode :rest ',(cdr $2)))))
        (package_decl
-        ((PACKAGE SYMBOL)
-         `(wisent-raw-tag
-           (semantic-tag-new-package ',$2 nil))))
+	((PACKAGE SYMBOL)
+	 `(wisent-raw-tag
+	   (semantic-tag-new-package ',$2 nil))))
        (precedence_decl
-        ((associativity token_type_opt items)
-         `(wisent-raw-tag
-           (semantic-tag ',$1 'assoc :type ',$2 :value ',$3))))
+	((associativity token_type_opt items)
+	 `(wisent-raw-tag
+	   (semantic-tag ',$1 'assoc :type ',$2 :value ',$3))))
        (associativity
-        ((LEFT)
-         (progn "left"))
-        ((RIGHT)
-         (progn "right"))
-        ((NONASSOC)
-         (progn "nonassoc")))
+	((LEFT)
+	 (progn "left"))
+	((RIGHT)
+	 (progn "right"))
+	((NONASSOC)
+	 (progn "nonassoc")))
        (put_decl
-        ((PUT put_name put_value)
-         `(wisent-raw-tag
-           (semantic-tag ',$2 'put :value ',(list $3))))
-        ((PUT put_name put_value_list)
-         `(wisent-raw-tag
-           (semantic-tag ',$2 'put :value ',$3)))
-        ((PUT put_name_list put_value)
-         `(wisent-raw-tag
-           (semantic-tag ',(car $2)
-                         'put :rest ',(cdr $2)
-                         :value ',(list $3))))
-        ((PUT put_name_list put_value_list)
-         `(wisent-raw-tag
-           (semantic-tag ',(car $2)
-                         'put :rest ',(cdr $2)
-                         :value ',$3))))
+	((PUT put_name put_value)
+	 `(wisent-raw-tag
+	   (semantic-tag ',$2 'put :value ',(list $3))))
+	((PUT put_name put_value_list)
+	 `(wisent-raw-tag
+	   (semantic-tag ',$2 'put :value ',$3)))
+	((PUT put_name_list put_value)
+	 `(wisent-raw-tag
+	   (semantic-tag ',(car $2)
+			 'put :rest ',(cdr $2)
+			 :value ',(list $3))))
+	((PUT put_name_list put_value_list)
+	 `(wisent-raw-tag
+	   (semantic-tag ',(car $2)
+			 'put :rest ',(cdr $2)
+			 :value ',$3))))
        (put_name_list
-        ((BRACE_BLOCK)
-         (mapcar 'semantic-tag-name
-                 (semantic-parse-region
-                  (car $region1)
-                  (cdr $region1)
-                  'put_names 1))))
+	((BRACE_BLOCK)
+	 (mapcar 'semantic-tag-name
+		 (semantic-parse-region
+		  (car $region1)
+		  (cdr $region1)
+		  'put_names 1))))
        (put_names
-        ((LBRACE)
-         nil)
-        ((RBRACE)
-         nil)
-        ((put_name)
-         (wisent-raw-tag
-          (semantic-tag $1 'put-name))))
+	((LBRACE)
+	 nil)
+	((RBRACE)
+	 nil)
+	((put_name)
+	 (wisent-raw-tag
+	  (semantic-tag $1 'put-name))))
        (put_name
-        ((SYMBOL))
-        ((token_type)))
+	((SYMBOL))
+	((token_type)))
        (put_value_list
-        ((BRACE_BLOCK)
-         (mapcar 'semantic-tag-code-detail
-                 (semantic-parse-region
-                  (car $region1)
-                  (cdr $region1)
-                  'put_values 1))))
+	((BRACE_BLOCK)
+	 (mapcar 'semantic-tag-code-detail
+		 (semantic-parse-region
+		  (car $region1)
+		  (cdr $region1)
+		  'put_values 1))))
        (put_values
-        ((LBRACE)
-         nil)
-        ((RBRACE)
-         nil)
-        ((put_value)
-         (wisent-raw-tag
-          (semantic-tag-new-code "put-value" $1))))
+	((LBRACE)
+	 nil)
+	((RBRACE)
+	 nil)
+	((put_value)
+	 (wisent-raw-tag
+	  (semantic-tag-new-code "put-value" $1))))
        (put_value
-        ((SYMBOL any_value)
-         (cons $1 $2)))
+	((SYMBOL any_value)
+	 (cons $1 $2)))
        (scopestart_decl
-        ((SCOPESTART SYMBOL)
-         `(wisent-raw-tag
-           (semantic-tag ',$2 'scopestart))))
+	((SCOPESTART SYMBOL)
+	 `(wisent-raw-tag
+	   (semantic-tag ',$2 'scopestart))))
        (quotemode_decl
-        ((QUOTEMODE SYMBOL)
-         `(wisent-raw-tag
-           (semantic-tag ',$2 'quotemode))))
+	((QUOTEMODE SYMBOL)
+	 `(wisent-raw-tag
+	   (semantic-tag ',$2 'quotemode))))
        (start_decl
-        ((START symbols)
-         `(wisent-raw-tag
-           (semantic-tag ',(car $2)
-                         'start :rest ',(cdr $2)))))
+	((START symbols)
+	 `(wisent-raw-tag
+	   (semantic-tag ',(car $2)
+			 'start :rest ',(cdr $2)))))
        (keyword_decl
-        ((KEYWORD SYMBOL string_value)
-         `(wisent-raw-tag
-           (semantic-tag ',$2 'keyword :value ',$3))))
+	((KEYWORD SYMBOL string_value)
+	 `(wisent-raw-tag
+	   (semantic-tag ',$2 'keyword :value ',$3))))
        (token_decl
-        ((TOKEN token_type_opt SYMBOL string_value)
-         `(wisent-raw-tag
-           (semantic-tag ',$3 ',(if $2 'token 'keyword)
-                         :type ',$2 :value ',$4)))
-        ((TOKEN token_type_opt symbols)
-         `(wisent-raw-tag
-           (semantic-tag ',(car $3)
-                         'token :type ',$2 :rest ',(cdr $3)))))
+	((TOKEN token_type_opt SYMBOL string_value)
+	 `(wisent-raw-tag
+	   (semantic-tag ',$3 ',(if $2 'token 'keyword)
+			 :type ',$2 :value ',$4)))
+	((TOKEN token_type_opt symbols)
+	 `(wisent-raw-tag
+	   (semantic-tag ',(car $3)
+			 'token :type ',$2 :rest ',(cdr $3)))))
        (token_type_opt
-        (nil)
-        ((token_type)))
+	(nil)
+	((token_type)))
        (token_type
-        ((LT SYMBOL GT)
-         (progn $2)))
+	((LT SYMBOL GT)
+	 (progn $2)))
        (type_decl
-        ((TYPE token_type plist_opt)
-         `(wisent-raw-tag
-           (semantic-tag ',$2 'type :value ',$3))))
+	((TYPE token_type plist_opt)
+	 `(wisent-raw-tag
+	   (semantic-tag ',$2 'type :value ',$3))))
        (plist_opt
-        (nil)
-        ((plist)))
+	(nil)
+	((plist)))
        (plist
-        ((plist put_value)
-         (append
-          (list $2)
-          $1))
-        ((put_value)
-         (list $1)))
+	((plist put_value)
+	 (append
+	  (list $2)
+	  $1))
+	((put_value)
+	 (list $1)))
        (use_name_list
-        ((BRACE_BLOCK)
-         (mapcar 'semantic-tag-name
-                 (semantic-parse-region
-                  (car $region1)
-                  (cdr $region1)
-                  'use_names 1))))
+	((BRACE_BLOCK)
+	 (mapcar 'semantic-tag-name
+		 (semantic-parse-region
+		  (car $region1)
+		  (cdr $region1)
+		  'use_names 1))))
        (use_names
-        ((LBRACE)
-         nil)
-        ((RBRACE)
-         nil)
-        ((SYMBOL)
-         (wisent-raw-tag
-          (semantic-tag $1 'use-name))))
+	((LBRACE)
+	 nil)
+	((RBRACE)
+	 nil)
+	((SYMBOL)
+	 (wisent-raw-tag
+	  (semantic-tag $1 'use-name))))
        (use_macros_decl
-        ((USE-MACROS SYMBOL use_name_list)
-         `(wisent-raw-tag
-           (semantic-tag "macro" 'macro :type ',$2 :value ',$3))))
+	((USE-MACROS SYMBOL use_name_list)
+	 `(wisent-raw-tag
+	   (semantic-tag "macro" 'macro :type ',$2 :value ',$3))))
        (string_value
-        ((STRING)
-         (read $1)))
+	((STRING)
+	 (read $1)))
        (any_value
-        ((SYMBOL))
-        ((STRING))
-        ((PAREN_BLOCK))
-        ((PREFIXED_LIST))
-        ((SEXP)))
+	((SYMBOL))
+	((STRING))
+	((PAREN_BLOCK))
+	((PREFIXED_LIST))
+	((SEXP)))
        (symbols
-        ((lifo_symbols)
-         (nreverse $1)))
+	((lifo_symbols)
+	 (nreverse $1)))
        (lifo_symbols
-        ((lifo_symbols SYMBOL)
-         (cons $2 $1))
-        ((SYMBOL)
-         (list $1)))
+	((lifo_symbols SYMBOL)
+	 (cons $2 $1))
+	((SYMBOL)
+	 (list $1)))
        (nonterminal
-        ((SYMBOL
-          (setq semantic-grammar-wy--nterm $1 semantic-grammar-wy--rindx 0)
-          COLON rules SEMI)
-         (wisent-raw-tag
-          (semantic-tag $1 'nonterminal :children $4))))
+	((SYMBOL
+	  (setq semantic-grammar-wy--nterm $1 semantic-grammar-wy--rindx 0)
+	  COLON rules SEMI)
+	 (wisent-raw-tag
+	  (semantic-tag $1 'nonterminal :children $4))))
        (rules
-        ((lifo_rules)
-         (apply 'nconc
-                (nreverse $1))))
+	((lifo_rules)
+	 (apply 'nconc
+		(nreverse $1))))
        (lifo_rules
-        ((lifo_rules OR rule)
-         (cons $3 $1))
-        ((rule)
-         (list $1)))
+	((lifo_rules OR rule)
+	 (cons $3 $1))
+	((rule)
+	 (list $1)))
        (rule
-        ((rhs)
-         (let*
-             ((nterm semantic-grammar-wy--nterm)
-              (rindx semantic-grammar-wy--rindx)
-              (rhs $1)
-              comps prec action elt)
-           (setq semantic-grammar-wy--rindx
-                 (1+ semantic-grammar-wy--rindx))
-           (while rhs
-             (setq elt
-                   (car rhs)
-                   rhs
-                   (cdr rhs))
-             (cond
-              ((vectorp elt)
-               (if prec
-                   (error "Duplicate %%prec in `%s:%d' rule" nterm rindx))
-               (setq prec
-                     (aref elt 0)))
-              ((consp elt)
-               (if
-                   (or action comps)
-                   (setq comps
-                         (cons elt comps)
-                         semantic-grammar-wy--rindx
-                         (1+ semantic-grammar-wy--rindx))
-                 (setq action
-                       (car elt))))
-              (t
-               (setq comps
-                     (cons elt comps)))))
-           (wisent-cook-tag
-            (wisent-raw-tag
-             (semantic-tag
-              (format "%s:%d" nterm rindx)
-              'rule :type
-              (if comps "group" "empty")
-              :value comps :prec prec :expr action))))))
+	((rhs)
+	 (let*
+	     ((nterm semantic-grammar-wy--nterm)
+	      (rindx semantic-grammar-wy--rindx)
+	      (rhs $1)
+	      comps prec action elt)
+	   (setq semantic-grammar-wy--rindx
+		 (1+ semantic-grammar-wy--rindx))
+	   (while rhs
+	     (setq elt
+		   (car rhs)
+		   rhs
+		   (cdr rhs))
+	     (cond
+	      ((vectorp elt)
+	       (if prec
+		   (error "Duplicate %%prec in `%s:%d' rule" nterm rindx))
+	       (setq prec
+		     (aref elt 0)))
+	      ((consp elt)
+	       (if
+		   (or action comps)
+		   (setq comps
+			 (cons elt comps)
+			 semantic-grammar-wy--rindx
+			 (1+ semantic-grammar-wy--rindx))
+		 (setq action
+		       (car elt))))
+	      (t
+	       (setq comps
+		     (cons elt comps)))))
+	   (wisent-cook-tag
+	    (wisent-raw-tag
+	     (semantic-tag
+	      (format "%s:%d" nterm rindx)
+	      'rule :type
+	      (if comps "group" "empty")
+	      :value comps :prec prec :expr action))))))
        (rhs
-        (nil)
-        ((rhs item)
-         (cons $2 $1))
-        ((rhs action)
-         (cons
-          (list $2)
-          $1))
-        ((rhs PREC item)
-         (cons
-          (vector $3)
-          $1)))
+	(nil)
+	((rhs item)
+	 (cons $2 $1))
+	((rhs action)
+	 (cons
+	  (list $2)
+	  $1))
+	((rhs PREC item)
+	 (cons
+	  (vector $3)
+	  $1)))
        (action
-        ((PAREN_BLOCK))
-        ((PREFIXED_LIST))
-        ((BRACE_BLOCK)
-         (format "(progn\n%s)"
-                 (let
-                     ((s $1))
-                   (if
-                       (string-match "^{[
\n	 ]*" s)
-                       (setq s
-                             (substring s
-                                        (match-end 0))))
-                   (if
-                       (string-match "[
\n	 ]*}$" s)
-                       (setq s
-                             (substring s 0
-                                        (match-beginning 0))))
-                   s))))
+	((PAREN_BLOCK))
+	((PREFIXED_LIST))
+	((BRACE_BLOCK)
+	 (format "(progn\n%s)"
+		 (let
+		     ((s $1))
+		   (if
+		       (string-match "^{[
\n	 ]*" s)
+		       (setq s
+			     (substring s
+					(match-end 0))))
+		   (if
+		       (string-match "[
\n	 ]*}$" s)
+		       (setq s
+			     (substring s 0
+					(match-beginning 0))))
+		   s))))
        (items
-        ((lifo_items)
-         (nreverse $1)))
+	((lifo_items)
+	 (nreverse $1)))
        (lifo_items
-        ((lifo_items item)
-         (cons $2 $1))
-        ((item)
-         (list $1)))
+	((lifo_items item)
+	 (cons $2 $1))
+	((item)
+	 (list $1)))
        (item
-        ((SYMBOL))
-        ((CHARACTER))))
+	((SYMBOL))
+	((CHARACTER))))
      '(grammar prologue epilogue declaration nonterminal rule put_names put_values use_names)))
   "Parser table.")
 
@@ -411,10 +410,10 @@
   (semantic-install-function-overrides
    '((parse-stream . wisent-parse-stream)))
   (setq semantic-parser-name "LALR"
-        semantic--parse-table semantic-grammar-wy--parse-table
-        semantic-debug-parser-source "semantic-grammar.wy"
-        semantic-flex-keywords-obarray semantic-grammar-wy--keyword-table
-        semantic-lex-types-obarray semantic-grammar-wy--token-table)
+	semantic--parse-table semantic-grammar-wy--parse-table
+	semantic-debug-parser-source "semantic-grammar.wy"
+	semantic-flex-keywords-obarray semantic-grammar-wy--keyword-table
+	semantic-lex-types-obarray semantic-grammar-wy--token-table)
   ;; Collect unmatched syntax lexical tokens
   (semantic-make-local-hook 'wisent-discarding-token-functions)
   (add-hook 'wisent-discarding-token-functions