extra/io/unix/pipes/pipes.factor

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