mk_misc_ObjAs_lng.h

Go to the documentation of this file.

 
/* LABEL-NO */
 
#ifdef HEADER
 
#define OT_CHECK_BIN(val,len)   OT_CHECK_BNP(val,len)
#define OT_CHECK_BOL(val)       OT_CHECK_NB1(val)
#define OT_CHECK_I8(val)        OT_CHECK_NI1(val)
#define OT_CHECK_I16(val)       OT_CHECK_NI2(val)
#define OT_CHECK_I32(val)       OT_CHECK_NI4(val)
#define OT_CHECK_I64(val)       OT_CHECK_NI8(val)
#define OT_CHECK_FLT(val)       OT_CHECK_NF4(val)
#define OT_CHECK_DBL(val)       OT_CHECK_NF8(val)
//#define OT_CHECK_BUF(val)     OT_CHECK_BUF(val)
#define OT_CHECK_L(val)         OT_CHECK_BFL(val)
#define OT_CHECK_STR(val)       OT_CHECK_STRN(val)
#define OT_CHECK_HDL(val)       MK_HDL_REF_S3(OT_CHECK_) (val)
#define OT_CHECK_NIH(val)       MK_HDL_REF_S3(OT_CHECK_) (val)
 
// --------------------------------------------------------------------------
 
MK_EXTERN enum MkErrorE MK_DECL MK(WrongNumArgs)      (MK_RT_ARGS MK_MNG, MK_SIZE, MK_SIZE, MK_SIZE, MK_SIZE, MK_STRN);
 
#define WrongNumArgs(...)           MK(WrongNumArgs)(MK_RT_CALL __VA_ARGS__)
 
#define OT_ERROR_STACK              MkErrorStack_4M(hdl,__func__,__FILE__,__LINE__)
 
MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK(LngObj_AsFLT)      (OT_Prefix_ARGS MK_MNG,OT_OBJ_T,MK_FLT*);
#define LngObj_AsF MK(LngObj_AsFLT)
MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK(LngObj_AsDBL)      (OT_Prefix_ARGS MK_MNG,OT_OBJ_T,MK_DBL*);
#define LngObj_AsD MK(LngObj_AsDBL)
MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK(LngObj_AsBOL)      (OT_Prefix_ARGS MK_MNG,OT_OBJ_T,MK_BOL*);
#define LngObj_AsO MK(LngObj_AsBOL)
MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK(LngObj_AsBOOL)     (OT_Prefix_ARGS MK_MNG,OT_OBJ_T,bool*);
MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK(LngObj_AsI8)      (OT_Prefix_ARGS MK_MNG,OT_OBJ_T,MK_I8*);
#define LngObj_AsY MK(LngObj_AsI8)
MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK(LngObj_AsI16)      (OT_Prefix_ARGS MK_MNG,OT_OBJ_T,MK_I16*);
#define LngObj_AsS MK(LngObj_AsI16)
//MK_EXTERN enum MkErrorE MK_DECL MK(LngObj_AsU16)      (OT_Prefix_ARGS MK_MNG,OT_OBJ_T,MK_U16*);
MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK(LngObj_AsI32)      (OT_Prefix_ARGS MK_MNG,OT_OBJ_T,MK_I32*);
#define LngObj_AsI MK(LngObj_AsI32)
//MK_EXTERN enum MkErrorE MK_DECL MK(LngObj_AsU32)      (OT_Prefix_ARGS MK_MNG,OT_OBJ_T,MK_U32*);
MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK(LngObj_AsI64)      (OT_Prefix_ARGS MK_MNG,OT_OBJ_T,MK_I64*);
#define LngObj_AsW MK(LngObj_AsI64)
/*
MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK(LngObj_AsLLG)      (OT_Prefix_ARGS MK_MNG,OT_OBJ_T,MK_LLG*);
#define LngObj_AsX MK(LngObj_AsLLG)
*/
MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK(LngObj_AsSTRN)      (OT_Prefix_ARGS MK_MNG,OT_OBJ_T,MK_STRN*);
//MK_EXTERN enum MkErrorE MK_DECL MK(LngObj_AsCSTNull)  (OT_Prefix_ARGS MK_MNG,OT_OBJ_T,MK_STRN*);
MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK(LngObj_AsLONG)     (OT_Prefix_ARGS MK_MNG,OT_OBJ_T,long*);
 
#ifndef SKIP_TYPE_S
MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK(Obj_AsFLT)         (OT_Check_ARGS,MK_FLT*);
MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK(Obj_AsDBL)         (OT_Check_ARGS,MK_DBL*);
MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK(Obj_AsBOL)         (OT_Check_ARGS,MK_BOL*);
MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK(Obj_AsBOOL)        (OT_Check_ARGS,bool*);
MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK(Obj_AsI8)          (OT_Check_ARGS,MK_I8*);
MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK(Obj_AsI16)         (OT_Check_ARGS,MK_I16*);
//MK_EXTERN enum MkErrorE MK_DECL MK(Obj_AsU16)         (OT_Check_ARGS,MK_U16*);
MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK(Obj_AsI32)         (OT_Check_ARGS,MK_I32*);
//MK_EXTERN enum MkErrorE MK_DECL MK(Obj_AsU32)         (OT_Check_ARGS,MK_U32*);
MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK(Obj_AsI64)         (OT_Check_ARGS,MK_I64*);
//MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK(Obj_AsLLG)       (OT_Check_ARGS,MK_LLG*);
MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK(Obj_AsSTRN)        (OT_Check_ARGS,MK_STRN*);
//MK_EXTERN enum MkErrorE MK_DECL MK(Obj_AsCSTNull)     (OT_Check_ARGS,MK_STRN*);
MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK(Obj_AsLONG)        (OT_Check_ARGS,long*);
#endif
 
#else // !HEADER
 
/*****************************************************************************/
 
#ifndef SKIP_TYPE_S
 
enum MkErrorE MK(WrongNumArgs) (
  MK_RT_ARGS
  MK_MNG    hdl,
  MK_SIZE   skip,
  MK_SIZE   objc,
  MK_SIZE   min,
  MK_SIZE   max,
  MK_STRN    arg
) { 
  MkBufferCreateTLS_T(MkBuffer1024C,buf,100);
 
//printV("skip=%zi, objc=%zi, min=%zi, max=%zi, arg=%s\n", skip,objc,min,max,arg);
 
  if (arg && *arg != '\0') {
    MkBufferSetV(buf, "missing '%s'", arg);
  } else if ((objc-skip) < min) {
    MkBufferSetV(buf, "expect min '%li' argument(s)", min);
  } else if ((objc-skip) > max) {
    MkBufferSetV(buf, "expect max '%li' argument(s)", max);
  } else if (skip > objc) {
    MkBufferSetV(buf, "got '%li' additional argument(s)", skip-objc);
  } else if (skip <= objc) {
    MkBufferSetV(buf, "internal error → "
           "skip=%li, objc=%li, min=%li, max=%li, arg=%s", skip, objc, min, max, arg);
  }
  return MkErrorVD("WrongNumerOfArgsError", "%s", buf->storage.first.C);
}
 
#endif
 
/*****************************************************************************/
 
/* example from TCL
 
WHAT = BOOL,LONG,DOUBLE,WIDE
TYP  = BOL,I8,I16,I32,I64,FLT,DBL extra BOOL,LONG
 
#define LNG_BOOL      int
#define LNG_LONG      long
#define LNG_DOUBLE    double
#define LNG_WIDE      Tcl_WideInt
 
#define FUNC_LONG(o)    Tcl_GetLongFromObj(interp,o, &tmp)
#define FUNC_DOUBLE(o)  Tcl_GetDoubleFromObj(interp,o, &tmp)
#define FUNC_BOOL(o)    Tcl_GetBooleanFromObj(interp,o, &tmp)
#define FUNC_WIDE(o)    Tcl_GetWideIntFromObj(interp,o, &tmp)
 
#define CHECK_LONG(o)   (o->typePtr && o->typePtr==tcl_LONG)
#define CHECK_DOUBLE(o) (o->typePtr && o->typePtr==tcl_DOUBLE)
#define CHECK_BOOL(o)   (o->typePtr && o->typePtr==tcl_BOOLEAN)
#define CHECK_WIDE(o)   (o->typePtr && o->typePtr==tcl_WIDE)
#define CHECK_STRING(o) (o->bytes)
 
#define OVERFLOW_I8    Overflow_Error(MkType_I8,MkMin_I8,MkMax_I8)
#define OVERFLOW_I16    Overflow_Error(MkType_I16,MkMin_I16,MkMax_I16)
#define OVERFLOW_I32    Overflow_Error(MkType_I32,MkMin_I32,MkMax_I32)
#define OVERFLOW_I64
#define OVERFLOW_FLT
#define OVERFLOW_DBL
#define OVERFLOW_BOL
#define OVERFLOW_BOOL
#define OVERFLOW_LONG
 
#include "tmpl/misc_ObjAs_lng.h"
 
*/
 
#ifndef OT_LNG_STRING_INIT
  #define OT_LNG_STRING_INIT(o) 
#endif
 
#define Overflow_Error(type,min,max)  Overflow_Error_Full(hdl,tmp,OT_LNG_STRING(obj),type,min,max)
 
#define Type_Error(type)                                   \
  MkErrorVD("TypeError",                                   \
    "expect '%s' argument but got '%s' of type '%s'",      \
      type, OT_LNG_STRING(obj), OT_OBJ_TYPE_STRING(obj)    \
  );                                                       \
  goto error;
 
#define ARG3(WHAT,TYP)                                                             \
  if (CHECK_##WHAT(obj)) {                                                         \
    LNG_##WHAT tmp;                                                                \
    check_LNG(FUNC_##WHAT(obj)) return MK_ERROR;                                   \
    OVERFLOW_##TYP;                                                                \
    *retP = (MK_##TYP) tmp;                                                        \
  } else if (CHECK_STRING(obj)) {                                                  \
    OT_LNG_STRING_INIT(obj);                                                       \
    MkErrorCheck(MkString2##TYP##_RT(MK_RT_CALL OT_LNG_STRING_BYTES(obj),OT_LNG_STRING_LENGTH(obj),retP));   \
  } else {                                                                         \
    Type_Error(MkType_##TYP);                                                      \
  }                                                                                \
  return MK_OK;                                                                    \
error:                                                                             \
  return OT_ERROR_STACK;
 
enum MkErrorE MK(LngObj_AsI8) (OT_Prefix_ARGS MK_MNG hdl, OT_OBJ_T obj, MK_I8 *retP) {
  ARG3(LONG,I8)
}
 
enum MkErrorE MK(LngObj_AsI16) (OT_Prefix_ARGS MK_MNG hdl, OT_OBJ_T obj, MK_I16 *retP) {
  ARG3(LONG,I16)
}
 
/*
enum MkErrorE MK(LngObj_AsU16) (OT_Prefix_ARGS MK_MNG hdl, OT_OBJ_T obj, MK_U16 *retP) {
  ARG3(LONG,U16)
}
#define LngObj_AsUS MK(LngObj_AsU16)
*/
 
enum MkErrorE MK(LngObj_AsI32) (OT_Prefix_ARGS MK_MNG hdl, OT_OBJ_T obj, MK_I32 *retP) {
  ARG3(LONG,I32)
}
 
/*
enum MkErrorE MK(LngObj_AsU32) (OT_Prefix_ARGS MK_MNG hdl, OT_OBJ_T obj, MK_U32 *retP) {
  ARG3(LONG,U32)
}
#define LngObj_AsUI MK(LngObj_AsU32)
*/
enum MkErrorE MK(LngObj_AsLONG) (OT_Prefix_ARGS MK_MNG hdl, OT_OBJ_T obj, MK_LONG *retP) {
  ARG3(LONG,LONG)
}
 
enum MkErrorE MK(LngObj_AsI64) (OT_Prefix_ARGS MK_MNG hdl, OT_OBJ_T obj, MK_I64 *retP) {
  ARG3(WIDE,I64)
}
 
/*
enum MkErrorE MK(LngObj_AsLLG) (OT_Prefix_ARGS MK_MNG hdl, OT_OBJ_T obj, MK_LLG *retP) {
  ARG3(WIDE,LLG)
}
*/
 
enum MkErrorE MK(LngObj_AsFLT) (OT_Prefix_ARGS MK_MNG hdl, OT_OBJ_T obj, MK_FLT *retP) {
  ARG3(DOUBLE,FLT)
}
 
enum MkErrorE MK(LngObj_AsDBL) (OT_Prefix_ARGS MK_MNG hdl, OT_OBJ_T obj, MK_DBL *retP) {
  ARG3(DOUBLE,DBL)
}
 
enum MkErrorE MK(LngObj_AsBOL) (OT_Prefix_ARGS MK_MNG hdl, OT_OBJ_T obj, MK_BOL *retP) {
  ARG3(BOOL,BOL)
}
 
enum MkErrorE MK(LngObj_AsBOOL) (OT_Prefix_ARGS MK_MNG hdl, OT_OBJ_T obj, MK_BOOL *retP) {
  ARG3(BOOL,BOOL)
}
 
/*****************************************************************************/
 
#ifndef SKIP_TYPE_S
 
#define ARG2(WHAT,TYP)                                            \
  if ((*skipP) >= objc) {                                         \
    return WrongNumArgs(hdl, (*skipP), objc, -999, +999, arg);    \
  }                                                               \
  OT_OBJ_T obj = OT_LNG_OBJV((*skipP)++);                         \
  return MK(LngObj_As##TYP)(OT_Prefix_CALL hdl,obj,retP);         \
 
enum MkErrorE MK(Obj_AsI8) (OT_Check_ARGS, MK_I8 *retP) {
  ARG2(LONG,I8)
}
enum MkErrorE MK(Obj_AsI16) (OT_Check_ARGS, MK_I16 *retP) {
  ARG2(LONG,I16)
}
/*
enum MkErrorE MK(Obj_AsU16) (OT_Check_ARGS, MK_U16 *retP) {
  ARG2(LONG,U16)
}
*/
enum MkErrorE MK(Obj_AsI32) (OT_Check_ARGS, MK_I32 *retP) {
  ARG2(LONG,I32)
}
/*
enum MkErrorE MK(Obj_AsU32) (OT_Check_ARGS, MK_U32 *retP) {
  ARG2(LONG,U32)
}
*/
enum MkErrorE MK(Obj_AsLONG) (OT_Check_ARGS, MK_LONG *retP) {
  ARG2(LONG,LONG)
}
enum MkErrorE MK(Obj_AsI64) (OT_Check_ARGS, MK_I64 *retP) {
  ARG2(WIDE,I64)
}
/*
enum MkErrorE MK(Obj_AsLLG) (OT_Check_ARGS, MK_LLG *retP) {
  ARG2(WIDE,LLG)
}
*/
enum MkErrorE MK(Obj_AsFLT) (OT_Check_ARGS, MK_FLT *retP) {
  ARG2(DOUBLE,FLT)
}
enum MkErrorE MK(Obj_AsDBL) (OT_Check_ARGS, MK_DBL *retP) {
  ARG2(DOUBLE,DBL)
}
enum MkErrorE MK(Obj_AsBOL) (OT_Check_ARGS, MK_BOL *retP) {
  ARG2(BOOL,BOL)
}
enum MkErrorE MK(Obj_AsBOOL) (OT_Check_ARGS, MK_BOOL *retP) {
  ARG2(BOOL,BOOL)
}
 
#endif
 
/*****************************************************************************/
 
#endif // HEADER