Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-12 23:47:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Adding string-find? utility.

Browse source
This commit is contained in:
Alex Shinn 2013-08-04 15:22:53 +09:00
parent a6350e929e
commit 3193dcb650
2 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lib/chibi/string.scm
View file

@ -37,6 +37,13 @@
((pred (string-cursor-ref str i)) i) ((pred (string-cursor-ref str i)) i)
(else (lp (string-cursor-next str i))))))) (else (lp (string-cursor-next str i)))))))
(define (string-find? str x . o)
(let ((start (if (pair? o) (car o) (string-cursor-start str)))
(end (if (and (pair? o) (pair? (cdr o)))
(cadr o)
(string-cursor-end str))))
(< (string-find str x start end) end)))
(define (string-find-right str x . o) (define (string-find-right str x . o)
(let ((pred (make-char-predicate x)) (let ((pred (make-char-predicate x))
(start (if (pair? o) (car o) (string-cursor-start str)))) (start (if (pair? o) (car o) (string-cursor-start str))))

2
lib/chibi/string.sld
View file

@ -8,7 +8,7 @@
string-trim string-trim-left string-trim-right string-trim string-trim-left string-trim-right
string-mismatch string-mismatch-right string-mismatch string-mismatch-right
string-prefix? string-suffix? string-prefix? string-suffix?
string-find string-find-right string-skip string-skip-right string-find string-find-right string-find? string-skip string-skip-right
string-fold string-fold-right string-map string-for-each string-fold string-fold-right string-map string-for-each
string-contains make-string-searcher string-contains make-string-searcher
string-downcase-ascii string-upcase-ascii) string-downcase-ascii string-upcase-ascii)