freebsd-ports/net-mgmt/scotty3/files/scotty.c
Mikhail Teterin 2bc39f1796 A number of changes and fixes:
. build with or without TK (triggered by the NO_X knob)
	. build against TCL-8.3 -- with or without stubs
	. fix some bugs in the core Scotty code -- most notably
	  a bug in the icmp-command implementation, where an off-by-one
	  error in the argument processing loop resulted in random
	  crashes; all this fixes are grouped into a single file
	  patch-fixes
	. make scotty executable itself as small as it needs to be

Approved by:	maintainer

Perhaps, some  day the security officer  will tell me what  _exactly_ is
wrong with  regular Scotty (this  one is beta  of the new  version), and
I'll be able to freshen that one up too and remove the FORBIDDEN.
2001-03-12 18:50:33 +00:00

28 lines
450 B
C

/* 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);
}