Roket okuyucu makroları

Question

Racket'te basit okuyucu makroları oluşturmanın bir yolu var mı? Bunun gibi bir genellemeyi kastediyorum: Ne demek istediğimi açıklamak için yerleşik bir sözdizimi kullanmıştım. Bunu kullanmak istediğim şeylerden biri, clojure'ın shorthand lambda (#(+ 1 %) 5) ; => 6

çoğaltılmasıdır. Bir "shorthand-lambda" makrosu tanımlamak ve "#" önekini bununla eşleştirmek çok kolay olurdu.

Answer 1

Bunu nasıl yapacağınızı görmek için readtables ve reader extensions kılavuzlarına bakın. Bu reference section da yararlıdır. Readtable uzantıları, örneğinizden biraz daha karmaşıktır, ancak çok güçlüdür.

Sorununuz için, SRFI-26, Scheme için benzer bir sözdizimi sağlar ve Sam Tobin-Hochstadt, Scala'nın bunu uygulayan bir fancy app Racket makrosu yazdı. ' için

#lang racket 

(define rt (make-readtable #f #\# 'non-terminating-macro 
          (λ (c in . _) 
          (define body (read in)) 
          `(lambda (%) ,body)))) 
(parameterize ([current-readtable rt] 
       [current-namespace (make-base-namespace)]) 
    (eval (read (open-input-string "(#(+ 1 %) 5)")))) ;; => 6 

İşte

sizin basit örneği nasıl uygulanacağı var, & eşdeğer hale:

Answer 2

İşte stenografi lambda nasıl uygulanacağı var

(define rt2 (make-readtable #f #\& #\' #f)) 

(parameterize ([current-readtable rt2] 
       [current-namespace (make-base-namespace)]) 
    (eval (read (open-input-string "&(3 4 5)")))) ;; => '(3 4 5)