Commit f8a7a26d authored by Dave Cooper's avatar Dave Cooper
Browse files

fixed dependencies for Allegro -- need to preload :gdl-aserve-ql-patch and...

fixed dependencies for Allegro -- need to preload :gdl-aserve-ql-patch and :gdl-cl-typesetting-ql-patch before :gdl-all --- until fixes are submitted to those libraries for quicklisp.
parent 102b0635
(in-package :common-lisp-user)
(asdf:defsystem #:gdl-all
:description "The Genworks GDL full system."
:author "Dave Cooper <david.cooper@genworks.com>"
:license "AGPL"
:serial t
:version "2011100200"
:depends-on (
:gdl-gwl-graphics
:depends-on (:gdl-gwl-graphics
:gdl-ta2
:gdl-tasty
:gdl-demos
......
(:gdl-base :cl-fad)
(:gdl-base :cl-fad :gdl-cl-typesetting-ql-patch)
......@@ -4,6 +4,6 @@
:author
"Genworks and Dave Cooper unless otherwise indicated"
:license "AGPL unless otherwise indicated" :serial t
:version "2011111700" :depends-on (:gdl-base :cl-fad)
:version "2011111700" :depends-on (:gdl-base :cl-fad :gdl-cl-typesetting-ql-patch)
:components
((:file "source/genworks") (:file "source/cl-lite")))
\ No newline at end of file
(:gdl-cl-lite :cl-typesetting :gdl-cl-typesetting-ql-patch)
(:gdl-cl-lite :cl-typesetting)
......@@ -11,7 +11,7 @@
:version
"2011121800"
:depends-on
(:gdl-cl-lite :cl-typesetting :gdl-cl-typesetting-ql-patch)
(:gdl-cl-lite :cl-typesetting)
:components
((:file "prereqs/source/cl-pdf-patches")
(:file "prereqs/source/matrix")
......
(:gdl-base :gdl-cl-lite :gdl-aserve-ql-patch :aserve :cl-pdf :cl-who :cl-ppcre :cl-base64 :trivial-backtrace)
(:gdl-base :gdl-cl-lite :aserve :cl-pdf :cl-who :cl-ppcre :cl-base64 :trivial-backtrace)
......@@ -13,7 +13,6 @@
:depends-on
(:gdl-base
:gdl-cl-lite
:gdl-aserve-ql-patch
:aserve
:cl-pdf
:cl-who
......
;;
;; Copyright 2002-2011 Genworks International and Genworks BV
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(in-package :common-lisp-user)
(let ((setup (merge-pathnames "../../common/quicklisp/setup.lisp"
*load-truename*)))
(if (probe-file setup) (load setup)
(progn
(load (merge-pathnames "quicklisp.lisp" *load-truename*))
(funcall (read-from-string "quicklisp-quickstart:install")
:path (make-pathname :name nil
:type nil
:defaults (merge-pathnames "../../common/quicklisp/" *load-truename*))))))
;;
;; FLAG -- Temporary hacks around currently broken Quicklisp .asd files and sytems:
;;
#+allegro
(load (merge-pathnames "quicklisp-local/portableaserve-20110730-cvs/aserve/aserve.asd"
*load-truename*))
(let ((fasl (compile-file
(merge-pathnames
"quicklisp-local/cl-typesetting-20110219-svn/hyphenation-fp.lisp"
*load-truename*))))
(load fasl)
(delete-file fasl))
;;
;; FLAG -- figure out how to get all these loaded automatically
;; or placed/linked in a standard location.
;;
(load (merge-pathnames "gdl/base/gdl-base.asd" *load-truename*))
(load (merge-pathnames "gdl/cl-lite/gdl-cl-lite.asd" *load-truename*))
(load (merge-pathnames "gdl/geom-base/gdl-geom-base.asd" *load-truename*))
(load (merge-pathnames "gdl/gwl/gdl-gwl.asd" *load-truename*))
(load (merge-pathnames "gdl/gwl-graphics/gdl-gwl-graphics.asd" *load-truename*))
(load (merge-pathnames "gdl/apps/tree/gdl-tree.asd" *load-truename*))
(load (merge-pathnames "gdl/apps/ta2/gdl-ta2.asd" *load-truename*))
(load (merge-pathnames "gdl/apps/tasty/gdl-tasty.asd" *load-truename*))
(load (merge-pathnames "demos/gdl-demos.asd" *load-truename*))
(load (merge-pathnames "build/gdl-build.asd" *load-truename*))
(load (merge-pathnames "gdl/apps/yadd/gdl-yadd.asd" *load-truename*))
(load (merge-pathnames "gdl-all.asd" *load-truename*))
(ql:quickload :gdl-all)
;;
;; FLAG -- following two and other specific feature additions should be done by .asd system
;; "perform" statements (when I figure out how those work).
;;
(pushnew :genworks-base *features*)
(pushnew :genworks-gdl-base *features*)
(pushnew :genworks-cl-lite *features*)
;;
;; Skeleton "vanilla" geometry kernel - nonfunctional without SMLib module.
;;
(load (merge-pathnames "surf/gdl-surf.asd" *load-truename*))
(:gdl-base)
\ No newline at end of file
......@@ -10,10 +10,5 @@
t
:version
"2011121800"
:depends-on
(:gdl-base)
:components
((:file "source/load")))
nil
\ No newline at end of file
......@@ -10,7 +10,5 @@
t
:version
"2011121800"
:depends-on
(:gdl-base)
:components
((:file "source/load")))
\ No newline at end of file
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment