cctwtclutils.cpp File Reference

#include "cctwtclutils.h"

Include dependency graph for cctwtclutils.cpp:

Go to the source code of this file.

Macros
#define	TCL_CONDITION_MSG_MAX   1024

Functions
void	tcl_condition_failed (Tcl_Interp *interp, Tcl_Obj *command, const char *format,...)

Macro Definition Documentation

#define TCL_CONDITION_MSG_MAX   1024

Definition at line 10 of file cctwtclutils.cpp.

Referenced by tcl_condition_failed().

Function Documentation

void tcl_condition_failed	(	Tcl_Interp *	interp,
		Tcl_Obj *	command,
		const char *	format,
			...
	)

Definition at line 12 of file cctwtclutils.cpp.

References TCL_CONDITION_MSG_MAX.

{
  va_list va;
  va_start(va,format);
  char buffer[TCL_CONDITION_MSG_MAX];
  char* commandname = Tcl_GetStringFromObj(command, NULL);
  char* p = &buffer[0];
  p += sprintf(p, "\n");
  p += sprintf(p, "error: ");
  p += sprintf(p, "%s: ", commandname);
  p += vsprintf(p, format, va);
  p += sprintf(p, "\n\n");
  va_end(va);
  Tcl_AddErrorInfo(interp, buffer);
}