Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
55e85c28
Commit
55e85c28
authored
Jul 06, 2013
by
Dave Cooper
Browse files
Merge branch 'devo' into feature/svg-dd
parents
0ebdc5b7
051c0bdd
Changes
25
Hide whitespace changes
Inline
Side-by-side
apps/ta2/ta2.asd
View file @
55e85c28
;;;; -*-
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 @
55e85c28
;;;; -*-
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 @
55e85c28
;;;; -*-
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 @
55e85c28
;;;; -*-
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 @
55e85c28
;;;; -*-
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 @
55e85c28
;;;; -*-
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 @
55e85c28
...
...
@@ -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 @
55e85c28
...
...
@@ -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 @
55e85c28
;;;; -*-
en
coding: utf-8
;
-*- ;
;;;; -*- coding: utf-8 -*- ;
;;
;; Copyright 2002-2011 Genworks International
;;
...
...
cl-lite/cl-lite.asd
View file @
55e85c28
;;;; -*-
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"
)
...
...
cl-lite/source/cl-lite.lisp
View file @
55e85c28
...
...
@@ -228,7 +228,7 @@ NOTE: this is not currently supported in cl-lite.
Defaults to nil (i.e. we assume we are loading into a clean system and need all the initial definitions.)."
load-always?
t
)
(
encoding-line
";;;; -*-
en
coding: utf-8
;
-*-"
)
(
encoding-line
";;;; -*- coding: utf-8 -*-"
)
)
...
...
demos/bus/bus.asd
View file @
55e85c28
;;;; -*-
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 @
55e85c28
;;;; -*-
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 @
55e85c28
;;;; -*-
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 @
55e85c28
;;;; -*-
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 @
55e85c28
(:surf)
\ No newline at end of file
documentation/training/g102-tud/examples/examples.asd
0 → 100644
View file @
55e85c28
;;;; -*- 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 @
55e85c28
...
...
@@ -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 @
55e85c28
...
...
@@ -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 @
55e85c28
;;;; -*-
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"
)
...
...
Prev
1
2
Next
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