Mercurial > emacs
view lisp/cedet/semantic/bovine/make-by.el @ 110763:0fe64d68a522
Merge changes made in Gnus trunk.
shr.el: Implement table rendering.
shr.el (shr-make-table): Tweak table generation.
shr.el (shr-make-table): Fix typo.
nnimap.el (nnimap-open-connection): Allow tls as a synonym for ssl.
gnus-util.el (gnus-emacs-completing-read): Mapcar collection to list, for XEmacs.
nnimap.el (nnimap-close-server): Implement.
gnus-salt.el: Remove all gnus-carpal stuff -- it's not useful.
nnir.el (nnir-run-imap): Remove spurious space in search string.
message.el (message-idna-to-ascii-rhs-1): Don't bug out on addresses without @ signs.
gnus-sum.el (gnus-widen-article-window): New variable.
shr.el (browse-url): Required.
shr.el (shr-ensure-paragraph): Don't insert a new newline after empty-ish lines.
shr.el (shr-show-alt-text, shr-browse-image): New commands.
gravatar.el (gravatar-retrieved): kill buffer when retrieved.
shr.el (shr-browse-url, shr-copy-url): New commands.
shr.el (shr-render-td): Protect against too-wide text.
spam-report.el (spam-report-url-ping-plain): Don't query about killing the process.
nnimap.el (nnimap-finish-retrieve-group-infos): Message while waiting for data.
shr.el (shr-tag-blockquote): Ensure paragraph after quote, too.
mml-smime.el: Fix gnus-completing-read usage.
shr.el (shr-get-image-data): Ensure against the cache file missing.
nnimap.el (nnimap-open-connection): Give an error if nnimap-stream is unknown.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Mon, 04 Oct 2010 22:26:51 +0000 |
parents | 1d1d5d9bd884 |
children | 376148b31b5e |
line wrap: on
line source
;;; semantic/bovine/make-by.el --- Generated parser support file ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2008, 2009, 2010 ;; Free Software Foundation, Inc. ;; This file is part of GNU Emacs. ;; GNU Emacs is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. ;;; Commentary: ;; ;; This file was generated from the grammar file ;; semantic/bovine/make.by in the CEDET repository. ;;; Code: (require 'semantic/lex) (eval-when-compile (require 'semantic/bovine)) ;;; Prologue ;; ;;; Declarations ;; (defconst semantic-make-by--keyword-table (semantic-lex-make-keyword-table '(("if" . IF) ("ifdef" . IFDEF) ("ifndef" . IFNDEF) ("ifeq" . IFEQ) ("ifneq" . IFNEQ) ("else" . ELSE) ("endif" . ENDIF) ("include" . INCLUDE)) '(("include" summary "Macro: include filename1 filename2 ...") ("ifneq" summary "Conditional: ifneq (expression) ... else ... endif") ("ifeq" summary "Conditional: ifeq (expression) ... else ... endif") ("ifndef" summary "Conditional: ifndef (expression) ... else ... endif") ("ifdef" summary "Conditional: ifdef (expression) ... else ... endif") ("endif" summary "Conditional: if (expression) ... else ... endif") ("else" summary "Conditional: if (expression) ... else ... endif") ("if" summary "Conditional: if (expression) ... else ... endif"))) "Table of language keywords.") (defconst semantic-make-by--token-table (semantic-lex-make-type-table '(("punctuation" (BACKSLASH . "\\`[\\]\\'") (DOLLAR . "\\`[$]\\'") (EQUAL . "\\`[=]\\'") (PLUS . "\\`[+]\\'") (COLON . "\\`[:]\\'"))) 'nil) "Table of lexical tokens.") (defconst semantic-make-by--parse-table `( (bovine-toplevel (Makefile) ) ;; end bovine-toplevel (Makefile (bol newline ,(semantic-lambda (list nil)) ) (bol variable ,(semantic-lambda (nth 1 vals)) ) (bol rule ,(semantic-lambda (nth 1 vals)) ) (bol conditional ,(semantic-lambda (nth 1 vals)) ) (bol include ,(semantic-lambda (nth 1 vals)) ) (whitespace ,(semantic-lambda (list nil)) ) (newline ,(semantic-lambda (list nil)) ) ) ;; end Makefile (variable (symbol opt-whitespace equals opt-whitespace element-list ,(semantic-lambda (semantic-tag-new-variable (nth 0 vals) nil (nth 4 vals))) ) ) ;; end variable (rule (targets opt-whitespace colons opt-whitespace element-list commands ,(semantic-lambda (semantic-tag-new-function (nth 0 vals) nil (nth 4 vals))) ) ) ;; end rule (targets (target opt-whitespace targets ,(semantic-lambda (list (car (nth 0 vals)) (car (nth 2 vals)))) ) (target ,(semantic-lambda (list (car (nth 0 vals)))) ) ) ;; end targets (target (sub-target target ,(semantic-lambda (list (concat (car (nth 0 vals)) (car (nth 2 vals))))) ) (sub-target ,(semantic-lambda (list (car (nth 0 vals)))) ) ) ;; end target (sub-target (symbol) (string) (varref) ) ;; end sub-target (conditional (IF some-whitespace symbol newline ,(semantic-lambda (list nil)) ) (IFDEF some-whitespace symbol newline ,(semantic-lambda (list nil)) ) (IFNDEF some-whitespace symbol newline ,(semantic-lambda (list nil)) ) (IFEQ some-whitespace expression newline ,(semantic-lambda (list nil)) ) (IFNEQ some-whitespace expression newline ,(semantic-lambda (list nil)) ) (ELSE newline ,(semantic-lambda (list nil)) ) (ENDIF newline ,(semantic-lambda (list nil)) ) ) ;; end conditional (expression (semantic-list) ) ;; end expression (include (INCLUDE some-whitespace element-list ,(semantic-lambda (semantic-tag-new-include (nth 2 vals) nil)) ) ) ;; end include (equals (punctuation "\\`[:]\\'" punctuation "\\`[=]\\'" ,(semantic-lambda) ) (punctuation "\\`[+]\\'" punctuation "\\`[=]\\'" ,(semantic-lambda) ) (punctuation "\\`[=]\\'" ,(semantic-lambda) ) ) ;; end equals (colons (punctuation "\\`[:]\\'" punctuation "\\`[:]\\'" ,(semantic-lambda) ) (punctuation "\\`[:]\\'" ,(semantic-lambda) ) ) ;; end colons (element-list (elements newline ,(semantic-lambda (nth 0 vals)) ) ) ;; end element-list (elements (element some-whitespace elements ,(semantic-lambda (nth 0 vals) (nth 2 vals)) ) (element ,(semantic-lambda (nth 0 vals)) ) ( ;;EMPTY ) ) ;; end elements (element (sub-element element ,(semantic-lambda (list (concat (car (nth 0 vals)) (car (nth 1 vals))))) ) ( ;;EMPTY ) ) ;; end element (sub-element (symbol) (string) (punctuation) (semantic-list ,(semantic-lambda (list (buffer-substring-no-properties (identity start) (identity end)))) ) ) ;; end sub-element (varref (punctuation "\\`[$]\\'" semantic-list ,(semantic-lambda (list (buffer-substring-no-properties (identity start) (identity end)))) ) ) ;; end varref (commands (bol shell-command newline commands ,(semantic-lambda (list (nth 0 vals)) (nth 1 vals)) ) ( ;;EMPTY ,(semantic-lambda) ) ) ;; end commands (opt-whitespace (some-whitespace ,(semantic-lambda (list nil)) ) ( ;;EMPTY ) ) ;; end opt-whitespace (some-whitespace (whitespace some-whitespace ,(semantic-lambda (list nil)) ) (whitespace ,(semantic-lambda (list nil)) ) ) ;; end some-whitespace ) "Parser table.") (defun semantic-make-by--install-parser () "Setup the Semantic Parser." (setq semantic--parse-table semantic-make-by--parse-table semantic-debug-parser-source "make.by" semantic-debug-parser-class 'semantic-bovine-debug-parser semantic-flex-keywords-obarray semantic-make-by--keyword-table )) (provide 'semantic/bovine/make-by) ;; arch-tag: 8c3749b8-7b19-46e0-af01-2a4d02fd0352 ;;; semantic/bovine/make-by.el ends here