procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update CEDET from upstream.

Browse source
This commit is contained in:
Chong Yidong 2012-10-02 02:10:29 +08:00
parent b3317662ac
commit 62a81506f8
115 changed files with 5693 additions and 1649 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lisp/cedet/srecode/java.el
View file

@ -26,6 +26,10 @@
;;; Code:
(require 'srecode/dictionary)
(require 'semantic/tag)
(eval-when-compile
(require 'semantic/find))
;;;###autoload
(defun srecode-semantic-handle-:java (dict)
@ -33,7 +37,7 @@
Adds the following:
FILENAME_AS_PACKAGE - file/dir converted into a java package name.
FILENAME_AS_CLASS - file converted to a Java class name."
;; A symbol representing
;; Symbols needed by empty files.
(let* ((fsym (file-name-nondirectory (buffer-file-name)))
(fnox (file-name-sans-extension fsym))
(dir (file-name-directory (buffer-file-name)))
@ -44,12 +48,18 @@ FILENAME_AS_CLASS - file converted to a Java class name."
(if (string-match "src/" dir)
(setq dir (substring dir (match-end 0)))
(setq dir (file-name-nondirectory (directory-file-name dir))))
(setq dir (directory-file-name dir))
(while (string-match "/" dir)
(setq dir (replace-match "_" t t dir)))
(srecode-dictionary-set-value dict "FILENAME_AS_PACKAGE"
(concat dir "." fpak))
(setq dir (replace-match "." t t dir)))
(srecode-dictionary-set-value dict "FILENAME_AS_PACKAGE" dir)
(srecode-dictionary-set-value dict "FILENAME_AS_CLASS" fnox)
))
)
;; Symbols needed for most other files with stuff in them.
(let ((pkg (semantic-find-tags-by-class 'package (current-buffer))))
(when pkg
(srecode-dictionary-set-value dict "CURRENT_PACKAGE" (semantic-tag-name (car pkg)))
))
)
(provide 'srecode/java)