Телеграмм чат группы scheme

Size: a a a

Русскоязычное сообщество Scheme

2021 May 27

ВБ

Валентин Бомбин... in Русскоязычное сообщество Scheme

и снова про define-syntax
Подскажите - в чем косяк в опредtлении

(define-syntax (lex-Keyword stx)
  (syntax-case stx ()
    [(_ token-string name)
     (with-syntax
         ([(token-function (string->symbol (printf "token-~a" (string-upcase (symbol->string name)))))])
       #'([lex-ci `token-string] (`token-function lexeme (string=? lexeme `token-string) 'En)))]))

источник

14:15пожаловаться #1

ВБ

Валентин Бомбин... in Русскоязычное сообщество Scheme

ругается что неверный синтакс

источник

14:15пожаловаться #2

ВБ

Валентин Бомбин... in Русскоязычное сообщество Scheme

и второй вопрос - есть способ как-то отлаживать все это безумие?

источник

14:15пожаловаться #3

Aß

A ß in Русскоязычное сообщество Scheme

а обязательно использовать макросы для парсинга?

источник

14:27пожаловаться #4

Aß

A ß in Русскоязычное сообщество Scheme

сочинил минимально рабочий пример:

(define-syntax foo
  (lambda (stx)
    (syntax-case stx ()
      [(_ symbol)
       (with-syntax [(clone #'symbol)]
         #'(symbol clone))])))

источник

14:31пожаловаться #5

ВБ

Валентин Бомбин... in Русскоязычное сообщество Scheme

не обязательно, но там много однотипного кода. Хотел свернуть

источник

14:40пожаловаться #6

Aß

A ß in Русскоязычное сообщество Scheme

(define-syntax goal
  (lambda (stx)
    (define (make-token-name name)
      (datum->syntax
       #f
       (string->symbol
        (string-append
         "token-"
         (string-upcase (symbol->string name))))))
    (syntax-case stx ()
      [(_ (token-string name))
       (with-syntax [(token-name (make-token-name (syntax->datum #'name)))]
         #'((lex-ci token-string) (token-name lexeme)))])))

источник

14:46пожаловаться #7

ВБ

Валентин Бомбин... in Русскоязычное сообщество Scheme

Дай я тебя расцелую. Спасибо!!!!

источник

14:48пожаловаться #8

ВБ

Валентин Бомбин... in Русскоязычное сообщество Scheme

а про отладку можешь подсказать?

источник

14:48пожаловаться #9