Add a simple protocol helper

2013-05-27 02:18:25 +02:00
parent 523b20d70a
commit dacbbbc20e
1 changed files with 8 additions and 0 deletions
--- a/src/geef_pkt.erl
+++ b/src/geef_pkt.erl
@@ -0,0 +1,8 @@
+-module(geef_pkt).
+
+-export([line/1]).
+
+-spec line(iolist()) -> iolist().
+line(Text) ->
+    Prefix = io_lib:format("~4.16.0b", [iolist_size(Text) + 1]),
+    [Prefix, Text, "\n"].