Tcl Source Code

Artifact cd82ddf4eea1550b609f2109fd733e17106ed952:

Attachment "tcl_c.c" to ticket [3010850fff] added by prince-george 2010-06-03 13:23:33.

---

#include<stdio.h>
#include<stdlib.h>
#include<tcl.h>
#include<tclDecls.h>

int main(int argc,char *argv[]){
	Tcl_Interp *interp;
	int code;
	
	if(argc!=2){
		printf("Wrong # arguments!\n");
		printf("shoudld be %s filename.tcl\n",argv[1]);
		exit(1);
	}

	interp=Tcl_CreateInterp();
/*
	code=Tcl_EvalFile(interp,argv[1]);

	if(*interp->result!=0){
		printf("%s\n",interp->result);
	}

	if(code!=TCL_OK)
	exit(1);
	*/
	return 0;
}