/usr/share/gauche-0.9/0.9.5/lib/check-script is in gauche 0.9.5-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | ;;
;; Quick check for scripts.
;;
;; Run this as 'gosh check-script <script-file> ...'
;;
(use gauche.test)
(use file.util)
(define (main args)
(if (null? (cdr args))
(usage)
(begin
(test-start "scripts")
(dolist [f (cdr args)]
;; Often, "." is not in *load-path* and relative pathname may be
;; given without "./"... so we ensure relative path begins with "./".
(let1 p (if (absolute-path? f)
f
($ build-path "."
$ sys-normalize-pathname f :canonicalize #t))
(test-script p)))
(test-end))))
(define (usage)
(print "Usage: gosh check-script <script-file> ...")
(print "Runs test-script function on each <script-file> to find out")
(print "undefined functions, call procedures with wrong number of arguments, etc.")
(exit 1))
;; Local variables:
;; mode: scheme
;; end:
|