/*
?*?tkAppInit.c?--
?*
?*	Provides?a?default?version?of?the?Tcl_AppInit?procedure?for?use?in
?*	wish?and?similar?Tk-based?applications.
?*
?*?Copyright?（c）?1993?The?Regents?of?the?University?of?California.
?*?Copyright?（c）?1994-1997?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?“tk.h“
#include?“locale.h“

#ifdef?TK_TEST
extern?int		Tktest_Init（Tcl_Interp?*interp）;
#endif?/*?TK_TEST?*/

/*
?*----------------------------------------------------------------------
?*
?*?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（
????int?argc			/*?Number?of?command-line?arguments.?*/
????char?**argv）		/*?Values?of?command-line?arguments.?*/
{
????/*
?????*?The?following?#if?block?allows?you?to?change?the?AppInit?function?by
?????*?using?a?#define?of?TCL_LOCAL_APPINIT?instead?of?rewriting?this?entire
?????*?file.?The?#if?checks?for?that?#define?and?uses?Tcl_AppInit?if?it
?????*?doesn‘t?exist.
?????*/

#ifndef?TK_LOCAL_APPINIT
#define?TK_LOCAL_APPINIT?Tcl_AppInit
#endif
????extern?int?TK_LOCAL_APPINIT?（Tcl_Interp?*interp）;

????/*
?????*?The?following?#if?block?allows?you?to?change?how?Tcl?finds?the?startup
?????*?script?prime?the?library?or?encoding?paths?fiddle?with?the?argv
?????*?etc.?without?needing?to?rewrite?Tk_Main（）
?????*/

#ifdef?TK_LOCAL_MAIN_HOOK
????extern?int?TK_LOCAL_MAIN_HOOK?（int?*argc?char?***argv）;
????TK_LOCAL_MAIN_HOOK（&argc?&argv）;
#endif

????Tk_Main（argc?argv?TK_LOCAL_APPINIT）;
????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
?*	the?interp‘s?result?if?an?error?occurs.
?*
?*?Side?effects:
?*	Depends?on?the?startup?script.
?*
?*----------------------------------------------------------------------
?*/

int
Tcl_AppInit（
????Tcl_Interp?*interp）		/*?Interpreter?for?application.?*/
{
????if?（Tcl_Init（interp）?==?TCL_ERROR）?{
	return?TCL_ERROR;
????}
????if?（Tk_Init（interp）?==?TCL_ERROR）?{
	return?TCL_ERROR;
????}
????Tcl_StaticPackage（interp?“Tk“?Tk_Init?Tk_SafeInit）;
#ifdef?TK_TEST
????if?（Tktest_Init（interp）?==?TCL_ERROR）?{
	return?TCL_ERROR;
????}
????Tcl_StaticPackage（interp?“Tktest“?Tktest_Init
????????????（Tcl_PackageInitProc?*）?NULL）;
#endif?/*?TK_TEST?*/