mirror of
https://github.com/roswell/roswell.git
synced 2026-09-10 07:16:17 -04:00
24 lines
1 KiB
Common Lisp
24 lines
1 KiB
Common Lisp
(roswell:include "util")
|
|
(defpackage :roswell.dist.default
|
|
(:use :cl :roswell.util))
|
|
(in-package :roswell.dist.default)
|
|
|
|
(defun default (&rest r)
|
|
(if (null r)
|
|
(progn
|
|
(format *error-output* "Possible subcommands:~%")
|
|
(finish-output *error-output*)
|
|
(format t "~{~A~%~}"
|
|
(sort (loop for x in (mapcar (lambda (x) (pathname-name x)) (directory (merge-pathnames "dist-*.lisp" (ros:opt "lispdir"))))
|
|
when (ignore-errors (not (string-equal "dist-default" x)))
|
|
collect (subseq x 5))
|
|
#'string<)))
|
|
(format *error-output* "not suppported type for dist:~A~%" (first r))))
|
|
|
|
(defun options (stream command-name)
|
|
(format stream "~{ ~A~%~}~%"
|
|
(sort (loop for x in (directory (merge-pathnames (format nil "~A-*.lisp" command-name) (opt "lispdir")))
|
|
for name = (subseq (pathname-name x) (1+ (length command-name)))
|
|
collect name)
|
|
#'string<)))
|