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
1735c7f9
Commit
1735c7f9
authored
Apr 30, 2013
by
Dave Cooper
Browse files
Merge branch 'devo'
parents
045059da
1fbeeea6
Changes
20
Hide whitespace changes
Inline
Side-by-side
apps/ta2/ta2.asd
View file @
1735c7f9
...
...
@@ -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
"2013042
6
"
:depends-on
(
:gwl-graphics
)
:version
"2013042
8
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
...
...
apps/tasty/tasty.asd
View file @
1735c7f9
...
...
@@ -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
"2013042
6
"
:depends-on
(
:tree
:gwl-graphics
)
:version
"2013042
8
"
:depends-on
(
:tree
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
...
...
apps/translators/translators.asd
View file @
1735c7f9
...
...
@@ -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
"2013042
6
"
:depends-on
(
:gwl
)
:version
"2013042
8
"
:depends-on
(
:gwl
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"xml/source/package"
)
(
:file
"xml/source/genworks"
)
...
...
apps/tree/tree.asd
View file @
1735c7f9
...
...
@@ -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
"2013042
6
"
:depends-on
(
:gwl-graphics
)
:version
"2013042
8
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
...
...
apps/yadd/yadd.asd
View file @
1735c7f9
...
...
@@ -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
"2013042
6
"
:depends-on
(
:gwl-graphics
)
:version
"2013042
8
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/genworks"
)
...
...
base/base.asd
View file @
1735c7f9
...
...
@@ -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
"2013042
6
"
:depends-on
nil
:serial
t
:version
"2013042
8
"
:depends-on
nil
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/genworks"
)
...
...
base/source/genworks.lisp
View file @
1735c7f9
;;;; -*- encoding: utf-8; -*-
;;
;; Copyright 2002-2011, 2012 Genworks International
;;
...
...
@@ -25,9 +26,6 @@
#+
(
and
mswindows
allegro
)
(
excl:crlf-base-ef
:1252
)
#-
(
and
mswindows
allegro
)
:default
)
(
defparameter
*genworks-source-home*
nil
)
(
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
...
...
@@ -40,12 +38,23 @@
(
setq
*genworks-source-home*
(
make-pathname
:name
nil
:type
nil
:directory
(
butlast
(
butlast
(
pathname-directory
base-home
)))
:directory
(
butlast
(
butlast
(
pathname-directory
base-home
)))
:defaults
base-home
)))))))
(
set-genworks-source-home-if-known
)
(
defparameter
*gendl-source-home*
nil
)
(
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
(
defun
set-genworks-source-home-if-known
()
(
when
(
find-package
:asdf
)
(
multiple-value-bind
(
gendl-home
error
)
(
ignore-errors
(
funcall
(
read-from-string
"asdf:system-source-directory"
)
"gendl"
))
(
if
(
typep
error
'error
)
(
warn
"~&ASDF is loaded, but :base is not registered. glisp:*genworks-source-home* remains unknown and set to nil.~%"
)
(
setq
*gendl-source-home*
gendl-home
))))))
#-
(
or
allegro
lispworks
sbcl
ccl
abcl
ecl
clisp
)
(
error
"Need implementation for command-line-arguments in currently running lisp.~%"
)
(
defun
basic-command-line-arguments
()
...
...
@@ -278,12 +287,12 @@
tpl:*default-lisp-listener-bindings*
)
(
find-package
:gdl-user
))
#+
allegro
(
top-level:do-command
"package"
"gdl-user"
))
(
defun
set-defpackage-behavior
()
#+
lispworks
(
setq
hcl:*handle-existing-defpackage*
(
list
:add
))
#-
lispworks
nil
;; No action needed for non-lispworks platform currently.
)
(
defun
set-settings
(
settings
)
(
let
(
anything-changed?
)
(
dolist
(
setting
settings
)
...
...
@@ -296,6 +305,7 @@
(
format
t
"~&Set ~s from default value ~s to non-default value ~s.~%"
symbol
default
new-value
)))))
anything-changed?
))
(
defun
set-features
(
features
)
(
let
(
anything-changed?
)
(
dolist
(
feature
features
)
...
...
@@ -306,11 +316,14 @@
(
setq
anything-changed?
t
))))
anything-changed?
))
#-
allegro
(
warn
"Find out how to retitle relevant windows in currently running lisp.~%"
)
#+
(
and
allegro
mswindows
)
(
defun
set-window-titles
()
#+
(
and
allegro
mswindows
)
(
excl:console-control
:title
"Genworks Gendl™ Console"
)
(
retitle-emacs
))
;;a(excl:console-control :title "Genworks Gendl™ Console")
(
retitle-emacs
))
#-
(
and
allegro
mswindows
)
(
defun
set-window-titles
())
#-
(
or
allegro
lispworks
abcl
)
(
warn
"Find out how to get the source-pathname in current lisp."
)
(
defun
source-pathname
()
...
...
@@ -324,7 +337,7 @@
#+
nil
(
defun
retitle-emacs
(
&key
(
title
"Genworks Gendl™ Interactive Authoring Environment"
))
"Retitles the associated GDL emacs window with the specified title.
...
...
cl-lite/cl-lite.asd
View file @
1735c7f9
...
...
@@ -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
"2013042
6
"
:depends-on
(
:glisp
)
:serial
t
:version
"2013042
8
"
:depends-on
(
:glisp
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
...
...
demos/bus/bus.asd
View file @
1735c7f9
...
...
@@ -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
"2013042
6
"
:depends-on
(
:gwl-graphics
)
:serial
t
:version
"2013042
8
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
...
...
demos/ledger/ledger.asd
View file @
1735c7f9
...
...
@@ -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
"2013042
6
"
:depends-on
(
:gwl
)
:serial
t
:version
"2013042
8
"
:depends-on
(
:gwl
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
...
...
demos/robot/robot.asd
View file @
1735c7f9
...
...
@@ -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
"2013042
6
"
:depends-on
(
:gwl-graphics
)
:version
"2013042
8
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
...
...
demos/wire-world/wire-world.asd
View file @
1735c7f9
...
...
@@ -4,6 +4,6 @@
"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
"2013042
6
"
:depends-on
(
:gwl-graphics
)
:version
"2013042
8
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)))
documentation/training/g102-tud/examples/examples.asd
View file @
1735c7f9
...
...
@@ -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
"2013042
6
"
:depends-on
nil
:version
"2013042
8
"
:depends-on
nil
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:gdl
"source/primi-plane"
)
(
:gdl
"source/ui-primi-plane"
)))
geom-base/geom-base.asd
View file @
1735c7f9
...
...
@@ -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
"2013042
6
"
:depends-on
(
:glisp
)
:version
"2013042
8
"
:depends-on
(
:glisp
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"prereqs/source/presets"
)
...
...
glisp/glisp.asd
View file @
1735c7f9
...
...
@@ -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
"2013042
6
"
:depends-on
:serial
t
:version
"2013042
8
"
:depends-on
(
:base
:uiop
:cl-typesetting
:cl-ppcre
:cl-who
#-
allegro
:cl-base64
#-
allegro
:babel
#-
allegro
:acl-compat
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
...
...
gwl-graphics/gwl-graphics.asd
View file @
1735c7f9
...
...
@@ -3,7 +3,7 @@
(
asdf:defsystem
#:gwl-graphics
:description
"The Gendl™ GWL embedded graphics support"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"2013042
6
"
:depends-on
(
:geom-base
:gwl
)
:serial
t
:version
"2013042
8
"
:depends-on
(
:geom-base
:gwl
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"gwl/source/application-mixin"
)
...
...
gwl/gwl.asd
View file @
1735c7f9
...
...
@@ -3,7 +3,7 @@
(
asdf:defsystem
#:gwl
:description
"The Gendl™ Generative Web Language (GWL)"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"2013042
6
"
:depends-on
(
:glisp
:aserve
)
:serial
t
:version
"2013042
8
"
:depends-on
(
:glisp
:aserve
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/defparameters"
)
...
...
gwl/zzinit/source/initialize.lisp
View file @
1735c7f9
...
...
@@ -78,9 +78,9 @@ Perhaps a zombie process is holding port ~a?~%" port port))
(
defvar
*settings*
(
list
(
list
'*static-home*
*static-home*
#'
(
lambda
()
(
or
(
and
glisp:*gen
works
-source-home*
(
probe-file
(
merge-pathnames
"
gendl/
gwl/static/"
glisp:*gen
works
-source-home*
)))
(
or
(
and
glisp:*gen
dl
-source-home*
(
probe-file
(
merge-pathnames
"gwl/static/"
glisp:*gen
dl
-source-home*
)))
(
and
glisp:*gdl-home*
(
probe-file
(
merge-pathnames
"static/"
glisp:*gdl-home*
)))
...
...
regression/regression.asd
View file @
1735c7f9
...
...
@@ -3,7 +3,7 @@
(
asdf:defsystem
#:regression
:description
"The Gendl™ regression Subsystem"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"2013042
6
"
:depends-on
(
:lift
:surf
:tasty
)
:version
"2013042
8
"
:depends-on
(
:lift
:surf
:tasty
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"utils/source/package"
)
(
:file
"utils/source/genworks"
)
...
...
@@ -12,6 +12,7 @@
(
:file
"assembly-output/source/bracket-test"
)
(
:file
"assembly-output/source/bracket"
)
(
:file
"dgdl/source/remote"
)
(
:file
"geom-base/source/box-matrix"
)
(
:file
"geom-base/source/drawing"
)
(
:file
"geom-base/source/general-note"
)
(
:file
"gwl/source/package"
)
(
:file
"gwl/source/ajax-json"
)
(
:file
"gwl/source/hey-now"
)
(
:file
"gwl/source/large-data"
)
...
...
surf/surf.asd
View file @
1735c7f9
...
...
@@ -4,7 +4,7 @@
"The Gendl™ NURBS Surface and Solids Geometry Primitives"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"2013042
6
"
:depends-on
(
:geom-base
)
:version
"2013042
8
"
:depends-on
(
:geom-base
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/parameters"
)
(
:file
"source/classes"
)
...
...
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