← Back to branch summary

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

« back to all changes in this revision

Viewing changes to lib/ssl/pkix/mk_ssl_pkix_oid.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/ssl/pkix/mk_ssl_pkix_oid.erl
35
35
    As = lists:zf(
36
36
           fun ({info, 0}) -> false;
37
37
               ({module_info, 0}) -> false;
38
 
               ({F, 0}) -> {true, F}; 
 
38
               ({encoding_rule, 0}) -> false;
 
39
               ({F, 0}) -> 
 
40
                   case atom_to_list(F) of
 
41
                   %% Remove upper-bound (ub-) functions
 
42
                       "ub-" ++ _Rest ->
 
43
                           false;
 
44
                       _ ->
 
45
                           {true, F}
 
46
                   end;
39
47
               (_) -> false 
40
48
           end, Exports),
41
49
    AIds = lists:map(fun(F) -> {F, M:F()} end, As),
44
52
modify_atoms(AIds) ->
45
53
    F = fun({A, I}) ->
46
54
                NAS = case atom_to_list(A) of
47
 
                          "id-ad-" ++ Rest ->
48
 
                              Rest;
49
 
                          "id-at-" ++ Rest ->
50
 
                              Rest;
51
 
                          "id-ce-" ++ Rest ->
52
 
                              Rest;
53
 
                          "id-kp-" ++ Rest ->
54
 
                              Rest;
55
 
                          "id-pe-" ++ Rest ->
56
 
                              Rest;
57
 
                          "id-pkix-" ++ Rest ->
58
 
                              Rest;
59
 
                          "id-qt-" ++ Rest ->
60
 
                              Rest;
61
55
                          "id-" ++ Rest ->
62
56
                              Rest;
63
57
                          Any ->
95
89
 
96
90
join(Sep, [H1, H2| T]) ->
97
91
    [H1, Sep| join(Sep, [H2| T])]; 
98
 
join(Sep, [H1]) ->
 
92
join(_Sep, [H1]) ->
99
93
    H1;
100
94
join(_, []) ->
101
95
    [].