fsml 0.2.1 · OCaml Package

Types

type t =

| TyInt of t * size
(*
t is for signness
*)
| TyBool
| TyArrow of t * t
(*
Internal use only
*)
| TyProduct of t list
(*
Internal use only
*)
| TyVar of t var
(*
Internal use only
*)
| TySigned
(*
Phantom type
*)
| TyUnsigned
(*
Phantom type
*)

and size =

| SzConst of int
| SzVar of size var

and 'a var = {

stamp : string;
mutable value : 'a value;

}

and 'a value =

| Unknown
| Known of 'a

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

val show : t -> 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_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 to_yojson : t -> Yojson.Safe.t

val of_yojson : Yojson.Safe.t -> t 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 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

type typ_scheme = {

ts_tparams : t var list;
ts_sparams : size var list;
ts_body : t;

}

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 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

Builders

val new_type_var : unit -> t var

new_type_var () returns a fresh type variable

val new_size_var : unit -> size var

new_size_var () returns a fresh size variable

val type_int : unit -> t

type_int () is TyInt (SzVar (new_size_var ()))

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

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