Example of ragg output being parsed with syntax-parse and literal sets

gistfile1.txt

#lang racket/base

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


(define-syntax (drawing stx) (raise-syntax-error #f "Don't look at me; I'm shy" stx))
(define-syntax (rows stx) (raise-syntax-error #f "Don't look at me; I'm shy" stx))
(define-syntax (repeat stx) (raise-syntax-error #f "Don't look at me; I'm shy" stx))
(define-syntax (chunk stx) (raise-syntax-error #f "Don't look at me; I'm shy" stx))

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


(define-literal-set drawing-keywords (drawing rows repeat chunk))

(syntax-parse (replace-context #'here an-stx)
  #:literal-sets (drawing-keywords)
  [(drawing row ...)
   (printf "I see: ~s\n" #'(row ...))])