Commit 1735c7f9 authored by Dave Cooper's avatar Dave Cooper
Browse files

Merge branch 'devo'

parents 045059da 1fbeeea6
......@@ -4,7 +4,7 @@
"The Gendl™ (legacy) Testing and Tracking Utility, version 2 (using Ajax but pre-gdlAjax, and no JQuery or CSS)"
:author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20130426" :depends-on (:gwl-graphics)
:version "20130428" :depends-on (:gwl-graphics)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/parameters")
......
......@@ -4,7 +4,7 @@
"The Gendl™ Web-based Development Environment (tasty)" :author
"John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20130426" :depends-on (:tree :gwl-graphics)
:version "20130428" :depends-on (:tree :gwl-graphics)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/parameters")
......
......@@ -4,7 +4,7 @@
"The Gendl™ Translators to/from XML and potentially other high-level KBE and Knowledge formats"
:author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20130426" :depends-on (:gwl)
:version "20130428" :depends-on (:gwl)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "xml/source/package") (:file "xml/source/genworks")
......
......@@ -4,7 +4,7 @@
"The Gendl™ Tree component used by Tasty and potentially as a UI component on its own"
:author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20130426" :depends-on (:gwl-graphics)
:version "20130428" :depends-on (:gwl-graphics)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/parameters")
......
......@@ -4,7 +4,7 @@
"The Gendl™ Yet Another Definition Documenter (yadd)" :author
"John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20130426" :depends-on (:gwl-graphics)
:version "20130428" :depends-on (:gwl-graphics)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/genworks")
......
......@@ -3,7 +3,7 @@
(asdf:defsystem #:base :description
"The Gendl™ Base Core Kernel Engine" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20130426" :depends-on nil
:serial t :version "20130428" :depends-on nil
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/genworks")
......
;;;; -*- encoding: utf-8; -*-
;;
;; Copyright 2002-2011, 2012 Genworks International
;;
......@@ -25,9 +26,6 @@
#+(and mswindows allegro) (excl:crlf-base-ef :1252)
#-(and mswindows allegro) :default)
(defparameter *genworks-source-home* nil)
(eval-when (:compile-toplevel :load-toplevel :execute)
......@@ -40,12 +38,23 @@
(setq *genworks-source-home*
(make-pathname :name nil
:type nil
:directory (butlast
(butlast (pathname-directory base-home)))
:directory (butlast (butlast (pathname-directory base-home)))
:defaults base-home)))))))
(set-genworks-source-home-if-known)
(defparameter *gendl-source-home* nil)
(eval-when (:compile-toplevel :load-toplevel :execute)
(defun set-genworks-source-home-if-known ()
(when (find-package :asdf)
(multiple-value-bind (gendl-home error)
(ignore-errors (funcall (read-from-string "asdf:system-source-directory") "gendl"))
(if (typep error 'error)
(warn "~&ASDF is loaded, but :base is not registered. glisp:*genworks-source-home* remains unknown and set to nil.~%")
(setq *gendl-source-home* gendl-home))))))
#-(or allegro lispworks sbcl ccl abcl ecl clisp)
(error "Need implementation for command-line-arguments in currently running lisp.~%")
(defun basic-command-line-arguments ()
......@@ -278,12 +287,12 @@
tpl:*default-lisp-listener-bindings*) (find-package :gdl-user))
#+allegro (top-level:do-command "package" "gdl-user"))
(defun set-defpackage-behavior ()
#+lispworks (setq hcl:*handle-existing-defpackage* (list :add))
#-lispworks nil ;; No action needed for non-lispworks platform currently.
)
(defun set-settings (settings)
(let (anything-changed?)
(dolist (setting settings)
......@@ -296,6 +305,7 @@
(format t "~&Set ~s from default value ~s to non-default value ~s.~%"
symbol default new-value))))) anything-changed?))
(defun set-features (features)
(let (anything-changed?)
(dolist (feature features)
......@@ -306,11 +316,14 @@
(setq anything-changed? t)))) anything-changed?))
#-allegro(warn "Find out how to retitle relevant windows in currently running lisp.~%")
#+(and allegro mswindows)
(defun set-window-titles ()
#+(and allegro mswindows)
(excl:console-control :title "Genworks Gendl™ Console")
(retitle-emacs))
;;a(excl:console-control :title "Genworks Gendl™ Console")
(retitle-emacs))
#-(and allegro mswindows)
(defun set-window-titles ())
#-(or allegro lispworks abcl) (warn "Find out how to get the source-pathname in current lisp.")
(defun source-pathname ()
......@@ -324,7 +337,7 @@
#+nil
(defun retitle-emacs (&key (title "Genworks Gendl™ Interactive Authoring Environment"))
"Retitles the associated GDL emacs window with the specified title.
......
......@@ -3,7 +3,7 @@
(asdf:defsystem #:cl-lite :description
"The Gendl™ Compile-and-Load Lite Utility" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20130426" :depends-on (:glisp)
:serial t :version "20130428" :depends-on (:glisp)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/parameters")
......
......@@ -3,7 +3,7 @@
(asdf:defsystem #:bus :description
"The Gendl™ Wireframe School Bus Demo" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20130426" :depends-on (:gwl-graphics)
:serial t :version "20130428" :depends-on (:gwl-graphics)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/assembly")
......
......@@ -3,7 +3,7 @@
(asdf:defsystem #:ledger :description
"The Gendl™ Ledger Bookkeeping Demo" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20130426" :depends-on (:gwl)
:serial t :version "20130428" :depends-on (:gwl)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/assembly")
......
......@@ -4,7 +4,7 @@
"The Gendl™ Simplified Android Robot example " :author
"John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20130426" :depends-on (:gwl-graphics)
:version "20130428" :depends-on (:gwl-graphics)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/assembly")
......
......@@ -4,6 +4,6 @@
"The Gendl™ Wire-World demo and test-case for wireframe tessellation and X3D output"
:author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20130426" :depends-on (:gwl-graphics)
:version "20130428" :depends-on (:gwl-graphics)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components ((:file "source/package") (:file "source/assembly")))
......@@ -3,7 +3,7 @@
(asdf:defsystem #:examples :description
"The Gendl™ examples Subsystem" :author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20130426" :depends-on nil
:version "20130428" :depends-on nil
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:gdl "source/primi-plane") (:gdl "source/ui-primi-plane")))
......@@ -3,7 +3,7 @@
(asdf:defsystem #:geom-base :description
"The Gendl™ Wireframe Geometry" :author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20130426" :depends-on (:glisp)
:version "20130428" :depends-on (:glisp)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "prereqs/source/presets")
......
......@@ -3,7 +3,7 @@
(asdf:defsystem #:glisp :description
"The Gendl™ Common Lisp Portability" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20130426" :depends-on
:serial t :version "20130428" :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
......
......@@ -3,7 +3,7 @@
(asdf:defsystem #:gwl-graphics :description
"The Gendl™ GWL embedded graphics support" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20130426" :depends-on (:geom-base :gwl)
:serial t :version "20130428" :depends-on (:geom-base :gwl)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "gwl/source/application-mixin")
......
......@@ -3,7 +3,7 @@
(asdf:defsystem #:gwl :description
"The Gendl™ Generative Web Language (GWL)" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20130426" :depends-on (:glisp :aserve)
:serial t :version "20130428" :depends-on (:glisp :aserve)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/defparameters")
......
......@@ -78,9 +78,9 @@ Perhaps a zombie process is holding port ~a?~%" port port))
(defvar *settings*
(list (list '*static-home* *static-home*
#'(lambda()
(or (and glisp:*genworks-source-home*
(probe-file (merge-pathnames "gendl/gwl/static/"
glisp:*genworks-source-home*)))
(or (and glisp:*gendl-source-home*
(probe-file (merge-pathnames "gwl/static/"
glisp:*gendl-source-home*)))
(and glisp:*gdl-home*
(probe-file (merge-pathnames "static/"
glisp:*gdl-home*)))
......
......@@ -3,7 +3,7 @@
(asdf:defsystem #:regression :description
"The Gendl™ regression Subsystem" :author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20130426" :depends-on (:lift :surf :tasty)
:version "20130428" :depends-on (:lift :surf :tasty)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "utils/source/package") (:file "utils/source/genworks")
......@@ -12,6 +12,7 @@
(:file "assembly-output/source/bracket-test")
(:file "assembly-output/source/bracket")
(:file "dgdl/source/remote") (:file "geom-base/source/box-matrix")
(:file "geom-base/source/drawing")
(:file "geom-base/source/general-note")
(:file "gwl/source/package") (:file "gwl/source/ajax-json")
(:file "gwl/source/hey-now") (:file "gwl/source/large-data")
......
......@@ -4,7 +4,7 @@
"The Gendl™ NURBS Surface and Solids Geometry Primitives" :author
"John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20130426" :depends-on (:geom-base)
:version "20130428" :depends-on (:geom-base)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/parameters") (:file "source/classes")
......
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