Packages
stellar_sdk
0.23.0
0.23.0
0.22.0
0.21.2
0.21.1
0.21.0
0.20.0
0.19.0
0.18.1
0.18.0
0.17.1
0.17.0
0.16.1
0.16.0
0.15.1
0.15.0
0.14.0
0.13.1
0.13.0
0.12.0
0.11.8
0.11.7
0.11.6
0.11.5
0.11.4
0.11.3
0.11.2
0.11.1
0.11.0
0.10.2
0.10.1
0.10.0
0.9.3
0.9.2
0.9.1
0.9.0
0.8.1
0.8.0
0.7.1
0.7.0
0.6.0
0.5.0
0.4.0
0.3.0
0.2.0
0.1.0
Elixir SDK for the Stellar network.
Current section
Files
Jump to
Current section
Files
lib/tx_build/soroban_resources.ex
defmodule Stellar.TxBuild.SorobanResources do
@moduledoc """
`SorobanResources` struct definition.
"""
alias StellarBase.XDR.{SorobanResources, UInt32}
alias Stellar.TxBuild.LedgerFootprint
@behaviour Stellar.TxBuild.XDR
@type error :: {:error, atom()}
@type validation :: {:ok, any()} | error()
@type footprint :: LedgerFootprint.t()
@type instructions :: integer()
@type read_bytes :: integer()
@type write_bytes :: integer()
@type t :: %__MODULE__{
footprint: footprint(),
instructions: instructions(),
read_bytes: read_bytes(),
write_bytes: write_bytes()
}
defstruct [
:footprint,
:instructions,
:read_bytes,
:write_bytes
]
@impl true
def new(args, opts \\ [])
def new(
[
{:footprint, footprint},
{:instructions, instructions},
{:read_bytes, read_bytes},
{:write_bytes, write_bytes}
],
_opts
)
when is_integer(instructions) and is_integer(read_bytes) and is_integer(write_bytes) do
with {:ok, footprint} <- validate_footprint(footprint) do
%__MODULE__{
footprint: footprint,
instructions: instructions,
read_bytes: read_bytes,
write_bytes: write_bytes
}
end
end
def new(_value, _opts), do: {:error, :invalid_soroban_resources_args}
@impl true
def to_xdr(%__MODULE__{
footprint: footprint,
instructions: instructions,
read_bytes: read_bytes,
write_bytes: write_bytes
}) do
instructions = UInt32.new(instructions)
read_bytes = UInt32.new(read_bytes)
write_bytes = UInt32.new(write_bytes)
footprint
|> LedgerFootprint.to_xdr()
|> SorobanResources.new(
instructions,
read_bytes,
write_bytes
)
end
def to_xdr(_struct), do: {:error, :invalid_struct}
@spec validate_footprint(footprint :: footprint()) :: validation()
defp validate_footprint(%LedgerFootprint{} = footprint), do: {:ok, footprint}
defp validate_footprint(_footprint), do: {:error, :invalid_footprint}
end