MkBufferC_ToObject_lng.h

Go to the documentation of this file.

 
// **************************************************************************************************
#define MkBufferC_ToObject_helper(TT,TTT)                  \
  case MK_##TT##T: {                                       \
    MK_##TTT val_out=0;                                    \
    MkErrorC_Check(hdl,MkBufferGet##TT (hdl, &val_out));   \
    OT_retObj_SET_##TTT(val_out)                           \
    break;                                                 \
  }                                                        \
 
OT_ProcRet NS(MkBufferC_ToObject) (MkBufferC_ARGS) {
  OT_SETUP_hdl
  OT_SETUP_NOARG(ToObject_doc)
  OT_CHECK_NOARGS
  switch (hdl->var.type) {
    MkBufferC_ToObject_helper(STR,STRN);
    MkBufferC_ToObject_helper(I32,I32);
    MkBufferC_ToObject_helper(DBL,DBL);
    MkBufferC_ToObject_helper(I64,I64);
    MkBufferC_ToObject_helper(I8,I8);
    MkBufferC_ToObject_helper(BOL,BOL);
    MkBufferC_ToObject_helper(I16,I16);
    MkBufferC_ToObject_helper(FLT,FLT);
    case MK_LSTT: {
      MK_BFL bfl = MkBufferListCreate(5);
      MkErrorC_Check(hdl,MkBufferGetBFL (hdl, &bfl));
      OT_MK_CALL_0(bfl,MkBufferListC,ToList,retObj);
      MkRefDecr_X(bfl);
      break;
    }
    case MK_BINT: {
      MkBinaryR val_out;
      MkErrorC_Check(hdl,MkBufferGetBIN(hdl, &val_out));
      OT_retObj_SET_BIN(val_out.data,val_out.size);
      break;
    }
  }
  goto end;
  error: MK_UNUSED
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
// **************************************************************************************************