MkKernel_ATL_API

MkKernel PACKAGE - The package is the toplevel structure of the Programming-Language-Micro-Kernel (PLMK) … More...

Collaboration diagram for MkKernel_ATL_API:

Topics
	MkKernel_PrimitiveTypes_ATL_API
	MkKernel PACKAGE - a collection of all native-data-types supported by MkBufferC …
	MkKernel_Storage_ATL_API
	MkKernel PACKAGE - Storage Management …
	MkKernel_Enum_ATL_API
	MkKernel PACKAGE - enum definition …
	MkKernel_Setup_libmkkernel_ATL_API
	MkKernel PACKAGE - Setup und Cleanup the atlmkkernel …

Functions
static int	atlmkkernel_Print_Class_Cmd (OtClass_ARGS)
	MkKernel::print object|type tclObj
static int	atlmkkernel_Const_Class_Cmd (OtClass_ARGS)
	tclObj [MkKernel::const maxY|minY|maxS|minS|maxI|minI|maxF|minF|maxW|minW|maxD|minD]
static int	atlmkkernel_Support_Class_Cmd (OtClass_ARGS)
	bool [MkKernel::support thread|fork]

Detailed Description

MkKernel PACKAGE - The package is the toplevel structure of the Programming-Language-Micro-Kernel (PLMK) …

The atlmkkernel package is loaded with:

‍

package require atlmkkernel 

and is a composition of one or more class-item.

The atlmkkernel package add the following public classes into MkObjectC_C_API :

Object	C-Type	Description
MkObjectC	MK_OBJ	MkObjectC - class known as obj or object is used as base-class type for a Programming-Language-Micro-Kernel (PLMK) class …
MkBufferC	MK_BUF	MkBufferC - the abstract class known as buf or buffer is used to create and manage dynamic, generic, mixed typed data. …
MkBufferStreamC	MK_BUS	MkBufferStreamC - the abstract class known as bus or stream is a subclass of MkBufferC and is used for package-based-io …
MkBufferListC	MK_BFL	MkBufferListC - the class known as bfl or buffer-list is used to create and manage a list of MkBufferC …
MkLogFileC	MK_LFL	MkLogFileC - the class known as lfl or log-file is used to control the target of the logging-output …
MkErrorC	MK_ERR	MkErrorC - the class known as err or error is used to create and manage an error message …
MkRuntimeC	MK_RT	MkRuntimeC - The class known as mkrt or runtime is the main atlmkkernel application environment …

The atlmkkernel package add the following public types into MkObjectC_C_API :

    ABSTRACT: MkTypeSTT (TypeTypeType = type of a TypeType)
    |
    |- ABSTRACT: MkTypeDefSTT (TypeType = type of a Type)
       |
       |- MkObjectST, MkLogFileST, MkBufferListST,
       |- MkErrorPanicST, MkErrorIgnoreST, MkErrorPrintST, MkErrorDefaultST, MkErrorST
       |
       |- ABSTRACT: MkBufferST
          |- FINAL: MkBuffer64ST, MkBuffer256ST, MkBuffer1024ST
          |- ABSTRACT: MkBufferStreamST
             | FINAL: MkBufferStream64ST, MkBufferStream256ST, MkBufferStream1024ST, MkBufferStream16384ST

Function Documentation

atlmkkernel_Const_Class_Cmd()

static int atlmkkernel_Const_Class_Cmd ( OtClass_ARGS )

static

tclObj [MkKernel::const maxY|minY|maxS|minS|maxI|minI|maxF|minF|maxW|minW|maxD|minD]

Definition at line 1404 of file LibMkKernel_atl.c.

{
  OT_SETUP_hdl_static
  int index;
 
  OT_OBJ_T Obj = NULL;
 
  static const char *constant[] = {
    "maxY", "minY", "maxS", "minS", "maxI", "minI", "maxF", "minF", "maxW", "minW", "maxD", "minD", NULL
  };
  enum constants {
    MAXY, MINY, MAXS, MINS, MAXI, MINI, MAXF, MINF, MAXW, MINW, MAXD, MIND, 
  };
 
  WNA(1,1,"(maxY|minY|maxS|minS|maxI|minI|maxF|minF|maxW|minW|maxD|minD)");
 
  // get the Index
  check_LNG (Tcl_GetIndexFromObj (interp, objv[__skip], constant, "constant", 0, &index))
    return TCL_ERROR;
 
  // do the work
  switch ((enum constants) index) {
    case  MAXY:  Obj  =  Tcl_NewIntObj      (SCHAR_MAX);  break;
    case  MINY:  Obj  =  Tcl_NewIntObj      (SCHAR_MIN);  break;
    case  MAXS:  Obj  =  Tcl_NewIntObj      (SHRT_MAX);   break;
    case  MINS:  Obj  =  Tcl_NewIntObj      (SHRT_MIN);   break;
    case  MAXI:  Obj  =  Tcl_NewLongObj     (INT_MAX);    break;
    case  MINI:  Obj  =  Tcl_NewLongObj     (INT_MIN);    break;
    case  MAXF:  Obj  =  Tcl_NewDoubleObj   (FLT_MAX);    break;
    case  MINF:  Obj  =  Tcl_NewDoubleObj   (FLT_MIN);    break;
    case  MAXW:  Obj  =  Tcl_NewWideIntObj  (LLONG_MAX);  break;
    case  MINW:  Obj  =  Tcl_NewWideIntObj  (LLONG_MIN);  break;
    case  MAXD:  Obj  =  Tcl_NewDoubleObj   (DBL_MAX);    break;
    case  MIND:  Obj  =  Tcl_NewDoubleObj   (DBL_MIN);    break;
  }
 
  Tcl_SetObjResult (interp, Obj);
  return TCL_OK;
}

atlmkkernel_Print_Class_Cmd()

static int atlmkkernel_Print_Class_Cmd ( OtClass_ARGS )

static

MkKernel::print object|type tclObj

MARK_C CODE

Definition at line 1332 of file LibMkKernel_atl.c.

{
  int ret = TCL_OK;
  OT_SETUP_hdl_static
  int index;
 
  static const char *option[] = {
    "object", "type", "var", NULL
  };
  enum options {
    OBJECT, TYPE, VARIABLE
  };
 
  // get the Index
  check_LNG (Tcl_GetIndexFromObj (interp, objv[__skip++], option, "subcommand", 0, &index))
    return TCL_ERROR;
 
  // do the work
  switch ((enum options) index) {
    case OBJECT:
      WNA(1,1,"tclObj");
      Tcl_SetResult (interp, MK(PrintObj) (OT_Prefix_CALL "print", objv[__skip]), TCL_VOLATILE);
      break;
    case TYPE:
      WNA(1,1,"tclObj");
      Tcl_SetResult (interp, (char*) MK(GetTypeFromObj) (OT_Prefix_CALL objv[__skip], NULL), TCL_VOLATILE);
      break;
    case VARIABLE: {
      // same as tcl "Print ..."
      WNA(1,99,"tclObj...");
      OT_VARFRAME_CREATE
      RL_init( 1, info_level_1, RL_NewS(0,"::tcl::info::level") )
      OT_OBJ_T lvlObj = RL_EvalFr(varframe,0);
      int lvl;
      check_LNG(Tcl_GetIntFromObj(interp,lvlObj,&lvl)) goto error;
      char *STR;
      fputs("print var ",stderr);
      if (lvl > 0) {
        RL_init( 2, info_level_2, RL_NewS(0,"::tcl::info::level") ; RL_NewI(1,0) ) ;
        lvlObj = RL_EvalFr(varframe,0);
        OT_OBJ_T nameObj;
        check_LNG(Tcl_ListObjIndex(interp,lvlObj,0,&nameObj)) goto error;
        STR = Tcl_GetString(nameObj);
      } else {
        STR = "GLOBAL -> ";
      }
      fputs(STR,stderr);
      
      for (int i=2; i<objc; i++) {
        char * nameS = Tcl_GetString(objv[i]);
        OT_OBJ_T var = Tcl_ObjGetVar2(interp,objv[i],NULL,0);
        if (var) {
          fprintf(stderr,"%s<%s>, ", nameS, Tcl_GetString(var));
        } else {
          fprintf(stderr,"%s<not set>, ", nameS);
        }
      }
      fputs("\n",stderr);
      OT_VARFRAME_DELETE
      break;
error:
      ret = TCL_ERROR;
      OT_VARFRAME_DELETE
      break;
    }
  }
 
  return ret;
}

atlmkkernel_Support_Class_Cmd()

static int atlmkkernel_Support_Class_Cmd ( OtClass_ARGS )

static

bool [MkKernel::support thread|fork]

Definition at line 1446 of file LibMkKernel_atl.c.

{
  OT_SETUP_hdl_static
  int index;
 
  Tcl_Obj *Obj = NULL;
 
  static const char *constant[] = {
    "thread", "fork", NULL
  };
  enum constants {
    THREAD, FORK, 
  };
 
  WNA(1,1,"(thread|fork)")
 
  // get the Index
  check_LNG (Tcl_GetIndexFromObj (interp, objv[__skip], constant, "configuration", 0, &index)) return TCL_ERROR;
 
  // do the work
  switch ((enum constants) index) {
    case THREAD:
#if META_HAS_THREAD
      Obj = Tcl_NewBooleanObj (1);
#else
      Obj = Tcl_NewBooleanObj (0);
#endif
      break;
    case FORK:
#if defined(HAVE_FORK)
      Obj = Tcl_NewBooleanObj (1);
#else
      Obj = Tcl_NewBooleanObj (0);
#endif
      break;
  }
 
  Tcl_SetObjResult (interp, Obj);
  return TCL_OK;
}