SRFI-13

mes/module/mes/guile.mes

@@ -56,7 +56,6 @@
 
 (define (effective-version) %version)
 
-(mes-use-module (srfi srfi-13))
 (mes-use-module (mes catch))
 (mes-use-module (mes posix))
 (mes-use-module (srfi srfi-16))

mes/module/mes/posix.mes

@@ -1,7 +1,7 @@
 ;;; -*-scheme-*-
 
 ;;; GNU Mes --- Maxwell Equations of Software
-;;; Copyright © 2017 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
+;;; Copyright © 2017,2021 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
 ;;;
 ;;; This file is part of GNU Mes.
 ;;;
@@ -22,8 +22,6 @@
 
 ;;; Code:
 
-(mes-use-module (srfi srfi-13))
-
 (define R_OK 0)
 (define S_IRWXU #o700)
 

mes/module/mes/scm.mes

@@ -298,6 +298,25 @@
         (if (= 0 n) (list->string (append sign lst))
             (loop n lst))))))
 
+(define (string-index s pred . rest)
+  (let* ((start (and (pair? rest) (car rest)))
+         (end (and start (pair? (cdr rest)) (cadr rest)))
+         (pred (if (char? pred) (lambda (c) (eq? c pred)) pred)))
+    (if start (error "string-index: not supported: start=" start))
+    (if end (error "string-index: not supported: end=" end))
+    (let loop ((lst (string->list s)) (i 0))
+      (if (null? lst) #f
+          (if (pred (car lst)) i
+              (loop (cdr lst) (1+ i)))))))
+
+(define (string-split s c)
+  (let loop ((lst (string->list s)) (result '()))
+    (let ((rest (memq c lst)))
+      (if (not rest) (append result (list (list->string lst)))
+          (loop (cdr rest)
+                (append result
+                        (list (list->string (list-head lst (- (length lst) (length rest)))))))))))
+
 
 ;;; Symbols
 (define (symbol-prefix? prefix symbol)