cffi-posix/fd-flexi/fd-flexi.lisp

• Show log

  Commit

• Hash : d22841d4
  Author : Thomas de Grivel
  Date : 2017-05-25T16:23:51
  

  Flexi stream wrapper for fd-gray streams.

Download

• fd-flexi.lisp

• 
  (in-package :fd-flexi)
  
  (defun stream (fd &key (external-format :utf-8))
    (make-flexi-stream (make-instance 'fd-gray:stream :fd fd)
  		     :external-format external-format))
  
  (defmacro with-stream ((var fd &key (external-format :utf-8)) &body body)
    `(let ((,var (stream ,fd :external-format ,external-format)))
       (unwind-protect (progn ,@body)
         (close ,var))))
  

Download