package bitcoinml

  1. Overview
  2. Docs
package bitcoinml
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file script_nulldata.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
open Script;;

module Output = struct 
  type t = Script.data;;

  let check s = 
    match fst s with
    | OP_RETURN (data) :: [] -> true
    | _ -> false
  ;;

  let encode data = Script.of_opcodes [ OP_RETURN (data) ];;

  let decode s = 
    match fst s with
    | OP_RETURN (data) :: [] -> data
    | _ -> ""
  ;;

  let spendable_by s prefix = "";;
end

(*
module Script_nulldata = Script_template.Make_template
  (Input)
  (Output)
;;
*)