git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@45 9f8f72e9-4bf4-416e-b76e-7d4203597157

1 files changed, 32 insertions, 0 deletions

diff --git a/HsBot/Tools.hs b/HsBot/Tools.hs
new file mode 100644
index 0000000..6f66994
--- /dev/null
+++ b/HsBot/Tools.hs
@@ -0,0 +1,32 @@
+module HsBot.Tools where
+
+uniq :: (Eq a) => [a] -> [a]
+uniq list = 
+	let r = u' list 0                    
+            u' [] _ = []              
+  	    u' (x:list) n 
+		   | member x r n = u' list n 
+		   | otherwise = x:(u' list (n + 1))
+  	    member e list 0 = False
+  	    member y (x:list) n = x == y || member y list (n - 1)
+    in r
+
+split :: String -> Char -> [String]
+split [] delim = [""]
+split (c:cs) delim 
+      | c == delim = "" : rest
+   	| otherwise = (c : head rest) : tail rest
+   where rest = split cs delim
+
+empty :: String -> Bool
+empty str = length str == 0
+
+contains :: String -> Char -> Bool
+contains str char = takeWhile (/= char) str /= str
+
+isMultiline :: String -> Bool
+isMultiline str = contains str '\n'
+
+showL :: Show a => [a] -> [String]
+showL = map (\x -> show x ++ "\n")
+