regexp/match/search.rkt

2 (require "../common/range.rkt"
14 (define (search-match rx in pos start-pos end-pos state)
15   (define must-string (rx:regexp-must-string rx))
20     (define matcher (rx:regexp-matcher rx))
21     (define anchored? (rx:regexp-anchored? rx))
22     (define start-range (rx:regexp-start-range rx))
27        [(and start-range
32        [(and start-range
33              (not (check-start-range start-range in pos end-pos)))
39          [start-range (loop (add1 pos))]
67       (for/or ([i (in-range pos (- end-pos (sub1 (bytes-length must-string))))])
74     (for/or ([i (in-range pos (- end-pos (sub1 (length must-string))))])
87 (define (check-start-range start-range in pos end-pos)
88   (rng-in? start-range