sq3_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_INT(o,e)           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_INT_IS(obj)                (CHECK_LONG(obj) || CHECK_STRING(obj))    // from "high"
 
#include "tmpl/misc_check_lng.h"
 
*/
 
#if defined HEADER
 
// BEGIN-Class-define - created by 'c_Class.tcl -i NHI1_HOME/theSq3Lite/c/gen/c_sq3lite.meta' - DO NOT change
 
#define OT_CHECK_VAL(val,nullB)   OT_CHECK_CLASS(val, OT_OBJ_TO_CLASS(Sq3ValueC_lngO), Sq3ValueC_TT, nullB)
#define OT_CHECK_VALN(val,nullB)  OT_CHECK_CLASS(val, OT_OBJ_TO_CLASS(Sq3ValueC_lngO), Sq3ValueC_TT, nullB)
#define OT_CHECK_STMT(val,nullB)  OT_CHECK_CLASS(val, OT_OBJ_TO_CLASS(Sq3StmtC_lngO),  Sq3StmtC_TT,  nullB)
#define OT_CHECK_STMTN(val,nullB) OT_CHECK_CLASS(val, OT_OBJ_TO_CLASS(Sq3StmtC_lngO),  Sq3StmtC_TT,  nullB)
#define OT_CHECK_BLOB(val,nullB)  OT_CHECK_CLASS(val, OT_OBJ_TO_CLASS(Sq3BlobC_lngO),  Sq3BlobC_TT,  nullB)
#define OT_CHECK_BLOBN(val,nullB) OT_CHECK_CLASS(val, OT_OBJ_TO_CLASS(Sq3BlobC_lngO),  Sq3BlobC_TT,  nullB)
#define OT_CHECK_FILE(val,nullB)  OT_CHECK_CLASS(val, OT_OBJ_TO_CLASS(Sq3FileC_lngO),  Sq3FileC_TT,  nullB)
#define OT_CHECK_FILEN(val,nullB) OT_CHECK_CLASS(val, OT_OBJ_TO_CLASS(Sq3FileC_lngO),  Sq3FileC_TT,  nullB)
#define OT_CHECK_LITE(val,nullB)  OT_CHECK_CLASS(val, OT_OBJ_TO_CLASS(Sq3LiteC_lngO),  Sq3LiteC_TT,  nullB)
#define OT_CHECK_LITEN(val,nullB) OT_CHECK_CLASS(val, OT_OBJ_TO_CLASS(Sq3LiteC_lngO),  Sq3LiteC_TT,  nullB)
 
// END-Class-define - created by 'c_Class.tcl -i NHI1_HOME/theSq3Lite/c/gen/c_sq3lite.meta' - DO NOT change
 
 
#else // !HEADER
 
/*****************************************************************************/
 
#endif