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

call parse-optiosn from main

Browse source
This commit is contained in:
Masataro Asai 2017-06-03 00:59:09 +09:00
parent 5042e73f20
commit c5080100fa
1 changed files with 17 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lisp/dump.ros
View file

@ -100,6 +100,13 @@ exec ros -- $0 "$@"
'(output
executable))
(defun parse-options (args fn)
(match args
;; ((list* _ rest)
;; (parse-options rest fn))
(_
(funcall fn args))))
(defun main (&rest r)
(let ((module (module "dump" (or
#+ccl "ccl"
@ -107,13 +114,16 @@ exec ros -- $0 "$@"
(remove #\Space (string-downcase (lisp-implementation-type)))))))
(cond
((and module r)
(let ((func (find (first r) (funcall module :query *subcmds*)
:test 'equal
:key 'string-downcase)))
(if func
(funcall func module (rest r))
(format *error-output* "'~A' is not a valid command for '~A' subcommand for ~A ~%"
(first r) (pathname-name *load-pathname*) (lisp-implementation-type)))))
(parse-options
r (lambda-ematch
((list* mode args)
(let ((func (find mode (funcall module :query *subcmds*)
:test 'equal
:key 'string-downcase)))
(if func
(funcall func module args)
(format *error-output* "'~A' is not a valid command for '~A' subcommand for ~A ~%"
mode (pathname-name *load-pathname*) (lisp-implementation-type))))))))
(module
(format *error-output* "Possible subcmd~%~%~{~(~A~)~%~}" (funcall module :query *subcmds*)))
(t