home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mitsch75.zip / scheme-7_5_17-src.zip / scheme-7.5.17 / src / imail / compile.scm < prev    next >
Text File  |  2001-05-25  |  2KB  |  49 lines
  1. ;;; -*-Scheme-*-
  2. ;;;
  3. ;;; $Id: compile.scm,v 1.11 2001/05/26 02:58:25 cph Exp $
  4. ;;;
  5. ;;; Copyright (c) 2000-2001 Massachusetts Institute of Technology
  6. ;;;
  7. ;;; This program is free software; you can redistribute it and/or
  8. ;;; modify it under the terms of the GNU General Public License as
  9. ;;; published by the Free Software Foundation; either version 2 of the
  10. ;;; License, or (at your option) any later version.
  11. ;;;
  12. ;;; This program is distributed in the hope that it will be useful,
  13. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15. ;;; General Public License for more details.
  16. ;;;
  17. ;;; You should have received a copy of the GNU General Public License
  18. ;;; along with this program; if not, write to the Free Software
  19. ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  20. ;;; 02111-1307, USA.
  21.  
  22. ;;;; IMAIL mail reader: compilation
  23.  
  24. (load-option 'CREF)
  25. (load-option 'SOS)
  26. (with-working-directory-pathname (directory-pathname (current-load-pathname))
  27.   (lambda ()
  28.     (for-each compile-file
  29.           '("imail-core"
  30.         "imail-file"
  31.         "imail-imap"
  32.         "imail-rmail"
  33.         "imail-umail"
  34.         "imail-util"
  35.         "imap-response"
  36.         "imap-syntax"
  37.         "parser"
  38.         "rexp"
  39.         "url"))
  40.     (for-each (let ((syntax-table
  41.              (access edwin-syntax-table (->environment '(EDWIN)))))
  42.         (lambda (filename)
  43.           (compile-file filename '() syntax-table)))
  44.           '("imail-browser"
  45.         "imail-summary"
  46.         "imail-top"))
  47.     (cref/generate-constructors "imail")
  48.     (sf "imail.con")
  49.     (sf "imail.ldr")))