Implemented memory

Not release ready:
 - Cannot forget things
 - Not documented in Readme

1 files changed, 21 insertions, 0 deletions

diff --git a/ExtraString.icl b/ExtraString.icl
new file mode 100644
index 0000000..740e8d2
--- /dev/null
+++ b/ExtraString.icl
@@ -0,0 +1,21 @@
+implementation module ExtraString
+
+import StdEnv
+
+matches :: !String !String -> Bool
+matches needle haystack = haystack % (0, size needle - 1) == needle
+
+skip :: !Int !String -> String
+skip i s = s % (i, size s - 1)
+
+join :: !String ![a] -> String | toString a
+join del [] = ""
+join del [s:ss] = toString s +++ del +++ join del ss
+
+:: TextColor = Red | Green | None
+
+color :: TextColor !String -> String
+color Red s   = "\x1B[31m" +++ s +++ "\x1B[0m"
+color Green s = "\x1B[32m" +++ s +++ "\x1B[0m"
+color None s  = "\x1B[0m" +++ s +++ "\x1B[0m"
+