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

more minor cleanups

parent 9b5db19d
......@@ -3,7 +3,7 @@
"The Gendl™ (legacy) Testing and Tracking Utility, version 2 (using Ajax but pre-gdlAjax, and no JQuery or CSS)"
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130320" :depends-on (:gwl-graphics)
:serial t :version "20130324" :depends-on (:gwl-graphics)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/parameters")
......
......@@ -3,7 +3,7 @@
"The Gendl™ Web-based Development Environment (tasty)" :author
"Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130320" :depends-on (:tree :gwl-graphics)
:serial t :version "20130324" :depends-on (:tree :gwl-graphics)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/parameters")
......
......@@ -3,7 +3,7 @@
"The Gendl™ Translators to/from XML and potentially other high-level KBE and Knowledge formats"
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130320" :depends-on nil
:serial t :version "20130324" :depends-on nil
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "xml/source/package") (:file "xml/source/genworks")
......
......@@ -3,7 +3,7 @@
"The Gendl™ Tree component used by Tasty and potentially as a UI component on its own"
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130320" :depends-on (:gwl-graphics)
:serial t :version "20130324" :depends-on (:gwl-graphics)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/parameters")
......
......@@ -3,7 +3,7 @@
"The Gendl™ Yet Another Definition Documenter (yadd)" :author
"Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130320" :depends-on (:gwl-graphics)
:serial t :version "20130324" :depends-on (:gwl-graphics)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/genworks")
......
......@@ -3,7 +3,7 @@
"The Gendl™ Base Core Kernel Engine" :author
"Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130320" :depends-on nil
:serial t :version "20130324" :depends-on nil
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/genworks")
......
......@@ -186,7 +186,6 @@ If you are interested in this effort we would love to hear from you at open-sour
#:list-of-numbers
#:lookup-color
#:make-canonical-part
#:make-gdl-app
#:make-keyword
#:ensure-keyword
#:make-keyword-sensitive
......@@ -389,8 +388,6 @@ If you are interested in this effort we would love to hear from you at open-sour
#:delete-directory-and-files
#:dump-memory
#:implementation-identifier
#:make-gdl-app
#:make-gendl-app
#:next-datestamp
#:autoloaded-packages
......
......@@ -24,12 +24,6 @@
(eval-when (compile load eval)
(when (not (boundp '*production-build?*)) (defvar *production-build?* nil)))
(defparameter *compiling-changes* nil)
(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.")
;;
;; FLAG this belongs in :geom-base.
;;
......@@ -37,15 +31,23 @@ information will be loaded from compiled files. Defaults to T.")
"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?* nil ;;t ;;(not *production-build?*)
(defparameter *compiling-changes* nil)
(defvar *load-source-code-database?* t ;;(not *production-build?*)
"Boolean. Determines whether pre-compiled source code
information will be loaded from compiled files. Defaults to T.")
(defvar *load-documentation-database?* t ;;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?* nil ;;(not *production-build?*)
(defvar *compile-source-code-database?* t ;;(not *production-build?*)
"Boolean. Determines whether source code information
information will be compiled into compiled files. Defaults to T.")
(defparameter *compile-documentation-database?* nil ;;t ;;(not *production-build?*)
(defvar *compile-documentation-database?* t ;;t ;;(not *production-build?*)
"Boolean. Determines whether documentation strings
information will be compiled into compiled files. Defaults to T.")
......
......@@ -25,7 +25,8 @@
(defparameter *features-to-initialize* (list :base :glisp :geom-base :gwl
:gwl-graphics :tasty :yadd :robot :cl-lite))
(defun start-gendl! (&key (features *features-to-initialize*))
(defun start-gendl! (&key (features *features-to-initialize*)
(banner? t) (init-files? t))
(dolist (feature features)
;;
;; This assumes feature name = package name of its initialize!
......@@ -43,7 +44,9 @@
(if anything-changed? "."
(format nil " (no new global settings).")))))))
(format t "~&Note: Feature ~s does not appear to be loaded at this time.~%" feature))))
(startup-banner) (load-gdl-init-files) (values))
(when banner? (startup-banner))
(when init-files? (load-gdl-init-files) )
(values))
(defun load-gdl-init-files ()
......
......@@ -3,7 +3,7 @@
"The Gendl™ Compile-and-Load Lite Utility" :author
"Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130320" :depends-on (:glisp)
:serial t :version "20130324" :depends-on (:glisp)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/parameters")
......
......@@ -3,7 +3,7 @@
"The Gendl™ Wireframe School Bus Demo" :author
"Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130320" :depends-on nil
:serial t :version "20130324" :depends-on nil
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/assembly")
......
......@@ -3,7 +3,7 @@
"The Gendl™ Ledger Bookkeeping Demo" :author
"Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130320" :depends-on nil
:serial t :version "20130324" :depends-on nil
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/assembly")
......
......@@ -3,7 +3,7 @@
"The Gendl™ Simplified Android Robot example " :author
"Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130320" :depends-on (:gwl-graphics)
:serial t :version "20130324" :depends-on (:gwl-graphics)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/assembly")
......
......@@ -3,7 +3,7 @@
"The Gendl™ Arithmetic Card Game of Twenty-Four" :author
"Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130320" :depends-on nil
:serial t :version "20130324" :depends-on nil
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/infpre")
......
......@@ -3,6 +3,6 @@
"The Gendl™ Wire-World demo and test-case for wireframe tessellation and X3D output"
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130320" :depends-on nil
:serial t :version "20130324" :depends-on nil
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components ((:file "source/package") (:file "source/assembly")))
......@@ -3,7 +3,7 @@
"The Gendl™ examples Subsystem" :author
"Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130320" :depends-on nil
:serial t :version "20130324" :depends-on nil
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/ch2-examples") (:file "source/ch2-solutions")
......
......@@ -3,7 +3,7 @@
"The Gendl™ Wireframe Geometry" :author
"Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130320" :depends-on (:glisp)
:serial t :version "20130324" :depends-on (:glisp)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "prereqs/source/presets")
......
......@@ -3,7 +3,7 @@
"The Gendl™ Common Lisp Portability" :author
"Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130320" :depends-on
:serial t :version "20130324" :depends-on
(:base :uiop :cl-typesetting :cl-ppcre :cl-who #-allegro :cl-base64 #-allegro :babel #-allegro :acl-compat)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
......
......@@ -251,19 +251,33 @@ and \"..\" entries."
(warn "~&run-shell-command is deprecated, please use run-program.~%")
(apply #'run-program args))
(defun find-windows-gs ()
(let ((gs-dirs (list "gs8.63/" "gs9.10/"))
(parent-dirs (remove
nil
(list (and glisp:*gdl-home* (probe-file (merge-pathnames "gpl/gs/" glisp:*gdl-home*)))
(and glisp:*gdl-home* (probe-file (merge-pathnames "../gpl/gs/" glisp:*gdl-home*)))
(and glisp:*gdl-program-home* (probe-file (merge-pathnames "gpl/gs/" glisp:*gdl-program-home*)))
"c:/gs/"))))
(dolist (gs-dir gs-dirs)
(block :daddy
(dolist (parent-dir parent-dirs)
(let ((candidate (merge-pathnames "bin/gswin32c.exe"
(merge-pathnames gs-dir parent-dir))))
(when (probe-file candidate) (return-from :daddy candidate))))))))
(defun find-gs-path (&optional gs-path)
(let ((gs-path
(or (and gs-path (probe-file gs-path))
(or gs-path
(if (featurep :mswindows)
(or (probe-file (merge-pathnames "gpl/gs/gs8.63/bin/gswin32c.exe" glisp:*gdl-home*))
(probe-file (merge-pathnames "c:/gs/gs8.63/bin/gswin32c.exe" glisp:*gdl-home*))
(probe-file (merge-pathnames "../gpl/gs/gs8.63/bin/gswin32c.exe" glisp:*gdl-home*)))
(find-windows-gs)
(or (probe-file #p"~/bin/gs")
(probe-file #p"/usr/local/bin/gs")
(probe-file #p"/sw/bin/gs")
(probe-file #p"/opt/local/bin/gs")
(probe-file #p"/usr/bin/gs") "gs")))))
(unless gs-path
(unless (and gs-path (probe-file gs-path))
(warn "Gnu Ghostscript was not found. PNG and JPEG output will not function.
You can set it manually with (glisp:set-gs-path <path-to-gs-executable>).~%"))
......
......@@ -3,7 +3,7 @@
"The Gendl™ GWL embedded graphics support" :author
"Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130320" :depends-on (:geom-base :gwl)
:serial t :version "20130324" :depends-on (:geom-base :gwl)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "gwl/source/application-mixin")
......
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