Hex Artifact Content

Artifact ded7ead90fdc65545205ed98d8a0b2fd6862a47d:


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 5b 66 69 6c 65 20 6a  uto_path [file j
0030: 6f 69 6e 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d  oin [file dirnam
0040: 65 20 5b 69 6e 66 6f 20 73 63 72 69 70 74 5d 5d  e [info script]]
0050: 20 2e 2e 20 6c 69 62 5d 0a 0a 20 20 20 20 20 20   .. lib]..      
0060: 20 20 20 20 20 20 20 20 20 20 70 61 63 6b 61 67            packag
0070: 65 20 72 65 71 75 69 72 65 20 74 65 61 70 6f 74  e require teapot
0080: 63 6c 69 65 6e 74 0a 0a 20 20 20 20 20 20 20 20  client..        
0090: 20 20 20 20 20 20 20 20 73 65 74 20 6f 73 20 24          set os $
00a0: 74 63 6c 5f 70 6c 61 74 66 6f 72 6d 28 6f 73 29  tcl_platform(os)
00b0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
00c0: 20 69 66 20 7b 24 74 63 6c 5f 70 6c 61 74 66 6f   if {$tcl_platfo
00d0: 72 6d 28 70 6c 61 74 66 6f 72 6d 29 20 3d 3d 20  rm(platform) == 
00e0: 22 77 69 6e 64 6f 77 73 22 7d 20 7b 0a 20 20 20  "windows"} {.   
00f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0100: 20 20 20 20 20 73 65 74 20 6f 73 20 24 74 63 6c       set os $tcl
0110: 5f 70 6c 61 74 66 6f 72 6d 28 70 6c 61 74 66 6f  _platform(platfo
0120: 72 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20  rm).            
0130: 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 20 20 20      }..         
0140: 20 20 20 20 20 20 20 70 75 74 73 20 22 44 6f 77         puts "Dow
0150: 6e 6c 6f 61 64 69 6e 67 20 6d 64 35 20 61 6e 64  nloading md5 and
0160: 20 73 68 61 31 20 70 61 63 6b 61 67 65 73 20 66   sha1 packages f
0170: 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 73  or the current s
0180: 79 73 74 65 6d 22 0a 20 20 20 20 20 20 20 20 20  ystem".         
0190: 20 20 20 20 20 20 20 3a 3a 74 65 61 70 6f 74 63         ::teapotc
01a0: 6c 69 65 6e 74 3a 3a 64 6f 77 6e 6c 6f 61 64 5f  lient::download_
01b0: 65 78 74 65 6e 73 69 6f 6e 73 20 22 6c 69 62 22  extensions "lib"
01c0: 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20   \.             
01d0: 20 20 20 20 20 5b 6c 69 73 74 20 74 65 61 70 6f       [list teapo
01e0: 74 2e 61 63 74 69 76 65 73 74 61 74 65 2e 63 6f  t.activestate.co
01f0: 6d 5d 20 5b 6c 69 73 74 20 6d 64 35 20 73 68 61  m] [list md5 sha
0200: 31 5d 20 24 6f 73 20 5c 0a 20 20 20 20 20 20 20  1] $os \.       
0210: 20 20 20 20 20 20 20 20 20 20 20 24 74 63 6c 5f             $tcl_
0220: 70 6c 61 74 66 6f 72 6d 28 6d 61 63 68 69 6e 65  platform(machine
0230: 29 0a 0a                                         )..