Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
G
gendl
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
47
Issues
47
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
gendl
gendl
Commits
3d19b326
Commit
3d19b326
authored
Jun 02, 2016
by
Dave Cooper
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
fixed tasty doc link and curve display bug
parent
770de4bd
Changes
23
Hide whitespace changes
Inline
Side-by-side
Showing
23 changed files
with
565 additions
and
552 deletions
+565
-552
apps/dom/dom.asd
apps/dom/dom.asd
+17
-17
apps/ta2/ta2.asd
apps/ta2/ta2.asd
+16
-16
apps/tasty/source/assembly.lisp
apps/tasty/source/assembly.lisp
+60
-58
apps/tasty/source/menu.lisp
apps/tasty/source/menu.lisp
+12
-1
apps/tasty/tasty.asd
apps/tasty/tasty.asd
+18
-18
apps/translators/translators.asd
apps/translators/translators.asd
+13
-13
apps/tree/tree.asd
apps/tree/tree.asd
+13
-13
apps/yadd/yadd.asd
apps/yadd/yadd.asd
+19
-19
base/base.asd
base/base.asd
+32
-32
base/source/parameters.lisp
base/source/parameters.lisp
+1
-1
cl-lite/cl-lite.asd
cl-lite/cl-lite.asd
+12
-12
demos/bus/bus.asd
demos/bus/bus.asd
+25
-25
demos/ledger/ledger.asd
demos/ledger/ledger.asd
+12
-12
demos/robot/robot.asd
demos/robot/robot.asd
+13
-13
demos/wire-world/wire-world.asd
demos/wire-world/wire-world.asd
+11
-11
documentation/training/g102-tud/examples/examples.asd
documentation/training/g102-tud/examples/examples.asd
+11
-11
geom-base/geom-base.asd
geom-base/geom-base.asd
+61
-61
glisp/glisp.asd
glisp/glisp.asd
+13
-13
gwl-graphics/gwl-graphics.asd
gwl-graphics/gwl-graphics.asd
+18
-18
gwl/gwl.asd
gwl/gwl.asd
+38
-38
regression/regression.asd
regression/regression.asd
+76
-76
surf/source/curve.lisp
surf/source/curve.lisp
+1
-1
surf/surf.asd
surf/surf.asd
+73
-73
No files found.
apps/dom/dom.asd
View file @
3d19b326
;;;; -*- 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
"20160
417"
: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
"20160
505"
: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"
)))
apps/ta2/ta2.asd
View file @
3d19b326
;;;; -*- 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
"20160
417"
: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
"20160
505"
: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"
)))
apps/tasty/source/assembly.lisp
View file @
3d19b326
...
...
@@ -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
)
)
))))
...
...
apps/tasty/source/menu.lisp
View file @
3d19b326
...
...
@@ -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"
))
)))))
...
...
apps/tasty/tasty.asd
View file @
3d19b326
;;;; -*- 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
"20160
417"
: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
"20160
505"
: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"
)))
apps/translators/translators.asd
View file @
3d19b326
;;;; -*- 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
"20160
417"
: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
"20160
505"
: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"
)))
apps/tree/tree.asd
View file @
3d19b326
;;;; -*- 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
"20160
417"
: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
"20160
505"
: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"
)))
apps/yadd/yadd.asd
View file @
3d19b326
;;;; -*- 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
"20160
417"
: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
"20160
505"
: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"
)))
base/base.asd
View file @
3d19b326
;;;; -*- 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
"20160
417"
: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
"20160
505"
: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"
)))
base/source/parameters.lisp
View file @
3d19b326
...
...
@@ -23,7 +23,7 @@
(
defparameter
*gendl-version*
"1590
pre008
"
)
(
defparameter
*gendl-version*
"1590"
)
(
defparameter
*gendl-patch-level*
nil
)
...
...
cl-lite/cl-lite.asd
View file @
3d19b326
;;;; -*- 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
"20160
417"
: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
"20160
505"
: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"
)))
demos/bus/bus.asd
View file @
3d19b326
;;;; -*- 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
"20160
417"
: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
"20160
505"
: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"
)))
demos/ledger/ledger.asd
View file @
3d19b326
;;;; -*- 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
"20160
417"
: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
"20160
505"
: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"
)))
demos/robot/robot.asd
View file @
3d19b326
;;;; -*- 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
"20160
417"
: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
"20160
505"
: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"
)))
demos/wire-world/wire-world.asd
View file @
3d19b326
;;;; -*- 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
"20160
417"
: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