2008-05-05 03:19:25 -04:00
|
|
|
! Copyright (C) 2008 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2008-11-14 21:18:16 -05:00
|
|
|
USING: system kernel unix math sequences qualified
|
2008-12-02 03:44:19 -05:00
|
|
|
io.unix.backend io.ports specialized-arrays.int accessors ;
|
2008-05-05 03:19:25 -04:00
|
|
|
IN: io.unix.pipes
|
|
|
|
|
QUALIFIED: io.pipes
|
|
|
|
|
|
|
|
|
|
M: unix io.pipes:(pipe) ( -- pair )
|
2008-11-14 21:18:16 -05:00
|
|
|
2 <int-array>
|
2008-12-02 03:44:19 -05:00
|
|
|
[ underlying>> pipe io-error ]
|
|
|
|
|
[ first2 [ <fd> init-fd ] bi@ io.pipes:pipe boa ] bi ;
|
