From 2856828c645aa868f9a1caa439cab535427d1f58 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Wed, 2 Mar 2016 23:40:25 +0100
Subject: Implemented memory

Not release ready:
 - Cannot forget things
 - Not documented in Readme
---
 ExtraString.icl | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 ExtraString.icl

(limited to 'ExtraString.icl')

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"
+
-- 
cgit v1.2.3