46 lines
2.2 KiB
Scheme
46 lines
2.2 KiB
Scheme
#!r6rs
|
|
(library (srfi srfi-130)
|
|
(export
|
|
string-cursor? string-cursor-start string-cursor-end string-cursor-next
|
|
string-cursor-prev string-cursor-forward string-cursor-back string-cursor=?
|
|
string-cursor<? string-cursor>? string-cursor<=? string-cursor>=?
|
|
string-cursor-diff string-cursor->index string-index->cursor
|
|
|
|
string-null? string-every string-any
|
|
|
|
string-tabulate string-unfold string-unfold-right
|
|
|
|
string->list/cursors string->vector/cursors reverse-list->string
|
|
string-join
|
|
|
|
string-ref/cursor substring/cursors string-copy/cursors string-take
|
|
string-take-right string-drop string-drop-right string-pad string-pad-right
|
|
string-trim string-trim-right string-trim-both
|
|
|
|
string-prefix-length string-suffix-length string-prefix? string-suffix?
|
|
|
|
string-index string-index-right string-skip string-skip-right
|
|
string-contains string-contains-right
|
|
|
|
string-reverse string-concatenate string-concatenate-reverse string-fold
|
|
string-fold-right string-for-each-cursor string-replicate string-count
|
|
string-replace string-split string-filter string-remove)
|
|
(import (except (rnrs) string-copy)
|
|
(rename (only (srfi :13) string-copy
|
|
string-index string-index-right
|
|
string-contains string-filter string-replace
|
|
string-count string-fold-right string-fold
|
|
string-concatenate-reverse string-concatenate
|
|
string-reverse string-suffix? string-prefix?
|
|
string-suffix-length string-prefix-length
|
|
string-trim-both string-trim-right string-trim
|
|
string-pad-right string-pad string-drop-right
|
|
string-drop string-take-right string-take string-join
|
|
reverse-list->string string-unfold-right string-unfold
|
|
string-tabulate string-any string-every string-null?)
|
|
(string-index srfi-13:string-index)
|
|
(string-index-right srfi-13:string-index-right))
|
|
(only (srfi :1) last-pair)
|
|
(srfi private include))
|
|
(include/resolve ("srfi" "%3a130") "130.body.scm"))
|