Merge pull request #543 from boriel/feature/update_libraries

Feature/update libraries

Author: boriel

src/arch/zx48k/library/lcase.bas

@@ -239,6 +239,71 @@ end function
 
 
 
+' ----------------------------------------------------------------
+' function ltrim(ByVal s$, rep$)
+'
+' Returns a copy of s$, removing all occurrences of rep$ on the
+' left side (beginning) of s$. For example:
+' ltrim(": Hello world", ": ") returns "Hello World"
+' ----------------------------------------------------------------
+function ltrim(ByVal s$, ByVal rep$) as String
+    DIM i as Uinteger = 0
+    DIM d, l2 as Uinteger
+    DIM l as Uinteger = len(rep$)
+
+    if not l then return s$
+
+    d = l - 1
+    l2 = len(s$)
+
+    while i < l2 and rep = s(i to i + d)
+        i = i + l
+    end while
+
+    return s$(i to)
+end function
+
+
+
+' ----------------------------------------------------------------
+' function rtrim(ByVal s$, rep$)
+'
+' Returns a copy of s$, removing all occurrences of rep$ on the
+' right side (ending) of s$. For example:
+' rtrim("Hello world. ", ". ") returns "Hello World"
+' ----------------------------------------------------------------
+function rtrim(ByVal s$, ByVal rep$) as String
+    DIM i as Integer
+    DIM d, l2 as Uinteger
+    DIM l as Uinteger = len(rep$)
+
+    l2 = len(s$)
+    if not l or l2 < l then return s$
+
+    d = l - 1
+    i = l2 - 1
+
+    while i >= d and rep = s(i - d to i)
+        i = i - l
+    end while
+
+    if i < 0 then return ""
+
+    return s$(to i)
+end function
+
+
+
+' ----------------------------------------------------------------
+' function trim(ByVal s$, rep$)
+'
+' Returns a copy of s$, removing all occurrences of rep$ on the
+' left and right side (ending) of s$. For example:
+' rtrim(";.;.Hello world;.;.", ";.") returns "Hello World"
+' ----------------------------------------------------------------
+function trim(ByVal s$, ByVal rep$) as String
+    return ltrim(rtrim(s$, rep$), rep$)
+end function
 
 #undef __MAX_LEN__
 

src/arch/zx48k/library/string.bas

@@ -239,6 +239,71 @@ end function
 
 
 
+' ----------------------------------------------------------------
+' function ltrim(ByVal s$, rep$)
+'
+' Returns a copy of s$, removing all occurrences of rep$ on the
+' left side (beginning) of s$. For example:
+' ltrim(": Hello world", ": ") returns "Hello World"
+' ----------------------------------------------------------------
+function ltrim(ByVal s$, ByVal rep$) as String
+    DIM i as Uinteger = 0
+    DIM d, l2 as Uinteger
+    DIM l as Uinteger = len(rep$)
+
+    if not l then return s$
+
+    d = l - 1
+    l2 = len(s$)
+
+    while i < l2 and rep = s(i to i + d)
+        i = i + l
+    end while
+
+    return s$(i to)
+end function
+
+
+
+' ----------------------------------------------------------------
+' function rtrim(ByVal s$, rep$)
+'
+' Returns a copy of s$, removing all occurrences of rep$ on the
+' right side (ending) of s$. For example:
+' rtrim("Hello world. ", ". ") returns "Hello World"
+' ----------------------------------------------------------------
+function rtrim(ByVal s$, ByVal rep$) as String
+    DIM i as Integer
+    DIM d, l2 as Uinteger
+    DIM l as Uinteger = len(rep$)
+
+    l2 = len(s$)
+    if not l or l2 < l then return s$
+
+    d = l - 1
+    i = l2 - 1
+
+    while i >= d and rep = s(i - d to i)
+        i = i - l
+    end while
+
+    if i < 0 then return ""
+
+    return s$(to i)
+end function
+
+
+
+' ----------------------------------------------------------------
+' function trim(ByVal s$, rep$)
+'
+' Returns a copy of s$, removing all occurrences of rep$ on the
+' left and right side (ending) of s$. For example:
+' rtrim(";.;.Hello world;.;.", ";.") returns "Hello World"
+' ----------------------------------------------------------------
+function trim(ByVal s$, ByVal rep$) as String
+    return ltrim(rtrim(s$, rep$), rep$)
+end function
 
 #undef __MAX_LEN__