MqContextC_ReadNEXT_lng.h File Reference

tag: nhi1-release-250425 More...

#include "tmpl/mq_type_S_lng.h"

Include dependency graph for MqContextC_ReadNEXT_lng.h:

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

Go to the source code of this file.

Functions
OT_ProcRet NS	MqContextC_ReadNEXT (MqContextC_ARGS)

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

Function Documentation

MqContextC_ReadNEXT()

OT_ProcRet NS MqContextC_ReadNEXT

(

MqContextC_ARGS

)

Definition at line 18 of file MqContextC_ReadNEXT_lng.h.

                                                     {
  OT_SETUP_hdl
  OT_SETUP_NOARG(ReadNEXT_doc)
  OT_CHECK_NOARGS
  OT_OBJ_T RET = OT_LNG_NULL;
  MK_BUF buf = NULL;
  MqReadBUF_E(hdl, &buf);
  switch (buf->var.type) {
    case MK_I8T: { RET = OT_TMP_I8_OBJ(MkBuf2I8(buf)); break; }
    case MK_BOLT: { RET = OT_TMP_BOL_OBJ(MkBuf2BOL(buf)); break; }
    case MK_I16T: { RET = OT_TMP_I16_OBJ(MkBuf2I16(buf)); break; }
    case MK_I32T: { RET = OT_TMP_I32_OBJ(MkBuf2I32(buf)); break; }
    case MK_FLTT: { RET = OT_TMP_FLT_OBJ(MkBuf2FLT(buf)); break; }
    case MK_I64T: { RET = OT_TMP_I64_OBJ(MkBuf2I64(buf)); break; }
    case MK_DBLT: { RET = OT_TMP_DBL_OBJ(MkBuf2DBL(buf)); break; }
    case MK_BINT: { RET = OT_TMP_BIN_OBJ(buf->storage.first.B,buf->var.cursize); break; }
    case MK_STRT: { RET = OT_TMP_STR_OBJ(buf->storage.first.C); break; }
    case MK_LSTT: {
      MK_BFL bfl = MkBufferListCreate(5);
      MkErrorC_Check(hdl,MkBufferGetBFL (buf, &bfl));
      OT_MK_CALL_0(bfl,MkBufferListC,ToList,RET);
      MkRefDecr_X(bfl);
      break;
    }
/*
    case MQ_ROUT:
    case MQ_LTRT: {
      OT_ERROR_TYPE("unable to convert an 'internal' object into a 'public' object");
      RET = OT_LNG_NULL;
    }
*/
  }
  if (RET == OT_LNG_NULL) goto error;
  OT_retObj_SET(RET);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}