Internet File Formats

home *** CD-ROM | disk | FTP | other *** search
/ Internet File Formats / InternetFileFormatsCD.bin / text / latex / mac / alpha.6.0.sit / Tcl / SystemCode / applescript.tcl < prev next >
MacBinary | 1995-06-02 | 3.4 KB | [TEXT/ALFA]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Fri Jun 2 21:14:23 1995, modified Fri Jun 2 21:14:23 1995, creator Alpha editor, type ASCII, 2828 bytes "applescript.tcl" , at 0xb8c 382 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[ALFA]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0f 61 70 70 6c 65 73 | 63 72 69 70 74 2e 74 63 |..apples|cript.tc|
|00000010| 6c 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |l.......|........|
|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 01 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 0b 0c 00 | 00 01 7e ab f5 67 ef ab |........|..~..g..|
|00000060| f5 67 ef 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.g......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 e5 ce 00 00 |........|........|
|00000080| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000090| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 0d 23 20 |########|#####.# |
|000000d0| 41 70 70 6c 65 53 63 72 | 69 70 74 2e 74 63 6c 0d |AppleScr|ipt.tcl.|
|000000e0| 23 20 20 4a 6f 68 6e 20 | 53 61 72 61 70 61 74 61 |#  John |Sarapata|
|000000f0| 0d 23 20 20 73 61 72 61 | 70 61 74 61 5f 6a 6f 68 |.#  sara|pata_joh|
|00000100| 6e 40 6a 70 6d 6f 72 67 | 61 6e 2e 63 6f 6d 0d 23 |n@jpmorg|an.com.#|
|00000110| 0d 23 20 49 6e 73 74 61 | 6c 6c 69 6e 67 3a 0d 23 |.# Insta|lling:.#|
|00000120| 09 50 75 74 20 41 70 70 | 6c 65 53 63 72 69 70 74 |.Put App|leScript|
|00000130| 2e 74 63 6c 20 69 6e 20 | 79 6f 75 72 20 55 73 65 |.tcl in |your Use|
|00000140| 72 63 6f 64 65 20 66 6f | 6c 64 65 72 0d 23 20 20 |rcode fo|lder.#  |
|00000150| 20 50 75 74 20 74 68 65 | 20 66 6f 6c 6c 6f 77 69 | Put the| followi|
|00000160| 6e 67 20 6c 69 6e 65 20 | 69 6e 20 75 73 65 72 73 |ng line |in users|
|00000170| 74 61 72 74 75 70 2e 74 | 63 6c 3a 0d 23 20 20 20 |tartup.t|cl:.#   |
|00000180| 20 20 73 6f 75 72 63 65 | 20 24 48 4f 4d 45 3a 54 |  source| $HOME:T|
|00000190| 63 6c 3a 55 73 65 72 63 | 6f 64 65 3a 41 70 70 6c |cl:Userc|ode:Appl|
|000001a0| 65 53 63 72 69 70 74 2e | 74 63 6c 0d 23 0d 23 20 |eScript.|tcl.#.# |
|000001b0| 44 65 73 63 72 69 70 74 | 69 6f 6e 3a 0d 23 09 54 |Descript|ion:.#.T|
|000001c0| 68 69 73 20 66 69 6c 65 | 20 69 6d 70 6c 65 6d 65 |his file| impleme|
|000001d0| 6e 74 73 20 61 6e 20 41 | 70 70 6c 65 53 63 72 69 |nts an A|ppleScri|
|000001e0| 70 74 20 6d 6f 64 65 2c | 20 66 6f 72 20 70 65 6f |pt mode,| for peo|
|000001f0| 70 6c 65 20 77 68 6f 20 | 77 69 73 68 20 53 63 72 |ple who |wish Scr|
|00000200| 69 70 74 0d 23 09 45 64 | 69 74 6f 72 20 68 61 64 |ipt.#.Ed|itor had|
|00000210| 20 63 6f 6d 70 6c 65 78 | 20 66 75 6e 63 74 69 6f | complex| functio|
|00000220| 6e 73 20 6c 69 6b 65 20 | 73 65 61 72 63 68 20 61 |ns like |search a|
|00000230| 6e 64 20 72 65 70 6c 61 | 63 65 2e 20 43 75 72 72 |nd repla|ce. Curr|
|00000240| 65 6e 74 6c 79 2c 20 69 | 74 0d 23 09 6f 6e 6c 79 |ently, i|t.#.only|
|00000250| 20 73 75 70 70 6f 72 74 | 73 20 63 6f 6c 6f 72 20 | support|s color |
|00000260| 65 64 69 74 69 6e 67 20 | 61 6e 64 20 66 75 6e 63 |editing |and func|
|00000270| 74 69 6f 6e 20 66 69 6e | 64 69 6e 67 2c 20 62 75 |tion fin|ding, bu|
|00000280| 74 20 49 20 6d 61 79 20 | 65 78 74 65 6e 64 20 69 |t I may |extend i|
|00000290| 74 2e 0d 23 0d 23 09 49 | 20 68 61 76 65 20 6e 6f |t..#.#.I| have no|
|000002a0| 74 20 66 6f 75 6e 64 20 | 61 20 77 61 79 20 74 6f |t found |a way to|
|000002b0| 20 64 69 73 74 69 6e 67 | 75 69 73 68 20 66 75 6e | disting|uish fun|
|000002c0| 63 74 69 6f 6e 20 64 65 | 66 69 6e 69 74 69 6f 6e |ction de|finition|
|000002d0| 73 20 66 72 6f 6d 0d 23 | 09 6f 6e 20 65 72 72 6f |s from.#|.on erro|
|000002e0| 72 20 63 6f 6e 73 74 72 | 75 63 74 73 2c 20 73 6f |r constr|ucts, so|
|000002f0| 20 49 20 61 73 73 75 6d | 65 20 74 68 61 74 20 61 | I assum|e that a|
|00000300| 6e 79 20 22 6f 6e 20 6e | 61 6d 65 22 20 73 74 61 |ny "on n|ame" sta|
|00000310| 74 65 6d 65 6e 74 73 20 | 61 74 0d 23 09 74 68 65 |tements |at.#.the|
|00000320| 20 62 65 67 69 6e 6e 69 | 6e 67 20 6f 66 20 74 68 | beginni|ng of th|
|00000330| 65 20 6c 69 6e 65 20 61 | 72 65 20 64 65 66 69 6e |e line a|re defin|
|00000340| 69 74 69 6f 6e 73 2e 20 | 53 63 72 69 70 74 20 45 |itions. |Script E|
|00000350| 64 69 74 6f 72 20 73 61 | 76 65 73 20 66 69 6c 65 |ditor sa|ves file|
|00000360| 73 0d 23 09 69 6e 20 74 | 68 69 73 20 66 6f 72 6d |s.#.in t|his form|
|00000370| 61 74 2c 20 73 6f 20 79 | 6f 75 20 77 69 6c 6c 20 |at, so y|ou will |
|00000380| 6f 6e 6c 79 20 6e 65 65 | 64 20 74 6f 20 62 65 20 |only nee|d to be |
|00000390| 63 61 72 65 66 75 6c 20 | 77 68 65 6e 20 63 72 65 |careful |when cre|
|000003a0| 61 74 69 6e 67 0d 23 09 | 66 75 6e 63 74 69 6f 6e |ating.#.|function|
|000003b0| 73 20 69 6e 20 41 6c 70 | 68 61 2e 0d 23 23 23 23 |s in Alp|ha..####|
|000003c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000003d0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000003e0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000003f0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000400| 23 23 23 23 23 23 23 23 | 23 0d 0d 23 3d 3d 3d 3d |########|#..#====|
|00000410| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000420| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000430| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000440| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000450| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 23 09 53 65 |========|===.#.Se|
|00000460| 74 20 75 70 20 74 68 65 | 20 6d 6f 64 65 20 76 61 |t up the| mode va|
|00000470| 72 69 61 62 6c 65 73 0d | 6e 65 77 4d 6f 64 65 56 |riables.|newModeV|
|00000480| 61 72 09 53 63 72 70 20 | 09 65 6c 65 63 52 42 72 |ar.Scrp |.elecRBr|
|00000490| 61 63 65 09 09 09 7b 30 | 7d 09 31 0d 6e 65 77 4d |ace...{0|}.1.newM|
|000004a0| 6f 64 65 56 61 72 09 53 | 63 72 70 20 09 65 6c 65 |odeVar.S|crp .ele|
|000004b0| 63 74 72 69 63 53 65 6d | 69 09 09 7b 30 7d 09 31 |ctricSem|i..{0}.1|
|000004c0| 0d 6e 65 77 4d 6f 64 65 | 56 61 72 09 53 63 72 70 |.newMode|Var.Scrp|
|000004d0| 09 65 6c 65 63 4c 42 72 | 61 63 65 09 09 09 7b 30 |.elecLBr|ace...{0|
|000004e0| 7d 20 31 0d 6e 65 77 4d | 6f 64 65 56 61 72 09 53 |} 1.newM|odeVar.S|
|000004f0| 63 72 70 09 65 6c 65 63 | 74 72 69 63 54 61 62 09 |crp.elec|tricTab.|
|00000500| 09 09 7b 30 7d 20 31 0d | 6e 65 77 4d 6f 64 65 56 |..{0} 1.|newModeV|
|00000510| 61 72 09 53 63 72 70 09 | 77 6f 72 64 57 72 61 70 |ar.Scrp.|wordWrap|
|00000520| 09 09 09 7b 30 7d 20 31 | 0d 6e 65 77 4d 6f 64 65 |...{0} 1|.newMode|
|00000530| 56 61 72 09 53 63 72 70 | 09 61 75 74 6f 4d 61 72 |Var.Scrp|.autoMar|
|00000540| 6b 09 09 09 7b 30 7d 09 | 31 0d 6e 65 77 4d 6f 64 |k...{0}.|1.newMod|
|00000550| 65 56 61 72 09 53 63 72 | 70 09 70 72 65 66 69 78 |eVar.Scr|p.prefix|
|00000560| 53 74 72 69 6e 67 09 09 | 7b 2d 2d 7d 20 30 0d 6e |String..|{--} 0.n|
|00000570| 65 77 4d 6f 64 65 56 61 | 72 09 53 63 72 70 09 6c |ewModeVa|r.Scrp.l|
|00000580| 65 66 74 46 69 6c 6c 43 | 6f 6c 75 6d 6e 20 09 09 |eftFillC|olumn ..|
|00000590| 7b 33 7d 20 30 0d 6e 65 | 77 4d 6f 64 65 56 61 72 |{3} 0.ne|wModeVar|
|000005a0| 09 53 63 72 70 09 66 75 | 6e 63 45 78 70 72 09 09 |.Scrp.fu|ncExpr..|
|000005b0| 09 7b 5e 28 4f 4e 29 5b | 20 5c 74 5d 2b 28 5b 61 |.{^(ON)[| \t]+([a|
|000005c0| 2d 7a 41 2d 5a 30 2d 39 | 5f 5d 2b 29 7d 20 30 0d |-zA-Z0-9|_]+)} 0.|
|000005d0| 6e 65 77 4d 6f 64 65 56 | 61 72 09 53 63 72 70 09 |newModeV|ar.Scrp.|
|000005e0| 77 6f 72 64 42 72 65 61 | 6b 20 09 09 09 7b 5b 61 |wordBrea|k ...{[a|
|000005f0| 2d 7a 41 2d 5a 30 2d 39 | 5f 5d 2b 7d 20 30 0d 6e |-zA-Z0-9|_]+} 0.n|
|00000600| 65 77 4d 6f 64 65 56 61 | 72 09 53 63 72 70 09 77 |ewModeVa|r.Scrp.w|
|00000610| 6f 72 64 42 72 65 61 6b | 50 72 65 66 61 63 65 20 |ordBreak|Preface |
|00000620| 09 7b 5b 5e 61 2d 7a 41 | 2d 5a 30 2d 39 5f 5d 7d |.{[^a-zA|-Z0-9_]}|
|00000630| 20 30 0d 0d 70 72 6f 63 | 20 64 75 6d 6d 79 53 63 | 0..proc| dummySc|
|00000640| 72 70 20 7b 7d 20 7b 7d | 0d 0d 23 3d 3d 3d 3d 3d |rp {} {}|..#=====|
|00000650| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000660| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000670| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000680| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000690| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 23 09 53 65 74 |========|==.#.Set|
|000006a0| 20 75 70 20 63 6f 6d 6d | 65 6e 74 73 20 61 6e 64 | up comm|ents and|
|000006b0| 20 6b 65 79 77 6f 72 64 | 73 0d 73 65 74 20 73 63 | keyword|s.set sc|
|000006c0| 72 69 70 74 4b 65 79 57 | 6f 72 64 73 20 7b 0d 09 |riptKeyW|ords {..|
|000006d0| 6f 6e 20 65 6e 64 20 65 | 72 72 6f 72 20 67 6c 6f |on end e|rror glo|
|000006e0| 62 61 6c 20 6c 6f 63 61 | 6c 20 72 65 74 75 72 6e |bal loca|l return|
|000006f0| 20 69 74 20 6d 65 20 70 | 69 20 72 65 73 75 6c 74 | it me p|i result|
|00000700| 20 73 70 61 63 65 20 74 | 61 62 0d 09 63 6c 6f 73 | space t|ab..clos|
|00000710| 65 20 63 6f 70 79 20 63 | 6f 75 6e 74 20 64 61 74 |e copy c|ount dat|
|00000720| 61 20 73 69 7a 65 20 64 | 65 6c 65 74 65 20 64 75 |a size d|elete du|
|00000730| 70 6c 69 63 61 74 65 20 | 65 78 69 73 74 73 20 67 |plicate |exists g|
|00000740| 65 74 20 6c 61 75 6e 63 | 68 0d 09 6d 61 6b 65 20 |et launc|h..make |
|00000750| 6d 6f 76 65 20 6f 70 65 | 6e 20 70 72 69 6e 74 20 |move ope|n print |
|00000760| 71 75 69 74 20 72 75 6e | 20 73 61 76 65 20 69 6e |quit run| save in|
|00000770| 20 6f 66 20 69 73 20 61 | 66 74 65 72 20 62 65 66 | of is a|fter bef|
|00000780| 6f 72 65 0d 09 64 69 76 | 20 6d 6f 64 20 61 6e 64 |ore..div| mod and|
|00000790| 20 6e 6f 74 20 6f 72 20 | 73 74 61 72 74 20 73 74 | not or |start st|
|000007a0| 61 72 74 73 20 62 65 67 | 69 6e 20 62 65 67 69 6e |arts beg|in begin|
|000007b0| 73 20 65 6e 64 20 65 6e | 64 73 20 63 6f 6e 74 61 |s end en|ds conta|
|000007c0| 69 6e 73 0d 09 64 6f 65 | 73 20 65 71 75 61 6c 20 |ins..doe|s equal |
|000007d0| 65 71 75 61 6c 73 20 67 | 72 65 61 74 65 72 20 6c |equals g|reater l|
|000007e0| 65 73 73 20 74 68 61 6e | 20 61 73 20 72 65 66 65 |ess than| as refe|
|000007f0| 72 65 6e 63 65 0d 09 73 | 65 74 20 74 72 79 0d 09 |rence..s|et try..|
|00000800| 74 65 6c 6c 20 69 66 20 | 72 65 70 65 61 74 20 65 |tell if |repeat e|
|00000810| 6c 73 65 20 74 68 65 6e | 20 74 69 6d 65 73 20 77 |lse then| times w|
|00000820| 68 69 6c 65 20 75 6e 74 | 69 6c 20 77 69 74 68 20 |hile unt|il with |
|00000830| 62 79 0d 09 63 6f 6e 73 | 69 64 65 72 69 6e 67 20 |by..cons|idering |
|00000840| 69 67 6e 6f 72 69 6e 67 | 20 74 69 6d 65 6f 75 74 |ignoring| timeout|
|00000850| 20 74 72 61 6e 73 61 63 | 74 69 6f 6e 20 73 63 72 | transac|tion scr|
|00000860| 69 70 74 20 70 72 6f 70 | 65 72 74 79 20 70 72 6f |ipt prop|erty pro|
|00000870| 70 0d 09 66 69 72 73 74 | 20 73 65 63 6f 6e 64 20 |p..first| second |
|00000880| 74 68 69 72 64 20 66 6f | 75 72 74 68 20 66 69 66 |third fo|urth fif|
|00000890| 74 68 20 73 69 78 74 68 | 20 73 65 76 65 6e 74 68 |th sixth| seventh|
|000008a0| 20 65 69 67 68 74 68 20 | 6e 69 6e 74 68 20 74 65 | eighth |ninth te|
|000008b0| 6e 74 68 0d 09 6c 61 73 | 74 20 66 72 6f 6e 74 20 |nth..las|t front |
|000008c0| 62 61 63 6b 20 6d 69 64 | 64 6c 65 20 65 76 65 72 |back mid|dle ever|
|000008d0| 79 20 73 6f 6d 65 20 66 | 72 6f 6d 20 74 6f 20 74 |y some f|rom to t|
|000008e0| 68 72 6f 75 67 68 20 74 | 68 72 75 0d 7d 0d 0d 72 |hrough t|hru.}..r|
|000008f0| 65 67 4d 6f 64 65 4b 65 | 79 77 6f 72 64 73 20 2d |egModeKe|ywords -|
|00000900| 65 20 7b 2d 2d 7d 20 2d | 62 20 7b 5c 28 2a 7d 20 |e {--} -|b {\(*} |
|00000910| 7b 2a 5c 29 7d 20 2d 63 | 20 72 65 64 20 2d 6b 20 |{*\)} -c| red -k |
|00000920| 62 6c 75 65 20 53 63 72 | 70 20 24 73 63 72 69 70 |blue Scr|p $scrip|
|00000930| 74 4b 65 79 57 6f 72 64 | 73 0d 0d 75 6e 73 65 74 |tKeyWord|s..unset|
|00000940| 20 73 63 72 69 70 74 4b | 65 79 57 6f 72 64 73 0d | scriptK|eyWords.|
|00000950| 0d 23 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.#======|========|
|00000960| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000970| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000980| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000990| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000009a0| 3d 0d 23 09 46 69 6c 65 | 20 4d 61 72 6b 69 6e 67 |=.#.File| Marking|
|000009b0| 0d 70 72 6f 63 20 53 63 | 72 70 4d 61 72 6b 46 69 |.proc Sc|rpMarkFi|
|000009c0| 6c 65 20 7b 7d 20 7b 0d | 09 67 6c 6f 62 61 6c 20 |le {} {.|.global |
|000009d0| 53 63 72 70 6d 6f 64 65 | 56 61 72 73 0d 09 73 65 |Scrpmode|Vars..se|
|000009e0| 74 20 70 6f 73 20 30 0d | 09 77 68 69 6c 65 20 7b |t pos 0.|.while {|
|000009f0| 21 5b 63 61 74 63 68 20 | 7b 73 65 61 72 63 68 20 |![catch |{search |
|00000a00| 2d 66 20 31 20 2d 72 20 | 31 20 2d 6d 20 30 20 2d |-f 1 -r |1 -m 0 -|
|00000a10| 69 20 31 20 24 53 63 72 | 70 6d 6f 64 65 56 61 72 |i 1 $Scr|pmodeVar|
|00000a20| 73 28 66 75 6e 63 45 78 | 70 72 29 20 24 70 6f 73 |s(funcEx|pr) $pos|
|00000a30| 7d 20 72 65 73 5d 7d 20 | 7b 0d 09 09 73 65 74 20 |} res]} |{...set |
|00000a40| 73 74 61 72 74 20 5b 6c | 69 6e 64 65 78 20 24 72 |start [l|index $r|
|00000a50| 65 73 20 30 5d 0d 09 09 | 73 65 74 20 65 6e 64 20 |es 0]...|set end |
|00000a60| 5b 6c 69 6e 64 65 78 20 | 24 72 65 73 20 31 5d 0d |[lindex |$res 1].|
|00000a70| 09 09 73 65 74 20 74 65 | 78 74 20 5b 6c 69 6e 64 |..set te|xt [lind|
|00000a80| 65 78 20 5b 67 65 74 54 | 65 78 74 20 24 73 74 61 |ex [getT|ext $sta|
|00000a90| 72 74 20 24 65 6e 64 5d | 20 31 5d 0d 09 09 73 65 |rt $end]| 1]...se|
|00000aa0| 74 20 70 6f 73 20 24 65 | 6e 64 0d 09 09 73 65 74 |t pos $e|nd...set|
|00000ab0| 20 69 6e 64 73 28 24 74 | 65 78 74 29 20 22 24 73 | inds($t|ext) "$s|
|00000ac0| 74 61 72 74 20 24 65 6e | 64 22 0d 09 7d 0d 09 0d |tart $en|d"..}...|
|00000ad0| 09 69 66 20 7b 5b 69 6e | 66 6f 20 65 78 69 73 74 |.if {[in|fo exist|
|00000ae0| 73 20 69 6e 64 73 5d 7d | 20 7b 0d 09 09 66 6f 72 |s inds]}| {...for|
|00000af0| 65 61 63 68 20 66 20 5b | 6c 73 6f 72 74 20 5b 61 |each f [|lsort [a|
|00000b00| 72 72 61 79 20 6e 61 6d | 65 73 20 69 6e 64 73 5d |rray nam|es inds]|
|00000b10| 5d 20 7b 0d 09 09 09 73 | 65 74 4e 61 6d 65 64 4d |] {....s|etNamedM|
|00000b20| 61 72 6b 20 24 66 20 5b | 6c 69 6e 65 53 74 61 72 |ark $f [|lineStar|
|00000b30| 74 20 5b 6c 69 6e 65 53 | 74 61 72 74 20 5b 6c 69 |t [lineS|tart [li|
|00000b40| 6e 64 65 78 20 24 69 6e | 64 73 28 24 66 29 20 30 |ndex $in|ds($f) 0|
|00000b50| 5d 5d 20 2d 20 31 5d 20 | 5b 6c 69 6e 64 65 78 20 |]] - 1] |[lindex |
|00000b60| 24 69 6e 64 73 28 24 66 | 29 20 30 5d 20 5b 6c 69 |$inds($f|) 0] [li|
|00000b70| 6e 64 65 78 20 24 69 6e | 64 73 28 24 66 29 20 31 |ndex $in|ds($f) 1|
|00000b80| 5d 0d 09 09 7d 0d 09 7d | 0d 7d 0d 0d 00 00 00 00 |]...}..}|.}......|
|00000b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c00| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000c10| 24 64 69 72 3a 75 70 64 | 61 74 65 2e 74 63 6c 22 |$dir:upd|ate.tcl"|
|00000c20| 0d 73 65 74 20 61 75 74 | 6f 5f 69 6e 64 65 78 28 |.set aut|o_index(|
|00000c30| 0f 61 70 70 6c 65 73 63 | 72 69 70 74 2e 74 63 6c |.applesc|ript.tcl|
|00000c40| 02 00 00 00 54 45 58 54 | 41 4c 46 41 00 00 00 00 |....TEXT|ALFA....|
|00000c50| 00 00 54 45 58 54 41 4c | 46 41 00 00 00 00 00 00 |..TEXTAL|FA......|
|00000c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c70| 00 00 ab 98 ee 7f 00 00 | 0b 0c 00 00 01 7e 6e 64 |........|.....~nd|
|00000c80| 65 78 28 61 64 64 4d 6f | 64 65 29 20 22 24 64 69 |ex(addMo|de) "$di|
|00000c90| 72 3a 76 69 2e 74 63 6c | 22 0d 73 65 74 20 61 75 |r:vi.tcl|".set au|
|00000ca0| 74 6f 5f 69 6e 64 65 78 | 28 76 69 43 6d 64 4d 6f |to_index|(viCmdMo|
|00000cb0| 64 65 29 20 22 24 64 69 | 72 3a 76 69 2e 74 63 6c |de) "$di|r:vi.tcl|
|00000cc0| 22 0d 73 65 74 20 61 75 | 74 6f 5f 69 6e 64 65 78 |".set au|to_index|
|00000cd0| 28 73 65 74 56 69 4d 6f | 64 65 29 20 22 24 64 69 |(setViMo|de) "$di|
|00000ce0| 72 3a 76 69 2e 74 63 6c | 22 0d 73 65 74 20 61 75 |r:vi.tcl|".set au|
|00000cf0| 74 6f 5f 69 6e 64 65 78 | 28 73 65 74 56 69 4d 6f |to_index|(setViMo|
|00000d00| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 aa 89 a8 |...H..Mo|naco....|
|00000d10| 00 00 13 d6 ff ff ff ff | 00 c9 3c 80 28 00 04 22 |........|..<.(.."|
|00000d20| 01 2c 56 20 00 20 00 04 | 00 04 00 28 00 02 02 5c |.,V . ..|...(...\|
|00000d30| 02 00 00 28 00 02 02 5c | 02 00 ab f6 6b bf 00 00 |...(...\|....k...|
|00000d40| 08 aa 00 00 08 aa 00 00 | 04 88 01 00 00 00 01 00 |........|........|
|00000d50| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 a9 0c d8 |...L...L|...2....|
|00000d60| 13 d6 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00000d70| 00 0a 03 ed ff ff 00 00 | 00 00 00 b0 ad 38 00 00 |........|.....8..|
+--------+-------------------------+-------------------------+--------+--------+