SHA1 Hash:	911d56a8c8b9bac7f22ba3baacf3125d00e53f4c
Date:	2007-11-27 09:03:07
User:	aku
Comment:	Changesets, extended human readable representation, and tweaking of log output.
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_prev.tcl from [c24182717e] to [21310ece52].

@@ -50,11 +50,26 @@
 	set     myidmap($myid) $self
 	foreach r $revisions { lappend myrevmap($r) $self }
 	return
     }
 
-    method str {} { return "<$mytype ${myid}>" }
+    method str {} {
+	set str    "<"
+	set detail ""
+	if {$mytype eq "sym"} {
+	    struct::list assign [state run {
+		SELECT T.name, S.name
+		FROM   symtype T, symbol S
+		WHERE  S.sid = $mysrcid
+		AND    T.tid = S.type
+	    }] stype detail
+	    append str $stype " "
+	    set detail " '$detail'"
+	}
+	append str "$mytype ${myid}${detail}>"
+	return $str
+    }
 
     method id        {} { return $myid }
     method revisions {} { return $myrevisions }
     method data      {} { return [list $myproject $mytype $mysrcid] }
 
@@ -63,10 +78,11 @@
 
     method setpos {p} { set mypos $p ; return }
     method pos    {}  { return $mypos }
 
     method isbranch {} {
+	error NOT-USED
 	return [expr {($mytype eq "sym") &&
 		      ($mybranchcode == [state one {
 			  SELECT type FROM symbol WHERE sid = $mysrcid
 		      }])}]
     }
@@ -157,11 +173,11 @@
 
 	array set dependencies {}
 	PullInternalSuccessorRevisions dependencies $myrevisions
 	if {![array size dependencies]} {return 0} ; # Nothing to break.
 
-	log write 6 csets ...[$self str].......................................................
+	log write 5 csets ...[$self str].......................................................
 
 	# We have internal dependencies to break. We now iterate over
 	# all positions in the list (which is chronological, at least
 	# as far as the timestamps are correct and unique) and
 	# determine the best position for the break, by trying to
@@ -773,11 +789,11 @@
 	    unset depc($dep)
 
 	    if {!$six} continue
 
 	    struct::list assign $dep parent child
-	    log write 6 csets "Broke dependency [PD $parent] --> [PD $child]"
+	    log write 5 csets "Broke dependency [PD $parent] --> [PD $child]"
 	}
 
 	return
     }