<>How do I manage lock files in a cross platform manner in Tcl