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

Make regexps explicit for infix splitters.

This commit is contained in:
sperber 2002-02-21 14:01:22 +00:00
parent f097c07cbf
commit 0bdfbca902
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
info-gateway.scm
View File

@ -161,8 +161,8 @@
(else (http-error http-reply/method-not-allowed req))))))) (else (http-error http-reply/method-not-allowed req)))))))
(define split-header-line (define split-header-line
(let ((split (infix-splitter "(, *)|( +)|( *\t *)")) (let ((split (infix-splitter (make-regexp "(, *)|( +)|( *\t *)")))
(split-field (infix-splitter ": *"))) (split-field (infix-splitter (make-regexp ": *"))))
(lambda (l) (lambda (l)
(let ((fields (map split-field (split l)))) (let ((fields (map split-field (split l))))
@ -451,7 +451,7 @@
(define (ensure-indirect-tag-table-header port) (define (ensure-indirect-tag-table-header port)
(ensure-regexp-line port "^\\(Indirect\\)" "no indirect tag")) (ensure-regexp-line port "^\\(Indirect\\)" "no indirect tag"))
(define split-indirection (infix-splitter " *: *")) (define split-indirection (infix-splitter (make-regexp " *: *")))
(define (parse-indirection line) (define (parse-indirection line)
(let ((l (split-indirection line))) (let ((l (split-indirection line)))
(if (null? (cdr l)) (if (null? (cdr l))
@ -474,10 +474,10 @@
(define tag-seek-separator (ascii->char 127)) (define tag-seek-separator (ascii->char 127))
(define parse-tag (define parse-tag
(let ((split (infix-splitter ", *")) (let ((split (infix-splitter (make-regexp ", *")))
(split-field (infix-splitter ": ")) (split-field (infix-splitter ": "))
(split-node-info (split-node-info
(infix-splitter (regexp-quote (string tag-seek-separator))))) (infix-splitter (string tag-seek-separator))))
(define (barf) (define (barf)
(info-gateway-error "invalid tag entry in info file")) (info-gateway-error "invalid tag entry in info file"))