common-lisp/roswell.roswell
1
0
Fork 0
mirror of https://github.com/roswell/roswell.git synced 2026-09-10 07:16:17 -04:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

'ros ecl-config' to search proper ecl-config for you

Browse source
This commit is contained in:
SANO Masatoshi 2020-05-21 20:53:14 +08:00
parent 8a44d9bf34
commit 01a400b805
2 changed files with 31 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
Makefile.am
View file

@ -31,6 +31,7 @@ LISPS = helper.el \
config.ros \
compile-file.ros \
util-config.lisp \
ecl-config.ros \
emacs.ros \
exec.ros \
dist.ros \

30
lisp/ecl-config.ros Normal file
View file

@ -0,0 +1,30 @@
#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros +Q -m roswell -N roswell -- $0 "$@"
|#
(progn ;;init forms
(ros:include "util")
(unless (find-package :uiop)
(ql:quickload "uiop" :silent t)))
(defpackage :ros.script.ecl-config.3799052406
(:use :cl :roswell.util))
(in-package :ros.script.ecl-config.3799052406)
(defun main (&rest argv)
(declare (ignorable argv))
(let* ((lisp (parse-version-spec
(or (ros:opt "*lisp")
(ros:opt "default.lisp"))))
(version (or (second lisp)
(ros:opt (format nil "~A.version" (first lisp)) :from-end t)))
(impl (first lisp)))
(if (find impl '("ecl"))
(ros:exec (cons (namestring (merge-pathnames (format nil "impls/~A/~A/~A/~A/bin/ecl-config"
(uname-m) (uname) impl version)
(roswell.util:homedir)))
argv))
(ros:quit 1))))
;;; vim: set ft=lisp lisp: