test/benchmarks/exec/taskswitch.c

   1 /*
   2     Copyright © 1995-2014, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <dos/dos.h>
   7 #include <intuition/intuition.h>
   8 #include <graphics/gfx.h>
   9 #include <utility/hooks.h>
  10
  11 #include <proto/exec.h>
  12 #include <proto/dos.h>
  13 #include <proto/intuition.h>
  14 #include <proto/graphics.h>
  15
  16 #include <clib/alib_protos.h>
  17
  18 #include <stdio.h>
  19 #include <string.h>
  20 #include <stdlib.h>
  21
  22 /****************************************************************************************/
  23
  24 #define SIGF_READY   SIGBREAKF_CTRL_C
  25
  26 #define SIGF_INIT    SIGBREAKF_CTRL_C
  27 #define SIGF_STOP    SIGBREAKF_CTRL_D
  28 #define SIGF_HELLO   SIGBREAKF_CTRL_E
  29
  30 /****************************************************************************************/
  31
  32 struct IntuitionBase *IntuitionBase;
  33 struct GfxBase *GfxBase;
  34
  35 static struct Screen *scr;
  36 static struct Window *win;
  37 static struct Task   *task1, *task2, *maintask;
  38
  39 static LONG counter;
  40
  41 static char s[255];
  42
  43 /****************************************************************************************/
  44
  45 static void Cleanup(char *msg)
  46 {
  47     WORD rc;
  48
  49     if (msg)
  50     {
  51         printf("taskswitchbench: %s\n",msg);
  52         rc = RETURN_WARN;
  53     } else {
  54         rc = RETURN_OK;
  55     }
  56
  57     Forbid();
  58     if (task1) DeleteTask(task1);
  59     if (task2) DeleteTask(task2);
  60     Permit();
  61
  62     if (win) CloseWindow(win);
  63     if (scr) UnlockPubScreen(0,scr);
  64
  65     if (GfxBase) CloseLibrary((struct Library *)GfxBase);
  66     if (IntuitionBase) CloseLibrary((struct Library *)IntuitionBase);
  67
  68     exit(rc);
  69 }
  70
  71 /****************************************************************************************/
  72
  73 static void OpenLibs(void)
  74 {
  75     if (!(IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library",39)))
  76     {
  77         Cleanup("Can't open intuition.library V39!");
  78     }
  79
  80     if (!(GfxBase = (struct GfxBase *)OpenLibrary("graphics.library",39)))
  81     {
  82         Cleanup("Can't open graphics.library V39!");
  83     }
  84
  85 }
  86
  87 /****************************************************************************************/
  88
  89 static void GetVisual(void)
  90 {
  91     if (!(scr = LockPubScreen(0)))
  92     {
  93         Cleanup("Can't lock pub screen!");
  94     }
  95 }
  96
  97 /****************************************************************************************/
  98
  99 static void MakeWin(void)
 100 {
 101     if (!(win = OpenWindowTags(0,WA_PubScreen,(IPTR)scr,
 102                                  WA_Left,10,
 103                                  WA_Top,10,
 104                                  WA_Width,600,
 105                                  WA_Height,scr->WBorTop + scr->Font->ta_YSize + 1 +
 106                                            scr->WBorBottom +
 107                                            scr->Font->ta_YSize * 2,
 108                                  WA_Title,(IPTR)"Press RETURN key to start and any key to stop!",
 109                                  WA_SimpleRefresh,TRUE,
 110                                  WA_CloseGadget,TRUE,
 111                                  WA_DepthGadget,TRUE,
 112                                  WA_DragBar,TRUE,
 113                                  WA_Activate,TRUE,
 114                                  WA_IDCMP,IDCMP_CLOSEWINDOW |
 115                                           IDCMP_VANILLAKEY |
 116                                           IDCMP_REFRESHWINDOW,
 117                                  TAG_DONE)))
 118     {
 119         Cleanup("Can't open window!");
 120     }
 121
 122     ScreenToFront(win->WScreen);
 123
 124 }
 125
 126 /****************************************************************************************/
 127
 128 #define OTHERTASK task2
 129
 130 static void Task1(void)
 131 {
 132     for(;;)
 133     {
 134         ULONG sigs;
 135         BOOL stop = FALSE;
 136
 137         SetSignal(0, SIGF_HELLO);
 138         Wait(SIGF_INIT);
 139         Signal(maintask, SIGF_READY);
 140
 141         while(!stop)
 142         {
 143             sigs = Wait(SIGF_STOP | SIGF_HELLO);
 144             if (sigs & SIGF_STOP) stop = TRUE;
 145             if (sigs & SIGF_HELLO) Signal(OTHERTASK, SIGF_HELLO);
 146         }
 147     }
 148 }
 149
 150 /****************************************************************************************/
 151
 152 #undef OTHERTASK
 153 #define OTHERTASK task1
 154
 155 static void Task2(void)
 156 {
 157     for(;;)
 158     {
 159         ULONG sigs;
 160         BOOL stop = FALSE;
 161
 162         SetSignal(0, SIGF_HELLO);
 163         Wait(SIGF_INIT);
 164         Signal(maintask, SIGF_READY);
 165
 166         while(!stop)
 167         {
 168             sigs = Wait(SIGF_STOP | SIGF_HELLO);
 169             if (sigs & SIGF_STOP) stop = TRUE;
 170             if (sigs & SIGF_HELLO)
 171             {
 172                 Signal(OTHERTASK, SIGF_HELLO);
 173                 counter++;
 174             }
 175         }
 176     }
 177 }
 178
 179 /****************************************************************************************/
 180
 181 static void MakeTasks(void)
 182 {
 183     maintask = FindTask(NULL);
 184
 185     task1 = CreateTask("Task 1", 0, Task1, AROS_STACKSIZE);
 186     task2 = CreateTask("Task 2", 0, Task2, AROS_STACKSIZE);
 187
 188     if (!task1 || !task2) Cleanup("Can't create tasks!");
 189
 190 }
 191
 192 /****************************************************************************************/
 193
 194 static void Action(void)
 195 {
 196     struct RastPort *rp = win->RPort;
 197     char *msg = "Starting to benchmark when countdown reaches 0. Countdown: 5";
 198     WORD i;
 199
 200     WORD x = win->BorderLeft + 8;
 201     WORD y = win->BorderTop + rp->TxHeight / 2;
 202     WORD len = strlen(msg);
 203     WORD pixellen = TextLength(rp, msg, len);
 204
 205     Signal(task1, SIGF_INIT);
 206     Wait(SIGF_READY);
 207
 208     Signal(task2, SIGF_INIT);
 209     Wait(SIGF_READY);
 210
 211     ModifyIDCMP(win, IDCMP_VANILLAKEY);
 212
 213     SetAPen(rp, 0);
 214     RectFill(rp, x, y, win->Width - win->BorderRight - 1, y + rp->TxHeight - 1);
 215
 216     SetAPen(rp, 1);
 217     Move(rp, x, y + rp->TxBaseline);
 218     Text(rp, msg, len);
 219
 220     x += pixellen - rp->TxWidth;
 221
 222     for(i = 5; i>= 0; i--)
 223     {
 224         char c = '0' + i;
 225
 226         Delay(25); /* should be 50 (1 sec), but AROS clock is somewhat slow */
 227
 228         Move(rp, x, y + rp->TxBaseline);
 229         Text(rp, &c, 1);
 230     }
 231
 232     /* start everything by sending hello to first task */
 233
 234     Signal(task1, SIGF_HELLO);
 235
 236     WaitPort(win->UserPort);
 237     ReplyMsg(GetMsg(win->UserPort));
 238
 239     /* stop */
 240     Signal(task1, SIGF_STOP);
 241     Signal(task2, SIGF_STOP);
 242
 243     ModifyIDCMP(win, IDCMP_VANILLAKEY | IDCMP_CLOSEWINDOW | IDCMP_REFRESHWINDOW);
 244
 245     x -= (pixellen - rp->TxWidth);
 246
 247     SetAPen(rp, 0);
 248     RectFill(rp, x, y, win->Width - win->BorderRight - 1, y + rp->TxHeight - 1);
 249
 250     SetAPen(rp, 1);
 251
 252     sprintf(s, "Benchmark result: %ld",counter);
 253
 254     Move(rp, x, y + rp->TxBaseline);
 255     Text(rp, s, strlen(s));
 256
 257     counter = 0;
 258 }
 259
 260 /****************************************************************************************/
 261
 262 static void HandleAll(void)
 263 {
 264     struct IntuiMessage *msg;
 265
 266     BOOL quitme = FALSE;
 267
 268     while(!quitme)
 269     {
 270         WaitPort(win->UserPort);
 271         while ((msg = (struct IntuiMessage *)GetMsg(win->UserPort)))
 272         {
 273             switch(msg->Class)
 274             {
 275                 case IDCMP_CLOSEWINDOW:
 276                     quitme = TRUE;
 277                     break;
 278
 279                 case IDCMP_REFRESHWINDOW:
 280                     BeginRefresh(win);
 281                     EndRefresh(win,TRUE);
 282                     break;
 283
 284                 case IDCMP_VANILLAKEY:
 285                     if (msg->Code == 13) Action();
 286                     break;
 287
 288             }
 289             ReplyMsg((struct Message *)msg);
 290         }
 291     }
 292 }
 293
 294 /****************************************************************************************/
 295
 296 int main(void)
 297 {
 298     OpenLibs();
 299     GetVisual();
 300     MakeWin();
 301     MakeTasks();
 302     HandleAll();
 303     Cleanup(0);
 304     return 0;
 305 }
 306
 307 /****************************************************************************************/
 308 /****************************************************************************************/
 309 /****************************************************************************************/
 310 /****************************************************************************************/