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

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 6d 69 73 63 2e 74 | 63 6c 00 00 00 00 00 00 |..misc.t|cl......|
|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 44 94 00 | 00 03 ce ac 2e 5e ac ac |.....D..|.....^..|
|00000060| 2e 5e ac 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 14 28 00 00 |........|.....(..|
|00000080| 23 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |#=======|========|
|00000090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 23 20 49 |========|====.# I|
|000000d0| 6e 66 6f 72 6d 61 74 69 | 6f 6e 20 61 62 6f 75 74 |nformati|on about|
|000000e0| 20 61 20 73 65 6c 65 63 | 74 69 6f 6e 20 6f 72 20 | a selec|tion or |
|000000f0| 77 69 6e 64 6f 77 2e 0d | 23 3d 3d 3d 3d 3d 3d 3d |window..|#=======|
|00000100| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000110| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000120| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000130| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000140| 3d 3d 3d 3d 0d 70 72 6f | 63 20 77 6f 72 64 43 6f |====.pro|c wordCo|
|00000150| 75 6e 74 20 7b 7d 20 7b | 0d 09 69 66 20 7b 5b 73 |unt {} {|..if {[s|
|00000160| 65 74 20 63 68 61 72 73 | 20 5b 65 78 70 72 20 7b |et chars| [expr {|
|00000170| 5b 73 65 6c 45 6e 64 5d | 20 2d 20 5b 67 65 74 50 |[selEnd]| - [getP|
|00000180| 6f 73 5d 7d 5d 5d 7d 20 | 7b 0d 09 09 73 65 74 20 |os]}]]} |{...set |
|00000190| 6c 69 6e 65 73 20 5b 65 | 78 70 72 20 7b 5b 6c 69 |lines [e|xpr {[li|
|000001a0| 6e 64 65 78 20 5b 70 6f | 73 54 6f 52 6f 77 43 6f |ndex [po|sToRowCo|
|000001b0| 6c 20 5b 73 65 6c 45 6e | 64 5d 5d 20 30 5d 20 2d |l [selEn|d]] 0] -|
|000001c0| 20 5b 6c 69 6e 64 65 78 | 20 5b 70 6f 73 54 6f 52 | [lindex| [posToR|
|000001d0| 6f 77 43 6f 6c 20 5b 67 | 65 74 50 6f 73 5d 5d 20 |owCol [g|etPos]] |
|000001e0| 30 5d 7d 5d 0d 09 09 73 | 65 74 20 74 65 78 74 20 |0]}]...s|et text |
|000001f0| 5b 67 65 74 53 65 6c 65 | 63 74 5d 0d 09 7d 20 65 |[getSele|ct]..} e|
|00000200| 6c 73 65 20 7b 0d 09 09 | 73 65 74 20 63 68 61 72 |lse {...|set char|
|00000210| 73 20 5b 6d 61 78 50 6f | 73 5d 0d 09 09 73 65 74 |s [maxPo|s]...set|
|00000220| 20 6c 69 6e 65 73 20 5b | 6c 69 6e 64 65 78 20 5b | lines [|lindex [|
|00000230| 70 6f 73 54 6f 52 6f 77 | 43 6f 6c 20 24 63 68 61 |posToRow|Col $cha|
|00000240| 72 73 5d 20 30 5d 0d 09 | 09 73 65 74 20 74 65 78 |rs] 0]..|.set tex|
|00000250| 74 20 5b 67 65 74 54 65 | 78 74 20 30 20 5b 6d 61 |t [getTe|xt 0 [ma|
|00000260| 78 50 6f 73 5d 5d 0d 09 | 7d 0d 09 69 66 20 7b 5b |xPos]]..|}..if {[|
|00000270| 72 65 67 73 75 62 20 2d | 61 6c 6c 20 7b 5b 21 3d |regsub -|all {[!=|
|00000280| 3b 2e 2c 5c 28 5c 23 5c | 3d 5c 29 3a 5c 7b 5c 22 |;.,\(\#\|=\):\{\"|
|00000290| 5c 7d 5d 7d 20 24 74 65 | 78 74 20 22 20 22 20 72 |\}]} $te|xt " " r|
|000002a0| 65 74 5d 7d 20 7b 0d 09 | 09 73 65 74 20 77 6f 72 |et]} {..|.set wor|
|000002b0| 64 73 20 5b 6c 6c 65 6e | 67 74 68 20 24 72 65 74 |ds [llen|gth $ret|
|000002c0| 5d 0d 09 7d 20 65 6c 73 | 65 20 7b 0d 09 09 73 65 |]..} els|e {...se|
|000002d0| 74 20 77 6f 72 64 73 20 | 5b 6c 6c 65 6e 67 74 68 |t words |[llength|
|000002e0| 20 24 74 65 78 74 5d 0d | 09 7d 0d 09 61 6c 65 72 | $text].|.}..aler|
|000002f0| 74 6e 6f 74 65 20 5b 66 | 6f 72 6d 61 74 20 22 25 |tnote [f|ormat "%|
|00000300| 64 20 63 68 61 72 73 2c | 20 25 64 20 77 6f 72 64 |d chars,| %d word|
|00000310| 73 2c 20 25 64 20 6c 69 | 6e 65 73 22 20 24 63 68 |s, %d li|nes" $ch|
|00000320| 61 72 73 20 24 77 6f 72 | 64 73 20 24 6c 69 6e 65 |ars $wor|ds $line|
|00000330| 73 5d 0d 7d 0d 0d 23 20 | 70 72 6f 63 20 6d 61 74 |s].}..# |proc mat|
|00000340| 63 68 69 6e 67 4c 69 6e | 65 73 20 7b 7d 20 7b 0d |chingLin|es {} {.|
|00000350| 23 20 09 69 66 20 5b 63 | 61 74 63 68 20 7b 70 72 |# .if [c|atch {pr|
|00000360| 6f 6d 70 74 20 22 52 65 | 67 75 6c 61 72 20 65 78 |ompt "Re|gular ex|
|00000370| 70 72 65 73 73 69 6f 6e | 3a 22 20 22 22 7d 20 72 |pression|:" ""} r|
|00000380| 65 67 5d 20 72 65 74 75 | 72 6e 0d 23 20 09 69 66 |eg] retu|rn.# .if|
|00000390| 20 7b 21 5b 73 74 72 69 | 6e 67 20 6c 65 6e 67 74 | {![stri|ng lengt|
|000003a0| 68 20 24 72 65 67 5d 7d | 20 72 65 74 75 72 6e 0d |h $reg]}| return.|
|000003b0| 23 20 09 73 65 74 20 72 | 65 67 20 5e 2e 2a 24 72 |# .set r|eg ^.*$r|
|000003c0| 65 67 2e 2a 24 0d 23 20 | 09 73 65 74 20 70 6f 73 |eg.*$.# |.set pos|
|000003d0| 20 5b 67 65 74 50 6f 73 | 5d 0d 23 20 09 73 65 74 | [getPos|].# .set|
|000003e0| 20 6d 61 74 63 68 65 73 | 20 30 0d 23 20 09 77 68 | matches| 0.# .wh|
|000003f0| 69 6c 65 20 7b 21 5b 63 | 61 74 63 68 20 7b 73 65 |ile {![c|atch {se|
|00000400| 61 72 63 68 20 2d 66 20 | 31 20 2d 72 20 31 20 2d |arch -f |1 -r 1 -|
|00000410| 6d 20 30 20 2d 69 20 31 | 20 24 72 65 67 20 24 70 |m 0 -i 1| $reg $p|
|00000420| 6f 73 7d 20 6d 74 63 68 | 5d 7d 20 7b 0d 23 20 09 |os} mtch|]} {.# .|
|00000430| 09 61 70 70 65 6e 64 20 | 6c 69 6e 65 73 20 22 5c |.append |lines "\|
|00000440| 72 22 20 5b 66 6f 72 6d | 61 74 20 22 25 34 64 3a |r" [form|at "%4d:|
|00000450| 20 22 20 5b 6c 69 6e 64 | 65 78 20 5b 70 6f 73 54 | " [lind|ex [posT|
|00000460| 6f 52 6f 77 43 6f 6c 20 | 5b 6c 69 6e 64 65 78 20 |oRowCol |[lindex |
|00000470| 24 6d 74 63 68 20 30 5d | 5d 20 30 5d 5d 20 5b 65 |$mtch 0]|] 0]] [e|
|00000480| 76 61 6c 20 67 65 74 54 | 65 78 74 20 24 6d 74 63 |val getT|ext $mtc|
|00000490| 68 5d 0d 23 20 09 09 73 | 65 74 20 70 6f 73 20 5b |h].# ..s|et pos [|
|000004a0| 6c 69 6e 64 65 78 20 24 | 6d 74 63 68 20 31 5d 0d |lindex $|mtch 1].|
|000004b0| 23 20 09 09 69 6e 63 72 | 20 6d 61 74 63 68 65 73 |# ..incr| matches|
|000004c0| 0d 23 20 09 7d 0d 23 20 | 09 6e 65 77 0d 23 20 09 |.# .}.# |.new.# .|
|000004d0| 69 6e 73 65 72 74 54 65 | 78 74 20 5b 66 6f 72 6d |insertTe|xt [form|
|000004e0| 61 74 20 22 25 64 20 6d | 61 74 63 68 69 6e 67 20 |at "%d m|atching |
|000004f0| 6c 69 6e 65 73 5c 72 2d | 2d 2d 2d 2d 22 20 24 6d |lines\r-|----" $m|
|00000500| 61 74 63 68 65 73 5d 20 | 24 6c 69 6e 65 73 20 22 |atches] |$lines "|
|00000510| 5c 72 22 0d 23 20 7d 0d | 73 65 74 20 6c 61 73 74 |\r".# }.|set last|
|00000520| 4d 61 74 63 68 69 6e 67 | 4c 69 6e 65 73 20 22 22 |Matching|Lines ""|
|00000530| 0d 0d 70 72 6f 63 20 6d | 61 74 63 68 69 6e 67 4c |..proc m|atchingL|
|00000540| 69 6e 65 73 20 7b 7d 20 | 7b 0d 09 67 6c 6f 62 61 |ines {} |{..globa|
|00000550| 6c 20 6c 61 73 74 4d 61 | 74 63 68 69 6e 67 4c 69 |l lastMa|tchingLi|
|00000560| 6e 65 73 0d 09 0d 09 69 | 66 20 5b 63 61 74 63 68 |nes....i|f [catch|
|00000570| 20 7b 70 72 6f 6d 70 74 | 20 22 52 65 67 75 6c 61 | {prompt| "Regula|
|00000580| 72 20 65 78 70 72 65 73 | 73 69 6f 6e 3a 22 20 24 |r expres|sion:" $|
|00000590| 6c 61 73 74 4d 61 74 63 | 68 69 6e 67 4c 69 6e 65 |lastMatc|hingLine|
|000005a0| 73 7d 20 72 65 67 5d 20 | 72 65 74 75 72 6e 0d 09 |s} reg] |return..|
|000005b0| 73 65 74 20 6c 61 73 74 | 4d 61 74 63 68 69 6e 67 |set last|Matching|
|000005c0| 4c 69 6e 65 73 20 24 72 | 65 67 0d 09 69 66 20 7b |Lines $r|eg..if {|
|000005d0| 21 5b 73 74 72 69 6e 67 | 20 6c 65 6e 67 74 68 20 |![string| length |
|000005e0| 24 72 65 67 5d 7d 20 72 | 65 74 75 72 6e 0d 09 73 |$reg]} r|eturn..s|
|000005f0| 65 74 20 72 65 67 20 5e | 2e 2a 24 72 65 67 2e 2a |et reg ^|.*$reg.*|
|00000600| 24 0d 09 73 65 74 20 70 | 6f 73 20 30 0d 09 73 65 |$..set p|os 0..se|
|00000610| 74 20 66 69 6c 65 4e 61 | 6d 65 20 5b 6c 69 6e 64 |t fileNa|me [lind|
|00000620| 65 78 20 5b 77 69 6e 4e | 61 6d 65 73 20 2d 66 5d |ex [winN|ames -f]|
|00000630| 20 30 5d 0d 09 73 65 74 | 20 6d 61 74 63 68 65 73 | 0]..set| matches|
|00000640| 20 30 0d 09 77 68 69 6c | 65 20 7b 21 5b 63 61 74 | 0..whil|e {![cat|
|00000650| 63 68 20 7b 73 65 61 72 | 63 68 20 2d 73 20 2d 66 |ch {sear|ch -s -f|
|00000660| 20 31 20 2d 72 20 31 20 | 2d 6d 20 30 20 2d 69 20 | 1 -r 1 |-m 0 -i |
|00000670| 31 20 24 72 65 67 20 24 | 70 6f 73 7d 20 6d 74 63 |1 $reg $|pos} mtc|
|00000680| 68 5d 7d 20 7b 0d 09 09 | 61 70 70 65 6e 64 20 6c |h]} {...|append l|
|00000690| 69 6e 65 73 20 22 5c 72 | 22 20 5b 66 6f 72 6d 61 |ines "\r|" [forma|
|000006a0| 74 20 22 4c 69 6e 65 20 | 25 64 3a 20 22 20 5b 6c |t "Line |%d: " [l|
|000006b0| 69 6e 64 65 78 20 5b 70 | 6f 73 54 6f 52 6f 77 43 |index [p|osToRowC|
|000006c0| 6f 6c 20 5b 6c 69 6e 64 | 65 78 20 24 6d 74 63 68 |ol [lind|ex $mtch|
|000006d0| 20 30 5d 5d 20 30 5d 5d | 20 5b 65 76 61 6c 20 67 | 0]] 0]]| [eval g|
|000006e0| 65 74 54 65 78 74 20 24 | 6d 74 63 68 5d 20 22 5c |etText $|mtch] "\|
|000006f0| 74 5c 74 5c 74 5c 74 5c | 74 5c 74 5c 74 5c 74 5c |t\t\t\t\|t\t\t\t\|
|00000700| 74 5c 74 5c 74 5c 74 5c | 74 5c 74 5c 74 5c 74 5c |t\t\t\t\|t\t\t\t\|
|00000710| 74 5c 74 5c 74 5c 74 5c | 74 5c 74 5c 74 5c 74 5c |t\t\t\t\|t\t\t\t\|
|00000720| 74 5c 74 5c 74 5c 74 5c | 74 5c 74 b0 24 66 69 6c |t\t\t\t\|t\t.$fil|
|00000730| 65 4e 61 6d 65 22 0d 09 | 09 73 65 74 20 70 6f 73 |eName"..|.set pos|
|00000740| 20 5b 6c 69 6e 64 65 78 | 20 24 6d 74 63 68 20 31 | [lindex| $mtch 1|
|00000750| 5d 0d 09 09 69 6e 63 72 | 20 6d 61 74 63 68 65 73 |]...incr| matches|
|00000760| 0d 09 7d 0d 09 6e 65 77 | 20 2d 6e 20 7b 2a 20 4d |..}..new| -n {* M|
|00000770| 61 74 63 68 69 6e 67 20 | 4c 69 6e 65 73 20 2a 7d |atching |Lines *}|
|00000780| 0d 09 69 6e 73 65 72 74 | 54 65 78 74 20 5b 66 6f |..insert|Text [fo|
|00000790| 72 6d 61 74 20 22 25 64 | 20 6d 61 74 63 68 69 6e |rmat "%d| matchin|
|000007a0| 67 20 6c 69 6e 65 73 20 | 28 3c 63 72 3e 20 74 6f |g lines |(<cr> to|
|000007b0| 20 67 6f 20 74 6f 20 6d | 61 74 63 68 29 5c 72 2d | go to m|atch)\r-|
|000007c0| 2d 2d 2d 2d 22 20 24 6d | 61 74 63 68 65 73 5d 20 |----" $m|atches] |
|000007d0| 24 6c 69 6e 65 73 20 22 | 5c 72 22 0d 09 73 65 6c |$lines "|\r"..sel|
|000007e0| 65 63 74 20 5b 6e 65 78 | 74 4c 69 6e 65 53 74 61 |ect [nex|tLineSta|
|000007f0| 72 74 20 5b 6e 65 78 74 | 4c 69 6e 65 53 74 61 72 |rt [next|LineStar|
|00000800| 74 20 30 5d 5d 20 5b 6e | 65 78 74 4c 69 6e 65 53 |t 0]] [n|extLineS|
|00000810| 74 61 72 74 20 5b 6e 65 | 78 74 4c 69 6e 65 53 74 |tart [ne|xtLineSt|
|00000820| 61 72 74 20 5b 6e 65 78 | 74 4c 69 6e 65 53 74 61 |art [nex|tLineSta|
|00000830| 72 74 20 30 5d 5d 5d 0d | 09 0d 09 67 6c 6f 62 61 |rt 0]]].|...globa|
|00000840| 6c 20 77 69 6e 4d 6f 64 | 65 73 0d 09 73 65 74 20 |l winMod|es..set |
|00000850| 6e 61 6d 65 20 5b 6c 69 | 6e 64 65 78 20 5b 77 69 |name [li|ndex [wi|
|00000860| 6e 4e 61 6d 65 73 5d 20 | 30 5d 0d 09 63 68 61 6e |nNames] |0]..chan|
|00000870| 67 65 4d 6f 64 65 20 5b | 73 65 74 20 77 69 6e 4d |geMode [|set winM|
|00000880| 6f 64 65 73 28 24 6e 61 | 6d 65 29 20 42 72 77 73 |odes($na|me) Brws|
|00000890| 5d 0d 09 73 65 74 57 69 | 6e 49 6e 66 6f 20 64 69 |]..setWi|nInfo di|
|000008a0| 72 74 79 20 30 0d 09 73 | 65 74 57 69 6e 49 6e 66 |rty 0..s|etWinInf|
|000008b0| 6f 20 72 65 61 64 2d 6f | 6e 6c 79 20 31 0d 09 0d |o read-o|nly 1...|
|000008c0| 09 73 68 72 69 6e 6b 57 | 69 6e 64 6f 77 0d 7d 0d |.shrinkW|indow.}.|
|000008d0| 0d 23 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.#======|========|
|000008e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000008f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000900| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000910| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00000920| 23 20 52 61 6e 64 6f 6d | 20 66 75 6e 63 74 69 6f |# Random| functio|
|00000930| 6e 73 2e 0d 23 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |ns..#===|========|
|00000940| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000950| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000960| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000970| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000980| 3d 3d 0d 0d 23 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |==..#***|********|
|00000990| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000009a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000009b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000009c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 23 20 20 |********|****.#  |
|000009d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000009e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000009f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000a00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000a10| 20 20 20 20 2a 0d 23 20 | 20 20 43 6f 6d 6d 65 6e |    *.# |  Commen|
|00000a20| 74 20 62 6f 78 20 61 6e | 64 20 75 6e 63 6f 6d 6d |t box an|d uncomm|
|00000a30| 65 6e 74 20 62 6f 78 20 | 63 6f 75 72 74 65 73 79 |ent box |courtesy|
|00000a40| 20 6f 66 20 49 67 6f 72 | 20 4d 69 6b 6f 6c 69 63 | of Igor| Mikolic|
|00000a50| 2d 54 6f 72 72 65 69 72 | 61 2e 20 20 20 2a 0d 23 |-Torreir|a.   *.#|
|00000a60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000a70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000a90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000aa0| 20 20 20 20 20 20 2a 0d | 23 2a 2a 2a 2a 2a 2a 2a |      *.|#*******|
|00000ab0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ac0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ad0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ae0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2f |********|*******/|
|00000af0| 0d 0d 70 72 6f 63 20 63 | 6f 6d 6d 65 6e 74 42 6f |..proc c|ommentBo|
|00000b00| 78 20 7b 7d 20 7b 0d 0d | 23 20 50 72 65 6c 69 6d |x {} {..|# Prelim|
|00000b10| 69 6e 61 72 69 65 73 0d | 0d 09 69 66 20 7b 5b 67 |inaries.|..if {[g|
|00000b20| 65 74 50 6f 73 5d 20 3d | 3d 20 5b 73 65 6c 45 6e |etPos] =|= [selEn|
|00000b30| 64 5d 7d 20 7b 0d 09 09 | 61 6c 65 72 74 6e 6f 74 |d]} {...|alertnot|
|00000b40| 65 20 22 4d 75 73 74 20 | 73 65 6c 65 63 74 20 72 |e "Must |select r|
|00000b50| 65 67 69 6f 6e 20 74 6f | 20 62 65 20 63 6f 6d 6d |egion to| be comm|
|00000b60| 65 6e 74 65 64 2e 22 0d | 09 09 72 65 74 75 72 6e |ented.".|..return|
|00000b70| 0d 09 7d 0d 09 67 6c 6f | 62 61 6c 20 6d 6f 64 65 |..}..glo|bal mode|
|00000b80| 0d 09 77 61 74 63 68 43 | 75 72 73 6f 72 0d 09 0d |..watchC|ursor...|
|00000b90| 23 20 53 65 74 20 77 68 | 61 74 20 74 68 65 20 63 |# Set wh|at the c|
|00000ba0| 6f 6d 6d 65 6e 74 20 62 | 6c 6f 63 6b 20 77 69 6c |omment b|lock wil|
|00000bb0| 6c 20 6c 6f 6f 6b 20 6c | 69 6b 65 0d 0d 09 63 61 |l look l|ike...ca|
|00000bc0| 73 65 20 24 6d 6f 64 65 | 20 69 6e 20 7b 0d 09 09 |se $mode| in {...|
|00000bd0| 22 42 69 62 20 54 65 58 | 22 20 7b 0d 09 09 09 73 |"Bib TeX|" {....s|
|00000be0| 65 74 20 62 65 67 43 6f | 6d 6d 65 6e 74 20 22 25 |et begCo|mment "%|
|00000bf0| 22 0d 09 09 09 73 65 74 | 20 62 65 67 43 6f 6d 4c |"....set| begComL|
|00000c00| 65 6e 20 31 0d 09 09 09 | 73 65 74 20 65 6e 64 43 |en 1....|set endC|
|00000c10| 6f 6d 6d 65 6e 74 20 22 | 25 22 0d 09 09 09 73 65 |omment "|%"....se|
|00000c20| 74 20 65 6e 64 43 6f 6d | 4c 65 6e 20 31 0d 09 09 |t endCom|Len 1...|
|00000c30| 09 73 65 74 20 66 69 6c | 6c 43 68 61 72 20 22 25 |.set fil|lChar "%|
|00000c40| 22 0d 09 09 09 73 65 74 | 20 73 70 61 63 65 4f 66 |"....set| spaceOf|
|00000c50| 66 73 65 74 20 33 0d 09 | 09 7d 0d 09 09 22 54 65 |fset 3..|.}..."Te|
|00000c60| 78 74 22 20 7b 0d 09 09 | 09 73 65 74 20 62 65 67 |xt" {...|.set beg|
|00000c70| 43 6f 6d 6d 65 6e 74 20 | 22 21 22 0d 09 09 09 73 |Comment |"!"....s|
|00000c80| 65 74 20 62 65 67 43 6f | 6d 4c 65 6e 20 31 0d 09 |et begCo|mLen 1..|
|00000c90| 09 09 73 65 74 20 65 6e | 64 43 6f 6d 6d 65 6e 74 |..set en|dComment|
|00000ca0| 20 22 21 22 0d 09 09 09 | 73 65 74 20 65 6e 64 43 | "!"....|set endC|
|00000cb0| 6f 6d 4c 65 6e 20 31 0d | 09 09 09 73 65 74 20 66 |omLen 1.|...set f|
|00000cc0| 69 6c 6c 43 68 61 72 20 | 22 21 22 0d 09 09 09 73 |illChar |"!"....s|
|00000cd0| 65 74 20 73 70 61 63 65 | 4f 66 66 73 65 74 20 33 |et space|Offset 3|
|00000ce0| 0d 09 09 7d 0d 09 09 22 | 46 6f 72 74 22 20 7b 0d |...}..."|Fort" {.|
|00000cf0| 09 09 09 73 65 74 20 62 | 65 67 43 6f 6d 6d 65 6e |...set b|egCommen|
|00000d00| 74 20 22 43 22 0d 09 09 | 09 73 65 74 20 62 65 67 |t "C"...|.set beg|
|00000d10| 43 6f 6d 4c 65 6e 20 31 | 0d 09 09 09 73 65 74 20 |ComLen 1|....set |
|00000d20| 65 6e 64 43 6f 6d 6d 65 | 6e 74 20 22 43 22 0d 09 |endComme|nt "C"..|
|00000d30| 09 09 73 65 74 20 65 6e | 64 43 6f 6d 4c 65 6e 20 |..set en|dComLen |
|00000d40| 31 0d 09 09 09 73 65 74 | 20 66 69 6c 6c 43 68 61 |1....set| fillCha|
|00000d50| 72 20 22 43 22 0d 09 09 | 09 73 65 74 20 73 70 61 |r "C"...|.set spa|
|00000d60| 63 65 4f 66 66 73 65 74 | 20 33 0d 09 09 7d 0d 09 |ceOffset| 3...}..|
|00000d70| 09 22 54 63 6c 22 20 7b | 0d 09 09 09 73 65 74 20 |."Tcl" {|....set |
|00000d80| 62 65 67 43 6f 6d 6d 65 | 6e 74 20 22 23 22 0d 09 |begComme|nt "#"..|
|00000d90| 09 09 73 65 74 20 62 65 | 67 43 6f 6d 4c 65 6e 20 |..set be|gComLen |
|00000da0| 31 0d 09 09 09 73 65 74 | 20 65 6e 64 43 6f 6d 6d |1....set| endComm|
|00000db0| 65 6e 74 20 22 23 22 0d | 09 09 09 73 65 74 20 65 |ent "#".|...set e|
|00000dc0| 6e 64 43 6f 6d 4c 65 6e | 20 31 0d 09 09 09 73 65 |ndComLen| 1....se|
|00000dd0| 74 20 66 69 6c 6c 43 68 | 61 72 20 22 23 22 0d 09 |t fillCh|ar "#"..|
|00000de0| 09 09 73 65 74 20 73 70 | 61 63 65 4f 66 66 73 65 |..set sp|aceOffse|
|00000df0| 74 20 33 0d 09 09 7d 0d | 09 09 22 43 20 43 2b 2b |t 3...}.|.."C C++|
|00000e00| 22 20 7b 0d 09 09 09 73 | 65 74 20 62 65 67 43 6f |" {....s|et begCo|
|00000e10| 6d 6d 65 6e 74 20 22 2f | 2a 22 0d 09 09 09 73 65 |mment "/|*"....se|
|00000e20| 74 20 62 65 67 43 6f 6d | 4c 65 6e 20 32 0d 09 09 |t begCom|Len 2...|
|00000e30| 09 73 65 74 20 65 6e 64 | 43 6f 6d 6d 65 6e 74 20 |.set end|Comment |
|00000e40| 22 2a 2f 22 0d 09 09 09 | 73 65 74 20 65 6e 64 43 |"*/"....|set endC|
|00000e50| 6f 6d 4c 65 6e 20 32 0d | 09 09 09 73 65 74 20 66 |omLen 2.|...set f|
|00000e60| 69 6c 6c 43 68 61 72 20 | 22 2a 22 0d 09 09 09 73 |illChar |"*"....s|
|00000e70| 65 74 20 73 70 61 63 65 | 4f 66 66 73 65 74 20 33 |et space|Offset 3|
|00000e80| 0d 09 09 7d 0d 09 09 64 | 65 66 61 75 6c 74 20 7b |...}...d|efault {|
|00000e90| 0d 09 09 09 61 6c 65 72 | 74 6e 6f 74 65 20 22 49 |....aler|tnote "I|
|00000ea0| 20 64 6f 6e 27 74 20 6b | 6e 6f 77 20 77 68 61 74 | don't k|now what|
|00000eb0| 20 63 6f 6d 6d 65 6e 74 | 73 20 73 68 6f 75 6c 64 | comment|s should|
|00000ec0| 20 6c 6f 6f 6b 20 6c 69 | 6b 65 20 69 6e 20 74 68 | look li|ke in th|
|00000ed0| 69 73 20 6d 6f 64 65 2e | 20 20 53 6f 72 72 79 2e |is mode.|  Sorry.|
|00000ee0| 22 0d 09 09 09 72 65 74 | 75 72 6e 0d 09 09 7d 0d |"....ret|urn...}.|
|00000ef0| 09 7d 0d 09 73 65 74 20 | 61 53 70 61 63 65 20 22 |.}..set |aSpace "|
|00000f00| 20 22 0d 0d 23 20 46 69 | 72 73 74 20 6d 61 6b 65 | "..# Fi|rst make|
|00000f10| 20 73 75 72 65 20 77 65 | 20 67 72 61 62 20 61 20 | sure we| grab a |
|00000f20| 66 75 6c 6c 20 62 6c 6f | 63 6b 20 6f 66 20 6c 69 |full blo|ck of li|
|00000f30| 6e 65 73 20 61 6e 64 20 | 61 64 6a 75 73 74 20 68 |nes and |adjust h|
|00000f40| 69 67 68 6c 69 67 68 74 | 0d 0d 09 73 65 74 20 73 |ighlight|...set s|
|00000f50| 74 61 72 74 20 5b 67 65 | 74 50 6f 73 5d 0d 09 73 |tart [ge|tPos]..s|
|00000f60| 65 74 20 73 74 61 72 74 | 20 5b 6c 69 6e 65 53 74 |et start| [lineSt|
|00000f70| 61 72 74 20 24 73 74 61 | 72 74 5d 0d 09 73 65 74 |art $sta|rt]..set|
|00000f80| 20 65 6e 64 20 5b 73 65 | 6c 45 6e 64 5d 0d 09 73 | end [se|lEnd]..s|
|00000f90| 65 74 20 65 6e 64 20 5b | 6e 65 78 74 4c 69 6e 65 |et end [|nextLine|
|00000fa0| 53 74 61 72 74 20 5b 65 | 78 70 72 20 24 65 6e 64 |Start [e|xpr $end|
|00000fb0| 2d 31 5d 5d 0d 09 73 65 | 6c 65 63 74 20 24 73 74 |-1]]..se|lect $st|
|00000fc0| 61 72 74 20 24 65 6e 64 | 0d 0d 23 20 4e 6f 77 20 |art $end|..# Now |
|00000fd0| 67 65 74 20 72 69 64 20 | 6f 66 20 61 6e 79 20 74 |get rid |of any t|
|00000fe0| 61 62 73 0d 09 0d 09 69 | 66 20 7b 20 24 65 6e 64 |abs....i|f { $end|
|00000ff0| 20 3c 20 5b 6d 61 78 50 | 6f 73 5d 20 7d 20 74 68 | < [maxP|os] } th|
|00001000| 65 6e 20 7b 0d 09 09 63 | 72 65 61 74 65 54 4d 61 |en {...c|reateTMa|
|00001010| 72 6b 20 73 74 6f 70 43 | 6f 6d 6d 65 6e 74 20 5b |rk stopC|omment [|
|00001020| 65 78 70 72 20 24 65 6e | 64 2b 31 5d 0d 09 09 74 |expr $en|d+1]...t|
|00001030| 61 62 73 54 6f 53 70 61 | 63 65 73 0d 09 09 67 6f |absToSpa|ces...go|
|00001040| 74 6f 54 4d 61 72 6b 20 | 73 74 6f 70 43 6f 6d 6d |toTMark |stopComm|
|00001050| 65 6e 74 0d 09 09 73 65 | 74 20 65 6e 64 20 5b 65 |ent...se|t end [e|
|00001060| 78 70 72 20 5b 67 65 74 | 50 6f 73 5d 2d 31 5d 0d |xpr [get|Pos]-1].|
|00001070| 09 09 72 65 6d 6f 76 65 | 54 4d 61 72 6b 20 73 74 |..remove|TMark st|
|00001080| 6f 70 43 6f 6d 6d 65 6e | 74 0d 09 7d 20 65 6c 73 |opCommen|t..} els|
|00001090| 65 20 7b 0d 09 09 74 61 | 62 73 54 6f 53 70 61 63 |e {...ta|bsToSpac|
|000010a0| 65 73 0d 09 09 73 65 74 | 20 65 6e 64 20 5b 6d 61 |es...set| end [ma|
|000010b0| 78 50 6f 73 5d 0d 09 7d | 0d 09 73 65 6c 65 63 74 |xPos]..}|..select|
|000010c0| 20 24 73 74 61 72 74 20 | 24 65 6e 64 0d 09 73 65 | $start |$end..se|
|000010d0| 74 20 74 65 78 74 20 5b | 67 65 74 54 65 78 74 20 |t text [|getText |
|000010e0| 24 73 74 61 72 74 20 24 | 65 6e 64 5d 0d 09 0d 23 |$start $|end]...#|
|000010f0| 20 4e 65 78 74 20 74 75 | 72 6e 20 69 74 20 69 6e | Next tu|rn it in|
|00001100| 74 6f 20 61 20 6c 69 73 | 74 20 6f 66 20 6c 69 6e |to a lis|t of lin|
|00001110| 65 73 2d 2d 70 6f 73 73 | 69 62 6c 79 20 64 72 6f |es--poss|ibly dro|
|00001120| 70 20 61 6e 20 65 6d 70 | 74 79 20 27 6c 61 73 74 |p an emp|ty 'last|
|00001130| 20 6c 69 6e 65 27 0d 0d | 09 73 65 74 20 6c 69 6e | line'..|.set lin|
|00001140| 65 4c 69 73 74 20 5b 73 | 70 6c 69 74 20 24 74 65 |eList [s|plit $te|
|00001150| 78 74 20 22 5c 72 22 5d | 0d 09 73 65 74 20 65 6d |xt "\r"]|..set em|
|00001160| 70 74 79 4c 69 6e 65 20 | 5b 6c 73 65 61 72 63 68 |ptyLine |[lsearch|
|00001170| 20 24 6c 69 6e 65 4c 69 | 73 74 20 7b 7d 5d 0d 09 | $lineLi|st {}]..|
|00001180| 69 66 20 7b 20 24 65 6d | 70 74 79 4c 69 6e 65 20 |if { $em|ptyLine |
|00001190| 21 3d 20 2d 31 20 7d 20 | 74 68 65 6e 20 7b 0d 09 |!= -1 } |then {..|
|000011a0| 09 73 65 74 20 6e 75 6d | 4c 69 6e 65 73 20 5b 6c |.set num|Lines [l|
|000011b0| 6c 65 6e 67 74 68 20 24 | 6c 69 6e 65 4c 69 73 74 |length $|lineList|
|000011c0| 5d 0d 09 09 73 65 74 20 | 6c 69 6e 65 4c 69 73 74 |]...set |lineList|
|000011d0| 20 5b 6c 72 61 6e 67 65 | 20 24 6c 69 6e 65 4c 69 | [lrange| $lineLi|
|000011e0| 73 74 20 30 20 5b 65 78 | 70 72 20 24 6e 75 6d 4c |st 0 [ex|pr $numL|
|000011f0| 69 6e 65 73 2d 32 5d 5d | 0d 09 7d 0d 09 73 65 74 |ines-2]]|..}..set|
|00001200| 20 6e 75 6d 4c 69 6e 65 | 73 20 5b 6c 6c 65 6e 67 | numLine|s [lleng|
|00001210| 74 68 20 24 6c 69 6e 65 | 4c 69 73 74 5d 0d 09 0d |th $line|List]...|
|00001220| 23 20 46 69 6e 64 20 74 | 68 65 20 6c 6f 6e 67 65 |# Find t|he longe|
|00001230| 73 74 20 6c 69 6e 65 20 | 6c 65 6e 67 74 68 20 61 |st line |length a|
|00001240| 6e 64 20 64 65 74 65 72 | 6d 69 6e 65 20 74 68 65 |nd deter|mine the|
|00001250| 20 6e 65 77 20 6c 69 6e | 65 20 6c 65 6e 67 74 68 | new lin|e length|
|00001260| 0d 0d 09 73 65 74 20 6d | 61 78 4c 65 6e 67 74 68 |...set m|axLength|
|00001270| 20 30 0d 09 66 6f 72 65 | 61 63 68 20 74 68 69 73 | 0..fore|ach this|
|00001280| 4c 69 6e 65 20 24 6c 69 | 6e 65 4c 69 73 74 20 7b |Line $li|neList {|
|00001290| 0d 09 09 73 65 74 20 74 | 68 69 73 4c 65 6e 67 74 |...set t|hisLengt|
|000012a0| 68 20 5b 73 74 72 69 6e | 67 20 6c 65 6e 67 74 68 |h [strin|g length|
|000012b0| 20 24 74 68 69 73 4c 69 | 6e 65 5d 0d 09 09 69 66 | $thisLi|ne]...if|
|000012c0| 20 7b 20 24 74 68 69 73 | 4c 65 6e 67 74 68 20 3e | { $this|Length >|
|000012d0| 20 24 6d 61 78 4c 65 6e | 67 74 68 20 7d 20 74 68 | $maxLen|gth } th|
|000012e0| 65 6e 20 7b 20 0d 09 09 | 09 73 65 74 20 6d 61 78 |en { ...|.set max|
|000012f0| 4c 65 6e 67 74 68 20 24 | 74 68 69 73 4c 65 6e 67 |Length $|thisLeng|
|00001300| 74 68 20 0d 09 09 7d 0d | 09 7d 0d 09 73 65 74 20 |th ...}.|.}..set |
|00001310| 6e 65 77 4c 65 6e 67 74 | 68 20 5b 65 78 70 72 20 |newLengt|h [expr |
|00001320| 7b 24 6d 61 78 4c 65 6e | 67 74 68 20 2b 20 32 20 |{$maxLen|gth + 2 |
|00001330| 2b 20 32 2a 24 73 70 61 | 63 65 4f 66 66 73 65 74 |+ 2*$spa|ceOffset|
|00001340| 7d 5d 0d 09 0d 23 20 4e | 6f 77 20 63 72 65 61 74 |}]...# N|ow creat|
|00001350| 65 20 74 68 65 20 74 6f | 70 20 26 20 62 6f 74 74 |e the to|p & bott|
|00001360| 6f 6d 20 62 61 72 73 20 | 61 6e 64 20 61 20 62 6c |om bars |and a bl|
|00001370| 61 6e 6b 20 6c 69 6e 65 | 0d 0d 09 73 65 74 20 74 |ank line|...set t|
|00001380| 6f 70 42 61 72 20 24 62 | 65 67 43 6f 6d 6d 65 6e |opBar $b|egCommen|
|00001390| 74 0d 09 66 6f 72 20 7b | 20 73 65 74 20 69 20 30 |t..for {| set i 0|
|000013a0| 20 7d 20 7b 20 24 69 20 | 3c 20 5b 65 78 70 72 20 | } { $i |< [expr |
|000013b0| 7b 24 6e 65 77 4c 65 6e | 67 74 68 20 2d 20 24 62 |{$newLen|gth - $b|
|000013c0| 65 67 43 6f 6d 4c 65 6e | 7d 5d 20 7d 20 7b 20 69 |egComLen|}] } { i|
|000013d0| 6e 63 72 20 69 20 7d 20 | 7b 0d 09 09 73 65 74 20 |ncr i } |{...set |
|000013e0| 74 6f 70 42 61 72 20 24 | 74 6f 70 42 61 72 24 66 |topBar $|topBar$f|
|000013f0| 69 6c 6c 43 68 61 72 0d | 09 7d 0d 09 73 65 74 20 |illChar.|.}..set |
|00001400| 62 6f 74 42 61 72 20 22 | 22 0d 09 66 6f 72 20 7b |botBar "|"..for {|
|00001410| 20 73 65 74 20 69 20 30 | 20 7d 20 7b 20 24 69 20 | set i 0| } { $i |
|00001420| 3c 20 5b 65 78 70 72 20 | 7b 24 6e 65 77 4c 65 6e |< [expr |{$newLen|
|00001430| 67 74 68 20 2d 20 24 65 | 6e 64 43 6f 6d 4c 65 6e |gth - $e|ndComLen|
|00001440| 7d 5d 20 7d 20 7b 20 69 | 6e 63 72 20 69 20 7d 20 |}] } { i|ncr i } |
|00001450| 7b 0d 09 09 73 65 74 20 | 62 6f 74 42 61 72 20 24 |{...set |botBar $|
|00001460| 62 6f 74 42 61 72 24 66 | 69 6c 6c 43 68 61 72 0d |botBar$f|illChar.|
|00001470| 09 7d 0d 09 73 65 74 20 | 62 6f 74 42 61 72 20 24 |.}..set |botBar $|
|00001480| 62 6f 74 42 61 72 24 65 | 6e 64 43 6f 6d 6d 65 6e |botBar$e|ndCommen|
|00001490| 74 0d 09 73 65 74 20 62 | 6c 61 6e 6b 4c 69 6e 65 |t..set b|lankLine|
|000014a0| 20 24 66 69 6c 6c 43 68 | 61 72 0d 09 66 6f 72 20 | $fillCh|ar..for |
|000014b0| 7b 20 73 65 74 20 69 20 | 30 20 7d 20 7b 20 24 69 |{ set i |0 } { $i|
|000014c0| 20 3c 20 5b 65 78 70 72 | 20 7b 24 6e 65 77 4c 65 | < [expr| {$newLe|
|000014d0| 6e 67 74 68 20 2d 20 32 | 7d 5d 20 7d 20 7b 20 69 |ngth - 2|}] } { i|
|000014e0| 6e 63 72 20 69 20 7d 20 | 7b 0d 09 09 73 65 74 20 |ncr i } |{...set |
|000014f0| 62 6c 61 6e 6b 4c 69 6e | 65 20 24 62 6c 61 6e 6b |blankLin|e $blank|
|00001500| 4c 69 6e 65 24 61 53 70 | 61 63 65 0d 09 7d 0d 09 |Line$aSp|ace..}..|
|00001510| 73 65 74 20 62 6c 61 6e | 6b 4c 69 6e 65 20 24 62 |set blan|kLine $b|
|00001520| 6c 61 6e 6b 4c 69 6e 65 | 24 66 69 6c 6c 43 68 61 |lankLine|$fillCha|
|00001530| 72 0d 09 0d 23 20 46 6f | 72 20 65 61 63 68 20 6c |r...# Fo|r each l|
|00001540| 69 6e 65 20 61 64 64 20 | 73 74 75 66 66 20 6f 6e |ine add |stuff on|
|00001550| 20 6c 65 66 74 20 61 6e | 64 20 73 70 61 63 65 73 | left an|d spaces|
|00001560| 20 61 6e 64 20 73 74 75 | 66 66 20 6f 6e 20 72 69 | and stu|ff on ri|
|00001570| 67 68 74 20 66 6f 72 20 | 62 6f 78 20 73 69 64 65 |ght for |box side|
|00001580| 73 0d 23 20 61 6e 64 20 | 63 6f 6e 63 61 74 65 6e |s.# and |concaten|
|00001590| 61 74 65 20 65 76 65 72 | 79 74 68 69 6e 67 20 69 |ate ever|ything i|
|000015a0| 6e 74 6f 20 27 74 65 78 | 74 27 2e 20 20 53 74 61 |nto 'tex|t'.  Sta|
|000015b0| 72 74 20 77 69 74 68 20 | 74 6f 70 42 61 72 3b 20 |rt with |topBar; |
|000015c0| 65 6e 64 20 77 69 74 68 | 20 62 6f 74 42 61 72 0d |end with| botBar.|
|000015d0| 0d 09 73 65 74 20 74 65 | 78 74 20 24 74 6f 70 42 |..set te|xt $topB|
|000015e0| 61 72 5c 72 24 62 6c 61 | 6e 6b 4c 69 6e 65 5c 72 |ar\r$bla|nkLine\r|
|000015f0| 0d 09 0d 09 73 65 74 20 | 66 72 6f 6e 74 53 74 75 |....set |frontStu|
|00001600| 66 66 20 24 66 69 6c 6c | 43 68 61 72 0d 09 73 65 |ff $fill|Char..se|
|00001610| 74 20 62 61 63 6b 53 74 | 75 66 66 20 24 66 69 6c |t backSt|uff $fil|
|00001620| 6c 43 68 61 72 0d 09 66 | 6f 72 20 7b 20 73 65 74 |lChar..f|or { set|
|00001630| 20 69 20 30 20 7d 20 7b | 20 24 69 20 3c 20 24 73 | i 0 } {| $i < $s|
|00001640| 70 61 63 65 4f 66 66 73 | 65 74 20 7d 20 7b 20 69 |paceOffs|et } { i|
|00001650| 6e 63 72 20 69 20 7d 20 | 7b 0d 09 09 73 65 74 20 |ncr i } |{...set |
|00001660| 66 72 6f 6e 74 53 74 75 | 66 66 20 24 66 72 6f 6e |frontStu|ff $fron|
|00001670| 74 53 74 75 66 66 24 61 | 53 70 61 63 65 20 20 0d |tStuff$a|Space  .|
|00001680| 09 09 73 65 74 20 62 61 | 63 6b 53 74 75 66 66 20 |..set ba|ckStuff |
|00001690| 24 61 53 70 61 63 65 24 | 62 61 63 6b 53 74 75 66 |$aSpace$|backStuf|
|000016a0| 66 0d 09 7d 0d 09 73 65 | 74 20 62 61 63 6b 53 74 |f..}..se|t backSt|
|000016b0| 75 66 66 4c 65 6e 20 5b | 73 74 72 69 6e 67 20 6c |uffLen [|string l|
|000016c0| 65 6e 67 74 68 20 24 62 | 61 63 6b 53 74 75 66 66 |ength $b|ackStuff|
|000016d0| 5d 0d 09 0d 09 66 6f 72 | 20 7b 20 73 65 74 20 69 |]....for| { set i|
|000016e0| 20 30 20 7d 20 7b 20 24 | 69 20 3c 20 24 6e 75 6d | 0 } { $|i < $num|
|000016f0| 4c 69 6e 65 73 20 7d 20 | 7b 20 69 6e 63 72 20 69 |Lines } |{ incr i|
|00001700| 20 7d 20 7b 0d 09 09 73 | 65 74 20 74 68 69 73 4c | } {...s|et thisL|
|00001710| 69 6e 65 20 5b 6c 69 6e | 64 65 78 20 24 6c 69 6e |ine [lin|dex $lin|
|00001720| 65 4c 69 73 74 20 24 69 | 20 5d 0d 09 09 73 65 74 |eList $i| ]...set|
|00001730| 20 74 68 69 73 4c 69 6e | 65 20 24 66 72 6f 6e 74 | thisLin|e $front|
|00001740| 53 74 75 66 66 24 74 68 | 69 73 4c 69 6e 65 0d 09 |Stuff$th|isLine..|
|00001750| 09 73 65 74 20 74 68 69 | 73 4c 65 6e 67 74 68 20 |.set thi|sLength |
|00001760| 5b 73 74 72 69 6e 67 20 | 6c 65 6e 67 74 68 20 24 |[string |length $|
|00001770| 74 68 69 73 4c 69 6e 65 | 5d 0d 09 09 73 65 74 20 |thisLine|]...set |
|00001780| 68 6f 77 4d 75 63 68 50 | 61 64 20 5b 65 78 70 72 |howMuchP|ad [expr|
|00001790| 20 7b 24 6e 65 77 4c 65 | 6e 67 74 68 20 2d 20 24 | {$newLe|ngth - $|
|000017a0| 74 68 69 73 4c 65 6e 67 | 74 68 20 2d 20 24 62 61 |thisLeng|th - $ba|
|000017b0| 63 6b 53 74 75 66 66 4c | 65 6e 7d 5d 0d 09 09 66 |ckStuffL|en}]...f|
|000017c0| 6f 72 20 7b 20 73 65 74 | 20 6a 20 30 20 7d 20 7b |or { set| j 0 } {|
|000017d0| 20 24 6a 20 3c 20 24 68 | 6f 77 4d 75 63 68 50 61 | $j < $h|owMuchPa|
|000017e0| 64 20 7d 20 7b 20 69 6e | 63 72 20 6a 20 7d 20 7b |d } { in|cr j } {|
|000017f0| 0d 09 09 09 73 65 74 20 | 74 68 69 73 4c 69 6e 65 |....set |thisLine|
|00001800| 20 24 74 68 69 73 4c 69 | 6e 65 24 61 53 70 61 63 | $thisLi|ne$aSpac|
|00001810| 65 20 0d 09 09 7d 0d 09 | 09 73 65 74 20 74 68 69 |e ...}..|.set thi|
|00001820| 73 4c 69 6e 65 20 24 74 | 68 69 73 4c 69 6e 65 24 |sLine $t|hisLine$|
|00001830| 62 61 63 6b 53 74 75 66 | 66 0d 09 09 73 65 74 20 |backStuf|f...set |
|00001840| 74 65 78 74 20 24 74 65 | 78 74 24 74 68 69 73 4c |text $te|xt$thisL|
|00001850| 69 6e 65 5c 72 0d 09 7d | 0d 09 0d 09 73 65 74 20 |ine\r..}|....set |
|00001860| 74 65 78 74 20 24 74 65 | 78 74 24 62 6c 61 6e 6b |text $te|xt$blank|
|00001870| 4c 69 6e 65 5c 72 24 62 | 6f 74 42 61 72 5c 72 0d |Line\r$b|otBar\r.|
|00001880| 09 0d 23 20 4e 6f 77 20 | 72 65 70 6c 61 63 65 20 |..# Now |replace |
|00001890| 74 68 65 20 6f 6c 64 20 | 73 74 75 66 66 2c 20 74 |the old |stuff, t|
|000018a0| 75 72 6e 20 73 70 61 63 | 65 73 20 74 6f 20 74 61 |urn spac|es to ta|
|000018b0| 62 73 2c 20 61 6e 64 20 | 68 69 67 68 6c 69 67 68 |bs, and |highligh|
|000018c0| 74 0d 0d 09 72 65 70 6c | 61 63 65 54 65 78 74 09 |t...repl|aceText.|
|000018d0| 24 73 74 61 72 74 20 24 | 65 6e 64 09 24 74 65 78 |$start $|end.$tex|
|000018e0| 74 0d 09 73 65 74 20 65 | 6e 64 20 5b 65 78 70 72 |t..set e|nd [expr|
|000018f0| 20 7b 24 73 74 61 72 74 | 2b 5b 73 74 72 69 6e 67 | {$start|+[string|
|00001900| 20 6c 65 6e 67 74 68 20 | 24 74 65 78 74 5d 7d 5d | length |$text]}]|
|00001910| 0d 09 63 72 65 61 74 65 | 54 4d 61 72 6b 20 73 74 |..create|TMark st|
|00001920| 6f 70 43 6f 6d 6d 65 6e | 74 20 5b 65 78 70 72 20 |opCommen|t [expr |
|00001930| 24 65 6e 64 2b 31 5d 0d | 09 73 65 6c 65 63 74 20 |$end+1].|.select |
|00001940| 24 73 74 61 72 74 20 24 | 65 6e 64 0d 09 73 70 61 |$start $|end..spa|
|00001950| 63 65 73 54 6f 54 61 62 | 73 0d 09 67 6f 74 6f 54 |cesToTab|s..gotoT|
|00001960| 4d 61 72 6b 20 73 74 6f | 70 43 6f 6d 6d 65 6e 74 |Mark sto|pComment|
|00001970| 0d 09 73 65 74 20 65 6e | 64 20 5b 65 78 70 72 20 |..set en|d [expr |
|00001980| 5b 67 65 74 50 6f 73 5d | 2d 31 5d 0d 09 72 65 6d |[getPos]|-1]..rem|
|00001990| 6f 76 65 54 4d 61 72 6b | 20 73 74 6f 70 43 6f 6d |oveTMark| stopCom|
|000019a0| 6d 65 6e 74 0d 09 73 65 | 6c 65 63 74 20 24 73 74 |ment..se|lect $st|
|000019b0| 61 72 74 20 24 65 6e 64 | 0d 7d 0d 0d 0d 0d 70 72 |art $end|.}....pr|
|000019c0| 6f 63 20 75 6e 63 6f 6d | 6d 65 6e 74 42 6f 78 20 |oc uncom|mentBox |
|000019d0| 7b 7d 20 7b 0d 0d 23 20 | 50 72 65 6c 69 6d 69 6e |{} {..# |Prelimin|
|000019e0| 61 72 69 65 73 0d 0d 09 | 69 66 20 7b 5b 67 65 74 |aries...|if {[get|
|000019f0| 50 6f 73 5d 20 3d 3d 20 | 5b 73 65 6c 45 6e 64 5d |Pos] == |[selEnd]|
|00001a00| 7d 20 7b 0d 09 09 61 6c | 65 72 74 6e 6f 74 65 20 |} {...al|ertnote |
|00001a10| 22 4d 75 73 74 20 73 65 | 6c 65 63 74 20 72 65 67 |"Must se|lect reg|
|00001a20| 69 6f 6e 20 74 6f 20 62 | 65 20 75 6e 63 6f 6d 6d |ion to b|e uncomm|
|00001a30| 65 6e 74 65 64 2e 22 0d | 09 09 72 65 74 75 72 6e |ented.".|..return|
|00001a40| 0d 09 7d 0d 09 67 6c 6f | 62 61 6c 20 6d 6f 64 65 |..}..glo|bal mode|
|00001a50| 0d 09 77 61 74 63 68 43 | 75 72 73 6f 72 0d 09 0d |..watchC|ursor...|
|00001a60| 23 20 53 65 74 20 77 68 | 61 74 20 74 68 65 20 63 |# Set wh|at the c|
|00001a70| 6f 6d 6d 65 6e 74 20 62 | 6c 6f 63 6b 20 77 69 6c |omment b|lock wil|
|00001a80| 6c 20 6c 6f 6f 6b 20 6c | 69 6b 65 0d 0d 09 63 61 |l look l|ike...ca|
|00001a90| 73 65 20 24 6d 6f 64 65 | 20 69 6e 20 7b 0d 09 09 |se $mode| in {...|
|00001aa0| 22 42 69 62 20 54 65 58 | 22 20 7b 0d 09 09 09 73 |"Bib TeX|" {....s|
|00001ab0| 65 74 20 62 65 67 43 6f | 6d 6d 65 6e 74 20 22 25 |et begCo|mment "%|
|00001ac0| 22 0d 09 09 09 73 65 74 | 20 62 65 67 43 6f 6d 4c |"....set| begComL|
|00001ad0| 65 6e 20 31 0d 09 09 09 | 73 65 74 20 65 6e 64 43 |en 1....|set endC|
|00001ae0| 6f 6d 6d 65 6e 74 20 22 | 25 22 0d 09 09 09 73 65 |omment "|%"....se|
|00001af0| 74 20 65 6e 64 43 6f 6d | 4c 65 6e 20 31 0d 09 09 |t endCom|Len 1...|
|00001b00| 09 73 65 74 20 66 69 6c | 6c 43 68 61 72 20 22 25 |.set fil|lChar "%|
|00001b10| 22 0d 09 09 09 73 65 74 | 20 73 70 61 63 65 4f 66 |"....set| spaceOf|
|00001b20| 66 73 65 74 20 33 0d 09 | 09 7d 0d 09 09 22 54 65 |fset 3..|.}..."Te|
|00001b30| 78 74 22 20 7b 0d 09 09 | 09 73 65 74 20 62 65 67 |xt" {...|.set beg|
|00001b40| 43 6f 6d 6d 65 6e 74 20 | 22 21 22 0d 09 09 09 73 |Comment |"!"....s|
|00001b50| 65 74 20 62 65 67 43 6f | 6d 4c 65 6e 20 31 0d 09 |et begCo|mLen 1..|
|00001b60| 09 09 73 65 74 20 65 6e | 64 43 6f 6d 6d 65 6e 74 |..set en|dComment|
|00001b70| 20 22 21 22 0d 09 09 09 | 73 65 74 20 65 6e 64 43 | "!"....|set endC|
|00001b80| 6f 6d 4c 65 6e 20 31 0d | 09 09 09 73 65 74 20 66 |omLen 1.|...set f|
|00001b90| 69 6c 6c 43 68 61 72 20 | 22 21 22 0d 09 09 09 73 |illChar |"!"....s|
|00001ba0| 65 74 20 73 70 61 63 65 | 4f 66 66 73 65 74 20 33 |et space|Offset 3|
|00001bb0| 0d 09 09 7d 0d 09 09 22 | 46 6f 72 74 22 20 7b 0d |...}..."|Fort" {.|
|00001bc0| 09 09 09 73 65 74 20 62 | 65 67 43 6f 6d 6d 65 6e |...set b|egCommen|
|00001bd0| 74 20 22 43 22 0d 09 09 | 09 73 65 74 20 62 65 67 |t "C"...|.set beg|
|00001be0| 43 6f 6d 4c 65 6e 20 31 | 0d 09 09 09 73 65 74 20 |ComLen 1|....set |
|00001bf0| 65 6e 64 43 6f 6d 6d 65 | 6e 74 20 22 43 22 0d 09 |endComme|nt "C"..|
|00001c00| 09 09 73 65 74 20 65 6e | 64 43 6f 6d 4c 65 6e 20 |..set en|dComLen |
|00001c10| 31 0d 09 09 09 73 65 74 | 20 66 69 6c 6c 43 68 61 |1....set| fillCha|
|00001c20| 72 20 22 43 22 0d 09 09 | 09 73 65 74 20 73 70 61 |r "C"...|.set spa|
|00001c30| 63 65 4f 66 66 73 65 74 | 20 33 0d 09 09 7d 0d 09 |ceOffset| 3...}..|
|00001c40| 09 22 54 63 6c 22 20 7b | 0d 09 09 09 73 65 74 20 |."Tcl" {|....set |
|00001c50| 62 65 67 43 6f 6d 6d 65 | 6e 74 20 22 23 22 0d 09 |begComme|nt "#"..|
|00001c60| 09 09 73 65 74 20 62 65 | 67 43 6f 6d 4c 65 6e 20 |..set be|gComLen |
|00001c70| 31 0d 09 09 09 73 65 74 | 20 65 6e 64 43 6f 6d 6d |1....set| endComm|
|00001c80| 65 6e 74 20 22 23 22 0d | 09 09 09 73 65 74 20 65 |ent "#".|...set e|
|00001c90| 6e 64 43 6f 6d 4c 65 6e | 20 31 0d 09 09 09 73 65 |ndComLen| 1....se|
|00001ca0| 74 20 66 69 6c 6c 43 68 | 61 72 20 22 23 22 0d 09 |t fillCh|ar "#"..|
|00001cb0| 09 09 73 65 74 20 73 70 | 61 63 65 4f 66 66 73 65 |..set sp|aceOffse|
|00001cc0| 74 20 33 0d 09 09 7d 0d | 09 09 22 43 20 43 2b 2b |t 3...}.|.."C C++|
|00001cd0| 22 20 7b 0d 09 09 09 73 | 65 74 20 62 65 67 43 6f |" {....s|et begCo|
|00001ce0| 6d 6d 65 6e 74 20 22 2f | 2a 22 0d 09 09 09 73 65 |mment "/|*"....se|
|00001cf0| 74 20 62 65 67 43 6f 6d | 4c 65 6e 20 32 0d 09 09 |t begCom|Len 2...|
|00001d00| 09 73 65 74 20 65 6e 64 | 43 6f 6d 6d 65 6e 74 20 |.set end|Comment |
|00001d10| 22 2a 2f 22 0d 09 09 09 | 73 65 74 20 65 6e 64 43 |"*/"....|set endC|
|00001d20| 6f 6d 4c 65 6e 20 32 0d | 09 09 09 73 65 74 20 66 |omLen 2.|...set f|
|00001d30| 69 6c 6c 43 68 61 72 20 | 22 2a 22 0d 09 09 09 73 |illChar |"*"....s|
|00001d40| 65 74 20 73 70 61 63 65 | 4f 66 66 73 65 74 20 33 |et space|Offset 3|
|00001d50| 0d 09 09 7d 0d 09 09 64 | 65 66 61 75 6c 74 20 7b |...}...d|efault {|
|00001d60| 0d 09 09 09 61 6c 65 72 | 74 6e 6f 74 65 20 22 49 |....aler|tnote "I|
|00001d70| 20 64 6f 6e 27 74 20 6b | 6e 6f 77 20 77 68 61 74 | don't k|now what|
|00001d80| 20 63 6f 6d 6d 65 6e 74 | 73 20 73 68 6f 75 6c 64 | comment|s should|
|00001d90| 20 6c 6f 6f 6b 20 6c 69 | 6b 65 20 69 6e 20 74 68 | look li|ke in th|
|00001da0| 69 73 20 6d 6f 64 65 2e | 20 20 53 6f 72 72 79 2e |is mode.|  Sorry.|
|00001db0| 22 0d 09 09 09 72 65 74 | 75 72 6e 0d 09 09 7d 0d |"....ret|urn...}.|
|00001dc0| 09 7d 0d 09 73 65 74 20 | 61 53 70 61 63 65 20 22 |.}..set |aSpace "|
|00001dd0| 20 22 0d 09 73 65 74 20 | 61 54 61 62 20 5c 74 0d | "..set |aTab \t.|
|00001de0| 0d 23 20 46 69 72 73 74 | 20 6d 61 6b 65 20 73 75 |.# First| make su|
|00001df0| 72 65 20 77 65 20 67 72 | 61 62 20 61 20 66 75 6c |re we gr|ab a ful|
|00001e00| 6c 20 62 6c 6f 63 6b 20 | 6f 66 20 6c 69 6e 65 73 |l block |of lines|
|00001e10| 0d 0d 09 73 65 74 20 73 | 74 61 72 74 20 5b 67 65 |...set s|tart [ge|
|00001e20| 74 50 6f 73 5d 0d 09 73 | 65 74 20 73 74 61 72 74 |tPos]..s|et start|
|00001e30| 20 5b 6c 69 6e 65 53 74 | 61 72 74 20 24 73 74 61 | [lineSt|art $sta|
|00001e40| 72 74 5d 0d 09 73 65 74 | 20 65 6e 64 20 5b 73 65 |rt]..set| end [se|
|00001e50| 6c 45 6e 64 5d 0d 09 73 | 65 74 20 65 6e 64 20 5b |lEnd]..s|et end [|
|00001e60| 6e 65 78 74 4c 69 6e 65 | 53 74 61 72 74 20 5b 65 |nextLine|Start [e|
|00001e70| 78 70 72 20 24 65 6e 64 | 2d 31 5d 5d 0d 09 73 65 |xpr $end|-1]]..se|
|00001e80| 74 20 74 65 78 74 20 5b | 67 65 74 54 65 78 74 20 |t text [|getText |
|00001e90| 24 73 74 61 72 74 20 24 | 65 6e 64 5d 0d 0d 23 20 |$start $|end]..# |
|00001ea0| 4d 61 6b 65 20 73 75 72 | 65 20 77 65 27 72 65 20 |Make sur|e we're |
|00001eb0| 61 74 20 74 68 65 20 73 | 74 61 72 74 20 61 6e 64 |at the s|tart and|
|00001ec0| 20 65 6e 64 20 6f 66 20 | 74 68 65 20 62 6f 78 0d | end of |the box.|
|00001ed0| 0d 09 73 65 74 20 73 74 | 61 72 74 4f 4b 20 5b 73 |..set st|artOK [s|
|00001ee0| 74 72 69 6e 67 20 66 69 | 72 73 74 20 24 62 65 67 |tring fi|rst $beg|
|00001ef0| 43 6f 6d 6d 65 6e 74 20 | 24 74 65 78 74 5d 0d 09 |Comment |$text]..|
|00001f00| 73 65 74 20 65 6e 64 4f | 4b 20 5b 73 74 72 69 6e |set endO|K [strin|
|00001f10| 67 20 6c 61 73 74 20 24 | 65 6e 64 43 6f 6d 6d 65 |g last $|endComme|
|00001f20| 6e 74 20 24 74 65 78 74 | 5d 0d 09 73 65 74 20 74 |nt $text|]..set t|
|00001f30| 65 78 74 4c 65 6e 67 74 | 68 20 5b 73 74 72 69 6e |extLengt|h [strin|
|00001f40| 67 20 6c 65 6e 67 74 68 | 20 24 74 65 78 74 5d 0d |g length| $text].|
|00001f50| 09 69 66 20 7b 20 24 73 | 74 61 72 74 4f 4b 20 21 |.if { $s|tartOK !|
|00001f60| 3d 20 30 20 7c 7c 20 28 | 24 65 6e 64 4f 4b 20 21 |= 0 || (|$endOK !|
|00001f70| 3d 20 5b 65 78 70 72 20 | 7b 24 74 65 78 74 4c 65 |= [expr |{$textLe|
|00001f80| 6e 67 74 68 2d 24 65 6e | 64 43 6f 6d 4c 65 6e 2d |ngth-$en|dComLen-|
|00001f90| 31 7d 5d 20 7c 7c 20 24 | 65 6e 64 4f 4b 20 3d 3d |1}] || $|endOK ==|
|00001fa0| 20 2d 31 29 20 7d 20 74 | 68 65 6e 20 7b 0d 09 09 | -1) } t|hen {...|
|00001fb0| 61 6c 65 72 74 6e 6f 74 | 65 20 22 59 6f 75 20 6d |alertnot|e "You m|
|00001fc0| 75 73 74 20 68 69 67 68 | 6c 69 67 68 74 20 74 68 |ust high|light th|
|00001fd0| 65 20 65 6e 74 69 72 65 | 20 63 6f 6d 6d 65 6e 74 |e entire| comment|
|00001fe0| 20 62 6f 78 2c 20 69 6e | 63 6c 75 64 69 6e 67 20 | box, in|cluding |
|00001ff0| 74 68 65 20 62 6f 72 64 | 65 72 73 2e 22 0d 09 09 |the bord|ers."...|
|00002000| 72 65 74 75 72 6e 0d 09 | 7d 0d 09 0d 23 20 4e 6f |return..|}...# No|
|00002010| 77 20 67 65 74 20 72 69 | 64 20 6f 66 20 61 6e 79 |w get ri|d of any|
|00002020| 20 74 61 62 73 0d 09 0d | 09 69 66 20 7b 20 24 65 | tabs...|.if { $e|
|00002030| 6e 64 20 3c 20 5b 6d 61 | 78 50 6f 73 5d 20 7d 20 |nd < [ma|xPos] } |
|00002040| 74 68 65 6e 20 7b 0d 09 | 09 63 72 65 61 74 65 54 |then {..|.createT|
|00002050| 4d 61 72 6b 20 73 74 6f | 70 43 6f 6d 6d 65 6e 74 |Mark sto|pComment|
|00002060| 20 5b 65 78 70 72 20 24 | 65 6e 64 2b 31 5d 0d 09 | [expr $|end+1]..|
|00002070| 09 74 61 62 73 54 6f 53 | 70 61 63 65 73 0d 09 09 |.tabsToS|paces...|
|00002080| 67 6f 74 6f 54 4d 61 72 | 6b 20 73 74 6f 70 43 6f |gotoTMar|k stopCo|
|00002090| 6d 6d 65 6e 74 0d 09 09 | 73 65 74 20 65 6e 64 20 |mment...|set end |
|000020a0| 5b 65 78 70 72 20 5b 67 | 65 74 50 6f 73 5d 2d 31 |[expr [g|etPos]-1|
|000020b0| 5d 0d 09 09 72 65 6d 6f | 76 65 54 4d 61 72 6b 20 |]...remo|veTMark |
|000020c0| 73 74 6f 70 43 6f 6d 6d | 65 6e 74 0d 09 7d 20 65 |stopComm|ent..} e|
|000020d0| 6c 73 65 20 7b 0d 09 09 | 74 61 62 73 54 6f 53 70 |lse {...|tabsToSp|
|000020e0| 61 63 65 73 0d 09 09 73 | 65 74 20 65 6e 64 20 5b |aces...s|et end [|
|000020f0| 6d 61 78 50 6f 73 5d 0d | 09 7d 0d 09 73 65 6c 65 |maxPos].|.}..sele|
|00002100| 63 74 20 24 73 74 61 72 | 74 20 24 65 6e 64 0d 09 |ct $star|t $end..|
|00002110| 73 65 74 20 74 65 78 74 | 20 5b 67 65 74 54 65 78 |set text| [getTex|
|00002120| 74 20 24 73 74 61 72 74 | 20 24 65 6e 64 5d 0d 09 |t $start| $end]..|
|00002130| 0d 23 20 4e 65 78 74 20 | 74 75 72 6e 20 69 74 20 |.# Next |turn it |
|00002140| 69 6e 74 6f 20 61 20 6c | 69 73 74 20 6f 66 20 6c |into a l|ist of l|
|00002150| 69 6e 65 73 2d 2d 70 6f | 73 73 69 62 6c 79 20 64 |ines--po|ssibly d|
|00002160| 72 6f 70 20 61 6e 20 65 | 6d 70 74 79 20 27 6c 61 |rop an e|mpty 'la|
|00002170| 73 74 20 6c 69 6e 65 27 | 0d 0d 09 73 65 74 20 6c |st line'|...set l|
|00002180| 69 6e 65 4c 69 73 74 20 | 5b 73 70 6c 69 74 20 24 |ineList |[split $|
|00002190| 74 65 78 74 20 22 5c 72 | 22 5d 0d 09 73 65 74 20 |text "\r|"]..set |
|000021a0| 65 6d 70 74 79 4c 69 6e | 65 20 5b 6c 73 65 61 72 |emptyLin|e [lsear|
|000021b0| 63 68 20 24 6c 69 6e 65 | 4c 69 73 74 20 7b 7d 5d |ch $line|List {}]|
|000021c0| 0d 09 69 66 20 7b 20 24 | 65 6d 70 74 79 4c 69 6e |..if { $|emptyLin|
|000021d0| 65 20 21 3d 20 2d 31 20 | 7d 20 74 68 65 6e 20 7b |e != -1 |} then {|
|000021e0| 0d 09 09 73 65 74 20 6e | 75 6d 4c 69 6e 65 73 20 |...set n|umLines |
|000021f0| 5b 6c 6c 65 6e 67 74 68 | 20 24 6c 69 6e 65 4c 69 |[llength| $lineLi|
|00002200| 73 74 5d 0d 09 09 73 65 | 74 20 6c 69 6e 65 4c 69 |st]...se|t lineLi|
|00002210| 73 74 20 5b 6c 72 61 6e | 67 65 20 24 6c 69 6e 65 |st [lran|ge $line|
|00002220| 4c 69 73 74 20 30 20 5b | 65 78 70 72 20 24 6e 75 |List 0 [|expr $nu|
|00002230| 6d 4c 69 6e 65 73 2d 32 | 5d 5d 0d 09 7d 0d 09 73 |mLines-2|]]..}..s|
|00002240| 65 74 20 6e 75 6d 4c 69 | 6e 65 73 20 5b 6c 6c 65 |et numLi|nes [lle|
|00002250| 6e 67 74 68 20 24 6c 69 | 6e 65 4c 69 73 74 5d 0d |ngth $li|neList].|
|00002260| 09 0d 23 20 44 65 6c 65 | 74 65 20 74 68 65 20 66 |..# Dele|te the f|
|00002270| 69 72 73 74 20 61 6e 64 | 20 6c 61 73 74 20 6c 69 |irst and| last li|
|00002280| 6e 65 73 2c 20 72 65 63 | 6f 6d 70 75 74 65 20 6e |nes, rec|ompute n|
|00002290| 75 6d 62 65 72 20 6f 66 | 20 6c 69 6e 65 73 0d 0d |umber of| lines..|
|000022a0| 09 73 65 74 20 6c 69 6e | 65 4c 69 73 74 20 5b 6c |.set lin|eList [l|
|000022b0| 72 65 70 6c 61 63 65 20 | 24 6c 69 6e 65 4c 69 73 |replace |$lineLis|
|000022c0| 74 20 5b 65 78 70 72 20 | 24 6e 75 6d 4c 69 6e 65 |t [expr |$numLine|
|000022d0| 73 2d 31 5d 20 5b 65 78 | 70 72 20 24 6e 75 6d 4c |s-1] [ex|pr $numL|
|000022e0| 69 6e 65 73 2d 31 5d 20 | 5d 0d 09 73 65 74 20 6c |ines-1] |]..set l|
|000022f0| 69 6e 65 4c 69 73 74 20 | 5b 6c 72 65 70 6c 61 63 |ineList |[lreplac|
|00002300| 65 20 24 6c 69 6e 65 4c | 69 73 74 20 30 20 30 20 |e $lineL|ist 0 0 |
|00002310| 5d 0d 09 73 65 74 20 6e | 75 6d 4c 69 6e 65 73 20 |]..set n|umLines |
|00002320| 5b 6c 6c 65 6e 67 74 68 | 20 24 6c 69 6e 65 4c 69 |[llength| $lineLi|
|00002330| 73 74 5d 0d 09 0d 23 20 | 45 6c 69 6d 69 6e 61 74 |st]...# |Eliminat|
|00002340| 65 20 32 6e 64 20 61 6e | 64 20 32 6e 64 2d 74 6f |e 2nd an|d 2nd-to|
|00002350| 2d 6c 61 73 74 20 6c 69 | 6e 65 73 20 69 66 20 74 |-last li|nes if t|
|00002360| 68 65 79 20 61 72 65 20 | 65 6d 70 74 79 0d 0d 09 |hey are |empty...|
|00002370| 73 65 74 20 65 6c 69 6d | 69 6e 61 74 65 20 24 66 |set elim|inate $f|
|00002380| 69 6c 6c 43 68 61 72 24 | 61 53 70 61 63 65 24 61 |illChar$|aSpace$a|
|00002390| 54 61 62 0d 09 73 65 74 | 20 74 68 69 73 4c 69 6e |Tab..set| thisLin|
|000023a0| 65 20 5b 6c 69 6e 64 65 | 78 20 24 6c 69 6e 65 4c |e [linde|x $lineL|
|000023b0| 69 73 74 20 5b 65 78 70 | 72 20 24 6e 75 6d 4c 69 |ist [exp|r $numLi|
|000023c0| 6e 65 73 2d 31 5d 5d 0d | 09 73 65 74 20 74 68 69 |nes-1]].|.set thi|
|000023d0| 73 4c 69 6e 65 20 5b 73 | 74 72 69 6e 67 20 74 72 |sLine [s|tring tr|
|000023e0| 69 6d 20 24 74 68 69 73 | 4c 69 6e 65 20 24 65 6c |im $this|Line $el|
|000023f0| 69 6d 69 6e 61 74 65 5d | 0d 09 69 66 20 7b 20 5b |iminate]|..if { [|
|00002400| 73 74 72 69 6e 67 20 6c | 65 6e 67 74 68 20 24 74 |string l|ength $t|
|00002410| 68 69 73 4c 69 6e 65 5d | 20 3d 3d 20 30 20 7d 20 |hisLine]| == 0 } |
|00002420| 74 68 65 6e 20 7b 0d 09 | 09 73 65 74 20 6c 69 6e |then {..|.set lin|
|00002430| 65 4c 69 73 74 20 5b 6c | 72 65 70 6c 61 63 65 20 |eList [l|replace |
|00002440| 24 6c 69 6e 65 4c 69 73 | 74 20 5b 65 78 70 72 20 |$lineLis|t [expr |
|00002450| 24 6e 75 6d 4c 69 6e 65 | 73 2d 31 5d 20 5b 65 78 |$numLine|s-1] [ex|
|00002460| 70 72 20 24 6e 75 6d 4c | 69 6e 65 73 2d 31 5d 20 |pr $numL|ines-1] |
|00002470| 5d 0d 09 7d 0d 09 73 65 | 74 20 74 68 69 73 4c 69 |]..}..se|t thisLi|
|00002480| 6e 65 20 5b 6c 69 6e 64 | 65 78 20 24 6c 69 6e 65 |ne [lind|ex $line|
|00002490| 4c 69 73 74 20 30 5d 0d | 09 73 65 74 20 74 68 69 |List 0].|.set thi|
|000024a0| 73 4c 69 6e 65 20 5b 73 | 74 72 69 6e 67 20 74 72 |sLine [s|tring tr|
|000024b0| 69 6d 20 24 74 68 69 73 | 4c 69 6e 65 20 24 65 6c |im $this|Line $el|
|000024c0| 69 6d 69 6e 61 74 65 5d | 0d 09 69 66 20 7b 20 5b |iminate]|..if { [|
|000024d0| 73 74 72 69 6e 67 20 6c | 65 6e 67 74 68 20 24 74 |string l|ength $t|
|000024e0| 68 69 73 4c 69 6e 65 5d | 20 3d 3d 20 30 20 7d 20 |hisLine]| == 0 } |
|000024f0| 74 68 65 6e 20 7b 0d 09 | 09 73 65 74 20 6c 69 6e |then {..|.set lin|
|00002500| 65 4c 69 73 74 20 5b 6c | 72 65 70 6c 61 63 65 20 |eList [l|replace |
|00002510| 24 6c 69 6e 65 4c 69 73 | 74 20 30 20 30 20 5d 0d |$lineLis|t 0 0 ].|
|00002520| 09 7d 0d 09 73 65 74 20 | 6e 75 6d 4c 69 6e 65 73 |.}..set |numLines|
|00002530| 20 5b 6c 6c 65 6e 67 74 | 68 20 24 6c 69 6e 65 4c | [llengt|h $lineL|
|00002540| 69 73 74 5d 09 0d 09 0d | 23 20 46 6f 72 20 65 61 |ist]....|# For ea|
|00002550| 63 68 20 6c 69 6e 65 20 | 74 72 69 6d 20 73 74 75 |ch line |trim stu|
|00002560| 66 66 20 6f 6e 20 6c 65 | 66 74 20 61 6e 64 20 73 |ff on le|ft and s|
|00002570| 70 61 63 65 73 20 61 6e | 64 20 73 74 75 66 66 20 |paces an|d stuff |
|00002580| 6f 6e 20 72 69 67 68 74 | 20 61 6e 64 20 73 70 6c |on right| and spl|
|00002590| 69 63 65 0d 0d 09 73 65 | 74 20 64 72 6f 70 46 72 |ice...se|t dropFr|
|000025a0| 6f 6d 4c 65 66 74 20 5b | 65 78 70 72 20 24 73 70 |omLeft [|expr $sp|
|000025b0| 61 63 65 4f 66 66 73 65 | 74 2b 31 5d 0d 09 73 65 |aceOffse|t+1]..se|
|000025c0| 74 20 74 65 78 74 20 22 | 22 0d 09 66 6f 72 20 7b |t text "|"..for {|
|000025d0| 20 73 65 74 20 69 20 30 | 20 7d 20 7b 20 24 69 20 | set i 0| } { $i |
|000025e0| 3c 20 24 6e 75 6d 4c 69 | 6e 65 73 20 7d 20 7b 20 |< $numLi|nes } { |
|000025f0| 69 6e 63 72 20 69 20 7d | 20 7b 0d 09 09 73 65 74 |incr i }| {...set|
|00002600| 20 74 68 69 73 4c 69 6e | 65 20 5b 6c 69 6e 64 65 | thisLin|e [linde|
|00002610| 78 20 24 6c 69 6e 65 4c | 69 73 74 20 24 69 5d 0d |x $lineL|ist $i].|
|00002620| 09 09 73 65 74 20 74 68 | 69 73 4c 69 6e 65 20 5b |..set th|isLine [|
|00002630| 73 74 72 69 6e 67 20 74 | 72 69 6d 72 69 67 68 74 |string t|rimright|
|00002640| 20 24 74 68 69 73 4c 69 | 6e 65 20 24 65 6c 69 6d | $thisLi|ne $elim|
|00002650| 69 6e 61 74 65 5d 0d 09 | 09 73 65 74 20 74 68 69 |inate]..|.set thi|
|00002660| 73 4c 69 6e 65 20 5b 73 | 74 72 69 6e 67 20 72 61 |sLine [s|tring ra|
|00002670| 6e 67 65 20 24 74 68 69 | 73 4c 69 6e 65 20 24 64 |nge $thi|sLine $d|
|00002680| 72 6f 70 46 72 6f 6d 4c | 65 66 74 20 65 6e 64 5d |ropFromL|eft end]|
|00002690| 0d 09 09 73 65 74 20 74 | 65 78 74 20 24 74 65 78 |...set t|ext $tex|
|000026a0| 74 24 74 68 69 73 4c 69 | 6e 65 5c 72 0d 09 7d 0d |t$thisLi|ne\r..}.|
|000026b0| 09 09 0d 23 20 4e 6f 77 | 20 72 65 70 6c 61 63 65 |...# Now| replace|
|000026c0| 20 74 68 65 20 6f 6c 64 | 20 73 74 75 66 66 2c 20 | the old| stuff, |
|000026d0| 63 6f 6e 76 65 72 74 20 | 73 70 61 63 65 73 20 62 |convert |spaces b|
|000026e0| 61 63 6b 20 74 6f 20 74 | 61 62 73 0d 0d 09 72 65 |ack to t|abs...re|
|000026f0| 70 6c 61 63 65 54 65 78 | 74 09 24 73 74 61 72 74 |placeTex|t.$start|
|00002700| 20 24 65 6e 64 09 24 74 | 65 78 74 0d 09 73 65 74 | $end.$t|ext..set|
|00002710| 20 65 6e 64 20 5b 65 78 | 70 72 20 7b 24 73 74 61 | end [ex|pr {$sta|
|00002720| 72 74 2b 5b 73 74 72 69 | 6e 67 09 6c 65 6e 67 74 |rt+[stri|ng.lengt|
|00002730| 68 20 24 74 65 78 74 5d | 7d 5d 0d 09 63 72 65 61 |h $text]|}]..crea|
|00002740| 74 65 54 4d 61 72 6b 20 | 73 74 6f 70 43 6f 6d 6d |teTMark |stopComm|
|00002750| 65 6e 74 20 5b 65 78 70 | 72 20 24 65 6e 64 2b 31 |ent [exp|r $end+1|
|00002760| 5d 0d 09 73 65 6c 65 63 | 74 20 24 73 74 61 72 74 |]..selec|t $start|
|00002770| 20 24 65 6e 64 0d 09 73 | 70 61 63 65 73 54 6f 54 | $end..s|pacesToT|
|00002780| 61 62 73 0d 09 67 6f 74 | 6f 54 4d 61 72 6b 20 73 |abs..got|oTMark s|
|00002790| 74 6f 70 43 6f 6d 6d 65 | 6e 74 0d 09 73 65 74 20 |topComme|nt..set |
|000027a0| 65 6e 64 20 5b 65 78 70 | 72 20 5b 67 65 74 50 6f |end [exp|r [getPo|
|000027b0| 73 5d 2d 31 5d 0d 09 72 | 65 6d 6f 76 65 54 4d 61 |s]-1]..r|emoveTMa|
|000027c0| 72 6b 20 73 74 6f 70 43 | 6f 6d 6d 65 6e 74 0d 09 |rk stopC|omment..|
|000027d0| 73 65 6c 65 63 74 20 24 | 73 74 61 72 74 20 24 65 |select $|start $e|
|000027e0| 6e 64 0d 7d 0d 0d 0d 23 | 3d 3d 3d 3d 3d 3d 3d 3d |nd.}...#|========|
|000027f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002800| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002810| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002820| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002830| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 0d 70 72 6f 63 20 6e |========|..proc n|
|00002840| 65 78 74 46 75 6e 63 20 | 7b 7d 20 7b 0d 09 73 65 |extFunc |{} {..se|
|00002850| 61 72 63 68 46 75 6e 63 | 20 31 0d 7d 0d 0d 70 72 |archFunc| 1.}..pr|
|00002860| 6f 63 20 70 72 65 76 46 | 75 6e 63 20 7b 7d 20 7b |oc prevF|unc {} {|
|00002870| 0d 09 73 65 61 72 63 68 | 46 75 6e 63 20 30 0d 7d |..search|Func 0.}|
|00002880| 0d 0d 70 72 6f 63 20 73 | 65 61 72 63 68 46 75 6e |..proc s|earchFun|
|00002890| 63 20 7b 64 69 72 7d 20 | 7b 0d 09 67 6c 6f 62 61 |c {dir} |{..globa|
|000028a0| 6c 20 66 75 6e 63 45 78 | 70 72 0d 09 73 65 74 20 |l funcEx|pr..set |
|000028b0| 70 6f 73 20 5b 67 65 74 | 50 6f 73 5d 0d 09 73 65 |pos [get|Pos]..se|
|000028c0| 6c 65 63 74 20 24 70 6f | 73 0d 09 69 66 20 28 24 |lect $po|s..if ($|
|000028d0| 64 69 72 3d 3d 31 29 20 | 7b 0d 09 09 69 6e 63 72 |dir==1) |{...incr|
|000028e0| 20 70 6f 73 0d 09 7d 20 | 65 6c 73 65 20 7b 0d 09 | pos..} |else {..|
|000028f0| 09 73 65 74 20 70 6f 73 | 20 5b 65 78 70 72 20 24 |.set pos| [expr $|
|00002900| 70 6f 73 2d 31 5d 0d 09 | 7d 0d 09 69 66 20 7b 21 |pos-1]..|}..if {!|
|00002910| 5b 63 61 74 63 68 20 7b | 73 65 61 72 63 68 20 2d |[catch {|search -|
|00002920| 73 20 2d 66 20 24 64 69 | 72 20 2d 69 20 31 20 2d |s -f $di|r -i 1 -|
|00002930| 72 20 31 20 24 66 75 6e | 63 45 78 70 72 20 24 70 |r 1 $fun|cExpr $p|
|00002940| 6f 73 7d 20 72 65 73 5d | 7d 20 7b 0d 09 09 65 76 |os} res]|} {...ev|
|00002950| 61 6c 20 73 65 6c 65 63 | 74 20 24 72 65 73 0d 09 |al selec|t $res..|
|00002960| 7d 0d 7d 0d 0d 23 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |}.}..#==|========|
|00002970| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002980| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002990| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000029a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000029b0| 3d 0d 23 20 43 6f 6d 6d | 65 6e 74 20 72 6f 75 74 |=.# Comm|ent rout|
|000029c0| 69 6e 65 73 2e 0d 23 3d | 3d 3d 3d 3d 3d 3d 3d 3d |ines..#=|========|
|000029d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000029e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000029f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002a00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002a10| 3d 3d 0d 70 72 6f 63 20 | 63 6f 6d 6d 65 6e 74 50 |==.proc |commentP|
|00002a20| 61 72 61 20 7b 7d 20 7b | 0d 7d 0d 0d 0d 0d 23 3d |ara {} {|.}....#=|
|00002a30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002a40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002a50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002a60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002a70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 23 20 53 6f 72 |========|==.# Sor|
|00002a80| 74 69 6e 67 20 74 68 65 | 20 73 65 6c 65 63 74 69 |ting the| selecti|
|00002a90| 6f 6e 2e 0d 23 20 41 55 | 54 48 4f 52 3a 20 44 61 |on..# AU|THOR: Da|
|00002aa0| 76 69 64 20 43 2e 20 42 | 6c 61 63 6b 09 20 62 6c |vid C. B|lack. bl|
|00002ab0| 61 63 6b 40 6d 70 64 2e | 74 61 6e 64 65 6d 2e 63 |ack@mpd.|tandem.c|
|00002ac0| 6f 6d 0d 23 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |om.#====|========|
|00002ad0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002ae0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002af0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002b00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00002b10| 70 72 6f 63 20 73 6f 72 | 74 4c 69 6e 65 73 20 7b |proc sor|tLines {|
|00002b20| 7d 20 7b 0d 09 73 65 74 | 20 65 6e 64 73 20 5b 67 |} {..set| ends [g|
|00002b30| 65 74 45 6e 64 70 74 73 | 5d 0d 09 73 65 74 20 73 |etEndpts|]..set s|
|00002b40| 74 61 72 74 20 5b 6c 69 | 6e 64 65 78 20 24 65 6e |tart [li|ndex $en|
|00002b50| 64 73 20 30 5d 0d 09 73 | 65 74 20 65 6e 64 20 20 |ds 0]..s|et end  |
|00002b60| 5b 6c 69 6e 64 65 78 20 | 24 65 6e 64 73 20 31 5d |[lindex |$ends 1]|
|00002b70| 0d 09 69 66 20 7b 24 73 | 74 61 72 74 20 3d 3d 20 |..if {$s|tart == |
|00002b80| 24 65 6e 64 7d 20 7b 0d | 09 09 61 6c 65 72 74 6e |$end} {.|..alertn|
|00002b90| 6f 74 65 20 22 59 6f 75 | 20 6d 75 73 74 20 68 69 |ote "You| must hi|
|00002ba0| 67 68 6c 69 67 68 74 20 | 74 68 65 20 73 65 63 74 |ghlight |the sect|
|00002bb0| 69 6f 6e 20 79 6f 75 20 | 77 69 73 68 20 74 6f 20 |ion you |wish to |
|00002bc0| 73 6f 72 74 2e 22 0d 09 | 09 72 65 74 75 72 6e 0d |sort."..|.return.|
|00002bd0| 09 7d 0d 09 69 66 20 7b | 5b 6c 6f 6f 6b 41 74 20 |.}..if {|[lookAt |
|00002be0| 5b 65 78 70 72 20 24 65 | 6e 64 2d 31 5d 5d 20 21 |[expr $e|nd-1]] !|
|00002bf0| 3d 20 22 5c 72 22 7d 20 | 7b 0d 09 09 61 6c 65 72 |= "\r"} |{...aler|
|00002c00| 74 6e 6f 74 65 20 22 54 | 68 65 20 73 65 6c 65 63 |tnote "T|he selec|
|00002c10| 74 69 6f 6e 20 6d 75 73 | 74 20 63 6f 6e 73 69 73 |tion mus|t consis|
|00002c20| 74 20 6f 6e 6c 79 20 6f | 66 20 63 6f 6d 70 6c 65 |t only o|f comple|
|00002c30| 74 65 20 6c 69 6e 65 73 | 2e 22 0d 09 09 72 65 74 |te lines|."...ret|
|00002c40| 75 72 6e 0d 09 7d 0d 09 | 73 65 74 20 74 65 78 74 |urn..}..|set text|
|00002c50| 20 5b 67 65 74 54 65 78 | 74 20 24 73 74 61 72 74 | [getTex|t $start|
|00002c60| 20 5b 65 78 70 72 20 7b | 24 65 6e 64 2d 31 7d 5d | [expr {|$end-1}]|
|00002c70| 5d 0d 09 73 65 74 20 74 | 65 78 74 20 5b 6a 6f 69 |]..set t|ext [joi|
|00002c80| 6e 20 5b 6c 73 6f 72 74 | 20 5b 73 70 6c 69 74 20 |n [lsort| [split |
|00002c90| 24 74 65 78 74 20 22 5c | 72 22 5d 5d 20 22 5c 72 |$text "\|r"]] "\r|
|00002ca0| 22 5d 0d 09 72 65 70 6c | 61 63 65 54 65 78 74 20 |"]..repl|aceText |
|00002cb0| 24 73 74 61 72 74 20 5b | 65 78 70 72 20 7b 24 65 |$start [|expr {$e|
|00002cc0| 6e 64 2d 31 7d 5d 20 24 | 74 65 78 74 0d 09 73 65 |nd-1}] $|text..se|
|00002cd0| 6c 65 63 74 20 24 73 74 | 61 72 74 20 24 65 6e 64 |lect $st|art $end|
|00002ce0| 0d 7d 0d 0d 0d 0d 23 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.}....#=|========|
|00002cf0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002d00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002d10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002d20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002d30| 3d 3d 0d 23 20 44 75 6d | 70 20 61 6c 6c 20 63 75 |==.# Dum|p all cu|
|00002d40| 72 72 65 6e 74 20 73 65 | 74 74 69 6e 67 73 20 69 |rrent se|ttings i|
|00002d50| 6e 74 6f 20 61 20 66 69 | 6c 65 2e 0d 23 3d 3d 3d |nto a fi|le..#===|
|00002d60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002d70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002d80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002d90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002da0| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 70 72 6f 63 20 69 6e |========|.proc in|
|00002db0| 73 65 72 74 47 6c 6f 62 | 61 6c 53 65 74 74 69 6e |sertGlob|alSettin|
|00002dc0| 67 73 20 7b 7d 20 7b 0d | 09 75 70 6c 65 76 65 6c |gs {} {.|.uplevel|
|00002dd0| 20 23 30 20 7b 0d 09 09 | 66 6f 72 65 61 63 68 20 | #0 {...|foreach |
|00002de0| 76 61 72 20 5b 69 6e 66 | 6f 20 67 6c 6f 62 61 6c |var [inf|o global|
|00002df0| 73 5d 20 7b 0d 09 09 09 | 69 66 20 7b 21 5b 63 61 |s] {....|if {![ca|
|00002e00| 74 63 68 20 7b 73 65 74 | 20 24 76 61 72 7d 5d 7d |tch {set| $var}]}|
|00002e10| 20 7b 0d 09 09 09 09 69 | 6e 73 65 72 74 54 65 78 | {.....i|nsertTex|
|00002e20| 74 20 22 73 65 74 20 22 | 20 24 76 61 72 20 22 20 |t "set "| $var " |
|00002e30| 5c 7b 22 20 5b 73 65 74 | 20 24 76 61 72 5d 20 22 |\{" [set| $var] "|
|00002e40| 5c 7d 5c 72 22 0d 09 09 | 09 7d 0d 09 09 7d 0d 09 |\}\r"...|.}...}..|
|00002e50| 7d 0d 7d 0d 0d 0d 23 3d | 3d 3d 3d 3d 3d 3d 3d 3d |}.}...#=|========|
|00002e60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002e70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002e80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002e90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002ea0| 3d 3d 3d 3d 3d 3d 3d 0d | 23 20 53 75 62 73 74 69 |=======.|# Substi|
|00002eb0| 74 75 74 65 20 67 6c 6f | 62 61 6c 20 76 61 72 69 |tute glo|bal vari|
|00002ec0| 61 62 6c 65 73 20 69 6e | 20 70 6f 73 73 69 62 6c |ables in| possibl|
|00002ed0| 79 20 6e 65 73 74 65 64 | 20 6c 69 73 74 2e 0d 23 |y nested| list..#|
|00002ee0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002ef0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002f00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002f10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002f20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002f30| 0d 70 72 6f 63 20 73 75 | 62 56 61 72 73 20 7b 77 |.proc su|bVars {w|
|00002f40| 6f 72 64 73 7d 20 7b 0d | 09 67 6c 6f 62 61 6c 20 |ords} {.|.global |
|00002f50| 73 69 6c 6c 79 0d 09 67 | 6c 6f 62 61 6c 20 61 0d |silly..g|lobal a.|
|00002f60| 09 73 65 74 20 73 69 6c | 6c 79 20 24 77 6f 72 64 |.set sil|ly $word|
|00002f70| 73 0d 09 73 65 74 20 6f | 75 74 20 7b 7d 0d 09 66 |s..set o|ut {}..f|
|00002f80| 6f 72 65 61 63 68 20 61 | 20 24 77 6f 72 64 73 20 |oreach a| $words |
|00002f90| 7b 0d 09 09 69 66 20 7b | 5b 6c 6c 65 6e 67 74 68 |{...if {|[llength|
|00002fa0| 20 24 61 5d 20 3d 3d 20 | 31 7d 20 7b 0d 09 09 09 | $a] == |1} {....|
|00002fb0| 6c 61 70 70 65 6e 64 20 | 6f 75 74 20 5b 75 70 6c |lappend |out [upl|
|00002fc0| 65 76 65 6c 20 23 30 20 | 7b 65 76 61 6c 20 73 65 |evel #0 |{eval se|
|00002fd0| 74 20 78 20 24 61 7d 5d | 0d 09 09 7d 20 65 6c 73 |t x $a}]|...} els|
|00002fe0| 65 20 7b 0d 09 09 09 6c | 61 70 70 65 6e 64 20 6f |e {....l|append o|
|00002ff0| 75 74 20 5b 73 75 62 56 | 61 72 73 20 24 61 5d 0d |ut [subV|ars $a].|
|00003000| 09 09 7d 0d 09 7d 0d 09 | 72 65 74 75 72 6e 20 24 |..}..}..|return $|
|00003010| 6f 75 74 0d 7d 0d 0d 23 | 3d 3d 3d 3d 3d 3d 3d 3d |out.}..#|========|
|00003020| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003030| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003040| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003050| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003060| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 23 20 42 6c 6f 63 6b |========|.# Block|
|00003070| 20 73 68 69 66 74 20 6c | 65 66 74 20 61 6e 64 20 | shift l|eft and |
|00003080| 72 69 67 68 74 2e 0d 23 | 3d 3d 3d 3d 3d 3d 3d 3d |right..#|========|
|00003090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000030a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000030b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000030c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000030d0| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 0d 70 72 6f 63 20 73 |========|..proc s|
|000030e0| 68 69 66 74 4c 65 66 74 | 20 7b 7d 20 7b 0d 09 67 |hiftLeft| {} {..g|
|000030f0| 6c 6f 62 61 6c 20 73 68 | 69 66 74 43 68 61 72 0d |lobal sh|iftChar.|
|00003100| 09 64 6f 53 68 69 66 74 | 4c 65 66 74 20 22 5c 74 |.doShift|Left "\t|
|00003110| 22 0d 09 0d 7d 0d 70 72 | 6f 63 20 73 68 69 66 74 |"...}.pr|oc shift|
|00003120| 4c 65 66 74 53 70 61 63 | 65 20 7b 7d 20 7b 0d 09 |LeftSpac|e {} {..|
|00003130| 67 6c 6f 62 61 6c 20 73 | 68 69 66 74 43 68 61 72 |global s|hiftChar|
|00003140| 0d 09 64 6f 53 68 69 66 | 74 4c 65 66 74 20 22 20 |..doShif|tLeft " |
|00003150| 22 0d 7d 0d 0d 70 72 6f | 63 20 64 6f 53 68 69 66 |".}..pro|c doShif|
|00003160| 74 4c 65 66 74 20 7b 73 | 68 69 66 74 43 68 61 72 |tLeft {s|hiftChar|
|00003170| 7d 20 7b 0d 20 09 73 65 | 74 20 73 74 61 72 74 20 |} {. .se|t start |
|00003180| 5b 6c 69 6e 65 53 74 61 | 72 74 20 5b 67 65 74 50 |[lineSta|rt [getP|
|00003190| 6f 73 5d 5d 0d 20 09 73 | 65 74 20 65 6e 64 20 5b |os]]. .s|et end [|
|000031a0| 6e 65 78 74 4c 69 6e 65 | 53 74 61 72 74 20 5b 65 |nextLine|Start [e|
|000031b0| 78 70 72 20 5b 73 65 6c | 45 6e 64 5d 20 2d 20 31 |xpr [sel|End] - 1|
|000031c0| 5d 5d 0d 09 69 66 20 7b | 24 73 74 61 72 74 20 3e |]]..if {|$start >|
|000031d0| 3d 20 24 65 6e 64 7d 20 | 7b 73 65 74 20 65 6e 64 |= $end} |{set end|
|000031e0| 20 5b 6e 65 78 74 4c 69 | 6e 65 53 74 61 72 74 20 | [nextLi|neStart |
|000031f0| 24 73 74 61 72 74 5d 7d | 0d 09 0d 09 73 65 74 20 |$start]}|....set |
|00003200| 74 65 78 74 20 5b 73 70 | 6c 69 74 20 5b 67 65 74 |text [sp|lit [get|
|00003210| 54 65 78 74 20 24 73 74 | 61 72 74 20 5b 65 78 70 |Text $st|art [exp|
|00003220| 72 20 24 65 6e 64 20 2d | 20 31 5d 5d 20 22 5c 72 |r $end -| 1]] "\r|
|00003230| 22 5d 0d 09 0d 09 73 65 | 74 20 74 65 78 74 6f 75 |"]....se|t textou|
|00003240| 74 20 22 22 0d 09 0d 09 | 66 6f 72 65 61 63 68 20 |t ""....|foreach |
|00003250| 6c 69 6e 65 20 24 74 65 | 78 74 20 7b 0d 09 09 69 |line $te|xt {...i|
|00003260| 66 20 7b 5b 73 74 72 69 | 6e 67 20 69 6e 64 65 78 |f {[stri|ng index|
|00003270| 20 24 6c 69 6e 65 20 30 | 5d 20 3d 3d 20 24 73 68 | $line 0|] == $sh|
|00003280| 69 66 74 43 68 61 72 7d | 20 7b 0d 09 09 09 6c 61 |iftChar}| {....la|
|00003290| 70 70 65 6e 64 20 74 65 | 78 74 6f 75 74 20 5b 73 |ppend te|xtout [s|
|000032a0| 74 72 69 6e 67 20 72 61 | 6e 67 65 20 24 6c 69 6e |tring ra|nge $lin|
|000032b0| 65 20 31 20 65 6e 64 5d | 0d 09 09 7d 20 65 6c 73 |e 1 end]|...} els|
|000032c0| 65 20 7b 0d 09 09 09 6c | 61 70 70 65 6e 64 20 74 |e {....l|append t|
|000032d0| 65 78 74 6f 75 74 20 24 | 6c 69 6e 65 0d 09 09 7d |extout $|line...}|
|000032e0| 0d 09 7d 0d 0d 09 73 65 | 74 20 74 65 78 74 20 5b |..}...se|t text [|
|000032f0| 6a 6f 69 6e 20 24 74 65 | 78 74 6f 75 74 20 22 5c |join $te|xtout "\|
|00003300| 72 22 5d 09 0d 09 72 65 | 70 6c 61 63 65 54 65 78 |r"]...re|placeTex|
|00003310| 74 20 24 73 74 61 72 74 | 20 5b 65 78 70 72 20 24 |t $start| [expr $|
|00003320| 65 6e 64 20 2d 20 31 5d | 20 24 74 65 78 74 0d 09 |end - 1]| $text..|
|00003330| 73 65 6c 65 63 74 20 24 | 73 74 61 72 74 20 5b 65 |select $|start [e|
|00003340| 78 70 72 20 31 20 2b 20 | 24 73 74 61 72 74 20 2b |xpr 1 + |$start +|
|00003350| 20 5b 73 74 72 69 6e 67 | 20 6c 65 6e 67 74 68 20 | [string| length |
|00003360| 24 74 65 78 74 5d 5d 0d | 7d 0d 0d 0d 70 72 6f 63 |$text]].|}...proc|
|00003370| 20 73 68 69 66 74 52 69 | 67 68 74 20 7b 7d 20 7b | shiftRi|ght {} {|
|00003380| 0d 09 67 6c 6f 62 61 6c | 20 73 68 69 66 74 43 68 |..global| shiftCh|
|00003390| 61 72 0d 09 64 6f 53 68 | 69 66 74 52 69 67 68 74 |ar..doSh|iftRight|
|000033a0| 20 22 5c 74 22 0d 09 0d | 7d 0d 70 72 6f 63 20 73 | "\t"...|}.proc s|
|000033b0| 68 69 66 74 52 69 67 68 | 74 53 70 61 63 65 20 7b |hiftRigh|tSpace {|
|000033c0| 7d 20 7b 0d 09 67 6c 6f | 62 61 6c 20 73 68 69 66 |} {..glo|bal shif|
|000033d0| 74 43 68 61 72 0d 09 64 | 6f 53 68 69 66 74 52 69 |tChar..d|oShiftRi|
|000033e0| 67 68 74 20 22 20 22 0d | 7d 0d 70 72 6f 63 20 64 |ght " ".|}.proc d|
|000033f0| 6f 53 68 69 66 74 52 69 | 67 68 74 20 7b 73 68 69 |oShiftRi|ght {shi|
|00003400| 66 74 43 68 61 72 7d 20 | 7b 0d 09 73 65 74 20 73 |ftChar} |{..set s|
|00003410| 74 61 72 74 20 5b 6c 69 | 6e 65 53 74 61 72 74 20 |tart [li|neStart |
|00003420| 5b 67 65 74 50 6f 73 5d | 5d 0d 09 73 65 74 20 65 |[getPos]|]..set e|
|00003430| 6e 64 20 5b 6e 65 78 74 | 4c 69 6e 65 53 74 61 72 |nd [next|LineStar|
|00003440| 74 20 5b 65 78 70 72 20 | 5b 73 65 6c 45 6e 64 5d |t [expr |[selEnd]|
|00003450| 20 2d 20 31 5d 5d 0d 09 | 69 66 20 7b 24 73 74 61 | - 1]]..|if {$sta|
|00003460| 72 74 20 3e 3d 20 24 65 | 6e 64 7d 20 7b 73 65 74 |rt >= $e|nd} {set|
|00003470| 20 65 6e 64 20 5b 6e 65 | 78 74 4c 69 6e 65 53 74 | end [ne|xtLineSt|
|00003480| 61 72 74 20 24 73 74 61 | 72 74 5d 7d 0d 09 0d 09 |art $sta|rt]}....|
|00003490| 73 65 74 20 74 65 78 74 | 20 5b 73 70 6c 69 74 20 |set text| [split |
|000034a0| 5b 67 65 74 54 65 78 74 | 20 24 73 74 61 72 74 20 |[getText| $start |
|000034b0| 5b 65 78 70 72 20 24 65 | 6e 64 20 2d 20 31 5d 5d |[expr $e|nd - 1]]|
|000034c0| 20 22 5c 72 22 5d 0d 09 | 0d 09 73 65 74 20 74 65 | "\r"]..|..set te|
|000034d0| 78 74 6f 75 74 20 22 22 | 0d 09 0d 09 66 6f 72 65 |xtout ""|....fore|
|000034e0| 61 63 68 20 6c 69 6e 65 | 20 24 74 65 78 74 20 7b |ach line| $text {|
|000034f0| 0d 09 09 6c 61 70 70 65 | 6e 64 20 74 65 78 74 6f |...lappe|nd texto|
|00003500| 75 74 20 24 73 68 69 66 | 74 43 68 61 72 24 6c 69 |ut $shif|tChar$li|
|00003510| 6e 65 0d 09 7d 0d 09 0d | 09 73 65 74 20 74 65 78 |ne..}...|.set tex|
|00003520| 74 20 5b 6a 6f 69 6e 20 | 24 74 65 78 74 6f 75 74 |t [join |$textout|
|00003530| 20 22 5c 72 22 5d 09 0d | 09 72 65 70 6c 61 63 65 | "\r"]..|.replace|
|00003540| 54 65 78 74 20 24 73 74 | 61 72 74 20 5b 65 78 70 |Text $st|art [exp|
|00003550| 72 20 24 65 6e 64 20 2d | 20 31 5d 20 24 74 65 78 |r $end -| 1] $tex|
|00003560| 74 0d 09 73 65 6c 65 63 | 74 20 24 73 74 61 72 74 |t..selec|t $start|
|00003570| 20 5b 65 78 70 72 20 31 | 20 2b 20 24 73 74 61 72 | [expr 1| + $star|
|00003580| 74 20 2b 20 5b 73 74 72 | 69 6e 67 20 6c 65 6e 67 |t + [str|ing leng|
|00003590| 74 68 20 24 74 65 78 74 | 5d 5d 0d 7d 0d 0d 0d 0d |th $text|]].}....|
|000035a0| 23 20 72 67 6c 6f 62 54 | 65 78 74 20 5b 6f 70 74 |# rglobT|ext [opt|
|000035b0| 69 6f 6e 20 6c 69 73 74 | 5d 20 64 69 72 20 70 61 |ion list|] dir pa|
|000035c0| 74 0d 23 20 27 64 69 72 | 27 20 73 68 6f 75 6c 64 |t.# 'dir|' should|
|000035d0| 20 62 65 20 61 20 70 72 | 6f 70 65 72 6c 79 20 66 | be a pr|operly f|
|000035e0| 6f 72 6d 65 64 20 64 69 | 72 65 63 74 6f 72 79 2c |ormed di|rectory,|
|000035f0| 20 65 6e 64 69 6e 67 20 | 77 2f 20 61 20 27 3a 27 | ending |w/ a ':'|
|00003600| 2e 20 27 70 61 74 27 20 | 73 68 6f 75 6c 64 20 62 |. 'pat' |should b|
|00003610| 65 20 0d 23 20 61 20 73 | 69 6d 70 6c 65 20 70 61 |e .# a s|imple pa|
|00003620| 74 74 65 72 6e 20 77 2f | 20 6e 6f 20 64 69 72 65 |ttern w/| no dire|
|00003630| 63 74 6f 72 79 20 73 70 | 65 63 69 66 69 63 61 74 |ctory sp|ecificat|
|00003640| 69 6f 6e 73 20 28 69 2e | 65 2e 20 22 2a 2e 63 22 |ions (i.|e. "*.c"|
|00003650| 29 2e 0d 70 72 6f 63 20 | 72 67 6c 6f 62 54 65 78 |)..proc |rglobTex|
|00003660| 74 20 7b 6f 70 74 6c 69 | 73 74 20 64 69 72 20 70 |t {optli|st dir p|
|00003670| 61 74 7d 20 7b 0d 0d 09 | 6d 65 73 73 61 67 65 20 |at} {...|message |
|00003680| 22 24 64 69 72 22 0d 09 | 73 65 74 20 63 6d 64 20 |"$dir"..|set cmd |
|00003690| 5b 63 6f 6e 63 61 74 20 | 67 6c 6f 62 20 2d 74 20 |[concat |glob -t |
|000036a0| 54 45 58 54 20 24 6f 70 | 74 6c 69 73 74 5d 0d 09 |TEXT $op|tlist]..|
|000036b0| 6c 61 70 70 65 6e 64 20 | 63 6d 64 20 24 64 69 72 |lappend |cmd $dir|
|000036c0| 24 70 61 74 0d 09 69 66 | 20 7b 5b 63 61 74 63 68 |$pat..if| {[catch|
|000036d0| 20 7b 65 76 61 6c 20 24 | 63 6d 64 7d 20 66 69 6c | {eval $|cmd} fil|
|000036e0| 65 73 5d 7d 20 7b 0d 09 | 09 73 65 74 20 66 69 6c |es]} {..|.set fil|
|000036f0| 65 73 20 22 22 0d 09 7d | 0d 09 0d 09 69 66 20 7b |es ""..}|....if {|
|00003700| 21 5b 63 61 74 63 68 20 | 7b 67 6c 6f 62 20 24 64 |![catch |{glob $d|
|00003710| 69 72 2a 7d 20 61 6c 6c | 5d 7d 20 7b 0d 09 09 66 |ir*} all|]} {...f|
|00003720| 6f 72 65 61 63 68 20 66 | 20 24 61 6c 6c 20 7b 0d |oreach f| $all {.|
|00003730| 09 09 09 69 66 20 7b 5b | 66 69 6c 65 20 69 73 64 |...if {[|file isd|
|00003740| 69 72 20 24 66 5d 7d 20 | 7b 0d 09 09 09 09 73 65 |ir $f]} |{.....se|
|00003750| 74 20 66 69 6c 65 73 20 | 5b 63 6f 6e 63 61 74 20 |t files |[concat |
|00003760| 24 66 69 6c 65 73 20 5b | 72 67 6c 6f 62 54 65 78 |$files [|rglobTex|
|00003770| 74 20 24 6f 70 74 6c 69 | 73 74 20 24 66 3a 20 24 |t $optli|st $f: $|
|00003780| 70 61 74 5d 5d 0d 09 09 | 09 7d 0d 09 09 7d 0d 09 |pat]]...|.}...}..|
|00003790| 7d 0d 09 72 65 74 75 72 | 6e 20 24 66 69 6c 65 73 |}..retur|n $files|
|000037a0| 0d 7d 0d 0d 0d 70 72 6f | 63 20 73 77 69 74 63 68 |.}...pro|c switch|
|000037b0| 41 70 70 20 7b 7d 20 7b | 0d 09 73 65 74 20 70 72 |App {} {|..set pr|
|000037c0| 6f 63 73 20 22 22 0d 09 | 66 6f 72 65 61 63 68 20 |ocs ""..|foreach |
|000037d0| 70 20 5b 70 72 6f 63 65 | 73 73 65 73 5d 20 7b 0d |p [proce|sses] {.|
|000037e0| 09 09 6c 61 70 70 65 6e | 64 20 70 72 6f 63 73 20 |..lappen|d procs |
|000037f0| 5b 6c 69 6e 64 65 78 20 | 24 70 20 30 5d 0d 09 7d |[lindex |$p 0]..}|
|00003800| 0d 09 73 65 74 20 74 6f | 20 5b 6c 69 73 74 70 69 |..set to| [listpi|
|00003810| 63 6b 20 2d 70 20 22 53 | 77 69 74 63 68 20 74 6f |ck -p "S|witch to|
|00003820| 20 61 70 70 3a 22 20 5b | 6c 73 6f 72 74 20 24 70 | app:" [|lsort $p|
|00003830| 72 6f 63 73 5d 5d 0d 09 | 69 66 20 7b 5b 73 74 72 |rocs]]..|if {[str|
|00003840| 69 6e 67 20 6c 65 6e 67 | 74 68 20 24 74 6f 5d 7d |ing leng|th $to]}|
|00003850| 20 7b 0d 09 09 73 77 69 | 74 63 68 54 6f 20 24 74 | {...swi|tchTo $t|
|00003860| 6f 0d 09 7d 0d 7d 0d 0d | 0d 70 72 6f 63 20 73 65 |o..}.}..|.proc se|
|00003870| 6c 65 63 74 41 6c 6c 20 | 7b 7d 20 7b 0d 09 73 65 |lectAll |{} {..se|
|00003880| 6c 65 63 74 20 30 20 5b | 6d 61 78 50 6f 73 5d 0d |lect 0 [|maxPos].|
|00003890| 7d 0d 0d 0d 70 72 6f 63 | 20 74 77 69 64 64 6c 65 |}...proc| twiddle|
|000038a0| 20 7b 7d 20 7b 0d 09 73 | 65 74 20 70 6f 73 20 5b | {} {..s|et pos [|
|000038b0| 67 65 74 50 6f 73 5d 0d | 09 69 66 20 7b 21 24 70 |getPos].|.if {!$p|
|000038c0| 6f 73 20 7c 7c 20 28 24 | 70 6f 73 20 3d 3d 20 5b |os || ($|pos == [|
|000038d0| 6d 61 78 50 6f 73 5d 29 | 7d 20 72 65 74 75 72 6e |maxPos])|} return|
|000038e0| 3b 0d 09 69 66 20 7b 5b | 73 74 72 69 6e 67 20 6c |;..if {[|string l|
|000038f0| 65 6e 67 74 68 20 5b 73 | 65 74 20 74 65 78 74 20 |ength [s|et text |
|00003900| 5b 67 65 74 53 65 6c 65 | 63 74 5d 5d 5d 7d 20 7b |[getSele|ct]]]} {|
|00003910| 0d 09 09 69 66 20 7b 5b | 73 74 72 69 6e 67 20 6c |...if {[|string l|
|00003920| 65 6e 67 74 68 20 24 74 | 65 78 74 5d 20 3d 3d 20 |ength $t|ext] == |
|00003930| 31 7d 20 7b 0d 09 09 09 | 72 65 74 75 72 6e 0d 09 |1} {....|return..|
|00003940| 09 7d 20 65 6c 73 65 20 | 7b 0d 09 09 09 73 65 74 |.} else |{....set|
|00003950| 20 73 65 6c 20 5b 65 78 | 70 72 20 5b 73 65 6c 45 | sel [ex|pr [selE|
|00003960| 6e 64 5d 20 2d 20 31 5d | 0d 09 09 09 73 65 74 20 |nd] - 1]|....set |
|00003970| 6f 6e 65 20 5b 6c 6f 6f | 6b 41 74 20 24 73 65 6c |one [loo|kAt $sel|
|00003980| 5d 0d 09 09 09 73 65 74 | 20 74 77 6f 20 5b 6c 6f |]....set| two [lo|
|00003990| 6f 6b 41 74 20 24 70 6f | 73 5d 0d 09 09 09 72 65 |okAt $po|s]....re|
|000039a0| 70 6c 61 63 65 54 65 78 | 74 20 24 70 6f 73 20 5b |placeTex|t $pos [|
|000039b0| 65 78 70 72 20 24 73 65 | 6c 20 2b 20 31 5d 20 22 |expr $se|l + 1] "|
|000039c0| 24 6f 6e 65 5b 67 65 74 | 54 65 78 74 20 5b 65 78 |$one[get|Text [ex|
|000039d0| 70 72 20 24 70 6f 73 2b | 31 5d 20 24 73 65 6c 5d |pr $pos+|1] $sel]|
|000039e0| 24 74 77 6f 22 0d 09 09 | 09 73 65 6c 65 63 74 20 |$two"...|.select |
|000039f0| 24 70 6f 73 20 5b 65 78 | 70 72 20 24 73 65 6c 2b |$pos [ex|pr $sel+|
|00003a00| 31 5d 0d 09 09 09 72 65 | 74 75 72 6e 0d 09 09 7d |1]....re|turn...}|
|00003a10| 0d 09 7d 0d 09 73 65 74 | 20 6f 6e 65 20 5b 6c 6f |..}..set| one [lo|
|00003a20| 6f 6b 41 74 20 24 70 6f | 73 5d 0d 09 73 65 74 20 |okAt $po|s]..set |
|00003a30| 74 77 6f 20 5b 6c 6f 6f | 6b 41 74 20 5b 65 78 70 |two [loo|kAt [exp|
|00003a40| 72 20 24 70 6f 73 2d 31 | 5d 5d 0d 09 72 65 70 6c |r $pos-1|]]..repl|
|00003a50| 61 63 65 54 65 78 74 20 | 5b 65 78 70 72 20 24 70 |aceText |[expr $p|
|00003a60| 6f 73 2d 31 5d 20 5b 65 | 78 70 72 20 24 70 6f 73 |os-1] [e|xpr $pos|
|00003a70| 20 2b 20 31 5d 20 22 24 | 6f 6e 65 24 74 77 6f 22 | + 1] "$|one$two"|
|00003a80| 0d 09 73 65 6c 65 63 74 | 20 20 5b 65 78 70 72 20 |..select|  [expr |
|00003a90| 24 70 6f 73 2d 31 5d 20 | 5b 65 78 70 72 20 24 70 |$pos-1] |[expr $p|
|00003aa0| 6f 73 20 2b 20 31 5d 0d | 7d 0d 0d 70 72 6f 63 20 |os + 1].|}..proc |
|00003ab0| 74 77 69 64 64 6c 65 57 | 6f 72 64 73 20 7b 7d 20 |twiddleW|ords {} |
|00003ac0| 7b 0d 09 67 6c 6f 62 61 | 6c 20 77 6f 72 64 42 72 |{..globa|l wordBr|
|00003ad0| 65 61 6b 50 72 65 66 61 | 63 65 20 77 6f 72 64 42 |eakPrefa|ce wordB|
|00003ae0| 72 65 61 6b 0d 0d 09 69 | 66 20 7b 5b 67 65 74 50 |reak...i|f {[getP|
|00003af0| 6f 73 5d 20 21 3d 20 5b | 73 65 6c 45 6e 64 5d 7d |os] != [|selEnd]}|
|00003b00| 20 7b 0d 09 09 73 65 74 | 20 73 74 61 72 74 31 20 | {...set| start1 |
|00003b10| 5b 67 65 74 50 6f 73 5d | 3b 20 73 65 74 20 65 6e |[getPos]|; set en|
|00003b20| 64 32 20 5b 73 65 6c 45 | 6e 64 5d 0d 09 09 73 65 |d2 [selE|nd]...se|
|00003b30| 6c 65 63 74 20 24 73 74 | 61 72 74 31 0d 09 09 66 |lect $st|art1...f|
|00003b40| 6f 72 77 61 72 64 57 6f | 72 64 3b 20 73 65 74 20 |orwardWo|rd; set |
|00003b50| 65 6e 64 31 20 5b 67 65 | 74 50 6f 73 5d 0d 09 09 |end1 [ge|tPos]...|
|00003b60| 67 6f 74 6f 20 24 65 6e | 64 32 0d 09 09 62 61 63 |goto $en|d2...bac|
|00003b70| 6b 77 61 72 64 57 6f 72 | 64 3b 20 73 65 74 20 73 |kwardWor|d; set s|
|00003b80| 74 61 72 74 32 20 5b 67 | 65 74 50 6f 73 5d 0d 09 |tart2 [g|etPos]..|
|00003b90| 7d 20 65 6c 73 65 20 7b | 0d 09 09 73 65 6c 65 63 |} else {|...selec|
|00003ba0| 74 20 5b 73 65 74 20 70 | 6f 73 20 5b 67 65 74 50 |t [set p|os [getP|
|00003bb0| 6f 73 5d 5d 0d 09 09 62 | 61 63 6b 77 61 72 64 57 |os]]...b|ackwardW|
|00003bc0| 6f 72 64 3b 20 73 65 74 | 20 73 74 61 72 74 31 20 |ord; set| start1 |
|00003bd0| 5b 67 65 74 50 6f 73 5d | 0d 09 09 66 6f 72 77 61 |[getPos]|...forwa|
|00003be0| 72 64 57 6f 72 64 3b 20 | 73 65 74 20 65 6e 64 31 |rdWord; |set end1|
|00003bf0| 20 5b 67 65 74 50 6f 73 | 5d 0d 09 09 67 6f 74 6f | [getPos|]...goto|
|00003c00| 20 24 70 6f 73 0d 09 09 | 66 6f 72 77 61 72 64 57 | $pos...|forwardW|
|00003c10| 6f 72 64 3b 20 73 65 74 | 20 65 6e 64 32 20 5b 67 |ord; set| end2 [g|
|00003c20| 65 74 50 6f 73 5d 0d 09 | 09 62 61 63 6b 77 61 72 |etPos]..|.backwar|
|00003c30| 64 57 6f 72 64 3b 20 73 | 65 74 20 73 74 61 72 74 |dWord; s|et start|
|00003c40| 32 20 5b 67 65 74 50 6f | 73 5d 0d 09 7d 09 09 0d |2 [getPo|s]..}...|
|00003c50| 0d 09 69 66 20 7b 24 73 | 74 61 72 74 31 20 21 3d |..if {$s|tart1 !=|
|00003c60| 20 24 73 74 61 72 74 32 | 7d 20 7b 0d 09 09 73 65 | $start2|} {...se|
|00003c70| 74 20 6d 69 64 20 5b 67 | 65 74 54 65 78 74 20 24 |t mid [g|etText $|
|00003c80| 65 6e 64 31 20 24 73 74 | 61 72 74 32 5d 0d 09 09 |end1 $st|art2]...|
|00003c90| 72 65 70 6c 61 63 65 54 | 65 78 74 20 24 73 74 61 |replaceT|ext $sta|
|00003ca0| 72 74 31 20 24 65 6e 64 | 32 20 22 5b 67 65 74 54 |rt1 $end|2 "[getT|
|00003cb0| 65 78 74 20 24 73 74 61 | 72 74 32 20 24 65 6e 64 |ext $sta|rt2 $end|
|00003cc0| 32 5d 24 6d 69 64 5b 67 | 65 74 54 65 78 74 20 24 |2]$mid[g|etText $|
|00003cd0| 73 74 61 72 74 31 20 24 | 65 6e 64 31 5d 22 0d 09 |start1 $|end1]"..|
|00003ce0| 09 73 65 6c 65 63 74 20 | 24 73 74 61 72 74 31 20 |.select |$start1 |
|00003cf0| 24 65 6e 64 32 0d 09 7d | 0d 7d 0d 0d 23 3d 3d 3d |$end2..}|.}..#===|
|00003d00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003d10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003d20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003d30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003d40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 0d 23 20 |========|=====.# |
|00003d50| 50 72 69 6e 74 20 61 20 | 77 69 6e 64 6f 77 20 75 |Print a |window u|
|00003d60| 73 69 6e 67 20 4a 6f 68 | 6e 20 43 68 6f 27 73 20 |sing Joh|n Cho's |
|00003d70| 45 6e 73 63 72 69 70 74 | 6f 72 20 28 41 20 74 65 |Enscript|or (A te|
|00003d80| 78 74 20 66 69 6c 65 20 | 70 72 69 6e 74 69 6e 67 |xt file |printing|
|00003d90| 20 61 70 70 20 74 68 61 | 74 0d 23 20 77 6f 72 6b | app tha|t.# work|
|00003da0| 73 20 6c 69 6b 65 20 41 | 64 6f 62 65 20 45 6e 73 |s like A|dobe Ens|
|00003db0| 63 72 69 70 74 2e 29 0d | 23 0d 0d 70 72 6f 63 20 |cript.).|#..proc |
|00003dc0| 73 65 74 75 70 50 72 69 | 6e 74 4d 65 6e 75 20 7b |setupPri|ntMenu {|
|00003dd0| 7d 20 7b 0d 09 67 6c 6f | 62 61 6c 20 70 61 74 68 |} {..glo|bal path|
|00003de0| 43 6f 6d 6d 65 6e 74 73 | 20 64 65 66 61 75 6c 74 |Comments| default|
|00003df0| 50 72 69 6e 74 65 72 20 | 6d 6f 64 69 66 69 65 64 |Printer |modified|
|00003e00| 56 61 72 73 0d 09 69 66 | 20 7b 21 5b 69 6e 66 6f |Vars..if| {![info|
|00003e10| 20 65 78 69 73 74 73 20 | 64 65 66 61 75 6c 74 50 | exists |defaultP|
|00003e20| 72 69 6e 74 65 72 5d 7d | 20 7b 0d 09 09 73 65 74 |rinter]}| {...set|
|00003e30| 20 64 65 66 61 75 6c 74 | 50 72 69 6e 74 65 72 20 | default|Printer |
|00003e40| 22 41 6c 70 68 61 22 0d | 09 09 6c 61 70 70 65 6e |"Alpha".|..lappen|
|00003e50| 64 20 6d 6f 64 69 66 69 | 65 64 56 61 72 73 20 64 |d modifi|edVars d|
|00003e60| 65 66 61 75 6c 74 50 72 | 69 6e 74 65 72 0d 09 7d |efaultPr|inter..}|
|00003e70| 0d 09 73 65 74 20 6d 20 | 5b 6c 69 73 74 20 7b 2f |..set m |[list {/|
|00003e80| 50 3c 53 50 72 69 6e 74 | c9 7d 20 7b 2f 50 3c 53 |P<SPrint|.} {/P<S|
|00003e90| 3c 49 3c 4f 50 72 69 6e | 74 20 41 6c 6c c9 7d 20 |<I<OPrin|t All.} |
|00003ea0| 7b 28 2d 7d 20 41 6c 70 | 68 61 20 24 70 61 74 68 |{(-} Alp|ha $path|
|00003eb0| 43 6f 6d 6d 65 6e 74 73 | 28 6b 6f 64 65 78 50 61 |Comments|(kodexPa|
|00003ec0| 74 68 29 20 24 70 61 74 | 68 43 6f 6d 6d 65 6e 74 |th) $pat|hComment|
|00003ed0| 73 28 65 6e 73 63 72 69 | 70 74 6f 72 50 61 74 68 |s(enscri|ptorPath|
|00003ee0| 29 20 24 70 61 74 68 43 | 6f 6d 6d 65 6e 74 73 28 |) $pathC|omments(|
|00003ef0| 64 72 6f 70 70 73 50 61 | 74 68 29 5d 0d 09 6d 65 |droppsPa|th)]..me|
|00003f00| 6e 75 20 2d 6d 20 2d 6e | 20 70 72 69 6e 74 20 2d |nu -m -n| print -|
|00003f10| 70 20 70 72 69 6e 74 50 | 72 6f 63 20 24 6d 0d 09 |p printP|roc $m..|
|00003f20| 0d 09 66 6f 72 65 61 63 | 68 20 69 74 65 6d 20 24 |..foreac|h item $|
|00003f30| 6d 20 7b 0d 09 09 69 66 | 20 7b 24 69 74 65 6d 20 |m {...if| {$item |
|00003f40| 3d 3d 20 24 64 65 66 61 | 75 6c 74 50 72 69 6e 74 |== $defa|ultPrint|
|00003f50| 65 72 7d 20 7b 0d 09 09 | 09 6d 61 72 6b 4d 65 6e |er} {...|.markMen|
|00003f60| 75 49 74 65 6d 20 2d 6d | 20 70 72 69 6e 74 20 24 |uItem -m| print $|
|00003f70| 69 74 65 6d 20 6f 6e 0d | 09 09 7d 20 65 6c 73 65 |item on.|..} else|
|00003f80| 20 7b 0d 09 09 09 6d 61 | 72 6b 4d 65 6e 75 49 74 | {....ma|rkMenuIt|
|00003f90| 65 6d 20 2d 6d 20 70 72 | 69 6e 74 20 24 69 74 65 |em -m pr|int $ite|
|00003fa0| 6d 20 6f 66 66 0d 09 09 | 7d 0d 09 7d 0d 7d 0d 0d |m off...|}..}.}..|
|00003fb0| 70 72 6f 63 20 70 72 69 | 6e 74 50 72 6f 63 20 7b |proc pri|ntProc {|
|00003fc0| 6d 65 6e 75 20 69 74 65 | 6d 7d 20 7b 0d 09 67 6c |menu ite|m} {..gl|
|00003fd0| 6f 62 61 6c 20 6d 6f 64 | 69 66 69 65 64 56 61 72 |obal mod|ifiedVar|
|00003fe0| 73 20 64 65 66 61 75 6c | 74 50 72 69 6e 74 65 72 |s defaul|tPrinter|
|00003ff0| 20 70 61 74 68 43 6f 6d | 6d 65 6e 74 73 0d 09 73 | pathCom|ments..s|
|00004000| 77 69 74 63 68 20 2d 67 | 6c 6f 62 20 24 69 74 65 |witch -g|lob $ite|
|00004010| 6d 20 7b 0d 09 09 22 50 | 72 69 6e 74 20 41 6c 6c |m {..."P|rint All|
|00004020| 22 09 09 7b 09 69 66 20 | 7b 24 64 65 66 61 75 6c |"..{.if |{$defaul|
|00004030| 74 50 72 69 6e 74 65 72 | 20 3d 3d 20 22 41 6c 70 |tPrinter| == "Alp|
|00004040| 68 61 22 7d 20 7b 0d 09 | 09 09 09 09 09 09 09 70 |ha"} {..|.......p|
|00004050| 72 69 6e 74 41 6c 6c 0d | 09 09 09 09 09 09 09 7d |rintAll.|.......}|
|00004060| 20 65 6c 73 65 20 7b 0d | 09 09 09 09 09 09 09 09 | else {.|........|
|00004070| 66 6f 72 65 61 63 68 20 | 66 20 5b 77 69 6e 4e 61 |foreach |f [winNa|
|00004080| 6d 65 73 20 2d 66 5d 20 | 7b 0d 09 09 09 09 09 09 |mes -f] |{.......|
|00004090| 09 09 09 70 72 69 6e 74 | 46 69 6c 65 20 24 66 0d |...print|File $f.|
|000040a0| 09 09 09 09 09 09 09 09 | 7d 0d 09 09 09 09 09 09 |........|}.......|
|000040b0| 09 7d 0d 09 09 09 09 09 | 09 7d 0d 09 09 22 50 72 |.}......|.}..."Pr|
|000040c0| 69 6e 74 22 09 09 09 7b | 70 72 69 6e 74 46 69 6c |int"...{|printFil|
|000040d0| 65 20 5b 6c 69 6e 64 65 | 78 20 5b 77 69 6e 4e 61 |e [linde|x [winNa|
|000040e0| 6d 65 73 20 2d 66 5d 20 | 30 5d 7d 0d 09 09 22 41 |mes -f] |0]}..."A|
|000040f0| 6c 70 68 61 22 09 09 09 | 7b 73 65 74 20 64 65 66 |lpha"...|{set def|
|00004100| 61 75 6c 74 50 72 69 6e | 74 65 72 20 22 41 6c 70 |aultPrin|ter "Alp|
|00004110| 68 61 22 3b 20 6c 61 70 | 70 65 6e 64 20 6d 6f 64 |ha"; lap|pend mod|
|00004120| 69 66 69 65 64 56 61 72 | 73 20 64 65 66 61 75 6c |ifiedVar|s defaul|
|00004130| 74 50 72 69 6e 74 65 72 | 3b 20 73 65 74 75 70 50 |tPrinter|; setupP|
|00004140| 72 69 6e 74 4d 65 6e 75 | 7d 0d 09 09 22 4b 6f 64 |rintMenu|}..."Kod|
|00004150| 65 78 2a 22 09 09 7b 73 | 65 74 20 64 65 66 61 75 |ex*"..{s|et defau|
|00004160| 6c 74 50 72 69 6e 74 65 | 72 20 24 70 61 74 68 43 |ltPrinte|r $pathC|
|00004170| 6f 6d 6d 65 6e 74 73 28 | 6b 6f 64 65 78 50 61 74 |omments(|kodexPat|
|00004180| 68 29 3b 20 6c 61 70 70 | 65 6e 64 20 6d 6f 64 69 |h); lapp|end modi|
|00004190| 66 69 65 64 56 61 72 73 | 20 64 65 66 61 75 6c 74 |fiedVars| default|
|000041a0| 50 72 69 6e 74 65 72 3b | 20 73 65 74 75 70 50 72 |Printer;| setupPr|
|000041b0| 69 6e 74 4d 65 6e 75 7d | 0d 09 09 22 45 6e 73 63 |intMenu}|..."Ensc|
|000041c0| 72 2a 22 09 09 7b 73 65 | 74 20 64 65 66 61 75 6c |r*"..{se|t defaul|
|000041d0| 74 50 72 69 6e 74 65 72 | 20 24 70 61 74 68 43 6f |tPrinter| $pathCo|
|000041e0| 6d 6d 65 6e 74 73 28 65 | 6e 73 63 72 69 70 74 6f |mments(e|nscripto|
|000041f0| 72 50 61 74 68 29 3b 20 | 6c 61 70 70 65 6e 64 20 |rPath); |lappend |
|00004200| 6d 6f 64 69 66 69 65 64 | 56 61 72 73 20 64 65 66 |modified|Vars def|
|00004210| 61 75 6c 74 50 72 69 6e | 74 65 72 3b 20 73 65 74 |aultPrin|ter; set|
|00004220| 75 70 50 72 69 6e 74 4d | 65 6e 75 7d 0d 09 09 22 |upPrintM|enu}..."|
|00004230| 53 65 6e 64 2a 22 09 09 | 09 7b 73 65 74 20 64 65 |Send*"..|.{set de|
|00004240| 66 61 75 6c 74 50 72 69 | 6e 74 65 72 20 24 70 61 |faultPri|nter $pa|
|00004250| 74 68 43 6f 6d 6d 65 6e | 74 73 28 64 72 6f 70 70 |thCommen|ts(dropp|
|00004260| 73 50 61 74 68 29 3b 20 | 6c 61 70 70 65 6e 64 20 |sPath); |lappend |
|00004270| 6d 6f 64 69 66 69 65 64 | 56 61 72 73 20 64 65 66 |modified|Vars def|
|00004280| 61 75 6c 74 50 72 69 6e | 74 65 72 3b 20 73 65 74 |aultPrin|ter; set|
|00004290| 75 70 50 72 69 6e 74 4d | 65 6e 75 7d 0d 09 7d 0d |upPrintM|enu}..}.|
|000042a0| 7d 0d 0d 0d 70 72 6f 63 | 20 70 72 69 6e 74 46 69 |}...proc| printFi|
|000042b0| 6c 65 20 7b 66 6e 61 6d | 65 7d 20 7b 0d 09 67 6c |le {fnam|e} {..gl|
|000042c0| 6f 62 61 6c 20 64 65 66 | 61 75 6c 74 50 72 69 6e |obal def|aultPrin|
|000042d0| 74 65 72 0d 09 0d 09 73 | 77 69 74 63 68 20 2d 67 |ter....s|witch -g|
|000042e0| 6c 6f 62 20 24 64 65 66 | 61 75 6c 74 50 72 69 6e |lob $def|aultPrin|
|000042f0| 74 65 72 20 7b 0d 09 09 | 22 41 6c 70 68 61 22 09 |ter {...|"Alpha".|
|00004300| 09 09 7b 70 72 69 6e 74 | 7d 0d 09 09 22 4b 6f 64 |..{print|}..."Kod|
|00004310| 65 78 2a 22 09 09 7b 6f | 70 65 6e 41 6e 64 53 65 |ex*"..{o|penAndSe|
|00004320| 6e 64 46 69 6c 65 20 24 | 66 6e 61 6d 65 20 6b 6f |ndFile $|fname ko|
|00004330| 64 65 78 50 61 74 68 20 | 4b 6f 64 65 78 20 4b 6f |dexPath |Kodex Ko|
|00004340| 44 58 7d 0d 09 09 22 45 | 6e 73 63 72 2a 22 09 09 |DX}..."E|nscr*"..|
|00004350| 7b 6f 70 65 6e 41 6e 64 | 53 65 6e 64 46 69 6c 65 |{openAnd|SendFile|
|00004360| 20 24 66 6e 61 6d 65 20 | 65 6e 73 63 72 69 70 74 | $fname |enscript|
|00004370| 6f 72 50 61 74 68 20 45 | 6e 73 63 72 69 70 74 6f |orPath E|nscripto|
|00004380| 72 20 45 6e 73 33 7d 0d | 09 09 22 53 65 6e 64 2a |r Ens3}.|.."Send*|
|00004390| 22 09 09 09 7b 6f 70 65 | 6e 41 6e 64 53 65 6e 64 |"...{ope|nAndSend|
|000043a0| 46 69 6c 65 20 24 66 6e | 61 6d 65 20 64 72 6f 70 |File $fn|ame drop|
|000043b0| 70 73 50 61 74 68 20 7b | 44 72 6f 70 a5 50 53 7d |psPath {|Drop.PS}|
|000043c0| 20 7b 44 a5 50 53 7d 7d | 0d 09 7d 0d 7d 0d 0d 0d | {D.PS}}|..}.}...|
|000043d0| 70 72 6f 63 20 6f 70 65 | 6e 41 6e 64 53 65 6e 64 |proc ope|nAndSend|
|000043e0| 46 69 6c 65 20 7b 66 6e | 61 6d 65 20 70 61 74 68 |File {fn|ame path|
|000043f0| 20 6e 61 6d 65 20 73 69 | 67 7d 20 7b 0d 09 67 6c | name si|g} {..gl|
|00004400| 6f 62 61 6c 20 24 70 61 | 74 68 0d 0d 09 63 61 74 |obal $pa|th...cat|
|00004410| 63 68 20 7b 63 68 65 63 | 6b 52 75 6e 6e 69 6e 67 |ch {chec|kRunning|
|00004420| 20 24 6e 61 6d 65 20 24 | 73 69 67 20 24 70 61 74 | $name $|sig $pat|
|00004430| 68 7d 20 6e 61 6d 65 0d | 0d 09 69 66 20 7b 5b 77 |h} name.|..if {[w|
|00004440| 69 6e 44 69 72 74 79 5d | 7d 20 7b 0d 09 09 69 66 |inDirty]|} {...if|
|00004450| 20 7b 5b 61 73 6b 79 65 | 73 6e 6f 20 22 53 61 76 | {[askye|sno "Sav|
|00004460| 65 20 27 24 66 6e 61 6d | 65 27 3f 22 5d 20 3d 3d |e '$fnam|e'?"] ==|
|00004470| 20 22 79 65 73 22 7d 20 | 7b 0d 09 09 09 73 61 76 | "yes"} |{....sav|
|00004480| 65 0d 09 09 7d 0d 09 7d | 0d 09 6d 65 73 73 61 67 |e...}..}|..messag|
|00004490| 65 20 22 53 65 6e 64 69 | 6e 67 20 74 6f 20 27 24 |e "Sendi|ng to '$|
|000044a0| 6e 61 6d 65 27 2e 2e 2e | 22 0d 09 69 66 20 7b 5b |name'...|"..if {[|
|000044b0| 63 61 74 63 68 20 7b 73 | 65 6e 64 4f 70 65 6e 45 |catch {s|endOpenE|
|000044c0| 76 65 6e 74 20 6e 6f 52 | 65 70 6c 79 20 24 6e 61 |vent noR|eply $na|
|000044d0| 6d 65 20 24 66 6e 61 6d | 65 7d 5d 20 7d 20 7b 0d |me $fnam|e}] } {.|
|000044e0| 09 09 62 65 65 70 20 0d | 09 7d 20 65 6c 73 65 20 |..beep .|.} else |
|000044f0| 7b 0d 09 09 73 77 69 74 | 63 68 54 6f 20 24 6e 61 |{...swit|chTo $na|
|00004500| 6d 65 0d 09 7d 0d 09 6d | 65 73 73 61 67 65 20 22 |me..}..m|essage "|
|00004510| 22 0d 7d 0d 00 00 00 00 | 00 00 00 00 00 00 00 00 |".}.....|........|
|00004520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004580| 00 00 01 00 00 00 03 8c | 00 00 02 8c 00 00 00 42 |........|.......B|
|00004590| 20 7b 5b 6c 69 6e 64 65 | 78 20 5b 70 6f 73 54 6f | {[linde|x [posTo|
|000045a0| 52 6f 77 43 6f 6c 20 5b | 73 65 6c 45 6e 64 5d 5d |RowCol [|selEnd]]|
|000045b0| 08 6d 69 73 63 2e 74 63 | 6c 73 02 00 02 00 54 45 |.misc.tc|ls....TE|
|000045c0| 58 54 41 4c 46 41 01 00 | 00 68 00 00 00 00 00 01 |XTALFA..|.h......|
|000045d0| 02 00 54 45 58 54 41 4c | 46 41 01 00 00 68 00 00 |..TEXTAL|FA...h..|
|000045e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000045f0| 00 00 aa 27 fd b3 00 00 | 44 94 00 00 03 ce 65 74 |...'....|D.....et|
|00004600| 20 63 68 61 72 73 20 5b | 6d 61 78 50 6f 73 5d 0d | chars [|maxPos].|
|00004610| 09 09 73 65 74 20 6c 69 | 6e 65 73 20 5b 6c 69 6e |..set li|nes [lin|
|00004620| 64 65 78 20 5b 70 6f 73 | 54 6f 52 6f 77 43 6f 6c |dex [pos|ToRowCol|
|00004630| 20 24 63 68 61 72 73 5d | 20 30 5d 0d 09 09 73 65 | $chars]| 0]...se|
|00004640| 74 20 74 65 78 74 20 5b | 67 65 74 54 65 78 74 20 |t text [|getText |
|00004650| 30 20 5b 6d 61 78 50 6f | 73 5d 5d 0d 09 7d 0d 09 |0 [maxPo|s]]..}..|
|00004660| 69 66 20 7b 5b 72 65 67 | 73 75 62 20 2d 61 6c 6c |if {[reg|sub -all|
|00004670| 20 7b 5b 21 3d 3b 2e 2c | 5c 28 5c 29 3a 5c 7b 5c | {[!=;.,|\(\):\{\|
|00004680| 00 00 02 3c 00 1c 00 00 | 0a 72 00 00 0a 72 0b 63 |...<....|.r...r.c|
|00004690| 6f 6d 6d 65 6e 74 42 6f | 78 00 00 00 29 93 00 00 |ommentBo|x...)...|
|000046a0| 29 93 0b 63 6f 6d 6d 65 | 6e 74 50 61 72 61 00 00 |)..comme|ntPara..|
|000046b0| 2c 66 00 00 2c 66 0f 63 | 6f 6d 70 61 72 65 57 69 |,f..,f.c|ompareWi|
|000046c0| 6e 64 6f 77 73 00 00 00 | 2d 29 00 00 2d 29 15 69 |ndows...|-)..-).i|
|000046d0| 6e 73 65 72 74 47 6c 6f | 62 61 6c 53 65 74 74 69 |nsertGlo|balSetti|
|000046e0| 6e 67 73 00 00 00 04 b2 | 00 00 04 b2 0d 6d 61 74 |ngs.....|.....mat|
|000046f0| 63 68 69 6e 67 4c 69 6e | 65 73 00 00 27 ba 00 00 |chingLin|es..'...|
|00004700| 27 ba 09 6e 65 78 74 46 | 75 6e 63 00 00 00 27 de |'..nextF|unc...'.|
|00004710| 00 00 27 de 09 70 72 65 | 76 46 75 6e 63 00 00 00 |..'..pre|vFunc...|
|00004720| 35 d3 00 00 35 d3 05 72 | 67 6c 6f 62 00 00 28 02 |5...5..r|glob..(.|
|00004730| 00 00 28 02 0b 73 65 61 | 72 63 68 46 75 6e 63 00 |..(..sea|rchFunc.|
|00004740| 00 00 37 e9 00 00 37 e9 | 09 73 65 6c 65 63 74 41 |..7...7.|.selectA|
|00004750| 6c 6c 00 00 30 5a 00 00 | 30 5a 09 73 68 69 66 74 |ll..0Z..|0Z.shift|
|00004760| 4c 65 66 74 00 00 32 ec | 00 00 32 ec 0b 73 68 69 |Left..2.|..2..shi|
|00004770| 66 74 52 69 67 68 74 00 | 00 00 2a 90 00 00 2a 90 |ftRight.|..*...*.|
|00004780| 09 73 6f 72 74 4c 69 6e | 65 73 00 00 2e b1 00 00 |.sortLin|es......|
|00004790| 2e b1 07 73 75 62 56 61 | 72 73 00 00 37 25 00 00 |...subVa|rs..7%..|
|000047a0| 37 25 09 73 77 69 74 63 | 68 41 70 70 00 00 27 b9 |7%.switc|hApp..'.|
|000047b0| 00 00 27 b9 0f 74 72 61 | 6e 73 70 6f 73 65 43 68 |..'..tra|nsposeCh|
|000047c0| 61 72 73 00 00 00 27 b9 | 00 00 27 b9 0f 74 72 61 |ars...'.|..'..tra|
|000047d0| 6e 73 70 6f 73 65 57 6f | 72 64 73 00 00 00 19 3e |nsposeWo|rds....>|
|000047e0| 00 00 19 3e 0d 75 6e 63 | 6f 6d 6d 65 6e 74 42 6f |...>.unc|ommentBo|
|000047f0| 78 00 00 00 00 c5 00 00 | 00 c5 09 77 6f 72 64 43 |x.......|...wordC|
|00004800| 6f 75 6e 74 00 00 30 d5 | 00 00 30 d5 0b 64 6f 53 |ount..0.|..0..doS|
|00004810| 68 69 66 74 4c 65 66 74 | 00 00 33 6a 00 00 33 6a |hiftLeft|..3j..3j|
|00004820| 0d 64 6f 53 68 69 66 74 | 52 69 67 68 74 00 00 00 |.doShift|Right...|
|00004830| 43 50 00 00 43 50 0f 6f | 70 65 6e 41 6e 64 53 65 |CP..CP.o|penAndSe|
|00004840| 6e 64 46 69 6c 65 00 00 | 3d 3b 00 00 3d 3b 09 70 |ndFile..|=;..=;.p|
|00004850| 72 69 6e 74 50 72 6f 63 | 00 00 35 d3 00 00 35 d3 |rintProc|..5...5.|
|00004860| 09 72 67 6c 6f 62 54 65 | 78 74 00 00 30 96 00 00 |.rglobTe|xt..0...|
|00004870| 30 96 0f 73 68 69 66 74 | 4c 65 66 74 53 70 61 63 |0..shift|LeftSpac|
|00004880| 65 00 00 00 33 2a 00 00 | 33 2a 0f 73 68 69 66 74 |e...3*..|3*.shift|
|00004890| 52 69 67 68 74 53 70 61 | 63 65 00 00 38 14 00 00 |RightSpa|ce..8...|
|000048a0| 38 14 07 74 77 69 64 64 | 6c 65 00 00 3a 2b 00 00 |8..twidd|le..:+..|
|000048b0| 3a 2b 0d 74 77 69 64 64 | 6c 65 57 6f 72 64 73 00 |:+.twidd|leWords.|
|000048c0| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 02 9a a0 |...H..Mo|naco....|
|000048d0| 00 00 14 f0 00 f8 fd 8c | 01 17 a2 e0 24 00 04 44 |........|....$..D|
|000048e0| 01 60 ad 00 ff fc 00 04 | 00 04 00 28 00 02 02 5c |.`......|...(...\|
|000048f0| 03 38 00 28 00 02 02 5c | 03 38 ac 2e 26 70 00 00 |.8.(...\|.8..&p..|
|00004900| 11 42 00 00 11 42 00 00 | 11 42 01 00 00 00 01 00 |.B...B..|.B......|
|00004910| 00 00 03 8c 00 00 02 8c | 00 00 00 42 00 f7 73 18 |........|...B..s.|
|00004920| 14 f0 00 00 00 1c 00 3e | 00 00 4d 50 53 52 00 01 |.......>|..MPSR..|
|00004930| 00 0a 03 ef 00 00 00 00 | 00 00 00 00 00 00 03 ed |........|........|
|00004940| ff ff 00 00 02 40 01 02 | 9c cc 03 74 61 62 00 00 |.....@..|...tab..|
|00004950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+