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