cctwtclutils.h

Go to the documentation of this file.

/*
 * cctwtclutils.h
 *
 *  Created on: Nov 18, 2013
 *      Author: wozniak
 */

#ifndef CCTWTCLUTILS_H
#define CCTWTCLUTILS_H

#include <tcl.h>

#define TCL_ARGS(count_expr, help) {                            \
    int count = count_expr;                                     \
    if (objc != count) {                                        \
      char* tmp = Tcl_GetStringFromObj(objv[0], NULL);          \
      printf("command %s requires %i arguments, received %i\n", \
             tmp, count, objc);                                 \
      printf(help "\n");                                        \
      return TCL_ERROR;                                         \
    }                                                           \
  }

void tcl_condition_failed(Tcl_Interp* interp, Tcl_Obj* command,
                          const char* format, ...)
  __attribute__ ((format (printf, 3, 4)));

#define TCL_RETURN_ERROR(format, args...)                        \
  {                                                              \
    tcl_condition_failed(interp, objv[0], format, ## args);      \
    return TCL_ERROR;                                            \
  }

#define TCL_CHECK_MSG(rc, format, args...)                        \
  if (rc != TCL_OK) {                                             \
    TCL_RETURN_ERROR(format, ## args);                            \
  }

#define TCL_CHECK(rc) { if (rc != TCL_OK) { return TCL_ERROR; }}

#define TCL_CONDITION(condition, format, args...)                \
  if (!(condition)) {                                            \
    TCL_RETURN_ERROR(format, ## args);                           \
  }

#endif