Evaluated proc rproc url {set src [lnull [split [$url] "\n--------\n"]]; join [map $src {x {set pname [second $x]; if {$pname != "" && [info proc $pname] != ""} {. [^C]04$pname: not installed because it exists} elseif {$pname != ""} {eval $x; . [^C]09$pname: installed } }}] \n }