/ Internet File Formats / InternetFileFormatsCD.bin / text / latex / mac / alpha.6.0.sit / Tcl / UserCode / canon.tcl

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 63 61 6e 6f 6e 2e | 74 63 6c 00 00 00 00 00 |..canon.|tcl.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 00 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 0f 1f 00 | 00 01 7e a9 a2 a2 bc a9 |........|..~.....|
|00000060| a2 a2 bc 00 00 04 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 9b 61 00 00 |........|.....a..|
|00000080| 23 20 46 49 4c 45 3a 20 | 63 61 6e 6f 6e 2e 74 63 |# FILE: |canon.tc|
|00000090| 6c 0d 23 0d 23 20 4c 41 | 53 54 20 55 50 44 41 54 |l.#.# LA|ST UPDAT|
|000000a0| 45 44 3a 20 31 32 2f 30 | 37 2f 39 32 20 36 3a 33 |ED: 12/0|7/92 6:3|
|000000b0| 37 3a 33 34 20 41 4d 0d | 23 0d 23 20 54 68 69 73 |7:34 AM.|#.# This|
|000000c0| 20 66 69 6c 65 20 63 6f | 6e 74 61 69 6e 73 20 74 | file co|ntains t|
|000000d0| 68 65 20 66 6f 6c 6c 6f | 77 69 6e 67 20 54 43 4c |he follo|wing TCL|
|000000e0| 20 70 72 6f 63 65 64 75 | 72 65 28 73 29 3a 0d 23 | procedu|re(s):.#|
|000000f0| 0d 23 20 09 63 61 6e 6f | 6e 20 20 20 20 2d 2d 20 |.# .cano|n    -- |
|00000100| 66 6f 72 63 65 73 20 69 | 64 65 6e 74 69 66 69 65 |forces i|dentifie|
|00000110| 72 73 20 74 6f 20 63 61 | 6e 6f 6e 69 63 61 6c 20 |rs to ca|nonical |
|00000120| 66 6f 72 6d 0d 0d 23 20 | 53 59 4e 4f 50 53 49 53 |form..# |SYNOPSIS|
|00000130| 3a 0d 23 20 0d 23 20 20 | 20 20 43 61 6e 6f 6e 69 |:.# .#  |  Canoni|
|00000140| 7a 65 20 69 64 65 6e 74 | 69 66 69 65 72 73 0d 23 |ze ident|ifiers.#|
|00000150| 20 0d 23 20 44 45 53 43 | 52 49 50 54 49 4f 4e 3a | .# DESC|RIPTION:|
|00000160| 0d 23 20 0d 23 20 20 20 | 20 53 65 61 72 63 68 65 |.# .#   | Searche|
|00000170| 73 20 26 20 72 65 70 6c | 61 63 65 73 20 69 64 65 |s & repl|aces ide|
|00000180| 6e 74 69 66 69 65 72 73 | 20 77 69 74 68 20 6e 65 |ntifiers| with ne|
|00000190| 77 2f 63 6f 72 72 65 63 | 74 65 64 20 73 70 65 6c |w/correc|ted spel|
|000001a0| 6c 69 6e 67 2e 0d 23 20 | 20 20 20 4d 61 79 20 62 |ling..# |   May b|
|000001b0| 65 20 75 73 65 64 20 74 | 6f 20 66 6f 72 63 65 20 |e used t|o force |
|000001c0| 6c 61 6e 67 75 61 67 65 | 20 6b 65 79 77 6f 72 64 |language| keyword|
|000001d0| 73 20 74 6f 20 61 20 70 | 61 72 74 69 63 75 6c 61 |s to a p|articula|
|000001e0| 72 20 61 6c 70 68 61 62 | 65 74 69 63 0d 23 20 20 |r alphab|etic.#  |
|000001f0| 20 20 63 61 73 65 2e 20 | 20 53 69 6d 70 6c 69 66 |  case. | Simplif|
|00000200| 69 65 73 20 65 6e 73 75 | 72 69 6e 67 20 63 61 73 |ies ensu|ring cas|
|00000210| 65 20 63 6f 6e 73 69 73 | 74 65 6e 63 79 2e 0d 23 |e consis|tency..#|
|00000220| 20 20 20 20 0d 23 20 20 | 20 20 41 64 76 61 6e 74 |    .#  |  Advant|
|00000230| 61 67 65 73 20 6f 66 20 | 75 73 69 6e 67 20 74 68 |ages of |using th|
|00000240| 69 73 20 70 72 6f 63 65 | 64 75 72 65 20 6f 76 65 |is proce|dure ove|
|00000250| 72 20 73 69 6d 70 6c 65 | 20 73 65 61 72 63 68 2f |r simple| search/|
|00000260| 72 65 70 6c 61 63 65 0d | 23 20 20 20 20 61 72 65 |replace.|#    are|
|00000270| 3a 0d 23 20 20 20 20 0d | 23 20 20 20 20 41 2e 20 |:.#    .|#    A. |
|00000280| 44 65 66 61 75 6c 74 73 | 20 74 6f 20 77 6f 72 64 |Defaults| to word|
|00000290| 20 62 6f 75 6e 64 61 72 | 79 20 72 65 70 6c 61 63 | boundar|y replac|
|000002a0| 65 6d 65 6e 74 73 0d 23 | 20 20 20 20 42 2e 20 42 |ements.#|    B. B|
|000002b0| 61 74 63 68 20 6f 70 65 | 72 61 74 69 6f 6e 0d 23 |atch ope|ration.#|
|000002c0| 20 20 20 20 43 2e 20 46 | 6f 72 63 65 73 20 61 6c |    C. F|orces al|
|000002d0| 70 68 61 62 65 74 69 63 | 20 63 61 73 65 0d 23 20 |phabetic| case.# |
|000002e0| 0d 23 20 49 4e 53 54 52 | 55 43 54 49 4f 4e 53 3a |.# INSTR|UCTIONS:|
|000002f0| 0d 23 20 0d 23 20 20 20 | 20 53 69 6d 70 6c 79 3a |.# .#   | Simply:|
|00000300| 0d 23 20 20 20 20 31 2e | 20 43 72 65 61 74 65 20 |.#    1.| Create |
|00000310| 73 65 76 65 72 61 6c 20 | 6c 69 6e 65 73 20 77 69 |several |lines wi|
|00000320| 74 68 20 74 68 65 20 6f | 6c 64 20 61 6e 64 20 6e |th the o|ld and n|
|00000330| 65 77 20 77 6f 72 64 73 | 2e 20 20 4c 69 73 74 20 |ew words|.  List |
|00000340| 6d 61 79 0d 23 20 20 20 | 20 20 20 20 73 74 61 72 |may.#   |    star|
|00000350| 74 20 77 69 74 68 20 23 | 20 74 72 65 61 74 65 64 |t with #| treated|
|00000360| 20 61 73 20 61 20 63 6f | 6d 6d 65 6e 74 2e 20 20 | as a co|mment.  |
|00000370| 45 78 61 6d 70 6c 65 3a | 0d 23 20 0d 23 20 20 20 |Example:|.# .#   |
|00000380| 20 20 20 20 20 6f 6c 64 | 4e 61 6d 65 20 6e 65 77 |     old|Name new|
|00000390| 4e 61 6d 65 0d 23 20 0d | 23 20 20 20 20 32 2e 20 |Name.# .|#    2. |
|000003a0| 53 65 6c 65 63 74 20 6c | 69 6e 65 73 20 63 6f 6e |Select l|ines con|
|000003b0| 74 61 69 6e 69 6e 67 20 | 6f 6c 64 20 61 6e 64 20 |taining |old and |
|000003c0| 6e 65 77 20 77 6f 72 64 | 73 2e 0d 23 20 20 20 20 |new word|s..#    |
|000003d0| 33 2e 20 49 6e 76 6f 6b | 69 6e 67 20 63 61 6e 6f |3. Invok|ing cano|
|000003e0| 6e 20 77 69 6c 6c 20 63 | 68 61 6e 67 65 20 45 56 |n will c|hange EV|
|000003f0| 45 52 59 20 6f 63 63 75 | 72 65 6e 63 65 2e 20 20 |ERY occu|rence.  |
|00000400| 45 78 61 6d 70 6c 65 3a | 0d 23 20 0d 23 20 20 20 |Example:|.# .#   |
|00000410| 20 20 20 20 20 6e 65 77 | 4e 61 6d 65 20 6e 65 77 |     new|Name new|
|00000420| 4e 61 6d 65 0d 23 20 0d | 23 20 20 20 20 34 2e 20 |Name.# .|#    4. |
|00000430| 49 66 20 79 6f 75 20 77 | 61 6e 74 20 74 68 65 20 |If you w|ant the |
|00000440| 6f 72 69 67 69 6e 61 6c | 20 74 65 78 74 20 62 61 |original| text ba|
|00000450| 63 6b 2c 20 69 74 20 69 | 73 20 73 61 76 65 64 20 |ck, it i|s saved |
|00000460| 69 6e 20 74 68 65 20 6e | 61 6d 65 64 20 63 6c 69 |in the n|amed cli|
|00000470| 70 62 6f 61 72 64 0d 23 | 20 20 20 20 20 20 20 63 |pboard.#|       c|
|00000480| 61 6c 6c 65 64 20 22 63 | 61 6e 6f 6e 2d 74 65 78 |alled "c|anon-tex|
|00000490| 74 22 0d 23 20 0d 23 20 | 20 20 20 4f 70 74 69 6f |t".# .# |   Optio|
|000004a0| 6e 73 3a 0d 23 20 0d 23 | 20 20 20 20 09 2d 61 20 |ns:.# .#|    .-a |
|000004b0| 3d 20 61 6e 79 20 6f 63 | 63 75 72 65 6e 63 65 20 |= any oc|curence |
|000004c0| 6f 66 20 6f 6c 64 4e 61 | 6d 65 20 28 6e 6f 74 20 |of oldNa|me (not |
|000004d0| 72 65 73 74 72 69 63 74 | 65 64 20 74 6f 20 77 6f |restrict|ed to wo|
|000004e0| 72 64 20 62 6f 75 6e 64 | 61 72 69 65 73 29 0d 23 |rd bound|aries).#|
|000004f0| 20 20 20 20 09 2d 63 20 | 3d 20 63 61 73 65 20 69 |    .-c |= case i|
|00000500| 6e 73 65 6e 73 69 74 69 | 76 65 0d 23 20 20 20 20 |nsensiti|ve.#    |
|00000510| 09 2d 72 20 3d 20 75 73 | 65 20 72 65 67 75 6c 61 |.-r = us|e regula|
|00000520| 72 20 65 78 70 72 65 73 | 73 69 6f 6e 73 0d 23 20 |r expres|sions.# |
|00000530| 0d 23 20 20 20 20 49 66 | 20 61 6e 79 20 6c 69 6e |.#    If| any lin|
|00000540| 65 20 69 6e 20 74 68 65 | 20 6c 69 73 74 20 68 61 |e in the| list ha|
|00000550| 73 20 61 20 73 69 6e 67 | 6c 65 20 77 6f 72 64 20 |s a sing|le word |
|00000560| 6f 6e 6c 79 2c 20 74 68 | 65 6e 20 74 68 65 20 63 |only, th|en the c|
|00000570| 61 6e 6f 6e 69 7a 61 74 | 69 6f 6e 0d 23 20 20 20 |anonizat|ion.#   |
|00000580| 20 66 6f 72 63 65 73 20 | 61 6e 79 20 63 61 73 65 | forces |any case|
|00000590| 20 69 6e 73 65 6e 73 69 | 74 69 76 65 20 76 65 72 | insensi|tive ver|
|000005a0| 73 69 6f 6e 20 6f 66 20 | 74 68 61 74 20 77 6f 72 |sion of |that wor|
|000005b0| 64 20 74 6f 20 74 68 65 | 20 73 70 65 63 69 66 69 |d to the| specifi|
|000005c0| 63 20 63 61 73 65 2e 0d | 0d 23 20 43 4f 50 59 52 |c case..|.# COPYR|
|000005d0| 49 47 48 54 3a 0d 23 0d | 23 09 43 6f 70 79 72 69 |IGHT:.#.|#.Copyri|
|000005e0| 67 68 74 20 a9 20 31 39 | 39 32 20 62 79 20 44 61 |ght . 19|92 by Da|
|000005f0| 76 69 64 20 43 2e 20 42 | 6c 61 63 6b 0d 23 09 41 |vid C. B|lack.#.A|
|00000600| 6c 6c 20 72 69 67 68 74 | 73 20 72 65 73 65 72 76 |ll right|s reserv|
|00000610| 65 64 2e 0d 23 0d 23 09 | 52 65 64 69 73 74 72 69 |ed..#.#.|Redistri|
|00000620| 62 75 74 69 6f 6e 20 61 | 6e 64 20 75 73 65 20 69 |bution a|nd use i|
|00000630| 6e 20 73 6f 75 72 63 65 | 20 61 6e 64 20 62 69 6e |n source| and bin|
|00000640| 61 72 79 20 66 6f 72 6d | 73 20 61 72 65 20 70 65 |ary form|s are pe|
|00000650| 72 6d 69 74 74 65 64 0d | 23 09 70 72 6f 76 69 64 |rmitted.|#.provid|
|00000660| 65 64 20 74 68 61 74 20 | 74 68 65 20 61 62 6f 76 |ed that |the abov|
|00000670| 65 20 63 6f 70 79 72 69 | 67 68 74 20 6e 6f 74 69 |e copyri|ght noti|
|00000680| 63 65 20 61 6e 64 20 74 | 68 69 73 20 70 61 72 61 |ce and t|his para|
|00000690| 67 72 61 70 68 20 61 72 | 65 0d 23 09 64 75 70 6c |graph ar|e.#.dupl|
|000006a0| 69 63 61 74 65 64 20 69 | 6e 20 61 6c 6c 20 73 75 |icated i|n all su|
|000006b0| 63 68 20 66 6f 72 6d 73 | 20 61 6e 64 20 74 68 61 |ch forms| and tha|
|000006c0| 74 20 61 6e 79 20 64 6f | 63 75 6d 65 6e 74 61 74 |t any do|cumentat|
|000006d0| 69 6f 6e 2c 0d 23 09 61 | 64 76 65 72 74 69 73 69 |ion,.#.a|dvertisi|
|000006e0| 6e 67 20 6d 61 74 65 72 | 69 61 6c 73 2c 20 61 6e |ng mater|ials, an|
|000006f0| 64 20 6f 74 68 65 72 20 | 6d 61 74 65 72 69 61 6c |d other |material|
|00000700| 73 20 72 65 6c 61 74 65 | 64 20 74 6f 20 73 75 63 |s relate|d to suc|
|00000710| 68 0d 23 09 64 69 73 74 | 72 69 62 75 74 69 6f 6e |h.#.dist|ribution|
|00000720| 20 61 6e 64 20 75 73 65 | 20 61 63 6b 6e 6f 77 6c | and use| acknowl|
|00000730| 65 64 67 65 20 74 68 61 | 74 20 74 68 65 20 73 6f |edge tha|t the so|
|00000740| 66 74 77 61 72 65 20 77 | 61 73 20 64 65 76 65 6c |ftware w|as devel|
|00000750| 6f 70 65 64 0d 23 09 62 | 79 20 44 61 76 69 64 20 |oped.#.b|y David |
|00000760| 43 2e 20 42 6c 61 63 6b | 2e 0d 23 0d 23 09 54 48 |C. Black|..#.#.TH|
|00000770| 49 53 20 53 4f 46 54 57 | 41 52 45 20 49 53 20 50 |IS SOFTW|ARE IS P|
|00000780| 52 4f 56 49 44 45 44 20 | 22 41 53 20 49 53 22 20 |ROVIDED |"AS IS" |
|00000790| 41 4e 44 20 57 49 54 48 | 4f 55 54 20 41 4e 59 20 |AND WITH|OUT ANY |
|000007a0| 45 58 50 52 45 53 53 20 | 4f 52 0d 23 09 49 4d 50 |EXPRESS |OR.#.IMP|
|000007b0| 4c 49 45 44 20 57 41 52 | 52 41 4e 54 49 45 53 2c |LIED WAR|RANTIES,|
|000007c0| 20 49 4e 43 4c 55 44 49 | 4e 47 2c 20 57 49 54 48 | INCLUDI|NG, WITH|
|000007d0| 4f 55 54 20 4c 49 4d 49 | 54 41 54 49 4f 4e 2c 20 |OUT LIMI|TATION, |
|000007e0| 54 48 45 20 49 4d 50 4c | 49 45 44 0d 23 09 57 41 |THE IMPL|IED.#.WA|
|000007f0| 52 52 41 4e 54 49 45 53 | 20 4f 46 20 4d 45 52 43 |RRANTIES| OF MERC|
|00000800| 48 41 4e 54 41 42 49 4c | 49 54 59 20 41 4e 44 20 |HANTABIL|ITY AND |
|00000810| 46 49 54 4e 45 53 53 20 | 46 4f 52 20 41 20 50 41 |FITNESS |FOR A PA|
|00000820| 52 54 49 43 55 4c 41 52 | 20 50 55 52 50 4f 53 45 |RTICULAR| PURPOSE|
|00000830| 2e 0d 23 0d 23 23 23 23 | 23 23 23 23 23 23 23 23 |..#.####|########|
|00000840| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000850| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000860| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000870| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000880| 23 23 23 23 0d 0d 23 20 | 41 55 54 48 4f 52 0d 23 |####..# |AUTHOR.#|
|00000890| 0d 23 09 44 61 76 69 64 | 20 43 2e 20 42 6c 61 63 |.#.David| C. Blac|
|000008a0| 6b 0d 23 09 49 6e 74 65 | 72 6e 65 74 3a 20 62 6c |k.#.Inte|rnet: bl|
|000008b0| 61 63 6b 40 6d 70 64 2e | 74 61 6e 64 65 6d 2e 63 |ack@mpd.|tandem.c|
|000008c0| 6f 6d 20 28 70 72 65 66 | 65 72 72 65 64 29 0d 23 |om (pref|erred).#|
|000008d0| 09 47 45 6e 69 65 3a 20 | 20 20 20 44 2e 43 2e 42 |.GEnie: |   D.C.B|
|000008e0| 6c 61 63 6b 0d 23 09 55 | 53 6e 61 69 6c 3a 20 20 |lack.#.U|Snail:  |
|000008f0| 20 36 32 31 37 20 4a 6f | 68 6e 20 43 68 69 73 75 | 6217 Jo|hn Chisu|
|00000900| 6d 20 4c 61 6e 65 2c 20 | 41 75 73 74 69 6e 2c 20 |m Lane, |Austin, |
|00000910| 54 58 20 37 38 37 34 39 | 0d 23 0d 23 23 23 23 23 |TX 78749|.#.#####|
|00000920| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000930| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000940| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000950| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000960| 23 23 23 23 23 23 23 23 | 23 23 23 0d 0d 23 20 48 |########|###..# H|
|00000970| 49 53 54 4f 52 59 0d 23 | 20 20 20 20 20 20 20 20 |ISTORY.#|        |
|00000980| 20 20 20 20 20 20 20 20 | 20 20 0d 23 20 6d 6f 64 |        |  .# mod|
|00000990| 69 66 69 65 64 20 77 68 | 6f 20 72 65 76 20 72 65 |ified wh|o rev re|
|000009a0| 61 73 6f 6e 0d 23 20 2d | 2d 2d 2d 2d 2d 2d 2d 20 |ason.# -|------- |
|000009b0| 2d 2d 2d 20 2d 2d 2d 20 | 2d 2d 2d 2d 2d 2d 0d 23 |--- --- |------.#|
|000009c0| 20 31 32 2f 30 33 2f 39 | 32 20 44 43 42 20 31 2e | 12/03/9|2 DCB 1.|
|000009d0| 30 20 4f 72 69 67 69 6e | 61 6c 0d 23 23 23 23 23 |0 Origin|al.#####|
|000009e0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000009f0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000a00| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000a10| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000a20| 23 23 23 23 23 23 23 23 | 23 23 23 0d 0d 70 72 6f |########|###..pro|
|00000a30| 63 20 63 61 6e 6f 6e 20 | 7b 61 72 67 73 7d 20 7b |c canon |{args} {|
|00000a40| 0d 09 67 6c 6f 62 61 6c | 20 73 65 61 72 63 68 53 |..global| searchS|
|00000a50| 74 72 0d 09 67 6c 6f 62 | 61 6c 20 72 65 70 6c 61 |tr..glob|al repla|
|00000a60| 63 65 53 74 72 0d 09 67 | 6c 6f 62 61 6c 20 69 67 |ceStr..g|lobal ig|
|00000a70| 6e 6f 72 65 43 61 73 65 | 0d 09 67 6c 6f 62 61 6c |noreCase|..global|
|00000a80| 20 72 65 67 45 78 70 72 | 0d 09 67 6c 6f 62 61 6c | regExpr|..global|
|00000a90| 20 66 6f 72 77 61 72 64 | 0d 09 67 6c 6f 62 61 6c | forward|..global|
|00000aa0| 20 69 67 6e 6f 72 65 43 | 61 73 65 0d 09 67 6c 6f | ignoreC|ase..glo|
|00000ab0| 62 61 6c 20 6d 61 74 63 | 68 57 6f 72 64 73 0d 09 |bal matc|hWords..|
|00000ac0| 73 68 61 64 6f 77 56 61 | 72 20 72 65 67 45 78 70 |shadowVa|r regExp|
|00000ad0| 72 0d 09 73 68 61 64 6f | 77 56 61 72 20 66 6f 72 |r..shado|wVar for|
|00000ae0| 77 61 72 64 0d 09 73 68 | 61 64 6f 77 56 61 72 20 |ward..sh|adowVar |
|00000af0| 69 67 6e 6f 72 65 43 61 | 73 65 0d 09 73 68 61 64 |ignoreCa|se..shad|
|00000b00| 6f 77 56 61 72 20 6d 61 | 74 63 68 57 6f 72 64 73 |owVar ma|tchWords|
|00000b10| 0d 09 73 61 76 65 56 61 | 72 73 0d 09 69 66 20 7b |..saveVa|rs..if {|
|00000b20| 5b 67 65 74 50 6f 73 5d | 20 3d 3d 20 5b 73 65 6c |[getPos]| == [sel|
|00000b30| 45 6e 64 5d 7d 20 7b 0d | 09 09 61 6c 65 72 74 6e |End]} {.|..alertn|
|00000b40| 6f 74 65 20 22 4e 6f 74 | 68 69 6e 67 20 73 65 6c |ote "Not|hing sel|
|00000b50| 65 63 74 65 64 22 0d 09 | 09 72 65 74 75 72 6e 0d |ected"..|.return.|
|00000b60| 09 7d 0d 09 77 61 74 63 | 68 43 75 72 73 6f 72 0d |.}..watc|hCursor.|
|00000b70| 09 73 65 74 20 72 65 67 | 45 78 70 72 20 30 0d 09 |.set reg|Expr 0..|
|00000b80| 73 65 74 20 66 6f 72 77 | 61 72 64 20 31 0d 09 73 |set forw|ard 1..s|
|00000b90| 65 74 20 69 67 6e 6f 72 | 65 43 61 73 65 20 30 0d |et ignor|eCase 0.|
|00000ba0| 09 73 65 74 20 6d 61 74 | 63 68 57 6f 72 64 73 20 |.set mat|chWords |
|00000bb0| 31 0d 09 66 6f 72 65 61 | 63 68 20 61 72 67 20 24 |1..forea|ch arg $|
|00000bc0| 61 72 67 73 20 7b 0d 09 | 09 63 61 73 65 20 24 61 |args {..|.case $a|
|00000bd0| 72 67 20 7b 0d 09 09 09 | 7b 2d 61 7d 20 7b 0d 09 |rg {....|{-a} {..|
|00000be0| 09 09 09 73 65 74 20 6d | 61 74 63 68 57 6f 72 64 |...set m|atchWord|
|00000bf0| 73 20 30 0d 09 09 09 7d | 0d 09 09 09 7b 2d 63 7d |s 0....}|....{-c}|
|00000c00| 20 7b 0d 09 09 09 09 73 | 65 74 20 69 67 6e 6f 72 | {.....s|et ignor|
|00000c10| 65 43 61 73 65 20 31 0d | 09 09 09 7d 0d 09 09 09 |eCase 1.|...}....|
|00000c20| 7b 2d 72 7d 20 7b 0d 09 | 09 09 09 73 65 74 20 72 |{-r} {..|...set r|
|00000c30| 65 67 45 78 70 72 20 31 | 0d 09 09 09 7d 0d 09 09 |egExpr 1|....}...|
|00000c40| 7d 0d 09 7d 0d 0d 09 23 | 20 47 65 74 20 74 68 65 |}..}...#| Get the|
|00000c50| 20 63 61 6e 6f 6e 69 63 | 61 6c 20 74 65 78 74 20 | canonic|al text |
|00000c60| 6c 69 73 74 0d 09 62 65 | 67 69 6e 6e 69 6e 67 4c |list..be|ginningL|
|00000c70| 69 6e 65 53 65 6c 65 63 | 74 0d 09 65 6e 64 4c 69 |ineSelec|t..endLi|
|00000c80| 6e 65 53 65 6c 65 63 74 | 0d 09 73 65 74 20 74 65 |neSelect|..set te|
|00000c90| 78 74 20 5b 67 65 74 53 | 65 6c 65 63 74 5d 0d 09 |xt [getS|elect]..|
|00000ca0| 63 6c 65 61 72 0d 09 0d | 09 23 20 53 61 76 65 20 |clear...|.# Save |
|00000cb0| 63 6f 70 79 0d 09 67 6c | 6f 62 61 6c 20 63 6c 69 |copy..gl|obal cli|
|00000cc0| 70 42 6f 61 72 64 73 0d | 09 65 6e 61 62 6c 65 4d |pBoards.|.enableM|
|00000cd0| 65 6e 75 49 74 65 6d 20 | 4d 69 73 63 20 22 70 61 |enuItem |Misc "pa|
|00000ce0| 73 74 65 4e 61 6d 65 64 | 43 6c 69 70 62 6f 61 72 |steNamed|Clipboar|
|00000cf0| 64 22 20 6f 6e 0d 09 73 | 65 74 20 63 6c 69 70 42 |d" on..s|et clipB|
|00000d00| 6f 61 72 64 73 28 63 61 | 6e 6f 6e 2d 74 65 78 74 |oards(ca|non-text|
|00000d10| 29 20 24 74 65 78 74 0d | 0d 09 73 65 74 20 6c 69 |) $text.|..set li|
|00000d20| 6e 65 73 20 5b 73 70 6c | 69 74 20 24 74 65 78 74 |nes [spl|it $text|
|00000d30| 20 22 5c 72 22 5d 0d 0d | 09 23 20 53 70 6c 69 74 | "\r"]..|.# Split|
|00000d40| 20 74 68 65 20 74 65 78 | 74 20 6c 69 73 74 20 69 | the tex|t list i|
|00000d50| 6e 74 6f 20 61 20 70 72 | 6f 70 65 72 20 54 43 4c |nto a pr|oper TCL|
|00000d60| 20 6c 69 73 74 0d 09 66 | 6f 72 65 61 63 68 20 6c | list..f|oreach l|
|00000d70| 69 6e 65 20 24 6c 69 6e | 65 73 20 7b 0d 09 09 72 |ine $lin|es {...r|
|00000d80| 65 67 73 75 62 20 22 5e | 23 22 20 24 6c 69 6e 65 |egsub "^|#" $line|
|00000d90| 20 22 22 20 6c 69 6e 65 | 0d 09 09 73 65 74 20 6c | "" line|...set l|
|00000da0| 69 6e 65 20 5b 73 74 72 | 69 6e 67 20 74 72 69 6d |ine [str|ing trim|
|00000db0| 20 24 6c 69 6e 65 5d 0d | 09 09 72 65 67 73 75 62 | $line].|..regsub|
|00000dc0| 20 22 5c 5b 20 5c 74 5c | 5d 2b 22 20 24 6c 69 6e | "\[ \t\|]+" $lin|
|00000dd0| 65 20 22 20 22 20 6c 69 | 6e 65 0d 09 09 73 65 74 |e " " li|ne...set|
|00000de0| 20 62 75 6c 6c 65 74 20 | 5b 73 70 6c 69 74 20 24 | bullet |[split $|
|00000df0| 6c 69 6e 65 5d 0d 09 09 | 63 61 73 65 20 5b 6c 6c |line]...|case [ll|
|00000e00| 65 6e 67 74 68 20 24 62 | 75 6c 6c 65 74 5d 20 7b |ength $b|ullet] {|
|00000e10| 0d 09 09 7b 32 7d 20 7b | 0d 09 09 09 6c 61 70 70 |...{2} {|....lapp|
|00000e20| 65 6e 64 20 62 75 6c 6c | 65 74 20 24 69 67 6e 6f |end bull|et $igno|
|00000e30| 72 65 43 61 73 65 0d 09 | 09 09 6c 61 70 70 65 6e |reCase..|..lappen|
|00000e40| 64 20 61 6d 6d 6f 20 24 | 62 75 6c 6c 65 74 0d 09 |d ammo $|bullet..|
|00000e50| 09 7d 0d 09 09 7b 31 7d | 20 7b 0d 09 09 09 6c 61 |.}...{1}| {....la|
|00000e60| 70 70 65 6e 64 20 61 6d | 6d 6f 20 5b 6c 69 73 74 |ppend am|mo [list|
|00000e70| 20 24 62 75 6c 6c 65 74 | 20 24 62 75 6c 6c 65 74 | $bullet| $bullet|
|00000e80| 20 31 5d 0d 09 09 7d 0d | 09 09 7d 0d 09 7d 0d 09 | 1]...}.|..}..}..|
|00000e90| 0d 09 23 20 44 6f 20 74 | 68 65 20 77 6f 72 6b 0d |..# Do t|he work.|
|00000ea0| 09 66 6f 72 65 61 63 68 | 20 70 61 69 72 20 24 61 |.foreach| pair $a|
|00000eb0| 6d 6d 6f 20 7b 0d 09 09 | 73 65 74 20 73 65 61 72 |mmo {...|set sear|
|00000ec0| 63 68 53 74 72 20 5b 6c | 69 6e 64 65 78 20 24 70 |chStr [l|index $p|
|00000ed0| 61 69 72 20 30 5d 0d 09 | 09 73 65 74 20 72 65 70 |air 0]..|.set rep|
|00000ee0| 6c 61 63 65 53 74 72 20 | 5b 6c 69 6e 64 65 78 20 |laceStr |[lindex |
|00000ef0| 24 70 61 69 72 20 31 5d | 0d 09 09 73 65 74 20 69 |$pair 1]|...set i|
|00000f00| 67 6e 6f 72 65 43 61 73 | 65 20 24 69 67 6e 6f 72 |gnoreCas|e $ignor|
|00000f10| 65 43 61 73 65 0d 09 09 | 67 6f 74 6f 20 30 0d 09 |eCase...|goto 0..|
|00000f20| 09 73 65 61 72 63 68 52 | 61 6c 6c 0d 09 7d 0d 09 |.searchR|all..}..|
|00000f30| 72 65 73 74 6f 72 65 56 | 61 72 73 0d 7d 0d 23 65 |restoreV|ars.}.#e|
|00000f40| 6e 64 70 72 6f 63 20 63 | 61 6e 6f 6e 0d 0d 23 23 |ndproc c|anon..##|
|00000f50| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000f60| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000f70| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000f80| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000f90| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 0d 00 |########|######..|
|00000fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001000| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00001010| 00 00 15 4c 00 00 02 00 | 05 00 00 00 15 50 00 00 |...L....|.....P..|
|00001020| 01 7b 05 00 00 00 15 52 | 00 00 02 03 05 00 00 00 |.{.....R|........|
|00001030| 09 63 61 6e 6f 6e 2e 74 | 63 6c 02 00 00 00 50 61 |.canon.t|cl....Pa|
|00001040| 72 74 53 49 54 21 00 00 | 00 00 00 00 00 00 00 00 |rtSIT!..|........|
|00001050| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00001060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001070| 00 00 ab 97 aa ec 00 00 | 00 00 00 00 01 7e 00 00 |........|.....~..|
|00001080| 15 7a 00 00 00 24 05 00 | 00 00 15 84 00 00 00 88 |.z...$..|........|
|00001090| 05 00 00 00 15 8a 00 00 | 00 66 05 00 00 00 15 94 |........|.f......|
|000010a0| 00 00 00 8d 05 00 00 00 | 15 9a 00 00 00 a7 05 00 |........|........|
|000010b0| 00 00 15 a4 00 00 00 07 | 05 00 00 00 15 cb 00 00 |........|........|
|000010c0| 00 89 05 00 00 00 15 f9 | 00 00 00 40 05 00 00 00 |........|...@....|
|000010d0| 16 2b 00 00 00 50 05 00 | 00 00 16 3d 00 00 00 80 |.+...P..|...=....|
|000010e0| 05 00 00 00 16 be 00 00 | 01 1f 05 00 00 00 16 c2 |........|........|
|000010f0| 00 00 00 61 05 00 00 00 | 16 f1 00 00 02 2b 05 00 |...a....|.....+..|
|00001100| 00 00 00 48 00 0a 43 68 | 69 63 61 67 6f 00 00 de |...H..Ch|icago...|
|00001110| 11 14 00 00 00 00 00 f5 | 10 74 00 03 2f 0a 03 0d |........|.t../...|
|00001120| 00 e8 e8 06 00 00 00 04 | 00 04 00 28 00 03 01 ca |........|...(....|
|00001130| 02 79 00 28 00 03 01 ca | 02 79 00 0a 5d 4b 00 00 |.y.(....|.y..]K..|
|00001140| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|00001150| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 de 11 14 |...L...L|...2....|
|00001160| 0c 20 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |. .....2|..MPSR..|
|00001170| 00 0a 03 ed ff ff 00 00 | 00 00 00 e2 5f 3c 00 00 |........|...._<..|
+--------+-------------------------+-------------------------+--------+--------+