Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
55c4f43c
Commit
55c4f43c
authored
Apr 26, 2013
by
Dave Cooper
Browse files
Merge branch 'devo'
parents
2e360cbe
edf0e1e5
Changes
22
Hide whitespace changes
Inline
Side-by-side
apps/ta2/ta2.asd
View file @
55c4f43c
...
...
@@ -4,7 +4,7 @@
"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
"2013042
2
"
:depends-on
(
:gwl-graphics
)
:version
"2013042
6
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
...
...
apps/tasty/tasty.asd
View file @
55c4f43c
...
...
@@ -4,7 +4,7 @@
"The Gendl™ Web-based Development Environment (tasty)"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"2013042
2
"
:depends-on
(
:tree
:gwl-graphics
)
:version
"2013042
6
"
:depends-on
(
:tree
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
...
...
apps/translators/translators.asd
View file @
55c4f43c
...
...
@@ -4,7 +4,7 @@
"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
"2013042
2
"
:depends-on
(
:gwl
)
:version
"2013042
6
"
:depends-on
(
:gwl
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"xml/source/package"
)
(
:file
"xml/source/genworks"
)
...
...
apps/tree/tree.asd
View file @
55c4f43c
...
...
@@ -4,7 +4,7 @@
"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
"2013042
2
"
:depends-on
(
:gwl-graphics
)
:version
"2013042
6
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
...
...
apps/yadd/yadd.asd
View file @
55c4f43c
...
...
@@ -4,7 +4,7 @@
"The Gendl™ Yet Another Definition Documenter (yadd)"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"2013042
2
"
:depends-on
(
:gwl-graphics
)
:version
"2013042
6
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/genworks"
)
...
...
base/base.asd
View file @
55c4f43c
...
...
@@ -3,7 +3,7 @@
(
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
"2013042
2
"
:depends-on
nil
:serial
t
:version
"2013042
6
"
:depends-on
nil
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/genworks"
)
...
...
base/expanders/source/computed-slots.lisp
View file @
55c4f43c
...
...
@@ -21,6 +21,7 @@
(
in-package
:gdl
)
(
defparameter
*trickle-down-basis-method-hash*
(
make-hash-table
))
(
defun
message-generics
(
messages
)
`
((
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
...
...
@@ -141,15 +142,24 @@
;; FLAG -- we need to redefine the standard gdl-basis method here for trickle-down-slots,
;; figure out how to do it without the crude off/on of redefinition warnings.
;;
`
(
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
(
glisp:begin-redefinitions-ok
))
;;`(eval-when (:compile-toplevel :load-toplevel :execute) (glisp:begin-redefinitions-ok))
`
(
unless
(
gethash
',
(
glisp:intern
(
symbol-name
slot
)
:gdl-slots
)
*trickle-down-basis-method-hash*
)
(
defmethod
,
(
glisp:intern
(
symbol-name
slot
)
:gdl-slots
)
((
,
self-arg
gdl-basis
)
&rest
,
args-arg
)
(
chase-up-trickle-down
',
(
glisp:intern
(
symbol-name
slot
)
:gdl-slots
)
,
self-arg
,
args-arg
))
(
setf
(
gethash
',
(
glisp:intern
(
symbol-name
slot
)
:gdl-slots
)
*trickle-down-basis-method-hash*
)
t
))
#+
nil
`
(
defmethod
,
(
glisp:intern
(
symbol-name
slot
)
:gdl-slots
)
((
,
self-arg
gdl-basis
)
&rest
,
args-arg
)
(
chase-up-trickle-down
',
(
glisp:intern
(
symbol-name
slot
)
:gdl-slots
)
,
self-arg
,
args-arg
))
#+
nil
`
(
unless
(
find-method
(
symbol-function
',
(
glisp:intern
(
symbol-name
slot
)
:gdl-slots
))
nil
(
list
(
find-class
'gdl-basis
))
nil
)
(
defmethod
,
(
glisp:intern
(
symbol-name
slot
)
:gdl-slots
)
((
,
self-arg
gdl-basis
)
&rest
,
args-arg
)
(
chase-up-trickle-down
',
(
glisp:intern
(
symbol-name
slot
)
:gdl-slots
)
,
self-arg
,
args-arg
)))
`
(
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
(
glisp:end-redefinitions-ok
))
;;
`(eval-when (:compile-toplevel :load-toplevel :execute) (glisp:end-redefinitions-ok))
)))
slots
))
cl-lite/cl-lite.asd
View file @
55c4f43c
...
...
@@ -3,7 +3,7 @@
(
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
"2013042
2
"
:depends-on
(
:glisp
)
:serial
t
:version
"2013042
6
"
:depends-on
(
:glisp
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
...
...
demos/bus/bus.asd
View file @
55c4f43c
...
...
@@ -3,7 +3,7 @@
(
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
"2013042
2
"
:depends-on
(
:gwl-graphics
)
:serial
t
:version
"2013042
6
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
...
...
demos/ledger/ledger.asd
View file @
55c4f43c
...
...
@@ -3,7 +3,7 @@
(
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
"2013042
2
"
:depends-on
(
:gwl
)
:serial
t
:version
"2013042
6
"
:depends-on
(
:gwl
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
...
...
demos/robot/robot.asd
View file @
55c4f43c
...
...
@@ -4,7 +4,7 @@
"The Gendl™ Simplified Android Robot example "
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"2013042
2
"
:depends-on
(
:gwl-graphics
)
:version
"2013042
6
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
...
...
demos/wire-world/wire-world.asd
View file @
55c4f43c
...
...
@@ -4,6 +4,6 @@
"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
"2013042
2
"
:depends-on
(
:gwl-graphics
)
:version
"2013042
6
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)))
documentation/training/g102-tud/examples/examples.asd
View file @
55c4f43c
...
...
@@ -3,7 +3,7 @@
(
asdf:defsystem
#:examples
:description
"The Gendl™ examples Subsystem"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"2013042
2
"
:depends-on
nil
:version
"2013042
6
"
:depends-on
nil
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:gdl
"source/primi-plane"
)
(
:gdl
"source/ui-primi-plane"
)))
documentation/tutorial/examples/sequence-matrix.lisp
View file @
55c4f43c
(
in-package
:gdl-user
)
(
define-object
cyl-fields
(
base-object
)
:input-slots
((
number-of-layers
3
)
(
height
20
)
(
datum
(
the
(
face-center
:bottom
)))
(
pitch
(
/
(
the
height
)
(
1-
(
the
number-of-layers
))))
(
colors
(
list
:red
:orange
:yellow
:green
:blue
:indigo
:violet
)))
:objects
((
fields
:type
'cyl-field
:display-controls
(
list
:color
(
cyclic-nth
(
the-child
index
)
(
the
colors
)))
:sequence
(
:size
(
the
number-of-layers
))
:center
(
translate
(
the
datum
)
:up
(
*
(
the-child
index
)
(
the
pitch
))))))
(
define-object
cyl-field
(
base-object
)
:input-slots
((
number-of-rows
10
)
...
...
@@ -14,7 +36,6 @@
:objects
((
cylinders
:type
'cylinder
:sequence
(
:matrix
:lateral
(
the
number-of-rows
)
:longitudinal
(
the
number-of-columns
))
:display-controls
(
list
:color
"#9999FF"
)
:radius
(
the
cylinder-radius
)
:length
(
the
cylinder-length
)
:orientation
(
alignment
:rear
(
the
(
face-normal-vector
:top
)))
...
...
@@ -34,9 +55,8 @@
)
:objects
((
cyls
:type
'cylinder
((
cyl
inder
s
:type
'cylinder
:sequence
(
:matrix
:lateral
(
the
number-of-rows
)
:longitudinal
(
the
number-of-columns
))
:display-controls
(
list
:color
"#9999FF"
)
:radius
(
the
cylinder-radius
)
:length
(
the
cylinder-length
)
:center
(
translate
(
the
center
)
...
...
geom-base/geom-base.asd
View file @
55c4f43c
...
...
@@ -3,7 +3,7 @@
(
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
"2013042
2
"
:depends-on
(
:glisp
)
:version
"2013042
6
"
:depends-on
(
:glisp
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"prereqs/source/presets"
)
...
...
glisp/glisp.asd
View file @
55c4f43c
...
...
@@ -3,7 +3,7 @@
(
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
"2013042
2
"
:depends-on
:serial
t
:version
"2013042
6
"
:depends-on
(
:base
:uiop
:cl-typesetting
:cl-ppcre
:cl-who
#-
allegro
:cl-base64
#-
allegro
:babel
#-
allegro
:acl-compat
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
...
...
gwl-graphics/gwl-graphics.asd
View file @
55c4f43c
...
...
@@ -3,7 +3,7 @@
(
asdf:defsystem
#:gwl-graphics
:description
"The Gendl™ GWL embedded graphics support"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"2013042
2
"
:depends-on
(
:geom-base
:gwl
)
:serial
t
:version
"2013042
6
"
:depends-on
(
:geom-base
:gwl
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"gwl/source/application-mixin"
)
...
...
gwl/ajax/source/ajax.lisp
View file @
55c4f43c
...
...
@@ -22,16 +22,7 @@
(
in-package
:gwl
)
;;
;; FLAG -- remove and replace with glisp:snap-folder after merge into development trunk.
;;
(
defun
tmp-snap-folder
()
(
or
#+
allegro
(
probe-file
(
merge-pathnames
"snaps/"
"sys:"
))
(
ensure-directories-exist
(
merge-pathnames
"snaps/"
(
glisp:temporary-folder
)))))
(
defvar
*snap-folder*
(
tmp-snap-folder
))
(
defun
quick-save
(
self
&key
(
snap-folder
*snap-folder*
))
(
defun
quick-save
(
self
&key
(
snap-folder
(
glisp:snap-folder
)))
(
let
((
snap-file
(
merge-pathnames
(
make-pathname
:name
(
format
nil
"~a"
(
the
instance-id
))
...
...
@@ -44,7 +35,7 @@
(
let
((
snap-file
(
merge-pathnames
(
make-pathname
:name
(
format
nil
"~a"
iid
)
:type
"snap"
)
*
snap-folder
*
)))
:type
"snap"
)
(
glisp:
snap-folder
)
)))
(
when
(
probe-file
snap-file
)
(
with-error-handling
()
(
read-snapshot
:filename
snap-file
...
...
gwl/gwl.asd
View file @
55c4f43c
...
...
@@ -3,7 +3,7 @@
(
asdf:defsystem
#:gwl
:description
"The Gendl™ Generative Web Language (GWL)"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"2013042
2
"
:depends-on
(
:glisp
:aserve
)
:serial
t
:version
"2013042
6
"
:depends-on
(
:glisp
:aserve
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/defparameters"
)
...
...
regression/regression.asd
View file @
55c4f43c
...
...
@@ -3,7 +3,7 @@
(
asdf:defsystem
#:regression
:description
"The Gendl™ regression Subsystem"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"2013042
2
"
:depends-on
(
:lift
:surf
:tasty
)
:version
"2013042
6
"
:depends-on
(
:lift
:surf
:tasty
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"utils/source/package"
)
(
:file
"utils/source/genworks"
)
...
...
Prev
1
2
Next
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment