| The Modular DocBook Stylesheets | ||
|---|---|---|
| Prev | DSSSL Library | Next |
(repl-substring-list-repl string replace-list pos)
Returns the replacement in replace-list that would be used for the target that matches in string at pos See also repl-substring-list?.
Norman Walsh, <norm@berkshire.net>
(define (repl-substring-list-repl string replace-list pos)
;; Return the replacement that would be used in the string
(let loop ((list replace-list))
(let ((target (car list))
(repl (car (cdr list)))
(rest (cdr (cdr list))))
(if (repl-substring? string target pos)
repl
(if (null? rest)
#f
(loop rest))))))| Prev | Home | Next |
| parse-measurement | Up | repl-substring-list-target |
Copyright © 1997, 1998 Norman Walsh