/*?
?*?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?Sun?Microsystems?Inc.
?*
?*?See?the?file?“license.terms“?for?information?on?usage?and?redistribution
?*?of?this?file?and?for?a?DISCLAIMER?OF?ALL?WARRANTIES.
?*
?*?SCCS:?@（#）?tkAppInit.c?1.22?96/05/29?09:47:08
?*/

#include?“tk.h“

/*
?*?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;

#ifdef?TK_TEST
EXTERN?int		Tktest_Init?_ANSI_ARGS_（（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（argc?argv）
????int?argc;			/*?Number?of?command-line?arguments.?*/
????char?**argv;		/*?Values?of?command-line?arguments.?*/
{
????Tk_Main（argc?argv?Tcl_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?interp->result?if?an?error?occurs.
?*
?*?Side?effects:
?*	Depends?on?the?startup?script.
?*
?*----------------------------------------------------------------------
?*/

int
Tcl_AppInit（interp）
????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?*/


????/*
?????*?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?applica

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件????????734??2011-07-10?17:31??Genesis10.2\install\frontline.gif

?????文件??????50073??2011-07-10?17:31??Genesis10.2\install\ftp\ftp_lib.tcl

?????文件???????5174??2011-07-10?17:31??Genesis10.2\install\ftp.tcl

?????文件???????9203??2011-07-10?17:31??Genesis10.2\install\install.hlp

????..A..H.?????61238??2016-05-18?21:30??Genesis10.2\install\install.tcl

?????文件??????14512??2011-07-10?17:31??Genesis10.2\install\plugin.tcl

?????文件???????2049??2011-07-10?17:31??Genesis10.2\install\reader.hlp

?????文件??????29334??2011-07-10?17:31??Genesis10.2\install\reader.tcl

?????文件??????49523??2011-07-10?17:31??Genesis10.2\install\tclu.tcl

?????文件??????33265??2011-07-10?17:31??Genesis10.2\install\tku.tcl

????..A..HR?????61106??2014-06-23?17:20??Genesis10.2\install\復件?install.tcl

?????文件????????109??2011-07-10?17:31??Genesis10.2\install.bat

?????文件???????1101??2011-07-10?17:31??Genesis10.2\install.csh

?????文件?????????62??1998-12-08?00:00??Genesis10.2\products\app_gen\app_gen.ttl

?????文件???????4111??2013-02-07?12:17??Genesis10.2\products\app_gen\v102\w2k\app_gen.doc

?????文件?????124628??2016-05-19?13:47??Genesis10.2\products\app_gen\v102\w2k\app_gen.ins

?????文件?????124637??2016-05-19?13:45??Genesis10.2\products\app_gen\v102\w2k\app_gen.ins.bak

?????文件???????2201??2013-02-07?12:18??Genesis10.2\products\app_gen\v102\w2k\app_gen.lst

?????文件?????????54??2015-06-18?21:06??Genesis10.2\products\app_gen\v102\w2k\app_gen.sum

?????文件???36713890??2015-06-18?21:04??Genesis10.2\products\app_gen\v102\w2k\app_gen.tgz

?????文件????????112??2011-07-10?17:32??Genesis10.2\reader.bat

?????文件????????809??2011-07-10?17:32??Genesis10.2\reader.csh

?????文件?????????14??2008-09-14?15:55??Genesis10.2\sn.txt

?????文件?????307710??2011-07-10?17:31??Genesis10.2\tools\aix\dongle_info.exe

?????文件??????77434??2011-07-10?17:31??Genesis10.2\tools\aix\gunzip.exe

?????文件??????30390??2011-07-10?17:31??Genesis10.2\tools\aix\md5sum.exe

?????文件???????2182??2011-07-10?17:31??Genesis10.2\tools\aix\pipe_in.exe

?????文件???????1518??2011-07-10?17:31??Genesis10.2\tools\aix\pipe_out.exe

?????文件????1191425??2011-07-10?17:31??Genesis10.2\tools\aix\tcltk\bin\wish80.exe

?????文件???????3465??2011-07-10?17:31??Genesis10.2\tools\generic\tcltk\library\bgerror.tcl

............此處省略831個文件信息