- Publicity: Public Only All
utilities-procs.tcl
XOTcl - Utility procs for file I/O. Should not be necessary on the longer run.
- Location:
- packages/xotcl-core/tcl/utilities-procs.tcl
- Author:
- Gustaf Neumann
Procedures in this file
Detailed information
[ hide source ] | [ make this the default ]Content File Source
::xo::library doc { XOTcl - Utility procs for file I/O. Should not be necessary on the longer run. @author Gustaf Neumann } namespace eval ::xo { proc read_file {fn} { set F [open $fn] ::fconfigure $F -translation binary ::set content [read $F] ::close $F return $content } proc write_file {fn content} { set F [::open $fn w] ::fconfigure $F -translation binary ::puts -nonewline $F $content ::close $F } proc write_tmp_file {varFilename content} { upvar $varFilename tmpFileName set F [file tempfile tmpFileName] fconfigure $F -translation binary puts -nonewline $F $content close $F } } # # Local variables: # mode: tcl # tcl-indent-level: 2 # indent-tabs-mode: nil # End: