home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1995-07-14 | 25.0 KB | [TEXT/ALFA] |
open in: 
MacOS 8.1
|
Win98
|
DOS
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 Jul 14 20:34:23 1995, modified Fri Jul 14 20:34:23 1995, creator Alpha editor, type ASCII, 23563 bytes "procs.tcl" , at 0x5c8b 1764 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 09 70 72 6f 63 73 2e | 74 63 6c 00 00 00 00 00 |..procs.|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 5c 0b 00 | 00 06 e4 ac 2c bd 8f ac |.....\..|....,...|
|00000060| 2c bd 8f 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 53 cc 00 00 |........|....S...|
|00000080| 0d 23 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| 0d 23 20 4c 6f 61 64 20 | 65 6c 65 63 74 72 69 63 |.# Load |electric|
|000000e0| 20 61 6c 69 61 73 2c 20 | 72 65 62 69 6e 64 20 74 | alias, |rebind t|
|000000f0| 63 6c 20 66 69 6c 65 20 | 63 6f 6d 70 6c 65 74 69 |cl file |completi|
|00000100| 6f 6e 20 66 6f 72 20 70 | 72 65 63 65 64 65 6e 63 |on for p|recedenc|
|00000110| 65 2e 0d 70 72 6f 63 20 | 6c 6f 61 64 45 6c 65 63 |e..proc |loadElec|
|00000120| 74 72 69 63 41 6c 69 61 | 73 20 7b 7d 20 7b 0d 09 |tricAlia|s {} {..|
|00000130| 67 6c 6f 62 61 6c 20 48 | 4f 4d 45 0d 09 75 70 6c |global H|OME..upl|
|00000140| 65 76 65 6c 20 23 30 20 | 7b 0d 09 09 73 6f 75 72 |evel #0 |{...sour|
|00000150| 63 65 20 22 24 48 4f 4d | 45 3a 54 63 6c 3a 45 6c |ce "$HOM|E:Tcl:El|
|00000160| 65 63 74 72 69 63 41 6c | 69 61 73 3a 65 6c 65 63 |ectricAl|ias:elec|
|00000170| 74 72 69 63 41 6c 69 61 | 73 2e 74 63 6c 22 0d 09 |tricAlia|s.tcl"..|
|00000180| 7d 0d 09 6d 65 73 73 61 | 67 65 20 22 45 6c 65 63 |}..messa|ge "Elec|
|00000190| 74 72 69 63 41 6c 69 61 | 73 20 6c 6f 61 64 65 64 |tricAlia|s loaded|
|000001a0| 2e 22 0d 09 62 69 6e 64 | 20 27 5c 74 27 20 74 63 |."..bind| '\t' tc|
|000001b0| 6c 46 69 6c 65 43 6f 6d | 70 6c 65 74 69 6f 6e 20 |lFileCom|pletion |
|000001c0| 22 53 68 65 6c 22 0d 09 | 65 6e 61 62 6c 65 4d 65 |"Shel"..|enableMe|
|000001d0| 6e 75 49 74 65 6d 20 2d | 6d 20 69 6e 73 74 61 6c |nuItem -|m instal|
|000001e0| 6c 20 22 45 6c 65 63 74 | 72 69 63 20 41 6c 69 61 |l "Elect|ric Alia|
|000001f0| 73 22 20 6f 66 66 0d 7d | 0d 0d 70 72 6f 63 20 64 |s" off.}|..proc d|
|00000200| 65 62 75 67 20 7b 7d 20 | 7b 0d 09 75 70 6c 65 76 |ebug {} |{..uplev|
|00000210| 65 6c 20 23 30 20 7b 0d | 09 09 73 65 74 20 64 65 |el #0 {.|..set de|
|00000220| 62 75 67 67 69 6e 67 20 | 31 0d 09 7d 0d 7d 0d 0d |bugging |1..}.}..|
|00000230| 0d 70 72 6f 63 20 6e 6f | 72 6d 61 6c 4c 65 66 74 |.proc no|rmalLeft|
|00000240| 42 72 61 63 6b 65 74 20 | 7b 7d 20 7b 0d 09 69 6e |Bracket |{} {..in|
|00000250| 73 65 72 74 54 65 78 74 | 20 22 5c 7b 22 0d 7d 0d |sertText| "\{".}.|
|00000260| 70 72 6f 63 20 6e 6f 72 | 6d 61 6c 52 69 67 68 74 |proc nor|malRight|
|00000270| 42 72 61 63 6b 65 74 20 | 7b 7d 20 7b 0d 09 69 6e |Bracket |{} {..in|
|00000280| 73 65 72 74 54 65 78 74 | 20 22 5c 7d 22 0d 7d 0d |sertText| "\}".}.|
|00000290| 62 69 6e 64 20 27 5c 5b | 27 20 3c 7a 73 3e 20 20 |bind '\[|' <zs> |
|000002a0| 6e 6f 72 6d 61 6c 4c 65 | 66 74 42 72 61 63 6b 65 |normalLe|ftBracke|
|000002b0| 74 0d 62 69 6e 64 20 27 | 5c 5d 27 20 3c 7a 73 3e |t.bind '|\]' <zs>|
|000002c0| 20 20 6e 6f 72 6d 61 6c | 52 69 67 68 74 42 72 61 | normal|RightBra|
|000002d0| 63 6b 65 74 0d 09 09 09 | 0d 23 20 53 65 6c 65 63 |cket....|.# Selec|
|000002e0| 74 20 74 68 65 20 6e 65 | 78 74 20 6f 72 20 63 75 |t the ne|xt or cu|
|000002f0| 72 72 65 6e 74 20 77 6f | 72 64 2e 20 49 66 20 77 |rrent wo|rd. If w|
|00000300| 6f 72 64 20 61 6c 72 65 | 61 64 79 20 73 65 6c 65 |ord alre|ady sele|
|00000310| 63 74 65 64 2c 20 77 69 | 6c 6c 20 67 6f 20 74 6f |cted, wi|ll go to|
|00000320| 20 6e 65 78 74 2e 0d 70 | 72 6f 63 20 68 69 6c 69 | next..p|roc hili|
|00000330| 74 65 57 6f 72 64 20 7b | 7d 20 7b 0d 09 69 66 20 |teWord {|} {..if |
|00000340| 7b 5b 67 65 74 50 6f 73 | 5d 21 3d 5b 73 65 6c 45 |{[getPos|]!=[selE|
|00000350| 6e 64 5d 7d 09 66 6f 72 | 77 61 72 64 43 68 61 72 |nd]}.for|wardChar|
|00000360| 0d 09 66 6f 72 77 61 72 | 64 57 6f 72 64 0d 09 73 |..forwar|dWord..s|
|00000370| 65 74 20 73 74 61 72 74 | 20 5b 67 65 74 50 6f 73 |et start| [getPos|
|00000380| 5d 0d 09 62 61 63 6b 77 | 61 72 64 57 6f 72 64 0d |]..backw|ardWord.|
|00000390| 09 73 65 6c 65 63 74 20 | 24 73 74 61 72 74 20 5b |.select |$start [|
|000003a0| 67 65 74 50 6f 73 5d 0d | 7d 0d 0d 62 69 6e 64 20 |getPos].|}..bind |
|000003b0| 27 68 27 20 3c 7a 3e 20 | 68 69 6c 69 74 65 57 6f |'h' <z> |hiliteWo|
|000003c0| 72 64 0d 0d 23 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |rd..#===|========|
|000003d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000003e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000003f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000400| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000410| 3d 3d 3d 3d 3d 0d 23 20 | 4d 6f 64 65 20 76 61 72 |=====.# |Mode var|
|00000420| 69 61 62 6c 65 73 0d 23 | 3d 3d 3d 3d 3d 3d 3d 3d |iables.#|========|
|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 3d 3d 3d 3d 3d |========|========|
|00000460| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000470| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 23 20 46 6f 72 20 6d |========|.# For m|
|00000480| 61 72 6b 20 73 74 61 63 | 6b 2e 0d 73 65 74 20 6d |ark stac|k..set m|
|00000490| 61 72 6b 4e 61 6d 65 20 | 30 0d 73 65 74 20 6d 61 |arkName |0.set ma|
|000004a0| 72 6b 53 74 61 63 6b 20 | 22 22 0d 0d 23 20 6d 61 |rkStack |""..# ma|
|000004b0| 70 70 69 6e 67 20 6f 66 | 20 77 69 6e 64 6f 77 73 |pping of| windows|
|000004c0| 20 74 6f 20 63 75 72 72 | 65 6e 74 20 6d 6f 64 65 | to curr|ent mode|
|000004d0| 73 2e 0d 73 65 74 20 77 | 69 6e 4d 6f 64 65 73 28 |s..set w|inModes(|
|000004e0| 22 22 29 20 22 22 0d 0d | 23 20 6d 61 6b 69 6e 67 |"") ""..|# making|
|000004f0| 20 76 61 72 73 20 6c 6f | 63 61 6c 20 74 6f 20 77 | vars lo|cal to w|
|00000500| 69 6e 64 6f 77 73 0d 23 | 20 27 69 6e 63 6f 6d 69 |indows.#| 'incomi|
|00000510| 6e 67 56 61 72 73 27 20 | 75 73 65 64 20 74 6f 20 |ngVars' |used to |
|00000520| 68 6f 6c 64 20 6f 6c 64 | 20 76 61 72 20 76 61 6c |hold old| var val|
|00000530| 75 65 73 20 74 68 61 74 | 20 68 61 76 65 20 62 65 |ues that| have be|
|00000540| 65 6e 20 6f 76 65 72 77 | 72 69 74 74 65 6e 20 69 |en overw|ritten i|
|00000550| 6e 20 63 75 72 72 65 6e | 74 20 77 69 6e 64 6f 77 |n curren|t window|
|00000560| 0d 0d 23 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |..#=====|========|
|00000570| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000580| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000590| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000005a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000005b0| 3d 3d 3d 0d 23 20 48 61 | 6e 64 6c 65 20 27 66 6c |===.# Ha|ndle 'fl|
|000005c0| 61 67 27 20 61 6e 64 20 | 27 76 61 72 27 20 6d 65 |ag' and |'var' me|
|000005d0| 6e 75 20 73 65 6c 65 63 | 74 69 6f 6e 73 2e 0d 23 |nu selec|tions..#|
|000005e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000005f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000600| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000610| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000620| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000630| 0d 70 72 6f 63 20 65 64 | 69 74 46 6c 61 67 20 7b |.proc ed|itFlag {|
|00000640| 6d 65 6e 75 20 69 74 65 | 6d 7d 20 7b 0d 09 67 6c |menu ite|m} {..gl|
|00000650| 6f 62 61 6c 20 24 69 74 | 65 6d 20 69 6e 63 6f 6d |obal $it|em incom|
|00000660| 69 6e 67 56 61 72 73 20 | 6c 6f 63 61 6c 56 61 72 |ingVars |localVar|
|00000670| 73 20 6d 6f 64 69 66 69 | 65 64 56 61 72 73 0d 0d |s modifi|edVars..|
|00000680| 09 69 66 20 7b 5b 72 65 | 67 65 78 70 20 7b 5c 3f |.if {[re|gexp {\?|
|00000690| 20 28 2e 2a 29 7d 20 24 | 69 74 65 6d 20 64 75 6d | (.*)} $|item dum|
|000006a0| 6d 79 20 76 61 72 5d 7d | 20 7b 0d 09 09 61 6c 70 |my var]}| {...alp|
|000006b0| 68 61 48 65 6c 70 0d 09 | 09 65 76 61 6c 20 73 65 |haHelp..|.eval se|
|000006c0| 6c 65 63 74 20 5b 73 65 | 61 72 63 68 20 2d 66 20 |lect [se|arch -f |
|000006d0| 31 20 2d 72 20 31 20 22 | 5e 24 76 61 72 22 5d 0d |1 -r 1 "|^$var"].|
|000006e0| 09 09 72 65 74 75 72 6e | 0d 09 7d 0d 09 6c 61 70 |..return|..}..lap|
|000006f0| 70 65 6e 64 20 6d 6f 64 | 69 66 69 65 64 56 61 72 |pend mod|ifiedVar|
|00000700| 73 20 24 69 74 65 6d 0d | 09 73 65 74 20 76 61 6c |s $item.|.set val|
|00000710| 20 5b 65 78 70 72 20 28 | 5b 73 65 74 20 24 69 74 | [expr (|[set $it|
|00000720| 65 6d 5d 2d 31 29 2a 2d | 31 5d 0d 09 6d 61 72 6b |em]-1)*-|1]..mark|
|00000730| 4d 65 6e 75 49 74 65 6d | 20 24 6d 65 6e 75 20 24 |MenuItem| $menu $|
|00000740| 69 74 65 6d 20 5b 65 78 | 70 72 20 28 24 76 61 6c |item [ex|pr ($val|
|00000750| 29 3f 22 6f 6e 22 3a 22 | 6f 66 66 22 5d 0d 09 73 |)?"on":"|off"]..s|
|00000760| 65 74 20 24 69 74 65 6d | 20 24 76 61 6c 0d 0d 7d |et $item| $val..}|
|00000770| 0d 0d 70 72 6f 63 20 65 | 64 69 74 56 61 72 20 7b |..proc e|ditVar {|
|00000780| 6d 65 6e 75 20 69 74 65 | 6d 7d 20 7b 0d 09 67 6c |menu ite|m} {..gl|
|00000790| 6f 62 61 6c 20 24 69 74 | 65 6d 20 69 6e 63 6f 6d |obal $it|em incom|
|000007a0| 69 6e 67 56 61 72 73 20 | 6c 6f 63 61 6c 56 61 72 |ingVars |localVar|
|000007b0| 73 20 6d 6f 64 69 66 69 | 65 64 56 61 72 73 0d 0d |s modifi|edVars..|
|000007c0| 09 69 66 20 7b 5b 72 65 | 67 65 78 70 20 7b 5c 3f |.if {[re|gexp {\?|
|000007d0| 20 28 2e 2a 29 7d 20 24 | 69 74 65 6d 20 64 75 6d | (.*)} $|item dum|
|000007e0| 6d 79 20 76 61 72 5d 7d | 20 7b 0d 09 09 61 6c 70 |my var]}| {...alp|
|000007f0| 68 61 48 65 6c 70 0d 09 | 09 65 76 61 6c 20 73 65 |haHelp..|.eval se|
|00000800| 6c 65 63 74 20 5b 73 65 | 61 72 63 68 20 2d 66 20 |lect [se|arch -f |
|00000810| 31 20 2d 72 20 31 20 22 | 5e 24 76 61 72 22 5d 0d |1 -r 1 "|^$var"].|
|00000820| 09 09 72 65 74 75 72 6e | 0d 09 7d 0d 09 6c 61 70 |..return|..}..lap|
|00000830| 70 65 6e 64 20 6d 6f 64 | 69 66 69 65 64 56 61 72 |pend mod|ifiedVar|
|00000840| 73 20 24 69 74 65 6d 0d | 09 61 70 70 65 6e 64 20 |s $item.|.append |
|00000850| 70 72 6d 70 74 20 22 4e | 65 77 20 56 61 6c 75 65 |prmpt "N|ew Value|
|00000860| 20 6f 66 20 22 20 24 69 | 74 65 6d 20 22 3a 20 22 | of " $i|tem ": "|
|00000870| 0d 09 69 66 20 21 5b 63 | 61 74 63 68 20 7b 70 72 |..if ![c|atch {pr|
|00000880| 6f 6d 70 74 20 24 70 72 | 6d 70 74 20 5b 73 65 74 |ompt $pr|mpt [set|
|00000890| 20 24 69 74 65 6d 5d 7d | 20 72 65 73 5d 20 7b 0d | $item]}| res] {.|
|000008a0| 09 09 73 65 74 20 24 69 | 74 65 6d 20 24 72 65 73 |..set $i|tem $res|
|000008b0| 0d 09 7d 0d 7d 0d 0d 0d | 0d 0d 23 3d 3d 3d 3d 3d |..}.}...|..#=====|
|000008c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000008d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000008e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000008f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000900| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 0d 23 20 49 |========|===..# I|
|00000910| 6e 73 74 61 6e 74 69 61 | 74 65 20 61 20 67 6c 6f |nstantia|te a glo|
|00000920| 62 61 6c 20 76 61 72 69 | 61 62 6c 65 20 74 6f 20 |bal vari|able to |
|00000930| 74 68 65 20 70 61 74 68 | 20 6f 66 20 61 20 66 69 |the path| of a fi|
|00000940| 6c 65 20 28 75 73 75 61 | 6c 6c 79 20 61 6e 20 61 |le (usua|lly an a|
|00000950| 70 70 29 2e 20 41 73 20 | 61 0d 23 20 73 69 64 65 |pp). As |a.# side|
|00000960| 2d 65 66 66 65 63 74 2c | 20 6d 61 6b 65 20 74 68 |-effect,| make th|
|00000970| 65 20 69 6e 73 74 61 6e | 74 69 61 74 69 6f 6e 20 |e instan|tiation |
|00000980| 70 65 72 6d 61 6e 65 6e | 74 2e 0d 70 72 6f 63 20 |permanen|t..proc |
|00000990| 61 64 64 41 70 70 50 61 | 74 68 20 7b 6e 61 6d 65 |addAppPa|th {name|
|000009a0| 20 76 61 72 7d 20 7b 0d | 09 67 6c 6f 62 61 6c 20 | var} {.|.global |
|000009b0| 24 76 61 72 20 6d 6f 64 | 69 66 69 65 64 56 61 72 |$var mod|ifiedVar|
|000009c0| 73 0d 09 0d 09 73 65 74 | 20 24 76 61 72 20 5b 67 |s....set| $var [g|
|000009d0| 65 74 66 69 6c 65 20 22 | 46 69 6e 64 20 27 24 6e |etfile "|Find '$n|
|000009e0| 61 6d 65 27 20 61 70 70 | 3a 22 5d 0d 09 6c 61 70 |ame' app|:"]..lap|
|000009f0| 70 65 6e 64 20 6d 6f 64 | 69 66 69 65 64 56 61 72 |pend mod|ifiedVar|
|00000a00| 73 20 24 76 61 72 0d 7d | 0d 0d 0d 70 72 6f 63 20 |s $var.}|...proc |
|00000a10| 67 65 74 46 69 6c 65 53 | 69 67 20 7b 66 7d 20 7b |getFileS|ig {f} {|
|00000a20| 0d 09 67 65 74 46 69 6c | 65 49 6e 66 6f 20 24 66 |..getFil|eInfo $f|
|00000a30| 20 61 72 72 0d 09 72 65 | 74 75 72 6e 20 24 61 72 | arr..re|turn $ar|
|00000a40| 72 28 63 72 65 61 74 6f | 72 29 0d 7d 0d 0d 70 72 |r(creato|r).}..pr|
|00000a50| 6f 63 20 67 65 74 46 69 | 6c 65 54 79 70 65 20 7b |oc getFi|leType {|
|00000a60| 66 7d 20 7b 0d 09 67 65 | 74 46 69 6c 65 49 6e 66 |f} {..ge|tFileInf|
|00000a70| 6f 20 24 66 20 61 72 72 | 0d 09 72 65 74 75 72 6e |o $f arr|..return|
|00000a80| 20 24 61 72 72 28 74 79 | 70 65 29 0d 7d 0d 0d 0d | $arr(ty|pe).}...|
|00000a90| 23 20 4c 6f 6f 6b 20 66 | 6f 72 20 67 69 76 65 6e |# Look f|or given|
|00000aa0| 20 61 70 70 20 73 69 67 | 20 69 6e 20 61 63 74 69 | app sig| in acti|
|00000ab0| 76 65 20 70 72 6f 63 65 | 73 73 65 73 2e 20 49 66 |ve proce|sses. If|
|00000ac0| 20 6e 6f 74 20 74 68 65 | 72 65 2c 20 74 72 79 20 | not the|re, try |
|00000ad0| 74 6f 20 0d 23 20 6c 61 | 75 6e 63 68 20 77 69 74 |to .# la|unch wit|
|00000ae0| 68 20 27 70 61 74 68 27 | 20 70 72 6f 6d 70 74 69 |h 'path'| prompti|
|00000af0| 6e 67 20 66 6f 72 20 27 | 70 61 74 68 27 20 69 66 |ng for '|path' if|
|00000b00| 20 6e 65 63 65 73 73 61 | 72 79 2e 0d 23 20 52 65 | necessa|ry..# Re|
|00000b10| 74 75 72 6e 20 74 68 65 | 20 72 65 61 6c 20 6e 61 |turn the| real na|
|00000b20| 6d 65 20 6f 66 20 74 68 | 65 20 61 70 70 2e 20 44 |me of th|e app. D|
|00000b30| 6f 6e 27 74 20 73 77 69 | 74 63 68 2e 0d 0d 23 20 |on't swi|tch...# |
|00000b40| 53 6c 69 67 68 74 6c 79 | 20 6d 6f 64 69 66 69 65 |Slightly| modifie|
|00000b50| 64 20 76 65 72 73 69 6f | 6e 20 6f 66 20 27 63 68 |d versio|n of 'ch|
|00000b60| 65 63 6b 52 75 6e 6e 69 | 6e 67 27 20 74 68 61 74 |eckRunni|ng' that|
|00000b70| 20 6c 6f 6f 6b 73 20 66 | 6f 72 20 61 6e 79 20 6f | looks f|or any o|
|00000b80| 66 20 61 0d 23 20 6c 69 | 73 74 20 6f 66 20 72 75 |f a.# li|st of ru|
|00000b90| 6e 6e 69 6e 67 20 61 70 | 70 73 2e 20 20 54 68 65 |nning ap|ps. The|
|00000ba0| 20 6e 61 6d 65 20 6f 66 | 20 74 68 65 20 61 70 70 | name of| the app|
|00000bb0| 20 69 73 20 72 65 74 75 | 72 6e 65 64 2e 20 0d 23 | is retu|rned. .#|
|00000bc0| 20 0d 70 72 6f 63 20 63 | 68 65 63 6b 52 75 6e 6e | .proc c|heckRunn|
|00000bd0| 69 6e 67 20 7b 70 72 6f | 6d 70 74 20 73 69 67 73 |ing {pro|mpt sigs|
|00000be0| 20 70 61 74 68 20 7b 69 | 6e 5f 66 72 6f 6e 74 20 | path {i|n_front |
|00000bf0| 31 7d 7d 20 7b 0d 20 20 | 20 20 67 6c 6f 62 61 6c |1}} {. | global|
|00000c00| 20 24 70 61 74 68 0d 0d | 20 20 20 20 23 20 53 65 | $path..| # Se|
|00000c10| 65 20 69 66 20 61 20 70 | 72 6f 63 65 73 73 20 77 |e if a p|rocess w|
|00000c20| 2f 20 61 6e 79 20 6f 66 | 20 74 68 65 20 61 63 63 |/ any of| the acc|
|00000c30| 65 70 74 61 62 6c 65 20 | 73 69 67 73 20 61 6c 72 |eptable |sigs alr|
|00000c40| 65 61 64 79 20 72 75 6e | 6e 69 6e 67 2e 0d 20 20 |eady run|ning.. |
|00000c50| 20 20 23 20 49 66 20 73 | 6f 2c 20 75 73 65 20 69 | # If s|o, use i|
|00000c60| 74 2c 20 77 68 65 74 68 | 65 72 20 69 74 27 73 20 |t, wheth|er it's |
|00000c70| 74 68 65 20 6f 6e 65 20 | 73 70 65 63 69 66 69 65 |the one |specifie|
|00000c80| 64 20 62 79 20 24 70 61 | 74 68 20 6f 72 20 6e 6f |d by $pa|th or no|
|00000c90| 74 2e 0d 20 20 20 20 23 | 0d 20 20 20 20 66 6f 72 |t.. #|. for|
|00000ca0| 65 61 63 68 20 70 72 6f | 63 20 5b 70 72 6f 63 65 |each pro|c [proce|
|00000cb0| 73 73 65 73 5d 20 7b 0d | 20 20 20 20 20 20 20 20 |sses] {.| |
|00000cc0| 23 20 69 66 20 61 20 72 | 75 6e 6e 69 6e 67 20 61 |# if a r|unning a|
|00000cd0| 70 70 20 68 61 73 20 74 | 68 65 20 63 6f 72 72 65 |pp has t|he corre|
|00000ce0| 63 74 20 73 69 67 2c 20 | 2e 2e 2e 0d 20 20 20 20 |ct sig, |.... |
|00000cf0| 20 20 20 20 69 66 20 7b | 5b 6c 73 65 61 72 63 68 | if {|[lsearch|
|00000d00| 20 2d 65 78 61 63 74 20 | 24 73 69 67 73 20 5b 6c | -exact |$sigs [l|
|00000d10| 69 6e 64 65 78 20 24 70 | 72 6f 63 20 31 5d 5d 20 |index $p|roc 1]] |
|00000d20| 3e 3d 20 30 7d 20 7b 0d | 20 20 20 20 20 20 20 20 |>= 0} {.| |
|00000d30| 20 20 20 20 23 20 2e 2e | 2e 74 68 65 6e 20 72 65 | # ..|.then re|
|00000d40| 74 75 72 6e 20 69 74 73 | 20 6e 61 6d 65 2e 0d 20 |turn its| name.. |
|00000d50| 20 20 20 20 20 20 20 20 | 20 20 20 72 65 74 75 72 | | retur|
|00000d60| 6e 20 5b 6c 69 6e 64 65 | 78 20 24 70 72 6f 63 20 |n [linde|x $proc |
|00000d70| 30 5d 0d 20 20 20 20 20 | 20 20 20 7d 0d 20 20 20 |0]. | }. |
|00000d80| 20 7d 0d 0d 20 20 20 20 | 23 20 49 66 20 74 68 65 | }.. |# If the|
|00000d90| 20 70 61 74 68 20 76 61 | 72 69 61 62 6c 65 20 6f | path va|riable o|
|00000da0| 72 20 74 68 65 20 66 69 | 6c 65 20 69 74 20 72 65 |r the fi|le it re|
|00000db0| 66 65 72 65 6e 63 65 73 | 20 64 6f 6e 27 74 20 65 |ferences| don't e|
|00000dc0| 78 69 73 74 2c 0d 20 20 | 20 20 23 20 6f 72 20 69 |xist,. | # or i|
|00000dd0| 66 20 69 74 73 20 73 69 | 67 20 69 73 6e 27 74 20 |f its si|g isn't |
|00000de0| 6f 6e 65 20 74 68 61 74 | 20 77 65 20 65 78 70 65 |one that| we expe|
|00000df0| 63 74 2c 20 74 68 65 6e | 20 70 72 6f 6d 70 74 20 |ct, then| prompt |
|00000e00| 74 68 65 20 75 73 65 72 | 20 0d 20 20 20 20 23 20 |the user| . # |
|00000e10| 74 6f 20 6c 6f 63 61 74 | 65 20 74 68 65 20 61 70 |to locat|e the ap|
|00000e20| 70 2e 0d 20 20 20 20 23 | 0d 20 20 20 20 69 66 20 |p.. #|. if |
|00000e30| 7b 21 5b 69 6e 66 6f 20 | 65 78 69 73 74 73 20 24 |{![info |exists $|
|00000e40| 70 61 74 68 5d 20 7c 7c | 20 21 5b 66 69 6c 65 20 |path] ||| ![file |
|00000e50| 65 78 69 73 74 73 20 5b | 73 65 74 20 24 70 61 74 |exists [|set $pat|
|00000e60| 68 5d 5d 20 0d 20 20 20 | 20 20 20 20 20 20 20 20 |h]] . | |
|00000e70| 20 20 7c 7c 20 5b 6c 73 | 65 61 72 63 68 20 2d 65 | || [ls|earch -e|
|00000e80| 78 61 63 74 20 24 73 69 | 67 73 20 5b 67 65 74 46 |xact $si|gs [getF|
|00000e90| 69 6c 65 53 69 67 20 5b | 73 65 74 20 24 70 61 74 |ileSig [|set $pat|
|00000ea0| 68 5d 5d 5d 20 3c 20 30 | 7d 20 7b 0d 20 20 20 20 |h]]] < 0|} {. |
|00000eb0| 20 20 20 20 69 66 20 7b | 5b 63 61 74 63 68 20 7b | if {|[catch {|
|00000ec0| 61 64 64 41 70 70 50 61 | 74 68 20 24 70 72 6f 6d |addAppPa|th $prom|
|00000ed0| 70 74 20 24 70 61 74 68 | 7d 5d 7d 20 72 65 74 75 |pt $path|}]} retu|
|00000ee0| 72 6e 0d 20 20 20 20 7d | 0d 0d 20 20 20 20 23 20 |rn. }|.. # |
|00000ef0| 43 68 65 63 6b 20 74 68 | 61 74 20 74 68 65 20 75 |Check th|at the u|
|00000f00| 73 65 72 27 73 20 63 68 | 6f 69 63 65 20 68 61 73 |ser's ch|oice has|
|00000f10| 20 61 6e 20 61 63 63 65 | 70 74 61 62 6c 65 20 73 | an acce|ptable s|
|00000f20| 69 67 0d 20 20 20 20 69 | 66 20 7b 5b 6c 73 65 61 |ig. i|f {[lsea|
|00000f30| 72 63 68 20 2d 65 78 61 | 63 74 20 24 73 69 67 73 |rch -exa|ct $sigs|
|00000f40| 20 5b 67 65 74 46 69 6c | 65 53 69 67 20 5b 73 65 | [getFil|eSig [se|
|00000f50| 74 20 24 70 61 74 68 5d | 5d 5d 20 3c 20 30 7d 20 |t $path]|]] < 0} |
|00000f60| 7b 0d 20 20 20 20 20 20 | 20 20 75 6e 73 65 74 20 |{. | unset |
|00000f70| 24 70 61 74 68 0d 20 20 | 20 20 20 20 20 20 6d 65 |$path. | me|
|00000f80| 73 73 61 67 65 20 22 49 | 6e 61 70 70 72 6f 70 72 |ssage "I|nappropr|
|00000f90| 69 61 74 65 20 66 69 6c | 65 20 63 68 6f 73 65 6e |iate fil|e chosen|
|00000fa0| 22 0d 20 20 20 20 20 20 | 20 20 72 65 74 75 72 6e |". | return|
|00000fb0| 20 7b 7d 20 0d 20 20 20 | 20 7d 0d 20 20 20 20 0d | {} . | }. .|
|00000fc0| 20 20 20 20 23 20 4c 61 | 75 6e 63 68 20 74 68 65 | # La|unch the|
|00000fd0| 20 61 70 70 0d 20 20 20 | 20 69 66 20 7b 24 69 6e | app. | if {$in|
|00000fe0| 5f 66 72 6f 6e 74 7d 20 | 7b 0d 20 20 20 20 09 69 |_front} |{. .i|
|00000ff0| 66 20 7b 5b 63 61 74 63 | 68 20 7b 6c 61 75 6e 63 |f {[catc|h {launc|
|00001000| 68 20 2d 66 20 5b 73 65 | 74 20 24 70 61 74 68 5d |h -f [se|t $path]|
|00001010| 7d 5d 7d 20 7b 0d 20 20 | 20 20 09 09 65 72 72 6f |}]} {. | ..erro|
|00001020| 72 20 22 50 72 6f 62 6c | 65 6d 20 77 69 74 68 20 |r "Probl|em with |
|00001030| 6c 61 75 6e 63 68 69 6e | 67 20 66 69 6c 65 20 28 |launchin|g file (|
|00001040| 6f 75 74 20 6f 66 20 6d | 65 6d 6f 72 79 3f 29 22 |out of m|emory?)"|
|00001050| 0d 20 20 20 20 09 7d 0d | 20 20 20 20 7d 20 65 6c |. .}.| } el|
|00001060| 73 65 20 7b 0d 20 20 20 | 20 09 69 66 20 7b 5b 63 |se {. | .if {[c|
|00001070| 61 74 63 68 20 7b 6c 61 | 75 6e 63 68 20 5b 73 65 |atch {la|unch [se|
|00001080| 74 20 24 70 61 74 68 5d | 7d 5d 7d 20 7b 0d 20 20 |t $path]|}]} {. |
|00001090| 20 20 09 09 65 72 72 6f | 72 20 22 50 72 6f 62 6c | ..erro|r "Probl|
|000010a0| 65 6d 20 77 69 74 68 20 | 6c 61 75 6e 63 68 69 6e |em with |launchin|
|000010b0| 67 20 66 69 6c 65 20 28 | 6f 75 74 20 6f 66 20 6d |g file (|out of m|
|000010c0| 65 6d 6f 72 79 3f 29 22 | 0d 20 20 20 20 09 7d 0d |emory?)"|. .}.|
|000010d0| 20 20 20 20 7d 20 20 20 | 20 09 0d 20 20 20 20 0d | } | .. .|
|000010e0| 20 20 20 20 23 20 52 65 | 74 75 72 6e 20 74 68 65 | # Re|turn the|
|000010f0| 20 6e 61 6d 65 20 6f 66 | 20 74 68 65 20 63 68 6f | name of| the cho|
|00001100| 73 65 6e 20 61 70 70 6c | 69 63 61 74 69 6f 6e 0d |sen appl|ication.|
|00001110| 20 20 20 20 72 65 74 75 | 72 6e 20 5b 66 69 6c 65 | retu|rn [file|
|00001120| 20 74 61 69 6c 20 5b 73 | 65 74 20 24 70 61 74 68 | tail [s|et $path|
|00001130| 5d 5d 0d 7d 0d 0d 0d 23 | 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 3d 3d |========|========|
|00001160| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001170| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001180| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 23 20 45 78 63 61 6c |========|.# Excal|
|00001190| 69 62 75 72 20 69 73 20 | 74 68 65 20 6f 6e 6c 79 |ibur is |the only|
|000011a0| 20 4d 61 63 20 73 70 65 | 6c 6c 2d 63 68 65 63 6b | Mac spe|ll-check|
|000011b0| 65 72 20 74 68 61 74 20 | 49 20 6b 6e 6f 77 20 6f |er that |I know o|
|000011c0| 66 20 77 68 69 63 68 20 | 77 69 6c 6c 20 68 61 6e |f which |will han|
|000011d0| 64 6c 65 20 4c 61 54 65 | 58 20 61 73 0d 23 20 77 |dle LaTe|X as.# w|
|000011e0| 65 6c 6c 20 61 73 20 6f | 72 64 69 6e 61 72 79 20 |ell as o|rdinary |
|000011f0| 74 65 78 74 2e 0d 0d 0d | 70 72 6f 63 20 73 70 65 |text....|proc spe|
|00001200| 6c 6c 63 68 65 63 6b 57 | 69 6e 64 6f 77 20 7b 7d |llcheckW|indow {}|
|00001210| 20 7b 0d 09 67 6c 6f 62 | 61 6c 20 65 78 63 61 6c | {..glob|al excal|
|00001220| 69 62 75 72 50 61 74 68 | 20 72 65 73 75 6d 65 52 |iburPath| resumeR|
|00001230| 65 76 65 72 74 0d 0d 09 | 63 61 74 63 68 20 7b 63 |evert...|catch {c|
|00001240| 68 65 63 6b 52 75 6e 6e | 69 6e 67 20 45 78 63 61 |heckRunn|ing Exca|
|00001250| 6c 69 62 75 72 20 58 43 | 4c 42 20 65 78 63 61 6c |libur XC|LB excal|
|00001260| 69 62 75 72 50 61 74 68 | 7d 20 6e 61 6d 65 0d 0d |iburPath|} name..|
|00001270| 09 69 66 20 7b 5b 77 69 | 6e 44 69 72 74 79 5d 7d |.if {[wi|nDirty]}|
|00001280| 20 7b 0d 09 09 69 66 20 | 7b 5b 61 73 6b 79 65 73 | {...if |{[askyes|
|00001290| 6e 6f 20 22 53 61 76 65 | 20 27 5b 6c 69 6e 64 65 |no "Save| '[linde|
|000012a0| 78 20 5b 77 69 6e 4e 61 | 6d 65 73 5d 20 30 5d 27 |x [winNa|mes] 0]'|
|000012b0| 3f 22 5d 20 3d 3d 20 22 | 79 65 73 22 7d 20 7b 0d |?"] == "|yes"} {.|
|000012c0| 09 09 09 73 61 76 65 0d | 09 09 7d 0d 09 7d 0d 09 |...save.|..}..}..|
|000012d0| 73 65 6e 64 4f 70 65 6e | 45 76 65 6e 74 20 6e 6f |sendOpen|Event no|
|000012e0| 52 65 70 6c 79 20 24 6e | 61 6d 65 20 5b 6c 69 6e |Reply $n|ame [lin|
|000012f0| 64 65 78 20 5b 77 69 6e | 4e 61 6d 65 73 20 2d 66 |dex [win|Names -f|
|00001300| 5d 20 30 5d 0d 09 73 77 | 69 74 63 68 54 6f 20 24 |] 0]..sw|itchTo $|
|00001310| 6e 61 6d 65 0d 09 73 65 | 74 20 72 65 73 75 6d 65 |name..se|t resume|
|00001320| 52 65 76 65 72 74 20 31 | 0d 7d 0d 0d 70 72 6f 63 |Revert 1|.}..proc|
|00001330| 20 73 70 65 6c 6c 63 68 | 65 63 6b 53 65 6c 65 63 | spellch|eckSelec|
|00001340| 74 69 6f 6e 20 7b 7d 20 | 7b 0d 09 67 6c 6f 62 61 |tion {} |{..globa|
|00001350| 6c 20 65 78 63 61 6c 69 | 62 75 72 50 61 74 68 20 |l excali|burPath |
|00001360| 0d 0d 09 63 61 74 63 68 | 20 7b 63 68 65 63 6b 52 |...catch| {checkR|
|00001370| 75 6e 6e 69 6e 67 20 45 | 78 63 61 6c 69 62 75 72 |unning E|xcalibur|
|00001380| 20 58 43 4c 42 20 65 78 | 63 61 6c 69 62 75 72 50 | XCLB ex|caliburP|
|00001390| 61 74 68 7d 20 6e 61 6d | 65 0d 0d 09 69 66 20 7b |ath} nam|e...if {|
|000013a0| 5b 67 65 74 50 6f 73 5d | 20 3d 3d 20 5b 73 65 6c |[getPos]| == [sel|
|000013b0| 45 6e 64 5d 7d 20 7b 0d | 09 09 62 65 65 70 0d 09 |End]} {.|..beep..|
|000013c0| 09 6d 65 73 73 61 67 65 | 20 22 4e 6f 20 73 65 6c |.message| "No sel|
|000013d0| 65 63 74 69 6f 6e 22 0d | 09 09 72 65 74 75 72 6e |ection".|..return|
|000013e0| 3b 0d 09 7d 0d 09 63 6f | 70 79 0d 09 73 77 69 74 |;..}..co|py..swit|
|000013f0| 63 68 54 6f 20 24 6e 61 | 6d 65 0d 7d 0d 0d 23 3d |chTo $na|me.}..#=|
|00001400| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001410| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001420| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001430| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001440| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00001450| 0d 0d 70 72 6f 63 20 61 | 6c 70 68 61 48 65 6c 70 |..proc a|lphaHelp|
|00001460| 20 7b 7d 20 7b 0d 09 67 | 6c 6f 62 61 6c 20 48 4f | {} {..g|lobal HO|
|00001470| 4d 45 0d 09 65 64 69 74 | 20 2d 72 20 22 24 48 4f |ME..edit| -r "$HO|
|00001480| 4d 45 3a 48 65 6c 70 3a | 4d 61 6e 75 61 6c 22 0d |ME:Help:|Manual".|
|00001490| 7d 0d 0d 0d 70 72 6f 63 | 20 74 63 6c 48 65 6c 70 |}...proc| tclHelp|
|000014a0| 20 7b 7d 20 7b 0d 09 67 | 6c 6f 62 61 6c 20 48 4f | {} {..g|lobal HO|
|000014b0| 4d 45 0d 09 65 64 69 74 | 20 2d 72 20 22 24 48 4f |ME..edit| -r "$HO|
|000014c0| 4d 45 3a 48 65 6c 70 3a | 54 63 6c 20 43 6f 6d 6d |ME:Help:|Tcl Comm|
|000014d0| 61 6e 64 73 22 0d 7d 0d | 0d 0d 70 72 6f 63 20 64 |ands".}.|..proc d|
|000014e0| 69 76 69 64 69 6e 67 4c | 69 6e 65 20 7b 7d 20 7b |ividingL|ine {} {|
|000014f0| 0d 09 69 6e 73 65 72 74 | 54 65 78 74 20 22 3d 3d |..insert|Text "==|
|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 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001530| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001540| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 5c 72 22 |========|=====\r"|
|00001550| 0d 7d 0d 62 69 6e 64 20 | 27 6c 27 20 3c 43 3e 20 |.}.bind |'l' <C> |
|00001560| 64 69 76 69 64 69 6e 67 | 4c 69 6e 65 0d 0d 70 72 |dividing|Line..pr|
|00001570| 6f 63 20 74 65 78 44 69 | 76 69 64 69 6e 67 4c 69 |oc texDi|vidingLi|
|00001580| 6e 65 20 7b 7d 20 7b 0d | 09 69 6e 73 65 72 74 54 |ne {} {.|.insertT|
|00001590| 65 78 74 20 22 25 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |ext "%==|========|
|000015a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000015b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000015c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000015d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000015e0| 3d 3d 3d 3d 3d 5c 72 22 | 0d 7d 0d 62 69 6e 64 20 |=====\r"|.}.bind |
|000015f0| 27 6c 27 20 3c 43 3e 20 | 74 65 78 44 69 76 69 64 |'l' <C> |texDivid|
|00001600| 69 6e 67 4c 69 6e 65 20 | 54 65 58 0d 0d 70 72 6f |ingLine |TeX..pro|
|00001610| 63 20 63 44 69 76 69 64 | 69 6e 67 4c 69 6e 65 20 |c cDivid|ingLine |
|00001620| 7b 7d 20 7b 0d 09 69 6e | 73 65 72 74 54 65 78 74 |{} {..in|sertText|
|00001630| 20 22 2f 2f 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d | "//====|========|
|00001640| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001650| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001660| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001670| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001680| 3d 3d 3d 5c 72 22 0d 7d | 0d 62 69 6e 64 20 27 6c |===\r".}|.bind 'l|
|00001690| 27 20 3c 43 3e 20 63 44 | 69 76 69 64 69 6e 67 4c |' <C> cD|ividingL|
|000016a0| 69 6e 65 20 43 0d 62 69 | 6e 64 20 27 6c 27 20 3c |ine C.bi|nd 'l' <|
|000016b0| 43 3e 20 63 44 69 76 69 | 64 69 6e 67 4c 69 6e 65 |C> cDivi|dingLine|
|000016c0| 20 43 2b 2b 0d 0d 70 72 | 6f 63 20 74 63 6c 44 69 | C++..pr|oc tclDi|
|000016d0| 76 69 64 69 6e 67 4c 69 | 6e 65 20 7b 7d 20 7b 0d |vidingLi|ne {} {.|
|000016e0| 09 69 6e 73 65 72 74 54 | 65 78 74 20 22 23 3d 3d |.insertT|ext "#==|
|000016f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001700| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001710| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001720| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001730| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 5c 72 22 |========|=====\r"|
|00001740| 0d 7d 0d 62 69 6e 64 20 | 27 6c 27 20 3c 43 3e 20 |.}.bind |'l' <C> |
|00001750| 74 63 6c 44 69 76 69 64 | 69 6e 67 4c 69 6e 65 20 |tclDivid|ingLine |
|00001760| 54 63 6c 0d 0d 0d 23 3d | 3d 3d 3d 3d 3d 3d 3d 3d |Tcl...#=|========|
|00001770| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001780| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001790| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000017a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000017b0| 3d 3d 3d 3d 3d 3d 3d 0d | 0d 69 66 20 7b 21 5b 73 |=======.|.if {![s|
|000017c0| 74 72 69 6e 67 20 6c 65 | 6e 67 74 68 20 5b 69 6e |tring le|ngth [in|
|000017d0| 66 6f 20 63 6f 6d 6d 61 | 6e 64 73 20 6f 6c 64 43 |fo comma|nds oldC|
|000017e0| 64 5d 5d 7d 20 7b 0d 09 | 72 65 6e 61 6d 65 20 63 |d]]} {..|rename c|
|000017f0| 64 20 6f 6c 64 43 64 0d | 7d 0d 0d 70 72 6f 63 20 |d oldCd.|}..proc |
|00001800| 63 64 20 61 72 67 73 20 | 7b 0d 09 67 6c 6f 62 61 |cd args |{..globa|
|00001810| 6c 20 48 4f 4d 45 0d 09 | 69 66 20 7b 5b 6c 6c 65 |l HOME..|if {[lle|
|00001820| 6e 67 74 68 20 24 61 72 | 67 73 5d 7d 20 7b 0d 09 |ngth $ar|gs]} {..|
|00001830| 09 6f 6c 64 43 64 20 5b | 73 74 72 69 6e 67 20 74 |.oldCd [|string t|
|00001840| 72 69 6d 20 5b 65 76 61 | 6c 20 6c 69 73 74 20 24 |rim [eva|l list $|
|00001850| 61 72 67 73 5d 20 22 09 | 09 5c 7b 5c 7d 22 5d 0d |args] ".|.\{\}"].|
|00001860| 09 7d 20 65 6c 73 65 20 | 7b 0d 09 09 6f 6c 64 43 |.} else |{...oldC|
|00001870| 64 20 24 48 4f 4d 45 0d | 09 7d 0d 7d 0d 0d 0d 0d |d $HOME.|.}.}....|
|00001880| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001890| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000018a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000018b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000018c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 0d 23 20 |########|#####.# |
|000018d0| 20 4c 69 73 74 20 74 68 | 65 20 6e 61 6d 65 20 61 | List th|e name a|
|000018e0| 6e 64 20 76 61 6c 75 65 | 20 6f 66 20 65 61 63 68 |nd value| of each|
|000018f0| 20 65 6c 65 6d 65 6e 74 | 20 6f 66 20 74 68 65 20 | element| of the |
|00001900| 61 72 72 61 79 20 24 61 | 72 72 4e 61 6d 65 2e 0d |array $a|rrName..|
|00001910| 23 20 20 28 43 6f 6e 76 | 65 6e 69 65 6e 74 20 74 |# (Conv|enient t|
|00001920| 6f 20 75 73 65 20 61 73 | 20 61 20 73 68 65 6c 6c |o use as| a shell|
|00001930| 20 63 6f 6d 6d 61 6e 64 | 2e 29 0d 23 0d 23 20 20 | command|.).#.# |
|00001940| 4e 6f 74 65 3a 20 69 74 | 27 73 20 73 6c 6f 77 65 |Note: it|'s slowe|
|00001950| 72 20 74 6f 20 69 6e 73 | 65 72 74 20 74 68 65 20 |r to ins|ert the |
|00001960| 6c 69 6e 65 73 20 6f 6e | 65 2d 62 79 2d 6f 6e 65 |lines on|e-by-one|
|00001970| 20 6c 69 6b 65 20 74 68 | 69 73 2c 20 62 75 74 20 | like th|is, but |
|00001980| 0d 23 20 20 61 73 73 65 | 6d 62 6c 69 6e 67 20 65 |.# asse|mbling e|
|00001990| 76 65 72 79 74 68 69 6e | 67 20 69 6e 20 24 6c 69 |verythin|g in $li|
|000019a0| 6e 65 73 20 62 65 66 6f | 72 65 20 69 6e 73 65 72 |nes befo|re inser|
|000019b0| 74 69 6e 67 20 63 61 6e | 20 73 65 72 69 6f 75 73 |ting can| serious|
|000019c0| 6c 79 20 63 72 61 73 68 | 20 41 6c 70 68 61 0d 23 |ly crash| Alpha.#|
|000019d0| 20 20 69 66 20 74 68 65 | 20 72 65 73 75 6c 74 20 | if the| result |
|000019e0| 69 73 20 74 6f 6f 20 62 | 69 67 2e 20 20 28 54 72 |is too b|ig. (Tr|
|000019f0| 79 69 6e 67 20 74 6f 20 | 6c 69 73 74 20 74 68 65 |ying to |list the|
|00001a00| 20 63 6f 6e 74 65 6e 74 | 73 20 6f 66 20 24 61 75 | content|s of $au|
|00001a10| 74 6f 5f 69 6e 64 65 78 | 28 29 0d 23 20 20 77 69 |to_index|().# wi|
|00001a20| 6c 6c 20 64 6f 20 69 74 | 2e 29 20 20 54 68 69 73 |ll do it|.) This|
|00001a30| 20 6d 65 74 68 6f 64 20 | 73 65 65 6d 73 20 74 6f | method |seems to|
|00001a40| 20 62 65 20 6d 6f 72 65 | 20 72 6f 62 75 73 74 2e | be more| robust.|
|00001a50| 0d 23 0d 70 72 6f 63 20 | 6c 69 73 74 41 72 72 61 |.#.proc |listArra|
|00001a60| 79 20 7b 61 72 72 4e 61 | 6d 65 7d 20 7b 0d 20 20 |y {arrNa|me} {. |
|00001a70| 20 20 67 6c 6f 62 61 6c | 20 24 61 72 72 4e 61 6d | global| $arrNam|
|00001a80| 65 0d 20 20 20 20 73 65 | 74 20 6c 69 6e 65 73 20 |e. se|t lines |
|00001a90| 7b 7d 0d 20 20 20 20 69 | 66 20 7b 21 5b 63 61 74 |{}. i|f {![cat|
|00001aa0| 63 68 20 7b 69 6e 66 6f | 20 76 61 72 73 20 24 61 |ch {info| vars $a|
|00001ab0| 72 72 4e 61 6d 65 7d 5d | 7d 20 7b 0d 20 20 20 20 |rrName}]|} {. |
|00001ac0| 20 20 20 20 66 6f 72 65 | 61 63 68 20 6e 6d 20 5b | fore|ach nm [|
|00001ad0| 61 72 72 61 79 20 6e 61 | 6d 65 73 20 24 61 72 72 |array na|mes $arr|
|00001ae0| 4e 61 6d 65 5d 20 7b 0d | 20 20 20 20 20 20 20 20 |Name] {.| |
|00001af0| 20 20 20 20 73 65 74 20 | 76 61 6c 20 5b 65 78 70 | set |val [exp|
|00001b00| 72 20 5c 24 24 61 72 72 | 4e 61 6d 65 5c 28 24 6e |r \$$arr|Name\($n|
|00001b10| 6d 5c 29 5d 0d 20 20 20 | 20 20 20 20 20 20 20 20 |m\)]. | |
|00001b20| 20 61 70 70 65 6e 64 20 | 6c 69 6e 65 73 20 22 5c | append |lines "\|
|00001b30| 72 5c 22 24 6e 6d 5c 22 | 5c 74 5c 7b 24 76 61 6c |r\"$nm\"|\t\{$val|
|00001b40| 5c 7d 22 0d 20 20 20 20 | 20 20 20 20 7d 0d 20 20 |\}". | }. |
|00001b50| 20 20 20 20 20 20 69 6e | 73 65 72 74 54 65 78 74 | in|sertText|
|00001b60| 20 24 6c 69 6e 65 73 0d | 20 20 20 20 7d 20 65 6c | $lines.| } el|
|00001b70| 73 65 20 7b 0d 20 20 20 | 20 20 20 20 20 61 6c 65 |se {. | ale|
|00001b80| 72 74 6e 6f 74 65 20 22 | 5c 22 24 61 72 72 4e 61 |rtnote "|\"$arrNa|
|00001b90| 6d 65 5c 22 20 64 6f 65 | 73 6e 27 74 20 65 78 69 |me\" doe|sn't exi|
|00001ba0| 73 74 20 69 6e 20 74 68 | 69 73 20 63 6f 6e 74 65 |st in th|is conte|
|00001bb0| 78 74 22 0d 20 20 20 20 | 7d 0d 7d 0d 0d 0d 0d 23 |xt". |}.}....#|
|00001bc0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001bd0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001be0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001bf0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001c00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001c10| 0d 09 0d 70 72 6f 63 20 | 73 65 6c 65 63 74 50 61 |...proc |selectPa|
|00001c20| 72 61 67 72 61 70 68 20 | 7b 7d 20 7b 0d 09 73 65 |ragraph |{} {..se|
|00001c30| 74 20 70 6f 73 20 5b 67 | 65 74 50 6f 73 5d 0d 09 |t pos [g|etPos]..|
|00001c40| 73 65 74 20 73 74 61 72 | 74 20 5b 70 61 72 61 53 |set star|t [paraS|
|00001c50| 74 61 72 74 20 24 70 6f | 73 5d 20 0d 09 73 65 74 |tart $po|s] ..set|
|00001c60| 20 66 69 6e 69 73 68 20 | 5b 70 61 72 61 46 69 6e | finish |[paraFin|
|00001c70| 69 73 68 20 24 70 6f 73 | 5d 0d 09 67 6f 74 6f 20 |ish $pos|]..goto |
|00001c80| 24 73 74 61 72 74 0d 09 | 73 65 6c 65 63 74 20 24 |$start..|select $|
|00001c90| 73 74 61 72 74 20 24 66 | 69 6e 69 73 68 0d 7d 0d |start $f|inish.}.|
|00001ca0| 0d 23 20 77 72 61 70 54 | 65 78 74 20 3d 3d 20 20 |.# wrapT|ext == |
|00001cb0| 67 65 74 54 65 78 74 20 | 3b 20 62 72 65 61 6b 49 |getText |; breakI|
|00001cc0| 6e 74 6f 4c 69 6e 65 73 | 20 3b 20 72 65 70 6c 61 |ntoLines| ; repla|
|00001cd0| 63 65 54 65 78 74 0d 23 | 20 52 65 6d 6f 76 65 20 |ceText.#| Remove |
|00001ce0| 74 65 78 74 20 66 72 6f | 6d 20 77 69 6e 64 6f 77 |text fro|m window|
|00001cf0| 2c 20 74 72 61 6e 73 66 | 6f 72 6d 20 28 6a 6f 69 |, transf|orm (joi|
|00001d00| 6e 2c 20 64 65 6c 2d 77 | 73 29 2c 20 69 6e 73 65 |n, del-w|s), inse|
|00001d10| 72 74 20 62 61 63 6b 20 | 69 6e 74 6f 20 77 69 6e |rt back |into win|
|00001d20| 64 6f 77 2e 0d 70 72 6f | 63 20 66 69 6c 6c 54 65 |dow..pro|c fillTe|
|00001d30| 78 74 42 79 50 61 72 20 | 7b 66 72 6f 6d 20 74 6f |xtByPar |{from to|
|00001d40| 7d 20 7b 0d 09 73 65 74 | 20 74 65 78 74 20 5b 67 |} {..set| text [g|
|00001d50| 65 74 54 65 78 74 20 24 | 66 72 6f 6d 20 24 74 6f |etText $|from $to|
|00001d60| 5d 0d 09 72 65 67 73 75 | 62 20 2d 61 6c 6c 20 22 |]..regsu|b -all "|
|00001d70| 5c 72 28 5c 5b 20 5c 74 | 5c 5d 2a 5c 72 29 2b 22 |\r(\[ \t|\]*\r)+"|
|00001d80| 20 24 74 65 78 74 20 22 | 5c 72 5c 72 5c 72 22 20 | $text "|\r\r\r" |
|00001d90| 74 65 78 74 0d 09 72 65 | 67 73 75 62 20 2d 61 6c |text..re|gsub -al|
|00001da0| 6c 20 22 28 5c 5b 5e 5c | 72 5c 5d 29 5c 72 22 20 |l "(\[^\|r\])\r" |
|00001db0| 24 74 65 78 74 20 22 5c | 5c 31 20 22 20 74 65 78 |$text "\|\1 " tex|
|00001dc0| 74 0d 09 72 65 67 73 75 | 62 20 2d 61 6c 6c 20 22 |t..regsu|b -all "|
|00001dd0| 5c 5b 20 5c 74 5c 5d 2b | 22 20 24 74 65 78 74 20 |\[ \t\]+|" $text |
|00001de0| 22 20 22 20 74 65 78 74 | 0d 09 72 65 74 75 72 6e |" " text|..return|
|00001df0| 20 5b 62 72 65 61 6b 49 | 6e 74 6f 4c 69 6e 65 73 | [breakI|ntoLines|
|00001e00| 20 24 74 65 78 74 5d 0d | 7d 0d 0d 70 72 6f 63 20 | $text].|}..proc |
|00001e10| 66 69 6c 6c 52 65 67 69 | 6f 6e 42 79 50 61 72 20 |fillRegi|onByPar |
|00001e20| 7b 7b 73 74 61 72 74 20 | 2d 31 7d 20 7b 66 69 6e |{{start |-1} {fin|
|00001e30| 69 73 68 20 2d 31 7d 7d | 20 7b 0d 23 09 23 20 69 |ish -1}}| {.#.# i|
|00001e40| 66 20 7b 5b 67 65 74 50 | 6f 73 5d 20 3d 3d 20 5b |f {[getP|os] == [|
|00001e50| 73 65 6c 45 6e 64 5d 7d | 20 7b 20 72 65 74 75 72 |selEnd]}| { retur|
|00001e60| 6e 7d 0d 09 69 66 20 7b | 28 24 73 74 61 72 74 20 |n}..if {|($start |
|00001e70| 3c 20 30 29 20 7c 7c 20 | 28 24 66 69 6e 69 73 68 |< 0) || |($finish|
|00001e80| 20 3c 20 30 29 7d 20 7b | 0d 09 09 73 65 74 20 73 | < 0)} {|...set s|
|00001e90| 74 61 72 74 20 5b 6c 69 | 6e 65 53 74 61 72 74 20 |tart [li|neStart |
|00001ea0| 5b 67 65 74 50 6f 73 5d | 5d 0d 09 09 73 65 74 20 |[getPos]|]...set |
|00001eb0| 66 69 6e 69 73 68 20 5b | 73 65 6c 45 6e 64 5d 20 |finish [|selEnd] |
|00001ec0| 7d 0d 09 69 66 20 7b 24 | 73 74 61 72 74 20 3e 3d |}..if {$|start >=|
|00001ed0| 20 24 66 69 6e 69 73 68 | 7d 20 72 65 74 75 72 6e | $finish|} return|
|00001ee0| 0d 09 67 6f 74 6f 20 24 | 73 74 61 72 74 0d 09 73 |..goto $|start..s|
|00001ef0| 65 74 20 74 65 78 74 20 | 5b 66 69 6c 6c 54 65 78 |et text |[fillTex|
|00001f00| 74 42 79 50 61 72 20 24 | 73 74 61 72 74 20 24 66 |tByPar $|start $f|
|00001f10| 69 6e 69 73 68 5d 0d 09 | 72 65 70 6c 61 63 65 54 |inish]..|replaceT|
|00001f20| 65 78 74 20 24 73 74 61 | 72 74 20 24 66 69 6e 69 |ext $sta|rt $fini|
|00001f30| 73 68 20 24 74 65 78 74 | 20 22 5c 72 22 0d 7d 0d |sh $text| "\r".}.|
|00001f40| 09 0d 23 0d 23 20 6a 6f | 69 6e 20 4c 69 6e 65 73 |..#.# jo|in Lines|
|00001f50| 20 69 6e 20 72 65 67 69 | 6f 6e 20 2d 2d 20 69 66 | in regi|on -- if|
|00001f60| 20 6e 6f 20 6f 70 74 69 | 6f 6e 61 6c 20 61 72 67 | no opti|onal arg|
|00001f70| 73 2c 20 75 73 65 20 73 | 65 6c 65 63 74 69 6f 6e |s, use s|election|
|00001f80| 0d 23 0d 70 72 6f 63 20 | 6a 6f 69 6e 52 65 67 69 |.#.proc |joinRegi|
|00001f90| 6f 6e 20 7b 7b 66 72 6f | 6d 20 2d 31 7d 20 7b 74 |on {{fro|m -1} {t|
|00001fa0| 6f 20 2d 31 7d 7d 20 7b | 0d 09 69 66 20 7b 28 24 |o -1}} {|..if {($|
|00001fb0| 66 72 6f 6d 20 3c 20 30 | 29 20 7c 7c 20 28 24 74 |from < 0|) || ($t|
|00001fc0| 6f 20 3c 20 30 29 7d 20 | 7b 09 73 65 74 20 66 72 |o < 0)} |{.set fr|
|00001fd0| 6f 6d 20 5b 67 65 74 50 | 6f 73 5d 20 3b 20 73 65 |om [getP|os] ; se|
|00001fe0| 74 20 74 6f 20 5b 73 65 | 6c 45 6e 64 5d 20 7d 0d |t to [se|lEnd] }.|
|00001ff0| 09 69 66 20 7b 24 66 72 | 6f 6d 20 3e 3d 20 24 74 |.if {$fr|om >= $t|
|00002000| 6f 7d 20 72 65 74 75 72 | 6e 0d 09 73 65 74 20 74 |o} retur|n..set t|
|00002010| 65 78 74 20 5b 67 65 74 | 54 65 78 74 20 24 66 72 |ext [get|Text $fr|
|00002020| 6f 6d 20 24 74 6f 5d 0d | 09 72 65 67 73 75 62 20 |om $to].|.regsub |
|00002030| 2d 61 6c 6c 20 22 5c 72 | 28 5c 5b 20 5c 74 5c 5d |-all "\r|(\[ \t\]|
|00002040| 2a 5c 72 29 2b 22 20 24 | 74 65 78 74 20 22 5c 72 |*\r)+" $|text "\r|
|00002050| 5c 72 5c 72 22 20 74 65 | 78 74 0d 09 72 65 67 73 |\r\r" te|xt..regs|
|00002060| 75 62 20 2d 61 6c 6c 20 | 22 28 5c 5b 5e 5c 72 5c |ub -all |"(\[^\r\|
|00002070| 5d 29 5c 72 22 20 24 74 | 65 78 74 20 22 5c 5c 31 |])\r" $t|ext "\\1|
|00002080| 20 22 20 74 65 78 74 0d | 09 72 65 70 6c 61 63 65 | " text.|.replace|
|00002090| 54 65 78 74 20 24 66 72 | 6f 6d 20 24 74 6f 20 24 |Text $fr|om $to $|
|000020a0| 74 65 78 74 20 22 5c 72 | 22 0d 7d 0d 23 20 57 41 |text "\r|".}.# WA|
|000020b0| 52 4e 49 4e 47 3a 09 72 | 65 67 73 75 62 20 5e 24 |RNING:.r|egsub ^$|
|000020c0| 20 72 65 66 65 72 73 20 | 74 6f 20 73 74 72 69 6e | refers |to strin|
|000020d0| 67 20 65 6e 64 70 74 73 | 20 28 6e 6f 74 20 6c 69 |g endpts| (not li|
|000020e0| 6e 65 73 29 0d 23 20 46 | 55 54 55 52 45 3a 09 66 |nes).# F|UTURE:.f|
|000020f0| 69 6c 74 65 72 4c 69 6e | 65 73 20 6c 69 6b 65 20 |ilterLin|es like |
|00002100| 70 65 72 6c 3a 0d 23 09 | 72 65 70 6c 61 63 65 54 |perl:.#.|replaceT|
|00002110| 65 78 74 5b 61 70 70 6c | 79 5f 74 6f 5f 61 6c 6c |ext[appl|y_to_all|
|00002120| 28 63 6d 64 2c 73 70 6c | 69 74 20 5b 67 65 74 54 |(cmd,spl|it [getT|
|00002130| 65 78 74 20 5b 67 65 74 | 50 6f 73 5d 20 5b 73 65 |ext [get|Pos] [se|
|00002140| 6c 45 6e 64 5d 5d 20 22 | 5c 72 22 29 5d 0d 23 20 |lEnd]] "|\r")].# |
|00002150| 4f 52 3a 09 72 65 70 6c | 61 63 65 49 6e 52 65 67 |OR:.repl|aceInReg|
|00002160| 69 6f 6e 3a 20 64 75 70 | 5f 5c 72 2c 20 24 3d 3e |ion: dup|_\r, $=>|
|00002170| 5c 72 20 3f 3f 0d 23 0d | 0d 0d 23 0d 23 20 52 65 |\r ??.#.|..#.# Re|
|00002180| 6d 6f 76 65 20 74 65 78 | 74 20 66 72 6f 6d 20 77 |move tex|t from w|
|00002190| 69 6e 64 6f 77 2c 20 74 | 72 61 6e 73 66 6f 72 6d |indow, t|ransform|
|000021a0| 20 28 64 65 6c 65 74 65 | 20 64 75 70 20 77 73 29 | (delete| dup ws)|
|000021b0| 2c 20 69 6e 73 65 72 74 | 20 62 61 63 6b 20 69 6e |, insert| back in|
|000021c0| 74 6f 20 77 69 6e 64 6f | 77 2e 0d 23 0d 23 20 69 |to windo|w..#.# i|
|000021d0| 6e 70 75 74 73 3a 20 6d | 65 73 73 61 67 65 2c 20 |nputs: m|essage, |
|000021e0| 61 6c 65 72 74 6e 6f 74 | 65 2c 20 61 73 6b 79 65 |alertnot|e, askye|
|000021f0| 73 6e 6f 2c 20 6c 69 73 | 74 70 69 63 6b 2c 20 70 |sno, lis|tpick, p|
|00002200| 72 6f 6d 70 74 20 4b 49 | 4c 4c 53 20 53 45 4c 45 |rompt KI|LLS SELE|
|00002210| 43 54 49 4f 4e 2e 0d 23 | 20 73 65 61 72 63 68 3a |CTION..#| search:|
|00002220| 20 62 6e 64 73 20 3d 20 | 73 65 61 72 63 68 20 2d | bnds = |search -|
|00002230| 66 6f 72 77 61 72 64 20 | 2d 72 65 67 45 78 70 72 |forward |-regExpr|
|00002240| 20 2d 69 67 6e 6f 72 65 | 43 61 73 65 20 2d 6d 61 | -ignore|Case -ma|
|00002250| 74 63 68 57 6f 72 64 73 | 20 2d 6e 6f 61 62 6f 72 |tchWords| -noabor|
|00002260| 74 20 0d 23 09 09 2d 6c | 20 6c 69 6d 69 74 20 70 |t .#..-l| limit p|
|00002270| 61 74 20 70 6f 73 0d 23 | 20 0d 70 72 6f 63 20 72 |at pos.#| .proc r|
|00002280| 65 67 73 75 62 49 6e 52 | 65 67 69 6f 6e 20 7b 66 |egsubInR|egion {f|
|00002290| 72 6f 6d 20 74 6f 20 73 | 72 63 68 20 72 65 70 6c |rom to s|rch repl|
|000022a0| 7d 20 7b 0d 09 69 66 20 | 7b 21 5b 73 74 72 69 6e |} {..if |{![strin|
|000022b0| 67 20 6c 65 6e 67 74 68 | 20 24 73 72 63 68 5d 7d |g length| $srch]}|
|000022c0| 20 72 65 74 75 72 6e 0d | 09 69 66 20 7b 24 66 72 | return.|.if {$fr|
|000022d0| 6f 6d 20 3e 3d 20 24 74 | 6f 7d 20 72 65 74 75 72 |om >= $t|o} retur|
|000022e0| 6e 0d 09 73 65 74 20 74 | 65 78 74 20 5b 67 65 74 |n..set t|ext [get|
|000022f0| 54 65 78 74 20 24 66 72 | 6f 6d 20 24 74 6f 5d 0d |Text $fr|om $to].|
|00002300| 09 72 65 67 73 75 62 20 | 2d 61 6c 6c 20 22 24 73 |.regsub |-all "$s|
|00002310| 72 63 68 22 20 24 74 65 | 78 74 20 22 24 72 65 70 |rch" $te|xt "$rep|
|00002320| 6c 22 20 74 65 78 74 0d | 09 72 65 70 6c 61 63 65 |l" text.|.replace|
|00002330| 54 65 78 74 20 24 66 72 | 6f 6d 20 24 74 6f 20 24 |Text $fr|om $to $|
|00002340| 74 65 78 74 0d 7d 0d 23 | 09 77 68 69 6c 65 20 7b |text.}.#|.while {|
|00002350| 28 24 70 6f 73 20 3c 20 | 24 74 6f 29 20 26 26 0d |($pos < |$to) &&.|
|00002360| 23 09 09 20 20 21 5b 63 | 61 74 63 68 20 7b 73 65 |#.. ![c|atch {se|
|00002370| 61 72 63 68 20 2d 73 20 | 2d 66 20 31 20 2d 72 20 |arch -s |-f 1 -r |
|00002380| 31 20 2d 69 20 31 20 2d | 6d 20 30 20 22 24 73 72 |1 -i 1 -|m 0 "$sr|
|00002390| 63 68 22 20 24 70 6f 73 | 7d 20 6d 74 63 68 5d 7d |ch" $pos|} mtch]}|
|000023a0| 20 7b 0d 23 09 09 73 65 | 74 20 6d 62 65 67 20 5b | {.#..se|t mbeg [|
|000023b0| 6c 69 6e 64 65 78 20 24 | 6d 74 63 68 20 30 5d 0d |lindex $|mtch 0].|
|000023c0| 23 09 09 73 65 74 20 70 | 6f 73 20 5b 6c 69 6e 64 |#..set p|os [lind|
|000023d0| 65 78 20 24 6d 74 63 68 | 20 31 5d 0d 23 09 09 72 |ex $mtch| 1].#..r|
|000023e0| 65 70 6c 61 63 65 54 65 | 78 74 20 24 6d 62 65 67 |eplaceTe|xt $mbeg|
|000023f0| 20 24 70 6f 73 20 24 72 | 65 70 6c 20 7d 0d 0d 23 | $pos $r|epl }..#|
|00002400| 70 72 6f 63 20 62 61 63 | 6b 53 6c 61 73 68 53 75 |proc bac|kSlashSu|
|00002410| 62 20 7b 61 72 67 7d 20 | 7b 20 65 76 61 6c 20 5b |b {arg} |{ eval [|
|00002420| 63 6f 6e 63 61 74 20 72 | 65 74 75 72 6e 20 22 5c |concat r|eturn "\|
|00002430| 22 24 61 72 67 5c 22 22 | 5d 20 7d 0d 0d 70 72 6f |"$arg\""|] }..pro|
|00002440| 63 20 62 61 63 6b 53 6c | 61 73 68 53 75 62 20 7b |c backSl|ashSub {|
|00002450| 61 72 67 7d 20 7b 0d 09 | 72 65 67 73 75 62 20 2d |arg} {..|regsub -|
|00002460| 61 6c 6c 20 7b 5c 5c 7d | 20 24 61 72 67 20 7b 5c |all {\\}| $arg {\|
|00002470| 5c 5c 5c 7d 20 61 72 67 | 0d 09 72 65 67 73 75 62 |\\\} arg|..regsub|
|00002480| 20 2d 61 6c 6c 20 7b 5c | 5b 7d 20 24 61 72 67 20 | -all {\|[} $arg |
|00002490| 7b 5c 5c 5b 7d 20 61 72 | 67 0d 09 72 65 67 73 75 |{\\[} ar|g..regsu|
|000024a0| 62 20 2d 61 6c 6c 20 7b | 5c 5d 7d 20 24 61 72 67 |b -all {|\]} $arg|
|000024b0| 20 7b 5c 5c 5d 7d 20 61 | 72 67 0d 09 65 76 61 6c | {\\]} a|rg..eval|
|000024c0| 20 5b 63 6f 6e 63 61 74 | 20 72 65 74 75 72 6e 20 | [concat| return |
|000024d0| 22 5c 22 24 61 72 67 5c | 22 22 5d 0d 7d 0d 0d 70 |"\"$arg\|""].}..p|
|000024e0| 72 6f 63 20 72 65 70 6c | 61 63 65 49 6e 52 65 67 |roc repl|aceInReg|
|000024f0| 69 6f 6e 20 7b 7d 20 7b | 0d 09 69 66 20 5b 63 61 |ion {} {|..if [ca|
|00002500| 74 63 68 20 7b 70 72 6f | 6d 70 74 20 22 53 65 61 |tch {pro|mpt "Sea|
|00002510| 72 63 68 20 52 65 67 45 | 78 70 72 3a 22 20 22 22 |rch RegE|xpr:" ""|
|00002520| 7d 20 73 72 63 68 5d 20 | 72 65 74 75 72 6e 0d 09 |} srch] |return..|
|00002530| 69 66 20 5b 63 61 74 63 | 68 20 7b 70 72 6f 6d 70 |if [catc|h {promp|
|00002540| 74 20 22 52 65 70 6c 61 | 63 65 20 53 74 72 69 6e |t "Repla|ce Strin|
|00002550| 67 3a 22 20 22 22 7d 20 | 72 65 70 6c 5d 20 72 65 |g:" ""} |repl] re|
|00002560| 74 75 72 6e 0d 09 69 66 | 20 7b 21 5b 73 74 72 69 |turn..if| {![stri|
|00002570| 6e 67 20 6c 65 6e 67 74 | 68 20 24 73 72 63 68 5d |ng lengt|h $srch]|
|00002580| 7d 20 72 65 74 75 72 6e | 0d 09 72 65 67 73 75 62 |} return|..regsub|
|00002590| 49 6e 52 65 67 69 6f 6e | 20 5b 67 65 74 50 6f 73 |InRegion| [getPos|
|000025a0| 5d 20 5b 73 65 6c 45 6e | 64 5d 20 5c 0d 09 09 5b |] [selEn|d] \...[|
|000025b0| 62 61 63 6b 53 6c 61 73 | 68 53 75 62 20 22 24 73 |backSlas|hSub "$s|
|000025c0| 72 63 68 22 5d 20 5b 62 | 61 63 6b 53 6c 61 73 68 |rch"] [b|ackSlash|
|000025d0| 53 75 62 20 22 24 72 65 | 70 6c 22 5d 0d 7d 0d 0d |Sub "$re|pl"].}..|
|000025e0| 23 0d 23 20 41 70 70 6c | 79 20 63 6f 6d 6d 61 6e |#.# Appl|y comman|
|000025f0| 64 20 74 6f 20 65 61 63 | 68 20 6c 69 6e 65 20 28 |d to eac|h line (|
|00002600| 6f 72 20 70 61 72 61 67 | 72 61 70 68 29 20 69 6e |or parag|raph) in|
|00002610| 20 73 65 6c 65 63 74 69 | 6f 6e 20 3b 0d 23 09 69 | selecti|on ;.#.i|
|00002620| 66 20 6e 6f 20 63 6d 64 | 20 61 72 67 20 74 68 65 |f no cmd| arg the|
|00002630| 6e 20 70 72 6f 6d 70 74 | 73 20 66 6f 72 20 69 74 |n prompt|s for it|
|00002640| 0d 23 0d 70 72 6f 63 20 | 66 69 6c 74 65 72 4c 69 |.#.proc |filterLi|
|00002650| 6e 65 73 20 7b 7b 63 6d | 64 20 30 7d 20 7b 70 61 |nes {{cm|d 0} {pa|
|00002660| 72 75 6e 69 74 20 30 7d | 7d 20 7b 0d 09 69 66 20 |runit 0}|} {..if |
|00002670| 7b 24 63 6d 64 20 3d 3d | 20 30 7d 20 7b 0d 09 20 |{$cmd ==| 0} {.. |
|00002680| 20 69 66 20 7b 5b 63 61 | 74 63 68 20 7b 20 70 72 | if {[ca|tch { pr|
|00002690| 6f 6d 70 74 20 22 4c 69 | 6e 65 2d 66 69 6c 74 65 |ompt "Li|ne-filte|
|000026a0| 72 20 63 6f 6d 6d 61 6e | 64 3a 20 22 20 22 22 20 |r comman|d: " "" |
|000026b0| 7d 20 63 6d 64 5d 7d 20 | 7b 20 72 65 74 75 72 6e |} cmd]} |{ return|
|000026c0| 20 7d 20 7d 0d 09 69 66 | 20 7b 21 5b 73 74 72 69 | } }..if| {![stri|
|000026d0| 6e 67 20 6c 65 6e 67 74 | 68 20 24 63 6d 64 5d 7d |ng lengt|h $cmd]}|
|000026e0| 20 72 65 74 75 72 6e 0d | 09 73 65 74 20 75 6e 69 | return.|.set uni|
|000026f0| 74 53 74 61 72 74 20 6c | 69 6e 65 53 74 61 72 74 |tStart l|ineStart|
|00002700| 0d 09 73 65 74 20 75 6e | 69 74 45 6e 64 20 6e 65 |..set un|itEnd ne|
|00002710| 78 74 4c 69 6e 65 53 74 | 61 72 74 0d 09 69 66 20 |xtLineSt|art..if |
|00002720| 7b 24 70 61 72 75 6e 69 | 74 7d 20 7b 0d 09 09 73 |{$paruni|t} {...s|
|00002730| 65 74 20 75 6e 69 74 53 | 74 61 72 74 20 70 61 72 |et unitS|tart par|
|00002740| 61 53 74 61 72 74 0d 09 | 09 73 65 74 20 75 6e 69 |aStart..|.set uni|
|00002750| 74 45 6e 64 20 70 61 72 | 61 46 69 6e 69 73 68 20 |tEnd par|aFinish |
|00002760| 7d 0d 09 73 65 74 20 70 | 6f 73 20 5b 24 75 6e 69 |}..set p|os [$uni|
|00002770| 74 53 74 61 72 74 20 5b | 67 65 74 50 6f 73 5d 5d |tStart [|getPos]]|
|00002780| 0d 09 73 65 74 20 66 69 | 6e 69 73 68 20 5b 73 65 |..set fi|nish [se|
|00002790| 6c 45 6e 64 5d 0d 09 69 | 66 20 7b 24 70 6f 73 20 |lEnd]..i|f {$pos |
|000027a0| 3e 3d 20 24 66 69 6e 69 | 73 68 7d 20 72 65 74 75 |>= $fini|sh} retu|
|000027b0| 72 6e 0d 09 67 6f 74 6f | 20 24 70 6f 73 0d 09 63 |rn..goto| $pos..c|
|000027c0| 72 65 61 74 65 54 4d 61 | 72 6b 20 22 66 69 6c 74 |reateTMa|rk "filt|
|000027d0| 65 72 4c 65 6e 64 22 20 | 24 66 69 6e 69 73 68 0d |erLend" |$finish.|
|000027e0| 09 73 65 74 20 6e 65 78 | 74 20 5b 24 75 6e 69 74 |.set nex|t [$unit|
|000027f0| 45 6e 64 20 24 70 6f 73 | 5d 0d 09 77 68 69 6c 65 |End $pos|]..while|
|00002800| 20 7b 28 28 24 6e 65 78 | 74 20 3e 20 24 70 6f 73 | {(($nex|t > $pos|
|00002810| 29 20 26 26 20 28 24 70 | 6f 73 20 3c 20 24 66 69 |) && ($p|os < $fi|
|00002820| 6e 69 73 68 29 29 7d 20 | 7b 0d 09 09 67 6f 74 6f |nish))} |{...goto|
|00002830| 20 5b 65 78 70 72 20 24 | 6e 65 78 74 2d 31 5d 0d | [expr $|next-1].|
|00002840| 09 09 63 72 65 61 74 65 | 54 4d 61 72 6b 20 22 66 |..create|TMark "f|
|00002850| 69 6c 74 65 72 4c 6e 65 | 78 74 22 20 24 6e 65 78 |ilterLne|xt" $nex|
|00002860| 74 0d 09 09 73 65 74 4d | 61 72 6b 0d 09 09 67 6f |t...setM|ark...go|
|00002870| 74 6f 20 24 70 6f 73 0d | 09 09 6d 61 72 6b 48 69 |to $pos.|..markHi|
|00002880| 6c 69 74 65 0d 09 09 69 | 66 20 7b 5b 63 61 74 63 |lite...i|f {[catc|
|00002890| 68 20 5b 6c 69 73 74 20 | 75 70 6c 65 76 65 6c 20 |h [list |uplevel |
|000028a0| 23 30 20 22 24 63 6d 64 | 22 5d 20 72 65 74 76 61 |#0 "$cmd|"] retva|
|000028b0| 6c 5d 7d 20 7b 0d 09 09 | 09 73 65 6c 65 63 74 20 |l]} {...|.select |
|000028c0| 24 70 6f 73 20 24 66 69 | 6e 69 73 68 0d 09 09 09 |$pos $fi|nish....|
|000028d0| 61 6c 65 72 74 6e 6f 74 | 65 20 24 72 65 74 76 61 |alertnot|e $retva|
|000028e0| 6c 0d 09 09 09 72 65 74 | 75 72 6e 0d 09 09 7d 0d |l....ret|urn...}.|
|000028f0| 09 09 69 66 20 7b 24 6e | 65 78 74 3d 3d 24 66 69 |..if {$n|ext==$fi|
|00002900| 6e 69 73 68 7d 20 62 72 | 65 61 6b 0d 09 09 73 65 |nish} br|eak...se|
|00002910| 74 20 69 6e 64 20 5b 6c | 73 65 61 72 63 68 20 2d |t ind [l|search -|
|00002920| 72 65 67 65 78 70 20 5b | 6c 69 6e 64 65 78 20 5b |regexp [|lindex [|
|00002930| 67 65 74 54 4d 61 72 6b | 73 5d 20 30 5d 20 22 66 |getTMark|s] 0] "f|
|00002940| 69 6c 74 65 72 4c 65 6e | 64 2e 2a 22 5d 0d 09 09 |ilterLen|d.*"]...|
|00002950| 73 65 74 20 66 69 6e 69 | 73 68 20 5b 6c 69 6e 64 |set fini|sh [lind|
|00002960| 65 78 20 5b 6c 69 6e 64 | 65 78 20 5b 6c 69 6e 64 |ex [lind|ex [lind|
|00002970| 65 78 20 5b 67 65 74 54 | 4d 61 72 6b 73 5d 20 30 |ex [getT|Marks] 0|
|00002980| 5d 20 24 69 6e 64 5d 20 | 32 5d 0d 09 09 67 6f 74 |] $ind] |2]...got|
|00002990| 6f 54 4d 61 72 6b 20 22 | 66 69 6c 74 65 72 4c 6e |oTMark "|filterLn|
|000029a0| 65 78 74 22 0d 09 09 73 | 65 74 20 70 6f 73 20 5b |ext"...s|et pos [|
|000029b0| 24 75 6e 69 74 53 74 61 | 72 74 20 5b 67 65 74 50 |$unitSta|rt [getP|
|000029c0| 6f 73 5d 5d 0d 09 09 73 | 65 74 20 6e 65 78 74 20 |os]]...s|et next |
|000029d0| 5b 24 75 6e 69 74 45 6e | 64 20 24 70 6f 73 5d 0d |[$unitEn|d $pos].|
|000029e0| 09 7d 0d 09 72 65 6d 6f | 76 65 54 4d 61 72 6b 20 |.}..remo|veTMark |
|000029f0| 22 66 69 6c 74 65 72 4c | 65 6e 64 22 0d 09 72 65 |"filterL|end"..re|
|00002a00| 6d 6f 76 65 54 4d 61 72 | 6b 20 22 66 69 6c 74 65 |moveTMar|k "filte|
|00002a10| 72 4c 6e 65 78 74 22 0d | 7d 0d 0d 0d 70 72 6f 63 |rLnext".|}...proc|
|00002a20| 20 66 69 6c 74 65 72 50 | 61 72 61 67 72 61 70 68 | filterP|aragraph|
|00002a30| 73 20 7b 7b 63 6d 64 20 | 30 7d 7d 20 7b 20 66 69 |s {{cmd |0}} { fi|
|00002a40| 6c 74 65 72 4c 69 6e 65 | 73 20 24 63 6d 64 20 31 |lterLine|s $cmd 1|
|00002a50| 20 7d 0d 0d 23 20 57 41 | 52 4e 49 4e 47 3a 20 64 | }..# WA|RNING: d|
|00002a60| 65 73 65 6c 65 63 74 69 | 6e 67 20 73 65 74 73 20 |eselecti|ng sets |
|00002a70| 74 68 65 20 6d 61 72 6b | 20 74 6f 20 73 65 6c 45 |the mark| to selE|
|00002a80| 6e 64 0d 70 72 6f 63 20 | 73 6f 72 74 50 61 72 61 |nd.proc |sortPara|
|00002a90| 67 72 61 70 68 73 20 7b | 7b 66 72 6f 6d 20 2d 31 |graphs {|{from -1|
|00002aa0| 7d 20 7b 74 6f 20 2d 31 | 7d 7d 20 7b 0d 09 69 66 |} {to -1|}} {..if|
|00002ab0| 20 7b 28 24 66 72 6f 6d | 20 3c 20 30 29 20 7c 7c | {($from| < 0) |||
|00002ac0| 20 28 24 74 6f 20 3c 20 | 30 29 7d 20 7b 09 73 65 | ($to < |0)} {.se|
|00002ad0| 74 20 66 72 6f 6d 20 5b | 67 65 74 50 6f 73 5d 20 |t from [|getPos] |
|00002ae0| 3b 20 73 65 74 20 74 6f | 20 5b 73 65 6c 45 6e 64 |; set to| [selEnd|
|00002af0| 5d 20 7d 0d 09 69 66 20 | 7b 24 66 72 6f 6d 20 3e |] }..if |{$from >|
|00002b00| 3d 20 24 74 6f 7d 20 72 | 65 74 75 72 6e 0d 09 6a |= $to} r|eturn..j|
|00002b10| 6f 69 6e 52 65 67 69 6f | 6e 20 7b 24 66 72 6f 6d |oinRegio|n {$from|
|00002b20| 20 24 74 6f 7d 0d 09 73 | 65 6c 65 63 74 20 5b 67 | $to}..s|elect [g|
|00002b30| 65 74 50 6f 73 5d 20 5b | 6e 65 78 74 4c 69 6e 65 |etPos] [|nextLine|
|00002b40| 53 74 61 72 74 20 5b 67 | 65 74 4d 61 72 6b 5d 5d |Start [g|etMark]]|
|00002b50| 0d 09 73 6f 72 74 4c 69 | 6e 65 73 0d 09 73 65 6c |..sortLi|nes..sel|
|00002b60| 65 63 74 20 5b 67 65 74 | 50 6f 73 5d 20 5b 67 65 |ect [get|Pos] [ge|
|00002b70| 74 50 6f 73 5d 0d 09 72 | 65 67 73 75 62 49 6e 52 |tPos]..r|egsubInR|
|00002b80| 65 67 69 6f 6e 20 5b 67 | 65 74 50 6f 73 5d 20 5b |egion [g|etPos] [|
|00002b90| 67 65 74 4d 61 72 6b 5d | 20 22 5c 72 22 20 22 5c |getMark]| "\r" "\|
|00002ba0| 72 5c 72 22 20 0d 09 77 | 72 61 70 52 65 67 69 6f |r\r" ..w|rapRegio|
|00002bb0| 6e 0d 7d 0d 0d 23 0d 23 | 20 53 61 6d 70 6c 65 0d |n.}..#.#| Sample.|
|00002bc0| 23 0d 70 72 6f 63 20 66 | 69 6c 74 65 72 52 65 67 |#.proc f|ilterReg|
|00002bd0| 69 6f 6e 20 7b 7b 66 72 | 6f 6d 20 2d 31 7d 20 7b |ion {{fr|om -1} {|
|00002be0| 74 6f 20 2d 31 7d 20 7b | 63 6d 64 20 30 7d 20 7b |to -1} {|cmd 0} {|
|00002bf0| 6e 65 77 77 69 6e 20 30 | 7d 7d 20 7b 0d 09 69 66 |newwin 0|}} {..if|
|00002c00| 20 7b 24 63 6d 64 20 3d | 3d 20 30 7d 20 7b 0d 09 | {$cmd =|= 0} {..|
|00002c10| 20 20 69 66 20 7b 5b 63 | 61 74 63 68 20 7b 20 70 | if {[c|atch { p|
|00002c20| 72 6f 6d 70 74 20 22 45 | 76 61 6c 20 63 6f 6d 6d |rompt "E|val comm|
|00002c30| 61 6e 64 3a 20 22 20 22 | 22 20 7d 20 63 6d 64 5d |and: " "|" } cmd]|
|00002c40| 7d 20 7b 20 72 65 74 75 | 72 6e 20 7d 0d 09 7d 0d |} { retu|rn }..}.|
|00002c50| 09 69 66 20 7b 21 5b 73 | 74 72 69 6e 67 20 6c 65 |.if {![s|tring le|
|00002c60| 6e 67 74 68 20 24 63 6d | 64 5d 7d 20 72 65 74 75 |ngth $cm|d]} retu|
|00002c70| 72 6e 0d 09 69 66 20 7b | 28 24 66 72 6f 6d 20 3c |rn..if {|($from <|
|00002c80| 20 30 29 20 7c 7c 20 28 | 24 74 6f 20 3c 20 30 29 | 0) || (|$to < 0)|
|00002c90| 7d 20 7b 09 73 65 74 20 | 66 72 6f 6d 20 5b 67 65 |} {.set |from [ge|
|00002ca0| 74 50 6f 73 5d 20 3b 20 | 73 65 74 20 74 6f 20 5b |tPos] ; |set to [|
|00002cb0| 73 65 6c 45 6e 64 5d 20 | 7d 0d 09 69 66 20 7b 24 |selEnd] |}..if {$|
|00002cc0| 66 72 6f 6d 20 3e 3d 20 | 24 74 6f 7d 20 72 65 74 |from >= |$to} ret|
|00002cd0| 75 72 6e 0d 09 73 65 74 | 20 70 6f 73 20 5b 67 65 |urn..set| pos [ge|
|00002ce0| 74 50 6f 73 5d 0d 09 73 | 65 74 20 74 65 78 74 20 |tPos]..s|et text |
|00002cf0| 5b 67 65 74 54 65 78 74 | 20 24 66 72 6f 6d 20 24 |[getText| $from $|
|00002d00| 74 6f 5d 0d 09 73 65 74 | 20 74 65 78 74 20 5b 24 |to]..set| text [$|
|00002d10| 63 6d 64 20 24 74 65 78 | 74 5d 0d 09 72 65 70 6c |cmd $tex|t]..repl|
|00002d20| 61 63 65 54 65 78 74 20 | 24 66 72 6f 6d 20 24 74 |aceText |$from $t|
|00002d30| 6f 20 24 74 65 78 74 20 | 22 5c 72 22 0d 09 67 6f |o $text |"\r"..go|
|00002d40| 74 6f 20 24 70 6f 73 0d | 7d 0d 0d 0d 23 0d 73 65 |to $pos.|}...#.se|
|00002d50| 74 20 6c 61 73 74 45 76 | 61 6c 65 64 20 22 22 0d |t lastEv|aled "".|
|00002d60| 70 72 6f 63 20 65 76 61 | 6c 75 61 74 65 20 7b 7d |proc eva|luate {}|
|00002d70| 20 7b 0d 09 67 6c 6f 62 | 61 6c 20 6c 61 73 74 45 | {..glob|al lastE|
|00002d80| 76 61 6c 65 64 0d 09 69 | 66 20 7b 5b 73 74 72 69 |valed..i|f {[stri|
|00002d90| 6e 67 20 6c 65 6e 67 74 | 68 20 24 6c 61 73 74 45 |ng lengt|h $lastE|
|00002da0| 76 61 6c 65 64 5d 7d 20 | 7b 0d 09 09 73 65 74 20 |valed]} |{...set |
|00002db0| 70 20 22 4d 2d 78 20 28 | 24 6c 61 73 74 45 76 61 |p "M-x (|$lastEva|
|00002dc0| 6c 65 64 29 3a 20 22 0d | 09 7d 20 65 6c 73 65 20 |led): ".|.} else |
|00002dd0| 7b 0d 09 09 73 65 74 20 | 70 20 22 4d 2d 78 3a 20 |{...set |p "M-x: |
|00002de0| 22 0d 09 7d 0d 09 69 66 | 20 7b 5b 63 61 74 63 68 |"..}..if| {[catch|
|00002df0| 20 7b 73 74 61 74 75 73 | 50 72 6f 6d 70 74 20 24 | {status|Prompt $|
|00002e00| 70 7d 20 74 65 78 74 5d | 7d 20 7b 72 65 74 75 72 |p} text]|} {retur|
|00002e10| 6e 7d 0d 09 69 66 20 7b | 21 5b 73 74 72 69 6e 67 |n}..if {|![string|
|00002e20| 20 6c 65 6e 67 74 68 20 | 24 74 65 78 74 5d 7d 20 | length |$text]} |
|00002e30| 7b 73 65 74 20 74 65 78 | 74 20 24 6c 61 73 74 45 |{set tex|t $lastE|
|00002e40| 76 61 6c 65 64 7d 0d 09 | 24 74 65 78 74 0d 09 73 |valed}..|$text..s|
|00002e50| 65 74 20 6c 61 73 74 45 | 76 61 6c 65 64 20 24 74 |et lastE|valed $t|
|00002e60| 65 78 74 0d 7d 0d 0d 0d | 23 20 46 69 72 73 74 2c |ext.}...|# First,|
|00002e70| 20 64 65 66 69 6e 65 20 | 6d 61 63 72 6f 73 20 74 | define |macros t|
|00002e80| 6f 20 62 79 70 61 73 73 | 20 74 68 65 20 65 6c 65 |o bypass| the ele|
|00002e90| 63 74 72 69 63 20 62 72 | 61 63 65 73 2e 0d 70 72 |ctric br|aces..pr|
|00002ea0| 6f 63 20 6f 72 64 4c 65 | 66 74 42 72 61 63 65 20 |oc ordLe|ftBrace |
|00002eb0| 7b 7d 20 7b 0d 09 69 6e | 73 65 72 74 54 65 78 74 |{} {..in|sertText|
|00002ec0| 20 22 09 09 5c 7b 22 0d | 7d 0d 62 69 6e 64 20 7b | "..\{".|}.bind {|
|00002ed0| 27 5b 27 7d 20 3c 63 73 | 3e 20 6f 72 64 4c 65 66 |'['} <cs|> ordLef|
|00002ee0| 74 42 72 61 63 65 0d 0d | 70 72 6f 63 20 6f 72 64 |tBrace..|proc ord|
|00002ef0| 52 69 67 68 74 42 72 61 | 63 65 20 7b 7d 20 7b 0d |RightBra|ce {} {.|
|00002f00| 09 69 6e 73 65 72 74 54 | 65 78 74 20 22 5c 7d 22 |.insertT|ext "\}"|
|00002f10| 0d 09 62 6c 69 6e 6b 20 | 5b 6d 61 74 63 68 49 74 |..blink |[matchIt|
|00002f20| 20 22 5c 7d 22 20 5b 65 | 78 70 72 20 5b 67 65 74 | "\}" [e|xpr [get|
|00002f30| 50 6f 73 5d 2d 31 5d 5d | 0d 7d 0d 62 69 6e 64 20 |Pos]-1]]|.}.bind |
|00002f40| 7b 27 5d 27 7d 20 3c 63 | 73 3e 20 6f 72 64 52 69 |{']'} <c|s> ordRi|
|00002f50| 67 68 74 42 72 61 63 65 | 0d 09 0d 70 72 6f 63 20 |ghtBrace|...proc |
|00002f60| 71 75 6f 74 65 57 6f 72 | 64 20 7b 7d 20 7b 0d 09 |quoteWor|d {} {..|
|00002f70| 62 61 63 6b 77 61 72 64 | 57 6f 72 64 0d 09 69 6e |backward|Word..in|
|00002f80| 73 65 72 74 54 65 78 74 | 20 22 27 22 0d 09 66 6f |sertText| "'"..fo|
|00002f90| 72 77 61 72 64 57 6f 72 | 64 0d 09 69 6e 73 65 72 |rwardWor|d..inser|
|00002fa0| 74 54 65 78 74 20 22 27 | 22 0d 7d 0d 62 69 6e 64 |tText "'|".}.bind|
|00002fb0| 20 27 27 27 20 3c 7a 3e | 20 71 75 6f 74 65 57 6f | ''' <z>| quoteWo|
|00002fc0| 72 64 0d 0d 23 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |rd..#===|========|
|00002fd0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002fe0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002ff0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003000| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003010| 3d 3d 3d 3d 3d 0d 0d 70 | 72 6f 63 20 74 6f 6d 61 |=====..p|roc toma|
|00003020| 63 20 7b 66 6e 61 6d 65 | 7d 20 7b 0d 09 73 65 74 |c {fname|} {..set|
|00003030| 20 66 64 20 5b 6f 70 65 | 6e 20 24 66 6e 61 6d 65 | fd [ope|n $fname|
|00003040| 20 22 72 22 5d 0d 09 73 | 65 74 20 74 65 78 74 20 | "r"]..s|et text |
|00003050| 5b 72 65 61 64 20 24 66 | 64 5d 0d 09 63 6c 6f 73 |[read $f|d]..clos|
|00003060| 65 20 24 66 64 0d 09 73 | 65 74 20 66 64 20 5b 6f |e $fd..s|et fd [o|
|00003070| 70 65 6e 20 24 66 6e 61 | 6d 65 20 22 77 22 5d 0d |pen $fna|me "w"].|
|00003080| 09 72 65 67 73 75 62 20 | 22 5c 6e 22 20 24 74 65 |.regsub |"\n" $te|
|00003090| 78 74 20 22 5c 72 22 20 | 74 65 78 74 0d 09 70 75 |xt "\r" |text..pu|
|000030a0| 74 73 20 2d 6e 6f 6e 65 | 77 6c 69 6e 65 20 24 66 |ts -none|wline $f|
|000030b0| 64 20 24 74 65 78 74 0d | 09 63 6c 6f 73 65 20 24 |d $text.|.close $|
|000030c0| 66 64 0d 7d 0d 0d 70 72 | 6f 63 20 74 6f 75 6e 69 |fd.}..pr|oc touni|
|000030d0| 78 20 7b 66 6e 61 6d 65 | 7d 20 7b 0d 09 73 65 74 |x {fname|} {..set|
|000030e0| 20 66 64 20 5b 6f 70 65 | 6e 20 24 66 6e 61 6d 65 | fd [ope|n $fname|
|000030f0| 20 22 72 22 5d 0d 09 73 | 65 74 20 74 65 78 74 20 | "r"]..s|et text |
|00003100| 5b 72 65 61 64 20 24 66 | 64 5d 0d 09 63 6c 6f 73 |[read $f|d]..clos|
|00003110| 65 20 24 66 64 0d 09 73 | 65 74 20 66 64 20 5b 6f |e $fd..s|et fd [o|
|00003120| 70 65 6e 20 24 66 6e 61 | 6d 65 20 22 77 22 5d 0d |pen $fna|me "w"].|
|00003130| 09 72 65 67 73 75 62 20 | 22 5c 72 22 20 24 74 65 |.regsub |"\r" $te|
|00003140| 78 74 20 22 5c 6e 22 20 | 74 65 78 74 0d 09 70 75 |xt "\n" |text..pu|
|00003150| 74 73 20 2d 6e 6f 6e 65 | 77 6c 69 6e 65 20 24 66 |ts -none|wline $f|
|00003160| 64 20 24 74 65 78 74 0d | 09 63 6c 6f 73 65 20 24 |d $text.|.close $|
|00003170| 66 64 0d 7d 0d 0d 0d 70 | 72 6f 63 20 63 61 74 20 |fd.}...p|roc cat |
|00003180| 61 72 67 73 20 7b 0d 09 | 73 65 74 20 66 69 6c 65 |args {..|set file|
|00003190| 73 20 22 22 0d 09 66 6f | 72 65 61 63 68 20 61 20 |s ""..fo|reach a |
|000031a0| 24 61 72 67 73 20 7b 0d | 09 09 66 6f 72 65 61 63 |$args {.|..foreac|
|000031b0| 68 20 66 20 5b 67 6c 6f | 62 20 24 61 5d 20 7b 0d |h f [glo|b $a] {.|
|000031c0| 09 09 09 6c 61 70 70 65 | 6e 64 20 66 69 6c 65 73 |...lappe|nd files|
|000031d0| 20 24 66 0d 09 09 7d 0d | 09 7d 0d 09 66 6f 72 65 | $f...}.|.}..fore|
|000031e0| 61 63 68 20 66 20 24 66 | 69 6c 65 73 20 7b 0d 09 |ach f $f|iles {..|
|000031f0| 09 61 70 70 65 6e 64 20 | 74 65 78 74 20 22 3d 3d |.append |text "==|
|00003200| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3c 24 66 3e |========|====<$f>|
|00003210| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 5c 72 |========|======\r|
|00003220| 22 0d 09 09 73 65 74 20 | 66 64 20 5b 6f 70 65 6e |"...set |fd [open|
|00003230| 20 24 66 20 22 72 22 5d | 0d 09 09 61 70 70 65 6e | $f "r"]|...appen|
|00003240| 64 20 74 65 78 74 20 22 | 5b 72 65 61 64 20 24 66 |d text "|[read $f|
|00003250| 64 5d 5c 72 5c 72 22 0d | 09 09 63 6c 6f 73 65 20 |d]\r\r".|..close |
|00003260| 24 66 64 0d 09 7d 0d 09 | 72 65 74 75 72 6e 20 24 |$fd..}..|return $|
|00003270| 74 65 78 74 0d 7d 0d 0d | 70 72 6f 63 20 63 61 74 |text.}..|proc cat|
|00003280| 74 6f 20 61 72 67 73 20 | 7b 0d 09 73 65 74 20 6c |to args |{..set l|
|00003290| 65 6e 20 5b 6c 6c 65 6e | 67 74 68 20 24 61 72 67 |en [llen|gth $arg|
|000032a0| 73 5d 0d 09 73 65 74 20 | 74 6f 20 5b 6c 69 6e 64 |s]..set |to [lind|
|000032b0| 65 78 20 24 61 72 67 73 | 20 5b 65 78 70 72 20 24 |ex $args| [expr $|
|000032c0| 6c 65 6e 20 2d 31 5d 5d | 0d 09 73 65 74 20 61 72 |len -1]]|..set ar|
|000032d0| 67 73 20 5b 6c 72 61 6e | 67 65 20 24 61 72 67 73 |gs [lran|ge $args|
|000032e0| 20 30 20 5b 65 78 70 72 | 20 24 6c 65 6e 20 2d 32 | 0 [expr| $len -2|
|000032f0| 5d 5d 0d 0d 09 73 65 74 | 20 66 69 6c 65 73 20 22 |]]...set| files "|
|00003300| 22 0d 09 66 6f 72 65 61 | 63 68 20 61 20 24 61 72 |"..forea|ch a $ar|
|00003310| 67 73 20 7b 0d 09 09 66 | 6f 72 65 61 63 68 20 66 |gs {...f|oreach f|
|00003320| 20 5b 67 6c 6f 62 20 24 | 61 5d 20 7b 0d 09 09 09 | [glob $|a] {....|
|00003330| 6c 61 70 70 65 6e 64 20 | 66 69 6c 65 73 20 24 66 |lappend |files $f|
|00003340| 0d 09 09 7d 0d 09 7d 0d | 09 66 6f 72 65 61 63 68 |...}..}.|.foreach|
|00003350| 20 66 20 24 66 69 6c 65 | 73 20 7b 0d 09 09 61 70 | f $file|s {...ap|
|00003360| 70 65 6e 64 20 74 65 78 | 74 20 22 3d 3d 3d 3d 3d |pend tex|t "=====|
|00003370| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3c 24 66 3e 3d 3d 3d |========|=<$f>===|
|00003380| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 5c 72 22 0d 09 |========|===\r"..|
|00003390| 09 73 65 74 20 66 64 20 | 5b 6f 70 65 6e 20 24 66 |.set fd |[open $f|
|000033a0| 20 22 72 22 5d 0d 09 09 | 61 70 70 65 6e 64 20 74 | "r"]...|append t|
|000033b0| 65 78 74 20 22 5b 72 65 | 61 64 20 24 66 64 5d 5c |ext "[re|ad $fd]\|
|000033c0| 72 5c 72 22 0d 09 09 63 | 6c 6f 73 65 20 24 66 64 |r\r"...c|lose $fd|
|000033d0| 0d 09 7d 0d 0d 09 73 65 | 74 20 64 66 69 6c 65 20 |..}...se|t dfile |
|000033e0| 24 74 6f 0d 09 69 66 20 | 7b 5b 66 69 6c 65 20 65 |$to..if |{[file e|
|000033f0| 78 69 73 74 73 20 24 64 | 66 69 6c 65 5d 7d 20 7b |xists $d|file]} {|
|00003400| 0d 09 09 73 65 74 20 66 | 69 64 20 5b 6f 70 65 6e |...set f|id [open|
|00003410| 20 24 64 66 69 6c 65 20 | 22 61 22 5d 0d 09 7d 20 | $dfile |"a"]..} |
|00003420| 65 6c 73 65 20 7b 0d 09 | 09 73 65 74 20 66 69 64 |else {..|.set fid|
|00003430| 20 5b 6f 70 65 6e 20 24 | 64 66 69 6c 65 20 22 77 | [open $|dfile "w|
|00003440| 22 5d 0d 09 7d 0d 09 70 | 75 74 73 20 24 66 69 64 |"]..}..p|uts $fid|
|00003450| 20 24 74 65 78 74 0d 09 | 63 6c 6f 73 65 20 24 66 | $text..|close $f|
|00003460| 69 64 0d 7d 0d 0d 0d 23 | 23 23 23 23 23 23 23 23 |id.}...#|########|
|00003470| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003480| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003490| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000034a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000034b0| 23 23 23 23 23 0d 23 20 | 20 54 6f 20 62 65 20 75 |#####.# | To be u|
|000034c0| 73 65 64 20 69 6e 20 74 | 68 65 20 77 69 6e 64 6f |sed in t|he windo|
|000034d0| 77 73 20 63 72 65 61 74 | 65 64 20 62 79 20 22 6d |ws creat|ed by "m|
|000034e0| 61 74 63 68 69 6e 67 4c | 69 6e 65 73 22 20 6f 72 |atchingL|ines" or|
|000034f0| 20 62 79 20 62 61 74 63 | 68 20 73 65 61 72 63 68 | by batc|h search|
|00003500| 65 73 2e 0d 23 0d 23 20 | 20 57 69 74 68 20 74 68 |es..#.# | With th|
|00003510| 65 20 63 75 72 73 6f 72 | 20 70 6f 73 69 74 69 6f |e cursor| positio|
|00003520| 6e 65 64 20 69 6e 20 61 | 20 6c 69 6e 65 20 63 6f |ned in a| line co|
|00003530| 72 72 73 70 6f 6e 64 69 | 6e 67 20 74 6f 20 61 20 |rrspondi|ng to a |
|00003540| 6d 61 74 63 68 2c 20 0d | 23 20 20 67 6f 20 62 61 |match, .|# go ba|
|00003550| 63 6b 20 61 6e 64 20 73 | 65 6c 65 63 74 20 74 68 |ck and s|elect th|
|00003560| 65 20 6c 69 6e 65 20 69 | 6e 20 74 68 65 20 6f 72 |e line i|n the or|
|00003570| 69 67 69 6e 61 6c 20 66 | 69 6c 65 20 74 68 61 74 |iginal f|ile that|
|00003580| 20 0d 23 20 20 67 65 6e | 65 72 61 74 65 64 20 74 | .# gen|erated t|
|00003590| 68 69 73 20 6d 61 74 63 | 68 2e 20 20 28 4c 69 6b |his matc|h. (Lik|
|000035a0| 65 20 65 6d 61 63 73 20 | 27 4f 63 63 75 72 27 20 |e emacs |'Occur' |
|000035b0| 66 75 6e 63 74 69 6f 6e | 61 6c 69 74 79 29 0d 23 |function|ality).#|
|000035c0| 0d 70 72 6f 63 20 67 6f | 74 6f 4d 61 74 63 68 20 |.proc go|toMatch |
|000035d0| 7b 7d 20 7b 0d 09 67 6c | 6f 62 61 6c 20 74 69 6c |{} {..gl|obal til|
|000035e0| 65 48 65 69 67 68 74 20 | 74 69 6c 65 57 69 64 74 |eHeight |tileWidt|
|000035f0| 68 20 74 69 6c 65 54 6f | 70 20 74 69 6c 65 4c 65 |h tileTo|p tileLe|
|00003600| 66 74 20 65 72 72 6f 72 | 48 65 69 67 68 74 20 65 |ft error|Height e|
|00003610| 72 72 6f 72 44 69 73 70 | 0d 09 73 65 74 20 74 65 |rrorDisp|..set te|
|00003620| 78 74 20 5b 67 65 74 54 | 65 78 74 20 5b 6c 69 6e |xt [getT|ext [lin|
|00003630| 65 53 74 61 72 74 20 5b | 67 65 74 50 6f 73 5d 5d |eStart [|getPos]]|
|00003640| 20 5b 65 78 70 72 20 5b | 6e 65 78 74 4c 69 6e 65 | [expr [|nextLine|
|00003650| 53 74 61 72 74 20 5b 67 | 65 74 50 6f 73 5d 5d 20 |Start [g|etPos]] |
|00003660| 2d 20 31 5d 5d 0d 09 73 | 65 74 20 69 6e 64 31 20 |- 1]]..s|et ind1 |
|00003670| 5b 73 74 72 69 6e 67 20 | 66 69 72 73 74 20 22 b0 |[string |first ".|
|00003680| 22 20 24 74 65 78 74 5d | 0d 09 73 65 74 20 69 6e |" $text]|..set in|
|00003690| 64 32 20 5b 73 74 72 69 | 6e 67 20 6c 61 73 74 20 |d2 [stri|ng last |
|000036a0| 22 b0 22 20 24 74 65 78 | 74 5d 0d 09 69 66 20 7b |"." $tex|t]..if {|
|000036b0| 24 69 6e 64 31 20 3d 3d | 20 24 69 6e 64 32 7d 20 |$ind1 ==| $ind2} |
|000036c0| 7b 0d 09 09 73 65 74 20 | 66 6e 61 6d 65 20 5b 73 |{...set |fname [s|
|000036d0| 74 72 69 6e 67 20 74 72 | 69 6d 20 5b 73 74 72 69 |tring tr|im [stri|
|000036e0| 6e 67 20 72 61 6e 67 65 | 20 24 74 65 78 74 20 24 |ng range| $text $|
|000036f0| 69 6e 64 31 20 65 6e 64 | 5d 20 7b b0 7d 5d 0d 09 |ind1 end|] {.}]..|
|00003700| 09 73 65 74 20 6d 73 67 | 20 22 22 0d 09 7d 20 65 |.set msg| ""..} e|
|00003710| 6c 73 65 20 7b 0d 09 09 | 73 65 74 20 66 6e 61 6d |lse {...|set fnam|
|00003720| 65 20 5b 73 74 72 69 6e | 67 20 74 72 69 6d 20 5b |e [strin|g trim [|
|00003730| 73 74 72 69 6e 67 20 72 | 61 6e 67 65 20 24 74 65 |string r|ange $te|
|00003740| 78 74 20 24 69 6e 64 31 | 20 24 69 6e 64 32 5d 20 |xt $ind1| $ind2] |
|00003750| 7b b0 7d 5d 0d 09 09 73 | 65 74 20 6d 73 67 20 5b |{.}]...s|et msg [|
|00003760| 73 74 72 69 6e 67 20 74 | 72 69 6d 20 5b 73 74 72 |string t|rim [str|
|00003770| 69 6e 67 20 72 61 6e 67 | 65 20 24 74 65 78 74 20 |ing rang|e $text |
|00003780| 24 69 6e 64 32 20 65 6e | 64 5d 20 7b b0 7d 5d 0d |$ind2 en|d] {.}].|
|00003790| 09 7d 0d 09 0d 09 73 65 | 74 20 74 6f 70 20 24 74 |.}....se|t top $t|
|000037a0| 69 6c 65 54 6f 70 0d 09 | 73 65 74 20 67 65 6f 20 |ileTop..|set geo |
|000037b0| 5b 67 65 74 47 65 6f 6d | 65 74 72 79 5d 0d 09 69 |[getGeom|etry]..i|
|000037c0| 66 20 7b 28 5b 6c 69 6e | 64 65 78 20 24 67 65 6f |f {([lin|dex $geo|
|000037d0| 20 30 5d 20 21 3d 20 24 | 74 69 6c 65 4c 65 66 74 | 0] != $|tileLeft|
|000037e0| 29 20 7c 7c 20 28 5b 6c | 69 6e 64 65 78 20 24 67 |) || ([l|index $g|
|000037f0| 65 6f 20 31 5d 20 21 3d | 20 24 74 6f 70 29 20 7c |eo 1] !=| $top) ||
|00003800| 7c 20 28 5b 6c 69 6e 64 | 65 78 20 24 67 65 6f 20 || ([lind|ex $geo |
|00003810| 32 5d 20 21 3d 20 24 74 | 69 6c 65 57 69 64 74 68 |2] != $t|ileWidth|
|00003820| 29 20 7c 7c 20 28 5b 6c | 69 6e 64 65 78 20 24 67 |) || ([l|index $g|
|00003830| 65 6f 20 33 5d 20 21 3d | 20 24 65 72 72 6f 72 48 |eo 3] !=| $errorH|
|00003840| 65 69 67 68 74 29 20 7d | 20 7b 0d 09 09 6d 6f 76 |eight) }| {...mov|
|00003850| 65 57 69 6e 20 24 74 69 | 6c 65 4c 65 66 74 20 24 |eWin $ti|leLeft $|
|00003860| 74 6f 70 0d 09 09 73 69 | 7a 65 57 69 6e 20 24 74 |top...si|zeWin $t|
|00003870| 69 6c 65 57 69 64 74 68 | 20 24 65 72 72 6f 72 48 |ileWidth| $errorH|
|00003880| 65 69 67 68 74 0d 09 7d | 0d 09 73 65 74 20 6d 61 |eight..}|..set ma|
|00003890| 72 20 32 32 0d 09 69 6e | 63 72 20 74 6f 70 20 5b |r 22..in|cr top [|
|000038a0| 65 78 70 72 20 24 65 72 | 72 6f 72 48 65 69 67 68 |expr $er|rorHeigh|
|000038b0| 74 20 2b 20 24 6d 61 72 | 5d 0d 09 69 66 20 7b 5b |t + $mar|]..if {[|
|000038c0| 65 78 70 72 20 7b 5b 6c | 73 65 61 72 63 68 20 5b |expr {[l|search [|
|000038d0| 77 69 6e 4e 61 6d 65 73 | 20 2d 66 5d 20 22 2a 24 |winNames| -f] "*$|
|000038e0| 66 6e 61 6d 65 22 5d 20 | 3e 3d 20 30 7d 5d 7d 20 |fname"] |>= 0}]} |
|000038f0| 7b 0d 09 09 69 66 20 7b | 5b 73 74 72 69 6e 67 20 |{...if {|[string |
|00003900| 6d 61 74 63 68 20 22 3a | 2a 22 20 24 66 6e 61 6d |match ":|*" $fnam|
|00003910| 65 5d 7d 20 7b 0d 09 09 | 09 73 65 74 20 66 6e 61 |e]} {...|.set fna|
|00003920| 6d 65 20 5b 66 69 6c 65 | 20 74 61 69 6c 20 24 66 |me [file| tail $f|
|00003930| 6e 61 6d 65 5d 0d 09 09 | 7d 0d 09 09 62 72 69 6e |name]...|}...brin|
|00003940| 67 54 6f 46 72 6f 6e 74 | 20 24 66 6e 61 6d 65 0d |gToFront| $fname.|
|00003950| 09 09 73 65 74 20 67 65 | 6f 20 5b 67 65 74 47 65 |..set ge|o [getGe|
|00003960| 6f 6d 65 74 72 79 5d 0d | 09 09 69 66 20 7b 28 5b |ometry].|..if {([|
|00003970| 6c 69 6e 64 65 78 20 24 | 67 65 6f 20 30 5d 20 21 |lindex $|geo 0] !|
|00003980| 3d 20 24 74 69 6c 65 4c | 65 66 74 29 20 7c 7c 20 |= $tileL|eft) || |
|00003990| 28 5b 6c 69 6e 64 65 78 | 20 24 67 65 6f 20 31 5d |([lindex| $geo 1]|
|000039a0| 20 21 3d 20 24 74 6f 70 | 29 20 7c 7c 20 28 5b 6c | != $top|) || ([l|
|000039b0| 69 6e 64 65 78 20 24 67 | 65 6f 20 32 5d 20 21 3d |index $g|eo 2] !=|
|000039c0| 20 24 74 69 6c 65 57 69 | 64 74 68 29 20 7c 7c 20 | $tileWi|dth) || |
|000039d0| 28 5b 6c 69 6e 64 65 78 | 20 24 67 65 6f 20 33 5d |([lindex| $geo 3]|
|000039e0| 20 21 3d 20 24 65 72 72 | 6f 72 44 69 73 70 29 20 | != $err|orDisp) |
|000039f0| 7d 20 7b 0d 09 09 09 73 | 69 7a 65 57 69 6e 20 24 |} {....s|izeWin $|
|00003a00| 74 69 6c 65 57 69 64 74 | 68 20 24 65 72 72 6f 72 |tileWidt|h $error|
|00003a10| 44 69 73 70 0d 09 09 09 | 6d 6f 76 65 57 69 6e 20 |Disp....|moveWin |
|00003a20| 24 74 69 6c 65 4c 65 66 | 74 20 24 74 6f 70 0d 09 |$tileLef|t $top..|
|00003a30| 09 7d 0d 09 7d 20 65 6c | 73 65 69 66 20 7b 5b 66 |.}..} el|seif {[f|
|00003a40| 69 6c 65 20 65 78 69 73 | 74 73 20 24 66 6e 61 6d |ile exis|ts $fnam|
|00003a50| 65 5d 7d 20 7b 0d 09 09 | 65 64 69 74 20 2d 67 20 |e]} {...|edit -g |
|00003a60| 24 74 69 6c 65 4c 65 66 | 74 20 24 74 6f 70 20 24 |$tileLef|t $top $|
|00003a70| 74 69 6c 65 57 69 64 74 | 68 20 24 65 72 72 6f 72 |tileWidt|h $error|
|00003a80| 44 69 73 70 20 24 66 6e | 61 6d 65 0d 09 7d 20 65 |Disp $fn|ame..} e|
|00003a90| 6c 73 65 20 7b 0d 09 09 | 69 66 20 7b 21 5b 73 74 |lse {...|if {![st|
|00003aa0| 72 69 6e 67 20 6d 61 74 | 63 68 20 22 2a 4c 69 6e |ring mat|ch "*Lin|
|00003ab0| 6b 2a 22 20 5b 67 65 74 | 54 65 78 74 20 30 20 5b |k*" [get|Text 0 [|
|00003ac0| 6e 65 78 74 4c 69 6e 65 | 53 74 61 72 74 20 30 5d |nextLine|Start 0]|
|00003ad0| 5d 5d 7d 20 7b 0d 09 09 | 09 61 6c 65 72 74 6e 6f |]]} {...|.alertno|
|00003ae0| 74 65 20 22 46 69 6c 65 | 20 5c 22 20 24 66 6e 61 |te "File| \" $fna|
|00003af0| 6d 65 20 5c 22 20 6e 6f | 74 20 66 6f 75 6e 64 2e |me \" no|t found.|
|00003b00| 22 20 0d 09 09 7d 0d 09 | 09 72 65 74 75 72 6e 0d |" ...}..|.return.|
|00003b10| 09 7d 0d 09 69 66 20 7b | 21 5b 72 65 67 65 78 70 |.}..if {|![regexp|
|00003b20| 20 7b 4c 69 6e 65 20 28 | 5b 30 2d 39 5d 2b 29 3a | {Line (|[0-9]+):|
|00003b30| 7d 20 24 74 65 78 74 20 | 64 75 6d 6d 79 20 6c 69 |} $text |dummy li|
|00003b40| 6e 65 5d 7d 20 7b 20 65 | 72 72 6f 72 20 22 47 61 |ne]} { e|rror "Ga|
|00003b50| 72 62 61 67 65 22 20 7d | 0d 20 20 20 20 73 65 74 |rbage" }|. set|
|00003b60| 20 70 6f 73 20 5b 72 6f | 77 43 6f 6c 54 6f 50 6f | pos [ro|wColToPo|
|00003b70| 73 20 24 6c 69 6e 65 20 | 30 5d 0d 20 20 20 20 73 |s $line |0]. s|
|00003b80| 65 6c 65 63 74 20 24 70 | 6f 73 20 5b 6e 65 78 74 |elect $p|os [next|
|00003b90| 4c 69 6e 65 53 74 61 72 | 74 20 24 70 6f 73 5d 0d |LineStar|t $pos].|
|00003ba0| 09 6d 65 73 73 61 67 65 | 20 24 6d 73 67 0d 7d 0d |.message| $msg.}.|
|00003bb0| 62 69 6e 64 20 27 63 27 | 20 3c 43 7a 3e 09 09 67 |bind 'c'| <Cz>..g|
|00003bc0| 6f 74 6f 4d 61 74 63 68 | 0d 0d 0d 23 3d 3d 3d 3d |otoMatch|...#====|
|00003bd0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003be0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003bf0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003c00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003c10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 0d 70 72 |========|====..pr|
|00003c20| 6f 63 20 70 72 65 76 49 | 6e 74 72 6f 20 7b 7d 20 |oc prevI|ntro {} |
|00003c30| 7b 0d 09 73 65 74 20 72 | 65 73 20 5b 73 65 61 72 |{..set r|es [sear|
|00003c40| 63 68 20 2d 73 20 2d 66 | 20 30 20 2d 72 20 30 20 |ch -s -f| 0 -r 0 |
|00003c50| 7b 3d 3d 20 7d 20 5b 67 | 65 74 50 6f 73 5d 5d 0d |{== } [g|etPos]].|
|00003c60| 09 64 69 73 70 6c 61 79 | 20 5b 6c 69 6e 65 53 74 |.display| [lineSt|
|00003c70| 61 72 74 20 5b 65 78 70 | 72 20 5b 6c 69 6e 65 53 |art [exp|r [lineS|
|00003c80| 74 61 72 74 20 5b 6c 69 | 6e 64 65 78 20 24 72 65 |tart [li|ndex $re|
|00003c90| 73 20 30 5d 5d 20 2d 20 | 31 5d 5d 0d 7d 0d 0d 70 |s 0]] - |1]].}..p|
|00003ca0| 72 6f 63 20 6e 65 78 74 | 49 6e 74 72 6f 20 7b 7d |roc next|Intro {}|
|00003cb0| 20 7b 0d 09 73 65 74 20 | 72 65 73 20 5b 73 65 61 | {..set |res [sea|
|00003cc0| 72 63 68 20 2d 73 20 2d | 66 20 31 20 2d 72 20 30 |rch -s -|f 1 -r 0|
|00003cd0| 20 7b 3d 3d 20 7d 20 5b | 67 65 74 50 6f 73 5d 5d | {== } [|getPos]]|
|00003ce0| 0d 09 73 65 74 20 72 65 | 73 20 5b 6c 69 6e 64 65 |..set re|s [linde|
|00003cf0| 78 20 24 72 65 73 20 31 | 5d 0d 09 73 65 74 20 72 |x $res 1|]..set r|
|00003d00| 65 73 20 5b 73 65 61 72 | 63 68 20 2d 73 20 2d 66 |es [sear|ch -s -f|
|00003d10| 20 31 20 2d 72 20 30 20 | 7b 3d 3d 20 7d 20 24 72 | 1 -r 0 |{== } $r|
|00003d20| 65 73 5d 0d 09 64 69 73 | 70 6c 61 79 20 5b 6c 69 |es]..dis|play [li|
|00003d30| 6e 65 53 74 61 72 74 20 | 5b 65 78 70 72 20 5b 6c |neStart |[expr [l|
|00003d40| 69 6e 65 53 74 61 72 74 | 20 5b 6c 69 6e 64 65 78 |ineStart| [lindex|
|00003d50| 20 24 72 65 73 20 30 5d | 5d 20 2d 20 31 5d 5d 0d | $res 0]|] - 1]].|
|00003d60| 7d 0d 0d 23 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |}..#====|========|
|00003d70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003d80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003d90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003da0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003db0| 3d 3d 3d 3d 0d 0d 70 72 | 6f 63 20 73 65 61 72 63 |====..pr|oc searc|
|00003dc0| 68 53 74 61 72 74 20 7b | 7d 20 7b 0d 09 67 6c 6f |hStart {|} {..glo|
|00003dd0| 62 61 6c 20 73 65 61 72 | 63 68 5f 73 74 61 72 74 |bal sear|ch_start|
|00003de0| 0d 09 73 65 6c 65 63 74 | 20 5b 67 65 74 50 6f 73 |..select| [getPos|
|00003df0| 5d 0d 09 73 65 74 4d 61 | 72 6b 0d 09 69 66 20 7b |]..setMa|rk..if {|
|00003e00| 5b 63 61 74 63 68 20 7b | 67 6f 74 6f 20 24 73 65 |[catch {|goto $se|
|00003e10| 61 72 63 68 5f 73 74 61 | 72 74 7d 5d 7d 20 7b 6d |arch_sta|rt}]} {m|
|00003e20| 65 73 73 61 67 65 20 22 | 4e 6f 20 70 72 65 76 69 |essage "|No previ|
|00003e30| 6f 75 73 20 73 65 61 72 | 63 68 22 7d 0d 7d 0d 0d |ous sear|ch"}.}..|
|00003e40| 23 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |#=======|========|
|00003e50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003e60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003e70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003e80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003e90| 3d 0d 0d 0d 70 72 6f 63 | 20 6c 69 73 74 42 69 6e |=...proc| listBin|
|00003ea0| 64 69 6e 67 73 20 7b 7d | 20 7b 0d 09 6e 65 77 20 |dings {}| {..new |
|00003eb0| 2d 6e 20 7b 2a 20 4b 65 | 79 20 42 69 6e 64 69 6e |-n {* Ke|y Bindin|
|00003ec0| 67 73 20 2a 7d 0d 09 69 | 6e 73 65 72 74 54 65 78 |gs *}..i|nsertTex|
|00003ed0| 74 20 5b 62 69 6e 64 69 | 6e 67 4c 69 73 74 5d 0d |t [bindi|ngList].|
|00003ee0| 0d 09 67 6c 6f 62 61 6c | 20 69 6e 66 6f 57 69 6e |..global| infoWin|
|00003ef0| 64 6f 77 73 44 69 72 74 | 79 0d 09 69 66 20 7b 21 |dowsDirt|y..if {!|
|00003f00| 24 69 6e 66 6f 57 69 6e | 64 6f 77 73 44 69 72 74 |$infoWin|dowsDirt|
|00003f10| 79 7d 20 7b 73 65 74 57 | 69 6e 49 6e 66 6f 20 64 |y} {setW|inInfo d|
|00003f20| 69 72 74 79 20 30 7d 0d | 7d 0d 0d 0d 70 72 6f 63 |irty 0}.|}...proc|
|00003f30| 20 6c 69 73 74 46 75 6e | 63 74 69 6f 6e 73 20 7b | listFun|ctions {|
|00003f40| 7d 20 7b 0d 09 67 6c 6f | 62 61 6c 20 77 69 6e 4d |} {..glo|bal winM|
|00003f50| 6f 64 65 73 0d 09 6e 65 | 77 20 2d 6e 20 7b 2a 20 |odes..ne|w -n {* |
|00003f60| 46 75 6e 63 74 69 6f 6e | 73 20 2a 7d 0d 09 69 6e |Function|s *}..in|
|00003f70| 73 65 72 74 54 65 78 74 | 20 22 3d 3d 3d 5c 72 5c |sertText| "===\r\|
|00003f80| 74 43 6f 6d 6d 61 6e 64 | 2d 64 6f 75 62 6c 65 2d |tCommand|-double-|
|00003f90| 63 6c 69 63 6b 20 6f 6e | 20 61 20 66 75 6e 63 74 |click on| a funct|
|00003fa0| 69 6f 6e 20 74 6f 20 73 | 65 65 20 69 74 73 20 64 |ion to s|ee its d|
|00003fb0| 65 66 69 6e 69 74 69 6f | 6e 5c 72 3d 3d 3d 5c 72 |efinitio|n\r===\r|
|00003fc0| 5c 72 22 20 5b 6a 6f 69 | 6e 20 5b 6c 73 6f 72 74 |\r" [joi|n [lsort|
|00003fd0| 20 2d 69 67 6e 6f 72 65 | 20 5b 69 6e 66 6f 20 63 | -ignore| [info c|
|00003fe0| 6f 6d 6d 61 6e 64 73 5d | 5d 20 22 5c 72 22 5d 20 |ommands]|] "\r"] |
|00003ff0| 22 5c 72 22 0d 09 67 6f | 74 6f 20 30 0d 09 73 65 |"\r"..go|to 0..se|
|00004000| 74 57 69 6e 49 6e 66 6f | 20 64 69 72 74 79 20 30 |tWinInfo| dirty 0|
|00004010| 0d 09 63 68 61 6e 67 65 | 4d 6f 64 65 20 5b 73 65 |..change|Mode [se|
|00004020| 74 20 77 69 6e 4d 6f 64 | 65 73 28 5b 6c 69 6e 64 |t winMod|es([lind|
|00004030| 65 78 20 5b 77 69 6e 4e | 61 6d 65 73 5d 20 30 5d |ex [winN|ames] 0]|
|00004040| 29 20 54 63 6c 5d 0d 7d | 0d 0d 0d 23 3d 3d 3d 3d |) Tcl].}|...#====|
|00004050| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004060| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004070| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004080| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 0d 70 72 |========|====..pr|
|000040a0| 6f 63 20 70 72 69 6e 74 | 41 72 72 61 79 20 7b 61 |oc print|Array {a|
|000040b0| 72 72 7d 20 7b 0d 09 67 | 6c 6f 62 61 6c 20 24 61 |rr} {..g|lobal $a|
|000040c0| 72 72 0d 09 09 66 6f 72 | 65 61 63 68 20 6e 20 5b |rr...for|each n [|
|000040d0| 61 72 72 61 79 20 6e 61 | 6d 65 73 20 24 61 72 72 |array na|mes $arr|
|000040e0| 5d 20 7b 0d 09 09 61 70 | 70 65 6e 64 20 74 65 78 |] {...ap|pend tex|
|000040f0| 74 20 22 24 6e 20 27 5b | 73 65 74 20 24 7b 61 72 |t "$n '[|set ${ar|
|00004100| 72 7d 28 24 6e 29 5d 27 | 5c 72 22 0d 09 7d 0d 09 |r}($n)]'|\r"..}..|
|00004110| 72 65 74 75 72 6e 20 5b | 73 74 72 69 6e 67 20 74 |return [|string t|
|00004120| 72 69 6d 20 24 74 65 78 | 74 20 22 5c 72 22 5d 0d |rim $tex|t "\r"].|
|00004130| 7d 0d 0d 23 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |}..#====|========|
|00004140| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004150| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004160| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004170| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004180| 3d 3d 3d 3d 0d 0d 0d 70 | 72 6f 63 20 64 6f 41 54 |====...p|roc doAT|
|00004190| 61 62 20 7b 7d 20 7b 0d | 09 67 6c 6f 62 61 6c 20 |ab {} {.|.global |
|000041a0| 6d 6f 64 65 0d 09 67 6c | 6f 62 61 6c 20 24 7b 6d |mode..gl|obal ${m|
|000041b0| 6f 64 65 7d 6d 6f 64 65 | 56 61 72 73 0d 09 69 66 |ode}mode|Vars..if|
|000041c0| 20 7b 5b 69 6e 66 6f 20 | 65 78 69 73 74 73 20 24 | {[info |exists $|
|000041d0| 7b 6d 6f 64 65 7d 6d 6f | 64 65 56 61 72 73 5d 20 |{mode}mo|deVars] |
|000041e0| 26 26 20 21 5b 73 65 74 | 20 24 7b 6d 6f 64 65 7d |&& ![set| ${mode}|
|000041f0| 6d 6f 64 65 56 61 72 73 | 28 65 6c 65 63 74 72 69 |modeVars|(electri|
|00004200| 63 54 61 62 29 5d 20 7c | 7c 20 5b 72 65 67 65 78 |cTab)] ||| [regex|
|00004210| 70 20 7b 5b 5e 20 5c 74 | 5d 7d 20 5b 67 65 74 54 |p {[^ \t|]} [getT|
|00004220| 65 78 74 20 5b 6c 69 6e | 65 53 74 61 72 74 20 5b |ext [lin|eStart [|
|00004230| 67 65 74 50 6f 73 5d 5d | 20 5b 67 65 74 50 6f 73 |getPos]]| [getPos|
|00004240| 5d 5d 5d 7d 20 7b 0d 20 | 20 20 20 09 69 66 20 7b |]]]} {. | .if {|
|00004250| 5b 67 65 74 50 6f 73 5d | 20 21 3d 20 5b 73 65 6c |[getPos]| != [sel|
|00004260| 45 6e 64 5d 7d 20 7b 0d | 20 20 20 20 09 09 72 65 |End]} {.| ..re|
|00004270| 70 6c 61 63 65 54 65 78 | 74 20 5b 67 65 74 50 6f |placeTex|t [getPo|
|00004280| 73 5d 20 5b 73 65 6c 45 | 6e 64 5d 20 22 5c 74 22 |s] [selE|nd] "\t"|
|00004290| 0d 20 20 20 20 09 7d 20 | 65 6c 73 65 20 7b 0d 20 |. .} |else {. |
|000042a0| 20 20 20 09 09 69 6e 73 | 65 72 74 54 65 78 74 20 | ..ins|ertText |
|000042b0| 22 5c 74 22 0d 20 20 20 | 20 09 7d 0d 09 7d 20 65 |"\t". | .}..} e|
|000042c0| 6c 73 65 20 7b 0d 09 09 | 69 6e 64 65 6e 74 4c 69 |lse {...|indentLi|
|000042d0| 6e 65 0d 09 7d 0d 7d 0d | 0d 23 20 09 73 65 74 20 |ne..}.}.|.# .set |
|000042e0| 70 74 65 78 74 20 5b 67 | 65 74 54 65 78 74 20 5b |ptext [g|etText [|
|000042f0| 6c 69 6e 64 65 78 20 24 | 6c 73 74 20 30 5d 20 5b |lindex $|lst 0] [|
|00004300| 6e 65 78 74 4c 69 6e 65 | 53 74 61 72 74 20 5b 6c |nextLine|Start [l|
|00004310| 69 6e 64 65 78 20 24 6c | 73 74 20 30 5d 5d 5d 0d |index $l|st 0]]].|
|00004320| 23 20 09 72 65 67 73 75 | 62 20 2d 61 6c 6c 20 7b |# .regsu|b -all {|
|00004330| 5b 5e 28 5d 7d 20 24 70 | 74 65 78 74 20 7b 7d 20 |[^(]} $p|text {} |
|00004340| 6f 6e 65 0d 23 20 09 72 | 65 67 73 75 62 20 2d 61 |one.# .r|egsub -a|
|00004350| 6c 6c 20 7b 5b 5e 29 5d | 7d 20 24 70 74 65 78 74 |ll {[^)]|} $ptext|
|00004360| 20 7b 7d 20 74 77 6f 0d | 23 20 09 69 66 20 7b 5b | {} two.|# .if {[|
|00004370| 73 74 72 69 6e 67 20 6c | 65 6e 67 74 68 20 24 6f |string l|ength $o|
|00004380| 6e 65 5d 20 3e 20 5b 73 | 74 72 69 6e 67 20 6c 65 |ne] > [s|tring le|
|00004390| 6e 67 74 68 20 24 74 77 | 6f 5d 7d 20 7b 0d 23 20 |ngth $tw|o]} {.# |
|000043a0| 09 09 72 65 67 65 78 70 | 20 7b 5b 5e 28 5d 2a 5c |..regexp| {[^(]*\|
|000043b0| 28 7d 20 24 70 74 65 78 | 74 20 62 6c 61 68 0d 23 |(} $ptex|t blah.#|
|000043c0| 20 09 09 72 65 67 73 75 | 62 20 2d 61 6c 6c 20 7b | ..regsu|b -all {|
|000043d0| 5b 5e 09 5d 7d 20 24 62 | 6c 61 68 20 7b 20 7d 20 |[^.]} $b|lah { } |
|000043e0| 6c 77 68 69 74 65 0d 23 | 20 09 7d 20 65 6c 73 65 |lwhite.#| .} else|
|000043f0| 69 66 20 7b 28 24 6e 65 | 78 74 43 20 3d 3d 20 22 |if {($ne|xtC == "|
|00004400| 5c 7b 22 29 7d 20 7b 0d | 23 20 09 09 61 70 70 65 |\{")} {.|# ..appe|
|00004410| 6e 64 20 6c 77 68 69 74 | 65 20 22 5c 74 22 0d 23 |nd lwhit|e "\t".#|
|00004420| 20 09 7d 0d 0d 70 72 6f | 63 20 69 6e 64 65 6e 74 | .}..pro|c indent|
|00004430| 4c 69 6e 65 20 7b 7d 20 | 7b 0d 09 67 6c 6f 62 61 |Line {} |{..globa|
|00004440| 6c 20 6d 6f 64 65 0d 09 | 0d 09 73 65 74 20 62 65 |l mode..|..set be|
|00004450| 67 20 5b 6c 69 6e 65 53 | 74 61 72 74 20 5b 67 65 |g [lineS|tart [ge|
|00004460| 74 50 6f 73 5d 5d 0d 0d | 09 73 65 74 20 6c 73 74 |tPos]]..|.set lst|
|00004470| 20 5b 73 65 61 72 63 68 | 20 2d 73 20 2d 66 20 30 | [search| -s -f 0|
|00004480| 20 2d 72 20 31 20 2d 69 | 20 30 20 7b 5e 5b 20 5c | -r 1 -i| 0 {^[ \|
|00004490| 74 5d 2a 5b 5e 20 5c 74 | 5c 72 5d 7d 20 5b 65 78 |t]*[^ \t|\r]} [ex|
|000044a0| 70 72 20 24 62 65 67 2d | 31 5d 5d 0d 09 73 65 74 |pr $beg-|1]]..set|
|000044b0| 20 6c 77 68 69 74 65 20 | 5b 67 65 74 54 65 78 74 | lwhite |[getText|
|000044c0| 20 5b 6c 69 6e 64 65 78 | 20 24 6c 73 74 20 30 5d | [lindex| $lst 0]|
|000044d0| 20 5b 65 78 70 72 20 5b | 6c 69 6e 64 65 78 20 24 | [expr [|lindex $|
|000044e0| 6c 73 74 20 31 5d 20 2d | 20 31 5d 5d 0d 09 73 65 |lst 1] -| 1]]..se|
|000044f0| 74 20 6e 65 78 74 43 20 | 5b 6c 6f 6f 6b 41 74 20 |t nextC |[lookAt |
|00004500| 5b 65 78 70 72 20 5b 6e | 65 78 74 4c 69 6e 65 53 |[expr [n|extLineS|
|00004510| 74 61 72 74 20 5b 6c 69 | 6e 64 65 78 20 24 6c 73 |tart [li|ndex $ls|
|00004520| 74 20 31 5d 5d 20 2d 20 | 32 5d 5d 0d 0d 09 69 66 |t 1]] - |2]]...if|
|00004530| 20 7b 28 24 6e 65 78 74 | 43 20 3d 3d 20 22 5c 7b | {($next|C == "\{|
|00004540| 22 29 7d 20 7b 0d 09 09 | 61 70 70 65 6e 64 20 6c |")} {...|append l|
|00004550| 77 68 69 74 65 20 22 5c | 74 22 0d 09 7d 20 65 6c |white "\|t"..} el|
|00004560| 73 65 69 66 20 7b 24 6e | 65 78 74 43 20 3d 3d 20 |seif {$n|extC == |
|00004570| 22 3a 22 7d 20 7b 0d 09 | 09 73 65 74 20 6c 77 68 |":"} {..|.set lwh|
|00004580| 69 74 65 20 22 5b 73 74 | 72 69 6e 67 20 72 61 6e |ite "[st|ring ran|
|00004590| 67 65 20 24 6c 77 68 69 | 74 65 20 30 20 5b 65 78 |ge $lwhi|te 0 [ex|
|000045a0| 70 72 20 5b 73 74 72 69 | 6e 67 20 6c 65 6e 67 74 |pr [stri|ng lengt|
|000045b0| 68 20 24 6c 77 68 69 74 | 65 5d 2d 33 5d 5d 5c 74 |h $lwhit|e]-3]]\t|
|000045c0| 22 0d 09 7d 0d 09 09 0d | 09 73 65 74 20 74 65 78 |"..}....|.set tex|
|000045d0| 74 20 5b 67 65 74 54 65 | 78 74 20 24 62 65 67 20 |t [getTe|xt $beg |
|000045e0| 5b 6e 65 78 74 4c 69 6e | 65 53 74 61 72 74 20 24 |[nextLin|eStart $|
|000045f0| 62 65 67 5d 5d 0d 09 72 | 65 67 65 78 70 20 7b 5e |beg]]..r|egexp {^|
|00004600| 5b 20 5c 74 5d 2a 7d 20 | 24 74 65 78 74 20 77 68 |[ \t]*} |$text wh|
|00004610| 69 74 65 0d 09 73 65 74 | 20 6c 65 6e 20 5b 73 74 |ite..set| len [st|
|00004620| 72 69 6e 67 20 6c 65 6e | 67 74 68 20 24 77 68 69 |ring len|gth $whi|
|00004630| 74 65 5d 0d 09 73 65 74 | 20 6e 65 78 74 43 20 5b |te]..set| nextC [|
|00004640| 6c 6f 6f 6b 41 74 20 5b | 65 78 70 72 20 24 62 65 |lookAt [|expr $be|
|00004650| 67 20 2b 20 24 6c 65 6e | 5d 5d 0d 09 69 66 20 7b |g + $len|]]..if {|
|00004660| 24 6e 65 78 74 43 20 3d | 3d 20 22 5c 7d 22 7d 20 |$nextC =|= "\}"} |
|00004670| 7b 0d 09 09 73 65 74 20 | 6c 77 68 69 74 65 20 5b |{...set |lwhite [|
|00004680| 73 74 72 69 6e 67 20 72 | 61 6e 67 65 20 24 6c 77 |string r|ange $lw|
|00004690| 68 69 74 65 20 30 20 5b | 65 78 70 72 20 5b 73 74 |hite 0 [|expr [st|
|000046a0| 72 69 6e 67 20 6c 65 6e | 67 74 68 20 24 6c 77 68 |ring len|gth $lwh|
|000046b0| 69 74 65 5d 20 2d 20 32 | 5d 5d 0d 09 7d 0d 09 0d |ite] - 2|]]..}...|
|000046c0| 09 67 6c 6f 62 61 6c 20 | 24 7b 6d 6f 64 65 7d 6d |.global |${mode}m|
|000046d0| 6f 64 65 56 61 72 73 0d | 09 69 66 20 7b 5b 73 74 |odeVars.|.if {[st|
|000046e0| 72 69 6e 67 20 6d 61 74 | 63 68 20 22 2a 3a 5c 72 |ring mat|ch "*:\r|
|000046f0| 22 20 24 74 65 78 74 5d | 20 26 26 20 5b 69 6e 66 |" $text]| && [inf|
|00004700| 6f 20 65 78 69 73 74 73 | 20 24 7b 6d 6f 64 65 7d |o exists| ${mode}|
|00004710| 6d 6f 64 65 56 61 72 73 | 28 65 6c 65 63 43 6f 6c |modeVars|(elecCol|
|00004720| 6f 6e 29 5d 20 26 26 20 | 5b 73 65 74 20 24 7b 6d |on)] && |[set ${m|
|00004730| 6f 64 65 7d 6d 6f 64 65 | 56 61 72 73 28 65 6c 65 |ode}mode|Vars(ele|
|00004740| 63 43 6f 6c 6f 6e 29 5d | 7d 20 7b 0d 09 09 69 66 |cColon)]|} {...if|
|00004750| 20 7b 5b 73 74 72 69 6e | 67 20 69 6e 64 65 78 20 | {[strin|g index |
|00004760| 24 6c 77 68 69 74 65 20 | 30 5d 20 3d 3d 20 22 5c |$lwhite |0] == "\|
|00004770| 74 22 7d 20 7b 0d 09 09 | 09 73 65 74 20 6c 77 68 |t"} {...|.set lwh|
|00004780| 69 74 65 20 22 5b 73 74 | 72 69 6e 67 20 72 61 6e |ite "[st|ring ran|
|00004790| 67 65 20 24 6c 77 68 69 | 74 65 20 31 20 5b 65 78 |ge $lwhi|te 1 [ex|
|000047a0| 70 72 20 5b 73 74 72 69 | 6e 67 20 6c 65 6e 67 74 |pr [stri|ng lengt|
|000047b0| 68 20 24 6c 77 68 69 74 | 65 5d 20 2d 20 31 5d 5d |h $lwhit|e] - 1]]|
|000047c0| 20 20 22 0d 09 09 7d 0d | 09 7d 0d 0d 09 69 66 20 | "...}.|.}...if |
|000047d0| 7b 24 77 68 69 74 65 20 | 21 3d 20 24 6c 77 68 69 |{$white |!= $lwhi|
|000047e0| 74 65 7d 20 7b 0d 09 09 | 72 65 70 6c 61 63 65 54 |te} {...|replaceT|
|000047f0| 65 78 74 20 24 62 65 67 | 20 5b 65 78 70 72 20 24 |ext $beg| [expr $|
|00004800| 62 65 67 20 2b 20 24 6c | 65 6e 5d 20 24 6c 77 68 |beg + $l|en] $lwh|
|00004810| 69 74 65 0d 09 7d 0d 09 | 67 6f 74 6f 20 5b 65 78 |ite..}..|goto [ex|
|00004820| 70 72 20 24 62 65 67 20 | 2b 20 5b 73 74 72 69 6e |pr $beg |+ [strin|
|00004830| 67 20 6c 65 6e 67 74 68 | 20 24 6c 77 68 69 74 65 |g length| $lwhite|
|00004840| 5d 5d 0d 7d 0d 0d 0d 70 | 72 6f 63 20 69 6e 64 65 |]].}...p|roc inde|
|00004850| 6e 74 52 65 67 69 6f 6e | 20 7b 7d 20 7b 0d 09 73 |ntRegion| {} {..s|
|00004860| 65 74 20 66 72 6f 6d 20 | 5b 6c 69 6e 64 65 78 20 |et from |[lindex |
|00004870| 5b 70 6f 73 54 6f 52 6f | 77 43 6f 6c 20 5b 67 65 |[posToRo|wCol [ge|
|00004880| 74 50 6f 73 5d 5d 20 30 | 5d 0d 09 73 65 74 20 74 |tPos]] 0|]..set t|
|00004890| 6f 20 5b 6c 69 6e 64 65 | 78 20 5b 70 6f 73 54 6f |o [linde|x [posTo|
|000048a0| 52 6f 77 43 6f 6c 20 5b | 73 65 6c 45 6e 64 5d 5d |RowCol [|selEnd]]|
|000048b0| 20 30 5d 0d 09 73 65 6c | 65 63 74 20 5b 67 65 74 | 0]..sel|ect [get|
|000048c0| 50 6f 73 5d 0d 09 77 68 | 69 6c 65 20 7b 24 66 72 |Pos]..wh|ile {$fr|
|000048d0| 6f 6d 20 3c 3d 20 24 74 | 6f 7d 20 7b 0d 09 09 67 |om <= $t|o} {...g|
|000048e0| 6f 74 6f 20 5b 72 6f 77 | 43 6f 6c 54 6f 50 6f 73 |oto [row|ColToPos|
|000048f0| 20 24 66 72 6f 6d 20 30 | 5d 0d 09 09 69 6e 64 65 | $from 0|]...inde|
|00004900| 6e 74 4c 69 6e 65 0d 09 | 09 69 6e 63 72 20 66 72 |ntLine..|.incr fr|
|00004910| 6f 6d 0d 09 7d 0d 7d 0d | 0d 23 3d 3d 3d 3d 3d 3d |om..}.}.|.#======|
|00004920| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004930| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004940| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004950| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004960| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 0d 70 72 6f 63 |========|==..proc|
|00004970| 20 73 50 72 6f 6d 70 74 | 20 7b 6d 73 67 20 64 65 | sPrompt| {msg de|
|00004980| 66 7d 20 7b 0d 09 67 6c | 6f 62 61 6c 20 75 73 65 |f} {..gl|obal use|
|00004990| 53 74 61 74 75 73 42 61 | 72 0d 09 69 66 20 7b 21 |StatusBa|r..if {!|
|000049a0| 24 75 73 65 53 74 61 74 | 75 73 42 61 72 7d 20 7b |$useStat|usBar} {|
|000049b0| 72 65 74 75 72 6e 20 5b | 70 72 6f 6d 70 74 20 24 |return [|prompt $|
|000049c0| 6d 73 67 20 24 64 65 66 | 5d 7d 0d 09 69 66 20 7b |msg $def|]}..if {|
|000049d0| 5b 63 61 74 63 68 20 7b | 73 74 61 74 75 73 50 72 |[catch {|statusPr|
|000049e0| 6f 6d 70 74 20 22 24 6d | 73 67 20 28 24 64 65 66 |ompt "$m|sg ($def|
|000049f0| 29 3a 20 22 7d 20 61 6e | 73 5d 7d 20 7b 0d 09 09 |): "} an|s]} {...|
|00004a00| 65 72 72 6f 72 20 22 63 | 61 6e 63 65 6c 22 0d 09 |error "c|ancel"..|
|00004a10| 7d 0d 09 69 66 20 7b 21 | 5b 73 74 72 69 6e 67 20 |}..if {!|[string |
|00004a20| 6c 65 6e 67 74 68 20 24 | 61 6e 73 5d 7d 20 7b 72 |length $|ans]} {r|
|00004a30| 65 74 75 72 6e 20 24 64 | 65 66 7d 0d 09 72 65 74 |eturn $d|ef}..ret|
|00004a40| 75 72 6e 20 24 61 6e 73 | 0d 7d 0d 0d 23 3d 3d 3d |urn $ans|.}..#===|
|00004a50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004a60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004a70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004a80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004a90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 0d 70 72 |========|=====.pr|
|00004aa0| 6f 63 20 71 75 6f 74 65 | 43 68 61 72 20 7b 7d 20 |oc quote|Char {} |
|00004ab0| 7b 0d 09 6d 65 73 73 61 | 67 65 20 22 4c 69 74 65 |{..messa|ge "Lite|
|00004ac0| 72 61 6c 20 6b 65 79 73 | 74 72 6f 6b 65 20 74 6f |ral keys|troke to|
|00004ad0| 20 62 65 20 69 6e 73 65 | 72 74 65 64 3a 22 0d 09 | be inse|rted:"..|
|00004ae0| 69 6e 73 65 72 74 54 65 | 78 74 20 5b 67 65 74 43 |insertTe|xt [getC|
|00004af0| 68 61 72 5d 0d 7d 0d 23 | 3d 3d 3d 3d 3d 3d 3d 3d |har].}.#|========|
|00004b00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004b10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004b20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004b30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004b40| 3d 3d 3d 3d 3d 3d 3d 0d | 0d 70 72 6f 63 20 73 61 |=======.|.proc sa|
|00004b50| 76 65 41 43 6f 70 79 41 | 73 20 7b 7d 20 7b 0d 09 |veACopyA|s {} {..|
|00004b60| 69 66 20 7b 5b 66 69 6c | 65 20 65 78 69 73 74 73 |if {[fil|e exists|
|00004b70| 20 5b 73 65 74 20 6e 6d | 20 5b 6c 69 6e 64 65 78 | [set nm| [lindex|
|00004b80| 20 5b 77 69 6e 4e 61 6d | 65 73 20 2d 66 5d 20 30 | [winNam|es -f] 0|
|00004b90| 5d 5d 5d 7d 20 7b 0d 09 | 09 73 65 74 20 6e 6d 32 |]]]} {..|.set nm2|
|00004ba0| 20 5b 70 75 74 66 69 6c | 65 20 22 53 61 76 65 20 | [putfil|e "Save |
|00004bb0| 61 20 63 6f 70 79 20 61 | 73 3a 22 20 5b 66 69 6c |a copy a|s:" [fil|
|00004bc0| 65 20 74 61 69 6c 20 24 | 6e 6d 5d 5d 0d 09 09 63 |e tail $|nm]]...c|
|00004bd0| 70 20 24 6e 6d 20 24 6e | 6d 32 0d 09 7d 0d 7d 0d |p $nm $n|m2..}.}.|
|00004be0| 23 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |#=======|========|
|00004bf0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004c00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004c10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004c20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004c30| 0d 70 72 6f 63 20 72 65 | 6d 6f 76 65 44 75 70 73 |.proc re|moveDups|
|00004c40| 20 7b 6c 7d 20 7b 0d 09 | 66 6f 72 65 61 63 68 20 | {l} {..|foreach |
|00004c50| 66 20 24 6c 20 7b 0d 09 | 09 73 65 74 20 73 69 6c |f $l {..|.set sil|
|00004c60| 6c 79 28 24 66 29 20 31 | 0d 09 7d 0d 09 69 66 20 |ly($f) 1|..}..if |
|00004c70| 7b 5b 69 6e 66 6f 20 65 | 78 69 73 74 73 20 73 69 |{[info e|xists si|
|00004c80| 6c 6c 79 5d 7d 20 7b 0d | 09 09 72 65 74 75 72 6e |lly]} {.|..return|
|00004c90| 20 5b 61 72 72 61 79 20 | 6e 61 6d 65 73 20 73 69 | [array |names si|
|00004ca0| 6c 6c 79 5d 0d 09 7d 0d | 7d 0d 09 09 09 0d 0d 23 |lly]..}.|}......#|
|00004cb0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004cc0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004cd0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004ce0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004cf0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00004d00| 0d 70 72 6f 63 20 70 72 | 69 6e 74 48 65 61 64 65 |.proc pr|intHeade|
|00004d10| 72 50 72 6f 63 20 7b 7d | 20 7b 0d 09 67 6c 6f 62 |rProc {}| {..glob|
|00004d20| 61 6c 20 70 72 69 6e 74 | 48 65 61 64 65 72 20 70 |al print|Header p|
|00004d30| 72 69 6e 74 48 65 61 64 | 65 72 54 69 6d 65 20 70 |rintHead|erTime p|
|00004d40| 72 69 6e 74 48 65 61 64 | 65 72 46 75 6c 6c 50 61 |rintHead|erFullPa|
|00004d50| 74 68 0d 09 0d 09 69 66 | 20 7b 21 24 70 72 69 6e |th....if| {!$prin|
|00004d60| 74 48 65 61 64 65 72 7d | 20 72 65 74 75 72 6e 20 |tHeader}| return |
|00004d70| 22 22 0d 09 0d 09 69 66 | 20 7b 24 70 72 69 6e 74 |""....if| {$print|
|00004d80| 48 65 61 64 65 72 46 75 | 6c 6c 50 61 74 68 7d 20 |HeaderFu|llPath} |
|00004d90| 7b 0d 09 09 73 65 74 20 | 74 65 78 74 20 5b 6c 69 |{...set |text [li|
|00004da0| 6e 64 65 78 20 5b 77 69 | 6e 4e 61 6d 65 73 20 2d |ndex [wi|nNames -|
|00004db0| 66 5d 20 30 5d 0d 09 7d | 20 65 6c 73 65 20 7b 0d |f] 0]..}| else {.|
|00004dc0| 09 09 73 65 74 20 74 65 | 78 74 20 5b 6c 69 6e 64 |..set te|xt [lind|
|00004dd0| 65 78 20 5b 77 69 6e 4e | 61 6d 65 73 5d 20 30 5d |ex [winN|ames] 0]|
|00004de0| 0d 09 7d 0d 09 0d 09 69 | 66 20 7b 24 70 72 69 6e |..}....i|f {$prin|
|00004df0| 74 48 65 61 64 65 72 54 | 69 6d 65 7d 20 7b 0d 09 |tHeaderT|ime} {..|
|00004e00| 09 61 70 70 65 6e 64 20 | 74 65 78 74 20 22 20 20 |.append |text " |
|00004e10| 20 20 20 20 5b 6a 6f 69 | 6e 20 5b 6d 74 69 6d 65 | [joi|n [mtime|
|00004e20| 20 5b 6e 6f 77 5d 20 73 | 68 6f 72 74 5d 5d 22 0d | [now] s|hort]]".|
|00004e30| 09 7d 0d 7d 0d 0d 23 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.}.}..#=|========|
|00004e40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004e50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004e60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004e70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004e80| 3d 3d 3d 3d 3d 3d 0d 0d | 70 72 6f 63 20 74 6f 67 |======..|proc tog|
|00004e90| 67 6c 65 4e 75 6d 4c 6f | 63 6b 20 7b 7d 20 7b 0d |gleNumLo|ck {} {.|
|00004ea0| 09 67 6c 6f 62 61 6c 20 | 6e 75 6d 4c 6f 63 6b 20 |.global |numLock |
|00004eb0| 6d 6f 64 69 66 69 65 64 | 56 61 72 73 0d 09 0d 09 |modified|Vars....|
|00004ec0| 73 65 74 20 6e 75 6d 4c | 6f 63 6b 20 5b 65 78 70 |set numL|ock [exp|
|00004ed0| 72 20 2d 31 20 2a 20 28 | 24 6e 75 6d 4c 6f 63 6b |r -1 * (|$numLock|
|00004ee0| 20 2d 20 31 29 5d 0d 09 | 6c 61 70 70 65 6e 64 20 | - 1)]..|lappend |
|00004ef0| 6d 6f 64 69 66 69 65 64 | 56 61 72 73 20 6e 75 6d |modified|Vars num|
|00004f00| 4c 6f 63 6b 0d 7d 0d 0d | 23 3d 3d 3d 3d 3d 3d 3d |Lock.}..|#=======|
|00004f10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004f20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004f30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004f40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004f50| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 0d 70 72 6f 63 20 72 |========|..proc r|
|00004f60| 65 67 69 73 74 65 72 20 | 7b 7d 20 7b 0d 09 67 6c |egister |{} {..gl|
|00004f70| 6f 62 61 6c 20 48 4f 4d | 45 0d 23 09 65 64 69 74 |obal HOM|E.#.edit|
|00004f80| 20 2d 72 20 22 24 48 4f | 4d 45 3a 48 65 6c 70 3a | -r "$HO|ME:Help:|
|00004f90| 52 65 67 69 73 74 65 72 | 69 6e 67 22 0d 09 6c 61 |Register|ing"..la|
|00004fa0| 75 6e 63 68 20 2d 66 20 | 22 24 48 4f 4d 45 3a 52 |unch -f |"$HOME:R|
|00004fb0| 65 67 69 73 74 65 72 20 | 31 2e 31 2e 35 20 4b 65 |egister |1.1.5 Ke|
|00004fc0| 6c 65 68 65 72 22 0d 7d | 0d 0d 23 3d 3d 3d 3d 3d |leher".}|..#=====|
|00004fd0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004fe0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004ff0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005000| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005010| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 23 20 55 73 65 |========|==.# Use|
|00005020| 66 75 6c 20 66 6f 72 20 | 2d 63 6f 6d 6d 61 6e 64 |ful for |-command|
|00005030| 20 66 6c 61 67 20 6f 66 | 20 27 6c 73 6f 72 74 27 | flag of| 'lsort'|
|00005040| 2e 0d 70 72 6f 63 20 73 | 6f 72 74 42 79 54 61 69 |..proc s|ortByTai|
|00005050| 6c 20 7b 6f 6e 65 20 74 | 77 6f 7d 20 7b 0d 09 73 |l {one t|wo} {..s|
|00005060| 74 72 69 6e 67 20 63 6f | 6d 70 61 72 65 20 5b 66 |tring co|mpare [f|
|00005070| 69 6c 65 20 74 61 69 6c | 20 24 6f 6e 65 5d 20 5b |ile tail| $one] [|
|00005080| 66 69 6c 65 20 74 61 69 | 6c 20 24 74 77 6f 5d 0d |file tai|l $two].|
|00005090| 7d 0d 0d 0d 23 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |}...#===|========|
|000050a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000050b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000050c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000050d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000050e0| 3d 3d 3d 3d 0d 0d 70 72 | 6f 63 20 63 6d 64 44 6f |====..pr|oc cmdDo|
|000050f0| 75 62 6c 65 43 6c 69 63 | 6b 20 7b 7b 66 72 6f 6d |ubleClic|k {{from|
|00005100| 20 2d 31 7d 20 7b 74 6f | 20 2d 31 7d 7d 20 7b 0d | -1} {to| -1}} {.|
|00005110| 09 67 6c 6f 62 61 6c 20 | 20 6d 6f 64 65 0d 09 0d |.global | mode...|
|00005120| 09 69 66 20 7b 24 66 72 | 6f 6d 20 3c 20 30 7d 20 |.if {$fr|om < 0} |
|00005130| 7b 0d 09 09 73 65 74 20 | 66 72 6f 6d 20 5b 67 65 |{...set |from [ge|
|00005140| 74 50 6f 73 5d 0d 09 09 | 73 65 74 20 74 6f 20 5b |tPos]...|set to [|
|00005150| 73 65 6c 45 6e 64 5d 0d | 09 09 69 66 20 7b 24 66 |selEnd].|..if {$f|
|00005160| 72 6f 6d 20 3d 3d 20 24 | 74 6f 7d 20 7b 0d 09 09 |rom == $|to} {...|
|00005170| 09 6d 65 73 73 61 67 65 | 20 22 4e 6f 20 73 65 6c |.message| "No sel|
|00005180| 65 63 74 69 6f 6e 22 0d | 09 09 09 72 65 74 75 72 |ection".|...retur|
|00005190| 6e 0d 09 09 7d 0d 09 7d | 0d 09 0d 09 69 66 20 7b |n...}..}|....if {|
|000051a0| 5b 63 61 74 63 68 20 7b | 24 7b 6d 6f 64 65 7d 44 |[catch {|${mode}D|
|000051b0| 62 6c 43 6c 69 63 6b 20 | 24 66 72 6f 6d 20 24 74 |blClick |$from $t|
|000051c0| 6f 7d 5d 7d 20 7b 0d 09 | 09 6d 65 73 73 61 67 65 |o}]} {..|.message|
|000051d0| 20 22 4e 6f 20 64 6f 63 | 73 22 0d 09 7d 0d 09 0d | "No doc|s"..}...|
|000051e0| 7d 0d 0d 23 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |}..#====|========|
|000051f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005200| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005210| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005220| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005230| 3d 3d 3d 0d 0d 0d 70 72 | 6f 63 20 65 64 69 74 4d |===...pr|oc editM|
|00005240| 61 72 6b 20 7b 66 6e 61 | 6d 65 20 6d 6e 61 6d 65 |ark {fna|me mname|
|00005250| 20 61 72 67 73 7d 20 7b | 0d 20 20 20 20 69 66 20 | args} {|. if |
|00005260| 7b 5b 73 65 74 20 70 6f | 73 20 5b 6c 73 65 61 72 |{[set po|s [lsear|
|00005270| 63 68 20 5b 77 69 6e 4e | 61 6d 65 73 20 2d 66 5d |ch [winN|ames -f]|
|00005280| 20 22 2a 24 66 6e 61 6d | 65 2a 22 5d 5d 20 3e 3d | "*$fnam|e*"]] >=|
|00005290| 20 30 7d 20 20 7b 0d 20 | 20 20 20 09 62 72 69 6e | 0} {. | .brin|
|000052a0| 67 54 6f 46 72 6f 6e 74 | 20 5b 6c 69 6e 64 65 78 |gToFront| [lindex|
|000052b0| 20 5b 77 69 6e 4e 61 6d | 65 73 20 2d 66 5d 20 24 | [winNam|es -f] $|
|000052c0| 70 6f 73 5d 0d 20 20 20 | 20 7d 20 65 6c 73 65 20 |pos]. | } else |
|000052d0| 7b 0d 20 20 20 20 09 69 | 66 20 7b 5b 6c 73 65 61 |{. .i|f {[lsea|
|000052e0| 72 63 68 20 24 61 72 67 | 73 20 7b 2d 72 7d 5d 20 |rch $arg|s {-r}] |
|000052f0| 3e 3d 20 30 7d 20 7b 0d | 20 20 20 20 09 09 65 64 |>= 0} {.| ..ed|
|00005300| 69 74 20 2d 72 20 22 24 | 66 6e 61 6d 65 22 0d 20 |it -r "$|fname". |
|00005310| 20 20 20 09 7d 20 65 6c | 73 65 20 7b 0d 09 20 20 | .} el|se {.. |
|00005320| 20 20 09 65 64 69 74 20 | 22 24 66 6e 61 6d 65 22 | .edit |"$fname"|
|00005330| 0d 09 20 20 20 20 7d 0d | 20 20 20 20 7d 0d 20 20 |.. }.| }. |
|00005340| 20 20 69 66 20 7b 5b 6c | 73 65 61 72 63 68 20 5b | if {[l|search [|
|00005350| 67 65 74 4e 61 6d 65 64 | 4d 61 72 6b 73 20 2d 6e |getNamed|Marks -n|
|00005360| 5d 20 24 6d 6e 61 6d 65 | 5d 20 3c 20 30 7d 20 7b |] $mname|] < 0} {|
|00005370| 0d 20 20 20 20 09 67 6c | 6f 62 61 6c 09 6d 6f 64 |. .gl|obal.mod|
|00005380| 65 0d 20 20 20 20 09 24 | 7b 6d 6f 64 65 7d 4d 61 |e. .$|{mode}Ma|
|00005390| 72 6b 46 69 6c 65 0d 20 | 20 20 20 7d 20 0d 20 20 |rkFile. | } . |
|000053a0| 20 20 67 6f 74 6f 4d 61 | 72 6b 20 24 6d 6e 61 6d | gotoMa|rk $mnam|
|000053b0| 65 0d 7d 0d 0d 0d 70 72 | 6f 63 20 77 69 6e 44 69 |e.}...pr|oc winDi|
|000053c0| 72 74 79 20 7b 7d 20 7b | 0d 09 67 65 74 57 69 6e |rty {} {|..getWin|
|000053d0| 49 6e 66 6f 20 61 72 72 | 0d 09 72 65 74 75 72 6e |Info arr|..return|
|000053e0| 20 24 61 72 72 28 64 69 | 72 74 79 29 0d 7d 0d 0d | $arr(di|rty).}..|
|000053f0| 0d 23 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.#======|========|
|00005400| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005410| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005420| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005430| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005440| 3d 0d 0d 70 72 6f 63 20 | 6c 72 65 76 65 72 73 65 |=..proc |lreverse|
|00005450| 20 7b 6c 7d 20 7b 0d 09 | 69 66 20 7b 5b 6c 6c 65 | {l} {..|if {[lle|
|00005460| 6e 67 74 68 20 24 6c 5d | 20 3e 20 31 7d 20 7b 0d |ngth $l]| > 1} {.|
|00005470| 09 09 73 65 74 20 66 69 | 72 73 74 20 5b 6c 69 6e |..set fi|rst [lin|
|00005480| 64 65 78 20 24 6c 20 30 | 5d 0d 09 09 73 65 74 20 |dex $l 0|]...set |
|00005490| 6c 20 5b 6c 72 65 76 65 | 72 73 65 20 5b 6c 72 61 |l [lreve|rse [lra|
|000054a0| 6e 67 65 20 24 6c 20 31 | 20 65 6e 64 5d 5d 0d 09 |nge $l 1| end]]..|
|000054b0| 09 6c 61 70 70 65 6e 64 | 20 6c 20 24 66 69 72 73 |.lappend| l $firs|
|000054c0| 74 0d 09 7d 0d 09 72 65 | 74 75 72 6e 20 24 6c 0d |t..}..re|turn $l.|
|000054d0| 7d 0d 0d 09 0d 23 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |}....#==|========|
|000054e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000054f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005500| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005510| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005520| 3d 3d 3d 3d 3d 0d 0d 0d | 73 65 74 20 7b 70 61 74 |=====...|set {pat|
|00005530| 74 65 72 6e 4c 69 62 72 | 61 72 79 28 50 61 73 63 |ternLibr|ary(Pasc|
|00005540| 61 6c 20 74 6f 20 43 20 | 43 6f 6d 6d 65 6e 74 73 |al to C |Comments|
|00005550| 29 7d 20 20 09 7b 20 7b | 5c 7b 28 5b 5e 5c 7d 5d |)} .{ {|\{([^\}]|
|00005560| 2a 29 5c 7d 7d 09 7b 2f | 2a 20 5c 31 20 2a 2f 7d |*)\}}.{/|* \1 */}|
|00005570| 20 09 7d 0d 73 65 74 20 | 7b 70 61 74 74 65 72 6e | .}.set |{pattern|
|00005580| 4c 69 62 72 61 72 79 28 | 43 2b 2b 20 74 6f 20 43 |Library(|C++ to C|
|00005590| 20 43 6f 6d 6d 65 6e 74 | 73 29 7d 09 09 09 7b 20 | Comment|s)}...{ |
|000055a0| 7b 2f 2f 28 2e 2a 29 7d | 09 09 09 7b 2f 2a 20 5c |{//(.*)}|...{/* \|
|000055b0| 31 20 2a 2f 7d 20 09 7d | 0d 73 65 74 20 7b 70 61 |1 */} .}|.set {pa|
|000055c0| 74 74 65 72 6e 4c 69 62 | 72 61 72 79 28 53 70 61 |tternLib|rary(Spa|
|000055d0| 63 65 20 52 75 6e 73 20 | 74 6f 20 54 61 62 73 29 |ce Runs |to Tabs)|
|000055e0| 7d 09 09 7b 20 7b 20 2b | 7d 09 09 09 09 7b 5c 74 |}..{ { +|}....{\t|
|000055f0| 7d 20 09 09 7d 0d 0d 0d | 0d 70 72 6f 63 20 67 65 |} ..}...|.proc ge|
|00005600| 74 50 61 74 74 65 72 6e | 4c 69 62 72 61 72 79 20 |tPattern|Library |
|00005610| 7b 7d 20 7b 0d 09 67 6c | 6f 62 61 6c 20 70 61 74 |{} {..gl|obal pat|
|00005620| 74 65 72 6e 4c 69 62 72 | 61 72 79 0d 09 0d 09 66 |ternLibr|ary....f|
|00005630| 6f 72 65 61 63 68 20 6e | 6d 20 5b 61 72 72 61 79 |oreach n|m [array|
|00005640| 20 6e 61 6d 65 73 20 70 | 61 74 74 65 72 6e 4c 69 | names p|atternLi|
|00005650| 62 72 61 72 79 5d 20 7b | 0d 09 09 6c 61 70 70 65 |brary] {|...lappe|
|00005660| 6e 64 20 6e 6d 73 20 5b | 63 6f 6e 63 61 74 20 5b |nd nms [|concat [|
|00005670| 6c 69 73 74 20 24 6e 6d | 5d 20 24 70 61 74 74 65 |list $nm|] $patte|
|00005680| 72 6e 4c 69 62 72 61 72 | 79 28 24 6e 6d 29 5d 0d |rnLibrar|y($nm)].|
|00005690| 09 7d 0d 09 72 65 74 75 | 72 6e 20 24 6e 6d 73 0d |.}..retu|rn $nms.|
|000056a0| 7d 0d 0d 70 72 6f 63 20 | 72 65 6d 65 6d 62 65 72 |}..proc |remember|
|000056b0| 50 61 74 74 65 72 6e 48 | 6f 6f 6b 20 7b 73 65 61 |PatternH|ook {sea|
|000056c0| 72 63 68 20 72 65 70 6c | 61 63 65 7d 20 7b 0d 09 |rch repl|ace} {..|
|000056d0| 67 6c 6f 62 61 6c 20 70 | 61 74 74 65 72 6e 4c 69 |global p|atternLi|
|000056e0| 62 72 61 72 79 0d 09 69 | 66 20 7b 5b 63 61 74 63 |brary..i|f {[catc|
|000056f0| 68 20 7b 73 65 74 20 6e | 61 6d 65 20 5b 70 72 6f |h {set n|ame [pro|
|00005700| 6d 70 74 20 22 4e 65 77 | 20 70 61 74 74 65 72 6e |mpt "New| pattern|
|00005710| 27 73 20 6e 61 6d 65 3f | 22 20 22 22 5d 7d 5d 7d |'s name?|" ""]}]}|
|00005720| 20 7b 0d 09 09 72 65 74 | 75 72 6e 20 22 22 0d 09 | {...ret|urn ""..|
|00005730| 7d 0d 09 61 64 64 41 72 | 72 44 65 66 20 70 61 74 |}..addAr|rDef pat|
|00005740| 74 65 72 6e 4c 69 62 72 | 61 72 79 20 24 6e 61 6d |ternLibr|ary $nam|
|00005750| 65 20 5b 6c 69 73 74 20 | 24 73 65 61 72 63 68 20 |e [list |$search |
|00005760| 24 72 65 70 6c 61 63 65 | 5d 0d 09 73 65 74 20 70 |$replace|]..set p|
|00005770| 61 74 74 65 72 6e 4c 69 | 62 72 61 72 79 28 24 6e |atternLi|brary($n|
|00005780| 61 6d 65 29 20 5b 6c 69 | 73 74 20 24 73 65 61 72 |ame) [li|st $sear|
|00005790| 63 68 20 24 72 65 70 6c | 61 63 65 5d 0d 09 72 65 |ch $repl|ace]..re|
|000057a0| 74 75 72 6e 20 24 6e 61 | 6d 65 0d 7d 0d 0d 70 72 |turn $na|me.}..pr|
|000057b0| 6f 63 20 64 65 6c 65 74 | 65 50 61 74 74 65 72 6e |oc delet|ePattern|
|000057c0| 48 6f 6f 6b 20 7b 7d 20 | 7b 0d 09 67 6c 6f 62 61 |Hook {} |{..globa|
|000057d0| 6c 20 70 61 74 74 65 72 | 6e 4c 69 62 72 61 72 79 |l patter|nLibrary|
|000057e0| 0d 09 0d 09 0d 09 73 65 | 74 20 74 65 6d 70 20 5b |......se|t temp [|
|000057f0| 6c 69 73 74 20 70 72 6f | 6d 70 74 20 22 44 65 6c |list pro|mpt "Del|
|00005800| 65 74 65 20 77 68 69 63 | 68 20 70 61 74 74 65 72 |ete whic|h patter|
|00005810| 6e 3f 22 20 5b 6c 69 6e | 64 65 78 20 5b 61 72 72 |n?" [lin|dex [arr|
|00005820| 61 79 20 6e 61 6d 65 73 | 20 70 61 74 74 65 72 6e |ay names| pattern|
|00005830| 4c 69 62 72 61 72 79 5d | 20 30 5d 20 22 50 61 74 |Library]| 0] "Pat|
|00005840| 73 3a 22 5d 0d 09 73 65 | 74 20 6e 61 6d 65 20 5b |s:"]..se|t name [|
|00005850| 65 76 61 6c 20 5b 63 6f | 6e 63 61 74 20 24 74 65 |eval [co|ncat $te|
|00005860| 6d 70 20 5b 61 72 72 61 | 79 20 6e 61 6d 65 73 20 |mp [arra|y names |
|00005870| 70 61 74 74 65 72 6e 4c | 69 62 72 61 72 79 5d 5d |patternL|ibrary]]|
|00005880| 5d 0d 09 72 65 6d 6f 76 | 65 41 72 72 44 65 66 20 |]..remov|eArrDef |
|00005890| 70 61 74 74 65 72 6e 4c | 69 62 72 61 72 79 20 24 |patternL|ibrary $|
|000058a0| 6e 61 6d 65 0d 09 75 6e | 73 65 74 20 70 61 74 74 |name..un|set patt|
|000058b0| 65 72 6e 4c 69 62 72 61 | 72 79 28 24 6e 61 6d 65 |ernLibra|ry($name|
|000058c0| 29 0d 7d 0d 0d 23 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |).}..#==|========|
|000058d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000058e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000058f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005900| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005910| 3d 3d 3d 3d 3d 0d 73 65 | 74 20 68 74 6d 6c 45 76 |=====.se|t htmlEv|
|00005920| 65 6e 74 53 75 69 74 65 | 49 44 73 28 4d 4f 53 53 |entSuite|IDs(MOSS|
|00005930| 29 20 7b 57 57 57 21 7d | 0d 70 72 6f 63 20 73 65 |) {WWW!}|.proc se|
|00005940| 6e 64 55 72 6c 20 7b 7d | 20 7b 0d 20 20 20 20 20 |ndUrl {}| {. |
|00005950| 20 20 20 67 6c 6f 62 61 | 6c 20 68 74 6d 6c 42 72 | globa|l htmlBr|
|00005960| 6f 77 73 65 72 50 61 74 | 68 20 68 74 6d 6c 45 76 |owserPat|h htmlEv|
|00005970| 65 6e 74 53 75 69 74 65 | 49 44 73 0d 20 20 20 20 |entSuite|IDs. |
|00005980| 20 20 20 20 69 66 20 7b | 21 5b 69 6e 66 6f 20 65 | if {|![info e|
|00005990| 78 69 73 74 73 20 68 74 | 6d 6c 42 72 6f 77 73 65 |xists ht|mlBrowse|
|000059a0| 72 50 61 74 68 5d 7d 20 | 7b 0d 20 20 20 20 20 20 |rPath]} |{. |
|000059b0| 20 20 20 20 20 20 20 20 | 20 20 69 66 20 7b 5b 63 | | if {[c|
|000059c0| 61 74 63 68 20 7b 61 64 | 64 41 70 70 50 61 74 68 |atch {ad|dAppPath|
|000059d0| 20 22 48 54 4d 4c 20 42 | 72 6f 77 73 65 72 22 20 | "HTML B|rowser" |
|000059e0| 68 74 6d 6c 42 72 6f 77 | 73 65 72 50 61 74 68 7d |htmlBrow|serPath}|
|000059f0| 5d 7d 20 7b 0d 20 20 20 | 20 20 20 20 20 20 20 20 |]} {. | |
|00005a00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 61 6c 65 | | ale|
|00005a10| 72 74 6e 6f 74 65 20 22 | 59 6f 75 20 6d 75 73 74 |rtnote "|You must|
|00005a20| 20 63 68 6f 6f 73 65 20 | 61 6e 20 48 54 4d 4c 20 | choose |an HTML |
|00005a30| 62 72 6f 77 73 65 72 22 | 0d 20 20 20 20 20 20 20 |browser"|. |
|00005a40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005a50| 20 72 65 74 75 72 6e 0d | 20 20 20 20 20 20 20 20 | return.| |
|00005a60| 20 20 20 20 20 20 20 20 | 7d 0d 20 20 20 20 20 20 | |}. |
|00005a70| 20 20 7d 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 | }. | set |
|00005a80| 73 69 67 20 5b 67 65 74 | 46 69 6c 65 53 69 67 20 |sig [get|FileSig |
|00005a90| 24 68 74 6d 6c 42 72 6f | 77 73 65 72 50 61 74 68 |$htmlBro|wserPath|
|00005aa0| 5d 20 0d 20 20 20 20 20 | 20 20 20 0d 20 20 20 20 |] . | . |
|00005ab0| 20 20 20 20 73 65 74 20 | 6e 61 6d 65 20 5b 63 68 | set |name [ch|
|00005ac0| 65 63 6b 52 75 6e 6e 69 | 6e 67 20 22 48 54 4d 4c |eckRunni|ng "HTML|
|00005ad0| 20 42 72 6f 77 73 65 72 | 22 20 24 73 69 67 20 68 | Browser|" $sig h|
|00005ae0| 74 6d 6c 42 72 6f 77 73 | 65 72 50 61 74 68 5d 0d |tmlBrows|erPath].|
|00005af0| 20 20 20 20 20 20 20 20 | 69 66 20 7b 21 5b 73 74 | |if {![st|
|00005b00| 72 69 6e 67 20 6c 65 6e | 67 74 68 20 24 6e 61 6d |ring len|gth $nam|
|00005b10| 65 5d 7d 20 7b 0d 20 20 | 20 20 20 20 20 20 20 20 |e]} {. | |
|00005b20| 20 20 20 20 20 20 61 6c | 65 72 74 6e 6f 74 65 20 | al|ertnote |
|00005b30| 22 43 6f 75 6c 64 6e 27 | 74 20 72 75 6e 20 48 54 |"Couldn'|t run HT|
|00005b40| 4d 4c 20 62 72 6f 77 73 | 65 72 22 0d 20 20 20 20 |ML brows|er". |
|00005b50| 20 20 20 20 20 20 20 20 | 20 20 20 20 72 65 74 75 | | retu|
|00005b60| 72 6e 0d 20 20 20 20 20 | 20 20 20 7d 0d 0d 20 20 |rn. | }.. |
|00005b70| 20 20 20 20 20 20 69 66 | 20 7b 21 5b 69 6e 66 6f | if| {![info|
|00005b80| 20 65 78 69 73 74 73 20 | 68 74 6d 6c 45 76 65 6e | exists |htmlEven|
|00005b90| 74 53 75 69 74 65 49 44 | 73 28 24 73 69 67 29 5d |tSuiteID|s($sig)]|
|00005ba0| 7d 20 7b 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |} {. | |
|00005bb0| 20 20 20 20 61 6c 65 72 | 74 6e 6f 74 65 20 22 43 | aler|tnote "C|
|00005bc0| 61 6e 27 74 20 73 65 6e | 64 20 55 52 4c 73 20 74 |an't sen|d URLs t|
|00005bd0| 6f 20 74 68 69 73 20 48 | 54 4d 4c 20 62 72 6f 77 |o this H|TML brow|
|00005be0| 73 65 72 22 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ser". | |
|00005bf0| 20 20 20 20 20 72 65 74 | 75 72 6e 0d 20 20 20 20 | ret|urn. |
|00005c00| 20 20 20 20 7d 0d 20 20 | 20 20 20 20 20 20 73 65 | }. | se|
|00005c10| 74 20 73 75 69 74 65 20 | 24 68 74 6d 6c 45 76 65 |t suite |$htmlEve|
|00005c20| 6e 74 53 75 69 74 65 49 | 44 73 28 24 73 69 67 29 |ntSuiteI|Ds($sig)|
|00005c30| 0d 0d 20 20 20 20 20 20 | 20 20 41 45 42 75 69 6c |.. | AEBuil|
|00005c40| 64 20 22 27 24 7b 73 69 | 67 7d 27 22 20 24 73 75 |d "'${si|g}'" $su|
|00005c50| 69 74 65 20 7b 4f 55 52 | 4c 7d 20 7b 2d 2d 2d 2d |ite {OUR|L} {----|
|00005c60| 7d 20 22 d2 5b 67 65 74 | 53 65 6c 65 63 74 5d d3 |} ".[get|Select].|
|00005c70| 22 0d 20 20 20 20 20 20 | 20 20 73 77 69 74 63 68 |". | switch|
|00005c80| 54 6f 20 24 6e 61 6d 65 | 0d 7d 0d 00 00 00 00 00 |To $name|.}......|
|00005c90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ca0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d00| 00 00 01 00 00 00 06 a2 | 00 00 05 a2 00 00 00 42 |........|.......B|
|00005d10| 30 20 30 20 30 20 30 20 | 30 20 30 20 30 0d 30 20 |0 0 0 0 |0 0 0.0 |
|00005d20| 30 20 30 20 30 20 30 20 | 30 20 30 20 30 20 30 20 |0 0 0 0 |0 0 0 0 |
|00005d30| 09 70 72 6f 63 73 2e 74 | 63 6c 02 00 02 00 54 45 |.procs.t|cl....TE|
|00005d40| 58 54 41 4c 46 41 01 00 | ff ff ff ff 00 00 00 01 |XTALFA..|........|
|00005d50| 02 00 54 45 58 54 41 4c | 46 41 01 00 ff ff ff ff |..TEXTAL|FA......|
|00005d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d70| 00 00 ac 0e ef 14 00 00 | 5c 0b 00 00 06 e4 30 20 |........|\.....0 |
|00005d80| 30 20 30 20 30 20 30 20 | 30 20 30 20 30 20 30 20 |0 0 0 0 |0 0 0 0 |
|00005d90| 30 20 30 20 30 0d 30 20 | 30 20 30 20 30 20 30 20 |0 0 0.0 |0 0 0 0 |
|00005da0| 30 20 30 20 30 20 30 20 | 30 20 30 20 30 20 30 20 |0 0 0 0 |0 0 0 0 |
|00005db0| 30 20 30 0d 30 20 30 20 | 30 20 30 20 30 20 30 20 |0 0.0 0 |0 0 0 0 |
|00005dc0| 30 20 30 20 30 20 30 20 | 30 20 30 20 30 20 30 20 |0 0 0 0 |0 0 0 0 |
|00005dd0| 30 0d 30 20 30 20 30 20 | 30 20 30 20 30 20 30 20 |0.0 0 0 |0 0 0 0 |
|00005de0| 30 20 30 20 30 20 30 20 | 30 20 30 20 30 20 30 0d |0 0 0 0 |0 0 0 0.|
|00005df0| 30 20 30 20 30 20 30 20 | 30 20 30 20 30 20 30 20 |0 0 0 0 |0 0 0 0 |
|00005e00| 00 00 05 52 00 42 00 00 | 09 0b 00 00 09 0b 0b 61 |...R.B..|.......a|
|00005e10| 64 64 41 70 70 50 61 74 | 68 00 00 00 13 d2 00 00 |ddAppPat|h.......|
|00005e20| 13 d2 09 61 6c 70 68 61 | 48 65 6c 70 00 00 23 bd |...alpha|Help..#.|
|00005e30| 00 00 23 bd 0d 62 61 63 | 6b 53 6c 61 73 68 53 75 |..#..bac|kSlashSu|
|00005e40| 62 00 00 00 30 f7 00 00 | 30 f7 03 63 61 74 00 00 |b...0...|0..cat..|
|00005e50| 31 f8 00 00 31 f8 05 63 | 61 74 74 6f 00 00 17 7b |1...1..c|atto...{|
|00005e60| 00 00 17 7b 03 63 64 00 | 00 00 15 8d 00 00 15 8d |...{.cd.|........|
|00005e70| 0d 63 44 69 76 69 64 69 | 6e 67 4c 69 6e 65 00 00 |.cDividi|ngLine..|
|00005e80| 0b 42 00 00 0b 42 0d 63 | 68 65 63 6b 52 75 6e 6e |.B...B.c|heckRunn|
|00005e90| 69 6e 67 00 00 00 50 66 | 00 00 50 66 0f 63 6d 64 |ing...Pf|..Pf.cmd|
|00005ea0| 44 6f 75 62 6c 65 43 6c | 69 63 6b 00 00 00 01 7a |DoubleCl|ick....z|
|00005eb0| 00 00 01 7a 05 64 65 62 | 75 67 00 00 57 2e 00 00 |...z.deb|ug..W...|
|00005ec0| 57 2e 11 64 65 6c 65 74 | 65 50 61 74 74 65 72 6e |W..delet|ePattern|
|00005ed0| 48 6f 6f 6b 00 00 14 5a | 00 00 14 5a 0d 64 69 76 |Hook...Z|...Z.div|
|00005ee0| 69 64 69 6e 67 4c 69 6e | 65 00 00 00 41 07 00 00 |idingLin|e...A...|
|00005ef0| 41 07 07 64 6f 41 54 61 | 62 00 00 00 05 b1 00 00 |A..doATa|b.......|
|00005f00| 05 b1 09 65 64 69 74 46 | 6c 61 67 00 00 00 51 b6 |...editF|lag...Q.|
|00005f10| 00 00 51 b6 09 65 64 69 | 74 4d 61 72 6b 00 00 00 |..Q..edi|tMark...|
|00005f20| 06 f2 00 00 06 f2 07 65 | 64 69 74 56 61 72 00 00 |.......e|ditVar..|
|00005f30| 2c e0 00 00 2c e0 09 65 | 76 61 6c 75 61 74 65 00 |,...,..e|valuate.|
|00005f40| 00 00 1d 8b 00 00 1d 8b | 0f 66 69 6c 6c 52 65 67 |........|.fillReg|
|00005f50| 69 6f 6e 42 79 50 61 72 | 00 00 1c a5 00 00 1c a5 |ionByPar|........|
|00005f60| 0d 66 69 6c 6c 54 65 78 | 74 42 79 50 61 72 00 00 |.fillTex|tByPar..|
|00005f70| 25 c3 00 00 25 c3 0b 66 | 69 6c 74 65 72 4c 69 6e |%...%..f|ilterLin|
|00005f80| 65 73 00 00 29 9c 00 00 | 29 9c 11 66 69 6c 74 65 |es..)...|)..filte|
|00005f90| 72 50 61 72 61 67 72 61 | 70 68 73 00 00 00 2b 42 |rParagra|phs...+B|
|00005fa0| 00 00 2b 42 0d 66 69 6c | 74 65 72 52 65 67 69 6f |..+B.fil|terRegio|
|00005fb0| 6e 00 00 00 09 8b 00 00 | 09 8b 0b 67 65 74 46 69 |n.......|...getFi|
|00005fc0| 6c 65 53 69 67 00 00 00 | 09 ce 00 00 09 ce 0b 67 |leSig...|.......g|
|00005fd0| 65 74 46 69 6c 65 54 79 | 70 65 00 00 55 79 00 00 |etFileTy|pe..Uy..|
|00005fe0| 55 79 11 67 65 74 50 61 | 74 74 65 72 6e 4c 69 62 |Uy.getPa|tternLib|
|00005ff0| 72 61 72 79 00 00 35 41 | 00 00 35 41 09 67 6f 74 |rary..5A|..5A.got|
|00006000| 6f 4d 61 74 63 68 00 00 | 02 a7 00 00 02 a7 0b 68 |oMatch..|.......h|
|00006010| 69 6c 69 74 65 57 6f 72 | 64 00 00 00 43 a5 00 00 |iliteWor|d...C...|
|00006020| 43 a5 0b 69 6e 64 65 6e | 74 4c 69 6e 65 00 00 00 |C..inden|tLine...|
|00006030| 47 c7 00 00 47 c7 0d 69 | 6e 64 65 6e 74 52 65 67 |G...G..i|ndentReg|
|00006040| 69 6f 6e 00 00 00 1f 03 | 00 00 1f 03 0b 6a 6f 69 |ion.....|.....joi|
|00006050| 6e 52 65 67 69 6f 6e 00 | 00 00 19 d3 00 00 19 d3 |nRegion.|........|
|00006060| 09 6c 69 73 74 41 72 72 | 61 79 00 00 3e 14 00 00 |.listArr|ay..>...|
|00006070| 3e 14 0d 6c 69 73 74 42 | 69 6e 64 69 6e 67 73 00 |>..listB|indings.|
|00006080| 00 00 3e ac 00 00 3e ac | 0d 6c 69 73 74 46 75 6e |..>...>.|.listFun|
|00006090| 63 74 69 6f 6e 73 00 00 | 00 93 00 00 00 93 11 6c |ctions..|.......l|
|000060a0| 6f 61 64 45 6c 65 63 74 | 72 69 63 41 6c 69 61 73 |oadElect|ricAlias|
|000060b0| 00 00 50 66 00 00 50 66 | 0b 6c 6f 6f 6b 75 70 4e |..Pf..Pf|.lookupN|
|000060c0| 61 6d 65 00 00 00 53 c3 | 00 00 53 c3 09 6c 72 65 |ame...S.|..S..lre|
|000060d0| 76 65 72 73 65 00 00 00 | 3c 1f 00 00 3c 1f 09 6e |verse...|<...<..n|
|000060e0| 65 78 74 49 6e 74 72 6f | 00 00 01 b1 00 00 01 b1 |extIntro|........|
|000060f0| 11 6e 6f 72 6d 61 6c 4c | 65 66 74 42 72 61 63 6b |.normalL|eftBrack|
|00006100| 65 74 00 00 01 e0 00 00 | 01 e0 13 6e 6f 72 6d 61 |et......|...norma|
|00006110| 6c 52 69 67 68 74 42 72 | 61 63 6b 65 74 00 00 00 |lRightBr|acket...|
|00006120| 2e 1e 00 00 2e 1e 0d 6f | 72 64 4c 65 66 74 42 72 |.......o|rdLeftBr|
|00006130| 61 63 65 00 00 00 2e 68 | 00 00 2e 68 0d 6f 72 64 |ace....h|...h.ord|
|00006140| 52 69 67 68 74 42 72 61 | 63 65 00 00 3b 9e 00 00 |RightBra|ce..;...|
|00006150| 3b 9e 09 70 72 65 76 49 | 6e 74 72 6f 00 00 40 1e |;..prevI|ntro..@.|
|00006160| 00 00 40 1e 0b 70 72 69 | 6e 74 41 72 72 61 79 00 |..@..pri|ntArray.|
|00006170| 00 00 4c 81 00 00 4c 81 | 0f 70 72 69 6e 74 48 65 |..L...L.|.printHe|
|00006180| 61 64 65 72 50 72 6f 63 | 00 00 4a 1e 00 00 4a 1e |aderProc|..J...J.|
|00006190| 09 71 75 6f 74 65 43 68 | 61 72 00 00 2e db 00 00 |.quoteCh|ar......|
|000061a0| 2e db 09 71 75 6f 74 65 | 57 6f 72 64 00 00 4e da |...quote|Word..N.|
|000061b0| 00 00 4e da 09 72 65 67 | 69 73 74 65 72 00 00 00 |..N..reg|ister...|
|000061c0| 21 fa 00 00 21 fa 0f 72 | 65 67 73 75 62 49 6e 52 |!...!..r|egsubInR|
|000061d0| 65 67 69 6f 6e 00 00 00 | 56 23 00 00 56 23 13 72 |egion...|V#..V#.r|
|000061e0| 65 6d 65 6d 62 65 72 50 | 61 74 74 65 72 6e 48 6f |ememberP|atternHo|
|000061f0| 6f 6b 00 00 4b b1 00 00 | 4b b1 0b 72 65 6d 6f 76 |ok..K...|K..remov|
|00006200| 65 44 75 70 73 00 00 00 | 24 5f 00 00 24 5f 0f 72 |eDups...|$_..$_.r|
|00006210| 65 70 6c 61 63 65 49 6e | 52 65 67 69 6f 6e 00 00 |eplaceIn|Region..|
|00006220| 4a c9 00 00 4a c9 0b 73 | 61 76 65 41 43 6f 70 79 |J...J..s|aveACopy|
|00006230| 41 73 00 00 3d 36 00 00 | 3d 36 0b 73 65 61 72 63 |As..=6..|=6.searc|
|00006240| 68 53 74 61 72 74 00 00 | 1b 93 00 00 1b 93 0f 73 |hStart..|.......s|
|00006250| 65 6c 65 63 74 50 61 72 | 61 67 72 61 70 68 00 00 |electPar|agraph..|
|00006260| 4f c2 00 00 4f c2 0b 73 | 6f 72 74 42 79 54 61 69 |O...O..s|ortByTai|
|00006270| 6c 00 00 00 2a 03 00 00 | 2a 03 0f 73 6f 72 74 50 |l...*...|*..sortP|
|00006280| 61 72 61 67 72 61 70 68 | 73 00 00 00 12 ac 00 00 |aragraph|s.......|
|00006290| 12 ac 13 73 70 65 6c 6c | 63 68 65 63 6b 53 65 6c |...spell|checkSel|
|000062a0| 65 63 74 69 6f 6e 00 00 | 11 78 00 00 11 78 11 73 |ection..|.x...x.s|
|000062b0| 70 65 6c 6c 63 68 65 63 | 6b 57 69 6e 64 6f 77 00 |pellchec|kWindow.|
|000062c0| 00 00 48 ec 00 00 48 ec | 07 73 50 72 6f 6d 70 74 |..H...H.|.sPrompt|
|000062d0| 00 00 16 46 00 00 16 46 | 0f 74 63 6c 44 69 76 69 |...F...F|.tclDivi|
|000062e0| 64 69 6e 67 4c 69 6e 65 | 00 00 14 14 00 00 14 14 |dingLine|........|
|000062f0| 07 74 63 6c 48 65 6c 70 | 00 00 14 ee 00 00 14 ee |.tclHelp|........|
|00006300| 0f 74 65 78 44 69 76 69 | 64 69 6e 67 4c 69 6e 65 |.texDivi|dingLine|
|00006310| 00 00 4e 08 00 00 4e 08 | 0d 74 6f 67 67 6c 65 4e |..N...N.|.toggleN|
|00006320| 75 6d 4c 6f 63 6b 00 00 | 2f 97 00 00 2f 97 05 74 |umLock..|/.../..t|
|00006330| 6f 6d 61 63 00 00 30 46 | 00 00 30 46 07 74 6f 75 |omac..0F|..0F.tou|
|00006340| 6e 69 78 00 00 00 53 36 | 00 00 53 36 09 77 69 6e |nix...S6|..S6.win|
|00006350| 44 69 72 74 79 00 00 00 | 00 48 00 09 4d 6f 6e 61 |Dirty...|.H..Mona|
|00006360| 63 6f 00 00 75 e0 00 00 | 16 c6 00 f8 fd 7c 01 17 |co..u...|.....|..|
|00006370| a2 e0 24 00 04 44 01 60 | ad 00 ff fc 00 04 00 04 |..$..D.`|........|
|00006380| 00 28 00 02 02 5c 03 1a | 00 28 00 02 02 5c 03 1a |.(...\..|.(...\..|
|00006390| ac 2c 85 e2 00 00 58 b9 | 00 00 58 b9 00 00 56 20 |.,....X.|..X...V |
|000063a0| 01 00 00 00 01 00 00 00 | 06 a2 00 00 05 a2 00 00 |........|........|
|000063b0| 00 42 00 f7 73 08 16 c6 | 00 00 00 1c 00 3e 00 00 |.B..s...|.....>..|
|000063c0| 4d 50 53 52 00 01 00 0a | 03 ef 00 00 00 00 00 00 |MPSR....|........|
|000063d0| 00 00 00 00 03 ed ff ff | 00 00 05 56 00 fa 99 e0 |........|...V....|
|000063e0| 03 74 61 62 00 00 00 00 | 00 00 00 00 00 00 00 00 |.tab....|........|
|000063f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+
