suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

made get-info/full work with info.rkt files

Browse Source
This commit is contained in:
Robby Findler 2010-04-26 20:49:13 -05:00
parent 9fbfa9bfc3
commit a228fa6527
2 changed files with 21 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
collects/scribblings/setup-plt/setup-plt.scrbl
View File

@ -1174,14 +1174,10 @@ An @deftech{unpackable} is one of the following:
(symbol? [(-> any)] . -> . any) (symbol? [(-> any)] . -> . any)
false/c)]{ false/c)]{
Accepts a path to a directory. It returns @scheme[#f] if there is Accepts a path to a directory. If it finds either a well-formed
no @filepath{info.ss} file in the directory. If the an @filepath{info.rkt} file or an @filepath{info.ss} file (with
@filepath{info.ss} file has the wrong shape (i.e., not a module preference for the @filepath{info.rkt} file),
using @schememodname[setup/infotab] or @scheme[(lib "infotab.ss" "setup")]), it returns an info procedure that accepts either one
or if the @filepath{info.ss} file fails to load, then an exception
is raised.
Otherwise, @scheme[get-info/full] returns an info procedure of one
or two arguments. The first argument to the info procedure is or two arguments. The first argument to the info procedure is
always a symbolic name, and the result is the value of the name in always a symbolic name, and the result is the value of the name in
the @filepath{info.ss} file, if the name is defined. The optional the @filepath{info.ss} file, if the name is defined. The optional
@ -1189,7 +1185,18 @@ An @deftech{unpackable} is one of the following:
arguments to be called when the name is not defined; the result of arguments to be called when the name is not defined; the result of
the info procedure is the result of the @scheme[_thunk] in that the info procedure is the result of the @scheme[_thunk] in that
case. If the name is not defined and no @scheme[_thunk] is case. If the name is not defined and no @scheme[_thunk] is
provided, then an exception is raised.} provided, then an exception is raised.
@scheme[get-info/full] returns @scheme[#f] if there is
no @filepath{info.rkt} or @filepath{info.ss} file in the directory. If there is a
@filepath{info.rkt} file that has the wrong shape (i.e., not a module
using @schememodname[setup/infotab] or @scheme[(lib "infotab.ss" "setup")]),
or if the @filepath{info.rkt} file fails to load, then an exception
is raised. If the @filepath{info.rkt} file loaded, @scheme[get-info/full]
returns the @scheme[get-info] file. If the @filepath{info.rkt} file does not exist,
then @scheme[get-info/full] does
the same checks for the @filepath{info.ss} file, either raising an exception
or returning the @scheme[get-info] function from the @filepath{info.ss} file.}
@defproc[(find-relevant-directories @defproc[(find-relevant-directories
(syms (listof symbol?)) (syms (listof symbol?))

6
collects/setup/getinfo.ss
View File

@ -25,7 +25,11 @@
;; get-info/full : path -> info/#f ;; get-info/full : path -> info/#f
(define (get-info/full dir) (define (get-info/full dir)
(define file (build-path dir "info.ss")) (or (get-info/full/ext dir "rkt")
(get-info/full/ext dir "ss")))
(define (get-info/full/ext dir ext)
(define file (build-path dir (format "info.~a" ext)))
(define (err fmt . args) (define (err fmt . args)
(apply error 'get-info (string-append "info file " fmt " in ~a") (apply error 'get-info (string-append "info file " fmt " in ~a")
(append args (list file)))) (append args (list file))))