X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2FCOMPILE;h=61a65e048e69564d3ce979651d35a08dc2b39ff6;hb=b72fead6a5f1916e114828e9e6a7544abd76612c;hp=aecda24a2590aaee88a44fdcfa3d25a74c199e1c;hpb=6fc89e121ea729d2896c28ef15de5dea21cec1a9;p=elisp%2Friece.git

diff --git a/lisp/COMPILE b/lisp/COMPILE
index aecda24..61a65e0 100644
--- a/lisp/COMPILE
+++ b/lisp/COMPILE
@@ -1,56 +1,58 @@
 ;;; -*- Emacs-Lisp -*-
 
-(require 'riece-addon-modules)
-
 (defvar riece-modules
-  (nconc
-   (cons 'riece-compat
-	 (cons (if (featurep 'xemacs)
-		   'riece-xemacs
-		 'riece-emacs)
-	       '(riece-globals
-		 riece-options
-		 riece-debug
-		 riece-version
-		 riece-coding
-		 riece-complete
-		 riece-addon-modules
-		 riece-addon
-		 riece-ruby
-
-		 riece-mode
-		 ;; riece-identity -+-> riece-channel
-		 ;;                 +-> riece-user
-		 riece-identity
-		 riece-channel
-		 riece-user
-
-		 riece-misc
-		 riece-signal
-
-		 ;; riece-layout ---> riece-display
-		 riece-layout
-		 riece-display
-		 riece-server
-
-		 ;; riece-channel -+-> riece-naming
-		 ;; riece-user    -+
-		 riece-naming
-		 riece-message
-
-		 ;; riece-filter calls riece-{handle,000,200,300,400,500}
-		 riece-filter
-		 riece-handle
-		 riece-000
-		 riece-200
-		 riece-300
-		 riece-400
-		 riece-500
-
-		 riece-commands
-		 riece-irc
-		 riece)))
-   (mapcar #'car riece-addon-modules)))
+  (cons 'riece-compat
+	(cons (if (featurep 'xemacs)
+		  'riece-xemacs
+		'riece-emacs)
+	      '(riece-globals
+		riece-options
+		riece-debug
+		riece-package-info
+		riece-version
+		riece-coding
+		riece-complete
+		riece-mcat
+		riece-addon-modules
+		riece-addon
+		riece-ruby
+		riece-cache
+
+		riece-mode
+		;; riece-identity -+-> riece-channel
+		;;                 +-> riece-user
+		riece-identity
+		riece-channel
+		riece-user
+
+		riece-misc
+		riece-signal
+
+		;; riece-layout ---> riece-display
+		riece-layout
+		riece-display
+		riece-server
+
+		;; riece-channel -+-> riece-naming
+		;; riece-user    -+
+		riece-naming
+		riece-message
+
+		;; riece-filter calls riece-{handle,000,200,300,400,500}
+		riece-filter
+		riece-handle
+		riece-000
+		riece-200
+		riece-300
+		riece-400
+		riece-500
+
+		riece-commands
+		riece-irc
+		riece))))
+
+(defvar riece-mcat-modules
+  '(riece-mcat-japanese))
 
 (defvar riece-icons
   '("riece-command-quit.xpm"
@@ -145,15 +147,40 @@
     (if flag
 	(string-match "^\\(\\(--[^ ]+ \\)+-\\|[^ =-]\\)*n" flag))))
 
+(defun riece-examine-modules ()
+  (let ((load-path (cons nil load-path)))
+    (require 'riece-mcat)
+    (require 'riece-addon-modules)
+    (append riece-modules
+	    riece-mcat-modules
+	    (mapcar #'car riece-addon-modules))))
+
 (defun riece-examine ()
-  (princ (mapconcat #'symbol-name riece-modules " ")))
+  (princ (mapconcat #'symbol-name (riece-examine-modules) " ")))
+
+(defun riece-update-mcat ()
+  (let ((modules (riece-examine-modules))
+	(pointer riece-mcat-modules)
+	files)
+    (while pointer
+      (setq modules (delq (car pointer) modules)
+	    pointer (cdr pointer)))
+    (setq files (mapcar (lambda (module)
+			  (concat (symbol-name module) ".el"))
+			modules)
+	  pointer riece-mcat-modules)
+    (while pointer
+      (riece-mcat-update files (concat (symbol-name (car pointer)) ".el")
+			 (intern (concat (symbol-name (car pointer))
+					 "-alist")))
+      (setq pointer (cdr pointer)))))
 
 (defun riece-compile ()
-  (riece-compile-modules riece-modules))
+  (riece-compile-modules (riece-examine-modules)))
 
 (defun riece-install ()
   (riece-install-modules
-   riece-modules
+   (riece-examine-modules)
    (expand-file-name "riece" (car command-line-args-left))
    (riece-install-just-print-p))
   (riece-install-icons
@@ -172,12 +199,12 @@
   (add-to-list 'command-line-args-left ".")
   (Custom-make-dependencies)
   (riece-compile-modules
-   (append riece-modules
+   (append (riece-examine-modules)
 	   '(auto-autoloads custom-load))))
 
 (defun riece-install-package ()
   (riece-install-modules
-   (append riece-modules
+   (append (riece-examine-modules)
 	   '(auto-autoloads custom-load))
    (expand-file-name "lisp/riece" (car command-line-args-left))
    (riece-install-just-print-p))