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

[functional-tests/regex] pull out a swap macro

Browse Source
This commit is contained in:
Joe Thornber 2017-08-18 18:35:40 +01:00
parent b2b8d2b3c7
commit ca6a036697
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
functional-tests/regex.scm
View File

@ -193,6 +193,13 @@
((_ (var str) body ...) ((_ (var str) body ...)
(string-for-each (lambda (var) body ...) str)))) (string-for-each (lambda (var) body ...) str))))
(define-syntax swap
(syntax-rules ()
((_ x y)
(let ((tmp x))
(set! x y)
(set! y tmp)))))
(define (match-rx code txt) (define (match-rx code txt)
(fmt #t (dsp "running ") (pretty code) nl) (fmt #t (dsp "running ") (pretty code) nl)
(call/cc (call/cc
@ -201,12 +208,6 @@
(let ((threads (mk-thread-set code-len)) (let ((threads (mk-thread-set code-len))
(next-threads (mk-thread-set code-len))) (next-threads (mk-thread-set code-len)))
(define (swap-ts)
(let ((tmp threads))
(set! threads next-threads)
(clear-thread-set! tmp)
(set! next-threads tmp)))
(add-thread! threads 0) (add-thread! threads 0)
(string-iter (in-c txt) (string-iter (in-c txt)
(fmt #t (dsp "processing: ") (wrt in-c) nl) (fmt #t (dsp "processing: ") (wrt in-c) nl)
@ -226,7 +227,9 @@
(add-thread! threads l2))))) (add-thread! threads l2)))))
(if (no-threads? next-threads) (if (no-threads? next-threads)
(k #f) (k #f)
(swap-ts))) (begin
(swap threads next-threads)
(clear-thread-set! next-threads))))
(any-matches? threads code)))))) (any-matches? threads code))))))
) )