test/oop/test.c

   1 /*
   2    Copyright © 1997-98, The AROS Development Team. All rights reserved.
   3    $Id$
   4
   5    Desc: Demo of new OOP system
   6    Lang: english
   7 */
   8
   9 #include "oop.h"
  10 #include "timerclass.h"
  11 #include "protos.h"
  12 #include "support.h"
  13 #include "intern.h"
  14 #include <stdio.h>
  15
  16 extern struct List ClassList;
  17
  18
  19 #define NUM_ITERATIONS (10000000)
  20
  21 IPTR TestFunc(Class *cl, Object *o, Msg msg)
  22 {
  23      return (12345678);
  24 }
  25
  26
  27 int main(int argc, char **argv)
  28 {
  29
  30     if (InitOOP())
  31     {
  32         Class *timercl;
  33
  34         printf("Object system initialized\n");
  35
  36
  37         /* Initialize the timer class */
  38         timercl = MakeTimerClass();
  39         if (timercl)
  40         {
  41
  42             struct Node *n;
  43             Object *timer;
  44             ULONG i;
  45
  46             printf("Class list:\n");
  47             ForeachNode(&ClassList, n)
  48             {
  49                 printf("%s\n", n->ln_Name);
  50             }
  51             printf("\n\n");
  52
  53             printf("Hash table:\n");
  54
  55             for (i = 0; i < timercl->HashTableSize; i ++)
  56             {
  57                 struct Bucket *b;
  58                 printf("%ld: ", i);
  59
  60                 for (b = timercl->HashTable[i]; b; b = b->Next)
  61                 {
  62                     printf("%s, %ld  "
  63                         ,b->mClass->ClassNode.ln_Name
  64                         ,b->MethodID);
  65
  66                 }
  67                 printf("\n");
  68
  69             }
  70
  71
  72             /* Create a new instance */
  73             timer = NewObject(NULL, TIMERCLASS, NULL);
  74             if (timer)
  75             {
  76                 ULONG i;
  77                 ULONG methodid = M_Timer_TestMethod;
  78
  79                 printf("Timer object: %p\n", timer);
  80
  81                 printf ("Doing ten billion calls to test method...\n");
  82
  83
  84                 /*  Normal ivocation test */
  85                 printf ("Using normal invocation\n");
  86
  87                 Timer_Start(timer);
  88
  89                 for (i = 0; i < NUM_ITERATIONS; i ++)
  90                 {
  91                     Timer_TestMethod(timer);
  92                 }
  93
  94                 Timer_Stop(timer);
  95                 printf("Time elapsed: ");
  96                 Timer_PrintElapsed(timer);
  97
  98                 {
  99                 /*  Fast ivocation test */
 100     IPTR (*method)();
 101     Class *cl;
 102
 103                     printf ("\nUsing fast invocation\n");
 104
 105                     GetMethod(timer, M_Timer_TestMethod, &method, &cl);
 106
 107                     Timer_Start(timer);
 108
 109                     for (i = 0; i < NUM_ITERATIONS; i ++)
 110                     {
 111                         method(cl, timer, (Msg)&methodid);
 112                     }
 113
 114                     Timer_Stop(timer);
 115                     printf("Time elapsed: ");
 116                     Timer_PrintElapsed(timer);
 117
 118                     printf("Method output: %ld\n", method(cl, timer, (Msg)&methodid));
 119                 }
 120                 /*  Function test */
 121                 printf("\nTen billion calls to empty *function*\n");
 122                 Timer_Start(timer);
 123
 124                 for (i = 0; i < NUM_ITERATIONS; i ++)
 125                 {
 126                     TestFunc(timercl, timer, (Msg)&methodid);
 127                 }
 128
 129
 130                 Timer_Stop(timer);
 131                 printf("Time elapsed: ");
 132                 Timer_PrintElapsed(timer);
 133
 134
 135
 136                 /*  Loop test */
 137                 printf("\nLooping ten billion times\n");
 138                 Timer_Start(timer);
 139
 140                 for (i = 0; i < NUM_ITERATIONS; i ++)
 141                 {
 142                     ULONG retval;
 143                     retval = 12345678;
 144                 }
 145
 146                 Timer_Stop(timer);
 147                 printf("Time elapsed: ");
 148                 Timer_PrintElapsed(timer);
 149
 150                 printf("\n\nTestMethod output: %ld\n", Timer_TestMethod(timer));
 151
 152                 /* Dispose object */
 153                 DisposeObject(timer);
 154
 155             }
 156             FreeTimerClass(timercl);
 157         }
 158         CleanupOOP();
 159     }
 160
 161     return (0);
 162 }
 163