libs/iovm/source/IoState_debug.c

   1 #include "IoState.h"
   2 #include "IoObject.h"
   3
   4 void IoState_show(IoState *self)
   5 {
   6         printf("--- state ----------------------------------\n");
   7         printf("State:\n");
   8         /*
   9          printf("black:\n");
  10          IoObjectGroup_show(self->blackGroup);
  11          printf("\n");
  12
  13          printf("gray:\n");
  14          IoObjectGroup_show(self->grayGroup);
  15          printf("\n");
  16
  17          printf("white:\n");
  18          IoObjectGroup_show(self->whiteGroup);
  19          printf("\n");
  20          */
  21         printf("stacks:\n");
  22         printf("\n");
  23 }
  24
  25 IoObject *IoState_replacePerformFunc_with_(IoState *self,
  26                                                                    IoTagPerformFunc *oldFunc,
  27                                                                    IoTagPerformFunc *newFunc)
  28 {
  29         PHASH_FOREACH(self->primitives, k, v,
  30                 {
  31                 IoObject *proto = v;
  32                 if (IoObject_tag(proto)->performFunc == oldFunc)
  33                 {
  34                         IoObject_tag(proto)->performFunc = newFunc;
  35                 }
  36                 }
  37         );
  38
  39         return NULL;
  40 }
  41
  42 void IoState_debuggingOn(IoState *self)
  43 {
  44         IoState_replacePerformFunc_with_(self,
  45                                                            (IoTagPerformFunc *)IoObject_perform,
  46                                                            (IoTagPerformFunc *)IoObject_performWithDebugger);
  47 }
  48
  49 void IoState_debuggingOff(IoState *self)
  50 {
  51         IoState_replacePerformFunc_with_(self,
  52                                                            (IoTagPerformFunc *)IoObject_performWithDebugger,
  53                                                            (IoTagPerformFunc *)IoObject_perform);
  54 }
  55
  56 int IoState_hasDebuggingCoroutine(IoState *self)
  57 {
  58         return 1; // hack awaiting decision on how to change this
  59 }
  60
  61 void IoState_updateDebuggingMode(IoState *self)
  62 {
  63         if (IoState_hasDebuggingCoroutine(self))
  64         {
  65                 IoState_debuggingOn(self);
  66         }
  67         else
  68         {
  69                 IoState_debuggingOff(self);
  70         }
  71 }