Commit 1698221a authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

4.1.5: make cl-launch ready for bazel

parent 220b8cab

cl-launch.sh

+1 −1
Original line number Diff line number Diff line 
#!/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

+4 −1
Original line number Diff line number Diff line
@@ -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

+4 −3
Original line number Diff line number Diff line
@@ -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))))))

    (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.

      (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