high_lng.h File Reference

tag: nhi1-release-250425 More...

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Macros
#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
#define	highSIZE   highSKIP+1

Enumerations
enum	MqCallE {   MQ_ONCE , MQ_WAIT , MQ_SUB , MQ_CB ,   MQ_TRAN , MQ_RET }
	select the MqSendEND... style More...

Functions
	for (ptr=cstr; *ptr !='\0';ptr++)
	if (call==MQ_RET &&highSKIP==highSIZE) goto call
	highTOKEN (tokSig)
	MkErrorCheck (MqSendSTART(mqctx))
	if (rpc)
else	if (toklen >=4 &&(tokSig[4]==':'||tokSig[4]=='@'||tokSig[4]=='\0'))
else	if (toklen >=8 &&(tokSig[8]==':'||tokSig[8]=='@'||tokSig[8]=='\0'))
	for (; *ptr !='\0';ptr++)
	MkErrorSetV_4M (obj, "CallError", 0, "got RETURN args for NON-RETURN CALL-signature '%s'", callSig)
	switch (call)
	MkErrorStack_4M (obj, mqctx->ctxbuf.super.buf.storage.first.C, __FILE__, __LINE__)
	if ((int)(ptr-cstr) >(int) strlen(cstr)) block
	if (strcmp(block,"unknown")!=0)

Variables
static MK_STRN	unknown = "unknown"
MK_STRN	block = unknown
MK_STRN	callSig = unknown
MK_STRN	ptr = ""
MK_STRB	srvSig [MQ_SEND_TRANSACTION_TOKEN_SIZE+1] = "unknown"
MK_STRB	tokSig [MQ_SEND_TOKEN_SIGNATURE_SIZE+1] = "unknown"
MK_TIME_T	timeout = MK_TIMEOUT_USER
bool	Tstart = false
bool	Lstart = false
MK_OBJ const	obj = MkOBJ(mqctx)
bool	rpc = false
enum MqCallE	call = MQ_ONCE
	highINITcstr
MK_STRB	token [9]
	else
goto	error
call	__pad0__
	highRETok
error	__pad1__
MkBufferSetV &	mqctx
	highRETerror

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 high_lng.h.

Macro Definition Documentation

high_3_A

#define high_3_A   BAC

Definition at line 85 of file high_lng.h.

high_3_B

#define high_3_B   BIN

Definition at line 82 of file high_lng.h.

high_3_C

#define high_3_C   STRN

Definition at line 81 of file high_lng.h.

high_3_D

#define high_3_D   DBL

Definition at line 80 of file high_lng.h.

high_3_F

#define high_3_F   FLT

Definition at line 79 of file high_lng.h.

high_3_H

#define high_3_H   HDL

Definition at line 78 of file high_lng.h.

high_3_I

#define high_3_I   I32

Definition at line 76 of file high_lng.h.

high_3_L

#define high_3_L   BFL

Definition at line 84 of file high_lng.h.

high_3_O

#define high_3_O   BOL

Definition at line 73 of file high_lng.h.

high_3_S

#define high_3_S   I16

Definition at line 75 of file high_lng.h.

high_3_U

#define high_3_U   BUF

Definition at line 83 of file high_lng.h.

high_3_W

#define high_3_W   I64

Definition at line 77 of file high_lng.h.

high_3_Y

#define high_3_Y   I8

Definition at line 74 of file high_lng.h.

high_C_A

#define high_C_A   OT_TMP_BAC_OBJ

Definition at line 99 of file high_lng.h.

high_C_BFL

#define high_C_BFL   OT_TMP_BFL_OBJ

Definition at line 98 of file high_lng.h.

high_C_BIN

#define high_C_BIN   OT_TMP_BIN_OBJ

Definition at line 96 of file high_lng.h.

high_C_BOL

#define high_C_BOL   OT_TMP_BOL_OBJ

Definition at line 87 of file high_lng.h.

high_C_BUF

#define high_C_BUF   OT_TMP_BUF_OBJ

Definition at line 97 of file high_lng.h.

high_C_DBL

#define high_C_DBL   OT_TMP_DBL_OBJ

Definition at line 94 of file high_lng.h.

high_C_FLT

#define high_C_FLT   OT_TMP_FLT_OBJ

Definition at line 93 of file high_lng.h.

high_C_H

#define high_C_H   OT_TMP_HDL_OBJ

Definition at line 92 of file high_lng.h.

high_C_I16

#define high_C_I16   OT_TMP_I16_OBJ

Definition at line 89 of file high_lng.h.

high_C_I32

#define high_C_I32   OT_TMP_I32_OBJ

Definition at line 90 of file high_lng.h.

high_C_I64

#define high_C_I64   OT_TMP_I64_OBJ

Definition at line 91 of file high_lng.h.

high_C_I8

#define high_C_I8   OT_TMP_I8_OBJ

Definition at line 88 of file high_lng.h.

high_C_STR

#define high_C_STR   OT_TMP_CST_OBJ

Definition at line 95 of file high_lng.h.

high_T_A

#define high_T_A   MK_BAC

Definition at line 120 of file high_lng.h.

high_T_BFL

#define high_T_BFL   MK_BFL

Definition at line 117 of file high_lng.h.

high_T_BIN

#define high_T_BIN   MK_BIN

Definition at line 111 of file high_lng.h.

high_T_BOL

#define high_T_BOL   MK_BOL

Definition at line 101 of file high_lng.h.

high_T_BUF

#define high_T_BUF   MK_BUF

Definition at line 114 of file high_lng.h.

high_T_DBL

#define high_T_DBL   MK_DBL

Definition at line 108 of file high_lng.h.

high_T_FLT

#define high_T_FLT   MK_FLT

Definition at line 107 of file high_lng.h.

high_T_HDL

#define high_T_HDL   MK_HDL

Definition at line 106 of file high_lng.h.

high_T_I16

#define high_T_I16   MK_I16

Definition at line 103 of file high_lng.h.

high_T_I32

#define high_T_I32   MK_I32

Definition at line 104 of file high_lng.h.

high_T_I64

#define high_T_I64   MK_I64

Definition at line 105 of file high_lng.h.

high_T_I8

#define high_T_I8   MK_I8

Definition at line 102 of file high_lng.h.

high_T_STR

#define high_T_STR   MK_STRN

Definition at line 109 of file high_lng.h.

HighErrorC

#define HighErrorC	(		cls,
			fmt )

Value:

  MkErrorSetV_3M(obj, cls, "%s", fmt)

Definition at line 45 of file high_lng.h.

#define HighErrorC(cls,fmt) \
  MkErrorSetV_3M(obj, cls, "%s", fmt)

HighErrorV

#define HighErrorV	(		cls,
			fmt,
			args... )

Value:

  MkErrorSetV_3M(obj, cls, fmt, args)

Definition at line 42 of file high_lng.h.

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

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);                                                      \
  }

Definition at line 48 of file high_lng.h.

#define highRETURN_type_S                                                        \
  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);                                                      \
  }                                                                                                                

highSIZE

#define highSIZE   highSKIP+1

Definition at line 141 of file high_lng.h.

MqReadA

#define MqReadA   MqReadALL

Definition at line 123 of file high_lng.h.

Enumeration Type Documentation

MqCallE

enum MqCallE

select the MqSendEND... style

Enumerator
MQ_ONCE	MqSendEND
MQ_WAIT	MqSendEND_AND_WAIT
MQ_SUB	MqSendEND_AND_SUB
MQ_CB	MqSendEND_AND_CALLBACK
MQ_TRAN	MqSendEND_AND_TRANSACTION
MQ_RET	MqSendRETURN

Definition at line 161 of file high_lng.h.

               {
    MQ_ONCE ,   
    MQ_WAIT ,   
    MQ_SUB  ,   
    MQ_CB   ,   
    MQ_TRAN ,   
    MQ_RET      
  } call = MQ_ONCE;

Function Documentation

for() [1/2]

for

(

; *ptr !

= '\0'; ptr++

)

Definition at line 263 of file high_lng.h.

                              {
    switch (*ptr) {
      case '[': 
        Lstart = true;
        MkErrorCheck (MqSendL_START (mqctx))  ; 
        continue;
      case ']': 
        if (Lstart == false) {
          HighErrorC("SendError", "missing opening '[' to closing ']'");
          goto error;
        } else {
          MkErrorCheck (MqSendL_END (mqctx))  ; 
        }
        continue;
      case '(': 
        if (call != MQ_TRAN) {
          HighErrorV("SendError", "'(' invalid for CALL-signature '%s'", callSig);
          goto error;
        } else {
          Tstart = true;
          MkErrorCheck (MqSendT_START (mqctx))  ; 
        }
        continue;
      case ')':
        if (call != MQ_TRAN) {
          HighErrorV("SendError", "')' invalid for CALL-signature '%s'", callSig);
          goto error;
        } else if (Tstart == false) {
          HighErrorV("SendError", "missing opening '(' to closing ')' for CALL-signature '%s'", callSig);
          goto error;
        } else {
          MkErrorCheck (MqSendT_END (mqctx))  ; 
        }
        continue;
      case '@': goto call;
    }
 
#if highSIZE_AVAILABLE==1
    if (highSKIP >= highSIZE) {
      HighErrorV("ArgumentListSizeError", "require %d have %d for item '%c'",
                    (int)highSKIP+highSKIP_SHIFT,(int)highSIZE,*ptr);
      goto error;
    }
#endif
 
    switch (*ptr) {
      case 'Y': highSend_I8;break;
      case 'O': highSend_BOL;break;
      case 'S': highSend_I16;break;
      case 'I': highSend_I32;break;
      case 'F': highSend_FLT;break;
      case 'W': highSend_I64;break;
      case 'D': highSend_DBL;break;
      case 'C': highSend_STR;break;
      case 'U': highSend_BUF;break;
      case 'L': highSend_BFL;break;
      case 'B': highSend_BIN;break;
#if NHI1_bits == 64
      case 'G': highSend_I64;break;
#elif NHI1_bits == 32
      case 'G': highSend_I32;break;
#else
# error "'wordsize' cannot be recognized because 'NHI1_bits' is not set. probably missing the header 'nhi1_config.h' ?"
#endif
      case 'H': highSend_HDL;break;
      default:
        HighErrorV("SendError","invalid character '%c' found", *ptr);
        goto error;
    }
  }

for() [2/2]

for

(

ptr

= cstr; *ptr != '\0'; ptr++

)

Definition at line 175 of file high_lng.h.

                                      {
    switch (*ptr) {
      case 'E': call = MQ_ONCE    ;timeout=0                      ; continue;
      case 'W': call = MQ_WAIT                                    ; continue;
      case 'R': call = MQ_RET     ;timeout=0                      ; continue;
    }
#if highSIZE_AVAILABLE
    if (highSKIP >= highSIZE) {
      HighErrorV("ArgumentListSizeError", "require %d have %d for item '%c'",
                    (int)highSKIP+highSKIP_SHIFT,(int)highSIZE,*ptr);
      goto error;
    }
#endif
    switch (*ptr) {
      case 'S': call = MQ_SUB                 ;highCALL(fCall)    ; 
        if (fCall==NULL) {
          HighErrorC("SubError", "expect a FUNCTION pointer, but got 'NULL'");
          goto error;
        }
        break;
      case 'C': call = MQ_CB      ;timeout=0  ;highCALL(fCall)    ; 
        if (fCall==NULL) {
          HighErrorC("CallbackError", "expect a FUNCTION pointer, but got 'NULL'");
          goto error;
        }
        break;
      case 'T': call = MQ_TRAN                ;highTRAN(srvSig)   ;
        srvSig[MQ_SEND_TRANSACTION_TOKEN_SIZE] = '\0';
        if (strlen(srvSig) != 4) {
          HighErrorC("TokenError", "expect a '4' character string as a TRANSACTION-identifier");
          goto error;
        }
        break;
      case 't': highTIME(timeout)                                 ;
        break;
      case 'r': rpc = true                                        ;
        break;
      default: {
        HighErrorV("Error", "invalid character '%c' found", *ptr);
        goto error;
      }
    }
  }

highTOKEN()

highTOKEN

(

tokSig

)

if() [1/6]

if	(	(int)(ptr-cstr)	,
		(int) strlen(cstr)	)

if() [2/6]

if

(

call

= = MQ_RET && highSKIP == highSIZE

)

Definition at line 230 of file high_lng.h.

                      {
    token[0] = '\0';
    if (tokSig[0] == ':') ptr+=1;  // 1char ':' optional
  } else {

if() [3/6]

if

(

rpc

)

Definition at line 235 of file high_lng.h.

             {
      MK_STRN end = strpbrk(ptr,":@");
      size_t tlen = end ? (size_t) (end-ptr) : toklen;
      strncpy(token,MkSysHashSTR(ptr,(MK_NUM)tlen),8);
      token[8] = '\0';
      ptr+=tlen;
    } else if (toklen >= 4 && (tokSig[4] == ':' || tokSig[4] == '@' || tokSig[4] == '\0')) {

if() [4/6]

if

(

strcmp(block,"unknown")!

= 0

)

Definition at line 509 of file high_lng.h.

                                  {
    if ((int)(ptr-cstr) == (int)strlen(cstr)) 
      MkErrorAppendV_2M(obj,"  -> found on %s-SIGNATUR '%s'", block, cstr);
    else if (*ptr != '@')
      MkErrorAppendV_2M(obj,"  -> found on CHARACTER '%c' at POSITION '" MK_FORMAT_Z "' of %s-SIGNATURE '%s'", 
        *ptr, (ptr-cstr)+1, block, cstr);
  }

if() [5/6]

else if

(

toklen >=4 &&

tokSig[4]==':'||tokSig[4]=='@'||tokSig[4]=='\0'

)

Definition at line 241 of file high_lng.h.

                                             :' || tokSig[4] == '@' || tokSig[4] == '\0')) {
      strncpy(token,tokSig,4);
      token[4] = '\0';
      ptr+=4;
    } else if (toklen >= 8 && (tokSig[8] == ':' || tokSig[8] == '@' || tokSig[8] == '\0')) {

if() [6/6]

else if

(

toklen >=8 &&

tokSig[8]==':'||tokSig[8]=='@'||tokSig[8]=='\0'

)

Definition at line 245 of file high_lng.h.

                                             :' || tokSig[8] == '@' || tokSig[8] == '\0')) {
      strncpy(token,tokSig,8);
      token[8] = '\0';
      ptr+=8;
    } else {

MkErrorCheck()

MkErrorCheck

(

MqSendSTART(mqctx)

)

Here is the caller graph for this function:

MkErrorSetV_4M()

MkErrorSetV_4M	(	obj	,
		"CallError"	,
		0	,
		"got RETURN args for NON-RETURN CALL-signature '%s'"	,
		callSig	)

MkErrorStack_4M()

MkErrorStack_4M	(	obj	,
		mqctx->ctxbuf.super.buf.storage.first.	C,
		__FILE__	,
		__LINE__	)

switch()

switch

(

call

)

Definition at line 349 of file high_lng.h.

                {
    case MQ_ONCE:
      MkErrorCheck( MqSendEND( mqctx, token, timeout ) );
      break;
    case MQ_WAIT:
      MkErrorCheck( MqSendEND_AND_WAIT( mqctx, token, timeout ) );
      break;
    case MQ_SUB:
      MkErrorCheck( MqSendEND_AND_SUB( mqctx, token, highFARGS(fCall), timeout ) );
      break;
    case MQ_CB:
      MkErrorCheck( MqSendEND_AND_CALLBACK( mqctx, token, highFARGS(fCall), timeout ) );
      break;
    case MQ_TRAN:
      MkErrorCheck( MqSendEND_AND_TRANSACTION( mqctx, token, srvSig, timeout) );
      break;
    case MQ_RET:
      MkErrorCheck( MqSendRETURN( mqctx ) );
      break;
  }

Variable Documentation

__pad0__

call __pad0__

Definition at line 334 of file high_lng.h.

__pad1__

error __pad1__

Definition at line 494 of file high_lng.h.

block

block = unknown

Definition at line 128 of file high_lng.h.

call

enum MqCallE call = MQ_ONCE

callSig

callSig = unknown

Definition at line 129 of file high_lng.h.

else

else

Initial value:

{
    size_t const toklen = strlen(tokSig)

Definition at line 233 of file high_lng.h.

error

goto error

Definition at line 251 of file high_lng.h.

highINITcstr

highINITcstr

Definition at line 172 of file high_lng.h.

highRETerror

highRETerror

Definition at line 520 of file high_lng.h.

highRETok

highRETok

Definition at line 493 of file high_lng.h.

Lstart

bool Lstart = false

Definition at line 135 of file high_lng.h.

mqctx

MkBufferSetV& mqctx

Definition at line 505 of file high_lng.h.

obj

MK_OBJ const obj = MkOBJ(mqctx)

Definition at line 136 of file high_lng.h.

ptr

highREADprepare if ptr = ""

Definition at line 130 of file high_lng.h.

rpc

bool rpc = false

Definition at line 137 of file high_lng.h.

srvSig

MK_STRB srvSig[MQ_SEND_TRANSACTION_TOKEN_SIZE+1] = "unknown"

Definition at line 131 of file high_lng.h.

timeout

MK_TIME_T timeout = MK_TIMEOUT_USER

Definition at line 133 of file high_lng.h.

token

MK_STRB token[9]

Definition at line 229 of file high_lng.h.

tokSig

tokSig[MQ_SEND_TOKEN_SIGNATURE_SIZE] = "unknown"

Definition at line 132 of file high_lng.h.

Tstart

bool Tstart = false

Definition at line 134 of file high_lng.h.

unknown

MK_STRN unknown = "unknown"

static

Definition at line 127 of file high_lng.h.