You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
37 lines
1.4 KiB
Racket
37 lines
1.4 KiB
Racket
#|
|
|
#lang s-exp syntax/module-reader
|
|
#:read read
|
|
#:read-syntax read-syntax
|
|
#:language `(submod ,aoc-lang expander)
|
|
(require racket/runtime-path)
|
|
(define-runtime-path aoc-lang "aoc-lang.rkt")
|
|
|#
|
|
|
|
#lang br/quicklang
|
|
(require "helper.rkt")
|
|
(provide (except-out (all-from-out br/quicklang "helper.rkt") read-syntax #%module-begin)
|
|
(rename-out [my-rs read-syntax] [my-mb #%module-begin]))
|
|
|
|
(define (my-rs path port)
|
|
(define datums (for/list ([datum (in-port (curry read-syntax path) port)])
|
|
datum))
|
|
(strip-context (with-pattern ([THIS-FILE (syntax-source #'here)]
|
|
[DATUMS datums])
|
|
(syntax/loc (car datums) (module puzzle-lang THIS-FILE
|
|
. DATUMS)))))
|
|
|
|
(define (blank? line) (regexp-match #px"^\\s*$" line))
|
|
|
|
(define-macro (my-mb . ARGS)
|
|
(with-pattern ([MOD-PATH (syntax-source caller-stx)])
|
|
#'(#%module-begin
|
|
(provide read-syntax)
|
|
(define (read-syntax path port)
|
|
(strip-context #`(module mod MOD-PATH
|
|
#,@(for/list ([line (in-lines port)]
|
|
#:unless (blank? line))
|
|
(for/list ([datums (in-port read (open-input-string (string-replace line "," " ")))])
|
|
|
|
datums)))))
|
|
. ARGS)))
|