Origin for each line in profile.c from check-in 3cae553059:

3cae553059 2019-09-20    1: #include <tcl.h>
3cae553059 2019-09-20    2: #include <stdio.h>
3cae553059 2019-09-20    3: 
3cae553059 2019-09-20    4: extern int Xvfs_Init(Tcl_Interp *interp);
3cae553059 2019-09-20    5: extern int Xvfs_example_Init(Tcl_Interp *interp);
3cae553059 2019-09-20    6: int main(int argc, char **argv) {
3cae553059 2019-09-20    7: 	Tcl_Interp *interp;
3cae553059 2019-09-20    8: 	int tclRet;
3cae553059 2019-09-20    9: 	int try;
3cae553059 2019-09-20   10: 
3cae553059 2019-09-20   11: 	interp = Tcl_CreateInterp();
3cae553059 2019-09-20   12: 	if (!interp) {
3cae553059 2019-09-20   13: 		fprintf(stderr, "Tcl_CreateInterp failed\n");
3cae553059 2019-09-20   14: 
3cae553059 2019-09-20   15: 		return(1);
3cae553059 2019-09-20   16: 	}
3cae553059 2019-09-20   17: 
3cae553059 2019-09-20   18: 	tclRet = Tcl_Init(interp);
3cae553059 2019-09-20   19: 	if (tclRet != TCL_OK) {
3cae553059 2019-09-20   20: 		fprintf(stderr, "Tcl_Init failed: %s\n", Tcl_GetStringResult(interp));
3cae553059 2019-09-20   21: 
3cae553059 2019-09-20   22: 		return(1);
3cae553059 2019-09-20   23: 	}
3cae553059 2019-09-20   24: 
3cae553059 2019-09-20   25: 	tclRet = Xvfs_Init(interp);
3cae553059 2019-09-20   26: 	if (tclRet != TCL_OK) {
3cae553059 2019-09-20   27: 		fprintf(stderr, "Xvfs_Init failed: %s\n", Tcl_GetStringResult(interp));
3cae553059 2019-09-20   28: 
3cae553059 2019-09-20   29: 		return(1);
3cae553059 2019-09-20   30: 	}
3cae553059 2019-09-20   31: 	tclRet = Xvfs_example_Init(interp);
3cae553059 2019-09-20   32: 	if (tclRet != TCL_OK) {
3cae553059 2019-09-20   33: 		fprintf(stderr, "Xvfs_example_Init failed: %s\n", Tcl_GetStringResult(interp));
3cae553059 2019-09-20   34: 
3cae553059 2019-09-20   35: 		return(1);
3cae553059 2019-09-20   36: 	}
3cae553059 2019-09-20   37: 
3cae553059 2019-09-20   38: 	Tcl_Eval(interp, "proc benchmark args { glob -directory //xvfs:/example * }");
3cae553059 2019-09-20   39: 
3cae553059 2019-09-20   40: #ifdef XVFS_PROFILE_TESTS
3cae553059 2019-09-20   41: 	Tcl_Eval(interp, "proc exit args {}");
3cae553059 2019-09-20   42: 	Tcl_Eval(interp, "proc puts args {}");
3cae553059 2019-09-20   43: 	Tcl_SetVar(interp, "argv", "-verbose {}", 0);
3cae553059 2019-09-20   44: 	for (try = 0; try < 1000; try++) {
3cae553059 2019-09-20   45: 		Tcl_EvalFile(interp, "//xvfs:/example/main.tcl");
3cae553059 2019-09-20   46: 	}
3cae553059 2019-09-20   47: #else
3cae553059 2019-09-20   48: 	for (try = 0; try < 1000000; try++) {
3cae553059 2019-09-20   49: 		Tcl_Eval(interp, "benchmark");
3cae553059 2019-09-20   50: 	}
3cae553059 2019-09-20   51: #endif
3cae553059 2019-09-20   52: 
3cae553059 2019-09-20   53: 	return(0);
3cae553059 2019-09-20   54: }