MqContextC_ReadLIST_lng.h

Go to the documentation of this file.

 
/* LABEL-NO */
 
//#error  "MqC_ReadLIST_lng.h: use ReadALL→ToList
 
#include "tmpl/mq_type_S_lng.h"
 
// **************************************************************************************************
OT_ProcRet NS(MqContextC_ReadLIST) (MqContextC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(ReadLIST_doc);
  OT_CHECK_NOARGS;
  OT_retObj_SET_List;
  OT_OBJ_T RET = OT_LNG_NULL;
  MK_BUF buf = NULL;
  while (MqReadItemExists(hdl)) {
    MqReadBUF (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_APPEND(RET);
  }
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
// **************************************************************************************************