+int Tcl_AppInit (Tcl_Interp *interp)
+{
+ if (Tcl_Init(interp) == TCL_ERROR)
+ return TCL_ERROR;
+ if (Irtcl_Init(interp) == TCL_ERROR)
+ return TCL_ERROR;
+#if USE_WAIS
+ if (Waistcl_Init(interp) == TCL_ERROR)
+ return TCL_ERROR;
+#endif
+ return TCL_OK;
+}
+
+#if TCL_MAJOR_VERSION > 7 || (TCL_MAJOR_VERSION == 7 && TCL_MINOR_VERSION > 4)
+/* new version of tcl: version > 7.4 */
+extern int matherr ();
+int *tclDummyMathPtr = (int*) matherr;
+
+int main (int argc, char **argv)
+{
+ Tcl_Main (argc, argv, Tcl_AppInit);
+ return 0;
+}
+
+#else
+/* old version of tcl: version <= 7.4 */
+