X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2FCOMPILE;h=11c2f6af5ace8ff57aaa59c3697a17f9cc5c6d99;hp=9b9c2bf7cb2d5db93f0e70911924f165240171b2;hb=2362928b17babcdeee7f1b4910cab1e816d5c93a;hpb=ce06cb691e8251eccad1d2450b0360cc25758077 diff --git a/lisp/COMPILE b/lisp/COMPILE index 9b9c2bf..11c2f6a 100644 --- a/lisp/COMPILE +++ b/lisp/COMPILE @@ -7,10 +7,14 @@ 'riece-emacs) '(riece-globals riece-options + riece-debug riece-version riece-coding riece-complete + riece-addon + riece-ruby + riece-mode ;; riece-identity -+-> riece-channel ;; +-> riece-user riece-identity @@ -18,6 +22,10 @@ riece-user riece-misc + riece-signal + + ;; riece-layout ---> riece-display + riece-layout riece-display riece-server @@ -36,6 +44,7 @@ riece-500 riece-commands + riece-irc riece ;; add-ons @@ -45,16 +54,74 @@ riece-mini riece-rdcc riece-url - riece-unread)))) + riece-unread + riece-doctor + riece-alias + riece-skk-kakutei + riece-foolproof + riece-guess + riece-history + riece-button + riece-keyword + riece-menu + riece-icon + riece-async + riece-lsdb + riece-xface + riece-ctlseq + riece-ignore + riece-hangman + riece-biff + riece-kakasi + riece-yank + riece-toolbar + riece-eval + riece-google + riece-keepalive + riece-eval-ruby)))) + +(defvar riece-icons + '("riece-command-quit.xpm" + "riece-command-join.xpm" + "riece-command-part.xpm" + "riece-command-previous-channel.xpm" + "riece-command-next-channel.xpm" + "riece-command-change-layout.xpm" + "riece-submit-bug-report.xpm")) + +(defvar riece-scripts + '("server.rb" + "aproxy.rb")) (defun riece-compile-modules (modules) - (let ((load-path (cons nil load-path))) + (let ((load-path (cons nil load-path)) + error-modules) (while modules (let ((source (expand-file-name (concat (symbol-name (car modules)) ".el")))) (if (file-newer-than-file-p source (concat source "c")) - (byte-compile-file source))) - (setq modules (cdr modules))))) + (condition-case error + (byte-compile-file source) + (error + (setq error-modules (cons (car modules) error-modules)))))) + (setq modules (cdr modules))) + (if error-modules + (princ (concat "\n\ + WARNING: --------------------------------------------------------- + WARNING: Couldn't compile following modules: + WARNING: + WARNING: " (mapconcat #'symbol-name error-modules ", ") "\n\ + WARNING: + WARNING: You should probably stop here, try \"make distclean\" to clear + WARNING: the last build, and then reconfigure. + WARNING: ---------------------------------------------------------\n\n"))))) + +(defun riece-compile-module () + (let ((load-path (cons nil load-path))) + (let ((source (expand-file-name + (concat (car command-line-args-left) ".el")))) + (if (file-newer-than-file-p source (concat source "c")) + (byte-compile-file source))))) (defun riece-install-modules (modules dest just-print) (unless (or just-print (file-exists-p dest)) @@ -68,17 +135,47 @@ t t)) (princ (format "%s.elc -> %s\n" name dest)) (unless just-print - (copy-file (expand-file-name (concat name ".elc")) - (expand-file-name (concat name ".elc") dest) - t t))) + (if (file-exists-p (expand-file-name (concat name ".elc"))) + (copy-file (expand-file-name (concat name ".elc")) + (expand-file-name (concat name ".elc") dest) + t t) + (princ (format "(%s was not successfully compiled, ignored)\n" + name))))) (setq modules (cdr modules)))) +(defun riece-install-icons (icons dest just-print) + (unless (or just-print (file-exists-p dest)) + (make-directory dest t)) + (while icons + (when (file-exists-p (expand-file-name (car icons))) + (princ (format "%s -> %s\n" (car icons) dest)) + (unless just-print + (copy-file (expand-file-name (car icons)) + (expand-file-name (car icons) dest) + t t))) + (setq icons (cdr icons)))) + +(defun riece-install-scripts (scripts dest just-print) + (unless (or just-print (file-exists-p dest)) + (make-directory dest t)) + (while scripts + (when (file-exists-p (expand-file-name (car scripts))) + (princ (format "%s -> %s\n" (car scripts) dest)) + (unless just-print + (copy-file (expand-file-name (car scripts)) + (expand-file-name (car scripts) dest) + t t))) + (setq scripts (cdr scripts)))) + (defun riece-install-just-print-p () (let ((flag (getenv "MAKEFLAGS")) case-fold-search) (if flag (string-match "^\\(\\(--[^ ]+ \\)+-\\|[^ =-]\\)*n" flag)))) +(defun riece-examine () + (princ (mapconcat #'symbol-name riece-modules " "))) + (defun riece-compile () (riece-compile-modules riece-modules)) @@ -86,6 +183,14 @@ (riece-install-modules riece-modules (expand-file-name "riece" (car command-line-args-left)) + (riece-install-just-print-p)) + (riece-install-icons + riece-icons + (expand-file-name "riece" (car command-line-args-left)) + (riece-install-just-print-p)) + (riece-install-scripts + riece-scripts + (expand-file-name "riece" (car command-line-args-left)) (riece-install-just-print-p))) (defun riece-compile-package () @@ -102,6 +207,33 @@ (riece-install-modules (append riece-modules '(auto-autoloads custom-load)) + (expand-file-name "riece" + (expand-file-name "lisp" (car command-line-args-left))) + (riece-install-just-print-p)) + (riece-install-icons + riece-icons + (expand-file-name "riece" + (expand-file-name "lisp" (car command-line-args-left))) + (riece-install-just-print-p)) + (riece-install-scripts + riece-scripts (expand-file-name "riece" (expand-file-name "lisp" (car command-line-args-left))) (riece-install-just-print-p))) + +(defun riece-test () + (let ((load-path (cons (expand-file-name "test") (cons nil load-path))) + (files (directory-files "test" t "^test-.*\\.el$")) + suite) + (require 'lunit-report) + (setq suite (lunit-make-test-suite)) + (while files + (when (file-regular-p (car files)) + (load-file (car files)) + (lunit-test-suite-add-test + suite + (lunit-make-test-suite-from-class + (intern (file-name-sans-extension + (file-name-nondirectory (car files))))))) + (setq files (cdr files))) + (lunit-report suite (car command-line-args-left))))