/usr/share/racket/collects/syntax/moddep.rkt is in racket-common 6.7-3.
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 | (module moddep racket/base
(require "modread.rkt"
"modcode.rkt"
"modcollapse.rkt"
"modresolve.rkt")
(provide (all-from-out "modread.rkt")
(all-from-out "modcode.rkt")
(all-from-out "modcollapse.rkt")
(all-from-out "modresolve.rkt")
show-import-tree)
(define (show-import-tree module-path)
(let loop ([path (resolve-module-path module-path #f)][indent ""][fs ""])
(printf "~a~a~a\n" indent path fs)
(let ([code (get-module-code path)])
(let ([imports (module-compiled-imports code)])
(define ((mk-loop fs) i)
(let ([p (resolve-module-path-index i path)])
(unless (symbol? p)
(loop p
(format " ~a" indent)
fs))))
(for-each (lambda (i)
(for-each
(mk-loop (case (car i)
[(0) ""]
[(1) " [for-syntax]"]
[(-1) " [for-syntax]"]
[(#f) " [for-label]"]
[else (format " [for-meta ~a]" (car i))]))
(cdr i)))
imports))))))
|