Re: [Caml-list] using modules to wrap c++ classes

[Joel Reymont <joelr1@gmail.com>]

I'm doing this to dispatch callbacks on the C side.

Are there any issues with doing it this way?

Is there a better way?

    Thanks, Joel

---

enum
{
  ALERT
};

static CAMLprim value callbacks[] =
  {
    Val_unit // Alert
  };

template<class T>
inline void dispatch(CAMLprim value (*make)(T*), value v, T* p, void* ctx)
{
  if (v != Val_unit)
  {
    caml_c_thread_register();
    CAMLlocal1(o);
    o = make(p);
    callback2(v, (value)ctx, o);
  }
}

class MyAdmCallbacks: public AdmCallbacks
{
 public :

  MyAdmCallbacks()  {};
  ~MyAdmCallbacks() {};

  virtual int Alert(AlertInfo* pInfo, void* pContext, int* aiCode)
  {
    dispatch(Alert_new_from, callbacks[ALERT], pInfo, pContext);
    *aiCode = API_OK;
    return (OK);
  }
};

--------------------------------------------------------------------------
Working on AlgoKit, a new algorithmic trading platform using Rithmic R|API
---------------------+------------+---------------------------------------
http://wagerlabs.com | @wagerlabs | http://www.linkedin.com/in/joelreymont
---------------------+------------+---------------------------------------