SHA1 Hash:	970be48fce64bb2aeca497ef96d8d8989bf0d936
Date:	2008-01-27 20:43:19
User:	aku
Comment:	Added debug helper methods. Fixed description of symbol reference in instances.
Timelines:	ancestors | descendants | both | trunk
Other Links:	files | ZIP archive | manifest

• branch=trunk inherited from [a28c83647d]
• sym-trunk inherited from [a28c83647d]

Modified tools/cvs2fossil/lib/c2f_frev.tcl from [72b07e1bd5] to [928c3acc91].

@@ -40,11 +40,12 @@
     method defid {} {
 	set myid [incr myidcounter]
 	return
     }
 
-    method id {} { return $myid }
+    method id   {} { return $myid }
+    method file {} { return $myfile }
 
     # Basic pieces ________________________
 
     method hasmeta {} { return [expr {$mymetaid ne ""}] }
     method hastext {} {
@@ -398,10 +399,26 @@
     #             myoperation         - revision.op
     #             myisondefaultbranch - revision.isdefault
     #             mydbparent          - revision.dbparent
     #             mydbchild           - revision.dbchild
 
+    method DUMP {label} {
+	puts "$label = $self <$myrevnr> (NTDB=$myisondefaultbranch) \{"
+	puts "\tP\t$myparent"
+	puts "\tC\t$mychild"
+	puts "\tPB\t$myparentbranch"
+	puts "\tdbP\t$mydbparent"
+	puts "\tdbC\t$mydbchild"
+	foreach b $mybranches {
+	    puts \t\tB\t$b
+	}
+	foreach b $mybranchchildren {
+	    puts \t\tBC\t$b
+	}
+	puts "\}"
+	return
+    }
 
     typevariable mybranchpattern {^((?:\d+\.\d+\.)+)(?:0\.)?(\d+)$}
     # First a nonzero even number of digit groups with trailing dot
     # CVS then sticks an extra 0 in here; RCS does not.
     # And the last digit group.
@@ -426,12 +443,12 @@
 			      # used.
     variable mylod       {} ; # Reference to the line-of-development
 			      # object the revision belongs to. An
 			      # alternative idiom would be to call it
 			      # the branch the revision is on. This
-			      # reference is to a project-level object
-			      # (symbol or trunk).
+			      # reference is to either project-level
+			      # trunk or file-level symbol.
 
     # Basic parent/child linkage (lines of development)
 
     variable myparent {} ; # Ref to parent revision object. Link required because of
     #                    ; # 'cvsadmin -o', which can create arbitrary gaps in the