Version 314 of George Peter Staplin

Updated 2007-12-24 16:32:55 by RLH

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


RLH 12-24-2007 :: Hey George, in reading your question about another distro. Is it feasible to have a "source" based distro that compiles across the various systems that Tcl runs on? CPAN isn't "binary" and that works for Perl. I would like your thoughts on the matter.


Category Home Page :: Category Person