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
17c1c652
Commit
17c1c652
authored
May 05, 2014
by
Dave Cooper
Browse files
released 1587p001
parent
b0c5e73f
Changes
26
Hide whitespace changes
Inline
Side-by-side
apps/ta2/ta2.asd
View file @
17c1c652
...
...
@@ -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
"201404
16
"
:depends-on
(
:gwl-graphics
)
:version
"201404
24
"
: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 @
17c1c652
...
...
@@ -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
"201404
16
"
:depends-on
(
:tree
:gwl-graphics
)
:version
"201404
24
"
: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 @
17c1c652
...
...
@@ -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
"201404
16
"
:depends-on
(
:gwl
)
:version
"201404
24
"
: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 @
17c1c652
...
...
@@ -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
"201404
16
"
:depends-on
(
:gwl-graphics
)
:version
"201404
24
"
: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 @
17c1c652
...
...
@@ -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
"201404
16
"
:depends-on
:version
"201404
24
"
: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 @
17c1c652
...
...
@@ -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
"201404
16
"
:depends-on
nil
:serial
t
:version
"201404
24
"
:depends-on
nil
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
base/macros/source/defaulting.lisp
View file @
17c1c652
;;
;; Copyright 2002-2011 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(
in-package
:gdl
)
(
defmacro
defaulting
(
form
&optional
default
)
"Lisp object. Returns a default value if the reference-chain is not handled.
Note: Defaulting is currently implemented with ignore-errors, so it will return the default value
regardless of whether the reference-chain is actually not handled or throws some other error.
This will be updated in a future GDL release only to return the default if the reference-chain
is actually not handled, and to throw any other errors normally.
:arguments (form \"Reference-chain with the or the-object\"
default \"Lisp expression. Default value to return if reference-chain cannot be handled.\")"
(
let
((
value
(
gensym
))
(
error
(
gensym
)))
`
(
multiple-value-bind
(
,
value
,
error
)
(
ignore-errors
,
form
)
(
cond
((
and
,
error
(
typep
,
error
'error
)
(
let
((
string
(
format
nil
"~a"
,
error
)))
(
or
(
and
(
search
"attempt to call"
string
)
(
search
"gdl-slots::"
string
))
(
search
"nor any of its ancestor instances could handle the"
string
)
(
search
"which is the root object, could not handle the"
string
))))
,
default
)
((
typep
,
error
'error
)
(
error
,
error
))
(
t
,
value
)))))
;;
;; Copyright 2002-2011 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(
in-package
:gdl
)
(
defmacro
defaulting
(
form
&optional
default
)
"Lisp object. Returns a default value if the reference-chain is not handled.
:arguments (form \"Reference-chain with the or the-object\"
default \"Lisp expression. Default value to return if reference-chain cannot be handled.\")"
(
let
((
value
(
gensym
))
(
error
(
gensym
)))
`
(
multiple-value-bind
(
,
value
,
error
)
(
ignore-errors
,
form
)
(
cond
((
and
,
error
(
typep
,
error
'error
)
(
let
((
string
(
glisp:replace-regexp
(
format
nil
"~a"
,
error
)
(
format
nil
"~%"
)
" "
)))
(
or
(
and
(
search
"attempt to call"
string
)
(
search
"gdl-slots::"
string
))
(
search
"nor any of its ancestor instances could handle the"
string
)
(
search
"which is the root object, could not handle the"
string
))))
,
default
)
((
typep
,
error
'error
)
(
error
,
error
))
(
t
,
value
)))))
base/source/parameters.lisp
View file @
17c1c652
...
...
@@ -23,7 +23,7 @@
;;(defparameter *gendl-version* "1585p002")
;;(defparameter *gendl-version* "1587devo")
(
defparameter
*gendl-version*
"1587p00
1
"
)
(
defparameter
*gendl-version*
"1587p00
2
"
)
;;(defparameter *gendl-version* "ql-2013-12")
(
defparameter
*gendl-patch-level*
nil
)
...
...
cl-lite/cl-lite.asd
View file @
17c1c652
...
...
@@ -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
"201404
16
"
:depends-on
(
:glisp
)
:serial
t
:version
"201404
24
"
: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 @
17c1c652
...
...
@@ -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
"201404
16
"
:depends-on
nil
:serial
t
:version
"201404
24
"
:depends-on
nil
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
demos/ledger/ledger.asd
View file @
17c1c652
...
...
@@ -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
"201404
16
"
:depends-on
:serial
t
:version
"201404
24
"
: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 @
17c1c652
...
...
@@ -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
"201404
16
"
:depends-on
nil
:version
"201404
24
"
:depends-on
nil
#-
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 @
17c1c652
...
...
@@ -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
"201404
16
"
:depends-on
:version
"201404
24
"
: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 @
17c1c652
...
...
@@ -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
"201404
16
"
:depends-on
(
:gwl-graphics
:surf
)
:version
"201404
24
"
:depends-on
(
:gwl-graphics
:surf
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
emacs/gdl.el
View file @
17c1c652
...
...
@@ -135,6 +135,7 @@
(
defun
gdl
()
(
interactive
)
(
gendl
'gdl
))
(
defun
agdl8
()
(
interactive
)
(
gendl
'agdl8
))
(
defun
agdl
()
(
interactive
)
(
gendl
'agdl
))
(
defun
glime
()
(
interactive
)
(
gendl
))
(
defun
gdl-quit
()
(
interactive
)
(
slime-quit-lisp
))
...
...
geom-base/annotations/source/label.lisp
View file @
17c1c652
...
...
@@ -135,7 +135,7 @@ and <tt>nil</tt> are supported. The default is nil"
(
:right
(
translate
(
lastcar
(
the
leader-path
))
:right
(
the
text-gap
)))
(
:left
(
translate
(
lastcar
(
the
leader-path
))
:left
(
+
(
the
text-gap
)
(
the-child
width
)))))
:strings
(
or
(
ensure-list
(
the
strings
))
(
ensure-list
(
the
text
)))
:pass-down
(
font
outline-shape-type
character-size
dxf-text-x-scale
dxf-size-ratio
dxf-font
dxf-offset
))))
:pass-down
(
onclick-function
font
outline-shape-type
character-size
dxf-text-x-scale
dxf-size-ratio
dxf-font
dxf-offset
))))
...
...
geom-base/annotations/source/linear-dimension.lisp
View file @
17c1c652
...
...
@@ -359,5 +359,6 @@ and end-point."
(
the
leader-start
)))
(
the
orientation
))
:pass-down
(
font
character-size
text-x-scale
justification
outline-shape-type
underline?
dxf-text-x-scale
dxf-size-ratio
dxf-font
dxf-offset
))))
dxf-text-x-scale
dxf-size-ratio
dxf-font
dxf-offset
onclick-function
))))
geom-base/geom-base.asd
View file @
17c1c652
...
...
@@ -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
"201404
16
"
:depends-on
(
:glisp
)
:version
"201404
24
"
:depends-on
(
:glisp
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
geom-base/text/source/general-note.lisp
View file @
17c1c652
...
...
@@ -215,6 +215,7 @@ is specified), so it is necessary to explicitly give either start or center for
:text
(
nth
(
the-child
index
)
(
the
string-list
))
:pass-down
(
character-size
text-x-scale
font
underline?
width
dxf-text-x-scale
dxf-font
dxf-offset
dxf-size-ratio
onclick-function
)
:start
(
translate
(
the
start
)
:front
(
*
(
the-child
index
)(
the
leading
))
...
...
glisp/glisp.asd
View file @
17c1c652
...
...
@@ -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
"201404
16
"
:depends-on
:serial
t
:version
"201404
24
"
: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
...
...
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