emacs: lisp/progmodes/antlr-mode.el comparison

comparison lisp/progmodes/antlr-mode.el @ 29289:9ad79f5782af

New commands: hide/unhide actions, upcase/downcase literals. (antlr-tiny-action-length): New user option. (antlr-hide-actions): New command. Suggested by Bjoern Mielenhausen <Bjoern.Mielenhausen@sap.com>. (antlr-mode-map): New binding [C-c C-v]. (antlr-mode-menu): New entries. (antlr-downcase-literals): New command. (antlr-upcase-literals): Ditto. Minor changes: indendation, mode-name. (antlr-indent-line): Indent cpp directive at column 0. (antlr-mode): Use mode-name prefix "Antlr." instead of "Antlr/". XEmacs bug workaround, XEmacs hint. (antlr-font-lock-additional-keywords): Workaround for intentional bug in XEmacs version of font-lock. (antlr-mode): Set symbol property `mode-name' to "Antlr". Could be used by a smarter version of `buffers-menu-grouping-function'.

author	Gerd Moellmann <gerd@gnu.org>
date	Mon, 29 May 2000 15:49:05 +0000
parents	048db40ddca6
children	075cc818f566

comparison

equal deleted inserted replaced

-:dbb0996702bd
+:9ad79f5782af
 ;;; antlr-mode.el --- Major mode for ANTLR grammar files
-;; Copyright (C) 1999 Free Software Foundation, Inc.
+;; Copyright (C) 1999-2000 Free Software Foundation, Inc.
 ;;
 ;; Author: Christoph.Wedler@sap.com
 ;; 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/
 ;; `antlr-indent-line'.  The indentation engine of cc-mode is only used inside
 ;; block comments (it is not easy to use it for actions, esp if they come early
 ;; in the rule body).  By default, this package uses TABs for a basic offset of
 ;; 4 to be consistent to both ANTLR's conventions (TABs usage) and the
 ;; `c-indentation-style' "java" which sets `c-basic-offset' to 4, see
-;; `antlr-tab-offset-alist'.
+;; `antlr-tab-offset-alist'.  You might want to set this variable to nil.
 ;; SYNTAX COLORING comes in three phases.  First, comments and strings are
 ;; highlighted.  Second, the grammar code is highlighted according to
 ;; `antlr-font-lock-additional-keywords' (rule refs: blue, token refs: brown,
 ;; definition: ditto+bold).  Third, actions, semantic predicates and arguments
 ;; If you edit ANTLR's source files, you might also want to use
 ;;   (autoload 'antlr-set-tabs "antlr-mode")
 ;;   (add-hook 'java-mode-hook 'antlr-set-tabs)
+;; I strongly recommend to use font-lock with a support mode like fast-lock,
+;; lazy-lock or better jit-lock (Emacs-21.1+) / lazy-shot (XEmacs).
 ;; To customize, use `M-x customize-group RET antlr RET' or the custom browser
 ;; (Emacs->Programming->Languages->Antlr).
 ;;; Code:
 (provide 'antlr-mode)
-(eval-when-compile (require 'cl))
+(eval-when-compile (require 'cc-mode))	; shut up most warnings
 (require 'easymenu)			; Emacs
-(eval-when-compile (require 'cc-mode))	; shut up most warnings
+(eval-when-compile			; optional libraries
+(defvar outline-level) (defvar imenu-use-markers))
+(eval-when-compile			; Emacs: cl, XEmacs vars
+(require 'cl))
+(eval-when-compile			; XEmacs: Emacs vars
+(defvar inhibit-point-motion-hooks) (defvar deactivate-mark))
 (eval-and-compile
 (if (string-match "XEmacs" emacs-version)
 (defalias 'antlr-scan-sexps 'scan-sexps)
 (defalias 'antlr-scan-sexps 'antlr-scan-sexps-internal))
 :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"
+(defconst antlr-version "1.3"
 "ANTLR major mode version number.")
 ;;;===========================================================================
 ;;;  Controlling ANTLR's code generator (language option)
 ;;;===========================================================================
 ;;;  Indent/Tabs
 ;;;===========================================================================
+(defcustom antlr-tiny-action-length 3
+"Maximal number of characters in actions never to hide.
+See command `antlr-hide-actions'."
+:group 'antlr
+:type 'integer)
 (defcustom antlr-indent-comment 'tab
 "*Non-nil, if the indentation should touch lines in block comments.
 If nil, no continuation line of a block comment is changed.  If t, they
 are changed according to `c-indentation-line'.  When not nil and not t,
 (define-key map "\C-c\C-a" 'antlr-beginning-of-body)
 (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)
+(define-key map "\C-c\C-v" 'antlr-hide-actions)
 ;; I'm too lazy to define my own:
 (define-key map "\ea" 'c-beginning-of-statement)
 (define-key map "\ee" 'c-end-of-statement)
 map)
 "Keymap used in `antlr-mode' buffers.")
 		     :active (antlr-inside-rule-p)]
 		    "---"
 		    ["Backward Statement" c-beginning-of-statement t]
 		    ["Forward Statement" c-end-of-statement t]
 		    ["Backward Into Nomencl." c-backward-into-nomenclature t]
-		    ["Forward Into Nomencl." c-forward-into-nomenclature t]))
+		    ["Forward Into Nomencl." c-forward-into-nomenclature t]
+		    "---"
+		    ["Hide Actions (incl. Args)" antlr-hide-actions t]
+		    ["Hide Actions (excl. Args)" (antlr-hide-actions 2) t]
+		    ["Unhide All Actions" (antlr-hide-actions 0) t]))
 ;;;===========================================================================
 ;;;  font-lock
 ;;;===========================================================================
 (1 antlr-font-lock-tokendef-face))
 ("\\$\\sw+" (0 font-lock-keyword-face))
 ;; the tokens are already fontified as string/docstrings:
 (,(lambda (limit)
 	(antlr-re-search-forward "\"\\(\\sw\\(\\sw\\|-\\)*\\)\"" limit))
-(1 antlr-font-lock-literal-face t))
+(1 antlr-font-lock-literal-face t)
+,@(and (string-match "XEmacs" emacs-version)
+	    '((0 nil))))		; XEmacs bug workaround
 (,(lambda (limit)
 	(antlr-re-search-forward
 	 "^\\(class\\)[ \t]+\\([A-Z\300-\326\330-\337]\\sw*\\)[ \t]+\\(extends\\)[ \t]+\\([A-Z\300-\326\330-\337]\\sw*\\)[ \t]*;" limit))
 (1 antlr-font-lock-keyword-face)
 (2 antlr-font-lock-ruledef-face)
 and `replace-match'."
 ;; WARNING: Should only be used with `antlr-action-syntax-table'!
 (let ((continue t))
 (while (and (re-search-forward regexp bound 'limit)
 		(save-match-data
-		  (if (eq (antlr-syntactic-context) 0) (setq continue nil) t))))
+		  (if (eq (antlr-syntactic-context) 0)
+		      (setq continue nil)
+		    t))))
 (if continue nil (point))))
 (defun antlr-search-forward (string)
 "Search forward from point for STRING.
 Set point to the end of the occurrence found, and return point.  Return
 (interactive)
 (antlr-end-of-body "Class headers and the file prelude are without `:'"))
 ;;;===========================================================================
+;;;  Literal normalization, Hide Actions
+;;;===========================================================================
+(defun antlr-downcase-literals (&optional transform)
+"Convert all literals in buffer to lower case.
+If non-nil, TRANSFORM is used on literals instead of `downcase-region'."
+(interactive)
+(or transform (setq transform 'downcase-region))
+(let ((literals 0))
+(save-excursion
+(goto-char (point-min))
+(antlr-with-syntax-table antlr-action-syntax-table
+	(antlr-invalidate-context-cache)
+	(while (antlr-re-search-forward "\"\\(\\sw\\(\\sw\\|-\\)*\\)\"" nil)
+	  (funcall transform (match-beginning 0) (match-end 0))
+	  (incf literals))))
+(message "Transformed %d literals" literals)))
+(defun antlr-upcase-literals ()
+"Convert all literals in buffer to upper case."
+(interactive)
+(antlr-downcase-literals 'upcase-region))
+(defun antlr-hide-actions (arg &optional silent)
+"Hide or unhide all actions in buffer.
+Hide all actions including arguments in brackets if ARG is 1 or if
+called interactively without prefix argument.  Hide all actions
+excluding arguments in brackets if ARG is 2 or higher.  Unhide all
+actions if ARG is 0 or negative.  Never hide actions whose character
+length is shorter or equal to `antlr-tiny-action-length'."
+(interactive "p")
+;; from Emacs/lazy-lock: `save-buffer-state'
+(let ((modified (buffer-modified-p))
+	(buffer-undo-list t) (inhibit-read-only t)
+	(inhibit-point-motion-hooks t) deactivate-mark ; Emacs only
+	before-change-functions after-change-functions
+	buffer-file-name buffer-file-truename)
+(if (> arg 0)
+	(let ((regexp (if (= arg 1) "[]}]" "}"))
+	      (diff (+ (max antlr-tiny-action-length 0) 2)))
+	  (antlr-hide-actions 0 t)
+	  (save-excursion
+	    (goto-char (point-min))
+	    (antlr-with-syntax-table antlr-action-syntax-table
+	      (antlr-invalidate-context-cache)
+	      (while (antlr-re-search-forward regexp nil)
+		(let* ((end (point))
+		       (beg (antlr-scan-sexps (point) -1 nil t)))
+		  (and beg (> end (+ beg diff))
+		       (add-text-properties (1+ beg) (1- end)
+					    '(invisible t intangible t)))))))
+	  (or silent
+	      (message "Hide all actions (%s arguments)...done"
+		       (if (= arg 1) "including" "excluding"))))
+(remove-text-properties (point-min) (point-max)
+			      '(invisible nil intangible nil))
+(or silent
+	  (message "Unhide all actions (including arguments)...done")))
+(and (not modified) (buffer-modified-p)
+	 (set-buffer-modified-p nil))))
+;;;===========================================================================
 ;;;  Indentation
 ;;;===========================================================================
 (defun antlr-indent-line ()
 "Indent the current line as ANTLR grammar code.
 ;; check syntax at beginning of indentation ------------------------------
 (antlr-with-syntax-table antlr-action-syntax-table
 (antlr-invalidate-context-cache)
 (cond ((symbolp (setq syntax (antlr-syntactic-context)))
 	     (setq indent nil))		; block-comments, strings, (comments)
+	    ((eq (char-after) ?#)	; cpp directive
+	     (setq syntax 'cpp)
+	     (setq indent 0))		; indentation at 0
 	    ((progn
 	       (antlr-next-rule -1 t)
 	       (if (antlr-search-forward ":") (< boi (1- (point))) t))
 	     (setq indent 0))		; in rule header
 	    ((if (antlr-search-forward ";") (< boi (point)) t)
 	  (and (eq antlr-indent-comment t)
 	       (not (eq syntax 'string))
 	       (c-indent-line)))
 ;; do it ourselves
 (goto-char boi)
-(antlr-invalidate-context-cache)
+(unless (symbolp syntax)		; direct indentation
-(incf indent (antlr-syntactic-context))
+	(antlr-invalidate-context-cache)
-(and (> indent 0) (looking-at antlr-indent-item-regexp) (decf indent))
+	(incf indent (antlr-syntactic-context))
-(setq indent (* indent c-basic-offset))
+	(and (> indent 0) (looking-at antlr-indent-item-regexp) (decf indent))
+	(setq indent (* indent c-basic-offset)))
 ;; the usual major-mode indent stuff:
 (setq orig (- (point-max) orig))
 (unless (= (current-column) indent)
 	(delete-region bol boi)
 	(beginning-of-line)
 					t)
 			  (antlr-language-for-option (match-string 1)))
 		     (antlr-language-for-option nil))))))
 (if (stringp (cadr (assq antlr-language antlr-language-alist)))
 (setq mode-name
-	    (concat "Antlr/"
+	    (concat "Antlr."
 		    (cadr (assq antlr-language antlr-language-alist)))))
 ;; indentation, for the C engine -------------------------------------------
 (antlr-c-common-init)
 (setq indent-line-function 'antlr-indent-line
 	indent-region-function nil)	; too lazy
 (imenu-add-to-menubar
 	(if (stringp antlr-imenu-name) antlr-imenu-name "Index")))
 (antlr-set-tabs)
 (run-hooks 'antlr-mode-hook))
+;; In XEmacs, a smarter version of `buffers-menu-grouping-function' could use
+;; the following property.  The header of the submenu would be "Antlr" instead
+;; of "Antlr/C++" or "Antlr/Java" (depending on the buffer ordering).
+(put 'antlr-mode 'mode-name "Antlr")
 ;;;###autoload
 (defun antlr-set-tabs ()
 "Use ANTLR's convention for TABs according to `antlr-tab-offset-alist'.
 Used in `antlr-mode'.  Also a useful function in `java-mode-hook'."
 (if buffer-file-name

Mercurial > emacs

comparison lisp/progmodes/antlr-mode.el @ 29289:9ad79f5782af