libs/iovm/source/IoCoroutine.h

   1 /*#io
   2 docCopyright("Steve Dekorte", 2002)
   3 docLicense("BSD revised")
   4 */
   5
   6 #ifndef IoCoroutine_DEFINED
   7 #define IoCoroutine_DEFINED 1
   8 #include "IoVMApi.h"
   9
  10 #include "IoState.h"
  11
  12 #include "Common.h"
  13 #include "Coro.h"
  14
  15 #ifdef __cplusplus
  16 extern "C" {
  17 #endif
  18
  19 #define ISCOROUTINE(self) IoObject_hasCloneFunc_(self, (IoTagCloneFunc *)IoCoroutine_rawClone)
  20
  21 typedef IoObject IoCoroutine;
  22
  23 typedef struct
  24 {
  25         Coro *cid;
  26         Stack *ioStack;
  27         int debuggingOn;
  28 } IoCoroutineData;
  29
  30 IOVM_API IoCoroutine *IoCoroutine_proto(void *state);
  31 IOVM_API void IoCoroutine_protoFinish(IoCoroutine *self);
  32 IOVM_API IoCoroutine *IoCoroutine_rawClone(IoCoroutine *self);
  33 IOVM_API IoCoroutine *IoCoroutine_new(void *state);
  34
  35 IOVM_API void IoCoroutine_free(IoCoroutine *self);
  36 IOVM_API void IoCoroutine_mark(IoCoroutine *self);
  37 Stack *IoCoroutine_rawIoStack(IoCoroutine *self);
  38 IOVM_API void IoCoroutine_rawShow(IoCoroutine *self);
  39
  40 IOVM_API IoObject *IoCoroutine_main(IoCoroutine *self, IoObject *locals, IoMessage *m);
  41 IOVM_API IoObject *IoCoroutine_freeStack(IoCoroutine *self, IoObject *locals, IoMessage *m);
  42
  43 IOVM_API void *IoCoroutine_cid(IoCoroutine *self);
  44
  45 // label
  46
  47 //void IoCoroutine_rawSetLabel_(IoCoroutine *self, IoSymbol *s);
  48 //IoObject *IoCoroutine_rawLabel(IoCoroutine *self);
  49
  50 IOVM_API IoObject *IoCoroutine_setLabel(IoCoroutine *self, IoObject *locals, IoMessage *m);
  51 IOVM_API IoObject *IoCoroutine_label(IoCoroutine *self, IoObject *locals, IoMessage *m);
  52
  53 // runTarget
  54
  55 IOVM_API void IoCoroutine_rawSetRunTarget_(IoCoroutine *self, IoObject *v);
  56 IOVM_API IoObject *IoCoroutine_rawRunTarget(IoCoroutine *self);
  57
  58 // runMessage
  59
  60 IOVM_API void IoCoroutine_rawSetRunMessage_(IoCoroutine *self, IoObject *v);
  61 IOVM_API IoObject *IoCoroutine_rawRunMessage(IoCoroutine *self);
  62
  63 // runLocals
  64
  65 IOVM_API void IoCoroutine_rawSetRunLocals_(IoCoroutine *self, IoObject *v);
  66 IOVM_API IoObject *IoCoroutine_rawRunLocals(IoCoroutine *self);
  67
  68 // parent
  69
  70 IOVM_API void IoCoroutine_rawSetParentCoroutine_(IoCoroutine *self, IoObject *v);
  71 IOVM_API IoObject *IoCoroutine_rawParentCoroutine(IoCoroutine *self);
  72 // exception
  73
  74 IOVM_API void IoCoroutine_rawSetResult_(IoCoroutine *self, IoObject *v);
  75 IOVM_API IoObject *IoCoroutine_rawResult(IoCoroutine *self);
  76
  77 // exception
  78
  79 IOVM_API void IoCoroutine_rawRemoveException(IoCoroutine *self);
  80 IOVM_API void IoCoroutine_rawSetException_(IoCoroutine *self, IoObject *v);
  81 IOVM_API IoObject *IoCoroutine_rawException(IoCoroutine *self);
  82
  83 // ioStack
  84
  85 IOVM_API IoObject *IoCoroutine_ioStack(IoCoroutine *self, IoObject *locals, IoMessage *m);
  86 IOVM_API int IoCoroutine_rawIoStackSize(IoCoroutine *self);
  87
  88 // raw
  89
  90 IOVM_API void IoCoroutine_rawRun(IoCoroutine *self);
  91
  92 IOVM_API void IoCoroutine_clearStack(IoCoroutine *self);
  93
  94 IOVM_API void IoCoroutine_try(IoCoroutine *self, IoObject *target, IoObject *locals, IoMessage *message);
  95
  96 IOVM_API IoCoroutine *IoCoroutine_newWithTry(void *state,
  97                                                          IoObject *target,
  98                                                          IoObject *locals,
  99                                                          IoMessage *message);
 100
 101 IOVM_API void IoCoroutine_raiseError(IoCoroutine *self, IoSymbol *description, IoMessage *m);
 102
 103 // methods
 104
 105 IOVM_API IoObject *IoCoroutine_implementation(IoCoroutine *self, IoObject *locals, IoMessage *m);
 106
 107 IOVM_API IoObject *IoCoroutine_run(IoCoroutine *self, IoObject *locals, IoMessage *m);
 108 IOVM_API IoObject *IoCoroutine_callStack(IoCoroutine *self, IoObject *locals, IoMessage *m);
 109
 110 IOVM_API IoObject *IoCoroutine_isCurrent(IoCoroutine *self, IoObject *locals, IoMessage *m);
 111
 112 // runTarget
 113
 114 IOVM_API void IoCoroutine_rawSetRunTarget_(IoCoroutine *self, IoObject *v);
 115 IOVM_API IoObject *IoCoroutine_rawRunTarget(IoCoroutine *self);
 116
 117 // message
 118
 119 IOVM_API void IoCoroutine_rawSetRunMessage_(IoCoroutine *self, IoObject *v);
 120 IOVM_API IoObject *IoCoroutine_rawRunMessage(IoCoroutine *self);
 121
 122 // parent
 123
 124 IOVM_API void IoCoroutine_rawSetParentCoroutine_(IoCoroutine *self, IoObject *v);
 125 IOVM_API IoObject *IoCoroutine_rawParentCoroutine(IoCoroutine *self);
 126
 127 // try
 128
 129 IOVM_API IoObject *IoCoroutine_start(IoCoroutine *self, IoObject *locals, IoMessage *m);
 130
 131 IOVM_API IoObject *IoCoroutine_rawResume(IoCoroutine *self);
 132 IOVM_API IoObject *IoCoroutine_resume(IoCoroutine *self, IoObject *locals, IoMessage *m);
 133
 134 IOVM_API IoObject *IoCoroutine_isCurrent(IoCoroutine *self, IoObject *locals, IoMessage *m);
 135 IOVM_API IoObject *IoCoroutine_currentCoroutine(IoCoroutine *self, IoObject *locals, IoMessage *m);
 136
 137 // stack trace
 138
 139 IOVM_API IoObject *IoObject_callStack(IoCoroutine *self);
 140
 141 IOVM_API void IoObject_appendStackEntryDescription(IoCoroutine *self, UArray *ba);
 142
 143 IOVM_API void IoCoroutine_rawPrint(IoCoroutine *self);
 144
 145 // debugging
 146
 147 IOVM_API int IoCoroutine_rawDebuggingOn(IoCoroutine *self);
 148
 149 IOVM_API IoObject *IoCoroutine_setMessageDebugging(IoCoroutine *self, IoObject *locals, IoMessage *m);
 150 IOVM_API IoObject *IoObject_performWithDebugger(IoCoroutine *self, IoObject *locals, IoMessage *m);
 151
 152 IOVM_API IoObject *IoCoroutine_callStack(IoCoroutine *self, IoObject *locals, IoMessage *m);
 153
 154 IOVM_API void IoCoroutine_rawPrintBackTrace(IoCoroutine *self);
 155
 156 #ifdef __cplusplus
 157 }
 158 #endif
 159 #endif