Subversion Repositories or1k

/* 
 * samAppInit.c --
 *
 *	Provides a default version of the Tcl_AppInit procedure for
 *	use in stand-alone Tcl, Tk or Tix applications.
 *
 * Copyright (c) 1996, Expert Interface Technologies
 * Copyright (c) 1995 Ioi K Lam
 * Copyright (c) 1993 The Regents of the University of California.
 * Copyright (c) 1994 Sun Microsystems, Inc.
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 */
 
#include <tcl.h>
 
#ifdef USE_TIX
#  ifndef USE_TK
#  define USE_TK
#  endif
#endif
 
#ifdef USE_TK
#include <tk.h>
#endif
 
#ifdef USE_TIX
#  include <tix.h>
#else
#  if (TCL_MAJOR_VERSION > 7)
#    define TCL_7_5_OR_LATER
#  else
#    if ((TCL_MAJOR_VERSION == 7) && (TCL_MINOR_VERSION >= 5))
#      define TCL_7_5_OR_LATER
#    endif
#  endif
#endif
 
EXTERN int		Tclsam_Init _ANSI_ARGS_((Tcl_Interp *interp));
EXTERN int		Tksam_Init _ANSI_ARGS_((Tcl_Interp *interp));
EXTERN int		Tixsam_Init _ANSI_ARGS_((Tcl_Interp *interp));
 
/*
 * The following variable is a special hack that is needed in order for
 * Sun shared libraries to be used for Tcl.
 */
 
extern int matherr();
int *tclDummyMathPtr = (int *) matherr;

/*
 *----------------------------------------------------------------------
 *
 * main --
 *
 *	This is the main program for the application.
 *
 * Results:
 *	None: Tk_Main never returns here, so this procedure never
 *	returns either.
 *
 * Side effects:
 *	Whatever the application does.
 *
 *----------------------------------------------------------------------
 */
 
int
main(argc, argv)
    int argc;			/* Number of command-line arguments. */
    char **argv;		/* Values of command-line arguments. */
{
#ifdef USE_TK
    Tk_Main(argc, argv, Tcl_AppInit);
#else
    Tcl_Main(argc, argv, Tcl_AppInit);
#endif
 
    return 0;			/* Needed only to prevent compiler warning. */
}

/*
 *----------------------------------------------------------------------
 *
 * Tcl_AppInit --
 *
 *	This procedure performs application-specific initialization.
 *	Most applications, especially those that incorporate additional
 *	packages, will have their own version of this procedure.
 *
 * Results:
 *	Returns a standard Tcl completion code, and leaves an error
 *	message in interp->result if an error occurs.
 *
 * Side effects:
 *	Depends on the startup script.
 *
 *----------------------------------------------------------------------
 */
 
int
Tcl_AppInit(interp)
    Tcl_Interp *interp;		/* Interpreter for application. */
{
    if (Tclsam_Init(interp) == TCL_ERROR) {
	return TCL_ERROR;
    }
#ifdef USE_TK
    if (Tksam_Init(interp) == TCL_ERROR) {
	return TCL_ERROR;
    }
#endif
 
#ifdef USE_TIX
    if (Tixsam_Init(interp) == TCL_ERROR) {
	return TCL_ERROR;
    }
#endif
 
#ifdef TCL_7_5_OR_LATER
    Tcl_StaticPackage(interp, "Tclsam", Tclsam_Init, NULL);
#ifdef USE_TK
    Tcl_StaticPackage(interp, "Tk",     Tk_Init,     NULL);
    Tcl_StaticPackage(interp, "Tksam",  Tksam_Init,  NULL);
#endif
#ifdef USE_TIX
    Tcl_StaticPackage(interp, "Tix",    Tix_Init,    NULL);
    Tcl_StaticPackage(interp, "Tixsam", Tixsam_Init, NULL);
#endif
#endif
 
    /*
     * Call the init procedures for included packages.  Each call should
     * look like this:
     *
     * if (Mod_Init(interp) == TCL_ERROR) {
     *     return TCL_ERROR;
     * }
     *
     * where "Mod" is the name of the module.
     */
 
    /*
     * Call Tcl_CreateCommand for application-specific commands, if
     * they weren't already created by the init procedures called above.
     */
 
    /*
     * Specify a user-specific startup file to invoke if the application
     * is run interactively.  Typically the startup file is "~/.apprc"
     * where "app" is the name of the application.  If this line is deleted
     * then no user-specific startup file will be run under any conditions.
     */
#if defined(USE_TIX)
#  define RC_FILENAME "~/.tixwishrc"
#else
#  if defined(USE_TK)
#    define RC_FILENAME "~/.wishrc"
#  else
#    define RC_FILENAME "~/.tclshrc"
#  endif
#endif
 
#ifdef TCL_7_5_OR_LATER
    /*
     * Starting from TCL 7.5, the symbol tcl_rcFileName is no longer
     * exported by libtcl.a. Instead, this variable must be set using
     * a TCL global variable
     */
    Tcl_SetVar(interp, "tcl_rcFileName", RC_FILENAME, TCL_GLOBAL_ONLY);
#else
    tcl_RcFileName = RC_FILENAME;
#endif
 
    return TCL_OK;
}