/todo_list.erl

https://github.com/martinjlogan/ErlangBootstrap · Erlang · 35 lines · 13 code · 5 blank · 17 comment · 0 complexity · 4a26d1cd030b768549c1982d463ed586 MD5 · raw file 

    

  1. %%%-------------------------------------------------------------------
    2. 

  2. %%% @author Martin Logan <martinjlogan@Macintosh-2.local>
    3. 

  3. %%% @copyright (C) 2011, Martin Logan
    4. 

  4. %%% @doc
    5. 

  5. %%%  
    6. 

  6. %%% @end
    7. 

  7. %%% Created : 11 Sep 2011 by Martin Logan <martinjlogan@Macintosh-2.local>
    8. 

  8. %%%-------------------------------------------------------------------
    9. 

  9. -module(todo_list).
    10. 

  10. 

  11. %% API
    12. 

  12. -export([write_todo/1, read_todo/0]).
    13. 

  13. 

  14. %%%===================================================================
    15. 

  15. %%% API
    16. 

  16. %%%===================================================================
    17. 

  17. 

  18. %% @doc write out a todo list
    19. 

  19. -type todo_list() :: [{non_neg_integer(), term()}].
    20. 

  20. -spec write_todo(todo_list()) -> ok.
    21. 

  21. write_todo(ToDo) ->
    22. 

  22.     file:write_file("todo.bin", term_to_binary(sort_todo(ToDo))).
    23. 

  23. 

  24. %% @doc read back out a todo list
    25. 

  25. -spec read_todo() -> list().
    26. 

  26. read_todo() ->
    27. 

  27.     {ok, Bin} = file:read_file("todo.bin"),
    28. 

  28.     binary_to_term(Bin).
    29. 

  29. 

  30. %%%===================================================================
    31. 

  31. %%% Internal functions
    32. 

  32. %%%===================================================================
    33. 

  33. sort_todo(ToDo) ->
    34. 

  34.     lists:sort(fun({P1, N1}, {P1, N2}) -> N1 < N2 end,
    35. 

  35. 	       ToDo).
    36.