Hex Artifact Content

Artifact 835098013acc73843a36bd3488f22f13bfa6bce8:


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 09 09 70 61 63 6b   .. lib]....pack
0060: 61 67 65 20 72 65 71 75 69 72 65 20 74 65 61 70  age require teap
0070: 6f 74 63 6c 69 65 6e 74 0a 0a 20 20 20 20 20 20  otclient..      
0080: 20 20 20 20 20 20 20 20 20 20 70 75 74 73 20 22            puts "
0090: 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 65 78  The following ex
00a0: 74 65 6e 73 69 6f 6e 73 20 61 72 65 20 61 76 61  tensions are ava
00b0: 69 6c 61 62 6c 65 3a 22 0a 20 20 20 20 20 20 20  ilable:".       
00c0: 20 20 20 20 20 20 20 20 20 66 6f 72 65 61 63 68           foreach
00d0: 20 7b 65 78 74 65 6e 73 69 6f 6e 20 65 78 74 65   {extension exte
00e0: 6e 73 69 6f 6e 69 6e 66 6f 7d 20 5b 3a 3a 74 65  nsioninfo} [::te
00f0: 61 70 6f 74 63 6c 69 65 6e 74 3a 3a 67 65 74 5f  apotclient::get_
0100: 65 78 74 65 6e 73 69 6f 6e 73 20 5c 0a 20 20 20  extensions \.   
0110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0140: 74 65 61 70 6f 74 2e 61 63 74 69 76 65 73 74 61  teapot.activesta
0150: 74 65 2e 63 6f 6d 20 5c 0a 20 20 20 20 20 20 20  te.com \.       
0160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0180: 20 20 20 20 20 20 20 20 20 20 20 20 7b 2a 7d 20              {*} 
0190: 7b 2a 7d 5d 20 7b 0a 20 20 20 20 20 20 20 20 20  {*}] {.         
01a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70                 p
01b0: 75 74 73 20 22 20 20 24 65 78 74 65 6e 73 69 6f  uts "  $extensio
01c0: 6e 20 5b 6a 6f 69 6e 20 24 65 78 74 65 6e 73 69  n [join $extensi
01d0: 6f 6e 69 6e 66 6f 20 7b 2c 20 7d 5d 22 0a 20 20  oninfo {, }]".  
01e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a                }.