1999-02-16 01:07:26 -08:00
|
|
|
(***********************************************************************)
|
|
|
|
(* *)
|
|
|
|
(* Objective Caml *)
|
|
|
|
(* *)
|
1999-02-25 02:26:38 -08:00
|
|
|
(* Pierre Weis and Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
|
1999-02-16 01:07:26 -08:00
|
|
|
(* *)
|
|
|
|
(* Copyright 1999 Institut National de Recherche en Informatique et *)
|
1999-11-17 10:59:06 -08:00
|
|
|
(* en Automatique. All rights reserved. This file is distributed *)
|
|
|
|
(* under the terms of the GNU Library General Public License. *)
|
1999-02-16 01:07:26 -08:00
|
|
|
(* *)
|
|
|
|
(***********************************************************************)
|
|
|
|
|
1999-02-25 02:26:38 -08:00
|
|
|
(* Module [Buffer]: extensible string buffers *)
|
1999-02-16 01:07:26 -08:00
|
|
|
|
1999-02-25 02:26:38 -08:00
|
|
|
(* This module implements string buffers that automatically expand
|
|
|
|
as necessary. It provides accumulative concatenation of strings
|
|
|
|
in quasi-linear time (instead of quadratic time when strings are
|
|
|
|
concatenated pairwise). *)
|
|
|
|
|
|
|
|
type t
|
1999-02-16 01:07:26 -08:00
|
|
|
(* The abstract type of buffers. *)
|
|
|
|
|
1999-02-23 11:03:39 -08:00
|
|
|
val create : int -> t
|
1999-02-25 02:26:38 -08:00
|
|
|
(* [create n] returns a fresh buffer, initially empty.
|
|
|
|
The [n] parameter is the initial size of the internal string
|
|
|
|
that holds the buffer contents. That string is automatically
|
|
|
|
reallocated when more than [n] characters are stored in the buffer,
|
|
|
|
but shrinks back to [n] characters when [reset] is called.
|
|
|
|
For best performance, [n] should be of the same order of magnitude
|
|
|
|
as the number of characters that are expected to be stored in
|
|
|
|
the buffer (for instance, 80 for a buffer that holds one output
|
|
|
|
line). Nothing bad will happen if the buffer grows beyond that
|
1999-10-02 05:09:43 -07:00
|
|
|
limit, however. In doubt, take [n = 16] for instance.
|
|
|
|
If [n] is not between 1 and [Sys.max_string_length], it will
|
|
|
|
be clipped to that interval. *)
|
1999-02-23 11:03:39 -08:00
|
|
|
val contents : t -> string
|
1999-02-25 02:26:38 -08:00
|
|
|
(* Return a copy of the current contents of the buffer.
|
|
|
|
The buffer itself is unchanged. *)
|
1999-02-23 11:03:39 -08:00
|
|
|
val length : t -> int
|
1999-02-25 02:26:38 -08:00
|
|
|
(* Return the number of characters currently contained in the buffer. *)
|
1999-02-23 11:03:39 -08:00
|
|
|
val clear : t -> unit
|
1999-02-25 02:26:38 -08:00
|
|
|
(* Empty the buffer. *)
|
1999-02-23 11:03:39 -08:00
|
|
|
val reset : t -> unit
|
1999-02-25 02:26:38 -08:00
|
|
|
(* Empty the buffer and deallocate the internal string holding the
|
|
|
|
buffer contents, replacing it with the initial internal string
|
|
|
|
of length [n] that was allocated by [create n].
|
|
|
|
For long-lived buffers that may have grown a lot, [reset] allows
|
|
|
|
faster reclaimation of the space used by the buffer. *)
|
|
|
|
val add_char : t -> char -> unit
|
|
|
|
(* [add_char b c] appends the character [c] at the end of
|
|
|
|
the buffer [b]. *)
|
|
|
|
val add_string : t -> string -> unit
|
|
|
|
(* [add_string b s] appends the string [s] at the end of
|
|
|
|
the buffer [b]. *)
|
|
|
|
val add_substring : t -> string -> int -> int -> unit
|
|
|
|
(* [add_substring b s ofs len] takes [len] characters from offset
|
|
|
|
[ofs] in string [s] and appends them at the end of the buffer [b]. *)
|
|
|
|
val add_buffer : t -> t -> unit
|
|
|
|
(* [add_buffer b1 b2] appends the current contents of buffer [b2]
|
|
|
|
at the end of buffer [b1]. [b2] is not modified. *)
|
|
|
|
val add_channel : t -> in_channel -> int -> unit
|
|
|
|
(* [add_channel b ic n] reads exactly [n] character from the
|
|
|
|
input channel [ic] and stores them at the end of buffer [b].
|
|
|
|
Raise [End_of_file] if the channel contains fewer than [n]
|
|
|
|
characters. *)
|
|
|
|
val output_buffer : out_channel -> t -> unit
|
|
|
|
(* [output_buffer oc b] writes the current contents of buffer [b]
|
|
|
|
on the output channel [oc]. *)
|