LibMkKernel_private_atl.h

Go to the documentation of this file.

 
#pragma once
#include "debug_mk.h"
#include "nhi1_config.h"
#include "rl_mox.h"
 
#define MK_RT_SETUP
#define MK_RT_SETUP_METHOD    OT_MK_RT_T amkrt = clientData; \
                              MkRtSetup_RT(amkrt->mkrt); \
                              SETUP_moxrt
 
#include "LibMkKernel_atl.h"
 
#undef  RL_RT
#define RL_RT   (*amkrt)
 
#define RL_EvalFrEx(frm,f)    NS(EvalObjvFr)(MK_RT_CALL (frm), interp, RL_num, RL_data, (f))
#define RL_EvalFr(frm,f)      ({ OT_OBJ_T ret = RL_EvalFrEx(frm,f); if (ret == NULL) { goto error; }; ret; })
 
#define RL_EvalFrME(m,frm,f) ({         \
  OT_OBJ_T ret = RL_EvalFrEx(frm,f);    \
  if (ret == NULL) {                    \
    OT_ERROR_LNG_2_META(m);             \
    goto error;                         \
  };                                    \
  ret;                                  \
})
 
#define RL_EvalRtEx(f)        NS(EvalObjvRt)(interp, RL_num, RL_data, (f))
#define RL_EvalRt(f)          ({ OT_OBJ_T ret = RL_EvalRtEx(f); if (ret == NULL) { goto error; }; ret; })
//#define RL_Eval_0()           RL_Eval(0)
 
#define RL_EvalME(m,f) ({    \
  OT_OBJ_T ret = RL_EvalRtEx(f);    \
  if (ret == NULL) {                \
    OT_ERROR_LNG_2_META(m);         \
    goto error;                     \
  };                                \
  ret;                              \
})