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

Contents of /mcclim/system-opengl.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations)
Thu Sep 13 13:19:38 2001 UTC (12 years, 7 months ago) by boninfan
Branch: MAIN
This is the source code of the beta-version of the OpenGL backend.
Read the opengl/README file to use it.
Julien
1 boninfan 1.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