Fossil

Check-in [ac026148]
Login

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

Overview
Comment:Deactivated caching of the nextmap/premap data, with the indices the retrieval seems to be fast enough to allow us to reduce mem consumption. Tweaked log output, and sql formatting.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:ac026148036db7afcd882f3760455f02f4f74ce9
User & Date: aku 2007-12-02 03:49:11
Context
2007-12-02
04:55
Bugfix. Have the symbol dependency retrieval commands actually return something. check-in: 71201058 user: aku tags: trunk
03:49
Deactivated caching of the nextmap/premap data, with the indices the retrieval seems to be fast enough to allow us to reduce mem consumption. Tweaked log output, and sql formatting. check-in: ac026148 user: aku tags: trunk
03:46
Bugfix in ValidateFragments, tweaked comment a bit, bugfix in SQL, reordered tables in the successor/predecessor queries a bit to show the actual progression of their use. check-in: fbfb5318 user: aku tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

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

125
126
127
128
129
130
131
132
133

134
135
136
137
138
139
140
141

142
143
144
145
146
147
148
149
150
...
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
...
735
736
737
738
739
740
741

742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
	    set tmp($rev) [lsort -unique $tmp($rev)]
	}
	return [array get tmp]
    }

    # item -> list (item)
    method nextmap {} {
	if {[llength $mynextmap]} { return $mynextmap }
	$mytypeobj successors tmp $myitems

	set mynextmap [array get tmp]
	return $mynextmap
    }

    # item -> list (item)
    method premap {} {
	if {[llength $mypremap]} { return $mypremap }
	$mytypeobj predecessors tmp $myitems

	set mypremap [array get tmp]
	return $mypremap
    }

    method breakinternaldependencies {} {

	##
	## NOTE: This method, maybe in conjunction with its caller
	##       seems to be a memory hog, especially for large
................................................................................
	}
	set pos          [lsearch -exact $mychangesets $self]
	set mychangesets [lreplace $mychangesets $pos $pos]
	return
    }

    method loopcheck {} {
	log write 7 csets {Checking [$self str] /[llength $myitems]}

	if {![struct::set contains [$self successors] $self]} {
	    return 0
	}
	if {[log verbosity?] < 8} { return 1 }

	# Print the detailed successor structure of the self-
................................................................................
	}

	return
    }

    # Print identifying data for a revision (project, file, dotted rev
    # number), for high verbosity log output.


    proc PD {id} {
	foreach {p f r} [state run {
		SELECT P.name , F.name, R.rev
		FROM revision R, file F, project P
		WHERE R.rid = $id
		AND   R.fid = F.fid
		AND   F.pid = P.pid
	}] break
	return "'$p : $f/$r'"
    }

    # Printing one or more ranges, formatted, and only their border to
    # keep the strings short.








|

>
|
|




|

>
|
|







 







|







 







>






|
|







125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
...
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
...
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
	    set tmp($rev) [lsort -unique $tmp($rev)]
	}
	return [array get tmp]
    }

    # item -> list (item)
    method nextmap {} {
	#if {[llength $mynextmap]} { return $mynextmap }
	$mytypeobj successors tmp $myitems
	return [array get tmp]
	#set mynextmap [array get tmp]
	#return $mynextmap
    }

    # item -> list (item)
    method premap {} {
	#if {[llength $mypremap]} { return $mypremap }
	$mytypeobj predecessors tmp $myitems
	return [array get tmp]
	#set mypremap [array get tmp]
	#return $mypremap
    }

    method breakinternaldependencies {} {

	##
	## NOTE: This method, maybe in conjunction with its caller
	##       seems to be a memory hog, especially for large
................................................................................
	}
	set pos          [lsearch -exact $mychangesets $self]
	set mychangesets [lreplace $mychangesets $pos $pos]
	return
    }

    method loopcheck {} {
	log write 7 csets {Checking [$self str] for loops /[llength $myitems]}

	if {![struct::set contains [$self successors] $self]} {
	    return 0
	}
	if {[log verbosity?] < 8} { return 1 }

	# Print the detailed successor structure of the self-
................................................................................
	}

	return
    }

    # Print identifying data for a revision (project, file, dotted rev
    # number), for high verbosity log output.
    # TODO: Replace with call to itemstr (list rev $id)

    proc PD {id} {
	foreach {p f r} [state run {
		SELECT P.name , F.name, R.rev
		FROM revision R, file F, project P
		WHERE R.rid = $id
		AND   F.fid = R.fid
		AND   P.pid = F.pid
	}] break
	return "'$p : $f/$r'"
    }

    # Printing one or more ranges, formatted, and only their border to
    # keep the strings short.