compiler/clib/pipe.c

   1 /*
   2     Copyright © 1995-2004, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <proto/dos.h>
   7
   8 #include <stdlib.h>
   9 #include <unistd.h>
  10 #include <fcntl.h>
  11
  12 #include "__errno.h"
  13 #include "__open.h"
  14
  15 /*****************************************************************************
  16
  17     NAME */
  18
  19         int pipe(
  20
  21 /*  SYNOPSIS */
  22         int *pipedes)
  23
  24 /*  FUNCTION
  25
  26     INPUTS
  27
  28     RESULT
  29
  30     NOTES
  31
  32     EXAMPLE
  33
  34     BUGS
  35
  36     SEE ALSO
  37
  38     INTERNALS
  39
  40 ******************************************************************************/
  41 {
  42     BPTR reader, writer;
  43     fdesc *rdesc, *wdesc;
  44
  45     if (!pipedes)
  46     {
  47         errno = EFAULT;
  48
  49         return -1;
  50     }
  51
  52     if ((rdesc = malloc(sizeof(fdesc))) == NULL)
  53         return -1;
  54     if ((wdesc = malloc(sizeof(fdesc))) == NULL) {
  55         free(rdesc);
  56         return -1;
  57     }
  58
  59     if (Pipe("XPIPE:", &reader, &writer) != DOSTRUE) {
  60         errno = IoErr2errno(IoErr());
  61         free(rdesc);
  62         free(wdesc);
  63         return -1;
  64     }
  65
  66     pipedes[0] = __getfdslot(__getfirstfd(0));
  67     rdesc->fh        = reader;
  68     rdesc->flags     = O_RDONLY;
  69     rdesc->opencount = 1;
  70     __setfdesc(pipedes[0], rdesc);
  71
  72     pipedes[1] = __getfdslot(__getfirstfd(pipedes[0]));
  73     wdesc->fh        = writer;
  74     wdesc->flags     = O_WRONLY;
  75     wdesc->opencount = 1;
  76     __setfdesc(pipedes[1], wdesc);
  77
  78     return 0;
  79 }
  80