Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
gendl
gendl
Commits
7861a04f
Commit
7861a04f
authored
Oct 23, 2018
by
Dave Cooper
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Regenerated .asd files, Cleaned up definition warnings.
parent
9984e037
Changes
40
Hide whitespace changes
Inline
Side-by-side
Showing
40 changed files
with
139 additions
and
94 deletions
+139
-94
apps/dom/dom.asd
apps/dom/dom.asd
+2
-2
apps/gorg/gorg.asd
apps/gorg/gorg.asd
+2
-2
apps/graphs/graphs.asd
apps/graphs/graphs.asd
+2
-2
apps/ta2/ta2.asd
apps/ta2/ta2.asd
+2
-2
apps/tasty/source/menu.lisp
apps/tasty/source/menu.lisp
+1
-1
apps/tasty/tasty.asd
apps/tasty/tasty.asd
+2
-2
apps/timer/timer.asd
apps/timer/timer.asd
+2
-2
apps/translators/translators.asd
apps/translators/translators.asd
+2
-2
apps/tree/tree.asd
apps/tree/tree.asd
+2
-2
apps/yadd/yadd.asd
apps/yadd/yadd.asd
+2
-2
base/base.asd
base/base.asd
+2
-2
base/source/genworks.lisp
base/source/genworks.lisp
+15
-3
base/source/start.lisp
base/source/start.lisp
+13
-17
cl-lite/cl-lite.asd
cl-lite/cl-lite.asd
+2
-2
cl-lite/source/cl-lite.lisp
cl-lite/source/cl-lite.lisp
+40
-1
demos/4bar/4bar.asd
demos/4bar/4bar.asd
+2
-2
demos/bus/bus.asd
demos/bus/bus.asd
+2
-2
demos/ledger/ledger.asd
demos/ledger/ledger.asd
+2
-2
demos/robot/robot.asd
demos/robot/robot.asd
+2
-2
demos/wire-world/wire-world.asd
demos/wire-world/wire-world.asd
+2
-2
depends-on.isc
depends-on.isc
+1
-1
documentation/training/g102-tud/examples/examples.asd
documentation/training/g102-tud/examples/examples.asd
+2
-2
documentation/training/training.asd
documentation/training/training.asd
+2
-2
documentation/tutorial/tutorial.asd
documentation/tutorial/tutorial.asd
+2
-2
gendl.asd
gendl.asd
+3
-2
geom-base/drawing/source/lenses.lisp
geom-base/drawing/source/lenses.lisp
+0
-1
geom-base/geom-base.asd
geom-base/geom-base.asd
+4
-2
geom-base/prereqs/source/parameters.lisp
geom-base/prereqs/source/parameters.lisp
+1
-0
glisp/depends-on.isc
glisp/depends-on.isc
+1
-1
glisp/glisp.asd
glisp/glisp.asd
+7
-4
glisp/source/genworks.lisp
glisp/source/genworks.lisp
+0
-8
gwl-graphics/gwl-graphics.asd
gwl-graphics/gwl-graphics.asd
+1
-1
gwl/defsystem-depends-on.isc
gwl/defsystem-depends-on.isc
+0
-1
gwl/gwl.asd
gwl/gwl.asd
+5
-6
gwl/source/ignore-list.isc
gwl/source/ignore-list.isc
+1
-1
gwl/source/log-utils.lisp
gwl/source/log-utils.lisp
+3
-1
ignore-list.isc
ignore-list.isc
+1
-1
regression/regression.asd
regression/regression.asd
+2
-2
setup-cffi/setup-cffi.asd
setup-cffi/setup-cffi.asd
+1
-1
surf/surf.asd
surf/surf.asd
+1
-1
No files found.
apps/dom/dom.asd
View file @
7861a04f
...
...
@@ -3,9 +3,9 @@
(
asdf:defsystem
#:dom
:description
"The Gendl® dom Subsystem"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201
70524
"
:depends-on
(
:cl-who
:yadd
)
:version
"201
81023
"
:depends-on
(
:cl-who
:yadd
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
()
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"base/source/package"
)
(
:file
"base/source/assembly"
)
...
...
apps/gorg/gorg.asd
View file @
7861a04f
...
...
@@ -3,9 +3,9 @@
(
asdf:defsystem
#:gorg
:description
"The Gendl® gorg Subsystem"
:author
"Xinyue (Cherie) Yang"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201
70524
"
:depends-on
(
:html-template
:gwl-graphics
)
:version
"201
81023
"
:depends-on
(
:html-template
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
()
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/base-framework"
)
...
...
apps/graphs/graphs.asd
View file @
7861a04f
...
...
@@ -3,9 +3,9 @@
(
asdf:defsystem
#:graphs
:description
"The Gendl® graphs Subsystem"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201
70524
"
:depends-on
(
:gwl-graphics
)
:serial
t
:version
"201
81023
"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
()
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
...
...
apps/ta2/ta2.asd
View file @
7861a04f
...
...
@@ -4,9 +4,9 @@
"The Gendl® (legacy) Testing and Tracking Utility, version 2 (using Ajax but pre-gdlAjax, and no JQuery or CSS)"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201
70524
"
:depends-on
(
:gwl-graphics
)
:version
"201
81023
"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
()
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
...
...
apps/tasty/source/menu.lisp
View file @
7861a04f
...
...
@@ -26,7 +26,7 @@
(
defun
publish-tutorial
(
server
)
(
let
((
tutorial-file
(
or
(
probe-file
(
merge-pathnames
"../doc/tutorial.pdf"
(
glisp:executable-homedir-pathname
)))
(
probe-file
(
merge-pathnames
"gendl/documenation/tutorial/pdf/tutorial.pdf"
glisp:*genworks-source-home*
))
(
probe-file
(
merge-pathnames
"gendl/documen
t
ation/tutorial/pdf/tutorial.pdf"
glisp:*genworks-source-home*
))
(
warn
"tutorial.pdf not found in distribution doc/ directory or source documentation directory for
publishing in tasty Help menu.~%"
))))
(
when
tutorial-file
(
publish-file
:path
"/tutorial.pdf"
...
...
apps/tasty/tasty.asd
View file @
7861a04f
...
...
@@ -4,9 +4,9 @@
"The Gendl® Web-based Development Environment (tasty)"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201
70524
"
:depends-on
(
:tree
:gwl-graphics
)
:version
"201
81023
"
:depends-on
(
:tree
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
()
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
...
...
apps/timer/timer.asd
View file @
7861a04f
...
...
@@ -3,9 +3,9 @@
(
asdf:defsystem
#:timer
:description
"The Gendl® timer Subsystem"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201
70524
"
:depends-on
(
:cl-smtp
:gwl
)
:serial
t
:version
"201
81023
"
:depends-on
(
:cl-smtp
:gwl
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
()
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
...
...
apps/translators/translators.asd
View file @
7861a04f
...
...
@@ -4,9 +4,9 @@
"The Gendl® Translators to/from XML and potentially other high-level KBE and Knowledge formats"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201
70524
"
:depends-on
(
:gwl
)
:version
"201
81023
"
:depends-on
(
:gwl
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
()
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"xml/source/package"
)
(
:file
"xml/source/genworks"
)
...
...
apps/tree/tree.asd
View file @
7861a04f
...
...
@@ -4,9 +4,9 @@
"The Gendl® Tree component used by Tasty and potentially as a UI component on its own"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201
70524
"
:depends-on
(
:gwl-graphics
)
:version
"201
81023
"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
()
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
...
...
apps/yadd/yadd.asd
View file @
7861a04f
...
...
@@ -4,10 +4,10 @@
"The Gendl® Yet Another Definition Documenter (yadd)"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201
70524
"
:depends-on
:version
"201
81023
"
:depends-on
(
:gwl-graphics
#-
allegro
:cl-html-parse
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
()
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/genworks"
)
...
...
base/base.asd
View file @
7861a04f
...
...
@@ -4,9 +4,9 @@
"The Gendl® Base Core Kernel Engine"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201
70524
"
:depends-on
()
:version
"201
81023
"
:depends-on
nil
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
()
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/genworks"
)
...
...
base/source/genworks.lisp
View file @
7861a04f
...
...
@@ -26,6 +26,15 @@
(
defparameter
*external-text-format*
:default
)
(
defparameter
*fasl-extension*
#+
allegro
excl:*fasl-default-type*
#+
lispworks
compiler:*fasl-extension-string*
#+
sbcl
sb-fasl:*fasl-file-type*
#+
ccl
(
pathname-type
ccl:*.fasl-pathname*
)
#+
abcl
"abcl"
#+
clisp
"fas"
#-
(
or
allegro
lispworks
sbcl
ccl
abcl
clisp
)
(
error
"Need fasl extension string for the currently running lisp.~%"
))
#+
nil
(
defparameter
*external-text-format*
#+
(
and
mswindows
allegro
)
(
excl:crlf-base-ef
:1252
)
...
...
@@ -416,10 +425,13 @@
(
:case-insensitive-upper
(
string-upcase
string
))
(
:case-sensitive-lower
string
)))
;;
;; FLAG w-o-interrupts is deprecated and ineffective in an SMP Lisp.
;; glisp:w-o-interrupts becomes a simple progn currently.
;; This must be replaced with e.g. appropriate process-locks.~%
;;
(
defmacro
w-o-interrupts
(
&body
body
)
(
format
t
"~&NOTE: w-o-interrupts is deprecated and ineffective in an SMP Lisp.
glisp:w-o-interrupts becomes a simple progn currently.
This must be replaced with e.g. appropriate process-locks.~%"
)
`
(
progn
,@
body
))
...
...
base/source/start.lisp
View file @
7861a04f
...
...
@@ -67,24 +67,24 @@
(
defun
quicklisp-copyright-string
()
(
when
*already-loaded-systems*
(
let
((
ql-libs
(
safe-sort
(
set-difference
*already-loaded-systems*
(
append
(
list
"asdf"
"crypt"
"quicklisp"
"base"
"ent"
"validate"
"glisp"
"monofasl"
"pro"
"enterprise"
)
*packages-to-lock*
)
:key
#'
string
:test
#'
string-equal
)
#'
string-lessp
))
(
ql-version
(
with-open-file
(
in
(
or
(
probe-file
(
merge-pathnames
"dists/quicklisp/distinfo.txt"
*quicklisp-home*
))
(
error
"Quicklisp directory not found in gendl:*quicklisp-home*,
(
if
*already-loaded-systems*
(
let
((
ql-libs
(
safe-sort
(
set-difference
*already-loaded-systems*
(
append
(
list
"asdf"
"crypt"
"quicklisp"
"base"
"ent"
"validate"
"glisp"
"monofasl"
"pro"
"enterprise"
)
*packages-to-lock*
)
:key
#'
string
:test
#'
string-equal
)
#'
string-lessp
))
(
ql-version
(
with-open-file
(
in
(
or
(
probe-file
(
merge-pathnames
"dists/quicklisp/distinfo.txt"
*quicklisp-home*
))
(
error
"Quicklisp directory not found in gendl:*quicklisp-home*,
which is set to: ~a.~%"
*quicklisp-home*
)))
(
read-line
in
)
(
string-trim
(
list
#\space
)
(
second
(
glisp:split-regexp
":"
(
read-line
in
)))))))
(
format
nil
"Also contains the following Common Lisp libraries
(
read-line
in
)
(
string-trim
(
list
#\space
)
(
second
(
glisp:split-regexp
":"
(
read-line
in
)))))))
(
format
nil
"Also contains the following Common Lisp libraries
from Quicklisp version ~a, whose source files are available in the
Quicklisp repository at http://quicklisp.org, Copyright© their
respective authors:
~{~a~^, ~}.~%"
ql-version
ql-libs
))))
~%~%
~{~a~^, ~}.~%"
ql-version
ql-libs
))
""
))
(
defun
startup-banner
()
...
...
@@ -94,12 +94,8 @@ respective authors:
Gendl® Free Edition, version ~a
Within ~a ~a
Copyright© 2017, Genworks International, Birmingham MI, USA.
All Rights Reserved.
~a
Welcome to Gendl®
Copyright© 2017, Genworks® International, Birmingham MI, USA.
All Rights Reserved.
...
...
cl-lite/cl-lite.asd
View file @
7861a04f
...
...
@@ -4,9 +4,9 @@
"The Gendl® Compile-and-Load Lite Utility"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201
70524
"
:depends-on
(
:glisp
)
:version
"201
81023
"
:depends-on
(
:glisp
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
()
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
...
...
cl-lite/source/cl-lite.lisp
View file @
7861a04f
...
...
@@ -136,7 +136,12 @@ given as keyword args to this function)."
(
string<
(
file-namestring
x
)
(
file-namestring
y
)))))
(
local-name
(
lastcar
(
pathname-directory
(
or
(
the
ppathname
)
(
the
pathname
)))))
(
subdir-pathnames
(
mapcar
#'
pathname-directory
(
remove-if-not
#'
glisp:file-directory-p
(
the
contents
)))))
(
remove-if-not
#'
glisp:file-directory-p
(
the
contents
))))
)
:trickle-down-slots
(
device
)
...
...
@@ -152,6 +157,37 @@ given as keyword args to this function)."
:parameters
(
the
:additional-parameters
)))))
(
defun
asd-generator
(
pathname
)
(
the-object
(
make-object
'asd-generator
:pathname
pathname
)
generate-all!
))
(
define-object
asd-generator
(
directory-node
)
:computed-slots
((
local-asd-files
(
remove-if-not
#'
(
lambda
(
item
)
(
string-equal
(
pathname-type
item
)
"asd"
))
(
the
contents
)))
(
all-asd-files
(
apply
#'
append
(
the
local-asd-files
)
(
mapsend
(
the
subdirs
)
:all-asd-files
)))
(
directories-in-need
(
mapcar
#'
(
lambda
(
asd-file
)
(
make-pathname
:defaults
asd-file
:name
nil
:type
nil
))
(
the
all-asd-files
)))
(
subdir-type
'asd-generator
))
:functions
((
generate-all!
()
(
dolist
(
directory
(
the
directories-in-need
))
(
cl-lite
directory
:create-asd-file?
t
)))))
(
define-object
codebase-directory-node
(
directory-node
)
:documentation
(
:description
"Models a filesystem directory for use by the cl-lite program."
)
...
...
@@ -237,6 +273,9 @@ Defaults to nil (i.e. we assume we are loading into a clean system and need all
:computed-slots
(
(
strings-for-display
(
let
((
string
(
enough-namestring
(
the
pathname
)
(
the
pathname-root
))))
(
if
(
string-equal
string
""
)
(
string-append
(
lastcar
(
pathname-directory
(
the
pathname
)))
"/"
)
...
...
demos/4bar/4bar.asd
View file @
7861a04f
...
...
@@ -3,8 +3,8 @@
(
asdf:defsystem
#:4bar
:description
"The Gendl® 4bar Subsystem"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201
70524
"
:depends-on
(
:bus
)
:serial
t
:version
"201
81023
"
:depends-on
(
:bus
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
()
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:gdl
"source/4bar"
)
(
:gdl
"source/bus"
)))
demos/bus/bus.asd
View file @
7861a04f
...
...
@@ -4,9 +4,9 @@
"The Gendl® Wireframe School Bus Demo"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201
70524
"
:depends-on
(
:gwl-graphics
)
:version
"201
81023
"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
()
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
...
...
demos/ledger/ledger.asd
View file @
7861a04f
...
...
@@ -4,9 +4,9 @@
"The Gendl® Ledger Bookkeeping Demo"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201
70524
"
:depends-on
(
#-
gwl
:gwl
)
:version
"201
81023
"
:depends-on
(
#-
gwl
:gwl
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
()
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
...
...
demos/robot/robot.asd
View file @
7861a04f
...
...
@@ -4,9 +4,9 @@
"The Gendl® Simplified Android Robot example "
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201
70524
"
:depends-on
(
:gwl-graphics
)
:version
"201
81023
"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
()
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
...
...
demos/wire-world/wire-world.asd
View file @
7861a04f
...
...
@@ -4,9 +4,9 @@
"The Gendl® Wire-World demo and test-case for wireframe tessellation and X3D output"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201
70524
"
:depends-on
:version
"201
81023
"
:depends-on
(
#-
gwl-graphics
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
()
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)))
depends-on.isc
View file @
7861a04f
(:gwl-graphics :tasty :robot :yadd)
(:gwl-graphics :tasty :robot :yadd
:cl-lite
)
documentation/training/g102-tud/examples/examples.asd
View file @
7861a04f
...
...
@@ -3,9 +3,9 @@
(
asdf:defsystem
#:examples
:description
"The Gendl® examples Subsystem"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201
70524
"
:depends-on
(
:gwl-graphics
:surf
)
:serial
t
:version
"201
81023
"
:depends-on
(
:gwl-graphics
:surf
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
()
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/ch2-examples"
)
(
:file
"source/ch3-examples"
)
...
...
documentation/training/training.asd
View file @
7861a04f
...
...
@@ -3,10 +3,10 @@
(
asdf:defsystem
#:training
:description
"The Gendl® training Subsystem"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201
70524
"
:depends-on
:serial
t
:version
"201
81023
"
:depends-on
(
:gwl-graphics
:surf
:yadd
:bordeaux-threads
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
()
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"slide-show/source/package"
)
...
...
documentation/tutorial/tutorial.asd
View file @
7861a04f
...
...
@@ -3,9 +3,9 @@
(
asdf:defsystem
#:tutorial
:description
"The Gendl® tutorial Subsystem"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201
70524
"
:depends-on
(
:dom
)
:serial
t
:version
"201
81023
"
:depends-on
(
:dom
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
()
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:gdl
"apps/yoyodyne/booster-rocket/source/package"
)
...
...
gendl.asd
View file @
7861a04f
...
...
@@ -3,8 +3,9 @@
(
asdf:defsystem
#:gendl
:description
"The Gendl® gendl Subsystem"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20180115"
:depends-on
(
:gwl-graphics
:tasty
:robot
:yadd
)
:serial
t
:version
"20181023"
:depends-on
(
:gwl-graphics
:tasty
:robot
:yadd
:cl-lite
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
()
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"setup-cffi/source/setup"
))
)
:components
nil
)
geom-base/drawing/source/lenses.lisp
View file @
7861a04f
...
...
@@ -23,7 +23,6 @@
(
defparameter
*fixed-scale?*
nil
)
(
defparameter
*dxf-entity-id*
nil
)
(
eval-when
(
compile
load
eval
)
(
export
'*fixed-scale?*
))
...
...
geom-base/geom-base.asd
View file @
7861a04f
...
...
@@ -3,7 +3,8 @@
(
asdf:defsystem
#:geom-base
:description
"The Gendl® Wireframe Geometry"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20180823"
:depends-on
(
:cl-pdf
:cl-typesetting
:cl-who
:base
)
:serial
t
:version
"20181023"
:depends-on
(
:cl-pdf
:cl-typesetting
:cl-who
:base
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
()
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
...
...
@@ -52,7 +53,8 @@
(
:file
"annotations/source/sample-drawing"
)
(
:file
"annotations/source/vertical-dimension"
)
(
:file
"drawing/source/base-view"
)
(
:file
"drawing/source/document"
)
(
:file
"drawing/source/lenses"
)
(
:file
"drawing/source/document"
)
(
:file
"drawing/source/lenses-exp"
)
(
:file
"drawing/source/lenses"
)
(
:file
"drawing/source/renderer-mixin"
)
(
:file
"text/source/general-note"
)
(
:file
"text/source/typeset-block"
)
(
:file
"graphs/source/graph"
)
...
...
geom-base/prereqs/source/parameters.lisp
View file @
7861a04f
...
...
@@ -171,3 +171,4 @@ the value of this parameter at your own risk.")
(
defparameter
+lh-identity-matrix+
#2A
((
1.0
0.0
0.0
)(
0.0
-1.0
0.0
)(
0.0
0.0
1.0
)))
(
defparameter
*dxf-entity-id*
nil
)
glisp/depends-on.isc
View file @
7861a04f
"(:uiop :bordeaux-threads :cl-ppcre #-allegro :cl-base64 #-allegro :babel :base)"
"(:uiop :bordeaux-threads :cl-ppcre
#+sbcl :sb-posix
#-allegro :cl-base64 #-allegro :babel :base)"
glisp/glisp.asd
View file @
7861a04f
...
...
@@ -4,8 +4,11 @@
"The Gendl® Common Lisp Portability"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20170828"
:depends-on
(
:uiop
:bordeaux-threads
:cl-ppcre
#-
allegro
:cl-base64
#-
allegro
:babel
:base
)
:version
"20181023"
:depends-on
(
:uiop
:bordeaux-threads
:cl-ppcre
#+
sbcl
:sb-posix
#-
allegro
:cl-base64
#-
allegro
:babel
:base
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
()
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/parameters"
)
(
:file
"source/genworks"
)
(
:file
"source/initialize"
)
(
:file
"source/zzinit"
)))
((
:file
"source/parameters"
)
(
:file
"source/genworks"
)
(
:file
"source/initialize"
)
(
:file
"source/zzinit"
)))
glisp/source/genworks.lisp
View file @
7861a04f
...
...
@@ -21,14 +21,6 @@
(
in-package
:com.genworks.lisp
)
(
defparameter
*fasl-extension*
#+
allegro
excl:*fasl-default-type*
#+
lispworks
compiler:*fasl-extension-string*
#+
sbcl
sb-fasl:*fasl-file-type*
#+
ccl
(
pathname-type
ccl:*.fasl-pathname*
)
#+
abcl
"abcl"
#+
clisp
"fas"
#-
(
or
allegro
lispworks
sbcl
ccl
abcl
clisp
)
(
error
"Need fasl extension string for the currently running lisp.~%"
))
(
defparameter
*temporary-folder-function*
#'
(
lambda
()
(
merge-pathnames
"tmp/"
(
user-homedir-pathname
))))
...
...
gwl-graphics/gwl-graphics.asd
View file @
7861a04f
...
...
@@ -4,7 +4,7 @@
"The Gendl® GWL embedded graphics support"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"2018
0920
"
:depends-on
(
:geom-base
:gwl
)
:version
"2018
1023
"
:depends-on
(
:geom-base
:gwl
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
()
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
...
...
gwl/defsystem-depends-on.isc
deleted
100644 → 0
View file @
9984e037
"(#-allegro :zacl)"
\ No newline at end of file
gwl/gwl.asd
View file @
7861a04f
...
...
@@ -4,15 +4,14 @@
"The Gendl® Generative Web Language (GWL)"
:author
"Dave Cooper, Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201
70
802"
:depends-on
(
#+
(
or
ccl
sbcl
allegro
)
:zaserve
#-
(
or
ccl
sbcl
allegro
)
:paserve
:cl-who
:yason
:glisp
)
:version
"2018
1
02
3
"
:depends-on
(
#+
(
or
ccl
sbcl
allegro
)
:zaserve
#-
(
or
ccl
sbcl
allegro
)
:paserve
:cl-who
:yason
:glisp
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
()
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/with-all-servers"
)
(
:file
"source/defparameters"
)
(
:file
"source/base-html-sheet"
)
(
:file
"source/genworks"
)
(
:file
"source/html-format"
)
(
:file
"source/macros"
)
(
:file
"source/presets"
)
(
:file
"source/base-html-utils"
)
(
:file
"source/ignore-errors-with-backtrace"
)
...
...
@@ -20,15 +19,15 @@
(
:file
"source/accessories"
)
(
:file
"source/gdl-remote"
)
(
:file
"source/vanilla-remote"
)
(
:file
"source/base64-utils"
)
(
:file
"source/color-palette"
)
(
:file
"source/crawler"
)
(
:file
"source/
log-util
s"
)
(
:file
"source/new-urls"
)
(
:file
"source/
genwork
s"
)
(
:file
"source/new-urls"
)
(
:file
"source/publish"
)
(
:file
"source/remote-object"
)
(
:file
"source/security-check-failed"
)
(
:file
"form-elements/source/grid-form-element"
)
(
:file
"form-elements/source/macros"
)
(
:file
"form-elements/source/primitives"
)
(
:file
"ajax/source/parameters"
)
(
:file
"ajax/source/ajax"
)
(
:file
"ajax/source/parameters"
)
(
:file
"ajax/source/skeleton-ui-element"
)
(
:file
"ajax/source/base-ajax-sheet"
)
(
:file
"ajax/source/ajax"
)
(
:file
"ajax/source/base-ajax-sheet"
)
(
:file
"gwl-session/source/parameters"
)
(
:file
"gwl-session/source/cleanup"
)
(
:file
"gwl-session/source/functions"
)
...
...
gwl/source/ignore-list.isc
View file @
7861a04f
("remote-test")
("remote-test"
"log-utils"
)
gwl/source/log-utils.lisp
View file @
7861a04f
...
...
@@ -28,6 +28,8 @@
(
defvar
*log-file*
nil
)
(
defparameter
*aserve-log-request-after-functions*
nil
)
(
defun
start-log-maker
(
&key
(
interval
30
)
(
resolve-dns?
t
)
(
server
net.aserve:*wserver*
))
(
setq
*log-file*
(
format
nil
"/home/dcooper8/kitchen/logs-~a-~a.lisp"
...
...
@@ -78,7 +80,7 @@
(
dolist
(
function
*aserve-log-request-after-functions*
)
(
funcall
function
req
)))
(
defparameter
*aserve-log-request-after-functions*
nil
)
#+
nil
(
defmethod
monkey-log
((
req
http-request
))
...
...
ignore-list.isc
View file @
7861a04f
(".git" "apps" "base" "cl-lite" "demos" "documentation" "emacs" "geom-base" "glisp" "gwl"
"gwl-graphics" "licenses" "patches" "program" "regression" "release-notes" "surf")
\ No newline at end of file
"gwl-graphics" "licenses" "patches" "program" "regression" "release-notes" "surf" "setup-cffi")
\ No newline at end of file
regression/regression.asd
View file @
7861a04f
...
...
@@ -3,9 +3,9 @@
(
asdf:defsystem
#:regression
:description
"The Gendl® regression Subsystem"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201
70524
"
:depends-on
(
:lift
:surf
:tasty
)
:serial
t
:version
"201
81023
"
:depends-on
(
:lift
:surf
:tasty
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
()
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"utils/source/package"
)
(
:file
"utils/source/genworks"
)
...
...
setup-cffi/setup-cffi.asd
View file @
7861a04f
...
...
@@ -3,7 +3,7 @@
(
asdf:defsystem
#:setup-cffi
:description
"The Gendl® setup-cffi Subsystem"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201
70828
"
:depends-on
(
:
cffi
)
:serial
t
:version
"201
81023
"
:depends-on
(
"
cffi
"
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
()
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
...
...
surf/surf.asd
View file @
7861a04f
...
...
@@ -4,7 +4,7 @@
"The Gendl® NURBS Surface and Solids Geometry Primitives"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20180
8
23"
:depends-on
(
:geom-base
)
:version
"2018
1
023"
:depends-on
(
:geom-base
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
()
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
...
...
Write
Preview