#lang racket/base (require yaragg/support) (provide current-source current-parser-error-handler current-tokenizer-error-handler) ;; During parsing, we should define the source of the input. (define current-source (make-parameter 'unknown)) ;; When an parse error happens, we call the current-parser-error-handler: (define current-parser-error-handler (make-parameter (lambda (tok-name tok-value offset line col span) (raise (exn:fail:parsing (format "Encountered parsing error near ~e (token ~e) while parsing ~e [line=~a, column=~a, offset=~a]" tok-value tok-name (current-source) line col offset) (current-continuation-marks) (list (srcloc (current-source) line col offset span))))))) ;; When a tokenization error happens, we call the current-tokenizer-error-handler. (define current-tokenizer-error-handler (make-parameter (lambda (tok-type tok-value offset line column span) (raise (exn:fail:parsing (string-append (format "Encountered unexpected token of type ~e (value ~e) while parsing" (if (memq tok-type (map string->symbol '("\n" "\t" "\r"))) (format "~a" tok-type) tok-type) tok-value) (if (or (current-source) line column offset) (format " ~e [line=~a, column=~a, offset=~a]" (current-source) line column offset) "")) (current-continuation-marks) (list (srcloc (current-source) line column offset span)))))))