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

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 05 63 2e 74 63 6c 00 | 00 00 00 00 00 00 00 00 |..c.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 21 35 00 | 00 02 6c ac 1e fa ea ac |.....!5.|..l.....|
|00000060| 1e fa ea 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 c8 d6 00 00 |........|........|
|00000080| 0d 6e 65 77 4d 6f 64 65 | 56 61 72 20 43 20 65 6c |.newMode|Var C el|
|00000090| 65 63 43 6f 6c 6f 6e 20 | 7b 31 7d 20 31 0d 6e 65 |ecColon |{1} 1.ne|
|000000a0| 77 4d 6f 64 65 56 61 72 | 20 43 20 65 6c 65 63 52 |wModeVar| C elecR|
|000000b0| 42 72 61 63 65 20 7b 31 | 7d 20 31 0d 6e 65 77 4d |Brace {1|} 1.newM|
|000000c0| 6f 64 65 56 61 72 20 43 | 20 6c 65 66 74 46 69 6c |odeVar C| leftFil|
|000000d0| 6c 43 6f 6c 75 6d 6e 20 | 7b 33 7d 20 30 0d 6e 65 |lColumn |{3} 0.ne|
|000000e0| 77 4d 6f 64 65 56 61 72 | 20 43 20 70 72 65 66 69 |wModeVar| C prefi|
|000000f0| 78 53 74 72 69 6e 67 20 | 7b 2f 2f 7d 20 30 20 0d |xString |{//} 0 .|
|00000100| 6e 65 77 4d 6f 64 65 56 | 61 72 20 43 20 65 6c 65 |newModeV|ar C ele|
|00000110| 63 74 72 69 63 53 65 6d | 69 20 7b 31 7d 20 31 0d |ctricSem|i {1} 1.|
|00000120| 6e 65 77 4d 6f 64 65 56 | 61 72 20 43 20 77 6f 72 |newModeV|ar C wor|
|00000130| 64 42 72 65 61 6b 20 7b | 5b 61 2d 7a 41 2d 5a 30 |dBreak {|[a-zA-Z0|
|00000140| 2d 39 5f 5d 2b 7d 20 30 | 0d 6e 65 77 4d 6f 64 65 |-9_]+} 0|.newMode|
|00000150| 56 61 72 20 43 20 65 6c | 65 63 4c 42 72 61 63 65 |Var C el|ecLBrace|
|00000160| 20 7b 31 7d 20 31 0d 6e | 65 77 4d 6f 64 65 56 61 | {1} 1.n|ewModeVa|
|00000170| 72 20 43 20 65 6c 65 63 | 45 6c 73 65 20 7b 31 7d |r C elec|Else {1}|
|00000180| 20 31 0d 6e 65 77 4d 6f | 64 65 56 61 72 20 43 20 | 1.newMo|deVar C |
|00000190| 77 6f 72 64 57 72 61 70 | 20 7b 30 7d 20 31 0d 6e |wordWrap| {0} 1.n|
|000001a0| 65 77 4d 6f 64 65 56 61 | 72 20 43 20 66 75 6e 63 |ewModeVa|r C func|
|000001b0| 45 78 70 72 20 7b 5e 5b | 5e 20 5c 74 5c 28 23 5c |Expr {^[|^ \t\(#\|
|000001c0| 72 2f 40 5d 2e 2a 5c 28 | 2e 2a 5c 29 24 7d 20 30 |r/@].*\(|.*\)$} 0|
|000001d0| 0d 6e 65 77 4d 6f 64 65 | 56 61 72 20 43 20 77 6f |.newMode|Var C wo|
|000001e0| 72 64 42 72 65 61 6b 50 | 72 65 66 61 63 65 20 7b |rdBreakP|reface {|
|000001f0| 5b 5e 61 2d 7a 41 2d 5a | 30 2d 39 5f 5d 7d 20 30 |[^a-zA-Z|0-9_]} 0|
|00000200| 0d 6e 65 77 4d 6f 64 65 | 56 61 72 20 43 20 65 6c |.newMode|Var C el|
|00000210| 65 63 74 72 69 63 54 61 | 62 20 7b 30 7d 20 31 0d |ectricTa|b {0} 1.|
|00000220| 6e 65 77 4d 6f 64 65 56 | 61 72 20 43 20 61 75 74 |newModeV|ar C aut|
|00000230| 6f 4d 61 72 6b 09 30 09 | 31 0d 0d 73 65 74 20 63 |oMark.0.|1..set c|
|00000240| 43 6f 6d 6d 65 6e 74 52 | 65 67 65 78 70 09 7b 2f |CommentR|egexp.{/|
|00000250| 5c 2a 28 28 5b 5e 2a 5d | 2f 29 7c 5b 5e 2a 5d 7c |\*(([^*]|/)|[^*]||
|00000260| 5c 72 29 2a 5c 2a 2f 7d | 0d 73 65 74 20 63 50 72 |\r)*\*/}|.set cPr|
|00000270| 65 52 65 67 65 78 70 09 | 09 7b 5e 5c 23 5b 5c 74 |eRegexp.|.{^\#[\t|
|00000280| 20 5d 2a 5b 61 2d 7a 5d | 2a 7d 0d 73 65 74 09 63 | ]*[a-z]|*}.set.c|
|00000290| 4b 65 79 57 6f 72 64 73 | 09 7b 0d 09 76 6f 69 64 |KeyWords|.{..void|
|000002a0| 20 62 72 65 61 6b 20 72 | 65 67 69 73 74 65 72 20 | break r|egister |
|000002b0| 73 68 6f 72 74 20 65 6e | 75 6d 20 65 78 74 65 72 |short en|um exter|
|000002c0| 6e 20 69 6e 74 20 66 6f | 72 20 69 66 20 77 68 69 |n int fo|r if whi|
|000002d0| 6c 65 20 73 74 72 75 63 | 74 20 73 74 61 74 69 63 |le struc|t static|
|000002e0| 20 6c 6f 6e 67 20 63 6f | 6e 74 69 6e 75 65 0d 09 | long co|ntinue..|
|000002f0| 73 77 69 74 63 68 20 63 | 61 73 65 20 63 68 61 72 |switch c|ase char|
|00000300| 20 75 6e 73 69 67 6e 65 | 64 20 64 6f 75 62 6c 65 | unsigne|d double|
|00000310| 20 66 6c 6f 61 74 20 72 | 65 74 75 72 6e 20 65 6c | float r|eturn el|
|00000320| 73 65 20 64 65 66 61 75 | 6c 74 20 67 6f 74 6f 20 |se defau|lt goto |
|00000330| 64 6f 20 70 61 73 63 61 | 6c 20 42 6f 6f 6c 65 61 |do pasca|l Boolea|
|00000340| 6e 0d 09 74 79 70 65 64 | 65 66 20 76 6f 6c 61 74 |n..typed|ef volat|
|00000350| 69 6c 65 20 75 6e 69 6f | 6e 20 61 75 74 6f 20 73 |ile unio|n auto s|
|00000360| 69 7a 65 6f 66 20 73 69 | 7a 65 5f 74 0d 7d 0d 69 |izeof si|ze_t.}.i|
|00000370| 66 20 7b 5b 69 6e 66 6f | 20 65 78 69 73 74 73 20 |f {[info| exists |
|00000380| 43 77 6f 72 64 73 5d 7d | 20 7b 73 65 74 20 63 4b |Cwords]}| {set cK|
|00000390| 65 79 57 6f 72 64 73 20 | 5b 63 6f 6e 63 61 74 20 |eyWords |[concat |
|000003a0| 24 63 4b 65 79 57 6f 72 | 64 73 20 24 43 77 6f 72 |$cKeyWor|ds $Cwor|
|000003b0| 64 73 5d 7d 0d 72 65 67 | 4d 6f 64 65 4b 65 79 77 |ds]}.reg|ModeKeyw|
|000003c0| 6f 72 64 73 20 2d 65 20 | 7b 2f 2f 7d 20 2d 62 20 |ords -e |{//} -b |
|000003d0| 7b 2f 2a 7d 20 7b 2a 2f | 7d 20 2d 63 20 72 65 64 |{/*} {*/|} -c red|
|000003e0| 20 2d 6d 20 7b 23 7d 20 | 2d 6b 20 62 6c 75 65 20 | -m {#} |-k blue |
|000003f0| 43 20 24 63 4b 65 79 57 | 6f 72 64 73 0d 23 20 72 |C $cKeyW|ords.# r|
|00000400| 65 67 4d 6f 64 65 4b 65 | 79 77 6f 72 64 73 20 2d |egModeKe|ywords -|
|00000410| 61 20 2d 75 20 2d 6b 20 | 62 6c 75 65 20 43 20 7b |a -u -k |blue C {|
|00000420| 70 65 74 65 20 6b 65 6c | 65 68 65 72 7d 0d 23 20 |pete kel|eher}.# |
|00000430| 72 65 67 4d 6f 64 65 4b | 65 79 77 6f 72 64 73 20 |regModeK|eywords |
|00000440| 2d 65 20 7b 2f 2f 7d 20 | 2d 62 20 7b 2f 2a 7d 20 |-e {//} |-b {/*} |
|00000450| 7b 2a 2f 7d 20 2d 63 20 | 72 65 64 20 2d 6d 20 7b |{*/} -c |red -m {|
|00000460| 23 7d 20 2d 6b 20 62 6c | 75 65 20 43 20 24 63 4b |#} -k bl|ue C $cK|
|00000470| 65 79 57 6f 72 64 73 20 | 2d 69 20 22 5c 7d 22 20 |eyWords |-i "\}" |
|00000480| 2d 69 20 22 5c 7b 22 20 | 2d 49 20 67 72 65 65 6e |-i "\{" |-I green|
|00000490| 0d 0d 23 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |..#=====|========|
|000004a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000004b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000004c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000004d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000004e0| 3d 3d 3d 0d 0d 6e 65 77 | 4d 6f 64 65 56 61 72 20 |===..new|ModeVar |
|000004f0| 43 2b 2b 20 65 6c 65 63 | 43 6f 6c 6f 6e 20 7b 31 |C++ elec|Colon {1|
|00000500| 7d 20 31 0d 6e 65 77 4d | 6f 64 65 56 61 72 20 43 |} 1.newM|odeVar C|
|00000510| 2b 2b 20 65 6c 65 63 52 | 42 72 61 63 65 20 7b 31 |++ elecR|Brace {1|
|00000520| 7d 20 31 0d 6e 65 77 4d | 6f 64 65 56 61 72 20 43 |} 1.newM|odeVar C|
|00000530| 2b 2b 20 6c 65 66 74 46 | 69 6c 6c 43 6f 6c 75 6d |++ leftF|illColum|
|00000540| 6e 20 7b 33 7d 20 30 0d | 6e 65 77 4d 6f 64 65 56 |n {3} 0.|newModeV|
|00000550| 61 72 20 43 2b 2b 20 70 | 72 65 66 69 78 53 74 72 |ar C++ p|refixStr|
|00000560| 69 6e 67 20 7b 2f 2f 7d | 20 30 0d 6e 65 77 4d 6f |ing {//}| 0.newMo|
|00000570| 64 65 56 61 72 20 43 2b | 2b 20 65 6c 65 63 74 72 |deVar C+|+ electr|
|00000580| 69 63 53 65 6d 69 20 7b | 31 7d 20 31 0d 6e 65 77 |icSemi {|1} 1.new|
|00000590| 4d 6f 64 65 56 61 72 20 | 43 2b 2b 20 77 6f 72 64 |ModeVar |C++ word|
|000005a0| 42 72 65 61 6b 20 7b 5b | 61 2d 7a 41 2d 5a 30 2d |Break {[|a-zA-Z0-|
|000005b0| 39 5f 5d 2b 7d 20 30 0d | 6e 65 77 4d 6f 64 65 56 |9_]+} 0.|newModeV|
|000005c0| 61 72 20 43 2b 2b 20 65 | 6c 65 63 4c 42 72 61 63 |ar C++ e|lecLBrac|
|000005d0| 65 20 7b 31 7d 20 31 0d | 6e 65 77 4d 6f 64 65 56 |e {1} 1.|newModeV|
|000005e0| 61 72 20 43 2b 2b 20 65 | 6c 65 63 45 6c 73 65 20 |ar C++ e|lecElse |
|000005f0| 7b 31 7d 20 31 0d 6e 65 | 77 4d 6f 64 65 56 61 72 |{1} 1.ne|wModeVar|
|00000600| 20 43 2b 2b 20 77 6f 72 | 64 57 72 61 70 20 7b 30 | C++ wor|dWrap {0|
|00000610| 7d 20 31 0d 6e 65 77 4d | 6f 64 65 56 61 72 20 43 |} 1.newM|odeVar C|
|00000620| 2b 2b 20 66 75 6e 63 45 | 78 70 72 20 7b 5e 5b 5e |++ funcE|xpr {^[^|
|00000630| 20 5c 74 5c 28 23 5c 72 | 2f 40 5d 2e 2a 5c 28 2e | \t\(#\r|/@].*\(.|
|00000640| 2a 5c 29 24 7d 20 30 0d | 6e 65 77 4d 6f 64 65 56 |*\)$} 0.|newModeV|
|00000650| 61 72 20 43 2b 2b 20 77 | 6f 72 64 42 72 65 61 6b |ar C++ w|ordBreak|
|00000660| 50 72 65 66 61 63 65 20 | 7b 5b 5e 61 2d 7a 41 2d |Preface |{[^a-zA-|
|00000670| 5a 30 2d 39 5f 5d 7d 20 | 30 0d 6e 65 77 4d 6f 64 |Z0-9_]} |0.newMod|
|00000680| 65 56 61 72 20 43 2b 2b | 20 65 6c 65 63 74 72 69 |eVar C++| electri|
|00000690| 63 54 61 62 20 7b 31 7d | 20 31 0d 6e 65 77 4d 6f |cTab {1}| 1.newMo|
|000006a0| 64 65 56 61 72 20 43 2b | 2b 20 61 75 74 6f 4d 61 |deVar C+|+ autoMa|
|000006b0| 72 6b 09 09 30 09 31 0d | 0d 0d 73 65 74 20 7b 63 |rk..0.1.|..set {c|
|000006c0| 2b 2b 4b 65 79 57 6f 72 | 64 73 7d 20 7b 0d 09 6e |++KeyWor|ds} {..n|
|000006d0| 65 77 20 64 65 6c 65 74 | 65 20 63 6c 61 73 73 20 |ew delet|e class |
|000006e0| 66 72 69 65 6e 64 20 70 | 72 6f 74 65 63 74 65 64 |friend p|rotected|
|000006f0| 20 70 72 69 76 61 74 65 | 20 70 75 62 6c 69 63 20 | private| public |
|00000700| 74 65 6d 70 6c 61 74 65 | 20 0d 09 74 72 79 20 63 |template| ..try c|
|00000710| 61 74 63 68 20 74 68 72 | 6f 77 20 6f 70 65 72 61 |atch thr|ow opera|
|00000720| 74 6f 72 20 63 6f 6e 73 | 74 20 6d 75 74 61 62 6c |tor cons|t mutabl|
|00000730| 65 20 76 69 72 74 75 61 | 6c 20 61 73 6d 20 69 6e |e virtua|l asm in|
|00000740| 6c 69 6e 65 20 74 68 69 | 73 0d 09 61 6e 64 20 61 |line thi|s..and a|
|00000750| 6e 64 5f 65 71 20 62 69 | 74 61 6e 64 20 62 69 74 |nd_eq bi|tand bit|
|00000760| 6f 72 20 63 6f 6d 70 6c | 20 6e 6f 74 20 6f 72 20 |or compl| not or |
|00000770| 6f 72 5f 65 71 20 78 6f | 72 20 78 6f 72 5f 65 71 |or_eq xo|r xor_eq|
|00000780| 20 6e 6f 74 5f 65 71 0d | 09 77 63 68 61 72 5f 74 | not_eq.|.wchar_t|
|00000790| 20 62 6f 6f 6c 20 74 72 | 75 65 20 66 61 6c 73 65 | bool tr|ue false|
|000007a0| 0d 09 73 74 61 74 69 63 | 5f 63 61 73 74 20 64 79 |..static|_cast dy|
|000007b0| 6e 61 6d 69 63 5f 63 61 | 73 74 20 72 65 69 6e 74 |namic_ca|st reint|
|000007c0| 65 72 70 72 65 74 5f 63 | 61 73 74 20 74 79 70 65 |erpret_c|ast type|
|000007d0| 69 64 0d 09 75 73 69 6e | 67 20 6e 61 6d 65 73 70 |id..usin|g namesp|
|000007e0| 61 63 65 20 69 6e 68 65 | 72 69 74 65 64 0d 7d 0d |ace inhe|rited.}.|
|000007f0| 69 66 20 7b 5b 69 6e 66 | 6f 20 65 78 69 73 74 73 |if {[inf|o exists|
|00000800| 20 7b 43 2b 2b 77 6f 72 | 64 73 7d 5d 7d 20 7b 0d | {C++wor|ds}]} {.|
|00000810| 09 73 65 74 20 7b 63 2b | 2b 4b 65 79 57 6f 72 64 |.set {c+|+KeyWord|
|00000820| 73 7d 20 5b 63 6f 6e 63 | 61 74 20 24 7b 63 2b 2b |s} [conc|at ${c++|
|00000830| 4b 65 79 57 6f 72 64 73 | 7d 20 24 7b 43 2b 2b 77 |KeyWords|} ${C++w|
|00000840| 6f 72 64 73 7d 20 24 63 | 4b 65 79 57 6f 72 64 73 |ords} $c|KeyWords|
|00000850| 5d 0d 7d 20 65 6c 73 65 | 20 7b 0d 09 73 65 74 20 |].} else| {..set |
|00000860| 7b 63 2b 2b 4b 65 79 57 | 6f 72 64 73 7d 20 5b 63 |{c++KeyW|ords} [c|
|00000870| 6f 6e 63 61 74 20 24 7b | 63 2b 2b 4b 65 79 57 6f |oncat ${|c++KeyWo|
|00000880| 72 64 73 7d 20 24 63 4b | 65 79 57 6f 72 64 73 5d |rds} $cK|eyWords]|
|00000890| 0d 7d 0d 0d 72 65 67 4d | 6f 64 65 4b 65 79 77 6f |.}..regM|odeKeywo|
|000008a0| 72 64 73 20 2d 65 20 7b | 2f 2f 7d 20 2d 62 20 7b |rds -e {|//} -b {|
|000008b0| 2f 2a 7d 20 7b 2a 2f 7d | 20 2d 63 20 72 65 64 20 |/*} {*/}| -c red |
|000008c0| 2d 6d 20 7b 23 7d 20 2d | 6b 20 62 6c 75 65 20 7b |-m {#} -|k blue {|
|000008d0| 43 2b 2b 7d 20 24 7b 63 | 2b 2b 4b 65 79 57 6f 72 |C++} ${c|++KeyWor|
|000008e0| 64 73 7d 0d 23 20 72 65 | 67 4d 6f 64 65 4b 65 79 |ds}.# re|gModeKey|
|000008f0| 77 6f 72 64 73 20 2d 65 | 20 7b 2f 2f 7d 20 2d 62 |words -e| {//} -b|
|00000900| 20 7b 2f 2a 7d 20 7b 2a | 2f 7d 20 2d 63 20 72 65 | {/*} {*|/} -c re|
|00000910| 64 20 2d 6d 20 7b 23 7d | 20 2d 6b 20 62 6c 75 65 |d -m {#}| -k blue|
|00000920| 20 7b 43 2b 2b 7d 20 24 | 7b 63 2b 2b 4b 65 79 57 | {C++} $|{c++KeyW|
|00000930| 6f 72 64 73 7d 20 2d 69 | 20 22 5c 7b 22 20 2d 69 |ords} -i| "\{" -i|
|00000940| 20 22 5c 7d 22 20 2d 49 | 20 67 72 65 65 6e 0d 75 | "\}" -I| green.u|
|00000950| 6e 73 65 74 20 63 4b 65 | 79 57 6f 72 64 73 0d 75 |nset cKe|yWords.u|
|00000960| 6e 73 65 74 20 7b 63 2b | 2b 4b 65 79 57 6f 72 64 |nset {c+|+KeyWord|
|00000970| 73 7d 0d 0d 23 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |s}..#===|========|
|00000980| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000990| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000009a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000009b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000009c0| 3d 3d 0d 23 20 22 45 6c | 65 63 74 72 69 63 22 20 |==.# "El|ectric" |
|000009d0| 43 20 66 75 6e 63 74 69 | 6f 6e 73 2e 0d 23 3d 3d |C functi|ons..#==|
|000009e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000009f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000a00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000a10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000a20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 0d 23 20 72 |========|===..# r|
|00000a30| 65 74 75 72 6e 73 20 74 | 68 65 20 69 6e 64 65 6e |eturns t|he inden|
|00000a40| 74 20 73 74 72 69 6e 67 | 20 6f 66 20 74 68 65 20 |t string| of the |
|00000a50| 6c 69 6e 65 20 6e 61 6d | 65 64 20 62 79 20 27 70 |line nam|ed by 'p|
|00000a60| 6f 73 27 0d 70 72 6f 63 | 20 69 6e 64 65 6e 74 53 |os'.proc| indentS|
|00000a70| 74 72 69 6e 67 20 70 6f | 73 20 7b 0d 09 73 65 74 |tring po|s {..set|
|00000a80| 20 73 74 61 72 74 20 5b | 6c 69 6e 65 53 74 61 72 | start [|lineStar|
|00000a90| 74 20 24 70 6f 73 5d 0d | 09 73 65 74 20 65 6e 64 |t $pos].|.set end|
|00000aa0| 20 5b 6e 65 78 74 4c 69 | 6e 65 53 74 61 72 74 20 | [nextLi|neStart |
|00000ab0| 24 70 6f 73 5d 0d 09 73 | 65 74 20 74 65 78 74 20 |$pos]..s|et text |
|00000ac0| 5b 67 65 74 54 65 78 74 | 20 24 73 74 61 72 74 20 |[getText| $start |
|00000ad0| 24 65 6e 64 5d 0d 09 66 | 6f 72 20 7b 73 65 74 20 |$end]..f|or {set |
|00000ae0| 69 20 30 7d 20 7b 31 7d | 20 7b 69 6e 63 72 20 69 |i 0} {1}| {incr i|
|00000af0| 7d 20 7b 0d 09 09 73 65 | 74 20 63 20 5b 73 74 72 |} {...se|t c [str|
|00000b00| 69 6e 67 20 69 6e 64 65 | 78 20 24 74 65 78 74 20 |ing inde|x $text |
|00000b10| 24 69 5d 0d 09 09 69 66 | 20 7b 28 24 63 20 21 3d |$i]...if| {($c !=|
|00000b20| 20 22 5c 20 22 29 20 26 | 26 20 28 24 63 20 21 3d | "\ ") &|& ($c !=|
|00000b30| 20 22 5c 74 22 29 7d 20 | 74 68 65 6e 20 7b 0d 09 | "\t")} |then {..|
|00000b40| 09 09 72 65 74 75 72 6e | 20 5b 73 74 72 69 6e 67 |..return| [string|
|00000b50| 20 72 61 6e 67 65 20 24 | 74 65 78 74 20 30 20 5b | range $|text 0 [|
|00000b60| 65 78 70 72 20 24 69 2d | 31 5d 5d 0d 09 09 7d 0d |expr $i-|1]]...}.|
|00000b70| 09 7d 0d 09 72 65 74 75 | 72 6e 0d 7d 0d 0d 0d 23 |.}..retu|rn.}...#|
|00000b80| 20 42 72 61 63 65 20 6f | 6e 20 6e 65 77 20 6c 69 | Brace o|n new li|
|00000b90| 6e 65 2c 20 73 61 6d 65 | 20 69 6e 64 65 6e 74 61 |ne, same| indenta|
|00000ba0| 74 69 6f 6e 2e 20 49 6e | 73 65 72 74 20 6f 6e 20 |tion. In|sert on |
|00000bb0| 61 6e 6f 74 68 65 72 20 | 6e 65 77 20 6c 69 6e 65 |another |new line|
|00000bc0| 2c 20 69 6e 64 65 6e 74 | 65 64 20 69 6e 2e 0d 23 |, indent|ed in..#|
|00000bd0| 20 46 69 72 73 74 2c 20 | 73 65 65 20 69 66 20 77 | First, |see if w|
|00000be0| 65 20 61 72 65 20 6f 6e | 20 6e 65 77 20 6c 69 6e |e are on| new lin|
|00000bf0| 65 2e 0d 70 72 6f 63 20 | 65 6c 65 63 74 72 69 63 |e..proc |electric|
|00000c00| 43 4c 65 66 74 20 7b 7d | 20 7b 0d 09 67 6c 6f 62 |CLeft {}| {..glob|
|00000c10| 61 6c 20 6d 6f 64 65 0d | 09 67 6c 6f 62 61 6c 20 |al mode.|.global |
|00000c20| 24 7b 6d 6f 64 65 7d 6d | 6f 64 65 56 61 72 73 0d |${mode}m|odeVars.|
|00000c30| 09 64 65 6c 65 74 65 54 | 65 78 74 20 5b 67 65 74 |.deleteT|ext [get|
|00000c40| 50 6f 73 5d 20 5b 73 65 | 6c 45 6e 64 5d 0d 09 69 |Pos] [se|lEnd]..i|
|00000c50| 66 20 7b 21 5b 73 65 74 | 20 24 7b 6d 6f 64 65 7d |f {![set| ${mode}|
|00000c60| 6d 6f 64 65 56 61 72 73 | 28 65 6c 65 63 4c 42 72 |modeVars|(elecLBr|
|00000c70| 61 63 65 29 5d 7d 20 74 | 68 65 6e 20 7b 0d 09 09 |ace)]} t|hen {...|
|00000c80| 69 6e 73 65 72 74 54 65 | 78 74 20 22 5c 7b 22 0d |insertTe|xt "\{".|
|00000c90| 09 09 72 65 74 75 72 6e | 0d 09 7d 0d 09 69 66 20 |..return|..}..if |
|00000ca0| 7b 5b 73 65 74 20 24 7b | 6d 6f 64 65 7d 6d 6f 64 |{[set ${|mode}mod|
|00000cb0| 65 56 61 72 73 28 65 6c | 65 63 4c 42 72 61 63 65 |eVars(el|ecLBrace|
|00000cc0| 29 5d 20 26 26 20 21 5b | 63 61 74 63 68 20 7b 73 |)] && ![|catch {s|
|00000cd0| 65 61 72 63 68 20 2d 6c | 20 5b 6c 69 6e 65 53 74 |earch -l| [lineSt|
|00000ce0| 61 72 74 20 5b 65 78 70 | 72 20 5b 6c 69 6e 65 53 |art [exp|r [lineS|
|00000cf0| 74 61 72 74 20 5b 67 65 | 74 50 6f 73 5d 5d 20 2d |tart [ge|tPos]] -|
|00000d00| 20 31 5d 5d 20 2d 73 20 | 2d 66 20 30 20 2d 72 20 | 1]] -s |-f 0 -r |
|00000d10| 30 20 22 5c 7d 22 20 5b | 67 65 74 50 6f 73 5d 7d |0 "\}" [|getPos]}|
|00000d20| 20 72 65 73 5d 7d 20 7b | 0d 09 09 69 66 20 7b 5b | res]} {|...if {[|
|00000d30| 72 65 67 65 78 70 20 7b | 5c 7d 5b 20 5c 74 5c 72 |regexp {|\}[ \t\r|
|00000d40| 5d 2a 65 6c 73 65 7d 20 | 5b 67 65 74 54 65 78 74 |]*else} |[getText|
|00000d50| 20 5b 6c 69 6e 64 65 78 | 20 24 72 65 73 20 30 5d | [lindex| $res 0]|
|00000d60| 20 5b 65 78 70 72 20 5b | 67 65 74 50 6f 73 5d 20 | [expr [|getPos] |
|00000d70| 2b 20 31 5d 5d 5d 7d 20 | 7b 0d 09 09 09 73 65 74 |+ 1]]]} |{....set|
|00000d80| 20 72 65 73 32 20 5b 73 | 65 61 72 63 68 20 2d 66 | res2 [s|earch -f|
|00000d90| 20 30 20 2d 72 20 30 20 | 7b 65 6c 73 65 7d 20 5b | 0 -r 0 |{else} [|
|00000da0| 67 65 74 50 6f 73 5d 5d | 0d 09 09 09 6f 6e 65 53 |getPos]]|....oneS|
|00000db0| 70 61 63 65 0d 09 09 09 | 73 65 74 20 74 65 78 74 |pace....|set text|
|00000dc0| 20 5b 67 65 74 54 65 78 | 74 20 5b 6c 69 6e 64 65 | [getTex|t [linde|
|00000dd0| 78 20 24 72 65 73 32 20 | 30 5d 20 5b 67 65 74 50 |x $res2 |0] [getP|
|00000de0| 6f 73 5d 5d 0d 09 09 09 | 69 66 20 7b 5b 6c 6f 6f |os]]....|if {[loo|
|00000df0| 6b 41 74 20 5b 65 78 70 | 72 20 5b 67 65 74 50 6f |kAt [exp|r [getPo|
|00000e00| 73 5d 20 2d 20 31 5d 5d | 20 21 3d 20 22 20 22 7d |s] - 1]]| != " "}|
|00000e10| 20 7b 0d 09 09 09 09 61 | 70 70 65 6e 64 20 74 65 | {.....a|ppend te|
|00000e20| 78 74 20 22 20 22 0d 09 | 09 09 7d 0d 09 09 09 72 |xt " "..|..}....r|
|00000e30| 65 70 6c 61 63 65 54 65 | 78 74 20 5b 65 78 70 72 |eplaceTe|xt [expr|
|00000e40| 20 5b 6c 69 6e 64 65 78 | 20 24 72 65 73 20 30 5d | [lindex| $res 0]|
|00000e50| 20 2b 20 31 5d 20 5b 67 | 65 74 50 6f 73 5d 20 22 | + 1] [g|etPos] "|
|00000e60| 20 24 74 65 78 74 5c 7b | 5c 72 22 0d 09 09 09 69 | $text\{|\r"....i|
|00000e70| 6e 64 65 6e 74 4c 69 6e | 65 0d 09 09 09 72 65 74 |ndentLin|e....ret|
|00000e80| 75 72 6e 0d 09 09 7d 0d | 09 7d 0d 09 73 65 74 20 |urn...}.|.}..set |
|00000e90| 70 6f 73 20 5b 67 65 74 | 50 6f 73 5d 0d 09 73 65 |pos [get|Pos]..se|
|00000ea0| 74 20 73 74 61 72 74 20 | 5b 6c 69 6e 65 53 74 61 |t start |[lineSta|
|00000eb0| 72 74 20 24 70 6f 73 5d | 0d 09 73 65 74 20 74 65 |rt $pos]|..set te|
|00000ec0| 78 74 20 5b 67 65 74 54 | 65 78 74 20 24 73 74 61 |xt [getT|ext $sta|
|00000ed0| 72 74 20 24 70 6f 73 5d | 0d 09 0d 09 66 6f 72 20 |rt $pos]|....for |
|00000ee0| 7b 73 65 74 20 69 20 24 | 73 74 61 72 74 7d 20 7b |{set i $|start} {|
|00000ef0| 24 69 20 3c 20 24 70 6f | 73 7d 20 7b 69 6e 63 72 |$i < $po|s} {incr|
|00000f00| 20 69 7d 20 7b 0d 09 09 | 73 65 74 20 63 20 5b 6c | i} {...|set c [l|
|00000f10| 6f 6f 6b 41 74 20 24 69 | 5d 0d 09 09 69 66 20 7b |ookAt $i|]...if {|
|00000f20| 28 24 63 20 21 3d 20 22 | 5c 20 22 29 20 26 26 20 |($c != "|\ ") && |
|00000f30| 28 24 63 20 21 3d 20 22 | 5c 74 22 29 7d 20 74 68 |($c != "|\t")} th|
|00000f40| 65 6e 20 7b 0d 09 09 09 | 62 72 65 61 6b 3b 0d 09 |en {....|break;..|
|00000f50| 09 7d 0d 09 7d 0d 09 73 | 65 74 20 69 6e 64 65 6e |.}..}..s|et inden|
|00000f60| 74 61 74 69 6f 6e 20 5b | 67 65 74 54 65 78 74 20 |tation [|getText |
|00000f70| 24 73 74 61 72 74 20 24 | 69 5d 0d 09 69 66 20 7b |$start $|i]..if {|
|00000f80| 28 24 69 20 3d 3d 20 24 | 70 6f 73 29 20 7c 7c 20 |($i == $|pos) || |
|00000f90| 28 5b 6c 6f 6f 6b 41 74 | 20 24 70 6f 73 5d 20 3d |([lookAt| $pos] =|
|00000fa0| 3d 20 22 20 22 29 7d 20 | 7b 0d 09 09 69 6e 73 65 |= " ")} |{...inse|
|00000fb0| 72 74 54 65 78 74 20 22 | 5c 7b 5c 72 22 20 24 69 |rtText "|\{\r" $i|
|00000fc0| 6e 64 65 6e 74 61 74 69 | 6f 6e 20 22 5c 74 22 0d |ndentati|on "\t".|
|00000fd0| 09 7d 20 65 6c 73 65 20 | 7b 0d 09 09 69 6e 73 65 |.} else |{...inse|
|00000fe0| 72 74 54 65 78 74 20 22 | 20 5c 7b 5c 72 22 20 24 |rtText "| \{\r" $|
|00000ff0| 69 6e 64 65 6e 74 61 74 | 69 6f 6e 20 22 5c 74 22 |indentat|ion "\t"|
|00001000| 0d 09 7d 0d 7d 0d 62 69 | 6e 64 20 27 5c 7b 27 20 |..}.}.bi|nd '\{' |
|00001010| 3c 73 3e 20 65 6c 65 63 | 74 72 69 63 43 4c 65 66 |<s> elec|tricCLef|
|00001020| 74 20 43 0d 62 69 6e 64 | 20 27 5c 7b 27 20 3c 73 |t C.bind| '\{' <s|
|00001030| 3e 20 65 6c 65 63 74 72 | 69 63 43 4c 65 66 74 20 |> electr|icCLeft |
|00001040| 43 2b 2b 0d 0d 0d 23 20 | 42 72 61 63 65 20 6f 6e |C++...# |Brace on|
|00001050| 20 6e 65 77 20 6c 69 6e | 65 2c 20 69 6d 6d 65 64 | new lin|e, immed|
|00001060| 69 61 74 65 20 63 61 72 | 72 69 61 67 65 20 72 65 |iate car|riage re|
|00001070| 74 75 72 6e 0d 70 72 6f | 63 20 65 6c 65 63 74 72 |turn.pro|c electr|
|00001080| 69 63 43 52 69 67 68 74 | 20 7b 7d 20 7b 0d 09 67 |icCRight| {} {..g|
|00001090| 6c 6f 62 61 6c 20 6d 6f | 64 65 0d 09 67 6c 6f 62 |lobal mo|de..glob|
|000010a0| 61 6c 20 24 7b 6d 6f 64 | 65 7d 6d 6f 64 65 56 61 |al ${mod|e}modeVa|
|000010b0| 72 73 0d 09 0d 09 64 65 | 6c 65 74 65 54 65 78 74 |rs....de|leteText|
|000010c0| 20 5b 67 65 74 50 6f 73 | 5d 20 5b 73 65 6c 45 6e | [getPos|] [selEn|
|000010d0| 64 5d 0d 09 69 66 20 7b | 5b 73 65 74 20 24 7b 6d |d]..if {|[set ${m|
|000010e0| 6f 64 65 7d 6d 6f 64 65 | 56 61 72 73 28 65 6c 65 |ode}mode|Vars(ele|
|000010f0| 63 52 42 72 61 63 65 29 | 5d 20 3d 3d 20 22 30 22 |cRBrace)|] == "0"|
|00001100| 7d 20 74 68 65 6e 20 7b | 0d 09 09 69 6e 73 65 72 |} then {|...inser|
|00001110| 74 54 65 78 74 20 22 5c | 7d 22 0d 09 09 63 61 74 |tText "\|}"...cat|
|00001120| 63 68 20 7b 62 6c 69 6e | 6b 20 5b 6d 61 74 63 68 |ch {blin|k [match|
|00001130| 49 74 20 22 5c 7d 22 20 | 5b 65 78 70 72 20 5b 67 |It "\}" |[expr [g|
|00001140| 65 74 50 6f 73 5d 2d 32 | 5d 5d 7d 0d 09 09 72 65 |etPos]-2|]]}...re|
|00001150| 74 75 72 6e 0d 09 7d 0d | 09 73 65 74 20 70 6f 73 |turn..}.|.set pos|
|00001160| 20 5b 67 65 74 50 6f 73 | 5d 0d 09 73 65 74 20 73 | [getPos|]..set s|
|00001170| 74 61 72 74 20 5b 6c 69 | 6e 65 53 74 61 72 74 20 |tart [li|neStart |
|00001180| 24 70 6f 73 5d 0d 09 0d | 09 69 66 20 7b 5b 63 61 |$pos]...|.if {[ca|
|00001190| 74 63 68 20 7b 6d 61 74 | 63 68 49 74 20 22 5c 7d |tch {mat|chIt "\}|
|000011a0| 22 20 5b 65 78 70 72 20 | 24 70 6f 73 2d 31 5d 7d |" [expr |$pos-1]}|
|000011b0| 20 6d 61 74 63 68 65 64 | 5d 7d 20 7b 0d 09 09 62 | matched|]} {...b|
|000011c0| 65 65 70 0d 09 09 72 65 | 74 75 72 6e 0d 09 7d 0d |eep...re|turn..}.|
|000011d0| 09 73 65 74 20 74 65 78 | 74 20 5b 67 65 74 54 65 |.set tex|t [getTe|
|000011e0| 78 74 20 5b 6c 69 6e 65 | 53 74 61 72 74 20 24 6d |xt [line|Start $m|
|000011f0| 61 74 63 68 65 64 5d 20 | 24 6d 61 74 63 68 65 64 |atched] |$matched|
|00001200| 5d 0d 09 72 65 67 65 78 | 70 20 7b 5e 5b 20 09 5d |]..regex|p {^[ .]|
|00001210| 2a 7d 20 24 74 65 78 74 | 20 69 6e 64 65 6e 74 61 |*} $text| indenta|
|00001220| 74 69 6f 6e 0d 09 66 6f | 72 20 7b 73 65 74 20 69 |tion..fo|r {set i|
|00001230| 20 24 73 74 61 72 74 7d | 20 7b 24 69 20 3c 20 24 | $start}| {$i < $|
|00001240| 70 6f 73 7d 20 7b 69 6e | 63 72 20 69 7d 20 7b 0d |pos} {in|cr i} {.|
|00001250| 09 09 73 65 74 20 63 20 | 5b 6c 6f 6f 6b 41 74 20 |..set c |[lookAt |
|00001260| 24 69 5d 0d 09 09 69 66 | 20 7b 28 24 63 20 21 3d |$i]...if| {($c !=|
|00001270| 20 22 5c 20 22 29 20 26 | 26 20 28 24 63 20 21 3d | "\ ") &|& ($c !=|
|00001280| 20 22 5c 74 22 29 7d 20 | 74 68 65 6e 20 7b 0d 09 | "\t")} |then {..|
|00001290| 09 09 69 6e 73 65 72 74 | 54 65 78 74 20 22 5c 72 |..insert|Text "\r|
|000012a0| 22 20 24 69 6e 64 65 6e | 74 61 74 69 6f 6e 20 22 |" $inden|tation "|
|000012b0| 5c 7d 5c 72 22 20 24 69 | 6e 64 65 6e 74 61 74 69 |\}\r" $i|ndentati|
|000012c0| 6f 6e 0d 09 09 09 62 6c | 69 6e 6b 20 24 6d 61 74 |on....bl|ink $mat|
|000012d0| 63 68 65 64 0d 09 09 09 | 72 65 74 75 72 6e 0d 09 |ched....|return..|
|000012e0| 09 7d 0d 09 7d 0d 09 73 | 65 74 20 74 65 78 74 20 |.}..}..s|et text |
|000012f0| 5b 73 65 74 20 69 6e 64 | 65 6e 74 61 74 69 6f 6e |[set ind|entation|
|00001300| 5d 5c 7d 5c 72 24 69 6e | 64 65 6e 74 61 74 69 6f |]\}\r$in|dentatio|
|00001310| 6e 0d 09 72 65 70 6c 61 | 63 65 54 65 78 74 20 24 |n..repla|ceText $|
|00001320| 73 74 61 72 74 20 24 70 | 6f 73 20 24 74 65 78 74 |start $p|os $text|
|00001330| 0d 09 67 6f 74 6f 20 5b | 65 78 70 72 20 7b 24 73 |..goto [|expr {$s|
|00001340| 74 61 72 74 20 2b 20 5b | 73 74 72 69 6e 67 20 6c |tart + [|string l|
|00001350| 65 6e 67 74 68 20 24 74 | 65 78 74 5d 7d 5d 0d 09 |ength $t|ext]}]..|
|00001360| 62 6c 69 6e 6b 20 5b 6d | 61 74 63 68 49 74 20 22 |blink [m|atchIt "|
|00001370| 5c 7d 22 20 5b 65 78 70 | 72 20 24 73 74 61 72 74 |\}" [exp|r $start|
|00001380| 2d 32 5d 5d 0d 7d 0d 62 | 69 6e 64 20 27 5c 7d 27 |-2]].}.b|ind '\}'|
|00001390| 20 3c 73 3e 20 65 6c 65 | 63 74 72 69 63 43 52 69 | <s> ele|ctricCRi|
|000013a0| 67 68 74 20 43 0d 62 69 | 6e 64 20 27 5c 7d 27 20 |ght C.bi|nd '\}' |
|000013b0| 3c 73 3e 20 65 6c 65 63 | 74 72 69 63 43 52 69 67 |<s> elec|tricCRig|
|000013c0| 68 74 20 43 2b 2b 0d 0d | 0d 23 20 42 72 61 63 65 |ht C++..|.# Brace|
|000013d0| 20 6f 6e 20 6e 65 77 20 | 6c 69 6e 65 2c 20 69 6d | on new |line, im|
|000013e0| 6d 65 64 69 61 74 65 20 | 63 61 72 72 69 61 67 65 |mediate |carriage|
|000013f0| 20 72 65 74 75 72 6e 2e | 20 57 65 20 64 6f 6e 27 | return.| We don'|
|00001400| 74 20 64 6f 20 6f 75 72 | 20 65 6c 65 63 74 72 69 |t do our| electri|
|00001410| 63 20 73 74 75 66 66 0d | 23 20 69 66 20 77 65 20 |c stuff.|# if we |
|00001420| 61 72 65 20 69 6e 20 74 | 68 65 20 6d 69 64 64 6c |are in t|he middl|
|00001430| 65 20 6f 66 20 61 20 66 | 6f 72 20 73 74 61 74 65 |e of a f|or state|
|00001440| 6d 65 6e 74 2e 0d 70 72 | 6f 63 20 65 6c 65 63 74 |ment..pr|oc elect|
|00001450| 72 69 63 43 53 65 6d 69 | 20 7b 7d 20 7b 0d 09 67 |ricCSemi| {} {..g|
|00001460| 6c 6f 62 61 6c 20 6d 6f | 64 65 0d 09 67 6c 6f 62 |lobal mo|de..glob|
|00001470| 61 6c 20 24 7b 6d 6f 64 | 65 7d 6d 6f 64 65 56 61 |al ${mod|e}modeVa|
|00001480| 72 73 0d 09 64 65 6c 65 | 74 65 54 65 78 74 20 5b |rs..dele|teText [|
|00001490| 67 65 74 50 6f 73 5d 20 | 5b 73 65 6c 45 6e 64 5d |getPos] |[selEnd]|
|000014a0| 0d 09 69 66 20 7b 5b 73 | 65 74 20 24 7b 6d 6f 64 |..if {[s|et ${mod|
|000014b0| 65 7d 6d 6f 64 65 56 61 | 72 73 28 65 6c 65 63 74 |e}modeVa|rs(elect|
|000014c0| 72 69 63 53 65 6d 69 29 | 5d 20 3d 3d 20 22 30 22 |ricSemi)|] == "0"|
|000014d0| 7d 20 74 68 65 6e 20 7b | 0d 09 09 69 6e 73 65 72 |} then {|...inser|
|000014e0| 74 54 65 78 74 20 22 3b | 22 0d 09 09 72 65 74 75 |tText ";|"...retu|
|000014f0| 72 6e 0d 09 7d 0d 09 73 | 65 74 20 70 6f 73 20 5b |rn..}..s|et pos [|
|00001500| 67 65 74 50 6f 73 5d 0d | 09 73 65 74 20 73 74 61 |getPos].|.set sta|
|00001510| 72 74 20 5b 6c 69 6e 65 | 53 74 61 72 74 20 24 70 |rt [line|Start $p|
|00001520| 6f 73 5d 0d 09 73 65 74 | 20 74 65 78 74 20 5b 67 |os]..set| text [g|
|00001530| 65 74 54 65 78 74 20 24 | 73 74 61 72 74 20 24 70 |etText $|start $p|
|00001540| 6f 73 5d 0d 09 0d 09 69 | 66 20 7b 5b 73 74 72 69 |os]....i|f {[stri|
|00001550| 6e 67 20 66 69 72 73 74 | 20 22 66 6f 72 22 20 24 |ng first| "for" $|
|00001560| 74 65 78 74 5d 20 21 3d | 20 22 2d 31 22 7d 20 7b |text] !=| "-1"} {|
|00001570| 0d 09 09 73 65 74 20 6c | 65 66 74 73 20 30 0d 09 |...set l|efts 0..|
|00001580| 09 73 65 74 20 72 69 67 | 68 74 73 20 30 0d 09 09 |.set rig|hts 0...|
|00001590| 73 65 74 20 6c 65 6e 20 | 5b 73 74 72 69 6e 67 20 |set len |[string |
|000015a0| 6c 65 6e 67 74 68 20 24 | 74 65 78 74 5d 0d 09 09 |length $|text]...|
|000015b0| 66 6f 72 20 7b 73 65 74 | 20 69 20 30 7d 20 7b 24 |for {set| i 0} {$|
|000015c0| 69 20 3c 20 24 6c 65 6e | 7d 20 7b 69 6e 63 72 20 |i < $len|} {incr |
|000015d0| 69 7d 20 7b 0d 09 09 09 | 63 61 73 65 20 5b 73 74 |i} {....|case [st|
|000015e0| 72 69 6e 67 20 69 6e 64 | 65 78 20 24 74 65 78 74 |ring ind|ex $text|
|000015f0| 20 24 69 5d 20 69 6e 20 | 7b 0d 09 09 09 09 22 28 | $i] in |{....."(|
|00001600| 22 09 7b 20 69 6e 63 72 | 20 6c 65 66 74 73 20 7d |".{ incr| lefts }|
|00001610| 0d 09 09 09 09 22 29 22 | 09 7b 20 69 6e 63 72 20 |.....")"|.{ incr |
|00001620| 72 69 67 68 74 73 20 7d | 0d 09 09 09 7d 0d 09 09 |rights }|....}...|
|00001630| 7d 0d 09 09 67 6c 6f 62 | 61 6c 20 67 6c 6f 62 73 |}...glob|al globs|
|00001640| 0d 09 09 73 65 74 20 67 | 6c 6f 62 73 20 5b 6c 69 |...set g|lobs [li|
|00001650| 73 74 20 24 6c 65 66 74 | 73 20 24 72 69 67 68 74 |st $left|s $right|
|00001660| 73 20 24 6c 65 6e 5d 0d | 09 09 69 66 20 7b 24 6c |s $len].|..if {$l|
|00001670| 65 66 74 73 20 21 3d 20 | 24 72 69 67 68 74 73 7d |efts != |$rights}|
|00001680| 20 7b 0d 09 09 09 69 6e | 73 65 72 74 54 65 78 74 | {....in|sertText|
|00001690| 20 22 3b 22 0d 09 09 09 | 72 65 74 75 72 6e 0d 09 | ";"....|return..|
|000016a0| 09 7d 0d 09 7d 0d 09 0d | 09 69 6e 73 65 72 74 54 |.}..}...|.insertT|
|000016b0| 65 78 74 20 22 3b 5c 72 | 22 20 5b 69 6e 64 65 6e |ext ";\r|" [inden|
|000016c0| 74 53 74 72 69 6e 67 20 | 24 70 6f 73 5d 0d 7d 0d |tString |$pos].}.|
|000016d0| 62 69 6e 64 20 27 5c 3b | 27 20 65 6c 65 63 74 72 |bind '\;|' electr|
|000016e0| 69 63 43 53 65 6d 69 20 | 43 0d 62 69 6e 64 20 27 |icCSemi |C.bind '|
|000016f0| 5c 3b 27 20 65 6c 65 63 | 74 72 69 63 43 53 65 6d |\;' elec|tricCSem|
|00001700| 69 20 43 2b 2b 0d 0d 0d | 70 72 6f 63 20 6f 72 64 |i C++...|proc ord|
|00001710| 53 65 6d 69 20 7b 7d 20 | 7b 0d 09 69 6e 73 65 72 |Semi {} |{..inser|
|00001720| 74 54 65 78 74 20 7b 3b | 7d 0d 7d 0d 0d 62 69 6e |tText {;|}.}..bin|
|00001730| 64 20 27 5c 3b 27 20 3c | 7a 3e 20 6f 72 64 53 65 |d '\;' <|z> ordSe|
|00001740| 6d 69 0d 0d 0d 70 72 6f | 63 20 63 70 70 43 52 20 |mi...pro|c cppCR |
|00001750| 7b 7d 20 7b 0d 09 69 66 | 20 7b 5b 6c 6f 6f 6b 41 |{} {..if| {[lookA|
|00001760| 74 20 5b 65 78 70 72 20 | 5b 67 65 74 50 6f 73 5d |t [expr |[getPos]|
|00001770| 20 2d 20 31 5d 5d 20 3d | 3d 20 22 3a 22 7d 20 7b | - 1]] =|= ":"} {|
|00001780| 0d 09 09 69 6e 64 65 6e | 74 4c 69 6e 65 0d 09 09 |...inden|tLine...|
|00001790| 65 6e 64 4f 66 4c 69 6e | 65 0d 09 7d 0d 09 63 61 |endOfLin|e..}..ca|
|000017a0| 72 72 69 61 67 65 52 65 | 74 75 72 6e 0d 09 69 6e |rriageRe|turn..in|
|000017b0| 64 65 6e 74 4c 69 6e 65 | 0d 7d 0d 0d 62 69 6e 64 |dentLine|.}..bind|
|000017c0| 20 27 5c 72 27 20 09 63 | 70 70 43 52 20 43 0d 62 | '\r' .c|ppCR C.b|
|000017d0| 69 6e 64 20 27 5c 72 27 | 20 09 63 70 70 43 52 20 |ind '\r'| .cppCR |
|000017e0| 43 2b 2b 0d 09 09 0d 23 | 3d 3d 3d 3d 3d 3d 3d 3d |C++....#|========|
|000017f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001800| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001810| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001820| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001830| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 0d 70 72 6f 63 20 43 |========|..proc C|
|00001840| 4d 61 72 6b 46 69 6c 65 | 20 7b 7d 20 7b 0d 09 67 |MarkFile| {} {..g|
|00001850| 6c 6f 62 61 6c 20 43 6d | 6f 64 65 56 61 72 73 0d |lobal Cm|odeVars.|
|00001860| 09 73 65 74 20 70 6f 73 | 20 30 0d 09 77 68 69 6c |.set pos| 0..whil|
|00001870| 65 20 7b 21 5b 63 61 74 | 63 68 20 7b 73 65 61 72 |e {![cat|ch {sear|
|00001880| 63 68 20 2d 73 20 2d 66 | 20 31 20 2d 72 20 31 20 |ch -s -f| 1 -r 1 |
|00001890| 2d 6d 20 30 20 2d 69 20 | 30 20 24 43 6d 6f 64 65 |-m 0 -i |0 $Cmode|
|000018a0| 56 61 72 73 28 66 75 6e | 63 45 78 70 72 29 20 24 |Vars(fun|cExpr) $|
|000018b0| 70 6f 73 7d 20 72 65 73 | 5d 7d 20 7b 0d 09 09 73 |pos} res|]} {...s|
|000018c0| 65 74 20 73 74 61 72 74 | 20 5b 6c 69 6e 64 65 78 |et start| [lindex|
|000018d0| 20 24 72 65 73 20 30 5d | 0d 09 09 73 65 74 20 65 | $res 0]|...set e|
|000018e0| 6e 64 20 5b 65 78 70 72 | 20 5b 6c 69 6e 64 65 78 |nd [expr| [lindex|
|000018f0| 20 24 72 65 73 20 31 5d | 20 2b 20 31 5d 0d 09 09 | $res 1]| + 1]...|
|00001900| 73 65 74 20 74 65 78 74 | 20 5b 67 65 74 54 65 78 |set text| [getTex|
|00001910| 74 20 24 73 74 61 72 74 | 20 24 65 6e 64 5d 0d 09 |t $start| $end]..|
|00001920| 09 69 66 20 7b 5b 72 65 | 67 65 78 70 20 7b 28 5b |.if {[re|gexp {([|
|00001930| 61 2d 7a 41 2d 5a 30 2d | 39 3a 5f 5d 2b 29 5b 20 |a-zA-Z0-|9:_]+)[ |
|00001940| 5c 74 5d 2a 5c 28 7d 20 | 24 74 65 78 74 20 64 75 |\t]*\(} |$text du|
|00001950| 6d 6d 79 20 77 6f 72 64 | 5d 7d 20 7b 0d 09 09 09 |mmy word|]} {....|
|00001960| 73 65 74 20 74 6d 70 20 | 5b 65 78 70 72 20 24 73 |set tmp |[expr $s|
|00001970| 74 61 72 74 20 2b 20 5b | 73 74 72 69 6e 67 20 66 |tart + [|string f|
|00001980| 69 72 73 74 20 24 77 6f | 72 64 20 24 74 65 78 74 |irst $wo|rd $text|
|00001990| 5d 5d 0d 09 09 09 73 65 | 74 20 69 6e 64 73 28 24 |]]....se|t inds($|
|000019a0| 77 6f 72 64 29 20 22 24 | 74 6d 70 20 5b 65 78 70 |word) "$|tmp [exp|
|000019b0| 72 20 24 74 6d 70 20 2b | 20 5b 73 74 72 69 6e 67 |r $tmp +| [string|
|000019c0| 20 6c 65 6e 67 74 68 20 | 24 77 6f 72 64 5d 5d 22 | length |$word]]"|
|000019d0| 0d 09 09 7d 0d 09 09 73 | 65 74 20 70 6f 73 20 24 |...}...s|et pos $|
|000019e0| 65 6e 64 0d 09 7d 0d 09 | 69 66 20 7b 5b 69 6e 66 |end..}..|if {[inf|
|000019f0| 6f 20 65 78 69 73 74 73 | 20 69 6e 64 73 5d 7d 20 |o exists| inds]} |
|00001a00| 7b 0d 09 09 66 6f 72 65 | 61 63 68 20 66 20 5b 6c |{...fore|ach f [l|
|00001a10| 73 6f 72 74 20 2d 69 67 | 6e 6f 72 65 20 5b 61 72 |sort -ig|nore [ar|
|00001a20| 72 61 79 20 6e 61 6d 65 | 73 20 69 6e 64 73 5d 5d |ray name|s inds]]|
|00001a30| 20 7b 0d 09 09 09 73 65 | 74 20 72 65 73 20 24 69 | {....se|t res $i|
|00001a40| 6e 64 73 28 24 66 29 0d | 09 09 09 73 65 74 4e 61 |nds($f).|...setNa|
|00001a50| 6d 65 64 4d 61 72 6b 20 | 24 66 20 5b 6c 69 6e 65 |medMark |$f [line|
|00001a60| 53 74 61 72 74 20 5b 6c | 69 6e 64 65 78 20 24 72 |Start [l|index $r|
|00001a70| 65 73 20 30 5d 5d 20 5b | 6c 69 6e 64 65 78 20 24 |es 0]] [|lindex $|
|00001a80| 72 65 73 20 30 5d 20 5b | 6c 69 6e 64 65 78 20 24 |res 0] [|lindex $|
|00001a90| 72 65 73 20 31 5d 0d 09 | 09 7d 0d 09 7d 0d 7d 0d |res 1]..|.}..}.}.|
|00001aa0| 0d 09 0d 23 54 68 65 20 | 70 72 65 76 69 6f 75 73 |...#The |previous|
|00001ab0| 20 76 65 72 73 69 6f 6e | 20 77 6f 75 6c 64 20 6e | version| would n|
|00001ac0| 6f 74 20 66 69 6e 64 20 | 74 68 69 6e 67 73 20 6c |ot find |things l|
|00001ad0| 69 6b 65 20 20 20 20 20 | 76 6f 69 64 09 2a 54 68 |ike     |void.*Th|
|00001ae0| 69 73 46 75 6e 63 28 20 | 78 78 78 20 29 20 64 75 |isFunc( |xxx ) du|
|00001af0| 65 20 74 6f 20 74 68 65 | 20 61 73 74 65 72 69 73 |e to the| asteris|
|00001b00| 6b 0d 23 49 20 61 6c 73 | 6f 20 74 72 75 6e 63 61 |k.#I als|o trunca|
|00001b10| 74 65 64 20 74 68 65 20 | 70 61 74 74 65 72 6e 2e |ted the |pattern.|
|00001b20| 20 20 54 68 65 20 72 65 | 73 74 20 69 73 20 6e 6f |  The re|st is no|
|00001b30| 74 20 6e 65 63 65 73 73 | 61 72 79 20 61 6e 64 20 |t necess|ary and |
|00001b40| 69 6e 74 72 75 73 69 76 | 65 20 61 73 20 66 61 72 |intrusiv|e as far|
|00001b50| 20 61 73 20 49 20 63 61 | 6e 20 74 65 6c 6c 20 20 | as I ca|n tell  |
|00001b60| 20 0d 70 72 6f 63 20 43 | 2b 2b 4d 61 72 6b 46 69 | .proc C|++MarkFi|
|00001b70| 6c 65 20 7b 7d 20 7b 0d | 09 73 65 74 20 70 6f 73 |le {} {.|.set pos|
|00001b80| 20 30 0d 09 77 68 69 6c | 65 20 7b 21 5b 63 61 74 | 0..whil|e {![cat|
|00001b90| 63 68 20 7b 73 65 61 72 | 63 68 20 2d 73 20 2d 66 |ch {sear|ch -s -f|
|00001ba0| 20 31 20 2d 72 20 31 20 | 2d 6d 20 30 20 2d 69 20 | 1 -r 1 |-m 0 -i |
|00001bb0| 30 20 7b 5e 28 5b 5e 20 | 5c 74 5c 28 23 5c 72 2f |0 {^([^ |\t\(#\r/|
|00001bc0| 40 5d 2e 2a 5b 20 5c 74 | 5d 2b 29 3f 5c 2a 3f 28 |@].*[ \t|]+)?\*?(|
|00001bd0| 5b 41 2d 5a 61 2d 7a 30 | 2d 39 3a 7e 5f 5d 2b 29 |[A-Za-z0|-9:~_]+)|
|00001be0| 5b 20 5c 74 5c 72 5d 2a | 5c 28 7d 20 24 70 6f 73 |[ \t\r]*|\(} $pos|
|00001bf0| 7d 20 72 65 73 5d 7d 20 | 7b 0d 09 09 73 65 74 20 |} res]} |{...set |
|00001c00| 73 74 61 72 74 20 5b 6c | 69 6e 64 65 78 20 24 72 |start [l|index $r|
|00001c10| 65 73 20 30 5d 0d 09 09 | 73 65 74 20 65 6e 64 20 |es 0]...|set end |
|00001c20| 5b 65 78 70 72 20 5b 6c | 69 6e 64 65 78 20 24 72 |[expr [l|index $r|
|00001c30| 65 73 20 31 5d 20 2b 20 | 31 5d 0d 09 09 73 65 74 |es 1] + |1]...set|
|00001c40| 20 74 68 69 73 74 65 78 | 74 20 5b 67 65 74 54 65 | thistex|t [getTe|
|00001c50| 78 74 20 24 73 74 61 72 | 74 20 24 65 6e 64 5d 0d |xt $star|t $end].|
|00001c60| 09 09 23 72 65 67 65 78 | 70 20 64 6f 65 73 6e 27 |..#regex|p doesn'|
|00001c70| 74 20 6c 69 6b 65 20 63 | 61 72 72 69 61 67 65 20 |t like c|arriage |
|00001c80| 72 65 74 75 72 6e 73 0d | 09 09 72 65 67 73 75 62 |returns.|..regsub|
|00001c90| 20 2d 61 6c 6c 20 22 5c | 72 22 20 24 74 68 69 73 | -all "\|r" $this|
|00001ca0| 74 65 78 74 20 22 20 22 | 20 74 68 69 73 74 65 78 |text " "| thistex|
|00001cb0| 74 0d 09 09 23 72 65 67 | 65 78 70 20 64 6f 65 73 |t...#reg|exp does|
|00001cc0| 6e 27 74 20 6c 69 6b 65 | 20 74 61 62 73 20 65 69 |n't like| tabs ei|
|00001cd0| 74 68 65 72 0d 09 09 72 | 65 67 73 75 62 20 2d 61 |ther...r|egsub -a|
|00001ce0| 6c 6c 20 22 5c 74 22 20 | 24 74 68 69 73 74 65 78 |ll "\t" |$thistex|
|00001cf0| 74 20 22 20 22 20 74 68 | 69 73 74 65 78 74 0d 09 |t " " th|istext..|
|00001d00| 09 23 69 66 20 74 68 65 | 20 6f 70 65 6e 20 70 61 |.#if the| open pa|
|00001d10| 72 65 6e 20 77 61 73 20 | 74 68 65 20 6c 61 73 74 |ren was |the last|
|00001d20| 20 63 68 61 72 61 63 74 | 65 72 20 6f 6e 20 74 68 | charact|er on th|
|00001d30| 65 20 6c 69 6e 65 20 74 | 68 65 20 73 65 6c 65 63 |e line t|he selec|
|00001d40| 74 65 64 20 74 65 78 74 | 20 69 6e 63 6c 75 64 65 |ted text| include|
|00001d50| 64 20 74 68 65 20 6c 61 | 73 74 20 63 61 72 72 69 |d the la|st carri|
|00001d60| 61 67 65 20 72 65 74 75 | 72 6e 20 61 73 20 77 65 |age retu|rn as we|
|00001d70| 6c 6c 0d 09 09 23 74 72 | 69 6d 20 74 68 69 73 20 |ll...#tr|im this |
|00001d80| 6f 66 66 20 6e 6f 77 20 | 74 68 61 74 20 69 74 20 |off now |that it |
|00001d90| 69 73 20 63 68 61 6e 67 | 65 64 20 69 6e 74 6f 20 |is chang|ed into |
|00001da0| 61 20 73 70 61 63 65 0d | 09 09 73 65 74 20 74 68 |a space.|..set th|
|00001db0| 69 73 74 65 78 74 20 5b | 73 74 72 69 6e 67 20 74 |istext [|string t|
|00001dc0| 72 69 6d 72 69 67 68 74 | 20 24 74 68 69 73 74 65 |rimright| $thiste|
|00001dd0| 78 74 5d 0d 09 09 69 66 | 20 7b 5b 72 65 67 65 78 |xt]...if| {[regex|
|00001de0| 70 20 7b 28 5b 61 2d 7a | 41 2d 5a 30 2d 39 3a 7e |p {([a-z|A-Z0-9:~|
|00001df0| 5f 5d 2b 29 5b 20 5c 74 | 5d 2a 5c 28 7d 20 24 74 |_]+)[ \t|]*\(} $t|
|00001e00| 68 69 73 74 65 78 74 20 | 64 75 6d 6d 79 20 77 6f |histext |dummy wo|
|00001e10| 72 64 5d 7d 20 7b 0d 09 | 09 09 73 65 74 20 69 6e |rd]} {..|..set in|
|00001e20| 64 73 28 24 77 6f 72 64 | 29 20 5b 6c 69 6e 65 53 |ds($word|) [lineS|
|00001e30| 74 61 72 74 20 5b 65 78 | 70 72 20 24 73 74 61 72 |tart [ex|pr $star|
|00001e40| 74 20 2d 20 31 5d 5d 0d | 09 09 7d 0d 09 09 73 65 |t - 1]].|..}...se|
|00001e50| 74 20 70 6f 73 20 24 65 | 6e 64 0d 09 7d 0d 09 69 |t pos $e|nd..}..i|
|00001e60| 66 20 7b 5b 69 6e 66 6f | 20 65 78 69 73 74 73 20 |f {[info| exists |
|00001e70| 69 6e 64 73 5d 7d 20 7b | 0d 09 09 66 6f 72 65 61 |inds]} {|...forea|
|00001e80| 63 68 20 66 20 5b 6c 73 | 6f 72 74 20 2d 69 67 6e |ch f [ls|ort -ign|
|00001e90| 6f 72 65 20 5b 61 72 72 | 61 79 20 6e 61 6d 65 73 |ore [arr|ay names|
|00001ea0| 20 69 6e 64 73 5d 5d 20 | 7b 0d 09 09 09 73 65 74 | inds]] |{....set|
|00001eb0| 20 6e 65 78 74 20 5b 6e | 65 78 74 4c 69 6e 65 53 | next [n|extLineS|
|00001ec0| 74 61 72 74 20 24 69 6e | 64 73 28 24 66 29 5d 0d |tart $in|ds($f)].|
|00001ed0| 09 09 09 73 65 74 4e 61 | 6d 65 64 4d 61 72 6b 20 |...setNa|medMark |
|00001ee0| 24 66 20 24 69 6e 64 73 | 28 24 66 29 20 24 6e 65 |$f $inds|($f) $ne|
|00001ef0| 78 74 20 24 6e 65 78 74 | 0d 09 09 7d 0d 09 7d 0d |xt $next|...}..}.|
|00001f00| 7d 0d 0d 09 0d 70 72 6f | 63 20 73 65 74 43 2b 2b |}....pro|c setC++|
|00001f10| 4d 6f 64 65 20 7b 7d 20 | 7b 0d 09 63 68 61 6e 67 |Mode {} |{..chang|
|00001f20| 65 4d 6f 64 65 20 22 43 | 2b 2b 22 0d 7d 0d 0d 0d |eMode "C|++".}...|
|00001f30| 0d 73 6f 75 72 63 65 20 | 22 24 48 4f 4d 45 3a 54 |.source |"$HOME:T|
|00001f40| 63 6c 3a 53 79 73 74 65 | 6d 43 6f 64 65 3a 74 68 |cl:Syste|mCode:th|
|00001f50| 69 6e 6b 2e 74 63 6c 22 | 0d 0d 70 72 6f 63 20 64 |ink.tcl"|..proc d|
|00001f60| 75 6d 6d 79 43 20 7b 7d | 20 7b 7d 0d 70 72 6f 63 |ummyC {}| {}.proc|
|00001f70| 20 64 75 6d 6d 79 43 2b | 2b 20 7b 7d 20 7b 7d 0d | dummyC+|+ {} {}.|
|00001f80| 0d 0d 23 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |..#=====|========|
|00001f90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001fa0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001fb0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001fc0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001fd0| 3d 3d 0d 0d 70 72 6f 63 | 20 43 44 62 6c 43 6c 69 |==..proc| CDblCli|
|00001fe0| 63 6b 20 7b 66 72 6f 6d | 20 74 6f 7d 20 7b 0d 09 |ck {from| to} {..|
|00001ff0| 67 6c 6f 62 61 6c 20 74 | 61 67 46 69 6c 65 0d 09 |global t|agFile..|
|00002000| 0d 09 73 65 6c 65 63 74 | 20 24 66 72 6f 6d 20 24 |..select| $from $|
|00002010| 74 6f 0d 09 73 65 74 20 | 74 65 78 74 20 5b 67 65 |to..set |text [ge|
|00002020| 74 53 65 6c 65 63 74 5d | 0d 09 0d 09 73 65 74 20 |tSelect]|....set |
|00002030| 6c 69 6e 65 73 20 5b 67 | 72 65 70 20 22 5e 24 74 |lines [g|rep "^$t|
|00002040| 65 78 74 27 22 20 24 74 | 61 67 46 69 6c 65 5d 0d |ext'" $t|agFile].|
|00002050| 09 69 66 20 7b 5b 72 65 | 67 65 78 70 20 7b 27 28 |.if {[re|gexp {'(|
|00002060| 2e 2a 29 27 28 2e 2a 5b | 5e 5c 74 5d 29 28 5c 74 |.*)'(.*[|^\t])(\t|
|00002070| 29 2b b0 7d 20 24 6c 69 | 6e 65 73 20 64 75 6d 6d |)+.} $li|nes dumm|
|00002080| 79 20 6f 6e 65 20 74 77 | 6f 5d 7d 20 7b 0d 09 09 |y one tw|o]} {...|
|00002090| 69 66 20 7b 5b 73 74 72 | 69 6e 67 20 6d 61 74 63 |if {[str|ing matc|
|000020a0| 68 20 22 2a 24 6f 6e 65 | 2a 22 20 5b 77 69 6e 4e |h "*$one|*" [winN|
|000020b0| 61 6d 65 73 20 2d 66 5d | 5d 7d 20 7b 0d 09 09 09 |ames -f]|]} {....|
|000020c0| 62 72 69 6e 67 54 6f 46 | 72 6f 6e 74 20 24 6f 6e |bringToF|ront $on|
|000020d0| 65 0d 09 09 7d 20 65 6c | 73 65 20 7b 0d 09 09 09 |e...} el|se {....|
|000020e0| 65 64 69 74 20 24 6f 6e | 65 0d 09 09 7d 0d 09 09 |edit $on|e...}...|
|000020f0| 73 65 74 20 69 6e 64 73 | 20 5b 73 65 61 72 63 68 |set inds| [search|
|00002100| 20 2d 66 20 31 20 2d 72 | 20 30 20 22 24 74 77 6f | -f 1 -r| 0 "$two|
|00002110| 22 20 30 5d 0d 09 09 64 | 69 73 70 6c 61 79 20 5b |" 0]...d|isplay [|
|00002120| 6c 69 6e 64 65 78 20 24 | 69 6e 64 73 20 30 5d 0d |lindex $|inds 0].|
|00002130| 09 09 65 76 61 6c 20 73 | 65 6c 65 63 74 20 24 69 |..eval s|elect $i|
|00002140| 6e 64 73 0d 09 7d 20 65 | 6c 73 65 20 7b 0d 09 09 |nds..} e|lse {...|
|00002150| 63 68 65 63 6b 52 75 6e | 6e 69 6e 67 20 54 68 69 |checkRun|ning Thi|
|00002160| 6e 6b 52 65 66 65 72 65 | 6e 63 65 20 44 61 6e 52 |nkRefere|nce DanR|
|00002170| 20 72 65 66 65 72 65 6e | 63 65 50 61 74 68 0d 09 | referen|cePath..|
|00002180| 09 41 45 42 75 69 6c 64 | 20 7b 27 44 61 6e 52 27 |.AEBuild| {'DanR'|
|00002190| 7d 20 44 61 6e 52 20 7b | 52 45 46 20 7d 20 22 2d |} DanR {|REF } "-|
|000021a0| 2d 2d 2d 22 20 22 d2 24 | 74 65 78 74 d3 22 0d 09 |---" ".$|text."..|
|000021b0| 7d 0d 7d 0d 0d 00 00 00 | 00 00 00 00 00 00 00 00 |}.}.....|........|
|000021c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002200| 00 00 01 00 00 00 02 2a | 00 00 01 2a 00 00 00 42 |.......*|...*...B|
|00002210| 61 6e 64 20 fd 00 16 31 | 30 30 20 65 6e 67 69 6e |and ...1|00 engin|
|00002220| 65 20 62 75 67 73 20 68 | 61 76 65 20 62 65 65 6e |e bugs h|ave been|
|00002230| 05 63 2e 74 63 6c 02 00 | 02 00 54 45 58 54 41 4c |.c.tcl..|..TEXTAL|
|00002240| 46 41 01 00 00 00 00 80 | 00 00 00 01 05 ea 00 00 |FA......|........|
|00002250| 02 00 54 45 58 54 41 4c | 46 41 01 00 00 00 00 80 |..TEXTAL|FA......|
|00002260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002270| 00 00 aa 24 c9 cf 00 00 | 21 35 00 00 02 6c 65 20 |...$....|!5...le |
|00002280| 61 72 65 30 00 00 02 d8 | 00 16 00 4f 74 68 69 6e |are0....|...Othin|
|00002290| 6b 69 6e 67 20 74 68 61 | 74 20 74 68 65 72 65 20 |king tha|t there |
|000022a0| 61 72 65 20 6e 6f 74 20 | 74 6f 6f 20 6d 61 6e 79 |are not |too many|
|000022b0| 20 6c 65 66 74 2e 20 53 | 69 6e 63 65 20 77 65 20 | left. S|ince we |
|000022c0| 70 6c 61 6e 20 6f 6e 20 | 73 68 69 70 70 69 6e 67 |plan on |shipping|
|000022d0| 20 52 45 41 4c 20 53 4f | 4f 4e 2c 30 00 00 02 e5 | REAL SO|ON,0....|
|000022e0| 00 16 00 55 70 6c 65 61 | 73 65 20 67 65 74 20 61 |...Uplea|se get a|
|000022f0| 6e 79 20 62 75 67 20 72 | 65 70 6f 72 74 73 20 69 |ny bug r|eports i|
|00002300| 00 00 00 da 00 0b 00 00 | 1b 02 00 00 1b 02 0b 43 |........|.......C|
|00002310| 2b 2b 4d 61 72 6b 46 69 | 6c 65 00 00 1f 74 00 00 |++MarkFi|le...t..|
|00002320| 1f 74 09 43 44 62 6c 43 | 6c 69 63 6b 00 00 17 da |.t.CDblC|lick....|
|00002330| 00 00 17 da 09 43 4d 61 | 72 6b 46 69 6c 65 00 00 |.....CMa|rkFile..|
|00002340| 1e fa 00 00 1e fa 07 64 | 75 6d 6d 79 43 00 00 00 |.......d|ummyC...|
|00002350| 1f 0c 00 00 1f 0c 09 64 | 75 6d 6d 79 43 2b 2b 00 |.......d|ummyC++.|
|00002360| 00 00 0b 73 00 00 0b 73 | 0d 65 6c 65 63 74 72 69 |...s...s|.electri|
|00002370| 63 43 4c 65 66 74 00 00 | 10 22 00 00 10 22 0f 65 |cCLeft..|."...".e|
|00002380| 6c 65 63 74 72 69 63 43 | 52 69 67 68 74 00 00 00 |lectricC|Right...|
|00002390| 13 f3 00 00 13 f3 0d 65 | 6c 65 63 74 72 69 63 43 |.......e|lectricC|
|000023a0| 53 65 6d 69 00 00 09 e4 | 00 00 09 e4 0d 69 6e 64 |Semi....|.....ind|
|000023b0| 65 6e 74 53 74 72 69 6e | 67 00 00 00 16 a8 00 00 |entStrin|g.......|
|000023c0| 16 a8 07 6f 72 64 53 65 | 6d 69 00 00 1e a5 00 00 |...ordSe|mi......|
|000023d0| 1e a5 0b 73 65 74 43 2b | 2b 4d 6f 64 65 00 00 00 |...setC+|+Mode...|
|000023e0| 00 48 00 09 4d 6f 6e 61 | 63 6f 00 00 74 80 00 00 |.H..Mona|co..t...|
|000023f0| 17 24 00 f8 fd 8c 01 17 | a2 e0 24 00 04 44 01 60 |.$......|..$..D.`|
|00002400| ad 00 ff fc 00 04 00 04 | 00 28 01 90 02 5c 03 1a |........|.(...\..|
|00002410| 00 28 01 90 02 5c 03 1a | ac 2c 8c e7 00 00 21 01 |.(...\..|.,....!.|
|00002420| 00 00 21 04 00 00 1d 97 | 01 00 00 00 01 00 00 00 |..!.....|........|
|00002430| 02 2a 00 00 01 2a 00 00 | 00 42 00 f7 73 08 17 24 |.*...*..|.B..s..$|
|00002440| 00 00 00 1c 00 3e 00 00 | 4d 50 53 52 00 01 00 0a |.....>..|MPSR....|
|00002450| 03 ef 00 00 00 00 00 00 | 00 00 00 00 03 ed ff ff |........|........|
|00002460| 00 00 00 de 01 00 75 90 | 03 74 61 62 00 00 00 00 |......u.|.tab....|
|00002470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+