Hex Artifact Content

Artifact e7a5fc9a49fbedffdd7e31290f86eff1a9957afa:


0000: 23 21 2f 75 73 72 2f 62 69 6e 2f 65 6e 76 20 74  #!/usr/bin/env t
0010: 63 6c 73 68 0a 0a 23 20 4f 70 65 6e 20 73 6f 6d  clsh..# Open som
0020: 65 20 66 69 6c 65 20 69 6e 73 69 64 65 20 74 68  e file inside th
0030: 65 20 74 63 6c 6b 69 74 20 74 68 61 74 20 77 69  e tclkit that wi
0040: 6c 6c 20 62 65 20 73 74 6f 72 65 64 20 69 6e 20  ll be stored in 
0050: 63 6f 6d 70 72 65 73 73 65 64 20 66 6f 72 6d 0a  compressed form.
0060: 73 65 74 20 66 64 20 5b 6f 70 65 6e 20 5b 66 69  set fd [open [fi
0070: 6c 65 20 6a 6f 69 6e 20 5b 69 6e 66 6f 20 6e 61  le join [info na
0080: 6d 65 6f 66 65 78 65 63 75 74 61 62 6c 65 5d 20  meofexecutable] 
0090: 62 6f 6f 74 2e 74 63 6c 5d 5d 0a 0a 67 65 74 73  boot.tcl]]..gets
00a0: 20 24 66 64 20 6c 69 6e 65 31 0a 0a 69 66 20 7b   $fd line1..if {
00b0: 5b 63 61 74 63 68 20 7b 73 65 65 6b 20 24 66 64  [catch {seek $fd
00c0: 20 30 7d 20 72 65 73 75 6c 74 5d 7d 20 7b 0a 20   0} result]} {. 
00d0: 20 20 20 70 75 74 73 20 22 47 6f 74 3a 20 20 20     puts "Got:   
00e0: 20 20 20 24 72 65 73 75 6c 74 22 0a 20 20 20 20     $result".    
00f0: 70 75 74 73 20 22 45 78 70 65 63 74 65 64 3a 20  puts "Expected: 
0100: 3c 4e 6f 20 45 72 72 6f 72 3e 22 0a 20 20 20 20  <No Error>".    
0110: 65 78 69 74 20 31 0a 7d 0a 0a 67 65 74 73 20 24  exit 1.}..gets $
0120: 66 64 20 73 74 72 0a 0a 69 66 20 7b 5b 73 74 72  fd str..if {[str
0130: 69 6e 67 20 65 71 75 61 6c 20 24 73 74 72 20 24  ing equal $str $
0140: 6c 69 6e 65 31 5d 7d 20 7b 0a 20 20 20 20 65 78  line1]} {.    ex
0150: 69 74 20 30 0a 7d 0a 0a 70 75 74 73 20 22 47 6f  it 0.}..puts "Go
0160: 74 3a 20 20 20 20 20 20 24 73 74 72 22 0a 70 75  t:      $str".pu
0170: 74 73 20 22 45 78 70 65 63 74 65 64 3a 20 24 6c  ts "Expected: $l
0180: 69 6e 65 31 22 0a 0a 65 78 69 74 20 31 0a        ine1"..exit 1.