George Peter Staplin

I am me. Who are you? It doesn't really matter to me.

I say the following, only to update what was here: I was a Tcl programmer. I have rarely done any Tcl programming the last 4 or 5 months.


A few projects:


Will Dye was interested in my ~/.tclshrc so here it is:

 rename unknown _unknown
 proc unknown {args} {
  global that
  if {[catch {expr $args} temp]} {
   uplevel 1 [concat _unknown $args]
  } else {
   set that $temp
  }
 }

 proc file.data f {
  set fd [open $f r]
  set data [read $fd]
  close $fd
  return $data
 }

 proc sum args {
  set n 0
  foreach a $args {
   set n [expr {$n + $a}]
  }
  return $n
 }

Example usage:

 % 1 + 2 + pow(2,20)
 1048579.0
 % sum 1 2 3 4 5
 15
 % file.data .xinitrc
 ...

Pages are rated on a scale of 1-10 based on how satisfied I am with the result.

Applications/Tools

C Extensions/Tools

Techniques

Useful Tcl Procedures

Widgets

Fluffery


old -- work in progress

T

U

W

Z