@@ -1,14 +1,29 @@
 #include <tcl.h>
 #include <stdio.h>
+#include <stdlib.h>
 
-extern int Xvfs_Init(Tcl_Interp *interp);
-extern int Xvfs_example_Init(Tcl_Interp *interp);
+#undef  XVFS_DEBUG
+#define XVFS_MODE_STANDALONE
+#include "example.c"
+
 int main(int argc, char **argv) {
 	Tcl_Interp *interp;
+	int profileTests, profileBenchmark;
 	int tclRet;
 	int try;
+
+	profileTests = 0;
+	profileBenchmark = 1000000;
+
+	if (argc > 1) {
+		profileBenchmark = atoi(argv[1]);
+	}
+
+	if (argc > 2) {
+		profileTests = atoi(argv[2]);
+	}
 
 	interp = Tcl_CreateInterp();
 	if (!interp) {
 		fprintf(stderr, "Tcl_CreateInterp failed\n");
 
@@ -20,35 +35,26 @@
 		fprintf(stderr, "Tcl_Init failed: %s\n", Tcl_GetStringResult(interp));
 
 		return(1);
 	}
 
-	tclRet = Xvfs_Init(interp);
-	if (tclRet != TCL_OK) {
-		fprintf(stderr, "Xvfs_Init failed: %s\n", Tcl_GetStringResult(interp));
-
-		return(1);
-	}
 	tclRet = Xvfs_example_Init(interp);
 	if (tclRet != TCL_OK) {
 		fprintf(stderr, "Xvfs_example_Init failed: %s\n", Tcl_GetStringResult(interp));
 
 		return(1);
 	}
 
 	Tcl_Eval(interp, "proc benchmark args { glob -directory //xvfs:/example * }");
+	for (try = 0; try < profileBenchmark; try++) {
+		Tcl_Eval(interp, "benchmark");
+	}
 
-#ifdef XVFS_PROFILE_TESTS
 	Tcl_Eval(interp, "proc exit args {}");
 	Tcl_Eval(interp, "proc puts args {}");
 	Tcl_SetVar(interp, "argv", "-verbose {}", 0);
-	for (try = 0; try < 1000; try++) {
+	for (try = 0; try < profileTests; try++) {
 		Tcl_EvalFile(interp, "//xvfs:/example/main.tcl");
 	}
-#else
-	for (try = 0; try < 1000000; try++) {
-		Tcl_Eval(interp, "benchmark");
-	}
-#endif
 
 	return(0);
 }