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
15a6cc91
Commit
15a6cc91
authored
May 21, 2013
by
Dave Cooper
Browse files
Merge branch 'slime-devel'
parents
93b0fed1
2a2571bb
Changes
28
Hide whitespace changes
Inline
Side-by-side
geom-base/geom-base.asd
View file @
15a6cc91
...
...
@@ -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
"20130
430
"
:depends-on
(
:glisp
)
:version
"20130
501
"
:depends-on
(
:glisp
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"prereqs/source/presets"
)
...
...
glisp/glisp.asd
View file @
15a6cc91
...
...
@@ -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
"20130
430
"
:depends-on
:serial
t
:version
"20130
501
"
: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
...
...
glisp/source/genworks.lisp
View file @
15a6cc91
...
...
@@ -231,13 +231,39 @@ and \"..\" entries."
#+
win32
((
ext:getenv
"PID"
))
; where does that come from?
(
t
-1
))))
#-
(
and
mswindows
lispworks
)
(
defun
run-gs
(
command
)
"Shell out a ghostscript command and handle errors."
(
let
((
result
(
run-program
command
)))
(
unless
(
zerop
result
)
(
error
"Ghostscript threw error"
))))
#+
(
and
mswindows
lispworks
)
(
defun
run-gs
(
command
)
"Shell out a ghostscript command and handle errors."
(
let
((
result
(
system:run-shell-command
command
)))
(
unless
(
zerop
result
)
(
error
"Ghostscript threw error"
))))
#+
nil
(
defun
run-gs
(
command
)
"Shell out a ghostscript command and handle errors."
(
format
t
"~a"
command
)
(
let
((
result
(
#+
allegro
excl:run-shell-command
#-
allegro
acl-compat.excl:run-shell-command
command
;;:show-window :hide
)))
(
when
result
(
unless
(
zerop
result
)
(
error
"Ghostscript threw error"
)))))
(
defun
run-program
(
command
&key
output
ignore-error-status
force-shell
(
element-type
uiop:*default-stream-element-type*
)
(
external-format
:default
)
...
...
@@ -592,6 +618,7 @@ please find implementation for the currently running lisp.~%")
dry-run?
(
options
(
list
"a"
))
long-form-options
)
#+
mswindows
(
declare
(
ignore
source
dest
directory
print-command?
dry-run?
options
long-form-options
))
#+
mswindows
(
error
"~&Sorry, glisp:rsync is not yet implemented for MS Windows.~%"
)
#-
mswindows
(
labels
((
expanded-pathname-string
(
pathname
)
...
...
gwl-graphics/gwl-graphics.asd
View file @
15a6cc91
...
...
@@ -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
"20130
430
"
:depends-on
(
:geom-base
:gwl
)
:serial
t
:version
"20130
501
"
:depends-on
(
:geom-base
:gwl
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"gwl/source/application-mixin"
)
...
...
gwl/gwl.asd
View file @
15a6cc91
...
...
@@ -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
"20130
430
"
:depends-on
(
:glisp
:aserve
)
:serial
t
:version
"20130
501
"
:depends-on
(
:glisp
:aserve
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/defparameters"
)
...
...
regression/regression.asd
View file @
15a6cc91
...
...
@@ -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
"20130
430
"
:depends-on
(
:lift
:surf
:tasty
)
:version
"20130
501
"
:depends-on
(
:lift
:surf
:tasty
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"utils/source/package"
)
(
:file
"utils/source/genworks"
)
...
...
surf/surf.asd
View file @
15a6cc91
...
...
@@ -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
"20130
430
"
:depends-on
(
:geom-base
)
:version
"20130
501
"
:depends-on
(
:geom-base
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/parameters"
)
(
:file
"source/classes"
)
...
...
system-index.txt
View file @
15a6cc91
gendl.asd
gwl/gwl.asd
surf/surf.asd
base/base.asd
surf/surf.asd
glisp/glisp.asd
apps/ta2/ta2.asd
demos/bus/bus.asd
apps/yadd/yadd.asd
apps/tree/tree.asd
apps/yadd/yadd.asd
cl-lite/cl-lite.asd
apps/tasty/tasty.asd
demos/robot/robot.asd
geom-base/geom-base.asd
demos/ledger/ledger.asd
geom-base/geom-base.asd
regression/regression.asd
gwl-graphics/gwl-graphics.asd
demos/wire-world/wire-world.asd
...
...
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