test/pipe/autopipe.c

   1 /*
   2  * Copyright (C) 2012, The AROS Development Team.  All rights reserved.
   3  * Author: Jason S. McMullan <jason.mcmullan@gmail.com>
   4  *
   5  * Licensed under the AROS PUBLIC LICENSE (APL) Version 1.1
   6  */
   7
   8 #include <proto/alib.h>
   9 #include <proto/exec.h>
  10 #include <proto/dos.h>
  11
  12 #include <aros/shcommands.h>
  13
  14 AROS_SH0(autopipe, 1.0)
  15 {
  16     AROS_SHCOMMAND_INIT
  17
  18     int err = RETURN_FAIL;
  19
  20     BPTR fhw;
  21     if ((fhw = Open("PIPE:*", MODE_NEWFILE))) {
  22         TEXT name[64];
  23
  24         if (NameFromFH(fhw, name, sizeof(name)) != 0) {
  25             BPTR fhr;
  26
  27             Printf("PIPE:* => %s\n", name);
  28             if ((fhr = Open(name, MODE_OLDFILE))) {
  29                 Write(fhw, "Hello", 5);
  30                 Read(fhr, name, 5);
  31                 name[5] = 0;
  32                 Close(fhr);
  33                 Printf("Hello => %s\n", name);
  34                 err = 0;
  35             }
  36         } else {
  37             Printf("Can't get name, Error %d\n", IoErr());
  38         }
  39         Close(fhw);
  40     } else {
  41         Printf("Can't open PIPE:*\n");
  42     }
  43
  44     return err;
  45
  46     AROS_SHCOMMAND_EXIT
  47 }
  48
  49