mirror of
https://github.com/roswell/roswell.git
synced 2026-09-10 07:16:17 -04:00
29 lines
957 B
Common Lisp
29 lines
957 B
Common Lisp
#!/bin/sh
|
|
#|-*- mode:lisp -*-|#
|
|
#|Set PATH for env then execute.
|
|
exec ros -m roswell -N roswell -- $0 "$@"
|
|
|#
|
|
(progn ;;init forms
|
|
(roswell:include "util-config"))
|
|
|
|
(defpackage :ros.script.exec.3714434941
|
|
(:use :cl :roswell.util))
|
|
(in-package :ros.script.exec.3714434941)
|
|
|
|
(defun main (&rest argv)
|
|
(let* ((env (third (assoc "roswellenv" (roswell.util.config:load-config ".roswellenv") :test 'equal)))
|
|
(path (merge-pathnames
|
|
(format nil (if (and env
|
|
(not (equal env "roswell")))
|
|
"env/~A/bin/"
|
|
"bin/")
|
|
env)
|
|
(homedir))))
|
|
(setenv "PATH" (format nil
|
|
#-win32 "~A:~A"
|
|
#+win32 "~A;~A"
|
|
(namestring path)
|
|
(roswell:getenv "PATH")))
|
|
(roswell:exec argv)))
|
|
;;; vim: set ft=lisp lisp:
|