54 lines
1.7 KiB
C
54 lines
1.7 KiB
C
/*----------------------------------------------------------------------*/
|
|
/* magicdnull.c */
|
|
/* */
|
|
/* See comments for "magicexec.c". This has the same function as */
|
|
/* magicexec.c, but does not initialize the Tk package. This avoids */
|
|
/* bringing up a default window when "magic -dnull -noconsole" is */
|
|
/* called, running more efficiently when used in batch mode. */
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <tcl.h>
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
/* Application initiation. This is exactly like the AppInit routine */
|
|
/* for "wish", minus the cruft, but with "tcl_rcFileName" set to */
|
|
/* "magic.tcl" instead of "~/.wishrc". */
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
int
|
|
magic_AppInit(interp)
|
|
Tcl_Interp *interp;
|
|
{
|
|
if (Tcl_Init(interp) == TCL_ERROR) {
|
|
return TCL_ERROR;
|
|
}
|
|
Tcl_StaticPackage(interp, "Tcl", Tcl_Init, Tcl_Init);
|
|
|
|
/* This is where we replace the home ".tclshrc" file with */
|
|
/* magic's startup script. */
|
|
|
|
Tcl_SetVar(interp, "tcl_rcFileName", TCL_DIR "/magic.tcl", TCL_GLOBAL_ONLY);
|
|
|
|
/* Additional variable can be used to tell if magic is in batch mode */
|
|
Tcl_SetVar(interp, "batch_mode", "true", TCL_GLOBAL_ONLY);
|
|
|
|
return TCL_OK;
|
|
}
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
/* The main procedure; replacement for "tclsh". */
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
int
|
|
main(argc, argv)
|
|
int argc;
|
|
char **argv;
|
|
{
|
|
Tcl_Main(argc, argv, magic_AppInit);
|
|
return 0;
|
|
}
|
|
|
|
/*----------------------------------------------------------------------*/
|