mirror of
https://github.com/erlang-punch/nostr
synced 2026-04-29 08:08:48 +00:00
1984e20549
This (very) huge commit is containing the whole implementation of the Schnorr signature scheme and the NIP/01 standard in full Erlang. It includes documentation, test suites with eunit and commont_test, partial specification, and articles/notes on the implementation. This commit is also probably one of the most important, it defines the structure of the nostrlib module and all the low level record used to encode and decode events. 99% coverages on nostrlib_schnorr. 85% on nostrlib.
57 lines
2.1 KiB
Erlang
57 lines
2.1 KiB
Erlang
%%%===================================================================
|
|
%%% @doc This script parse the output of the `check_mod.py' module
|
|
%%% present in `extra' directory. The `nostrlib:mod/2' function must
|
|
%%% be exported and this script must be executed at the root of the
|
|
%%% project.
|
|
%%%
|
|
%%% @end
|
|
%%%===================================================================
|
|
-module(mod).
|
|
-export([check/0, check/1]).
|
|
-define(PYTHON, "python3").
|
|
-define(CHECK_SCRIPT, "check_mod.py").
|
|
|
|
%%--------------------------------------------------------------------
|
|
%% @doc `check/0' executes the script using python and check its
|
|
%% output.
|
|
%%
|
|
%% @end
|
|
%% --------------------------------------------------------------------
|
|
check() ->
|
|
Path = filename:join("extra", ?CHECK_SCRIPT),
|
|
Command = string:join([?PYTHON, Path], " "),
|
|
Return = os:cmd(Command),
|
|
Content = list_to_bitstring(Return),
|
|
check_content(Content).
|
|
|
|
%%--------------------------------------------------------------------
|
|
%% @doc `check/1' read a file containing the output of check_mod.py.
|
|
%% @end
|
|
%%--------------------------------------------------------------------
|
|
check(File) ->
|
|
{ok, Content} = file:read_file(File),
|
|
check_content(Content).
|
|
|
|
%%--------------------------------------------------------------------
|
|
%% @doc `check_content/1' returns true if the results are valid,
|
|
%% return false if something was wrong
|
|
%%
|
|
%% @end
|
|
%%--------------------------------------------------------------------
|
|
check_content(Content) ->
|
|
Lines = re:split(Content, "\n"),
|
|
Splitted = lists:map(fun(X) -> re:split(X, ",") end, Lines),
|
|
Result = [ { binary_to_integer(I)
|
|
, binary_to_integer(R) =:=
|
|
nostrlib_schnorr:mod(binary_to_integer(A)
|
|
,binary_to_integer(M))}
|
|
|| [I,A,M,R] <- Splitted
|
|
],
|
|
Filter = lists:filter(fun({_,false}) -> true;
|
|
(_) -> false
|
|
end, Result),
|
|
case Filter of
|
|
_ when Filter =:= [] -> {ok, length(Result)};
|
|
Elsewise -> {error, Elsewise}
|
|
end.
|