Commit fedb2906 authored by Zach Beane's avatar Zach Beane
Browse files

Add READ-VECTOR, STREAM-INPUT-HANDLE.

parent 10fe2d2c
...@@ -280,7 +280,8 @@ values otherwise." ...@@ -280,7 +280,8 @@ values otherwise."
(excl::output-handle (excl::output-handle
:initarg :output-handle) :initarg :output-handle)
(excl::input-handle (excl::input-handle
:initarg :input-handle) :initarg :input-handle
:reader excl::stream-input-handle)
(excl::buffer-ptr) (excl::buffer-ptr)
(excl::control-out) (excl::control-out)
(excl::oc-state) (excl::oc-state)
...@@ -360,6 +361,10 @@ values otherwise." ...@@ -360,6 +361,10 @@ values otherwise."
(write-sequence vector stream :start start :end end) (write-sequence vector stream :start start :end end)
end) end)
(defun excl:read-vector (vector stream &key (start 0) end endian-swap)
(declare (ignore endian-swap))
(read-sequence vector stream :start start :end end))
(defmethod excl::socket-bytes-written (socket &optional set) (defmethod excl::socket-bytes-written (socket &optional set)
(declare (ignore socket)) (declare (ignore socket))
(or set (or set
......
...@@ -143,6 +143,7 @@ ...@@ -143,6 +143,7 @@
#:device-write #:device-write
#:add-stream-instance-flags #:add-stream-instance-flags
#:write-vector #:write-vector
#:read-vector
#:crlf-base-ef #:crlf-base-ef
#:ef-name #:ef-name
#:synchronizing-structure #:synchronizing-structure
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment