Sq3BlobC_atl.c

Go to the documentation of this file.

 
/* LABEL-START */
 
#define   META_FILE_NAME      "Sq3BlobC_atl.c"
 
#include  "LibSq3Lite_private_atl.h"
 
#define   OT_CLASS            asq3rt->AtlSq3BlobC
#define   OT_NULL             asq3rt->AtlSq3BlobC_MK_NULL
#define   OT_CLASS_NAME       "Sq3BlobC"
 
#define   SELF2HDL(O)         Sq3Blob(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(Sq3BlobC_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(Sq3BlobC_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(Sq3BlobC_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_BLOB)
#define OT_SETUP_hdl__null_allow      SetupHdlFromMetaData__null_allow_2(SQ3_BLOB)
#define OT_SETUP_hdl_destr            SetupHdlFromMetaData__null_allow_2(SQ3_BLOB)
#define OT_SETUP_hdl_constr           SetupHdlConstr(Sq3BlobC)
#define OT_SETUP_hdl_static_constr    OT_SETUP_hdl_static
#define OT_SETUP_hdl_static           SetupHdlStatic(Sq3BlobC)
 
#define OT_retObj_CONSTR(x)           OT_retObj_SET(AtomInit(OT_SELF,Sq3BlobC_X2obj(x),asq3rt))
 
// initialize the ATL and META class specific object
#define   ClassInit \
  /* if not already done, initialize NEW META type */ \
  if (Sq3BlobCTT == NULL) Sq3BlobCTT = Sq3BlobSTT; \
 \
  /* protect against double call */ \
  if (Sq3BlobCTT->selfCreate == NS(Sq3BlobC_selfCreate)) return MK_OK; \
 \
  /* add "selfCreate" and "selfDelete" feature to the META-Class */ \
  Sq3BlobCTT->selfCreate    = NS(Sq3BlobC_selfCreate); \
  Sq3BlobCTT->selfDelete    = NS(Sq3BlobC_selfDelete); \
  Sq3BlobCTT->selfUnlink    = NS(Sq3BlobC_selfUnlink); \
 \
  /* create the ATL-class */ \
  OT_CLASS = AltClassDef(Sq3BlobCTT,&asq3rt->AtlSq3BlobC_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, "::Sq3BlobC::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: Sq3BlobC,Sq3Blob,sCo,func
#define CTOR_doc "Sq3BlobC [Sq3BlobC::CTOR sq3lite:Sq3LiteC zDb:string zTable:string zColumn:string iRow:int64 flags:int32]"
#define Open_doc "Sq3BlobC [Sq3BlobC::Open sq3lite:Sq3LiteC zDb:string zTable:string zColumn:string iRow:int64 flags:int32]"
 
// doc-key: Sq3BlobC,Sq3Blob,sc_,func
#define GetNull_doc "Sq3BlobC [Sq3BlobC::GetNull]"
#define HandleResolve_doc "Sq3BlobC [Sq3BlobC::HandleResolve netHdl:MK_HDL]"
#define Instances_doc "Sq3BlobC [Sq3BlobC::Instances]"
 
// doc-key: Sq3BlobC,Sq3Blob,oc_,func
#define Next_doc "Sq3BlobC [Sq3BlobC::Next $blob]"
#define Prev_doc "Sq3BlobC [Sq3BlobC::Prev $blob]"
 
// doc-key: Sq3BlobC,Sq3Blob,oci,func
#define Read_doc "MkBufferC [Sq3BlobC::Read $sq3blob Z_inout:MkBufferC iOffset:int32]"
 
// doc-key: Sq3BlobC,Sq3Blob,om_,func
#define Bytes_doc "int32 [Sq3BlobC::Bytes $sq3blob]"
// skip class-overload: HandleGet → MkObjectHandleGet
#define Reopen_doc "Sq3BlobC::Reopen $sq3blob arg1:int64"
#define Write_doc "Sq3BlobC::Write $sq3blob z:MkBufferC iOffset:int32"
 
// END-DOC - created by 'atl_MqS.tcl -i NHI1_HOME/theSq3Lite/c/gen/c_sq3lite.meta' - DO NOT change
 
/*****************************************************************************/
/*                                                                           */
/*                       C O N / D E - S T R U C T O R                       */
/*                                                                           */
/*****************************************************************************/
 
 
/*****************************************************************************/
/*                                                                           */
/*                        O B J E C T                                        */
/*                                                                           */
/*****************************************************************************/
 
// BEGIN-Sq3BlobC - created by 'atl_MqC.tcl -i NHI1_HOME/theSq3Lite/c/gen/c_sq3lite.meta' - DO NOT change
 
 
// doc-key: Sq3BlobC,Sq3BlobC-Class-Export,sc_
 
static OT_ProcRet NS(Sq3BlobC_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_BLOB retVal = Sq3BlobHandleResolve (netHdl);
  OT_retObj_SET_BLOB(retVal);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
// doc-key: Sq3BlobC,Sq3BlobC-Class-Export,om_
 
// skip on class-overload: Sq3BlobHandleGet → MkObjectHandleGet
MK_DEPRECATED MK_UNUSED
static OT_ProcRet NS(Sq3BlobC_HandleGet) (Sq3BlobC_ARGS) {OT_ERROR_LNG_RETURN;}
 
// Sq3BlobC_Class_ATL_API
 
 
// doc-key: Sq3BlobC,Sq3BlobC-Class-Introspection,oc_
 
static OT_ProcRet NS(Sq3BlobC_Next) (Sq3BlobC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(Next_doc);
  OT_CHECK_NOARGS;
  SQ3_BLOB retVal = Sq3BlobNext (hdl);
  OT_retObj_SET_BLOB(retVal);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(Sq3BlobC_Prev) (Sq3BlobC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(Prev_doc);
  OT_CHECK_NOARGS;
  SQ3_BLOB retVal = Sq3BlobPrev (hdl);
  OT_retObj_SET_BLOB(retVal);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
// doc-key: Sq3BlobC,Sq3BlobC-Class-Introspection,sc_
 
static OT_ProcRet NS(Sq3BlobC_Instances) (OtClass_ARGS) {
  OT_SETUP_hdl_static;
  OT_SETUP_NOARG(Instances_doc);
  OT_CHECK_NOARGS;
  SQ3_BLOB retVal = Sq3BlobInstances ();
  OT_retObj_SET_BLOB(retVal);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
// Sq3BlobC_Class_ATL_API
 
 
// doc-key: Sq3BlobC,Sq3BlobC-Class-Misc,sc_
 
static OT_ProcRet NS(Sq3BlobC_GetNull) (OtClass_ARGS) {
  OT_SETUP_hdl_static;
  OT_SETUP_NOARG(GetNull_doc);
  OT_CHECK_NOARGS;
  SQ3_BLOB retVal = Sq3BlobGetNull ();
  OT_retObj_SET_BLOB(retVal);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
// Sq3BlobC_Class_ATL_API
 
 
// doc-key: Sq3BlobC,Sq3BlobC-Misc,oci
 
static OT_ProcRet NS(Sq3BlobC_Read) (Sq3BlobC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_VARARGS(1,2,Read_doc);
  MK_BUF Z_inout = NULL;
  OT_CHECK_OPTIONAL(OT_CHECK_BUF (Z_inout,MK_NULL_YES))
  MK_I32 iOffset = 0;
  OT_CHECK_REQUIRED(OT_CHECK_NI4 (iOffset))
  OT_CHECK_NOARGS;
  MkErrorC_Check(hdl,Sq3BlobRead (hdl, &Z_inout, iOffset));
  OT_retObj_SET_BUF(Z_inout);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
// doc-key: Sq3BlobC,Sq3BlobC-Misc,om_
 
static OT_ProcRet NS(Sq3BlobC_Bytes) (Sq3BlobC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(Bytes_doc);
  OT_CHECK_NOARGS;
  OT_retObj_SET_I32(Sq3BlobBytes (hdl));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(Sq3BlobC_Reopen) (Sq3BlobC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_ONEARG(Reopen_doc);
  MK_I64 arg1 = 0;
  OT_CHECK_REQUIRED(OT_CHECK_NI8 (arg1))
  OT_CHECK_NOARGS;
  MkErrorC_Check(hdl,Sq3BlobReopen (hdl, arg1));
  OT_retObj_SET_None;
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(Sq3BlobC_Write) (Sq3BlobC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_VARARGS(2,2,Write_doc);
  MK_BUF z = 0;
  OT_CHECK_REQUIRED(OT_CHECK_BUF (z,MK_NULL_NO))
  MK_I32 iOffset = 0;
  OT_CHECK_REQUIRED(OT_CHECK_NI4 (iOffset))
  OT_CHECK_NOARGS;
  MkErrorC_Check(hdl,Sq3BlobWrite (hdl, z, iOffset));
  OT_retObj_SET_None;
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
// Sq3BlobC_Misc_ATL_API
 
 
// doc-key: Sq3BlobC,Sq3BlobC-TOR,sCo
 
static OT_ProcRet NS(Sq3BlobC_CTOR) (CONSTR_ARGS) {
  OT_SETUP_hdl_constr;
  OT_SETUP_CONSTRUCTOR_ARGS(6,6,CTOR_doc);
  SQ3_LITE sq3lite = 0;
  OT_CHECK_REQUIRED(OT_CHECK_LITE (sq3lite,MK_NULL_NO))
  MK_STRN zDb = 0;
  OT_CHECK_REQUIRED(OT_CHECK_STRN (zDb))
  MK_STRN zTable = 0;
  OT_CHECK_REQUIRED(OT_CHECK_STRN (zTable))
  MK_STRN zColumn = 0;
  OT_CHECK_REQUIRED(OT_CHECK_STRN (zColumn))
  MK_I64 iRow = 0;
  OT_CHECK_REQUIRED(OT_CHECK_NI8 (iRow))
  MK_I32 flags = 0;
  OT_CHECK_REQUIRED(OT_CHECK_NI4 (flags))
  SQ3_BLOB ppBlob;
  MkErrorC_Check(sq3lite,Sq3BlobOpen (sq3lite, zDb, zTable, zColumn, iRow, flags, &ppBlob));
  OT_CONSTRUCTOR_POST(ppBlob)
  OT_retObj_CONSTR(ppBlob);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(Sq3BlobC_Open) (OtClass_ARGS) {
  OT_SETUP_hdl_static_constr;
  OT_SETUP_VARARGS(6,6,Open_doc);
  SQ3_LITE sq3lite = 0;
  OT_CHECK_REQUIRED(OT_CHECK_LITE (sq3lite,MK_NULL_NO))
  MK_STRN zDb = 0;
  OT_CHECK_REQUIRED(OT_CHECK_STRN (zDb))
  MK_STRN zTable = 0;
  OT_CHECK_REQUIRED(OT_CHECK_STRN (zTable))
  MK_STRN zColumn = 0;
  OT_CHECK_REQUIRED(OT_CHECK_STRN (zColumn))
  MK_I64 iRow = 0;
  OT_CHECK_REQUIRED(OT_CHECK_NI8 (iRow))
  MK_I32 flags = 0;
  OT_CHECK_REQUIRED(OT_CHECK_NI4 (flags))
  OT_CHECK_NOARGS;
  SQ3_BLOB ppBlob;
  MkErrorC_Check(sq3lite,Sq3BlobOpen (sq3lite, zDb, zTable, zColumn, iRow, flags, &ppBlob));
  OT_CONSTRUCTOR_POST(ppBlob)
  OT_retObj_SET_BLOB(ppBlob);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
// Sq3BlobC_TOR_ATL_API
 
// END-Sq3BlobC - 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: Sq3BlobC,Sq3Blob,sCo
  { "::Sq3BlobC::Open"          , NS(Sq3BlobC_Open)          },
 
  // doc-key: Sq3BlobC,Sq3Blob,sc_
  { "::Sq3BlobC::GetNull"       , NS(Sq3BlobC_GetNull)       },
  { "::Sq3BlobC::HandleResolve" , NS(Sq3BlobC_HandleResolve) },
  { "::Sq3BlobC::Instances"     , NS(Sq3BlobC_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: Sq3BlobC,Sq3Blob,oC_
  { "::Sq3BlobC::Sq3BlobC"      , NS(Sq3BlobC_CTOR)          },
 
  // doc-key: Sq3BlobC,Sq3Blob,oc_
  { "::Sq3BlobC::Next"          , NS(Sq3BlobC_Next)          },
  { "::Sq3BlobC::Prev"          , NS(Sq3BlobC_Prev)          },
 
  // doc-key: Sq3BlobC,Sq3Blob,oci
  { "::Sq3BlobC::Read"          , NS(Sq3BlobC_Read)          },
 
  // doc-key: Sq3BlobC,Sq3Blob,om_
  { "::Sq3BlobC::Bytes"         , NS(Sq3BlobC_Bytes)         },
  // skip class-overload: HandleGet → MkObjectHandleGet
  { "::Sq3BlobC::Reopen"        , NS(Sq3BlobC_Reopen)        },
  { "::Sq3BlobC::Write"         , NS(Sq3BlobC_Write)         },
 
  // END-OBJ - created by 'atl_MqS.tcl -i NHI1_HOME/theSq3Lite/c/gen/c_sq3lite.meta' - DO NOT change
  { NULL }
};
 
 
int NS(pSq3BlobC_Init) ( OT_SQ3_ARGS OT_NS_T ns )
{
  ClassInit
  
  return TCL_OK;
error:
  return TCL_ERROR;
}