Sq3BlobC_tcl.c File Reference

tag: nhi1-release-250425 More...

#include "LibSq3Lite_private_tcl.h"

Include dependency graph for Sq3BlobC_tcl.c:

Go to the source code of this file.

Macros
#define	META_FILE_NAME   "Sq3BlobC_tcl.c"
#define	OT_CLASS   NS(Sq3BlobC)
#define	OT_CLASS_NAME   "Sq3BlobC"
#define	OBJECT2BLOB(O)
#define	OT_SETUP_hdl_static_constr_pre
#define	OT_SETUP_hdl_static_constr
#define	OT_SETUP_hdl_static
#define	OT_SETUP_hdl   SetupHdlFromMetaData_2(BLOB,SQ3_BLOB);
#define	OT_SETUP_hdl__null_allow   SetupHdlFromMetaData__null_allow_2(BLOB,SQ3_BLOB);
#define	OT_SETUP_hdl_destr   SetupHdlFromMetaData__null_allow_2(BLOB,SQ3_BLOB);
#define	OT_SETUP_hdl_constr_pre
#define	OT_SETUP_hdl_constr
#define	SetupRtFromHdl_XN(hdl)
#define	SetupRtFromHdl_X(hdl)
#define	ClassInit
#define	VER   TCL_OO_METHOD_VERSION_CURRENT
#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]"
#define	GetNull_doc   "Sq3BlobC [Sq3BlobC GetNull]"
#define	HandleResolve_doc   "Sq3BlobC [Sq3BlobC HandleResolve netHdl:MK_HDL]"
#define	Instances_doc   "Sq3BlobC [Sq3BlobC Instances]"
#define	Next_doc   "Sq3BlobC [$blob Next]"
#define	Prev_doc   "Sq3BlobC [$blob Prev]"
#define	Read_doc   "MkBufferC [$sq3blob Read Z_inout:MkBufferC iOffset:int32]"
#define	Bytes_doc   "int32 [$sq3blob Bytes]"
#define	Reopen_doc   "$sq3blob Reopen arg1:int64"
#define	Write_doc   "$sq3blob Write z:MkBufferC iOffset:int32"

Functions
static MK_PTR	tclsq3lite_Sq3BlobC_selfCreate (MK_RT mkrt, MK_OBJ const obj, MK_PTR const env)
static void	tclsq3lite_Sq3BlobC_selfDelete (MK_RT mkrt, MK_PTR selfP, MK_PTR const env)
static void	tclsq3lite_Sq3BlobC_selfUnlink (MK_RT mkrt, MK_PTR selfP, MK_PTR const env)
static OT_ProcRet	tclsq3lite_Sq3BlobC_HandleResolve (OtClass_ARGS)
	Tcl: (static) Sq3BlobC [Sq3BlobC HandleResolve netHdl:MK_HDL] → C-API Handle-Resolve-Slot - return a Sq3BlobC from netHdl or "MK_NULL" if invalid…
MK_DEPRECATED static MK_UNUSED OT_ProcRet	tclsq3lite_Sq3BlobC_HandleGet (Sq3BlobC_ARGS)
static OT_ProcRet	tclsq3lite_Sq3BlobC_Next (Sq3BlobC_ARGS)
	Tcl: Sq3BlobC [$blob Next] → C-API get next instance from linked-list of Sq3BlobS type
static OT_ProcRet	tclsq3lite_Sq3BlobC_Prev (Sq3BlobC_ARGS)
	Tcl: Sq3BlobC [$blob Prev] → C-API get previous instance from linked-list of Sq3BlobS type
static OT_ProcRet	tclsq3lite_Sq3BlobC_Instances (OtClass_ARGS)
	Tcl: (static) Sq3BlobC [Sq3BlobC Instances] → C-API get head-instance from linked-list of Sq3BlobS type …
static OT_ProcRet	tclsq3lite_Sq3BlobC_GetNull (OtClass_ARGS)
	Tcl: (static) Sq3BlobC [Sq3BlobC GetNull] → C-API Null-Slot - return a Sq3BlobC typed NULL instance …
static OT_ProcRet	tclsq3lite_Sq3BlobC_Read (Sq3BlobC_ARGS)
	Tcl: MkBufferC [$sq3blob Read Z_inout:MkBufferC iOffset:int32] → C-API Read Data From A BLOB Incrementally …
static OT_ProcRet	tclsq3lite_Sq3BlobC_Bytes (Sq3BlobC_ARGS)
	Tcl: int32 [$sq3blob Bytes] → C-API Return The Size Of An Open BLOB …
static OT_ProcRet	tclsq3lite_Sq3BlobC_Reopen (Sq3BlobC_ARGS)
	Tcl: $sq3blob Reopen arg1:int64 → C-API Move a BLOB Handle to a New Row …
static OT_ProcRet	tclsq3lite_Sq3BlobC_Write (Sq3BlobC_ARGS)
	Tcl: $sq3blob Write z:MkBufferC iOffset:int32 → C-API Write Data Into A BLOB Incrementally …
static OT_ProcRet	tclsq3lite_Sq3BlobC_CTOR (CONSTR_ARGS)
	Tcl: (constructor,static) Sq3BlobC [Sq3BlobC CTOR sq3lite:Sq3LiteC zDb:string zTable:string zColumn:string iRow:int64 flags:int32] → C-API Open A BLOB For Incremental I/O …
static OT_ProcRet	tclsq3lite_Sq3BlobC_Open (OtClass_ARGS)
	Tcl: (constructor,static) Sq3BlobC [Sq3BlobC Open sq3lite:Sq3LiteC zDb:string zTable:string zColumn:string iRow:int64 flags:int32] → C-API Open A BLOB For Incremental I/O …
int	tclsq3lite_pSq3BlobC_Init (MK_RT mkrt, Tcl_Interp *interp, Tcl_Namespace *ns)

Variables
__thread OT_CLS_T	OT_CLASS = NULL
static __thread MK_TYP	Sq3BlobCTT = NULL
__thread OT_OBJ_T	tclsq3lite_Sq3BlobC_MK_NULL = NULL
static Tcl_MethodType	tclsq3lite_sOtClassDef []
static Tcl_MethodType	tclsq3lite_sInstanceDef []

Detailed Description

tag: nhi1-release-250425

Copyright

(C) NHI - #1 - Project - Group This software has NO permission to copy, please contact AUTHOR for additional information

Definition in file Sq3BlobC_tcl.c.

Macro Definition Documentation

Bytes_doc

#define Bytes_doc   "int32 [$sq3blob Bytes]"

Definition at line 131 of file Sq3BlobC_tcl.c.

ClassInit

#define ClassInit

Value:

  /* if not already done, initialize NEW MQ 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 MQ-Class */ \
  Sq3BlobCTT->selfCreate    = NS(Sq3BlobC_selfCreate); \
  Sq3BlobCTT->selfDelete    = NS(Sq3BlobC_selfDelete); \
  Sq3BlobCTT->selfUnlink    = NS(Sq3BlobC_selfUnlink); \
 \
  /* create the TCL-class */ \
  OT_SELF_T classO = MK(ClassDef)(interp,ns,Sq3BlobCTT); \
  check_NULL(classO) goto error; \
  OT_CLASS = Tcl_GetObjectAsClass(classO); \
 \
  /* create the TCL static Methods */ \
  static MkThreadLocal OtUnknownS NS(sClassUnknown) = {OT_UNKNOWN_CLASS}; \
  check_LNG(MK(UnknownSetup) (interp,classO,NS(sOtClassDef),&NS(sClassUnknown))) goto error; \
 \
  /* create the TCL instance Methods */ \
  static MkThreadLocal OtUnknownS NS(sInstanceUnknown) = {OT_UNKNOWN_INSTANCE}; \
  check_LNG(MK(UnknownSetup) (interp,classO,NS(sInstanceDef),&NS(sInstanceUnknown))) goto error; \
 \
  /* define the "NULL" object */ \
  SQ3(Sq3BlobC_MK_NULL) = Tcl_GetObjectName(interp, \
    MK(AtomCreate) (MK_RT_CALL interp,  NULL /*obj*/, OT_CLASS, "MK_NULL" /*name*/, "::tclsq3lite::Sq3BlobC" /*ns*/) \
  ); \
  Tcl_IncrRefCount(SQ3(Sq3BlobC_MK_NULL));

Definition at line 77 of file Sq3BlobC_tcl.c.

#define   ClassInit \
  /* if not already done, initialize NEW MQ 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 MQ-Class */ \
  Sq3BlobCTT->selfCreate    = NS(Sq3BlobC_selfCreate); \
  Sq3BlobCTT->selfDelete    = NS(Sq3BlobC_selfDelete); \
  Sq3BlobCTT->selfUnlink    = NS(Sq3BlobC_selfUnlink); \
 \
  /* create the TCL-class */ \
  OT_SELF_T classO = MK(ClassDef)(interp,ns,Sq3BlobCTT); \
  check_NULL(classO) goto error; \
  OT_CLASS = Tcl_GetObjectAsClass(classO); \
 \
  /* create the TCL static Methods */ \
  static MkThreadLocal OtUnknownS NS(sClassUnknown) = {OT_UNKNOWN_CLASS}; \
  check_LNG(MK(UnknownSetup) (interp,classO,NS(sOtClassDef),&NS(sClassUnknown))) goto error; \
 \
  /* create the TCL instance Methods */ \
  static MkThreadLocal OtUnknownS NS(sInstanceUnknown) = {OT_UNKNOWN_INSTANCE}; \
  check_LNG(MK(UnknownSetup) (interp,classO,NS(sInstanceDef),&NS(sInstanceUnknown))) goto error; \
 \
  /* define the "NULL" object */ \
  SQ3(Sq3BlobC_MK_NULL) = Tcl_GetObjectName(interp, \
    MK(AtomCreate) (MK_RT_CALL interp,  NULL /*obj*/, OT_CLASS, "MK_NULL" /*name*/, "::tclsq3lite::Sq3BlobC" /*ns*/) \
  ); \
  Tcl_IncrRefCount(SQ3(Sq3BlobC_MK_NULL));

CTOR_doc

#define CTOR_doc   "Sq3BlobC [Sq3BlobC CTOR sq3lite:Sq3LiteC zDb:string zTable:string zColumn:string iRow:int64 flags:int32]"

Definition at line 115 of file Sq3BlobC_tcl.c.

GetNull_doc

#define GetNull_doc   "Sq3BlobC [Sq3BlobC GetNull]"

Definition at line 119 of file Sq3BlobC_tcl.c.

HandleResolve_doc

#define HandleResolve_doc   "Sq3BlobC [Sq3BlobC HandleResolve netHdl:MK_HDL]"

Definition at line 120 of file Sq3BlobC_tcl.c.

Instances_doc

#define Instances_doc   "Sq3BlobC [Sq3BlobC Instances]"

Definition at line 121 of file Sq3BlobC_tcl.c.

META_FILE_NAME

#define META_FILE_NAME   "Sq3BlobC_tcl.c"

Definition at line 11 of file Sq3BlobC_tcl.c.

Next_doc

#define Next_doc   "Sq3BlobC [$blob Next]"

Definition at line 124 of file Sq3BlobC_tcl.c.

OBJECT2BLOB

#define OBJECT2BLOB

(

O

)

Value:

MkAssertCastM(Sq3BlobC,(Tcl_ObjectGetMetadata(O, &MK(AtomMeta))))

Definition at line 18 of file Sq3BlobC_tcl.c.

Open_doc

#define Open_doc   "Sq3BlobC [Sq3BlobC Open sq3lite:Sq3LiteC zDb:string zTable:string zColumn:string iRow:int64 flags:int32]"

Definition at line 116 of file Sq3BlobC_tcl.c.

OT_CLASS

#define OT_CLASS   NS(Sq3BlobC)

Definition at line 15 of file Sq3BlobC_tcl.c.

OT_CLASS_NAME

#define OT_CLASS_NAME   "Sq3BlobC"

Definition at line 16 of file Sq3BlobC_tcl.c.

OT_SETUP_hdl

#define OT_SETUP_hdl   SetupHdlFromMetaData_2(BLOB,SQ3_BLOB);

Definition at line 59 of file Sq3BlobC_tcl.c.

OT_SETUP_hdl__null_allow

#define OT_SETUP_hdl__null_allow   SetupHdlFromMetaData__null_allow_2(BLOB,SQ3_BLOB);

Definition at line 60 of file Sq3BlobC_tcl.c.

OT_SETUP_hdl_constr

#define OT_SETUP_hdl_constr

Value:

  OT_SETUP_hdl_constr_pre; \
  int __skip=Tcl_ObjectContextSkippedArgs(objCtx); \
  AllRtSetup_NULL; \
  MK_RT_UNUSED OT_SELF_T selfO = Tcl_ObjectContextObject(objCtx); \
  SQ3_BLOB hdl = (SQ3_BLOB) &MkERROR;

Definition at line 64 of file Sq3BlobC_tcl.c.

#define   OT_SETUP_hdl_constr \
  OT_SETUP_hdl_constr_pre; \
  int __skip=Tcl_ObjectContextSkippedArgs(objCtx); \
  AllRtSetup_NULL; \
  MK_RT_UNUSED OT_SELF_T selfO = Tcl_ObjectContextObject(objCtx); \
  SQ3_BLOB hdl = (SQ3_BLOB) &MkERROR;

OT_SETUP_hdl_constr_pre

#define OT_SETUP_hdl_constr_pre

Definition at line 63 of file Sq3BlobC_tcl.c.

OT_SETUP_hdl_destr

#define OT_SETUP_hdl_destr   SetupHdlFromMetaData__null_allow_2(BLOB,SQ3_BLOB);

Definition at line 61 of file Sq3BlobC_tcl.c.

OT_SETUP_hdl_static

#define OT_SETUP_hdl_static

Value:

  int __skip=Tcl_ObjectContextSkippedArgs(objCtx); \
  AllRtSetup_NULL; \
  __attribute__((unused)) OT_SELF_T selfO = Tcl_ObjectContextObject(objCtx); \
  __attribute__((unused)) MK_TYP hdl = Sq3BlobC##_TT;

Definition at line 53 of file Sq3BlobC_tcl.c.

#define   OT_SETUP_hdl_static     \
  int __skip=Tcl_ObjectContextSkippedArgs(objCtx); \
  AllRtSetup_NULL; \
  __attribute__((unused)) OT_SELF_T selfO = Tcl_ObjectContextObject(objCtx); \
  __attribute__((unused)) MK_TYP hdl = Sq3BlobC##_TT;

OT_SETUP_hdl_static_constr

#define OT_SETUP_hdl_static_constr

Value:

  OT_SETUP_hdl_static_constr_pre; \
  OT_SETUP_hdl_static

Definition at line 49 of file Sq3BlobC_tcl.c.

#define   OT_SETUP_hdl_static_constr \
  OT_SETUP_hdl_static_constr_pre; \
  OT_SETUP_hdl_static

OT_SETUP_hdl_static_constr_pre

#define OT_SETUP_hdl_static_constr_pre

Definition at line 48 of file Sq3BlobC_tcl.c.

Prev_doc

#define Prev_doc   "Sq3BlobC [$blob Prev]"

Definition at line 125 of file Sq3BlobC_tcl.c.

Read_doc

#define Read_doc   "MkBufferC [$sq3blob Read Z_inout:MkBufferC iOffset:int32]"

Definition at line 128 of file Sq3BlobC_tcl.c.

Reopen_doc

#define Reopen_doc   "$sq3blob Reopen arg1:int64"

Definition at line 133 of file Sq3BlobC_tcl.c.

SetupRtFromHdl_X

#define SetupRtFromHdl_X

(

hdl

)

Value:

AllRtSetup_X(hdl)

Definition at line 73 of file Sq3BlobC_tcl.c.

SetupRtFromHdl_XN

#define SetupRtFromHdl_XN

(

hdl

)

Value:

AllRtSetup_XN(hdl)

Definition at line 72 of file Sq3BlobC_tcl.c.

VER

#define VER   TCL_OO_METHOD_VERSION_CURRENT

Definition at line 108 of file Sq3BlobC_tcl.c.

Write_doc

#define Write_doc   "$sq3blob Write z:MkBufferC iOffset:int32"

Definition at line 134 of file Sq3BlobC_tcl.c.

Function Documentation

tclsq3lite_pSq3BlobC_Init()

int tclsq3lite_pSq3BlobC_Init	(	MK_RT	mkrt,
		Tcl_Interp *	interp,
		Tcl_Namespace *	ns )

Public API

Definition at line 455 of file Sq3BlobC_tcl.c.

{
  ClassInit
  
  return TCL_OK;
error:
  return TCL_ERROR;
}

tclsq3lite_Sq3BlobC_selfCreate()

static MK_PTR tclsq3lite_Sq3BlobC_selfCreate ( MK_RT mkrt, MK_OBJ const obj, MK_PTR const env )

static

Definition at line 28 of file Sq3BlobC_tcl.c.

                                                                                      {
  OT_ENV_T interp = env;
  return MK(AtomCreate) (MK_RT_CALL interp,obj,OT_CLASS,NULL,NULL);
}

tclsq3lite_Sq3BlobC_selfDelete()

static void tclsq3lite_Sq3BlobC_selfDelete ( MK_RT mkrt, MK_PTR selfP, MK_PTR const env )

static

Definition at line 33 of file Sq3BlobC_tcl.c.

                                                                                {
  OT_SELF_T selfO = selfP;
  OT_ENV_T  interp = env;
  MK(AtomDeleteHard) (MK_RT_CALL interp, selfO);
}

tclsq3lite_Sq3BlobC_selfUnlink()

static void tclsq3lite_Sq3BlobC_selfUnlink ( MK_RT mkrt, MK_PTR selfP, MK_PTR const env )

static

Definition at line 39 of file Sq3BlobC_tcl.c.

                                                                                {
  OT_SELF_T selfO = selfP;
  OT_ENV_T  interp = env;
  MK(AtomUnlink) (MK_RT_CALL interp, selfO);
}

Variable Documentation

OT_CLASS

__thread OT_CLS_T OT_CLASS = NULL

Definition at line 21 of file Sq3BlobC_tcl.c.

Sq3BlobCTT

__thread MK_TYP Sq3BlobCTT = NULL

static

Definition at line 24 of file Sq3BlobC_tcl.c.

tclsq3lite_sInstanceDef

Tcl_MethodType tclsq3lite_sInstanceDef[]

static

Initial value:

= {
 
 
 
  {VER, "<constructor>"       ,  tclsq3lite_Sq3BlobC_CTOR , NULL, NULL},
 
 
  {VER, "Next"                ,  tclsq3lite_Sq3BlobC_Next , NULL, NULL},
  {VER, "Prev"                ,  tclsq3lite_Sq3BlobC_Prev , NULL, NULL},
 
 
  {VER, "Read"                ,  tclsq3lite_Sq3BlobC_Read , NULL, NULL},
 
 
  {VER, "Bytes"               ,  tclsq3lite_Sq3BlobC_Bytes , NULL, NULL},
  
  {VER, "Reopen"              ,  tclsq3lite_Sq3BlobC_Reopen , NULL, NULL},
  {VER, "Write"               ,  tclsq3lite_Sq3BlobC_Write , NULL, NULL},
 
 
  {0, NULL, NULL, NULL, NULL}
}

Definition at line 426 of file Sq3BlobC_tcl.c.

                                           {
// BEGIN-OBJ - created by 'tcl_MqS.tcl -i NHI1_HOME/theSq3Lite/c/gen/c_sq3lite.meta' - DO NOT change
 
// doc-key: Sq3BlobC,Sq3Blob,oC_
  {VER, "<constructor>"       , NS(Sq3BlobC_CTOR)                       , NULL, NULL},
 
// doc-key: Sq3BlobC,Sq3Blob,oc_
  {VER, "Next"                , NS(Sq3BlobC_Next)                       , NULL, NULL},
  {VER, "Prev"                , NS(Sq3BlobC_Prev)                       , NULL, NULL},
 
// doc-key: Sq3BlobC,Sq3Blob,oci
  {VER, "Read"                , NS(Sq3BlobC_Read)                       , NULL, NULL},
 
// doc-key: Sq3BlobC,Sq3Blob,om_
  {VER, "Bytes"               , NS(Sq3BlobC_Bytes)                      , NULL, NULL},
  // skip class-overload: Sq3BlobHandleGet → HandleGet, NS(Sq3BlobC_HandleGet)
  {VER, "Reopen"              , NS(Sq3BlobC_Reopen)                     , NULL, NULL},
  {VER, "Write"               , NS(Sq3BlobC_Write)                      , NULL, NULL},
 
// END-OBJ - created by 'tcl_MqS.tcl -i NHI1_HOME/theSq3Lite/c/gen/c_sq3lite.meta' - DO NOT change
  {0, NULL, NULL, NULL, NULL}
};

tclsq3lite_sOtClassDef

Tcl_MethodType tclsq3lite_sOtClassDef[]

static

Initial value:

= {
 
 
 
  {VER, "Open"                ,  tclsq3lite_Sq3BlobC_Open , NULL, NULL},
 
 
  {VER, "GetNull"             ,  tclsq3lite_Sq3BlobC_GetNull , NULL, NULL},
  {VER, "HandleResolve"       ,  tclsq3lite_Sq3BlobC_HandleResolve , NULL, NULL},
  {VER, "Instances"           ,  tclsq3lite_Sq3BlobC_Instances , NULL, NULL},
 
 
  {0, NULL, NULL, NULL}
}

Definition at line 409 of file Sq3BlobC_tcl.c.

                                          {
// BEGIN-CLASS - created by 'tcl_MqS.tcl -i NHI1_HOME/theSq3Lite/c/gen/c_sq3lite.meta' - DO NOT change
 
// doc-key: Sq3BlobC,Sq3Blob,sCo
  {VER, "Open"                , NS(Sq3BlobC_Open)                       , NULL, NULL},
 
// doc-key: Sq3BlobC,Sq3Blob,sc_
  {VER, "GetNull"             , NS(Sq3BlobC_GetNull)                    , NULL, NULL},
  {VER, "HandleResolve"       , NS(Sq3BlobC_HandleResolve)              , NULL, NULL},
  {VER, "Instances"           , NS(Sq3BlobC_Instances)                  , NULL, NULL},
 
// END-CLASS - created by 'tcl_MqS.tcl -i NHI1_HOME/theSq3Lite/c/gen/c_sq3lite.meta' - DO NOT change
  {0, NULL, NULL, NULL}
};

tclsq3lite_Sq3BlobC_MK_NULL

__thread OT_OBJ_T tclsq3lite_Sq3BlobC_MK_NULL = NULL

Definition at line 25 of file Sq3BlobC_tcl.c.