/usr/share/gauche-0.9/site/lib/h2s/lookup.scm is in gauche-gtk 0.6~pre1+git20121223-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 | #! /usr/bin/gosh
(use h2s.Persistence)
(define (main args)
;; lookup (recursively) the type, and show its ...
(let ((db-file "/tmp/good.db"))
(let1 open-database
(lambda (filename)
(let ((db (open-type-db filename))
(sdb (open-struct-db filename)))
(set! global-sdb sdb)
(set! find-type-in-archive-function
(cut find-type-in-archive <> db))))
;; apply
(if (slot-bound? recipe 'parsing-function)
((slot-ref recipe 'parsing-function)))
;;
)))
|