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
d0fd4d99
Commit
d0fd4d99
authored
Feb 04, 2014
by
Dave Cooper
Browse files
did release 1585p002
parent
3a83fe5a
Changes
92
Hide whitespace changes
Inline
Side-by-side
apps/ta2/ta2.asd
View file @
d0fd4d99
...
...
@@ -4,7 +4,7 @@
"The Gendl™ (legacy) Testing and Tracking Utility, version 2 (using Ajax but pre-gdlAjax, and no JQuery or CSS)"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20140
122
"
:depends-on
(
:gwl-graphics
)
:serial
t
:version
"20140
204
"
: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 @
d0fd4d99
...
...
@@ -4,7 +4,7 @@
"The Gendl™ Web-based Development Environment (tasty)"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20140
122
"
:depends-on
(
:tree
:gwl-graphics
)
:serial
t
:version
"20140
204
"
: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 @
d0fd4d99
...
...
@@ -4,7 +4,7 @@
"The Gendl™ Translators to/from XML and potentially other high-level KBE and Knowledge formats"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20140
122
"
:depends-on
(
:gwl
)
:serial
t
:version
"20140
204
"
: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 @
d0fd4d99
...
...
@@ -4,7 +4,7 @@
"The Gendl™ Tree component used by Tasty and potentially as a UI component on its own"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20140
122
"
:depends-on
(
:gwl-graphics
)
:serial
t
:version
"20140
204
"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
apps/yadd/yadd.asd
View file @
d0fd4d99
...
...
@@ -4,7 +4,7 @@
"The Gendl™ Yet Another Definition Documenter (yadd)"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20140
122
"
:depends-on
:serial
t
:version
"20140
204
"
: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 @
d0fd4d99
...
...
@@ -4,7 +4,7 @@
"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
"20140
122
"
:depends-on
nil
:serial
t
:version
"20140
204
"
:depends-on
nil
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
cl-lite/cl-lite.asd
View file @
d0fd4d99
...
...
@@ -4,7 +4,7 @@
"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
"20140
122
"
:depends-on
(
:glisp
)
:serial
t
:version
"20140
204
"
:depends-on
(
:glisp
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
demos/bus/bus.asd
View file @
d0fd4d99
...
...
@@ -4,8 +4,7 @@
"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
"20140122"
:depends-on
(
#-
gwl-graphics
:gwl-graphics
)
:serial
t
:version
"20140204"
: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 @
d0fd4d99
"(#-gwl-graphics :gwl-graphics)"
\ No newline at end of file
nil
\ No newline at end of file
demos/ledger/ledger.asd
View file @
d0fd4d99
...
...
@@ -4,7 +4,7 @@
"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
"20140
122
"
:depends-on
:serial
t
:version
"20140
204
"
:depends-on
(
#-
gwl
:gwl
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
...
...
demos/robot/depends-on.isc
View file @
d0fd4d99
"(#-gendl :gwl-graphics)"
\ No newline at end of file
nil
\ No newline at end of file
demos/robot/robot.asd
View file @
d0fd4d99
...
...
@@ -4,8 +4,7 @@
"The Gendl™ Simplified Android Robot example "
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20140122"
:depends-on
(
#-
gendl
:gwl-graphics
)
:serial
t
:version
"20140204"
: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 @
d0fd4d99
...
...
@@ -4,7 +4,7 @@
"The Gendl™ Wire-World demo and test-case for wireframe tessellation and X3D output"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20140
122
"
:depends-on
:serial
t
:version
"20140
204
"
:depends-on
(
#-
gwl-graphics
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
...
...
documentation/training/g102-tud/examples/examples.asd
View file @
d0fd4d99
...
...
@@ -4,7 +4,7 @@
"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
"20140
122
"
:depends-on
(
:gwl-graphics
:surf
)
:serial
t
:version
"20140
204
"
:depends-on
(
:gwl-graphics
:surf
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
emacs/gdl.el
View file @
d0fd4d99
...
...
@@ -15,6 +15,8 @@
(
require
'cl
)
(
defvar
*default-font-size*
15
)
(
defun
maximize-frame
()
"Maximizes the active frame in Windows"
(
interactive
)
...
...
@@ -90,16 +92,13 @@
;;(global-set-key (kbd "C-m") 'newline-and-indent)
)
(
gdl:global-keys
)
;; 3.5. Font
(
defun
gdl:set-font
()
(
interactive
)
(
let
((
font-size
(
1+
(
/
(
display-
pixel
-height
)
1
00
)))
)
(
let
((
font-size
*default-font-size*
))
;;
(/ (display-
mm
-height) 1
6
)
(
set-frame-font
(
format
(
case
system-type
...
...
@@ -126,19 +125,24 @@
;;
;; 4.1. Some synonyms
(
defun
gendl
()
(
interactive
)
(
defun
gendl
(
&optional
exe
)
(
interactive
)
(
add-hook
'slime-connected-hook
'load-and-or-start-gendl
t
)
;;(add-hook 'slime-connected-hook 'load-base-ql)
(
add-to-list
'auto-mode-alist
'
(
"\\.cl\\'"
.
lisp-mode
))
(
add-to-list
'auto-mode-alist
'
(
"\\.gdl\\'"
.
lisp-mode
))
(
add-to-list
'auto-mode-alist
'
(
"\\.gendl\\'"
.
lisp-mode
))
(
with-temp-buffer
(
cd
*gendl-home*
)
(
slime
)))
(
defun
gdl
()
(
interactive
)
(
gendl
))
(
with-temp-buffer
(
cd
*gendl-home*
)
(
slime
exe
)))
(
defun
gdl
()
(
interactive
)
(
gendl
'gdl
))
(
defun
agdl8
()
(
interactive
)
(
gendl
'agdl8
))
(
defun
glime
()
(
interactive
)
(
gendl
))
(
defun
gdl-quit
()
(
interactive
)
(
slime-quit-lisp
))
(
defun
gq
()
(
interactive
)
(
gdl-quit
))
(
defun
gendl-quit
()
(
interactive
)
(
gdl-quit
))
(
defun
quit-gendl
()
(
interactive
)
(
gdl-quit
))
(
defun
quit-gdl
()
(
interactive
)
(
gdl-quit
))
;; 4.2. Locate Common Lisp / Locate SLIME
...
...
@@ -191,26 +195,37 @@
(
slime-repl-return
))
(
defvar
gdl-startup-string
(
format
"(progn (unless (find-package :gendl)
(let ((load-file (or (probe-file (merge-pathnames \".load-gendl.lisp\" (user-homedir-pathname)))
(probe-file \"c:/users/dcooper8/.load-gendl.lisp\"))))
(load load-file)))
(when (and (find-package :gendl) (find-package :swank))
(load (compile-file \"%semacs/glime.lisp\"
:output-file
(merge-pathnames
(make-pathname :name \"glime\"
:type (symbol-value
(read-from-string \"glisp:*fasl-extension*\")))
(funcall (symbol-function (read-from-string \"glisp:temporary-folder\")))))))
(when (find-package :gendl) (funcall (symbol-function (read-from-string \"gendl::startup-banner\"))))
(let ((gendl-loaded? (find-package :gendl)) (genworks-gdl-loaded? (find-package :genworks-gdl)))
(cond (genworks-gdl-loaded? (funcall (symbol-function (read-from-string \"gdl:start-gdl!\"))))
(gendl-loaded? (funcall (symbol-function (read-from-string \"gendl:start-gendl!\"))))
(t (format t \"~%%~%%***~%%Gendl or GDL is not loaded and did not load successfully from .load-gendl.lisp in your home directory.~%%***~%%~%%\"))))
(when (find-package :gendl) (in-package :gdl-user)))"
*gendl-home*
))
(
defun
load-and-or-start-gendl
()
(
slime-repl
)
(
insert
"(unless (find-package :gendl)
(let ((load-file (or (probe-file (merge-pathnames \".load-gendl.lisp\" (user-homedir-pathname)))
(probe-file \"c:/users/dcooper8/.load-gendl.lisp\"))))
(load load-file)))"
)
(
slime-repl-return
)
(
insert
(
format
"(when (find-package :gendl) (load (compile-file \"%semacs/glime.lisp\")))"
*gendl-home*
))
(
slime-repl-return
)
(
insert
"(when (find-package :gendl) (funcall (symbol-function (read-from-string \"gendl::startup-banner\"))))"
)
(
slime-repl-return
)
(
insert
"(let ((gendl-loaded? (find-package :gendl)) (genworks-gdl-loaded? (find-package :genworks-gdl)))
(cond (genworks-gdl-loaded? (funcall (symbol-function (read-from-string \"gdl:start-gdl!\"))))
(gendl-loaded? (funcall (symbol-function (read-from-string \"gendl:start-gendl!\"))))
(t (format t \"~%~%***~%Gendl or GDL is not loaded and did not load successfully from .load-gendl.lisp in your home directory.~%***~%~%\"))))"
)
(
slime-repl-return
)
(
insert
"(when (find-package :gendl) (in-package :gdl-user))"
)
(
insert
gdl-startup-string
)
(
slime-repl-return
)
(
end-of-buffer
))
(
defun
set-slime-shortcuts
()
"Set keybindings for switching to slime buffers"
(
interactive
)
...
...
@@ -263,7 +278,59 @@
;; 5. MAKE IT HAPPEN
(
prior-to-glime
)
(
glime
)
;;
;; FLAG -- conditionalize based on running slime or ELI
;;
;;(glime)
(
defvar
*eli-init*
(
concat
*gendl-home*
"program/eli/fi-site-init.el"
))
(
when
(
file-exists-p
*eli-init*
)
(
defun
get-executable
(
exe-name
)
(
let*
((
info
(
assoc
exe-name
slime-lisp-implementations
)))
(
replace-regexp-in-string
"/program/program/"
"/program/"
(
case
system-type
(
windows-nt
(
concat
(
file-name-directory
(
first
(
second
info
)))
(
replace-regexp-in-string
"\\\\"
"/"
(
second
(
second
info
)))))
((
darwin
gnu/linux
)
(
first
(
second
info
)))))))
(
defvar
gdl:*gdl-toplevel-base*
"*gdl toplevel*"
)
(
defun
agdl8e
()
(
interactive
)
(
gdl-devo
(
get-executable
'agdl8
)))
(
defun
gdle
()
(
interactive
)
(
gdl-devo
(
get-executable
'gdl
)))
(
defun
gdl-devo
(
executable
)
(
interactive
)
(
load-file
*eli-init*
)
(
setq
gdl:*gdl-toplevel*
(
concat
gdl:*gdl-toplevel-base*
(
if
(
equalp
(
subseq
(
file-name-sans-extension
(
file-name-nondirectory
executable
))
0
1
)
"a"
)
"(ANSI)"
"(modern)"
)))
(
fi:common-lisp
gdl:*gdl-toplevel*
*gendl-home*
executable
nil
)
(
global-set-key
"\C-x&"
'
(
lambda
()(
interactive
)
(
switch-to-buffer
gdl:*gdl-toplevel*
)))
(
switch-to-buffer
gdl:*gdl-toplevel*
)
(
end-of-buffer
)
(
goto-char
(
point-max
))
(
insert
gdl-startup-string
)
(
fi:inferior-lisp-newline
)
(
end-of-buffer
)))
...
...
geom-base/geom-base.asd
View file @
d0fd4d99
...
...
@@ -4,7 +4,7 @@
"The Gendl™ Wireframe Geometry"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20140
122
"
:depends-on
(
:glisp
)
:serial
t
:version
"20140
204
"
:depends-on
(
:glisp
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
glisp/glisp.asd
View file @
d0fd4d99
...
...
@@ -4,7 +4,7 @@
"The Gendl™ Common Lisp Portability"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20140
122
"
:depends-on
:serial
t
:version
"20140
204
"
:depends-on
(
:base
:uiop
:cl-typesetting
:cl-ppcre
:cl-who
#-
allegro
:cl-base64
#-
allegro
:babel
#-
allegro
:acl-compat
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
...
...
glisp/source/genworks.lisp
View file @
d0fd4d99
...
...
@@ -672,7 +672,8 @@ please find implementation for the currently running lisp.~%")
(
append
(
mapcar
#'
(
lambda
(
option
)
(
concatenate
'string
"--"
option
))
long-form-options
)
(
list
(
expanded-pathname-string
(
namestring
source
)))
(
list
(
expanded-pathname-string
(
namestring
dest
)))))))))
(
list
(
if
(
search
":"
(
namestring
dest
))
dest
(
expanded-pathname-string
(
namestring
dest
))))))))))
(
when
(
or
print-command?
dry-run?
)
(
format
t
"~s~%"
command-list
))
(
unless
dry-run?
(
uiop:with-current-directory
(
directory
)
...
...
gwl-graphics/gwl-graphics.asd
View file @
d0fd4d99
...
...
@@ -4,7 +4,7 @@
"The Gendl™ GWL embedded graphics support"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20140
122
"
:depends-on
(
:geom-base
:gwl
)
:serial
t
:version
"20140
204
"
:depends-on
(
:geom-base
:gwl
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
gwl/gwl.asd
View file @
d0fd4d99
...
...
@@ -4,7 +4,7 @@
"The Gendl™ Generative Web Language (GWL)"
:author
"Dave Cooper and Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20140
122
"
:depends-on
(
:glisp
:aserve
)
:serial
t
:version
"20140
204
"
:depends-on
(
:glisp
:aserve
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
Prev
1
2
3
4
5
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