2016-09-08 21:13:10 +04:00
|
|
|
(**************************************************************************)
|
|
|
|
(* *)
|
2017-11-14 03:36:14 +04:00
|
|
|
(* Copyright (c) 2014 - 2017. *)
|
2016-09-08 21:13:10 +04:00
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
(* *)
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
|
|
|
|
2017-12-09 06:51:58 +04:00
|
|
|
type 'a t
|
|
|
|
type 'a arg = 'a t
|
|
|
|
val make:
|
|
|
|
?descr:string ->
|
|
|
|
name:string ->
|
|
|
|
destruct:(string -> ('a, string) result) ->
|
|
|
|
construct:('a -> string) ->
|
|
|
|
unit -> 'a arg
|
2016-09-08 21:13:10 +04:00
|
|
|
|
2017-12-09 06:51:58 +04:00
|
|
|
type descr = {
|
|
|
|
name: string ;
|
|
|
|
descr: string option ;
|
|
|
|
}
|
|
|
|
val descr: 'a arg -> descr
|
2016-09-08 21:13:10 +04:00
|
|
|
|
2017-12-09 06:51:58 +04:00
|
|
|
val int: int arg
|
|
|
|
val int32: int32 arg
|
|
|
|
val int64: int64 arg
|
|
|
|
val float: float arg
|