/* @configure_input@ */

#ifndef HEADER_TCLTK
#define HEADER_TCLTK

#include "@TCL_HEADER@"
#include "@TK_HEADER@"

extern Tcl_Interp* TT_Interp;
extern char *TT_Temp;

#define TT_ARGS TT_Interp,__FILE__,__LINE__
#define TT_PROC_ARGS ClientData clientData, Tcl_Interp *interp, int argc, const char *argv[]
#define TT_PROC_OBJS ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]
#define TT_Install_Command(x) Tcl_CreateCommand(TT_Interp,TT_Fix_Name(#x),TT_Proc_##x ,0,0); free(TT_Temp)
#define TT_Install_ObjCommand(x) Tcl_CreateObjCommand(TT_Interp,TT_Fix_Name(#x),TT_Proc_##x ,0,0); free(TT_Temp)
#define ARGV(x) Tcl_GetStringFromObj(objv[x],NULL)

char *TT_Fix_Name(char *name);
void TT_Eval(Tcl_Interp *interp,char *filename,int line,char *command);
void TT_EvalF(Tcl_Interp *interp,char *filename,int line,char *command,...);
int TT_Int(Tcl_Interp *interp,char *filename,int line,char *command);
int TT_IntF(Tcl_Interp *interp,char *filename,int line,char *command,...);

const char *TT_Str(Tcl_Interp *interp,
                   char *filename,
                   int line,
                   char *command);

const char *TT_StrF(Tcl_Interp *interp,
	            char *filename,
                    int line,
                    char *command,...);

int TT_Init(int *argc,char **argv);

int Tcl_ScanCountedElementFixed(const char *string, int length, int *flagPtr);

#endif