MqDumpC_rb.c

Go to the documentation of this file.

 
/* LABEL-START */
#define META_FILE_NAME "MqDumpC_rb.c"
 
#include  "LibMqMsgque_private_rb.h"
 
#define OT_CLASS            NS(MqDumpC)
#define OT_CLASS_NAME       "MqDumpC"
 
#define OT_LNG2META(O)      MqDmp(VAL2MNG(O))
 
OT_CLS_T OT_CLASS;
 
// new Class type object
static MK_TYP MqDumpCTT = NULL;
OT_OBJ_T MQ(MqDumpC_MK_NULL) = 0;
 
// GS marker in "Data_Wrap_Struct"
static void  NS(sMark)    (MK_PTR);
 
// ruby datatype of the wrapped struct
static rb_data_type_t NS(MqDumpC_T) = {
  "MqDumpC",
  {
    NS(sMark),
    MK(AtomDeleteSoft),
    0, /* dsize */
    0, /* reserved[1] */
  },
  NULL, /* parent */
  NULL, /* data */
  RUBY_TYPED_FREE_IMMEDIATELY
};
 
// >>THIS<< is a Phase-1-CONSTRUCTOR: a constructor which create the SELF object
// A Phase-2-CONSTRUCTOR is a constructor which configure an already existing object
// DO: create a new SELF and link this SELF with the MQ-Object "mng"
// clazz is the toplevel "subclass" or "MqDumpC"
mk_inline OT_OBJ_T NS(LNG_CONSTR) (OT_CLS_T clazz, MK_MNG mng, int objc, VALUE* objv) {
  return MK(AtomObjCrt)(clazz,&NS(MqDumpC_T),mng,objc,objv);
}
// MQ: ObjNew feature: called to return a new or an already existing RUBY-SELF-Object
// -> moved to: msgque_rb.h
// OT_OBJ_T NS(MqDumpC_ObjNew) (MK_DMP hdl) {
//   return MK(AtomObjNew) (MqDumpC_X2obj(hdl));
// }
// MQ: ObjNew feature: selfCreate will be called from "ObjNew->MkSelfNew" if MkObj need a SELF pointer
static MK_PTR NS(MqDumpC_selfCreate) (MK_RT_ARGS MK_OBJ obj, MK_PTR envP) {
  OT_OBJ_T self = NS(LNG_CONSTR) (OT_CLASS, obj, 0, NULL);
  return VAL2PTR(self);
}
// MQ: called on instance-destruction for a "selfCreate" instance → goal: destroy the SELF
static void NS(MqDumpC_selfDelete) (MK_RT_ARGS MK_PTR ptr, MK_PTR envP) {
  OT_OBJECT_DELETE_HARD(PTR2VAL(ptr));
}
// MQ: called to destroy link from SELF to META
static void NS(MqDumpC_selfUnlink) (MK_RT_ARGS MK_PTR ptr, MK_PTR envP) {
  OT_OBJ_T self =  PTR2VAL(ptr);
  RDATA(self)->data = NULL;
}
// initialize the RUBY and MO class specific object
#define S_INIT NS(sInit)(MK_RT_CALL_ONLY)
static void NS(sInit)(MK_RT_ARGS_ONLY) {
 
  // add "selfCreate" and "selfDelete" feature to the MQ-MqDumpC-Type
  MqDumpCTT->selfCreate    = NS(MqDumpC_selfCreate);
  MqDumpCTT->selfDelete    = NS(MqDumpC_selfDelete);
  MqDumpCTT->selfUnlink    = NS(MqDumpC_selfUnlink);
 
  // create the RUBY class
  OT_CLASS = rb_define_class_under(OT_PKG, "MqDumpC", MK_BASE_CLASS);
  rb_undef_alloc_func(OT_CLASS);
 
  /* define the "NULL" object */
  VALUE nullO = TypedData_Wrap_Struct (OT_CLASS, &NS(MqDumpC_T), MK_NULL);
  NS(MqDumpC_MK_NULL) = nullO;
  INCR_REF(&NS(MqDumpC_MK_NULL));
}
 
#define OT_SETUP_hdl                OT_SETUP_hdl_tmpl(MqDumpC);
#define OT_SETUP_hdl__null_allow    OT_SETUP_hdl_tmpl__null_allow(MqDumpC);
#define OT_SETUP_hdl_constr         AllRtSetup_NULL; \
                                    OT_OBJ_T clazz = self; \
                                    MqDumpC_type hdl = (MqDumpC_type) &MkERROR;
#define OT_SETUP_hdl_destr          OT_SETUP_hdl_tmpl__null_allow(MqDumpC);
#define OT_SETUP_hdl_static         AllRtSetup_NULL; \
                                    __attribute__((unused)) MK_TYP hdl = MqDumpC##_TT;
#define OT_SETUP_hdl_static_constr  OT_SETUP_hdl_static
 
#if !defined(SetupRtFromObj_X)
  #define SetupRtFromObj_X(hdl)     AllRtSetup_X(hdl)
  #define SetupRtFromObj_XN(hdl)    AllRtSetup_XN(hdl)
#endif
 
/* LABEL-END */
 
 
// BEGIN-DOC - created by 'rb_MqS.tcl -i NHI1_HOME/theLink/c/gen/c_mqmsgque.meta' - DO NOT change
 
// doc-key: MqDumpC,MqDump,sCi,func
#define Error_doc "MqDumpC MqDumpC.Error(error:MqContextC, ?dumpP_inout:MqDumpC=nil?)"
#define Export_doc "MqDumpC MqDumpC.Export(ctx:MqContextC, ?dumpP_inout:MqDumpC=nil?)"
#define new_doc "MqDumpC MqDumpC.new(ctx:MqContextC, ?dumpP_inout:MqDumpC=nil?)"
 
// doc-key: MqDumpC,MqDump,sCo,func
#define BinSet_doc "MqDumpC MqDumpC.BinSet(data:binary)"
 
// doc-key: MqDumpC,MqDump,sc_,func
#define GetNull_doc "MqDumpC MqDumpC.GetNull()"
#define HandleResolve_doc "MqDumpC MqDumpC.HandleResolve(netHdl:MK_HDL)"
#define Instances_doc "MqDumpC MqDumpC.Instances()"
 
// doc-key: MqDumpC,MqDump,oc_,func
#define Next_doc "MqDumpC dmp.Next()"
#define Prev_doc "MqDumpC dmp.Prev()"
 
// doc-key: MqDumpC,MqDump,om_,func
#define BinGet_doc "binary dump.BinGet() (const)"
// skip class-overload: HandleGet → MkObjectHandleGet
#define Import_doc "dump.Import(ctx:MqContextC)"
// skip class-overload: Log → MkObjectLog
#define SizeGet_doc "long dump.SizeGet() (const)"
#define TokenGet_doc "string dump.TokenGet() (const)"
 
// END-DOC - created by 'rb_MqS.tcl -i NHI1_HOME/theLink/c/gen/c_mqmsgque.meta' - DO NOT change
 
 
// BEGIN-MqDumpC - created by 'rb_MqC.tcl -i NHI1_HOME/theLink/c/gen/c_mqmsgque.meta' - DO NOT change
 
 
// doc-key: MqDumpC,MqDumpC-Class-Export,sc_
 
static OT_ProcRet NS(MqDumpC_HandleResolve) (OtClass_ARGS) {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(HandleResolve_doc);
  MK_HDL netHdl = 0;
  OT_CHECK_REQUIRED(OT_CHECK_NIH (netHdl))
  OT_CHECK_NOARGS;
  MQ_DMP retVal = MqDumpHandleResolve (netHdl);
  OT_retObj_SET_DMP(retVal);
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
// doc-key: MqDumpC,MqDumpC-Class-Export,om_
 
// skip on class-overload: MqDumpHandleGet → MkObjectHandleGet
MK_DEPRECATED MK_UNUSED
static OT_ProcRet NS(MqDumpC_HandleGet) (MqDumpC_ARGS) {OT_ERROR_LNG_RETURN;}
 
// MqDumpC_Class_RB_API
 
 
// doc-key: MqDumpC,MqDumpC-Class-Introspection,oc_
 
static OT_ProcRet NS(MqDumpC_Next) (MqDumpC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(Next_doc);
  OT_CHECK_NOARGS;
  MQ_DMP retVal = MqDumpNext (hdl);
  OT_retObj_SET_DMP(retVal);
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(MqDumpC_Prev) (MqDumpC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(Prev_doc);
  OT_CHECK_NOARGS;
  MQ_DMP retVal = MqDumpPrev (hdl);
  OT_retObj_SET_DMP(retVal);
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
// doc-key: MqDumpC,MqDumpC-Class-Introspection,sc_
 
static OT_ProcRet NS(MqDumpC_Instances) (OtClass_ARGS) {
  OT_SETUP_hdl_static;
  OT_SETUP_NOARG(Instances_doc);
  OT_CHECK_NOARGS;
  MQ_DMP retVal = MqDumpInstances ();
  OT_retObj_SET_DMP(retVal);
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
// MqDumpC_Class_RB_API
 
 
// doc-key: MqDumpC,MqDumpC-Class-Misc,sc_
 
static OT_ProcRet NS(MqDumpC_GetNull) (OtClass_ARGS) {
  OT_SETUP_hdl_static;
  OT_SETUP_NOARG(GetNull_doc);
  OT_CHECK_NOARGS;
  MQ_DMP retVal = MqDumpGetNull ();
  OT_retObj_SET_DMP(retVal);
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
// MqDumpC_Class_RB_API
 
 
// doc-key: MqDumpC,MqDumpC-Misc,om_
 
// skip on class-overload: MqDumpLog → MkObjectLog
MK_DEPRECATED MK_UNUSED
static OT_ProcRet NS(MqDumpC_Log) (MqDumpC_ARGS) {OT_ERROR_LNG_RETURN;}
 
static OT_ProcRet NS(MqDumpC_SizeGet) (MqDumpC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(SizeGet_doc);
  OT_CHECK_NOARGS;
  OT_retObj_SET_LONG(MqDumpSizeGet (hdl));
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(MqDumpC_TokenGet) (MqDumpC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(TokenGet_doc);
  OT_CHECK_NOARGS;
  OT_retObj_SET_STR(MqDumpTokenGet (hdl));
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
// MqDumpC_Misc_RB_API
 
 
// doc-key: MqDumpC,MqDumpC-TOR,sCi
 
static OT_ProcRet NS(MqDumpC_Error) (OtClass_ARGS) {
  OT_SETUP_hdl_static_constr;
  OT_SETUP_VARARGS(1,2,Error_doc);
  MQ_CTX error = 0;
  OT_CHECK_REQUIRED(OT_CHECK_CTX (error,MK_NULL_NO))
  MQ_DMP dumpP_inout = NULL;
  OT_CHECK_OPTIONAL(OT_CHECK_DMP (dumpP_inout,MK_NULL_YES))
  OT_CHECK_NOARGS;
  MkErrorC_Check(error,MqDumpError (error, &dumpP_inout));
  OT_retObj_SET_DMP(dumpP_inout);
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(MqDumpC_Export) (OtClass_ARGS) {
  OT_SETUP_hdl_static_constr;
  OT_SETUP_VARARGS(1,2,Export_doc);
  MQ_CTX ctx = 0;
  OT_CHECK_REQUIRED(OT_CHECK_CTX (ctx,MK_NULL_NO))
  MQ_DMP dumpP_inout = NULL;
  OT_CHECK_OPTIONAL(OT_CHECK_DMP (dumpP_inout,MK_NULL_YES))
  OT_CHECK_NOARGS;
  MkErrorC_Check(ctx,MqDumpExport (ctx, &dumpP_inout));
  OT_CONSTRUCTOR_POST(dumpP_inout)
  OT_retObj_SET_DMP(dumpP_inout);
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(MqDumpC_new) (CONSTR_ARGS) {
  OT_SETUP_hdl_constr;
  OT_SETUP_CONSTRUCTOR_ARGS(1,2,new_doc);
  MQ_CTX ctx = 0;
  OT_CHECK_REQUIRED(OT_CHECK_CTX (ctx,MK_NULL_NO))
  MQ_DMP dumpP_inout = NULL;
  OT_CHECK_OPTIONAL(OT_CHECK_DMP (dumpP_inout,MK_NULL_YES))
  MkErrorC_Check(ctx,MqDumpExport (ctx, &dumpP_inout));
  OT_CONSTRUCTOR_POST(dumpP_inout)
  OT_retObj_CONSTR(dumpP_inout);
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
// doc-key: MqDumpC,MqDumpC-TOR,sCo
 
static OT_ProcRet NS(MqDumpC_BinSet) (OtClass_ARGS) {
  OT_SETUP_hdl_static_constr;
  OT_SETUP_ONEARG(BinSet_doc);
  MkBinaryR data = {0};
  OT_CHECK_REQUIRED(OT_CHECK__ME_REF_MkBinaryR(data))
  OT_CHECK_NOARGS;
  MQ_DMP dmp_out;
  MkErrorC_Check(MK_ERROR_FORMAT,MqDumpBinSet (data, &dmp_out));
  OT_retObj_SET_DMP(dmp_out);
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
// doc-key: MqDumpC,MqDumpC-TOR,om_
 
static OT_ProcRet NS(MqDumpC_BinGet) (MqDumpC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(BinGet_doc);
  OT_CHECK_NOARGS;
  MkBinaryR retVal = MqDumpBinGet (hdl);
  OT_retObj_SET(OT_GET__ME_REF_MkBinaryR(retVal));
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(MqDumpC_Import) (MqDumpC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_ONEARG(Import_doc);
  MQ_CTX ctx = 0;
  OT_CHECK_REQUIRED(OT_CHECK_CTX (ctx,MK_NULL_NO))
  OT_CHECK_NOARGS;
  MkErrorC_Check(hdl,MqDumpImport (hdl, ctx));
  OT_retObj_SET_None;
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
// MqDumpC_TOR_RB_API
 
// END-MqDumpC - created by 'rb_MqC.tcl -i NHI1_HOME/theLink/c/gen/c_mqmsgque.meta' - DO NOT change
 
/*****************************************************************************/
/*                                                                           */
/*                                public                                     */
/*                                                                           */
/*****************************************************************************/
 
static void NS(sMark) (MK_PTR mng) {
}
 
void NS(MqDumpC_Init) (MQ_RT_ARGS_ONLY) {
 
  // init type
  MqDumpCTT = MqDumpC_TT;
  S_INIT;
 
// BEGIN-CLASS - created by 'rb_MqS.tcl -i NHI1_HOME/theLink/c/gen/c_mqmsgque.meta' - DO NOT change
 
// doc-key: MqDumpC,MqDump,sCi
OT_METH_S ( MqDumpC, Error,                     MqDumpC_Error                       )
OT_METH_S ( MqDumpC, Export,                    MqDumpC_Export                      )
OT_METH_C ( MqDumpC, new,                       MqDumpC_new                         )
 
// doc-key: MqDumpC,MqDump,sCo
OT_METH_S ( MqDumpC, BinSet,                    MqDumpC_BinSet                      )
 
// doc-key: MqDumpC,MqDump,sc_
OT_METH_O ( MqDumpC, GetNull,                   MqDumpC_GetNull                     )
OT_METH_S ( MqDumpC, GetNull,                   MqDumpC_GetNull                     )
OT_METH_O ( MqDumpC, HandleResolve,             MqDumpC_HandleResolve               )
OT_METH_S ( MqDumpC, HandleResolve,             MqDumpC_HandleResolve               )
OT_METH_O ( MqDumpC, Instances,                 MqDumpC_Instances                   )
OT_METH_S ( MqDumpC, Instances,                 MqDumpC_Instances                   )
 
// END-CLASS - created by 'rb_MqS.tcl -i NHI1_HOME/theLink/c/gen/c_mqmsgque.meta' - DO NOT change
 
// BEGIN-OBJ - created by 'rb_MqS.tcl -i NHI1_HOME/theLink/c/gen/c_mqmsgque.meta' - DO NOT change
 
// doc-key: MqDumpC,MqDump,oc_
OT_METH_O ( MqDumpC, Next,                      MqDumpC_Next                        )
OT_METH_O ( MqDumpC, Prev,                      MqDumpC_Prev                        )
 
// doc-key: MqDumpC,MqDump,om_
OT_METH_O ( MqDumpC, BinGet,                    MqDumpC_BinGet                      )
// skip class-overload: MqDumpHandleGet → HandleGet, MqDumpC_HandleGet
OT_METH_O ( MqDumpC, Import,                    MqDumpC_Import                      )
// skip class-overload: MqDumpLog → Log, MqDumpC_Log
OT_METH_O ( MqDumpC, SizeGet,                   MqDumpC_SizeGet                     )
OT_METH_O ( MqDumpC, TokenGet,                  MqDumpC_TokenGet                    )
 
// END-OBJ - created by 'rb_MqS.tcl -i NHI1_HOME/theLink/c/gen/c_mqmsgque.meta' - DO NOT change
}