Sq3ValueC_rb.c

Go to the documentation of this file.

 
/* LABEL-START */
#define META_FILE_NAME "Sq3ValueC_rb.c"
 
#include  "LibSq3Lite_private_rb.h"
 
#define OT_CLASS            NS(Sq3ValueC)
#define OT_CLASS_NAME       "Sq3ValueC"
 
#define OT_LNG2META(O)      Sq3Val(VAL2MNG(O))
 
OT_CLS_T OT_CLASS;
 
// new Class type object
static MK_TYP Sq3ValueCTT = NULL;
OT_OBJ_T SQ3(Sq3ValueC_MK_NULL) = 0;
 
// GS marker in "Data_Wrap_Struct"
static void  NS(sMark)    (MK_PTR);
 
// ruby datatype of the wrapped struct
static rb_data_type_t NS(Sq3ValueC_T) = {
  "Sq3ValueC",
  {
    NS(sMark),
    MK(AtomDeleteSoft),
    0, /* dsize */
    0, /* reserved[1] */
  },
  NULL, /* parent */
  NULL, /* data */
  RUBY_TYPED_FREE_IMMEDIATELY
};
 
// >>THIS<< is a Phase-1-CONSTRUCTOR: a constructor which create the SELF object
// A Phase-2-CONSTRUCTOR is a constructor which configure an already existing object
// DO: create a new SELF and link this SELF with the MQ-Object "mng"
// clazz is the toplevel "subclass" or "Sq3ValueC"
mk_inline OT_OBJ_T NS(LNG_CONSTR) (OT_CLS_T clazz, MK_MNG mng, int objc, VALUE* objv) {
  return MK(AtomObjCrt)(clazz,&NS(Sq3ValueC_T),mng,objc,objv);
}
// MQ: ObjNew feature: called to return a new or an already existing RUBY-SELF-Object
// -> moved to: msgque_rb.h
// OT_OBJ_T NS(Sq3ValueC_ObjNew) (MK_VAL hdl) {
//   return MK(AtomObjNew) (Sq3ValueC_X2obj(hdl));
// }
// MQ: ObjNew feature: selfCreate will be called from "ObjNew->MkSelfNew" if MkObj need a SELF pointer
static MK_PTR NS(Sq3ValueC_selfCreate) (MK_RT_ARGS MK_OBJ obj, MK_PTR envP) {
  OT_OBJ_T self = NS(LNG_CONSTR) (OT_CLASS, obj, 0, NULL);
  return VAL2PTR(self);
}
// MQ: called on instance-destruction for a "selfCreate" instance → goal: destroy the SELF
static void NS(Sq3ValueC_selfDelete) (MK_RT_ARGS MK_PTR ptr, MK_PTR envP) {
  OT_OBJECT_DELETE_HARD(PTR2VAL(ptr));
}
// MQ: called to destroy link from SELF to META
static void NS(Sq3ValueC_selfUnlink) (MK_RT_ARGS MK_PTR ptr, MK_PTR envP) {
  OT_OBJ_T self =  PTR2VAL(ptr);
  RDATA(self)->data = NULL;
}
// initialize the RUBY and MO class specific object
#define S_INIT NS(sInit)(MK_RT_CALL_ONLY)
static void NS(sInit)(MK_RT_ARGS_ONLY) {
 
  // add "selfCreate" and "selfDelete" feature to the MQ-Sq3ValueC-Type
  Sq3ValueCTT->selfCreate    = NS(Sq3ValueC_selfCreate);
  Sq3ValueCTT->selfDelete    = NS(Sq3ValueC_selfDelete);
  Sq3ValueCTT->selfUnlink    = NS(Sq3ValueC_selfUnlink);
 
  // create the RUBY class
  OT_CLASS = rb_define_class_under(OT_PKG, "Sq3ValueC", MK_BASE_CLASS);
  rb_undef_alloc_func(OT_CLASS);
 
  /* define the "NULL" object */
  VALUE nullO = TypedData_Wrap_Struct (OT_CLASS, &NS(Sq3ValueC_T), MK_NULL);
  NS(Sq3ValueC_MK_NULL) = nullO;
  INCR_REF(&NS(Sq3ValueC_MK_NULL));
}
 
#define OT_SETUP_hdl                OT_SETUP_hdl_tmpl(Sq3ValueC);
#define OT_SETUP_hdl__null_allow    OT_SETUP_hdl_tmpl__null_allow(Sq3ValueC);
#define OT_SETUP_hdl_constr         AllRtSetup_NULL; \
                                    OT_OBJ_T clazz = self; \
                                    Sq3ValueC_type hdl = (Sq3ValueC_type) &MkERROR;
#define OT_SETUP_hdl_destr          OT_SETUP_hdl_tmpl__null_allow(Sq3ValueC);
#define OT_SETUP_hdl_static         AllRtSetup_NULL; \
                                    __attribute__((unused)) MK_TYP hdl = Sq3ValueC##_TT;
#define OT_SETUP_hdl_static_constr  OT_SETUP_hdl_static
 
#if !defined(SetupRtFromObj_X)
  #define SetupRtFromObj_X(hdl)     AllRtSetup_X(hdl)
  #define SetupRtFromObj_XN(hdl)    AllRtSetup_XN(hdl)
#endif
 
/* LABEL-END */
 
// BEGIN-DOC - created by 'rb_MqS.tcl -i NHI1_HOME/theSq3Lite/c/gen/c_sq3lite.meta' - DO NOT change
 
// doc-key: Sq3ValueC,Sq3Value,sc_,func
#define GetNull_doc "Sq3ValueC Sq3ValueC.GetNull()"
#define HandleResolve_doc "Sq3ValueC Sq3ValueC.HandleResolve(netHdl:MK_HDL)"
#define Instances_doc "Sq3ValueC Sq3ValueC.Instances()"
 
// doc-key: Sq3ValueC,Sq3Value,oCx,func
#define Dup_doc "Sq3ValueC sq3val.Dup() (const)"
 
// doc-key: Sq3ValueC,Sq3Value,oc_,func
#define BUF_doc "MkBufferC val.BUF() (const)"
#define Blob_doc "MkBufferC sq3val.Blob() (const)"
#define Next_doc "Sq3ValueC val.Next()"
#define Prev_doc "Sq3ValueC val.Prev()"
 
// doc-key: Sq3ValueC,Sq3Value,oco,func
#define VtabInFirst_doc "Sq3ValueC pVal.VtabInFirst()"
#define VtabInNext_doc "Sq3ValueC pVal.VtabInNext()"
 
// doc-key: Sq3ValueC,Sq3Value,om_,func
#define BinaryR_doc "binary sq3val.BinaryR() (const)"
#define Bytes_doc "Sq3TextE sq3val.Bytes() (const)"
#define Double_doc "double sq3val.Double() (const)"
#define Encoding_doc "Sq3TextE sq3val.Encoding() (const)"
#define FromBind_doc "bool sq3val.FromBind() (const)"
// skip class-overload: HandleGet → MkObjectHandleGet
#define Int_doc "int32 sq3val.Int() (const)"
#define Int64_doc "int64 sq3val.Int64() (const)"
// skip class-overload: Log → MkObjectLog
#define NoChange_doc "bool sq3val.NoChange() (const)"
#define NumericType_doc "Sq3TypeE sq3val.NumericType() (const)"
#define StringR_doc "string sq3val.StringR() (const)"
#define SubType_doc "int32 sq3val.SubType() (const)"
#define Text_doc "string sq3val.Text() (const)"
#define Type_doc "Sq3TypeE sq3val.Type() (const)"
 
// END-DOC - created by 'rb_MqS.tcl -i NHI1_HOME/theSq3Lite/c/gen/c_sq3lite.meta' - DO NOT change
 
/*****************************************************************************/
/*                                                                           */
/*                              O B J E C T                                  */
/*                                                                           */
/*****************************************************************************/
 
// BEGIN-Sq3ValueC - created by 'rb_MqC.tcl -i NHI1_HOME/theSq3Lite/c/gen/c_sq3lite.meta' - DO NOT change
 
 
// doc-key: Sq3ValueC,Sq3ValueC-Class-Export,sc_
 
static OT_ProcRet NS(Sq3ValueC_HandleResolve) (OtClass_ARGS) {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(HandleResolve_doc);
  MK_HDL netHdl = 0;
  OT_CHECK_REQUIRED(OT_CHECK_NIH (netHdl))
  OT_CHECK_NOARGS;
  SQ3_VAL retVal = Sq3ValueHandleResolve (netHdl);
  OT_retObj_SET_VAL(retVal);
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
// doc-key: Sq3ValueC,Sq3ValueC-Class-Export,om_
 
// skip on class-overload: Sq3ValueHandleGet → MkObjectHandleGet
MK_DEPRECATED MK_UNUSED
static OT_ProcRet NS(Sq3ValueC_HandleGet) (Sq3ValueC_ARGS) {OT_ERROR_LNG_RETURN;}
 
// Sq3ValueC_Class_RB_API
 
 
// doc-key: Sq3ValueC,Sq3ValueC-Class-Introspection,oc_
 
static OT_ProcRet NS(Sq3ValueC_Next) (Sq3ValueC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(Next_doc);
  OT_CHECK_NOARGS;
  SQ3_VAL retVal = Sq3ValueNext (hdl);
  OT_retObj_SET_VAL(retVal);
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(Sq3ValueC_Prev) (Sq3ValueC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(Prev_doc);
  OT_CHECK_NOARGS;
  SQ3_VAL retVal = Sq3ValuePrev (hdl);
  OT_retObj_SET_VAL(retVal);
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
// doc-key: Sq3ValueC,Sq3ValueC-Class-Introspection,sc_
 
static OT_ProcRet NS(Sq3ValueC_Instances) (OtClass_ARGS) {
  OT_SETUP_hdl_static;
  OT_SETUP_NOARG(Instances_doc);
  OT_CHECK_NOARGS;
  SQ3_VAL retVal = Sq3ValueInstances ();
  OT_retObj_SET_VAL(retVal);
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
// Sq3ValueC_Class_RB_API
 
 
// doc-key: Sq3ValueC,Sq3ValueC-Class-Misc,sc_
 
static OT_ProcRet NS(Sq3ValueC_GetNull) (OtClass_ARGS) {
  OT_SETUP_hdl_static;
  OT_SETUP_NOARG(GetNull_doc);
  OT_CHECK_NOARGS;
  SQ3_VAL retVal = Sq3ValueGetNull ();
  OT_retObj_SET_VAL(retVal);
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
// Sq3ValueC_Class_RB_API
 
 
// doc-key: Sq3ValueC,Sq3ValueC-Info,om_
 
static OT_ProcRet NS(Sq3ValueC_Bytes) (Sq3ValueC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(Bytes_doc);
  OT_CHECK_NOARGS;
  OT_retObj_SET(OT_NEW_Sq3_enum_OBJ(TextE,Sq3ValueBytes (hdl)));
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(Sq3ValueC_Encoding) (Sq3ValueC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(Encoding_doc);
  OT_CHECK_NOARGS;
  OT_retObj_SET(OT_NEW_Sq3_enum_OBJ(TextE,Sq3ValueEncoding (hdl)));
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(Sq3ValueC_FromBind) (Sq3ValueC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(FromBind_doc);
  OT_CHECK_NOARGS;
  OT_retObj_SET_BOL(Sq3ValueFromBind (hdl));
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
// skip on class-overload: Sq3ValueLog → MkObjectLog
MK_DEPRECATED MK_UNUSED
static OT_ProcRet NS(Sq3ValueC_Log) (Sq3ValueC_ARGS) {OT_ERROR_LNG_RETURN;}
 
static OT_ProcRet NS(Sq3ValueC_NoChange) (Sq3ValueC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(NoChange_doc);
  OT_CHECK_NOARGS;
  OT_retObj_SET_BOL(Sq3ValueNoChange (hdl));
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(Sq3ValueC_NumericType) (Sq3ValueC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(NumericType_doc);
  OT_CHECK_NOARGS;
  OT_retObj_SET(OT_NEW_Sq3_enum_OBJ(TypeE,Sq3ValueNumericType (hdl)));
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(Sq3ValueC_SubType) (Sq3ValueC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(SubType_doc);
  OT_CHECK_NOARGS;
  OT_retObj_SET_I32(Sq3ValueSubType (hdl));
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(Sq3ValueC_Type) (Sq3ValueC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(Type_doc);
  OT_CHECK_NOARGS;
  OT_retObj_SET(OT_NEW_Sq3_enum_OBJ(TypeE,Sq3ValueType (hdl)));
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
// Sq3ValueC_Info_RB_API
 
 
// doc-key: Sq3ValueC,Sq3ValueC-TOR,oCx
 
static OT_ProcRet NS(Sq3ValueC_Dup) (Sq3ValueC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(Dup_doc);
  OT_CHECK_NOARGS;
  SQ3_VAL retVal = Sq3ValueDup (hdl);
  if (retVal == NULL) {
    OT_ERROR_CONSTRUCTOR(Sq3ValueC);
  }
  OT_retObj_SET_VAL(retVal);
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
// Sq3ValueC_TOR_RB_API
 
 
// doc-key: Sq3ValueC,Sq3ValueC-Types,oc_
 
static OT_ProcRet NS(Sq3ValueC_BUF) (Sq3ValueC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(BUF_doc);
  OT_CHECK_NOARGS;
  MK_BUF retVal = Sq3ValueBUF (hdl);
  OT_retObj_SET_BUF(retVal);
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(Sq3ValueC_Blob) (Sq3ValueC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(Blob_doc);
  OT_CHECK_NOARGS;
  MK_BUF retVal = Sq3ValueBlob (hdl);
  OT_retObj_SET_BUF(retVal);
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
// doc-key: Sq3ValueC,Sq3ValueC-Types,om_
 
static OT_ProcRet NS(Sq3ValueC_BinaryR) (Sq3ValueC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(BinaryR_doc);
  OT_CHECK_NOARGS;
  MkBinaryR retVal = Sq3ValueBinaryR (hdl);
  OT_retObj_SET(OT_GET__ME_REF_MkBinaryR(retVal));
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(Sq3ValueC_Double) (Sq3ValueC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(Double_doc);
  OT_CHECK_NOARGS;
  OT_retObj_SET_DBL(Sq3ValueDouble (hdl));
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(Sq3ValueC_Int) (Sq3ValueC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(Int_doc);
  OT_CHECK_NOARGS;
  OT_retObj_SET_I32(Sq3ValueInt (hdl));
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(Sq3ValueC_Int64) (Sq3ValueC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(Int64_doc);
  OT_CHECK_NOARGS;
  OT_retObj_SET_I64(Sq3ValueInt64 (hdl));
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(Sq3ValueC_StringR) (Sq3ValueC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(StringR_doc);
  OT_CHECK_NOARGS;
  MkStringR retVal = Sq3ValueStringR (hdl);
  OT_retObj_SET(OT_GET__ME_REF_MkStringR(retVal));
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(Sq3ValueC_Text) (Sq3ValueC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(Text_doc);
  OT_CHECK_NOARGS;
  OT_retObj_SET_STR(Sq3ValueText (hdl));
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
// Sq3ValueC_Types_RB_API
 
 
// doc-key: Sq3ValueC,Sq3ValueC-Vtab,oco
 
static OT_ProcRet NS(Sq3ValueC_VtabInFirst) (Sq3ValueC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(VtabInFirst_doc);
  OT_CHECK_NOARGS;
  SQ3_VAL ppOut;
  MkErrorC_Check(hdl,Sq3ValueVtabInFirst (hdl, &ppOut));
  OT_retObj_SET_VAL(ppOut);
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(Sq3ValueC_VtabInNext) (Sq3ValueC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(VtabInNext_doc);
  OT_CHECK_NOARGS;
  SQ3_VAL ppOut;
  MkErrorC_Check(hdl,Sq3ValueVtabInNext (hdl, &ppOut));
  OT_retObj_SET_VAL(ppOut);
  end: MK_UNUSED  /* LONG JUMP on error */
  OT_retObj_RETURN;
}
 
// Sq3ValueC_Vtab_RB_API
 
// END-Sq3ValueC - created by 'rb_MqC.tcl -i NHI1_HOME/theSq3Lite/c/gen/c_sq3lite.meta' - DO NOT change
 
/*****************************************************************************/
/*                                                                           */
/*                                public                                     */
/*                                                                           */
/*****************************************************************************/
 
void NS(sMark) (MK_PTR ptr) {
}
 
void NS(Sq3ValueC_Init) (MK_RT_ARGS_ONLY) {
 
  // init type
  Sq3ValueCTT = Sq3ValueC_TT;
  S_INIT;
 
  // BEGIN-CLASS - created by 'rb_MqS.tcl -i NHI1_HOME/theSq3Lite/c/gen/c_sq3lite.meta' - DO NOT change
 
  // doc-key: Sq3ValueC,Sq3Value,sc_
  OT_METH_O ( Sq3ValueC, GetNull,                   Sq3ValueC_GetNull                   )
  OT_METH_S ( Sq3ValueC, GetNull,                   Sq3ValueC_GetNull                   )
  OT_METH_O ( Sq3ValueC, HandleResolve,             Sq3ValueC_HandleResolve             )
  OT_METH_S ( Sq3ValueC, HandleResolve,             Sq3ValueC_HandleResolve             )
  OT_METH_O ( Sq3ValueC, Instances,                 Sq3ValueC_Instances                 )
  OT_METH_S ( Sq3ValueC, Instances,                 Sq3ValueC_Instances                 )
 
  // END-CLASS - created by 'rb_MqS.tcl -i NHI1_HOME/theSq3Lite/c/gen/c_sq3lite.meta' - DO NOT change
 
  // BEGIN-OBJ - created by 'rb_MqS.tcl -i NHI1_HOME/theSq3Lite/c/gen/c_sq3lite.meta' - DO NOT change
 
  // doc-key: Sq3ValueC,Sq3Value,oCx
  OT_METH_O ( Sq3ValueC, Dup,                       Sq3ValueC_Dup                       )
 
  // doc-key: Sq3ValueC,Sq3Value,oc_
  OT_METH_O ( Sq3ValueC, BUF,                       Sq3ValueC_BUF                       )
  OT_METH_O ( Sq3ValueC, Blob,                      Sq3ValueC_Blob                      )
  OT_METH_O ( Sq3ValueC, Next,                      Sq3ValueC_Next                      )
  OT_METH_O ( Sq3ValueC, Prev,                      Sq3ValueC_Prev                      )
 
  // doc-key: Sq3ValueC,Sq3Value,oco
  OT_METH_O ( Sq3ValueC, VtabInFirst,               Sq3ValueC_VtabInFirst               )
  OT_METH_O ( Sq3ValueC, VtabInNext,                Sq3ValueC_VtabInNext                )
 
  // doc-key: Sq3ValueC,Sq3Value,om_
  OT_METH_O ( Sq3ValueC, BinaryR,                   Sq3ValueC_BinaryR                   )
  OT_METH_O ( Sq3ValueC, Bytes,                     Sq3ValueC_Bytes                     )
  OT_METH_O ( Sq3ValueC, Double,                    Sq3ValueC_Double                    )
  OT_METH_O ( Sq3ValueC, Encoding,                  Sq3ValueC_Encoding                  )
  OT_METH_O ( Sq3ValueC, FromBind,                  Sq3ValueC_FromBind                  )
  // skip class-overload: Sq3ValueHandleGet → HandleGet, Sq3ValueC_HandleGet
  OT_METH_O ( Sq3ValueC, Int,                       Sq3ValueC_Int                       )
  OT_METH_O ( Sq3ValueC, Int64,                     Sq3ValueC_Int64                     )
  // skip class-overload: Sq3ValueLog → Log, Sq3ValueC_Log
  OT_METH_O ( Sq3ValueC, NoChange,                  Sq3ValueC_NoChange                  )
  OT_METH_O ( Sq3ValueC, NumericType,               Sq3ValueC_NumericType               )
  OT_METH_O ( Sq3ValueC, StringR,                   Sq3ValueC_StringR                   )
  OT_METH_O ( Sq3ValueC, SubType,                   Sq3ValueC_SubType                   )
  OT_METH_O ( Sq3ValueC, Text,                      Sq3ValueC_Text                      )
  OT_METH_O ( Sq3ValueC, Type,                      Sq3ValueC_Type                      )
 
  // END-OBJ - created by 'rb_MqS.tcl -i NHI1_HOME/theSq3Lite/c/gen/c_sq3lite.meta' - DO NOT change
 
}