Merge pull request atomvm#1630 from pguyot/w15/add-init-get_argument-1-notify_when_started-1

Add `init:get_argument/1`, `init:get_plain_arguments/0` and `init:notify_when_started/1`

These changes are made under both the "Apache 2.0" and the "GNU Lesser General
Public License 2.1 or later" license terms (dual license).

SPDX-License-Identifier: Apache-2.0 OR LGPL-2.1-or-later

Author: bettio

CHANGELOG.md

@@ -32,6 +32,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 - Added `io:fwrite/1,2,3` and `io:format/3` as well as few io functions required by remote shell
 - Added `code:is_loaded/1` and `code:which/1`
 - Added several `io_lib` functions including `io_lib:fwrite/2` and `io_lib:write_atom/1`
+- Added `init:get_argument/1`, `init:get_plain_arguments/0` and `init:notify_when_started/1`
 
 ### Fixed
 - ESP32: improved sntp sync speed from a cold boot.

libs/estdlib/src/CMakeLists.txt

@@ -41,6 +41,7 @@ set(ERLANG_MODULES
     gen_tcp_socket
     supervisor
     inet
+    init
     io_lib
     io
     lists

libs/estdlib/src/init.erl

@@ -0,0 +1,61 @@
+%
+% This file is part of AtomVM.
+%
+% Copyright 2025 Paul Guyot <pguyot@kallisys.net>
+%
+% Licensed under the Apache License, Version 2.0 (the "License");
+% you may not use this file except in compliance with the License.
+% You may obtain a copy of the License at
+%
+%    http://www.apache.org/licenses/LICENSE-2.0
+%
+% Unless required by applicable law or agreed to in writing, software
+% distributed under the License is distributed on an "AS IS" BASIS,
+% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+% See the License for the specific language governing permissions and
+% limitations under the License.
+%
+% SPDX-License-Identifier: Apache-2.0 OR LGPL-2.1-or-later
+%
+
+%%-----------------------------------------------------------------------------
+%% @doc An implementation of the Erlang/OTP init interface.
+%%
+%% This module implements a strict subset of the Erlang/OTP init
+%% interface.
+%% @end
+%%-----------------------------------------------------------------------------
+-module(init).
+
+-export([
+    get_argument/1,
+    get_plain_arguments/0,
+    notify_when_started/1
+]).
+
+%%-----------------------------------------------------------------------------
+%% @param Flag flag to get values for
+%% @return `error' if no value is associated with provided flag or values in
+%% order of the command line
+%% @doc Returns values associated with a given command-line user flag.
+%% Currently always returns `error' on AtomVM.
+%% @end
+%%-----------------------------------------------------------------------------
+-spec get_argument(Flag :: atom()) -> {ok, [string()]} | error.
+get_argument(_Flag) ->
+    error.
+
+%%-----------------------------------------------------------------------------
+%% @return plain command-line arguments as a list of strings.
+%% @doc Gets plain command-line arguments.
+%% Currently always returns `[]' on AtomVM.
+%% @end
+%%-----------------------------------------------------------------------------
+-spec get_plain_arguments() -> [string()].
+get_plain_arguments() ->
+    [].
+
+%% @private
+-spec notify_when_started(Pid :: pid()) -> ok | started.
+notify_when_started(_Pid) ->
+    started.