Artifact ad8529fc6057db79f5754b60403d0b5a3fa88c97:

• File kitdll/buildsrc/kitdll-0.0/test.c — part of check-in [b11b735302] at 2010-09-29 23:15:37 on branch trunk — Created GNU autoconf script for KitDLL

  Made KitDLL build a shared object

  Added test driver (user: rkeene, size: 691) [annotate] [blame] [check-ins using]

#ifdef HAVE_STDIO_H
#  include <stdio.h>
#endif

#include <tcl.h>

int main(int argc, char **argv) {
	Tcl_Interp *interp;
	int tcl_ret;

	interp = Tcl_CreateInterp();
	if (interp == NULL) {
		fprintf(stderr, "Unable to create an interpreter.\n");

		return(1);
	}

	tcl_ret = Tcl_Init(interp);
	if (tcl_ret != TCL_OK) {
		fprintf(stderr, "Tcl_Init() returned in failure. %s\n", Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY));

		return(1);
	}

	tcl_ret = Tcl_Eval(interp, "puts \"Hello World. Current Time is: [clock format [clock seconds]]\"");
	if (tcl_ret != TCL_OK) {
		fprintf(stderr, "Tcl_Eval() returned in failure.\n");

		return(1);
	}

	Tcl_DeleteInterp(interp);

	return(0);
}