fsml 0.3.0 (latest) · OCaml Package

Types

type t =

| TyInt of sign attr * size attr * range attr
| TyBool
| TyArrow of t * t
(*
Internal use only
*)
| TyProduct of t list
(*
Internal use only
*)
| TyVar of t var
(*
Internal use only
*)

and 'a attr =

| Const of 'a
| Var of 'a attr var

and 'a var = {

stamp : string;
mutable value : 'a value;

}

and 'a value =

| Unknown
| Known of 'a

and sign =

| Signed
| Unsigned

and size = int

and range = {

lo : int;
hi : int;

}

val pp : 
  Ppx_deriving_runtime.Format.formatter ->
  t ->
  Ppx_deriving_runtime.unit

val show : t -> Ppx_deriving_runtime.string

val pp_attr : 
  (Ppx_deriving_runtime.Format.formatter -> 'a -> Ppx_deriving_runtime.unit) ->
  Ppx_deriving_runtime.Format.formatter ->
  'a attr ->
  Ppx_deriving_runtime.unit

val show_attr : 
  (Ppx_deriving_runtime.Format.formatter -> 'a -> Ppx_deriving_runtime.unit) ->
  'a attr ->
  Ppx_deriving_runtime.string

val pp_var : 
  (Ppx_deriving_runtime.Format.formatter -> 'a -> Ppx_deriving_runtime.unit) ->
  Ppx_deriving_runtime.Format.formatter ->
  'a var ->
  Ppx_deriving_runtime.unit

val show_var : 
  (Ppx_deriving_runtime.Format.formatter -> 'a -> Ppx_deriving_runtime.unit) ->
  'a var ->
  Ppx_deriving_runtime.string

val pp_value : 
  (Ppx_deriving_runtime.Format.formatter -> 'a -> Ppx_deriving_runtime.unit) ->
  Ppx_deriving_runtime.Format.formatter ->
  'a value ->
  Ppx_deriving_runtime.unit

val show_value : 
  (Ppx_deriving_runtime.Format.formatter -> 'a -> Ppx_deriving_runtime.unit) ->
  'a value ->
  Ppx_deriving_runtime.string

val pp_sign : 
  Ppx_deriving_runtime.Format.formatter ->
  sign ->
  Ppx_deriving_runtime.unit

val show_sign : sign -> Ppx_deriving_runtime.string

val pp_size : 
  Ppx_deriving_runtime.Format.formatter ->
  size ->
  Ppx_deriving_runtime.unit

val show_size : size -> Ppx_deriving_runtime.string

val pp_range : 
  Ppx_deriving_runtime.Format.formatter ->
  range ->
  Ppx_deriving_runtime.unit

val show_range : range -> Ppx_deriving_runtime.string

val to_yojson : t -> Yojson.Safe.t

val of_yojson : Yojson.Safe.t -> t Ppx_deriving_yojson_runtime.error_or

val attr_to_yojson : ('a -> Yojson.Safe.t) -> 'a attr -> Yojson.Safe.t

val attr_of_yojson : 
  (Yojson.Safe.t -> 'a Ppx_deriving_yojson_runtime.error_or) ->
  Yojson.Safe.t ->
  'a attr Ppx_deriving_yojson_runtime.error_or

val var_to_yojson : ('a -> Yojson.Safe.t) -> 'a var -> Yojson.Safe.t

val var_of_yojson : 
  (Yojson.Safe.t -> 'a Ppx_deriving_yojson_runtime.error_or) ->
  Yojson.Safe.t ->
  'a var Ppx_deriving_yojson_runtime.error_or

val value_to_yojson : ('a -> Yojson.Safe.t) -> 'a value -> Yojson.Safe.t

val value_of_yojson : 
  (Yojson.Safe.t -> 'a Ppx_deriving_yojson_runtime.error_or) ->
  Yojson.Safe.t ->
  'a value Ppx_deriving_yojson_runtime.error_or

val sign_to_yojson : sign -> Yojson.Safe.t

val sign_of_yojson : Yojson.Safe.t -> sign Ppx_deriving_yojson_runtime.error_or

val size_to_yojson : size -> Yojson.Safe.t

val size_of_yojson : Yojson.Safe.t -> size Ppx_deriving_yojson_runtime.error_or

val range_to_yojson : range -> Yojson.Safe.t

val range_of_yojson : 
  Yojson.Safe.t ->
  range Ppx_deriving_yojson_runtime.error_or

type typ_scheme = {

ts_params : ts_params;
ts_body : t;

}

and ts_params = {

tp_typ : t var list;
tp_sign : sign attr var list;
tp_size : size attr var list;
tp_range : range attr var list;

}

val pp_typ_scheme : 
  Ppx_deriving_runtime.Format.formatter ->
  typ_scheme ->
  Ppx_deriving_runtime.unit

val show_typ_scheme : typ_scheme -> Ppx_deriving_runtime.string

val pp_ts_params : 
  Ppx_deriving_runtime.Format.formatter ->
  ts_params ->
  Ppx_deriving_runtime.unit

val show_ts_params : ts_params -> Ppx_deriving_runtime.string

val typ_scheme_to_yojson : typ_scheme -> Yojson.Safe.t

val typ_scheme_of_yojson : 
  Yojson.Safe.t ->
  typ_scheme Ppx_deriving_yojson_runtime.error_or

val ts_params_to_yojson : ts_params -> Yojson.Safe.t

val ts_params_of_yojson : 
  Yojson.Safe.t ->
  ts_params Ppx_deriving_yojson_runtime.error_or

Builders

val new_type_var : unit -> t var

new_type_var () returns a fresh type variable

val new_attr_var : unit -> 'a attr var

new_attr_var () returns a fresh type attribute variable

val type_int : unit -> t

val trivial_scheme : t -> typ_scheme

Unification

exception TypeConflict of t * t

exception TypeCircularity of t * t

val unify : t -> t -> unit

val type_instance : typ_scheme -> t

val real_type : t -> t

val real_attr : 'a attr -> 'a attr

exception Polymorphic of t

val mono_type : t -> t

Remove all type variables from type representation t. Raises !Polymorphic if t contains unresolved type variables.

Printing

val to_string : t -> string

package fsml

Builders

Unification

Printing