Hex Artifact Content

Artifact dcb1a6f5fa2bdf91882c408eb6c16f3921a38b9a:


0000: 23 69 66 6e 64 65 66 20 4b 49 54 53 48 5f 4e 45  #ifndef KITSH_NE
0010: 45 44 5f 57 49 4e 4d 41 49 4e 0a 23 69 6e 63 6c  ED_WINMAIN.#incl
0020: 75 64 65 20 3c 74 63 6c 2e 68 3e 0a 0a 69 6e 74  ude <tcl.h>..int
0030: 20 54 63 6c 4b 69 74 5f 41 70 70 49 6e 69 74 28   TclKit_AppInit(
0040: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65  Tcl_Interp *inte
0050: 72 70 29 3b 0a 0a 69 6e 74 20 6d 61 69 6e 28 69  rp);..int main(i
0060: 6e 74 20 61 72 67 63 2c 20 63 68 61 72 20 2a 2a  nt argc, char **
0070: 61 72 67 76 29 20 7b 0a 09 54 63 6c 5f 4d 61 69  argv) {..Tcl_Mai
0080: 6e 28 61 72 67 63 2c 20 61 72 67 76 2c 20 54 63  n(argc, argv, Tc
0090: 6c 4b 69 74 5f 41 70 70 49 6e 69 74 29 3b 0a 0a  lKit_AppInit);..
00a0: 09 2f 2a 20 49 66 20 54 63 6c 5f 4d 61 69 6e 28  ./* If Tcl_Main(
00b0: 29 20 72 65 74 75 72 6e 73 2c 20 73 6f 6d 65 74  ) returns, somet
00c0: 68 69 6e 67 20 77 65 6e 74 20 77 72 6f 6e 67 20  hing went wrong 
00d0: 2a 2f 0a 09 72 65 74 75 72 6e 28 31 29 3b 0a 7d  */..return(1);.}
00e0: 0a 23 65 6e 64 69 66 0a                          .#endif.