emo/thin-provisioning-tools
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[functional-tests/regex] tweak definition of rx

Browse Source
This commit is contained in:
Joe Thornber 2017-08-22 17:41:40 +01:00
parent c049ec6f39
commit 87b3556d36
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
functional-tests/regex.scm
View File

@ -367,13 +367,11 @@
;; rx := simple-rx ("|" simple-rx)* ;; rx := simple-rx ("|" simple-rx)*
(define (rx) (define (rx)
(define (combine rs) (p:lift2 (lambda (r rs)
(fold-left alt (car rs) (cdr rs))) (fold-left alt r rs))
(simple-rx)
(p:parse-m (p:<- r (simple-rx)) (p:many* (p:>> (p:lit "|")
(p:<- rest (p:many* (p:>> (p:lit "|") (simple-rx)))))
(simple-rx))))
(p:pure (combine (cons r rest)))))
;;----------------------------------------------------------------------- ;;-----------------------------------------------------------------------
;; The top level routine, parses the regex string and compiles it into a ;; The top level routine, parses the regex string and compiles it into a