Commit 774644a6 authored by Dave Cooper's avatar Dave Cooper
Browse files

cleaning up release 1587p004

parent c37f014d
;;;; -*- coding: utf-8 -*- ;;;; -*- coding: utf-8 -*-
(asdf:defsystem (asdf:defsystem #:ta2 :description
#:ta2 "The Gendl\" (legacy) Testing and Tracking Utility, version 2 (using Ajax but pre-gdlAjax, and no JQuery or CSS)"
:description :author "John McCarthy" :license
"The Gendl™ (legacy) Testing and Tracking Utility, version 2 (using Ajax but pre-gdlAjax, and no JQuery or CSS)" "Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:author :version "20140615" :depends-on (:gwl-graphics)
"Dave Cooper"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20140602"
:depends-on
(:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings) #-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8 #+asdf-encodings :encoding #+asdf-encodings :utf-8
:components :components
((:file "source/package") ((:file "source/package") (:file "source/parameters")
(:file "source/parameters") (:file "source/javascript") (:file "source/action-object")
(:file "source/javascript") (:file "source/ajax") (:file "source/assembly")
(:file "source/action-object") (:file "source/click-mode") (:file "source/inspector")
(:file "source/ajax") (:file "source/object-tree") (:file "source/part-type-form")
(:file "source/assembly") (:file "source/publish") (:file "source/viewport")))
(:file "source/click-mode")
(:file "source/inspector")
(:file "source/object-tree")
(:file "source/part-type-form")
(:file "source/publish")
(:file "source/viewport")))
...@@ -80,9 +80,6 @@ ...@@ -80,9 +80,6 @@
(dolist (slot (the required-input-slots)) (dolist (slot (the required-input-slots))
(let ((status (the root-object (slot-status slot)))) (let ((status (the root-object (slot-status slot))))
(when (eql status :unbound) (setq result nil)))) (when (eql status :unbound) (setq result nil))))
(print-variables result)
result)))) result))))
:objects :objects
......
;;;; -*- coding: utf-8 -*- ;;;; -*- coding: utf-8 -*-
(asdf:defsystem (asdf:defsystem #:tasty :description
#:tasty "The Gendl\" Web-based Development Environment (tasty)" :author
:description "John McCarthy" :license
"The Gendl™ Web-based Development Environment (tasty)" "Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:author :version "20140615" :depends-on (:tree :gwl-graphics)
"Dave Cooper"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20140602"
:depends-on
(:tree :gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings) #-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8 #+asdf-encodings :encoding #+asdf-encodings :utf-8
:components :components
((:file "source/package") ((:file "source/package") (:file "source/parameters")
(:file "source/parameters") (:file "source/assembly") (:file "source/initialize")
(:file "source/assembly") (:file "source/inspector") (:file "source/menu")
(:file "source/initialize") (:file "source/new-inspector") (:file "source/newer-inspector")
(:file "source/inspector") (:file "source/part-type-form") (:file "source/publish")
(:file "source/menu") (:file "source/status-object") (:file "source/test-part")
(:file "source/new-inspector") (:file "source/test-part2") (:file "source/two-viewports")
(:file "source/newer-inspector") (:file "source/viewport") (:file "source/zzinit")))
(:file "source/part-type-form")
(:file "source/publish")
(:file "source/status-object")
(:file "source/test-part")
(:file "source/test-part2")
(:file "source/two-viewports")
(:file "source/viewport")
(:file "source/zzinit")))
;;;; -*- coding: utf-8 -*- ;;;; -*- coding: utf-8 -*-
(asdf:defsystem (asdf:defsystem #:translators :description
#:translators "The Gendl\" Translators to/from XML and potentially other high-level KBE and Knowledge formats"
:description :author "John McCarthy" :license
"The Gendl™ Translators to/from XML and potentially other high-level KBE and Knowledge formats" "Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:author :version "20140615" :depends-on (:gwl)
"Dave Cooper"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20140602"
:depends-on
(:gwl)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings) #-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8 #+asdf-encodings :encoding #+asdf-encodings :utf-8
:components :components
((:file "xml/source/package") ((:file "xml/source/package") (:file "xml/source/genworks")
(:file "xml/source/genworks") (:file "xml/source/definition-tree") (:file "xml/source/gdl2xml")
(:file "xml/source/definition-tree")
(:file "xml/source/gdl2xml")
(:file "xml/source/xml2gdl"))) (:file "xml/source/xml2gdl")))
;;;; -*- coding: utf-8 -*- ;;;; -*- coding: utf-8 -*-
(asdf:defsystem (asdf:defsystem #:tree :description
#:tree "The Gendl\" Tree component used by Tasty and potentially as a UI component on its own"
:description :author "John McCarthy" :license
"The Gendl™ Tree component used by Tasty and potentially as a UI component on its own" "Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:author :version "20140615" :depends-on (:gwl-graphics)
"Dave Cooper"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20140602"
:depends-on
(:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings) #-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8 #+asdf-encodings :encoding #+asdf-encodings :utf-8
:components :components
((:file "source/package") ((:file "source/package") (:file "source/parameters")
(:file "source/parameters") (:file "source/ajax") (:file "source/assembly")
(:file "source/ajax")
(:file "source/assembly")
(:file "source/newertree"))) (:file "source/newertree")))
...@@ -26,7 +26,9 @@ ...@@ -26,7 +26,9 @@
(append (list :win :windows :regexp) (append (list :win :windows :regexp)
(remove-duplicates (remove-duplicates
#-allegro nil #-allegro nil
#+allegro (mapcar #'rest excl::*autoload-package-name-alist*) #+allegro (append (mapcar #'(lambda(name) (glisp:intern (glisp:upcase name) :keyword))
(mapcar #'first excl::*autoload-package-name-alist*))
(mapcar #'rest excl::*autoload-package-name-alist*))
))) )))
......
;;;; -*- coding: utf-8 -*- ;;;; -*- coding: utf-8 -*-
(asdf:defsystem (asdf:defsystem #:yadd :description
#:yadd "The Gendl\" Yet Another Definition Documenter (yadd)" :author
:description "John McCarthy" :license
"The Gendl™ Yet Another Definition Documenter (yadd)" "Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:author :version "20140615" :depends-on
"Dave Cooper"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20140602"
:depends-on
(:gwl-graphics #-allegro :cl-html-parse) (:gwl-graphics #-allegro :cl-html-parse)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings) #-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8 #+asdf-encodings :encoding #+asdf-encodings :utf-8
:components :components
((:file "source/package") ((:file "source/package") (:file "source/genworks")
(:file "source/genworks") (:file "source/parameters") (:file "source/mixins")
(:file "source/parameters")
(:file "source/mixins")
(:file "source/define-object-documentation") (:file "source/define-object-documentation")
(:file "source/assembly") (:file "source/assembly") (:file "source/ass")
(:file "source/ass")
(:file "source/format-documentation") (:file "source/format-documentation")
(:file "source/function-documentation") (:file "source/function-documentation") (:file "source/initialize")
(:file "source/initialize") (:file "source/publish") (:file "source/test-part")
(:file "source/publish") (:file "source/variable-documentation") (:file "source/zzinit")))
(:file "source/test-part")
(:file "source/variable-documentation")
(:file "source/zzinit")))
;;;; -*- coding: utf-8 -*- ;;;; -*- coding: utf-8 -*-
(asdf:defsystem (asdf:defsystem #:base :description
#:base "The Gendl\" Base Core Kernel Engine" :author "John McCarthy"
:description :license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
"The Gendl™ Base Core Kernel Engine" :serial t :version "20140615" :depends-on nil
:author
"Dave Cooper"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20140602"
:depends-on
nil
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings) #-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8 #+asdf-encodings :encoding #+asdf-encodings :utf-8
:components :components
((:file "source/package") ((:file "source/package") (:file "source/genworks")
(:file "source/genworks") (:file "source/presets") (:file "source/parameters")
(:file "source/presets") (:file "source/metaclasses") (:file "source/utilities")
(:file "source/parameters") (:file "source/start") (:file "expanders/source/inputs")
(:file "source/metaclasses")
(:file "source/utilities")
(:file "source/start")
(:file "expanders/source/inputs")
(:file "expanders/source/computed-slots") (:file "expanders/source/computed-slots")
(:file "expanders/source/functions") (:file "expanders/source/functions")
(:file "expanders/source/methods") (:file "expanders/source/methods")
...@@ -36,15 +22,10 @@ ...@@ -36,15 +22,10 @@
(:file "macros/source/define-format") (:file "macros/source/define-format")
(:file "rest/source/parameters") (:file "rest/source/parameters")
(:file "rest/source/quantification") (:file "rest/source/quantification")
(:file "rest/source/aggregate") (:file "rest/source/aggregate") (:file "rest/source/utilities")
(:file "rest/source/utilities") (:file "rest/source/null-part") (:file "rest/source/vanilla-mixin")
(:file "rest/source/null-part") (:file "rest/source/base-rule-object") (:file "rest/source/bodies")
(:file "rest/source/vanilla-mixin")
(:file "rest/source/base-rule-object")
(:file "rest/source/bodies")
(:file "rest/source/ignore-errors-with-backtrace") (:file "rest/source/ignore-errors-with-backtrace")
(:file "rest/source/init") (:file "rest/source/init") (:file "rest/source/make-part")
(:file "rest/source/make-part") (:file "rest/source/sequence") (:file "zzinit/source/initialize")
(:file "rest/source/sequence")
(:file "zzinit/source/initialize")
(:file "zzinit/source/zzinit"))) (:file "zzinit/source/zzinit")))
...@@ -23,7 +23,8 @@ ...@@ -23,7 +23,8 @@
;;(defparameter *gendl-version* "1585p002") ;;(defparameter *gendl-version* "1585p002")
;;(defparameter *gendl-version* "1587devo") ;;(defparameter *gendl-version* "1587devo")
(defparameter *gendl-version* "1587p003") ;;(defparameter *gendl-version* "1587p003")
(defparameter *gendl-version* "1587p004")
;;(defparameter *gendl-version* "ql-2013-12") ;;(defparameter *gendl-version* "ql-2013-12")
(defparameter *gendl-patch-level* nil) (defparameter *gendl-patch-level* nil)
......
;;;; -*- coding: utf-8 -*- ;;;; -*- coding: utf-8 -*-
(asdf:defsystem (asdf:defsystem #:cl-lite :description
#:cl-lite "The Gendl\" Compile-and-Load Lite Utility" :author "John McCarthy"
:description :license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
"The Gendl™ Compile-and-Load Lite Utility" :serial t :version "20140615" :depends-on (:glisp)
:author
"Dave Cooper"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20140602"
:depends-on
(:glisp)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings) #-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8 #+asdf-encodings :encoding #+asdf-encodings :utf-8
:components :components
((:file "source/package") ((:file "source/package") (:file "source/parameters")
(:file "source/parameters") (:file "source/cl-lite") (:file "source/initialize")
(:file "source/cl-lite")
(:file "source/initialize")
(:file "source/zzinit"))) (:file "source/zzinit")))
;;;; -*- coding: utf-8 -*- ;;;; -*- coding: utf-8 -*-
(asdf:defsystem (asdf:defsystem #:bus :description
#:bus "The Gendl\" Wireframe School Bus Demo" :author "John McCarthy"
:description :license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
"The Gendl™ Wireframe School Bus Demo" :serial t :version "20140615" :depends-on (:gwl-graphics)
:author
"Dave Cooper"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20140602"
:depends-on
(:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings) #-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8 #+asdf-encodings :encoding #+asdf-encodings :utf-8
:components :components
((:file "source/package") ((:file "source/package") (:file "source/assembly")
(:file "source/assembly") (:file "source/body") (:file "source/chassis")
(:file "source/body") (:file "source/interior") (:file "source/rule-ackermann")
(:file "source/chassis") (:file "source/axle") (:file "source/fleet")
(:file "source/interior") (:file "source/frame-rail") (:file "source/frame")
(:file "source/rule-ackermann")
(:file "source/axle")
(:file "source/fleet")
(:file "source/frame-rail")
(:file "source/frame")
(:file "source/html-writer-assembly") (:file "source/html-writer-assembly")
(:file "source/html-writer-body") (:file "source/html-writer-body")
(:file "source/html-writer-chassis") (:file "source/html-writer-chassis")
(:file "source/html-writer-interior") (:file "source/html-writer-interior")
(:file "source/html-writer-rule-ackermann") (:file "source/html-writer-rule-ackermann")
(:file "source/inter-seat-clearance-check") (:file "source/inter-seat-clearance-check")
(:file "source/inter-seat-spacing") (:file "source/inter-seat-spacing") (:file "source/knuckle")
(:file "source/knuckle") (:file "source/parameters") (:file "source/publish")
(:file "source/parameters") (:file "source/rear-axle") (:file "source/seat")
(:file "source/publish") (:file "source/seating-section") (:file "source/seating-side")
(:file "source/rear-axle")
(:file "source/seat")
(:file "source/seating-section")
(:file "source/seating-side")
(:file "source/wheel"))) (:file "source/wheel")))
;;;; -*- coding: utf-8 -*- ;;;; -*- coding: utf-8 -*-
(asdf:defsystem (asdf:defsystem #:ledger :description
#:ledger "The Gendl\" Ledger Bookkeeping Demo" :author "John McCarthy"
:description :license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
"The Gendl™ Ledger Bookkeeping Demo" :serial t :version "20140615" :depends-on
:author
"Dave Cooper"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20140602"
:depends-on
(#-gwl :gwl) (#-gwl :gwl)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings) #-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8 #+asdf-encodings :encoding #+asdf-encodings :utf-8
:components :components
((:file "source/package") ((:file "source/package") (:file "source/assembly")
(:file "source/assembly") (:file "source/html") (:file "source/zzinit")))
(:file "source/html")
(:file "source/zzinit")))
;;;; -*- coding: utf-8 -*- ;;;; -*- coding: utf-8 -*-
(asdf:defsystem (asdf:defsystem #:robot :description
#:robot "The Gendl\" Simplified Android Robot example " :author
:description "John McCarthy" :license
"The Gendl™ Simplified Android Robot example " "Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:author :version "20140615" :depends-on (:gwl-graphics)
"Dave Cooper"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20140602"
:depends-on
(:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings) #-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8 #+asdf-encodings :encoding #+asdf-encodings :utf-8
:components :components
((:file "source/package") ((:file "source/package") (:file "source/assembly")
(:file "source/assembly") (:file "source/initialize") (:file "source/parameters")
(:file "source/initialize")
(:file "source/parameters")
(:file "source/zzinit"))) (:file "source/zzinit")))
;;;; -*- coding: utf-8 -*- ;;;; -*- coding: utf-8 -*-
(asdf:defsystem (asdf:defsystem #:wire-world :description
#:wire-world "The Gendl\" Wire-World demo and test-case for wireframe tessellation and X3D output"
:description :author "John McCarthy" :license
"The Gendl™ Wire-World demo and test-case for wireframe tessellation and X3D output" "Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:author :version "20140615" :depends-on
"Dave Cooper"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20140602"
:depends-on
(#-gwl-graphics :gwl-graphics) (#-gwl-graphics :gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings) #-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8 #+asdf-encodings :encoding #+asdf-encodings :utf-8
:components :components ((:file "source/package") (:file "source/assembly")))
((:file "source/package") (:file "source/assembly")))
;;;; -*- coding: utf-8 -*- ;;;; -*- coding: utf-8 -*-
(asdf:defsystem (asdf:defsystem #:examples :description
#:examples "The Gendl\" examples Subsystem" :author "John McCarthy" :license
:description "Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
"The Gendl™ examples Subsystem" :version "20140615" :depends-on (:gwl-graphics :surf)
:author
"Dave Cooper"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20140602"
:depends-on
(:gwl-graphics :surf)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings) #-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8 #+asdf-encodings :encoding #+asdf-encodings :utf-8
:components :components
((:file "source/ch2-examples") ((:file "source/ch2-examples") (:file "source/ch3-examples")
(:file "source/ch3-examples") (:gdl "source/primi-plane") (:gdl "source/ui-primi-plane")))
(:gdl "source/primi-plane")
(:gdl "source/ui-primi-plane")))
...@@ -312,6 +312,9 @@ ...@@ -312,6 +312,9 @@
(defun agdl8e () (interactive) (defun agdl8e () (interactive)
(gdl-devo (get-executable 'agdl8))) (gdl-devo (get-executable 'agdl8)))
(defun agdle () (interactive)
(gdl-devo (get-executable 'agdl)))
(defun gdle () (interactive) (defun gdle () (interactive)
(gdl-devo (get-executable 'gdl))) (gdl-devo (get-executable 'gdl)))
......
...@@ -34,7 +34,6 @@ ...@@ -34,7 +34,6 @@
(:pdf `(pdf:with-saved-state (pdf:translate (get-x ,center) (get-y ,center)) ,@body)) (:pdf `(pdf:with-saved-state (pdf:translate (get-x ,center) (get-y ,center)) ,@body))
(:dxf `(let ((*dxf-translation* (add-vectors (subseq ,center 0 2) *dxf-translation*))) ,@body)) (:dxf `(let ((*dxf-translation* (add-vectors (subseq ,center 0 2) *dxf-translation*))) ,@body))
(:raphael `(let ((*raphael-translation* (add-vectors (subseq ,center 0 2) *raphael-translation*))) ,@body)))) (:raphael `(let ((*raphael-translation* (add-vectors (subseq ,center 0 2) *raphael-translation*))) ,@body))))
(define-lens (pdf base-drawing)() (define-lens (pdf base-drawing)()
...@@ -45,12 +44,11 @@ ...@@ -45,12 +44,11 @@
(let ((view-center (if (the user-center) (let ((view-center (if (the user-center)
(scalar*vector (the user-scale) (the user-center)) (scalar*vector (the user-scale) (the user-center))
(make-point 0 0 0)))) (make-point 0 0 0))))
(pdf:with-saved-state (pdf:with-saved-state
(when view (unless *fixed-scale?* (pdf:scale (the-object view view-scale-total) (when view (unless *fixed-scale?* (pdf:scale (the-object view view-scale-total)
(the-object view view-scale-total)))) (the-object view view-scale-total))))
(mapc #'(lambda(child-view) (mapc #'(lambda(child-view)
(let ((width (the-object child-view width)) (let ((width (the-object child-view width))
(length (the-object child-view length)) (length (the-object child-view length))
...@@ -261,47 +259,13 @@ ...@@ -261,47 +259,13 @@