Miscellany

| #include <stdio.h>
| int main() {
|     Tcl_Time time;
|     Tcl_Interp *interp;
|     interp = Tcl_CreateInterp();
|     if (Tcl_Init(interp) == TCL_ERROR) {
|       fprintf(stderr, "Tcl_Init returned error\n");
|       return 1;
|     }
|     /* Tcl_GetTime is an 8.4 symbol */
|     Tcl_GetTime(&time);
| #if TCL_MAJOR_VERSION < 8
|     fprintf(stderr, "major version < 8\n");
|     return 1;
| #elif TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION < 5
|     fprintf(stderr, "minor version < 5\n");
|     return 1;
| #endif
|     return 0;
| }
|