util_report_library_entry

util_report_library_entry   { extra_message "" }

Should be called at beginning of private Tcl library files so that it is easy to see in the error log whether or not private Tcl library files contain errors.

Source code:

    set tentative_path [info script]
    regsub -all {/\./} $tentative_path {/} scrubbed_path
    if { [string compare $extra_message ""] == 0 } {
	set message "Loading $scrubbed_path"
    } else {
	set message "Loading $scrubbed_path; $extra_message"
    }
    ns_log Notice $message