如何阅读？

Question

我有以下的测试为例，可以使用read，但遇到一些问题：

#lang racket 
(struct test (num) #:prefab) 
(define s3 (read (open-input-string "((AK= #s(test .)) (AV))"))) 
(match s3 
    [`((AK= ,(struct test (val))) (AV)) (displayln val)]) 

它会发出read: unexpected）'`

我知道那是因为.的，但我的来源将包含很多这样的事情，那么问题是我如何在球拍中阅读它们？

在此先感谢...

Answer 1

您可以read-accept-dot和read-accept-infix-dot禁用阅读点，但只是使其成为一个错误，如果有一个点。所以，它听起来就像你想使用一个custom readtable这里（阅读guide section太）：

#lang racket 
(struct test (num) #:prefab) 
(define rt:no-dots 
    (make-readtable (current-readtable) 
        #\. 'non-terminating-macro ( _ #'|.|))) 
(define (read-with-dots str) 
    (parameterize ([current-readtable rt:no-dots]) 
    (read (open-input-string str)))) 
(define s3 (read-with-dots "((AK= #s(test .)) (AV))")) 
(match s3 
    [`((AK= ,(struct test (val))) (AV)) (displayln val)]) 

或者，你可以点得到视为注释：

(define rt:no-dots 
    (make-readtable (current-readtable) 
        #\. 'non-terminating-macro 
        ( _ (make-special-comment #f))))