59ef254318
This commit merges changes that were developed in the "racket7" repo. See that repo (which is no longer modified) for a more fine-grained change history. The commit includes experimental support for running Racket on Chez Scheme, but that "CS" variant is not built by default.
39 lines
1.3 KiB
Racket
39 lines
1.3 KiB
Racket
#lang racket/base
|
|
(require syntax/modresolve)
|
|
|
|
(provide module-path-index->path
|
|
module-path-index-reroot)
|
|
|
|
(define (module-path-index->path req path submod)
|
|
(define mpi (module-path-index-build req path submod))
|
|
|
|
(define p (resolve-module-path-index mpi path))
|
|
|
|
;; Make sure a path name is normalized
|
|
(define p-path (if (pair? p) (cadr p) p))
|
|
(define p-submod (if (pair? p) (cddr p) '()))
|
|
(define p-simple-path (if (path? p-path)
|
|
(normal-case-path (simplify-path p-path))
|
|
p-path))
|
|
|
|
;; Combine path back with submod
|
|
(if (null? p-submod)
|
|
p-simple-path
|
|
(cons p-simple-path p-submod)))
|
|
|
|
(define (module-path-index-build req path submod)
|
|
(module-path-index-reroot req
|
|
(if (null? submod)
|
|
(module-path-index-join #f #f)
|
|
(module-path-index-join `(submod "." ,@submod)
|
|
(module-path-index-join #f #f)))))
|
|
|
|
(define (module-path-index-reroot req root-mpi)
|
|
(let loop ([req req])
|
|
(define-values (mod-path base) (module-path-index-split req))
|
|
(cond
|
|
[(not mod-path) root-mpi]
|
|
[else
|
|
(module-path-index-join mod-path
|
|
(and base (loop base)))])))
|