mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-02 08:22:22 +00:00
Version 1.2 is released.
(antlr): This package has a web page. Menu/keymap additions for commenting/uncommenting regions. Suggested by Dale Davis <Dale_Davis@securify.com>. (antlr-mode-map): New binding [C-c C-c]. (antlr-mode-menu): New entries. Respect Emacs conventions. ((require 'cl)): Only use during compilation. (antlr-language-for-option): New function to avoid using `find'. (antlr-mode): Use it. (antlr-with-syntax-table): Define new instead using XEmacs' one. (antlr-imenu-create-index-function): Change accordingly. (antlr-inside-rule-p): Ditto. (antlr-end-of-rule): Ditto. (antlr-end-of-body): Ditto. (antlr-beginning-of-rule): Ditto. (antlr-indent-line): Ditto. Really use `antlr-tab-offset-alist'. (antlr-set-tabs): Don't use hard-coded values. Minor navigation changes. Not perfect, but this won't be possible without a huge time penalty. (antlr-skip-exception-part): Be more specific. (antlr-skip-file-prelude): Don't skip action prelude of next rule. Renamed from `antlr-skip-grammar-header'. (antlr-next-rule): Change accordingly. (antlr-end-of-body): Ditto. Better error message. (antlr-beginning-of-body): Better error message. (antlr-imenu-create-index-function): Skip rule action prelude. Minor syntax highlighting changes. (antlr-font-lock-default-face): Deletia. (antlr-font-lock-tokendef-face): Changed color. (antlr-font-lock-tokenref-face): Changed color. (antlr-font-lock-literal-face): Changed color. (antlr-font-lock-additional-keywords): Minor changes.
This commit is contained in:
Gerd Moellmann
parent
3476b54a0c
commit
e33e080c09
@ -1,3 +1,51 @@
|
||||
1999-12-21 Christoph Wedler <Christoph.Wedler@sap.com>
|
||||
|
||||
* antlr-mode.el: Version 1.2 is released.
|
||||
(antlr): This package has a web page.
|
||||
|
||||
1999-12-21 Christoph Wedler <Christoph.Wedler@sap.com>
|
||||
|
||||
* antlr-mode.el: Menu/keymap additions for commenting/uncommenting
|
||||
regions. Suggested by Dale Davis <Dale_Davis@securify.com>.
|
||||
(antlr-mode-map): New binding [C-c C-c].
|
||||
(antlr-mode-menu): New entries.
|
||||
|
||||
1999-12-21 Christoph Wedler <Christoph.Wedler@sap.com>
|
||||
|
||||
* antlr-mode.el: Respect Emacs conventions.
|
||||
((require 'cl)): Only use during compilation.
|
||||
(antlr-language-for-option): New function to avoid using `find'.
|
||||
(antlr-mode): Use it.
|
||||
(antlr-with-syntax-table): Define new instead using XEmacs' one.
|
||||
(antlr-imenu-create-index-function): Change accordingly.
|
||||
(antlr-inside-rule-p): Ditto.
|
||||
(antlr-end-of-rule): Ditto.
|
||||
(antlr-end-of-body): Ditto.
|
||||
(antlr-beginning-of-rule): Ditto.
|
||||
(antlr-indent-line): Ditto.
|
||||
|
||||
1999-11-21 Christoph Wedler <Christoph.Wedler@sap.com>
|
||||
|
||||
* antlr-mode.el: Really use `antlr-tab-offset-alist'.
|
||||
(antlr-set-tabs): Don't use hard-coded values.
|
||||
|
||||
* antlr-mode.el: Minor navigation changes. Not perfect, but this
|
||||
won't be possible without a huge time penalty.
|
||||
(antlr-skip-exception-part): Be more specific.
|
||||
(antlr-skip-file-prelude): Don't skip action prelude of next rule.
|
||||
Renamed from `antlr-skip-grammar-header'.
|
||||
(antlr-next-rule): Change accordingly.
|
||||
(antlr-end-of-body): Ditto. Better error message.
|
||||
(antlr-beginning-of-body): Better error message.
|
||||
(antlr-imenu-create-index-function): Skip rule action prelude.
|
||||
|
||||
* antlr-mode.el: Minor syntax highlighting changes.
|
||||
(antlr-font-lock-default-face): Deletia.
|
||||
(antlr-font-lock-tokendef-face): Changed color.
|
||||
(antlr-font-lock-tokenref-face): Changed color.
|
||||
(antlr-font-lock-literal-face): Changed color.
|
||||
(antlr-font-lock-additional-keywords): Minor changes.
|
||||
|
||||
1999-12-21 Gerd Moellmann <gerd@gnu.org>
|
||||
|
||||
* progmodes/cwarn.el: New file.
|
||||
|
||||
@ -3,7 +3,8 @@
|
||||
;; Copyright (C) 1999 Free Software Foundation, Inc.
|
||||
;;
|
||||
;; Author: Christoph.Wedler@sap.com
|
||||
;; Version: $Id: antlr-mode.el,v 1.2 1999/11/11 14:40:51 wedler Exp $
|
||||
;; Version: $Id: antlr-mode.el,v 1.2 1999/12/16 19:30:34 wedler Exp $
|
||||
;; X-URL: http://www.fmi.uni-passau.de/~wedler/antlr-mode/
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
@ -35,7 +36,7 @@
|
||||
|
||||
;; This package provides the following features:
|
||||
;; * Indentation for the current line (TAB) and selected region (C-M-\).
|
||||
;; * Syntax coloring (via font-lock) with language dependend coloring.
|
||||
;; * Syntax coloring (via font-lock) with language dependent coloring.
|
||||
;; * Support for imenu/speedbar: menu "Index" (Parser, Lexer, TreeParser).
|
||||
;; * Direct move to previous/next rule, beginning/end of rule body etc.
|
||||
|
||||
@ -57,6 +58,10 @@
|
||||
;; special font-lock faces for the grammar code to allow you to distinguish
|
||||
;; ANTLR keywords from Java/C++ keywords.
|
||||
|
||||
;; Bug fixes, bug reports, improvements, and suggestions are strongly
|
||||
;; appreciated. Please check the newest version first:
|
||||
;; http://www.fmi.uni-passau.de/~wedler/antlr-mode/changes.html
|
||||
|
||||
;;; Installation:
|
||||
|
||||
;; This file requires Emacs-20.3, XEmacs-20.4 or higher.
|
||||
@ -105,6 +110,7 @@
|
||||
"Major mode for ANTLR grammar files."
|
||||
:group 'languages
|
||||
:link '(emacs-commentary-link "antlr-mode.el")
|
||||
:link '(url-link "http://www.fmi.uni-passau.de/~wedler/antlr-mode/")
|
||||
:prefix "antlr-")
|
||||
|
||||
(defconst antlr-version "1.2"
|
||||
@ -212,6 +218,7 @@ imenu."
|
||||
(define-key map "\C-c\C-e" 'antlr-end-of-body)
|
||||
(define-key map "\C-c\C-f" 'c-forward-into-nomenclature)
|
||||
(define-key map "\C-c\C-b" 'c-backward-into-nomenclature)
|
||||
(define-key map "\C-c\C-c" 'comment-region)
|
||||
;; I'm too lazy to define my own:
|
||||
(define-key map "\ea" 'c-beginning-of-statement)
|
||||
(define-key map "\ee" 'c-end-of-statement)
|
||||
@ -226,6 +233,14 @@ imenu."
|
||||
:active (not buffer-read-only)]
|
||||
["Indent for Comment" indent-for-comment
|
||||
:active (not buffer-read-only)]
|
||||
["Comment Out Region" comment-region
|
||||
:active (and (not buffer-read-only)
|
||||
(c-region-is-active-p))]
|
||||
["Uncomment Region"
|
||||
(comment-region (region-beginning) (region-end) '(4))
|
||||
:active (and (not buffer-read-only)
|
||||
(c-region-is-active-p))]
|
||||
"---"
|
||||
["Backward Rule" antlr-beginning-of-rule t]
|
||||
["Forward Rule" antlr-end-of-rule t]
|
||||
["Start of Rule Body" antlr-beginning-of-body
|
||||
@ -427,7 +442,7 @@ context_cache.")
|
||||
;; checkdoc-params: (from count dummy)
|
||||
"Like `scan-sexps' but with additional arguments.
|
||||
When optional arg NO-ERROR is non-nil, `scan-sexps' will return nil
|
||||
instead of signalling an error."
|
||||
instead of signaling an error."
|
||||
(if no-error
|
||||
(condition-case nil
|
||||
(scan-sexps from count)
|
||||
@ -479,7 +494,7 @@ WARNING: this may alter `match-data'."
|
||||
(defun antlr-re-search-forward (regexp bound)
|
||||
"Search forward from point for regular expression REGEXP.
|
||||
Set point to the end of the occurrence found, and return point. Return
|
||||
nil if no occurence was found. Do not search within comments, strings
|
||||
nil if no occurrence was found. Do not search within comments, strings
|
||||
and actions/semantic predicates. BOUND bounds the search; it is a
|
||||
buffer position. See also the functions `match-beginning', `match-end'
|
||||
and `replace-match'."
|
||||
@ -493,7 +508,7 @@ and `replace-match'."
|
||||
(defun antlr-search-forward (string)
|
||||
"Search forward from point for STRING.
|
||||
Set point to the end of the occurrence found, and return point. Return
|
||||
nil if no occurence was found. Do not search within comments, strings
|
||||
nil if no occurrence was found. Do not search within comments, strings
|
||||
and actions/semantic predicates."
|
||||
;; WARNING: Should only be used with `antlr-action-syntax-table'!
|
||||
(let ((continue t))
|
||||
@ -504,7 +519,7 @@ and actions/semantic predicates."
|
||||
(defun antlr-search-backward (string)
|
||||
"Search backward from point for STRING.
|
||||
Set point to the beginning of the occurrence found, and return point.
|
||||
Return nil if no occurence was found. Do not search within comments,
|
||||
Return nil if no occurrence was found. Do not search within comments,
|
||||
strings and actions/semantic predicates."
|
||||
;; WARNING: Should only be used with `antlr-action-syntax-table'!
|
||||
(let ((continue t))
|
||||
@ -545,7 +560,7 @@ See `antlr-font-lock-additional-keywords', `antlr-language' and
|
||||
;;;===========================================================================
|
||||
|
||||
(defun antlr-imenu-create-index-function ()
|
||||
"Return imenu index-alist for ANTLR gramar files."
|
||||
"Return imenu index-alist for ANTLR grammar files."
|
||||
(let ((items nil)
|
||||
(lexer nil)
|
||||
(parser nil)
|
||||
@ -646,7 +661,7 @@ If SKIP-COMMENT is non-nil, also skip the comment after that part."
|
||||
"Move forward to next end of rule. Do it ARG many times.
|
||||
A grammar class header and the file prelude are also considered as a
|
||||
rule. Negative argument ARG means move back to ARGth preceding end of
|
||||
rule. The behaviour is not defined when ARG is zero. If SKIP-COMMENT
|
||||
rule. The behavior is not defined when ARG is zero. If SKIP-COMMENT
|
||||
is non-nil, move to beginning of the rule."
|
||||
;; WARNING: Should only be used with `antlr-action-syntax-table'!
|
||||
;; PRE: ARG<>0
|
||||
@ -778,7 +793,7 @@ multiplied by:
|
||||
- minus 1 if `antlr-indent-item-regexp' matches the beginning of the
|
||||
line starting from the first non-blank.
|
||||
|
||||
Lines inside block commments are not changed or indented by
|
||||
Lines inside block comments are not changed or indented by
|
||||
`c-indent-line', see `antlr-indent-comment'."
|
||||
(let ((orig (point)) bol boi indent syntax)
|
||||
(beginning-of-line)
|
||||
@ -992,3 +1007,8 @@ Used in `antlr-mode'. Also a useful function in `java-mode-hook'."
|
||||
alist nil))))))
|
||||
|
||||
;;; antlr-mode.el ends here
|
||||
|
||||
; LocalWords: antlr ANother ANTLR's Cpp Lexer TreeParser esp refs VALUEs ea ee
|
||||
; LocalWords: Java's Nomencl ruledef tokendef ruleref tokenref setType ader
|
||||
; LocalWords: ivate syntab lexer treeparser lic rotected rivate bor boi AFAIK
|
||||
; LocalWords: slist knr inexpr
|
||||
|
||||
Loading…
Reference in New Issue
Block a user