Hex Artifact Content

Artifact adc8789527472611d201c90ec783d364c7ea989c:


0000: 23 69 6e 63 6c 75 64 65 20 3c 74 63 6c 2e 68 3e  #include <tcl.h>
0010: 0a 0a 69 6e 74 20 54 63 6c 4b 69 74 5f 41 70 70  ..int TclKit_App
0020: 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72 70 20  Init(Tcl_Interp 
0030: 2a 69 6e 74 65 72 70 29 3b 0a 0a 69 6e 74 20 6d  *interp);..int m
0040: 61 69 6e 28 69 6e 74 20 61 72 67 63 2c 20 63 68  ain(int argc, ch
0050: 61 72 20 2a 2a 61 72 67 76 29 20 7b 0a 09 54 63  ar **argv) {..Tc
0060: 6c 5f 49 6e 74 65 72 70 20 2a 78 3b 0a 0a 09 78  l_Interp *x;...x
0070: 20 3d 20 54 63 6c 5f 43 72 65 61 74 65 49 6e 74   = Tcl_CreateInt
0080: 65 72 70 28 29 3b 0a 0a 09 54 63 6c 5f 4d 61 69  erp();...Tcl_Mai
0090: 6e 28 61 72 67 63 2c 20 61 72 67 76 2c 20 54 63  n(argc, argv, Tc
00a0: 6c 4b 69 74 5f 41 70 70 49 6e 69 74 29 3b 0a 0a  lKit_AppInit);..
00b0: 09 72 65 74 75 72 6e 28 30 29 3b 0a 7d 0a        .return(0);.}.