/ Internet File Formats / InternetFileFormatsCD.bin / text / latex / mac / alpha.6.0.sit / Tcl / UserCode / parray.tcl

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 70 61 72 72 61 79 | 2e 74 63 6c 00 00 00 00 |..parray|.tcl....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 00 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 04 38 00 | 00 01 7e ab 82 c0 9b ab |......8.|..~.....|
|00000060| 82 c0 9b 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 90 bf 00 00 |........|........|
|00000080| 23 20 70 61 72 72 61 79 | 3a 0d 23 20 50 72 69 6e |# parray|:.# Prin|
|00000090| 74 20 74 68 65 20 63 6f | 6e 74 65 6e 74 73 20 6f |t the co|ntents o|
|000000a0| 66 20 61 20 67 6c 6f 62 | 61 6c 20 61 72 72 61 79 |f a glob|al array|
|000000b0| 20 6f 6e 20 73 74 64 6f | 75 74 2e 0d 23 0d 23 20 | on stdo|ut..#.# |
|000000c0| 24 48 65 61 64 65 72 3a | 20 2f 72 65 6c 2f 63 76 |$Header:| /rel/cv|
|000000d0| 73 66 69 6c 65 73 2f 64 | 65 76 6f 2f 74 63 6c 2f |sfiles/d|evo/tcl/|
|000000e0| 6c 69 62 72 61 72 79 2f | 70 61 72 72 61 79 2e 74 |library/|parray.t|
|000000f0| 63 6c 2c 76 20 31 2e 32 | 20 31 39 39 32 2f 31 32 |cl,v 1.2| 1992/12|
|00000100| 2f 32 33 20 31 35 3a 34 | 30 3a 31 30 20 7a 6f 6f |/23 15:4|0:10 zoo|
|00000110| 20 45 78 70 20 24 20 53 | 50 52 49 54 45 20 28 42 | Exp $ S|PRITE (B|
|00000120| 65 72 6b 65 6c 65 79 29 | 0d 23 0d 23 20 43 6f 70 |erkeley)|.#.# Cop|
|00000130| 79 72 69 67 68 74 20 31 | 39 39 31 20 52 65 67 65 |yright 1|991 Rege|
|00000140| 6e 74 73 20 6f 66 20 74 | 68 65 20 55 6e 69 76 65 |nts of t|he Unive|
|00000150| 72 73 69 74 79 20 6f 66 | 20 43 61 6c 69 66 6f 72 |rsity of| Califor|
|00000160| 6e 69 61 0d 23 20 50 65 | 72 6d 69 73 73 69 6f 6e |nia.# Pe|rmission|
|00000170| 20 74 6f 20 75 73 65 2c | 20 63 6f 70 79 2c 20 6d | to use,| copy, m|
|00000180| 6f 64 69 66 79 2c 20 61 | 6e 64 20 64 69 73 74 72 |odify, a|nd distr|
|00000190| 69 62 75 74 65 20 74 68 | 69 73 0d 23 20 73 6f 66 |ibute th|is.# sof|
|000001a0| 74 77 61 72 65 20 61 6e | 64 20 69 74 73 20 64 6f |tware an|d its do|
|000001b0| 63 75 6d 65 6e 74 61 74 | 69 6f 6e 20 66 6f 72 20 |cumentat|ion for |
|000001c0| 61 6e 79 20 70 75 72 70 | 6f 73 65 20 61 6e 64 20 |any purp|ose and |
|000001d0| 77 69 74 68 6f 75 74 0d | 23 20 66 65 65 20 69 73 |without.|# fee is|
|000001e0| 20 68 65 72 65 62 79 20 | 67 72 61 6e 74 65 64 2c | hereby |granted,|
|000001f0| 20 70 72 6f 76 69 64 65 | 64 20 74 68 61 74 20 74 | provide|d that t|
|00000200| 68 69 73 20 63 6f 70 79 | 72 69 67 68 74 0d 23 20 |his copy|right.# |
|00000210| 6e 6f 74 69 63 65 20 61 | 70 70 65 61 72 73 20 69 |notice a|ppears i|
|00000220| 6e 20 61 6c 6c 20 63 6f | 70 69 65 73 2e 20 20 54 |n all co|pies.  T|
|00000230| 68 65 20 55 6e 69 76 65 | 72 73 69 74 79 20 6f 66 |he Unive|rsity of|
|00000240| 20 43 61 6c 69 66 6f 72 | 6e 69 61 0d 23 20 6d 61 | Califor|nia.# ma|
|00000250| 6b 65 73 20 6e 6f 20 72 | 65 70 72 65 73 65 6e 74 |kes no r|epresent|
|00000260| 61 74 69 6f 6e 73 20 61 | 62 6f 75 74 20 74 68 65 |ations a|bout the|
|00000270| 20 73 75 69 74 61 62 69 | 6c 69 74 79 20 6f 66 20 | suitabi|lity of |
|00000280| 74 68 69 73 0d 23 20 73 | 6f 66 74 77 61 72 65 20 |this.# s|oftware |
|00000290| 66 6f 72 20 61 6e 79 20 | 70 75 72 70 6f 73 65 2e |for any |purpose.|
|000002a0| 20 20 49 74 20 69 73 20 | 70 72 6f 76 69 64 65 64 |  It is |provided|
|000002b0| 20 22 61 73 20 69 73 22 | 20 77 69 74 68 6f 75 74 | "as is"| without|
|000002c0| 0d 23 20 65 78 70 72 65 | 73 73 20 6f 72 20 69 6d |.# expre|ss or im|
|000002d0| 70 6c 69 65 64 20 77 61 | 72 72 61 6e 74 79 2e 0d |plied wa|rranty..|
|000002e0| 23 0d 0d 70 72 6f 63 20 | 70 61 72 72 61 79 20 61 |#..proc |parray a|
|000002f0| 20 7b 0d 20 20 20 20 75 | 70 76 61 72 20 31 20 24 | {.    u|pvar 1 $|
|00000300| 61 20 61 72 72 61 79 0d | 20 20 20 20 69 66 20 5b |a array.|    if [|
|00000310| 63 61 74 63 68 20 7b 61 | 72 72 61 79 20 73 69 7a |catch {a|rray siz|
|00000320| 65 20 61 72 72 61 79 7d | 5d 20 7b 0d 09 65 72 72 |e array}|] {..err|
|00000330| 6f 72 20 22 5c 22 24 61 | 5c 22 20 69 73 6e 27 74 |or "\"$a|\" isn't|
|00000340| 20 61 6e 20 61 72 72 61 | 79 22 0d 20 20 20 20 7d | an arra|y".    }|
|00000350| 0d 20 20 20 20 73 65 74 | 20 6d 61 78 6c 20 30 0d |.    set| maxl 0.|
|00000360| 20 20 20 20 66 6f 72 65 | 61 63 68 20 6e 61 6d 65 |    fore|ach name|
|00000370| 20 5b 6c 73 6f 72 74 20 | 5b 61 72 72 61 79 20 6e | [lsort |[array n|
|00000380| 61 6d 65 73 20 61 72 72 | 61 79 5d 5d 20 7b 0d 09 |ames arr|ay]] {..|
|00000390| 69 66 20 7b 5b 73 74 72 | 69 6e 67 20 6c 65 6e 67 |if {[str|ing leng|
|000003a0| 74 68 20 24 6e 61 6d 65 | 5d 20 3e 20 24 6d 61 78 |th $name|] > $max|
|000003b0| 6c 7d 20 7b 0d 09 20 20 | 20 20 73 65 74 20 6d 61 |l} {..  |  set ma|
|000003c0| 78 6c 20 5b 73 74 72 69 | 6e 67 20 6c 65 6e 67 74 |xl [stri|ng lengt|
|000003d0| 68 20 24 6e 61 6d 65 5d | 0d 09 7d 0d 20 20 20 20 |h $name]|..}.    |
|000003e0| 7d 0d 20 20 20 20 73 65 | 74 20 6d 61 78 6c 20 5b |}.    se|t maxl [|
|000003f0| 65 78 70 72 20 7b 24 6d | 61 78 6c 20 2b 20 5b 73 |expr {$m|axl + [s|
|00000400| 74 72 69 6e 67 20 6c 65 | 6e 67 74 68 20 24 61 5d |tring le|ngth $a]|
|00000410| 20 2b 20 32 7d 5d 0d 20 | 20 20 20 66 6f 72 65 61 | + 2}]. |   forea|
|00000420| 63 68 20 6e 61 6d 65 20 | 5b 6c 73 6f 72 74 20 5b |ch name |[lsort [|
|00000430| 61 72 72 61 79 20 6e 61 | 6d 65 73 20 61 72 72 61 |array na|mes arra|
|00000440| 79 5d 5d 20 7b 0d 09 73 | 65 74 20 6e 61 6d 65 53 |y]] {..s|et nameS|
|00000450| 74 72 69 6e 67 20 5b 66 | 6f 72 6d 61 74 20 25 73 |tring [f|ormat %s|
|00000460| 28 25 73 29 20 24 61 20 | 24 6e 61 6d 65 5d 0d 09 |(%s) $a |$name]..|
|00000470| 69 6e 73 65 72 74 54 65 | 78 74 20 5b 66 6f 72 6d |insertTe|xt [form|
|00000480| 61 74 20 22 25 2d 2a 73 | 20 3d 20 25 73 22 20 24 |at "%-*s| = %s" $|
|00000490| 6d 61 78 6c 20 24 6e 61 | 6d 65 53 74 72 69 6e 67 |maxl $na|meString|
|000004a0| 20 24 61 72 72 61 79 28 | 24 6e 61 6d 65 29 5d 0d | $array(|$name)].|
|000004b0| 20 20 20 20 7d 0d 7d 0d | 00 00 00 00 00 00 00 00 |    }.}.|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000510| 00 fe 00 f6 00 00 00 f6 | 00 00 00 fc 00 fc 00 fc |........|........|
|00000520| 00 fa 00 00 00 f8 00 00 | 00 f8 00 f8 00 00 00 fa |........|........|
|00000530| 0a 70 61 72 72 61 79 2e | 74 63 6c 61 02 00 00 00 |.parray.|tcla....|
|00000540| 50 61 72 74 53 49 54 21 | 00 00 00 00 00 00 00 00 |PartSIT!|........|
|00000550| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 ab 97 aa ed 00 00 | 00 00 00 00 01 7e 00 00 |........|.....~..|
|00000580| 00 f8 00 f8 00 00 00 f2 | 00 00 00 f8 00 fe 00 f8 |........|........|
|00000590| 00 00 00 f8 00 00 00 fc | 00 00 00 f8 00 02 00 02 |........|........|
|000005a0| 00 04 00 04 00 04 00 04 | 00 04 00 04 00 04 00 04 |........|........|
|000005b0| 00 04 00 02 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 6a e9 d0 |...H..Mo|naco.j..|
|00000610| 01 4c 83 f4 ff ff ff ff | 00 92 08 50 00 62 83 d0 |.L......|...P.b..|
|00000620| 40 a0 be 98 ff fc 00 04 | 00 04 00 28 00 03 00 be |@.......|...(....|
|00000630| 02 01 00 28 00 03 00 be | 02 01 ab 82 88 64 00 00 |...(....|.....d..|
|00000640| 03 7f 00 00 03 85 00 00 | 02 d1 01 00 00 00 01 00 |........|........|
|00000650| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 61 d8 88 |...L...L|...2.a..|
|00000660| 15 ac 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00000670| 00 0a 03 ed ff ff 00 00 | 00 00 00 6a f1 5c 00 00 |........|...j.\..|
+--------+-------------------------+-------------------------+--------+--------+