scripts/fileio.tcl

   1 # vim: ft=tcl foldmethod=marker foldmarker=<<<,>>> ts=4 shiftwidth=4
   2
   3 proc tlc::readfile {fn {mode "text"}} { #<<<
   4         set fp  [open $fn r]
   5         switch -- $mode {
   6                 text {}
   7
   8                 binary {
   9                         fconfigure $fp -encoding binary -translation binary
  10                 }
  11
  12                 default {
  13                         error "Invalid mode: \"$mode\"" "" [list invalid_mode $mode]
  14                 }
  15         }
  16
  17         set dat [read $fp]
  18         close $fp
  19
  20         return $dat
  21 }
  22
  23 #>>>
  24 proc tlc::writefile {fn dat {mode "text"}} { #<<<
  25         set fp  [open $fn w]
  26         switch -- $mode {
  27                 text {}
  28
  29                 binary {
  30                         fconfigure $fp -encoding binary -translation binary
  31                 }
  32
  33                 default {
  34                         error "Invalid mode: \"$mode\"" "" [list invalid_mode $mode]
  35                 }
  36         }
  37
  38         puts -nonewline $fp $dat
  39         close $fp
  40 }
  41
  42 #>>>