test/exec/semtorture.c

   1 /*
   2     Copyright © 1995-2014, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <exec/semaphores.h>
   7 #include <dos/dos.h>
   8 #include <intuition/intuition.h>
   9 #include <graphics/gfx.h>
  10 #include <utility/hooks.h>
  11
  12 #include <proto/exec.h>
  13 #include <proto/dos.h>
  14 #include <proto/intuition.h>
  15 #include <proto/graphics.h>
  16
  17 #include <clib/alib_protos.h>
  18
  19 #include <stdio.h>
  20 #include <string.h>
  21 #include <stdlib.h>
  22
  23 /****************************************************************************************/
  24
  25 struct IntuitionBase *IntuitionBase;
  26 struct GfxBase *GfxBase;
  27
  28 static struct Screen *scr;
  29 static struct Window *win;
  30 static struct Task   *task1, *task2, *maintask;
  31
  32 static struct SignalSemaphore sem;
  33
  34 /****************************************************************************************/
  35
  36 static void Cleanup(char *msg)
  37 {
  38     WORD rc;
  39
  40     if (msg)
  41     {
  42         printf("semtorture: %s\n",msg);
  43         rc = RETURN_WARN;
  44     } else {
  45         rc = RETURN_OK;
  46     }
  47
  48     Forbid();
  49     if (task1) DeleteTask(task1);
  50     if (task2) DeleteTask(task2);
  51     Permit();
  52
  53     if (win) CloseWindow(win);
  54     if (scr) UnlockPubScreen(0,scr);
  55
  56     if (GfxBase) CloseLibrary((struct Library *)GfxBase);
  57     if (IntuitionBase) CloseLibrary((struct Library *)IntuitionBase);
  58
  59     exit(rc);
  60 }
  61
  62 /****************************************************************************************/
  63
  64 static void Init(void)
  65 {
  66     InitSemaphore(&sem);
  67 }
  68
  69 /****************************************************************************************/
  70
  71 static void OpenLibs(void)
  72 {
  73     if (!(IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library",39)))
  74     {
  75         Cleanup("Can't open intuition.library V39!");
  76     }
  77
  78     if (!(GfxBase = (struct GfxBase *)OpenLibrary("graphics.library",39)))
  79     {
  80         Cleanup("Can't open graphics.library V39!");
  81     }
  82
  83 }
  84
  85 /****************************************************************************************/
  86
  87 static void GetVisual(void)
  88 {
  89     if (!(scr = LockPubScreen(0)))
  90     {
  91         Cleanup("Can't lock pub screen!");
  92     }
  93 }
  94
  95 /****************************************************************************************/
  96
  97 static void MakeWin(void)
  98 {
  99     if (!(win = OpenWindowTags(0,WA_PubScreen,(IPTR)scr,
 100                                  WA_Left,10,
 101                                  WA_Top,10,
 102                                  WA_Width,300,
 103                                  WA_Height,scr->WBorTop + scr->Font->ta_YSize + 1,
 104                                  WA_Title,(IPTR)"Press RETURN key to start!",
 105                                  WA_SimpleRefresh,TRUE,
 106                                  WA_CloseGadget,TRUE,
 107                                  WA_DepthGadget,TRUE,
 108                                  WA_DragBar,TRUE,
 109                                  WA_Activate,TRUE,
 110                                  WA_IDCMP,IDCMP_CLOSEWINDOW |
 111                                           IDCMP_VANILLAKEY |
 112                                           IDCMP_REFRESHWINDOW,
 113                                  TAG_DONE)))
 114     {
 115         Cleanup("Can't open window!");
 116     }
 117
 118     ScreenToFront(win->WScreen);
 119
 120 }
 121
 122 /****************************************************************************************/
 123
 124 static void Task1(void)
 125 {
 126     int a = 1, b = 2, c = 3;
 127
 128     for(;;)
 129     {
 130         ObtainSemaphore(&sem);
 131         a += b + c;
 132         b += a + c;
 133         c += a + b;
 134         ReleaseSemaphore(&sem);
 135     }
 136 }
 137
 138 /****************************************************************************************/
 139
 140 static void Task2(void)
 141 {
 142     int a = 1, b = 2;
 143
 144     for(;;)
 145     {
 146         ObtainSemaphore(&sem);
 147         a -= b;
 148         b += a;
 149         ReleaseSemaphore(&sem);
 150     }
 151 }
 152
 153 /****************************************************************************************/
 154
 155 static void MakeTasks(void)
 156 {
 157     maintask = FindTask(NULL);
 158
 159     task1 = CreateTask("Task 1", 0, Task1, 40000);
 160     task2 = CreateTask("Task 2", 0, Task2, 40000);
 161
 162     if (!task1 || !task2) Cleanup("Can't create tasks!");
 163
 164 }
 165
 166 /****************************************************************************************/
 167
 168 static void Action(void)
 169 {
 170     SetWindowTitles(win, "Test started! Cannot be aborted!", (STRPTR)~0);
 171     Delay(50);
 172     MakeTasks();
 173 }
 174
 175 /****************************************************************************************/
 176
 177 static void HandleAll(void)
 178 {
 179     struct IntuiMessage *msg;
 180
 181     BOOL quitme = FALSE;
 182
 183     while(!quitme)
 184     {
 185         WaitPort(win->UserPort);
 186         while ((msg = (struct IntuiMessage *)GetMsg(win->UserPort)))
 187         {
 188             switch(msg->Class)
 189             {
 190                 case IDCMP_CLOSEWINDOW:
 191                     quitme = TRUE;
 192                     break;
 193
 194                 case IDCMP_REFRESHWINDOW:
 195                     BeginRefresh(win);
 196                     EndRefresh(win,TRUE);
 197                     break;
 198
 199                 case IDCMP_VANILLAKEY:
 200                     if (msg->Code == 13) Action();
 201                     break;
 202
 203             }
 204             ReplyMsg((struct Message *)msg);
 205         }
 206     }
 207 }
 208
 209 /****************************************************************************************/
 210
 211 int main(void)
 212 {
 213     Init();
 214     OpenLibs();
 215     GetVisual();
 216     MakeWin();
 217     HandleAll();
 218     Cleanup(0);
 219     return 0;
 220 }
 221
 222 /****************************************************************************************/
 223 /****************************************************************************************/
 224 /****************************************************************************************/
 225 /****************************************************************************************/