Sq3FileC_tcl.c File Reference

Sq3FileC_tcl.c - 12 Mar 2025 - aotto1968. More...

#include "LibSq3Lite_private_tcl.h"

Include dependency graph for Sq3FileC_tcl.c:

Go to the source code of this file.

Macros
#define	META_FILE_NAME   "Sq3FileC_tcl.c"
#define	OT_CLASS   NS(Sq3FileC)
#define	OT_CLASS_NAME   "Sq3FileC"
#define	OBJECT2FILE(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(FILE,SQ3_FILE);
#define	OT_SETUP_hdl__null_allow   SetupHdlFromMetaData__null_allow_2(FILE,SQ3_FILE);
#define	OT_SETUP_hdl_destr   SetupHdlFromMetaData__null_allow_2(FILE,SQ3_FILE);
#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	DatabaseObject_doc   "Sq3FileC [Sq3FileC DatabaseObject X:string]"
#define	GetNull_doc   "Sq3FileC [Sq3FileC GetNull]"
#define	HandleResolve_doc   "Sq3FileC [Sq3FileC HandleResolve netHdl:MK_HDL]"
#define	Instances_doc   "Sq3FileC [Sq3FileC Instances]"
#define	Next_doc   "Sq3FileC [$file Next]"
#define	Prev_doc   "Sq3FileC [$file Prev]"

Functions
static MK_PTR	tclsq3lite_Sq3FileC_selfCreate (MK_RT mkrt, MK_OBJ const obj, MK_PTR const env)
static void	tclsq3lite_Sq3FileC_selfDelete (MK_RT mkrt, MK_PTR selfP, MK_PTR const env)
static void	tclsq3lite_Sq3FileC_selfUnlink (MK_RT mkrt, MK_PTR selfP, MK_PTR const env)
static OT_ProcRet	tclsq3lite_Sq3FileC_HandleResolve (OtClass_ARGS)
	Tcl: (static) Sq3FileC [Sq3FileC HandleResolve netHdl:MK_HDL] → C-API Handle-Resolve-Slot - return a Sq3FileC from netHdl or "MK_NULL" if invalid…
MK_DEPRECATED static MK_UNUSED OT_ProcRet	tclsq3lite_Sq3FileC_HandleGet (Sq3FileC_ARGS)
static OT_ProcRet	tclsq3lite_Sq3FileC_Next (Sq3FileC_ARGS)
	Tcl: Sq3FileC [$file Next] → C-API get next instance from linked-list of Sq3FileS type
static OT_ProcRet	tclsq3lite_Sq3FileC_Prev (Sq3FileC_ARGS)
	Tcl: Sq3FileC [$file Prev] → C-API get previous instance from linked-list of Sq3FileS type
static OT_ProcRet	tclsq3lite_Sq3FileC_Instances (OtClass_ARGS)
	Tcl: (static) Sq3FileC [Sq3FileC Instances] → C-API get head-instance from linked-list of Sq3FileS type …
static OT_ProcRet	tclsq3lite_Sq3FileC_GetNull (OtClass_ARGS)
	Tcl: (static) Sq3FileC [Sq3FileC GetNull] → C-API Null-Slot - return a Sq3FileC typed NULL instance …
static OT_ProcRet	tclsq3lite_Sq3FileC_DatabaseObject (OtClass_ARGS)
	Tcl: (constructor,static) Sq3FileC [Sq3FileC DatabaseObject X:string] → C-API Database File Corresponding To A Journal …
int	tclsq3lite_pSq3FileC_Init (MK_RT mkrt, Tcl_Interp *interp, Tcl_Namespace *ns)

Variables
__thread OT_CLS_T	OT_CLASS = NULL
static __thread MK_TYP	Sq3FileCTT = NULL
__thread OT_OBJ_T	tclsq3lite_Sq3FileC_MK_NULL = NULL
static Tcl_MethodType	tclsq3lite_sOtClassDef []
static Tcl_MethodType	tclsq3lite_sInstanceDef []

Detailed Description

Sq3FileC_tcl.c - 12 Mar 2025 - aotto1968.

Copyright

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

Version

27df4f51056601c5fffd322f1211a911f852ff1b

Date

Wed Mar 12 22:58:17 2025 +0100

Author

aotto1968 aotto.nosp@m.1968.nosp@m.@t-on.nosp@m.line.nosp@m..de

Definition in file Sq3FileC_tcl.c.

Macro Definition Documentation

ClassInit

#define ClassInit

Value:

  /* if not already done, initialize NEW MQ type */ \
  if (Sq3FileCTT == NULL) Sq3FileCTT = Sq3FileSTT; \
 \
  /* protect against double call */ \
  if (Sq3FileCTT->selfCreate == NS(Sq3FileC_selfCreate)) return MK_OK; \
 \
  /* add "selfCreate" and "selfDelete" feature to the MQ-Class */ \
  Sq3FileCTT->selfCreate    = NS(Sq3FileC_selfCreate); \
  Sq3FileCTT->selfDelete    = NS(Sq3FileC_selfDelete); \
  Sq3FileCTT->selfUnlink    = NS(Sq3FileC_selfUnlink); \
 \
  /* create the TCL-class */ \
  OT_SELF_T classO = MK(ClassDef)(interp,ns,Sq3FileCTT); \
  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(Sq3FileC_MK_NULL) = Tcl_GetObjectName(interp, \
    MK(AtomCreate) (MK_RT_CALL interp,  NULL /*obj*/, OT_CLASS, "MK_NULL" /*name*/, "::tclsq3lite::Sq3FileC" /*ns*/) \
  ); \
  Tcl_IncrRefCount(SQ3(Sq3FileC_MK_NULL));

Definition at line 80 of file Sq3FileC_tcl.c.

#define   ClassInit \
  /* if not already done, initialize NEW MQ type */ \
  if (Sq3FileCTT == NULL) Sq3FileCTT = Sq3FileSTT; \
 \
  /* protect against double call */ \
  if (Sq3FileCTT->selfCreate == NS(Sq3FileC_selfCreate)) return MK_OK; \
 \
  /* add "selfCreate" and "selfDelete" feature to the MQ-Class */ \
  Sq3FileCTT->selfCreate    = NS(Sq3FileC_selfCreate); \
  Sq3FileCTT->selfDelete    = NS(Sq3FileC_selfDelete); \
  Sq3FileCTT->selfUnlink    = NS(Sq3FileC_selfUnlink); \
 \
  /* create the TCL-class */ \
  OT_SELF_T classO = MK(ClassDef)(interp,ns,Sq3FileCTT); \
  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(Sq3FileC_MK_NULL) = Tcl_GetObjectName(interp, \
    MK(AtomCreate) (MK_RT_CALL interp,  NULL /*obj*/, OT_CLASS, "MK_NULL" /*name*/, "::tclsq3lite::Sq3FileC" /*ns*/) \
  ); \
  Tcl_IncrRefCount(SQ3(Sq3FileC_MK_NULL));

DatabaseObject_doc

#define DatabaseObject_doc   "Sq3FileC [Sq3FileC DatabaseObject X:string]"

Definition at line 118 of file Sq3FileC_tcl.c.

GetNull_doc

#define GetNull_doc   "Sq3FileC [Sq3FileC GetNull]"

Definition at line 121 of file Sq3FileC_tcl.c.

HandleResolve_doc

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

Definition at line 122 of file Sq3FileC_tcl.c.

Instances_doc

#define Instances_doc   "Sq3FileC [Sq3FileC Instances]"

Definition at line 123 of file Sq3FileC_tcl.c.

META_FILE_NAME

#define META_FILE_NAME   "Sq3FileC_tcl.c"

Definition at line 14 of file Sq3FileC_tcl.c.

Next_doc

#define Next_doc   "Sq3FileC [$file Next]"

Definition at line 126 of file Sq3FileC_tcl.c.

OBJECT2FILE

#define OBJECT2FILE

(

O

)

Value:

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

Definition at line 21 of file Sq3FileC_tcl.c.

OT_CLASS

#define OT_CLASS   NS(Sq3FileC)

Definition at line 18 of file Sq3FileC_tcl.c.

OT_CLASS_NAME

#define OT_CLASS_NAME   "Sq3FileC"

Definition at line 19 of file Sq3FileC_tcl.c.

OT_SETUP_hdl

#define OT_SETUP_hdl   SetupHdlFromMetaData_2(FILE,SQ3_FILE);

Definition at line 62 of file Sq3FileC_tcl.c.

OT_SETUP_hdl__null_allow

#define OT_SETUP_hdl__null_allow   SetupHdlFromMetaData__null_allow_2(FILE,SQ3_FILE);

Definition at line 63 of file Sq3FileC_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_FILE hdl = (SQ3_FILE) &MkERROR;

Definition at line 67 of file Sq3FileC_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_FILE hdl = (SQ3_FILE) &MkERROR;

OT_SETUP_hdl_constr_pre

#define OT_SETUP_hdl_constr_pre

Definition at line 66 of file Sq3FileC_tcl.c.

OT_SETUP_hdl_destr

#define OT_SETUP_hdl_destr   SetupHdlFromMetaData__null_allow_2(FILE,SQ3_FILE);

Definition at line 64 of file Sq3FileC_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 = Sq3FileC##_TT;

Definition at line 56 of file Sq3FileC_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 = Sq3FileC##_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 52 of file Sq3FileC_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 51 of file Sq3FileC_tcl.c.

Prev_doc

#define Prev_doc   "Sq3FileC [$file Prev]"

Definition at line 127 of file Sq3FileC_tcl.c.

SetupRtFromHdl_X

#define SetupRtFromHdl_X

(

hdl

)

Value:

AllRtSetup_X(hdl)

Definition at line 76 of file Sq3FileC_tcl.c.

SetupRtFromHdl_XN

#define SetupRtFromHdl_XN

(

hdl

)

Value:

AllRtSetup_XN(hdl)

Definition at line 75 of file Sq3FileC_tcl.c.

VER

#define VER   TCL_OO_METHOD_VERSION_CURRENT

Definition at line 111 of file Sq3FileC_tcl.c.

Function Documentation

tclsq3lite_pSq3FileC_Init()

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

Public API

Definition at line 319 of file Sq3FileC_tcl.c.

{
  ClassInit
  
  return TCL_OK;
error:
  return TCL_ERROR;
}

tclsq3lite_Sq3FileC_selfCreate()

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

static

Definition at line 31 of file Sq3FileC_tcl.c.

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

tclsq3lite_Sq3FileC_selfDelete()

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

static

Definition at line 36 of file Sq3FileC_tcl.c.

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

tclsq3lite_Sq3FileC_selfUnlink()

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

static

Definition at line 42 of file Sq3FileC_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 24 of file Sq3FileC_tcl.c.

Sq3FileCTT

__thread MK_TYP Sq3FileCTT = NULL

static

Definition at line 27 of file Sq3FileC_tcl.c.

tclsq3lite_sInstanceDef

Tcl_MethodType tclsq3lite_sInstanceDef[]

static

Initial value:

= {
 
 
 
  {VER, "Next"                ,  tclsq3lite_Sq3FileC_Next , NULL, NULL},
  {VER, "Prev"                ,  tclsq3lite_Sq3FileC_Prev , NULL, NULL},
 
 
  
 
 
  {0, NULL, NULL, NULL, NULL}
}

Definition at line 299 of file Sq3FileC_tcl.c.

                                           {
// BEGIN-OBJ - created by 'tcl_MqS.tcl -i NHI1_HOME/theSq3Lite/c/gen/c_sq3lite.meta' - DO NOT change
 
// doc-key: Sq3FileC,Sq3File,oc_
  {VER, "Next"                , NS(Sq3FileC_Next)                       , NULL, NULL},
  {VER, "Prev"                , NS(Sq3FileC_Prev)                       , NULL, NULL},
 
// doc-key: Sq3FileC,Sq3File,om_
  // skip class-overload: Sq3FileHandleGet → HandleGet, NS(Sq3FileC_HandleGet)
 
// 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, "DatabaseObject"      ,  tclsq3lite_Sq3FileC_DatabaseObject , NULL, NULL},
 
 
  {VER, "GetNull"             ,  tclsq3lite_Sq3FileC_GetNull , NULL, NULL},
  {VER, "HandleResolve"       ,  tclsq3lite_Sq3FileC_HandleResolve , NULL, NULL},
  {VER, "Instances"           ,  tclsq3lite_Sq3FileC_Instances , NULL, NULL},
 
 
  {0, NULL, NULL, NULL}
}

Definition at line 282 of file Sq3FileC_tcl.c.

                                          {
// BEGIN-CLASS - created by 'tcl_MqS.tcl -i NHI1_HOME/theSq3Lite/c/gen/c_sq3lite.meta' - DO NOT change
 
// doc-key: Sq3FileC,Sq3File,sCc
  {VER, "DatabaseObject"      , NS(Sq3FileC_DatabaseObject)             , NULL, NULL},
 
// doc-key: Sq3FileC,Sq3File,sc_
  {VER, "GetNull"             , NS(Sq3FileC_GetNull)                    , NULL, NULL},
  {VER, "HandleResolve"       , NS(Sq3FileC_HandleResolve)              , NULL, NULL},
  {VER, "Instances"           , NS(Sq3FileC_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_Sq3FileC_MK_NULL

__thread OT_OBJ_T tclsq3lite_Sq3FileC_MK_NULL = NULL

Definition at line 28 of file Sq3FileC_tcl.c.