Packages

jose

1.11.12
1.11.12 1.11.11 1.11.10 1.11.9 1.11.8 1.11.7 1.11.6 1.11.5 1.11.4 1.11.2 1.11.1 1.11.0 1.10.1 1.10.0 1.9.0 1.8.4 1.8.3 1.8.2 1.8.1 1.8.0 1.7.9 1.7.8 1.7.7 1.7.6 1.7.5 1.7.4 1.7.3 1.7.2 1.7.1 1.7.0 1.6.1 1.6.0 1.5.2 1.5.1 1.5.0 1.4.2 1.4.1 1.4.0 1.3.0 1.2.0 1.1.3 1.1.2 1.1.1 1.1.0 1.0.1 1.0.0

JSON Object Signing and Encryption (JOSE) for Erlang and Elixir.

HexDocs

Current section

Files

Jump to
Readme
46 Versions
0 Dependencies
Dependants
1 Advisory
Files
Activity
jose src json jose_json_otp.erl
Raw

src/json/jose_json_otp.erl 

%% -*- mode: erlang; tab-width: 4; indent-tabs-mode: 1; st-rulers: [70] -*-

%% vim: ts=4 sw=4 ft=erlang noet

-module(jose_json_otp).

-behaviour(jose_json).



%% jose_json callbacks

-export([decode/1]).

-export([encode/1]).



%%====================================================================

%% jose_json callbacks

%%====================================================================



-spec decode(binary()) -> dynamic().

decode(Binary) -> json:decode(Binary).



-spec encode(dynamic()) -> binary().

encode(Term) -> iolist_to_binary(json:encode(Term, fun encoder/2)).



%%%-------------------------------------------------------------------

%%% Internal functions

%%%-------------------------------------------------------------------



%% @private

-compile({inline, [dynamic_cast/1]}).

-spec dynamic_cast(term()) -> dynamic().

dynamic_cast(X) -> X.



%% @private

-spec encoder(dynamic(), json:encoder()) -> iodata().

encoder(List, Encoder) when is_list(List) ->

    json:encode_list(List, Encoder);

encoder(Map, Encoder) when is_map(Map) ->

    KeyValueList = maps:to_list(dynamic_cast(maps:iterator(Map, ordered))),

    json:encode_key_value_list(KeyValueList, Encoder);

encoder('nil', Encoder) ->

    json:encode_atom(null, Encoder);

encoder(Value, Encoder) ->

    json:encode_value(Value, Encoder).