/[mcclim]/mcclim/system-opengl.lisp
ViewVC logotype

Contents of /mcclim/system-opengl.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations)
Fri Mar 21 15:15:09 2003 UTC (11 years, 1 month ago) by mikemac
Branch: MAIN
CVS Tags: McCLIM-0-9, mcclim-0-9-4, McCLIM-0-9-5, McCLIM-0-9-4, McCLIM-0-9-6, McCLIM-0-9-1, McCLIM-0-9-3, McCLIM-0-9-2, HEAD
Changes since 1.1: +5 -5 lines
make all #+/#- conditionals lowercase for ACLs java mode
1 ;;; -*- Mode: Lisp; Package: User -*-
2
3 ;;; (c) copyright 1998,1999,2000 by Michael McDonald (mikemac@mikemac.com)
4 ;;; (c) copyright 2000 by
5 ;;; Robert Strandh (strandh@labri.u-bordeaux.fr)
6 ;;; (c) copyright 2001 by Julien Boninfnate (boninfan@emi.u-bordeaux.fr)
7
8 ;;; This library is free software; you can redistribute it and/or
9 ;;; modify it under the terms of the GNU Library General Public
10 ;;; License as published by the Free Software Foundation; either
11 ;;; version 2 of the License, or (at your option) any later version.
12 ;;;
13 ;;; This library is distributed in the hope that it will be useful,
14 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
15 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 ;;; Library General Public License for more details.
17 ;;;
18 ;;; You should have received a copy of the GNU Library General Public
19 ;;; License along with this library; if not, write to the
20 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
21 ;;; Boston, MA 02111-1307 USA.
22
23 (in-package :common-lisp-user)
24
25 #+excl(require :loop)
26
27 (defparameter *clim-directory* (directory-namestring *load-truename*))
28
29 #+cmu
30 (progn
31 (unless (fboundp 'stream-read-char)
32 (unless (ignore-errors (ext:search-list "gray-streams:"))
33 (setf (ext:search-list "gray-streams:")
34 '("target:pcl/" "library:subsystems/")))
35 (load "gray-streams:gray-streams-library"))
36 #+nil
37 (load (merge-pathnames "patch-cmu.lisp" *clim-directory*))
38
39 #-mk-defsystem
40 (load "library:subsystems/defsystem"))
41
42 (pushnew :CLIM *features*)
43
44 #+mk-defsystem (use-package "MK")
45
46 (defsystem :clim #-mk-defsystem ()
47 #+mk-defsystem :source-pathname #+mk-defsystem *clim-directory*
48 #+mk-defsystem :source-extension #+mk-defsystem "lisp"
49 #+mk-defsystem :components
50 (:serial
51
52 ;; First possible patches
53 #+cmu "lisp-dep/fix-cmu"
54
55 "package"
56
57 "decls"
58
59 #.(or
60 #+(and :cmu :mp (not :pthread)) "lisp-dep/mp-cmu"
61 #+excl "lisp-dep/mp-acl"
62 #| fall back |# "lisp-dep/mp-nil")
63 "utils"
64 "defresource"
65 "setf-star"
66
67 "design"
68 "X11-colors"
69 ;; "brectangle"
70 "coordinates"
71 "transforms"
72 "regions"
73 "sheets"
74 "pixmap"
75 "ports"
76 "grafts"
77 "medium"
78 "output"
79 "input"
80 "events"
81 "repaint"
82 "graphics"
83 "stream-output"
84 "recording"
85 "stream-input"
86 "presentations"
87 "commands"
88 "frames"
89 "panes"
90 ; "exports"
91 "gadgets"
92 "menu"
93 "table-formatting"
94 "postscript-medium"
95 ))
96
97 (defsystem :clim-opengl #-mk-defsystem ()
98 #+mk-defsystem :source-pathname #+mk-defsystem *clim-directory*
99 #+mk-defsystem :source-extension #+mk-defsystem "lisp"
100 #+mk-defsystem :depends-on #+mk-defsystem (:clim)
101 #+mk-defsystem :components
102 (:serial
103 #-mk-defsystem :clim
104 "opengl/opengl-x-frame-manager"
105 "opengl/opengl-frame-manager"
106 "opengl/opengl-x-port-before"
107 "opengl/opengl-port"
108 "opengl/opengl-x-port-after"
109 "opengl/opengl-medium"
110 "opengl/opengl-x-graft"
111 ))
112
113
114 (defsystem :clim-examples #-mk-defsystem ()
115 #+mk-defsystem :source-pathname #+mk-defsystem *clim-directory*
116 #+mk-defsystem :source-extension #+mk-defsystem "lisp"
117 #+mk-defsystem :depends-on #+mk-defsystem (:clim-opengl)
118 #+mk-defsystem :components
119 (:serial
120 #-mk-defsystem :clim-clx
121 "examples/calculator"
122 "examples/colorslider"
123 "examples/menutest"
124 "examples/address-book"
125 "examples/traffic-lights"
126 "examples/clim-fig"
127 "examples/postscript-test"
128 "examples/transformations-test"
129 ))

  ViewVC Help
Powered by ViewVC 1.1.5