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
5cb993b1
Commit
5cb993b1
authored
Feb 04, 2014
by
Dave Cooper
Browse files
Options
Browse Files
Download
Plain Diff
Merge branch 'release/1585p002'
parents
d04166da
d0fd4d99
Changes
110
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
110 changed files
with
20375 additions
and
884 deletions
+20375
-884
apps/ta2/ta2.asd
apps/ta2/ta2.asd
+9
-24
apps/tasty/tasty.asd
apps/tasty/tasty.asd
+12
-29
apps/translators/translators.asd
apps/translators/translators.asd
+5
-16
apps/tree/tree.asd
apps/tree/tree.asd
+5
-16
apps/yadd/yadd.asd
apps/yadd/yadd.asd
+10
-24
base/base.asd
base/base.asd
+13
-31
base/rest/source/parameters.lisp
base/rest/source/parameters.lisp
+2
-0
base/rest/source/vanilla-mixin.lisp
base/rest/source/vanilla-mixin.lisp
+18
-1
base/source/package.lisp
base/source/package.lisp
+1
-0
base/source/parameters.lisp
base/source/parameters.lisp
+2
-2
base/zzinit/source/initialize.lisp
base/zzinit/source/initialize.lisp
+1
-1
cl-lite/cl-lite.asd
cl-lite/cl-lite.asd
+6
-17
demos/bus/bus.asd
demos/bus/bus.asd
+13
-31
demos/bus/depends-on.isc
demos/bus/depends-on.isc
+1
-1
demos/ledger/ledger.asd
demos/ledger/ledger.asd
+6
-16
demos/robot/depends-on.isc
demos/robot/depends-on.isc
+1
-1
demos/robot/robot.asd
demos/robot/robot.asd
+6
-17
demos/wire-world/wire-world.asd
demos/wire-world/wire-world.asd
+4
-13
documentation/training/g102-tud/examples/examples.asd
documentation/training/g102-tud/examples/examples.asd
+6
-17
emacs/README.txt
emacs/README.txt
+50
-48
emacs/alert
emacs/alert
+0
-1
emacs/gdl.el
emacs/gdl.el
+90
-23
emacs/maxframe.el/maxframe.el
emacs/maxframe.el/maxframe.el
+0
-205
emacs/org-pomodoro
emacs/org-pomodoro
+0
-1
geom-base/geom-base.asd
geom-base/geom-base.asd
+24
-53
glisp/glisp.asd
glisp/glisp.asd
+6
-16
glisp/source/genworks.lisp
glisp/source/genworks.lisp
+78
-14
gwl-graphics/gwl-graphics.asd
gwl-graphics/gwl-graphics.asd
+8
-21
gwl/ajax/source/ajax.lisp
gwl/ajax/source/ajax.lisp
+2
-2
gwl/gwl.asd
gwl/gwl.asd
+15
-35
gwl/source/answer.lisp
gwl/source/answer.lisp
+11
-7
gwl/source/publish.lisp
gwl/source/publish.lisp
+1
-1
gwl/source/remote-object.lisp
gwl/source/remote-object.lisp
+11
-7
program/eli/Makefile
program/eli/Makefile
+82
-0
program/eli/examples/emacs.el
program/eli/examples/emacs.el
+37
-0
program/eli/examples/eval.el
program/eli/examples/eval.el
+44
-0
program/eli/fi-basic-lep.el
program/eli/fi-basic-lep.el
+719
-0
program/eli/fi-basic-lep.elc
program/eli/fi-basic-lep.elc
+0
-0
program/eli/fi-build.el
program/eli/fi-build.el
+6
-0
program/eli/fi-changes.el
program/eli/fi-changes.el
+209
-0
program/eli/fi-changes.elc
program/eli/fi-changes.elc
+0
-0
program/eli/fi-compile.el
program/eli/fi-compile.el
+62
-0
program/eli/fi-composer.el
program/eli/fi-composer.el
+129
-0
program/eli/fi-composer.elc
program/eli/fi-composer.elc
+0
-0
program/eli/fi-db.el
program/eli/fi-db.el
+454
-0
program/eli/fi-db.elc
program/eli/fi-db.elc
+0
-0
program/eli/fi-dmode.el
program/eli/fi-dmode.el
+363
-0
program/eli/fi-dmode.elc
program/eli/fi-dmode.elc
+0
-0
program/eli/fi-emacs18.el
program/eli/fi-emacs18.el
+23
-0
program/eli/fi-emacs18.elc
program/eli/fi-emacs18.elc
+0
-0
program/eli/fi-emacs19.el
program/eli/fi-emacs19.el
+659
-0
program/eli/fi-emacs19.elc
program/eli/fi-emacs19.elc
+0
-0
program/eli/fi-emacs21.el
program/eli/fi-emacs21.el
+1091
-0
program/eli/fi-emacs21.elc
program/eli/fi-emacs21.elc
+0
-0
program/eli/fi-filec.el
program/eli/fi-filec.el
+210
-0
program/eli/fi-filec.elc
program/eli/fi-filec.elc
+0
-0
program/eli/fi-gnu.el
program/eli/fi-gnu.el
+54
-0
program/eli/fi-gnu.elc
program/eli/fi-gnu.elc
+0
-0
program/eli/fi-inc-vers.el
program/eli/fi-inc-vers.el
+78
-0
program/eli/fi-indent.el
program/eli/fi-indent.el
+1847
-0
program/eli/fi-indent.elc
program/eli/fi-indent.elc
+0
-0
program/eli/fi-keys.el
program/eli/fi-keys.el
+1433
-0
program/eli/fi-keys.elc
program/eli/fi-keys.elc
+0
-0
program/eli/fi-leep-xemacs.el
program/eli/fi-leep-xemacs.el
+253
-0
program/eli/fi-leep.el
program/eli/fi-leep.el
+466
-0
program/eli/fi-leep0.el
program/eli/fi-leep0.el
+21
-0
program/eli/fi-leep0.elc
program/eli/fi-leep0.elc
+0
-0
program/eli/fi-lep.el
program/eli/fi-lep.el
+1222
-0
program/eli/fi-lep.elc
program/eli/fi-lep.elc
+0
-0
program/eli/fi-lze.el
program/eli/fi-lze.el
+201
-0
program/eli/fi-lze.elc
program/eli/fi-lze.elc
+0
-0
program/eli/fi-manual-data.el
program/eli/fi-manual-data.el
+4213
-0
program/eli/fi-manual-data.elc
program/eli/fi-manual-data.elc
+0
-0
program/eli/fi-manual.el
program/eli/fi-manual.el
+108
-0
program/eli/fi-manual.elc
program/eli/fi-manual.elc
+0
-0
program/eli/fi-modes.el
program/eli/fi-modes.el
+587
-0
program/eli/fi-modes.elc
program/eli/fi-modes.elc
+0
-0
program/eli/fi-ring.el
program/eli/fi-ring.el
+316
-0
program/eli/fi-ring.elc
program/eli/fi-ring.elc
+0
-0
program/eli/fi-rlogin.el
program/eli/fi-rlogin.el
+115
-0
program/eli/fi-rlogin.elc
program/eli/fi-rlogin.elc
+0
-0
program/eli/fi-shell.el
program/eli/fi-shell.el
+107
-0
program/eli/fi-shell.elc
program/eli/fi-shell.elc
+0
-0
program/eli/fi-site-init.el
program/eli/fi-site-init.el
+326
-0
program/eli/fi-stream.el
program/eli/fi-stream.el
+74
-0
program/eli/fi-stream.elc
program/eli/fi-stream.elc
+0
-0
program/eli/fi-su.el
program/eli/fi-su.el
+150
-0
program/eli/fi-su.elc
program/eli/fi-su.elc
+0
-0
program/eli/fi-sublisp.el
program/eli/fi-sublisp.el
+166
-0
program/eli/fi-sublisp.elc
program/eli/fi-sublisp.elc
+0
-0
program/eli/fi-subproc.el
program/eli/fi-subproc.el
+1760
-0
program/eli/fi-subproc.elc
program/eli/fi-subproc.elc
+0
-0
program/eli/fi-telnet.el
program/eli/fi-telnet.el
+120
-0
program/eli/fi-telnet.elc
program/eli/fi-telnet.elc
+0
-0
program/eli/fi-test.el
program/eli/fi-test.el
+86
-0
program/eli/fi-utils.el
program/eli/fi-utils.el
+1361
-0
program/eli/fi-utils.elc
program/eli/fi-utils.elc
+0
-0
program/eli/fi-vers.el
program/eli/fi-vers.el
+5
-0
program/eli/fi-vers.elc
program/eli/fi-vers.elc
+0
-0
program/eli/fi-xcompile.el
program/eli/fi-xcompile.el
+26
-0
program/eli/fi-xemacs.el
program/eli/fi-xemacs.el
+671
-0
program/eli/local.mak
program/eli/local.mak
+1
-0
program/eli/version.mak
program/eli/version.mak
+2
-0
regression/data/round-trip.stp
regression/data/round-trip.stp
+11
-11
regression/regression.asd
regression/regression.asd
+40
-85
regression/utils/source/functions.lisp
regression/utils/source/functions.lisp
+1
-1
surf/source/boolean.lisp
surf/source/boolean.lisp
+1
-0
surf/source/cone-solid.lisp
surf/source/cone-solid.lisp
+2
-2
surf/source/methods.lisp
surf/source/methods.lisp
+2
-1
surf/surf.asd
surf/surf.asd
+44
-93
No files found.
apps/ta2/ta2.asd
View file @
5cb993b1
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:ta2
:description
(
asdf:defsystem
#:ta2
:description
"The Gendl™ (legacy) Testing and Tracking Utility, version 2 (using Ajax but pre-gdlAjax, and no JQuery or CSS)"
:author
"Genworks International"
:license
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(
:gwl-graphics
)
:serial
t
:version
"20140204"
: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"
)))
((
: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 @
5cb993b1
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:tasty
:description
"The Gendl™ Web-based Development Environment (tasty)"
:author
"Genworks International"
:license
(
asdf:defsystem
#:tasty
:description
"The Gendl™ Web-based Development Environment (tasty)"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(
:tree
:gwl-graphics
)
:serial
t
:version
"20140204"
: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"
)))
((
: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 @
5cb993b1
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:translators
:description
(
asdf:defsystem
#:translators
:description
"The Gendl™ Translators to/from XML and potentially other high-level KBE and Knowledge formats"
:author
"Genworks International"
:license
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(
:gwl
)
:serial
t
:version
"20140204"
: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/package"
)
(
:file
"xml/source/genworks"
)
(
:file
"xml/source/definition-tree"
)
(
:file
"xml/source/gdl2xml"
)
(
:file
"xml/source/xml2gdl"
)))
apps/tree/tree.asd
View file @
5cb993b1
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:tree
:description
(
asdf:defsystem
#:tree
:description
"The Gendl™ Tree component used by Tasty and potentially as a UI component on its own"
:author
"Genworks International"
:license
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(
:gwl-graphics
)
:serial
t
:version
"20140204"
: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/package"
)
(
:file
"source/parameters"
)
(
:file
"source/ajax"
)
(
:file
"source/assembly"
)
(
:file
"source/newertree"
)))
apps/yadd/yadd.asd
View file @
5cb993b1
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:yadd
:description
"The Gendl™ Yet Another Definition Documenter (yadd)"
:author
"Genworks International"
:license
(
asdf:defsystem
#:yadd
:description
"The Gendl™ Yet Another Definition Documenter (yadd)"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
:serial
t
:version
"20140204"
: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/package"
)
(
:file
"source/genworks"
)
(
:file
"source/parameters"
)
(
:file
"source/mixins"
)
(
:file
"source/define-object-documentation"
)
(
:file
"source/assembly"
)
(
:file
"source/ass"
)
(
: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"
)))
(
: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 @
5cb993b1
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:base
:description
"The Gendl™ Base Core Kernel Engine"
:author
"Genworks International"
:license
(
asdf:defsystem
#:base
:description
"The Gendl™ Base Core Kernel Engine"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
nil
:serial
t
:version
"20140204"
:depends-on
nil
#-
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
"expanders/source/inputs"
)
((
:file
"source/package"
)
(
:file
"source/genworks"
)
(
:file
"source/presets"
)
(
:file
"source/parameters"
)
(
:file
"source/metaclasses"
)
(
:file
"source/utilities"
)
(
:file
"source/start"
)
(
:file
"expanders/source/inputs"
)
(
:file
"expanders/source/computed-slots"
)
(
:file
"expanders/source/functions"
)
(
:file
"expanders/source/methods"
)
...
...
@@ -36,15 +23,10 @@
(
: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/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
"rest/source/init"
)
(
:file
"rest/source/make-part"
)
(
:file
"rest/source/sequence"
)
(
:file
"zzinit/source/initialize"
)
(
:file
"zzinit/source/zzinit"
)))
base/rest/source/parameters.lisp
View file @
5cb993b1
...
...
@@ -39,6 +39,8 @@
(
defparameter
*force-restore-slot-default?*
nil
)
(
defparameter
*override-non-settables?*
t
)
(
defparameter
*color-plist*
(
list
:periwinkle
"#aaaaff"
:aqua
"#00ffff"
...
...
base/rest/source/vanilla-mixin.lisp
View file @
5cb993b1
...
...
@@ -448,7 +448,24 @@ error will be generated.
:&key ((remember? t) \"Boolean. Determines whether to save in current version-tree.\"
(warn-on-non-toplevel? t) \"Boolean. Determines whether to warn if this is called from the body of a cached slot.\" )"
set-slot!
(
attribute
value
&key
(
remember?
t
)
(
warn-on-non-toplevel?
t
))
(
attribute
value
&key
(
remember?
t
)
(
warn-on-non-toplevel?
t
)
(
override-non-settable?
*override-non-settables?*
))
(
unless
(
or
(
gethash
attribute
(
the
%settable-slots%
))
(
member
attribute
(
the
(
message-list
:category
:required-input-slots
))))
(
let
((
message
(
format
nil
"The slot ~s is not settable in ~a of type ~a."
attribute
(
cons
'the
(
reverse
(
the
root-path
)))
(
the
type
))))
(
if
override-non-settable?
(
warn
(
format
nil
"~a Setting it anyway...
To get a continuable error instead, use :override-non-settable? t or
globally (setq *override-non-settables?* t).
Note that this behavior may change to error by default in a future GDL release.
"
message
))
(
cerror
"Set the slot anyway."
message
))))
(
when
(
and
warn-on-non-toplevel?
*notify-cons*
)
...
...
base/source/package.lisp
View file @
5cb993b1
...
...
@@ -89,6 +89,7 @@ If you are interested in this effort we would love to hear from you at open-sour
#:*ensure-lists-when-bashing?*
#:*error-on-reserved-words?*
#:*force-restore-slot-default?*
#:*override-non-settables?*
#:*gdl-init-functions*
#:*gendl-version*
#:*gendl-patch-level*
...
...
base/source/parameters.lisp
View file @
5cb993b1
...
...
@@ -21,8 +21,8 @@
(
in-package
:gdl
)
;;(defparameter *gendl-version* "1585p001
")
(
defparameter
*gendl-version*
"ql-2013-12"
)
(
defparameter
*gendl-version*
"1585p002
"
)
;;
(defparameter *gendl-version* "ql-2013-12")
(
defparameter
*gendl-patch-level*
nil
)
(
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
...
...
base/zzinit/source/initialize.lisp
View file @
5cb993b1
...
...
@@ -25,7 +25,7 @@
(
defun
initialize
()
(
declare
(
ignore
edition
))
(
setq
glisp:*gdl-program-home*
(
glisp:executable-homedir-pathname
))
(
setq
glisp:*gdl-program-home*
(
probe-file
(
glisp:executable-homedir-pathname
)
))
(
setq
glisp:*gdl-home*
(
make-pathname
:name
nil
:type
nil
:directory
(
butlast
(
pathname-directory
glisp:*gdl-program-home*
))
...
...
cl-lite/cl-lite.asd
View file @
5cb993b1
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:cl-lite
:description
"The Gendl™ Compile-and-Load Lite Utility"
:author
"Genworks International"
:license
(
asdf:defsystem
#:cl-lite
:description
"The Gendl™ Compile-and-Load Lite Utility"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(
:glisp
)
:serial
t
:version
"20140204"
: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/package"
)
(
:file
"source/parameters"
)
(
:file
"source/cl-lite"
)
(
:file
"source/initialize"
)
(
:file
"source/zzinit"
)))
demos/bus/bus.asd
View file @
5cb993b1
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:bus
:description
"The Gendl™ Wireframe School Bus Demo"
:author
"Genworks International"
:license
(
asdf:defsystem
#:bus
:description
"The Gendl™ Wireframe School Bus Demo"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(
#-
gwl-graphics
:gwl-graphics
)
:serial
t
:version
"20140204"
:depends-on
nil
#-
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/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/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/bus/depends-on.isc
View file @
5cb993b1
"(#-gwl-graphics :gwl-graphics)"
\ No newline at end of file
nil
\ No newline at end of file
demos/ledger/ledger.asd
View file @
5cb993b1
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:ledger
:description
"The Gendl™ Ledger Bookkeeping Demo"
:author
"Genworks International"
:license
(
asdf:defsystem
#:ledger
:description
"The Gendl™ Ledger Bookkeeping Demo"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
:serial
t
:version
"20140204"
: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"
)))
((
:file
"source/package"
)
(
:file
"source/assembly"
)
(
:file
"source/html"
)
(
:file
"source/zzinit"
)))
demos/robot/depends-on.isc
View file @
5cb993b1
"(#-gendl :gwl-graphics)"
\ No newline at end of file
nil
\ No newline at end of file
demos/robot/robot.asd
View file @
5cb993b1
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:robot
:description
"The Gendl™ Simplified Android Robot example "
:author
"Genworks International"
:license
(
asdf:defsystem
#:robot
:description
"The Gendl™ Simplified Android Robot example "
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(
#-
gendl
:gwl-graphics
)
:serial
t
:version
"20140204"
:depends-on
nil
#-
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/package"
)
(
:file
"source/assembly"
)
(
:file
"source/initialize"
)
(
:file
"source/parameters"
)
(
:file
"source/zzinit"
)))
demos/wire-world/wire-world.asd
View file @
5cb993b1
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:wire-world
:description
(
asdf:defsystem
#:wire-world
:description
"The Gendl™ Wire-World demo and test-case for wireframe tessellation and X3D output"
:author
"Genworks International"
:license
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
:serial
t
:version
"20140204"
: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"
)))
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)))
documentation/training/g102-tud/examples/examples.asd
View file @
5cb993b1
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:examples
:description
"The Gendl™ examples Subsystem"
:author
"Genworks International"
:license
(
asdf:defsystem
#:examples
:description
"The Gendl™ examples Subsystem"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131207"
:depends-on
(
:gwl-graphics
:surf
)
:serial
t
:version
"20140204"
: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"
)))
((
:file
"source/ch2-examples"
)
(
:file
"source/ch3-examples"
)
(
:gdl
"source/primi-plane"
)
(
:gdl
"source/ui-primi-plane"
)))
emacs/README.txt
View file @
5cb993b1
;;;; -*- coding: utf-8 -*-
Welcome to the Genworks® Gendl™ Environment
Welcome to the Genworks® GDL and Gendl® Environment
=========
...
...
@@ -9,8 +10,9 @@ Startup
After some time, you should see a "GDL-USER>" command prompt.
A web server also starts by default on port 9000 of the local host,
which allows you to visit, for example:
A web server also starts by default on port 9000 (or the next
available port above 9000) of the local host, which allows you to
visit, for example:
http://localhost:9000/tasty
...
...
@@ -21,35 +23,35 @@ wireframe rendering of a simplified android robot.
See "Troubleshooting" below if you experience trouble starting up.
================
Emacs and Gendl
================
==================
Authoring GDL Code
==================
Option 1: Gnu Emacs
===================
Although you are free to use other editors or IDEs, spending some time
to get familiar with Emacs is the best small investment you can make
for working with a Lisp-based system like Gendl. Slime (Superior Lisp
Interaction Mode for Emacs) which works across all major OS platforms
and CL implementations and is well-supported by the Common Lisp
community. Genworks plans to continue adding specialized Gendl support
to Slime.
All things considered, Gnu Emacs is the most powerful, portable, and
risk-free IDE (Integrated Development Environment) available for
working with Lisp-based systems like GDL. Spending some time getting
familiar with Gnu Emacs is perhaps the best small investment you can
make.
If you are new to Emacs, you can get a general Emacs Tutorial under
the Help menu above. After completing the Tutorial, try to practice
what you learned by forcing yourself not to use the mouse too much in
Emacs.
Touch-typing ability is definitely an asset for G
endl
development, but
Touch-typing ability is definitely an asset for G
DL
development, but
with auto-completion of symbols (possible with M-/ -- you'll know what
that means after looking at the tutorial) it is possible to become a
world-class G
endl
developer without having world-class typing speed.
world-class G
DL
developer without having world-class typing speed.
It is strongly recommended to map your Caps Lock key to be a Control
key. This will give you a much more comfortable experience, allowing
you to use all the Emacs navigation keystrokes without constantly
curling your left little finger down to the Control key. For Linux
and Mac, this is easy to do in your System Preferences. For Windows,
here are some resources which can help you do this (the first one
appears not to require Administrator access on your machine):
key. This will allow you to use all the Emacs navigation keystrokes
without constantly curling your left little finger down to the Control
key. For Linux and Mac, this is easy to do in your System
Preferences. For Windows, here are some resources which can help you
do this:
http://johnhaller.com/jh/useful_stuff/disable_caps_lock/
...
...
@@ -57,93 +59,93 @@ Note tha