util_report_library_entry

one of the documented procedures in this installation of the ACS
Usage:
util_report_library_entry   { extra_message "" }
What it does:
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.
Defined in: /web/philip/packages/acs-core/utilities-procs.tcl

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


philg@mit.edu