Hex Artifact Content

Artifact f0d4d5a170d2e31806346b84537b8586612bee92:


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 49 6e 74  argv) {..Tcl_Int
0080: 65 72 70 20 2a 78 3b 0a 0a 09 78 20 3d 20 54 63  erp *x;...x = Tc
0090: 6c 5f 43 72 65 61 74 65 49 6e 74 65 72 70 28 29  l_CreateInterp()
00a0: 3b 0a 0a 09 54 63 6c 5f 4d 61 69 6e 28 61 72 67  ;...Tcl_Main(arg
00b0: 63 2c 20 61 72 67 76 2c 20 54 63 6c 4b 69 74 5f  c, argv, TclKit_
00c0: 41 70 70 49 6e 69 74 29 3b 0a 0a 09 72 65 74 75  AppInit);...retu
00d0: 72 6e 28 30 29 3b 0a 7d 0a 23 65 6e 64 69 66 0a  rn(0);.}.#endif.