vc_fetch_repository

one of the documented procedures in this installation of the ACS
Usage:
vc_fetch_repository { -relative 0 } { path "" }
What it does:
Defined in: /web/philip/tcl/vc-defs.tcl

Source code:

arg_parser_for_vc_fetch_repository $args

    if { [empty_string_p $path] } {
	set dirname [acs_root_dir]
    } else {
	set dirname [file dirname $path]
    }
    set cvs_repository "$dirname/CVS/Repository"
    if {[file exists $cvs_repository]} {
	set repository [gets [set fp [open $cvs_repository r]]]
	close $fp
    } else {
	set repository ""
    }
    if { $relative } {
	set root [vc_fetch_root $path]
	if { [string first $root $repository] == 0 } {
	    # $repository begins with $root; trim off the $root part
	    set repository [string range $repository [expr { [string length $root] + 1 }] end]
	}
    }

    return $repository


philg@mit.edu