Changeset 35 for branches/home/psmith/restructure/src/protocol/yarpc/yarpc-packet-factory.lisp

Timestamp:

01/15/07 04:00:39 (18 years ago)

Author:

psmith

Message:

yarpc - Send packet OK

File:

• branches/home/psmith/restructure/src/protocol/yarpc/yarpc-packet-factory.lisp (modified) (2 diffs)

branches/home/psmith/restructure/src/protocol/yarpc/yarpc-packet-factory.lisp ¶

@@ -36 +36 @@
   (make-instance 'yarpc-packet-factory))     
 
-(defconstant CALL-METHOD-PACKET-ID 0)
+(defconstant CALL-METHOD-PACKET-ID #x0)
 (defconstant METHOD-RESPONSE-PACKET-ID 1)
 
 (defmethod get-packet ((pf yarpc-packet-factory) buf)
-  (nio-buffer:flip buf)
+  (flip buf)
 ;  (format t "get-packet::read string - ~A~%" (bytebuffer-read-string buf (remaining buf)))
   (if (>= (remaining buf) 1) ;; First byte denotes packet ID
@@ -50 +50 @@
                                             :accessor get-call-string)))
 
+(defmethod print-object ((packet call-method-packet) stream)
+  (format stream "#<CALL-METHOD-PACKET ~A >" (get-call-string packet)))
+
+(defmethod write-bytes((packet call-method-packet) buf)
+  (format t "yarpc-packet-factory:write-bytes - writing ~A to ~A~%" packet buf)
+;  (nio-buffer:flip buf)
+  (nio-buffer:bytebuffer-write-vector buf #(#x0))
+  (nio-buffer:bytebuffer-write-string buf (get-call-string packet))
+  (format t "yarpc-packet-factory:write-bytes - written ~A~%" buf)  )
+  
+
 (defclass method-response-packet (packet)())