MqDumpC_atl.c

Go to the documentation of this file.

 
/* LABEL-START */
 
#define   META_FILE_NAME      "MqDumpC_atl.c"
 
#include  "LibMqMsgque_private_atl.h"
 
#define   OT_CLASS            amqrt->AtlMqDumpC
#define   OT_NULL             amqrt->AtlMqDumpC_MK_NULL
#define   OT_CLASS_NAME       "MqDumpC"
 
#define   SELF2HDL(O)         MqDmp(VAL2MNG(O))
 
// LNG: class
// -> moved to LibMqMsgque_atl.h → OT_MQ_RT_S → AtlMqMsgqueCTT;
 
// META: ObjNew feature: called to return a new or an already existing ATL-SELF-Object
// -> moved to LibMqMsgque_atl.h → MqMsgqueC_ObjNew
 
// META: 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 const obj, MK_PTR const env) {
  SETUP_amqrt(env);
  return AtomMake(obj,OT_CLASS,NULL,NULL,env);
}
 
// META: called if MkObj must be destroyed and if the SELF is still alive → goal: destroy the SELF
static void NS(MqDumpC_selfDelete) (MK_RT_ARGS MK_PTR selfP, MK_PTR const env) {
  OT_SELF_T selfO = selfP;
  SETUP_amqrt(env);
  MK(AtomDeleteHard) (OT_MK_CALL selfO);
}
 
// META: called to destroy link from SELF to META
static void NS(MqDumpC_selfUnlink) (MK_RT_ARGS MK_PTR selfP, MK_PTR const env) {
  OT_SELF_T selfO = selfP;
  SETUP_amqrt(env);
  return MK(AtomUnlink) (OT_MK_CALL selfO);
}
 
#define OT_SETUP_hdl                  SetupHdlFromMetaData_2(MQ_DMP)
#define OT_SETUP_hdl__null_allow      SetupHdlFromMetaData__null_allow_2(MQ_DMP)
#define OT_SETUP_hdl_destr            SetupHdlFromMetaData__null_allow_2(MQ_DMP)
#define OT_SETUP_hdl_constr           SetupHdlConstr(MqDumpC)
#define OT_SETUP_hdl_static_constr    OT_SETUP_hdl_static
#define OT_SETUP_hdl_static           SetupHdlStatic(MqDumpC)
 
#define OT_retObj_CONSTR(x)           OT_retObj_SET(AtomInit(OT_SELF,MqDumpC_X2obj(x),amqrt))
 
// initialize the ATL and META class specific object
#define   ClassInit \
  /* if not already done, initialize NEW META type */ \
  if (MqDumpCTT == NULL) MqDumpCTT = MqDumpSTT; \
 \
  /* protect against double call */ \
  if (MqDumpCTT->selfCreate == NS(MqDumpC_selfCreate)) return MK_OK; \
 \
  /* add "selfCreate" and "selfDelete" feature to the META-Class */ \
  MqDumpCTT->selfCreate    = NS(MqDumpC_selfCreate); \
  MqDumpCTT->selfDelete    = NS(MqDumpC_selfDelete); \
  MqDumpCTT->selfUnlink    = NS(MqDumpC_selfUnlink); \
 \
  /* create the ATL-class */ \
  OT_CLASS = AltClassDef(MqDumpCTT,&amqrt->AtlMqDumpC_NS); \
    if (OT_CLASS == NULL) goto error; \
    OT_REF_INCR(OT_CLASS); \
 \
  /* create the ATL static Methods */ \
  check_LNG(AtlUnknownSetup (NS(sOtClassDef),amqrt)) goto error; \
 \
  /* create the ATL instance Methods */ \
  check_LNG(AtlUnknownSetup (NS(sInstanceDef),amqrt)) goto error; \
 \
  /* after class was modified, recompile the class */ \
  RL_init(2, recompile, RL_T(0,RecompileN)); RL_O(1,OT_CLASS) ; \
    int retI = RL_EvalEx(0); \
      if (retI != TCL_OK) return retI; \
 \
  /* define the "NULL" object */ \
  OT_NULL = AtomCreateNULL(OT_CLASS, "::MqDumpC::MK_NULL", (MK_PTR)amqrt); \
    if (OT_NULL == NULL) goto error; \
    OT_REF_INCR(OT_NULL);
/* LABEL-END */
 
// BEGIN-DOC - created by 'atl_MqS.tcl -i NHI1_HOME/theLink/c/gen/c_mqmsgque.meta' - DO NOT change
 
// doc-key: MqDumpC,MqDump,sCi,func
#define CTOR_doc "MqDumpC [MqDumpC::CTOR ctx:MqContextC ?dumpP_inout:MqDumpC=NULL?]"
#define Error_doc "MqDumpC [MqDumpC::Error error:MqContextC ?dumpP_inout:MqDumpC=NULL?]"
#define Export_doc "MqDumpC [MqDumpC::Export ctx:MqContextC ?dumpP_inout:MqDumpC=NULL?]"
 
// 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 [MqDumpC::Next $dmp]"
#define Prev_doc "MqDumpC [MqDumpC::Prev $dmp]"
 
// doc-key: MqDumpC,MqDump,om_,func
#define BinGet_doc "binary [MqDumpC::BinGet $dump] (const)"
// skip class-overload: HandleGet → MkObjectHandleGet
#define Import_doc "MqDumpC::Import $dump ctx:MqContextC"
// skip class-overload: Log → MkObjectLog
#define SizeGet_doc "long [MqDumpC::SizeGet $dump] (const)"
#define TokenGet_doc "string [MqDumpC::TokenGet $dump] (const)"
 
// END-DOC - created by 'atl_MqS.tcl -i NHI1_HOME/theLink/c/gen/c_mqmsgque.meta' - DO NOT change
 
/*****************************************************************************/
/*                                                                           */
/*                        O B J E C T                                        */
/*                                                                           */
/*****************************************************************************/
 
// BEGIN-MqDumpC - created by 'atl_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);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  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_ATL_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);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  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);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  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);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
// MqDumpC_Class_ATL_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);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
// MqDumpC_Class_ATL_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));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  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));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
// MqDumpC_Misc_ATL_API
 
 
// doc-key: MqDumpC,MqDumpC-TOR,sCi
 
static OT_ProcRet NS(MqDumpC_CTOR) (CONSTR_ARGS) {
  OT_SETUP_hdl_constr;
  OT_SETUP_CONSTRUCTOR_ARGS(1,2,CTOR_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);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
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);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  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);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  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);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  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));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  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;
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
// MqDumpC_TOR_ATL_API
 
// END-MqDumpC - created by 'atl_MqC.tcl -i NHI1_HOME/theLink/c/gen/c_mqmsgque.meta' - DO NOT change
 
// ---------------------------------------------------------------------------------------
 
static const OtObjProcDefS NS(sOtClassDef)[] = {
  // BEGIN-CLASS - created by 'atl_MqS.tcl -i NHI1_HOME/theLink/c/gen/c_mqmsgque.meta' - DO NOT change
 
  // doc-key: MqDumpC,MqDump,sCi
  { "::MqDumpC::Error"         , NS(MqDumpC_Error)         },
  { "::MqDumpC::Export"        , NS(MqDumpC_Export)        },
 
  // doc-key: MqDumpC,MqDump,sCo
  { "::MqDumpC::BinSet"        , NS(MqDumpC_BinSet)        },
 
  // doc-key: MqDumpC,MqDump,sc_
  { "::MqDumpC::GetNull"       , NS(MqDumpC_GetNull)       },
  { "::MqDumpC::HandleResolve" , NS(MqDumpC_HandleResolve) },
  { "::MqDumpC::Instances"     , NS(MqDumpC_Instances)     },
 
  // END-CLASS - created by 'atl_MqS.tcl -i NHI1_HOME/theLink/c/gen/c_mqmsgque.meta' - DO NOT change
  { NULL }
};
 
// ---------------------------------------------------------------------------------------
 
static const OtObjProcDefS NS(sInstanceDef)[] = {
  // BEGIN-OBJ - created by 'atl_MqS.tcl -i NHI1_HOME/theLink/c/gen/c_mqmsgque.meta' - DO NOT change
 
  // doc-key: MqDumpC,MqDump,oC_
  { "::MqDumpC::MqDumpC"       , NS(MqDumpC_CTOR)          },
 
  // doc-key: MqDumpC,MqDump,oc_
  { "::MqDumpC::Next"          , NS(MqDumpC_Next)          },
  { "::MqDumpC::Prev"          , NS(MqDumpC_Prev)          },
 
  // doc-key: MqDumpC,MqDump,om_
  { "::MqDumpC::BinGet"        , NS(MqDumpC_BinGet)        },
  // skip class-overload: HandleGet → MkObjectHandleGet
  { "::MqDumpC::Import"        , NS(MqDumpC_Import)        },
  // skip class-overload: Log → MkObjectLog
  { "::MqDumpC::SizeGet"       , NS(MqDumpC_SizeGet)       },
  { "::MqDumpC::TokenGet"      , NS(MqDumpC_TokenGet)      },
 
  // END-OBJ - created by 'atl_MqS.tcl -i NHI1_HOME/theLink/c/gen/c_mqmsgque.meta' - DO NOT change
  { NULL }
};
 
 
int NS(pMqDumpC_Init) ( OT_MQ_ARGS OT_NS_T ns )
{
  MQ_STATIC_RT;
  ClassInit
  
  return TCL_OK;
error:
  return TCL_ERROR;
}