Sq3FileC_atl.c File Reference

tag: nhi1-release-250425 More...

#include "LibSq3Lite_private_atl.h"

Include dependency graph for Sq3FileC_atl.c:

Go to the source code of this file.

Macros
#define	META_FILE_NAME   "Sq3FileC_atl.c"
#define	OT_CLASS   asq3rt->AtlSq3FileC
#define	OT_NULL   asq3rt->AtlSq3FileC_MK_NULL
#define	OT_CLASS_NAME   "Sq3FileC"
#define	SELF2HDL(O)
#define	OT_SETUP_hdl   SetupHdlFromMetaData_2(SQ3_FILE)
#define	OT_SETUP_hdl__null_allow   SetupHdlFromMetaData__null_allow_2(SQ3_FILE)
#define	OT_SETUP_hdl_destr   SetupHdlFromMetaData__null_allow_2(SQ3_FILE)
#define	OT_SETUP_hdl_constr   SetupHdlConstr(Sq3FileC)
#define	OT_SETUP_hdl_static_constr   OT_SETUP_hdl_static
#define	OT_SETUP_hdl_static   SetupHdlStatic(Sq3FileC)
#define	OT_retObj_CONSTR(x)
#define	ClassInit
#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 [Sq3FileC::Next $file]"
#define	Prev_doc   "Sq3FileC [Sq3FileC::Prev $file]"

Functions
static MK_PTR	atlsq3lite_Sq3FileC_selfCreate (MK_RT mkrt, MK_OBJ const obj, MK_PTR const env)
static void	atlsq3lite_Sq3FileC_selfDelete (MK_RT mkrt, MK_PTR selfP, MK_PTR const env)
static void	atlsq3lite_Sq3FileC_selfUnlink (MK_RT mkrt, MK_PTR selfP, MK_PTR const env)
static OT_ProcRet	atlsq3lite_Sq3FileC_HandleResolve (OtClass_ARGS)
	Atl: (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	atlsq3lite_Sq3FileC_HandleGet (Sq3FileC_ARGS)
static OT_ProcRet	atlsq3lite_Sq3FileC_Next (Sq3FileC_ARGS)
	Atl: Sq3FileC [Sq3FileC::Next $file] → C-API get next instance from linked-list of Sq3FileS type
static OT_ProcRet	atlsq3lite_Sq3FileC_Prev (Sq3FileC_ARGS)
	Atl: Sq3FileC [Sq3FileC::Prev $file] → C-API get previous instance from linked-list of Sq3FileS type
static OT_ProcRet	atlsq3lite_Sq3FileC_Instances (OtClass_ARGS)
	Atl: (static) Sq3FileC [Sq3FileC::Instances] → C-API get head-instance from linked-list of Sq3FileS type …
static OT_ProcRet	atlsq3lite_Sq3FileC_GetNull (OtClass_ARGS)
	Atl: (static) Sq3FileC [Sq3FileC::GetNull] → C-API Null-Slot - return a Sq3FileC typed NULL instance …
static OT_ProcRet	atlsq3lite_Sq3FileC_DatabaseObject (OtClass_ARGS)
	Atl: (constructor,static) Sq3FileC [Sq3FileC::DatabaseObject X:string] → C-API Database File Corresponding To A Journal …
int	atlsq3lite_pSq3FileC_Init (OT_SQ3_ARGS OT_NS_T ns)

Variables
static const OtObjProcDefS	atlsq3lite_sOtClassDef []
static const OtObjProcDefS	atlsq3lite_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 Sq3FileC_atl.c.

Macro Definition Documentation

ClassInit

#define ClassInit

Definition at line 57 of file Sq3FileC_atl.c.

#define   ClassInit \
  /* if not already done, initialize NEW META 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 META-Class */ \
  Sq3FileCTT->selfCreate    = NS(Sq3FileC_selfCreate); \
  Sq3FileCTT->selfDelete    = NS(Sq3FileC_selfDelete); \
  Sq3FileCTT->selfUnlink    = NS(Sq3FileC_selfUnlink); \
 \
  /* create the ATL-class */ \
  OT_CLASS = AltClassDef(Sq3FileCTT,&asq3rt->AtlSq3FileC_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, "::Sq3FileC::MK_NULL", (MK_PTR)asq3rt); \
    if (OT_NULL == NULL) goto error; \
    OT_REF_INCR(OT_NULL);

DatabaseObject_doc

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

Definition at line 94 of file Sq3FileC_atl.c.

GetNull_doc

#define GetNull_doc   "Sq3FileC [Sq3FileC::GetNull]"

Definition at line 97 of file Sq3FileC_atl.c.

HandleResolve_doc

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

Definition at line 98 of file Sq3FileC_atl.c.

Instances_doc

#define Instances_doc   "Sq3FileC [Sq3FileC::Instances]"

Definition at line 99 of file Sq3FileC_atl.c.

META_FILE_NAME

#define META_FILE_NAME   "Sq3FileC_atl.c"

Definition at line 11 of file Sq3FileC_atl.c.

Next_doc

#define Next_doc   "Sq3FileC [Sq3FileC::Next $file]"

Definition at line 102 of file Sq3FileC_atl.c.

OT_CLASS

#define OT_CLASS   asq3rt->AtlSq3FileC

Definition at line 15 of file Sq3FileC_atl.c.

OT_CLASS_NAME

#define OT_CLASS_NAME   "Sq3FileC"

Definition at line 17 of file Sq3FileC_atl.c.

OT_NULL

#define OT_NULL   asq3rt->AtlSq3FileC_MK_NULL

Definition at line 16 of file Sq3FileC_atl.c.

OT_retObj_CONSTR

#define OT_retObj_CONSTR

(

x

)

Value:

OT_retObj_SET(AtomInit(OT_SELF,Sq3FileC_X2obj(x),asq3rt))

Definition at line 54 of file Sq3FileC_atl.c.

OT_SETUP_hdl

#define OT_SETUP_hdl   SetupHdlFromMetaData_2(SQ3_FILE)

Definition at line 47 of file Sq3FileC_atl.c.

OT_SETUP_hdl__null_allow

#define OT_SETUP_hdl__null_allow   SetupHdlFromMetaData__null_allow_2(SQ3_FILE)

Definition at line 48 of file Sq3FileC_atl.c.

OT_SETUP_hdl_constr

#define OT_SETUP_hdl_constr   SetupHdlConstr(Sq3FileC)

Definition at line 50 of file Sq3FileC_atl.c.

OT_SETUP_hdl_destr

#define OT_SETUP_hdl_destr   SetupHdlFromMetaData__null_allow_2(SQ3_FILE)

Definition at line 49 of file Sq3FileC_atl.c.

OT_SETUP_hdl_static

#define OT_SETUP_hdl_static   SetupHdlStatic(Sq3FileC)

Definition at line 52 of file Sq3FileC_atl.c.

OT_SETUP_hdl_static_constr

#define OT_SETUP_hdl_static_constr   OT_SETUP_hdl_static

Definition at line 51 of file Sq3FileC_atl.c.

Prev_doc

#define Prev_doc   "Sq3FileC [Sq3FileC::Prev $file]"

Definition at line 103 of file Sq3FileC_atl.c.

SELF2HDL

#define SELF2HDL

(

O

)

Value:

Sq3File(VAL2MNG(O))

Definition at line 19 of file Sq3FileC_atl.c.

Function Documentation

atlsq3lite_pSq3FileC_Init()

int atlsq3lite_pSq3FileC_Init

(

OT_SQ3_ARGS OT_NS_T

ns

)

Public API

Definition at line 295 of file Sq3FileC_atl.c.

{
  ClassInit
  
  return TCL_OK;
error:
  return TCL_ERROR;
}

atlsq3lite_Sq3FileC_selfCreate()

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

static

Definition at line 28 of file Sq3FileC_atl.c.

                                                                                      {
  SETUP_asq3rt(env);
  return AtomMake(obj,OT_CLASS,NULL,NULL,env);
}

atlsq3lite_Sq3FileC_selfDelete()

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

static

Definition at line 34 of file Sq3FileC_atl.c.

                                                                                {
  OT_SELF_T selfO = selfP;
  SETUP_asq3rt(env);
  MK(AtomDeleteHard) (OT_MK_CALL selfO);
}

atlsq3lite_Sq3FileC_selfUnlink()

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

static

Definition at line 41 of file Sq3FileC_atl.c.

                                                                                {
  OT_SELF_T selfO = selfP;
  SETUP_asq3rt(env);
  return MK(AtomUnlink) (OT_MK_CALL selfO);
}

Variable Documentation

atlsq3lite_sInstanceDef

const OtObjProcDefS atlsq3lite_sInstanceDef[]

static

Initial value:

= {
  
 
  
  { "::Sq3FileC::Next"           ,  atlsq3lite_Sq3FileC_Next },
  { "::Sq3FileC::Prev"           ,  atlsq3lite_Sq3FileC_Prev },
 
  
  
 
  
  { NULL }
}

Definition at line 275 of file Sq3FileC_atl.c.

                                                {
  // BEGIN-OBJ - created by 'atl_MqS.tcl -i NHI1_HOME/theSq3Lite/c/gen/c_sq3lite.meta' - DO NOT change
 
  // doc-key: Sq3FileC,Sq3File,oc_
  { "::Sq3FileC::Next"           , NS(Sq3FileC_Next)           },
  { "::Sq3FileC::Prev"           , NS(Sq3FileC_Prev)           },
 
  // doc-key: Sq3FileC,Sq3File,om_
  // skip class-overload: HandleGet → MkObjectHandleGet
 
  // END-OBJ - created by 'atl_MqS.tcl -i NHI1_HOME/theSq3Lite/c/gen/c_sq3lite.meta' - DO NOT change
  { NULL }
};

atlsq3lite_sOtClassDef

const OtObjProcDefS atlsq3lite_sOtClassDef[]

static

Initial value:

= {
  
 
  
  { "::Sq3FileC::DatabaseObject" ,  atlsq3lite_Sq3FileC_DatabaseObject },
 
  
  { "::Sq3FileC::GetNull"        ,  atlsq3lite_Sq3FileC_GetNull },
  { "::Sq3FileC::HandleResolve"  ,  atlsq3lite_Sq3FileC_HandleResolve },
  { "::Sq3FileC::Instances"      ,  atlsq3lite_Sq3FileC_Instances },
 
  
  { NULL }
}

Definition at line 258 of file Sq3FileC_atl.c.

                                               {
  // BEGIN-CLASS - created by 'atl_MqS.tcl -i NHI1_HOME/theSq3Lite/c/gen/c_sq3lite.meta' - DO NOT change
 
  // doc-key: Sq3FileC,Sq3File,sCc
  { "::Sq3FileC::DatabaseObject" , NS(Sq3FileC_DatabaseObject) },
 
  // doc-key: Sq3FileC,Sq3File,sc_
  { "::Sq3FileC::GetNull"        , NS(Sq3FileC_GetNull)        },
  { "::Sq3FileC::HandleResolve"  , NS(Sq3FileC_HandleResolve)  },
  { "::Sq3FileC::Instances"      , NS(Sq3FileC_Instances)      },
 
  // END-CLASS - created by 'atl_MqS.tcl -i NHI1_HOME/theSq3Lite/c/gen/c_sq3lite.meta' - DO NOT change
  { NULL }
};