ZincInternal.hpp

Go to the documentation of this file.

#include <string>

#include "ZincObjects.hpp"
#ifndef BAZAR
#define BAZAR

#define MAX_NUM_LENGTH 32

// The base name of the TCL function that serve for callbacks
#define Z_TCLCB "zincTclCb"

// make a boolean object
#define Z_BOO_POOL(no, value) ( Tcl_SetBooleanObj (pool[no], value), pool[no] )
// make an integer object
#define Z_INT_POOL(no, value) ( Tcl_SetIntObj (pool[no], value), pool[no] )
// make a double object
#define Z_DBL_POOL(no, value) ( Tcl_SetDoubleObj (pool[no], value), pool[no] )
// make a string object
#define Z_STR_POOL(no, value, length) ( Tcl_SetStringObj (pool[no],       \
                                                          value, length), \
                                        pool[no] )

#define Z_LST_POOL(no, value, size) ( Tcl_SetListObj (pool[no], size, value),\
                                      pool[no] )

#define Z_CLEANLIST(no) Tcl_SetIntObj (pool[no], 0)


//create an option object (value prefixed by '-')
#define Z_DEFINE_ZOPT(string) Tcl_Obj* ZOPT_##string = Tcl_NewStringObj ("-" #string, -1);
//create a function object
#define Z_DEFINE_ZFCT(string) Tcl_Obj* ZFCT_##string = Tcl_NewStringObj (#string, -1);
//create an item object
#define Z_DEFINE_ZITM(string) Tcl_Obj* ZITM_##string = Tcl_NewStringObj (#string, -1);

#define Z_PARENTGROUP(parentGroup)  \
  ( (parentGroup != NULL) ? parentGroup->object : DEFAULT_GROUP_OBJ );

inline std::string itos (int integer)
{
  char tmp[MAX_NUM_LENGTH];
  // use standard function to convert
  if (snprintf (tmp, MAX_NUM_LENGTH, "%d", integer) < 0)
  {
    throw ZincException ("Error converting integer", __FILE__, __LINE__ );
  }
  return std::string (tmp);
}

inline std::string ltos (long l)
{
  char tmp[MAX_NUM_LENGTH];
  // use standard function to convert
  if (snprintf (tmp, MAX_NUM_LENGTH, "%ld", l) < 0)
  {
    throw ZincException ("Error converting long", __FILE__, __LINE__ );
  }
  return std::string (tmp);
}

inline std::string dtos (double d)
{
  char tmp[MAX_NUM_LENGTH];
  // use standard function to convert
  if (snprintf (tmp, MAX_NUM_LENGTH, "%f", d) < 0)
  {
    throw ZincException ("Error converting double", __FILE__, __LINE__ );
  }
  return std::string (tmp);
}

#endif

---