Hex Artifact Content

Artifact 5950dce5362530130af4dfde0d930956d679c6f2:


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 5f 41 70 70 49 6e 69  ..int Tcl_AppIni
0020: 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e  t(Tcl_Interp *in
0030: 74 65 72 70 29 20 7b 0a 09 72 65 74 75 72 6e 28  terp) {..return(
0040: 54 63 6c 5f 49 6e 69 74 28 69 6e 74 65 72 70 29  Tcl_Init(interp)
0050: 29 3b 0a 7d 0a 0a 69 6e 74 20 6d 61 69 6e 28 69  );.}..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 5f 41 70 70 49 6e 69 74 29 3b 0a 0a 09 72 65  l_AppInit);...re
00a0: 74 75 72 6e 28 31 29 3b 0a 7d 0a                 turn(1);.}.