Hex Artifact Content

Artifact e0d226705d9467a9a0bc7cc99a33ab0aacb40661:


0000: 23 21 20 2f 75 73 72 2f 62 69 6e 2f 65 6e 76 20  #! /usr/bin/env 
0010: 74 63 6c 73 68 0a 0a 6c 61 70 70 65 6e 64 20 61  tclsh..lappend a
0020: 75 74 6f 5f 70 61 74 68 20 5f 5f 54 4d 50 5f 5f  uto_path __TMP__
0030: 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65  .package require
0040: 20 74 63 63 34 74 63 6c 0a 0a 74 63 63 34 74 63   tcc4tcl..tcc4tc
0050: 6c 3a 3a 63 70 72 6f 63 20 74 65 73 74 20 7b 69  l::cproc test {i
0060: 6e 74 20 69 7d 20 69 6e 74 20 7b 20 72 65 74 75  nt i} int { retu
0070: 72 6e 28 69 2b 34 32 29 3b 20 7d 0a 74 63 63 34  rn(i+42); }.tcc4
0080: 74 63 6c 3a 3a 63 70 72 6f 63 20 74 65 73 74 31  tcl::cproc test1
0090: 20 7b 69 6e 74 20 69 7d 20 69 6e 74 20 7b 20 72   {int i} int { r
00a0: 65 74 75 72 6e 28 69 2b 34 32 29 3b 20 7d 0a 70  eturn(i+42); }.p
00b0: 75 74 73 20 5b 74 65 73 74 20 31 5d 0a           uts [test 1].