[4224] in java-interest
Re: Java-mode in xemacs
daemon@ATHENA.MIT.EDU (Patrick Taylor)
Wed Dec 13 19:57:04 1995
Date: Wed, 13 Dec 1995 17:47:54 -0500
From: Patrick Taylor <patrick.taylor@template.com>
To: java-interest@java.sun.com, sjs@corp.portal.com (Steve Schow)
From: sjs@corp.portal.com (Steve Schow)
Date: Tue, 12 Dec 1995 23:39:50 -0800
Subject: Java-mode in xemacs
Anyone know where I can get a java-mode extension for xemacs?
This is rather primitive but works reasonably well. Someone else wrote it.
______________________________________________________________________________
;; java-mode.el
(load "java-f-lck")
(defvar java-mode-map nil "Java mode map")
(if (not java-mode-map)
(setq java-mode-map (copy-keymap c++-mode-map)))
(defun java-mode ()
"Major mode for editing java code.
See the documentation for c++-mode: java-mode is an extension of
c++-mode.
Use the hook java-mode-hook to execute custom code when entering Java
mode.
\\{java-mode-map}"
(interactive)
(let ((current-c++-mode-hook (and (boundp 'c++-mode-hook) c++-mode-hook)))
;; Temporarily disable the c++-mode hook; don't wanna run
;; it when loading up c++-mode.
(setq c++-mode-hook nil)
(c++-mode)
(setq major-mode 'java-mode mode-name "java")
(use-local-map java-mode-map)
;; Restore the original c++-mode-hook.
(setq c++-mode-hook current-c++-mode-hook)
(run-hooks 'java-mode-hook)))
(add-hook 'java-mode-hook
(function
(lambda ()
(if (eq major-mode 'java-mode)
(progn
(setq font-lock-keywords java-font-lock-keywords)
(c-set-offset 'inher-cont '+)
(font-lock-fontify-buffer))))))
(provide 'java-mode)
______________________________________________________________________________
;; Version: @(#)java-f-lck.el 1.1 28 Mar 1995
;; Font Lock Keywords for java-mode
;; Copyright (C) 1994 Mitch Chapman
;; Author: Mitch Chapman
;; This module was derived from the c-mode font-lock
;; keywords provided with GNU emacs 19.22. As font-lock.el
;; is distributed under the terms of the GNU General Public
;; License, so is this code. (See below.)
;; Maintainer: none
;; Keywords: languages, faces
;; This file is *NOT* part of GNU Emacs.
;; java-f-lck.el 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 2, or (at your option)
;; any later version.
;; java-f-lck.el 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 java-f-lck.el; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Commentary:
;; This module defines font-lock keywords and regular expressions for
;; java-mode buffers. You can use these definitions in
;; conjunction with font-lock.el to "fontify" Java buffers.
;; To automatically use the definitions in this module you need to
;; "plug in" the java font-lock keywords when entering
;; font-lock mode in an java-mode buffer. Here's how:
;; (add-hook 'font-lock-mode-hook
;; (function
;; (lambda ()
;; (if (eq major-mode 'java-mode)
;; (setq font-lock-keywords java-font-lock-keywords)))))
;; This is done for you at the end of this module. If you don't
;; want this behavior, just comment out the relevant code.
(defconst java-font-lock-keywords-1 nil
"For consideration as a value of `java-font-lock-keywords'.
This does fairly subdued highlighting.")
(defconst java-font-lock-keywords-2 nil
"For consideration as a value of `java-font-lock-keywords'.
This does a lot more highlighting.")
(let ((storage (concat "static\\|abstract\\|const\\|final\\|"
"synchronized\\|threadsafe\\|transient"))
(prefixes "short\\|long")
(types (concat
"class\\|boolean\\|int\\|char\\|byte\\|float\\|double\\|void"))
(reserved-words
'("private" "protected" "public" "break" "byvalue"
"case" "catch" "class"
"continue" "default" "do" "else if"
"else" "extends" "false" "finally"
"for" "if" "implements" "import"
"instanceof" "interface"
"new" "null" "package" "return"
"super" "switch"
"this" "throw"
"true" "try" "while"))
(ctoken "[a-zA-Z0-9_:~*]+")
)
(setq java-font-lock-keywords-1
(list
;;
;; fontify C++-style comments as comments.
'("//.*" . font-lock-comment-face)
;;
;; fontify the names of functions being defined.
(list (concat
"^\\(" ctoken "[ \t]+\\)?" ; type specs; there can be no
"\\(" ctoken "[ \t]+\\)?" ; more than 3 tokens, right?
"\\(" ctoken "[ \t]+\\)?"
"\\([*&]+[ \t]*\\)?" ; pointer
"\\(" ctoken "\\)[ \t]*(") ; name
5 'font-lock-function-name-face)
;;
;; fontify the (first word of) names of methods being defined.
(list (concat
"^[+-][ \t]+"
"\\((" ;; typecasts are inside parens
"\\(" ctoken "[ \t]+\\)?" ;; as above, <= 3, right?
"\\(" ctoken "[ \t]+\\)?"
"\\(" ctoken "[ \t]*\\)?"
"\\(\*+[ \t]*\\)?" ;; pointer
")[ \t]*\\)?" ;; end of typecast
"\\(" ctoken "\\):?[ \t]*")
6 'font-lock-function-name-face)
;;
;; Fontify case clauses. This is fast because its anchored on the left.
'("case[ \t]+\\(\\(\\sw\\|\\s_\\)+\\):". 1)
'("\\<\\(default\\):". 1)
))
(setq java-font-lock-keywords-2
(append java-font-lock-keywords-1
(list
;;
;; fontify all storage classes and type specifiers
(cons (concat "\\<\\(" storage "\\)\\>") 'font-lock-type-face)
(cons (concat "\\<\\(" types "\\)\\>") 'font-lock-type-face)
(cons (concat "\\<\\(" prefixes "[ \t]+" types "\\)\\>")
'font-lock-type-face)
;;
;; fontify all builtin tokens
(cons (concat
"[ \t]\\("
(mapconcat 'identity reserved-words "\\|")
"\\)[ \t\n(){};,]")
1)
(cons (concat
"^\\("
(mapconcat 'identity reserved-words "\\|")
"\\)[ \t\n(){};,]")
1)
)))
)
; default to the gaudier variety:
(defvar java-font-lock-keywords java-font-lock-keywords-2
"Additional expressions to highlight in Java mode.")
;; Plug in the Java font-lock keywords, so they'll be used
;; automatically when you're in java-mode.
(add-hook 'font-lock-mode-hook
(function
(lambda ()
(if (eq major-mode 'java-mode)
(setq font-lock-keywords java-font-lock-keywords)))))
(provide 'java-f-lck)
______________________________________________________________________________
-
This message was sent to the java-interest mailing list
Info: send 'help' to java-interest-request@java.sun.com
