genesis10.2genflex3.2

genesis10.2,genflex3.2

/* 
 * 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个文件信息