Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
G
gendl
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
45
Issues
45
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Commits
Issue Boards
Open sidebar
gendl
gendl
Commits
07798a86
Commit
07798a86
authored
Nov 13, 2018
by
Dave Cooper
Browse files
Options
Browse Files
Download
Plain Diff
merged for some reason
parents
58466c0c
7861a04f
Changes
42
Hide whitespace changes
Inline
Side-by-side
Showing
42 changed files
with
141 additions
and
96 deletions
+141
-96
dom.asd
apps/dom/dom.asd
+2
-2
gorg.asd
apps/gorg/gorg.asd
+2
-2
graphs.asd
apps/graphs/graphs.asd
+2
-2
ta2.asd
apps/ta2/ta2.asd
+2
-2
menu.lisp
apps/tasty/source/menu.lisp
+1
-1
tasty.asd
apps/tasty/tasty.asd
+2
-2
timer.asd
apps/timer/timer.asd
+2
-2
translators.asd
apps/translators/translators.asd
+2
-2
tree.asd
apps/tree/tree.asd
+2
-2
yadd.asd
apps/yadd/yadd.asd
+2
-2
base.asd
base/base.asd
+2
-2
genworks.lisp
base/source/genworks.lisp
+15
-3
start.lisp
base/source/start.lisp
+13
-17
cl-lite.asd
cl-lite/cl-lite.asd
+2
-2
cl-lite.lisp
cl-lite/source/cl-lite.lisp
+40
-1
4bar.asd
demos/4bar/4bar.asd
+2
-2
bus.asd
demos/bus/bus.asd
+2
-2
ledger.asd
demos/ledger/ledger.asd
+2
-2
robot.asd
demos/robot/robot.asd
+2
-2
wire-world.asd
demos/wire-world/wire-world.asd
+2
-2
depends-on.isc
depends-on.isc
+1
-1
examples.asd
documentation/training/g102-tud/examples/examples.asd
+2
-2
training.asd
documentation/training/training.asd
+2
-2
tutorial.asd
documentation/tutorial/tutorial.asd
+2
-2
gendl.asd
gendl.asd
+3
-2
lenses.lisp
geom-base/drawing/source/lenses.lisp
+0
-1
geom-base.asd
geom-base/geom-base.asd
+4
-2
parameters.lisp
geom-base/prereqs/source/parameters.lisp
+1
-0
depends-on.isc
glisp/depends-on.isc
+1
-1
glisp.asd
glisp/glisp.asd
+7
-4
genworks.lisp
glisp/source/genworks.lisp
+0
-8
gwl-graphics.asd
gwl-graphics/gwl-graphics.asd
+1
-1
file-ordering.isc
gwl/ajax/source/file-ordering.isc
+1
-1
defsystem-depends-on.isc
gwl/defsystem-depends-on.isc
+0
-1
gwl.asd
gwl/gwl.asd
+5
-6
ignore-list.isc
gwl/source/ignore-list.isc
+1
-1
log-utils.lisp
gwl/source/log-utils.lisp
+3
-1
publish.lisp
gwl/source/publish.lisp
+1
-1
ignore-list.isc
ignore-list.isc
+1
-1
regression.asd
regression/regression.asd
+2
-2
setup-cffi.asd
setup-cffi/setup-cffi.asd
+1
-1
surf.asd
surf/surf.asd
+1
-1
No files found.
apps/dom/dom.asd
View file @
07798a86
...
...
@@ -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 @
07798a86
...
...
@@ -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 @
07798a86
...
...
@@ -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 @
07798a86
...
...
@@ -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 @
07798a86
...
...
@@ -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 @
07798a86
...
...
@@ -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 @
07798a86
...
...
@@ -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 @
07798a86
...
...
@@ -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 @
07798a86
...
...
@@ -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 @
07798a86
...
...
@@ -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 @
07798a86
...
...
@@ -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 @
07798a86
...
...
@@ -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 @
07798a86
...
...
@@ -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 @
07798a86
...
...
@@ -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 @
07798a86
...
...
@@ -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 @
07798a86
...
...
@@ -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 @
07798a86
...
...
@@ -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 @
07798a86
...
...
@@ -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 @
07798a86
...
...
@@ -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 @
07798a86
...
...
@@ -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 @
07798a86
(:gwl-graphics :tasty :robot :yadd)
(:gwl-graphics :tasty :robot :yadd
:cl-lite
)
documentation/training/g102-tud/examples/examples.asd
View file @
07798a86
...
...
@@ -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 @
07798a86
...
...
@@ -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 @
07798a86
...
...
@@ -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 @
07798a86
...
...
@@ -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 @
07798a86
...
...
@@ -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 @
07798a86
...
...
@@ -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 @
07798a86
...
...
@@ -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 @
07798a86
"(: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 @
07798a86
...
...
@@ -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 @
07798a86
...
...
@@ -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 @
07798a86
...
...
@@ -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/ajax/source/file-ordering.isc
View file @
07798a86
("parameters")
("parameters"
"skeleton-ui-element"
)
gwl/defsystem-depends-on.isc
deleted
100644 → 0
View file @
58466c0c
"(#-allegro :zacl)"
\ No newline at end of file
gwl/gwl.asd
View file @
07798a86
...
...
@@ -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
70802
"
:depends-on
(
#+
(
or
ccl
sbcl
allegro
)
:zaserve
#-
(
or
ccl
sbcl
allegro
)
:paserve
:cl-who
:yason
:glisp
)
:version
"201
81023
"
: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/base-ajax-sheet"
)
(
:file
"ajax/source/parameters"
)
(
:file
"ajax/source/skeleton-ui-element"
)
(
: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 @
07798a86
("remote-test")
("remote-test"
"log-utils"
)
gwl/source/log-utils.lisp
View file @
07798a86
...
...
@@ -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
))
...
...
gwl/source/publish.lisp
View file @
07798a86
...
...
@@ -208,7 +208,7 @@
:function
(
remote-function-handler
#'
(
lambda
(
args-list
)
(
let*
((
current-id
(
getf
:current-id
args-list
))
(
let*
((
current-id
(
getf
args-list
:current-id
))
(
object
(
gethash
current-id
*remote-objects-hash*
)))
(
cond
(
object
(
remhash
current-id
*remote-objects-hash*
)
...
...
ignore-list.isc
View file @
07798a86
(".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 @
07798a86
...
...
@@ -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 @
07798a86
...
...
@@ -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 @
07798a86
...
...
@@ -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
"2018
08
23"
:depends-on
(
:geom-base
)
:version
"2018
10
23"
: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
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