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

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 73 65 74 56 61 72 | 2e 74 63 6c 00 00 00 00 |..setVar|.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 05 79 00 | 00 01 7e a9 a2 a2 c1 a9 |......y.|..~.....|
|00000060| a2 a2 c1 00 00 04 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 b1 8f 00 00 |........|........|
|00000080| 23 20 46 49 4c 45 3a 20 | 73 65 74 56 61 72 2e 74 |# FILE: |setVar.t|
|00000090| 63 6c 0d 23 0d 23 20 4c | 41 53 54 20 55 50 44 41 |cl.#.# L|AST UPDA|
|000000a0| 54 45 3a 20 30 31 2f 30 | 37 2f 39 33 20 34 3a 34 |TE: 01/0|7/93 4:4|
|000000b0| 30 3a 32 35 20 41 4d 0d | 23 0d 23 20 54 68 69 73 |0:25 AM.|#.# This|
|000000c0| 20 66 69 6c 65 20 63 6f | 6e 74 61 69 6e 73 20 74 | file co|ntains t|
|000000d0| 68 65 20 66 6f 6c 6c 6f | 77 69 6e 67 20 54 43 4c |he follo|wing TCL|
|000000e0| 20 70 72 6f 63 65 64 75 | 72 65 28 73 29 3a 0d 23 | procedu|re(s):.#|
|000000f0| 0d 23 09 73 65 74 56 61 | 72 20 2d 2d 20 73 65 74 |.#.setVa|r -- set|
|00000100| 73 20 61 20 67 6c 6f 62 | 61 6c 20 76 61 72 69 61 |s a glob|al varia|
|00000110| 62 6c 65 0d 23 09 67 65 | 74 56 61 72 20 2d 2d 20 |ble.#.ge|tVar -- |
|00000120| 72 65 74 75 72 6e 73 20 | 74 68 65 20 76 61 6c 75 |returns |the valu|
|00000130| 65 20 6f 66 20 61 20 67 | 6c 6f 62 61 6c 20 76 61 |e of a g|lobal va|
|00000140| 72 69 61 62 6c 65 0d 23 | 0d 23 09 54 68 65 73 65 |riable.#|.#.These|
|00000150| 20 72 6f 75 74 69 6e 65 | 73 20 73 69 6d 75 6c 61 | routine|s simula|
|00000160| 74 65 20 74 68 65 20 61 | 62 73 65 6e 63 65 20 6f |te the a|bsence o|
|00000170| 66 20 74 68 65 73 65 20 | 63 6f 72 72 65 73 70 6f |f these |correspo|
|00000180| 64 69 6e 67 0d 23 09 63 | 6f 6d 6d 61 6e 64 73 20 |ding.#.c|ommands |
|00000190| 66 72 6f 6d 20 65 61 72 | 6c 69 65 72 20 76 65 72 |from ear|lier ver|
|000001a0| 73 69 6f 6e 73 20 6f 66 | 20 41 6c 70 68 61 2e 20 |sions of| Alpha. |
|000001b0| 20 55 73 65 66 75 6c 20 | 77 6f 72 6b 69 6e 67 20 | Useful |working |
|000001c0| 77 69 74 68 0d 23 09 6f | 6c 64 20 73 63 72 69 70 |with.#.o|ld scrip|
|000001d0| 74 73 2e 0d 0d 23 20 43 | 4f 50 59 52 49 47 48 54 |ts...# C|OPYRIGHT|
|000001e0| 3a 0d 23 0d 23 09 43 6f | 70 79 72 69 67 68 74 20 |:.#.#.Co|pyright |
|000001f0| a9 20 31 39 39 33 20 62 | 79 20 44 61 76 69 64 20 |. 1993 b|y David |
|00000200| 43 2e 20 42 6c 61 63 6b | 0d 23 09 41 6c 6c 20 72 |C. Black|.#.All r|
|00000210| 69 67 68 74 73 20 72 65 | 73 65 72 76 65 64 2e 0d |ights re|served..|
|00000220| 23 0d 23 09 52 65 64 69 | 73 74 72 69 62 75 74 69 |#.#.Redi|stributi|
|00000230| 6f 6e 20 61 6e 64 20 75 | 73 65 20 69 6e 20 73 6f |on and u|se in so|
|00000240| 75 72 63 65 20 61 6e 64 | 20 62 69 6e 61 72 79 20 |urce and| binary |
|00000250| 66 6f 72 6d 73 20 61 72 | 65 20 70 65 72 6d 69 74 |forms ar|e permit|
|00000260| 74 65 64 0d 23 09 70 72 | 6f 76 69 64 65 64 20 74 |ted.#.pr|ovided t|
|00000270| 68 61 74 20 74 68 65 20 | 61 62 6f 76 65 20 63 6f |hat the |above co|
|00000280| 70 79 72 69 67 68 74 20 | 6e 6f 74 69 63 65 20 61 |pyright |notice a|
|00000290| 6e 64 20 74 68 69 73 20 | 70 61 72 61 67 72 61 70 |nd this |paragrap|
|000002a0| 68 20 61 72 65 0d 23 09 | 64 75 70 6c 69 63 61 74 |h are.#.|duplicat|
|000002b0| 65 64 20 69 6e 20 61 6c | 6c 20 73 75 63 68 20 66 |ed in al|l such f|
|000002c0| 6f 72 6d 73 20 61 6e 64 | 20 74 68 61 74 20 61 6e |orms and| that an|
|000002d0| 79 20 64 6f 63 75 6d 65 | 6e 74 61 74 69 6f 6e 2c |y docume|ntation,|
|000002e0| 0d 23 09 61 64 76 65 72 | 74 69 73 69 6e 67 20 6d |.#.adver|tising m|
|000002f0| 61 74 65 72 69 61 6c 73 | 2c 20 61 6e 64 20 6f 74 |aterials|, and ot|
|00000300| 68 65 72 20 6d 61 74 65 | 72 69 61 6c 73 20 72 65 |her mate|rials re|
|00000310| 6c 61 74 65 64 20 74 6f | 20 73 75 63 68 0d 23 09 |lated to| such.#.|
|00000320| 64 69 73 74 72 69 62 75 | 74 69 6f 6e 20 61 6e 64 |distribu|tion and|
|00000330| 20 75 73 65 20 61 63 6b | 6e 6f 77 6c 65 64 67 65 | use ack|nowledge|
|00000340| 20 74 68 61 74 20 74 68 | 65 20 73 6f 66 74 77 61 | that th|e softwa|
|00000350| 72 65 20 77 61 73 20 64 | 65 76 65 6c 6f 70 65 64 |re was d|eveloped|
|00000360| 0d 23 09 62 79 20 44 61 | 76 69 64 20 43 2e 20 42 |.#.by Da|vid C. B|
|00000370| 6c 61 63 6b 2e 0d 23 0d | 23 09 54 48 49 53 20 53 |lack..#.|#.THIS S|
|00000380| 4f 46 54 57 41 52 45 20 | 49 53 20 50 52 4f 56 49 |OFTWARE |IS PROVI|
|00000390| 44 45 44 20 22 41 53 20 | 49 53 22 20 41 4e 44 20 |DED "AS |IS" AND |
|000003a0| 57 49 54 48 4f 55 54 20 | 41 4e 59 20 45 58 50 52 |WITHOUT |ANY EXPR|
|000003b0| 45 53 53 20 4f 52 0d 23 | 09 49 4d 50 4c 49 45 44 |ESS OR.#|.IMPLIED|
|000003c0| 20 57 41 52 52 41 4e 54 | 49 45 53 2c 20 49 4e 43 | WARRANT|IES, INC|
|000003d0| 4c 55 44 49 4e 47 2c 20 | 57 49 54 48 4f 55 54 20 |LUDING, |WITHOUT |
|000003e0| 4c 49 4d 49 54 41 54 49 | 4f 4e 2c 20 54 48 45 20 |LIMITATI|ON, THE |
|000003f0| 49 4d 50 4c 49 45 44 0d | 23 09 57 41 52 52 41 4e |IMPLIED.|#.WARRAN|
|00000400| 54 49 45 53 20 4f 46 20 | 4d 45 52 43 48 41 4e 54 |TIES OF |MERCHANT|
|00000410| 41 42 49 4c 49 54 59 20 | 41 4e 44 20 46 49 54 4e |ABILITY |AND FITN|
|00000420| 45 53 53 20 46 4f 52 20 | 41 20 50 41 52 54 49 43 |ESS FOR |A PARTIC|
|00000430| 55 4c 41 52 20 50 55 52 | 50 4f 53 45 2e 0d 23 0d |ULAR PUR|POSE..#.|
|00000440| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000450| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000460| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000470| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000480| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000490| 0d 0d 23 20 41 55 54 48 | 4f 52 0d 23 09 0d 23 09 |..# AUTH|OR.#..#.|
|000004a0| 44 61 76 69 64 20 43 2e | 20 42 6c 61 63 6b 0d 23 |David C.| Black.#|
|000004b0| 09 49 6e 74 65 72 6e 65 | 74 3a 20 62 6c 61 63 6b |.Interne|t: black|
|000004c0| 40 6d 70 64 2e 74 61 6e | 64 65 6d 2e 63 6f 6d 0d |@mpd.tan|dem.com.|
|000004d0| 23 09 47 45 6e 69 65 3a | 20 20 20 20 44 2e 43 2e |#.GEnie:|    D.C.|
|000004e0| 42 4c 41 43 4b 0d 23 09 | 55 53 6e 61 69 6c 3a 20 |BLACK.#.|USnail: |
|000004f0| 20 20 36 32 31 37 20 4a | 6f 68 6e 20 43 68 69 73 |  6217 J|ohn Chis|
|00000500| 75 6d 20 4c 61 6e 65 2c | 20 41 75 73 74 69 6e 2c |um Lane,| Austin,|
|00000510| 20 54 78 20 37 38 37 34 | 39 2d 31 38 33 38 0d 23 | Tx 7874|9-1838.#|
|00000520| 0d 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |.#######|########|
|00000530| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000540| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000550| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000560| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000570| 23 0d 0d 70 72 6f 63 20 | 73 65 74 56 61 72 20 7b |#..proc |setVar {|
|00000580| 6e 61 6d 65 20 76 61 6c | 75 65 7d 20 7b 0d 09 75 |name val|ue} {..u|
|00000590| 70 76 61 72 20 23 30 20 | 24 6e 61 6d 65 20 74 68 |pvar #0 |$name th|
|000005a0| 65 56 61 72 0d 09 73 65 | 74 20 74 68 65 56 61 72 |eVar..se|t theVar|
|000005b0| 20 24 76 61 6c 75 65 0d | 7d 0d 0d 70 72 6f 63 20 | $value.|}..proc |
|000005c0| 67 65 74 56 61 72 20 7b | 6e 61 6d 65 7d 20 7b 0d |getVar {|name} {.|
|000005d0| 09 75 70 76 61 72 20 23 | 30 20 24 6e 61 6d 65 20 |.upvar #|0 $name |
|000005e0| 74 68 65 56 61 72 0d 09 | 72 65 74 75 72 6e 20 24 |theVar..|return $|
|000005f0| 74 68 65 56 61 72 0d 7d | 0d 00 00 00 00 00 00 00 |theVar.}|........|
|00000600| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000610| 54 03 70 03 c0 68 00 46 | 8b 04 32 00 70 03 b0 81 |T.p..h.F|..2.p...|
|00000620| 66 16 29 01 67 10 2b 60 | 58 13 22 68 00 48 4e 91 |f.).g.+`|X."h.HN.|
|00000630| 0a 73 65 74 56 61 72 2e | 74 63 6c 61 02 00 00 00 |.setVar.|tcla....|
|00000640| 50 61 72 74 53 49 54 21 | 00 00 00 00 00 00 00 00 |PartSIT!|........|
|00000650| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 ab 97 aa ef 00 00 | 00 00 00 00 01 7e 9c 41 |........|.....~.A|
|00000680| 7f 12 b9 e8 00 28 ea 04 | 59 46 4a 46 6f 0e 30 06 |.....(..|YFJFo.0.|
|00000690| 78 01 ef 80 56 50 01 01 | 8a 67 20 1e 43 60 4c 01 |x...VP..|.g .C`L.|
|000006a0| f8 ce 6d 01 60 32 7f 29 | 01 67 22 86 01 2c 1f 60 |..m.`2.)|.g"..,.`|
|000006b0| 50 01 1d 5a 7f c0 01 ff | ae 2b 60 58 20 2b 68 54 |P..Z....|.+`X +hT|
|000006c0| 50 03 02 1a 4a 80 66 16 | 57 01 ff b6 50 12 02 0a |P...J.f.|W...P...|
|000006d0| 58 8f e7 2d 60 4c 75 6d | 73 02 1c f0 ff 92 20 07 |X..-`Lum|s..... .|
|000006e0| 40 13 07 18 28 6e 00 08 | 30 a1 01 00 91 8e 01 00 |@...(n..|0.......|
|000006f0| d2 26 92 50 02 2f e2 2a | 00 47 48 02 a0 65 0c 80 |.&.P./.*|.GH..e..|
|00000700| 00 00 00 48 00 0a 43 6f | 75 72 69 65 72 00 00 02 |...H..Co|urier...|
|00000710| 00 14 54 ba 00 1c 00 01 | 00 00 00 00 00 00 a0 0c |..T.....|........|
|00000720| 00 00 00 e8 55 fe 00 04 | 00 04 00 32 00 0c 01 dd |....U...|...2....|
|00000730| 02 06 00 32 00 0c 01 dd | 02 06 00 01 6f 4d 00 00 |...2....|....oM..|
|00000740| 04 11 00 00 04 11 00 00 | 00 13 01 00 00 00 01 00 |........|........|
|00000750| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 d9 48 b0 |...L...L|...2..H.|
|00000760| 0b 64 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.d.....2|..MPSR..|
|00000770| 00 0a 03 ed ff ff 00 00 | 00 00 00 d9 c0 ec 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+