Version 320 of George Peter Staplin

Updated 2007-12-30 12:09:42 by CK
Dear Mr. Staplin, I'd like to talk to you. Can you please send me your e-mail address?
This is mine: cyrilklec -at- gmail.com ...
Thank you

To roar without jackles. To be a beast without a field. To be a human without humanity.

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


Category Home Page :: Category Person