2018-01-27 22:08:45 +00:00
|
|
|
#!/bin/sh
|
|
|
|
|
#|-*- mode:lisp -*-|#
|
|
|
|
|
#|
|
|
|
|
|
exec ros -Q -- $0 "$@"
|
|
|
|
|
|#
|
|
|
|
|
(progn ;;init forms
|
|
|
|
|
(ros:ensure-asdf)
|
|
|
|
|
#+quicklisp (ql:quickload '(cl-info
|
|
|
|
|
defmain)
|
|
|
|
|
:silent t))
|
|
|
|
|
|
|
|
|
|
(defpackage :ros.script.cl-info
|
|
|
|
|
(:use :cl)
|
|
|
|
|
(:import-from #:cl-info/core
|
2019-07-19 18:37:43 +00:00
|
|
|
#:get-cl-info
|
|
|
|
|
#:get-system-info)
|
2018-01-27 22:08:45 +00:00
|
|
|
(:import-from #:defmain
|
|
|
|
|
#:defmain))
|
|
|
|
|
(in-package :ros.script.cl-info)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defmain main ((version "Show program version and exit."
|
|
|
|
|
:flag t)
|
|
|
|
|
&rest system)
|
|
|
|
|
"Show information about Lisp implementation and given systems. Useful when collecting information for bugreports."
|
|
|
|
|
|
|
|
|
|
(when version
|
|
|
|
|
(let* ((system (asdf:find-system :cl-info))
|
|
|
|
|
(version (asdf:component-version system)))
|
|
|
|
|
(format t "Version: ~A~%" version)
|
|
|
|
|
(uiop:quit 0)))
|
|
|
|
|
|
2019-07-19 18:37:43 +00:00
|
|
|
(princ (get-cl-info))
|
2018-01-27 22:08:45 +00:00
|
|
|
|
|
|
|
|
(loop for system-name in system
|
2019-07-19 18:37:43 +00:00
|
|
|
do (princ (get-system-info system-name))))
|
2018-01-27 22:08:45 +00:00
|
|
|
|
|
|
|
|
;;; vim: set ft=lisp lisp:
|
