Commit 1698221a by Francois-Rene Rideau

4.1.5: make cl-launch ready for bazel

parent 220b8cab
Showing with 9 additions and 5 deletions
#!/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:
......
......@@ -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))
......@@ -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
|#
(defpackage :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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or sign in to comment