MqHigh_cs.c

Go to the documentation of this file.

 
/* LABEL-START */
 
#define META_FILE_NAME "MqHigh_cs.c"
 
/* LABEL-END */
 
#include "LibMqMsgque_cs.h"
#include "string.h"
#include "check_mq.h"
 
#define META_CONTEXT_S mqctx
 
// +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
#define getTRAN(out,size)   (*atg)  (MQ_RT_CALL hdl,objvH,skip++,MqSendE_TRAN,(MK_PTR*)&out,size)
#define getTOKEN(out,size)  (*atg)  (MQ_RT_CALL hdl,objvH,skip++,MqSendE_TOKEN,(MK_PTR*)&out,size)
#define getTIME(out,size)   (*atg)  (MQ_RT_CALL hdl,objvH,skip++,MqSendE_TIME,(MK_PTR*)&out,size)
//#define getCALL(out,size)   (*atg)  (hdl,objvH,skip++,MqSendE_CALL,(MK_PTR*)&out,size)
 
// #############################################################################
// MqSend…
 
enum MkErrorE MqCsSendHigh_RT (
  MK_RT_ARGS
  MQ_CTX       const  hdl,
  MK_STRN             cstr,
  MK_CBP       const  fCall,
  MK_PTR       const  objvH,
  MK_I32       const  objc,
  MK_I32       const  skipSHIFT,
  MK_BFL       *      bfl_out,
  MK_STRB      *      highLastReturnListType_out,
  // MqAtomReadFLT const atr,
  MqAtomSendF  const  ats,
  MqAtomGetF   const  atg,
  MqTokenF     const  fCall_,
  MqDataFreeF  const  fFree_,
  MK_STRN      const  caller
) {
  MQ_INSTANCE_RT_X(hdl);
  MK_I32 skip  = 0;
 
#define highSELF                caller
#define mqctx                   hdl
 
#define highSKIP                skip
#define highSKIP_SHIFT          skipSHIFT
#define highSIZE                objc
 
// -----------------------------------------------------------------------------
 
#define highSIZE_AVAILABLE      1
#define highREAD_RETURN_LIST    1
#define highREAD_HAS_REFERENCE  0
 
#define highTOKEN(s)            MkErrorCheck(getTOKEN(s,MQ_SEND_TOKEN_SIGNATURE_SIZE))
#define highTRAN(s)             MkErrorCheck(getTRAN (s,MQ_SEND_TRANSACTION_TOKEN_SIZE))
#define highCALL(f)           
#define highTIME(t)             MkErrorCheck(getTIME (t,8))
 
#define highINITcstr
#define highRETok               goto end
#define highRETerror            goto end
#define highCMD                 "ctx.%s('%s', ..., '%s', ...)"
 
// "C#" uses "longjmp" for error…
#define highERRORnative
 
#define highRETURN
 
#define highFARGS(f)          fCall_,f,fFree_
 
#define highSend(T)           MkErrorCheck((*ats)(MQ_RT_CALL hdl,objvH,skip++,MqSendE_##T));break;
 
#define highSend_BOL          highSend(BOL)
#define highSend_I8           highSend(I8)
#define highSend_I16          highSend(I16)
#define highSend_I32          highSend(I32)
#define highSend_I64          highSend(I64)
#define highSend_HDL          highSend(HDL)
#define highSend_FLT          highSend(FLT)
#define highSend_DBL          highSend(DBL)
#define highSend_STR          highSend(STR)
#define highSend_BUF          highSend(BUF)
#define highSend_BFL          highSend(BFL)
#define highSend_BIN          highSend(BIN)
 
#define highREADprepare
#define highREADinit
 
/*
#define highRead(T)           MkErrorCheck((*atr)(hdl,retH_inout,MqSendE_##T)); break;
 
#define highReadRef_I8         highRead(Y)
#define highReadRef_BOL         highRead(O)
#define highReadRef_I16         highRead(S)
#define highReadRef_I32         highRead(I)
#define highReadRef_FLT         highRead(F)
#define highReadRef_I64         highRead(W)
#define highReadRef_DBL         highRead(D)
#define highReadRef_STR         highRead(C)
#define highReadRef_BUF         highRead(U)
#define highReadRef_BFL         highRead(L)
#define highReadRef_BIN         highRead(B)
*/
 
#include "tmpl/high_lng.h"
 
end:
  *highLastReturnListType_out = highLastReturnListType;
  *bfl_out = RET;
  return MkErrorGetCode_0E();
}