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

declare-exporting: allow escaped module-path expressions

Browse Source
This commit is contained in:
Matthew Flatt 2015-12-30 06:54:51 -06:00
parent f09604f097
commit bbbd68b3c2
2 changed files with 18 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
scribble-doc/scribblings/scribble/manual.scrbl
View File

@ -683,18 +683,23 @@ The @tech{decode}d @racket[pre-flow]s introduce the module, but need
not include all of the module content.} not include all of the module content.}
@defform/subs[(declare-exporting module-path ... maybe-pkgs maybe-sources) @defform[#:literals (unquote)
([maybe-pkgs code:blank (declare-exporting module-path/escape ... maybe-pkgs maybe-sources)
#:grammar ([maybe-pkgs code:blank
(code:line #:packages (pkg-expr ...))] (code:line #:packages (pkg-expr ...))]
[maybe-sources code:blank [maybe-sources code:blank
(code:line #:use-sources (module-path ...))])]{ (code:line #:use-sources (module-path/escape ...))]
[module-path/escape module-path
,module-path-expr])]{
Associates the @racket[module-path]s to all bindings defined within the Associates the @racket[module-path]s to all bindings defined within the
enclosing section, except as overridden by other enclosing section, except as overridden by other
@racket[declare-exporting] declarations in nested sub-sections. The @racket[declare-exporting] declarations in nested sub-sections. The
list of @racket[module-path]s before @racket[#:use-sources] is shown, for list of @racket[module-path]s before @racket[#:use-sources] is shown, for
example, when the user hovers the mouse over one of the bindings example, when the user hovers the mouse over one of the bindings
defined within the section. defined within the section. A @racket[unquote]-escaped
@racket[,module-path-expr] can be used in place of a
@racket[module-path] to compute the module path dynamically.
More significantly, the first @racket[module-path] before More significantly, the first @racket[module-path] before
@racket[#:use-sources] plus the @racket[module-path]s after @racket[#:use-sources] plus the @racket[module-path]s after
@ -767,7 +772,8 @@ per section, since the declaration applies to the entire section,
although overriding @racket[declare-exporting] forms can appear in although overriding @racket[declare-exporting] forms can appear in
sub-sections. sub-sections.
@history[#:changed "1.1" @elem{Added @racket[#:packages] clause.}]} @history[#:changed "1.1" @elem{Added @racket[#:packages] clause.}
#:changed "1.17" @elem{Added support for @racket[,module-path-expr].}]}
@defform*[[(defmodulelang one-or-multi maybe-sources option ... pre-flow ...) @defform*[[(defmodulelang one-or-multi maybe-sources option ... pre-flow ...)
(defmodulelang one-or-multi #:module-path module-path (defmodulelang one-or-multi #:module-path module-path

7
scribble-lib/scribble/private/manual-mod.rkt
View File

@ -302,11 +302,14 @@
#'#f)]) #'#f)])
(let ([libs (syntax->list #'(lib ... plib ...))]) (let ([libs (syntax->list #'(lib ... plib ...))])
(for ([l libs]) (for ([l libs])
(unless (module-path? (syntax->datum l)) (unless (or (syntax-case l (unquote)
[(unquote _) #t]
[_ #f])
(module-path? (syntax->datum l)))
(raise-syntax-error #f "not a module path" stx l))) (raise-syntax-error #f "not a module path" stx l)))
(when (null? libs) (when (null? libs)
(raise-syntax-error #f "need at least one module path" stx)) (raise-syntax-error #f "need at least one module path" stx))
#'(*declare-exporting '(lib ...) '(plib ...) packages)))])) #'(*declare-exporting `(lib ...) `(plib ...) packages)))]))
(define (*declare-exporting libs source-libs in-pkgs) (define (*declare-exporting libs source-libs in-pkgs)
(define pkgs (or in-pkgs (define pkgs (or in-pkgs