/ Internet File Formats / InternetFileFormatsCD.bin / text / latex / mac / alpha.6.0.sit / Tcl / SystemCode / filesets.tcl

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 66 69 6c 65 73 65 | 74 73 2e 74 63 6c 00 00 |..filese|ts.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 01 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 1e 8a 00 | 00 02 c8 ac 1f 78 bb ac |........|.....x..|
|00000060| 1f 78 bb 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.x......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 b9 5d 00 00 |........|.....]..|
|00000080| 23 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |#=======|========|
|00000090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000e0| 0d 23 20 41 6c 70 68 61 | 20 63 61 6c 6c 73 20 74 |.# Alpha| calls t|
|000000f0| 77 6f 20 66 69 6c 65 73 | 65 74 2d 72 65 6c 61 74 |wo files|et-relat|
|00000100| 65 64 20 72 6f 75 74 69 | 6e 65 73 2c 20 27 67 65 |ed routi|nes, 'ge|
|00000110| 74 43 75 72 72 46 69 6c | 65 53 65 74 27 2c 20 61 |tCurrFil|eSet', a|
|00000120| 6e 64 20 0d 23 20 27 67 | 65 74 46 69 6c 65 53 65 |nd .# 'g|etFileSe|
|00000130| 74 4e 61 6d 65 73 27 2e | 20 41 6c 70 68 61 20 77 |tNames'.| Alpha w|
|00000140| 69 6c 6c 20 61 6c 73 6f | 20 61 74 74 65 6d 70 74 |ill also| attempt|
|00000150| 20 74 6f 20 73 65 74 20 | 74 68 65 20 76 61 72 69 | to set |the vari|
|00000160| 61 62 6c 65 20 27 63 75 | 72 72 46 69 6c 65 53 65 |able 'cu|rrFileSe|
|00000170| 74 27 0d 23 20 6f 6e 20 | 6f 63 63 61 73 69 6f 6e |t'.# on |occasion|
|00000180| 2c 20 62 75 74 20 74 68 | 69 73 20 69 73 6e 27 74 |, but th|is isn't|
|00000190| 20 63 72 69 74 69 63 61 | 6c 2e 0d 23 3d 3d 3d 3d | critica|l..#====|
|000001a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 0d 23 3d 3d |========|===..#==|
|00000200| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000210| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000220| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000230| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000240| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 23 20 54 68 65 20 |========|=.# The |
|00000250| 66 69 6c 65 73 65 74 73 | 2e 0d 23 3d 3d 3d 3d 3d |filesets|..#=====|
|00000260| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000270| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000280| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000290| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002a0| 3d 3d 3d 3d 3d 3d 0d 0d | 23 20 42 75 69 6c 64 20 |======..|# Build |
|000002b0| 73 6f 6d 65 20 66 69 6c | 65 73 65 74 73 20 6f 6e |some fil|esets on|
|000002c0| 20 74 68 65 20 66 6c 79 | 2e 0d 63 61 74 63 68 20 | the fly|..catch |
|000002d0| 7b 75 6e 73 65 74 20 66 | 69 6c 65 53 65 74 73 7d |{unset f|ileSets}|
|000002e0| 0d 63 61 74 63 68 20 7b | 75 6e 73 65 74 20 63 75 |.catch {|unset cu|
|000002f0| 72 72 46 69 6c 65 53 65 | 74 7d 0d 73 65 74 20 67 |rrFileSe|t}.set g|
|00000300| 66 69 6c 65 53 65 74 73 | 28 48 65 6c 70 29 20 22 |fileSets|(Help) "|
|00000310| 24 48 4f 4d 45 3a 48 65 | 6c 70 3a 2a 22 0d 73 65 |$HOME:He|lp:*".se|
|00000320| 74 20 67 66 69 6c 65 53 | 65 74 73 28 53 79 73 74 |t gfileS|ets(Syst|
|00000330| 65 6d 29 20 22 24 48 4f | 4d 45 3a 54 63 6c 3a 53 |em) "$HO|ME:Tcl:S|
|00000340| 79 73 74 65 6d 43 6f 64 | 65 3a 2a 2e 74 63 6c 22 |ystemCod|e:*.tcl"|
|00000350| 0d 73 65 74 20 67 66 69 | 6c 65 53 65 74 73 28 55 |.set gfi|leSets(U|
|00000360| 73 65 72 29 20 22 24 48 | 4f 4d 45 3a 54 63 6c 3a |ser) "$H|OME:Tcl:|
|00000370| 55 73 65 72 43 6f 64 65 | 3a 2a 2e 74 63 6c 22 0d |UserCode|:*.tcl".|
|00000380| 0d 23 20 44 65 66 61 75 | 6c 74 20 63 75 72 72 20 |.# Defau|lt curr |
|00000390| 66 69 6c 65 73 65 74 20 | 69 73 20 74 68 65 20 66 |fileset |is the f|
|000003a0| 69 72 73 74 20 6f 6e 65 | 2e 20 43 61 6e 20 62 65 |irst one|. Can be|
|000003b0| 20 63 68 61 6e 67 65 64 | 20 69 6e 20 27 75 73 65 | changed| in 'use|
|000003c0| 72 53 74 61 72 74 75 70 | 2e 74 63 6c 27 2e 0d 73 |rStartup|.tcl'..s|
|000003d0| 65 74 20 63 75 72 72 46 | 69 6c 65 53 65 74 20 5b |et currF|ileSet [|
|000003e0| 6c 69 6e 64 65 78 20 5b | 61 72 72 61 79 20 6e 61 |lindex [|array na|
|000003f0| 6d 65 73 20 67 66 69 6c | 65 53 65 74 73 5d 20 30 |mes gfil|eSets] 0|
|00000400| 5d 0d 0d 23 3d 3d 3d 3d | 3d 3d 3d 3d 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 0d |========|=======.|
|00000450| 23 20 54 68 65 20 73 75 | 70 70 6f 72 74 20 72 6f |# The su|pport ro|
|00000460| 75 74 69 6e 65 73 2e 0d | 23 3d 3d 3d 3d 3d 3d 3d |utines..|#=======|
|00000470| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000480| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000490| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000004a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000004b0| 3d 3d 3d 3d 0d 23 20 43 | 61 6c 6c 65 64 20 66 72 |====.# C|alled fr|
|000004c0| 6f 6d 20 41 6c 70 68 61 | 20 74 6f 20 67 65 74 20 |om Alpha| to get |
|000004d0| 6c 69 73 74 20 6f 66 20 | 66 69 6c 65 73 20 66 6f |list of |files fo|
|000004e0| 72 20 63 75 72 72 65 6e | 74 20 66 69 6c 65 20 73 |r curren|t file s|
|000004f0| 65 74 2e 0d 70 72 6f 63 | 20 67 65 74 43 75 72 72 |et..proc| getCurr|
|00000500| 46 69 6c 65 53 65 74 20 | 7b 7d 20 7b 0d 09 67 6c |FileSet |{} {..gl|
|00000510| 6f 62 61 6c 20 66 69 6c | 65 53 65 74 73 0d 09 67 |obal fil|eSets..g|
|00000520| 6c 6f 62 61 6c 20 63 75 | 72 72 46 69 6c 65 53 65 |lobal cu|rrFileSe|
|00000530| 74 0d 09 72 65 74 75 72 | 6e 20 24 66 69 6c 65 53 |t..retur|n $fileS|
|00000540| 65 74 73 28 24 63 75 72 | 72 46 69 6c 65 53 65 74 |ets($cur|rFileSet|
|00000550| 29 0d 7d 0d 23 20 43 61 | 6c 6c 65 64 20 66 72 6f |).}.# Ca|lled fro|
|00000560| 6d 20 41 6c 70 68 61 20 | 74 6f 20 67 65 74 20 6e |m Alpha |to get n|
|00000570| 61 6d 65 73 2e 20 54 68 | 65 20 66 69 72 73 74 20 |ames. Th|e first |
|00000580| 6e 61 6d 65 20 72 65 74 | 75 72 6e 65 64 20 69 73 |name ret|urned is|
|00000590| 20 74 61 6b 65 6e 20 74 | 6f 20 0d 23 20 62 65 20 | taken t|o .# be |
|000005a0| 74 68 65 20 63 75 72 72 | 65 6e 74 20 66 69 6c 65 |the curr|ent file|
|000005b0| 73 65 74 2e 0d 70 72 6f | 63 20 67 65 74 46 69 6c |set..pro|c getFil|
|000005c0| 65 53 65 74 4e 61 6d 65 | 73 20 7b 7d 20 7b 0d 09 |eSetName|s {} {..|
|000005d0| 67 6c 6f 62 61 6c 20 66 | 69 6c 65 53 65 74 73 0d |global f|ileSets.|
|000005e0| 09 67 6c 6f 62 61 6c 20 | 63 75 72 72 46 69 6c 65 |.global |currFile|
|000005f0| 53 65 74 0d 09 73 65 74 | 20 69 6e 64 20 5b 6c 73 |Set..set| ind [ls|
|00000600| 65 61 72 63 68 20 5b 61 | 72 72 61 79 20 6e 61 6d |earch [a|rray nam|
|00000610| 65 73 20 66 69 6c 65 53 | 65 74 73 5d 20 24 63 75 |es fileS|ets] $cu|
|00000620| 72 72 46 69 6c 65 53 65 | 74 5d 0d 09 69 66 20 7b |rrFileSe|t]..if {|
|00000630| 24 69 6e 64 20 3c 20 30 | 7d 20 7b 73 65 74 20 69 |$ind < 0|} {set i|
|00000640| 6e 64 20 30 7d 0d 09 72 | 65 74 75 72 6e 20 5b 6c |nd 0}..r|eturn [l|
|00000650| 69 6e 73 65 72 74 20 5b | 6c 73 6f 72 74 20 5b 6c |insert [|lsort [l|
|00000660| 72 65 70 6c 61 63 65 20 | 5b 61 72 72 61 79 20 6e |replace |[array n|
|00000670| 61 6d 65 73 20 66 69 6c | 65 53 65 74 73 5d 20 24 |ames fil|eSets] $|
|00000680| 69 6e 64 20 24 69 6e 64 | 5d 5d 20 30 20 24 63 75 |ind $ind|]] 0 $cu|
|00000690| 72 72 46 69 6c 65 53 65 | 74 5d 0d 7d 0d 0d 0d 23 |rrFileSe|t].}...#|
|000006a0| 20 4b 65 65 70 20 27 73 | 65 74 73 27 20 6d 65 6e | Keep 's|ets' men|
|000006b0| 75 20 75 70 20 74 6f 20 | 64 61 74 65 2e 0d 74 72 |u up to |date..tr|
|000006c0| 61 63 65 20 76 64 65 6c | 65 74 65 20 63 75 72 72 |ace vdel|ete curr|
|000006d0| 46 69 6c 65 53 65 74 20 | 77 20 73 68 61 64 6f 77 |FileSet |w shadow|
|000006e0| 43 75 72 72 46 69 6c 65 | 53 65 74 0d 74 72 61 63 |CurrFile|Set.trac|
|000006f0| 65 20 76 61 72 69 61 62 | 6c 65 20 63 75 72 72 46 |e variab|le currF|
|00000700| 69 6c 65 53 65 74 20 77 | 20 73 68 61 64 6f 77 43 |ileSet w| shadowC|
|00000710| 75 72 72 46 69 6c 65 53 | 65 74 0d 70 72 6f 63 20 |urrFileS|et.proc |
|00000720| 73 68 61 64 6f 77 43 75 | 72 72 46 69 6c 65 53 65 |shadowCu|rrFileSe|
|00000730| 74 20 7b 6e 6d 31 20 6e | 6d 32 20 6f 70 7d 20 7b |t {nm1 n|m2 op} {|
|00000740| 0d 09 67 6c 6f 62 61 6c | 20 66 69 6c 65 53 65 74 |..global| fileSet|
|00000750| 73 0d 09 67 6c 6f 62 61 | 6c 20 63 75 72 72 46 69 |s..globa|l currFi|
|00000760| 6c 65 53 65 74 0d 09 66 | 6f 72 65 61 63 68 20 6e |leSet..f|oreach n|
|00000770| 61 6d 65 20 5b 61 72 72 | 61 79 20 6e 61 6d 65 73 |ame [arr|ay names|
|00000780| 20 66 69 6c 65 53 65 74 | 73 5d 20 7b 0d 09 09 69 | fileSet|s] {...i|
|00000790| 66 20 7b 24 6e 61 6d 65 | 20 3d 3d 20 24 63 75 72 |f {$name| == $cur|
|000007a0| 72 46 69 6c 65 53 65 74 | 7d 20 7b 0d 09 09 09 6d |rFileSet|} {....m|
|000007b0| 61 72 6b 4d 65 6e 75 49 | 74 65 6d 20 2d 6d 20 63 |arkMenuI|tem -m c|
|000007c0| 68 6f 6f 73 65 20 24 6e | 61 6d 65 20 6f 6e 0d 09 |hoose $n|ame on..|
|000007d0| 09 7d 20 65 6c 73 65 20 | 7b 0d 09 09 09 6d 61 72 |.} else |{....mar|
|000007e0| 6b 4d 65 6e 75 49 74 65 | 6d 20 2d 6d 20 63 68 6f |kMenuIte|m -m cho|
|000007f0| 6f 73 65 20 24 6e 61 6d | 65 20 6f 66 66 0d 09 09 |ose $nam|e off...|
|00000800| 7d 0d 09 7d 0d 09 72 65 | 74 75 72 6e 20 24 63 75 |}..}..re|turn $cu|
|00000810| 72 72 46 69 6c 65 53 65 | 74 0d 7d 0d 0d 23 20 43 |rrFileSe|t.}..# C|
|00000820| 61 6c 6c 65 64 20 69 6e | 20 72 65 73 70 6f 6e 73 |alled in| respons|
|00000830| 65 20 74 6f 20 75 73 65 | 72 20 63 68 61 6e 67 69 |e to use|r changi|
|00000840| 6e 67 20 66 69 6c 65 73 | 65 74 73 20 66 72 6f 6d |ng files|ets from|
|00000850| 20 74 68 65 20 66 69 6c | 65 73 65 74 20 6d 65 6e | the fil|eset men|
|00000860| 75 2e 0d 70 72 6f 63 20 | 63 68 61 6e 67 65 46 69 |u..proc |changeFi|
|00000870| 6c 65 53 65 74 20 7b 6d | 65 6e 75 20 69 74 65 6d |leSet {m|enu item|
|00000880| 7d 20 7b 0d 09 67 6c 6f | 62 61 6c 20 63 75 72 72 |} {..glo|bal curr|
|00000890| 46 69 6c 65 53 65 74 0d | 09 0d 09 6d 61 72 6b 4d |FileSet.|...markM|
|000008a0| 65 6e 75 49 74 65 6d 20 | 2d 6d 20 63 68 6f 6f 73 |enuItem |-m choos|
|000008b0| 65 20 24 63 75 72 72 46 | 69 6c 65 53 65 74 20 6f |e $currF|ileSet o|
|000008c0| 66 66 0d 09 73 65 74 20 | 63 75 72 72 46 69 6c 65 |ff..set |currFile|
|000008d0| 53 65 74 20 24 69 74 65 | 6d 0d 09 6d 61 72 6b 4d |Set $ite|m..markM|
|000008e0| 65 6e 75 49 74 65 6d 20 | 2d 6d 20 63 68 6f 6f 73 |enuItem |-m choos|
|000008f0| 65 20 24 63 75 72 72 46 | 69 6c 65 53 65 74 20 6f |e $currF|ileSet o|
|00000900| 6e 0d 7d 0d 0d 0d 0d 23 | 3d 3d 3d 3d 3d 3d 3d 3d |n.}....#|========|
|00000910| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000920| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000930| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000940| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000950| 3d 3d 3d 0d 23 20 41 64 | 64 20 66 69 6c 65 73 65 |===.# Ad|d filese|
|00000960| 74 2e 0d 23 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |t..#====|========|
|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 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|000009b0| 70 72 6f 63 20 63 72 65 | 61 74 65 46 69 6c 65 73 |proc cre|ateFiles|
|000009c0| 65 74 20 7b 7d 20 7b 0d | 09 67 6c 6f 62 61 6c 20 |et {} {.|.global |
|000009d0| 67 66 69 6c 65 53 65 74 | 73 20 66 69 6c 65 53 65 |gfileSet|s fileSe|
|000009e0| 74 73 20 63 75 72 72 46 | 69 6c 65 53 65 74 0d 09 |ts currF|ileSet..|
|000009f0| 0d 09 73 65 74 20 6e 61 | 6d 65 20 5b 67 65 74 6c |..set na|me [getl|
|00000a00| 69 6e 65 20 22 4e 65 77 | 20 66 69 6c 65 73 65 74 |ine "New| fileset|
|00000a10| 20 6e 61 6d 65 3a 22 20 | 22 22 5d 0d 09 69 66 20 | name:" |""]..if |
|00000a20| 7b 21 5b 73 74 72 69 6e | 67 20 6c 65 6e 67 74 68 |{![strin|g length|
|00000a30| 20 24 6e 61 6d 65 5d 7d | 20 72 65 74 75 72 6e 0d | $name]}| return.|
|00000a40| 09 0d 09 73 65 74 20 64 | 69 72 20 5b 73 74 72 69 |...set d|ir [stri|
|00000a50| 6e 67 20 74 72 69 6d 20 | 5b 67 65 74 5f 64 69 72 |ng trim |[get_dir|
|00000a60| 65 63 74 6f 72 79 20 2d | 70 20 22 4e 65 77 20 66 |ectory -|p "New f|
|00000a70| 69 6c 65 73 65 74 20 64 | 69 72 3a 22 5d 20 22 3a |ileset d|ir:"] ":|
|00000a80| 22 5d 0d 09 69 66 20 7b | 21 5b 73 74 72 69 6e 67 |"]..if {|![string|
|00000a90| 20 6c 65 6e 67 74 68 20 | 24 64 69 72 5d 7d 20 72 | length |$dir]} r|
|00000aa0| 65 74 75 72 6e 0d 09 0d | 09 73 65 74 20 66 69 6c |eturn...|.set fil|
|00000ab0| 65 50 61 74 20 5b 67 65 | 74 6c 69 6e 65 20 22 46 |ePat [ge|tline "F|
|00000ac0| 69 6c 65 20 70 61 74 74 | 65 72 6e 3a 22 20 22 2a |ile patt|ern:" "*|
|00000ad0| 22 5d 0d 09 69 66 20 7b | 21 5b 73 74 72 69 6e 67 |"]..if {|![string|
|00000ae0| 20 6c 65 6e 67 74 68 20 | 24 66 69 6c 65 50 61 74 | length |$filePat|
|00000af0| 5d 7d 20 72 65 74 75 72 | 6e 0d 09 0d 09 73 65 74 |]} retur|n....set|
|00000b00| 20 22 67 66 69 6c 65 53 | 65 74 73 28 24 6e 61 6d | "gfileS|ets($nam|
|00000b10| 65 29 22 20 22 24 64 69 | 72 3a 24 66 69 6c 65 50 |e)" "$di|r:$fileP|
|00000b20| 61 74 22 0d 09 6d 65 6e | 75 20 2d 6e 20 63 68 6f |at"..men|u -n cho|
|00000b30| 6f 73 65 20 2d 6d 20 2d | 70 20 63 68 61 6e 67 65 |ose -m -|p change|
|00000b40| 46 69 6c 65 53 65 74 20 | 5b 6c 73 6f 72 74 20 5b |FileSet |[lsort [|
|00000b50| 61 72 72 61 79 20 6e 61 | 6d 65 73 20 66 69 6c 65 |array na|mes file|
|00000b60| 53 65 74 73 5d 5d 0d 09 | 73 65 74 20 63 75 72 72 |Sets]]..|set curr|
|00000b70| 46 69 6c 65 53 65 74 20 | 24 6e 61 6d 65 0d 0d 09 |FileSet |$name...|
|00000b80| 69 66 20 7b 5b 61 73 6b | 79 65 73 6e 6f 20 22 53 |if {[ask|yesno "S|
|00000b90| 61 76 65 20 6e 65 77 20 | 66 69 6c 65 73 65 74 3f |ave new |fileset?|
|00000ba0| 22 5d 20 3d 3d 20 22 79 | 65 73 22 7d 20 7b 0d 09 |"] == "y|es"} {..|
|00000bb0| 09 61 64 64 41 72 72 44 | 65 66 20 67 66 69 6c 65 |.addArrD|ef gfile|
|00000bc0| 53 65 74 73 20 24 6e 61 | 6d 65 20 22 24 64 69 72 |Sets $na|me "$dir|
|00000bd0| 3a 24 66 69 6c 65 50 61 | 74 22 0d 09 7d 0d 09 72 |:$filePa|t"..}..r|
|00000be0| 65 62 75 69 6c 64 46 69 | 6c 65 73 65 74 4d 65 6e |ebuildFi|lesetMen|
|00000bf0| 75 0d 09 72 65 74 75 72 | 6e 20 24 6e 61 6d 65 0d |u..retur|n $name.|
|00000c00| 7d 0d 0d 0d 23 20 4f 70 | 65 6e 20 65 6e 74 69 72 |}...# Op|en entir|
|00000c10| 65 20 66 69 6c 65 73 65 | 74 2e 0d 70 72 6f 63 20 |e filese|t..proc |
|00000c20| 6f 70 65 6e 45 6e 74 69 | 72 65 46 69 6c 65 73 65 |openEnti|reFilese|
|00000c30| 74 20 7b 7d 20 7b 0d 09 | 67 6c 6f 62 61 6c 20 66 |t {} {..|global f|
|00000c40| 69 6c 65 53 65 74 73 0d | 09 73 65 74 20 6e 61 6d |ileSets.|.set nam|
|00000c50| 65 20 5b 65 76 61 6c 20 | 5b 6c 69 73 74 20 70 72 |e [eval |[list pr|
|00000c60| 6f 6d 70 74 20 22 4f 70 | 65 6e 20 77 68 69 63 68 |ompt "Op|en which|
|00000c70| 20 66 69 6c 65 73 65 74 | 3f 22 20 5b 6c 69 6e 64 | fileset|?" [lind|
|00000c80| 65 78 20 5b 61 72 72 61 | 79 20 6e 61 6d 65 73 20 |ex [arra|y names |
|00000c90| 66 69 6c 65 53 65 74 73 | 5d 20 30 5d 20 22 46 69 |fileSets|] 0] "Fi|
|00000ca0| 6c 65 53 65 74 3a 22 5d | 20 5b 6c 73 6f 72 74 20 |leSet:"]| [lsort |
|00000cb0| 2d 69 67 6e 6f 72 65 20 | 5b 61 72 72 61 79 20 6e |-ignore |[array n|
|00000cc0| 61 6d 65 73 20 66 69 6c | 65 53 65 74 73 5d 5d 5d |ames fil|eSets]]]|
|00000cd0| 0d 09 66 6f 72 65 61 63 | 68 20 66 20 24 66 69 6c |..foreac|h f $fil|
|00000ce0| 65 53 65 74 73 28 24 6e | 61 6d 65 29 20 7b 0d 09 |eSets($n|ame) {..|
|00000cf0| 09 65 64 69 74 20 24 66 | 0d 09 7d 0d 7d 0d 0d 23 |.edit $f|..}.}..#|
|00000d00| 20 43 72 65 61 74 65 20 | 61 20 66 69 6c 65 73 65 | Create |a filese|
|00000d10| 74 20 66 72 6f 6d 74 20 | 63 6f 6e 74 61 69 6e 69 |t fromt |containi|
|00000d20| 6e 67 20 61 6c 6c 20 77 | 69 6e 64 6f 77 73 20 63 |ng all w|indows c|
|00000d30| 75 72 72 65 6e 74 6c 79 | 20 6f 70 65 6e 2e 0d 70 |urrently| open..p|
|00000d40| 72 6f 63 20 63 72 65 61 | 74 65 46 69 6c 65 73 65 |roc crea|teFilese|
|00000d50| 74 46 72 6f 6d 57 69 6e | 73 20 7b 7d 20 7b 0d 09 |tFromWin|s {} {..|
|00000d60| 67 6c 6f 62 61 6c 20 66 | 69 6c 65 53 65 74 73 20 |global f|ileSets |
|00000d70| 63 75 72 72 46 69 6c 65 | 53 65 74 0d 09 0d 09 73 |currFile|Set....s|
|00000d80| 65 74 20 6e 61 6d 65 20 | 5b 70 72 6f 6d 70 74 20 |et name |[prompt |
|00000d90| 22 43 72 65 61 74 65 20 | 66 69 6c 65 73 65 74 20 |"Create |fileset |
|00000da0| 63 6f 6e 74 61 69 6e 69 | 6e 67 20 63 75 72 72 65 |containi|ng curre|
|00000db0| 6e 74 20 77 69 6e 64 6f | 77 73 20 75 6e 64 65 72 |nt windo|ws under|
|00000dc0| 20 77 68 61 74 20 6e 61 | 6d 65 3f 22 20 22 4f 70 | what na|me?" "Op|
|00000dd0| 65 6e 57 69 6e 73 22 5d | 0d 09 73 65 74 20 63 75 |enWins"]|..set cu|
|00000de0| 72 72 46 69 6c 65 53 65 | 74 20 24 6e 61 6d 65 0d |rrFileSe|t $name.|
|00000df0| 09 61 64 64 41 72 72 44 | 65 66 20 66 69 6c 65 53 |.addArrD|ef fileS|
|00000e00| 65 74 73 20 24 6e 61 6d | 65 20 5b 77 69 6e 4e 61 |ets $nam|e [winNa|
|00000e10| 6d 65 73 20 2d 66 5d 0d | 09 73 65 74 20 66 69 6c |mes -f].|.set fil|
|00000e20| 65 53 65 74 73 28 24 6e | 61 6d 65 29 20 5b 77 69 |eSets($n|ame) [wi|
|00000e30| 6e 4e 61 6d 65 73 20 2d | 66 5d 0d 09 72 65 62 75 |nNames -|f]..rebu|
|00000e40| 69 6c 64 46 69 6c 65 73 | 65 74 4d 65 6e 75 0d 7d |ildFiles|etMenu.}|
|00000e50| 0d 0d 09 09 0d 0d 23 3d | 3d 3d 3d 3d 3d 3d 3d 3d |......#=|========|
|00000e60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000e70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000e80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000e90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000ea0| 3d 3d 0d 23 20 44 75 6d | 70 20 66 69 6c 65 73 65 |==.# Dum|p filese|
|00000eb0| 74 20 74 6f 20 63 75 72 | 72 65 6e 74 20 77 69 6e |t to cur|rent win|
|00000ec0| 64 6f 77 2e 20 49 66 20 | 79 6f 75 20 64 75 6d 70 |dow. If |you dump|
|00000ed0| 20 61 74 20 74 68 65 20 | 65 6e 64 20 6f 66 20 74 | at the |end of t|
|00000ee0| 68 69 73 20 66 69 6c 65 | 2c 0d 23 20 74 68 65 20 |his file|,.# the |
|00000ef0| 66 69 6c 65 73 65 74 20 | 77 69 6c 6c 20 62 65 20 |fileset |will be |
|00000f00| 72 65 6c 6f 61 64 65 64 | 20 74 68 65 20 6e 65 78 |reloaded| the nex|
|00000f10| 74 20 74 69 6d 65 20 79 | 6f 75 20 72 75 6e 20 41 |t time y|ou run A|
|00000f20| 6c 70 68 61 2e 0d 23 3d | 3d 3d 3d 3d 3d 3d 3d 3d |lpha..#=|========|
|00000f30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000f40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000f50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000f60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000f70| 3d 3d 0d 70 72 6f 63 20 | 64 75 6d 70 46 69 6c 65 |==.proc |dumpFile|
|00000f80| 73 65 74 20 7b 7d 20 7b | 0d 09 67 6c 6f 62 61 6c |set {} {|..global|
|00000f90| 20 66 69 6c 65 53 65 74 | 73 0d 09 67 6c 6f 62 61 | fileSet|s..globa|
|00000fa0| 6c 20 63 75 72 72 46 69 | 6c 65 53 65 74 0d 09 69 |l currFi|leSet..i|
|00000fb0| 66 20 7b 21 5b 63 61 74 | 63 68 20 7b 70 72 6f 6d |f {![cat|ch {prom|
|00000fc0| 70 74 20 22 46 69 6c 65 | 73 65 74 20 6e 61 6d 65 |pt "File|set name|
|00000fd0| 3a 22 20 24 63 75 72 72 | 46 69 6c 65 53 65 74 7d |:" $curr|FileSet}|
|00000fe0| 20 6e 61 6d 65 5d 7d 20 | 7b 0d 09 09 69 6e 73 65 | name]} |{...inse|
|00000ff0| 72 74 54 65 78 74 20 22 | 73 65 74 20 5c 22 66 69 |rtText "|set \"fi|
|00001000| 6c 65 53 65 74 73 28 24 | 6e 61 6d 65 29 5c 22 20 |leSets($|name)\" |
|00001010| 5c 7b 5c 72 22 0d 09 09 | 66 6f 72 65 61 63 68 20 |\{\r"...|foreach |
|00001020| 66 69 6c 65 20 22 24 66 | 69 6c 65 53 65 74 73 28 |file "$f|ileSets(|
|00001030| 24 6e 61 6d 65 29 22 20 | 7b 0d 09 09 09 69 6e 73 |$name)" |{....ins|
|00001040| 65 72 74 54 65 78 74 20 | 22 5c 74 5c 22 24 66 69 |ertText |"\t\"$fi|
|00001050| 6c 65 5c 22 5c 72 22 0d | 09 09 7d 0d 09 09 69 6e |le\"\r".|..}...in|
|00001060| 73 65 72 74 54 65 78 74 | 20 22 5c 7d 5c 72 22 0d |sertText| "\}\r".|
|00001070| 09 7d 0d 7d 0d 0d 0d 0d | 23 3d 3d 3d 3d 3d 3d 3d |.}.}....|#=======|
|00001080| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000010a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000010b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000010c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 23 20 45 64 69 74 |========|=.# Edit|
|000010d0| 20 61 20 66 69 6c 65 20 | 66 72 6f 6d 20 61 20 66 | a file |from a f|
|000010e0| 69 6c 65 73 65 74 20 76 | 69 61 20 6c 69 73 74 20 |ileset v|ia list |
|000010f0| 64 69 61 6c 6f 67 73 20 | 28 6e 6f 20 6d 6f 75 73 |dialogs |(no mous|
|00001100| 69 6e 67 20 61 72 6f 75 | 6e 64 29 2e 0d 23 3d 3d |ing arou|nd)..#==|
|00001110| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001120| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001130| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001140| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001150| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 0d 70 |========|======.p|
|00001160| 72 6f 63 20 65 64 69 74 | 46 69 6c 65 20 7b 7d 20 |roc edit|File {} |
|00001170| 7b 0d 09 67 6c 6f 62 61 | 6c 20 66 69 6c 65 53 65 |{..globa|l fileSe|
|00001180| 74 73 0d 09 0d 09 73 65 | 74 20 66 73 65 74 20 5b |ts....se|t fset [|
|00001190| 6c 69 73 74 70 69 63 6b | 20 2d 70 20 7b 46 69 6c |listpick| -p {Fil|
|000011a0| 65 73 65 74 3f 7d 20 5b | 6c 73 6f 72 74 20 2d 69 |eset?} [|lsort -i|
|000011b0| 67 6e 6f 72 65 20 5b 63 | 6f 6e 63 61 74 20 7b 2a |gnore [c|oncat {*|
|000011c0| 72 65 63 65 6e 74 2a 7d | 20 5b 61 72 72 61 79 20 |recent*}| [array |
|000011d0| 6e 61 6d 65 73 20 66 69 | 6c 65 53 65 74 73 5d 5d |names fi|leSets]]|
|000011e0| 5d 5d 0d 09 69 66 20 7b | 5b 73 74 72 69 6e 67 20 |]]..if {|[string |
|000011f0| 6c 65 6e 67 74 68 20 24 | 66 73 65 74 5d 7d 20 7b |length $|fset]} {|
|00001200| 0d 09 09 69 66 20 7b 24 | 66 73 65 74 20 3d 3d 20 |...if {$|fset == |
|00001210| 7b 2a 72 65 63 65 6e 74 | 2a 7d 7d 20 7b 72 65 74 |{*recent|*}} {ret|
|00001220| 75 72 6e 20 5b 65 64 69 | 74 52 65 63 65 6e 74 46 |urn [edi|tRecentF|
|00001230| 69 6c 65 5d 7d 0d 09 09 | 66 6f 72 65 61 63 68 20 |ile]}...|foreach |
|00001240| 66 20 24 66 69 6c 65 53 | 65 74 73 28 24 66 73 65 |f $fileS|ets($fse|
|00001250| 74 29 20 7b 0d 09 09 09 | 6c 61 70 70 65 6e 64 20 |t) {....|lappend |
|00001260| 64 69 73 70 20 5b 66 69 | 6c 65 20 74 61 69 6c 20 |disp [fi|le tail |
|00001270| 24 66 5d 0d 09 09 7d 0d | 09 09 66 6f 72 65 61 63 |$f]...}.|..foreac|
|00001280| 68 20 72 65 73 20 5b 6c | 69 73 74 70 69 63 6b 20 |h res [l|istpick |
|00001290| 2d 6c 20 2d 70 20 7b 46 | 69 6c 65 3f 7d 20 5b 6c |-l -p {F|ile?} [l|
|000012a0| 73 6f 72 74 20 2d 69 67 | 6e 6f 72 65 20 24 64 69 |sort -ig|nore $di|
|000012b0| 73 70 5d 5d 20 20 7b 0d | 09 09 09 73 65 74 20 69 |sp]]  {.|...set i|
|000012c0| 6e 64 20 5b 6c 73 65 61 | 72 63 68 20 24 66 69 6c |nd [lsea|rch $fil|
|000012d0| 65 53 65 74 73 28 24 66 | 73 65 74 29 20 5c 2a 3a |eSets($f|set) \*:|
|000012e0| 24 72 65 73 5d 0d 09 09 | 09 63 61 74 63 68 20 7b |$res]...|.catch {|
|000012f0| 65 64 69 74 20 5b 6c 69 | 6e 64 65 78 20 24 66 69 |edit [li|ndex $fi|
|00001300| 6c 65 53 65 74 73 28 24 | 66 73 65 74 29 20 24 69 |leSets($|fset) $i|
|00001310| 6e 64 5d 7d 0d 09 09 7d | 0d 09 7d 0d 7d 0d 0d 0d |nd]}...}|..}.}...|
|00001320| 70 72 6f 63 20 64 65 6c | 65 74 65 46 69 6c 65 73 |proc del|eteFiles|
|00001330| 65 74 20 7b 7d 20 7b 0d | 09 67 6c 6f 62 61 6c 20 |et {} {.|.global |
|00001340| 66 69 6c 65 53 65 74 73 | 20 67 66 69 6c 65 53 65 |fileSets| gfileSe|
|00001350| 74 73 20 63 75 72 72 46 | 69 6c 65 53 65 74 0d 09 |ts currF|ileSet..|
|00001360| 0d 09 73 65 74 20 66 73 | 65 74 20 5b 6c 69 73 74 |..set fs|et [list|
|00001370| 70 69 63 6b 20 2d 70 20 | 7b 46 69 6c 65 73 65 74 |pick -p |{Fileset|
|00001380| 3f 7d 20 5b 6c 73 6f 72 | 74 20 2d 69 67 6e 6f 72 |?} [lsor|t -ignor|
|00001390| 65 20 5b 61 72 72 61 79 | 20 6e 61 6d 65 73 20 66 |e [array| names f|
|000013a0| 69 6c 65 53 65 74 73 5d | 5d 5d 0d 20 09 69 66 20 |ileSets]|]]. .if |
|000013b0| 7b 24 63 75 72 72 46 69 | 6c 65 53 65 74 20 3d 3d |{$currFi|leSet ==|
|000013c0| 20 24 66 73 65 74 7d 20 | 7b 63 61 74 63 68 20 7b | $fset} |{catch {|
|000013d0| 73 65 74 20 63 75 72 72 | 46 69 6c 65 53 65 74 20 |set curr|FileSet |
|000013e0| 53 79 73 74 65 6d 7d 7d | 0d 0d 09 69 66 20 7b 5b |System}}|...if {[|
|000013f0| 61 73 6b 79 65 73 6e 6f | 20 22 44 65 6c 65 74 65 |askyesno| "Delete|
|00001400| 20 66 69 6c 65 73 65 74 | 20 5c 22 24 66 73 65 74 | fileset| \"$fset|
|00001410| 5c 22 3f 22 5d 20 3d 3d | 20 22 79 65 73 22 7d 20 |\"?"] ==| "yes"} |
|00001420| 7b 0d 09 09 63 61 74 63 | 68 20 7b 75 6e 73 65 74 |{...catc|h {unset|
|00001430| 20 22 66 69 6c 65 53 65 | 74 73 28 24 66 73 65 74 | "fileSe|ts($fset|
|00001440| 29 22 7d 0d 09 09 63 61 | 74 63 68 20 7b 75 6e 73 |)"}...ca|tch {uns|
|00001450| 65 74 20 22 67 66 69 6c | 65 53 65 74 73 28 24 66 |et "gfil|eSets($f|
|00001460| 73 65 74 29 22 7d 0d 09 | 09 0d 09 09 69 66 20 7b |set)"}..|....if {|
|00001470| 5b 61 73 6b 79 65 73 6e | 6f 20 22 50 65 72 6d 61 |[askyesn|o "Perma|
|00001480| 6e 65 6e 74 6c 79 3f 22 | 5d 20 3d 3d 20 22 79 65 |nently?"|] == "ye|
|00001490| 73 22 7d 20 7b 0d 09 09 | 09 72 65 6d 6f 76 65 41 |s"} {...|.removeA|
|000014a0| 72 72 44 65 66 20 67 66 | 69 6c 65 53 65 74 73 20 |rrDef gf|ileSets |
|000014b0| 24 66 73 65 74 0d 09 09 | 7d 0d 09 09 72 65 62 75 |$fset...|}...rebu|
|000014c0| 69 6c 64 46 69 6c 65 73 | 65 74 4d 65 6e 75 0d 09 |ildFiles|etMenu..|
|000014d0| 7d 0d 7d 0d 0d 0d 23 3d | 3d 3d 3d 3d 3d 3d 3d 3d |}.}...#=|========|
|000014e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000014f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001500| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001510| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001520| 3d 3d 3d 3d 3d 3d 0d 70 | 72 6f 63 20 72 65 70 6c |======.p|roc repl|
|00001530| 61 63 65 49 6e 46 69 6c | 65 73 65 74 20 7b 7d 20 |aceInFil|eset {} |
|00001540| 7b 0d 09 67 6c 6f 62 61 | 6c 20 66 69 6c 65 53 65 |{..globa|l fileSe|
|00001550| 74 73 0d 09 0d 09 73 65 | 74 20 66 72 6f 6d 20 5b |ts....se|t from [|
|00001560| 70 72 6f 6d 70 74 20 22 | 53 65 61 72 63 68 20 73 |prompt "|Search s|
|00001570| 74 72 69 6e 67 3a 22 20 | 22 22 5d 0d 09 73 65 74 |tring:" |""]..set|
|00001580| 20 74 6f 20 5b 70 72 6f | 6d 70 74 20 22 52 65 70 | to [pro|mpt "Rep|
|00001590| 6c 61 63 65 20 73 74 72 | 69 6e 67 3a 22 20 22 22 |lace str|ing:" ""|
|000015a0| 5d 0d 09 73 65 74 20 66 | 73 65 74 20 5b 6c 69 73 |]..set f|set [lis|
|000015b0| 74 70 69 63 6b 20 2d 70 | 20 22 57 68 69 63 68 20 |tpick -p| "Which |
|000015c0| 66 69 6c 65 73 65 74 3f | 22 20 5b 61 72 72 61 79 |fileset?|" [array|
|000015d0| 20 6e 61 6d 65 73 20 66 | 69 6c 65 53 65 74 73 5d | names f|ileSets]|
|000015e0| 5d 0d 0d 09 69 66 20 7b | 5b 62 75 74 74 6f 6e 41 |]...if {|[buttonA|
|000015f0| 6c 65 72 74 20 22 53 61 | 76 65 20 61 6c 6c 20 77 |lert "Sa|ve all w|
|00001600| 69 6e 64 6f 77 73 3f 22 | 20 22 59 65 73 22 20 22 |indows?"| "Yes" "|
|00001610| 43 61 6e 63 65 6c 22 5d | 20 21 3d 20 22 59 65 73 |Cancel"]| != "Yes|
|00001620| 22 7d 20 72 65 74 75 72 | 6e 0d 09 73 61 76 65 41 |"} retur|n..saveA|
|00001630| 6c 6c 0d 09 0d 09 73 65 | 74 20 63 69 64 20 5b 73 |ll....se|t cid [s|
|00001640| 63 61 6e 63 6f 6e 74 65 | 78 74 20 63 72 65 61 74 |canconte|xt creat|
|00001650| 65 5d 0d 09 73 63 61 6e | 6d 61 74 63 68 20 24 63 |e]..scan|match $c|
|00001660| 69 64 20 24 66 72 6f 6d | 20 7b 0d 09 09 73 65 74 |id $from| {...set|
|00001670| 20 6d 61 74 63 68 65 73 | 28 24 66 29 20 31 0d 09 | matches|($f) 1..|
|00001680| 7d 0d 09 66 6f 72 65 61 | 63 68 20 66 20 24 66 69 |}..forea|ch f $fi|
|00001690| 6c 65 53 65 74 73 28 24 | 66 73 65 74 29 20 7b 0d |leSets($|fset) {.|
|000016a0| 09 09 69 66 20 7b 21 5b | 63 61 74 63 68 20 7b 73 |..if {![|catch {s|
|000016b0| 65 74 20 66 69 64 20 5b | 6f 70 65 6e 20 24 66 5d |et fid [|open $f]|
|000016c0| 7d 5d 7d 20 7b 0d 09 09 | 09 6d 65 73 73 61 67 65 |}]} {...|.message|
|000016d0| 20 22 4c 6f 6f 6b 69 6e | 67 20 61 74 20 27 5b 66 | "Lookin|g at '[f|
|000016e0| 69 6c 65 20 74 61 69 6c | 20 24 66 5d 27 c9 22 0d |ile tail| $f]'.".|
|000016f0| 09 09 09 73 63 61 6e 66 | 69 6c 65 20 24 63 69 64 |...scanf|ile $cid|
|00001700| 20 24 66 69 64 0d 09 09 | 09 63 6c 6f 73 65 20 24 | $fid...|.close $|
|00001710| 66 69 64 0d 09 09 7d 0d | 09 7d 0d 09 73 63 61 6e |fid...}.|.}..scan|
|00001720| 63 6f 6e 74 65 78 74 20 | 64 65 6c 65 74 65 20 24 |context |delete $|
|00001730| 63 69 64 0d 0d 09 66 6f | 72 65 61 63 68 20 66 20 |cid...fo|reach f |
|00001740| 5b 61 72 72 61 79 20 6e | 61 6d 65 73 20 6d 61 74 |[array n|ames mat|
|00001750| 63 68 65 73 5d 20 7b 0d | 09 09 6d 65 73 73 61 67 |ches] {.|..messag|
|00001760| 65 20 22 4d 6f 64 69 66 | 79 69 6e 67 20 24 66 c9 |e "Modif|ying $f.|
|00001770| 22 0d 09 09 73 65 74 20 | 63 69 64 20 5b 6f 70 65 |"...set |cid [ope|
|00001780| 6e 20 24 66 20 22 72 22 | 5d 0d 09 09 69 66 20 7b |n $f "r"|]...if {|
|00001790| 5b 72 65 67 73 75 62 20 | 2d 61 6c 6c 20 24 66 72 |[regsub |-all $fr|
|000017a0| 6f 6d 20 5b 72 65 61 64 | 20 24 63 69 64 5d 20 24 |om [read| $cid] $|
|000017b0| 74 6f 20 6f 75 74 5d 7d | 20 7b 0d 09 09 09 73 65 |to out]}| {....se|
|000017c0| 74 20 6f 63 69 64 20 5b | 6f 70 65 6e 20 24 66 20 |t ocid [|open $f |
|000017d0| 22 77 2b 22 5d 0d 09 09 | 09 70 75 74 73 20 2d 6e |"w+"]...|.puts -n|
|000017e0| 6f 6e 65 77 6c 69 6e 65 | 20 24 6f 63 69 64 20 24 |onewline| $ocid $|
|000017f0| 6f 75 74 0d 09 09 09 63 | 6c 6f 73 65 20 24 6f 63 |out....c|lose $oc|
|00001800| 69 64 0d 09 09 7d 0d 09 | 09 63 6c 6f 73 65 20 24 |id...}..|.close $|
|00001810| 63 69 64 0d 09 7d 0d 09 | 0d 09 69 66 20 7b 5b 62 |cid..}..|..if {[b|
|00001820| 75 74 74 6f 6e 41 6c 65 | 72 74 20 22 52 65 76 65 |uttonAle|rt "Reve|
|00001830| 72 74 20 61 66 66 65 63 | 74 65 64 20 77 69 6e 64 |rt affec|ted wind|
|00001840| 6f 77 73 3f 22 20 22 59 | 65 73 22 20 22 4e 6f 22 |ows?" "Y|es" "No"|
|00001850| 5d 20 3d 3d 20 22 59 65 | 73 22 7d 20 7b 0d 09 09 |] == "Ye|s"} {...|
|00001860| 66 6f 72 65 61 63 68 20 | 66 20 5b 61 72 72 61 79 |foreach |f [array|
|00001870| 20 6e 61 6d 65 73 20 6d | 61 74 63 68 65 73 5d 20 | names m|atches] |
|00001880| 7b 0d 09 09 09 62 72 69 | 6e 67 54 6f 46 72 6f 6e |{....bri|ngToFron|
|00001890| 74 20 24 66 0d 09 09 09 | 72 65 76 65 72 74 0d 09 |t $f....|revert..|
|000018a0| 09 7d 0d 09 7d 0d 09 6d | 65 73 73 61 67 65 20 22 |.}..}..m|essage "|
|000018b0| 22 0d 7d 0d 0d 23 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |".}..#==|========|
|000018c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000018d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000018e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000018f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001900| 3d 3d 3d 3d 3d 3d 0d 23 | 20 43 72 65 61 74 65 20 |======.#| Create |
|00001910| 61 20 68 65 69 72 61 72 | 63 68 69 63 61 6c 20 66 |a heirar|chical f|
|00001920| 69 6c 65 73 65 74 20 6d | 65 6e 75 20 74 68 61 74 |ileset m|enu that|
|00001930| 20 61 6c 6c 6f 77 73 20 | 79 6f 75 20 0d 23 20 74 | allows |you .# t|
|00001940| 6f 20 6f 70 65 6e 20 61 | 6e 79 20 66 69 6c 65 20 |o open a|ny file |
|00001950| 69 6e 20 61 6e 79 20 66 | 69 6c 65 73 65 74 2e 0d |in any f|ileset..|
|00001960| 23 0d 23 20 44 6f 65 73 | 6e 27 74 20 62 6f 74 68 |#.# Does|n't both|
|00001970| 65 72 20 74 72 79 69 6e | 67 20 74 6f 20 73 70 65 |er tryin|g to spe|
|00001980| 63 69 61 6c 63 61 73 65 | 20 6e 61 6d 65 73 20 6f |cialcase| names o|
|00001990| 72 20 70 61 74 68 6e 61 | 6d 65 73 20 74 68 61 74 |r pathna|mes that|
|000019a0| 20 68 61 76 65 0d 23 20 | 6e 6f 6e 2d 61 6c 70 68 | have.# |non-alph|
|000019b0| 61 6e 75 6d 65 72 69 63 | 20 63 68 61 72 61 63 74 |anumeric| charact|
|000019c0| 65 72 73 20 69 6e 20 74 | 68 65 6d 2e 0d 0d 70 72 |ers in t|hem...pr|
|000019d0| 6f 63 20 66 69 6c 65 73 | 65 74 50 72 6f 63 20 7b |oc files|etProc {|
|000019e0| 6d 65 6e 75 20 69 74 65 | 6d 7d 20 7b 0d 09 67 6c |menu ite|m} {..gl|
|000019f0| 6f 62 61 6c 20 66 69 6c | 65 53 65 74 73 0d 09 69 |obal fil|eSets..i|
|00001a00| 66 20 7b 24 69 74 65 6d | 20 3d 3d 20 22 45 64 69 |f {$item| == "Edi|
|00001a10| 74 20 46 69 6c 65 22 7d | 20 7b 0d 09 09 65 64 69 |t File"}| {...edi|
|00001a20| 74 46 69 6c 65 0d 09 09 | 72 65 74 75 72 6e 0d 09 |tFile...|return..|
|00001a30| 7d 0d 09 69 66 20 7b 5b | 73 65 74 20 6d 61 74 63 |}..if {[|set matc|
|00001a40| 68 20 5b 6c 73 65 61 72 | 63 68 20 24 66 69 6c 65 |h [lsear|ch $file|
|00001a50| 53 65 74 73 28 24 6d 65 | 6e 75 29 20 2a 3a 24 69 |Sets($me|nu) *:$i|
|00001a60| 74 65 6d 5d 5d 20 3e 3d | 20 30 7d 20 7b 0d 09 09 |tem]] >=| 0} {...|
|00001a70| 65 64 69 74 20 5b 6c 69 | 6e 64 65 78 20 24 66 69 |edit [li|ndex $fi|
|00001a80| 6c 65 53 65 74 73 28 24 | 6d 65 6e 75 29 20 24 6d |leSets($|menu) $m|
|00001a90| 61 74 63 68 5d 0d 09 7d | 0d 7d 09 0d 0d 0d 70 72 |atch]..}|.}....pr|
|00001aa0| 6f 63 20 72 65 62 75 69 | 6c 64 46 69 6c 65 73 65 |oc rebui|ldFilese|
|00001ab0| 74 4d 65 6e 75 20 7b 7d | 20 7b 0d 20 20 20 20 67 |tMenu {}| {.    g|
|00001ac0| 6c 6f 62 61 6c 20 66 69 | 6c 65 53 65 74 73 20 67 |lobal fi|leSets g|
|00001ad0| 66 69 6c 65 53 65 74 73 | 20 66 73 65 74 4d 65 6e |fileSets| fsetMen|
|00001ae0| 75 4e 61 6d 65 20 63 75 | 72 72 46 69 6c 65 53 65 |uName cu|rrFileSe|
|00001af0| 74 0d 0d 09 66 6f 72 65 | 61 63 68 20 66 20 5b 61 |t...fore|ach f [a|
|00001b00| 72 72 61 79 20 6e 61 6d | 65 73 20 67 66 69 6c 65 |rray nam|es gfile|
|00001b10| 53 65 74 73 5d 20 7b 0d | 09 09 63 61 74 63 68 20 |Sets] {.|..catch |
|00001b20| 7b 73 65 74 20 22 66 69 | 6c 65 53 65 74 73 28 24 |{set "fi|leSets($|
|00001b30| 66 29 22 20 5b 67 6c 6f | 62 20 2d 74 20 54 45 58 |f)" [glo|b -t TEX|
|00001b40| 54 20 22 24 67 66 69 6c | 65 53 65 74 73 28 24 66 |T "$gfil|eSets($f|
|00001b50| 29 22 5d 7d 0d 09 7d 0d | 09 0d 20 20 20 20 66 6f |)"]}..}.|..    fo|
|00001b60| 72 65 61 63 68 20 66 20 | 5b 6c 73 6f 72 74 20 5b |reach f |[lsort [|
|00001b70| 61 72 72 61 79 20 6e 61 | 6d 65 73 20 66 69 6c 65 |array na|mes file|
|00001b80| 53 65 74 73 5d 5d 20 7b | 0d 20 20 20 20 20 20 20 |Sets]] {|.       |
|00001b90| 20 69 66 20 7b 24 66 20 | 3d 3d 20 22 48 65 6c 70 | if {$f |== "Help|
|00001ba0| 22 7d 20 63 6f 6e 74 69 | 6e 75 65 0d 20 20 20 20 |"} conti|nue.    |
|00001bb0| 20 20 20 20 73 65 74 20 | 6d 65 6e 75 20 7b 7d 0d |    set |menu {}.|
|00001bc0| 20 20 20 20 20 20 20 20 | 66 6f 72 65 61 63 68 20 |        |foreach |
|00001bd0| 6d 20 22 24 66 69 6c 65 | 53 65 74 73 28 24 66 29 |m "$file|Sets($f)|
|00001be0| 22 20 7b 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |" {.    |        |
|00001bf0| 6c 61 70 70 65 6e 64 20 | 6d 65 6e 75 20 22 5b 66 |lappend |menu "[f|
|00001c00| 69 6c 65 20 74 61 69 6c | 20 24 6d 5d 5c 26 22 0d |ile tail| $m]\&".|
|00001c10| 20 20 20 20 20 20 20 20 | 7d 0d 20 20 20 20 20 20 |        |}.      |
|00001c20| 20 20 6c 61 70 70 65 6e | 64 20 73 65 74 73 20 5b |  lappen|d sets [|
|00001c30| 6c 69 73 74 20 6d 65 6e | 75 20 2d 73 20 2d 6d 20 |list men|u -s -m |
|00001c40| 2d 6e 20 24 66 20 2d 70 | 20 66 69 6c 65 73 65 74 |-n $f -p| fileset|
|00001c50| 50 72 6f 63 20 5b 6c 73 | 6f 72 74 20 2d 69 20 24 |Proc [ls|ort -i $|
|00001c60| 6d 65 6e 75 5d 5d 0d 20 | 20 20 20 7d 0d 20 20 20 |menu]]. |   }.   |
|00001c70| 20 6d 65 6e 75 20 2d 6d | 20 2d 6e 20 24 66 73 65 | menu -m| -n $fse|
|00001c80| 74 4d 65 6e 75 4e 61 6d | 65 20 2d 70 20 66 69 6c |tMenuNam|e -p fil|
|00001c90| 65 73 65 74 50 72 6f 63 | 20 5b 63 6f 6e 63 61 74 |esetProc| [concat|
|00001ca0| 20 7b 7b 2f 27 45 64 69 | 74 20 46 69 6c 65 7d 20 | {{/'Edi|t File} |
|00001cb0| 7b 6d 65 6e 75 20 2d 6e | 20 55 74 69 6c 69 74 69 |{menu -n| Utiliti|
|00001cc0| 65 73 20 7b 7d 7d 20 22 | 28 2d 22 7d 20 24 73 65 |es {}} "|(-"} $se|
|00001cd0| 74 73 5d 0d 20 20 20 20 | 0d 20 20 20 20 6d 65 6e |ts].    |.    men|
|00001ce0| 75 20 2d 6e 20 22 55 74 | 69 6c 69 74 69 65 73 22 |u -n "Ut|ilities"|
|00001cf0| 20 7b 0d 20 20 20 20 20 | 20 20 20 7b 6d 65 6e 75 | {.     |   {menu|
|00001d00| 20 2d 6e 20 63 68 6f 6f | 73 65 20 2d 70 20 63 68 | -n choo|se -p ch|
|00001d10| 61 6e 67 65 46 69 6c 65 | 53 65 74 20 7b 7d 7d 0d |angeFile|Set {}}.|
|00001d20| 20 20 20 20 20 20 20 20 | 22 63 72 65 61 74 65 46 |        |"createF|
|00001d30| 69 6c 65 73 65 74 22 0d | 20 20 20 20 20 20 20 20 |ileset".|        |
|00001d40| 22 64 65 6c 65 74 65 46 | 69 6c 65 73 65 74 22 0d |"deleteF|ileset".|
|00001d50| 20 20 20 20 20 20 20 20 | 22 28 2d 22 0d 20 20 20 |        |"(-".   |
|00001d60| 20 20 20 20 20 22 63 72 | 65 61 74 65 54 68 69 6e |     "cr|eateThin|
|00001d70| 6b 46 69 6c 65 73 65 74 | 22 0d 20 20 20 20 20 20 |kFileset|".      |
|00001d80| 20 20 22 63 72 65 61 74 | 65 57 61 72 72 69 6f 72 |  "creat|eWarrior|
|00001d90| 46 69 6c 65 73 65 74 22 | 0d 20 20 20 20 20 20 20 |Fileset"|.       |
|00001da0| 20 22 28 2d 22 0d 20 20 | 20 20 20 20 20 20 22 63 | "(-".  |      "c|
|00001db0| 72 65 61 74 65 46 69 6c | 65 73 65 74 46 72 6f 6d |reateFil|esetFrom|
|00001dc0| 57 69 6e 73 22 0d 20 20 | 20 20 20 20 20 20 22 6f |Wins".  |      "o|
|00001dd0| 70 65 6e 45 6e 74 69 72 | 65 46 69 6c 65 73 65 74 |penEntir|eFileset|
|00001de0| 22 0d 20 20 20 20 20 20 | 20 20 22 28 2d 22 0d 20 |".      |  "(-". |
|00001df0| 20 20 20 20 20 20 20 22 | 2f 54 3c 49 3c 4f 66 69 |       "|/T<I<Ofi|
|00001e00| 6e 64 54 61 67 22 0d 20 | 20 20 20 20 20 20 20 22 |ndTag". |       "|
|00001e10| 63 72 65 61 74 65 54 61 | 67 46 69 6c 65 22 0d 20 |createTa|gFile". |
|00001e20| 20 20 20 20 20 20 20 22 | 28 2d 22 0d 20 20 20 20 |       "|(-".    |
|00001e30| 20 20 20 20 22 72 65 70 | 6c 61 63 65 49 6e 46 69 |    "rep|laceInFi|
|00001e40| 6c 65 73 65 74 22 0d 20 | 20 20 20 20 20 20 20 22 |leset". |       "|
|00001e50| 28 2d 22 0d 20 20 20 20 | 20 20 20 20 22 72 65 62 |(-".    |    "reb|
|00001e60| 75 69 6c 64 46 69 6c 65 | 73 65 74 4d 65 6e 75 22 |uildFile|setMenu"|
|00001e70| 0d 20 20 20 20 20 20 20 | 20 7d 0d 0d 20 20 20 20 |.       | }..    |
|00001e80| 6d 65 6e 75 20 2d 6e 20 | 63 68 6f 6f 73 65 20 2d |menu -n |choose -|
|00001e90| 6d 20 2d 70 20 63 68 61 | 6e 67 65 46 69 6c 65 53 |m -p cha|ngeFileS|
|00001ea0| 65 74 20 5b 6c 73 6f 72 | 74 20 5b 61 72 72 61 79 |et [lsor|t [array|
|00001eb0| 20 6e 61 6d 65 73 20 66 | 69 6c 65 53 65 74 73 5d | names f|ileSets]|
|00001ec0| 5d 0d 20 20 20 20 6d 61 | 72 6b 4d 65 6e 75 49 74 |].    ma|rkMenuIt|
|00001ed0| 65 6d 20 2d 6d 20 63 68 | 6f 6f 73 65 20 24 63 75 |em -m ch|oose $cu|
|00001ee0| 72 72 46 69 6c 65 53 65 | 74 20 6f 6e 0d 7d 0d 0d |rrFileSe|t on.}..|
|00001ef0| 0d 69 6e 73 65 72 74 4d | 65 6e 75 20 24 66 73 65 |.insertM|enu $fse|
|00001f00| 74 4d 65 6e 75 4e 61 6d | 65 0d 00 00 00 00 00 00 |tMenuNam|e.......|
|00001f10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f80| 00 00 01 00 00 00 02 86 | 00 00 01 86 00 00 00 42 |........|.......B|
|00001f90| de 91 db e4 3c 93 df c4 | 1c 67 b1 ef a1 ec 33 e5 |....<...|.g....3.|
|00001fa0| 31 a6 f9 9b ad 7c 19 1d | 67 d1 1f b0 2d 7c 8d 9d |1....|..|g...-|..|
|00001fb0| 0c 66 69 6c 65 73 65 74 | 73 2e 74 63 6c 74 02 00 |.fileset|s.tclt..|
|00001fc0| 02 00 54 45 58 54 41 4c | 46 41 01 00 00 00 00 00 |..TEXTAL|FA......|
|00001fd0| 02 00 54 45 58 54 41 4c | 46 41 01 00 00 00 00 00 |..TEXTAL|FA......|
|00001fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ff0| 00 00 ab 8e 54 6f 00 00 | 1e 8a 00 00 02 c8 f7 0d |....To..|........|
|00002000| f6 6b 1c cf 08 6d 2f c7 | e4 3a d6 fa d6 d1 12 e4 |.k...m/.|.:......|
|00002010| fe 8d d6 86 8e d8 33 bf | b1 d8 13 6c 10 8e f3 b7 |......3.|...l....|
|00002020| ca 32 65 ff 39 f5 65 07 | 45 d9 ce 47 5b 86 3f fc |.2e.9.e.|E..G[.?.|
|00002030| 6b e1 b8 fe 4f 85 9b 82 | 3b be 63 73 70 92 85 7d |k...O...|;.csp..}|
|00002040| c1 aa 4f be c5 67 eb 24 | 1b 04 b4 e0 54 a3 4c 2e |..O..g.$|....T.L.|
|00002050| f3 1b 9b 21 13 d3 c4 7e | 0d 80 01 a1 68 5d 47 5e |...!...~|....h]G^|
|00002060| d3 be 8e 3e 98 37 e4 fe | 03 35 ff 4c ec 99 df 58 |...>.7..|.5.L...X|
|00002070| 6c 33 1b 04 00 a3 35 34 | 16 6e ca 7e 3b f5 65 c7 |l3....54|.n.~;.e.|
|00002080| 00 00 01 36 00 0d 00 00 | 07 e3 00 00 07 e3 0d 63 |...6....|.......c|
|00002090| 68 61 6e 67 65 46 69 6c | 65 53 65 74 00 00 09 30 |hangeFil|eSet...0|
|000020a0| 00 00 09 30 0d 63 72 65 | 61 74 65 46 69 6c 65 73 |...0.cre|ateFiles|
|000020b0| 65 74 00 00 0c bf 00 00 | 0c bf 15 63 72 65 61 74 |et......|...creat|
|000020c0| 65 46 69 6c 65 73 65 74 | 46 72 6f 6d 57 69 6e 73 |eFileset|FromWins|
|000020d0| 00 00 12 a0 00 00 12 a0 | 0d 64 65 6c 65 74 65 46 |........|.deleteF|
|000020e0| 69 6c 65 73 65 74 00 00 | 0e f3 00 00 0e f3 0b 64 |ileset..|.......d|
|000020f0| 75 6d 70 46 69 6c 65 73 | 65 74 00 00 10 df 00 00 |umpFiles|et......|
|00002100| 10 df 09 65 64 69 74 46 | 69 6c 65 00 00 00 19 4e |...editF|ile....N|
|00002110| 00 00 19 4e 0b 66 69 6c | 65 73 65 74 50 72 6f 63 |...N.fil|esetProc|
|00002120| 00 00 04 74 00 00 04 74 | 0f 67 65 74 43 75 72 72 |...t...t|.getCurr|
|00002130| 46 69 6c 65 53 65 74 00 | 00 00 05 35 00 00 05 35 |FileSet.|...5...5|
|00002140| 0f 67 65 74 46 69 6c 65 | 53 65 74 4e 61 6d 65 73 |.getFile|SetNames|
|00002150| 00 00 0b 9b 00 00 0b 9b | 11 6f 70 65 6e 45 6e 74 |........|.openEnt|
|00002160| 69 72 65 46 69 6c 65 73 | 65 74 00 00 1a 1e 00 00 |ireFiles|et......|
|00002170| 1a 1e 13 72 65 62 75 69 | 6c 64 46 69 6c 65 73 65 |...rebui|ldFilese|
|00002180| 74 4d 65 6e 75 00 00 00 | 14 a7 00 00 14 a7 11 72 |tMenu...|.......r|
|00002190| 65 70 6c 61 63 65 49 6e | 46 69 6c 65 73 65 74 00 |eplaceIn|Fileset.|
|000021a0| 00 00 06 9b 00 00 06 9b | 11 73 68 61 64 6f 77 43 |........|.shadowC|
|000021b0| 75 72 72 46 69 6c 65 53 | 65 74 00 00 00 48 00 09 |urrFileS|et...H..|
|000021c0| 4d 6f 6e 61 63 6f 00 07 | fc e0 00 00 15 4e 00 fe |Monaco..|.....N..|
|000021d0| 3f 10 01 1c e4 a0 24 00 | 04 44 01 5c 9b 5c 00 20 |?.....$.|.D.\.\. |
|000021e0| 00 04 00 04 00 28 00 02 | 02 5c 03 1a 00 28 00 02 |.....(..|.\...(..|
|000021f0| 02 5c 03 1a ac 1f 40 7b | 00 00 0c c4 00 00 0c d9 |.\....@{|........|
|00002200| 00 00 0c 7f 01 00 00 00 | 01 00 00 00 02 86 00 00 |........|........|
|00002210| 01 86 00 00 00 42 00 fc | b4 b8 15 4e 00 00 00 1c |.....B..|...N....|
|00002220| 00 3e 00 00 4d 50 53 52 | 00 01 00 0a 03 ef 00 00 |.>..MPSR|........|
|00002230| 00 00 00 00 00 00 00 00 | 03 ed ff ff 00 00 01 3a |........|.......:|
|00002240| 01 08 01 5c 03 74 61 62 | 00 00 00 00 00 00 00 00 |...\.tab|........|
|00002250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+