Fossil

Check-in [82e35d33]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Extended project class with method return full path of the project, i.e. inclusive its repository base path.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:82e35d330423ddb6cdf0236db95ba18637063df2
User & Date: aku 2007-12-05 07:47:36
Context
2007-12-05
07:50
Put the graph traversal core of the cycle breaker core into a separate class, for use in other parts of the system. TODO: Rewrite the cycle breaker core in terms of this class. check-in: e7013137 user: aku tags: trunk
07:47
Extended project class with method return full path of the project, i.e. inclusive its repository base path. check-in: 82e35d33 user: aku tags: trunk
02:29
Went to explicit var-substitution for the dynamic sql queries, makes formatting easier. check-in: 0ee9711e user: aku tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tools/cvs2fossil/lib/c2f_project.tcl.

37
38
39
40
41
42
43


44
45
46
47
48
49
50
	set mytrunk      [trunk %AUTO% $self]
	set mysymbol([$mytrunk name]) $mytrunk
	return
    }

    method base  {} { return $mybase  }
    method trunk {} { return $mytrunk }



    method printbase {} {
	if {$mybase eq ""} {return <Repository>}
	return $mybase
    }

    method id    {}   { return $myid }







>
>







37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
	set mytrunk      [trunk %AUTO% $self]
	set mysymbol([$mytrunk name]) $mytrunk
	return
    }

    method base  {} { return $mybase  }
    method trunk {} { return $mytrunk }

    method fullpath {} { return [$myrepository base?]/$mybase }

    method printbase {} {
	if {$mybase eq ""} {return <Repository>}
	return $mybase
    }

    method id    {}   { return $myid }