blob: 0ff1656222cbf9fe8ba0e7ec74dae3871a177f46 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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
|
