This file is indexed.

/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: