Fix -- user list buffer not updating when parts are hidden.
[riece] / lisp / COMPILE
1 ;;; -*- Emacs-Lisp -*-
2
3 (defvar riece-modules
4   (cons 'riece-compat
5         (cons (if (featurep 'xemacs)
6                   'riece-xemacs
7                 'riece-emacs)
8               '(riece-globals
9                 riece-options
10                 riece-debug
11                 riece-package-info
12                 riece-version
13                 riece-coding
14                 riece-complete
15                 riece-addon-modules
16                 riece-addon
17                 riece-ruby
18                 riece-cache
19
20                 riece-mode
21                 ;; riece-identity -+-> riece-channel
22                 ;;                 +-> riece-user
23                 riece-identity
24                 riece-channel
25                 riece-user
26
27                 riece-misc
28                 riece-signal
29
30                 ;; riece-layout ---> riece-display
31                 riece-layout
32                 riece-display
33                 riece-server
34
35                 ;; riece-channel -+-> riece-naming
36                 ;; riece-user    -+
37                 riece-naming
38                 riece-message
39
40                 ;; riece-filter calls riece-{handle,000,200,300,400,500}
41                 riece-filter
42                 riece-handle
43                 riece-000
44                 riece-200
45                 riece-300
46                 riece-400
47                 riece-500
48
49                 riece-commands
50                 riece-irc
51                 riece))))
52
53 (defvar riece-mcat-modules
54   '(riece-mcat-japanese))
55
56 (defvar riece-generated-modules
57   '(riece-package-info))
58
59 (defvar riece-icons
60   '("riece-command-previous-channel.xpm"
61     "riece-command-next-channel.xpm"
62     "riece-command-configure-windows.xpm"
63     "riece-command-list-addons.xpm"
64     "riece-command-join.xpm"
65     "riece-command-part.xpm"))
66
67 (defvar riece-scripts
68   '("server.rb"
69     "aproxy.rb"))
70
71 (defun riece-byte-compile-dest-file-function (filename)
72   (expand-file-name
73    (concat (file-name-nondirectory filename) "c")))
74
75 (defun riece-compile-modules (modules srcdir)
76   (let ((load-path (cons nil (cons srcdir load-path)))
77         error-modules)
78     (while modules
79       (let ((source (expand-file-name
80                      (concat (symbol-name (car modules)) ".el")
81                      srcdir))
82             (binary (expand-file-name
83                      (concat (symbol-name (car modules)) ".elc"))))
84         (if (file-newer-than-file-p source binary)
85             (condition-case error
86                 (let ((byte-compile-dest-file-function
87                        #'riece-byte-compile-dest-file-function))
88                   (byte-compile-file source))
89               (error
90                (setq error-modules (cons (car modules) error-modules))))))
91       (setq modules (cdr modules)))
92     (if error-modules
93         (princ (concat "\n\
94   WARNING: ---------------------------------------------------------
95   WARNING: Couldn't compile following modules:
96   WARNING: 
97   WARNING:   " (mapconcat #'symbol-name error-modules ", ") "\n\
98   WARNING: 
99   WARNING: You should probably stop here, try \"make distclean\" to clear
100   WARNING: the last build, and then reconfigure.
101   WARNING: ---------------------------------------------------------\n\n")))))
102
103 (defun riece-compile-module ()
104   (let ((load-path (cons nil load-path)))
105     (let ((source (expand-file-name
106                    (concat (car command-line-args-left) ".el"))))
107       (if (file-newer-than-file-p source (concat source "c"))
108           (byte-compile-file source))))
109   ;; Workaround for an XEmacs 21.5 bug ("xemacs -batch -f <func> <arg1>"
110   ;; attempts to open <arg1> as a file after <func>).
111   (setq command-line-args-left (cdr command-line-args-left)))
112
113 (defun riece-install-modules (modules srcdir lispdir just-print)
114   (unless (or just-print (file-exists-p lispdir))
115     (make-directory lispdir t))
116   ;; Workaround for "make distcheck"
117   (set-file-modes lispdir 493)
118   (while modules
119     (let ((name (symbol-name (car modules))))
120       (princ (format "%s.el -> %s\n" name lispdir))
121       (unless just-print
122         (copy-file (expand-file-name
123                     (concat name ".el")
124                     (if (memq (car modules) riece-generated-modules)
125                         nil
126                       srcdir))
127                    (expand-file-name (concat name ".el") lispdir)
128                    t t))
129       (princ (format "%s.elc -> %s\n" name lispdir))
130       (unless just-print
131         (if (file-exists-p (expand-file-name (concat name ".elc")))
132             (copy-file (expand-file-name (concat name ".elc"))
133                        (expand-file-name (concat name ".elc") lispdir)
134                        t t)
135           (princ (format "(%s was not successfully compiled, ignored)\n"
136                          name)))))
137     (setq modules (cdr modules))))
138
139 (defun riece-install-icons (icons srcdir lispdir just-print)
140   (unless (or just-print (file-exists-p lispdir))
141     (make-directory lispdir t))
142   ;; Workaround for "make distcheck"
143   (set-file-modes lispdir 493)
144   (while icons
145     (when (file-exists-p (expand-file-name (car icons) srcdir))
146       (princ (format "%s -> %s\n" (car icons) lispdir))
147       (unless just-print
148         (copy-file (expand-file-name (car icons) srcdir)
149                    (expand-file-name (car icons) lispdir)
150                    t t)))
151     (setq icons (cdr icons))))
152
153 (defun riece-install-scripts (scripts srcdir lispdir just-print)
154   (unless (or just-print (file-exists-p lispdir))
155     (make-directory lispdir t))
156   ;; Workaround for "make distcheck"
157   (set-file-modes lispdir 493)
158   (while scripts
159     (when (file-exists-p (expand-file-name (car scripts) srcdir))
160       (princ (format "%s -> %s\n" (car scripts) lispdir))
161       (unless just-print
162         (copy-file (expand-file-name (car scripts) srcdir)
163                    (expand-file-name (car scripts) lispdir)
164                    t t)))
165     (setq scripts (cdr scripts))))
166
167 (defun riece-install-just-print-p ()
168   (let ((flag (getenv "MAKEFLAGS"))
169         case-fold-search)
170     (if flag
171         (string-match "^\\(\\(--[^ ]+ \\)+-\\|[^ =-]\\)*n" flag))))
172
173 (defun riece-examine-modules (srcdir)
174   (let ((load-path (cons nil (cons srcdir load-path))))
175     (require 'riece-mcat)
176     (require 'riece-addon-modules)
177     (append riece-modules
178             riece-mcat-modules
179             (mapcar #'car riece-addon-modules))))
180
181 (defun riece-examine ()
182   (princ (mapconcat #'symbol-name
183                     (riece-examine-modules (car command-line-args-left))
184                     " ")))
185
186 (defun riece-update-mcat ()
187   (let* ((srcdir (car command-line-args-left))
188          (modules (riece-examine-modules srcdir))
189          (pointer riece-mcat-modules)
190          files)
191     (while pointer
192       (setq modules (delq (car pointer) modules)
193             pointer (cdr pointer)))
194     (setq files (mapcar (lambda (module)
195                           (concat (symbol-name module) ".el"))
196                         modules)
197           pointer riece-mcat-modules)
198     (while pointer
199       (riece-mcat-update files (concat (symbol-name (car pointer)) ".el")
200                          (intern (concat (symbol-name (car pointer))
201                                          "-alist")))
202       (setq pointer (cdr pointer))))
203   ;; Workaround for an XEmacs 21.5 bug ("xemacs -batch -f <func> <arg1>"
204   ;; attempts to open <arg1> as a file after <func>).
205   (setq command-line-args-left (cdr command-line-args-left)))
206
207 (defun riece-compile ()
208   (let ((srcdir (car command-line-args-left)))
209     (setq command-line-args-left (cdr command-line-args-left))
210     (riece-compile-modules (riece-examine-modules srcdir) srcdir))
211   ;; Workaround for an XEmacs 21.5 bug ("xemacs -batch -f <func> <arg1>"
212   ;; attempts to open <arg1> as a file after <func>).
213   (setq command-line-args-left (cdr command-line-args-left)))
214
215 (defun riece-install ()
216   (let ((srcdir (car command-line-args-left))
217         (lispdir (nth 1 command-line-args-left)))
218     (riece-install-modules
219      (riece-examine-modules srcdir)
220      srcdir
221      (expand-file-name "riece" lispdir)
222      (riece-install-just-print-p))
223     (riece-install-icons
224      riece-icons
225      srcdir
226      (expand-file-name "riece" lispdir)
227      (riece-install-just-print-p))
228     (riece-install-scripts
229      riece-scripts
230      srcdir
231      (expand-file-name "riece" lispdir)
232      (riece-install-just-print-p))
233     ;; Workaround for an XEmacs 21.5 bug ("xemacs -batch -f <func> <arg1>"
234     ;; attempts to open <arg1> as a file after <func>).
235     (setq command-line-args-left (nthcdr 2 command-line-args-left))))
236
237 (defun riece-uninstall ()
238   (let ((files (directory-files (expand-file-name "riece"
239                                                   (car command-line-args-left))
240                                 t "\\.\\(elc?\\|rb\\|xpm\\)$")))
241     (while files
242       (delete-file (car files))
243       (setq files (cdr files)))
244     ;; Workaround for an XEmacs 21.5 bug ("xemacs -batch -f <func> <arg1>"
245     ;; attempts to open <arg1> as a file after <func>).
246     (setq command-line-args-left (cdr command-line-args-left))))
247
248 (defun riece-compile-package ()
249   (let ((srcdir (car command-line-args-left)))
250     (setq command-line-args-left (cdr command-line-args-left))
251     (if (fboundp 'batch-update-directory-autoloads)
252         (let ((command-line-args-left (list "riece" srcdir)))
253           (batch-update-directory-autoloads))
254       (let ((command-line-args-left (list srcdir)))
255         (setq autoload-package-name "riece")
256         (batch-update-autoloads)))
257     (let ((command-line-args-left (list srcdir)))
258       (Custom-make-dependencies))
259     (riece-compile-modules
260      (append (riece-examine-modules srcdir)
261              '(auto-autoloads custom-load))
262      srcdir)))
263
264 (defun riece-install-package ()
265   (let ((srcdir (car command-line-args-left)))
266     (setq command-line-args-left (cdr command-line-args-left))
267     (riece-install-modules
268      (append (riece-examine-modules srcdir)
269              '(auto-autoloads custom-load))
270      srcdir
271      (expand-file-name "lisp/riece" (car command-line-args-left))
272      (riece-install-just-print-p))
273     (riece-install-icons
274      riece-icons
275      srcdir
276      (expand-file-name "etc/riece" (car command-line-args-left))
277      (riece-install-just-print-p))
278     (riece-install-scripts
279      riece-scripts
280      srcdir
281      (expand-file-name "etc/riece" (car command-line-args-left))
282      (riece-install-just-print-p))))
283
284 (defun riece-test ()
285   (let* ((srcdir (car command-line-args-left))
286          (load-path (cons (expand-file-name "test" srcdir)
287                           (cons srcdir (cons nil load-path))))
288          (files (directory-files (expand-file-name "test" srcdir) t
289                                  "^test-.*\\.el$"))
290          suite)
291     (require 'lunit-report)
292     (setq suite (lunit-make-test-suite))
293     (while files
294       (when (file-regular-p (car files))
295         (load-file (car files))
296         (lunit-test-suite-add-test
297          suite
298          (lunit-make-test-suite-from-class
299           (intern (file-name-sans-extension
300                    (file-name-nondirectory (car files)))))))
301       (setq files (cdr files)))
302     (lunit-report suite (nth 1 command-line-args-left))))