Artifact f0d4d5a170d2e31806346b84537b8586612bee92:
- File
kitsh/buildsrc/kitsh-0.0/main.c
— part of check-in
[f644c21488]
at
2010-09-26 04:40:28
on branch trunk
— Updated kitsh to support Windows
Removed executable bit from boot.tcl
Updated licensing
Added documentation regarding statically linking to Tk
Updated win32 build test to pass in path to zlib (user: rkeene, size: 224) [annotate] [blame] [check-ins using]
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.