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
d8dff5df
Commit
d8dff5df
authored
Oct 30, 2013
by
Dave Cooper
Browse files
Merge branch 'devo' into feature/smlib-threads
parents
d4ce251e
9dbbf937
Changes
38
Hide whitespace changes
Inline
Side-by-side
apps/ta2/ta2.asd
View file @
d8dff5df
...
...
@@ -2,9 +2,9 @@
(
asdf:defsystem
#:ta2
:description
"The Gendl™ (legacy) Testing and Tracking Utility, version 2 (using Ajax but pre-gdlAjax, and no JQuery or CSS)"
:author
"
John McCarthy
"
:license
"Affero G
nu
Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201310
15
"
:depends-on
(
:gwl-graphics
)
:author
"
Dave Cooper and Genworks International
"
:license
"
Gnu
Affero G
eneral
Public License (
please see
http://www.gnu.org/licenses/)"
:serial
t
:version
"201310
23
"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
apps/tasty/source/assembly.lisp
View file @
d8dff5df
...
...
@@ -391,7 +391,9 @@ The error was: ~a
((
:div
:class
"outer-west ui-widget pane"
)
((
:div
:class
"header ui-widget-header"
)
"Tree"
)
((
:div
:class
"ui-widget-content"
)(
str
(
the
tree
main-div
)))
((
:div
:class
"ui-widget-content"
:style
(
format
nil
"background-color: ~a"
(
or
(
getf
*colors-default*
:background
)
"#fafafa"
)))
(
str
(
the
tree
main-div
)))
((
:div
:class
"footer ui-widget-header"
)
"Click-mode:"
(
str
(
the
tree-status-object
main-div
)))
)
...
...
@@ -404,7 +406,13 @@ The error was: ~a
((
:div
:class
"footer ui-widget-header"
)
((
:span
:class
"fltrt"
)
"powered by "
((
:a
:href
"http://www.genworks.com"
:target
"_new"
)
"Genworks GDL"
)
"- empowered by "
((
:a
:href
"http://www.ke-works.com"
:target
"_new"
)
"KE-works"
))
(
if
(
glisp:featurep
:smlib
)
", "
" and "
)
((
:a
:href
"http://www.quicklisp.org"
:target
"_new"
)
"Quicklisp"
)
(
if
(
glisp:featurep
:smlib
)
(
progn
(
str
", and "
)
(
htm
((
:a
:href
"http://www.smlib.com"
:target
"_new"
)
"SMLib"
)))
""
))
((
:span
)
"GDL status: "
)
((
:span
:id
"gdlStatus"
)
"Done."
)
(
when
*tasty-developing?*
...
...
apps/tasty/source/inspector.lisp
View file @
d8dff5df
...
...
@@ -197,17 +197,18 @@
(
:center
((
:span
:style
"font-style: italic; font-weight: bold;"
)
(
:p
"Inspecting: "
(
fmt
"\"~a\""
(
the
node
strings-for-display
))
:br
"root-path: "
(
esc
(
format
nil
"~s"
(
cons
'the
(
reverse
(
butlast
(
the
node-root-path
))))))
(
unless
(
butlast
(
the
node-root-path
))
(
htm
" [the root object]"
)))
(
:p
" of type: "
((
:span
:style
"color: blue; cursor: pointer;"
:onclick
(
the
(
gdl-ajax-call
:function-key
:visit-definition-in-emacs
:arguments
(
list
(
format
nil
"~s"
(
the
node
type
)))))
)
(
esc
(
format
nil
"~s"
(
the
node
type
)))))))
(
htm
" [the root object]"
))
:br
" type: "
((
:span
:style
"color: blue; cursor: pointer;"
:onclick
(
the
(
gdl-ajax-call
:function-key
:visit-definition-in-emacs
:arguments
(
list
(
format
nil
"~s"
(
the
node
type
))))))
(
esc
(
format
nil
"~s"
(
the
node
type
)))))))
((
:table
:class
"inspector-table"
:border
1
)
(
:tr
(
:td
"Settables"
)
(
:td
(
str
(
the
settables-form
control-view
))))
...
...
apps/tasty/tasty.asd
View file @
d8dff5df
...
...
@@ -2,9 +2,9 @@
(
asdf:defsystem
#:tasty
:description
"The Gendl™ Web-based Development Environment (tasty)"
:author
"
John McCarthy
"
:license
"Affero G
nu
Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201310
15
"
:depends-on
(
:tree
:gwl-graphics
)
"
Dave Cooper and Genworks International
"
:license
"
Gnu
Affero G
eneral
Public License (
please see
http://www.gnu.org/licenses/)"
:serial
t
:version
"201310
23
"
: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 @
d8dff5df
...
...
@@ -2,9 +2,9 @@
(
asdf:defsystem
#:translators
:description
"The Gendl™ Translators to/from XML and potentially other high-level KBE and Knowledge formats"
:author
"
John McCarthy
"
:license
"Affero G
nu
Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201310
15
"
:depends-on
(
:gwl
)
:author
"
Dave Cooper and Genworks International
"
:license
"
Gnu
Affero G
eneral
Public License (
please see
http://www.gnu.org/licenses/)"
:serial
t
:version
"201310
23
"
: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 @
d8dff5df
...
...
@@ -2,9 +2,9 @@
(
asdf:defsystem
#:tree
:description
"The Gendl™ Tree component used by Tasty and potentially as a UI component on its own"
:author
"
John McCarthy
"
:license
"Affero G
nu
Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201310
15
"
:depends-on
(
:gwl-graphics
)
:author
"
Dave Cooper and Genworks International
"
:license
"
Gnu
Affero G
eneral
Public License (
please see
http://www.gnu.org/licenses/)"
:serial
t
:version
"201310
23
"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
apps/yadd/source/mixins.lisp
View file @
d8dff5df
...
...
@@ -55,8 +55,8 @@ additional-header-js (with-cl-who-string ()
((
:script
:type
"text/javascript"
:src
"/static/3rdpty/jquery/js/jquery.quicksearch.js"
))))
(
footer
(
let*
((
version
"1581"
)
(
patch
9
))
(
footer
(
let*
((
version
*gendl-version*
)
(
patch
*gendl-patch-level*
))
(
with-cl-who-string
()
((
:p
:class
"copyrightFooter"
)
"Copyright © "
...
...
@@ -72,8 +72,9 @@ additional-header-js (with-cl-who-string ()
". All rights reserved. "
(
:i
(
:small
"Genworks Build: "
(
str
version
)
(
when
patch
(
htm
"p"
))
(
str
(
format
nil
"~3,,,'0@a"
patch
)))))
(
when
patch
(
htm
"p"
)
(
str
(
format
nil
"~3,,,'0@a"
patch
))))))
((
:p
:class
"copyrightFooter"
)
(
:i
"User Code Packages copyright © their respective authors"
))))))
...
...
@@ -88,8 +89,8 @@ additional-header-js (with-cl-who-string ()
(
write-footer
()
(
let
((
*stream*
(
or
*html-stream*
*stream*
)))
(
let*
((
version
"1581"
)
(
patch
9
))
(
let*
((
version
*gendl-version*
)
(
patch
*gendl-patch-level*
))
(
with-cl-who
()
((
:p
:class
"copyrightFooter"
)
"Copyright © "
...
...
@@ -105,8 +106,9 @@ additional-header-js (with-cl-who-string ()
". All rights reserved. "
(
:i
(
:small
"Genworks Build: "
(
str
version
)
(
when
patch
(
htm
"p"
))
(
str
(
format
nil
"~3,,,'0@a"
patch
)))))))))))
(
when
patch
(
htm
"p"
)
(
str
(
format
nil
"~3,,,'0@a"
patch
))))))))))))
...
...
apps/yadd/yadd.asd
View file @
d8dff5df
...
...
@@ -2,9 +2,9 @@
(
asdf:defsystem
#:yadd
:description
"The Gendl™ Yet Another Definition Documenter (yadd)"
:author
"
John McCarthy
"
:license
"Affero G
nu
Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201310
15
"
:depends-on
"
Dave Cooper and Genworks International
"
:license
"
Gnu
Affero G
eneral
Public License (
please see
http://www.gnu.org/licenses/)"
:serial
t
:version
"201310
23
"
: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 @
d8dff5df
;;;; -*- coding: utf-8 -*-
(
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
"20131015"
:depends-on
nil
"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
"20131023"
:depends-on
nil
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
base/macros/source/define-object.lisp
View file @
d8dff5df
...
...
@@ -537,18 +537,23 @@ overview of <tt>define-object</tt> syntax."
#+
nil
(
defmethod
gdl-rule::%object-keywords%
((
,
self-arg
,
name
))
(
remove-duplicates
(
append
',object-syms
',quantified-object-syms
(
when
(
next-method-p
)
(
call-next-method
)))))
#+
nil
(
defmethod
gdl-rule::%hidden-object-keywords%
((
,
self-arg
,
name
))
(
remove-duplicates
(
append
',hidden-object-syms
',quantified-hidden-object-syms
(
when
(
next-method-p
)
(
call-next-method
)))))
;;
;; FLAG -- maybe some of these others can go away as well.
;;
(
defmethod
gdl-rule::%trickle-down-slots%
((
,
self-arg
,
name
))
...
...
base/rest/source/vanilla-mixin.lisp
View file @
d8dff5df
...
...
@@ -96,10 +96,21 @@ parent), followed by an index number if the part is an element of a sequence."
self
)))
(
%trickle-down-slots%
(
gdl-rule::%trickle-down-slots%
self
))
(
%settable-slots%
(
gdl-rule::%settable-slots%
self
))
#+
nil
(
%object-keywords%
(
mapcar
#'
make-keyword
(
gdl-rule::%object-keywords%
self
)))
(
%hidden-object-keywords%
(
mapcar
#'
make-keyword
(
gdl-rule::%hidden-object-keywords%
self
)))
(
%object-keywords%
(
safe-sort
(
append
(
the
(
message-list
:category
:objects
))
(
the
(
message-list
:category
:quantified-objects
)))
#'
string-lessp
))
;;(%hidden-object-keywords% (mapcar #'make-keyword (gdl-rule::%hidden-object-keywords% self)))
(
%hidden-object-keywords%
(
safe-sort
(
append
(
the
(
message-list
:category
:hidden-objects
))
(
the
(
message-list
:category
:quantified-hidden-objects
)))
#'
string-lessp
))
(
"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 @
d8dff5df
...
...
@@ -91,6 +91,7 @@ If you are interested in this effort we would love to hear from you at open-sour
#:*force-restore-slot-default?*
#:*gdl-init-functions*
#:*gendl-version*
#:*gendl-patch-level*
#:*ghostscript-path*
#:*gs-path*
#:*load-documentation-database?*
...
...
base/source/parameters.lisp
View file @
d8dff5df
...
...
@@ -22,8 +22,9 @@
(
in-package
:gdl
)
(
defparameter
*gendl-version*
"1585"
)
(
defparameter
*gendl-patch-level*
nil
)
(
eval-when
(
compile
load
eval
)
(
eval-when
(
:
compile
-toplevel
:load-toplevel
:execute
)
(
when
(
not
(
boundp
'*production-build?*
))
(
defvar
*production-build?*
nil
)))
;;
...
...
cl-lite/cl-lite.asd
View file @
d8dff5df
;;;; -*- coding: utf-8 -*-
(
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
"20131015"
:depends-on
(
:glisp
)
"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
"20131023"
:depends-on
(
:glisp
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
demos/4bar/4bar.asd
View file @
d8dff5df
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:4bar
:description
"The Gendl™ 4bar Subsystem"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20130730"
:depends-on
nil
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:gdl
"source/4bar"
)))
"The Gendl™ 4bar Subsystem"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131030"
:depends-on
(
:bus
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:gdl
"source/4bar"
)
(
:gdl
"source/bus"
)))
demos/4bar/depends-on.isc
0 → 100644
View file @
d8dff5df
(:bus)
\ No newline at end of file
demos/4bar/source/4bar.gdl
View file @
d8dff5df
...
...
@@ -34,7 +34,8 @@
:respondent self
:vector-graphics-onclick? nil
:length 500 :width 500
;;:projection-vector (getf *standard-views* :top)
:image-format-default :raphael
:view-direction-default :top
:display-list-object-roots (list (the assembly)))))
...
...
@@ -221,7 +222,7 @@
:computed-slots ((datum (the edge-1 end))
(direction-vector (subtract-vectors (the end) (the start)))
(vertex-list (list (the start) (the end) (the edge-1 end))))
(vertex-list (list (the start) (the end) (the edge-1 end)
(the start)
)))
:hidden-objects
((baseline :type 'line
...
...
demos/bus/bus.asd
View file @
d8dff5df
;;;; -*- coding: utf-8 -*-
(
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
"20131015"
:depends-on
(
:gwl-graphics
)
"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
"20131023"
:depends-on
nil
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
demos/bus/depends-on.isc
View file @
d8dff5df
(:gwl-graphics)
\ No newline at end of file
()
\ No newline at end of file
demos/ledger/ledger.asd
View file @
d8dff5df
;;;; -*- coding: utf-8 -*-
(
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
"20131015"
:depends-on
(
:gwl
)
"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
"20131023"
:depends-on
(
:gwl
)
#-
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