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 Side-by-Side Diffs Ignore Whitespace Patch

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

    37     37   	set mytrunk      [trunk %AUTO% $self]
    38     38   	set mysymbol([$mytrunk name]) $mytrunk
    39     39   	return
    40     40       }
    41     41   
    42     42       method base  {} { return $mybase  }
    43     43       method trunk {} { return $mytrunk }
           44  +
           45  +    method fullpath {} { return [$myrepository base?]/$mybase }
    44     46   
    45     47       method printbase {} {
    46     48   	if {$mybase eq ""} {return <Repository>}
    47     49   	return $mybase
    48     50       }
    49     51   
    50     52       method id    {}   { return $myid }