[George Peter Staplin] 2007 Nov, 14 - Netcall is a remote eval package.  It's optimized for speed, and has more capabilities than [comm].  It's used in the [Whim] window manager.

It's BSD/Tcl licensed (the same license as Whim).

The sources are here: http://www.xmission.com/~georgeps/implementation/software/netcall/

Eventually netcall may be part of http://code.google.com/p/megapkg/

A simple example for a server:
 set dir [file dirname [info script]]
 source [file join $dir netcall.tcl]
 netcall.init
 netcall.serve 8888
 vwait forever

The clients can do:
 set dir [file dirname [info script]]
 source [file join $dir netcall.tcl]
 netcall.init
 netcall.connect localhost 8888
 puts "SERVER PID is:[netcall pid]"
 puts "SERVER COMMANDS are:[netcall info commands]"
 

Now there's also some more power available.  You can wait for variables to change on the server side.
 set changedby [netcall.vwait ::someservervar ::anotherservervar]

By default netcall takes args as a parameter. If you already have a command that is a list you can use:
 set result [netcall.1 $somecommand]


If you are concerned about security you can change/override/replace this on the server:
 proc netcall.permit.access? { addr port } {
  if {"127.0.0.1" eq $addr} {
   return 1
  }

  if {![catch {package present Tk}]} {
   set answer [tk_messageBox -icon question -type yesno \
     -message "Do you want to allow $addr to connect to your netcall server?"]
   return [expr {"yes" eq $answer}]
  }
  return 0
 }

----
!!!!!!
%| [Category Interprocess Communication] |%
!!!!!!