[plt-scheme] help about regexp or read-line

Hello Matthew,

Friday, April 27, 2007, 11:44:19 AM, you wrote:

MF>  (define (regexp-match-string-positions rs port)
MF>    (let ([m (regexp-match-peek-positions rx port)])
MF>      (and 
MF>       m
MF>       (let ([start (bytes-utf-8-length (read-bytes (caar m) port))])
MF>         (list 
MF>          (cons start
MF>                (+ start 
MF>                   (bytes-utf-8-length 
MF>                    (read-bytes (- (cdar m) (caar m)) port)))))))))

MF> Matthew
 
Thanks.


-- 
Best regards,
 wwall                            mailto:wwall at yandex.ru