Packages

clojerl

0.7.0
0.9.0 0.8.0 0.7.1 0.7.0 0.6.0 0.5.1 0.5.0

Clojure for the Erlang VM

HexDocs

Current section

Files

Jump to
Readme
7 Versions
0 Dependencies
Dependants
Files
Activity
clojerl src erl clj_protocol.erl
Raw

src/erl/clj_protocol.erl 

-module(clj_protocol).



-include("clojerl.hrl").

-include("clojerl_int.hrl").



-export([ not_implemented/3

        , impl_module/2

        ]).



-spec impl_module(atom() | binary(), atom() | binary()) -> atom().

impl_module(ProtocolBin, TypeBin)

  when is_binary(ProtocolBin),

       is_binary(TypeBin) ->

  binary_to_atom(<<ProtocolBin/binary, "__", TypeBin/binary>>, utf8).



-spec not_implemented(module(), atom(), any()) -> no_return().

not_implemented(Protocol, Function, Value) ->

  Type = clj_rt:type_module(Value),

  ?ERROR( [ <<"No implementation of method: '">>

          , atom_to_binary(Function, utf8)

          , <<"' of protocol: ">>

          , atom_to_binary(Protocol, utf8)

          , <<" found for type: ">>

          , atom_to_binary(Type, utf8)

          ]).