Fossil

	    }
	}
	return
    }

    typemethod load {} {
	state transaction {
	    foreach   {pid  name} [state run {
	    state foreachrow {
		SELECT pid, name FROM project ;
	    }] {
	    } {
		set project [project %AUTO% $name $type]

		lappend myprojpaths $name
		lappend myprojects  $project
		set myprojmap($pid) $project
		$project setid $pid
	    }
	    foreach   {fid  pid  name  visible  exec} [state run {
	    state foreachrow {
		SELECT fid, pid, name, visible, exec FROM file ;
	    }] {
	    } {
		$myprojmap($pid) addfile $name $visible $exec $fid
	    }
	}
	return
    }

    # pass II results

    }

    typemethod loadsymbols {} {
	state transaction {
	    # We load the symbol ids at large to have the mapping
	    # right from the beginning.

	    foreach {sid pid name tc bc cc} [state run {
		SELECT sid, pid, name, tag_count, branch_count, commit_count
	    state foreachrow {
		SELECT sid, pid, name, tag_count AS tc, branch_count AS bc, commit_count AS cc
		FROM symbol
		;
	    }] {
	    } {
		$mysymbol map $sid [list $pid $name]
		set project $myprojmap($pid)

		set force  [$project hassymbol $name]
		set symbol [$project getsymbol $name]

		# Forcing happens only for the trunks.

		# future: $symbol load (blockers, and parents)
	    }

	    # Beyond the symbols we also load the author, commit log,
	    # and meta information.

	    foreach {aid aname} [state run {
		SELECT aid, name FROM author
	    }] {
	    state foreachrow {
		SELECT aid, name AS aname FROM author
	    } {
		$myauthor map $aid $aname
	    }
	    foreach {cid text} [state run {
	    state foreachrow {
		SELECT cid, text FROM cmessage
	    }] {
	    } {
		$mycmsg map $cid $text
	    }
	    foreach {mid pid bid aid cid} [state run {
	    state foreachrow {
		SELECT mid, pid, bid, aid, cid FROM meta
	    }] {
	    } {
		$mymeta map $mid [list $pid $bid $aid $cid]
	    }
	}
	return
    }

    typemethod determinesymboltypes {} {