Main (mlsem-app.Mlsem

module MVariable = Mlsem_lang.MVariable

module NameMap : Stdlib.Map.S with type key = string

type message =
  Mlsem_system.Analyzer.severity
  * Mlsem_common.Position.t
  * string
  * string option

type treat_result =

| TSuccess of (Mlsem_common.Variable.t * string) list * message list * float
| TDone
| TFailure of Mlsem_common.Variable.t option * Mlsem_common.Position.t * string * string option * float

type envs =
  Mlsem_types.Builder.benv
  * Mlsem_common.Variable.t NameMap.t
  * Mlsem_types.Ty.t list Mlsem_common.VarMap.t
  * Mlsem_common.Env.t
  * Mlsem_types.PEnv.t

val treat : 
  envs ->
  ('a Mlsem_common.Position.located * PAst.element) ->
  envs * treat_result

val treat_sig : 
  envs ->
  ('a Mlsem_common.Position.located * PAst.element) ->
  envs * treat_result

val treat_def : 
  envs ->
  ('a Mlsem_common.Position.located * PAst.element) ->
  envs * treat_result

val treat_all_sigs : 
  envs ->
  ('a Mlsem_common.Position.located * PAst.element) list ->
  envs * treat_result

val initial_envs : envs

val initial_senv : Mlsem_types.Ty.t list Mlsem_common.VarMap.t

val initial_benv : Mlsem_types.Builder.benv

val initial_penv : Mlsem_types.PEnv.t

type parsing_result =

| PSuccess of PAst.program
| PFailure of Mlsem_common.Position.t * string

val parse : [< `File of string | `String of string ] -> parsing_result