blob: 015c8f743e427afa8dbe7a01bcb4595be4716ce6 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
/* All that's needed for bin/scotty, really... -mi */
#include "tnmInt.h"
int
Tcl_AppInit(interp)
Tcl_Interp *interp;
{
if (Tcl_Init(interp) != TCL_OK) {
return TCL_ERROR;
}
if (Tcl_PkgRequire(interp, "Tnm", TNM_VERSION, 1) == NULL) {
return TCL_ERROR;
}
Tcl_SetVar(interp, "tcl_rcFileName", "~/.tclshrc", TCL_GLOBAL_ONLY);
return TCL_OK;
}
int
main(argc, argv)
int argc;
char **argv;
{
Tcl_Main(argc, argv, Tcl_AppInit);
}
|
