test/OOPDemos/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 "hash.h"
  14 #include <stdio.h>
  15
  16 #define SDEBUG 1
  17 #define DEBUG 1
  18 #include "debug.h"
  19
  20 extern struct OOPBase *oopbase;
  21 SDInit;
  22
  23
  24 #define NUM_ITERATIONS (10000000)
  25
  26 IPTR TestFunc(Class *cl, Object *o, Msg msg)
  27 {
  28      return (12345678);
  29 }
  30
  31
  32 int main(int argc, char **argv)
  33 {
  34
  35     if (InitOOP())
  36     {
  37         Class *timercl;
  38
  39         printf("Object system initialized\n");
  40
  41
  42         /* Initialize the timer class */
  43         timercl = MakeTimerClass();
  44         if (timercl)
  45         {
  46
  47             struct Node *n;
  48             Object *timer;
  49
  50             printf("Class list:\n");
  51             ForeachNode(&(oopbase->ClassList), n)
  52             {
  53                 printf("%s\n", n->ln_Name);
  54             }
  55             printf("\n\n");
  56
  57 #if (HASHED_IFS || HASHED_METHODS)
  58             { ULONG i;
  59             printf("Hash table:\n");
  60             for (i = 0; i < HashSize(timercl->HashTable); i ++)
  61             {
  62                 struct Bucket *b;
  63                 printf ("%ld:", i);
  64                 for (b = (struct Bucket *)timercl->HashTable[i]; b; b = b->Next)
  65                     printf ("  %ld %p", b->ID, b);
  66
  67                 printf("\n");
  68             }
  69             }
  70 #endif
  71
  72 #if (HASHED_STRINGS)
  73             { ULONG i;
  74             printf("Hash table:\n");
  75             for (i = 0; i < HashSize(timercl->HashTable); i ++)
  76             {
  77                 struct Bucket *b;
  78                 printf ("%ld:", i);
  79                 for (b = (struct Bucket *)timercl->HashTable[i]; b; b = b->Next)
  80                     printf ("  %s %p", (STRPTR)b->ID, b);
  81
  82                 printf("\n");
  83             }
  84             }
  85 #endif
  86
  87
  88             /* Create a new instance */
  89             timer = NewObject(NULL, TIMERCLASS, NULL);
  90             if (timer)
  91             {
  92                 ULONG i;
  93                 METHODID methodid = M_Timer_TestMethod;
  94
  95                 printf("Timer object: %p\n", timer);
  96
  97                 printf ("Doing ten billion calls to test method...\n");
  98
  99
 100                 /*  Normal ivocation test */
 101                 printf ("Using normal invocation\n");
 102
 103                 Timer_Start(timer);
 104
 105                 for (i = 0; i < NUM_ITERATIONS; i ++)
 106                 {
 107                     Timer_TestMethod(timer);
 108                 }
 109
 110                 Timer_Stop(timer);
 111                 printf("Time elapsed: ");
 112                 Timer_PrintElapsed(timer);
 113
 114
 115                 /*  Function test */
 116                 printf("\nTen billion calls to empty *function*\n");
 117                 Timer_Start(timer);
 118
 119                 for (i = 0; i < NUM_ITERATIONS; i ++)
 120                 {
 121                     TestFunc(timercl, timer, (Msg)&methodid);
 122                 }
 123
 124
 125                 Timer_Stop(timer);
 126                 printf("Time elapsed: ");
 127                 Timer_PrintElapsed(timer);
 128
 129
 130
 131                 /*  Loop test */
 132                 printf("\nLooping ten billion times\n");
 133                 Timer_Start(timer);
 134
 135                 for (i = 0; i < NUM_ITERATIONS; i ++)
 136                 {
 137                     ULONG retval;
 138                     retval = 12345678;
 139                 }
 140
 141                 Timer_Stop(timer);
 142                 printf("Time elapsed: ");
 143                 Timer_PrintElapsed(timer);
 144
 145                 printf("\n\nTestMethod output: %ld\n", Timer_TestMethod(timer));
 146
 147                 /* Dispose object */
 148                 DisposeObject(timer);
 149
 150             }
 151             FreeTimerClass(timercl);
 152         }
 153         CleanupOOP();
 154     }
 155
 156     return (0);
 157 }
 158