Current section
Files
Jump to
Current section
Files
src/kdleam@json.erl
-module(kdleam@json).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch, inline]).
-define(FILEPATH, "src/kdleam/json.gleam").
-export([document_to_json/1, error_to_json/1]).
-if(?OTP_RELEASE >= 27).
-define(MODULEDOC(Str), -moduledoc(Str)).
-define(DOC(Str), -doc(Str)).
-else.
-define(MODULEDOC(Str), -compile([])).
-define(DOC(Str), -compile([])).
-endif.
?MODULEDOC(" KDL 文書と解析エラーを素朴な JSON 文字列へ変換する。\n").
-file("src/kdleam/json.gleam", 240).
-spec hex4(integer()) -> binary().
hex4(I) ->
Hex = case gleam@int:to_base_string(I, 16) of
{ok, V} ->
string:lowercase(V);
{error, _} ->
<<"0"/utf8>>
end,
gleam@string:pad_start(Hex, 4, <<"0"/utf8>>).
-file("src/kdleam/json.gleam", 220).
-spec escape_codepoint(integer()) -> binary().
escape_codepoint(Cp) ->
I = gleam_stdlib:identity(Cp),
case I of
16#22 ->
<<"\\\""/utf8>>;
16#5C ->
<<"\\\\"/utf8>>;
16#08 ->
<<"\\b"/utf8>>;
16#0C ->
<<"\\f"/utf8>>;
16#0A ->
<<"\\n"/utf8>>;
16#0D ->
<<"\\r"/utf8>>;
16#09 ->
<<"\\t"/utf8>>;
16#2028 ->
<<"\\u2028"/utf8>>;
16#2029 ->
<<"\\u2029"/utf8>>;
_ ->
case I < 16#20 of
true ->
<<"\\u"/utf8, (hex4(I))/binary>>;
false ->
gleam_stdlib:utf_codepoint_list_to_string([Cp])
end
end.
-file("src/kdleam/json.gleam", 213).
-spec escape_chars(list(integer()), binary()) -> binary().
escape_chars(Codepoints, Acc) ->
case Codepoints of
[] ->
Acc;
[Cp | Rest] ->
escape_chars(Rest, <<Acc/binary, (escape_codepoint(Cp))/binary>>)
end.
-file("src/kdleam/json.gleam", 209).
-spec encode_string(binary()) -> binary().
encode_string(S) ->
<<<<"\""/utf8,
(escape_chars(gleam@string:to_utf_codepoints(S), <<""/utf8>>))/binary>>/binary,
"\""/utf8>>.
-file("src/kdleam/json.gleam", 121).
-spec encode_optional_string(gleam@option:option(binary())) -> binary().
encode_optional_string(Value) ->
case Value of
none ->
<<"null"/utf8>>;
{some, S} ->
encode_string(S)
end.
-file("src/kdleam/json.gleam", 173).
-spec is_float_decimal(binary()) -> boolean().
is_float_decimal(Body) ->
(gleam_stdlib:contains_string(Body, <<"."/utf8>>) orelse gleam_stdlib:contains_string(
Body,
<<"e"/utf8>>
))
orelse gleam_stdlib:contains_string(Body, <<"E"/utf8>>).
-file("src/kdleam/json.gleam", 194).
-spec try_radix(binary(), list({binary(), integer()})) -> {integer(), binary()}.
try_radix(Rest, Prefixes) ->
case Prefixes of
[] ->
{10, Rest};
[{Prefix, Base} | Others] ->
Body = gleam_stdlib:string_remove_prefix(Rest, Prefix),
case Body /= Rest of
true ->
{Base, Body};
false ->
try_radix(Rest, Others)
end
end.
-file("src/kdleam/json.gleam", 190).
-spec radix_body(binary()) -> {integer(), binary()}.
radix_body(Rest) ->
try_radix(Rest, kdleam@scanner:radix_prefixes()).
-file("src/kdleam/json.gleam", 179).
-spec remove_sign(binary()) -> {binary(), binary()}.
remove_sign(Raw) ->
Minus = gleam_stdlib:string_remove_prefix(Raw, <<"-"/utf8>>),
case Minus /= Raw of
true ->
{<<"-"/utf8>>, Minus};
false ->
Plus = gleam_stdlib:string_remove_prefix(Raw, <<"+"/utf8>>),
{<<""/utf8>>, Plus}
end.
-file("src/kdleam/json.gleam", 154).
-spec decimal_of_raw(binary()) -> gleam@option:option(binary()).
decimal_of_raw(Raw) ->
case gleam_stdlib:string_starts_with(Raw, <<"#"/utf8>>) of
true ->
none;
false ->
{Sign, Rest} = remove_sign(Raw),
{Base, Body} = radix_body(Rest),
case (Base =:= 10) andalso is_float_decimal(Body) of
true ->
none;
false ->
case kdleam@bignum:base_to_decimal(
kdleam@scanner:clean_underscores(Body),
Base
) of
{ok, <<"0"/utf8>>} ->
{some, <<"0"/utf8>>};
{ok, Decimal} ->
{some, <<Sign/binary, Decimal/binary>>};
{error, _} ->
none
end
end
end.
-file("src/kdleam/json.gleam", 114).
-spec encode_decimal(binary()) -> binary().
encode_decimal(Raw) ->
case decimal_of_raw(Raw) of
{some, Decimal} ->
encode_string(Decimal);
none ->
<<"null"/utf8>>
end.
-file("src/kdleam/json.gleam", 106).
-spec encode_number(binary()) -> binary().
encode_number(Raw) ->
<<<<<<<<"{\"kind\":\"number\",\"raw\":"/utf8, (encode_string(Raw))/binary>>/binary,
",\"decimal\":"/utf8>>/binary,
(encode_decimal(Raw))/binary>>/binary,
"}"/utf8>>.
-file("src/kdleam/json.gleam", 91).
-spec encode_value(kdleam@document:kdl_value()) -> binary().
encode_value(Value) ->
case Value of
{kdl_string, S} ->
<<<<"{\"kind\":\"string\",\"value\":"/utf8,
(encode_string(S))/binary>>/binary,
"}"/utf8>>;
{kdl_number_value, Number} ->
encode_number(kdleam@document:number_raw(Number));
{kdl_bool, B} ->
<<<<"{\"kind\":\"bool\",\"value\":"/utf8, (case B of
true ->
<<"true"/utf8>>;
false ->
<<"false"/utf8>>
end)/binary>>/binary, "}"/utf8>>;
kdl_null ->
<<"{\"kind\":\"null\"}"/utf8>>
end.
-file("src/kdleam/json.gleam", 72).
-spec encode_entry(kdleam@document:kdl_entry()) -> binary().
encode_entry(Entry) ->
case Entry of
{kdl_argument, Ty, Value} ->
<<<<<<<<"{\"kind\":\"argument\",\"ty\":"/utf8,
(encode_optional_string(Ty))/binary>>/binary,
",\"value\":"/utf8>>/binary,
(encode_value(Value))/binary>>/binary,
"}"/utf8>>;
{kdl_property, Key, Ty@1, Value@1} ->
<<<<<<<<<<<<"{\"kind\":\"property\",\"key\":"/utf8,
(encode_string(Key))/binary>>/binary,
",\"ty\":"/utf8>>/binary,
(encode_optional_string(Ty@1))/binary>>/binary,
",\"value\":"/utf8>>/binary,
(encode_value(Value@1))/binary>>/binary,
"}"/utf8>>
end.
-file("src/kdleam/json.gleam", 64).
-spec encode_children(gleam@option:option(list(kdleam@document:kdl_node()))) -> binary().
encode_children(Children) ->
case Children of
none ->
<<"null"/utf8>>;
{some, Nodes} ->
<<<<"["/utf8,
(begin
_pipe = Nodes,
_pipe@1 = gleam@list:map(_pipe, fun encode_node/1),
gleam@string:join(_pipe@1, <<","/utf8>>)
end)/binary>>/binary,
"]"/utf8>>
end.
-file("src/kdleam/json.gleam", 45).
-spec encode_node(kdleam@document:kdl_node()) -> binary().
encode_node(Node) ->
Name = kdleam@document:name(Node),
Ty = kdleam@document:ty(Node),
Entries = begin
_pipe = kdleam@document:entries(Node),
_pipe@1 = gleam@list:map(_pipe, fun encode_entry/1),
gleam@string:join(_pipe@1, <<","/utf8>>)
end,
Children = kdleam@document:children(Node),
<<<<<<<<<<<<<<<<"{\"name\":"/utf8, (encode_string(Name))/binary>>/binary,
",\"ty\":"/utf8>>/binary,
(encode_optional_string(Ty))/binary>>/binary,
",\"entries\":["/utf8>>/binary,
Entries/binary>>/binary,
"],\"children\":"/utf8>>/binary,
(encode_children(Children))/binary>>/binary,
"}"/utf8>>.
-file("src/kdleam/json.gleam", 21).
?DOC(" 文書をバックエンドに依存しない素朴な JSON 文字列へ全域で変換する。\n").
-spec document_to_json(kdleam@document:kdl_document()) -> binary().
document_to_json(Doc) ->
Nodes = begin
_pipe = kdleam@document:nodes(Doc),
_pipe@1 = gleam@list:map(_pipe, fun encode_node/1),
gleam@string:join(_pipe@1, <<","/utf8>>)
end,
<<<<"{\"nodes\":["/utf8, Nodes/binary>>/binary, "]}"/utf8>>.
-file("src/kdleam/json.gleam", 128).
-spec encode_tag(kdleam@error:kdl_error_tag()) -> {binary(), binary()}.
encode_tag(Tag) ->
case Tag of
{unexpected_char, Ch} ->
{<<"UnexpectedChar"/utf8>>, encode_string(Ch)};
{disallowed_code_point, Ch@1} ->
{<<"DisallowedCodePoint"/utf8>>, encode_string(Ch@1)};
unexpected_eof ->
{<<"UnexpectedEof"/utf8>>, <<"null"/utf8>>};
invalid_escape ->
{<<"InvalidEscape"/utf8>>, <<"null"/utf8>>};
invalid_unicode_escape ->
{<<"InvalidUnicodeEscape"/utf8>>, <<"null"/utf8>>};
invalid_number ->
{<<"InvalidNumber"/utf8>>, <<"null"/utf8>>};
bare_keyword ->
{<<"BareKeyword"/utf8>>, <<"null"/utf8>>};
unmatched_block_comment_end ->
{<<"UnmatchedBlockCommentEnd"/utf8>>, <<"null"/utf8>>};
unclosed_block_comment ->
{<<"UnclosedBlockComment"/utf8>>, <<"null"/utf8>>};
unclosed_string ->
{<<"UnclosedString"/utf8>>, <<"null"/utf8>>};
inconsistent_indentation ->
{<<"InconsistentIndentation"/utf8>>, <<"null"/utf8>>};
invalid_slashdash ->
{<<"InvalidSlashdash"/utf8>>, <<"null"/utf8>>}
end.
-file("src/kdleam/json.gleam", 30).
?DOC(" エラーを行、列、タグ、任意の文字を持つ JSON 文字列へ変換する。\n").
-spec error_to_json(kdleam@error:kdl_error()) -> binary().
error_to_json(Error) ->
{kdl_error, Line, Col, Kind} = Error,
{kdl_error_kind, Tag} = Kind,
{Tag_name, Char} = encode_tag(Tag),
<<<<<<<<<<<<<<<<"{\"line\":"/utf8, (erlang:integer_to_binary(Line))/binary>>/binary,
",\"col\":"/utf8>>/binary,
(erlang:integer_to_binary(Col))/binary>>/binary,
",\"tag\":"/utf8>>/binary,
(encode_string(Tag_name))/binary>>/binary,
",\"char\":"/utf8>>/binary,
Char/binary>>/binary,
"}"/utf8>>.