Ракетка макрос для расширения кода

Я хочу, чтобы иметь возможность написать:Ракетка макрос для расширения кода

(nota E2 82)

вместо:

(define E2 
    (network() 
      [sunet <= sine-wave 82] 
      [out = (+ sunet)]))

Я знаю, что я могу сделать это с помощью макросов и попытался написать это:

(define-syntax (nota stx) 
    (syntax-case stx() 
    [(nota x) #'(network() 
         [sunet <= sine-wave x] 
         [out = (+ sunet)])]))

Но я получаю эту ошибку:

nota: bad syntax in: (nota E2 82)

источник

2016-01-20 Theodor Berza

Вы забыли 'define'? – stchang

Причина, по которой вы получили ошибку «плохой синтаксис», состоит в том, что '(nota x)' указывает, что ваш макрос принимает только один «аргумент», но вы дали ему два. Как упоминает @stchang, похоже, что вы хотите добавить дополнительный аргумент и включить 'define' в расширение. –

Самым простым решением было бы

(define-syntax-rule (nota x y) 
    (define x 
    (network() 
      [sunet <= sine-wave y] 
      [out = (+ sunet)])))

источник

2016-01-20 18:18:06 uselpa

Короткое и элегантное решение! Оно работает. Спасибо! –

Хорошо, это просто ужасно. Вам действительно не нужно писать этот макрос; должна быть форма, которая поставляет фиксированные входы в сеть.

Фактически, есть. Но ... это не задокументировано, и это плохо названо. В настоящее время он называется fixed-inputs, но я собираюсь переименовать его как network-const и задокументировать его.

Спасибо за подсказку!

John

источник

2016-01-20 21:01:42

Для будущего подтверждения этого ответа вы можете ссылаться на документы, когда делаете? (И когда будет выпущена следующая версия Racket с ней.) –

Ракетка макрос для расширения кода

ответ

Смежные вопросы