module - Racket 中的 `suffix-out`

Question

我可以使用 prefix-out重命名我导出的标识符，使它们都具有相似的前缀。例如:

#lang racket
(provide (prefix-out mymod: (all-defined-out)))
(define x 5)
(define y 6)

现在 mymod:x 和 mymod:y 应该绑定(bind)到里面的 x 和 y文件。

是否有类似的方法可以为模块导出的所有标识符添加后缀？这样我就可以做类似的事情:

#lang racket
(provide (suffix-out -from-mymod (all-defined-out)))
(define x 5)
(define y 6)

现在任何需要这个的模块都将 x-from-mymod 和 y-from-mymod 绑定(bind)到 x 和 y 在此模块中。

Answer 1

您可以使用 filtered-out为此目的:

(require (for-syntax racket/base
                     racket/provide-transform
                     syntax/parse)
         racket/provide)

(define-syntax suffix-out
  (make-provide-transformer
   (lambda (stx modes)
     (syntax-parse stx
       [(_ suffix:id provide-spec)
        (expand-export
         #'(filtered-out (lambda (name)
                           (string-append name (symbol->string 'suffix)))
                         provide-spec)
         modes)]))))