MqMsgque_Enum_TCL_API

MqMsgque PACKAGE - enum definition … More...

Collaboration diagram for MqMsgque_Enum_TCL_API:

Functions
static OT_ProcRet	tclmqmsgque_MqMsgque_IdentE_FromInt (OtClass_ARGS)
	Tcl: (static) MqIdentE [MqMsgque IdentE_FromInt value:int32] → C-API return the MqIdentE from integer …
static OT_ProcRet	tclmqmsgque_MqMsgque_SlaveE_FromInt (OtClass_ARGS)
	Tcl: (static) MqSlaveE [MqMsgque SlaveE_FromInt value:int32] → C-API return the MqSlaveE from integer …
static OT_ProcRet	tclmqmsgque_MqMsgque_StartE_FromInt (OtClass_ARGS)
	Tcl: (static) MqStartE [MqMsgque StartE_FromInt value:int32] → C-API return the MqStartE from integer …
static OT_ProcRet	tclmqmsgque_MqMsgque_StatusIsEF_FromInt (OtClass_ARGS)
	Tcl: (static) MqStatusIsEF [MqMsgque StatusIsEF_FromInt value:int32] → C-API return the MqStatusIsEF from integer …
static OT_ProcRet	tclmqmsgque_MqMsgque_WaitOnEventE_FromInt (OtClass_ARGS)
	Tcl: (static) MqWaitOnEventE [MqMsgque WaitOnEventE_FromInt value:int32] → C-API return the MqWaitOnEventE from integer …
static OT_ProcRet	tclmqmsgque_MqMsgque_IdentE_ToInt (OtClass_ARGS)
	Tcl: (static) int32 [MqMsgque IdentE_ToInt value:MqIdentE] → C-API return the MqIdentE as integer …
static OT_ProcRet	tclmqmsgque_MqMsgque_IdentE_ToString (OtClass_ARGS)
	Tcl: (static) string [MqMsgque IdentE_ToString value:MqIdentE] → C-API return the MqIdentE as string …
static OT_ProcRet	tclmqmsgque_MqMsgque_SlaveE_ToInt (OtClass_ARGS)
	Tcl: (static) int32 [MqMsgque SlaveE_ToInt value:MqSlaveE] → C-API return the MqSlaveE as integer …
static OT_ProcRet	tclmqmsgque_MqMsgque_SlaveE_ToString (OtClass_ARGS)
	Tcl: (static) string [MqMsgque SlaveE_ToString value:MqSlaveE] → C-API return the MqSlaveE as string …
static OT_ProcRet	tclmqmsgque_MqMsgque_StartE_ToInt (OtClass_ARGS)
	Tcl: (static) int32 [MqMsgque StartE_ToInt value:MqStartE] → C-API return the MqStartE as integer …
static OT_ProcRet	tclmqmsgque_MqMsgque_StartE_ToString (OtClass_ARGS)
	Tcl: (static) string [MqMsgque StartE_ToString value:MqStartE] → C-API return the MqStartE as string …
static OT_ProcRet	tclmqmsgque_MqMsgque_StatusIsEF_ToInt (OtClass_ARGS)
	Tcl: (static) int32 [MqMsgque StatusIsEF_ToInt value:MqStatusIsEF] → C-API return the MqStatusIsEF as integer …
static OT_ProcRet	tclmqmsgque_MqMsgque_StatusIsEF_ToString (OtClass_ARGS)
	Tcl: (static) string [MqMsgque StatusIsEF_ToString value:MqStatusIsEF] → C-API return the MqStatusIsEF as string …
static OT_ProcRet	tclmqmsgque_MqMsgque_WaitOnEventE_ToInt (OtClass_ARGS)
	Tcl: (static) int32 [MqMsgque WaitOnEventE_ToInt value:MqWaitOnEventE] → C-API return the MqWaitOnEventE as integer …
static OT_ProcRet	tclmqmsgque_MqMsgque_WaitOnEventE_ToString (OtClass_ARGS)
	Tcl: (static) string [MqMsgque WaitOnEventE_ToString value:MqWaitOnEventE] → C-API return the MqWaitOnEventE as string …

Enum To String
OT_OBJ_T	tclmqmsgque_MqFactoryE_ToString (const enum MqFactoryE type)
OT_OBJ_T	tclmqmsgque_MqHandShakeE_ToString (const enum MqHandShakeE type)
OT_OBJ_T	tclmqmsgque_MqIdentE_ToString (const enum MqIdentE type)
OT_OBJ_T	tclmqmsgque_MqIoComE_ToString (const enum MqIoComE type)
OT_OBJ_T	tclmqmsgque_MqSlaveE_ToString (const enum MqSlaveE type)
OT_OBJ_T	tclmqmsgque_MqStartE_ToString (const enum MqStartE type)
OT_OBJ_T	tclmqmsgque_MqStatusIsEF_ToString (const enum MqStatusIsEF type)
OT_OBJ_T	tclmqmsgque_MqTransTypeE_ToString (const enum MqTransTypeE type)
OT_OBJ_T	tclmqmsgque_MqWaitOnEventE_ToString (const enum MqWaitOnEventE type)

Enum From Obj
int	tclmqmsgque_Get_MqIdentE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MqIdentE *ret)
int	tclmqmsgque_Get_MqSlaveE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MqSlaveE *ret)
int	tclmqmsgque_Get_MqStartE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MqStartE *ret)
int	tclmqmsgque_Get_MqStatusIsEF_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MqStatusIsEF *ret)
int	tclmqmsgque_Get_MqWaitOnEventE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MqWaitOnEventE *ret)

Detailed Description

MqMsgque PACKAGE - enum definition …

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

A C-enum like :

enum MqWaitOnEventE {
  MQ_WAIT_NO      = 0,
  MQ_WAIT_ONCE    = 1,
  MQ_WAIT_OWN     = 2,
  MQ_WAIT_FOREVER = 3,
};

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

int MQ(Get_MqWaitOnEventE_FromObj) (MK_RT_ARGS OT_ENV_T interp, OT_OBJ_T enumE, enum MqWaitOnEventE *ret) {
  const static struct LookupEnumE keys[] = {
    { "NO"              , MQ_WAIT_NO      },
    { "OWN"             , MQ_WAIT_OWN     },
    { "ONCE"            , MQ_WAIT_ONCE    },
    { "FOREVER"         , MQ_WAIT_FOREVER },
    { "WAIT_NO"         , MQ_WAIT_NO      },
    { "WAIT_OWN"        , MQ_WAIT_OWN     },
    { "WAIT_ONCE"       , MQ_WAIT_ONCE    },
    { "MQ_WAIT_NO"      , MQ_WAIT_NO      },
    { "MQ_WAIT_OWN"     , MQ_WAIT_OWN     },
    { "WAIT_FOREVER"    , MQ_WAIT_FOREVER },
    { "MQ_WAIT_ONCE"    , MQ_WAIT_ONCE    },
    { "MQ_WAIT_FOREVER" , MQ_WAIT_FOREVER },
    { 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.

• "MQ_WAIT_FOREVER" = MQ_WAIT_FOREVER = 3

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

• "MQ_WAIT_FOREVER" = "WAIT_FOREVER" = "FOREVER" = 3

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

static OT_ProcRet NS(MqMsgque_WaitOnEventE_ToString) (OtClass_ARGS) {
  OT_SETUP_hdl_static
  OT_SETUP_ONEARG(LogWaitOnEventE_doc)
  enum MqWaitOnEventE val = 0;
  OT_CHECK_REQUIRED(OT_CHECK_ENUM (MqWaitOnEventE,val))   // <- tcl-c-check-proc
  OT_CHECK_NOARGS
  OT_retObj_SET_STR(MqWaitOnEventE_String (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.

Example from Filter4.tcl → use ProcessEvent MQ_WAIT_FOREVER

tclmqmsgque::Main {
  # !!ATTENTION!! if you put the "MqFactoryC Add" outsite of "tclmqmsgque::Main"
  # you get a error like: "...factory identifer already in use..."
  # because in a "thread" startup... you try to create a factory with SAME NAME again.
  [MqFactoryC Add Filter4 ] Initial
  set srv [Filter4 new]

  try {
    $srv LinkCreate {*}$argv
    $srv ProcessEvent MQ_WAIT_FOREVER
  } on error {} {
    $srv ErrorCatch
  } finally {
    $srv Exit
  }
}

read more at: MkKernel_Enum_C_API

Function Documentation

tclmqmsgque_Get_MqIdentE_FromObj()

int tclmqmsgque_Get_MqIdentE_FromObj	(	MK_RT	mkrt,
		OT_ENV_T	interp,
		OT_OBJ_T	enumE,
		enum MqIdentE *	ret )

Definition at line 384 of file LibMqMsgque_tcl.c.

                                                                                              {
  const static struct LookupEnumE keys[] = {
    { "PREFIX"           , MQ_IDENT_PREFIX  },
    { "FACTORY"          , MQ_IDENT_FACTORY },
    { "IDENT_PREFIX"     , MQ_IDENT_PREFIX  },
    { "IDENT_FACTORY"    , MQ_IDENT_FACTORY },
    { "MQ_IDENT_PREFIX"  , MQ_IDENT_PREFIX  },
    { "MQ_IDENT_FACTORY" , MQ_IDENT_FACTORY },
    { NULL               , 0                },
  };
 
  int index;
  OtErrorCheckLng (Tcl_GetIndexFromObjStruct (interp, enumE, &keys,
      sizeof(struct LookupClassS), "enum", TCL_EXACT, &index));
  *ret = keys[index].val;
  return TCL_OK;
}

tclmqmsgque_Get_MqSlaveE_FromObj()

int tclmqmsgque_Get_MqSlaveE_FromObj	(	MK_RT	mkrt,
		OT_ENV_T	interp,
		OT_OBJ_T	enumE,
		enum MqSlaveE *	ret )

Definition at line 402 of file LibMqMsgque_tcl.c.

                                                                                              {
  const static struct LookupEnumE keys[] = {
    { "MAX"               , MQ_SLAVE_MAX      },
    { "USER"              , MQ_SLAVE_USER     },
    { "OTHER"             , MQ_SLAVE_OTHER    },
    { "MASTER"            , MQ_SLAVE_MASTER   },
    { "FILTER"            , MQ_SLAVE_FILTER   },
    { "LOOPBACK"          , MQ_SLAVE_LOOPBACK },
    { "SLAVE_MAX"         , MQ_SLAVE_MAX      },
    { "SLAVE_USER"        , MQ_SLAVE_USER     },
    { "SLAVE_OTHER"       , MQ_SLAVE_OTHER    },
    { "SLAVE_FILTER"      , MQ_SLAVE_FILTER   },
    { "SLAVE_MASTER"      , MQ_SLAVE_MASTER   },
    { "MQ_SLAVE_MAX"      , MQ_SLAVE_MAX      },
    { "MQ_SLAVE_USER"     , MQ_SLAVE_USER     },
    { "MQ_SLAVE_OTHER"    , MQ_SLAVE_OTHER    },
    { "SLAVE_LOOPBACK"    , MQ_SLAVE_LOOPBACK },
    { "MQ_SLAVE_FILTER"   , MQ_SLAVE_FILTER   },
    { "MQ_SLAVE_MASTER"   , MQ_SLAVE_MASTER   },
    { "MQ_SLAVE_LOOPBACK" , MQ_SLAVE_LOOPBACK },
    { NULL                , 0                 },
  };
 
  int index;
  OtErrorCheckLng (Tcl_GetIndexFromObjStruct (interp, enumE, &keys,
      sizeof(struct LookupClassS), "enum", TCL_EXACT, &index));
  *ret = keys[index].val;
  return TCL_OK;
}

tclmqmsgque_Get_MqStartE_FromObj()

int tclmqmsgque_Get_MqStartE_FromObj	(	MK_RT	mkrt,
		OT_ENV_T	interp,
		OT_OBJ_T	enumE,
		enum MqStartE *	ret )

Definition at line 432 of file LibMqMsgque_tcl.c.

                                                                                              {
  const static struct LookupEnumE keys[] = {
    { "FORK"             , MQ_START_FORK    },
    { "SPAWN"            , MQ_START_SPAWN   },
    { "THREAD"           , MQ_START_THREAD  },
    { "DEFAULT"          , MQ_START_DEFAULT },
    { "START_FORK"       , MQ_START_FORK    },
    { "START_SPAWN"      , MQ_START_SPAWN   },
    { "START_THREAD"     , MQ_START_THREAD  },
    { "MQ_START_FORK"    , MQ_START_FORK    },
    { "START_DEFAULT"    , MQ_START_DEFAULT },
    { "MQ_START_SPAWN"   , MQ_START_SPAWN   },
    { "MQ_START_THREAD"  , MQ_START_THREAD  },
    { "MQ_START_DEFAULT" , MQ_START_DEFAULT },
    { NULL               , 0                },
  };
 
  int index;
  OtErrorCheckLng (Tcl_GetIndexFromObjStruct (interp, enumE, &keys,
      sizeof(struct LookupClassS), "enum", TCL_EXACT, &index));
  *ret = keys[index].val;
  return TCL_OK;
}

tclmqmsgque_Get_MqStatusIsEF_FromObj()

int tclmqmsgque_Get_MqStatusIsEF_FromObj	(	MK_RT	mkrt,
		OT_ENV_T	interp,
		OT_OBJ_T	enumE,
		enum MqStatusIsEF *	ret )

Definition at line 456 of file LibMqMsgque_tcl.c.

                                                                                                      {
  const static struct LookupEnumE keys[] = {
    { "DUP"                  , MQ_STATUS_IS_DUP     },
    { "FORK"                 , MQ_STATUS_IS_FORK    },
    { "SPAWN"                , MQ_STATUS_IS_SPAWN   },
    { "THREAD"               , MQ_STATUS_IS_THREAD  },
    { "IS_DUP"               , MQ_STATUS_IS_DUP     },
    { "INITIAL"              , MQ_STATUS_IS_INITIAL },
    { "IS_FORK"              , MQ_STATUS_IS_FORK    },
    { "IS_SPAWN"             , MQ_STATUS_IS_SPAWN   },
    { "IS_THREAD"            , MQ_STATUS_IS_THREAD  },
    { "IS_INITIAL"           , MQ_STATUS_IS_INITIAL },
    { "STATUS_IS_DUP"        , MQ_STATUS_IS_DUP     },
    { "STATUS_IS_FORK"       , MQ_STATUS_IS_FORK    },
    { "STATUS_IS_SPAWN"      , MQ_STATUS_IS_SPAWN   },
    { "MQ_STATUS_IS_DUP"     , MQ_STATUS_IS_DUP     },
    { "STATUS_IS_THREAD"     , MQ_STATUS_IS_THREAD  },
    { "STATUS_IS_INITIAL"    , MQ_STATUS_IS_INITIAL },
    { "MQ_STATUS_IS_FORK"    , MQ_STATUS_IS_FORK    },
    { "MQ_STATUS_IS_SPAWN"   , MQ_STATUS_IS_SPAWN   },
    { "MQ_STATUS_IS_THREAD"  , MQ_STATUS_IS_THREAD  },
    { "MQ_STATUS_IS_INITIAL" , MQ_STATUS_IS_INITIAL },
    { NULL                   , 0                    },
  };
 
  int index;
  OtErrorCheckLng(MK(EnumFlagWorker)(MK_RT_CALL interp,keys,enumE,&index));
  *ret = (enum MqStatusIsEF) index;
  return TCL_OK;
}

tclmqmsgque_Get_MqWaitOnEventE_FromObj()

int tclmqmsgque_Get_MqWaitOnEventE_FromObj	(	MK_RT	mkrt,
		OT_ENV_T	interp,
		OT_OBJ_T	enumE,
		enum MqWaitOnEventE *	ret )

Definition at line 487 of file LibMqMsgque_tcl.c.

                                                                                                          {
  const static struct LookupEnumE keys[] = {
    { "NO"              , MQ_WAIT_NO      },
    { "OWN"             , MQ_WAIT_OWN     },
    { "ONCE"            , MQ_WAIT_ONCE    },
    { "FOREVER"         , MQ_WAIT_FOREVER },
    { "WAIT_NO"         , MQ_WAIT_NO      },
    { "WAIT_OWN"        , MQ_WAIT_OWN     },
    { "WAIT_ONCE"       , MQ_WAIT_ONCE    },
    { "MQ_WAIT_NO"      , MQ_WAIT_NO      },
    { "MQ_WAIT_OWN"     , MQ_WAIT_OWN     },
    { "WAIT_FOREVER"    , MQ_WAIT_FOREVER },
    { "MQ_WAIT_ONCE"    , MQ_WAIT_ONCE    },
    { "MQ_WAIT_FOREVER" , MQ_WAIT_FOREVER },
    { NULL              , 0               },
  };
 
  int index;
  OtErrorCheckLng (Tcl_GetIndexFromObjStruct (interp, enumE, &keys,
      sizeof(struct LookupClassS), "enum", TCL_EXACT, &index));
  *ret = keys[index].val;
  return TCL_OK;
}

tclmqmsgque_MqFactoryE_ToString()

OT_OBJ_T tclmqmsgque_MqFactoryE_ToString

(

const enum MqFactoryE

type

)

Definition at line 271 of file LibMqMsgque_tcl.c.

{
  OT_OBJ_T tmpO = Tcl_NewObj();
  if (mk_bit_compare(type,MQ_FACTORY_NEW_INIT  )) ot_enum_append(tmpO,"INIT"  ) ;
  if (mk_bit_compare(type,MQ_FACTORY_NEW_CHILD )) ot_enum_append(tmpO,"CHILD" ) ;
  if (mk_bit_compare(type,MQ_FACTORY_NEW_SLAVE )) ot_enum_append(tmpO,"SLAVE" ) ;
  if (mk_bit_compare(type,MQ_FACTORY_NEW_FORK  )) ot_enum_append(tmpO,"FORK"  ) ;
  if (mk_bit_compare(type,MQ_FACTORY_NEW_THREAD)) ot_enum_append(tmpO,"THREAD") ;
  if (mk_bit_compare(type,MQ_FACTORY_NEW_FILTER)) ot_enum_append(tmpO,"FILTER") ;
  return tmpO;
}

tclmqmsgque_MqHandShakeE_ToString()

OT_OBJ_T tclmqmsgque_MqHandShakeE_ToString

(

const enum MqHandShakeE

type

)

Definition at line 283 of file LibMqMsgque_tcl.c.

{
  switch (type) {
    case MQ_HANDSHAKE_START : return ot_fixstrobj("START") ;
    case MQ_HANDSHAKE_OK    : return ot_fixstrobj("OK"   ) ;
    case MQ_HANDSHAKE_ERROR : return ot_fixstrobj("ERROR") ;
  }
  return ot_fixstrobj("NOTHING");
}

tclmqmsgque_MqIdentE_ToString()

OT_OBJ_T tclmqmsgque_MqIdentE_ToString

(

const enum MqIdentE

type

)

Definition at line 293 of file LibMqMsgque_tcl.c.

{
  switch (type) {
    case MQ_IDENT_PREFIX  : return ot_fixstrobj("PREFIX" ) ;
    case MQ_IDENT_FACTORY : return ot_fixstrobj("FACTORY") ;
  }
  return ot_fixstrobj("NOTHING");
}

tclmqmsgque_MqIoComE_ToString()

OT_OBJ_T tclmqmsgque_MqIoComE_ToString

(

const enum MqIoComE

type

)

Definition at line 302 of file LibMqMsgque_tcl.c.

{
  switch (type) {
    case MQ_IO_PIPE : return ot_fixstrobj("PIPE") ;
    case MQ_IO_UDS  : return ot_fixstrobj("UDS" ) ;
    case MQ_IO_TCP  : return ot_fixstrobj("TCP" ) ;
    case MQ_IO_INIT : return ot_fixstrobj("INIT") ;
    case MQ_IO_LOOP : return ot_fixstrobj("LOOP") ;
  }
  return ot_fixstrobj("NOTHING");
}

tclmqmsgque_MqMsgque_IdentE_FromInt()

static OT_ProcRet tclmqmsgque_MqMsgque_IdentE_FromInt ( OtClass_ARGS )

static

Tcl: (static) MqIdentE [MqMsgque IdentE_FromInt value:int32] → C-API
return the MqIdentE from integer …

Definition at line 626 of file LibMqMsgque_tcl.c.

                                                             {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(IdentE_FromInt_doc);
  MK_I32 value = 0;
  OT_CHECK_REQUIRED(OT_CHECK_NI4 (value))
  OT_CHECK_NOARGS;
  enum MqIdentE value_out;
  MkErrorC_Check(MK_ERROR_FORMAT,MqIdentE_FromInt (value, &value_out));
  OT_retObj_SET(OT_NEW_Mq_enum_OBJ(IdentE,value_out));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}

tclmqmsgque_MqMsgque_IdentE_ToInt()

static OT_ProcRet tclmqmsgque_MqMsgque_IdentE_ToInt ( OtClass_ARGS )

static

Tcl: (static) int32 [MqMsgque IdentE_ToInt value:MqIdentE] → C-API
return the MqIdentE as integer …

Definition at line 713 of file LibMqMsgque_tcl.c.

                                                           {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(IdentE_ToInt_doc);
  enum MqIdentE value = 0;
  OT_CHECK_REQUIRED(OT_CHECK_ENUM (MqIdentE,value))
  OT_CHECK_NOARGS;
  OT_retObj_SET_I32(MqIdentE_ToInt (value));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}

tclmqmsgque_MqMsgque_IdentE_ToString()

static OT_ProcRet tclmqmsgque_MqMsgque_IdentE_ToString ( OtClass_ARGS )

static

Tcl: (static) string [MqMsgque IdentE_ToString value:MqIdentE] → C-API
return the MqIdentE as string …

Definition at line 728 of file LibMqMsgque_tcl.c.

                                                              {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(IdentE_ToString_doc);
  enum MqIdentE value = 0;
  OT_CHECK_REQUIRED(OT_CHECK_ENUM (MqIdentE,value))
  OT_CHECK_NOARGS;
  OT_retObj_SET_STR(MqIdentE_ToString (value));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}

tclmqmsgque_MqMsgque_SlaveE_FromInt()

static OT_ProcRet tclmqmsgque_MqMsgque_SlaveE_FromInt ( OtClass_ARGS )

static

Tcl: (static) MqSlaveE [MqMsgque SlaveE_FromInt value:int32] → C-API
return the MqSlaveE from integer …

Definition at line 643 of file LibMqMsgque_tcl.c.

                                                             {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(SlaveE_FromInt_doc);
  MK_I32 value = 0;
  OT_CHECK_REQUIRED(OT_CHECK_NI4 (value))
  OT_CHECK_NOARGS;
  enum MqSlaveE value_out;
  MkErrorC_Check(MK_ERROR_FORMAT,MqSlaveE_FromInt (value, &value_out));
  OT_retObj_SET(OT_NEW_Mq_enum_OBJ(SlaveE,value_out));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}

tclmqmsgque_MqMsgque_SlaveE_ToInt()

static OT_ProcRet tclmqmsgque_MqMsgque_SlaveE_ToInt ( OtClass_ARGS )

static

Tcl: (static) int32 [MqMsgque SlaveE_ToInt value:MqSlaveE] → C-API
return the MqSlaveE as integer …

Definition at line 743 of file LibMqMsgque_tcl.c.

                                                           {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(SlaveE_ToInt_doc);
  enum MqSlaveE value = 0;
  OT_CHECK_REQUIRED(OT_CHECK_ENUM (MqSlaveE,value))
  OT_CHECK_NOARGS;
  OT_retObj_SET_I32(MqSlaveE_ToInt (value));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}

tclmqmsgque_MqMsgque_SlaveE_ToString()

static OT_ProcRet tclmqmsgque_MqMsgque_SlaveE_ToString ( OtClass_ARGS )

static

Tcl: (static) string [MqMsgque SlaveE_ToString value:MqSlaveE] → C-API
return the MqSlaveE as string …

Definition at line 758 of file LibMqMsgque_tcl.c.

                                                              {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(SlaveE_ToString_doc);
  enum MqSlaveE value = 0;
  OT_CHECK_REQUIRED(OT_CHECK_ENUM (MqSlaveE,value))
  OT_CHECK_NOARGS;
  OT_retObj_SET_STR(MqSlaveE_ToString (value));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}

tclmqmsgque_MqMsgque_StartE_FromInt()

static OT_ProcRet tclmqmsgque_MqMsgque_StartE_FromInt ( OtClass_ARGS )

static

Tcl: (static) MqStartE [MqMsgque StartE_FromInt value:int32] → C-API
return the MqStartE from integer …

Definition at line 660 of file LibMqMsgque_tcl.c.

                                                             {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(StartE_FromInt_doc);
  MK_I32 value = 0;
  OT_CHECK_REQUIRED(OT_CHECK_NI4 (value))
  OT_CHECK_NOARGS;
  enum MqStartE value_out;
  MkErrorC_Check(MK_ERROR_FORMAT,MqStartE_FromInt (value, &value_out));
  OT_retObj_SET(OT_NEW_Mq_enum_OBJ(StartE,value_out));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}

tclmqmsgque_MqMsgque_StartE_ToInt()

static OT_ProcRet tclmqmsgque_MqMsgque_StartE_ToInt ( OtClass_ARGS )

static

Tcl: (static) int32 [MqMsgque StartE_ToInt value:MqStartE] → C-API
return the MqStartE as integer …

Definition at line 773 of file LibMqMsgque_tcl.c.

                                                           {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(StartE_ToInt_doc);
  enum MqStartE value = 0;
  OT_CHECK_REQUIRED(OT_CHECK_ENUM (MqStartE,value))
  OT_CHECK_NOARGS;
  OT_retObj_SET_I32(MqStartE_ToInt (value));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}

tclmqmsgque_MqMsgque_StartE_ToString()

static OT_ProcRet tclmqmsgque_MqMsgque_StartE_ToString ( OtClass_ARGS )

static

Tcl: (static) string [MqMsgque StartE_ToString value:MqStartE] → C-API
return the MqStartE as string …

Definition at line 788 of file LibMqMsgque_tcl.c.

                                                              {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(StartE_ToString_doc);
  enum MqStartE value = 0;
  OT_CHECK_REQUIRED(OT_CHECK_ENUM (MqStartE,value))
  OT_CHECK_NOARGS;
  OT_retObj_SET_STR(MqStartE_ToString (value));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}

tclmqmsgque_MqMsgque_StatusIsEF_FromInt()

static OT_ProcRet tclmqmsgque_MqMsgque_StatusIsEF_FromInt ( OtClass_ARGS )

static

Tcl: (static) MqStatusIsEF [MqMsgque StatusIsEF_FromInt value:int32] → C-API
return the MqStatusIsEF from integer …

Definition at line 677 of file LibMqMsgque_tcl.c.

                                                                 {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(StatusIsEF_FromInt_doc);
  MK_I32 value = 0;
  OT_CHECK_REQUIRED(OT_CHECK_NI4 (value))
  OT_CHECK_NOARGS;
  enum MqStatusIsEF value_out;
  MkErrorC_Check(MK_ERROR_FORMAT,MqStatusIsEF_FromInt (value, &value_out));
  OT_retObj_SET(OT_NEW_Mq_enum_OBJ(StatusIsEF,value_out));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}

tclmqmsgque_MqMsgque_StatusIsEF_ToInt()

static OT_ProcRet tclmqmsgque_MqMsgque_StatusIsEF_ToInt ( OtClass_ARGS )

static

Tcl: (static) int32 [MqMsgque StatusIsEF_ToInt value:MqStatusIsEF] → C-API
return the MqStatusIsEF as integer …

Definition at line 803 of file LibMqMsgque_tcl.c.

                                                               {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(StatusIsEF_ToInt_doc);
  enum MqStatusIsEF value = 0;
  OT_CHECK_REQUIRED(OT_CHECK_ENUM (MqStatusIsEF,value))
  OT_CHECK_NOARGS;
  OT_retObj_SET_I32(MqStatusIsEF_ToInt (value));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}

tclmqmsgque_MqMsgque_StatusIsEF_ToString()

static OT_ProcRet tclmqmsgque_MqMsgque_StatusIsEF_ToString ( OtClass_ARGS )

static

Tcl: (static) string [MqMsgque StatusIsEF_ToString value:MqStatusIsEF] → C-API
return the MqStatusIsEF as string …

Definition at line 818 of file LibMqMsgque_tcl.c.

                                                                  {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(StatusIsEF_ToString_doc);
  enum MqStatusIsEF value = 0;
  OT_CHECK_REQUIRED(OT_CHECK_ENUM (MqStatusIsEF,value))
  OT_CHECK_NOARGS;
  OT_retObj_SET_STR(MqStatusIsEF_ToString (value));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}

tclmqmsgque_MqMsgque_WaitOnEventE_FromInt()

static OT_ProcRet tclmqmsgque_MqMsgque_WaitOnEventE_FromInt ( OtClass_ARGS )

static

Tcl: (static) MqWaitOnEventE [MqMsgque WaitOnEventE_FromInt value:int32] → C-API
return the MqWaitOnEventE from integer …

Definition at line 694 of file LibMqMsgque_tcl.c.

                                                                   {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(WaitOnEventE_FromInt_doc);
  MK_I32 value = 0;
  OT_CHECK_REQUIRED(OT_CHECK_NI4 (value))
  OT_CHECK_NOARGS;
  enum MqWaitOnEventE value_out;
  MkErrorC_Check(MK_ERROR_FORMAT,MqWaitOnEventE_FromInt (value, &value_out));
  OT_retObj_SET(OT_NEW_Mq_enum_OBJ(WaitOnEventE,value_out));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}

tclmqmsgque_MqMsgque_WaitOnEventE_ToInt()

static OT_ProcRet tclmqmsgque_MqMsgque_WaitOnEventE_ToInt ( OtClass_ARGS )

static

Tcl: (static) int32 [MqMsgque WaitOnEventE_ToInt value:MqWaitOnEventE] → C-API
return the MqWaitOnEventE as integer …

Definition at line 833 of file LibMqMsgque_tcl.c.

                                                                 {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(WaitOnEventE_ToInt_doc);
  enum MqWaitOnEventE value = 0;
  OT_CHECK_REQUIRED(OT_CHECK_ENUM (MqWaitOnEventE,value))
  OT_CHECK_NOARGS;
  OT_retObj_SET_I32(MqWaitOnEventE_ToInt (value));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}

tclmqmsgque_MqMsgque_WaitOnEventE_ToString()

static OT_ProcRet tclmqmsgque_MqMsgque_WaitOnEventE_ToString ( OtClass_ARGS )

static

Tcl: (static) string [MqMsgque WaitOnEventE_ToString value:MqWaitOnEventE] → C-API
return the MqWaitOnEventE as string …

Definition at line 848 of file LibMqMsgque_tcl.c.

                                                                    {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(WaitOnEventE_ToString_doc);
  enum MqWaitOnEventE value = 0;
  OT_CHECK_REQUIRED(OT_CHECK_ENUM (MqWaitOnEventE,value))
  OT_CHECK_NOARGS;
  OT_retObj_SET_STR(MqWaitOnEventE_ToString (value));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}

tclmqmsgque_MqSlaveE_ToString()

OT_OBJ_T tclmqmsgque_MqSlaveE_ToString

(

const enum MqSlaveE

type

)

Definition at line 314 of file LibMqMsgque_tcl.c.

{
  switch (type) {
    case MQ_SLAVE_LOOPBACK : return ot_fixstrobj("LOOPBACK") ;
    case MQ_SLAVE_FILTER   : return ot_fixstrobj("FILTER"  ) ;
    case MQ_SLAVE_USER     : return ot_fixstrobj("USER"    ) ;
    case MQ_SLAVE_MAX      : return ot_fixstrobj("MAX"     ) ;
  }
  return ot_fixstrobj("NOTHING");
}

tclmqmsgque_MqStartE_ToString()

OT_OBJ_T tclmqmsgque_MqStartE_ToString

(

const enum MqStartE

type

)

Definition at line 325 of file LibMqMsgque_tcl.c.

{
  switch (type) {
    case MQ_START_DEFAULT : return ot_fixstrobj("DEFAULT") ;
    case MQ_START_FORK    : return ot_fixstrobj("FORK"   ) ;
    case MQ_START_THREAD  : return ot_fixstrobj("THREAD" ) ;
    case MQ_START_SPAWN   : return ot_fixstrobj("SPAWN"  ) ;
  }
  return ot_fixstrobj("NOTHING");
}

tclmqmsgque_MqStatusIsEF_ToString()

OT_OBJ_T tclmqmsgque_MqStatusIsEF_ToString

(

const enum MqStatusIsEF

type

)

Definition at line 336 of file LibMqMsgque_tcl.c.

{
  if (type == MQ_STATUS_IS_INITIAL) {
    return ot_fixstrobj("INITIAL");
  } else {
    OT_OBJ_T tmpO = Tcl_NewObj();
    if (mk_bit_compare(type,MQ_STATUS_IS_DUP    )) ot_enum_append(tmpO,"DUP"    ) ;
    if (mk_bit_compare(type,MQ_STATUS_IS_THREAD )) ot_enum_append(tmpO,"THREAD" ) ;
    if (mk_bit_compare(type,MQ_STATUS_IS_FORK   )) ot_enum_append(tmpO,"FORK"   ) ;
    if (mk_bit_compare(type,MQ_STATUS_IS_SPAWN  )) ot_enum_append(tmpO,"SPAWN"  ) ;
    return tmpO;
  }
}

tclmqmsgque_MqTransTypeE_ToString()

OT_OBJ_T tclmqmsgque_MqTransTypeE_ToString

(

const enum MqTransTypeE

type

)

Definition at line 350 of file LibMqMsgque_tcl.c.

{
  switch (type) {
    case MQ_TRANS_TYPE_WAIT  : return ot_fixstrobj("WAIT" ) ;
    case MQ_TRANS_TYPE_SUB   : return ot_fixstrobj("SUB"  ) ;
    case MQ_TRANS_TYPE_CB    : return ot_fixstrobj("CB"   ) ;
    case MQ_TRANS_TYPE_TRANS : return ot_fixstrobj("TRANS") ;
    case MQ_TRANS_TYPE_NO    : return ot_fixstrobj("NO"   ) ;
  }
  return ot_fixstrobj("NOTHING");
}

tclmqmsgque_MqWaitOnEventE_ToString()

OT_OBJ_T tclmqmsgque_MqWaitOnEventE_ToString

(

const enum MqWaitOnEventE

type

)

Definition at line 362 of file LibMqMsgque_tcl.c.

{
  switch (type) {
    case MQ_WAIT_NO      : return ot_fixstrobj("NO"     ) ;
    case MQ_WAIT_ONCE    : return ot_fixstrobj("ONCE"   ) ;
    case MQ_WAIT_OWN     : return ot_fixstrobj("OWN"    ) ;
    case MQ_WAIT_FOREVER : return ot_fixstrobj("FOREVER") ;
  }
  return ot_fixstrobj("NOTHING");
}