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
abbe3a26
Commit
abbe3a26
authored
May 25, 2014
by
Dave Cooper
Browse files
Merge branch 'release/1587p003' into devo
parents
383bed65
0245a05f
Changes
26
Hide whitespace changes
Inline
Side-by-side
apps/ta2/ta2.asd
View file @
abbe3a26
...
...
@@ -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 @
abbe3a26
...
...
@@ -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 @
abbe3a26
...
...
@@ -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 @
abbe3a26
...
...
@@ -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 @
abbe3a26
...
...
@@ -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 @
abbe3a26
...
...
@@ -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 @
abbe3a26
...
...
@@ -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 @
abbe3a26
...
...
@@ -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 @
abbe3a26
...
...
@@ -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 @
abbe3a26
...
...
@@ -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 @
abbe3a26
...
...
@@ -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 @
abbe3a26
...
...
@@ -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 @
abbe3a26
...
...
@@ -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 @
abbe3a26
...
...
@@ -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 @
abbe3a26
...
...
@@ -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 @
abbe3a26
...
...
@@ -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 @
abbe3a26
...
...
@@ -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 @
abbe3a26
...
...
@@ -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 @
abbe3a26
...
...
@@ -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 @
abbe3a26
...
...
@@ -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