Packages

bitcoinlib

0.2.0
0.4.7 0.4.6 0.4.5 0.4.4 0.4.3 0.4.2 0.4.1 0.4.0 0.3.5 0.3.4 0.3.3 0.3.2 0.3.1 0.3.0 0.2.10 0.2.9 0.2.8 0.2.7 0.2.6 0.2.5 0.2.4 0.2.3 0.2.2 0.2.0 0.2.0-pre4 0.2.0-pre3 0.2.0-pre2 0.2.0-pre1 0.1.3 0.1.2 0.1.1 0.1.0

Generate private/public keys and addresses for the bitcoin network

HexDocs

Current section

Files

Jump to
Readme
32 Versions
5 Dependencies
Dependants
Files
Activity
bitcoinlib lib signing psbt generic_properties witness_script.ex
Raw

lib/signing/psbt/generic_properties/witness_script.ex 

defmodule BitcoinLib.Signing.Psbt.GenericProperties.WitnessScript do

  defstruct [:script]



  alias BitcoinLib.Signing.Psbt.GenericProperties.WitnessScript

  alias BitcoinLib.Signing.Psbt.Keypair.{Key}

  alias BitcoinLib.Script



  def parse(keypair) do

    %{keypair: keypair, witness_script: %WitnessScript{}}

    |> validate_keypair()

    |> extract_witness_script()

  end



  defp validate_keypair(%{keypair: keypair, witness_script: witness_script} = map) do

    case keypair.key do

      %Key{data: <<>>} ->

        map



      _ ->

        %{

          map

          | witness_script: Map.put(witness_script, :error, "invalid witnessscript typed key")

        }

    end

  end



  defp extract_witness_script(%{witness_script: %{error: _message} = witness_script}),

    do: witness_script



  defp extract_witness_script(%{keypair: keypair}) do

    script =

      keypair.value.data

      |> Script.parse()



    %WitnessScript{script: script}

  end

end