Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

adding string-map & string-for-each, optimizing list->string & string->list

Browse source
This commit is contained in:
Alex Shinn 2011-03-21 15:23:53 +09:00
parent 017548cc46
commit 321bc8df56
1 changed files with 11 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lib/init.scm
View file

@ -358,17 +358,14 @@
(call-with-output-string (lambda (out) (write sym out))))
(define (list->string ls)
(let ((str (make-string (length ls) #\space)))
(let lp ((ls ls) (i 0))
(if (pair? ls)
(begin
(string-set! str i (car ls))
(lp (cdr ls) (+ i 1)))))
str))
(call-with-output-string
(lambda (out) (for-each (lambda (ch) (write-char ch out)) ls))))
(define (string->list str)
(let lp ((i (- (string-length str) 1)) (res '()))
(if (< i 0) res (lp (- i 1) (cons (string-ref str i) res)))))
(let lp ((i (string-cursor-prev str (string-cursor-end str))) (res '()))
(if (< i 0)
res
(lp (string-cursor-prev str i) (cons (string-cursor-ref str i) res)))))
(define (string-fill! str ch)
(let lp ((i (- (string-length str) 1)))
@ -390,6 +387,10 @@
(define (string-ci>? s1 s2) (> (string-cmp s1 s2 #t) 0))
(define (string-ci>=? s1 s2) (>= (string-cmp s1 s2 #t) 0))
(define (string-map proc . los)
(list->string (apply map (map string->list los))))
(define string-for-each string-map)
;; list utils
(define (eqv? a b) (if (eq? a b) #t (and (flonum? a) (flonum? b) (= a b))))
@ -896,5 +897,6 @@
(define string-cursor-end string-size))
(else
(define string-cursor-end string-length)
(define string-cursor-ref string-ref)
(define (string-cursor-next s i) (+ i 1))
(define (string-cursor-prev s i) (- i 1))))