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

output using trivia

Browse source
This commit is contained in:
Masataro Asai 2017-05-31 17:14:26 +09:00
parent a1aac82e10
commit 4030290309
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lisp/dump.ros
View file

@ -32,16 +32,16 @@ exec ros -- $0 "$@"
(format *error-output* "dump ~s already exists~%" (pathname-name path))
(format *error-output* "file ~s already exists~%" path))
(funcall func :output path))))
(cond
((null params)
(ematch params
(nil
(format *error-output* "Usage: ~A [OPTIONS] dump output [-f] [-o OUTPUT] NAME~%" (opt "argv0")))
((equal "-f" (first params))
(output func (rest params) t))
((equal "-o" (first params))
(if (> (length params) 1)
(%dump (second params))
(format *error-output* "Missing the pathname for an image.~%")))
(t (let ((path (merge-pathnames (format nil "~A.~A" (first params) (core-extention))
((list* "-f" rest)
(output func rest t))
((list "-o" output)
(%dump output))
((list "-o")
(format *error-output* "Missing the pathname for an image.~%"))
(_ (let ((path (merge-pathnames (format nil "~A.~A" (first params) (core-extention))
(dump-dir))))
(%dump (ensure-directories-exist path) :normal))))))