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
e67934b3
Commit
e67934b3
authored
Jul 06, 2013
by
Dave Cooper
Browse files
releasing 1583
parent
e26555f5
Changes
24
Hide whitespace changes
Inline
Side-by-side
apps/ta2/ta2.asd
View file @
e67934b3
;;;; -*-
en
coding: utf-8
;
-*-
;;;; -*- coding: utf-8 -*-
(
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 Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20130
501
"
:depends-on
(
:gwl-graphics
)
:version
"20130
706
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
...
...
apps/tasty/tasty.asd
View file @
e67934b3
;;;; -*-
en
coding: utf-8
;
-*-
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:tasty
:description
"The Gendl™ Web-based Development Environment (tasty)"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20130
501
"
:depends-on
(
:tree
:gwl-graphics
)
:version
"20130
706
"
: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 @
e67934b3
;;;; -*-
en
coding: utf-8
;
-*-
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:translators
:description
"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
"20130
501
"
:depends-on
(
:gwl
)
:version
"20130
706
"
: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 @
e67934b3
;;;; -*-
en
coding: utf-8
;
-*-
;;;; -*- coding: utf-8 -*-
(
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 Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20130
501
"
:depends-on
(
:gwl-graphics
)
:version
"20130
706
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
...
...
apps/yadd/yadd.asd
View file @
e67934b3
;;;; -*-
en
coding: utf-8
;
-*-
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:yadd
:description
"The Gendl™ Yet Another Definition Documenter (yadd)"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20130
501
"
:depends-on
(
:gwl-graphics
)
:version
"20130
706
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/genworks"
)
...
...
base/base.asd
View file @
e67934b3
;;;; -*-
en
coding: utf-8
;
-*-
;;;; -*- 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
"20130
501
"
:depends-on
nil
:serial
t
:version
"20130
706
"
:depends-on
nil
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/genworks"
)
...
...
base/source/package.lisp
100755 → 100644
View file @
e67934b3
...
...
@@ -90,8 +90,7 @@ If you are interested in this effort we would love to hear from you at open-sour
#:*error-on-reserved-words?*
#:*force-restore-slot-default?*
#:*gdl-init-functions*
#:*genworks-oss-svn-version*
#:*genworks-svn-version*
#:*gendl-version*
#:*ghostscript-path*
#:*gs-path*
#:*load-documentation-database?*
...
...
base/source/parameters.lisp
View file @
e67934b3
...
...
@@ -21,6 +21,8 @@
(
in-package
:gdl
)
(
defparameter
*gendl-version*
"1583"
)
(
eval-when
(
compile
load
eval
)
(
when
(
not
(
boundp
'*production-build?*
))
(
defvar
*production-build?*
nil
)))
...
...
base/source/start.lisp
View file @
e67934b3
;;;; -*-
en
coding: utf-8
;
-*- ;
;;;; -*- coding: utf-8 -*- ;
;;
;; Copyright 2002-2011 Genworks International
;;
...
...
cl-lite/cl-lite.asd
View file @
e67934b3
;;;; -*-
en
coding: utf-8
;
-*-
;;;; -*- 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
"20130
501
"
:depends-on
(
:glisp
)
:serial
t
:version
"20130
706
"
:depends-on
(
:glisp
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
...
...
demos/bus/bus.asd
View file @
e67934b3
;;;; -*-
en
coding: utf-8
;
-*-
;;;; -*- 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
"20130
501
"
:depends-on
(
:gwl-graphics
)
:serial
t
:version
"20130
706
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
...
...
demos/ledger/ledger.asd
View file @
e67934b3
;;;; -*-
en
coding: utf-8
;
-*-
;;;; -*- 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
"20130
501
"
:depends-on
(
:gwl
)
:serial
t
:version
"20130
706
"
:depends-on
(
:gwl
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
...
...
demos/robot/robot.asd
View file @
e67934b3
;;;; -*-
en
coding: utf-8
;
-*-
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:robot
:description
"The Gendl™ Simplified Android Robot example "
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20130
501
"
:depends-on
(
:gwl-graphics
)
:version
"20130
706
"
: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 @
e67934b3
;;;; -*-
en
coding: utf-8
;
-*-
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:wire-world
:description
"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
"20130
501
"
:depends-on
(
:gwl-graphics
)
:version
"20130
706
"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)))
documentation/training/g102-tud/examples/depends-on.isc
0 → 100644
View file @
e67934b3
(:surf)
\ No newline at end of file
documentation/training/g102-tud/examples/examples.asd
0 → 100644
View file @
e67934b3
;;;; -*- 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
"20130706"
:depends-on
nil
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/ch2-examples"
)
(
:file
"source/ch3-examples"
)
(
:gdl
"source/primi-plane"
)
(
:gdl
"source/ui-primi-plane"
)))
emacs/gdl.el
View file @
e67934b3
...
...
@@ -14,6 +14,17 @@
(
require
'cl
)
(
defun
maximize-frame
()
"Maximizes the active frame in Windows"
(
interactive
)
;; Send a `WM_SYSCOMMAND' message to the active frame with the
;; `SC_MAXIMIZE' parameter.
(
when
(
eq
system-type
'windows-nt
)
(
w32-send-sys-command
61488
))
(
unless
(
eq
system-type
'windows-nt
)
(
set-frame-parameter
nil
'fullscreen
'maximized
)))
(
add-hook
'window-setup-hook
'maximize-frame
t
)
;; 2. WHERE ARE WE?
(
defvar
*gendl-home*
(
file-truename
(
concat
(
file-name-directory
(
file-truename
load-file-name
))
"../"
)))
...
...
@@ -161,13 +172,9 @@
(
slime-repl
)
(
insert
"(unless (find-package :gendl) (load (merge-pathnames \".load-gendl.lisp\" (user-homedir-pathname))))"
)
(
slime-repl-return
)
(
insert
(
format
"(load (compile-file \"%s
/
emacs/glime.lisp\"))"
*gendl-home*
))
(
insert
(
format
"(load (compile-file \"%semacs/glime.lisp\"))"
*gendl-home*
))
(
slime-repl-return
)
(
insert
"(gendl:start-gendl!)"
)
(
slime-repl-return
)
(
insert
(
format
"(format nil \"Also contains ~a, and Quicklisp libraries from:
%s.
Thank You to their respective authors and maintainers.\" (lisp-implementation-type))"
(
concat
*gendl-home*
"quicklisp/"
)))
(
insert
"(gdl::startup-banner)"
)
(
slime-repl-return
)
(
insert
"(in-package gdl-user)"
)
(
slime-repl-return
)
...
...
@@ -191,15 +198,16 @@ Thank You to their respective authors and maintainers.\" (lisp-implementation-ty
;; 4.4. Prior to SLIME
(
defun
prior-to-glime
()
(
find-file
(
concat
*gendl-home*
"emacs/README.txt"
))
(
toggle-read-only
)
(
let
((
frame-title
"Genworks® Gendl™ Interactive Authoring Environment"
))
(
modify-frame-parameters
nil
(
list
(
cons
'name
frame-title
))))
(
setq
inhibit-splash-screen
t
)
(
cd
"~/"
)
(
set-frame-parameter
nil
'fullscreen
'maximized
))
(
cd
"~/"
)
)
(
defun
load-user-emacs-glime
()
(
when
(
file-exists-p
"~/.emacs-glime"
)
(
load-file
"~/.emacs-glime"
))
...
...
emacs/glime.lisp
100755 → 100644
View file @
e67934b3
...
...
@@ -112,11 +112,12 @@
,
setter
))))))
#-
:lispworks
(
defmacro
when-let
(
binding
&body
body
)
(
destructuring-bind
(
var
val
)
binding
`
(
let
((
,
var
,
val
))
(
when
,
var
,@
body
))))
(
glisp:without-redefinition-warnings
(
defmacro
when-let
(
binding
&body
body
)
(
destructuring-bind
(
var
val
)
binding
`
(
let
((
,
var
,
val
))
(
when
,
var
,@
body
)))))
#||
#-:lispworks
...
...
geom-base/geom-base.asd
View file @
e67934b3
;;;; -*-
en
coding: utf-8
;
-*-
;;;; -*- coding: utf-8 -*-
(
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
"20130
501
"
:depends-on
(
:glisp
)
:version
"20130
706
"
:depends-on
(
:glisp
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"prereqs/source/presets"
)
...
...
glisp/glisp.asd
View file @
e67934b3
;;;; -*-
en
coding: utf-8
;
-*-
;;;; -*- coding: utf-8 -*-
(
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
"20130
501
"
:depends-on
:serial
t
:version
"20130
706
"
: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
...
...
Prev
1
2
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