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
xcvb
cl-launch
Commits
1698221a
Commit
1698221a
authored
Apr 08, 2016
by
Francois-Rene Rideau
Browse files
4.1.5: make cl-launch ready for bazel
parent
220b8cab
Changes
3
Hide whitespace changes
Inline
Side-by-side
cl-launch.sh
View file @
1698221a
#!/bin/sh
#| cl-launch.sh -- shell wrapper for Common Lisp -*- Lisp -*-
CL_LAUNCH_VERSION
=
'4.1.
4.1
'
CL_LAUNCH_VERSION
=
'4.1.
5
'
license_information
()
{
AUTHOR_NOTE
=
"
\
# Please send your improvements to the author:
...
...
dispatch.lisp
View file @
1698221a
...
...
@@ -75,5 +75,8 @@ If NAME is NIL, return the value of *DEFAULT-BEHAVIOR*."
(
defun
main
(
argv
)
(
dispatcher
argv
))
(
defun
entry-point
()
(
main
*command-line-arguments*
))
(
when
(
null
*image-entry-point*
)
(
setf
*image-entry-point*
#'
dispatcher
))
(
setf
*image-entry-point*
#'
entry-point
))
release.lisp
View file @
1698221a
...
...
@@ -2,7 +2,7 @@
#!/usr/bin/cl -Ds cl-launch/release
exec "$(dirname $0)/cl-launch.sh" -X --dispatch-system cl-launch/release -- "$0" "$@" ; exit
|#
(
def
package
:cl-launch/release
(
uiop:define-
package
:cl-launch/release
(
:use
:cl
:uiop
:asdf
:fare-utils
:optima
:optima.ppcre
:inferior-shell
:cl-scripting
:cl-launch/dispatch
)
(
:import-from
:cl-launch/dispatch
#:main
)
...
...
@@ -21,8 +21,9 @@ exec "$(dirname $0)/cl-launch.sh" -X --dispatch-system cl-launch/release -- "$0"
(
unless
(
version-satisfies
system
version
)
(
die
2
"~A requires ~A at least ~A but only got version ~A"
(
argv0
)
name
version
(
component-version
system
))))))
(
check-system-version
"asdf"
"3.1.2"
)
;; for package-inferred-system, uiop:argv0
(
check-system-version
"inferior-shell"
"2.0.3"
)))
;; for default run outputs, on-error error.
(
when
(
asdf:find-system
"inferior-shell"
nil
)
;; if not, we're built by bazel or some such!
(
check-system-version
"asdf"
"3.1.2"
)
;; for package-inferred-system, uiop:argv0
(
check-system-version
"inferior-shell"
"2.0.3"
))))
;; for default run outputs, on-error error.
(
defvar
*cl-launch-directory*
;; interactive users may want to override that.
(
truenamize
...
...
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