← Back to branch summary

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

« back to all changes in this revision

Viewing changes to lib/stdlib/src/otp_internal.erl

  • Committer: Bazaar Package Importer
  • Author(s): Sergei Golovan
  • Date: 2009-02-15 16:42:52 UTC
  • mfrom: (1.1.13 upstream)
  • Revision ID: james.westby@ubuntu.com-20090215164252-dxpjjuq108nz4noa
Tags: 1:12.b.5-dfsg-2
Upload to unstable after lenny is released.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/stdlib/src/otp_internal.erl
19
19
 
20
20
-export([obsolete/3]).
21
21
 
22
 
 
23
 
%% obsolete(Module, Name, Arity) ->
24
 
%%   no | {Tag,ReplacementMFA,Release} | {Tag,String}
25
 
%%   Tag = deprecated | removed | experimental
26
 
%%   ReplacementMFA = {atom(),atom(),integer()}
27
 
%%   Release = string()
28
 
 
29
 
obsolete(Mod, Name, Arity) ->
30
 
    case obsolete_1(Mod, Name, Arity) of
 
22
%%----------------------------------------------------------------------
 
23
 
 
24
-type tag()     :: 'deprecated' | 'removed'. %% | 'experimental'.
 
25
-type mfas()    :: mfa() | {atom(), atom(), [byte()]}.
 
26
-type release() :: string().
 
27
 
 
28
-spec obsolete(atom(), atom(), byte()) ->
 
29
        'no' | {tag(), string()} | {tag(), mfas(), release()}.
 
30
 
 
31
obsolete(Module, Name, Arity) ->
 
32
    case obsolete_1(Module, Name, Arity) of
31
33
        {deprecated=Tag,{_,_,_}=Replacement} ->
32
34
            {Tag,Replacement,"in a future release"};
33
35
        {_,String}=Ret when is_list(String) ->
136
138
    {removed, {ets, safe_fixtable, 2}, "R12B"};
137
139
 
138
140
obsolete_1(erlang, old_binary_to_term, 1) ->
139
 
    {removed, "deprecated BIF", "R12B"};
 
141
    {removed, {erlang, binary_to_term, 1}, "R12B"};
140
142
obsolete_1(erlang, info, 1) ->
141
143
    {removed, {erlang, system_info, 1}, "R12B"};
142
144
obsolete_1(erlang, hash, 2) ->
263
265
obsolete_1(ftp, close, 1)         -> {deprecated,{inets,stop,2},"R14B"};
264
266
obsolete_1(ftp, force_active, 1)  -> {deprecated,{inets,start,[2,3]},"R14B"};
265
267
 
 
268
%% Added in R12B-4.
 
269
obsolete_1(ssh_cm, connect, A) when 1 =< A, A =< 3 ->
 
270
    {deprecated,{ssh,connect,A},"R14B"};
 
271
obsolete_1(ssh_cm, listen, A) when 2 =< A, A =< 4 ->
 
272
    {deprecated,{ssh,daemon,A},"R14B"};
 
273
obsolete_1(ssh_cm, stop_listener, 1) ->
 
274
    {deprecated,{ssh,stop_listener,[1,2]},"R14B"};
 
275
obsolete_1(ssh_cm, session_open, A) when A =:= 2; A =:= 4 ->
 
276
    {deprecated,{ssh_connection,session_channel,A},"R14B"};
 
277
obsolete_1(ssh_cm, direct_tcpip, A) when A =:= 6; A =:= 8 ->
 
278
    {deprecated,{ssh_connection,direct_tcpip,A}};
 
279
obsolete_1(ssh_cm, tcpip_forward, 3) ->
 
280
    {deprecated,{ssh_connection,tcpip_forward,3},"R14B"};
 
281
obsolete_1(ssh_cm, cancel_tcpip_forward, 3) ->
 
282
    {deprecated,{ssh_connection,cancel_tcpip_forward,3},"R14B"};
 
283
obsolete_1(ssh_cm, open_pty, A) when A =:= 3; A =:= 7; A =:= 9 ->
 
284
    {deprecated,{ssh_connection,open_pty,A},"R14"};
 
285
obsolete_1(ssh_cm, setenv, 5) ->
 
286
    {deprecated,{ssh_connection,setenv,5},"R14B"};
 
287
obsolete_1(ssh_cm, shell, 2) ->
 
288
    {deprecated,{ssh_connection,shell,2},"R14B"};
 
289
obsolete_1(ssh_cm, exec, 4) ->
 
290
    {deprecated,{ssh_connection,exec,4},"R14B"};
 
291
obsolete_1(ssh_cm, subsystem, 4) ->
 
292
    {deprecated,{ssh_connection,subsystem,4},"R14B"};
 
293
obsolete_1(ssh_cm, winch, A) when A =:= 4; A =:= 6 ->
 
294
    {deprecated,{ssh_connection,window_change,A},"R14B"};
 
295
obsolete_1(ssh_cm, signal, 3) ->
 
296
    {deprecated,{ssh_connection,signal,3},"R14B"};
 
297
obsolete_1(ssh_cm, attach, A) when A =:= 2; A =:= 3 ->
 
298
    {deprecated,{ssh,attach,A}};
 
299
obsolete_1(ssh_cm, detach, 2) ->
 
300
    {deprecated,"no longer useful; will be removed in R14B"};
 
301
obsolete_1(ssh_cm, set_user_ack, 4) ->
 
302
    {deprecated,"no longer useful; will be removed in R14B"};
 
303
obsolete_1(ssh_cm, adjust_window, 3) ->
 
304
    {deprecated,{ssh_connection,adjust_window,3},"R14B"};
 
305
obsolete_1(ssh_cm, close, 2) ->
 
306
    {deprecated,{ssh_connection,close,2},"R14B"};
 
307
obsolete_1(ssh_cm, stop, 1) ->
 
308
    {deprecated,{ssh,close,1},"R14B"};
 
309
obsolete_1(ssh_cm, send_eof, 2) ->
 
310
    {deprecated,{ssh_connection,send_eof,2},"R14B"};
 
311
obsolete_1(ssh_cm, send, A) when A =:= 3; A =:= 4 ->
 
312
    {deprecated,{ssh_connection,send,A},"R14B"};
 
313
obsolete_1(ssh_cm, send_ack, A) when 3 =< A, A =< 5 ->
 
314
    {deprecated,{ssh_connection,send,[3,4]},"R14B"};
 
315
obsolete_1(ssh_ssh, connect, A) when 1 =< A, 3 =< 3 ->
 
316
    {deprecated,{ssh,shell,A},"R14B"};
 
317
obsolete_1(ssh_sshd, listen, A) when 0 =< A, A =< 3 ->
 
318
    {deprecated,{ssh,daemon,[1,2,3]},"R14"};
 
319
obsolete_1(ssh_sshd, stop, 1) ->
 
320
    {deprecated,{ssh,stop_listener,1}};
 
321
 
266
322
obsolete_1(_, _, _) ->
267
323
    no.
268
324
 
 
325
 
 
326
-spec is_snmp_agent_function(atom(), byte()) -> bool().
 
327
 
269
328
is_snmp_agent_function(c,                     1) -> true;
270
329
is_snmp_agent_function(c,                     2) -> true;
271
330
is_snmp_agent_function(compile,               3) -> true;