gistfile1.erl

% Tail recursion
html_encode_utf8(<<>>, Acc) -> Acc;
html_encode_utf8(<<U,T/binary>>, Acc) when U =< 127 andalso U >= 0 ->
	R = case U of
		$& ->	<<"&amp;">>;
		$< ->	<<"&lt;">>;
		$> ->	<<"&gt;">>;
		$" ->	<<"&quot;">>;
		$' ->	<<"&#x27;">>;
		$/ ->	<<"&#x2F;">>;
		$\s ->	<<"&nbsp;">>;
		$\t ->	<<"&nbsp;&nbsp;&nbsp;&nbsp;">>;
		$\n ->	<<"<br/>">>;
		$\r ->	<<>>;
		_ -> <<U>>
	end,
	html_encode_utf8(T, <<Acc/binary,R/binary>>);
html_encode_utf8(<<U,T/binary>>, Acc) -> html_encode_utf8(T, <<Acc/binary,U>>).

html_encode_utf8(B) when is_binary(B) -> html_encode_utf8(B, <<>>);
html_encode_utf8(B) when is_list(B) -> html_encode_utf8(list_to_binary(B), <<>>).