diff options
| -rw-r--r-- | syntax-highlight/parsers.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/syntax-highlight/parsers.scm b/syntax-highlight/parsers.scm index bb967db..712f8d5 100644 --- a/syntax-highlight/parsers.scm +++ b/syntax-highlight/parsers.scm @@ -23,6 +23,7 @@ (define-module (syntax-highlight parsers) #:use-module (ice-9 match) + #:use-module (ice-9 regex) #:use-module (srfi srfi-1) #:use-module (srfi srfi-11) #:use-module (srfi srfi-26) @@ -43,6 +44,7 @@ parse-char-set parse-whitespace parse-delimited + parse-regexp tagged-parser)) ;;; @@ -203,6 +205,14 @@ Within the sequence, ESCAPE is recognized as the escape character." (loop (stream-cdr stream) (cons (stream-car stream) result))))) (parse-fail stream)))))) +(define (parse-regexp regexp parser) + "Create a parser that succeeds if the result of PARSER is a string +that matches the string REGEXP." + (let ((rx (make-regexp regexp))) + (parse-filter (lambda (result) + (regexp-match? (regexp-exec rx result))) + parser))) + (define (tagged-parser tag parser) "Create a parser that wraps the result of PARSER in a two element list whose first element is TAG." |