MkKernel_TCL_API

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

Collaboration diagram for MkKernel_TCL_API:

Topics
	MkKernel_PrimitiveTypes_TCL_API
	MkKernel PACKAGE - a collection of all native-data-types supported by MkBufferC …
	MkKernel_Storage_TCL_API
	MkKernel PACKAGE - Storage Management …
	MkKernel_Enum_TCL_API
	MkKernel PACKAGE - enum definition …
	MkKernel_Setup_libmkkernel_TCL_API
	MkKernel PACKAGE - Setup und Cleanup the tclmkkernel …

Functions
static int	tclmkkernel_Print_Class_Cmd (OtClass_ARGS)
	tclmkkernel::print object|type tclObj
static int	tclmkkernel_Const_Class_Cmd (OtClass_ARGS)
	tclObj [tclmkkernel::const maxY|minY|maxS|minS|maxI|minI|maxF|minF|maxW|minW|maxD|minD]

Detailed Description

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

The tclmkkernel package is loaded with:

‍

package require tclmkkernel 

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

The tclmkkernel 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 tclmkkernel application environment …

The tclmkkernel 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

tclmkkernel_Const_Class_Cmd()

static int tclmkkernel_Const_Class_Cmd ( OtClass_ARGS )

static

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

Definition at line 1233 of file LibMkKernel_tcl.c.

{
  OT_SETUP_hdl_static
  int index;
 
  OT_OBJ_T lngO = 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
  OtErrorCheckLng (Tcl_GetIndexFromObj (interp, objv[__skip], constant, "constant", 0, &index));
 
  // do the work
  switch ((enum constants) index) {
    case  MAXY:  lngO  =  Tcl_NewIntObj      (SCHAR_MAX);  break;
    case  MINY:  lngO  =  Tcl_NewIntObj      (SCHAR_MIN);  break;
    case  MAXS:  lngO  =  Tcl_NewIntObj      (SHRT_MAX);   break;
    case  MINS:  lngO  =  Tcl_NewIntObj      (SHRT_MIN);   break;
    case  MAXI:  lngO  =  Tcl_NewLongObj     (INT_MAX);    break;
    case  MINI:  lngO  =  Tcl_NewLongObj     (INT_MIN);    break;
    case  MAXF:  lngO  =  Tcl_NewDoubleObj   (FLT_MAX);    break;
    case  MINF:  lngO  =  Tcl_NewDoubleObj   (FLT_MIN);    break;
    case  MAXW:  lngO  =  Tcl_NewWideIntObj  (LLONG_MAX);  break;
    case  MINW:  lngO  =  Tcl_NewWideIntObj  (LLONG_MIN);  break;
    case  MAXD:  lngO  =  Tcl_NewDoubleObj   (DBL_MAX);    break;
    case  MIND:  lngO  =  Tcl_NewDoubleObj   (DBL_MIN);    break;
  }
 
  Tcl_SetObjResult (interp, lngO);
  return TCL_OK;
}

tclmkkernel_Print_Class_Cmd()

static int tclmkkernel_Print_Class_Cmd ( OtClass_ARGS )

static

tclmkkernel::print object|type tclObj

MARK_C CODE

Definition at line 1160 of file LibMkKernel_tcl.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
  OtErrorCheckLng (Tcl_GetIndexFromObj (interp, objv[__skip++], option, "subcommand", 0, &index));
 
  // do the work
  switch ((enum options) index) {
    case OBJECT:
      WNA(1,1,"tclObj");
      Tcl_SetResult (interp, MK(PrintLngObj) (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( RL_O(0,RG(infoLevelCmd)) )
      OT_OBJ_T lvlObj = MK(EvalObjvAR)(MK_RT_CALL varframe,interp,0,RL_objv(1));
      check_NULL(lvlObj) goto varerror;
      int lvl;
      check_LNG(Tcl_GetIntFromObj(interp,lvlObj,&lvl)) goto varerror;
      char *STR;
      fputs("print var ",stderr);
      if (lvl > 0) {
        RL_init( RL_O(0,RG(infoLevelCmd)) RL_NewI(1,0) )
        lvlObj = MK(EvalObjvAR)(MK_RT_CALL varframe,interp,0,RL_objv(2));
        check_NULL(lvlObj) goto varerror;
        OT_OBJ_T nameObj;
        check_LNG(Tcl_ListObjIndex(interp,lvlObj,0,&nameObj)) goto varerror;
        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;
varerror:
      ret = TCL_ERROR;
      OT_VARFRAME_DELETE
      break;
    }
  }
 
  return ret;
}