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
f33602e7
Commit
f33602e7
authored
Jun 01, 2014
by
Dave Cooper
Browse files
correct build for Allegro ANSI mode
parent
fececd45
Changes
22
Hide whitespace changes
Inline
Side-by-side
apps/ta2/ta2.asd
View file @
f33602e7
;;;; -*- 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)"
"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
"20140
515
"
:depends-on
(
:gwl-graphics
)
:version
"20140
601
"
: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 @
f33602e7
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:tasty
:description
"The Gendl
™
Web-based Development Environment (tasty)"
:author
"The Gendl
\"
Web-based Development Environment (tasty)"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20140
515
"
:depends-on
(
:tree
:gwl-graphics
)
:version
"20140
601
"
: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 @
f33602e7
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:translators
:description
"The Gendl
™
Translators to/from XML and potentially other high-level KBE and Knowledge formats"
"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
"20140
515
"
:depends-on
(
:gwl
)
:version
"20140
601
"
: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 @
f33602e7
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:tree
:description
"The Gendl
™
Tree component used by Tasty and potentially as a UI component on its own"
"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
"20140
515
"
:depends-on
(
:gwl-graphics
)
:version
"20140
601
"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
apps/yadd/source/define-object-documentation.lisp
100755 → 100644
View file @
f33602e7
...
...
@@ -138,7 +138,7 @@ If you specify :part-symbol-supplied, do not specify :instance-supplied."))
((
:div
:class
"gdl-object-def"
)
"("
((
:span
:class
"gdl-operator"
)
"define-object"
)
" "
((
:span
:class
"gdl-defined-symbol"
)
(
str
(
the
part-full-symbol
)))
(
fmt
" (~{~a~^ ~})"
(
remove
'vanilla-mixin
(
the
mixins-list
))))
(
fmt
" (~{~a~^ ~})"
(
remove
'
gdl::
vanilla-mixin
(
the
mixins-list
))))
(
mapc
#'
(
lambda
(
section
)
(
str
(
with-output-to-string
(
*html-stream*
)
...
...
apps/yadd/source/genworks.lisp
View file @
f33602e7
...
...
@@ -26,7 +26,7 @@
(
append
(
list
:win
:windows
:regexp
)
(
remove-duplicates
#-
allegro
nil
#+
allegro
(
mapcar
#'
(
lambda
(
pair
)
(
intern
(
first
pair
)
:keyword
))
excl::*autoload-package-name-alist*
)
#+
allegro
(
mapcar
#'
rest
excl::*autoload-package-name-alist*
)
)))
...
...
apps/yadd/yadd.asd
View file @
f33602e7
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:yadd
:description
"The Gendl
™
Yet Another Definition Documenter (yadd)"
:author
"The Gendl
\"
Yet Another Definition Documenter (yadd)"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20140
515
"
:depends-on
:version
"20140
601
"
: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 @
f33602e7
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:base
:description
"The Gendl
™
Base Core Kernel Engine"
:author
"John McCarthy"
"The Gendl
\"
Base Core Kernel Engine"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20140
515
"
:depends-on
nil
:serial
t
:version
"20140
601
"
: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 @
f33602e7
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:cl-lite
:description
"The Gendl
™
Compile-and-Load Lite Utility"
:author
"John McCarthy"
"The Gendl
\"
Compile-and-Load Lite Utility"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20140
515
"
:depends-on
(
:glisp
)
:serial
t
:version
"20140
601
"
: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 @
f33602e7
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:bus
:description
"The Gendl
™
Wireframe School Bus Demo"
:author
"John McCarthy"
"The Gendl
\"
Wireframe School Bus Demo"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20140
515
"
:depends-on
(
:gwl-graphics
)
:serial
t
:version
"20140
601
"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
demos/ledger/ledger.asd
View file @
f33602e7
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:ledger
:description
"The Gendl
™
Ledger Bookkeeping Demo"
:author
"John McCarthy"
"The Gendl
\"
Ledger Bookkeeping Demo"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20140
515
"
:depends-on
:serial
t
:version
"20140
601
"
:depends-on
(
#-
gwl
:gwl
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
...
...
demos/robot/robot.asd
View file @
f33602e7
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:robot
:description
"The Gendl
™
Simplified Android Robot example "
:author
"The Gendl
\"
Simplified Android Robot example "
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20140
515
"
:depends-on
(
:gwl-graphics
)
:version
"20140
601
"
:depends-on
(
:gwl-graphics
)
#-
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 @
f33602e7
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:wire-world
:description
"The Gendl
™
Wire-World demo and test-case for wireframe tessellation and X3D output"
"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
"20140
515
"
:depends-on
:version
"20140
601
"
: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 @
f33602e7
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:examples
:description
"The Gendl
™
examples Subsystem"
:author
"John McCarthy"
:license
"The Gendl
\"
examples Subsystem"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20140
515
"
:depends-on
(
:gwl-graphics
:surf
)
:version
"20140
601
"
: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 @
f33602e7
...
...
@@ -258,8 +258,11 @@
(
defun
load-user-emacs-glime
()
(
when
(
file-exists-p
"~/.emacs-glime"
)
(
load-file
"~/.emacs-glime"
))
(
when
(
file-exists-p
"~/.emacs-glime.el"
)
(
load-file
"~/.emacs-glime.el"
)))
(
when
(
file-exists-p
"~/.emacs-glime.el"
)
(
load-file
"~/.emacs-glime.el"
))
(
when
(
file-exists-p
"~/.emacs-gendl"
)
(
load-file
"~/.emacs-gendl"
))
(
when
(
file-exists-p
"~/.emacs-gendl.el"
)
(
load-file
"~/.emacs-gendl.el"
)))
(
load-user-emacs-glime
)
(
ignore-errors
(
require
'package
)
...
...
@@ -310,7 +313,7 @@
(
gdl-devo
(
get-executable
'agdl8
)))
(
defun
gdle
()
(
interactive
)
(
gdl-devo
(
get-executable
'gdl
e
)))
(
gdl-devo
(
get-executable
'gdl
)))
(
defun
gdl-devo
(
executable
)
(
interactive
)
...
...
geom-base/geom-base.asd
View file @
f33602e7
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:geom-base
:description
"The Gendl
™
Wireframe Geometry"
:author
"John McCarthy"
:license
"The Gendl
\"
Wireframe Geometry"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20140
515
"
:depends-on
(
:glisp
)
:version
"20140
601
"
: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 @
f33602e7
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:glisp
:description
"The Gendl
™
Common Lisp Portability"
:author
"John McCarthy"
"The Gendl
\"
Common Lisp Portability"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20140
515
"
:depends-on
:serial
t
:version
"20140
601
"
: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
...
...
gwl-graphics/gwl-graphics.asd
View file @
f33602e7
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:gwl-graphics
:description
"The Gendl
™
GWL embedded graphics support"
:author
"John McCarthy"
"The Gendl
\"
GWL embedded graphics support"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20140
515
"
:depends-on
(
:geom-base
:gwl
)
:serial
t
:version
"20140
601
"
: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 @
f33602e7
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:gwl
:description
"The Gendl
™
Generative Web Language (GWL)"
:author
"John McCarthy"
"The Gendl
\"
Generative Web Language (GWL)"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20140
515
"
:depends-on
(
:glisp
:aserve
)
:serial
t
:version
"20140
601
"
:depends-on
(
:glisp
:aserve
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
...
...
gwl/source/base-html-utils.lisp
View file @
f33602e7
...
...
@@ -69,7 +69,11 @@ by user application code.")
(
defun
make-new-instance-id
(
&key
(
max-value
*max-id-value*
))
(
let
((
*print-base*
16
)
(
universal-time
(
get-universal-time
))
(
random
(
random
max-value
*iid-random-state*
)))
(
format
nil
"~a~a"
random
universal-time
)))
(
let
((
string
(
format
nil
"~a~a"
random
universal-time
)))
(
if
(
and
(
glisp:featurep
:allegro
)
(
eql
(
symbol-value
(
read-from-string
"excl:*current-case-mode*"
))
:case-insensitive-upper
))
(
string-upcase
string
)
string
))))
...
...
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