From 4fb8185bdc1e61232450680f6a27e443845bbdf0 Mon Sep 17 00:00:00 2001
From: Nikolay Puzanov <np@embddr.com>
Date: Thu, 2 Feb 2023 18:00:16 +0300
Subject: [PATCH] Add function for split of string by string delimiter

---
 embddr/common.scm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/embddr/common.scm b/embddr/common.scm
index 9e6bbf9..3a10a16 100644
--- a/embddr/common.scm
+++ b/embddr/common.scm
@@ -19,6 +19,7 @@
           has-duplicates? find-duplicates
           insert-between
           string-replace-text
+          string-split-str
           string-split-trim
           get-word
           substitute
@@ -220,6 +221,18 @@
            (substitute str template-format subst-list))
          ls)))
 
+;;; Split string by string delimiter
+(define (string-split-str str str_pred)
+  (if (string-null? str)
+      '()
+      (let ((didx (string-contains str str_pred)))
+        (if didx
+            (cons (substring str 0 didx)
+                  (string-split-str
+                   (substring str (+ didx (string-length str_pred)))
+                   str_pred))
+            (list str)))))
+
 ;;; Split string and remove empty itemes
 (define (string-split-trim str pred?)
   (remove string-null?