From 8466d8cfa486fb30d1755c4261b781135083787b Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:29 -0800 Subject: Import Upstream version 3a1 --- cvs.txi | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100644 cvs.txi (limited to 'cvs.txi') diff --git a/cvs.txi b/cvs.txi new file mode 100644 index 0000000..0ff1656 --- /dev/null +++ b/cvs.txi @@ -0,0 +1,32 @@ + +@defun cvs-files directory/ +Returns a list of the local pathnames (with prefix @var{directory/}) of all +CVS controlled files in @var{directory/} and in @var{directory/}'s subdirectories. +@end defun + +@defun cvs-directories directory/ +Returns a list of all of @var{directory/} and all @var{directory/}'s CVS controlled +subdirectories. +@end defun + +@defun cvs-root path/ +Returns the (string) contents of @var{path/}CVS/Root; +or @code{(getenv "CVSROOT")} if Root doesn't exist. +@end defun + +@defun cvs-repository directory/ +Returns the (string) contents of @var{directory/}CVS/Root appended +with @var{directory/}CVS/Repository; or #f if @var{directory/}CVS/Repository +doesn't exist. +@end defun + +@deffn {Procedure} cvs-set-root! new-root directory/ + +Writes @var{new-root} to file CVS/Root of @var{directory/} and all its subdirectories. +@end deffn + +@defun cvs-vet directory/ + +Signals an error if CVS/Repository or CVS/Root files in @var{directory/} or any +subdirectory do not match. +@end defun -- cgit v1.2.3