1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
;;; -*- Mode:Lisp; Package:USER; Syntax:COMMON-LISP; Base:10; Lowercase:T -*-
;;;----------------------------------------------------------------------------------+
;;; |
;;; TEXAS INSTRUMENTS INCORPORATED |
;;; P.O. BOX 149149 |
;;; AUSTIN, TEXAS 78714-9149 |
;;; |
;;; Copyright (C) 1989, 1990 Texas Instruments Incorporated. |
;;; |
;;; Permission is granted to any individual or institution to use, copy, modify, and |
;;; distribute this software, provided that this complete copyright and permission |
;;; notice is maintained, intact, in all copies and supporting documentation. |
;;; |
;;; Texas Instruments Incorporated provides this software "as is" without express or |
;;; implied warranty. |
;;; |
;;;----------------------------------------------------------------------------------+
(in-package "USER")
(unless (find-package "CLIO-OPEN")
(error "You must load CLIO before building the CLIO examples."))
#+explorer
(defsystem clio-examples
(:name "CLIO Example Programs")
(:short-name "CLIO Examples")
(:pathname-default "CLIO:EXAMPLES;")
(:initial-status :experimental)
;; The real source files...
(:module package ("package"))
(:module clio-extras ("cmd-frame"))
(:module example-contacts ("sketchpad"))
(:module sketch ("sketch"))
;; The transformations...
(:compile-load package)
(:compile-load clio-extras)
(:compile-load example-contacts
(:fasload package)
(:fasload package))
(:compile-load sketch
(:fasload package clio-extras example-contacts)
(:fasload package clio-extras example-contacts)))
(defun load-clio-examples (&key (host "CLIO") (directory "EXAMPLES") (compile-p t) (verbose-p t))
(dolist (file (mapcar
#'(lambda (name)
(make-pathname
:host host
:directory directory
:name name
:type :wild
:version :newest))
'("PACKAGE"
"CMD-FRAME"
"SKETCHPAD"
"SKETCH")))
(when compile-p
(when verbose-p
(format t "~% Compiling ~12t~a..." file))
(compile-file file))
(when verbose-p
(format t "~% Loading ~12t~a..." file))
(load file)
(when (and compile-p verbose-p)
(format t "~%"))))
|
