test/systemtags.c

   1 #include <proto/exec.h>
   2 #include <proto/dos.h>
   3 #include <dos/dos.h>
   4 #include <dos/dostags.h>
   5
   6 #include <assert.h>
   7
   8 static BYTE sig;
   9 static struct Task *t;
  10
  11 static void StartCommand(void)
  12 {
  13   BPTR fh = Open("S:Startup-Sequence", MODE_OLDFILE);
  14
  15   SystemTags("type in:", SYS_Input, (IPTR) fh);
  16
  17   Signal(t, 1<<sig);
  18 }
  19
  20 int main(void)
  21 {
  22     BPTR fh;
  23
  24     SystemTags
  25     (
  26         "dir",
  27         SYS_Asynch,        TRUE,
  28         SYS_Input,  (IPTR) Open("NIL:", MODE_OLDFILE),
  29         SYS_Output, (IPTR) Open("RAW:////Dir/CLOSE/WAIT", MODE_NEWFILE),
  30         TAG_DONE
  31     );
  32
  33     SystemTags
  34     (
  35         "systemtagsslave",
  36         SYS_Asynch, TRUE,
  37         SYS_Input,  SYS_DupStream,
  38         SYS_Output, SYS_DupStream,
  39         TAG_DONE
  40     );
  41
  42     fh = Open("S:Startup-Sequence", MODE_OLDFILE);
  43     assert(fh!=NULL);
  44     SystemTags("type in:", SYS_Input, (IPTR) fh, TAG_DONE);
  45
  46     sig = AllocSignal(-1);
  47     t = FindTask(NULL);
  48
  49     CreateNewProcTags(NP_Entry, (IPTR) StartCommand, NP_Input, (IPTR) Input(), NP_CloseInput, FALSE);
  50
  51     Wait(1<<sig);
  52     FreeSignal(sig);
  53
  54     return 0;
  55 }