scratch

[scpubgit/TenDotTcl.git] / ten / ten.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 {
   }
 }