MkKernel_Enum_TCL_API

MkKernel PACKAGE - enum definition … More...

Collaboration diagram for MkKernel_Enum_TCL_API:

Functions
static OT_ProcRet	tclmkkernel_MkKernel_ErrorE_FromInt (OtClass_ARGS)
	Tcl: (static) MkErrorE [MkKernel ErrorE_FromInt value:int32] → C-API return the MkErrorE from integer …
static OT_ProcRet	tclmkkernel_MkKernel_IdSE_FromInt (OtClass_ARGS)
	Tcl: (static) MkIdSE [MkKernel IdSE_FromInt value:int32] → C-API return the MkIdSE from integer …
static OT_ProcRet	tclmkkernel_MkKernel_TimeoutE_FromInt (OtClass_ARGS)
	Tcl: (static) MkTimeoutE [MkKernel TimeoutE_FromInt value:int32] → C-API return the MkTimeoutE from integer …
static OT_ProcRet	tclmkkernel_MkKernel_TypeE_FromInt (OtClass_ARGS)
	Tcl: (static) MkTypeE [MkKernel TypeE_FromInt value:int32] → C-API return the MkTypeE from integer …
static OT_ProcRet	tclmkkernel_MkKernel_ErrorE_ToInt (OtClass_ARGS)
	Tcl: (static) int32 [MkKernel ErrorE_ToInt value:MkErrorE] → C-API return the MkErrorE as integer …
static OT_ProcRet	tclmkkernel_MkKernel_ErrorE_ToString (OtClass_ARGS)
	Tcl: (static) string [MkKernel ErrorE_ToString value:MkErrorE] → C-API return the MkErrorE as string …
static OT_ProcRet	tclmkkernel_MkKernel_IdSE_ToInt (OtClass_ARGS)
	Tcl: (static) int32 [MkKernel IdSE_ToInt value:MkIdSE] → C-API return the MkIdSE as integer …
static OT_ProcRet	tclmkkernel_MkKernel_IdSE_ToString (OtClass_ARGS)
	Tcl: (static) string [MkKernel IdSE_ToString value:MkIdSE] → C-API return the MkIdSE as string …
static OT_ProcRet	tclmkkernel_MkKernel_TimeoutE_ToInt (OtClass_ARGS)
	Tcl: (static) int32 [MkKernel TimeoutE_ToInt value:MkTimeoutE] → C-API return the MkTimeoutE as integer …
static OT_ProcRet	tclmkkernel_MkKernel_TimeoutE_ToString (OtClass_ARGS)
	Tcl: (static) string [MkKernel TimeoutE_ToString value:MkTimeoutE] → C-API return the MkTimeoutE as string …
static OT_ProcRet	tclmkkernel_MkKernel_TypeE_ToInt (OtClass_ARGS)
	Tcl: (static) int32 [MkKernel TypeE_ToInt value:MkTypeE] → C-API return the MkTypeE as integer …
static OT_ProcRet	tclmkkernel_MkKernel_TypeE_ToString (OtClass_ARGS)
	Tcl: (static) string [MkKernel TypeE_ToString value:MkTypeE] → C-API return the MkTypeE as string …

Enum From Obj
int	tclmkkernel_Get_MkErrorE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MkErrorE *ret)
int	tclmkkernel_Get_MkIdSE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MkIdSE *ret)
int	tclmkkernel_Get_MkTimeoutE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MkTimeoutE *ret)
int	tclmkkernel_Get_MkTypeE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MkTypeE *ret)

Enum To String
OT_OBJ_T	tclmkkernel_MkBoolE_ToString (const enum MkBoolE type)
OT_OBJ_T	tclmkkernel_MkErrorE_ToString (const enum MkErrorE type)
OT_OBJ_T	tclmkkernel_MkIdSE_ToString (const enum MkIdSE type)
OT_OBJ_T	tclmkkernel_MkNativeIsE_ToString (const enum MkNativeIsE type)
OT_OBJ_T	tclmkkernel_MkTimeoutE_ToString (const enum MkTimeoutE type)
OT_OBJ_T	tclmkkernel_MkTypeE_ToString (const enum MkTypeE type)

Detailed Description

MkKernel PACKAGE - enum definition …

ENUM

Tcl has no build-in-enum-datatyp but theKernel support a enum using the data-type-checking API.

A C-enum like :

__parser__(enum-accept-integer=long)
enum MkTimeoutE {
  MK_TIMEOUT_INIT       = META_TIMEOUT_REF,
  MK_TIMEOUT_LONG       = (META_TIMEOUT_REF/5),
  MK_TIMEOUT_NORMAL     = (META_TIMEOUT_REF/10  < 1 ? 1 : META_TIMEOUT_REF/10),
  MK_TIMEOUT_SHORT      = (META_TIMEOUT_REF/45  < 1 ? 1 : META_TIMEOUT_REF/45),
  MK_TIMEOUT_SOCKET     = (META_TIMEOUT_REF/90  < 1 ? 1 : META_TIMEOUT_REF/90),
  MK_TIMEOUT_VERYSHORT  = (META_TIMEOUT_REF/180 < 1 ? 1 : META_TIMEOUT_REF/180),
  MK_TIMEOUT_DEFAULT    = -1,
  MK_TIMEOUT_USER       = -2,
  MK_TIMEOUT_MAX        = -3,
};

will be compiled into a internal tcl-c-check-proc :

int MK(Get_MkTimeoutE_FromObj) (MK_RT_ARGS OT_ENV_T interp, OT_OBJ_T enumE, enum MkTimeoutE *ret) {
  const static struct LookupEnumE keys[] = {
    { "MAX"                  , MK_TIMEOUT_MAX       },
    { "LONG"                 , MK_TIMEOUT_LONG      },
    { "INIT"                 , MK_TIMEOUT_INIT      },
    { "USER"                 , MK_TIMEOUT_USER      },
    { "SHORT"                , MK_TIMEOUT_SHORT     },
    { "NORMAL"               , MK_TIMEOUT_NORMAL    },
    { "SOCKET"               , MK_TIMEOUT_SOCKET    },
    { "DEFAULT"              , MK_TIMEOUT_DEFAULT   },
    { "VERYSHORT"            , MK_TIMEOUT_VERYSHORT },
    { "TIMEOUT_MAX"          , MK_TIMEOUT_MAX       },
    { "TIMEOUT_USER"         , MK_TIMEOUT_USER      },
    { "TIMEOUT_LONG"         , MK_TIMEOUT_LONG      },
    { "TIMEOUT_INIT"         , MK_TIMEOUT_INIT      },
    { "TIMEOUT_SHORT"        , MK_TIMEOUT_SHORT     },
    { "TIMEOUT_NORMAL"       , MK_TIMEOUT_NORMAL    },
    { "TIMEOUT_SOCKET"       , MK_TIMEOUT_SOCKET    },
    { "MK_TIMEOUT_MAX"       , MK_TIMEOUT_MAX       },
    { "MK_TIMEOUT_USER"      , MK_TIMEOUT_USER      },
    { "MK_TIMEOUT_LONG"      , MK_TIMEOUT_LONG      },
    { "MK_TIMEOUT_INIT"      , MK_TIMEOUT_INIT      },
    { "TIMEOUT_DEFAULT"      , MK_TIMEOUT_DEFAULT   },
    { "MK_TIMEOUT_SHORT"     , MK_TIMEOUT_SHORT     },
    { "MK_TIMEOUT_NORMAL"    , MK_TIMEOUT_NORMAL    },
    { "MK_TIMEOUT_SOCKET"    , MK_TIMEOUT_SOCKET    },
    { "TIMEOUT_VERYSHORT"    , MK_TIMEOUT_VERYSHORT },
    { "MK_TIMEOUT_DEFAULT"   , MK_TIMEOUT_DEFAULT   },
    { "MK_TIMEOUT_VERYSHORT" , MK_TIMEOUT_VERYSHORT },
    { NULL                   , 0                    },
  };
 
  int index;
  OtErrorCheckLng (Tcl_GetIndexFromObjStruct (interp, enumE, &keys,
      sizeof(struct LookupClassS), "enum", TCL_EXACT, &index));
  *ret = keys[index].val;
  return TCL_OK;
}

to return the integer identifier for an enum-definition-string or an error if string is not valid.

• "MK_TIMEOUT_MAX " = MK_TIMEOUT_MAX = -3

A valid string for an enum-value is any unique abbreviation of the original enum-value:

• "MK_TIMEOUT_MAX" = "TIMEOUT_MAX" = "MAX" = -3

The tcl-c-check-proc is used in a tcl-c-api-wrapper like :

static OT_ProcRet NS(MkKernel_LogTimeoutE) (OtClass_ARGS) {
  OT_SETUP_hdl_static
  OT_SETUP_ONEARG(LogTimeoutE_doc)
  MkTimeoutE val = 0;
  OT_CHECK_REQUIRED(OT_CHECK_ENUM (MkTimeoutE,val))   // <- tcl-c-check-proc
  OT_CHECK_NOARGS
  OT_retObj_SET_STR(MkLogTimeoutE (val))
  goto end;
  error:
  OT_retObj_SET_Error
  end:
  OT_retObj_RETURN
}

The usage of an enum-value in the tcl-code is quite simple, just use the string.

package require tclmkkernel
 
puts [ tclmkkernel LogTimeoutE TIMEOUT_SOCKET ]

A enum in the Programming-Language-Micro-Kernel (PLMK) is a enum-data-type and 3 enum-access-attributes

1. ENUM_ToString → return the string-value from the enum-value
2. ENUM_ToInt → return the integer-value from the enum-value
3. ENUM_FromInt → create an enum-value from an integer-value.

The enum-data-type and the 3 enum-access-attributes are defined in all target-languages (C,C++,C#,VB.NET,Java,Python,Ruby,Perl,PHP,Tcl or GO).

Function Documentation

tclmkkernel_Get_MkErrorE_FromObj()

int tclmkkernel_Get_MkErrorE_FromObj	(	MK_RT	mkrt,
		OT_ENV_T	interp,
		OT_OBJ_T	enumE,
		enum MkErrorE *	ret )

Definition at line 1006 of file LibMkKernel_tcl.c.

                                                                                              {
  const static struct LookupEnumE keys[] = {
    { "OK"          , MK_OK       },
    { "MK_OK"       , MK_OK       },
    { "ERROR"       , MK_ERROR    },
    { "CONTINUE"    , MK_CONTINUE },
    { "MK_ERROR"    , MK_ERROR    },
    { "MK_CONTINUE" , MK_CONTINUE },
    { NULL          , 0           },
  };
 
  int index;
  OtErrorCheckLng (Tcl_GetIndexFromObjStruct (interp, enumE, &keys,
      sizeof(struct LookupClassS), "enum", TCL_EXACT, &index));
  *ret = keys[index].val;
  return TCL_OK;
}

tclmkkernel_Get_MkIdSE_FromObj()

int tclmkkernel_Get_MkIdSE_FromObj	(	MK_RT	mkrt,
		OT_ENV_T	interp,
		OT_OBJ_T	enumE,
		enum MkIdSE *	ret )

Definition at line 1024 of file LibMkKernel_tcl.c.

                                                                                          {
  const static struct LookupEnumE keys[] = {
    { "UNUSED"        , MK_ID_UNUSED  },
    { "THREAD"        , MK_ID_THREAD  },
    { "PROCESS"       , MK_ID_PROCESS },
    { "ID_UNUSED"     , MK_ID_UNUSED  },
    { "ID_THREAD"     , MK_ID_THREAD  },
    { "ID_PROCESS"    , MK_ID_PROCESS },
    { "MK_ID_THREAD"  , MK_ID_THREAD  },
    { "MK_ID_UNUSED"  , MK_ID_UNUSED  },
    { "MK_ID_PROCESS" , MK_ID_PROCESS },
    { NULL            , 0             },
  };
 
  int index;
  OtErrorCheckLng (Tcl_GetIndexFromObjStruct (interp, enumE, &keys,
      sizeof(struct LookupClassS), "enum", TCL_EXACT, &index));
  *ret = keys[index].val;
  return TCL_OK;
}

tclmkkernel_Get_MkTimeoutE_FromObj()

int tclmkkernel_Get_MkTimeoutE_FromObj	(	MK_RT	mkrt,
		OT_ENV_T	interp,
		OT_OBJ_T	enumE,
		enum MkTimeoutE *	ret )

Definition at line 1045 of file LibMkKernel_tcl.c.

                                                                                                  {
  const static struct LookupEnumE keys[] = {
    { "MAX"                  , MK_TIMEOUT_MAX       },
    { "LONG"                 , MK_TIMEOUT_LONG      },
    { "INIT"                 , MK_TIMEOUT_INIT      },
    { "USER"                 , MK_TIMEOUT_USER      },
    { "SHORT"                , MK_TIMEOUT_SHORT     },
    { "NORMAL"               , MK_TIMEOUT_NORMAL    },
    { "SOCKET"               , MK_TIMEOUT_SOCKET    },
    { "DEFAULT"              , MK_TIMEOUT_DEFAULT   },
    { "VERYSHORT"            , MK_TIMEOUT_VERYSHORT },
    { "TIMEOUT_MAX"          , MK_TIMEOUT_MAX       },
    { "TIMEOUT_USER"         , MK_TIMEOUT_USER      },
    { "TIMEOUT_LONG"         , MK_TIMEOUT_LONG      },
    { "TIMEOUT_INIT"         , MK_TIMEOUT_INIT      },
    { "TIMEOUT_SHORT"        , MK_TIMEOUT_SHORT     },
    { "TIMEOUT_NORMAL"       , MK_TIMEOUT_NORMAL    },
    { "TIMEOUT_SOCKET"       , MK_TIMEOUT_SOCKET    },
    { "MK_TIMEOUT_MAX"       , MK_TIMEOUT_MAX       },
    { "MK_TIMEOUT_USER"      , MK_TIMEOUT_USER      },
    { "MK_TIMEOUT_LONG"      , MK_TIMEOUT_LONG      },
    { "MK_TIMEOUT_INIT"      , MK_TIMEOUT_INIT      },
    { "TIMEOUT_DEFAULT"      , MK_TIMEOUT_DEFAULT   },
    { "MK_TIMEOUT_SHORT"     , MK_TIMEOUT_SHORT     },
    { "MK_TIMEOUT_NORMAL"    , MK_TIMEOUT_NORMAL    },
    { "MK_TIMEOUT_SOCKET"    , MK_TIMEOUT_SOCKET    },
    { "TIMEOUT_VERYSHORT"    , MK_TIMEOUT_VERYSHORT },
    { "MK_TIMEOUT_DEFAULT"   , MK_TIMEOUT_DEFAULT   },
    { "MK_TIMEOUT_VERYSHORT" , MK_TIMEOUT_VERYSHORT },
    { NULL                   , 0                    },
  };
 
  int index;
  OtErrorCheckLng (Tcl_GetIndexFromObjStruct (interp, enumE, &keys,
      sizeof(struct LookupClassS), "enum", TCL_EXACT, &index));
  *ret = keys[index].val;
  return TCL_OK;
}

tclmkkernel_Get_MkTypeE_FromObj()

int tclmkkernel_Get_MkTypeE_FromObj	(	MK_RT	mkrt,
		OT_ENV_T	interp,
		OT_OBJ_T	enumE,
		enum MkTypeE *	ret )

Definition at line 1084 of file LibMkKernel_tcl.c.

                                                                                            {
  const static struct LookupEnumE keys[] = {
    { "I8T"     , MK_I8T  },
    { "BOLT"    , MK_BOLT },
    { "STRT"    , MK_STRT },
    { "DBLT"    , MK_DBLT },
    { "LSTT"    , MK_LSTT },
    { "I32T"    , MK_I32T },
    { "FLTT"    , MK_FLTT },
    { "I16T"    , MK_I16T },
    { "BINT"    , MK_BINT },
    { "I64T"    , MK_I64T },
    { "MK_I8T"  , MK_I8T  },
    { "MK_BOLT" , MK_BOLT },
    { "MK_STRT" , MK_STRT },
    { "MK_DBLT" , MK_DBLT },
    { "MK_LSTT" , MK_LSTT },
    { "MK_I32T" , MK_I32T },
    { "MK_FLTT" , MK_FLTT },
    { "MK_I16T" , MK_I16T },
    { "MK_BINT" , MK_BINT },
    { "MK_I64T" , MK_I64T },
    { NULL      , 0       },
  };
 
  int index;
  OtErrorCheckLng (Tcl_GetIndexFromObjStruct (interp, enumE, &keys,
      sizeof(struct LookupClassS), "enum", TCL_EXACT, &index));
  *ret = keys[index].val;
  return TCL_OK;
}

tclmkkernel_MkBoolE_ToString()

OT_OBJ_T tclmkkernel_MkBoolE_ToString

(

const enum MkBoolE

type

)

Definition at line 1337 of file LibMkKernel_tcl.c.

{
  switch (type) {
    case MK_NO  : return ot_fixstrobj("NO" ) ;
    case MK_YES : return ot_fixstrobj("YES") ;
  }
  return ot_fixstrobj("NOTHING");
}

tclmkkernel_MkErrorE_ToString()

OT_OBJ_T tclmkkernel_MkErrorE_ToString

(

const enum MkErrorE

type

)

Definition at line 1346 of file LibMkKernel_tcl.c.

{
  switch (type) {
    case MK_OK       : return ot_fixstrobj("OK"      ) ;
    case MK_CONTINUE : return ot_fixstrobj("CONTINUE") ;
    case MK_ERROR    : return ot_fixstrobj("ERROR"   ) ;
  }
  return ot_fixstrobj("NOTHING");
}

tclmkkernel_MkIdSE_ToString()

OT_OBJ_T tclmkkernel_MkIdSE_ToString

(

const enum MkIdSE

type

)

Definition at line 1356 of file LibMkKernel_tcl.c.

{
  switch (type) {
    case MK_ID_UNUSED  : return ot_fixstrobj("UNUSED" ) ;
    case MK_ID_PROCESS : return ot_fixstrobj("PROCESS") ;
    case MK_ID_THREAD  : return ot_fixstrobj("THREAD" ) ;
  }
  return ot_fixstrobj("NOTHING");
}

tclmkkernel_MkKernel_ErrorE_FromInt()

static OT_ProcRet tclmkkernel_MkKernel_ErrorE_FromInt ( OtClass_ARGS )

static

Tcl: (static) MkErrorE [MkKernel ErrorE_FromInt value:int32] → C-API
return the MkErrorE from integer …

Definition at line 1423 of file LibMkKernel_tcl.c.

                                                             {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(ErrorE_FromInt_doc);
  MK_I32 value = 0;
  OT_CHECK_REQUIRED(OT_CHECK_NI4 (value))
  OT_CHECK_NOARGS;
  enum MkErrorE value_out;
  MkErrorC_Check(MK_ERROR_FORMAT,MkErrorE_FromInt (value, &value_out));
  OT_retObj_SET(OT_NEW_Mk_enum_OBJ(ErrorE,value_out));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}

tclmkkernel_MkKernel_ErrorE_ToInt()

static OT_ProcRet tclmkkernel_MkKernel_ErrorE_ToInt ( OtClass_ARGS )

static

Tcl: (static) int32 [MkKernel ErrorE_ToInt value:MkErrorE] → C-API
return the MkErrorE as integer …

Definition at line 1493 of file LibMkKernel_tcl.c.

                                                           {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(ErrorE_ToInt_doc);
  enum MkErrorE value = 0;
  OT_CHECK_REQUIRED(OT_CHECK_ENUM (MkErrorE,value))
  OT_CHECK_NOARGS;
  OT_retObj_SET_I32(MkErrorE_ToInt (value));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}

tclmkkernel_MkKernel_ErrorE_ToString()

static OT_ProcRet tclmkkernel_MkKernel_ErrorE_ToString ( OtClass_ARGS )

static

Tcl: (static) string [MkKernel ErrorE_ToString value:MkErrorE] → C-API
return the MkErrorE as string …

Definition at line 1508 of file LibMkKernel_tcl.c.

                                                              {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(ErrorE_ToString_doc);
  enum MkErrorE value = 0;
  OT_CHECK_REQUIRED(OT_CHECK_ENUM (MkErrorE,value))
  OT_CHECK_NOARGS;
  OT_retObj_SET_STR(MkErrorE_ToString (value));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}

tclmkkernel_MkKernel_IdSE_FromInt()

static OT_ProcRet tclmkkernel_MkKernel_IdSE_FromInt ( OtClass_ARGS )

static

Tcl: (static) MkIdSE [MkKernel IdSE_FromInt value:int32] → C-API
return the MkIdSE from integer …

Definition at line 1440 of file LibMkKernel_tcl.c.

                                                           {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(IdSE_FromInt_doc);
  MK_I32 value = 0;
  OT_CHECK_REQUIRED(OT_CHECK_NI4 (value))
  OT_CHECK_NOARGS;
  enum MkIdSE value_out;
  MkErrorC_Check(MK_ERROR_FORMAT,MkIdSE_FromInt (value, &value_out));
  OT_retObj_SET(OT_NEW_Mk_enum_OBJ(IdSE,value_out));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}

tclmkkernel_MkKernel_IdSE_ToInt()

static OT_ProcRet tclmkkernel_MkKernel_IdSE_ToInt ( OtClass_ARGS )

static

Tcl: (static) int32 [MkKernel IdSE_ToInt value:MkIdSE] → C-API
return the MkIdSE as integer …

Definition at line 1523 of file LibMkKernel_tcl.c.

                                                         {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(IdSE_ToInt_doc);
  enum MkIdSE value = 0;
  OT_CHECK_REQUIRED(OT_CHECK_ENUM (MkIdSE,value))
  OT_CHECK_NOARGS;
  OT_retObj_SET_I32(MkIdSE_ToInt (value));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}

tclmkkernel_MkKernel_IdSE_ToString()

static OT_ProcRet tclmkkernel_MkKernel_IdSE_ToString ( OtClass_ARGS )

static

Tcl: (static) string [MkKernel IdSE_ToString value:MkIdSE] → C-API
return the MkIdSE as string …

Definition at line 1538 of file LibMkKernel_tcl.c.

                                                            {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(IdSE_ToString_doc);
  enum MkIdSE value = 0;
  OT_CHECK_REQUIRED(OT_CHECK_ENUM (MkIdSE,value))
  OT_CHECK_NOARGS;
  OT_retObj_SET_STR(MkIdSE_ToString (value));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}

tclmkkernel_MkKernel_TimeoutE_FromInt()

static OT_ProcRet tclmkkernel_MkKernel_TimeoutE_FromInt ( OtClass_ARGS )

static

Tcl: (static) MkTimeoutE [MkKernel TimeoutE_FromInt value:int32] → C-API
return the MkTimeoutE from integer …

Definition at line 1457 of file LibMkKernel_tcl.c.

                                                               {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(TimeoutE_FromInt_doc);
  MK_I32 value = 0;
  OT_CHECK_REQUIRED(OT_CHECK_NI4 (value))
  OT_CHECK_NOARGS;
  enum MkTimeoutE value_out;
  MkErrorC_Check(MK_ERROR_FORMAT,MkTimeoutE_FromInt (value, &value_out));
  OT_retObj_SET(OT_NEW_Mk_enum_OBJ(TimeoutE,value_out));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}

tclmkkernel_MkKernel_TimeoutE_ToInt()

static OT_ProcRet tclmkkernel_MkKernel_TimeoutE_ToInt ( OtClass_ARGS )

static

Tcl: (static) int32 [MkKernel TimeoutE_ToInt value:MkTimeoutE] → C-API
return the MkTimeoutE as integer …

Definition at line 1553 of file LibMkKernel_tcl.c.

                                                             {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(TimeoutE_ToInt_doc);
  enum MkTimeoutE value = 0;
  OT_CHECK_REQUIRED(OT_CHECK_ENUM (MkTimeoutE,value))
  OT_CHECK_NOARGS;
  OT_retObj_SET_I32(MkTimeoutE_ToInt (value));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}

tclmkkernel_MkKernel_TimeoutE_ToString()

static OT_ProcRet tclmkkernel_MkKernel_TimeoutE_ToString ( OtClass_ARGS )

static

Tcl: (static) string [MkKernel TimeoutE_ToString value:MkTimeoutE] → C-API
return the MkTimeoutE as string …

Definition at line 1568 of file LibMkKernel_tcl.c.

                                                                {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(TimeoutE_ToString_doc);
  enum MkTimeoutE value = 0;
  OT_CHECK_REQUIRED(OT_CHECK_ENUM (MkTimeoutE,value))
  OT_CHECK_NOARGS;
  OT_retObj_SET_STR(MkTimeoutE_ToString (value));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}

tclmkkernel_MkKernel_TypeE_FromInt()

static OT_ProcRet tclmkkernel_MkKernel_TypeE_FromInt ( OtClass_ARGS )

static

Tcl: (static) MkTypeE [MkKernel TypeE_FromInt value:int32] → C-API
return the MkTypeE from integer …

Definition at line 1474 of file LibMkKernel_tcl.c.

                                                            {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(TypeE_FromInt_doc);
  MK_I32 value = 0;
  OT_CHECK_REQUIRED(OT_CHECK_NI4 (value))
  OT_CHECK_NOARGS;
  enum MkTypeE value_out;
  MkErrorC_Check(MK_ERROR_FORMAT,MkTypeE_FromInt (value, &value_out));
  OT_retObj_SET(OT_NEW_Mk_enum_OBJ(TypeE,value_out));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}

tclmkkernel_MkKernel_TypeE_ToInt()

static OT_ProcRet tclmkkernel_MkKernel_TypeE_ToInt ( OtClass_ARGS )

static

Tcl: (static) int32 [MkKernel TypeE_ToInt value:MkTypeE] → C-API
return the MkTypeE as integer …

Definition at line 1583 of file LibMkKernel_tcl.c.

                                                          {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(TypeE_ToInt_doc);
  enum MkTypeE value = 0;
  OT_CHECK_REQUIRED(OT_CHECK_ENUM (MkTypeE,value))
  OT_CHECK_NOARGS;
  OT_retObj_SET_I32(MkTypeE_ToInt (value));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}

tclmkkernel_MkKernel_TypeE_ToString()

static OT_ProcRet tclmkkernel_MkKernel_TypeE_ToString ( OtClass_ARGS )

static

Tcl: (static) string [MkKernel TypeE_ToString value:MkTypeE] → C-API
return the MkTypeE as string …

Definition at line 1598 of file LibMkKernel_tcl.c.

                                                             {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(TypeE_ToString_doc);
  enum MkTypeE value = 0;
  OT_CHECK_REQUIRED(OT_CHECK_ENUM (MkTypeE,value))
  OT_CHECK_NOARGS;
  OT_retObj_SET_STR(MkTypeE_ToString (value));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}

tclmkkernel_MkNativeIsE_ToString()

OT_OBJ_T tclmkkernel_MkNativeIsE_ToString

(

const enum MkNativeIsE

type

)

Definition at line 1366 of file LibMkKernel_tcl.c.

{
  switch (type) {
    case MK_NATIVE_IS_INITIAL : return ot_fixstrobj("INITIAL") ;
    case MK_NATIVE_IS_STRING  : return ot_fixstrobj("STRING" ) ;
    case MK_NATIVE_IS_LITTLE  : return ot_fixstrobj("LITTLE" ) ;
    case MK_NATIVE_IS_BIG     : return ot_fixstrobj("BIG"    ) ;
  }
  return ot_fixstrobj("NOTHING");
}

tclmkkernel_MkTimeoutE_ToString()

OT_OBJ_T tclmkkernel_MkTimeoutE_ToString

(

const enum MkTimeoutE

type

)

Definition at line 1377 of file LibMkKernel_tcl.c.

{
  switch (type) {
    case MK_TIMEOUT_INIT      : return ot_fixstrobj("INIT"     ) ;
    case MK_TIMEOUT_LONG      : return ot_fixstrobj("LONG"     ) ;
    case MK_TIMEOUT_NORMAL    : return ot_fixstrobj("NORMAL"   ) ;
    case MK_TIMEOUT_SHORT     : return ot_fixstrobj("SHORT"    ) ;
    case MK_TIMEOUT_SOCKET    : return ot_fixstrobj("SOCKET"   ) ;
    case MK_TIMEOUT_VERYSHORT : return ot_fixstrobj("VERYSHORT") ;
    case MK_TIMEOUT_DEFAULT   : return ot_fixstrobj("DEFAULT"  ) ;
    case MK_TIMEOUT_USER      : return ot_fixstrobj("USER"     ) ;
    case MK_TIMEOUT_MAX       : return ot_fixstrobj("MAX"      ) ;
  }
  return ot_fixstrobj("NOTHING");
}

tclmkkernel_MkTypeE_ToString()

OT_OBJ_T tclmkkernel_MkTypeE_ToString

(

const enum MkTypeE

type

)

Definition at line 1393 of file LibMkKernel_tcl.c.

{
  switch (type) {
    case MK_I8T  : return ot_fixstrobj("I8T" ) ;
    case MK_BOLT : return ot_fixstrobj("BOLT") ;
    case MK_I16T : return ot_fixstrobj("I16T") ;
    case MK_I32T : return ot_fixstrobj("I32T") ;
    case MK_FLTT : return ot_fixstrobj("FLTT") ;
    case MK_I64T : return ot_fixstrobj("I64T") ;
    case MK_DBLT : return ot_fixstrobj("DBLT") ;
    case MK_BINT : return ot_fixstrobj("BINT") ;
    case MK_STRT : return ot_fixstrobj("STRT") ;
    case MK_LSTT : return ot_fixstrobj("LSTT") ;
  }
  return ot_fixstrobj("NOTHING");
}