Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
1be1ba4a
Commit
1be1ba4a
authored
Oct 28, 2013
by
Dave Cooper
Browse files
really merging feature 1585 now
parents
f6f52545
12f42a2f
Changes
32
Hide whitespace changes
Inline
Side-by-side
apps/ta2/ta2.asd
View file @
1be1ba4a
...
...
@@ -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/tasty.asd
View file @
1be1ba4a
...
...
@@ -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 @
1be1ba4a
...
...
@@ -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 @
1be1ba4a
...
...
@@ -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 @
1be1ba4a
...
...
@@ -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 @
1be1ba4a
...
...
@@ -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 @
1be1ba4a
;;;; -*- 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/source/package.lisp
View file @
1be1ba4a
...
...
@@ -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 @
1be1ba4a
...
...
@@ -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 @
1be1ba4a
;;;; -*- 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 @
1be1ba4a
...
...
@@ -3,6 +3,6 @@
(
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
:version
"20130730"
:depends-on
()
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:gdl
"source/4bar"
)))
demos/4bar/depends-on.isc
0 → 100644
View file @
1be1ba4a
()
\ No newline at end of file
demos/4bar/source/4bar.gdl
View file @
1be1ba4a
...
...
@@ -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 @
1be1ba4a
;;;; -*- 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 @
1be1ba4a
(:gwl-graphics)
\ No newline at end of file
()
\ No newline at end of file
demos/ledger/ledger.asd
View file @
1be1ba4a
;;;; -*- 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
...
...
demos/robot/depends-on.isc
View file @
1be1ba4a
(:gwl-graphics)
\ No newline at end of file
()
\ No newline at end of file
demos/robot/robot.asd
View file @
1be1ba4a
...
...
@@ -2,9 +2,9 @@
(
asdf:defsystem
#:robot
:description
"The Gendl™ Simplified Android Robot example "
:author
"
John McCarthy
"
:license
"Affero G
nu
Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201310
15
"
:depends-on
(
: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
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 @
1be1ba4a
...
...
@@ -2,9 +2,9 @@
(
asdf:defsystem
#:wire-world
:description
"The Gendl™ Wire-World demo and test-case for wireframe tessellation and X3D output"
: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
((
:file
"source/package"
)
(
:file
"source/assembly"
)))
documentation/training/g102-tud/examples/examples.asd
View file @
1be1ba4a
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:examples
:description
"The Gendl™ examples Subsystem"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20131015"
:depends-on
(
:surf
)
"The Gendl™ examples Subsystem"
: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
(
:surf
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
Prev
1
2
Next
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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