xref: Add -doc and -unsafe support

erts/preloaded/src/erlang.erl

@@ -86,6 +86,12 @@ in the description of each individual BIF.
            "use the new try/catch syntax for retrieving the "
            "stack backtrace"}]).
 
+-unsafe([{list_to_atom, 1, possibly},
+         {binary_to_atom, '_', possibly},
+         {binary_to_term, '_', possibly}]).
+
+-compile([{nowarn_unsafe_function, {erlang, binary_to_atom, 2}}]).
+
 %% Get rid of autoimports of spawn to avoid clashes with ourselves.
 -compile({no_auto_import,[spawn_link/1]}).
 -compile({no_auto_import,[spawn_link/4]}).

lib/asn1/src/asn1_db.erl

@@ -23,6 +23,8 @@
 -module(asn1_db).
 -moduledoc false.
 
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 -export([dbstart/1,dbnew/3,dbload/1,dbload/4,dbsave/2,dbput/2,
 	 dbput/3,dbget/2]).
 -export([dbstop/0]).

lib/asn1/src/asn1ct.erl

@@ -47,6 +47,8 @@ ASN.1 data (encoded as `BER` or `PER`).
 > `legacy_erlang_types`.
 """.
 
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 %% Compile Time functions for ASN.1 (e.g ASN.1 compiler).
 
 %% Public exports

lib/asn1/src/asn1ct_check.erl

@@ -24,6 +24,8 @@
 -module(asn1ct_check).
 -moduledoc false.
 
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 %% Main Module for ASN.1 compile time functions
 
 -export([check/2,storeindb/2,format_error/1]).

lib/asn1/src/asn1ct_constructed_ber_bin_v2.erl

@@ -23,6 +23,8 @@
 -module(asn1ct_constructed_ber_bin_v2).
 -moduledoc false.
 
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 -export([gen_encode_sequence/3]).
 -export([gen_decode_sequence/3]).
 -export([gen_encode_set/3]).

lib/asn1/src/asn1ct_constructed_per.erl

@@ -23,6 +23,8 @@
 -module(asn1ct_constructed_per).
 -moduledoc false.
 
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 -export([gen_encode_sequence/3]).
 -export([gen_decode_sequence/3]).
 -export([gen_encode_set/3]).

lib/asn1/src/asn1ct_func.erl

@@ -23,6 +23,9 @@
 
 -module(asn1ct_func).
 -moduledoc false.
+
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 -export([start_link/0,need/1,call/3,call_gen/3,call_gen/4,
 	 generate/1,is_used/1]).
 -export([init/1,handle_call/3,handle_cast/2,terminate/2]).

lib/asn1/src/asn1ct_gen.erl

@@ -23,6 +23,8 @@
 -module(asn1ct_gen).
 -moduledoc false.
 
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 -include("asn1_records.hrl").
 
 -export([emit/1,

lib/asn1/src/asn1ct_gen_ber_bin_v2.erl

@@ -23,6 +23,8 @@
 -module(asn1ct_gen_ber_bin_v2).
 -moduledoc false.
 
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 %% Generate erlang module which handles (PER) encode and decode for
 %% all types in an ASN.1 module
 

lib/asn1/src/asn1ct_gen_jer.erl

@@ -23,6 +23,9 @@
 -module(asn1ct_gen_jer).
 -moduledoc false.
 
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}},
+          {nowarn_unsafe_function, {erlang, binary_to_atom, 1}}]).
+
 %% Generate erlang module which handles (PER) encode and decode for
 %% all types in an ASN.1 module
 

lib/asn1/src/asn1ct_gen_per.erl

@@ -23,6 +23,8 @@
 -module(asn1ct_gen_per).
 -moduledoc false.
 
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 %% Generate erlang module which handles (PER) encode and decode for
 %% all types in an ASN.1 module
 

lib/asn1/src/asn1ct_name.erl

@@ -23,6 +23,8 @@
 -module(asn1ct_name).
 -moduledoc false.
 
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 -export([start/0,
 	 curr/1,
 	 clear/0,

lib/asn1/src/asn1ct_parser2.erl

@@ -24,6 +24,8 @@
 -module(asn1ct_parser2).
 -moduledoc false.
 
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 -export([parse/2,format_error/1]).
 -include("asn1_records.hrl").
 

lib/asn1/src/asn1ct_tok.erl

@@ -23,6 +23,8 @@
 -module(asn1ct_tok).
 -moduledoc false.
 
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 %% Tokenize ASN.1 code (input to parser generated with yecc)   
 
 -export([file/1,format_error/1]).

lib/asn1/src/asn1ct_value.erl

@@ -23,6 +23,8 @@
 -module(asn1ct_value).
 -moduledoc false.
 
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 %%  Generate Erlang values for ASN.1 types.
 %%  The value is randomized within it's constraints
 

lib/asn1/src/asn1rtt_jer.erl

@@ -21,6 +21,9 @@
 %%
 
 -module(asn1rtt_jer).
+
+-compile([{nowarn_unsafe_function, {erlang, binary_to_atom, 1}}]).
+
 %% encoding / decoding of BER
 -ifdef(DEBUG).
 -compile(export_all).

lib/asn1/src/prepare_templates.erl

@@ -21,6 +21,9 @@
 %%
 
 -module(prepare_templates).
+
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 -export([gen_asn1ct_rtt/1,gen_asn1ct_eval/1]).
 
 gen_asn1ct_rtt(Ms) ->

lib/common_test/src/ct.erl

@@ -46,6 +46,8 @@ Possible configuration variables include:
 > instead.
 """.
 
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 -include("ct.hrl").
 -include("ct_util.hrl").
 

lib/common_test/src/ct_config.erl

@@ -28,7 +28,8 @@
 -module(ct_config).
 -moduledoc false.
 -compile([{nowarn_deprecated_function,{crypto,block_decrypt,4}},
-          {nowarn_deprecated_function,{crypto,block_encrypt,4}}]).
+          {nowarn_deprecated_function,{crypto,block_encrypt,4}},
+          {nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
 
 -export([start/1, stop/0]).
 

lib/common_test/src/ct_config_xml.erl

@@ -26,6 +26,9 @@
 %%----------------------------------------------------------------------
 -module(ct_config_xml).
 -moduledoc false.
+
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 -export([read_config/1, check_parameter/1]).
 
 % read config file

lib/common_test/src/ct_cover.erl

@@ -27,6 +27,8 @@
 This module exports help functions for performing code coverage analysis.
 """.
 
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 -export([get_spec/1, add_nodes/1, remove_nodes/1, cross_cover_analyse/2]).
 
 -include("ct_util.hrl").

lib/common_test/src/ct_framework.erl

@@ -28,6 +28,8 @@
 -module(ct_framework).
 -moduledoc false.
 
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 -export([init_tc/3, end_tc/3, end_tc/4, get_suite/2, get_all_cases/1]).
 -export([report/2, warn/1, error_notification/4]).
 

lib/common_test/src/ct_groups.erl

@@ -27,6 +27,8 @@
 -module(ct_groups).
 -moduledoc false.
 
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 -export([find_groups/4]).
 -export([make_all_conf/3, make_all_conf/4, make_conf/5]).
 -export([delete_subs/2]).

lib/common_test/src/ct_logs.erl

@@ -30,6 +30,8 @@
 -module(ct_logs).
 -moduledoc false.
 
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 -export([init/3, close/3, init_tc/1, end_tc/1]).
 -export([register_groupleader/2, unregister_groupleader/1]).
 -export([get_log_dir/0, get_log_dir/1]).

lib/common_test/src/ct_master.erl

@@ -28,6 +28,8 @@ This module exports functions for running `Common Test` nodes on multiple hosts
 in parallel.
 """.
 
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 -export([run/1,run/3,run/4]).
 -export([run_on_node/2,run_on_node/3]).
 -export([run_test/1,run_test/2]).

lib/common_test/src/ct_netconfc.erl

@@ -214,6 +214,7 @@ logging of all NETCONF connections in to the test case HTML log.
 """.
 -moduledoc(#{since => "OTP R15B02"}).
 
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
 -dialyzer(no_improper_lists).
 
 -include("ct_netconfc.hrl").

lib/common_test/src/ct_property_test.erl

@@ -78,6 +78,8 @@ prop_ftp() ->
 """.
 -moduledoc(#{since => "OTP 17.3"}).
 
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 %%% API
 %% Main functions
 -export([init_per_suite/1,

lib/common_test/src/ct_release_test.erl

@@ -120,6 +120,8 @@
 -module(ct_release_test).
 -moduledoc false.
 
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 -export([init/1, upgrade/4, cleanup/1, get_app_vsns/2, get_appup/2]).
 
 -include_lib("kernel/include/file.hrl").

lib/common_test/src/ct_run.erl

@@ -23,6 +23,8 @@
 -module(ct_run).
 -moduledoc false.
 
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 %% Script interface
 -export([script_start/0,script_usage/0]).
 

lib/common_test/src/ct_slave.erl

@@ -36,6 +36,8 @@ term in the Test Specification.
 """.
 -moduledoc(#{since => "OTP R14B"}).
 
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 -export([start/1, start/2, start/3, stop/1, stop/2]).
 
 -export([slave_started/2, slave_ready/2, monitor_master/1]).

lib/common_test/src/ct_testspec.erl

@@ -28,6 +28,8 @@ This module exports help functions for parsing of test specifications.
 """.
 -moduledoc(#{since => "OTP 19.3"}).
 
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 -export([prepare_tests/1, prepare_tests/2, 
 	 collect_tests_from_list/2, collect_tests_from_list/3,
 	 collect_tests_from_file/2, collect_tests_from_file/3,

lib/common_test/src/test_server.erl

@@ -21,6 +21,8 @@
 -module(test_server).
 -moduledoc false.
 
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 -define(DEFAULT_TIMETRAP_SECS, 60).
 
 %%% TEST_SERVER_CTRL INTERFACE %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

lib/common_test/src/test_server_ctrl.erl

@@ -21,6 +21,9 @@
 %%
 -module(test_server_ctrl).
 -moduledoc false.
+
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %%                                                                  %%
 %%                      The Erlang Test Server                      %%

lib/common_test/src/test_server_node.erl

@@ -22,12 +22,7 @@
 -module(test_server_node).
 -moduledoc false.
 
-%% Prior to OTP 26, maybe_expr used to require runtime support. As it's now
-%% enabled by default, all modules are tagged with the feature even when they
-%% don't use it. Therefore, we explicitly disable it until OTP 25 is out of
-%% support.
--feature(maybe_expr, disable).
--compile(r25).
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
 
 %% Test Controller interface
 -export([is_release_available/1, find_release/1]).

lib/common_test/src/test_server_sup.erl

@@ -25,6 +25,9 @@
 %%%-------------------------------------------------------------------
 -module(test_server_sup).
 -moduledoc false.
+
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 -export([timetrap/2, timetrap/3, timetrap/4,
 	 timetrap_cancel/1, capture_get/1, messages_get/1,
 	 timecall/3, call_crash/5, app_test/2, check_new_crash_dumps/0,

lib/common_test/test_server/ts.erl

@@ -27,6 +27,9 @@
 
 -module(ts).
 
+-compile([{nowarn_unsafe_function, {file, consult, 1}},
+          {nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 -export([cl_run/1,
 	 run/0, run/1, run/2, run/3, run/4, run/5,
 	 run_category/1, run_category/2, run_category/3,

lib/common_test/test_server/ts_erl_config.erl

@@ -25,6 +25,7 @@
 
 -module(ts_erl_config).
 
+-compile([{nowarn_unsafe_function, {os, cmd, 1}}]).
 
 -export([variables/2]).
 

lib/common_test/test_server/ts_install.erl

@@ -23,6 +23,10 @@
 
 -export([install/2, platform_id/1]).
 
+-compile([{nowarn_unsafe_function, {file, consult, 1}},
+          {nowarn_unsafe_function, {erlang, list_to_atom, 1}},
+          {nowarn_unsafe_function, {os, cmd, 1}}]).
+
 -include("ts.hrl").
 -include_lib("kernel/include/file.hrl").
 

lib/common_test/test_server/ts_install_cth.erl

@@ -28,6 +28,10 @@
 
 -module(ts_install_cth).
 
+-compile([{nowarn_unsafe_function, {file, consult, 1}},
+          {nowarn_unsafe_function, {erlang, list_to_atom, 1}},
+          {nowarn_unsafe_function, {os, cmd, 1}}]).
+
 %% Suite Callbacks
 -export([id/1]).
 -export([init/2]).

lib/common_test/test_server/ts_lib.erl

@@ -21,6 +21,9 @@
 %%
 -module(ts_lib).
 
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}},
+          {nowarn_unsafe_function, {os, cmd, 1}}]).
+
 -include_lib("kernel/include/file.hrl").
 -include("ts.hrl").
 

lib/common_test/test_server/ts_run.erl

@@ -26,6 +26,9 @@
 
 -export([run/4,ct_run_test/2]).
 
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}},
+          {nowarn_unsafe_function, {os, cmd, 1}}]).
+
 -define(DEFAULT_MAKE_TIMETRAP_MINUTES, 60).
 -define(DEFAULT_UNMAKE_TIMETRAP_MINUTES, 15).
 

lib/compiler/src/beam_core_to_ssa.erl

@@ -62,6 +62,8 @@
 -module(beam_core_to_ssa).
 -moduledoc false.
 
+-compile([{nowarn_unsafe_function, {erlang, list_to_atom, 1}}]).
+
 -export([module/2,format_error/1]).
 
 -import(lists, [all/2,append/1,droplast/1,