PT 20-Jul-2004
The LOAF protocol is another computer communications protocol. LOAF is characterized by its ease of implementation and the simplicity of its wire protocol. There are implementations is a large number of languages for diverse platforms. See http://postneo.com/postwiki/moin.cgi/LoafHome for additional information and standards track.
Here is a pure-Tcl implementation.
# LOAF.tcl - Copyright (C) 2004 Pat Thoyts <[email protected]> # # Pure Tcl implementation of the LOAF protocol # See http://postneo.com/postwiki/moin.cgi/LoafHome for further details. # # ------------------------------------------------------------------------- # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ------------------------------------------------------------------------- # namespace eval ::LOAF { variable version 0.1.0 variable rcsid {$Id: 11994,v 1.3 2004-07-21 06:00:59 jcw Exp $} namespace export LOAF } # ------------------------------------------------------------------------- # LOAF::LOAF # The core LOAF protocol function. This drives everything. # Returns: # A normal Tcl result. # proc ::LOAF::LOAF {args} { return } # ------------------------------------------------------------------------- package provide LOAF $::LOAF::version # ------------------------------------------------------------------------- # Local variables: # mode: tcl # indent-tabs-mode: nil # End:
NEM: Have you considered submitting this to tcllib?
PT: Absolutely - continuing the practice of adding support for as many protocols as possible to tcllib. However, before this is to happen it will need a test suite and some interoperability testing against implementations in other languages. Especially against implementations on alternative architectures.
I also plan to add some critcl support to provide a speed up to any areas that profile as processing hot-spots.