mbutterick
/
brag
1
0
Fork 0
Code Issues 3 Pull Requests 1 Projects Releases Wiki Activity

Fix bug in expander

Browse Source 
When using `make-rule-parser` for any rule that is not the start
rule, and applying the resulting parser while giving it a source-path
it would just use the entire grammar from the start rule.
pull/28/head
Markus Pfeiffer 3 years ago
parent d3405dd0ab
commit 8d7546f228
No known key found for this signature in database
GPG Key ID: 9E429BDC79806DC1
1 changed files with 22 additions and 19 deletions
Show Stats Download Patch File Download Diff File

17
brag-lib/brag/codegen/expander.rkt
Unescape Escape View File

@ -78,15 +78,15 @@
(member (syntax-e #'start-rule) 'RULE-IDS)) (member (syntax-e #'start-rule) 'RULE-IDS))
;; The cfg-parser depends on the start-rule provided in (start ...) to have the same ;; The cfg-parser depends on the start-rule provided in (start ...) to have the same
;; context as the rest of this body. Hence RECOLORED-START-RULE ;; context as the rest of this body. Hence RECOLORED-START-RULE
(with-syntax ([RECOLORED-START-RULE (datum->syntax #'RULES-STX (syntax-e #'start-rule))]) (with-syntax ([RECOLORED-START-RULE (datum->syntax #'RULES-STX (syntax-e #'start-rule))]
#'(let ([THE-GRAMMAR (cfg-parser (tokens enumerated-tokens) [PARSE-NAME (datum->syntax #'RULES-STX (string->symbol (format "~a-rule-parser" 'start-rule)))])
#'(let* ([THE-GRAMMAR (cfg-parser (tokens enumerated-tokens)
(src-pos) (src-pos)
(start RECOLORED-START-RULE) (start RECOLORED-START-RULE)
(end EOF) (end EOF)
(error THE-ERROR-HANDLER) (error THE-ERROR-HANDLER)
(grammar . GENERATED-RULE-CODES))]) (grammar . GENERATED-RULE-CODES))]
(procedure-rename [THE-BODY (lambda (tokenizer)
(case-lambda [(tokenizer)
(define next-token (define next-token
(make-permissive-tokenizer tokenizer all-tokens-hash/mutable)) (make-permissive-tokenizer tokenizer all-tokens-hash/mutable))
;; little post-processor to support cuts on top rule name ;; little post-processor to support cuts on top rule name
@ -97,10 +97,13 @@
(if (eq? (syntax-property top-rule-name-stx 'hide-or-splice?) 'hide) (if (eq? (syntax-property top-rule-name-stx 'hide-or-splice?) 'hide)
;; use `remove-rule-name` so we get the same housekeeping ;; use `remove-rule-name` so we get the same housekeeping
(remove-rule-name parse-tree-stx) (remove-rule-name parse-tree-stx)
parse-tree-stx)] parse-tree-stx))])
(procedure-rename
(case-lambda [(tokenizer)
(THE-BODY tokenizer)]
[(source tokenizer) [(source tokenizer)
(parameterize ([current-source source]) (parameterize ([current-source source])
(PARSE tokenizer))]) (THE-BODY tokenizer))])
(string->symbol (format "~a-rule-parser" 'start-rule)))))] (string->symbol (format "~a-rule-parser" 'start-rule)))))]
[(_ not-a-rule-id) [(_ not-a-rule-id)
(raise-syntax-error #f (raise-syntax-error #f

Write Preview
Loading…
Cancel
Save