Fossil

Check-in [61829b07]
Login

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

Overview
Comment:Renamed changeset method to describe modified results, and updated the one invoker
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:61829b076bd6e1bb9b40794206cb1dd5f8eca8ea
User & Date: aku 2007-11-29 07:58:14
Context
2007-11-29
09:13
Extended checks for looped changesets. check-in: 96064544 user: aku tags: trunk
07:58
Renamed changeset method to describe modified results, and updated the one invoker check-in: 61829b07 user: aku tags: trunk
07:55
Renamed changeset method to describe modified results, and updated the one invoker. Modified the sorting of time ranges. Now by max, min as tiebreaker, and object name as last tiebreaker. check-in: 04d76a9e user: aku tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

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

69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
		WHERE  S.sid = $mysrcid
	    }]'"
	}
	append str "$mytype ${myid}${detail}>"
	return $str
    }

    method id        {} { return $myid }
    method revisions {} { return $mytitems }
    method data      {} { return [list $myproject $mytype $mysrcid] }

    delegate method bysymbol   to mytypeobj
    delegate method byrevision to mytypeobj
    delegate method isbranch   to mytypeobj
    delegate method istag      to mytypeobj

    method setpos {p} { set mypos $p ; return }







|
|
|







69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
		WHERE  S.sid = $mysrcid
	    }]'"
	}
	append str "$mytype ${myid}${detail}>"
	return $str
    }

    method id    {} { return $myid }
    method items {} { return $mytitems }
    method data  {} { return [list $myproject $mytype $mysrcid] }

    delegate method bysymbol   to mytypeobj
    delegate method byrevision to mytypeobj
    delegate method isbranch   to mytypeobj
    delegate method istag      to mytypeobj

    method setpos {p} { set mypos $p ; return }

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

71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
	# wherever, will break the cycle. If category 2 revisions are
	# present we can still perform the split, this will however
	# not break the cycle, only weaken it.

	array set csetprevmap [Invert [$myprev nextmap]]
	array set csetnextmap [$mycset nextmap]

	set prevrev [$myprev revisions]
	set nextrev [$mynext revisions]

	foreach r [$mycset revisions] {
	    set rt [RT $r]
	    incr    mycount($rt)
	    lappend mycategory($rt) $r
	}
	return
    }

    # Result is TRUE if and only breaking myset will do some good.







|
|

|
|







71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
	# wherever, will break the cycle. If category 2 revisions are
	# present we can still perform the split, this will however
	# not break the cycle, only weaken it.

	array set csetprevmap [Invert [$myprev nextmap]]
	array set csetnextmap [$mycset nextmap]

	set prevrev [$myprev items]
	set nextrev [$mynext items]

	foreach items [$mycset items] {
	    set rt [RT $items]
	    incr    mycount($rt)
	    lappend mycategory($rt) $r
	}
	return
    }

    # Result is TRUE if and only breaking myset will do some good.