Packages

bin_struct

0.2.34
0.2.34 0.2.33 0.2.32 0.2.31 0.2.30 0.2.29 0.2.28 0.2.27 0.2.26 0.2.25 0.2.24 0.2.23 0.2.22 0.2.21 0.2.20 0.2.19 0.2.18 0.2.17 0.2.16 0.2.15 0.2.14 0.2.13 0.2.12 0.2.11 0.2.10 0.2.9 0.2.8 0.2.7

BinStruct is a library which provides you rich set of tools for parsing/encoding binaries

HexDocs

Current section

Files

Jump to
Readme
28 Versions
1 Dependency
Dependants
Files
Activity
bin_struct lib bin_struct macro parse wrap_with_length_by.ex
Raw

lib/bin_struct/macro/parse/wrap_with_length_by.ex 

defmodule BinStruct.Macro.Parse.WrapWithLengthBy do



  @moduledoc false



  alias BinStruct.Macro.RegisteredCallbackFunctionCall

  alias BinStruct.Macro.Structs.RegisteredCallbacksMap



  def wrap_with_length_by(

        body_expr,

        length_by,

        binary_bind,

        %RegisteredCallbacksMap{} = registered_callbacks_map,

        context

      ) do



    rest_bind = { :rest, [], context }



    length_by = RegisteredCallbacksMap.get_registered_callback_by_callback(registered_callbacks_map, length_by)



    length_by_function_call =

      RegisteredCallbackFunctionCall.registered_callback_function_call(length_by, context)



    quote do



      length = unquote(length_by_function_call)



      case length do



        length when is_integer(length) ->



          if byte_size(unquote(binary_bind)) >= length do



            <<unquote(binary_bind)::size(length)-bytes, unquote(rest_bind)::binary>> = unquote(binary_bind)



            unquote(body_expr)



          else

            :not_enough_bytes

          end



        value -> raise "Non integer value returned from length_by function. Value: #{inspect value}"



      end



    end



  end





end