home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume10 / comobj.lisp / part01 / co-defsys.l next >
Lisp/Scheme  |  1987-07-30  |  4KB  |  128 lines
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;
  3. ; File:         co-defsys.l
  4. ; RCS:          $Revision: 1.1 $
  5. ; SCCS:         %A% %G% %U%
  6. ; Description:  System Definition for CommonObjects
  7. ; Author:       James Kempf, HP/DCC
  8. ; Created:      11-Mar-87
  9. ; Modified:     11-Mar-87 22:08:34 (James Kempf)
  10. ; Language:     Lisp
  11. ; Package:      COMMON-OBJECTS
  12. ; Status:       Distribution
  13. ;
  14. ; (c) Copyright 1987, HP Labs, all rights reserved.
  15. ;
  16. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  17. ;
  18. ; Copyright (c) 1987 Hewlett-Packard Corporation. All rights reserved.
  19. ;
  20. ; Use and copying of this software and preparation of derivative works based
  21. ; upon this software are permitted.  Any distribution of this software or
  22. ; derivative works must comply with all applicable United States export
  23. ; control laws.
  24. ; 
  25. ; This software is made available AS IS, and Hewlett-Packard Corporation makes
  26. ; no warranty about the software, its performance or its conformity to any
  27. ; specification.
  28. ;
  29. ; Suggestions, comments and requests for improvement may be mailed to
  30. ; aiws@hplabs.HP.COM
  31.  
  32. ;;;-*-Mode:LISP; Package:(PCL LISP 1000); Base:10; Syntax:Common-lisp -*-
  33. ;;;
  34. ;;; *************************************************************************
  35. ;;; Copyright (c) 1985, 1986, 1987 Xerox Corporation.  All rights reserved.
  36. ;;;
  37. ;;; Use and copying of this software and preparation of derivative works
  38. ;;; based upon this software are permitted.  Any distribution of this
  39. ;;; software or derivative works must comply with all applicable United
  40. ;;; States export control laws.
  41. ;;; 
  42. ;;; This software is made available AS IS, and Xerox Corporation makes no
  43. ;;; warranty about the software, its performance or its conformity to any
  44. ;;; specification.
  45. ;;; 
  46. ;;; Any person obtaining a copy of this software is requested to send their
  47. ;;; name and post office or electronic mail address to:
  48. ;;;   CommonLoops Coordinator
  49. ;;;   Xerox Artifical Intelligence Systems
  50. ;;;   2400 Hanover St.
  51. ;;;   Palo Alto, CA 94303
  52. ;;; (or send Arpanet mail to CommonLoops-Coordinator.pa@Xerox.arpa)
  53. ;;;
  54. ;;; Suggestions, comments and requests for improvements are also welcome.
  55. ;;; *************************************************************************
  56. ;;;
  57.  
  58. (provide "co-defsys")
  59.  
  60. (in-package 'common-objects :nicknames '(co) :use '(lisp pcl walker))
  61.  
  62. (export '(compile-co 
  63.       load-co
  64.       run-tests
  65.     ))
  66.     
  67. (require "pcl")           ;  Portable CommonLoops
  68.  
  69. (defvar *co-system-date* "3/10/87")
  70.  
  71. (defvar *co-pathname-defaults*
  72.         (pathname "/net/hplfs2/users/kempf/public/cool/")
  73.     
  74. )
  75.  
  76. (defvar *co-files*
  77.   (let ((xxx-low (or #+KCL       'kcl-low  ; placeholder
  78.              #+HP        'hp-low
  79.              nil)))
  80.     ;; file         load           compile         files which force
  81.     ;;              environment    environment     recompilations of
  82.     ;;                                             this file
  83.     `(
  84.       (pcl-patches  nil             nil            nil)
  85.       (co-macros    t               (pcl-patches
  86.                     (co-macros :source))  (pcl-patches))
  87.       (co-dmeth     t               (co-macros
  88.                      pcl-patches)
  89.                                                (co-macros pcl-patches))
  90.       (co-meta      t               (co-macros
  91.                      pcl-patches
  92.                     (co-meta :source))
  93.                            (co-macros pcl-patches))
  94.       (co-dtype     t               (co-macros
  95.                      pcl-patches)  (co-macros pcl-patches))
  96.       (co-sfun      t               (co-macros
  97.                      pcl-patches)  (co-macros))
  98.     )))
  99.  
  100. (defmacro wrong-pcl-version? () 
  101.   '(not (string-equal "2/24/87" pcl::*pcl-system-date*)))
  102.  
  103. (defmacro error-wrong-pcl ()
  104.   '(error 
  105. "This version of CommonObjects will only run with
  106. Portable CommonLoops Version 'System Date 2/24/87'.
  107. This version of PCL may be obtained by sending mail
  108. to commonobjects-request@hplabs.hp.com"))
  109.  
  110. (defun load-co (&optional (sources-p nil))
  111.   (when (wrong-pcl-version?) (error-wrong-pcl))
  112.   (pcl::load-system
  113.     (if sources-p :sources :load) *co-files* *co-pathname-defaults*)
  114.   (provide "co"))
  115.  
  116. (defun compile-co (&optional (force-p nil))
  117.   (when (wrong-pcl-version?) (error-wrong-pcl))
  118.   (pcl::load-system 
  119.       (if force-p ':force ':compile) *co-files* *co-pathname-defaults*))
  120.  
  121. (defun run-tests ()
  122.   (load "co-test.l")
  123.   (load "co-regress.l")
  124. )
  125.  
  126. ;;; end of co-defsys.l ;;;;;
  127.  
  128.