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
e84c7e5a
Commit
e84c7e5a
authored
Feb 11, 2016
by
Dave Cooper
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
did a build
parent
2869259c
Changes
21
Hide whitespace changes
Inline
Side-by-side
Showing
21 changed files
with
498 additions
and
491 deletions
+498
-491
apps/dom/dom.asd
apps/dom/dom.asd
+17
-17
apps/ta2/ta2.asd
apps/ta2/ta2.asd
+16
-16
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/expanders/source/computed-slots.lisp
base/expanders/source/computed-slots.lisp
+9
-2
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
+60
-60
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/surf.asd
surf/surf.asd
+71
-71
No files found.
apps/dom/dom.asd
View file @
e84c7e5a
;;;; -*- 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
125"
: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
204"
: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 @
e84c7e5a
;;;; -*- 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
125"
: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
204"
: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/tasty.asd
View file @
e84c7e5a
;;;; -*- 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
125"
: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
204"
: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 @
e84c7e5a
;;;; -*- 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
125"
: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
204"
: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 @
e84c7e5a
;;;; -*- 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
125"
: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
204"
: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 @
e84c7e5a
;;;; -*- 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
125"
: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
204"
: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 @
e84c7e5a
;;;; -*- 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
125"
: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
204"
: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/expanders/source/computed-slots.lisp
View file @
e84c7e5a
...
...
@@ -90,12 +90,19 @@
(
the-object
,
self-arg
(
send
(
:apply
(
cons
,
(
make-keyword
(
symbol-name
attr-sym
))
,
args-arg
)))))))
`
(
unless
(
find-method
(
symbol-function
',
(
glisp:intern
(
symbol-name
attr-sym
)
:gdl-slots
))
;;
;; FLAG unwind the changes here and hunt down where the actual lookup-parameters is coming from
;;
`
(
unless
nil
#+
nil
(
find-method
(
symbol-function
',
(
glisp:intern
(
symbol-name
attr-sym
)
:gdl-slots
))
nil
(
list
(
find-class
'gdl-basis
))
nil
)
(
defmethod
,
(
glisp:intern
(
symbol-name
attr-sym
)
:gdl-slots
)
((
,
self-arg
gdl-basis
)
&rest
,
args-arg
)
;;(declare (ignore ,args-arg))
(
let
((
,
parent-arg
(
the-object
,
self-arg
%parent%
)))
(
if
(
null
,
parent-arg
)
(
not-handled
,
self-arg
,
(
make-keyword
attr-sym
)
,
args-arg
)
(
print-variables
,
args-arg
)
(
if
(
or
(
null
,
parent-arg
)
,
args-arg
)
(
not-handled
,
self-arg
,
(
make-keyword
attr-sym
)
,
args-arg
)
(
let
((
,
val-arg
(
let
(
*error-on-not-handled?*
)
(
,
(
glisp:intern
(
symbol-name
attr-sym
)
:gdl-inputs
)
,
parent-arg
(
the-object
,
self-arg
:%name%
)
,
self-arg
))))
...
...
base/source/parameters.lisp
View file @
e84c7e5a
...
...
@@ -23,7 +23,7 @@
(
defparameter
*gendl-version*
"1590pre00
3
"
)
(
defparameter
*gendl-version*
"1590pre00
4
"
)
(
defparameter
*gendl-patch-level*
nil
)
...
...
cl-lite/cl-lite.asd
View file @
e84c7e5a
;;;; -*- 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
125"
: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
204"
: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 @
e84c7e5a
;;;; -*- 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
125"
: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
204"
: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 @
e84c7e5a
;;;; -*- 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
125"
: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
204"
: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 @
e84c7e5a
;;;; -*- 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
125"
: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
204"
: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 @
e84c7e5a
;;;; -*- 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
125"
: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
"20160
204"
: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"
)))
documentation/training/g102-tud/examples/examples.asd
View file @
e84c7e5a
;;;; -*- 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
"20160
125"
: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
"20160
204"
: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"
)))
geom-base/geom-base.asd
View file @
e84c7e5a
;;;; -*- 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
"20160
125"
: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/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"
)
(
:file
"text/source/typeset-block"
)
(
:file
"graphs/source/graph"
)
(
:file
"graphs/source/legend"
)
(
:file
"graphs/source/pie-chart"
)
(
:file
"lenses/source/scad"
)
(
:file
"lenses/source/vrml"
)
(
:file
"lenses/source/x3d"
)
(
:file
"math/source/polynomial"
)
(
:file
"zzinit/source/initialize"
)
(
:file
"zzinit/source/zzinit"
)))
;;;; -*- 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
"20160
204"
: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/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"
)
(
:file
"text/source/typeset-block"
)
(
:file
"graphs/source/graph"
)
(
:file
"graphs/source/legend"
)
(
:file
"graphs/source/pie-chart"
)
(
:file
"lenses/source/scad"
)
(
:file
"lenses/source/vrml"
)
(
:file
"lenses/source/x3d"
)
(
:file
"math/source/polynomial"
)
(
:file
"zzinit/source/initialize"
)
(
:file
"zzinit/source/zzinit"
)))
glisp/glisp.asd
View file @
e84c7e5a
;;;; -*- coding: utf-8 -*-
(
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
"20160
125"
:depends-on
(
:base
:uiop
:cl-typesetting
:cl-ppcre
:cl-who
#-
allegro
:cl-base64
#-
allegro
:babel
#-
allegro
:acl-compat
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/presets"
)
(
:file
"source/parameters"
)
(
:file
"source/genworks"
)
(
:file
"source/initialize"
)
(
:file
"source/zzinit"
)))
;;;; -*- coding: utf-8 -*-