-module(scrapbook@internal@html).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).
-export([get_property/4, no_value_to_option/1, no_prefix_to_option/1]).
-export_type([index_search/0, find_key_value_result/0]).
-type index_search() :: {index_search,
integer(),
binary(),
integer(),
boolean()}.
-type find_key_value_result() :: {find_key_value_result, binary(), binary()}.
-file("/home/norbert/projects/scrapbook/src/scrapbook/internal/html.gleam", 23).
-spec do_find_value_end_index(
list(binary()),
binary(),
binary(),
index_search()
) -> {ok, integer()} | {error, scrapbook@error:index_search_error()}.
do_find_value_end_index(Graphemes, Start, End, Index_search) ->
case Graphemes of
[] ->
{error, {no_index_found, erlang:element(2, Index_search)}};
[First | Rest] when (erlang:element(3, Index_search) =/= <<"\\"/utf8>>) andalso (First =:= <<"\""/utf8>>) ->
do_find_value_end_index(
Rest,
Start,
End,
{index_search,
erlang:element(2, Index_search) + 1,
First,
erlang:element(4, Index_search),
not erlang:element(5, Index_search)}
);
[First@1 | Rest@1] when (First@1 =:= End) andalso (erlang:element(
5,
Index_search
) =:= false) ->
case erlang:element(4, Index_search) =:= 1 of
true ->
{ok, erlang:element(2, Index_search)};
false ->
do_find_value_end_index(
Rest@1,
Start,
End,
{index_search,
erlang:element(2, Index_search) + 1,
First@1,
erlang:element(4, Index_search) - 1,
erlang:element(5, Index_search)}
)
end;
[First@2 | Rest@2] when (First@2 =:= Start) andalso (erlang:element(
5,
Index_search
) =:= false) ->
do_find_value_end_index(
Rest@2,
Start,
End,
{index_search,
erlang:element(2, Index_search) + 1,
First@2,
erlang:element(4, Index_search) + 1,
erlang:element(5, Index_search)}
);
[First@3 | Rest@3] ->
do_find_value_end_index(
Rest@3,
Start,
End,
{index_search,
erlang:element(2, Index_search) + 1,
First@3,
erlang:element(4, Index_search),
erlang:element(5, Index_search)}
)
end.
-file("/home/norbert/projects/scrapbook/src/scrapbook/internal/html.gleam", 86).
-spec find_value_end_index(list(binary()), binary(), binary()) -> {ok,
integer()} |
{error, scrapbook@error:index_search_error()}.
find_value_end_index(Graphemes, Start, End) ->
do_find_value_end_index(
Graphemes,
Start,
End,
{index_search, 0, <<""/utf8>>, 0, false}
).
-file("/home/norbert/projects/scrapbook/src/scrapbook/internal/html.gleam", 104).
-spec find_value(binary()) -> {ok, binary()} |
{error, scrapbook@error:find_value_error()}.
find_value(Html) ->
gleam@bool:guard(
begin
_pipe = Html,
gleam_stdlib:string_starts_with(_pipe, <<"null"/utf8>>)
end,
{error, no_value},
fun() ->
Graphemes = begin
_pipe@1 = Html,
gleam@string:to_graphemes(_pipe@1)
end,
gleam@result:'try'(
gleam@result:replace_error(
begin
_pipe@2 = Graphemes,
gleam@list:first(_pipe@2)
end,
no_graphemes
),
fun(Start_character) ->
gleam@bool:guard(
(Start_character /= <<"{"/utf8>>) andalso (Start_character
/= <<"["/utf8>>),
{error, invalid_start_character},
fun() ->
End_character = case Start_character of
<<"{"/utf8>> ->
<<"}"/utf8>>;
_ ->
<<"]"/utf8>>
end,
gleam@result:'try'(
case find_value_end_index(
Graphemes,
Start_character,
End_character
) of
{ok, Value} ->
{ok, Value};
{error, Err} ->
{error, {no_value_end_found, Err}}
end,
fun(End_index) ->
{ok,
begin
_pipe@3 = Html,
gleam@string:slice(
_pipe@3,
0,
End_index + 1
)
end}
end
)
end
)
end
)
end
).
-file("/home/norbert/projects/scrapbook/src/scrapbook/internal/html.gleam", 140).
-spec find_key_value(binary(), binary()) -> {ok, find_key_value_result()} |
{error, scrapbook@error:find_key_value_error()}.
find_key_value(Html, Key) ->
Prefix = <<<<"\""/utf8, Key/binary>>/binary, "\":"/utf8>>,
gleam@result:'try'(
gleam@result:replace_error(
begin
_pipe = Html,
gleam@string:split_once(_pipe, Prefix)
end,
{no_prefix, Key}
),
fun(_use0) ->
{_, Html@1} = _use0,
case find_value(Html@1) of
{ok, Value} ->
{ok, {find_key_value_result, Html@1, Value}};
{error, Err} ->
{error, {find_value_error, Err}}
end
end
).
-file("/home/norbert/projects/scrapbook/src/scrapbook/internal/html.gleam", 157).
-spec do_get_property(
binary(),
binary(),
fun((gleam@dynamic:dynamic_()) -> {ok, IHA} |
{error, list(gleam@dynamic:decode_error())}),
fun((IHA) -> boolean()),
list(scrapbook@error:property_error())
) -> {ok, IHA} | {error, list(scrapbook@error:property_error())}.
do_get_property(Html, Key, Decoder, Validator, Errors) ->
gleam@result:'try'(case find_key_value(Html, Key) of
{ok, Value} ->
{ok, Value};
{error, Err} ->
case Errors of
[] ->
{error, [{find_key_value_error, Err}]};
_ ->
{error, Errors}
end
end, fun(_use0) ->
{find_key_value_result, Html@1, Json_string} = _use0,
case gleam@json:decode(Json_string, Decoder) of
{ok, Value@1} ->
case Validator(Value@1) of
true ->
{ok, Value@1};
false ->
do_get_property(
Html@1,
Key,
Decoder,
Validator,
[validate_error | Errors]
)
end;
{error, Err@1} ->
do_get_property(
Html@1,
Key,
Decoder,
Validator,
[{decode_error, Err@1} | Errors]
)
end
end).
-file("/home/norbert/projects/scrapbook/src/scrapbook/internal/html.gleam", 192).
-spec get_property(
binary(),
binary(),
fun((gleam@dynamic:dynamic_()) -> {ok, IHG} |
{error, list(gleam@dynamic:decode_error())}),
fun((IHG) -> boolean())
) -> {ok, IHG} | {error, list(scrapbook@error:property_error())}.
get_property(Html, Key, Decoder, Validator) ->
do_get_property(Html, Key, Decoder, Validator, []).
-file("/home/norbert/projects/scrapbook/src/scrapbook/internal/html.gleam", 203).
-spec no_value_to_option(
{ok, IHL} | {error, list(scrapbook@error:property_error())}
) -> {ok, gleam@option:option(IHL)} |
{error, list(scrapbook@error:property_error())}.
no_value_to_option(Result) ->
case Result of
{ok, Value} ->
{ok, {some, Value}};
{error, [{find_key_value_error, {find_value_error, no_value}}]} ->
{ok, none};
{error, Err} ->
{error, Err}
end.
-file("/home/norbert/projects/scrapbook/src/scrapbook/internal/html.gleam", 216).
-spec no_prefix_to_option(
{ok, IHT} | {error, list(scrapbook@error:property_error())}
) -> {ok, gleam@option:option(IHT)} |
{error, list(scrapbook@error:property_error())}.
no_prefix_to_option(Result) ->
case Result of
{ok, Value} ->
{ok, {some, Value}};
{error, [{find_key_value_error, {no_prefix, _}}]} ->
{ok, none};
{error, Err} ->
{error, Err}
end.