← Back to branch summary

~ubuntu-branches/debian/squeeze/erlang/squeeze

« back to all changes in this revision

Viewing changes to lib/gs/contribs/cols/highscore.erl

  • Committer: Bazaar Package Importer
  • Author(s): Erlang Packagers, Sergei Golovan
  • Date: 2006-12-03 17:07:44 UTC
  • mfrom: (2.1.11 feisty)
  • Revision ID: james.westby@ubuntu.com-20061203170744-rghjwupacqlzs6kv
Tags: 1:11.b.2-4
[ Sergei Golovan ]
Fixed erlang-base and erlang-base-hipe prerm scripts.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/gs/contribs/cols/highscore.erl
52
52
read_scores(File) ->
53
53
    case file:read_file(File) of
54
54
        {ok, Bin} -> binary_to_term(Bin);
55
 
        {error, Reason} ->
 
55
        {error, _Reason} ->
56
56
            mk_empty_high(10)
57
57
    end.
58
58
 
59
59
mk_empty_high(0) -> [];
60
60
mk_empty_high(N) -> [{N,"Erlang"}|mk_empty_high(N-1)].
61
61
 
62
 
find_pos(NScore, N, []) -> false;
63
 
find_pos(NScore, N, [{Score, Name} | Scores]) when Score > NScore ->
 
62
find_pos(_NScore, _N, []) -> false;
 
63
find_pos(NScore, N, [{Score, _Name} | Scores]) when Score > NScore ->
64
64
    find_pos(NScore, N+1, Scores);
65
 
find_pos(NScore, N, _) -> N.
 
65
find_pos(_NScore, N, _) -> N.
66
66
 
67
67
write_scores(Scores,File) ->
68
68
    file:write_file(File, term_to_binary(Scores)).
81
81
                                ok
82
82
    end.
83
83
 
84
 
insert_scores(Grid,N,[]) ->
 
84
insert_scores(Grid,_N,[]) ->
85
85
    gs:create(gridline,Grid,[{row,1},{font,{screen,bold,12}},
86
86
                             {text,{1,"SCORE"}},{text,{2,"NAME"}}]);
87
87