home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / devel / tcl / tclx7_31.z / tclx7_31 / tcldev / tclX7.3a-p1 / src / tclXmain.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-11-19  |  1.2 KB  |  39 lines
  1. /* 
  2.  * tclXmain.c --
  3.  *
  4.  * Main to run the Tcl shell.  This file is a useful template for custom
  5.  * applications that wish to have Tcl as the top level command language.
  6.  * This file can also be compiled with C++.
  7.  *-----------------------------------------------------------------------------
  8.  * Copyright 1991-1993 Karl Lehenbauer and Mark Diekhans.
  9.  *
  10.  * Permission to use, copy, modify, and distribute this software and its
  11.  * documentation for any purpose and without fee is hereby granted, provided
  12.  * that the above copyright notice appear in all copies.  Karl Lehenbauer and
  13.  * Mark Diekhans make no representations about the suitability of this
  14.  * software for any purpose.  It is provided "as is" without express or
  15.  * implied warranty.
  16.  *-----------------------------------------------------------------------------
  17.  * $Id: tclXmain.c,v 3.0 1993/11/19 06:58:48 markd Rel $
  18.  *-----------------------------------------------------------------------------
  19.  */
  20.  
  21. #include "tclExtend.h"
  22.  
  23. #ifdef __cplusplus
  24. int
  25. main (int     argc,
  26.       char  **argv)
  27. #else
  28. main(argc, argv)
  29.      int     argc;
  30.      char  **argv;
  31. #endif
  32. {
  33.     TclX_Shell (argc, argv);
  34.  
  35.     return 0;  /* Never exits here: make the compiler happy */
  36.  
  37. }
  38.  
  39.