Created on 2003-06-06

Howdy y'all, its [Rohan Pall] here, and here is some code I use to glue diff, patch, and md5sum with [Snit].


  puts "loading gunkata..."

  if {[namespace exists gunkata]} {namespace delete gunkata}
  namespace eval gunkata {

    namespace export *

    proc readb {fn} {
      set f [open $fn]
      fconfigure $f -translation binary
      set content [read $f]
      close $f
      return $content
    }

    proc writeb {fn c} {
      set f [open $fn w]
      fconfigure $f -translation binary
      puts -nonewline $f $c
      close $f
    }

  }

  namespace import gunkata::*