blob: 375cd2a7529ed166d20689c93e089f11489b554f (
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"
static 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);
}
|
