开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 通讯编程 > 查看源码
otkAppInit.c
资源名称：ns-allinone-2.33.tar.gz　[点击查看]
上传用户：rrhhcc
上传日期：2015-12-11
资源大小：54129k
文件大小：3k
源码类别：

通讯编程

开发平台：

Visual C++

otkAppInit.c：源码内容
  1. /* 
  2.  * tkAppInit.c --
  3.  *
  4.  * Provides a default version of the Tcl_AppInit procedure for
  5.  * use in wish and similar Tk-based applications.
  6.  *
  7.  * Copyright (c) 1993 The Regents of the University of California.
  8.  * Copyright (c) 1994 Sun Microsystems, Inc.
  9.  *
  10.  * See the file "license.terms" for information on usage and redistribution
  11.  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  12.  */
  14. #ifndef lint
  15. /* static char sccsid[] = "@(#) tkAppInit.c 1.12 94/12/17 16:30:56"; */
  16. #endif /* not lint */
  18. #include <tk.h>
  19. #include <otcl.h>
  21. #if TK_MAJOR_VERSION < 3 || (TK_MAJOR_VERSION==3 && TK_MINOR_VERSION<3)
  22.   #error Tk distribution TOO OLD
  23. #endif
  25. /*
  26.  * The following variable is a special hack that is needed in order for
  27.  * Sun shared libraries to be used for Tcl.
  28.  */
  30. #ifdef NEED_MATHERR
  31. extern int matherr();
  32. int *tclDummyMathPtr = (int *) matherr;
  33. #endif
  35. /*
  36.  *----------------------------------------------------------------------
  37.  *
  38.  * main --
  39.  *
  40.  * This is the main program for the application.
  41.  *
  42.  * Results:
  43.  * None: Tk_Main never returns here, so this procedure never
  44.  * returns either.
  45.  *
  46.  * Side effects:
  47.  * Whatever the application does.
  48.  *
  49.  *----------------------------------------------------------------------
  50.  */
  52. #if TK_MAJOR_VERSION < 4
  54. extern int main();
  55. int *tclDummyMainPtr = (int *) main;
  57. #else
  59. int
  60. main(argc, argv)
  61.     int argc; /* Number of command-line arguments. */
  62.     char **argv; /* Values of command-line arguments. */
  63. {
  64.     Tk_Main(argc, argv, Tcl_AppInit);
  65.     return 0; /* Needed only to prevent compiler warning. */
  66. }
  68. #endif
  71. /*
  72.  *----------------------------------------------------------------------
  73.  *
  74.  * Tcl_AppInit --
  75.  *
  76.  * This procedure performs application-specific initialization.
  77.  * Most applications, especially those that incorporate additional
  78.  * packages, will have their own version of this procedure.
  79.  *
  80.  * Results:
  81.  * Returns a standard Tcl completion code, and leaves an error
  82.  * message in interp->result if an error occurs.
  83.  *
  84.  * Side effects:
  85.  * Depends on the startup script.
  86.  *
  87.  *----------------------------------------------------------------------
  88.  */
  90. int
  91. Tcl_AppInit(interp)
  92.     Tcl_Interp *interp; /* Interpreter for application. */
  93. {
  94.     Tk_Window main;
  96.     main = Tk_MainWindow(interp);
  98.     if (Tcl_Init(interp) == TCL_ERROR) {
  99. return TCL_ERROR;
  100.     }
  101.     if (Tk_Init(interp) == TCL_ERROR) {
  102. return TCL_ERROR;
  103.     }
  105.     if (Otcl_Init(interp) == TCL_ERROR) {
  106.       return TCL_ERROR;
  107.     }
  109. #if TK_MAJOR_VERSION < 4 || (TK_MAJOR_VERSION==4 && TK_MINOR_VERSION<1)
  110.     tcl_RcFileName = "~/.wishrc";
  111. #else
  112.     Tcl_SetVar(interp, "tcl_rcFileName", "~/.wishrc", TCL_GLOBAL_ONLY);
  113. #endif
  115.     return TCL_OK;
  116. }