test/dos/r.c

   1 /*
   2     Copyright © 1995-2014, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <proto/dos.h>
   7 #include <proto/exec.h>
   8
   9 #include <aros/debug.h>
  10
  11 TEXT buffer[100];
  12
  13 /*
  14  * A tool like "R" http://www.geit.de/eng_r.html requires that we can
  15  * call a command such that it prints the template and then stops.
  16  */
  17
  18 int main(void)
  19 {
  20     // in the real "R" we would check for an unused file name first
  21     BPTR input = Open("t:00000001.request.infile", MODE_NEWFILE);
  22     BPTR output = Open("t:00000001.request.outfile", MODE_NEWFILE);
  23
  24     // shut up DOS error message
  25     struct Process *me = (struct Process*)FindTask(NULL);
  26     APTR oldwin = me->pr_WindowPtr;
  27     me->pr_WindowPtr = (APTR)-1;
  28
  29     // execute the command. The purpose of "*>NIL:" is to
  30     // trigger an error
  31     Execute("dir *>NIL: ?", input, output);
  32
  33     // restore window ptr
  34     me->pr_WindowPtr = oldwin;
  35
  36     Seek(output, 0, OFFSET_BEGINNING);
  37
  38     // read the template
  39     if (FGets(output, buffer, sizeof buffer))
  40     {
  41         bug("*****\n%s*****\n", buffer);
  42     }
  43     else
  44     {
  45         bug("%s\n", "-----");
  46     }
  47
  48     Close(input);
  49     Close(output);
  50
  51     return 0;
  52 }