- Timestamp:
- 02/21/07 06:38:56 (18 years ago)
- Location:
- branches/home/psmith/restructure/src
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
TabularUnified branches/home/psmith/restructure/src/io/async-fd.lisp ¶
r90 r93 34 34 (read-fd :initarg :read-fd 35 35 :accessor read-fd) 36 (foreign-read-buffer :initform (byte-buffer 1024)36 (foreign-read-buffer :initform (byte-buffer 2096) 37 37 :accessor foreign-read-buffer) 38 (foreign-write-buffer :initform (byte-buffer 1024)38 (foreign-write-buffer :initform (byte-buffer 2096) 39 39 :accessor foreign-write-buffer) 40 40 (read-ready :initform nil -
TabularUnified branches/home/psmith/restructure/src/protocol/yarpc/nio-yarpc-package.lisp ¶
r60 r93 33 33 34 34 ;; yarpc-state-machine 35 yarpc-state-machine job-queue run-job +process-jobs-inline+ 35 yarpc-state-machine job-queue run-job +process-jobs-inline+ +serialise-packet-fn+ 36 36 ;to be moved 37 37 test-rpc test-rpc-list test-rpc-string execute-call defremote -
TabularUnified branches/home/psmith/restructure/src/protocol/yarpc/yarpc-packet-factory.lisp ¶
r84 r93 116 116 (format stream "#<METHID-RESPONSE-PACKET ~A >" (response packet))) 117 117 118 (defparameter +serialise-packet-fn+ #'(lambda (result)(write-to-string result))) 119 118 120 (defmethod write-bytes((packet method-response-packet) buf) 119 121 #+nio-debug (format-log t "yarpc-packet-factory:write-bytes - writing ~A to ~A~%" packet buf) … … 124 126 (nio-buffer:bytebuffer-write-32 buf 0) ; come back and write length later 125 127 (nio-buffer:bytebuffer-write-32 buf (request-id packet)) 126 (nio-buffer:bytebuffer-write-string buf ( write-to-string(response packet)))128 (nio-buffer:bytebuffer-write-string buf (funcall +serialise-packet-fn+ (response packet))) 127 129 (nio-buffer:bytebuffer-insert-32 buf (buffer-position buf) 1) 128 130 #+nio-debug (format-log t "yarpc-packet-factory:write-bytes - written ~A~%" buf) -
TabularUnified branches/home/psmith/restructure/src/protocol/yarpc/yarpc-state-machine.lisp ¶
r92 r93 110 110 #+nio-debug (format-log t "yarpc-state-machine:execute-call - fn ~A authorised? : ~A~%" (symbol-function (first rpc-call-list)) fn) 111 111 (if fn 112 ( apply (first rpc-call-list) (rest rpc-call-list))112 (eval rpc-call-list) 113 113 (error 'authorization-error))) 114 114 (reader-error (re) (format-log t "yarpc-state-machine:execute-call - reader error on call-string ~A ~%" re))))
Note: See TracChangeset
for help on using the changeset viewer.