/ Mac Power 1997 January / macpower199701.bin / AMUG / Publishing_19 / Alpha 6.5.sit / Tcl / Modes / cMode.tcl

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 63 4d 6f 64 65 2e | 74 63 6c 00 00 00 00 00 |..cMode.|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 2b b7 00 | 00 01 7e ae 3e 06 8e ae |.....+..|..~.>...|
|00000060| 3e 06 8e 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 2a cc 00 00 |........|....*...|
|00000080| 23 20 6e 6f 77 72 61 70 | 0d 0d 69 66 20 7b 24 73 |# nowrap|..if {$s|
|00000090| 74 61 72 74 69 6e 67 55 | 70 7d 20 7b 0d 09 61 64 |tartingU|p} {..ad|
|000000a0| 64 4d 6f 64 65 20 43 20 | 64 75 6d 6d 79 43 20 7b |dMode C |dummyC {|
|000000b0| 20 2a 2e 72 20 7d 20 7b | 63 77 61 72 72 69 6f 72 | *.r } {|cwarrior|
|000000c0| 4d 65 6e 75 20 74 68 69 | 6e 6b 52 65 66 4d 65 6e |Menu thi|nkRefMen|
|000000d0| 75 7d 0d 09 61 64 64 4d | 6f 64 65 20 43 2b 2b 20 |u}..addM|ode C++ |
|000000e0| 64 75 6d 6d 79 43 2b 2b | 20 7b 2a 2e 48 20 2a 2e |dummyC++| {*.H *.|
|000000f0| 63 20 2a 2e 68 20 2a 2e | 63 63 20 2a 2e 63 70 20 |c *.h *.|cc *.cp |
|00000100| 2a 2e 63 70 70 20 2a 2e | 43 50 50 20 2a 2e 43 20 |*.cpp *.|CPP *.C |
|00000110| 7d 20 7b 20 63 77 61 72 | 72 69 6f 72 4d 65 6e 75 |} { cwar|riorMenu|
|00000120| 20 74 68 69 6e 6b 52 65 | 66 4d 65 6e 75 7d 0d 09 | thinkRe|fMenu}..|
|00000130| 72 65 74 75 72 6e 0d 7d | 0d 0d 0d 6e 65 77 4d 6f |return.}|...newMo|
|00000140| 64 65 56 61 72 20 43 20 | 65 6c 65 63 43 6f 6c 6f |deVar C |elecColo|
|00000150| 6e 20 7b 31 7d 20 31 0d | 6e 65 77 4d 6f 64 65 56 |n {1} 1.|newModeV|
|00000160| 61 72 20 43 20 65 6c 65 | 63 52 42 72 61 63 65 20 |ar C ele|cRBrace |
|00000170| 7b 31 7d 20 31 0d 6e 65 | 77 4d 6f 64 65 56 61 72 |{1} 1.ne|wModeVar|
|00000180| 20 43 20 6c 65 66 74 46 | 69 6c 6c 43 6f 6c 75 6d | C leftF|illColum|
|00000190| 6e 20 7b 33 7d 20 30 0d | 6e 65 77 4d 6f 64 65 56 |n {3} 0.|newModeV|
|000001a0| 61 72 20 43 20 70 72 65 | 66 69 78 53 74 72 69 6e |ar C pre|fixStrin|
|000001b0| 67 20 7b 2f 2f 7d 20 30 | 20 0d 6e 65 77 4d 6f 64 |g {//} 0| .newMod|
|000001c0| 65 56 61 72 20 43 20 65 | 6c 65 63 74 72 69 63 53 |eVar C e|lectricS|
|000001d0| 65 6d 69 20 7b 31 7d 20 | 31 0d 6e 65 77 4d 6f 64 |emi {1} |1.newMod|
|000001e0| 65 56 61 72 20 43 20 65 | 6c 65 63 4c 42 72 61 63 |eVar C e|lecLBrac|
|000001f0| 65 20 7b 31 7d 20 31 0d | 6e 65 77 4d 6f 64 65 56 |e {1} 1.|newModeV|
|00000200| 61 72 20 43 20 65 6c 65 | 63 45 6c 73 65 20 7b 31 |ar C ele|cElse {1|
|00000210| 7d 20 31 0d 6e 65 77 4d | 6f 64 65 56 61 72 20 43 |} 1.newM|odeVar C|
|00000220| 20 77 6f 72 64 57 72 61 | 70 20 7b 30 7d 20 31 0d | wordWra|p {0} 1.|
|00000230| 6e 65 77 4d 6f 64 65 56 | 61 72 20 43 20 66 75 6e |newModeV|ar C fun|
|00000240| 63 45 78 70 72 20 7b 5e | 5b 5e 20 5c 74 5c 28 23 |cExpr {^|[^ \t\(#|
|00000250| 5c 72 2f 40 5d 2e 2a 5c | 28 2e 2a 5c 29 24 7d 20 |\r/@].*\|(.*\)$} |
|00000260| 30 0d 6e 65 77 4d 6f 64 | 65 56 61 72 20 43 20 70 |0.newMod|eVar C p|
|00000270| 61 72 73 65 45 78 70 72 | 20 7b 5c 62 28 5b 5f 3a |arseExpr| {\b([_:|
|00000280| 5c 77 5d 2b 29 5c 73 2a | 5c 28 7d 20 30 0d 6e 65 |\w]+)\s*|\(} 0.ne|
|00000290| 77 4d 6f 64 65 56 61 72 | 20 43 20 77 6f 72 64 42 |wModeVar| C wordB|
|000002a0| 72 65 61 6b 20 7b 5b 5f | 5c 77 5d 2b 7d 20 30 0d |reak {[_|\w]+} 0.|
|000002b0| 6e 65 77 4d 6f 64 65 56 | 61 72 20 43 20 77 6f 72 |newModeV|ar C wor|
|000002c0| 64 42 72 65 61 6b 50 72 | 65 66 61 63 65 20 7b 5b |dBreakPr|eface {[|
|000002d0| 5e 5f 5c 77 5d 7d 20 30 | 0d 6e 65 77 4d 6f 64 65 |^_\w]} 0|.newMode|
|000002e0| 56 61 72 20 43 20 65 6c | 65 63 74 72 69 63 54 61 |Var C el|ectricTa|
|000002f0| 62 20 7b 31 7d 20 31 0d | 6e 65 77 4d 6f 64 65 56 |b {1} 1.|newModeV|
|00000300| 61 72 20 43 20 61 75 74 | 6f 4d 61 72 6b 09 30 09 |ar C aut|oMark.0.|
|00000310| 31 0d 6e 65 77 4d 6f 64 | 65 56 61 72 20 43 20 73 |1.newMod|eVar C s|
|00000320| 74 72 69 6e 67 43 6f 6c | 6f 72 09 67 72 65 65 6e |tringCol|or.green|
|00000330| 09 30 0d 6e 65 77 4d 6f | 64 65 56 61 72 20 43 20 |.0.newMo|deVar C |
|00000340| 63 6f 6d 6d 65 6e 74 43 | 6f 6c 6f 72 09 72 65 64 |commentC|olor.red|
|00000350| 09 30 0d 6e 65 77 4d 6f | 64 65 56 61 72 20 43 20 |.0.newMo|deVar C |
|00000360| 66 75 6e 63 43 6f 6c 6f | 72 09 09 79 65 6c 6c 6f |funcColo|r..yello|
|00000370| 77 09 30 0d 6e 65 77 4d | 6f 64 65 56 61 72 20 43 |w.0.newM|odeVar C|
|00000380| 20 6b 65 79 77 6f 72 64 | 43 6f 6c 6f 72 09 62 6c | keyword|Color.bl|
|00000390| 75 65 09 30 0d 6e 65 77 | 4d 6f 64 65 56 61 72 20 |ue.0.new|ModeVar |
|000003a0| 43 20 43 57 43 6f 6d 70 | 53 69 67 09 43 57 49 45 |C CWComp|Sig.CWIE|
|000003b0| 09 30 0d 6e 65 77 4d 6f | 64 65 56 61 72 20 43 20 |.0.newMo|deVar C |
|000003c0| 43 57 44 62 67 53 69 67 | 09 4d 57 44 42 09 30 0d |CWDbgSig|.MWDB.0.|
|000003d0| 6e 65 77 4d 6f 64 65 56 | 61 72 20 43 20 53 79 6d |newModeV|ar C Sym|
|000003e0| 43 6f 6d 70 53 69 67 09 | 4b 41 48 4c 09 30 0d 6e |CompSig.|KAHL.0.n|
|000003f0| 65 77 4d 6f 64 65 56 61 | 72 20 43 20 53 79 6d 44 |ewModeVa|r C SymD|
|00000400| 62 67 53 69 67 09 7b d7 | 4c 53 44 7d 09 30 0d 0d |bgSig.{.|LSD}.0..|
|00000410| 73 65 74 20 63 43 6f 6d | 6d 65 6e 74 52 65 67 65 |set cCom|mentRege|
|00000420| 78 70 09 7b 2f 5c 2a 28 | 28 5b 5e 2a 5d 2f 29 7c |xp.{/\*(|([^*]/)||
|00000430| 5b 5e 2a 5d 7c 5c 72 29 | 2a 5c 2a 2f 7d 0d 73 65 |[^*]|\r)|*\*/}.se|
|00000440| 74 20 63 50 72 65 52 65 | 67 65 78 70 09 09 7b 5e |t cPreRe|gexp..{^|
|00000450| 5c 23 5b 5c 74 20 5d 2a | 5b 61 2d 7a 5d 2a 7d 0d |\#[\t ]*|[a-z]*}.|
|00000460| 73 65 74 09 63 4b 65 79 | 57 6f 72 64 73 09 7b 0d |set.cKey|Words.{.|
|00000470| 09 76 6f 69 64 20 62 72 | 65 61 6b 20 72 65 67 69 |.void br|eak regi|
|00000480| 73 74 65 72 20 73 68 6f | 72 74 20 65 6e 75 6d 20 |ster sho|rt enum |
|00000490| 65 78 74 65 72 6e 20 69 | 6e 74 20 66 6f 72 20 69 |extern i|nt for i|
|000004a0| 66 20 77 68 69 6c 65 20 | 73 74 72 75 63 74 20 73 |f while |struct s|
|000004b0| 74 61 74 69 63 20 6c 6f | 6e 67 20 63 6f 6e 74 69 |tatic lo|ng conti|
|000004c0| 6e 75 65 0d 09 73 77 69 | 74 63 68 20 63 61 73 65 |nue..swi|tch case|
|000004d0| 20 63 68 61 72 20 75 6e | 73 69 67 6e 65 64 20 64 | char un|signed d|
|000004e0| 6f 75 62 6c 65 20 66 6c | 6f 61 74 20 72 65 74 75 |ouble fl|oat retu|
|000004f0| 72 6e 20 65 6c 73 65 20 | 64 65 66 61 75 6c 74 20 |rn else |default |
|00000500| 67 6f 74 6f 20 64 6f 20 | 70 61 73 63 61 6c 20 42 |goto do |pascal B|
|00000510| 6f 6f 6c 65 61 6e 0d 09 | 74 79 70 65 64 65 66 20 |oolean..|typedef |
|00000520| 76 6f 6c 61 74 69 6c 65 | 20 75 6e 69 6f 6e 20 61 |volatile| union a|
|00000530| 75 74 6f 20 73 69 7a 65 | 6f 66 20 73 69 7a 65 5f |uto size|of size_|
|00000540| 74 0d 7d 0d 69 66 20 7b | 5b 69 6e 66 6f 20 65 78 |t.}.if {|[info ex|
|00000550| 69 73 74 73 20 43 77 6f | 72 64 73 5d 7d 20 7b 73 |ists Cwo|rds]} {s|
|00000560| 65 74 20 63 4b 65 79 57 | 6f 72 64 73 20 5b 63 6f |et cKeyW|ords [co|
|00000570| 6e 63 61 74 20 24 63 4b | 65 79 57 6f 72 64 73 20 |ncat $cK|eyWords |
|00000580| 24 43 77 6f 72 64 73 5d | 7d 0d 72 65 67 4d 6f 64 |$Cwords]|}.regMod|
|00000590| 65 4b 65 79 77 6f 72 64 | 73 20 2d 65 20 7b 2f 2f |eKeyword|s -e {//|
|000005a0| 7d 20 2d 62 20 7b 2f 2a | 7d 20 7b 2a 2f 7d 20 2d |} -b {/*|} {*/} -|
|000005b0| 63 20 24 43 6d 6f 64 65 | 56 61 72 73 28 63 6f 6d |c $Cmode|Vars(com|
|000005c0| 6d 65 6e 74 43 6f 6c 6f | 72 29 20 2d 66 20 24 43 |mentColo|r) -f $C|
|000005d0| 6d 6f 64 65 56 61 72 73 | 28 66 75 6e 63 43 6f 6c |modeVars|(funcCol|
|000005e0| 6f 72 29 20 2d 6b 20 24 | 43 6d 6f 64 65 56 61 72 |or) -k $|CmodeVar|
|000005f0| 73 28 6b 65 79 77 6f 72 | 64 43 6f 6c 6f 72 29 20 |s(keywor|dColor) |
|00000600| 2d 73 20 24 43 6d 6f 64 | 65 56 61 72 73 28 73 74 |-s $Cmod|eVars(st|
|00000610| 72 69 6e 67 43 6f 6c 6f | 72 29 20 2d 6d 20 7b 23 |ringColo|r) -m {#|
|00000620| 7d 20 43 20 24 63 4b 65 | 79 57 6f 72 64 73 0d 0d |} C $cKe|yWords..|
|00000630| 23 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |#=======|========|
|00000640| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000650| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000660| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000670| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000680| 3d 0d 0d 6e 65 77 4d 6f | 64 65 56 61 72 20 43 2b |=..newMo|deVar C+|
|00000690| 2b 20 65 6c 65 63 43 6f | 6c 6f 6e 20 7b 31 7d 20 |+ elecCo|lon {1} |
|000006a0| 31 0d 6e 65 77 4d 6f 64 | 65 56 61 72 20 43 2b 2b |1.newMod|eVar C++|
|000006b0| 20 65 6c 65 63 52 42 72 | 61 63 65 20 7b 31 7d 20 | elecRBr|ace {1} |
|000006c0| 31 0d 6e 65 77 4d 6f 64 | 65 56 61 72 20 43 2b 2b |1.newMod|eVar C++|
|000006d0| 20 6c 65 66 74 46 69 6c | 6c 43 6f 6c 75 6d 6e 20 | leftFil|lColumn |
|000006e0| 7b 33 7d 20 30 0d 6e 65 | 77 4d 6f 64 65 56 61 72 |{3} 0.ne|wModeVar|
|000006f0| 20 43 2b 2b 20 70 72 65 | 66 69 78 53 74 72 69 6e | C++ pre|fixStrin|
|00000700| 67 20 7b 2f 2f 7d 20 30 | 0d 6e 65 77 4d 6f 64 65 |g {//} 0|.newMode|
|00000710| 56 61 72 20 43 2b 2b 20 | 65 6c 65 63 74 72 69 63 |Var C++ |electric|
|00000720| 53 65 6d 69 20 7b 31 7d | 20 31 0d 6e 65 77 4d 6f |Semi {1}| 1.newMo|
|00000730| 64 65 56 61 72 20 43 2b | 2b 20 77 6f 72 64 42 72 |deVar C+|+ wordBr|
|00000740| 65 61 6b 20 7b 5b 5c 77 | 5f 5d 2b 7d 20 30 0d 6e |eak {[\w|_]+} 0.n|
|00000750| 65 77 4d 6f 64 65 56 61 | 72 20 43 2b 2b 20 77 6f |ewModeVa|r C++ wo|
|00000760| 72 64 42 72 65 61 6b 50 | 72 65 66 61 63 65 20 7b |rdBreakP|reface {|
|00000770| 5b 5e 5f 5c 77 5d 7d 20 | 30 0d 6e 65 77 4d 6f 64 |[^_\w]} |0.newMod|
|00000780| 65 56 61 72 20 43 2b 2b | 20 65 6c 65 63 4c 42 72 |eVar C++| elecLBr|
|00000790| 61 63 65 20 7b 31 7d 20 | 31 0d 6e 65 77 4d 6f 64 |ace {1} |1.newMod|
|000007a0| 65 56 61 72 20 43 2b 2b | 20 65 6c 65 63 45 6c 73 |eVar C++| elecEls|
|000007b0| 65 20 7b 31 7d 20 31 0d | 6e 65 77 4d 6f 64 65 56 |e {1} 1.|newModeV|
|000007c0| 61 72 20 43 2b 2b 20 77 | 6f 72 64 57 72 61 70 20 |ar C++ w|ordWrap |
|000007d0| 7b 30 7d 20 31 0d 6e 65 | 77 4d 6f 64 65 56 61 72 |{0} 1.ne|wModeVar|
|000007e0| 20 43 2b 2b 20 66 75 6e | 63 45 78 70 72 20 7b 5e | C++ fun|cExpr {^|
|000007f0| 5b 5e 20 5c 74 5c 28 23 | 5c 72 2f 40 5d 2e 2a 5c |[^ \t\(#|\r/@].*\|
|00000800| 28 2e 2a 5c 29 24 7d 20 | 30 0d 6e 65 77 4d 6f 64 |(.*\)$} |0.newMod|
|00000810| 65 56 61 72 20 43 2b 2b | 20 70 61 72 73 65 45 78 |eVar C++| parseEx|
|00000820| 70 72 20 7b 5c 62 28 5b | 5f 3a 5c 77 5d 2b 29 5c |pr {\b([|_:\w]+)\|
|00000830| 73 2a 5c 28 7d 20 30 0d | 6e 65 77 4d 6f 64 65 56 |s*\(} 0.|newModeV|
|00000840| 61 72 20 43 2b 2b 20 65 | 6c 65 63 74 72 69 63 54 |ar C++ e|lectricT|
|00000850| 61 62 20 7b 31 7d 20 31 | 0d 6e 65 77 4d 6f 64 65 |ab {1} 1|.newMode|
|00000860| 56 61 72 20 43 2b 2b 20 | 61 75 74 6f 4d 61 72 6b |Var C++ |autoMark|
|00000870| 09 09 30 09 31 0d 6e 65 | 77 4d 6f 64 65 56 61 72 |..0.1.ne|wModeVar|
|00000880| 20 43 2b 2b 20 73 74 72 | 69 6e 67 43 6f 6c 6f 72 | C++ str|ingColor|
|00000890| 09 67 72 65 65 6e 09 30 | 0d 6e 65 77 4d 6f 64 65 |.green.0|.newMode|
|000008a0| 56 61 72 20 43 2b 2b 20 | 63 6f 6d 6d 65 6e 74 43 |Var C++ |commentC|
|000008b0| 6f 6c 6f 72 09 72 65 64 | 09 09 30 0d 6e 65 77 4d |olor.red|..0.newM|
|000008c0| 6f 64 65 56 61 72 20 43 | 2b 2b 20 6b 65 79 77 6f |odeVar C|++ keywo|
|000008d0| 72 64 43 6f 6c 6f 72 09 | 62 6c 75 65 09 30 0d 6e |rdColor.|blue.0.n|
|000008e0| 65 77 4d 6f 64 65 56 61 | 72 20 43 2b 2b 20 66 75 |ewModeVa|r C++ fu|
|000008f0| 6e 63 43 6f 6c 6f 72 09 | 79 65 6c 6c 6f 77 09 30 |ncColor.|yellow.0|
|00000900| 0d 6e 65 77 4d 6f 64 65 | 56 61 72 20 43 2b 2b 20 |.newMode|Var C++ |
|00000910| 43 57 43 6f 6d 70 53 69 | 67 09 43 57 49 45 09 30 |CWCompSi|g.CWIE.0|
|00000920| 0d 6e 65 77 4d 6f 64 65 | 56 61 72 20 43 2b 2b 20 |.newMode|Var C++ |
|00000930| 43 57 44 62 67 53 69 67 | 09 09 4d 57 44 42 09 30 |CWDbgSig|..MWDB.0|
|00000940| 0d 6e 65 77 4d 6f 64 65 | 56 61 72 20 43 2b 2b 20 |.newMode|Var C++ |
|00000950| 53 79 6d 43 6f 6d 70 53 | 69 67 09 4b 41 48 4c 09 |SymCompS|ig.KAHL.|
|00000960| 30 0d 6e 65 77 4d 6f 64 | 65 56 61 72 20 43 2b 2b |0.newMod|eVar C++|
|00000970| 20 53 79 6d 44 62 67 53 | 69 67 09 7b d7 4c 53 44 | SymDbgS|ig.{.LSD|
|00000980| 7d 09 30 0d 0d 0d 73 65 | 74 20 7b 63 2b 2b 4b 65 |}.0...se|t {c++Ke|
|00000990| 79 57 6f 72 64 73 7d 20 | 7b 0d 09 6e 65 77 20 64 |yWords} |{..new d|
|000009a0| 65 6c 65 74 65 20 63 6c | 61 73 73 20 66 72 69 65 |elete cl|ass frie|
|000009b0| 6e 64 20 70 72 6f 74 65 | 63 74 65 64 20 70 72 69 |nd prote|cted pri|
|000009c0| 76 61 74 65 20 70 75 62 | 6c 69 63 20 74 65 6d 70 |vate pub|lic temp|
|000009d0| 6c 61 74 65 20 0d 09 74 | 72 79 20 63 61 74 63 68 |late ..t|ry catch|
|000009e0| 20 74 68 72 6f 77 20 6f | 70 65 72 61 74 6f 72 20 | throw o|perator |
|000009f0| 63 6f 6e 73 74 20 6d 75 | 74 61 62 6c 65 20 76 69 |const mu|table vi|
|00000a00| 72 74 75 61 6c 20 61 73 | 6d 20 69 6e 6c 69 6e 65 |rtual as|m inline|
|00000a10| 20 74 68 69 73 0d 09 61 | 6e 64 20 61 6e 64 5f 65 | this..a|nd and_e|
|00000a20| 71 20 62 69 74 61 6e 64 | 20 62 69 74 6f 72 20 63 |q bitand| bitor c|
|00000a30| 6f 6d 70 6c 20 6e 6f 74 | 20 6f 72 20 6f 72 5f 65 |ompl not| or or_e|
|00000a40| 71 20 78 6f 72 20 78 6f | 72 5f 65 71 20 6e 6f 74 |q xor xo|r_eq not|
|00000a50| 5f 65 71 0d 09 77 63 68 | 61 72 5f 74 20 62 6f 6f |_eq..wch|ar_t boo|
|00000a60| 6c 20 74 72 75 65 20 66 | 61 6c 73 65 0d 09 73 74 |l true f|alse..st|
|00000a70| 61 74 69 63 5f 63 61 73 | 74 20 64 79 6e 61 6d 69 |atic_cas|t dynami|
|00000a80| 63 5f 63 61 73 74 20 72 | 65 69 6e 74 65 72 70 72 |c_cast r|einterpr|
|00000a90| 65 74 5f 63 61 73 74 20 | 74 79 70 65 69 64 0d 09 |et_cast |typeid..|
|00000aa0| 75 73 69 6e 67 20 6e 61 | 6d 65 73 70 61 63 65 20 |using na|mespace |
|00000ab0| 69 6e 68 65 72 69 74 65 | 64 0d 7d 0d 69 66 20 7b |inherite|d.}.if {|
|00000ac0| 5b 69 6e 66 6f 20 65 78 | 69 73 74 73 20 7b 43 2b |[info ex|ists {C+|
|00000ad0| 2b 77 6f 72 64 73 7d 5d | 7d 20 7b 0d 09 73 65 74 |+words}]|} {..set|
|00000ae0| 20 7b 63 2b 2b 4b 65 79 | 57 6f 72 64 73 7d 20 5b | {c++Key|Words} [|
|00000af0| 63 6f 6e 63 61 74 20 24 | 7b 63 2b 2b 4b 65 79 57 |concat $|{c++KeyW|
|00000b00| 6f 72 64 73 7d 20 24 7b | 43 2b 2b 77 6f 72 64 73 |ords} ${|C++words|
|00000b10| 7d 20 24 63 4b 65 79 57 | 6f 72 64 73 5d 0d 7d 20 |} $cKeyW|ords].} |
|00000b20| 65 6c 73 65 20 7b 0d 09 | 73 65 74 20 7b 63 2b 2b |else {..|set {c++|
|00000b30| 4b 65 79 57 6f 72 64 73 | 7d 20 5b 63 6f 6e 63 61 |KeyWords|} [conca|
|00000b40| 74 20 24 7b 63 2b 2b 4b | 65 79 57 6f 72 64 73 7d |t ${c++K|eyWords}|
|00000b50| 20 24 63 4b 65 79 57 6f | 72 64 73 5d 0d 7d 0d 0d | $cKeyWo|rds].}..|
|00000b60| 72 65 67 4d 6f 64 65 4b | 65 79 77 6f 72 64 73 20 |regModeK|eywords |
|00000b70| 2d 65 20 7b 2f 2f 7d 20 | 2d 62 20 7b 2f 2a 7d 20 |-e {//} |-b {/*} |
|00000b80| 7b 2a 2f 7d 20 2d 63 20 | 5b 73 65 74 20 43 2b 2b |{*/} -c |[set C++|
|00000b90| 6d 6f 64 65 56 61 72 73 | 28 63 6f 6d 6d 65 6e 74 |modeVars|(comment|
|00000ba0| 43 6f 6c 6f 72 29 5d 20 | 2d 66 20 5b 73 65 74 20 |Color)] |-f [set |
|00000bb0| 43 2b 2b 6d 6f 64 65 56 | 61 72 73 28 66 75 6e 63 |C++modeV|ars(func|
|00000bc0| 43 6f 6c 6f 72 29 5d 20 | 2d 6b 20 5b 73 65 74 20 |Color)] |-k [set |
|00000bd0| 43 2b 2b 6d 6f 64 65 56 | 61 72 73 28 6b 65 79 77 |C++modeV|ars(keyw|
|00000be0| 6f 72 64 43 6f 6c 6f 72 | 29 5d 20 2d 73 20 5b 73 |ordColor|)] -s [s|
|00000bf0| 65 74 20 43 2b 2b 6d 6f | 64 65 56 61 72 73 28 73 |et C++mo|deVars(s|
|00000c00| 74 72 69 6e 67 43 6f 6c | 6f 72 29 5d 20 2d 6d 20 |tringCol|or)] -m |
|00000c10| 7b 23 7d 20 7b 43 2b 2b | 7d 20 24 7b 63 2b 2b 4b |{#} {C++|} ${c++K|
|00000c20| 65 79 57 6f 72 64 73 7d | 0d 75 6e 73 65 74 20 63 |eyWords}|.unset c|
|00000c30| 4b 65 79 57 6f 72 64 73 | 0d 75 6e 73 65 74 20 7b |KeyWords|.unset {|
|00000c40| 63 2b 2b 4b 65 79 57 6f | 72 64 73 7d 0d 0d 23 3d |c++KeyWo|rds}..#=|
|00000c50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000c60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000c70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000c80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000c90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 23 20 22 |========|====.# "|
|00000ca0| 45 6c 65 63 74 72 69 63 | 22 20 43 20 66 75 6e 63 |Electric|" C func|
|00000cb0| 74 69 6f 6e 73 2e 0d 23 | 3d 3d 3d 3d 3d 3d 3d 3d |tions..#|========|
|00000cc0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000cd0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000ce0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000cf0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000d00| 3d 3d 3d 3d 3d 0d 0d 23 | 20 72 65 74 75 72 6e 73 |=====..#| returns|
|00000d10| 20 74 68 65 20 69 6e 64 | 65 6e 74 20 73 74 72 69 | the ind|ent stri|
|00000d20| 6e 67 20 6f 66 20 74 68 | 65 20 6c 69 6e 65 20 6e |ng of th|e line n|
|00000d30| 61 6d 65 64 20 62 79 20 | 27 70 6f 73 27 0d 70 72 |amed by |'pos'.pr|
|00000d40| 6f 63 20 69 6e 64 65 6e | 74 53 74 72 69 6e 67 20 |oc inden|tString |
|00000d50| 70 6f 73 20 7b 0d 09 73 | 65 74 20 73 74 61 72 74 |pos {..s|et start|
|00000d60| 20 5b 6c 69 6e 65 53 74 | 61 72 74 20 24 70 6f 73 | [lineSt|art $pos|
|00000d70| 5d 0d 09 73 65 74 20 65 | 6e 64 20 5b 6e 65 78 74 |]..set e|nd [next|
|00000d80| 4c 69 6e 65 53 74 61 72 | 74 20 24 70 6f 73 5d 0d |LineStar|t $pos].|
|00000d90| 09 73 65 74 20 74 65 78 | 74 20 5b 67 65 74 54 65 |.set tex|t [getTe|
|00000da0| 78 74 20 24 73 74 61 72 | 74 20 24 65 6e 64 5d 0d |xt $star|t $end].|
|00000db0| 09 66 6f 72 20 7b 73 65 | 74 20 69 20 30 7d 20 7b |.for {se|t i 0} {|
|00000dc0| 31 7d 20 7b 69 6e 63 72 | 20 69 7d 20 7b 0d 09 09 |1} {incr| i} {...|
|00000dd0| 73 65 74 20 63 20 5b 73 | 74 72 69 6e 67 20 69 6e |set c [s|tring in|
|00000de0| 64 65 78 20 24 74 65 78 | 74 20 24 69 5d 0d 09 09 |dex $tex|t $i]...|
|00000df0| 69 66 20 7b 28 24 63 20 | 21 3d 20 22 5c 20 22 29 |if {($c |!= "\ ")|
|00000e00| 20 26 26 20 28 24 63 20 | 21 3d 20 22 5c 74 22 29 | && ($c |!= "\t")|
|00000e10| 7d 20 74 68 65 6e 20 7b | 0d 09 09 09 72 65 74 75 |} then {|....retu|
|00000e20| 72 6e 20 5b 73 74 72 69 | 6e 67 20 72 61 6e 67 65 |rn [stri|ng range|
|00000e30| 20 24 74 65 78 74 20 30 | 20 5b 65 78 70 72 20 24 | $text 0| [expr $|
|00000e40| 69 2d 31 5d 5d 0d 09 09 | 7d 0d 09 7d 0d 09 72 65 |i-1]]...|}..}..re|
|00000e50| 74 75 72 6e 0d 7d 0d 0d | 0d 23 20 42 72 61 63 65 |turn.}..|.# Brace|
|00000e60| 20 6f 6e 20 6e 65 77 20 | 6c 69 6e 65 2c 20 73 61 | on new |line, sa|
|00000e70| 6d 65 20 69 6e 64 65 6e | 74 61 74 69 6f 6e 2e 20 |me inden|tation. |
|00000e80| 49 6e 73 65 72 74 20 6f | 6e 20 61 6e 6f 74 68 65 |Insert o|n anothe|
|00000e90| 72 20 6e 65 77 20 6c 69 | 6e 65 2c 20 69 6e 64 65 |r new li|ne, inde|
|00000ea0| 6e 74 65 64 20 69 6e 2e | 0d 23 20 46 69 72 73 74 |nted in.|.# First|
|00000eb0| 2c 20 73 65 65 20 69 66 | 20 77 65 20 61 72 65 20 |, see if| we are |
|00000ec0| 6f 6e 20 6e 65 77 20 6c | 69 6e 65 2e 0d 0d 23 09 |on new l|ine...#.|
|00000ed0| 69 66 20 7b 28 24 69 20 | 3d 3d 20 24 70 6f 73 29 |if {($i |== $pos)|
|00000ee0| 20 7c 7c 20 28 5b 6c 6f | 6f 6b 41 74 20 24 70 6f | || ([lo|okAt $po|
|00000ef0| 73 5d 20 3d 3d 20 22 20 | 22 29 7d 20 7b 0d 62 69 |s] == " |")} {.bi|
|00000f00| 6e 64 20 27 5c 7b 27 20 | 3c 73 3e 20 65 6c 65 63 |nd '\{' |<s> elec|
|00000f10| 74 72 69 63 4c 65 66 74 | 20 43 0d 62 69 6e 64 20 |tricLeft| C.bind |
|00000f20| 27 5c 7b 27 20 3c 73 3e | 20 65 6c 65 63 74 72 69 |'\{' <s>| electri|
|00000f30| 63 4c 65 66 74 20 43 2b | 2b 0d 0d 0d 23 20 42 72 |cLeft C+|+...# Br|
|00000f40| 61 63 65 20 6f 6e 20 6e | 65 77 20 6c 69 6e 65 2c |ace on n|ew line,|
|00000f50| 20 69 6d 6d 65 64 69 61 | 74 65 20 63 61 72 72 69 | immedia|te carri|
|00000f60| 61 67 65 20 72 65 74 75 | 72 6e 0d 0d 62 69 6e 64 |age retu|rn..bind|
|00000f70| 20 27 5c 7d 27 20 3c 73 | 3e 20 65 6c 65 63 74 72 | '\}' <s|> electr|
|00000f80| 69 63 52 69 67 68 74 20 | 43 0d 62 69 6e 64 20 27 |icRight |C.bind '|
|00000f90| 5c 7d 27 20 3c 73 3e 20 | 65 6c 65 63 74 72 69 63 |\}' <s> |electric|
|00000fa0| 52 69 67 68 74 20 43 2b | 2b 0d 0d 0d 23 20 42 72 |Right C+|+...# Br|
|00000fb0| 61 63 65 20 6f 6e 20 6e | 65 77 20 6c 69 6e 65 2c |ace on n|ew line,|
|00000fc0| 20 69 6d 6d 65 64 69 61 | 74 65 20 63 61 72 72 69 | immedia|te carri|
|00000fd0| 61 67 65 20 72 65 74 75 | 72 6e 2e 20 57 65 20 64 |age retu|rn. We d|
|00000fe0| 6f 6e 27 74 20 64 6f 20 | 6f 75 72 20 65 6c 65 63 |on't do |our elec|
|00000ff0| 74 72 69 63 20 73 74 75 | 66 66 0d 23 20 69 66 20 |tric stu|ff.# if |
|00001000| 77 65 20 61 72 65 20 69 | 6e 20 74 68 65 20 6d 69 |we are i|n the mi|
|00001010| 64 64 6c 65 20 6f 66 20 | 61 20 66 6f 72 20 73 74 |ddle of |a for st|
|00001020| 61 74 65 6d 65 6e 74 2e | 0d 62 69 6e 64 20 27 5c |atement.|.bind '\|
|00001030| 3b 27 20 65 6c 65 63 74 | 72 69 63 53 65 6d 69 20 |;' elect|ricSemi |
|00001040| 43 0d 62 69 6e 64 20 27 | 5c 3b 27 20 65 6c 65 63 |C.bind '|\;' elec|
|00001050| 74 72 69 63 53 65 6d 69 | 20 43 2b 2b 0d 0d 0d 70 |tricSemi| C++...p|
|00001060| 72 6f 63 20 6f 72 64 53 | 65 6d 69 20 7b 7d 20 7b |roc ordS|emi {} {|
|00001070| 0d 09 69 6e 73 65 72 74 | 54 65 78 74 20 7b 3b 7d |..insert|Text {;}|
|00001080| 0d 7d 0d 0d 62 69 6e 64 | 20 27 5c 3b 27 20 3c 7a |.}..bind| '\;' <z|
|00001090| 3e 20 6f 72 64 53 65 6d | 69 0d 0d 0d 70 72 6f 63 |> ordSem|i...proc|
|000010a0| 20 63 70 70 43 52 20 7b | 7d 20 7b 0d 09 69 66 20 | cppCR {|} {..if |
|000010b0| 7b 5b 6c 6f 6f 6b 41 74 | 20 5b 65 78 70 72 20 5b |{[lookAt| [expr [|
|000010c0| 67 65 74 50 6f 73 5d 20 | 2d 20 31 5d 5d 20 3d 3d |getPos] |- 1]] ==|
|000010d0| 20 22 3a 22 7d 20 7b 0d | 09 09 69 66 20 7b 20 5b | ":"} {.|..if { [|
|000010e0| 6c 6f 6f 6b 41 74 20 5b | 67 65 74 50 6f 73 5d 5d |lookAt [|getPos]]|
|000010f0| 20 3d 3d 20 22 5c 72 22 | 20 7d 20 7b 0d 09 09 09 | == "\r"| } {....|
|00001100| 69 6e 64 65 6e 74 4c 69 | 6e 65 0d 09 09 09 65 6e |indentLi|ne....en|
|00001110| 64 4f 66 4c 69 6e 65 0d | 09 09 09 63 61 72 72 69 |dOfLine.|...carri|
|00001120| 61 67 65 52 65 74 75 72 | 6e 0d 09 09 7d 20 65 6c |ageRetur|n...} el|
|00001130| 73 65 20 7b 0d 09 09 09 | 73 65 74 20 70 6f 73 20 |se {....|set pos |
|00001140| 5b 67 65 74 50 6f 73 5d | 0d 09 09 09 65 6e 64 4f |[getPos]|....endO|
|00001150| 66 4c 69 6e 65 0d 09 09 | 09 73 65 74 20 74 20 5b |fLine...|.set t [|
|00001160| 67 65 74 54 65 78 74 20 | 24 70 6f 73 20 5b 67 65 |getText |$pos [ge|
|00001170| 74 50 6f 73 5d 5d 0d 09 | 09 09 72 65 70 6c 61 63 |tPos]]..|..replac|
|00001180| 65 54 65 78 74 20 24 70 | 6f 73 20 5b 67 65 74 50 |eText $p|os [getP|
|00001190| 6f 73 5d 20 22 22 0d 09 | 09 09 69 6e 64 65 6e 74 |os] ""..|..indent|
|000011a0| 4c 69 6e 65 0d 09 09 09 | 65 6e 64 4f 66 4c 69 6e |Line....|endOfLin|
|000011b0| 65 0d 09 09 09 63 61 72 | 72 69 61 67 65 52 65 74 |e....car|riageRet|
|000011c0| 75 72 6e 0d 09 09 09 69 | 6e 73 65 72 74 54 65 78 |urn....i|nsertTex|
|000011d0| 74 20 24 74 0d 09 09 7d | 0d 09 09 69 6e 64 65 6e |t $t...}|...inden|
|000011e0| 74 4c 69 6e 65 0d 09 7d | 20 65 6c 73 65 20 7b 0d |tLine..}| else {.|
|000011f0| 09 09 63 61 72 72 69 61 | 67 65 52 65 74 75 72 6e |..carria|geReturn|
|00001200| 0d 09 09 69 6e 64 65 6e | 74 4c 69 6e 65 0d 09 7d |...inden|tLine..}|
|00001210| 0d 09 0d 7d 0d 0d 62 69 | 6e 64 20 27 5c 72 27 20 |...}..bi|nd '\r' |
|00001220| 09 63 70 70 43 52 20 43 | 0d 62 69 6e 64 20 27 5c |.cppCR C|.bind '\|
|00001230| 72 27 20 09 63 70 70 43 | 52 20 43 2b 2b 0d 09 09 |r' .cppC|R C++...|
|00001240| 0d 23 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.#======|========|
|00001250| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001260| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001270| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001280| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001290| 3d 3d 0d 0d 23 20 70 72 | 6f 63 20 43 4d 61 72 6b |==..# pr|oc CMark|
|000012a0| 46 69 6c 65 20 7b 7d 20 | 7b 0d 23 20 09 67 6c 6f |File {} |{.# .glo|
|000012b0| 62 61 6c 20 43 6d 6f 64 | 65 56 61 72 73 0d 23 20 |bal Cmod|eVars.# |
|000012c0| 09 73 65 74 20 70 6f 73 | 20 30 0d 23 20 09 77 68 |.set pos| 0.# .wh|
|000012d0| 69 6c 65 20 7b 21 5b 63 | 61 74 63 68 20 7b 73 65 |ile {![c|atch {se|
|000012e0| 61 72 63 68 20 2d 73 20 | 2d 66 20 31 20 2d 72 20 |arch -s |-f 1 -r |
|000012f0| 31 20 2d 6d 20 30 20 2d | 69 20 30 20 24 43 6d 6f |1 -m 0 -|i 0 $Cmo|
|00001300| 64 65 56 61 72 73 28 66 | 75 6e 63 45 78 70 72 29 |deVars(f|uncExpr)|
|00001310| 20 24 70 6f 73 7d 20 72 | 65 73 5d 7d 20 7b 0d 23 | $pos} r|es]} {.#|
|00001320| 20 09 09 73 65 74 20 73 | 74 61 72 74 20 5b 6c 69 | ..set s|tart [li|
|00001330| 6e 64 65 78 20 24 72 65 | 73 20 30 5d 0d 23 20 09 |ndex $re|s 0].# .|
|00001340| 09 73 65 74 20 65 6e 64 | 20 5b 65 78 70 72 20 5b |.set end| [expr [|
|00001350| 6c 69 6e 64 65 78 20 24 | 72 65 73 20 31 5d 20 2b |lindex $|res 1] +|
|00001360| 20 31 5d 0d 23 20 09 09 | 73 65 74 20 74 65 78 74 | 1].# ..|set text|
|00001370| 20 5b 67 65 74 54 65 78 | 74 20 24 73 74 61 72 74 | [getTex|t $start|
|00001380| 20 24 65 6e 64 5d 0d 23 | 20 09 09 69 66 20 7b 5b | $end].#| ..if {[|
|00001390| 72 65 67 65 78 70 20 7b | 28 5b 61 2d 7a 41 2d 5a |regexp {|([a-zA-Z|
|000013a0| 30 2d 39 3a 5f 5d 2b 29 | 5b 20 5c 74 5d 2a 5c 28 |0-9:_]+)|[ \t]*\(|
|000013b0| 7d 20 24 74 65 78 74 20 | 64 75 6d 6d 79 20 77 6f |} $text |dummy wo|
|000013c0| 72 64 5d 7d 20 7b 0d 23 | 20 09 09 09 73 65 74 20 |rd]} {.#| ...set |
|000013d0| 74 6d 70 20 5b 65 78 70 | 72 20 24 73 74 61 72 74 |tmp [exp|r $start|
|000013e0| 20 2b 20 5b 73 74 72 69 | 6e 67 20 66 69 72 73 74 | + [stri|ng first|
|000013f0| 20 24 77 6f 72 64 20 24 | 74 65 78 74 5d 5d 0d 23 | $word $|text]].#|
|00001400| 20 09 09 09 73 65 74 20 | 69 6e 64 73 28 24 77 6f | ...set |inds($wo|
|00001410| 72 64 29 20 22 24 74 6d | 70 20 5b 65 78 70 72 20 |rd) "$tm|p [expr |
|00001420| 24 74 6d 70 20 2b 20 5b | 73 74 72 69 6e 67 20 6c |$tmp + [|string l|
|00001430| 65 6e 67 74 68 20 24 77 | 6f 72 64 5d 5d 22 0d 23 |ength $w|ord]]".#|
|00001440| 20 09 09 7d 0d 23 20 09 | 09 73 65 74 20 70 6f 73 | ..}.# .|.set pos|
|00001450| 20 24 65 6e 64 0d 23 20 | 09 7d 0d 23 20 09 69 66 | $end.# |.}.# .if|
|00001460| 20 7b 5b 69 6e 66 6f 20 | 65 78 69 73 74 73 20 69 | {[info |exists i|
|00001470| 6e 64 73 5d 7d 20 7b 0d | 23 20 09 09 66 6f 72 65 |nds]} {.|# ..fore|
|00001480| 61 63 68 20 66 20 5b 6c | 73 6f 72 74 20 2d 69 67 |ach f [l|sort -ig|
|00001490| 6e 6f 72 65 20 5b 61 72 | 72 61 79 20 6e 61 6d 65 |nore [ar|ray name|
|000014a0| 73 20 69 6e 64 73 5d 5d | 20 7b 0d 23 20 09 09 09 |s inds]]| {.# ...|
|000014b0| 73 65 74 20 72 65 73 20 | 24 69 6e 64 73 28 24 66 |set res |$inds($f|
|000014c0| 29 0d 23 20 09 09 09 73 | 65 74 4e 61 6d 65 64 4d |).# ...s|etNamedM|
|000014d0| 61 72 6b 20 24 66 20 5b | 6c 69 6e 65 53 74 61 72 |ark $f [|lineStar|
|000014e0| 74 20 5b 6c 69 6e 64 65 | 78 20 24 72 65 73 20 30 |t [linde|x $res 0|
|000014f0| 5d 5d 20 5b 6c 69 6e 64 | 65 78 20 24 72 65 73 20 |]] [lind|ex $res |
|00001500| 30 5d 20 5b 6c 69 6e 64 | 65 78 20 24 72 65 73 20 |0] [lind|ex $res |
|00001510| 31 5d 0d 23 20 09 09 7d | 0d 23 20 09 7d 0d 23 20 |1].# ..}|.# .}.# |
|00001520| 7d 0d 23 20 0d 23 20 09 | 0d 23 20 23 54 68 65 20 |}.# .# .|.# #The |
|00001530| 70 72 65 76 69 6f 75 73 | 20 76 65 72 73 69 6f 6e |previous| version|
|00001540| 20 77 6f 75 6c 64 20 6e | 6f 74 20 66 69 6e 64 20 | would n|ot find |
|00001550| 74 68 69 6e 67 73 20 6c | 69 6b 65 20 20 20 20 20 |things l|ike     |
|00001560| 76 6f 69 64 09 2a 54 68 | 69 73 46 75 6e 63 28 20 |void.*Th|isFunc( |
|00001570| 78 78 78 20 29 20 64 75 | 65 20 74 6f 20 74 68 65 |xxx ) du|e to the|
|00001580| 20 61 73 74 65 72 69 73 | 6b 0d 23 20 23 49 20 61 | asteris|k.# #I a|
|00001590| 6c 73 6f 20 74 72 75 6e | 63 61 74 65 64 20 74 68 |lso trun|cated th|
|000015a0| 65 20 70 61 74 74 65 72 | 6e 2e 20 20 54 68 65 20 |e patter|n.  The |
|000015b0| 72 65 73 74 20 69 73 20 | 6e 6f 74 20 6e 65 63 65 |rest is |not nece|
|000015c0| 73 73 61 72 79 20 61 6e | 64 20 69 6e 74 72 75 73 |ssary an|d intrus|
|000015d0| 69 76 65 20 61 73 20 66 | 61 72 20 61 73 20 49 20 |ive as f|ar as I |
|000015e0| 63 61 6e 20 74 65 6c 6c | 20 20 20 0d 23 20 70 72 |can tell|   .# pr|
|000015f0| 6f 63 20 43 2b 2b 4d 61 | 72 6b 46 69 6c 65 20 7b |oc C++Ma|rkFile {|
|00001600| 7d 20 7b 0d 23 20 09 73 | 65 74 20 70 6f 73 20 30 |} {.# .s|et pos 0|
|00001610| 0d 23 20 09 77 68 69 6c | 65 20 7b 21 5b 63 61 74 |.# .whil|e {![cat|
|00001620| 63 68 20 7b 73 65 61 72 | 63 68 20 2d 73 20 2d 66 |ch {sear|ch -s -f|
|00001630| 20 31 20 2d 72 20 31 20 | 2d 6d 20 30 20 2d 69 20 | 1 -r 1 |-m 0 -i |
|00001640| 30 20 7b 5e 28 5b 5e 20 | 5c 74 5c 28 23 5c 72 2f |0 {^([^ |\t\(#\r/|
|00001650| 40 5d 2e 2a 5b 20 5c 74 | 5d 2b 29 3f 5c 2a 3f 28 |@].*[ \t|]+)?\*?(|
|00001660| 5b 41 2d 5a 61 2d 7a 30 | 2d 39 3a 7e 5f 5d 2b 29 |[A-Za-z0|-9:~_]+)|
|00001670| 5b 20 5c 74 5c 72 5d 2a | 5c 28 7d 20 24 70 6f 73 |[ \t\r]*|\(} $pos|
|00001680| 7d 20 72 65 73 5d 7d 20 | 7b 0d 23 20 09 09 73 65 |} res]} |{.# ..se|
|00001690| 74 20 73 74 61 72 74 20 | 5b 6c 69 6e 64 65 78 20 |t start |[lindex |
|000016a0| 24 72 65 73 20 30 5d 0d | 23 20 09 09 73 65 74 20 |$res 0].|# ..set |
|000016b0| 65 6e 64 20 5b 65 78 70 | 72 20 5b 6c 69 6e 64 65 |end [exp|r [linde|
|000016c0| 78 20 24 72 65 73 20 31 | 5d 20 2b 20 31 5d 0d 23 |x $res 1|] + 1].#|
|000016d0| 20 09 09 73 65 74 20 74 | 68 69 73 74 65 78 74 20 | ..set t|histext |
|000016e0| 5b 67 65 74 54 65 78 74 | 20 24 73 74 61 72 74 20 |[getText| $start |
|000016f0| 24 65 6e 64 5d 0d 23 20 | 09 09 23 72 65 67 65 78 |$end].# |..#regex|
|00001700| 70 20 64 6f 65 73 6e 27 | 74 20 6c 69 6b 65 20 63 |p doesn'|t like c|
|00001710| 61 72 72 69 61 67 65 20 | 72 65 74 75 72 6e 73 0d |arriage |returns.|
|00001720| 23 20 09 09 72 65 67 73 | 75 62 20 2d 61 6c 6c 20 |# ..regs|ub -all |
|00001730| 22 5c 72 22 20 24 74 68 | 69 73 74 65 78 74 20 22 |"\r" $th|istext "|
|00001740| 20 22 20 74 68 69 73 74 | 65 78 74 0d 23 20 09 09 | " thist|ext.# ..|
|00001750| 23 72 65 67 65 78 70 20 | 64 6f 65 73 6e 27 74 20 |#regexp |doesn't |
|00001760| 6c 69 6b 65 20 74 61 62 | 73 20 65 69 74 68 65 72 |like tab|s either|
|00001770| 0d 23 20 09 09 72 65 67 | 73 75 62 20 2d 61 6c 6c |.# ..reg|sub -all|
|00001780| 20 22 5c 74 22 20 24 74 | 68 69 73 74 65 78 74 20 | "\t" $t|histext |
|00001790| 22 20 22 20 74 68 69 73 | 74 65 78 74 0d 23 20 09 |" " this|text.# .|
|000017a0| 09 23 69 66 20 74 68 65 | 20 6f 70 65 6e 20 70 61 |.#if the| open pa|
|000017b0| 72 65 6e 20 77 61 73 20 | 74 68 65 20 6c 61 73 74 |ren was |the last|
|000017c0| 20 63 68 61 72 61 63 74 | 65 72 20 6f 6e 20 74 68 | charact|er on th|
|000017d0| 65 20 6c 69 6e 65 20 74 | 68 65 20 73 65 6c 65 63 |e line t|he selec|
|000017e0| 74 65 64 20 74 65 78 74 | 20 69 6e 63 6c 75 64 65 |ted text| include|
|000017f0| 64 20 74 68 65 20 6c 61 | 73 74 20 63 61 72 72 69 |d the la|st carri|
|00001800| 61 67 65 20 72 65 74 75 | 72 6e 20 61 73 20 77 65 |age retu|rn as we|
|00001810| 6c 6c 0d 23 20 09 09 23 | 74 72 69 6d 20 74 68 69 |ll.# ..#|trim thi|
|00001820| 73 20 6f 66 66 20 6e 6f | 77 20 74 68 61 74 20 69 |s off no|w that i|
|00001830| 74 20 69 73 20 63 68 61 | 6e 67 65 64 20 69 6e 74 |t is cha|nged int|
|00001840| 6f 20 61 20 73 70 61 63 | 65 0d 23 20 09 09 73 65 |o a spac|e.# ..se|
|00001850| 74 20 74 68 69 73 74 65 | 78 74 20 5b 73 74 72 69 |t thiste|xt [stri|
|00001860| 6e 67 20 74 72 69 6d 72 | 69 67 68 74 20 24 74 68 |ng trimr|ight $th|
|00001870| 69 73 74 65 78 74 5d 0d | 23 20 09 09 69 66 20 7b |istext].|# ..if {|
|00001880| 5b 72 65 67 65 78 70 20 | 7b 28 5b 61 2d 7a 41 2d |[regexp |{([a-zA-|
|00001890| 5a 30 2d 39 3a 7e 5f 5d | 2b 29 5b 20 5c 74 5d 2a |Z0-9:~_]|+)[ \t]*|
|000018a0| 5c 28 7d 20 24 74 68 69 | 73 74 65 78 74 20 64 75 |\(} $thi|stext du|
|000018b0| 6d 6d 79 20 77 6f 72 64 | 5d 7d 20 7b 0d 23 20 09 |mmy word|]} {.# .|
|000018c0| 09 09 73 65 74 20 69 6e | 64 73 28 24 77 6f 72 64 |..set in|ds($word|
|000018d0| 29 20 5b 6c 69 6e 65 53 | 74 61 72 74 20 5b 65 78 |) [lineS|tart [ex|
|000018e0| 70 72 20 24 73 74 61 72 | 74 20 2d 20 31 5d 5d 0d |pr $star|t - 1]].|
|000018f0| 23 20 09 09 7d 0d 23 20 | 09 09 73 65 74 20 70 6f |# ..}.# |..set po|
|00001900| 73 20 24 65 6e 64 0d 23 | 20 09 7d 0d 23 20 09 69 |s $end.#| .}.# .i|
|00001910| 66 20 7b 5b 69 6e 66 6f | 20 65 78 69 73 74 73 20 |f {[info| exists |
|00001920| 69 6e 64 73 5d 7d 20 7b | 0d 23 20 09 09 66 6f 72 |inds]} {|.# ..for|
|00001930| 65 61 63 68 20 66 20 5b | 6c 73 6f 72 74 20 2d 69 |each f [|lsort -i|
|00001940| 67 6e 6f 72 65 20 5b 61 | 72 72 61 79 20 6e 61 6d |gnore [a|rray nam|
|00001950| 65 73 20 69 6e 64 73 5d | 5d 20 7b 0d 23 20 09 09 |es inds]|] {.# ..|
|00001960| 09 73 65 74 20 6e 65 78 | 74 20 5b 6e 65 78 74 4c |.set nex|t [nextL|
|00001970| 69 6e 65 53 74 61 72 74 | 20 24 69 6e 64 73 28 24 |ineStart| $inds($|
|00001980| 66 29 5d 0d 23 20 09 09 | 09 73 65 74 4e 61 6d 65 |f)].# ..|.setName|
|00001990| 64 4d 61 72 6b 20 24 66 | 20 24 69 6e 64 73 28 24 |dMark $f| $inds($|
|000019a0| 66 29 20 24 6e 65 78 74 | 20 24 6e 65 78 74 0d 23 |f) $next| $next.#|
|000019b0| 20 09 09 7d 0d 23 20 09 | 7d 0d 23 20 7d 0d 0d 0d | ..}.# .|}.# }...|
|000019c0| 70 72 6f 63 20 43 4d 61 | 72 6b 46 69 6c 65 20 7b |proc CMa|rkFile {|
|000019d0| 7d 20 7b 0d 09 67 6c 6f | 62 61 6c 20 43 6d 6f 64 |} {..glo|bal Cmod|
|000019e0| 65 56 61 72 73 0d 09 73 | 65 74 20 70 6f 73 20 30 |eVars..s|et pos 0|
|000019f0| 0d 0d 09 77 68 69 6c 65 | 20 7b 21 5b 63 61 74 63 |...while| {![catc|
|00001a00| 68 20 7b 73 65 61 72 63 | 68 20 2d 73 20 2d 66 20 |h {searc|h -s -f |
|00001a10| 31 20 2d 72 20 31 20 2d | 6d 20 30 20 2d 69 20 30 |1 -r 1 -|m 0 -i 0|
|00001a20| 20 24 43 6d 6f 64 65 56 | 61 72 73 28 66 75 6e 63 | $CmodeV|ars(func|
|00001a30| 45 78 70 72 29 20 24 70 | 6f 73 7d 20 72 65 73 5d |Expr) $p|os} res]|
|00001a40| 7d 20 7b 0d 09 09 73 65 | 74 20 73 74 61 72 74 20 |} {...se|t start |
|00001a50| 5b 6c 69 6e 64 65 78 20 | 24 72 65 73 20 30 5d 0d |[lindex |$res 0].|
|00001a60| 09 09 73 65 74 20 65 6e | 64 20 5b 65 78 70 72 20 |..set en|d [expr |
|00001a70| 5b 6c 69 6e 64 65 78 20 | 24 72 65 73 20 31 5d 20 |[lindex |$res 1] |
|00001a80| 2b 20 31 5d 0d 09 09 73 | 65 74 20 74 65 78 74 20 |+ 1]...s|et text |
|00001a90| 5b 67 65 74 54 65 78 74 | 20 24 73 74 61 72 74 20 |[getText| $start |
|00001aa0| 24 65 6e 64 5d 0d 09 09 | 69 66 20 7b 5b 72 65 67 |$end]...|if {[reg|
|00001ab0| 65 78 70 20 7b 28 5b 61 | 2d 7a 41 2d 5a 30 2d 39 |exp {([a|-zA-Z0-9|
|00001ac0| 3a 5f 5d 2b 29 5b 20 5c | 74 5d 2a 5c 28 7d 20 24 |:_]+)[ \|t]*\(} $|
|00001ad0| 74 65 78 74 20 64 75 6d | 6d 79 20 77 6f 72 64 5d |text dum|my word]|
|00001ae0| 7d 20 7b 0d 09 09 09 73 | 65 74 20 74 6d 70 20 5b |} {....s|et tmp [|
|00001af0| 65 78 70 72 20 24 73 74 | 61 72 74 20 2b 20 5b 73 |expr $st|art + [s|
|00001b00| 74 72 69 6e 67 20 66 69 | 72 73 74 20 24 77 6f 72 |tring fi|rst $wor|
|00001b10| 64 20 24 74 65 78 74 5d | 5d 0d 09 09 09 73 65 74 |d $text]|]....set|
|00001b20| 20 69 6e 64 73 28 24 77 | 6f 72 64 29 20 22 24 74 | inds($w|ord) "$t|
|00001b30| 6d 70 20 5b 65 78 70 72 | 20 24 74 6d 70 20 2b 20 |mp [expr| $tmp + |
|00001b40| 5b 73 74 72 69 6e 67 20 | 6c 65 6e 67 74 68 20 24 |[string |length $|
|00001b50| 77 6f 72 64 5d 5d 22 0d | 09 09 7d 0d 09 09 73 65 |word]]".|..}...se|
|00001b60| 74 20 70 6f 73 20 24 65 | 6e 64 0d 09 7d 0d 0d 09 |t pos $e|nd..}...|
|00001b70| 23 23 20 0d 09 20 23 20 | 41 6c 73 6f 09 6d 61 72 |## .. # |Also.mar|
|00001b80| 6b 20 61 6e 79 20 63 6c | 61 73 73 20 6f 72 20 73 |k any cl|ass or s|
|00001b90| 74 72 75 63 74 20 64 65 | 66 69 6e 69 74 69 6f 6e |truct de|finition|
|00001ba0| 73 0d 09 20 23 23 0d 09 | 0d 09 73 65 74 20 6d 61 |s.. ##..|..set ma|
|00001bb0| 72 6b 45 78 70 72 20 7b | 5e 28 63 6c 61 73 73 7c |rkExpr {|^(class||
|00001bc0| 73 74 72 75 63 74 29 20 | 5c 77 2b 5b 20 5c 74 5d |struct) |\w+[ \t]|
|00001bd0| 2a 28 3a 7c 5c 7b 29 7d | 0d 09 77 68 69 6c 65 20 |*(:|\{)}|..while |
|00001be0| 7b 21 5b 63 61 74 63 68 | 20 7b 73 65 61 72 63 68 |{![catch| {search|
|00001bf0| 20 2d 73 20 2d 66 20 31 | 20 2d 72 20 31 20 2d 6d | -s -f 1| -r 1 -m|
|00001c00| 20 30 20 2d 69 20 30 20 | 22 24 6d 61 72 6b 45 78 | 0 -i 0 |"$markEx|
|00001c10| 70 72 22 20 24 70 6f 73 | 7d 20 72 65 73 5d 7d 20 |pr" $pos|} res]} |
|00001c20| 7b 0d 09 09 73 65 74 20 | 73 74 61 72 74 20 5b 6c |{...set |start [l|
|00001c30| 69 6e 64 65 78 20 24 72 | 65 73 20 30 5d 0d 09 09 |index $r|es 0]...|
|00001c40| 73 65 74 20 65 6e 64 20 | 5b 65 78 70 72 20 5b 6c |set end |[expr [l|
|00001c50| 69 6e 64 65 78 20 24 72 | 65 73 20 31 5d 20 2d 31 |index $r|es 1] -1|
|00001c60| 5d 0d 09 09 73 65 74 20 | 74 65 78 74 20 5b 73 74 |]...set |text [st|
|00001c70| 72 69 6e 67 20 74 72 69 | 6d 72 69 67 68 74 20 5b |ring tri|mright [|
|00001c80| 67 65 74 54 65 78 74 20 | 24 73 74 61 72 74 20 24 |getText |$start $|
|00001c90| 65 6e 64 5d 20 5d 0d 09 | 09 73 65 74 20 69 6e 64 |end] ]..|.set ind|
|00001ca0| 73 28 24 74 65 78 74 29 | 20 22 24 73 74 61 72 74 |s($text)| "$start|
|00001cb0| 20 5b 65 78 70 72 20 24 | 73 74 61 72 74 20 2b 20 | [expr $|start + |
|00001cc0| 5b 73 74 72 69 6e 67 20 | 6c 65 6e 67 74 68 20 24 |[string |length $|
|00001cd0| 74 65 78 74 5d 5d 22 0d | 09 09 73 65 74 20 70 6f |text]]".|..set po|
|00001ce0| 73 20 24 65 6e 64 0d 09 | 7d 0d 09 69 66 20 7b 5b |s $end..|}..if {[|
|00001cf0| 69 6e 66 6f 20 65 78 69 | 73 74 73 20 69 6e 64 73 |info exi|sts inds|
|00001d00| 5d 7d 20 7b 0d 09 09 66 | 6f 72 65 61 63 68 20 66 |]} {...f|oreach f|
|00001d10| 20 5b 6c 73 6f 72 74 20 | 2d 69 67 6e 6f 72 65 20 | [lsort |-ignore |
|00001d20| 5b 61 72 72 61 79 20 6e | 61 6d 65 73 20 69 6e 64 |[array n|ames ind|
|00001d30| 73 5d 5d 20 7b 0d 09 09 | 09 73 65 74 20 72 65 73 |s]] {...|.set res|
|00001d40| 20 24 69 6e 64 73 28 24 | 66 29 0d 09 09 09 73 65 | $inds($|f)....se|
|00001d50| 74 4e 61 6d 65 64 4d 61 | 72 6b 20 24 66 20 5b 6c |tNamedMa|rk $f [l|
|00001d60| 69 6e 65 53 74 61 72 74 | 20 5b 6c 69 6e 64 65 78 |ineStart| [lindex|
|00001d70| 20 24 72 65 73 20 30 5d | 5d 20 5b 6c 69 6e 64 65 | $res 0]|] [linde|
|00001d80| 78 20 24 72 65 73 20 30 | 5d 20 5b 6c 69 6e 64 65 |x $res 0|] [linde|
|00001d90| 78 20 24 72 65 73 20 31 | 5d 0d 09 09 7d 0d 09 7d |x $res 1|]...}..}|
|00001da0| 0d 7d 0d 0d 23 23 20 0d | 20 23 20 2d 2d 2d 2d 2d |.}..## .| # -----|
|00001db0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001dc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001dd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001de0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001df0| 2d 2d 2d 2d 0d 20 23 09 | 20 0d 20 23 20 22 43 2b |----. #.| . # "C+|
|00001e00| 2b 4d 61 72 6b 46 69 6c | 65 22 20 2d 2d 0d 20 23 |+MarkFil|e" --. #|
|00001e10| 09 0d 20 23 09 49 6d 70 | 72 6f 76 65 64 20 76 65 |.. #.Imp|roved ve|
|00001e20| 72 73 69 6f 6e 20 77 68 | 69 63 68 20 68 61 6e 64 |rsion wh|ich hand|
|00001e30| 6c 65 73 20 74 65 6d 70 | 6c 61 74 65 73 2c 20 6f |les temp|lates, o|
|00001e40| 70 65 72 61 74 6f 72 73 | 09 65 74 63 2e 0d 20 23 |perators|.etc.. #|
|00001e50| 09 4d 61 6b 65 73 20 75 | 73 65 20 6f 66 20 74 68 |.Makes u|se of th|
|00001e60| 65 20 6e 65 77 20 6d 61 | 72 6b 20 6d 65 6e 75 20 |e new ma|rk menu |
|00001e70| 69 6e 20 41 6c 70 68 61 | 09 36 2e 32 62 37 20 77 |in Alpha|.6.2b7 w|
|00001e80| 68 69 63 68 09 63 61 6e | 09 68 61 6e 64 6c 65 0d |hich.can|.handle.|
|00001e90| 20 23 09 6d 6f 72 65 20 | 77 65 69 72 64 20 63 68 | #.more |weird ch|
|00001ea0| 61 72 61 63 74 65 72 73 | 2e 0d 20 23 09 09 20 20 |aracters|.. #..  |
|00001eb0| 20 0d 20 23 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | . # ---|--------|
|00001ec0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ed0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ee0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ef0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 20 |--------|------. |
|00001f00| 23 23 0d 70 72 6f 63 20 | 43 2b 2b 4d 61 72 6b 46 |##.proc |C++MarkF|
|00001f10| 69 6c 65 20 7b 7d 20 7b | 0d 09 73 65 74 20 70 6f |ile {} {|..set po|
|00001f20| 73 20 30 0d 09 73 65 74 | 20 6d 61 72 6b 45 78 70 |s 0..set| markExp|
|00001f30| 72 20 7b 5e 28 5b 5e 20 | 5c 74 5c 28 23 5c 72 2f |r {^([^ |\t\(#\r/|
|00001f40| 40 5d 2e 2a 5b 20 5c 74 | 5d 2b 29 3f 5c 2a 3f 28 |@].*[ \t|]+)?\*?(|
|00001f50| 5b 41 2d 5a 61 2d 7a 30 | 2d 39 3c 3e 7e 5f 5d 2b |[A-Za-z0|-9<>~_]+|
|00001f60| 3a 3a 5b 2d 20 3c 3e 41 | 2d 5a 61 2d 7a 30 2d 39 |::[- <>A|-Za-z0-9|
|00001f70| 7e 5f 2b 3d 5c 7c 5c 2a | 2f 5d 2b 7c 5b 41 2d 5a |~_+=\|\*|/]+|[A-Z|
|00001f80| 61 2d 7a 30 2d 39 7e 5f | 5d 2b 29 5b 20 5c 74 5c |a-z0-9~_|]+)[ \t\|
|00001f90| 72 5d 2a 5c 28 7d 0d 09 | 77 68 69 6c 65 20 7b 21 |r]*\(}..|while {!|
|00001fa0| 5b 63 61 74 63 68 20 7b | 73 65 61 72 63 68 20 2d |[catch {|search -|
|00001fb0| 73 20 2d 66 20 31 20 2d | 72 20 31 20 2d 6d 20 30 |s -f 1 -|r 1 -m 0|
|00001fc0| 20 2d 69 20 30 20 22 24 | 6d 61 72 6b 45 78 70 72 | -i 0 "$|markExpr|
|00001fd0| 22 20 24 70 6f 73 7d 20 | 72 65 73 5d 7d 20 7b 0d |" $pos} |res]} {.|
|00001fe0| 09 09 73 65 74 20 73 74 | 61 72 74 20 5b 6c 69 6e |..set st|art [lin|
|00001ff0| 64 65 78 20 24 72 65 73 | 20 30 5d 0d 09 09 73 65 |dex $res| 0]...se|
|00002000| 74 20 65 6e 64 20 5b 65 | 78 70 72 20 5b 6c 69 6e |t end [e|xpr [lin|
|00002010| 64 65 78 20 24 72 65 73 | 20 31 5d 20 2b 20 31 5d |dex $res| 1] + 1]|
|00002020| 0d 09 09 73 65 74 20 74 | 68 69 73 74 65 78 74 20 |...set t|histext |
|00002030| 5b 67 65 74 54 65 78 74 | 20 24 73 74 61 72 74 20 |[getText| $start |
|00002040| 24 65 6e 64 5d 0d 09 09 | 23 72 65 67 65 78 70 20 |$end]...|#regexp |
|00002050| 64 6f 65 73 6e 27 74 20 | 6c 69 6b 65 20 63 61 72 |doesn't |like car|
|00002060| 72 69 61 67 65 20 72 65 | 74 75 72 6e 73 0d 09 09 |riage re|turns...|
|00002070| 72 65 67 73 75 62 20 2d | 61 6c 6c 20 22 5c 72 22 |regsub -|all "\r"|
|00002080| 20 24 74 68 69 73 74 65 | 78 74 20 22 20 22 20 74 | $thiste|xt " " t|
|00002090| 68 69 73 74 65 78 74 0d | 09 09 23 72 65 67 65 78 |histext.|..#regex|
|000020a0| 70 20 64 6f 65 73 6e 27 | 74 20 6c 69 6b 65 20 74 |p doesn'|t like t|
|000020b0| 61 62 73 20 65 69 74 68 | 65 72 0d 09 09 72 65 67 |abs eith|er...reg|
|000020c0| 73 75 62 20 2d 61 6c 6c | 20 22 5c 74 22 20 24 74 |sub -all| "\t" $t|
|000020d0| 68 69 73 74 65 78 74 20 | 22 20 22 20 74 68 69 73 |histext |" " this|
|000020e0| 74 65 78 74 0d 09 09 23 | 69 66 20 74 68 65 20 6f |text...#|if the o|
|000020f0| 70 65 6e 20 70 61 72 65 | 6e 20 77 61 73 20 74 68 |pen pare|n was th|
|00002100| 65 20 6c 61 73 74 20 63 | 68 61 72 61 63 74 65 72 |e last c|haracter|
|00002110| 20 6f 6e 20 74 68 65 20 | 6c 69 6e 65 20 74 68 65 | on the |line the|
|00002120| 20 73 65 6c 65 63 74 65 | 64 20 74 65 78 74 20 0d | selecte|d text .|
|00002130| 09 09 23 69 6e 63 6c 75 | 64 65 64 20 74 68 65 20 |..#inclu|ded the |
|00002140| 6c 61 73 74 20 63 61 72 | 72 69 61 67 65 20 72 65 |last car|riage re|
|00002150| 74 75 72 6e 20 61 73 20 | 77 65 6c 6c 0d 09 09 23 |turn as |well...#|
|00002160| 74 72 69 6d 20 74 68 69 | 73 20 6f 66 66 20 6e 6f |trim thi|s off no|
|00002170| 77 20 74 68 61 74 20 69 | 74 20 69 73 20 63 68 61 |w that i|t is cha|
|00002180| 6e 67 65 64 20 69 6e 74 | 6f 20 61 20 73 70 61 63 |nged int|o a spac|
|00002190| 65 0d 09 09 73 65 74 20 | 74 68 69 73 74 65 78 74 |e...set |thistext|
|000021a0| 20 5b 73 74 72 69 6e 67 | 20 74 72 69 6d 72 69 67 | [string| trimrig|
|000021b0| 68 74 20 24 74 68 69 73 | 74 65 78 74 5d 0d 09 09 |ht $this|text]...|
|000021c0| 69 66 20 7b 5b 72 65 67 | 65 78 70 20 7b 28 5b 41 |if {[reg|exp {([A|
|000021d0| 2d 5a 61 2d 7a 30 2d 39 | 3c 3e 7e 5f 5d 2b 3a 3a |-Za-z0-9|<>~_]+::|
|000021e0| 5b 2d 20 3c 3e 41 2d 5a | 61 2d 7a 30 2d 39 7e 5f |[- <>A-Z|a-z0-9~_|
|000021f0| 2b 3d 5c 7c 5c 2a 2f 5d | 2b 7c 5b 41 2d 5a 61 2d |+=\|\*/]|+|[A-Za-|
|00002200| 7a 30 2d 39 7e 5f 5d 2b | 29 5b 20 5c 74 5d 2a 5c |z0-9~_]+|)[ \t]*\|
|00002210| 28 7d 20 24 74 68 69 73 | 74 65 78 74 20 64 75 6d |(} $this|text dum|
|00002220| 6d 79 20 77 6f 72 64 5d | 7d 20 7b 0d 09 09 09 69 |my word]|} {....i|
|00002230| 66 20 7b 20 5b 73 74 72 | 69 6e 67 20 66 69 72 73 |f { [str|ing firs|
|00002240| 74 20 22 3a 3a 22 20 24 | 77 6f 72 64 5d 20 21 3d |t "::" $|word] !=|
|00002250| 20 2d 31 20 7d 20 7b 0d | 09 09 09 09 72 65 67 73 | -1 } {.|....regs|
|00002260| 75 62 20 7b 28 3c 5c 77 | 2b 3e 29 3f 3a 3a 7d 20 |ub {(<\w|+>)?::} |
|00002270| 24 77 6f 72 64 20 22 20 | 22 20 69 74 0d 09 09 09 |$word " |" it....|
|00002280| 09 73 65 74 20 6c 20 5b | 6c 69 6e 64 65 78 20 24 |.set l [|lindex $|
|00002290| 69 74 20 30 5d 0d 09 09 | 09 09 69 66 20 7b 20 24 |it 0]...|..if { $|
|000022a0| 6c 20 3d 3d 20 5b 6c 69 | 6e 64 65 78 20 24 69 74 |l == [li|ndex $it|
|000022b0| 20 31 5d 20 7d 20 7b 0d | 09 09 09 09 09 73 65 74 | 1] } {.|.....set|
|000022c0| 20 77 6f 72 64 20 22 43 | 6f 6e 73 74 72 75 63 74 | word "C|onstruct|
|000022d0| 20 27 24 6c 27 22 0d 09 | 09 09 09 7d 20 65 6c 73 | '$l'"..|...} els|
|000022e0| 65 69 66 20 7b 20 22 7e | 24 6c 22 20 3d 3d 20 5b |eif { "~|$l" == [|
|000022f0| 6c 69 6e 64 65 78 20 24 | 69 74 20 31 5d 20 7d 20 |lindex $|it 1] } |
|00002300| 7b 0d 09 09 09 09 09 73 | 65 74 20 77 6f 72 64 20 |{......s|et word |
|00002310| 22 44 65 73 74 72 75 63 | 74 20 27 24 6c 27 22 0d |"Destruc|t '$l'".|
|00002320| 09 09 09 09 7d 0d 09 09 | 09 7d 0d 09 09 09 73 65 |....}...|.}....se|
|00002330| 74 20 69 6e 64 73 28 24 | 77 6f 72 64 29 20 5b 6c |t inds($|word) [l|
|00002340| 69 6e 65 53 74 61 72 74 | 20 5b 65 78 70 72 20 24 |ineStart| [expr $|
|00002350| 73 74 61 72 74 20 2d 20 | 31 5d 5d 0d 09 09 7d 0d |start - |1]]...}.|
|00002360| 09 09 73 65 74 20 70 6f | 73 20 24 65 6e 64 0d 09 |..set po|s $end..|
|00002370| 7d 0d 09 69 66 20 7b 5b | 69 6e 66 6f 20 65 78 69 |}..if {[|info exi|
|00002380| 73 74 73 20 69 6e 64 73 | 5d 7d 20 7b 0d 09 09 66 |sts inds|]} {...f|
|00002390| 6f 72 65 61 63 68 20 66 | 20 5b 6c 73 6f 72 74 20 |oreach f| [lsort |
|000023a0| 2d 69 67 6e 6f 72 65 20 | 5b 61 72 72 61 79 20 6e |-ignore |[array n|
|000023b0| 61 6d 65 73 20 69 6e 64 | 73 5d 5d 20 7b 0d 09 09 |ames ind|s]] {...|
|000023c0| 09 73 65 74 20 6e 65 78 | 74 20 5b 6e 65 78 74 4c |.set nex|t [nextL|
|000023d0| 69 6e 65 53 74 61 72 74 | 20 24 69 6e 64 73 28 24 |ineStart| $inds($|
|000023e0| 66 29 5d 0d 09 09 09 69 | 66 20 7b 5b 73 74 72 69 |f)]....i|f {[stri|
|000023f0| 6e 67 20 6c 65 6e 67 74 | 68 20 24 66 5d 20 3e 20 |ng lengt|h $f] > |
|00002400| 33 35 7d 20 7b 20 0d 09 | 09 09 09 73 65 74 4e 61 |35} { ..|...setNa|
|00002410| 6d 65 64 4d 61 72 6b 20 | 22 5b 73 74 72 69 6e 67 |medMark |"[string|
|00002420| 20 72 61 6e 67 65 20 24 | 66 20 30 20 33 31 5d 2e | range $|f 0 31].|
|00002430| 2e 2e 22 20 22 24 69 6e | 64 73 28 24 66 29 22 20 |.." "$in|ds($f)" |
|00002440| 24 6e 65 78 74 20 24 6e | 65 78 74 0d 09 09 09 7d |$next $n|ext....}|
|00002450| 20 65 6c 73 65 20 7b 0d | 09 09 09 09 73 65 74 4e | else {.|....setN|
|00002460| 61 6d 65 64 4d 61 72 6b | 20 24 66 20 22 24 69 6e |amedMark| $f "$in|
|00002470| 64 73 28 24 66 29 22 20 | 24 6e 65 78 74 20 24 6e |ds($f)" |$next $n|
|00002480| 65 78 74 0d 09 09 09 7d | 0d 09 09 7d 0d 09 7d 0d |ext....}|...}..}.|
|00002490| 7d 0d 0d 70 72 6f 63 20 | 73 65 74 43 2b 2b 4d 6f |}..proc |setC++Mo|
|000024a0| 64 65 20 7b 7d 20 7b 0d | 09 63 68 61 6e 67 65 4d |de {} {.|.changeM|
|000024b0| 6f 64 65 20 22 43 2b 2b | 22 0d 7d 0d 0d 0d 0d 70 |ode "C++|".}....p|
|000024c0| 72 6f 63 20 64 75 6d 6d | 79 43 20 7b 7d 20 7b 7d |roc dumm|yC {} {}|
|000024d0| 0d 70 72 6f 63 20 64 75 | 6d 6d 79 43 2b 2b 20 7b |.proc du|mmyC++ {|
|000024e0| 7d 20 7b 7d 0d 0d 0d 23 | 3d 3d 3d 3d 3d 3d 3d 3d |} {}...#|========|
|000024f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002500| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002510| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002520| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002530| 3d 3d 3d 3d 3d 3d 3d 0d | 0d 70 72 6f 63 20 43 44 |=======.|.proc CD|
|00002540| 62 6c 43 6c 69 63 6b 20 | 7b 66 72 6f 6d 20 74 6f |blClick |{from to|
|00002550| 7d 20 7b 0d 09 67 6c 6f | 62 61 6c 20 74 61 67 46 |} {..glo|bal tagF|
|00002560| 69 6c 65 0d 09 0d 09 69 | 66 20 7b 5b 72 65 67 65 |ile....i|f {[rege|
|00002570| 78 70 20 7b 23 69 6e 63 | 6c 75 64 65 2e 2a 28 22 |xp {#inc|lude.*("|
|00002580| 7c 3c 29 28 2e 2a 29 28 | 22 7c 3e 29 7d 20 5b 67 ||<)(.*)(|"|>)} [g|
|00002590| 65 74 54 65 78 74 20 5b | 6c 69 6e 65 53 74 61 72 |etText [|lineStar|
|000025a0| 74 20 5b 67 65 74 50 6f | 73 5d 5d 20 5b 6e 65 78 |t [getPo|s]] [nex|
|000025b0| 74 4c 69 6e 65 53 74 61 | 72 74 20 5b 67 65 74 50 |tLineSta|rt [getP|
|000025c0| 6f 73 5d 5d 5d 20 64 31 | 20 64 31 20 69 6e 63 5d |os]]] d1| d1 inc]|
|000025d0| 7d 20 7b 0d 09 09 72 65 | 74 75 72 6e 20 5b 63 49 |} {...re|turn [cI|
|000025e0| 6e 63 6c 75 64 65 46 69 | 6c 65 20 24 69 6e 63 5d |ncludeFi|le $inc]|
|000025f0| 0d 09 7d 0d 0d 09 73 65 | 6c 65 63 74 20 24 66 72 |..}...se|lect $fr|
|00002600| 6f 6d 20 24 74 6f 0d 09 | 73 65 74 20 74 65 78 74 |om $to..|set text|
|00002610| 20 5b 67 65 74 53 65 6c | 65 63 74 5d 0d 09 0d 09 | [getSel|ect]....|
|00002620| 73 65 74 20 6c 69 6e 65 | 73 20 5b 67 72 65 70 20 |set line|s [grep |
|00002630| 22 5e 24 74 65 78 74 27 | 22 20 24 74 61 67 46 69 |"^$text'|" $tagFi|
|00002640| 6c 65 5d 0d 09 69 66 20 | 7b 5b 72 65 67 65 78 70 |le]..if |{[regexp|
|00002650| 20 7b 27 28 2e 2a 29 27 | 28 2e 2a 5b 5e 5c 74 5d | {'(.*)'|(.*[^\t]|
|00002660| 29 28 5c 74 29 2b b0 7d | 20 24 6c 69 6e 65 73 20 |)(\t)+.}| $lines |
|00002670| 64 75 6d 6d 79 20 6f 6e | 65 20 74 77 6f 5d 7d 20 |dummy on|e two]} |
|00002680| 7b 0d 09 09 69 66 20 7b | 5b 73 74 72 69 6e 67 20 |{...if {|[string |
|00002690| 6d 61 74 63 68 20 22 2a | 24 6f 6e 65 2a 22 20 5b |match "*|$one*" [|
|000026a0| 77 69 6e 4e 61 6d 65 73 | 20 2d 66 5d 5d 7d 20 7b |winNames| -f]]} {|
|000026b0| 0d 09 09 09 62 72 69 6e | 67 54 6f 46 72 6f 6e 74 |....brin|gToFront|
|000026c0| 20 24 6f 6e 65 0d 09 09 | 7d 20 65 6c 73 65 20 7b | $one...|} else {|
|000026d0| 0d 09 09 09 65 64 69 74 | 20 24 6f 6e 65 0d 09 09 |....edit| $one...|
|000026e0| 7d 0d 09 09 73 65 74 20 | 69 6e 64 73 20 5b 73 65 |}...set |inds [se|
|000026f0| 61 72 63 68 20 2d 66 20 | 31 20 2d 72 20 30 20 22 |arch -f |1 -r 0 "|
|00002700| 24 74 77 6f 22 20 30 5d | 0d 09 09 64 69 73 70 6c |$two" 0]|...displ|
|00002710| 61 79 20 5b 6c 69 6e 64 | 65 78 20 24 69 6e 64 73 |ay [lind|ex $inds|
|00002720| 20 30 5d 0d 09 09 65 76 | 61 6c 20 73 65 6c 65 63 | 0]...ev|al selec|
|00002730| 74 20 24 69 6e 64 73 0d | 09 7d 20 65 6c 73 65 20 |t $inds.|.} else |
|00002740| 7b 0d 09 09 6c 61 75 6e | 63 68 46 6f 72 65 41 70 |{...laun|chForeAp|
|00002750| 70 6c 20 44 61 6e 52 0d | 09 09 41 45 42 75 69 6c |pl DanR.|..AEBuil|
|00002760| 64 20 7b 27 44 61 6e 52 | 27 7d 20 44 61 6e 52 20 |d {'DanR|'} DanR |
|00002770| 7b 52 45 46 20 7d 20 22 | 2d 2d 2d 2d 22 20 22 d2 |{REF } "|----" ".|
|00002780| 24 74 65 78 74 d3 22 0d | 09 7d 0d 7d 0d 0d 70 72 |$text.".|.}.}..pr|
|00002790| 6f 63 20 43 2b 2b 44 62 | 6c 43 6c 69 63 6b 20 7b |oc C++Db|lClick {|
|000027a0| 66 72 6f 6d 20 74 6f 20 | 73 68 69 66 74 20 6f 70 |from to |shift op|
|000027b0| 74 69 6f 6e 20 63 6f 6e | 74 72 6f 6c 7d 20 7b 0d |tion con|trol} {.|
|000027c0| 09 43 44 62 6c 43 6c 69 | 63 6b 20 24 66 72 6f 6d |.CDblCli|ck $from|
|000027d0| 20 24 74 6f 0d 7d 0d 0d | 0d 70 72 6f 63 20 63 49 | $to.}..|.proc cI|
|000027e0| 6e 63 6c 75 64 65 46 69 | 6c 65 20 7b 66 6e 61 6d |ncludeFi|le {fnam|
|000027f0| 65 7d 20 7b 0d 09 67 6c | 6f 62 61 6c 20 63 49 6e |e} {..gl|obal cIn|
|00002800| 63 6c 75 64 65 50 61 74 | 68 0d 09 69 66 20 7b 5b |cludePat|h..if {[|
|00002810| 66 69 6c 65 20 65 78 69 | 73 74 73 20 22 5b 66 69 |file exi|sts "[fi|
|00002820| 6c 65 20 64 69 72 20 5b | 63 61 72 20 5b 77 69 6e |le dir [|car [win|
|00002830| 4e 61 6d 65 73 20 2d 66 | 5d 5d 5d 3a 24 66 6e 61 |Names -f|]]]:$fna|
|00002840| 6d 65 22 5d 7d 20 7b 0d | 09 09 65 64 69 74 20 22 |me"]} {.|..edit "|
|00002850| 5b 66 69 6c 65 20 64 69 | 72 20 5b 63 61 72 20 5b |[file di|r [car [|
|00002860| 77 69 6e 4e 61 6d 65 73 | 20 2d 66 5d 5d 5d 3a 24 |winNames| -f]]]:$|
|00002870| 66 6e 61 6d 65 22 0d 09 | 09 72 65 74 75 72 6e 0d |fname"..|.return.|
|00002880| 09 7d 0d 09 0d 09 66 6f | 72 65 61 63 68 20 70 61 |.}....fo|reach pa|
|00002890| 74 68 20 24 63 49 6e 63 | 6c 75 64 65 50 61 74 68 |th $cInc|ludePath|
|000028a0| 20 7b 0d 09 09 69 66 20 | 7b 5b 66 69 6c 65 20 65 | {...if |{[file e|
|000028b0| 78 69 73 74 73 20 22 24 | 70 61 74 68 3a 24 66 6e |xists "$|path:$fn|
|000028c0| 61 6d 65 22 5d 7d 20 7b | 0d 09 09 09 65 64 69 74 |ame"]} {|....edit|
|000028d0| 20 22 24 70 61 74 68 3a | 24 66 6e 61 6d 65 22 0d | "$path:|$fname".|
|000028e0| 09 09 09 72 65 74 75 72 | 6e 0d 09 09 7d 0d 09 7d |...retur|n...}..}|
|000028f0| 0d 09 69 66 20 7b 5b 61 | 73 6b 79 65 73 6e 6f 20 |..if {[a|skyesno |
|00002900| 22 27 24 66 6e 61 6d 65 | 27 20 63 61 6e 20 6e 6f |"'$fname|' can no|
|00002910| 74 20 62 65 20 66 6f 75 | 6e 64 2c 20 64 6f 20 79 |t be fou|nd, do y|
|00002920| 6f 75 20 77 69 73 68 20 | 74 6f 20 61 64 64 20 61 |ou wish |to add a|
|00002930| 6e 20 69 6e 63 6c 75 64 | 65 20 70 61 74 68 3f 22 |n includ|e path?"|
|00002940| 5d 7d 20 7b 0d 09 09 6c | 61 70 70 65 6e 64 20 63 |]} {...l|append c|
|00002950| 49 6e 63 6c 75 64 65 50 | 61 74 68 20 5b 73 74 72 |IncludeP|ath [str|
|00002960| 69 6e 67 20 74 72 69 6d | 72 69 67 68 74 20 5b 67 |ing trim|right [g|
|00002970| 65 74 5f 64 69 72 65 63 | 74 6f 72 79 5d 20 22 3a |et_direc|tory] ":|
|00002980| 22 5d 0d 09 09 63 49 6e | 63 6c 75 64 65 46 69 6c |"]...cIn|cludeFil|
|00002990| 65 20 24 66 6e 61 6d 65 | 0d 09 7d 0d 7d 0d 0d 0d |e $fname|..}.}...|
|000029a0| 70 72 6f 63 20 67 65 74 | 49 6e 63 6c 75 64 65 46 |proc get|IncludeF|
|000029b0| 69 6c 65 73 20 7b 7d 20 | 7b 0d 09 67 6c 6f 62 61 |iles {} |{..globa|
|000029c0| 6c 20 63 49 6e 63 6c 75 | 64 65 50 61 74 68 20 6d |l cInclu|dePath m|
|000029d0| 6f 64 65 4d 65 6e 75 73 | 20 6d 6f 64 65 0d 0d 09 |odeMenus| mode...|
|000029e0| 69 66 20 7b 5b 73 74 72 | 69 6e 67 20 6d 61 74 63 |if {[str|ing matc|
|000029f0| 68 20 22 2a 74 68 69 6e | 6b 4d 65 6e 75 2a 22 20 |h "*thin|kMenu*" |
|00002a00| 24 6d 6f 64 65 4d 65 6e | 75 73 28 24 6d 6f 64 65 |$modeMen|us($mode|
|00002a10| 29 5d 7d 20 7b 72 65 74 | 75 72 6e 20 5b 74 68 69 |)]} {ret|urn [thi|
|00002a20| 6e 6b 47 65 74 49 6e 63 | 6c 75 64 65 46 69 6c 65 |nkGetInc|ludeFile|
|00002a30| 73 5d 7d 0d 0d 09 73 65 | 74 20 63 69 64 20 5b 73 |s]}...se|t cid [s|
|00002a40| 63 61 6e 63 6f 6e 74 65 | 78 74 20 63 72 65 61 74 |canconte|xt creat|
|00002a50| 65 5d 0d 09 73 65 74 20 | 6c 69 6e 65 73 20 7b 7d |e]..set |lines {}|
|00002a60| 0d 09 73 63 61 6e 6d 61 | 74 63 68 20 24 63 69 64 |..scanma|tch $cid|
|00002a70| 20 7b 23 2e 2a 69 6e 63 | 6c 75 64 65 2e 2a 28 3c | {#.*inc|lude.*(<|
|00002a80| 7c 22 29 28 2e 2a 29 28 | 3e 7c 22 29 7d 20 20 7b ||")(.*)(|>|")}  {|
|00002a90| 6c 61 70 70 65 6e 64 20 | 6c 69 6e 65 73 20 24 6d |lappend |lines $m|
|00002aa0| 61 74 63 68 49 6e 66 6f | 28 73 75 62 6d 61 74 63 |atchInfo|(submatc|
|00002ab0| 68 31 29 7d 0d 09 73 65 | 74 20 66 69 64 20 5b 6f |h1)}..se|t fid [o|
|00002ac0| 70 65 6e 20 5b 63 61 72 | 20 5b 77 69 6e 4e 61 6d |pen [car| [winNam|
|00002ad0| 65 73 20 2d 66 5d 5d 20 | 22 72 22 5d 0d 09 73 63 |es -f]] |"r"]..sc|
|00002ae0| 61 6e 66 69 6c 65 20 24 | 63 69 64 20 24 66 69 64 |anfile $|cid $fid|
|00002af0| 0d 09 63 6c 6f 73 65 20 | 24 66 69 64 0d 09 73 63 |..close |$fid..sc|
|00002b00| 61 6e 63 6f 6e 74 65 78 | 74 20 64 65 6c 65 74 65 |ancontex|t delete|
|00002b10| 20 24 63 69 64 0d 09 72 | 65 74 75 72 6e 20 5b 6c | $cid..r|eturn [l|
|00002b20| 73 6f 72 74 20 2d 69 67 | 6e 6f 72 65 20 24 6c 69 |sort -ig|nore $li|
|00002b30| 6e 65 73 5d 0d 7d 0d 0d | 0d 70 72 6f 63 20 65 64 |nes].}..|.proc ed|
|00002b40| 69 74 49 6e 63 6c 75 64 | 65 46 69 6c 65 20 7b 66 |itInclud|eFile {f|
|00002b50| 6e 61 6d 65 7d 20 7b 0d | 09 67 6c 6f 62 61 6c 20 |name} {.|.global |
|00002b60| 6d 6f 64 65 4d 65 6e 75 | 73 20 6d 6f 64 65 0d 0d |modeMenu|s mode..|
|00002b70| 09 69 66 20 7b 5b 73 74 | 72 69 6e 67 20 6d 61 74 |.if {[st|ring mat|
|00002b80| 63 68 20 22 2a 74 68 69 | 6e 6b 4d 65 6e 75 2a 22 |ch "*thi|nkMenu*"|
|00002b90| 20 24 6d 6f 64 65 4d 65 | 6e 75 73 28 24 6d 6f 64 | $modeMe|nus($mod|
|00002ba0| 65 29 5d 7d 20 7b 72 65 | 74 75 72 6e 20 5b 74 68 |e)]} {re|turn [th|
|00002bb0| 69 6e 6b 45 64 69 74 49 | 6e 63 6c 75 64 65 46 69 |inkEditI|ncludeFi|
|00002bc0| 6c 65 20 24 66 6e 61 6d | 65 5d 7d 0d 0d 09 63 49 |le $fnam|e]}...cI|
|00002bd0| 6e 63 6c 75 64 65 46 69 | 6c 65 20 24 66 6e 61 6d |ncludeFi|le $fnam|
|00002be0| 65 0d 7d 0d 0d 0d 23 3d | 3d 3d 3d 3d 3d 3d 3d 3d |e.}...#=|========|
|00002bf0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002c00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002c10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002c20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002c30| 3d 3d 3d 3d 3d 3d 0d 00 | 00 00 00 00 00 00 00 00 |======..|........|
|00002c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c80| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00002c90| 6d 64 2d 64 6f 75 62 6c | 65 2d 63 6c 69 63 6b 69 |md-doubl|e-clicki|
|00002ca0| 6e 67 20 70 72 6f 63 73 | 20 63 61 6e 20 6e 6f 77 |ng procs| can now|
|00002cb0| 09 63 4d 6f 64 65 2e 74 | 63 6c 02 00 00 00 54 45 |.cMode.t|cl....TE|
|00002cc0| 58 54 41 4c 46 41 01 00 | 00 35 00 47 00 00 00 00 |XTALFA..|.5.G....|
|00002cd0| 00 00 54 45 58 54 41 4c | 46 41 01 00 00 35 00 47 |..TEXTAL|FA...5.G|
|00002ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002cf0| 00 00 aa 24 c9 cf 00 00 | 2b b7 00 00 01 7e 65 74 |...$....|+....~et|
|00002d00| 20 75 73 65 73 20 74 68 | 69 73 2e 0d a5 20 52 65 | uses th|is... Re|
|00002d10| 64 20 61 6e 64 20 62 6c | 75 65 20 63 6f 6c 6f 72 |d and bl|ue color|
|00002d20| 73 20 63 68 61 6e 67 65 | 64 20 73 6c 69 67 68 74 |s change|d slight|
|00002d30| 6c 79 2e 0d a5 20 45 75 | 64 6f 72 61 20 6d 6f 64 |ly... Eu|dora mod|
|00002d40| 65 20 73 75 62 6a 65 63 | 74 20 64 69 73 70 6c 61 |e subjec|t displa|
|00002d50| 79 20 67 6c 69 74 63 68 | 20 66 69 78 65 64 2e 0d |y glitch| fixed..|
|00002d60| a5 20 46 69 78 65 64 20 | 6e 61 73 74 6c 79 20 6c |. Fixed |nastly l|
|00002d70| 69 74 74 6c 65 20 6d 65 | 6d 6f 72 79 20 62 75 67 |ittle me|mory bug|
|00002d80| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 af 27 a0 |...H..Mo|naco..'.|
|00002d90| 00 00 1e 7c 01 ae 73 94 | 01 d5 7a b0 24 00 04 22 |...|..s.|..z.$.."|
|00002da0| 02 0f eb 58 00 00 00 04 | 00 04 00 28 00 02 02 5b |...X....|...(...[|
|00002db0| 03 22 00 28 00 02 02 5b | 03 22 ae 3d ce 65 00 00 |.".(...[|.".=.e..|
|00002dc0| 01 b0 00 00 01 b0 00 00 | 00 b9 01 00 00 00 01 00 |........|........|
|00002dd0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 01 ac da c8 |...L...L|...2....|
|00002de0| 1e 7c 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.|.....2|..MPSR..|
|00002df0| 00 0a 03 ed ff ff 00 00 | 00 00 01 b6 28 f4 00 00 |........|....(...|
+--------+-------------------------+-------------------------+--------+--------+