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

implement 'ros dist add'

Browse source
This commit is contained in:
SANO Masatoshi 2018-09-03 19:39:53 +09:00
parent 3155030c0d
commit 2a545fa12d
2 changed files with 15 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/compile-file.ros
View file

@ -1,7 +1,7 @@
#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros +Q +A -- $0 "$@"
exec ros -Q +A -- $0 "$@"
|#
(progn ;;init forms
#-asdf(ros:ensure-asdf :version nil)
@ -49,8 +49,8 @@ exec ros +Q +A -- $0 "$@"
(consume
argv
(("-o" opt)
(uiop:chdir
(setf *default-pathname-defaults* (truename opt)))
(read-call "uiop:chdir"
(setf *default-pathname-defaults* (truename opt)))
(setf out t))
(("-o-")
(setf out nil))
@ -62,19 +62,19 @@ exec ros +Q +A -- $0 "$@"
(setf asdf nil))
((:in file)
(if asdf
(uiop:chdir
(setf *default-pathname-defaults*
(merge-pathnames (format nil "lisp/asdf/~A/" file) (homedir))))
(read-call "uiop:chdir"
(setf *default-pathname-defaults*
(merge-pathnames (format nil "lisp/asdf/~A/" file) (homedir))))
(when (ros:opt "asdf.version")
(ros:asdf)))
(funcall (read-from-string "asdf:compile-file*")
(if asdf
"asdf.lisp"
(merge-pathnames "asdf.lisp" *default-pathname-defaults*)
file)
:output-file
(make-pathname
:defaults (if (or out asdf)
(uiop:getcwd)
*default-pathname-defaults*
(fasl-dir))
:name (if asdf
"asdf"

7
lisp/dist-add.lisp Normal file
View file

@ -0,0 +1,7 @@
(defpackage :roswell.dist.add
(:use :cl))
(in-package :roswell.dist.add)
(defun add (&rest r)
(dolist (elm (rest r))
(ql-dist:install-dist elm :prompt nil)))