Mercurial > hg > xemacs-beta
diff lisp/ilisp/ilisp-mak.el @ 0:376386a54a3c r19-14
Import from CVS: tag r19-14
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:45:50 +0200 |
parents | |
children | b82b59fe008d |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/ilisp/ilisp-mak.el Mon Aug 13 08:45:50 2007 +0200 @@ -0,0 +1,127 @@ +;;; -*- Mode: Emacs-Lisp -*- + +;;; ilisp-mak.el -- + +;;; This file is part of ILISP. +;;; Version: 5.7 +;;; +;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell +;;; 1993, 1994 Ivan Vasquez +;;; 1994, 1995 Marco Antoniotti and Rick Busdiecker +;;; +;;; Other authors' names for which this Copyright notice also holds +;;; may appear later in this file. +;;; +;;; Send mail to 'ilisp-request@lehman.com' to be included in the +;;; ILISP mailing list. 'ilisp@lehman.com' is the general ILISP +;;; mailing list were bugs and improvements are discussed. +;;; +;;; ILISP is freely redistributable under the terms found in the file +;;; COPYING. + + + +;;; +;;; This file is used by make to compile ilisp. +;;; +;;; Note: 11/23/94 Marco Antoniotti. Actually I believe that this +;;; should be removed or redone. + +(message "ILISP Compilation: starting.") + +;;(require 'bytecomp) + +(if (not (file-exists-p "ilcompat.el")) + (error "ILISP Compilation: compatibility file 'ilcompat.el' non existent.") + (progn + (setq load-path (cons "." load-path)) + + (load "ilcompat.el") ; Need to load this beforehand + ; to use the +ilisp-emacs-version-id+ + ; constant. + + (message ";;; Emacs Version %s" +ilisp-emacs-version-id+) + + (if (eq +ilisp-emacs-version-id+ 'fsf-18) + (load "comint-v18") + (load "comint")) + + + ;; Try to generate bytecodes for emacs 19. + ;; I am no expert on the Byte Compiler. ANyone who is please send + ;; me mail. + ;; Marco Antoniotti <marcoxa@cs.nyu.edu> + + (if (eq +ilisp-emacs-version-id+ 'fsf-18) + (setq byte-compile-emacs18-compatibility t) + (setq byte-compile-generate-emacs19-bytecodes t + byte-compile-warnings '(redefine callargs unresolved))) + + ;; Compile compatibility files + (progn + (cond ((or (eq +ilisp-emacs-version-id+ 'lucid-19) + (eq +ilisp-emacs-version-id+ 'lucid-19-new) + (eq +ilisp-emacs-version-id+ 'xemacs)) + (byte-compile "illuc19.el") ; Note that in current version + ; of ILISP illuc19 and + ; ilxemacs are linked + ) + ((eq +ilisp-emacs-version-id+ 'fsf-19) + (byte-compile "ilfsf19.el")) + ((eq +ilisp-emacs-version-id+ 'fsf-18) + (byte-compile "ilfsf18.el")) + (t (error "ILISP Compilation: unrecogninized Emacs version %s" + +ilisp-emacs-version-id+))) + (byte-compile "ilcompat.el")) + + ;; Other files in the distribution. + + (let ((files '(completer + comint-ipc + bridge + ilisp-def + ilisp-el + ilisp-sym + ilisp-inp + ilisp-ind + + ilisp-prc + ilisp-val + ilisp-out + ilisp-mov + ilisp-key + ilisp-prn + ilisp-low + ilisp-doc + ilisp-ext + ilisp-mod + ilisp-dia + ilisp-cmt + ilisp-rng + ilisp-hnd + ilisp-utl + ilisp-cmp + ilisp-kil + ilisp-snd + ilisp-xfr + ilisp-hi + ilisp-aut + + ;; Dialects. + ilisp-cl + ilisp-cmu + ilisp-acl + ilisp-kcl + ilisp-hlw + ilisp-luc + ilisp-sch + ))) + (while files + (byte-recompile-file (format "%s.el" (car files)) 0) + (load (format "%s" (car files))) + (setq files (cdr files)))) + + (message "Done"))) + +;;; end of file -- ilisp-mak.el -- +