1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
|
;;!emacs
;;
;; FILE: java-brows.el
;; SUMMARY: Java source code browser.
;; USAGE: GNU Emacs Lisp Library
;; KEYWORDS: c, oop, tools
;;
;; AUTHOR: Bob Weiner
;; ORG: BeOpen.com
;;
;; ORIG-DATE: 01-Aug-95
;; LAST-MOD: 10-May-01 at 12:53:09 by Bob Weiner
;;
;; Copyright (C) 1995, 1996, 1997, 1998 BeOpen.com
;; See the file BR-COPY for license information.
;;
;; This file is part of the OO-Browser.
;;
;; DESCRIPTION:
;;
;; Use `java-browse' to invoke the java OO-Browser. Prefix arg prompts for
;; name of Environment file.
;;
;; DESCRIP-END.
;; ************************************************************************
;; Other required Elisp libraries
;; ************************************************************************
(mapcar 'require '(br-start br br-java-ft))
;;; ************************************************************************
;;; Public functions
;;; ************************************************************************
;;;###autoload
(defun java-browse (&optional env-file no-ui)
"Invoke the Java OO-Browser.
This allows browsing through Java library and system class hierarchies. With
an optional non-nil prefix argument ENV-FILE, prompt for Environment file to
use. Alternatively, a string value of ENV-FILE is used as the Environment
file name. See also the file \"br-help\"."
(interactive "P")
(let ((same-lang (equal br-lang-prefix java-lang-prefix))
(load-succeeded t)
same-env)
(if same-lang
nil
;; Save other language Environment in memory
(if br-lang-prefix (br-env-copy nil))
(setq br-lang-prefix java-lang-prefix
*br-save-wconfig* nil))
;; `same-env' non-nil means the new Env is the previous Env or the most
;; recent previous Env of the same language as the new Env
(setq same-env (or (equal java-env-file env-file)
(and (null env-file)
(or java-lib-search-dirs java-sys-search-dirs))))
(cond
(same-env
;; If we just switched languages, restore the cached data for the new
;; Environment.
(if same-lang nil (br-env-copy t))
;; Environment may appear to be the same but its loading may have
;; been interrupted, so ensure all variables are initialized properly.
(java-browse-setup env-file)
(if (or (null br-paths-htable) (equal br-paths-htable br-empty-htable))
(setq load-succeeded
(br-env-try-load (or env-file br-env-file) br-env-file))))
;;
;; Create default Environment file specification if needed and none
;; exists.
;;
(t (or env-file (file-exists-p java-env-file)
(br-env-create java-env-file java-lang-prefix))
(or env-file (setq env-file java-env-file))
;;
;; Start browsing a new Environment.
;;
(java-browse-setup env-file)
(setq load-succeeded (br-env-init env-file same-lang nil))
(if load-succeeded
(setq *br-save-wconfig* nil
java-env-file br-env-file
java-env-name br-env-name
java-sys-search-dirs br-sys-search-dirs
java-lib-search-dirs br-lib-search-dirs))))
(cond (load-succeeded
(if no-ui
nil
(br-browse)
(or (and same-lang same-env) (br-refresh))))
(no-ui nil)
(t (message "(java-browse): You must build the Environment to browse it.")))))
(defun java-class-list-filter (class-list top-only-flag)
"Return CLASS-LIST sans any interface entries.
Used when Environment classes are listed in the initial listing buffer."
(cond
(top-only-flag
(let (parents)
(delq
nil
(br-flatten
(mapcar
(function
(lambda (class)
(cond
;; interface / abstract class
((string-match "\\`<" class)
(if br-protocols-with-classes-flag
(if (br-get-parents class)
nil
class)
(java-class-list-filter
(br-get-children class) t)))
;;
;; Regular class; because of recursion
;; from the above clause, we must ensure
;; that this class has no concrete parents
(t (setq parents (br-get-parents class))
(if (or (null parents)
(not (delq nil
(mapcar
(function
(lambda (parent)
(not (string-match "\\`<" parent))))
parents))))
class)))))
class-list)))))
(br-protocols-with-classes-flag class-list)
(t (delq nil (mapcar (function
(lambda (class)
(if (string-match "\\`<" class)
nil
class)))
class-list)))))
(defun java-lang-mode ()
"Invoke normal-mode for programming language buffers and java-mode for any others."
(normal-mode)
(if (not (memq major-mode '(java-mode c++-mode c-mode)))
(java-mode)))
(defun java-mode-setup ()
"Load best available java major mode and set `br-lang-mode' to the function that invokes it."
(defalias 'br-lang-mode 'java-lang-mode)
(condition-case ()
(progn (require 'cc-mode)
(c-initialize-cc-mode))
(error nil)))
;;; ************************************************************************
;;; Internal functions
;;; ************************************************************************
(defun java-browse-setup (env-file)
"Setup language-dependent functions for OO-Browser."
(br-setup-functions)
(java-mode-setup)
(br-setup-constants env-file)
;; Setup to add default classes to system class table after building it.
;; This must come after br-setup-constants call since it clears these
;; hooks.
(if (fboundp 'add-hook)
(add-hook 'br-after-build-sys-hook 'java-add-default-classes)
(setq br-after-build-sys-hook '(java-add-default-classes))))
(provide 'java-brows)
|
