41 lines
780 B
OCaml
41 lines
780 B
OCaml
(*
|
|
* uTop_history.mli
|
|
* -------
|
|
* Copyright : (c) 2017, Fabian Hemmer <copy@copy.sh>
|
|
* Licence : BSD3
|
|
*
|
|
* This file is a part of utop.
|
|
*)
|
|
|
|
|
|
(** Type of a history entry *)
|
|
type entry =
|
|
| Input of string
|
|
| Output of string
|
|
| Error of string
|
|
| Warnings of string
|
|
| Bad_input of string
|
|
|
|
type t
|
|
|
|
val create : unit -> t
|
|
(** Create a new, empty history *)
|
|
|
|
val contents : t -> entry list
|
|
(** Get the contents of the given history *)
|
|
|
|
val add_input : t -> string -> unit
|
|
(** Add an input *)
|
|
|
|
val add_output : t -> string -> unit
|
|
(** Add an output *)
|
|
|
|
val add_error : t -> string -> unit
|
|
(** Add an error *)
|
|
|
|
val add_warnings : t -> string -> unit
|
|
(** Add a warning *)
|
|
|
|
val add_bad_input : t -> string -> unit
|
|
(** Add an input that resulted in an error *)
|