mq_misc_check_lng.h

Go to the documentation of this file.

 
/* LABEL-NO */
 
/* variables defined - example from PYTHON
 
#define OT_LNG_NULL_IS(obj)               (obj == Py_None)
 
#define OT_LNG_OBJ_CLASS_IS(obj,cls)      PyObject_TypeCheck(obj,cls)
#define OT_OBJ_TO_CLASS(str)              NS(str)
 
#define OT_LNG_OBJ_ENUM_IS(obj,enm)       PyObject_TypeCheck(obj,enm)
#define OT_LNG_ENUM_NAME(enm)             OT_LNG_NAME_FROM_CLASS(enm)
#define OT_ENUM_TO_I32(io,o,e)   io=o
 
#define OT_LNG_ARRAY_IS(obj)              PyObject_TypeCheck(obj,&PyList_Type)
 
#define OT_LNG_STRN_PRE(str,obj)           PyObject *__##str=NULL; \
                                          MkErrorCheck(PyObj_AsUTF8(obj,&__##str)); \
                                          MK_STRN str=PyBytes_AsString(__##str)
 
#define OT_LNG_STRN_POST(str,obj)          Py_CLEAR(__##str)
 
#define OT_LNG_LONG_IS(obj)               (CHECK_LONG(obj) || CHECK_STRING(obj))   // from "high"
#define OT_LNG_I32_IS(obj)                (CHECK_LONG(obj) || CHECK_STRING(obj))    // from "high"
 
#include "tmpl/misc_check_lng.h"
 
*/
 
 
#if defined HEADER
 
#define  OT_CHECK_CTX(val,nullB)  OT_CHECK_CLASS(val,  OT_OBJ_TO_CLASS(MqContextC_lngO),       MqContextC_TT,   nullB)
#define  OT_CHECK_FCT(val,nullB)  OT_CHECK_CLASS(val,  OT_OBJ_TO_CLASS(MqFactoryC_lngO),       MqFactoryC_TT,   nullB)
#define  OT_CHECK_DMP(val,nullB)  OT_CHECK_CLASS(val,  OT_OBJ_TO_CLASS(MqDumpC_lngO),          MqDumpC_TT,      nullB)
#define  OT_CHECK_EVC(val,nullB)  OT_CHECK_CLASS(val,  OT_OBJ_TO_CLASS(MqEnvC_lngO),           MqEnvC_TT,       nullB)
 
#define  OT_CHECK_CTXN(val,nullB)  OT_CHECK_CLASS(val,  OT_OBJ_TO_CLASS(MqContextC_lngO),       MqContextC_TT,  nullB)
#define  OT_CHECK_FCTN(val,nullB)  OT_CHECK_CLASS(val,  OT_OBJ_TO_CLASS(MqFactoryC_lngO),       MqFactoryC_TT,  nullB)
#define  OT_CHECK_DMPN(val,nullB)  OT_CHECK_CLASS(val,  OT_OBJ_TO_CLASS(MqDumpC_lngO),          MqDumpC_TT,     nullB)
#define  OT_CHECK_EVCN(val,nullB)  OT_CHECK_CLASS(val,  OT_OBJ_TO_CLASS(MqEnvC_lngO),           MqEnvC_TT,      nullB)
 
#if !defined(NO_CheckSlaveId)
  MQ_EXTERN enum MkErrorE MQ(CheckSlaveId)  (OT_Check_ARGS, MK_NUM*);
  #define OT_CHECK_SLAVE_ID(val) \
    MkErrorC_CheckD(MQ(CheckSlaveId)(OT_Check_CALL(#val),&val));
#endif
 
#if !defined(NQ_CheckConstructor)
  MQ_EXTERN enum MkErrorE MK_DECL MQ(CheckConstructor) (OT_Check_ARGS, MK_CBP*);
//#pragma message "The value of MQ_EXTERN: " MK_CPPXSTR(MQ_EXTERN)
  #define OT_CHECK_CONSTRUCTOR(val)  \
    MkErrorC_CheckD(MQ(CheckConstructor)(OT_Check_CALL(#val), &val));
#endif
 
 
#else // !HEADER
 
#if !defined(NO_CheckSlaveId)
enum MkErrorE MQ(CheckSlaveId) (
  OT_Check_ARGS,
  MK_NUM      *retP
) {
  if ((*skipP) >= objc) {
    WrongNumArgs(hdl, (*skipP), objc, -999, +999, arg);
    goto error;
  } 
  OT_OBJ_T objV = OT_LNG_OBJV((*skipP)++);
 
  if (OT_LNG_OBJ_ENUM_IS(objV, OT_OBJ_TO_ENUM(MqSlaveE))) {
    OT_ENUM_TO_I32_2(objV,MqSlaveE);  /* keep error for append */
    MkErrorCheck(MK(LngObj_AsI32)(OT_Prefix_CALL hdl,objV,retP));
  } else if (OT_LNG_I32_IS(objV)) {
    MkErrorCheck(MK(LngObj_AsI32)(OT_Prefix_CALL hdl,objV,retP));
  } else if (OT_LNG_OBJECT_IS(objV)) {
    WrongTypeOfArgError("MqSlaveE", OT_LNG_OBJ_CLASSNAME(objV));
  } else {
    WrongTypeOfArgError("MqSlaveE", OT_OBJ_TYPE_STRING(objV));
  }
  return MK_OK; /* ignore PRE existing ERROR */
error:
  return OT_ERROR_STACK;
}
#endif //NO_CheckSlaveId
 
/*****************************************************************************/
 
#endif // HEADER