vc_path_relative

vc_path_relative   path

Returns the component of path relative to [acs_root_dir]. If path does not begin with [acs_root_dir] it is returned unchanged.

Source code:

    set root [acs_root_dir]

    # verify that path starts with $root
    if { [string first $root $path] == 0 } {
	# it does, so trim out the leading part
	set path [string range $path [expr { [string length $root] + 1 }] end]
    }

    return $path