load.lisp

   1 ;;;
   2 ;;;
   3 ;;; 1. Grab these:
   4 ;;;
   5 ;;;    http://common-lisp.net/cgi-bin/viewcvs.cgi/cells/?root=cells
   6 ;;;    Celtk: http://common-lisp.net/cgi-bin/viewcvs.cgi/Celtk/?root=cells
   7 ;;;    CFFI: http://common-lisp.net/project/cffi/releases/cffi_0.9.1.tar.gz
   8 ;;;    cl-opengl: http://common-lisp.net/cgi-bin/darcsweb/darcsweb.cgi?r=cl-opencl%20cl-opengl;a=summary
   9 ;;
  10 ;;;   At the bottom of any of those pages look for a "Download tarball" link. Except cl-opengl, those guys
  11 ;;;   are not download-friendly.
  12 ;;;
  13 ;;; 2. Get ASDF loaded. From http://www.cliki.net/asdf we learn:
  14 ;;;
  15 ;;; "If you have SBCL, OpenMCL, ECL or ACL, it's bundled and you need only (require 'asdf).
  16 ;;;  If you have Debian or Gentoo and the Common Lisp Controller installed, you also
  17 ;;;  already have it. Otherwise you can find it in the Sourceforge cCLan CVS repository:
  18 ;;;
  19 ;;;     http://cclan.cvs.sourceforge.net/cclan/asdf/ "
  20 ;;;
  21 ;;; 3. If the automatic options in step 2 could not be used, adjust the path and evaluate
  22
  23 #+adjust-pathname-first!
  24
  25 (load (make-pathname #+lispworks :host #-lispworks :device "c"
  26         :directory '(:absolute "0dev" "cells")
  27         :name "asdf"
  28         :type "lisp"))
  29
  30 ;;; 4. Only after you have gotten ASDF loaded, you can tell ASDF
  31 ;;;    where you put everything by adjusting these paths and evaluating:
  32
  33 (progn
  34   (push (make-pathname #+lispworks :host #-lispworks :device "c"
  35                        :directory '(:absolute "0dev" "cells"))
  36         asdf:*central-registry*)
  37
  38   (push (make-pathname #+lispworks :host #-lispworks :device "c"
  39                        :directory '(:absolute "1-devtools" "cffi-060606"))
  40         asdf:*central-registry*)
  41
  42   (push (make-pathname #+lispworks :host #-lispworks :device "c"
  43                        :directory '(:absolute "0dev" "Celtk"))
  44         asdf:*central-registry*))
  45
  46 ;;; 5. Track down all the define-foreign-library calls in the source
  47 ;;;    and fix the pathnames to point to your shared libraries. Recently these were:
  48 ;;;
  49 ;;;    In tk-interp.lisp, Tcl and Tk d-f-ls.
  50
  51 ;;; 6. Now you can try building the whole mess. Warning: I use ":serial t" to work around
  52 ;;;    silly ASDF default behavior, so if you start fiddling with the code you may not want
  53 ;;;    to use ASDF to build (or comment out the :serial option until the next session):
  54
  55 (ASDF:OOS 'ASDF:LOAD-OP :celtk)
  56
  57 ;;; and test:
  58
  59 (ctk::test-window 'celtk-user::lotsa-widgets)
  60
  61 ;;; To see the OpenGL Gears demo, some heavy lifting is required.
  62 ;;;
  63 ;;; 1. Get, install, and test Togl. Here is a Web link:
  64 ;;;
  65 ;;;       http://www.mesa3d.org/brianp/sig97/togl.htm
  66 ;;;
  67 ;;;    If you are on win32 and have trouble, send an email to the list and I will send you a DLL
  68 ;;;
  69 ;;; 2. You already grabbed cl-opengl from the location shown above. Now:
  70 ;;;
  71
  72 #+adjust-pathname-and-evaluate
  73 (push (make-pathname #+lispworks :host #-lispworks :device "c"
  74         :directory '(:absolute "1-devtools" "cl-opengl"))
  75   asdf:*central-registry*)
  76
  77 ;;;
  78 ;;;  3.  Adjust the pathname again in togl.lisp, in the define-foreign-library for Togl.
  79 ;;;
  80 ;;;  4.  Build:
  81
  82 (ASDF:OOS 'ASDF:LOAD-OP :gears)
  83
  84 ;;; 5.  Test:
  85
  86 #+test
  87 (gears::gears)