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

Overview
Comment:Added placeholder code to the fossil accessor class for the import of a revision. currently only logging the call.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:f9e0d23d97e9bce240ff9ea8b9373304ef63bc6e
User & Date: aku 2008-01-30 08:25:00
Context
2008-01-30
08:28
Added basic import of changesets. Note that this code is incomplete with regard to handling the various possible interactions between a vendor-branh and trunk. check-in: 348e45b0 user: aku tags: trunk
08:25
Added placeholder code to the fossil accessor class for the import of a revision. currently only logging the call. check-in: f9e0d23d user: aku tags: trunk
08:23
Broke package dependency cycle introduced when moving the cset load code from the InitCsets pass to the cset class. check-in: 9e1b461b user: aku tags: trunk
Changes

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

90
91
92
93
94
95
96

























97
98
99
100
101
102
103
	    }
	}
	$self RestorePwd

	log write 3 fossil Done.
	return [array get id]
    }


























    method finalize {destination} {
	::file rename -force $myrepository $destination
	::file delete -force $myworkspace
	$self destroy
	return
    }







>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>







90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
	    }
	}
	$self RestorePwd

	log write 3 fossil Done.
	return [array get id]
    }

    method importrevision {label user message date parent revisions} {
	# TODO = Write the actual import, and up the log level.

	log write 2 fossil {== $user @ [clock format $date]}
	log write 2 fossil {-> $parent}
	log write 2 fossil {%% [join [split $message \n] "\n%% "]}

	set uuids {}
	foreach {uuid fname revnr} $revisions {
	    lappend uuids $uuid
	    log write 2 fossil {** $fname/$revnr = <$uuid>}
	}

	# Massage the commit message to remember the old user name
	# which did the commit in CVS.

	set message "By $user:\n$message"

	# run fossil test-command performing the import.
	#

	log write 2 fossil {== $label}
	return $label ; # FAKE a uuid for the moment
    }

    method finalize {destination} {
	::file rename -force $myrepository $destination
	::file delete -force $myworkspace
	$self destroy
	return
    }