/usr/share/racket/collects/setup/infotab.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 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 | ;; Defines a language to be used by info.rkt files.
;; This module cannot use #lang, because reading
;; an "info.rkt" file tries to load this module, and a reader
;; guard disallows anything but `setup/infotab'.
(module infotab racket/base
(require (for-syntax racket/base))
(define-syntax info-module-begin
(lambda (stx)
(syntax-case stx ()
[(mod-beg defn ...)
(let ([names (let loop ([defns (syntax->list (syntax (defn ...)))]
[r '()])
(if (null? defns)
(reverse r)
(loop (cdr defns)
(syntax-case (car defns) (define)
[(define var val)
(identifier? #'var)
(cons (syntax var) r)]
;; In case it gets expanded:
[(define-values (var) val)
(cons (syntax var) r)]
[(require lib) r] ; ignore these (see below)
[_else (raise-syntax-error
'infotab-module
"not a well-formed definition"
stx (car defns))]))))])
(let ([dup (check-duplicate-identifier names)])
(when dup
(raise-syntax-error 'infotab-module "duplicate definition" stx dup)))
(with-syntax ([(name ...) names])
(syntax
(#%plain-module-begin
defn ...
(define #%info-lookup
(case-lambda
[(n) (#%info-lookup n (lambda () (error 'info.rkt "no info for ~a" n)))]
[(n fail)
(unless (and (procedure? fail)
(procedure-arity-includes? fail 0))
(error
'info.rkt
"expected second argument to be a procedure that takes no arguments, got: ~e"
fail))
(case n
[(name) name]
...
[else (fail)])]))
(define (#%info-domain) '(name ...))
(provide #%info-lookup #%info-domain)))))])))
(define-syntax (limited-require stx)
(syntax-case stx ()
[(_ lib)
(member (syntax->datum #'lib)
;; No `require's are allowed, currently:
'())
(syntax/loc stx (require lib))]))
(provide (rename-out [info-module-begin #%module-begin])
#%app #%datum #%top
define quote if
list cons car cdr quasiquote unquote unquote-splicing
list* append reverse
equal?
make-immutable-hash hash hash-set hash-set* hash-remove hash-clear hash-update
string-append
path->string build-path collection-path
system-library-subpath
(rename-out [limited-require require])
lib
getenv))
|