rl_mox.h

Go to the documentation of this file.

 
#pragma once
 
// ===================================================================================
// RL
 
#define RL(num)               RL_data[num]
#define RL_RT                 (*moxrt)
 
#define RL_init(max, ref, code)                                           \
  /* check if data is valid */                                            \
    static_assert(max == sizeof(RL_RT.ref)/sizeof(MOX_OBJ_T),             \
      "RL_init(max," #ref ",..) is NOT in sync with REGISTRY.");          \
  /* init "num" to max */                                                 \
    int RL_num=max;                                                       \
  /* FAST assess to "RL_RT.ref" without deref */                          \
    MOX_OBJ_T *RL_data = RL_RT.ref;                                       \
  /* FIRST? - do initialize */                                            \
    if (RL_data[0] == NULL) {                                             \
      { code; }                                                           \
    }
 
#define RL_ref(num,code)      do { \
/*printV("num<%d>,code<%p|%s>",num,code,VAL2STR(code));*/ \
  if (RL_data[num] != NULL) Tcl_DecrRefCount(RL_data[num]); \
  RL_data[num] = (code); \
    assert(RL_data[num] != NULL); \
  Tcl_IncrRefCount(RL_data[num]); \
} while (0)
 
#define RL_NewS(num,s)        RL_ref(num,s ? STR2VAL(s) : Tcl_NewObj())
#define RL_NewL(num,c,v)      RL_ref(num,c ? Tcl_NewListObj(c,v) : Tcl_NewObj())
#define RL_T(num,t)           RL_ref(num,RL_RT.t)
#define RL_O(num,l)           RL_ref(num,l ? l : Tcl_NewObj())
#define RL_NewC(num,s)        RL_ref(num,STR2VAL(#s))
#define RL_NewI(num,i)        RL_ref(num,INT2VAL(i))
 
#define RL_args(start,_c,_v)  do {                                                                          \
  int c = _c; const MOX_OBJ_T * v = _v ;                                                                    \
  if (c+start > RL_num) {                                                                                   \
    Tcl_SetObjResult(interp,Tcl_ObjPrintf(                                                                  \
      "[%s:%d] error: overflow in 'RL_args', get '%d' items but only space for '%d' items is available",    \
        __func__, __LINE__, c, RL_num-start)                                                                \
    );                                                                                                      \
    Tcl_SetErrorCode(interp, "MYOOX", "EVAL", "OVERFLOW", NULL);                                            \
    return TCL_ERROR;                                                                                       \
  }                                                                                                         \
  for (int i=0,j=start; i<c; i++, j++) RL_ref(j,v[i]);                                                      \
  RL_num=(start)+(c);                                                                                       \
} while(0)
 
 
// TCL_EVAL_DIRECT, TCL_EVAL_GLOBAL
#define RL_EvalEx(f)          ({ \
  /* RL_debug; */ \
  Tcl_EvalObjv(interp, RL_num, RL_data, (f)); \
})
#define RL_EvalDirect(cmd)    (cmd)(&RL_RT,interp,RL_num,RL_data)
 
#define RL_debug              printAry2("RL_debug",RL_num,RL_data)