mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-24 05:21:20 -08:00
Code Issues Projects Releases Packages Wiki Activity

process: use newly added interface make-stream-from-fd

Browse source
This commit is contained in:
Daniel Kochmanski 2017-10-11 10:26:30 +02:00
parent c771b46c5f
commit a7e376c0b5
1 changed files with 9 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/lsp/process.lsp
View file

@ -179,13 +179,19 @@
(let ((stream-write
(when (plusp parent-write)
(make-output-stream-from-fd progname parent-write external-format)))
(ext:make-stream-from-fd parent-write :output
:element-type 'base-char
:external-format external-format)))
(stream-read
(when (plusp parent-read)
(make-input-stream-from-fd progname parent-read external-format)))
(ext:make-stream-from-fd parent-read :input
:element-type 'base-char
:external-format external-format)))
(stream-error
(when (plusp parent-error)
(make-input-stream-from-fd progname parent-error external-format)))
(ext:make-stream-from-fd parent-error :input
:element-type 'base-char
:external-format external-format)))
(piped-pairs nil))
(when (eql process-input :virtual-stream)
@ -251,20 +257,6 @@
do (write-char #\\ stream)))
(write-char #\" stream))
;;; low level interface to descriptors
(defun make-input-stream-from-fd (name fd external-format)
(ffi:c-inline
(name fd external-format) (:string :int :object) :object
"ecl_make_stream_from_fd(#0, #1, ecl_smm_input, 8, ECL_STREAM_DEFAULT_FORMAT, #2)"
:one-liner t))
(defun make-output-stream-from-fd (name fd external-format)
(ffi:c-inline
(name fd external-format) (:string :int :object) :object
"ecl_make_stream_from_fd(#0, #1, ecl_smm_output, 8, ECL_STREAM_DEFAULT_FORMAT, #2)"
:one-liner t))
(defun pipe-streams (process pairs &aux to-remove)
;; note we don't use serve-event here because process input may be a