datums

#lang racket/base

(require ragg/examples/simple-line-drawing/lexer
         ragg/examples/simple-line-drawing/grammar
         syntax/parse
         (for-syntax syntax/parse)
         (for-syntax racket/base))

(define-syntax (define-datums stx)
  (syntax-parse stx
    [(_ name ...)
     #'(begin
         (define-syntax-class name (pattern (~datum name)))
         ...)]))

(define-datums drawing row repeat chunk)

(define an-stx 
  (parse (tokenize (open-input-string "3 9 X;
6 3 b 3 X 3 b;
3 9 X;"))))

(syntax-parse an-stx
  [(_:drawing row ...)
   (printf "I see: ~s\n" #'(row ...))])