test/taskstorage.c

   1 #include <proto/exec.h>
   2 #include <proto/dos.h>
   3
   4 #include <assert.h>
   5
   6 static BPTR out;
   7 static LONG slot1, slot2, slot3;
   8
   9 static void printslot1(void)
  10 {
  11     FPrintf(out, "Value slot %ld: %ld\n", slot1, GetTaskStorageSlot(slot1));
  12 }
  13
  14 int main(void)
  15 {
  16     out = Output();
  17
  18     slot1 = AllocTaskStorageSlot();
  19     FPrintf(out, "Got slot %ld\n", slot1);
  20
  21     slot2 = AllocTaskStorageSlot();
  22     FPrintf(out, "Got slot %ld\n", slot2);
  23
  24     FreeTaskStorageSlot(slot2);
  25     FPrintf(out, "Freed slot %ld\n", slot2);
  26
  27     slot2 = AllocTaskStorageSlot();
  28     FPrintf(out, "Got slot %ld\n", slot2);
  29
  30     slot3 = AllocTaskStorageSlot();
  31     FPrintf(out, "Got slot %ld\n", slot3);
  32
  33     SetTaskStorageSlot(slot1, 69);
  34     FPrintf(out, "Stored value 69 in slot %ld\n", slot1);
  35
  36     FPrintf(out, "Checking value in subtask\n");
  37     struct Process *proc =
  38         CreateNewProcTags(
  39             NP_Entry, printslot1, NP_Name, "Check slot1",
  40             NP_Synchronous, TRUE, TAG_DONE
  41         );
  42     assert(proc != NULL);
  43
  44     FreeTaskStorageSlot(slot1);
  45     FPrintf(out, "Freed slot %ld\n", slot1);
  46
  47     slot1 = AllocTaskStorageSlot();
  48     FPrintf(out, "Got slot %ld\n", slot1);
  49
  50     FreeTaskStorageSlot(slot2);
  51     FPrintf(out, "Freed slot %ld\n", slot2);
  52
  53     FreeTaskStorageSlot(slot1);
  54     FPrintf(out, "Freed slot %ld\n", slot1);
  55
  56     FreeTaskStorageSlot(slot3);
  57     FPrintf(out, "Freed slot %ld\n", slot3);
  58
  59     return 0;
  60 }
  61