diff options
Diffstat (limited to 'lib/csc/strings.csc')
| -rw-r--r-- | lib/csc/strings.csc | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lib/csc/strings.csc b/lib/csc/strings.csc index 255a2fd..373f9be 100644 --- a/lib/csc/strings.csc +++ b/lib/csc/strings.csc @@ -4,6 +4,7 @@ has-prefix? index join + last-index split str-quote) (import (scheme base) @@ -36,6 +37,13 @@ finally (return -1))) + (define (last-index s substr) + (loop for i downfrom (- (string-length s) (string-length substr)) to 0 + if (has-prefix? (string-copy s i) substr) + return i + finally (return -1))) + + (define (contains? s substr) (if (string=? "" substr) #t |