suzanne.soy/beautiful-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

better regexp

Browse Source
This commit is contained in:
Matthew Butterick 2016-05-06 13:48:55 -07:00
parent 87f5b186a2
commit feec0f85d5
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
brag/brag/rules/parser.rkt
View File

@ -91,8 +91,7 @@
;; angles indicate splicing. set splice value to #t ;; angles indicate splicing. set splice value to #t
[(RULE_HEAD_HIDDEN pattern) [(RULE_HEAD_HIDDEN pattern)
(begin (begin
(begin (define trimmed (regexp-match #px"<(.+)>\\s*:$" $1))
(define trimmed (cadr (regexp-match #px"<(\\w+)>\\s*:$" $1)))
(rule (position->pos $1-start-pos) (rule (position->pos $1-start-pos)
(position->pos $2-end-pos) (position->pos $2-end-pos)
(lhs-id (position->pos $1-start-pos) (lhs-id (position->pos $1-start-pos)
@ -102,7 +101,7 @@
(position-col $1-start-pos)) (position-col $1-start-pos))
trimmed trimmed
#t) #t)
$2)))]] $2))]]
[pattern [pattern
[(implicit-pattern-sequence PIPE pattern) [(implicit-pattern-sequence PIPE pattern)