Differences From:

File tools/cvs2fossil/lib/c2f_fossil.tcl part of check-in [7208c7ac4d] - Changes to cvs2fossil to import tcllib CVS into fossil on Win32

* using ::file instead of file in snit methods to get the core file command * taking care of files that only differ in case in the Attic and the repo on case insensitive FS * passing platform specific

by mjanssen on 2008-01-28 23:57:27. [view]

To:

File tools/cvs2fossil/lib/c2f_fossil.tcl part of check-in [f9e0d23d97] - Added placeholder code to the fossil accessor class for the import of a revision. currently only logging the call. by aku on 2008-01-30 08:25:00. [view]

@@ -92,8 +92,33 @@
 	$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