scsh-conservatory
/
scsh-0.5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Hacks to fit in with the new SRE regexp system.

This commit is contained in:
shivers 1999-09-08 15:19:16 +00:00
parent 0d3f69124f
commit 64613d96db
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
scsh/fr.scm
View File

@ -69,11 +69,15 @@
(define (->delim-matcher x) (define (->delim-matcher x)
(if (procedure? x) x ; matcher proc (if (procedure? x) x ; matcher proc
;; The matcher proc. (let ((re (cond ((string? x) (re-string x))
((char-set? x) (re-char-set x))
((char? x) (re-string (string x)))
((regexp? x) x)
(else (error "Illegal field-reader delimiter value" x)))))
(lambda (s i) (lambda (s i)
(cond ((regexp-search x s i) => (cond ((regexp-search re s i) =>
(lambda (m) (values (match:start m 0) (match:end m 0)))) (lambda (m) (values (match:start m 0) (match:end m 0))))
(else (values #f #f)))))) (else (values #f #f)))))))
;;; (infix-splitter [re num-fields handle-delim]) -> parser ;;; (infix-splitter [re num-fields handle-delim]) -> parser
;;; (suffix-splitter [re num-fields handle-delim]) -> parser ;;; (suffix-splitter [re num-fields handle-delim]) -> parser