mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 03:05:28 -05:00
157 lines
4 KiB
OCaml
157 lines
4 KiB
OCaml
type 'a or_error = ('a, string) result
|
|
type 'a iter = ('a -> unit) -> unit
|
|
type 'a gen = unit -> 'a option
|
|
|
|
(** {2 Abstract representation of S-expressions}
|
|
@since 3.3 *)
|
|
module type BASIC_SEXP = sig
|
|
type t
|
|
|
|
val atom : string -> t
|
|
val list : t list -> t
|
|
val match_ : t -> atom:(string -> 'a) -> list:(t list -> 'a) -> 'a
|
|
end
|
|
|
|
(** {2 Abstract representation of S-expressions (extended)}
|
|
|
|
@since 2.7 *)
|
|
module type SEXP = sig
|
|
include BASIC_SEXP
|
|
|
|
type loc
|
|
|
|
val make_loc : (int * int -> int * int -> string -> loc) option
|
|
(** If provided, builds a location from a pair of [(line,column)] positions, and
|
|
a (possibly dummy) filename *)
|
|
|
|
val atom_with_loc : loc:loc -> string -> t
|
|
val list_with_loc : loc:loc -> t list -> t
|
|
end
|
|
|
|
(** {2 Operations over S-expressions}
|
|
|
|
@since 2.7 *)
|
|
module type S0 = sig
|
|
type t
|
|
type sexp = t
|
|
|
|
(** {2 Re-exports} *)
|
|
|
|
val atom : string -> t
|
|
(** Make an atom out of this string.
|
|
@since 2.8 *)
|
|
|
|
val list : t list -> t
|
|
(** Make a Sexpr of this list.
|
|
@since 2.8 *)
|
|
|
|
(** {2 Constructors} *)
|
|
|
|
val of_int : int -> t
|
|
val of_bool : bool -> t
|
|
val of_list : t list -> t
|
|
|
|
val of_rev_list : t list -> t
|
|
(** Reverse the list. *)
|
|
|
|
val of_float : float -> t
|
|
val of_unit : t
|
|
val of_pair : t * t -> t
|
|
val of_triple : t * t * t -> t
|
|
val of_quad : t * t * t * t -> t
|
|
|
|
val of_variant : string -> t list -> t
|
|
(** [of_variant name args] is used to encode algebraic variants
|
|
into a S-expr. For instance [of_variant "some" [of_int 1]]
|
|
represents the value [Some 1]. *)
|
|
|
|
val of_field : string -> t -> t
|
|
(** Used to represent one record field. *)
|
|
|
|
val of_record : (string * t) list -> t
|
|
(** Represent a record by its named fields. *)
|
|
|
|
(** {2 Printing} *)
|
|
|
|
val to_buf : Buffer.t -> t -> unit
|
|
val to_string : t -> string
|
|
val to_file : string -> t -> unit
|
|
|
|
val to_file_iter : string -> t iter -> unit
|
|
(** Print the given iter of expressions to a file. *)
|
|
|
|
val to_chan : out_channel -> t -> unit
|
|
|
|
val pp : Format.formatter -> t -> unit
|
|
(** Pretty-printer nice on human eyes (including indentation). *)
|
|
|
|
val pp_noindent : Format.formatter -> t -> unit
|
|
(** Raw, direct printing as compact as possible. *)
|
|
|
|
(** {2 Parsing} *)
|
|
|
|
val parse_string : string -> t or_error
|
|
(** Parse a string. *)
|
|
|
|
val parse_string_list : string -> t list or_error
|
|
(** Parse a string into a list of S-exprs.
|
|
@since 2.8 *)
|
|
|
|
val parse_chan : in_channel -> t or_error
|
|
(** Parse a S-expression from the given channel. Can read more data than
|
|
necessary, so don't use this if you need finer-grained control (e.g.
|
|
to read something else {b after} the S-exp). *)
|
|
|
|
val parse_chan_gen : in_channel -> t or_error gen
|
|
(** Parse a channel into a generator of S-expressions. *)
|
|
|
|
val parse_chan_list : in_channel -> t list or_error
|
|
|
|
val parse_file : string -> t or_error
|
|
(** Open the file and read a S-exp from it. *)
|
|
|
|
val parse_file_list : string -> t list or_error
|
|
(** Open the file and read a S-exp from it. *)
|
|
end
|
|
|
|
(** {2 Operations over S-expressions (extended)}
|
|
|
|
@since 2.7 *)
|
|
module type S = sig
|
|
include S0
|
|
|
|
type loc
|
|
(** Locations for the S-expressions.
|
|
@since 3.3 *)
|
|
|
|
(** {2 Parsing} *)
|
|
|
|
(** A parser of ['a] can return [Yield x] when it parsed a value,
|
|
or [Fail e] when a parse error was encountered, or
|
|
[End] if the input was empty. *)
|
|
type 'a parse_result =
|
|
| Yield of 'a
|
|
| Fail of string
|
|
| End
|
|
|
|
module Decoder : sig
|
|
type t
|
|
(** Decoder *)
|
|
|
|
val of_lexbuf : Lexing.lexbuf -> t
|
|
|
|
val next : t -> sexp parse_result
|
|
(** Parse the next S-expression or return an error if the input isn't
|
|
long enough or isn't a proper S-expression. *)
|
|
|
|
val to_list : t -> sexp list or_error
|
|
(** Read all the values from this decoder.
|
|
@since 2.8 *)
|
|
|
|
val last_loc : t -> loc option
|
|
(** Last location for the decoder. In particular,
|
|
after calling {!next}, this gives the location of the last token
|
|
used in the result, which is useful in case of error.
|
|
@since 3.3 *)
|
|
end
|
|
end
|