From cee49dd68d6fde2ca27b65bb1b15fbcd58d7beb2 Mon Sep 17 00:00:00 2001
From: niamtokik <github@steepath.eu>
Date: Fri, 19 Mar 2021 15:55:46 +0000
Subject: [PATCH] init

---
 src/redis.erl | 45 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 src/redis.erl

diff --git a/src/redis.erl b/src/redis.erl
new file mode 100644
index 0000000..45f457f
--- /dev/null
+++ b/src/redis.erl
@@ -0,0 +1,45 @@
+-module(redis).
+-compile(export_all).
+-include_lib("eunit/include/eunit.hrl").
+
+-type resp_type() :: simple_string | error | integer | bulk_string | array.
+-type resp_simple_string() :: {simple_string, bitstring()}.
+-type resp_error() :: {error, bitstring()}.
+-type resp_integer() :: {integer, integer()}.
+-type resp_bulk_string() :: {bulk_string, bitstring()}.
+-type resp_types() :: resp_simple_string() |
+                      resp_integer() |
+                      resp_bulk_string().
+                      
+-type resp_array() :: {array, [resp_types()]}.
+
+
+-spec resp(Rest) -> Return when
+      Rest :: resp(),
+      Return :: bitstring().
+resp(simple_string) -> <<"+">>;
+resp(error) -> <<"-">>;
+resp(integer) -> <<":">>;
+resp(bulk_string) -> <<"$">>;
+resp(array) -> <<"*">>.
+
+
+
+ok() ->
+    <<"+OK\r\n">>.
+
+error(Message) ->
+    <<"-ERR ", Message, "\r\n">>.
+
+wrongtype(Message) ->
+    <<"-WRONGTYPE ", Message, "\r\n">>.
+
+string(String) ->
+    Length = erlang:size(String),
+    LengthStr = erlang:integer_to_binary(Length),
+    case Length of
+        0 -> <<"$0\r\n\r\n">>;
+        _ -> <<"$", LengthStr, "\r\n", String, "\r\n">>
+    end.
+
+