Commit f4d74470 authored by Dave Cooper's avatar Dave Cooper

Updating bootstrapping to include :surf package

parent 93ddf8fe
......@@ -3,7 +3,7 @@
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130317" :depends-on (:gwl-graphics)
:serial t :version "20130318" :depends-on (:gwl-graphics)
:components
((:file "source/package") (:file "source/parameters")
(:file "source/javascript") (:file "source/action-object")
......
......@@ -3,7 +3,7 @@
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130317" :depends-on (:tree :gwl-graphics)
:serial t :version "20130318" :depends-on (:tree :gwl-graphics)
:components
((:file "source/package") (:file "source/parameters")
(:file "source/assembly") (:file "source/initialize")
......
......@@ -3,7 +3,7 @@
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130317" :depends-on nil :components
:serial t :version "20130318" :depends-on nil :components
((:file "xml/source/package") (:file "xml/source/genworks")
(:file "xml/source/definition-tree") (:file "xml/source/gdl2xml")
(:file "xml/source/xml2gdl")))
......@@ -3,7 +3,7 @@
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130317" :depends-on (:gwl-graphics)
:serial t :version "20130318" :depends-on (:gwl-graphics)
:components
((:file "source/package") (:file "source/parameters")
(:file "source/ajax") (:file "source/assembly")
......
......@@ -3,7 +3,7 @@
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130317" :depends-on (:gwl-graphics)
:serial t :version "20130318" :depends-on (:gwl-graphics)
:components
((:file "source/package") (:file "source/genworks")
(:file "source/mixins")
......
......@@ -157,9 +157,6 @@
(mapcar #'gl-class-name
(direct-superclasses class)))
(defun display-startup-banner (edition banner)
(declare (ignore edition))
(format t banner))
#-(or allegro lispworks cmu sbcl ccl abcl ecl clisp)
(error "Need implementation for eql-specializer for currently running lisp.~%")
......
......@@ -353,6 +353,7 @@ If you are interested in this effort we would love to hear from you at open-sour
#:with-heuristic-case-mode
#:with-timeout-sym
#:with-timeout
#:without-redefinition-warnings
#:close-old-areas
......
......@@ -48,8 +48,7 @@
(startup-banner) (load-gdl-init-files) (values))
(defun load-gdl-init-files (&key edition)
(declare (ignore edition))
(defun load-gdl-init-files ()
(let* ((user-homedir (user-homedir-pathname))
(current-directory (glisp:current-directory))
(homedir-init-file (or (probe-file (merge-pathnames ".gdlinit.cl" user-homedir))
......@@ -66,27 +65,29 @@
(defun startup-banner (&key edition)
(glisp:display-startup-banner edition
(defun startup-banner ()
(format t
"
Copyright 2013 Genworks International
Welcome to Gendl(TM).
Welcome to Gendl™
This program 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.
Copyright© 2002-2013, Genworks International, Birmingham MI, USA.
All Rights Reserved.
This program 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 program 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.
This program 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 the source code for this program. If not, see:
You should have received a copy of the GNU Affero General Public
License along with the source code for this program. If not, see:
http://www.gnu.org/licenses/
http://www.gnu.org/licenses/
"))
......
......@@ -3,7 +3,7 @@
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130317" :depends-on (:glisp) :components
:serial t :version "20130318" :depends-on (:glisp) :components
((:file "source/package") (:file "source/parameters")
(:file "source/cl-lite") (:file "source/initialize")
(:file "source/zzinit")))
......@@ -3,7 +3,7 @@
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130317" :depends-on nil :components
:serial t :version "20130318" :depends-on nil :components
((:file "source/package") (:file "source/assembly")
(:file "source/body") (:file "source/chassis")
(:file "source/interior") (:file "source/rule-ackermann")
......
......@@ -3,6 +3,6 @@
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130317" :depends-on nil :components
:serial t :version "20130318" :depends-on nil :components
((:file "source/package") (:file "source/assembly")
(:file "source/html")))
......@@ -3,7 +3,7 @@
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130317" :depends-on (:gwl-graphics)
:serial t :version "20130318" :depends-on (:gwl-graphics)
:components
((:file "source/package") (:file "source/assembly")
(:file "source/initialize") (:file "source/parameters")
......
......@@ -3,6 +3,6 @@
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130317" :depends-on nil :components
:serial t :version "20130318" :depends-on nil :components
((:file "source/infpre") (:file "source/cards-by-number")
(:file "source/assembly") (:file "source/find")))
......@@ -3,5 +3,5 @@
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130317" :depends-on nil :components
:serial t :version "20130318" :depends-on nil :components
((:file "source/package") (:file "source/assembly")))
......@@ -3,7 +3,7 @@
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130317" :depends-on nil :components
:serial t :version "20130318" :depends-on nil :components
((:file "source/ch2-examples") (:file "source/ch2-solutions")
(:file "source/ch3-examples") (:file "source/primi-plane-1")
(:file "source/primi-plane-2") (:file "source/primi-plane-3")
......
......@@ -3,7 +3,7 @@
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130317" :depends-on (:glisp) :components
:serial t :version "20130318" :depends-on (:glisp) :components
((:file "prereqs/source/presets")
(:file "prereqs/source/cl-pdf-patches")
(:file "prereqs/source/matrix") (:file "prereqs/source/parameters")
......
......@@ -3,7 +3,7 @@
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130317" :depends-on
:serial t :version "20130318" :depends-on
(:base :uiop :cl-typesetting :cl-ppcre :cl-who #-allegro :cl-base64 #-allegro :babel #-allegro :acl-compat)
:components
((:file "source/presets") (:file "source/genworks")
......
......@@ -561,3 +561,11 @@ please find implementation for the currently running lisp.~%")
#-allegro `(acl-compat.mp:with-timeout (,seconds ,@timeout-body)
,@body))
(defmacro without-redefinition-warnings (&rest body)
#+allegro
`(excl:without-redefinition-warnings ,@body)
#-allegro
(progn
(warn "Need an implementation for without-redefinition-warnings for ~a~%." (lisp-implementation-type))
`(progn ,@body)))
\ No newline at end of file
......@@ -3,14 +3,14 @@
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130317" :depends-on (:geom-base :gwl)
:serial t :version "20130318" :depends-on (:geom-base :gwl)
:components
((:file "source/parameters")
(:file "gwl/source/application-mixin")
((:file "gwl/source/application-mixin")
(:file "gwl/source/base-ajax-graphics-sheet")
(:file "gwl/source/base-html-graphics-sheet")
(:file "gwl/source/layout-mixin")
(:file "gwl/source/process-graphics-fields")
(:file "gwl/source/web-drawing") (:file "gwl/source/x3d-try")
(:file "raphael/source/package") (:file "raphael/source/formats")
(:file "raphael/source/lenses") (:file "zzinit/source/zzinit")))
(:file "raphael/source/lenses") (:file "source/parameters")
(:file "zzinit/source/initialize") (:file "zzinit/source/zzinit")))
......@@ -3,8 +3,7 @@
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130317" :depends-on
(:glisp :aserve #-allegro :cl-base64 #-allegro :babel)
:serial t :version "20130318" :depends-on (:glisp :aserve)
:components
((:file "source/package") (:file "source/defparameters")
(:file "source/presets") (:file "source/base-html-sheet")
......
......@@ -3,7 +3,7 @@
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130317" :depends-on (:lift :surf :tasty)
:serial t :version "20130318" :depends-on (:lift :surf :tasty)
:components
((:file "utils/source/package") (:file "utils/source/genworks")
(:file "utils/source/parameters") (:file "utils/source/functions")
......
(in-package :surf)
(defun initialize! ()
(defun initialize ()
(let ((anything-changed? nil))
(unless *geometry-kernel*
(setq anything-changed? t)
(make-geometry-kernel :vanilla))
anything-changed?))
;;
;; FLAG -- put this into internals package, not gdl itself.
;;
(setq gdl::*packages-to-initialize* (append gdl::*packages-to-initialize* (list :surf)))
\ No newline at end of file
......@@ -45,6 +45,7 @@
(defmethod make-geometry-kernel ((type (eql :vanilla)) &key (in-memory t) (host nil) (login nil) (password nil))
(declare (ignore in-memory host login password))
(format t "~&Setting surf:*geometry-kernel* to the Vanilla (i.e. skeleton) geometry kernel.~%")
(setq *geometry-kernel* (make-instance 'vanilla-geometry-kernel)))
......
......@@ -3,7 +3,7 @@
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130317" :depends-on (:geom-base) :components
:serial t :version "20130318" :depends-on (:geom-base) :components
((:file "source/parameters") (:file "source/classes")
(:file "source/methods") (:file "source/curve")
(:file "source/surface") (:file "source/approximated-curve")
......@@ -59,4 +59,4 @@
(:file "source/trimmed-surface") (:file "source/utilities")
(:file "source/validated-solid") (:file "source/vertex")
(:file "source/views") (:file "lenses/source/vrml")
(:file "lenses/source/x3d")))
(:file "lenses/source/x3d") (:file "zzinit/source/zzinit")))
(in-package :surf)
(defparameter *these-features* (list :surf))
(glisp:set-features *these-features*)
(setq gdl::*features-to-initialize* (append gdl::*features-to-initialize* *these-features*))
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