在Racket中的`suffix-out`-Java 学习之路

我可以使用prefix-out重命名我导出的标识符，使其具有相似的前缀 . 例如：

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

现在 mymod:x 和 mymod:y 应绑定到该文件内的 x 和 y .

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

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

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

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)]))))

回复于 2024-04-25T07:09:14+08:00

在Racket中的`suffix-out`

1 回答

相关问题