racket - 如何打印 Racket 结构

Question

有什么方法可以控制结构体的打印方式吗？

例如，如果我有一个包含图像的透明结构:

(struct photo (label image-data) #:transparent)

但我不想打印 image-data 字段。

Answer 1

我想稍微扩展一下本的回答。您还可以组合gen:custom-write与 make-constructor-style-printer使结构打印变得更加容易。此函数为您处理打印、书写、引用深度和输出端口之间的差异。

扩展他的示例给出:

#lang racket
(require pict
         racket/struct)

(struct photo (label image-data)
  #:transparent
  #:methods gen:custom-write
  [(define write-proc
     (make-constructor-style-printer
       (lambda (obj) 'photo)
       (lambda (obj) (list (photo-label obj)))))])

(displayln (photo "fish" (standard-fish 100 100)))
;; Prints #<photo: fish>

(println (photo "fish" (standard-fish 100 100)))
;; Prints (photo "fish")

现在写入、显示和打印都可以如您所期望的那样工作