if [catch {load $library dcs_c_library} err] {
puts "-----------------------------------------------------------------------------"
puts $err
}
转载于:https://www.cnblogs.com/greencolor/archive/2011/04/25/2027080.html
转载于:https://www.cnblogs.com/greencolor/archive/2011/04/25/2027080.html