module Commands: sig
.. end
Functions executing cvs commands.
val delete_file : string -> unit
val absolute_name : string -> string
val input_file_as_string : string -> string
This function returns a file in the form of one string.
val status_dir : string -> Ocamlcvs.Types.cvs_info list
Return a list of cvs_info
for the files handled by cvs in
the given directory, not recursively.
val status_files : string list -> Ocamlcvs.Types.cvs_info list
Return a list of cvs_info
for the files handled by cvs in
the given list of files.
val commit_files : ?comment:string -> string list -> unit
val commit_dir : ?comment:string -> string -> unit
val update_dir : ?recursive:bool -> string -> (string * Ocamlcvs.Types.update_action) list
val add_dir : string -> unit
val create_and_add_dir : string -> unit
val add_files : ?binary:bool -> string list -> string list * string list
Return the list of added files, which must then have
the "Locally Added" status, and the list of files
for which an error occured.
val remove_files : string list -> string list * string list
val diff_file : ?rev:Ocamlcvs.Types.cvs_revision ->
?rev2:Ocamlcvs.Types.cvs_revision -> string -> Ocamlcvs.Diffs.diffs * string
Get the last modifications of the given file,
or between two revisions, or between a revision
and the working file. Also gives the archive filename.
Warning : Never give rev2
without rev
.
val rcs_revision : Ocamlcvs.Types.cvs_revision -> string -> string
Get the content of a revision from the RCS archive in a file
and return the name of the file.
val revisions_file : string -> Ocamlcvs.Types.cvs_revision list
Get the list of the revisions of a file.
Raises Ocvs_types.CvsFailure
if an error occurs.
Functions for tags
val tags_file : string -> (string * string) list
Get the list of tags in the given file.
Returns a list of (tag, revision number) (both are strings).
val tag_files : (string -> bool) -> string -> string list -> unit
Add a tag to a list of files. The tag syntax is checked before
any CVS command is performed.
RaisesTag_error
if the given tag is incorrect.
CvsFailure
if the CVS command fails.
val tag_dir : ?recursive:bool -> (string -> bool) -> string -> string -> unit
Add a tag to a directory. The tag syntax is checked before
any CVS command is performed.
RaisesTag_error
if the given tag is incorrect.
CvsFailure
if the CVS command fails.
val log : string -> string
Return the result string of the cvs log
command for the given
file handled by cvs.