Sq3ValueC_atl.c

Go to the documentation of this file.

 
/* LABEL-START */
 
#define   META_FILE_NAME      "Sq3ValueC_atl.c"
 
#include  "LibSq3Lite_private_atl.h"
 
#define   OT_CLASS            asq3rt->AtlSq3ValueC
#define   OT_NULL             asq3rt->AtlSq3ValueC_MK_NULL
#define   OT_CLASS_NAME       "Sq3ValueC"
 
#define   SELF2HDL(O)         Sq3Val(VAL2MNG(O))
 
// LNG: class
// -> moved to LibSq3Lite_atl.h → OT_SQ3_RT_S → AtlSq3LiteCTT;
 
// META: ObjNew feature: called to return a new or an already existing ATL-SELF-Object
// -> moved to LibSq3Lite_atl.h → Sq3LiteC_ObjNew
 
// META: 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 const obj, MK_PTR const env) {
  SETUP_asq3rt(env);
  return AtomMake(obj,OT_CLASS,NULL,NULL,env);
}
 
// META: called if MkObj must be destroyed and if the SELF is still alive → goal: destroy the SELF
static void NS(Sq3ValueC_selfDelete) (MK_RT_ARGS MK_PTR selfP, MK_PTR const env) {
  OT_SELF_T selfO = selfP;
  SETUP_asq3rt(env);
  MK(AtomDeleteHard) (OT_MK_CALL selfO);
}
 
// META: called to destroy link from SELF to META
static void NS(Sq3ValueC_selfUnlink) (MK_RT_ARGS MK_PTR selfP, MK_PTR const env) {
  OT_SELF_T selfO = selfP;
  SETUP_asq3rt(env);
  return MK(AtomUnlink) (OT_MK_CALL selfO);
}
 
#define OT_SETUP_hdl                  SetupHdlFromMetaData_2(SQ3_VAL)
#define OT_SETUP_hdl__null_allow      SetupHdlFromMetaData__null_allow_2(SQ3_VAL)
#define OT_SETUP_hdl_destr            SetupHdlFromMetaData__null_allow_2(SQ3_VAL)
#define OT_SETUP_hdl_constr           SetupHdlConstr(Sq3ValueC)
#define OT_SETUP_hdl_static_constr    OT_SETUP_hdl_static
#define OT_SETUP_hdl_static           SetupHdlStatic(Sq3ValueC)
 
#define OT_retObj_CONSTR(x)           OT_retObj_SET(AtomInit(OT_SELF,Sq3ValueC_X2obj(x),asq3rt))
 
// initialize the ATL and META class specific object
#define   ClassInit \
  /* if not already done, initialize NEW META type */ \
  if (Sq3ValueCTT == NULL) Sq3ValueCTT = Sq3ValueSTT; \
 \
  /* protect against double call */ \
  if (Sq3ValueCTT->selfCreate == NS(Sq3ValueC_selfCreate)) return MK_OK; \
 \
  /* add "selfCreate" and "selfDelete" feature to the META-Class */ \
  Sq3ValueCTT->selfCreate    = NS(Sq3ValueC_selfCreate); \
  Sq3ValueCTT->selfDelete    = NS(Sq3ValueC_selfDelete); \
  Sq3ValueCTT->selfUnlink    = NS(Sq3ValueC_selfUnlink); \
 \
  /* create the ATL-class */ \
  OT_CLASS = AltClassDef(Sq3ValueCTT,&asq3rt->AtlSq3ValueC_NS); \
    if (OT_CLASS == NULL) goto error; \
    OT_REF_INCR(OT_CLASS); \
 \
  /* create the ATL static Methods */ \
  check_LNG(AtlUnknownSetup (NS(sOtClassDef),asq3rt)) goto error; \
 \
  /* create the ATL instance Methods */ \
  check_LNG(AtlUnknownSetup (NS(sInstanceDef),asq3rt)) goto error; \
 \
  /* after class was modified, recompile the class */ \
  RL_init(2, recompile, RL_T(0,RecompileN)); RL_O(1,OT_CLASS) ; \
    int retI = RL_EvalEx(0); \
      if (retI != TCL_OK) return retI; \
 \
  /* define the "NULL" object */ \
  OT_NULL = AtomCreateNULL(OT_CLASS, "::Sq3ValueC::MK_NULL", (MK_PTR)asq3rt); \
    if (OT_NULL == NULL) goto error; \
    OT_REF_INCR(OT_NULL);
/* LABEL-END */
 
// BEGIN-DOC - created by 'atl_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 [Sq3ValueC::Dup $sq3val] (const)"
 
// doc-key: Sq3ValueC,Sq3Value,oc_,func
#define BUF_doc "MkBufferC [Sq3ValueC::BUF $val] (const)"
#define Blob_doc "MkBufferC [Sq3ValueC::Blob $sq3val] (const)"
#define Next_doc "Sq3ValueC [Sq3ValueC::Next $val]"
#define Prev_doc "Sq3ValueC [Sq3ValueC::Prev $val]"
 
// doc-key: Sq3ValueC,Sq3Value,oco,func
#define VtabInFirst_doc "Sq3ValueC [Sq3ValueC::VtabInFirst $pVal]"
#define VtabInNext_doc "Sq3ValueC [Sq3ValueC::VtabInNext $pVal]"
 
// doc-key: Sq3ValueC,Sq3Value,om_,func
#define BinaryR_doc "binary [Sq3ValueC::BinaryR $sq3val] (const)"
#define Bytes_doc "Sq3TextE [Sq3ValueC::Bytes $sq3val] (const)"
#define Double_doc "double [Sq3ValueC::Double $sq3val] (const)"
#define Encoding_doc "Sq3TextE [Sq3ValueC::Encoding $sq3val] (const)"
#define FromBind_doc "bool [Sq3ValueC::FromBind $sq3val] (const)"
// skip class-overload: HandleGet → MkObjectHandleGet
#define Int_doc "int32 [Sq3ValueC::Int $sq3val] (const)"
#define Int64_doc "int64 [Sq3ValueC::Int64 $sq3val] (const)"
// skip class-overload: Log → MkObjectLog
#define NoChange_doc "bool [Sq3ValueC::NoChange $sq3val] (const)"
#define NumericType_doc "Sq3TypeE [Sq3ValueC::NumericType $sq3val] (const)"
#define StringR_doc "string [Sq3ValueC::StringR $sq3val] (const)"
#define SubType_doc "int32 [Sq3ValueC::SubType $sq3val] (const)"
#define Text_doc "string [Sq3ValueC::Text $sq3val] (const)"
#define Type_doc "Sq3TypeE [Sq3ValueC::Type $sq3val] (const)"
 
// END-DOC - created by 'atl_MqS.tcl -i NHI1_HOME/theSq3Lite/c/gen/c_sq3lite.meta' - DO NOT change
 
/*****************************************************************************/
/*                                                                           */
/*                        O B J E C T                                        */
/*                                                                           */
/*****************************************************************************/
 
// BEGIN-Sq3ValueC - created by 'atl_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);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  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_ATL_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);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  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);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  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);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
// Sq3ValueC_Class_ATL_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);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
// Sq3ValueC_Class_ATL_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)));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  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)));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  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));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  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));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  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)));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  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));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  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)));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
// Sq3ValueC_Info_ATL_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);
    goto error;
  }
  OT_retObj_SET_VAL(retVal);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
// Sq3ValueC_TOR_ATL_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);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  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);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  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));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  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));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  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));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  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));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  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));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  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));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
// Sq3ValueC_Types_ATL_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);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  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);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
// Sq3ValueC_Vtab_ATL_API
 
// END-Sq3ValueC - created by 'atl_MqC.tcl -i NHI1_HOME/theSq3Lite/c/gen/c_sq3lite.meta' - DO NOT change
 
// ---------------------------------------------------------------------------------------
 
static const OtObjProcDefS NS(sOtClassDef)[] = {
  // BEGIN-CLASS - created by 'atl_MqS.tcl -i NHI1_HOME/theSq3Lite/c/gen/c_sq3lite.meta' - DO NOT change
 
  // doc-key: Sq3ValueC,Sq3Value,sc_
  { "::Sq3ValueC::GetNull"       , NS(Sq3ValueC_GetNull)       },
  { "::Sq3ValueC::HandleResolve" , NS(Sq3ValueC_HandleResolve) },
  { "::Sq3ValueC::Instances"     , NS(Sq3ValueC_Instances)     },
 
  // END-CLASS - created by 'atl_MqS.tcl -i NHI1_HOME/theSq3Lite/c/gen/c_sq3lite.meta' - DO NOT change
  { NULL }
};
 
// ---------------------------------------------------------------------------------------
 
static const OtObjProcDefS NS(sInstanceDef)[] = {
  // BEGIN-OBJ - created by 'atl_MqS.tcl -i NHI1_HOME/theSq3Lite/c/gen/c_sq3lite.meta' - DO NOT change
 
  // doc-key: Sq3ValueC,Sq3Value,oCx
  { "::Sq3ValueC::Dup"           , NS(Sq3ValueC_Dup)           },
 
  // doc-key: Sq3ValueC,Sq3Value,oc_
  { "::Sq3ValueC::BUF"           , NS(Sq3ValueC_BUF)           },
  { "::Sq3ValueC::Blob"          , NS(Sq3ValueC_Blob)          },
  { "::Sq3ValueC::Next"          , NS(Sq3ValueC_Next)          },
  { "::Sq3ValueC::Prev"          , NS(Sq3ValueC_Prev)          },
 
  // doc-key: Sq3ValueC,Sq3Value,oco
  { "::Sq3ValueC::VtabInFirst"   , NS(Sq3ValueC_VtabInFirst)   },
  { "::Sq3ValueC::VtabInNext"    , NS(Sq3ValueC_VtabInNext)    },
 
  // doc-key: Sq3ValueC,Sq3Value,om_
  { "::Sq3ValueC::BinaryR"       , NS(Sq3ValueC_BinaryR)       },
  { "::Sq3ValueC::Bytes"         , NS(Sq3ValueC_Bytes)         },
  { "::Sq3ValueC::Double"        , NS(Sq3ValueC_Double)        },
  { "::Sq3ValueC::Encoding"      , NS(Sq3ValueC_Encoding)      },
  { "::Sq3ValueC::FromBind"      , NS(Sq3ValueC_FromBind)      },
  // skip class-overload: HandleGet → MkObjectHandleGet
  { "::Sq3ValueC::Int"           , NS(Sq3ValueC_Int)           },
  { "::Sq3ValueC::Int64"         , NS(Sq3ValueC_Int64)         },
  // skip class-overload: Log → MkObjectLog
  { "::Sq3ValueC::NoChange"      , NS(Sq3ValueC_NoChange)      },
  { "::Sq3ValueC::NumericType"   , NS(Sq3ValueC_NumericType)   },
  { "::Sq3ValueC::StringR"       , NS(Sq3ValueC_StringR)       },
  { "::Sq3ValueC::SubType"       , NS(Sq3ValueC_SubType)       },
  { "::Sq3ValueC::Text"          , NS(Sq3ValueC_Text)          },
  { "::Sq3ValueC::Type"          , NS(Sq3ValueC_Type)          },
 
  // END-OBJ - created by 'atl_MqS.tcl -i NHI1_HOME/theSq3Lite/c/gen/c_sq3lite.meta' - DO NOT change
  { NULL }
};
 
 
int NS(pSq3ValueC_Init) ( OT_SQ3_ARGS OT_NS_T ns )
{
  ClassInit
  
  return TCL_OK;
error:
  return TCL_ERROR;
}