theLink 10.0
Loading...
Searching...
No Matches
Macros
MqHigh_tcl.c File Reference

tag: nhi1-release-250425 More...

#include "LibMqMsgque_private_tcl.h"
#include "tmpl/high_lng.h"
+ Include dependency graph for MqHigh_tcl.c:

Go to the source code of this file.

Macros

#define META_FILE_NAME   "MqHigh_tcl.c"
 
#define OT_SETUP_hdl   SetupHdlFromMetaData_2(CTX,MQ_CTX);
 
#define OBJECT2CTX(O)
 
#define SetupRtFromHdl_XN(hdl)
 
#define SetupRtFromHdl_X(hdl)
 
#define META_CONTEXT_S   hdl
 
#define highSELF   "$ctx Send"
 
#define highSKIP   __skip
 
#define highSKIP_SHIFT   1
 
#define highSIZE   objc
 
#define highSIZE_AVAILABLE   1
 
#define highREAD_RETURN_LIST   1
 
#define highREAD_HAS_REFERENCE   1
 
#define highINITcstr   OT_CHECK_STR(cstr)
 
#define highCMD   "%s '%s' ... '%s' ..."
 
#define highFARGS(f)
 
#define highTRAN(str)
 
#define highTOKEN(str)
 
#define highTIME(t)
 
#define highCALL(f)
 
#define highERRORnative    if (!MkErrorCheckE_0E()) OT_ERROR_LNG_2_META(mqctx);
 
#define highRETerror
 
#define highRETURN   highRETURN_type_S
 
#define highRETok   goto end;
 
#define highSend(T)
 
#define highSendObj(T)
 
#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   highSendObj(BUF)
 
#define highSend_BFL
 
#define highSend_BIN
 
#define highReadRef(T)
 
#define highREADprepare
 
#define highREADinit   readVal=NULL
 
#define highReadRef_I8   highReadRef(I8);
 
#define highReadRef_BOL   highReadRef(BOL);
 
#define highReadRef_I16   highReadRef(I16);
 
#define highReadRef_I32   highReadRef(I32);
 
#define highReadRef_I64   highReadRef(I64);
 
#define highReadRef_HDL   highReadRef(HDL);
 
#define highReadRef_FLT   highReadRef(FLT);
 
#define highReadRef_DBL   highReadRef(DBL);
 
#define highReadRef_STR   highReadRef(STR);
 
#define highReadRef_BUF   highReadRef(BUF);
 
#define highReadRef_BFL   highReadRef(BFL);
 
#define highReadRef_ARGS   highReadRef(A);
 
#define highReadRef_BIN
 
#define error   error1
 
#define mqctx   hdl
 
#define error   high_error
 
#define HighErrorV(cls, fmt, args...)
 
#define HighErrorC(cls, fmt)
 
#define highRETURN_type_S
 
#define high_3_O   BOL
 
#define high_3_Y   I8
 
#define high_3_S   I16
 
#define high_3_I   I32
 
#define high_3_W   I64
 
#define high_3_H   HDL
 
#define high_3_F   FLT
 
#define high_3_D   DBL
 
#define high_3_C   STRN
 
#define high_3_B   BIN
 
#define high_3_U   BUF
 
#define high_3_L   BFL
 
#define high_3_A   BAC
 
#define high_C_BOL   OT_TMP_BOL_OBJ
 
#define high_C_I8   OT_TMP_I8_OBJ
 
#define high_C_I16   OT_TMP_I16_OBJ
 
#define high_C_I32   OT_TMP_I32_OBJ
 
#define high_C_I64   OT_TMP_I64_OBJ
 
#define high_C_H   OT_TMP_HDL_OBJ
 
#define high_C_FLT   OT_TMP_FLT_OBJ
 
#define high_C_DBL   OT_TMP_DBL_OBJ
 
#define high_C_STR   OT_TMP_CST_OBJ
 
#define high_C_BIN   OT_TMP_BIN_OBJ
 
#define high_C_BUF   OT_TMP_BUF_OBJ
 
#define high_C_BFL   OT_TMP_BFL_OBJ
 
#define high_C_A   OT_TMP_BAC_OBJ
 
#define high_T_BOL   MK_BOL
 
#define high_T_I8   MK_I8
 
#define high_T_I16   MK_I16
 
#define high_T_I32   MK_I32
 
#define high_T_I64   MK_I64
 
#define high_T_HDL   MK_HDL
 
#define high_T_FLT   MK_FLT
 
#define high_T_DBL   MK_DBL
 
#define high_T_STR   MK_STRN
 
#define high_T_BIN   MK_BIN
 
#define high_T_BUF   MK_BUF
 
#define high_T_BFL   MK_BFL
 
#define high_T_A   MK_BAC
 
#define MqReadA   MqReadALL
 

Detailed Description

tag: nhi1-release-250425

Copyright
(C) NHI - #1 - Project - Group This software has NO permission to copy, please contact AUTHOR for additional information

Definition in file MqHigh_tcl.c.

Macro Definition Documentation

◆ error [1/2]

goto error   error1

Definition at line 339 of file high_lng.h.

◆ error [2/2]

#define error   high_error

◆ high_3_A

#define high_3_A   BAC

◆ high_3_B

#define high_3_B   BIN

◆ high_3_C

#define high_3_C   STRN

◆ high_3_D

#define high_3_D   DBL

◆ high_3_F

#define high_3_F   FLT

◆ high_3_H

#define high_3_H   HDL

◆ high_3_I

#define high_3_I   I32

◆ high_3_L

#define high_3_L   BFL

◆ high_3_O

#define high_3_O   BOL

◆ high_3_S

#define high_3_S   I16

◆ high_3_U

#define high_3_U   BUF

◆ high_3_W

#define high_3_W   I64

◆ high_3_Y

#define high_3_Y   I8

◆ high_C_A

#define high_C_A   OT_TMP_BAC_OBJ

◆ high_C_BFL

#define high_C_BFL   OT_TMP_BFL_OBJ

◆ high_C_BIN

#define high_C_BIN   OT_TMP_BIN_OBJ

◆ high_C_BOL

#define high_C_BOL   OT_TMP_BOL_OBJ

◆ high_C_BUF

#define high_C_BUF   OT_TMP_BUF_OBJ

◆ high_C_DBL

#define high_C_DBL   OT_TMP_DBL_OBJ

◆ high_C_FLT

#define high_C_FLT   OT_TMP_FLT_OBJ

◆ high_C_H

#define high_C_H   OT_TMP_HDL_OBJ

◆ high_C_I16

#define high_C_I16   OT_TMP_I16_OBJ

◆ high_C_I32

#define high_C_I32   OT_TMP_I32_OBJ

◆ high_C_I64

#define high_C_I64   OT_TMP_I64_OBJ

◆ high_C_I8

#define high_C_I8   OT_TMP_I8_OBJ

◆ high_C_STR

#define high_C_STR   OT_TMP_CST_OBJ

◆ high_T_A

#define high_T_A   MK_BAC

◆ high_T_BFL

#define high_T_BFL   MK_BFL

◆ high_T_BIN

#define high_T_BIN   MK_BIN

◆ high_T_BOL

#define high_T_BOL   MK_BOL

◆ high_T_BUF

#define high_T_BUF   MK_BUF

◆ high_T_DBL

#define high_T_DBL   MK_DBL

◆ high_T_FLT

#define high_T_FLT   MK_FLT

◆ high_T_HDL

#define high_T_HDL   MK_HDL

◆ high_T_I16

#define high_T_I16   MK_I16

◆ high_T_I32

#define high_T_I32   MK_I32

◆ high_T_I64

#define high_T_I64   MK_I64

◆ high_T_I8

#define high_T_I8   MK_I8

◆ high_T_STR

#define high_T_STR   MK_STRN

◆ highCALL

#define highCALL ( f)
Value:
OT_CHECK_CALLABLE(f)
OT_CHECK_CALLABLE
#define OT_CHECK_CALLABLE(val)
Definition mk_misc_check_lng.h:117

◆ highCMD

#define highCMD   "%s '%s' ... '%s' ..."

◆ HighErrorC

#define HighErrorC ( cls,
fmt )
Value:
MkErrorSetV_3M(obj, cls, "%s", fmt)
MkErrorSetV_3M
#define MkErrorSetV_3M(err, callfunc, printfmt,...)
obj
MK_OBJ const obj
Definition high_lng.h:136

◆ highERRORnative

#define highERRORnative    if (!MkErrorCheckE_0E()) OT_ERROR_LNG_2_META(mqctx);

◆ HighErrorV

#define HighErrorV ( cls,
fmt,
args... )
Value:
MkErrorSetV_3M(obj, cls, fmt, args)

◆ highFARGS

#define highFARGS ( f)
Value:
NS(ServiceCall),f,NS(ServiceFree)
NS
#define NS(n)
Definition LibMqMsgque_tcl.h:77

◆ highINITcstr

#define highINITcstr   OT_CHECK_STR(cstr)

◆ highREAD_HAS_REFERENCE

#define highREAD_HAS_REFERENCE   1

◆ highREAD_RETURN_LIST

#define highREAD_RETURN_LIST   1

◆ highREADinit

#define highREADinit   readVal=NULL

◆ highREADprepare

#define highREADprepare

◆ highReadRef

#define highReadRef ( T)
Value:
{ \
high_T_##T val = 0; \
OT_CHECK_REQUIRED(OT_CHECK_LNG_T(readVal)); \
MkErrorCheck(MqRead##T(mqctx,&val)); \
if (readVal != NULL) { \
OT_LNG_SET_VAR(readVal, high_C_##T (val)); \
} \
break; \
}
mqctx
#define mqctx
OT_CHECK_LNG_T
#define OT_CHECK_LNG_T(val)
Definition mk_misc_check_lng.h:40

◆ highReadRef_ARGS

#define highReadRef_ARGS   highReadRef(A);

◆ highReadRef_BFL

#define highReadRef_BFL   highReadRef(BFL);

◆ highReadRef_BIN

#define highReadRef_BIN
Value:
{ \
MkBinaryR cbi; \
OT_CHECK_REQUIRED(OT_CHECK_LNG_T(readVal)); \
MqReadBIN_E(mqctx, &cbi); \
if (readVal) { \
OT_LNG_SET_VAR(readVal, OT_TMP_BIN_OBJ(cbi.data,(int)cbi.size)); \
} \
break; \
}
OT_TMP_BIN_OBJ
#define OT_TMP_BIN_OBJ(val, len)
Definition LibMkKernel_tcl.h:431
MkBinaryR::size
MK_SIZE size
MkBinaryR::data
MK_BINN data

◆ highReadRef_BOL

#define highReadRef_BOL   highReadRef(BOL);

◆ highReadRef_BUF

#define highReadRef_BUF   highReadRef(BUF);

◆ highReadRef_DBL

#define highReadRef_DBL   highReadRef(DBL);

◆ highReadRef_FLT

#define highReadRef_FLT   highReadRef(FLT);

◆ highReadRef_HDL

#define highReadRef_HDL   highReadRef(HDL);

◆ highReadRef_I16

#define highReadRef_I16   highReadRef(I16);

◆ highReadRef_I32

#define highReadRef_I32   highReadRef(I32);

◆ highReadRef_I64

#define highReadRef_I64   highReadRef(I64);

◆ highReadRef_I8

#define highReadRef_I8   highReadRef(I8);

◆ highReadRef_STR

#define highReadRef_STR   highReadRef(STR);

◆ highRETerror

#define highRETerror
Value:
OT_ERROR_META_2_LNG(hdl); \
retObj = NULL;
OT_ERROR_META_2_LNG
#define OT_ERROR_META_2_LNG(m)
Definition LibMkKernel_tcl.h:410

◆ highRETok

#define highRETok   goto end;

◆ highRETURN

#define highRETURN   highRETURN_type_S

◆ highRETURN_type_S

#define highRETURN_type_S
Value:
if (MkBufferListSizeI(RET) == 0 && highLastReturnListType != '*') { \
OT_retObj_SET_None; \
} else if (MkBufferListSizeI(RET) == 1 && highLastReturnListType != '*' ) { \
switch (highLastReturnListType) { \
case 'U': OT_retObj_SET_BUF(RET->data[0]); break; \
/* >>>> disable MkBufferListReserve at startup from Send <<<< */ \
/* OLD !! BUG FIX: high2-1-2-U-O-* */ \
/* Return 'U' without 'Temp'orary object make return UNUSEABLE */ \
/* as input for an other "Send", because "MkBufferListCreateTLS" */ \
/* reset the return "U" */ \
/* SEND_ONE_TYP_O { */ \
/* set t [$ctx ReadSTR] */ \
/* set RET [$ctx Send "W" "ECOA:$t@$t" [$ctx Read$t]] */ \
/* $ctx Send "R" $t $RET */ \
/* } */ \
/* => "RET" is broken WITHOUT "temp" */ \
/* case 'U': OT_MK_CALL_0(RET->data[0],MkBufferC,Temp,retObj); break; */ \
case 'L': OT_MK_CALL_0(RET->data[0],MkBufferC,GetBFL,retObj); break; \
default : OT_MK_CALL_0(RET->data[0],MkBufferC,ToObject,retObj); break; \
} \
} else { \
OT_retObj_SET_BFL(RET); \
}
OT_retObj_SET_BUF
#define OT_retObj_SET_BUF(nat)
Definition LibMkKernel_tcl.h:949
OT_retObj_SET_None
#define OT_retObj_SET_None
Definition LibMkKernel_tcl.h:167
OT_MK_CALL_0
#define OT_MK_CALL_0(hdl, cls, meth, ret)
Definition LibMkKernel_tcl.h:228
MkBufferListSizeI
#define MkBufferListSizeI(bfl)

◆ highSELF

#define highSELF   "$ctx Send"

◆ highSend

#define highSend ( T)
Value:
{ \
high_T_##T val; \
OT_CHECK_REQUIRED(OT_CHECK_##T(val)); \
MkErrorCheck(MqSend##T(mqctx,val)); \
break; \
}
MqSend
#define MqSend(...)
Definition msgque_overload_mq.h:202

◆ highSend_BFL

#define highSend_BFL
Value:
{ \
MkBufferListCreateTLS_T(bfl,5); \
OT_CHECK_REQUIRED(OT_CHECK_BFL(bfl,false)) \
MqSendBFL_E(mqctx, bfl); \
break; \
}
OT_CHECK_BFL
#define OT_CHECK_BFL(val, nullB)
Definition mk_misc_check_lng.h:81

◆ highSend_BIN

#define highSend_BIN
Value:
{ \
MkBinaryR cbi={0}; \
OT_CHECK_REQUIRED(OT_CHECK__ME_REF_MkBinaryR(cbi)) \
MqSendBIN_E(mqctx, cbi); \
break; \
}
OT_CHECK__ME_REF_MkBinaryR
#define OT_CHECK__ME_REF_MkBinaryR(val)
Definition LibMkKernel_tcl.h:1060

◆ highSend_BOL

#define highSend_BOL   highSend(BOL)

◆ highSend_BUF

#define highSend_BUF   highSendObj(BUF)

◆ highSend_DBL

#define highSend_DBL   highSend(DBL)

◆ highSend_FLT

#define highSend_FLT   highSend(FLT)

◆ highSend_HDL

#define highSend_HDL   highSend(HDL)

◆ highSend_I16

#define highSend_I16   highSend(I16)

◆ highSend_I32

#define highSend_I32   highSend(I32)

◆ highSend_I64

#define highSend_I64   highSend(I64)

◆ highSend_I8

#define highSend_I8   highSend(I8)

◆ highSend_STR

#define highSend_STR   highSend(STR)

◆ highSendObj

#define highSendObj ( T)
Value:
{ \
high_T_##T val; \
OT_CHECK_REQUIRED(OT_CHECK_##T(val,false)); \
MkErrorCheck(MqSend##T(mqctx,val)); \
break; \
}

◆ highSIZE

#define highSIZE   objc

◆ highSIZE_AVAILABLE

#define highSIZE_AVAILABLE   1

◆ highSKIP

#define highSKIP   __skip

◆ highSKIP_SHIFT

#define highSKIP_SHIFT   1

◆ highTIME

#define highTIME ( t)
Value:
OT_CHECK_TIME_T(timeout)
timeout
MK_TIME_T timeout
Definition high_lng.h:133
OT_CHECK_TIME_T
#define OT_CHECK_TIME_T(val)
Definition mk_misc_check_lng.h:106

◆ highTOKEN

#define highTOKEN ( str)
Value:
OT_CHECK_C_COPY(str,MQ_SEND_TOKEN_SIGNATURE_SIZE)
OT_CHECK_C_COPY
#define OT_CHECK_C_COPY(val, size)
Definition LibMkKernel_tcl.h:644
str
#define str(s)
Definition LibMkKernel_tcl.h:1148
MQ_SEND_TOKEN_SIGNATURE_SIZE
#define MQ_SEND_TOKEN_SIGNATURE_SIZE
Definition LibMqMsgque_mq.h:8093

◆ highTRAN

#define highTRAN ( str)
Value:
OT_CHECK_C_COPY(str,MQ_SEND_TRANSACTION_TOKEN_SIZE)
MQ_SEND_TRANSACTION_TOKEN_SIZE
#define MQ_SEND_TRANSACTION_TOKEN_SIZE
Definition LibMqMsgque_mq.h:8092

◆ META_CONTEXT_S

#define META_CONTEXT_S   hdl

Definition at line 26 of file MqHigh_tcl.c.

◆ META_FILE_NAME

#define META_FILE_NAME   "MqHigh_tcl.c"

Definition at line 11 of file MqHigh_tcl.c.

◆ mqctx

#define mqctx   hdl

◆ MqReadA

#define MqReadA   MqReadALL

◆ OBJECT2CTX

#define OBJECT2CTX ( O)
Value:
MqCtx(Tcl_ObjectGetMetadata(O, &MK(AtomMeta)))
MK
#define MK(n)
Definition LibMkKernel_tcl.h:82
MqCtx
static MQ_CTX MqCtx(MK_MNG mng)
cast a unknown-object into an MqContextS pointer or NULL if not possible
Definition LibMqMsgque_mq.h:4227

Definition at line 17 of file MqHigh_tcl.c.

◆ OT_SETUP_hdl

#define OT_SETUP_hdl   SetupHdlFromMetaData_2(CTX,MQ_CTX);

Definition at line 15 of file MqHigh_tcl.c.

◆ SetupRtFromHdl_X

#define SetupRtFromHdl_X ( hdl)
Value:
AllRtSetup_X(hdl)
AllRtSetup_X
#define AllRtSetup_X(x)
Definition LibMqMsgque_mq.h:9395

Definition at line 21 of file MqHigh_tcl.c.

◆ SetupRtFromHdl_XN

#define SetupRtFromHdl_XN ( hdl)
Value:
AllRtSetup_XN(hdl)
AllRtSetup_XN
#define AllRtSetup_XN(x)
Definition LibMqMsgque_mq.h:9396

Definition at line 20 of file MqHigh_tcl.c.

Generated on Thu May 29 2025 13:13:59 for theLink by doxygen 1.12.0