Changeset 93 for branches


Ignore:
Timestamp:
02/21/07 06:38:56 (18 years ago)
Author:
psmith
Message:

Eval whole string on rpc, allow user defined writer, increase default buffer size

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  
    3434   (read-fd :initarg :read-fd
    3535            :accessor read-fd)
    36    (foreign-read-buffer :initform (byte-buffer 1024)
     36   (foreign-read-buffer :initform (byte-buffer 2096)
    3737                        :accessor foreign-read-buffer)
    38    (foreign-write-buffer :initform (byte-buffer 1024)
     38   (foreign-write-buffer :initform (byte-buffer 2096)
    3939                         :accessor foreign-write-buffer)
    4040   (read-ready :initform nil
  • TabularUnified branches/home/psmith/restructure/src/protocol/yarpc/nio-yarpc-package.lisp

    r60 r93  
    3333
    3434             ;; 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+
    3636             ;to be moved
    3737             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  
    116116  (format stream "#<METHID-RESPONSE-PACKET ~A >" (response packet)))
    117117
     118(defparameter +serialise-packet-fn+ #'(lambda (result)(write-to-string result)))
     119
    118120(defmethod write-bytes((packet method-response-packet) buf)
    119121#+nio-debug    (format-log t "yarpc-packet-factory:write-bytes - writing ~A to ~A~%" packet buf)
     
    124126        (nio-buffer:bytebuffer-write-32 buf 0) ; come back and write length later
    125127        (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)))
    127129        (nio-buffer:bytebuffer-insert-32 buf (buffer-position buf) 1)
    128130#+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  
    110110#+nio-debug     (format-log t "yarpc-state-machine:execute-call - fn ~A authorised? : ~A~%" (symbol-function (first rpc-call-list)) fn)
    111111        (if fn
    112             (apply (first rpc-call-list) (rest rpc-call-list))
     112            (eval rpc-call-list)
    113113            (error 'authorization-error)))
    114114    (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.