Commit 3d19b326 authored by Dave Cooper's avatar Dave Cooper

fixed tasty doc link and curve display bug

parent 770de4bd
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:dom :description
"The Gendl\" dom Subsystem" :author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20160417" :depends-on (:cl-who :yadd)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "base/source/package") (:file "base/source/assembly")
(:file "writers/source/package")
(:file "writers/source/dom-writer") (:file "writers/source/html")
(:file "writers/source/latex") (:file "writers/source/plain-text")
(:file "html/source/package") (:file "html/source/lenses")
(:file "latex/source/package") (:file "latex/source/lenses")
(:file "latex/source/utilities")
(:file "test-parts/source/assembly")))
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:dom :description
"The Gendl\" dom Subsystem" :author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20160505" :depends-on (:cl-who :yadd)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "base/source/package") (:file "base/source/assembly")
(:file "writers/source/package")
(:file "writers/source/dom-writer") (:file "writers/source/html")
(:file "writers/source/latex") (:file "writers/source/plain-text")
(:file "html/source/package") (:file "html/source/lenses")
(:file "latex/source/package") (:file "latex/source/lenses")
(:file "latex/source/utilities")
(:file "test-parts/source/assembly")))
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:ta2 :description
"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 "20160417" :depends-on (:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/parameters")
(:file "source/javascript") (:file "source/action-object")
(:file "source/ajax") (:file "source/assembly")
(:file "source/click-mode") (:file "source/inspector")
(:file "source/object-tree") (:file "source/part-type-form")
(:file "source/publish") (:file "source/viewport")))
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:ta2 :description
"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 "20160505" :depends-on (:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/parameters")
(:file "source/javascript") (:file "source/action-object")
(:file "source/ajax") (:file "source/assembly")
(:file "source/click-mode") (:file "source/inspector")
(:file "source/object-tree") (:file "source/part-type-form")
(:file "source/publish") (:file "source/viewport")))
......@@ -433,53 +433,54 @@ The error was: ~a
((:div :id "tabs" :class "page-layout-center")
((:ul :id "TabButtons" :class "pane")
(:li ((:a :href "#ApplicationLayout")(:span "Application")))
(:li ((:a :href "#Documentation")(:span "Documentation")))
;;(:li ((:a :href "#ApplicationLayout")(:span "Application")))
;;(:li ((:a :href "#Documentation")(:span "Documentation")))
)
;; wrap tab-panels in ui-layout-content div
((:div :id "TabPanelsContainer" :class "pane")
;; TAB #1
((:div :id "ApplicationLayout")
((:div :id "ApplicationLayout")
((:div :id "InnerLayout" :class "outer-center pane")
((:div :id "InnerLayout" :class "outer-center pane")
((:div :class "inner-center ui-widget pane")
((:div :class "header ui-widget-header")"Viewport")
((:div :class "ui-widget-content")(str (the viewport main-div)))
((:div :class "footer ui-widget-header")
((:div :class "inner-center ui-widget pane")
((:div :class "header ui-widget-header")"Viewport")
((:div :class "ui-widget-content")(str (the viewport main-div)))
((:div :class "footer ui-widget-header")
(str (the footer-ui-widget-header main-div))))
(str (the footer-ui-widget-header main-div))))
((:div :class "inner-west ui-widget pane")
((:div :class "header ui-widget-header")"Inspector")
((:div :class "ui-widget-content")
(str (the inspector main-div))))
((:div :class "inner-west ui-widget pane")
((:div :class "header ui-widget-header")"Inspector")
((:div :class "ui-widget-content")
(str (the inspector main-div))))
((:div :class "inner-north ui-widget pane")
((:div :class "header ui-widget-header")"Inner North")
((:div :class "ui-widget-content")(:span "Inner North"))))
((:div :class "inner-north ui-widget pane")
((:div :class "header ui-widget-header")"Inner North")
((:div :class "ui-widget-content")(:span "Inner North"))))
((:div :class "outer-west ui-widget pane")
((:div :class "header ui-widget-header")"Tree")
((:div :class "ui-widget-content"
((:div :class "outer-west ui-widget pane")
((:div :class "header ui-widget-header")"Tree")
((:div :class "ui-widget-content"
:style (format nil "background-color: ~a" (or (getf *colors-default* :background) "#fafafa")))
(str (the tree main-div)))
((:div :class "footer ui-widget-header")
"Click-mode:" (str (the tree-status-object main-div)))
)
(str (the tree main-div)))
((:div :class "footer ui-widget-header")
"Click-mode:" (str (the tree-status-object main-div)))
)
((:div :class "outer-north ui-widget pane")
((:div :class "outer-north ui-widget pane")
((:div :onmouseover "InnerLayout.allowOverflow(this)")
(str (the menu-section main-div))))
((:div :class "outer-south ui-widget pane")
((:div :class "footer ui-widget-header")
((:span :class "fltrt")
"powered by "
((:div :class "outer-south ui-widget pane")
((:div :class "footer ui-widget-header")
((:span :class "fltrt")
"powered by "
((:a :href "http://www.genworks.com" :target "_new") "Genworks GDL")
(str (if (glisp:featurep :smlib) ", " " and "))
((:a :href "http://www.quicklisp.org" :target "_new")"Quicklisp")
......@@ -488,52 +489,53 @@ The error was: ~a
(str ", and ")
(htm ((:a :href "http://www.smlib.com" :target "_new") "SMLib")))
""))
((:span) "GDL status: ")
((:span :id "gdlStatus")"Done.")
(when *tasty-developing?*
(htm
(:span " | ")
(:span
((:span :onclick (the (gdl-ajax-call :function-key :update-object!
:arguments (list self)))
:title "Full Update of Tasty Browser and Object in Tree (for tasty development)"
:style "color: blue; cursor: pointer;") "Update!")
" | "
((:span :onclick (the (gdl-ajax-call :function-key :set-self!
:arguments (list self)))
:title "Set self to this tasty object (for tasty development)"
:style "color: blue; cursor: pointer;") "Set Self!"))
((:span) "GDL status: ")
((:span :id "gdlStatus")"Done.")
(when *tasty-developing?*
(htm
(:span " | ")
(:span
((:span :onclick (the (gdl-ajax-call :function-key :update-object!
:arguments (list self)))
:title "Full Update of Tasty Browser and Object in Tree (for tasty development)"
:style "color: blue; cursor: pointer;") "Update!")
" | "
((:span :onclick (the (gdl-ajax-call :function-key :set-self!
:arguments (list self)))
:title "Set self to this tasty object (for tasty development)"
:style "color: blue; cursor: pointer;") "Set Self!"))
;;(write-the development-links)
;;(write-the development-links)
;;(write-the break-link) (htm " | ")(write-the update-full-link)
;;(write-the break-link) (htm " | ")(write-the update-full-link)
))
))
#+nil
(when (typep (the root-object) 'base-html-sheet)
(htm (:span " | ")
((:a :href (the root-object url)) "Visit UI")))))
#+nil
(when (typep (the root-object) 'base-html-sheet)
(htm (:span " | ")
((:a :href (the root-object url)) "Visit UI")))))
((:div :class "outer-east ui-widget pane")
((:div :class "header ui-widget-header")"Auxiliary")
((:div :class "ui-widget-content")(:span "Auxiliary Pane Content"))
((:div :class "outer-east ui-widget pane")
((:div :class "header ui-widget-header")"Auxiliary")
((:div :class "ui-widget-content")(:span "Auxiliary Pane Content"))
)
)
);; #ApplicationLayout
) ;; #ApplicationLayout
;; TAB #2
#+nil
((:div :id "Documentation" :class "ui-tabs-hide pane")
((:iframe :class "ui-widget-content" :src "/yadd" :width "100%" :height "500px"))
)
);; END TabPanelsContainer
) ;; END TabPanelsContainer
)
)
))))
......
......@@ -22,6 +22,15 @@
(in-package :tasty)
(let ((tutorial-file
(or (probe-file (merge-pathnames "../doc/tutorial.pdf" (glisp:executable-homedir-pathname)))
(probe-file (merge-pathnames "gendl/documenation/tutorial/pdf/tutorial.pdf" glisp:*genworks-source-home*))
(warn "tutorial.pdf not found in distribution doc/ directory or source documentation directory for
publishing in tasty Help menu.~%"))))
(when tutorial-file (publish-file :path "/tutorial.pdf"
:file (namestring (truename tutorial-file)))))
(define-object menu-section (sheet-section)
:input-slots (tatu-root
......@@ -425,7 +434,9 @@
((:li :id "menuHelp" :class "top")
"Help"
(:ul
(:li ((:a :href "http://www.genworks.com" :target "_new") "Documentation"))
(:li ((:a :href "/yadd" :target "_new") "Reference Documentation"))
(:li ((:a :href "/tutorial.pdf" :target "_new") "Tutorial/Manual"))
(:li ((:a :href "http://www.genworks.com" :target "_new") "Genworks Site"))
(:li ((:a :href "http://www.genworks.com/dl" :target "_new") "Check for Updates"))
(:li ((:a :href "http://www.genworks.com" :target "_new") "Contact Us"))
)))))
......
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:tasty :description
"The Gendl\" Web-based Development Environment (tasty)" :author
"John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20160417" :depends-on (:tree :gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/parameters")
(:file "source/assembly") (:file "source/initialize")
(:file "source/inspector") (:file "source/menu")
(:file "source/new-inspector") (:file "source/newer-inspector")
(: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 -*-
(asdf:defsystem #:tasty :description
"The Gendl\" Web-based Development Environment (tasty)" :author
"John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20160505" :depends-on (:tree :gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/parameters")
(:file "source/assembly") (:file "source/initialize")
(:file "source/inspector") (:file "source/menu")
(:file "source/new-inspector") (:file "source/newer-inspector")
(: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 -*-
(asdf:defsystem #:translators :description
"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 "20160417" :depends-on (:gwl)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "xml/source/package") (:file "xml/source/genworks")
(:file "xml/source/definition-tree") (:file "xml/source/gdl2xml")
(:file "xml/source/xml2gdl")))
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:translators :description
"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 "20160505" :depends-on (:gwl)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "xml/source/package") (:file "xml/source/genworks")
(:file "xml/source/definition-tree") (:file "xml/source/gdl2xml")
(:file "xml/source/xml2gdl")))
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:tree :description
"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 "20160417" :depends-on (:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/parameters")
(:file "source/ajax") (:file "source/assembly")
(:file "source/newertree")))
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:tree :description
"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 "20160505" :depends-on (:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/parameters")
(:file "source/ajax") (:file "source/assembly")
(:file "source/newertree")))
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:yadd :description
"The Gendl\" Yet Another Definition Documenter (yadd)" :author
"John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20160417" :depends-on
(:gwl-graphics #-allegro :cl-html-parse)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/genworks")
(:file "source/parameters") (:file "source/mixins")
(:file "source/define-object-documentation")
(:file "source/assembly") (:file "source/ass")
(:file "source/format-documentation")
(:file "source/function-documentation") (:file "source/initialize")
(:file "source/publish") (:file "source/test-part")
(:file "source/variable-documentation") (:file "source/zzinit")))
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:yadd :description
"The Gendl\" Yet Another Definition Documenter (yadd)" :author
"John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20160505" :depends-on
(:gwl-graphics #-allegro :cl-html-parse)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/genworks")
(:file "source/parameters") (:file "source/mixins")
(:file "source/define-object-documentation")
(:file "source/assembly") (:file "source/ass")
(:file "source/format-documentation")
(:file "source/function-documentation") (:file "source/initialize")
(:file "source/publish") (:file "source/test-part")
(:file "source/variable-documentation") (:file "source/zzinit")))
;;;; -*- coding: utf-8 -*-
(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 "20160417" :depends-on (:bordeaux-threads)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/genworks")
(:file "source/presets") (:file "source/parameters")
(:file "source/metaclasses") (:file "source/utilities")
(:file "source/start") (:file "source/syntax-checker")
(:file "expanders/source/inputs")
(:file "expanders/source/computed-slots")
(:file "expanders/source/functions")
(:file "expanders/source/methods")
(:file "expanders/source/objects")
(:file "macros/source/reference")
(:file "macros/source/message-utils")
(:file "macros/source/define-object")
(:file "macros/source/defaulting")
(:file "macros/source/define-format")
(:file "rest/source/parameters")
(:file "rest/source/quantification")
(:file "rest/source/aggregate") (:file "rest/source/utilities")
(:file "rest/source/null-part") (: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/init") (:file "rest/source/make-part")
(:file "rest/source/sequence") (:file "zzinit/source/initialize")
(:file "zzinit/source/zzinit")))
;;;; -*- coding: utf-8 -*-
(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 "20160505" :depends-on (:bordeaux-threads)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/genworks")
(:file "source/presets") (:file "source/parameters")
(:file "source/metaclasses") (:file "source/utilities")
(:file "source/start") (:file "source/syntax-checker")
(:file "expanders/source/inputs")
(:file "expanders/source/computed-slots")
(:file "expanders/source/functions")
(:file "expanders/source/methods")
(:file "expanders/source/objects")
(:file "macros/source/reference")
(:file "macros/source/message-utils")
(:file "macros/source/define-object")
(:file "macros/source/defaulting")
(:file "macros/source/define-format")
(:file "rest/source/parameters")
(:file "rest/source/quantification")
(:file "rest/source/aggregate") (:file "rest/source/utilities")
(:file "rest/source/null-part") (: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/init") (:file "rest/source/make-part")
(:file "rest/source/sequence") (:file "zzinit/source/initialize")
(:file "zzinit/source/zzinit")))
......@@ -23,7 +23,7 @@
(defparameter *gendl-version* "1590pre008")
(defparameter *gendl-version* "1590")
(defparameter *gendl-patch-level* nil)
......
;;;; -*- coding: utf-8 -*-
(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 "20160417" :depends-on (:glisp)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/parameters")
(:file "source/cl-lite") (:file "source/initialize")
(:file "source/zzinit")))
;;;; -*- coding: utf-8 -*-
(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 "20160505" :depends-on (:glisp)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/parameters")
(:file "source/cl-lite") (:file "source/initialize")
(:file "source/zzinit")))
;;;; -*- coding: utf-8 -*-
(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 "20160417" :depends-on (:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/assembly")
(:file "source/body") (:file "source/chassis")
(:file "source/interior") (: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-body")
(:file "source/html-writer-chassis")
(:file "source/html-writer-interior")
(:file "source/html-writer-rule-ackermann")
(:file "source/inter-seat-clearance-check")
(:file "source/inter-seat-spacing") (:file "source/knuckle")
(:file "source/parameters") (:file "source/publish")
(:file "source/rear-axle") (:file "source/seat")
(:file "source/seating-section") (:file "source/seating-side")
(:file "source/wheel")))
;;;; -*- coding: utf-8 -*-
(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 "20160505" :depends-on (:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/assembly")
(:file "source/body") (:file "source/chassis")
(:file "source/interior") (: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-body")
(:file "source/html-writer-chassis")
(:file "source/html-writer-interior")
(:file "source/html-writer-rule-ackermann")
(:file "source/inter-seat-clearance-check")
(:file "source/inter-seat-spacing") (:file "source/knuckle")
(:file "source/parameters") (:file "source/publish")
(:file "source/rear-axle") (:file "source/seat")
(:file "source/seating-section") (:file "source/seating-side")
(:file "source/wheel")))
;;;; -*- coding: utf-8 -*-
(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 "20160417" :depends-on
(#-gwl :gwl)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/assembly")
(:file "source/html") (:file "source/zzinit")))
;;;; -*- coding: utf-8 -*-
(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 "20160505" :depends-on
(#-gwl :gwl)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/assembly")
(:file "source/html") (:file "source/zzinit")))
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:robot :description
"The Gendl\" Simplified Android Robot example " :author
"John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20160417" :depends-on (:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/assembly")
(:file "source/initialize") (:file "source/parameters")
(:file "source/zzinit")))
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:robot :description
"The Gendl\" Simplified Android Robot example " :author
"John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20160505" :depends-on (:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/assembly")
(:file "source/initialize") (:file "source/parameters")
(:file "source/zzinit")))
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:wire-world :description
"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 "20160417" :depends-on
(#-gwl-graphics :gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components ((:file "source/package") (:file "source/assembly")))
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:wire-world :description
"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 "20160505" :depends-on
(#-gwl-graphics :gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components ((:file "source/package") (:file "source/assembly")))
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:examples :description
"The Gendl\" examples Subsystem" :author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20160417" :depends-on (:gwl-graphics :surf)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/ch2-examples") (:file "source/ch3-examples")
(:gdl "source/primi-plane") (:gdl "source/ui-primi-plane")))
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:examples :description
"The Gendl\" examples Subsystem" :author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20160505" :depends-on (:gwl-graphics :surf)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/ch2-examples") (:file "source/ch3-examples")
(:gdl "source/primi-plane") (:gdl "source/ui-primi-plane")))
;;;; -*- coding: utf-8 -*-
(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 "20160417" :depends-on (:glisp)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "prereqs/source/presets")
(:file "prereqs/source/cl-pdf-patches")
(:file "prereqs/source/matrix") (:file "prereqs/source/parameters")
(:file "prereqs/source/3d-point-vector-data-types")
(:file "prereqs/source/utilities")
(:file "formats/source/2d-output") (:file "formats/source/dxf")
(:file "formats/source/macro-redefs") (:file "formats/source/obj")
(:file "formats/source/pdf-multipage")
(:file "formats/source/pdf-raw") (:file "formats/source/pdf")
(:file "formats/source/raster")
(:file "formats/source/vector-graphics")
(:file "wire/source/base-object") (:file "wire/source/arc")
(:file "wire/source/l-line") (:file "wire/source/circle")
(:file "wire/source/bezier-curve") (:file "wire/source/cylinder")
(:file "wire/source/global-polyline")
(:file "wire/source/global-filleted-polyline")
(:file "wire/source/global-polygon-projection")
(:file "wire/source/sphere") (:file "wire/source/arcoid-mixin")
(:file "wire/source/bounding-box") (:file "wire/source/box")
(:file "wire/source/c-cylinder") (:file "wire/source/cone")
(:file "wire/source/directional-light")
(:file "wire/source/ellipse") (:file "wire/source/fillet")
(:file "wire/source/global-filleted-polygon-projection")
(:file "wire/source/line-and-arc-constraints")
(:file "wire/source/null-geometric-object")
(:file "wire/source/outline-specialization-mixin")
(:file "wire/source/point-light") (:file "wire/source/point")
(:file "wire/source/points-display")
(:file "wire/source/primitives") (:file "wire/source/route-pipe")
(:file "wire/source/spherical-cap")
(:file "wire/source/spot-light") (:file "wire/source/torus")
(:file "wire/source/utilities") (:file "wire/source/views")
(:file "annotations/source/angular-dimension")
(:file "annotations/source/arrowhead")
(:file "annotations/source/center-line")
(:file "annotations/source/horizontal-dimension")
(:file "annotations/source/label")
(:file "annotations/source/leader-arc")
(:file "annotations/source/leader-line")
(:file "annotations/source/linear-dimension")
(:file "annotations/source/parallel-dimension")
(:file "annotations/source/sample-drawing")
(:file "annotations/source/vertical-dimension")
(:file "drawing/source/base-view")
(:file "drawing/source/document") (:file "drawing/source/lenses")
(:file "drawing/source/renderer-mixin")
(:file "text/source/general-note")