From af1a266670d040d2f4083ff309d732d648afba2a Mon Sep 17 00:00:00 2001
From: Angelos Mouzakitis <a.mouzakitis@virtualopensystems.com>
Date: Tue, 10 Oct 2023 14:33:42 +0000
Subject: Add submodule dependency files

Change-Id: Iaf8d18082d3991dec7c0ebbea540f092188eb4ec
---
 roms/openbios/forth/lib/split.fs | 49 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)
 create mode 100644 roms/openbios/forth/lib/split.fs

(limited to 'roms/openbios/forth/lib/split.fs')

diff --git a/roms/openbios/forth/lib/split.fs b/roms/openbios/forth/lib/split.fs
new file mode 100644
index 000000000..1a7ac3a0a
--- /dev/null
+++ b/roms/openbios/forth/lib/split.fs
@@ -0,0 +1,49 @@
+\ implements split-before, split-after and left-split 
+\ as described in 4.3 (Path resolution)
+
+\ delimeter returned in R-string
+: split-before ( addr len delim -- addr-R len-R addr-L len-L ) 
+  0 rot dup >r 0 ?do
+    ( str char cnt R: len <sys> )
+    2 pick over + c@ 2 pick = if leave then
+    1+
+  loop
+  nip
+  2dup + r> 2 pick -
+  2swap
+;
+
+\ delimeter returned in L-string
+: split-after ( addr len delim -- addr-R len-R addr-L len-L ) 
+  over 1- rot dup >r 0 ?do
+    ( str char cnt R: len <sys> )
+    2 pick over + c@ 2 pick = if leave then
+    1-
+	loop
+  nip
+	dup 0 >= if 1+ else drop r@ then
+	2dup + r> 2 pick -
+  2swap
+;
+
+\ delimiter not returned
+: left-split ( addr len delim -- addr-R len-R addr-L len-L )
+  0 rot dup >r 0 ?do
+    ( str char cnt R: len <sys> )
+    2 pick i + c@ 2 pick = if leave then
+    1+
+  loop
+  nip
+  2dup + 1+ r> 2 pick -
+  dup if 1- then
+  2swap
+;
+
+\ delimiter not returned [THIS FUNCTION IS NOT NEEDED]
+: right-split ( addr len delim -- addr-R len-R addr-L len-L )
+	dup >r
+	split-after
+	dup if 2dup + 1-
+		c@ r@ = if 1- then then
+	r> drop
+;
-- 
cgit 1.2.3-korg