Diff

Differences From Artifact [ad8529fc60]:

To Artifact [0713d9aa46]:


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
#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);
}






<
|
<
<
<
<
<
<
|
|

<
<
<
|
<
<
|
<
<
<

|
|
<
<
<
<
<
1
2
3
4
5
6

7






8
9
10



11


12



13
14
15





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

#include <tcl.h>


int Tcl_AppInit(Tcl_Interp *interp) {






	return(Tcl_Init(interp));
}




int main(int argc, char **argv) {


	Tcl_Main(argc, argv, Tcl_AppInit);




	return(1);
}