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 __startup int _main(void)
  13 {
  14     struct Library *DOSBase;
  15     int err = RETURN_FAIL;
  16
  17     if ((DOSBase = OpenLibrary("dos.library", 0))) {
  18         BPTR fhw;
  19         if ((fhw = Open("PIPE:*", MODE_NEWFILE))) {
  20             TEXT name[64];
  21
  22             if (NameFromFH(fhw, name, sizeof(name)) != 0) {
  23                 BPTR fhr;
  24
  25                 Printf("PIPE:* => %s\n", name);
  26                 if ((fhr = Open(name, MODE_OLDFILE))) {
  27                     Write(fhw, "Hello", 5);
  28                     Read(fhr, name, 5);
  29                     name[5] = 0;
  30                     Close(fhr);
  31                     Printf("Hello => %s\n", name);
  32                     err = 0;
  33                 }
  34             } else {
  35                 Printf("Can't get name, Error %d\n", IoErr());
  36             }
  37             Close(fhw);
  38         } else {
  39             Printf("Can't open PIPE:*\n");
  40         }
  41         CloseLibrary(DOSBase);
  42     }
  43
  44     return err;
  45 }
  46
  47