basis/io/pipes/unix/unix.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: alien.c-types alien.data io.backend.unix io.pipes kernel
   4 libc sequences specialized-arrays system unix.ffi ;
   5 SPECIALIZED-ARRAY: int
   6 IN: io.pipes.unix
   7
   8 M: unix (pipe)
   9     2 int <c-array>
  10     [ unix.ffi:pipe io-error ]
  11     [ first2 [ <fd> init-fd ] bi@ io.pipes:pipe boa ] bi ;