refactoring protobuffs_compile to generate forms

src/forms_helper.erl

@@ -0,0 +1,87 @@
+-module(forms_helper).
+
+-export([
+	init_state/0,
+	new_line/0,
+	line/0,
+	append/1,
+	fetch/0,
+	io_format/2
+]).
+
+io_format(Format, Arg_Var_Name) ->
+	{call,new_line(),
+		{remote,line(),{atom,line(),io},{atom,line(),format}},
+		[{string,line(),Format}, {cons,line(),{var,line(),Arg_Var_Name},{nil,line()}}]}.
+
+init_state() ->
+	Pid1 = spawn_link(fun() -> line_num(1) end),
+	put(line_num_pid, Pid1),
+
+	Pid2 = spawn_link(fun() -> forms([]) end),
+	put(forms_pid, Pid2),
+
+	ok.
+
+new_line() ->
+	Pid = get(line_num_pid),
+	Pid ! {self(), new_line},
+	Line_Number1 =
+		receive
+			{Pid, Line_Number} -> Line_Number
+		after 1000 ->
+			0
+		end,
+	Line_Number1.
+
+line() ->
+	Pid = get(line_num_pid),
+	Pid ! {self(), line},
+	Line_Number1 =
+		receive
+			{Pid, Line_Number} -> Line_Number
+		after 1000 ->
+			0
+		end,
+	Line_Number1.
+
+append(Forms) ->
+	Pid = get(forms_pid),
+	Pid ! {self(), append, Forms},
+	receive
+		{Pid, ok} -> ok
+	after 1000 ->
+		error
+	end,
+	ok.
+
+fetch() ->
+	Pid = get(forms_pid),
+	Pid ! {self(), fetch},
+ 	Forms1 =
+		receive
+			{Pid, Forms} -> Forms
+		after 1000 ->
+			[]
+		end,
+	Forms1.
+
+line_num(Line_Number) ->
+	receive
+		{Pid, new_line} ->
+			Pid ! {self(), Line_Number+1},
+			line_num(Line_Number+1);
+		{Pid, line} ->
+			Pid ! {self(), Line_Number},
+			line_num(Line_Number)
+	end.
+
+forms(Forms) ->
+	receive
+		{Pid, append, New} ->
+			Pid ! {self(), ok},
+			forms(lists:reverse([New|lists:reverse(Forms)]));
+		{Pid, fetch} ->
+			Pid ! {self(), Forms},
+			forms(Forms)
+	end.