034c92a64c
and Making name, type_variable, built-in, constructor, label and string uncompatible types in ligo (weird bug with types in ligodity)
78 lines
2.9 KiB
OCaml
78 lines
2.9 KiB
OCaml
module Typer : sig
|
|
open Trace
|
|
open Ast_typed
|
|
|
|
module Errors : sig
|
|
val wrong_param_number : string -> int -> 'a list -> unit -> error
|
|
val error_uncomparable_types : type_value -> type_value -> unit -> error
|
|
end
|
|
|
|
type type_result = type_value
|
|
type typer = type_value list -> type_value option -> type_result result
|
|
|
|
(*
|
|
val typer'_0 : name -> (type_value option -> type_value result) -> typer'
|
|
*)
|
|
val typer_0 : string -> ( type_value option -> type_value result ) -> typer
|
|
(*
|
|
val typer'_1 : name -> (type_value -> type_value result) -> typer'
|
|
*)
|
|
val typer_1 : string -> (type_value -> type_value result) -> typer
|
|
(*
|
|
val typer'_1_opt : name -> (type_value -> type_value option -> type_value result) -> typer'
|
|
*)
|
|
val typer_1_opt : string -> (type_value -> type_value option -> type_value result) -> typer
|
|
(*
|
|
val typer'_2 : name -> (type_value -> type_value -> type_value result) -> typer'
|
|
*)
|
|
val typer_2 : string -> (type_value -> type_value -> type_value result) -> typer
|
|
val typer_2_opt : string -> (type_value -> type_value -> type_value option -> type_value result) -> typer
|
|
(*
|
|
val typer'_3 : name -> (type_value -> type_value -> type_value -> type_value result) -> typer'
|
|
*)
|
|
val typer_3 : string -> (type_value -> type_value -> type_value -> type_value result) -> typer
|
|
(*
|
|
val typer'_4 : name -> (type_value -> type_value -> type_value -> type_value -> type_value result) -> typer'
|
|
*)
|
|
val typer_4 : string -> (type_value -> type_value -> type_value -> type_value -> type_value result) -> typer
|
|
(*
|
|
val typer'_5 : name -> (type_value -> type_value -> type_value -> type_value -> type_value -> type_value result) -> typer'
|
|
*)
|
|
val typer_5 : string -> (type_value -> type_value -> type_value -> type_value -> type_value -> type_value result) -> typer
|
|
(*
|
|
val typer'_6 : name -> (type_value -> type_value -> type_value -> type_value -> type_value -> type_value -> type_value result) -> typer'
|
|
*)
|
|
val typer_6 : string -> (type_value -> type_value -> type_value -> type_value -> type_value -> type_value -> type_value result) -> typer
|
|
|
|
val constant : string -> type_value -> typer
|
|
|
|
val eq_1 : type_value -> type_value -> bool
|
|
val eq_2 : ( type_value * type_value ) -> type_value -> bool
|
|
val assert_eq_1 : ?msg:string -> type_value -> type_value -> unit result
|
|
|
|
val comparator : string -> typer
|
|
val boolean_operator_2 : string -> typer
|
|
|
|
end
|
|
|
|
module Compiler : sig
|
|
open Tezos_utils.Michelson
|
|
|
|
type predicate =
|
|
| Constant of michelson
|
|
| Unary of michelson
|
|
| Binary of michelson
|
|
| Ternary of michelson
|
|
| Tetrary of michelson
|
|
| Pentary of michelson
|
|
| Hexary of michelson
|
|
val simple_constant : t -> predicate
|
|
val simple_unary : t -> predicate
|
|
val simple_binary : t -> predicate
|
|
val simple_ternary : t -> predicate
|
|
val simple_tetrary : t -> predicate
|
|
val simple_pentary : t -> predicate
|
|
val simple_hexary : t -> predicate
|
|
|
|
end
|