diff options
Diffstat (limited to 'lib/stdlib/src/otp_internal.erl')
| -rw-r--r-- | lib/stdlib/src/otp_internal.erl | 384 |
1 files changed, 384 insertions, 0 deletions
diff --git a/lib/stdlib/src/otp_internal.erl b/lib/stdlib/src/otp_internal.erl new file mode 100644 index 0000000000..3df6f4bb90 --- /dev/null +++ b/lib/stdlib/src/otp_internal.erl @@ -0,0 +1,384 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 1999-2009. All Rights Reserved. +%% +%% The contents of this file are subject to the Erlang Public License, +%% Version 1.1, (the "License"); you may not use this file except in +%% compliance with the License. You should have received a copy of the +%% Erlang Public License along with this software. If not, it can be +%% retrieved online at http://www.erlang.org/. +%% +%% Software distributed under the License is distributed on an "AS IS" +%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See +%% the License for the specific language governing rights and limitations +%% under the License. +%% +%% %CopyrightEnd% +%% +-module(otp_internal). + +-export([obsolete/3]). + +%%---------------------------------------------------------------------- + +-type tag() :: 'deprecated' | 'removed'. %% | 'experimental'. +-type mfas() :: mfa() | {atom(), atom(), [byte()]}. +-type release() :: string(). + +-spec obsolete(atom(), atom(), byte()) -> + 'no' | {tag(), string()} | {tag(), mfas(), release()}. + +obsolete(Module, Name, Arity) -> + case obsolete_1(Module, Name, Arity) of + {deprecated=Tag,{_,_,_}=Replacement} -> + {Tag,Replacement,"in a future release"}; + {_,String}=Ret when is_list(String) -> + Ret; + {_,_,_}=Ret -> + Ret; + no -> + no + end. + +obsolete_1(init, get_flag, 1) -> + {removed, {init, get_argument, 1}, "R12B"}; +obsolete_1(init, get_flags, 0) -> + {removed, {init, get_arguments, 0}, "R12B"}; +obsolete_1(init, get_args, 0) -> + {removed, {init, get_plain_arguments, 0}, "R12B"}; +obsolete_1(unix, cmd, 1) -> + {removed, {os,cmd,1}, "R9B"}; + +obsolete_1(net, _, _) -> + {deprecated, "module 'net' obsolete; use 'net_adm'"}; + +obsolete_1(erl_internal, builtins, 0) -> + {deprecated, {erl_internal, bif, 2}}; + +obsolete_1(string, re_sh_to_awk, 1) -> + {removed, {regexp, sh_to_awk, 1}, "R12B"}; +obsolete_1(string, re_parse, 1) -> + {removed, {regexp, parse, 1}, "R12B"}; +obsolete_1(string, re_match, 2) -> + {removed, {regexp, match, 2}, "R12B"}; +obsolete_1(string, re_sub, 3) -> + {removed, {regexp, sub, 3}, "R12B"}; +obsolete_1(string, re_gsub, 3) -> + {removed, {regexp, gsub, 3}, "R12B"}; +obsolete_1(string, re_split, 2) -> + {removed, {regexp, split, 2}, "R12B"}; + +obsolete_1(string, index, 2) -> + {removed, {string, str, 2}, "R12B"}; + +obsolete_1(erl_eval, seq, 2) -> + {deprecated, {erl_eval, exprs, 2}}; +obsolete_1(erl_eval, seq, 3) -> + {deprecated, {erl_eval, exprs, 3}}; +obsolete_1(erl_eval, arg_list, 2) -> + {deprecated, {erl_eval, expr_list, 2}}; +obsolete_1(erl_eval, arg_list, 3) -> + {deprecated, {erl_eval, expr_list, 3}}; + +obsolete_1(erl_pp, seq, 1) -> + {removed, {erl_pp, exprs, 1}, "R12B"}; +obsolete_1(erl_pp, seq, 2) -> + {removed, {erl_pp, exprs, 2}, "R12B"}; + +obsolete_1(io, scan_erl_seq, 1) -> + {removed, {io, scan_erl_exprs, 1}, "R12B"}; +obsolete_1(io, scan_erl_seq, 2) -> + {removed, {io, scan_erl_exprs, 2}, "R12B"}; +obsolete_1(io, scan_erl_seq, 3) -> + {removed, {io, scan_erl_exprs, 3}, "R12B"}; +obsolete_1(io, parse_erl_seq, 1) -> + {removed, {io, parse_erl_exprs, 1}, "R12B"}; +obsolete_1(io, parse_erl_seq, 2) -> + {removed, {io, parse_erl_exprs, 2}, "R12B"}; +obsolete_1(io, parse_erl_seq, 3) -> + {removed, {io, parse_erl_exprs, 3}, "R12B"}; +obsolete_1(io, parse_exprs, 2) -> + {removed, {io, parse_erl_exprs, 2}, "R12B"}; + +obsolete_1(io_lib, scan, 1) -> + {removed, {erl_scan, string, 1}, "R12B"}; +obsolete_1(io_lib, scan, 2) -> + {removed, {erl_scan, string, 2}, "R12B"}; +obsolete_1(io_lib, scan, 3) -> + {removed, {erl_scan, tokens, 3}, "R12B"}; +obsolete_1(io_lib, reserved_word, 1) -> + {removed, {erl_scan, reserved_word, 1}, "R12B"}; + +obsolete_1(lists, keymap, 4) -> + {removed, {lists, keymap, 3}, "R12B"}; +obsolete_1(lists, all, 3) -> + {removed, {lists, all, 2}, "R12B"}; +obsolete_1(lists, any, 3) -> + {removed, {lists, any, 2}, "R12B"}; +obsolete_1(lists, map, 3) -> + {removed, {lists, map, 2}, "R12B"}; +obsolete_1(lists, flatmap, 3) -> + {removed, {lists, flatmap, 2}, "R12B"}; +obsolete_1(lists, foldl, 4) -> + {removed, {lists, foldl, 3}, "R12B"}; +obsolete_1(lists, foldr, 4) -> + {removed, {lists, foldr, 3}, "R12B"}; +obsolete_1(lists, mapfoldl, 4) -> + {removed, {lists, mapfoldl, 3}, "R12B"}; +obsolete_1(lists, mapfoldr, 4) -> + {removed, {lists, mapfoldr, 3}, "R12B"}; +obsolete_1(lists, filter, 3) -> + {removed, {lists, filter, 2}, "R12B"}; +obsolete_1(lists, foreach, 3) -> + {removed, {lists, foreach, 2}, "R12B"}; +obsolete_1(lists, zf, 3) -> + {removed, {lists, zf, 2}, "R12B"}; + +obsolete_1(ets, fixtable, 2) -> + {removed, {ets, safe_fixtable, 2}, "R12B"}; + +obsolete_1(erlang, old_binary_to_term, 1) -> + {removed, {erlang, binary_to_term, 1}, "R12B"}; +obsolete_1(erlang, info, 1) -> + {removed, {erlang, system_info, 1}, "R12B"}; +obsolete_1(erlang, hash, 2) -> + {deprecated, {erlang, phash2, 2}}; + +obsolete_1(file, file_info, 1) -> + {removed, {file, read_file_info, 1}, "R12B"}; + +obsolete_1(dict, dict_to_list, 1) -> + {removed, {dict,to_list,1}, "R12B"}; +obsolete_1(dict, list_to_dict, 1) -> + {removed, {dict,from_list,1}, "R12B"}; +obsolete_1(orddict, dict_to_list, 1) -> + {removed, {orddict,to_list,1}, "R12B"}; +obsolete_1(orddict, list_to_dict, 1) -> + {removed, {orddict,from_list,1}, "R12B"}; + +obsolete_1(sets, new_set, 0) -> + {removed, {sets, new, 0}, "R12B"}; +obsolete_1(sets, set_to_list, 1) -> + {removed, {sets, to_list, 1}, "R12B"}; +obsolete_1(sets, list_to_set, 1) -> + {removed, {sets, from_list, 1}, "R12B"}; +obsolete_1(sets, subset, 2) -> + {removed, {sets, is_subset, 2}, "R12B"}; +obsolete_1(ordsets, new_set, 0) -> + {removed, {ordsets, new, 0}, "R12B"}; +obsolete_1(ordsets, set_to_list, 1) -> + {removed, {ordsets, to_list, 1}, "R12B"}; +obsolete_1(ordsets, list_to_set, 1) -> + {removed, {ordsets, from_list, 1}, "R12B"}; +obsolete_1(ordsets, subset, 2) -> + {removed, {ordsets, is_subset, 2}, "R12B"}; + +obsolete_1(calendar, local_time_to_universal_time, 1) -> + {deprecated, {calendar, local_time_to_universal_time_dst, 1}}; + +obsolete_1(rpc, safe_multi_server_call, A) when A =:= 2; A =:= 3 -> + {deprecated, {rpc, multi_server_call, A}}; + +obsolete_1(snmp, N, A) -> + case is_snmp_agent_function(N, A) of + false -> + no; + true -> + {deprecated,"Deprecated; use snmpa:"++atom_to_list(N)++"/"++ + integer_to_list(A)++" instead"} + end; + +obsolete_1(megaco, format_versions, 1) -> + {deprecated, "Deprecated; use megaco:print_version_info/0,1 instead"}; + +obsolete_1(os_mon_mib, init, 1) -> + {deprecated, {os_mon_mib, load, 1}}; +obsolete_1(os_mon_mib, stop, 1) -> + {deprecated, {os_mon_mib, unload, 1}}; + +obsolete_1(auth, is_auth, 1) -> + {deprecated, {net_adm, ping, 1}}; +obsolete_1(auth, cookie, 0) -> + {deprecated, {erlang, get_cookie, 0}}; +obsolete_1(auth, cookie, 1) -> + {deprecated, {erlang, set_cookie, 2}}; +obsolete_1(auth, node_cookie, 1) -> + {deprecated, "Deprecated; use erlang:set_cookie/2 and net_adm:ping/1 instead"}; +obsolete_1(auth, node_cookie, 2) -> + {deprecated, "Deprecated; use erlang:set_cookie/2 and net_adm:ping/1 instead"}; + +%% Added in R11B-5. +obsolete_1(http_base_64, _, _) -> + {removed, "The http_base_64 module was removed in R12B; use the base64 module instead"}; +obsolete_1(httpd_util, encode_base64, 1) -> + {removed, "Removed in R12B; use one of the encode functions in the base64 module instead"}; +obsolete_1(httpd_util, decode_base64, 1) -> + {removed, "Removed in R12B; use one of the decode functions in the base64 module instead"}; +obsolete_1(httpd_util, to_upper, 1) -> + {removed, {string, to_upper, 1}, "R12B"}; +obsolete_1(httpd_util, to_lower, 1) -> + {removed, {string, to_lower, 1}, "R12B"}; +obsolete_1(erlang, is_constant, 1) -> + {removed, "Removed in R13B"}; + +%% Added in R12B-0. +obsolete_1(ssl, port, 1) -> + {removed, {ssl, sockname, 1}, "R13B"}; +obsolete_1(ssl, accept, A) when A =:= 1; A =:= 2 -> + {removed, "deprecated; use ssl:transport_accept/1,2 and ssl:ssl_accept/1,2"}; +obsolete_1(erlang, fault, 1) -> + {removed, {erlang,error,1}, "R13B"}; +obsolete_1(erlang, fault, 2) -> + {removed, {erlang,error,2}, "R13B"}; + +%% Added in R12B-2. +obsolete_1(file, rawopen, 2) -> + {removed, "deprecated (will be removed in R13B); use file:open/2 with the raw option"}; + +obsolete_1(httpd, start, 0) -> {deprecated,{inets,start,[2,3]},"R14B"}; +obsolete_1(httpd, start, 1) -> {deprecated,{inets,start,[2,3]},"R14B"}; +obsolete_1(httpd, start_link, 1) -> {deprecated,{inets,start,[2,3]},"R14B"}; +obsolete_1(httpd, start_child, 0) -> {deprecated,{inets,start,[2,3]},"R14B"}; +obsolete_1(httpd, start_child, 1) -> {deprecated,{inets,start,[2,3]},"R14B"}; +obsolete_1(httpd, stop, 0) -> {deprecated,{inets,stop,2},"R14B"}; +obsolete_1(httpd, stop, 1) -> {deprecated,{inets,stop,2},"R14B"}; +obsolete_1(httpd, stop, 2) -> {deprecated,{inets,stop,2},"R14B"}; +obsolete_1(httpd, stop_child, 0) -> {deprecated,{inets,stop,2},"R14B"}; +obsolete_1(httpd, stop_child, 1) -> {deprecated,{inets,stop,2},"R14B"}; +obsolete_1(httpd, stop_child, 2) -> {deprecated,{inets,stop,2},"R14B"}; +obsolete_1(httpd, restart, 0) -> {deprecated,{httpd,reload_config,2},"R14B"}; +obsolete_1(httpd, restart, 1) -> {deprecated,{httpd,reload_config,2},"R14B"}; +obsolete_1(httpd, restart, 2) -> {deprecated,{httpd,reload_config,2},"R14B"}; +obsolete_1(httpd, block, 0) -> {deprecated,{httpd,reload_config,2},"R14B"}; +obsolete_1(httpd, block, 1) -> {deprecated,{httpd,reload_config,2},"R14B"}; +obsolete_1(httpd, block, 2) -> {deprecated,{httpd,reload_config,2},"R14B"}; +obsolete_1(httpd, block, 3) -> {deprecated,{httpd,reload_config,2},"R14B"}; +obsolete_1(httpd, block, 4) -> {deprecated,{httpd,reload_config,2},"R14B"}; +obsolete_1(httpd, unblock, 0) -> {deprecated,{httpd,reload_config,2},"R14B"}; +obsolete_1(httpd, unblock, 1) -> {deprecated,{httpd,reload_config,2},"R14B"}; +obsolete_1(httpd, unblock, 2) -> {deprecated,{httpd,reload_config,2},"R14B"}; +obsolete_1(httpd_util, key1search, 2) -> {removed,{proplists,get_value,2},"R13B"}; +obsolete_1(httpd_util, key1search, 3) -> {removed,{proplists,get_value,3},"R13B"}; +obsolete_1(ftp, open, 3) -> {deprecated,{inets,start,[2,3]},"R14B"}; +obsolete_1(ftp, force_active, 1) -> {deprecated,{inets,start,[2,3]},"R14B"}; + +%% Added in R12B-4. +obsolete_1(ssh_cm, connect, A) when 1 =< A, A =< 3 -> + {deprecated,{ssh,connect,A},"R14B"}; +obsolete_1(ssh_cm, listen, A) when 2 =< A, A =< 4 -> + {deprecated,{ssh,daemon,A},"R14B"}; +obsolete_1(ssh_cm, stop_listener, 1) -> + {deprecated,{ssh,stop_listener,[1,2]},"R14B"}; +obsolete_1(ssh_cm, session_open, A) when A =:= 2; A =:= 4 -> + {deprecated,{ssh_connection,session_channel,A},"R14B"}; +obsolete_1(ssh_cm, direct_tcpip, A) when A =:= 6; A =:= 8 -> + {deprecated,{ssh_connection,direct_tcpip,A}}; +obsolete_1(ssh_cm, tcpip_forward, 3) -> + {deprecated,{ssh_connection,tcpip_forward,3},"R14B"}; +obsolete_1(ssh_cm, cancel_tcpip_forward, 3) -> + {deprecated,{ssh_connection,cancel_tcpip_forward,3},"R14B"}; +obsolete_1(ssh_cm, open_pty, A) when A =:= 3; A =:= 7; A =:= 9 -> + {deprecated,{ssh_connection,open_pty,A},"R14"}; +obsolete_1(ssh_cm, setenv, 5) -> + {deprecated,{ssh_connection,setenv,5},"R14B"}; +obsolete_1(ssh_cm, shell, 2) -> + {deprecated,{ssh_connection,shell,2},"R14B"}; +obsolete_1(ssh_cm, exec, 4) -> + {deprecated,{ssh_connection,exec,4},"R14B"}; +obsolete_1(ssh_cm, subsystem, 4) -> + {deprecated,{ssh_connection,subsystem,4},"R14B"}; +obsolete_1(ssh_cm, winch, A) when A =:= 4; A =:= 6 -> + {deprecated,{ssh_connection,window_change,A},"R14B"}; +obsolete_1(ssh_cm, signal, 3) -> + {deprecated,{ssh_connection,signal,3},"R14B"}; +obsolete_1(ssh_cm, attach, A) when A =:= 2; A =:= 3 -> + {deprecated,{ssh,attach,A}}; +obsolete_1(ssh_cm, detach, 2) -> + {deprecated,"no longer useful; will be removed in R14B"}; +obsolete_1(ssh_cm, set_user_ack, 4) -> + {deprecated,"no longer useful; will be removed in R14B"}; +obsolete_1(ssh_cm, adjust_window, 3) -> + {deprecated,{ssh_connection,adjust_window,3},"R14B"}; +obsolete_1(ssh_cm, close, 2) -> + {deprecated,{ssh_connection,close,2},"R14B"}; +obsolete_1(ssh_cm, stop, 1) -> + {deprecated,{ssh,close,1},"R14B"}; +obsolete_1(ssh_cm, send_eof, 2) -> + {deprecated,{ssh_connection,send_eof,2},"R14B"}; +obsolete_1(ssh_cm, send, A) when A =:= 3; A =:= 4 -> + {deprecated,{ssh_connection,send,A},"R14B"}; +obsolete_1(ssh_cm, send_ack, A) when 3 =< A, A =< 5 -> + {deprecated,{ssh_connection,send,[3,4]},"R14B"}; +obsolete_1(ssh_ssh, connect, A) when 1 =< A, A =< 3 -> + {deprecated,{ssh,shell,A},"R14B"}; +obsolete_1(ssh_sshd, listen, A) when 0 =< A, A =< 3 -> + {deprecated,{ssh,daemon,[1,2,3]},"R14"}; +obsolete_1(ssh_sshd, stop, 1) -> + {deprecated,{ssh,stop_listener,1}}; + +%% Added in R13A. +obsolete_1(regexp, _, _) -> + {deprecated, "the regexp module is deprecated (will be removed in R15A); use the re module instead"}; + +obsolete_1(lists, flat_length, 1) -> + {deprecated,{lists,flatlength,1},"R14"}; + +obsolete_1(ssh_sftp, connect, A) when 1 =< A, A =< 3 -> + {deprecated,{ssh_sftp,start_channel,A},"R14B"}; +obsolete_1(ssh_sftp, stop, 1) -> + {deprecated,{ssh_sftp,stop_channel,1},"R14B"}; + +%% Added in R13B01. +obsolete_1(ssl_pkix, decode_cert_file, A) when A =:= 1; A =:= 2 -> + {deprecated,"deprecated (will be removed in R14B); use public_key:pem_to_der/1 and public_key:pkix_decode_cert/2 instead"}; +obsolete_1(ssl_pkix, decode_cert, A) when A =:= 1; A =:= 2 -> + {deprecated,{public_key,pkix_decode_cert,2},"R14B"}; + +obsolete_1(_, _, _) -> + no. + + +-spec is_snmp_agent_function(atom(), byte()) -> boolean(). + +is_snmp_agent_function(c, 1) -> true; +is_snmp_agent_function(c, 2) -> true; +is_snmp_agent_function(compile, 3) -> true; +is_snmp_agent_function(is_consistent, 1) -> true; +is_snmp_agent_function(mib_to_hrl, 1) -> true; +is_snmp_agent_function(change_log_size, 1) -> true; +is_snmp_agent_function(log_to_txt, 2) -> true; +is_snmp_agent_function(log_to_txt, 3) -> true; +is_snmp_agent_function(log_to_txt, 4) -> true; +is_snmp_agent_function(current_request_id, 0) -> true; +is_snmp_agent_function(current_community, 0) -> true; +is_snmp_agent_function(current_address, 0) -> true; +is_snmp_agent_function(current_context, 0) -> true; +is_snmp_agent_function(current_net_if_data, 0) -> true; +is_snmp_agent_function(get_symbolic_store_db, 0) -> true; +is_snmp_agent_function(name_to_oid, 1) -> true; +is_snmp_agent_function(name_to_oid, 2) -> true; +is_snmp_agent_function(oid_to_name, 1) -> true; +is_snmp_agent_function(oid_to_name, 2) -> true; +is_snmp_agent_function(int_to_enum, 2) -> true; +is_snmp_agent_function(int_to_enum, 3) -> true; +is_snmp_agent_function(enum_to_int, 2) -> true; +is_snmp_agent_function(enum_to_int, 3) -> true; +is_snmp_agent_function(get, 2) -> true; +is_snmp_agent_function(info, 1) -> true; +is_snmp_agent_function(load_mibs, 2) -> true; +is_snmp_agent_function(unload_mibs, 2) -> true; +is_snmp_agent_function(dump_mibs, 0) -> true; +is_snmp_agent_function(dump_mibs, 1) -> true; +is_snmp_agent_function(register_subagent, 3) -> true; +is_snmp_agent_function(unregister_subagent, 2) -> true; +is_snmp_agent_function(send_notification, 3) -> true; +is_snmp_agent_function(send_notification, 4) -> true; +is_snmp_agent_function(send_notification, 5) -> true; +is_snmp_agent_function(send_notification, 6) -> true; +is_snmp_agent_function(send_trap, 3) -> true; +is_snmp_agent_function(send_trap, 4) -> true; +is_snmp_agent_function(add_agent_caps, 2) -> true; +is_snmp_agent_function(del_agent_caps, 1) -> true; +is_snmp_agent_function(get_agent_caps, 0) -> true; +is_snmp_agent_function(_, _) -> false. |