Commit 7cb0960d authored by Dave Cooper's avatar Dave Cooper
Browse files

WARNING *** SYSTEM IS INTENTIONALLY BROKEN (temporarily, for testing).

parent f07ce646
(defsystem #:apps :description
"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 "20130314" :depends-on nil :components
((:file "ta2/source/package")
(:file "ta2/source/parameters")
(:file "ta2/source/javascript")
(:file "ta2/source/action-object")
(:file "ta2/source/ajax") (:file "ta2/source/assembly")
(:file "ta2/source/click-mode")
(:file "ta2/source/inspector")
(:file "ta2/source/object-tree")
(:file "ta2/source/part-type-form")
(:file "ta2/source/publish")
(:file "ta2/source/viewport")))
\ No newline at end of file
......@@ -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 "20130314" :depends-on
:serial t :version "20130315" :depends-on
(:tree :gwl-graphics) :components
((:file "source/package") (:file "source/parameters")
(:file "source/assembly") (:file "source/inspector")
......
......@@ -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 "20130314" :depends-on (:gwl-graphics)
:serial t :version "20130315" :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 "20130314" :depends-on (:gwl-graphics)
:serial t :version "20130315" :depends-on (:gwl-graphics)
:components
((:file "source/package") (:file "source/genworks")
(:file "source/mixins")
......
(asdf:defsystem #:base :description
"Auto-generated asdf defsys from Genworks GDL cl-lite."
"Base GenDL Kernel Supplying define-object, define-format, define-view macros and Associated Referencing Operators and KBE Runtime Engine."
:author
"Genworks and Dave Cooper unless otherwise indicated"
:license "AGPL unless otherwise indicated" :serial t
:version "2013031000"
"Dave Cooper and Genworks International"
:license "Gnu Affero General Public License (please see http://www.gnu.org/licenses/)" :serial t
:version "2013031400"
:components
((:file "common/package")
(:file "common/genworks")
......@@ -32,4 +32,5 @@
(:file "rest/source/init")
(:file "rest/source/make-part")
(:file "rest/source/null-part")
(:file "rest/source/sequence")))
(:file "rest/source/sequence")
(:file "rest/source/zzinit")))
......@@ -237,28 +237,15 @@
#+allegro (make-hash-table :values nil)
#-allegro (make-hash-table)))
(defvar *known-system-prefixes* (list "gdl" "gendl" "genworks"))
(defun other-feature (feature)
(let ((prefixes *known-system-prefixes*))
(setq feature (ensure-string feature))
(if (every #'(lambda(prefix) (not (search prefix feature))) prefixes)
(intern (concatenate 'string "gdl-" feature) :keyword)
(mapc #'(lambda(prefix)
(when (string-equal (subseq feature 0 (length prefix)) prefix)
(subseq feature (length prefix)))) prefixes))))
(defun make-versioned-features (feature)
(let ((other-feature (other-feature feature)))
(mapcar #'(lambda(sym) (intern sym :keyword))
(remove
nil
(list
feature other-feature
(let ((version (find-feature-version feature nil)))
(when version (format nil "~a-~a" feature version)))
(let ((version (find-feature-version other-feature nil)))
(when version (format nil "~a-~a" other-feature version))))))))
(mapcar #'(lambda(string)
(intern string :keyword))
(remove
nil
(list feature (let ((version (find-feature-version feature nil)))
(when version (format nil "~a-~a" feature version)))))))
#-(or allegro lispworks sbcl ccl abcl ecl clisp)
......
......@@ -216,8 +216,8 @@ If you are interested in this effort we would love to hear from you at open-sour
#:set-self
#:split
#:standard-query
#:start-gdl
#:start-gendl
#:start-gdl!
#:start-gendl!
#:start-gdl-runtime
#:start-gendl-runtime
#:status-message
......@@ -355,6 +355,7 @@ If you are interested in this effort we would love to hear from you at open-sour
#:split-regexp
#:with-heuristic-case-mode
#:with-timeout-sym
#:with-timeout
;;
;; Implemented in regression/utils/source/genworks.lisp
......
......@@ -21,6 +21,12 @@
(in-package :gdl)
;;
;; FLAG GLOBALS catalog these settings which affect compiling.
;;
(glisp:set-default-float-format)
(glisp:set-defpackage-behavior)
(defparameter *init-functions* nil)
......@@ -42,7 +48,7 @@
;; on its local anything-changed?. Consider collecting and reporting
;; those results here.
;;
(defun start-gendl ()
(defun start-gendl! ()
(dolist (package (list :gdl :geom-base :gwl))
(when (find-package package)
(let ((function-sym (read-from-string (format nil "~a::initialize" package))))
......@@ -104,7 +110,6 @@
;; defer until end of loading everything.
;;
(defun initialize ()
(declare (ignore edition))
(setq glisp:*gdl-program-home* (glisp:executable-homedir-pathname))
......@@ -119,5 +124,3 @@
(glisp:xref-off)
(glisp:set-window-titles))
(glisp:set-default-float-format)
(glisp:set-defpackage-behavior)
......@@ -26,21 +26,21 @@
(defparameter *compiling-changes* nil)
(defparameter *load-source-code-database?* (not *production-build?*)
(defparameter *load-source-code-database?* nil ;;(not *production-build?*)
"Boolean. Determines whether pre-compiled source code
information will be loaded from compiled files. Defaults to T.")
(defparameter *curve-chords* 50 "Integer. The number of chords to use per Bezier curve when rendering curves as a sequence of straight chords (e.g. in VRML).")
(defparameter *load-documentation-database?* t ;;(not *production-build?*)
(defparameter *load-documentation-database?* nil ;;t ;;(not *production-build?*)
"Boolean. Determines whether pre-compiled documentation strings
information will be loaded from compiled files. Defaults to T.")
(defparameter *compile-source-code-database?* (not *production-build?*)
(defparameter *compile-source-code-database?* nil ;;(not *production-build?*)
"Boolean. Determines whether source code information
information will be compiled into compiled files. Defaults to T.")
(defparameter *compile-documentation-database?* t ;;(not *production-build?*)
(defparameter *compile-documentation-database?* nil ;;t ;;(not *production-build?*)
"Boolean. Determines whether documentation strings
information will be compiled into compiled files. Defaults to T.")
......@@ -186,3 +186,5 @@ values are a color indicator for the default foreground and background of graphi
modules. Defaults to t.")
(defparameter *gs-path* nil)
(defparameter *new-features* (list :gendl))
\ No newline at end of file
(defsystem #:cl-lite
:description
"Auto-generated asdf defsys from Genworks GDL cl-lite."
:author
"Genworks and Dave Cooper unless otherwise indicated"
:license
"AGPL unless otherwise indicated"
:serial
t
:version
"2013031000"
:depends-on
(:base :cl-fad)
(defsystem #:cl-lite :description
"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 "20130315" :depends-on (:base :cl-fad)
:components
((:file "source/genworks") (:file "source/cl-lite")))
\ No newline at end of file
......@@ -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 "20130314" :depends-on (:gwl-graphics)
:serial t :version "20130315" :depends-on (:gwl-graphics)
:components
((:file "source/package") (:file "source/assembly")))
\ No newline at end of file
(in-package :common-lisp-user)
(asdf:defsystem #:gendl
:description "The Genworks GenDL Generative Programming and Knowledge Based Engineering System"
:description "The Gendl Project"
:author "Dave Cooper <david.cooper@genworks.com>"
:license "Affero Gnu General Public License (please see http://www.gnu.org/licenses/"
:serial t
:version "2013031000"
:version "2013031400"
:depends-on (:gwl-graphics
:tasty
:robot
:yadd))
:yadd)
:components ((:file "source/try")))
......
......@@ -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 "20130314" :depends-on
:serial t :version "20130315" :depends-on
(:uiop :cl-who :cl-lite :cl-typesetting) :components
((:file "prereqs/source/cl-pdf-patches")
(:file "prereqs/source/matrix")
......@@ -68,4 +68,5 @@
(:file "graphs/source/legend")
(:file "graphs/source/pie-chart")
(:file "lenses/source/vrml") (:file "lenses/source/x3d")
(:file "math/source/polynomial")))
\ No newline at end of file
(:file "math/source/polynomial")
(:file "zzinit/source/zzinit")))
\ No newline at end of file
......@@ -67,9 +67,14 @@
(t -1))))
;;
;; FLAG -- figure out how to use uiop:run-program to hide the popup console window.
;;
(defun run-gs (command)
"Shell out a ghostscript command and handle errors."
(let ((result (run-program command)))
(let ((result
#+(and mswindows allegro) (excl:run-shell-command command :show-window :hide)
#-(and mswindows allegro) (run-program command :output (make-broadcast-stream))))
(unless (zerop result) (error "Ghostscript threw error"))))
(defun run-program (command &key output ignore-error-status force-shell
......
......@@ -21,6 +21,14 @@
(in-package :geom-base)
;;
;; FLAG GLOBALS catalog these and handle them sanely
;;
(setq cl-who:*prologue* "<!doctype HTML>")
(setq cl-who:*attribute-quote-char* #\")
(setq cl-who:*downcase-tokens-p* nil)
(eval-when (:compile-toplevel :load-toplevel :execute)
(defmacro make-vector (&rest args)
"0D, 1D, 2D, 3D, or 4D Vector. (Internally this is the same as a Point)
......
......@@ -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 "20130314" :depends-on
:serial t :version "20130315" :depends-on
(:geom-base :gwl) :components
((:file "gwl/source/parameters")
(:file "gwl/source/application-mixin")
......
......@@ -21,6 +21,9 @@
(in-package :gwl)
(setq cl-who:*prologue* "<!doctype HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" \"http://www.w3.org/TR/html4/loose.dtd\">")
(setq cl-who:*attribute-quote-char* #\")
(setq cl-who:*downcase-tokens-p* nil)
;;
;; FLAG GLOBALS catalog these and handle them sanely
;;
(setq cl-who:*prologue* "<!doctype HTML>")
(setq cl-who:*attribute-quote-char* #\")
(setq cl-who:*downcase-tokens-p* nil)
#.(warn "This has to be put in manually -- conditional includes here.")
(:gendl-base :gendl-cl-lite :aserve :cl-pdf :cl-who :cl-ppcre
#-allegro :cl-base64 #-allegro :babel :trivial-backtrace :cl-html-parse)
(:base :cl-lite :aserve :cl-pdf :cl-who :cl-ppcre
#-allegro :cl-base64 #-allegro :babel :trivial-backtrace :cl-html-parse)
......@@ -3,8 +3,8 @@
"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 "20130314" :depends-on (:gendl-base :gendl-cl-lite :aserve :cl-pdf :cl-who :cl-ppcre
#-allegro :cl-base64 #-allegro :babel :trivial-backtrace :cl-html-parse)
:serial t :version "20130315" :depends-on (:base :cl-lite :aserve :cl-pdf :cl-who :cl-ppcre
#-allegro :cl-base64 #-allegro :babel :trivial-backtrace :cl-html-parse)
:components
((:file "source/genworks") (:file "source/defparameters")
(:file "source/base-html-sheet")
......@@ -20,7 +20,7 @@
(:file "source/log-utils") (:file "source/new-urls")
(:file "source/publish") (:file "source/remote-object")
(:file "source/security-check-failed")
(:file "ajax/source/parameters")
(:file "source/zzinit") (:file "ajax/source/parameters")
(:file "ajax/source/ajax")
(:file "ajax/source/base-ajax-sheet")
(:file "ajax/source/skeleton-ui-element")
......
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