scratch

diff --git a/ten/pkgIndex.tcl b/ten/pkgIndex.tcl
index 6cfd726..03bdb38 100644 (file)
--- a/ten/pkgIndex.tcl
+++ b/ten/pkgIndex.tcl
@@ -1,2 +1,3 @@
 package ifneeded ten 0.0.1 [list source [file join $dir ten.tcl]]
 package ifneeded ten::test 0.0.1 [list source [file join $dir test.tcl]]
+package ifneeded ten::json 0.0.1 [list source [file join $dir json.tcl]]

diff --git a/ten/ten.tcl b/ten/ten.tcl
index 0e22d50..0dec336 100644 (file)
--- a/ten/ten.tcl
+++ b/ten/ten.tcl
@@ -50,7 +50,16 @@ snit::type ten::connection {
 
   method send {message_type args} {
     set future [ten::future %AUTO%]
-    set call_args [concat $message_type $future $args] 
+    $self Send [concat
+      [list list "str $message_type" "str $future"] $args
+    ]
+  }
+
+  method Send {to_send} {
+    puts $options(-send_to_fh) [$self Serialize $to_send]
+  }
+
+  method Serialize {
   }
 }