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
0245a05f
Commit
0245a05f
authored
May 25, 2014
by
Dave Cooper
Browse files
ready to finish release branch
parent
383bed65
Changes
26
Hide whitespace changes
Inline
Side-by-side
apps/ta2/ta2.asd
View file @
0245a05f
...
...
@@ -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
"201405
06
"
:depends-on
(
:gwl-graphics
)
:version
"201405
15
"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
apps/tasty/tasty.asd
View file @
0245a05f
...
...
@@ -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
"201405
06
"
:depends-on
(
:tree
:gwl-graphics
)
:version
"201405
15
"
:depends-on
(
:tree
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
apps/translators/translators.asd
View file @
0245a05f
...
...
@@ -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
"201405
06
"
:depends-on
(
:gwl
)
:version
"201405
15
"
:depends-on
(
:gwl
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
apps/tree/tree.asd
View file @
0245a05f
...
...
@@ -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
"201405
06
"
:depends-on
(
:gwl-graphics
)
:version
"201405
15
"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
apps/yadd/yadd.asd
View file @
0245a05f
...
...
@@ -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
"201405
06
"
:depends-on
:version
"201405
15
"
:depends-on
(
:gwl-graphics
#-
allegro
:cl-html-parse
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
...
...
base/base.asd
View file @
0245a05f
...
...
@@ -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
"201405
06
"
:depends-on
nil
:serial
t
:version
"201405
15
"
:depends-on
nil
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
base/expanders/source/computed-slots.lisp
View file @
0245a05f
...
...
@@ -39,7 +39,16 @@
(
defmethod
,
(
glisp:intern
message
:gdl-inputs
)
((
,
parent-arg
gdl-basis
)
,
part-arg
(
,
self-arg
gdl-basis
))
(
declare
(
ignore
,
part-arg
))
(
gdl-rule::lookup-parameters
,
self-arg
,
(
make-keyword
message
)))))
messages
)))
(
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
(
defpackage
:iq
(
:use
)
(
:export
#:qlet
)))
(
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
(
defmacro
iq:qlet
((
&rest
args
)
&rest
body
)
(
declare
(
ignore
args
body
))
(
error
"Query-attributes are not supported in this Gendl distribution.~%"
)))
(
defun
computed-slots-section
(
name
computed-slots
&key
query?
)
(
mapcan
...
...
@@ -66,6 +75,9 @@
`
(
defmethod
,
(
glisp:intern
(
symbol-name
attr-sym
)
:gdl-slots
)
((
self
,
name
)
&rest
,
args-arg
)
(
declare
(
ignore
,
args-arg
))
(
let
((
*error-on-not-handled?*
t
))
(
with-dependency-tracking
(
,
attr-sym
)
,
(
if
query?
`
(
iq:qlet
(())
,
attr-expr
)
attr-expr
))
#+
nil
(
with-dependency-tracking
(
,
attr-sym
)
,
(
if
query?
(
error
"Query-slots are not supported in this distribution of Genworks GDL."
)
attr-expr
)))))
...
...
base/macros/source/define-object.lisp
View file @
0245a05f
...
...
@@ -612,7 +612,8 @@ overview of <tt>define-object</tt> syntax."
((
,
self-arg
,
name
)
,
category-arg
,
message-type-arg
,
base-part-type-arg
&optional
(
,
depth-arg
0
))
(
append
(
message-list
,
self-arg
:all
;;:all
,
category-arg
,
depth-arg
,
base-part-type-arg
)
(
when
(
and
(
not
(
eql
,
message-type-arg
:local
))
(
next-method-p
))
(
call-next-method
,
self-arg
,
category-arg
,
message-type-arg
,
base-part-type-arg
(
1+
,
depth-arg
)))))
...
...
base/macros/source/message-utils.lisp
View file @
0245a05f
...
...
@@ -78,13 +78,16 @@
(
mapcan
#'
(
lambda
(
message
)
(
list
message
cat
))
(
let
((
keys
(
safe-sort
(
mapcar
#'
make-keyword
(
funcall
(
glisp:intern
(
format
nil
"~a"
cat
)
:gdl
)
class
))
#'
string<
)))
(
if
*sort-children?*
(
safe-sort
(
mapcar
#'
make-keyword
(
funcall
(
glisp:intern
(
format
nil
"~a"
cat
)
:gdl
)
class
))
#'
string<
)
(
mapcar
#'
make-keyword
(
funcall
(
glisp:intern
(
format
nil
"~a"
cat
)
:gdl
)
class
)))))
keys
)))
*message-categories*
))
(
otherwise
(
let
((
messages
(
mapcar
#'
make-keyword
(
funcall
(
glisp:intern
(
format
nil
"~a"
category
))
class
))))
(
funcall
(
glisp:intern
(
format
nil
"~a"
category
)
:gdl
)
class
))))
(
mapcan
#'
(
lambda
(
message
)
(
list
message
category
))
messages
))))))
...
...
base/macros/source/reference.lisp
View file @
0245a05f
...
...
@@ -87,16 +87,16 @@ set of arms contained in the body which is contained in the robot which is conta
,
(
make-keyword
message
)
'gdl-rule:%not-handled%
)))
(
if
(
eql
,
new-object
'gdl-rule:%not-handled%
)
(
not-handled-error
,
object
',message
)
,
new-object
))))
(
cond
((
and
evaluate?
apply?
)
`
(
apply
(
symbol-function
(
glisp:intern
(
symbol-name
,
message
)
:gdl-slots
))
,
object
(
cond
((
and
evaluate?
apply?
)
`
(
apply
(
symbol-function
(
glisp:intern
(
symbol-name
,
message
)
:gdl-slots
))
,
object
,
args
))
(
evaluate?
`
(
funcall
(
symbol-function
(
glisp:intern
(
symbol-name
,
message
)
:gdl-slots
))
,
object
,@
args
))
(
apply?
`
(
apply
',message
,
object
,
args
))
(
evaluate?
`
(
funcall
(
symbol-function
(
glisp:intern
(
symbol-name
,
message
)
:gdl-slots
))
,
object
,@
args
))
(
apply?
`
(
apply
',message
,
object
,
args
))
(
t
`
(
,
message
,
object
,@
args
))))
(
t
`
(
,
message
,
object
,@
args
))))
,@
(
rest
reference-chain
))))
object
))
...
...
base/rest/source/vanilla-mixin.lisp
View file @
0245a05f
...
...
@@ -106,15 +106,28 @@ nil "~a~a~a" (the :name-for-display)
#+
nil
(
%object-keywords%
(
mapcar
#'
make-keyword
(
gdl-rule::%object-keywords%
self
)))
#+
nil
(
%object-keywords%
(
safe-sort
(
append
(
the
(
message-list
:category
:objects
))
(
the
(
message-list
:category
:quantified-objects
)))
#'
string-lessp
))
(
%object-keywords%
(
let
((
unsorted
(
append
(
the
(
message-list
:category
:objects
))
(
the
(
message-list
:category
:quantified-objects
)))))
(
if
*sort-children?*
(
safe-sort
unsorted
#'
string-lessp
)
unsorted
)))
;;(%hidden-object-keywords% (mapcar #'make-keyword (gdl-rule::%hidden-object-keywords% self)))
#+
nil
(
%hidden-object-keywords%
(
safe-sort
(
append
(
the
(
message-list
:category
:hidden-objects
))
(
the
(
message-list
:category
:quantified-hidden-objects
)))
#'
string-lessp
))
(
%hidden-object-keywords%
(
let
((
unsorted
(
append
(
the
(
message-list
:category
:hidden-objects
))
(
the
(
message-list
:category
:quantified-hidden-objects
)))))
(
if
*sort-children?*
(
safe-sort
unsorted
#'
string-lessp
)
unsorted
)))
(
"Keyword symbol. The part's simple name, derived from its object specification in the parent or from
the type name if this is the root instance."
name-for-display
(
make-keyword
(
the
%name%
)))
;;(gdl-acc::%name% self)
...
...
base/source/package.lisp
View file @
0245a05f
...
...
@@ -95,6 +95,7 @@ If you are interested in this effort we would love to hear from you at open-sour
#:*gendl-patch-level*
#:*ghostscript-path*
#:*gs-path*
#:*sort-children?*
#:*load-documentation-database?*
#:*load-source-code-database?*
#:*out-of-bounds-sequence-reference-action*
...
...
base/source/parameters.lisp
View file @
0245a05f
...
...
@@ -23,7 +23,7 @@
;;(defparameter *gendl-version* "1585p002")
;;(defparameter *gendl-version* "1587devo")
(
defparameter
*gendl-version*
"1587p00
2
"
)
(
defparameter
*gendl-version*
"1587p00
3
"
)
;;(defparameter *gendl-version* "ql-2013-12")
(
defparameter
*gendl-patch-level*
nil
)
...
...
@@ -202,3 +202,4 @@ values are a color indicator for the default foreground and background of graphi
(
defparameter
*sort-children?*
t
)
cl-lite/cl-lite.asd
View file @
0245a05f
...
...
@@ -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
"201405
06
"
:depends-on
(
:glisp
)
:serial
t
:version
"201405
15
"
:depends-on
(
:glisp
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
demos/bus/bus.asd
View file @
0245a05f
...
...
@@ -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
"201405
06
"
:depends-on
(
:gwl-graphics
)
:serial
t
:version
"201405
15
"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
demos/ledger/ledger.asd
View file @
0245a05f
...
...
@@ -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
"201405
06
"
:depends-on
:serial
t
:version
"201405
15
"
:depends-on
(
#-
gwl
:gwl
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
...
...
demos/robot/robot.asd
View file @
0245a05f
...
...
@@ -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
"201405
06
"
:depends-on
(
:gwl-graphics
)
:version
"201405
15
"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
demos/wire-world/wire-world.asd
View file @
0245a05f
...
...
@@ -4,7 +4,7 @@
"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
"201405
06
"
:depends-on
:version
"201405
15
"
:depends-on
(
#-
gwl-graphics
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
...
...
documentation/training/g102-tud/examples/examples.asd
View file @
0245a05f
...
...
@@ -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
"201405
06
"
:depends-on
(
:gwl-graphics
:surf
)
:version
"201405
15
"
:depends-on
(
:gwl-graphics
:surf
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
geom-base/geom-base.asd
View file @
0245a05f
...
...
@@ -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
"201405
06
"
:depends-on
(
:glisp
)
:version
"201405
15
"
:depends-on
(
:glisp
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
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