PageRenderTime 33ms CodeModel.GetById 19ms RepoModel.GetById 0ms app.codeStats 0ms

/src/utils/ewgi_util_html.erl

http://github.com/skarab/ewgi
Erlang | 44 lines | 22 code | 7 blank | 15 comment | 0 complexity | c06da82f8999aee2e979b0bf62afd172 MD5 | raw file
Possible License(s): MPL-2.0-no-copyleft-exception 
    

  1. %% @author Hunter Morris <hunter.morris@smarkets.com>
    2. 

  2. %% @copyright 2009 Smarkets Limited.
    3. 

  3. %%
    4. 

  4. %% @doc Smak HTML utility methods.
    5. 

  5. %% @end
    6. 

  6. %%
    7. 

  7. %% Licensed under the MIT license:
    8. 

  8. %% http://www.opensource.org/licenses/mit-license.php
    9. 

  9. %%
    10. 

  10. %% Some code is based on the Python Paste Project which is copyright Ian
    11. 

  11. %% Bicking, Clark C. Evans, and contributors and released under the MIT
    12. 

  12. %% license. See: http://pythonpaste.org/
    13. 

  13. 

  14. -module(ewgi_util_html).
    15. 

  15. -author('Hunter Morris <hunter.morris@smarkets.com>').
    16. 

  16. 

  17. -export([escape/1]).
    18. 

  18. 

  19. -include("ewgi.hrl").
    20. 

  20. 

  21. %% @spec escape(binary() | string()) -> binary() | string()
    22. 

  22. %% @doc Replace the special characters '&lt;', '&gt;', '&amp;', and '&quot;'
    23. 

  23. %% to HTML entity sequences.
    24. 

  24. -spec(escape/1 :: (binary() | string()) -> binary() | string()).
    25. 

  25.              
    26. 

  26. escape(Bin) when is_binary(Bin) ->
    27. 

  27.     list_to_binary(escape(binary_to_list(Bin), []));
    28. 

  28. escape(S) when is_list(S) ->
    29. 

  29.     escape(S, []).
    30. 

  30. 

  31. -spec(escape/2 :: (string(), list()) -> string()).
    32. 

  32. 

  33. escape([], Acc) ->
    34. 

  34.     lists:reverse(Acc);
    35. 

  35. escape([$<|Rest], Acc) ->
    36. 

  36.     escape(Rest, lists:reverse("&lt;", Acc));
    37. 

  37. escape([$>|Rest], Acc) ->
    38. 

  38.     escape(Rest, lists:reverse("&gt;", Acc));
    39. 

  39. escape([$&|Rest], Acc) ->
    40. 

  40.     escape(Rest, lists:reverse("&amp;", Acc));
    41. 

  41. escape([$\"|Rest], Acc) ->
    42. 

  42.     escape(Rest, lists:reverse("&quot;", Acc));
    43. 

  43. escape([C|Rest], Acc) ->
    44. 

  44.     escape(Rest, [C|Acc]).
    45. 

  45.