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

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 6c 6f 61 64 4c 61 | 54 65 58 2e 74 63 6c 00 |..loadLa|TeX.tcl.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 01 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 1e 6f 00 | 00 01 bc ac 08 09 d0 ac |......o.|........|
|00000060| 08 09 d0 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 e3 ce 00 00 |........|........|
|00000080| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000090| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 0d 23 20 |########|#####.# |
|000000d0| 49 6e 73 74 61 6c 6c 20 | 74 68 65 20 66 69 6c 65 |Install |the file|
|000000e0| 73 20 74 68 61 74 20 73 | 75 70 70 6f 72 74 20 6f |s that s|upport o|
|000000f0| 6e 65 20 6f 66 20 74 68 | 65 20 4c 61 54 65 58 20 |ne of th|e LaTeX |
|00000100| 6d 6f 64 65 73 2e 0d 23 | 20 54 68 65 20 67 6c 6f |modes..#| The glo|
|00000110| 62 61 6c 20 66 6c 61 67 | 20 24 6c 61 74 65 78 56 |bal flag| $latexV|
|00000120| 65 72 73 69 6f 6e 20 69 | 6e 64 69 63 61 74 65 73 |ersion i|ndicates|
|00000130| 20 77 68 69 63 68 20 6d | 6f 64 65 20 28 4c 61 54 | which m|ode (LaT|
|00000140| 65 58 20 32 2e 30 39 20 | 6f 72 20 4c 61 54 65 58 |eX 2.09 |or LaTeX|
|00000150| 32 65 29 0d 23 20 69 73 | 20 63 75 72 72 65 6e 74 |2e).# is| current|
|00000160| 6c 79 20 69 6e 73 74 61 | 6c 6c 65 64 2e 0d 23 0d |ly insta|lled..#.|
|00000170| 23 20 41 75 74 68 6f 72 | 3a 20 54 6f 6d 20 50 6f |# Author|: Tom Po|
|00000180| 6c 6c 61 72 64 20 3c 70 | 6f 6c 6c 61 72 64 40 63 |llard <p|ollard@c|
|00000190| 75 63 62 73 2e 63 68 65 | 6d 2e 63 6f 6c 75 6d 62 |ucbs.che|m.columb|
|000001a0| 69 61 2e 65 64 75 3e 0d | 23 20 28 75 70 64 61 74 |ia.edu>.|# (updat|
|000001b0| 65 64 20 34 2f 32 39 2f | 39 35 20 66 6f 72 20 6c |ed 4/29/|95 for l|
|000001c0| 61 74 65 78 2e 74 63 6c | 20 76 32 2e 34 29 0d 23 |atex.tcl| v2.4).#|
|000001d0| 0d 70 72 6f 63 20 6c 6f | 61 64 4c 61 54 65 58 20 |.proc lo|adLaTeX |
|000001e0| 7b 7d 20 7b 0d 09 67 6c | 6f 62 61 6c 20 48 4f 4d |{} {..gl|obal HOM|
|000001f0| 45 20 6c 61 74 65 78 56 | 65 72 73 69 6f 6e 0d 09 |E latexV|ersion..|
|00000200| 0d 09 73 65 74 20 6f 6c | 64 57 64 20 5b 70 77 64 |..set ol|dWd [pwd|
|00000210| 5d 0d 09 63 64 20 24 48 | 4f 4d 45 0d 09 0d 09 73 |]..cd $H|OME....s|
|00000220| 65 74 20 6c 61 74 65 78 | 32 30 39 44 69 72 20 22 |et latex|209Dir "|
|00000230| 3a 4c 61 54 65 58 3a 6c | 61 74 65 78 20 32 2e 30 |:LaTeX:l|atex 2.0|
|00000240| 39 22 0d 20 20 20 20 73 | 65 74 20 6c 61 74 65 78 |9".    s|et latex|
|00000250| 32 30 39 46 69 6c 65 73 | 20 7b 0d 20 20 20 20 20 |209Files| {.     |
|00000260| 20 20 20 20 20 20 20 7b | 22 6c 61 74 65 78 2e 74 |       {|"latex.t|
|00000270| 63 6c 22 20 22 3a 54 63 | 6c 3a 53 79 73 74 65 6d |cl" ":Tc|l:System|
|00000280| 43 6f 64 65 22 7d 0d 20 | 20 20 20 20 20 20 20 20 |Code"}. |        |
|00000290| 20 20 20 7b 22 6c 61 74 | 65 78 4d 6f 64 65 2e 74 |   {"lat|exMode.t|
|000002a0| 63 6c 22 20 22 3a 54 63 | 6c 3a 53 79 73 74 65 6d |cl" ":Tc|l:System|
|000002b0| 43 6f 64 65 22 7d 0d 20 | 20 20 20 20 20 20 20 20 |Code"}. |        |
|000002c0| 20 20 20 7b 22 73 6d 61 | 72 74 2e 74 63 6c 22 20 |   {"sma|rt.tcl" |
|000002d0| 22 3a 54 63 6c 3a 53 79 | 73 74 65 6d 43 6f 64 65 |":Tcl:Sy|stemCode|
|000002e0| 22 7d 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 7b |"}.     |       {|
|000002f0| 22 4c 61 54 65 58 20 48 | 65 6c 70 22 20 22 3a 48 |"LaTeX H|elp" ":H|
|00000300| 65 6c 70 22 7d 0d 20 20 | 20 20 20 20 20 20 20 20 |elp"}.  |        |
|00000310| 20 20 7b 22 4c 61 54 65 | 58 20 4b 65 79 20 42 69 |  {"LaTe|X Key Bi|
|00000320| 6e 64 69 6e 67 73 22 20 | 22 3a 48 65 6c 70 22 7d |ndings" |":Help"}|
|00000330| 0d 20 20 20 20 7d 0d 0d | 09 73 65 74 20 6c 61 74 |.    }..|.set lat|
|00000340| 65 78 32 65 44 69 72 20 | 22 3a 4c 61 54 65 58 3a |ex2eDir |":LaTeX:|
|00000350| 6c 61 74 65 78 20 32 65 | 22 0d 20 20 20 20 73 65 |latex 2e|".    se|
|00000360| 74 20 6c 61 74 65 78 32 | 65 46 69 6c 65 73 20 7b |t latex2|eFiles {|
|00000370| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 7b 22 6c |.       |     {"l|
|00000380| 61 74 65 78 2e 74 63 6c | 22 20 22 3a 54 63 6c 3a |atex.tcl|" ":Tcl:|
|00000390| 53 79 73 74 65 6d 43 6f | 64 65 22 7d 0d 20 20 20 |SystemCo|de"}.   |
|000003a0| 20 20 20 20 20 20 20 20 | 20 7b 22 6c 61 74 65 78 |        | {"latex|
|000003b0| 45 6e 67 69 6e 65 2e 74 | 63 6c 22 20 22 3a 54 63 |Engine.t|cl" ":Tc|
|000003c0| 6c 3a 53 79 73 74 65 6d | 43 6f 64 65 22 7d 0d 20 |l:System|Code"}. |
|000003d0| 20 20 20 20 20 20 20 20 | 20 20 20 7b 22 6c 61 74 |        |   {"lat|
|000003e0| 65 78 4b 65 79 73 2e 74 | 63 6c 22 20 22 3a 54 63 |exKeys.t|cl" ":Tc|
|000003f0| 6c 3a 53 79 73 74 65 6d | 43 6f 64 65 22 7d 0d 20 |l:System|Code"}. |
|00000400| 20 20 20 20 20 20 20 20 | 20 20 20 7b 22 6c 61 74 |        |   {"lat|
|00000410| 65 78 4d 61 63 72 6f 73 | 2e 74 63 6c 22 20 22 3a |exMacros|.tcl" ":|
|00000420| 54 63 6c 3a 53 79 73 74 | 65 6d 43 6f 64 65 22 7d |Tcl:Syst|emCode"}|
|00000430| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 7b 22 6c |.       |     {"l|
|00000440| 61 74 65 78 4d 65 6e 75 | 2e 74 63 6c 22 20 22 3a |atexMenu|.tcl" ":|
|00000450| 54 63 6c 3a 53 79 73 74 | 65 6d 43 6f 64 65 22 7d |Tcl:Syst|emCode"}|
|00000460| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 7b 22 6c |.       |     {"l|
|00000470| 61 74 65 78 4d 6f 64 65 | 2e 74 63 6c 22 20 22 3a |atexMode|.tcl" ":|
|00000480| 54 63 6c 3a 53 79 73 74 | 65 6d 43 6f 64 65 22 7d |Tcl:Syst|emCode"}|
|00000490| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 7b 22 6c |.       |     {"l|
|000004a0| 61 74 65 78 50 61 74 63 | 68 65 73 2e 74 63 6c 22 |atexPatc|hes.tcl"|
|000004b0| 20 22 3a 54 63 6c 3a 53 | 79 73 74 65 6d 43 6f 64 | ":Tcl:S|ystemCod|
|000004c0| 65 22 7d 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |e"}.    |        |
|000004d0| 7b 22 6c 61 74 65 78 53 | 6d 61 72 74 2e 74 63 6c |{"latexS|mart.tcl|
|000004e0| 22 20 22 3a 54 63 6c 3a | 53 79 73 74 65 6d 43 6f |" ":Tcl:|SystemCo|
|000004f0| 64 65 22 7d 0d 20 20 20 | 20 20 20 20 20 20 20 20 |de"}.   |        |
|00000500| 20 7b 22 4c 61 54 65 58 | 20 48 65 6c 70 22 20 22 | {"LaTeX| Help" "|
|00000510| 3a 48 65 6c 70 22 7d 0d | 20 20 20 20 20 20 20 20 |:Help"}.|        |
|00000520| 20 20 20 20 7b 22 4c 61 | 54 65 58 20 4b 65 79 20 |    {"La|TeX Key |
|00000530| 42 69 6e 64 69 6e 67 73 | 22 20 22 3a 48 65 6c 70 |Bindings|" ":Help|
|00000540| 22 7d 0d 20 20 20 20 7d | 0d 09 73 65 74 20 72 65 |"}.    }|..set re|
|00000550| 70 6f 72 74 20 30 0d 0d | 09 69 66 20 7b 24 6c 61 |port 0..|.if {$la|
|00000560| 74 65 78 56 65 72 73 69 | 6f 6e 20 3d 3d 20 22 32 |texVersi|on == "2|
|00000570| 65 22 7d 20 7b 0d 09 09 | 69 66 20 7b 5b 61 73 6b |e"} {...|if {[ask|
|00000580| 79 65 73 6e 6f 20 22 49 | 6e 73 74 61 6c 6c 20 4c |yesno "I|nstall L|
|00000590| 61 54 65 58 20 32 2e 30 | 39 3f 22 5d 20 3d 3d 20 |aTeX 2.0|9?"] == |
|000005a0| 22 79 65 73 22 7d 20 7b | 0d 09 09 09 73 65 74 20 |"yes"} {|....set |
|000005b0| 72 65 70 6f 72 74 20 5b | 69 6e 73 74 61 6c 6c 46 |report [|installF|
|000005c0| 69 6c 65 73 20 24 6c 61 | 74 65 78 32 30 39 44 69 |iles $la|tex209Di|
|000005d0| 72 20 24 6c 61 74 65 78 | 32 30 39 46 69 6c 65 73 |r $latex|209Files|
|000005e0| 20 24 6c 61 74 65 78 32 | 65 44 69 72 20 24 6c 61 | $latex2|eDir $la|
|000005f0| 74 65 78 32 65 46 69 6c | 65 73 20 30 20 31 20 54 |tex2eFil|es 0 1 T|
|00000600| 65 58 5d 0d 09 09 09 69 | 66 20 7b 24 72 65 70 6f |eX]....i|f {$repo|
|00000610| 72 74 20 21 3d 20 30 7d | 20 7b 0d 23 20 75 6e 63 |rt != 0}| {.# unc|
|00000620| 6f 6d 6d 65 6e 74 20 74 | 68 65 73 65 20 6c 69 6e |omment t|hese lin|
|00000630| 65 73 20 69 66 20 6e 65 | 77 20 66 69 6c 65 73 20 |es if ne|w files |
|00000640| 61 72 65 20 6e 6f 74 20 | 61 75 74 6f 6d 61 74 69 |are not |automati|
|00000650| 63 61 6c 6c 79 20 73 6f | 75 72 63 65 64 0d 23 20 |cally so|urced.# |
|00000660| 09 09 09 09 61 6c 65 72 | 74 6e 6f 74 65 20 22 4e |....aler|tnote "N|
|00000670| 6f 77 20 71 75 69 74 20 | 61 6e 64 20 72 65 73 74 |ow quit |and rest|
|00000680| 61 72 74 20 41 6c 70 68 | 61 20 74 6f 20 6c 6f 61 |art Alph|a to loa|
|00000690| 64 20 4c 61 54 65 58 20 | 32 2e 30 39 20 6d 6f 64 |d LaTeX |2.09 mod|
|000006a0| 65 22 0d 23 20 09 09 09 | 09 73 65 74 20 6c 61 74 |e".# ...|.set lat|
|000006b0| 65 78 56 65 72 73 69 6f | 6e 20 22 32 2e 30 39 22 |exVersio|n "2.09"|
|000006c0| 0d 23 20 61 6e 64 20 63 | 6f 6d 6d 65 6e 74 20 6f |.# and c|omment o|
|000006d0| 75 74 20 74 68 69 73 20 | 6f 6e 65 0d 09 09 09 09 |ut this |one.....|
|000006e0| 61 6c 65 72 74 6e 6f 74 | 65 20 22 4c 61 54 65 58 |alertnot|e "LaTeX|
|000006f0| 20 32 2e 30 39 20 73 75 | 70 70 6f 72 74 20 77 61 | 2.09 su|pport wa|
|00000700| 73 20 73 75 63 63 65 73 | 73 66 75 6c 6c 79 20 69 |s succes|sfully i|
|00000710| 6e 73 74 61 6c 6c 65 64 | 22 0d 23 0d 09 09 09 7d |nstalled|".#....}|
|00000720| 20 65 6c 73 65 20 7b 0d | 09 09 09 09 61 6c 65 72 | else {.|....aler|
|00000730| 74 6e 6f 74 65 20 22 54 | 68 65 20 69 6e 73 74 61 |tnote "T|he insta|
|00000740| 6c 6c 61 74 69 6f 6e 20 | 77 61 73 20 63 61 6e 63 |llation |was canc|
|00000750| 65 6c 6c 65 64 22 0d 09 | 09 09 7d 0d 09 09 7d 0d |elled"..|..}...}.|
|00000760| 09 7d 20 65 6c 73 65 69 | 66 20 7b 24 6c 61 74 65 |.} elsei|f {$late|
|00000770| 78 56 65 72 73 69 6f 6e | 20 3d 3d 20 22 32 2e 30 |xVersion| == "2.0|
|00000780| 39 22 7d 20 7b 0d 09 09 | 69 66 20 7b 5b 61 73 6b |9"} {...|if {[ask|
|00000790| 79 65 73 6e 6f 20 22 49 | 6e 73 74 61 6c 6c 20 4c |yesno "I|nstall L|
|000007a0| 61 54 65 58 20 32 65 3f | 22 5d 20 3d 3d 20 22 79 |aTeX 2e?|"] == "y|
|000007b0| 65 73 22 7d 20 7b 0d 09 | 09 09 73 65 74 20 72 65 |es"} {..|..set re|
|000007c0| 70 6f 72 74 20 5b 69 6e | 73 74 61 6c 6c 46 69 6c |port [in|stallFil|
|000007d0| 65 73 20 24 6c 61 74 65 | 78 32 65 44 69 72 20 24 |es $late|x2eDir $|
|000007e0| 6c 61 74 65 78 32 65 46 | 69 6c 65 73 20 24 6c 61 |latex2eF|iles $la|
|000007f0| 74 65 78 32 30 39 44 69 | 72 20 24 6c 61 74 65 78 |tex209Di|r $latex|
|00000800| 32 30 39 46 69 6c 65 73 | 20 30 20 31 20 54 65 58 |209Files| 0 1 TeX|
|00000810| 5d 0d 09 09 09 69 66 20 | 7b 24 72 65 70 6f 72 74 |]....if |{$report|
|00000820| 20 21 3d 20 30 7d 20 7b | 0d 23 20 75 6e 63 6f 6d | != 0} {|.# uncom|
|00000830| 6d 65 6e 74 20 74 68 65 | 73 65 20 6c 69 6e 65 73 |ment the|se lines|
|00000840| 20 69 66 20 6e 65 77 20 | 66 69 6c 65 73 20 61 72 | if new |files ar|
|00000850| 65 20 6e 6f 74 20 61 75 | 74 6f 6d 61 74 69 63 61 |e not au|tomatica|
|00000860| 6c 6c 79 20 73 6f 75 72 | 63 65 64 0d 23 09 09 09 |lly sour|ced.#...|
|00000870| 09 61 6c 65 72 74 6e 6f | 74 65 20 22 4e 6f 77 20 |.alertno|te "Now |
|00000880| 71 75 69 74 20 61 6e 64 | 20 72 65 73 74 61 72 74 |quit and| restart|
|00000890| 20 41 6c 70 68 61 20 74 | 6f 20 6c 6f 61 64 20 4c | Alpha t|o load L|
|000008a0| 61 54 65 58 32 65 20 6d | 6f 64 65 22 0d 23 09 09 |aTeX2e m|ode".#..|
|000008b0| 09 09 73 65 74 20 6c 61 | 74 65 78 56 65 72 73 69 |..set la|texVersi|
|000008c0| 6f 6e 20 22 32 65 22 0d | 23 20 61 6e 64 20 63 6f |on "2e".|# and co|
|000008d0| 6d 6d 65 6e 74 20 6f 75 | 74 20 74 68 69 73 20 6f |mment ou|t this o|
|000008e0| 6e 65 0d 09 09 09 09 61 | 6c 65 72 74 6e 6f 74 65 |ne.....a|lertnote|
|000008f0| 20 22 4c 61 54 65 58 32 | 65 20 73 75 70 70 6f 72 | "LaTeX2|e suppor|
|00000900| 74 20 77 61 73 20 73 75 | 63 63 65 73 73 66 75 6c |t was su|ccessful|
|00000910| 6c 79 20 69 6e 73 74 61 | 6c 6c 65 64 22 0d 23 0d |ly insta|lled".#.|
|00000920| 09 09 09 7d 20 65 6c 73 | 65 20 7b 0d 09 09 09 09 |...} els|e {.....|
|00000930| 61 6c 65 72 74 6e 6f 74 | 65 20 22 54 68 65 20 69 |alertnot|e "The i|
|00000940| 6e 73 74 61 6c 6c 61 74 | 69 6f 6e 20 77 61 73 20 |nstallat|ion was |
|00000950| 63 61 6e 63 65 6c 6c 65 | 64 22 09 0d 09 09 09 7d |cancelle|d".....}|
|00000960| 0d 09 09 7d 0d 09 7d 0d | 09 0d 09 69 66 20 7b 24 |...}..}.|...if {$|
|00000970| 72 65 70 6f 72 74 20 21 | 3d 20 30 7d 20 7b 0d 09 |report !|= 0} {..|
|00000980| 09 73 65 74 20 74 69 6d | 65 50 61 74 20 7b 28 5b |.set tim|ePat {([|
|00000990| 30 2d 39 2f 5d 2b 29 20 | 28 5b 5e 3a 5d 2b 29 3a |0-9/]+) |([^:]+):|
|000009a0| 28 5b 5e 3a 5d 2b 29 3a | 28 5b 5e 3a 5d 2b 29 20 |([^:]+):|([^:]+) |
|000009b0| 28 2e 2e 29 7d 0d 09 09 | 72 65 67 73 75 62 20 24 |(..)}...|regsub $|
|000009c0| 74 69 6d 65 50 61 74 20 | 5b 6a 6f 69 6e 20 5b 6d |timePat |[join [m|
|000009d0| 74 69 6d 65 20 5b 6e 6f | 77 5d 20 73 68 6f 72 74 |time [no|w] short|
|000009e0| 5d 5d 20 7b 5c 31 20 5c | 32 2e 5c 33 5c 35 7d 20 |]] {\1 \|2.\3\5} |
|000009f0| 74 69 6d 65 73 74 61 6d | 70 0d 09 09 73 65 74 20 |timestam|p...set |
|00000a00| 66 6e 61 6d 65 20 22 24 | 48 4f 4d 45 3a 4c 61 54 |fname "$|HOME:LaT|
|00000a10| 65 58 3a 49 6e 73 74 61 | 6c 6c 20 52 65 70 6f 72 |eX:Insta|ll Repor|
|00000a20| 74 20 24 74 69 6d 65 73 | 74 61 6d 70 22 0d 09 09 |t $times|tamp"...|
|00000a30| 0d 09 20 20 20 20 73 65 | 74 20 74 6d 70 66 69 64 |..    se|t tmpfid|
|00000a40| 20 5b 6f 70 65 6e 20 24 | 66 6e 61 6d 65 20 22 77 | [open $|fname "w|
|00000a50| 2b 22 5d 0d 09 20 20 20 | 20 70 75 74 73 20 24 74 |+"]..   | puts $t|
|00000a60| 6d 70 66 69 64 20 24 72 | 65 70 6f 72 74 0d 09 20 |mpfid $r|eport.. |
|00000a70| 20 20 20 63 6c 6f 73 65 | 20 24 74 6d 70 66 69 64 |   close| $tmpfid|
|00000a80| 0d 20 20 20 20 7d 0d 20 | 20 20 20 0d 09 63 64 20 |.    }. |   ..cd |
|00000a90| 24 6f 6c 64 57 64 0d 7d | 0d 0d 23 23 23 23 23 23 |$oldWd.}|..######|
|00000aa0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000ab0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000ac0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000ad0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000ae0| 23 23 23 23 23 23 23 23 | 0d 23 20 49 6e 73 74 61 |########|.# Insta|
|00000af0| 6c 6c 20 61 20 6c 69 73 | 74 20 6f 66 20 66 69 6c |ll a lis|t of fil|
|00000b00| 65 73 20 66 72 6f 6d 20 | 24 49 6e 73 74 61 6c 6c |es from |$Install|
|00000b10| 44 69 72 20 69 6e 74 6f | 20 76 61 72 69 6f 75 73 |Dir into| various|
|00000b20| 20 64 65 73 74 69 6e 61 | 74 69 6f 6e 20 66 6f 6c | destina|tion fol|
|00000b30| 64 65 72 73 2e 0d 23 0d | 23 20 45 61 63 68 20 69 |ders..#.|# Each i|
|00000b40| 74 65 6d 20 6f 66 20 24 | 69 6e 73 74 61 6c 6c 4c |tem of $|installL|
|00000b50| 69 73 74 20 63 6f 6e 74 | 61 69 6e 73 20 61 20 6c |ist cont|ains a l|
|00000b60| 69 73 74 20 6f 66 20 74 | 77 6f 20 69 74 65 6d 73 |ist of t|wo items|
|00000b70| 20 3a 20 61 20 66 69 6c | 65 20 61 6e 64 20 69 74 | : a fil|e and it|
|00000b80| 73 20 0d 23 20 64 65 73 | 74 69 6e 61 74 69 6f 6e |s .# des|tination|
|00000b90| 20 64 69 72 65 63 74 6f | 72 79 2e 20 20 49 66 20 | directo|ry.  If |
|00000ba0| 24 62 61 63 6b 75 70 44 | 69 72 20 61 6e 64 20 24 |$backupD|ir and $|
|00000bb0| 62 61 63 6b 75 70 4c 69 | 73 74 20 61 72 65 20 67 |backupLi|st are g|
|00000bc0| 69 76 65 6e 2c 20 74 68 | 65 6e 20 74 68 65 20 0d |iven, th|en the .|
|00000bd0| 23 20 66 69 6c 65 73 20 | 66 72 6f 6d 20 74 68 69 |# files |from thi|
|00000be0| 73 20 6c 69 73 74 20 61 | 72 65 20 66 69 72 73 74 |s list a|re first|
|00000bf0| 20 72 65 6d 6f 76 65 64 | 20 66 72 6f 6d 20 74 68 | removed| from th|
|00000c00| 65 20 69 6e 64 69 63 61 | 74 65 64 20 64 69 72 65 |e indica|ted dire|
|00000c10| 63 74 6f 72 69 65 73 20 | 61 6e 64 20 0d 23 20 73 |ctories |and .# s|
|00000c20| 61 76 65 64 20 69 6e 20 | 24 62 61 63 6b 75 70 44 |aved in |$backupD|
|00000c30| 69 72 2e 20 20 49 66 20 | 24 64 65 6c 65 74 65 4f |ir.  If |$deleteO|
|00000c40| 6c 64 20 69 73 20 31 2c | 20 74 68 65 6e 20 61 6e |ld is 1,| then an|
|00000c50| 20 6f 6c 64 20 66 69 6c | 65 20 69 73 20 6a 75 73 | old fil|e is jus|
|00000c60| 74 0d 23 20 64 65 6c 65 | 74 65 64 20 69 66 20 74 |t.# dele|ted if t|
|00000c70| 68 65 20 62 61 63 6b 75 | 70 20 64 69 72 65 63 74 |he backu|p direct|
|00000c80| 6f 72 79 20 64 6f 65 73 | 6e 27 74 20 65 78 69 73 |ory does|n't exis|
|00000c90| 74 20 6f 72 20 69 66 20 | 69 74 20 61 6c 72 65 61 |t or if |it alrea|
|00000ca0| 64 79 20 63 6f 6e 74 61 | 69 6e 73 0d 23 20 74 68 |dy conta|ins.# th|
|00000cb0| 65 20 66 69 6c 65 3b 20 | 69 66 20 24 6f 76 65 72 |e file; |if $over|
|00000cc0| 77 72 69 74 65 42 61 63 | 6b 75 70 73 20 69 73 20 |writeBac|kups is |
|00000cd0| 31 2c 20 74 68 65 6e 20 | 6f 6c 64 20 62 61 63 6b |1, then |old back|
|00000ce0| 75 70 20 66 69 6c 65 73 | 20 77 69 6c 6c 20 62 65 |up files| will be|
|00000cf0| 0d 23 20 6f 76 65 72 77 | 72 69 74 74 65 6e 20 28 |.# overw|ritten (|
|00000d00| 24 64 65 6c 65 74 65 4f | 6c 64 20 69 73 20 63 68 |$deleteO|ld is ch|
|00000d10| 65 63 6b 65 64 20 62 65 | 66 6f 72 65 20 24 6f 76 |ecked be|fore $ov|
|00000d20| 65 72 77 72 69 74 65 42 | 61 63 6b 75 70 73 29 2e |erwriteB|ackups).|
|00000d30| 0d 23 0d 23 20 49 66 20 | 61 6e 79 20 54 63 6c 20 |.#.# If |any Tcl |
|00000d40| 73 6f 75 72 63 65 20 66 | 69 6c 65 73 20 28 2e 74 |source f|iles (.t|
|00000d50| 63 6c 29 20 61 72 65 20 | 69 6e 73 74 61 6c 6c 65 |cl) are |installe|
|00000d60| 64 2c 20 74 68 65 6e 20 | 74 68 65 79 20 61 72 65 |d, then |they are|
|00000d70| 20 61 6c 73 6f 20 61 75 | 74 6f 6d 61 74 69 63 61 | also au|tomatica|
|00000d80| 6c 6c 79 0d 23 20 73 6f | 75 72 63 65 64 20 61 6e |lly.# so|urced an|
|00000d90| 64 20 22 72 65 62 75 69 | 6c 64 54 63 6c 49 6e 64 |d "rebui|ldTclInd|
|00000da0| 69 63 65 73 22 20 69 73 | 20 63 61 6c 6c 65 64 20 |ices" is| called |
|00000db0| 74 6f 20 75 70 64 61 74 | 65 20 74 68 65 20 61 75 |to updat|e the au|
|00000dc0| 74 6f 6c 6f 61 64 65 72 | 20 69 6e 64 65 78 20 66 |toloader| index f|
|00000dd0| 69 6c 65 73 2e 0d 23 20 | 0d 23 20 41 75 74 68 6f |iles..# |.# Autho|
|00000de0| 72 3a 20 54 6f 6d 20 50 | 6f 6c 6c 61 72 64 20 3c |r: Tom P|ollard <|
|00000df0| 70 6f 6c 6c 61 72 64 40 | 63 75 63 62 73 2e 63 68 |pollard@|cucbs.ch|
|00000e00| 65 6d 2e 63 6f 6c 75 6d | 62 69 61 2e 65 64 75 3e |em.colum|bia.edu>|
|00000e10| 0d 23 0d 70 72 6f 63 20 | 69 6e 73 74 61 6c 6c 46 |.#.proc |installF|
|00000e20| 69 6c 65 73 20 7b 69 6e | 73 74 61 6c 6c 44 69 72 |iles {in|stallDir|
|00000e30| 20 69 6e 73 74 61 6c 6c | 4c 69 73 74 20 62 61 63 | install|List bac|
|00000e40| 6b 75 70 44 69 72 20 62 | 61 63 6b 75 70 4c 69 73 |kupDir b|ackupLis|
|00000e50| 74 20 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |t .     |        |
|00000e60| 20 20 20 20 20 20 7b 64 | 65 6c 65 74 65 4f 6c 64 |      {d|eleteOld|
|00000e70| 20 30 7d 20 7b 6f 76 65 | 72 77 72 69 74 65 42 61 | 0} {ove|rwriteBa|
|00000e80| 63 6b 75 70 73 20 30 7d | 20 7b 64 65 6c 65 74 65 |ckups 0}| {delete|
|00000e90| 42 69 6e 64 69 6e 67 73 | 20 30 7d 7d 20 7b 0d 09 |Bindings| 0}} {..|
|00000ea0| 67 6c 6f 62 61 6c 20 48 | 4f 4d 45 0d 09 73 65 74 |global H|OME..set|
|00000eb0| 20 73 63 72 69 70 74 20 | 7b 7d 0d 09 73 65 74 20 | script |{}..set |
|00000ec0| 72 65 70 6f 72 74 20 22 | 22 0d 09 73 65 74 20 61 |report "|"..set a|
|00000ed0| 73 6b 65 64 41 6c 72 65 | 61 64 79 20 30 0d 09 73 |skedAlre|ady 0..s|
|00000ee0| 65 74 20 72 65 6d 6f 76 | 65 64 20 7b 7d 0d 09 0d |et remov|ed {}...|
|00000ef0| 09 73 65 74 20 73 63 72 | 69 70 74 32 20 7b 7d 0d |.set scr|ipt2 {}.|
|00000f00| 09 73 65 74 20 72 65 70 | 6f 72 74 32 20 22 22 0d |.set rep|ort2 "".|
|00000f10| 09 0d 09 69 66 20 7b 21 | 20 5b 66 69 6c 65 20 65 |...if {!| [file e|
|00000f20| 78 69 73 74 73 20 24 62 | 61 63 6b 75 70 44 69 72 |xists $b|ackupDir|
|00000f30| 5d 20 26 26 20 21 20 24 | 64 65 6c 65 74 65 4f 6c |] && ! $|deleteOl|
|00000f40| 64 7d 20 7b 0d 09 09 6c | 61 70 70 65 6e 64 20 73 |d} {...l|append s|
|00000f50| 63 72 69 70 74 20 5b 6c | 69 73 74 20 6d 6b 64 69 |cript [l|ist mkdi|
|00000f60| 72 20 24 62 61 63 6b 75 | 70 44 69 72 5d 0d 09 09 |r $backu|pDir]...|
|00000f70| 61 70 70 65 6e 64 20 72 | 65 70 6f 72 74 20 22 43 |append r|eport "C|
|00000f80| 72 65 61 74 65 64 20 62 | 61 63 6b 75 70 20 64 69 |reated b|ackup di|
|00000f90| 72 65 63 74 6f 72 79 20 | 5c 22 24 62 61 63 6b 75 |rectory |\"$backu|
|00000fa0| 70 44 69 72 5c 22 5c 6e | 22 0d 09 7d 20 0d 09 0d |pDir\"\n|"..} ...|
|00000fb0| 09 66 6f 72 65 61 63 68 | 20 69 74 65 6d 20 24 62 |.foreach| item $b|
|00000fc0| 61 63 6b 75 70 4c 69 73 | 74 20 7b 0d 09 09 73 65 |ackupLis|t {...se|
|00000fd0| 74 20 66 69 6c 65 20 5b | 6c 69 6e 64 65 78 20 24 |t file [|lindex $|
|00000fe0| 69 74 65 6d 20 30 5d 0d | 09 09 73 65 74 20 64 69 |item 0].|..set di|
|00000ff0| 72 20 5b 6c 69 6e 64 65 | 78 20 24 69 74 65 6d 20 |r [linde|x $item |
|00001000| 31 5d 0d 09 09 0d 09 09 | 73 65 74 20 66 72 6f 6d |1]......|set from|
|00001010| 70 61 74 68 20 24 7b 64 | 69 72 7d 3a 24 7b 66 69 |path ${d|ir}:${fi|
|00001020| 6c 65 7d 0d 09 09 73 65 | 74 20 74 6f 70 61 74 68 |le}...se|t topath|
|00001030| 20 24 7b 62 61 63 6b 75 | 70 44 69 72 7d 3a 24 7b | ${backu|pDir}:${|
|00001040| 66 69 6c 65 7d 0d 0d 09 | 09 69 66 20 7b 5b 63 6c |file}...|.if {[cl|
|00001050| 6f 73 65 49 6e 73 74 61 | 6c 6c 46 69 6c 65 20 24 |oseInsta|llFile $|
|00001060| 66 69 6c 65 5d 20 3d 3d | 20 22 63 61 6e 63 65 6c |file] ==| "cancel|
|00001070| 22 7d 20 7b 0d 09 09 09 | 72 65 74 75 72 6e 20 30 |"} {....|return 0|
|00001080| 0d 09 09 7d 09 09 0d 09 | 09 0d 09 09 69 66 20 7b |...}....|....if {|
|00001090| 5b 66 69 6c 65 20 65 78 | 69 73 74 73 20 24 66 72 |[file ex|ists $fr|
|000010a0| 6f 6d 70 61 74 68 5d 7d | 20 7b 0d 09 09 09 69 66 |ompath]}| {....if|
|000010b0| 20 7b 5b 66 69 6c 65 20 | 65 78 69 73 74 73 20 24 | {[file |exists $|
|000010c0| 74 6f 70 61 74 68 5d 7d | 20 7b 0d 09 09 09 20 20 |topath]}| {....  |
|000010d0| 20 20 69 66 20 7b 21 24 | 64 65 6c 65 74 65 4f 6c |  if {!$|deleteOl|
|000010e0| 64 20 26 26 20 21 24 6f | 76 65 72 77 72 69 74 65 |d && !$o|verwrite|
|000010f0| 42 61 63 6b 75 70 73 20 | 26 26 20 21 24 61 73 6b |Backups |&& !$ask|
|00001100| 65 64 41 6c 72 65 61 64 | 79 7d 20 7b 0d 09 09 09 |edAlread|y} {....|
|00001110| 20 20 20 20 09 69 66 20 | 7b 5b 61 73 6b 79 65 73 |    .if |{[askyes|
|00001120| 6e 6f 20 22 43 61 6e 20 | 49 20 64 65 6c 65 74 65 |no "Can |I delete|
|00001130| 20 6f 6c 64 20 66 69 6c | 65 73 20 74 68 61 74 20 | old fil|es that |
|00001140| 61 72 65 20 61 6c 72 65 | 61 64 79 20 62 61 63 6b |are alre|ady back|
|00001150| 65 64 20 75 70 3f 22 5d | 20 3d 3d 20 22 79 65 73 |ed up?"]| == "yes|
|00001160| 22 7d 20 7b 0d 09 09 09 | 20 20 20 20 09 09 73 65 |"} {....|    ..se|
|00001170| 74 20 64 65 6c 65 74 65 | 4f 6c 64 20 31 0d 09 09 |t delete|Old 1...|
|00001180| 09 20 20 20 20 09 7d 20 | 65 6c 73 65 69 66 20 7b |.    .} |elseif {|
|00001190| 5b 61 73 6b 79 65 73 6e | 6f 20 22 43 61 6e 20 49 |[askyesn|o "Can I|
|000011a0| 20 6f 76 65 72 77 72 69 | 74 65 20 70 72 65 76 69 | overwri|te previ|
|000011b0| 6f 75 73 20 62 61 63 6b | 75 70 20 66 69 6c 65 73 |ous back|up files|
|000011c0| 3f 22 5d 20 3d 3d 20 22 | 79 65 73 22 7d 20 7b 0d |?"] == "|yes"} {.|
|000011d0| 09 09 09 20 20 20 20 09 | 09 73 65 74 20 6f 76 65 |...    .|.set ove|
|000011e0| 72 77 72 69 74 65 42 61 | 63 6b 75 70 73 20 31 0d |rwriteBa|ckups 1.|
|000011f0| 09 09 09 20 20 20 20 09 | 7d 0d 09 09 09 20 20 20 |...    .|}....   |
|00001200| 20 09 73 65 74 20 61 73 | 6b 65 64 41 6c 72 65 61 | .set as|kedAlrea|
|00001210| 64 79 20 31 0d 09 09 09 | 09 7d 0d 09 09 09 09 69 |dy 1....|.}.....i|
|00001220| 66 20 7b 24 64 65 6c 65 | 74 65 4f 6c 64 7d 20 7b |f {$dele|teOld} {|
|00001230| 0d 09 09 09 09 09 6c 61 | 70 70 65 6e 64 20 73 63 |......la|ppend sc|
|00001240| 72 69 70 74 20 5b 6c 69 | 73 74 20 72 65 6d 6f 76 |ript [li|st remov|
|00001250| 65 46 69 6c 65 20 24 66 | 72 6f 6d 70 61 74 68 5d |eFile $f|rompath]|
|00001260| 0d 09 09 09 09 09 61 70 | 70 65 6e 64 20 72 65 70 |......ap|pend rep|
|00001270| 6f 72 74 20 22 44 65 6c | 65 74 65 64 20 6f 6c 64 |ort "Del|eted old|
|00001280| 20 66 69 6c 65 20 5c 22 | 24 66 69 6c 65 5c 22 20 | file \"|$file\" |
|00001290| 66 72 6f 6d 20 66 6f 6c | 64 65 72 20 5c 22 24 64 |from fol|der \"$d|
|000012a0| 69 72 5c 22 5c 6e 22 0d | 09 09 09 09 09 6c 61 70 |ir\"\n".|.....lap|
|000012b0| 70 65 6e 64 20 72 65 6d | 6f 76 65 64 20 24 66 72 |pend rem|oved $fr|
|000012c0| 6f 6d 70 61 74 68 0d 0d | 09 09 09 09 7d 20 65 6c |ompath..|....} el|
|000012d0| 73 65 69 66 20 7b 24 6f | 76 65 72 77 72 69 74 65 |seif {$o|verwrite|
|000012e0| 42 61 63 6b 75 70 73 7d | 20 7b 0d 09 09 09 09 09 |Backups}| {......|
|000012f0| 6c 61 70 70 65 6e 64 20 | 73 63 72 69 70 74 20 5b |lappend |script [|
|00001300| 6c 69 73 74 20 72 65 6d | 6f 76 65 46 69 6c 65 20 |list rem|oveFile |
|00001310| 24 74 6f 70 61 74 68 5d | 0d 09 09 09 09 09 6c 61 |$topath]|......la|
|00001320| 70 70 65 6e 64 20 73 63 | 72 69 70 74 20 5b 6c 69 |ppend sc|ript [li|
|00001330| 73 74 20 63 6f 70 79 46 | 69 6c 65 20 24 66 72 6f |st copyF|ile $fro|
|00001340| 6d 70 61 74 68 20 24 74 | 6f 70 61 74 68 5d 0d 09 |mpath $t|opath]..|
|00001350| 09 09 09 09 6c 61 70 70 | 65 6e 64 20 73 63 72 69 |....lapp|end scri|
|00001360| 70 74 20 5b 6c 69 73 74 | 20 72 65 6d 6f 76 65 46 |pt [list| removeF|
|00001370| 69 6c 65 20 24 66 72 6f | 6d 70 61 74 68 5d 0d 09 |ile $fro|mpath]..|
|00001380| 09 09 09 09 61 70 70 65 | 6e 64 20 72 65 70 6f 72 |....appe|nd repor|
|00001390| 74 20 22 53 61 76 65 64 | 20 6f 6c 64 20 66 69 6c |t "Saved| old fil|
|000013a0| 65 20 5c 22 24 66 69 6c | 65 5c 22 20 69 6e 20 66 |e \"$fil|e\" in f|
|000013b0| 6f 6c 64 65 72 20 5c 22 | 24 62 61 63 6b 75 70 44 |older \"|$backupD|
|000013c0| 69 72 5c 22 5c 6e 22 0d | 09 09 09 09 09 6c 61 70 |ir\"\n".|.....lap|
|000013d0| 70 65 6e 64 20 72 65 6d | 6f 76 65 64 20 24 66 72 |pend rem|oved $fr|
|000013e0| 6f 6d 70 61 74 68 0d 09 | 09 09 20 20 20 20 0d 09 |ompath..|..    ..|
|000013f0| 09 09 09 7d 20 65 6c 73 | 65 20 7b 0d 09 09 09 09 |...} els|e {.....|
|00001400| 09 6d 65 73 73 61 67 65 | 20 22 4e 6f 20 66 69 6c |.message| "No fil|
|00001410| 65 73 20 77 65 72 65 20 | 6d 6f 76 65 64 20 6f 72 |es were |moved or|
|00001420| 20 64 65 6c 65 74 65 64 | 22 0d 09 09 09 09 09 72 | deleted|"......r|
|00001430| 65 74 75 72 6e 20 30 0d | 09 09 09 20 20 20 20 7d |eturn 0.|...    }|
|00001440| 0d 09 09 09 7d 20 65 6c | 73 65 20 7b 0d 09 09 09 |....} el|se {....|
|00001450| 09 6c 61 70 70 65 6e 64 | 20 73 63 72 69 70 74 20 |.lappend| script |
|00001460| 5b 6c 69 73 74 20 63 6f | 70 79 46 69 6c 65 20 24 |[list co|pyFile $|
|00001470| 66 72 6f 6d 70 61 74 68 | 20 24 74 6f 70 61 74 68 |frompath| $topath|
|00001480| 5d 0d 09 09 09 09 6c 61 | 70 70 65 6e 64 20 73 63 |].....la|ppend sc|
|00001490| 72 69 70 74 20 5b 6c 69 | 73 74 20 72 65 6d 6f 76 |ript [li|st remov|
|000014a0| 65 46 69 6c 65 20 24 66 | 72 6f 6d 70 61 74 68 5d |eFile $f|rompath]|
|000014b0| 0d 09 09 09 09 61 70 70 | 65 6e 64 20 72 65 70 6f |.....app|end repo|
|000014c0| 72 74 20 22 53 61 76 65 | 64 20 6f 6c 64 20 66 69 |rt "Save|d old fi|
|000014d0| 6c 65 20 5c 22 24 66 69 | 6c 65 5c 22 20 69 6e 20 |le \"$fi|le\" in |
|000014e0| 66 6f 6c 64 65 72 20 5c | 22 24 62 61 63 6b 75 70 |folder \|"$backup|
|000014f0| 44 69 72 5c 22 5c 6e 22 | 0d 09 09 09 09 6c 61 70 |Dir\"\n"|.....lap|
|00001500| 70 65 6e 64 20 72 65 6d | 6f 76 65 64 20 24 66 72 |pend rem|oved $fr|
|00001510| 6f 6d 70 61 74 68 0d 09 | 09 09 7d 0d 09 09 7d 20 |ompath..|..}...} |
|00001520| 65 6c 73 65 20 7b 0d 09 | 09 09 61 70 70 65 6e 64 |else {..|..append|
|00001530| 20 72 65 70 6f 72 74 20 | 22 2d 2d 20 6f 6c 64 20 | report |"-- old |
|00001540| 66 69 6c 65 20 5c 22 24 | 66 69 6c 65 5c 22 20 77 |file \"$|file\" w|
|00001550| 61 73 20 6d 69 73 73 69 | 6e 67 20 66 72 6f 6d 20 |as missi|ng from |
|00001560| 66 6f 6c 64 65 72 20 5c | 22 24 64 69 72 5c 22 20 |folder \|"$dir\" |
|00001570| 2d 2d 5c 6e 22 0d 09 09 | 7d 0d 09 7d 0d 09 0d 09 |--\n"...|}..}....|
|00001580| 61 70 70 65 6e 64 20 72 | 65 70 6f 72 74 20 22 5c |append r|eport "\|
|00001590| 6e 22 0d 09 0d 09 66 6f | 72 65 61 63 68 20 69 74 |n"....fo|reach it|
|000015a0| 65 6d 20 24 69 6e 73 74 | 61 6c 6c 4c 69 73 74 20 |em $inst|allList |
|000015b0| 7b 0d 09 09 73 65 74 20 | 66 69 6c 65 20 5b 6c 69 |{...set |file [li|
|000015c0| 6e 64 65 78 20 24 69 74 | 65 6d 20 30 5d 0d 09 09 |ndex $it|em 0]...|
|000015d0| 73 65 74 20 64 69 72 20 | 5b 6c 69 6e 64 65 78 20 |set dir |[lindex |
|000015e0| 24 69 74 65 6d 20 31 5d | 0d 09 09 73 65 74 20 66 |$item 1]|...set f|
|000015f0| 72 6f 6d 70 61 74 68 20 | 24 7b 69 6e 73 74 61 6c |rompath |${instal|
|00001600| 6c 44 69 72 7d 3a 24 7b | 66 69 6c 65 7d 0d 09 09 |lDir}:${|file}...|
|00001610| 73 65 74 20 74 6f 70 61 | 74 68 20 24 7b 64 69 72 |set topa|th ${dir|
|00001620| 7d 3a 24 7b 66 69 6c 65 | 7d 0d 09 09 0d 09 09 69 |}:${file|}......i|
|00001630| 66 20 7b 5b 63 6c 6f 73 | 65 49 6e 73 74 61 6c 6c |f {[clos|eInstall|
|00001640| 46 69 6c 65 20 24 66 69 | 6c 65 5d 20 3d 3d 20 22 |File $fi|le] == "|
|00001650| 63 61 6e 63 65 6c 22 7d | 20 7b 0d 09 09 09 72 65 |cancel"}| {....re|
|00001660| 74 75 72 6e 20 30 0d 09 | 09 7d 09 09 0d 0d 09 09 |turn 0..|.}......|
|00001670| 69 66 20 7b 5b 66 69 6c | 65 20 65 78 69 73 74 73 |if {[fil|e exists|
|00001680| 20 24 66 72 6f 6d 70 61 | 74 68 5d 7d 20 7b 0d 09 | $frompa|th]} {..|
|00001690| 09 09 69 66 20 7b 5b 66 | 69 6c 65 20 65 78 69 73 |..if {[f|ile exis|
|000016a0| 74 73 20 24 74 6f 70 61 | 74 68 5d 20 26 26 20 5b |ts $topa|th] && [|
|000016b0| 6c 73 65 61 72 63 68 20 | 2d 65 78 61 63 74 20 24 |lsearch |-exact $|
|000016c0| 72 65 6d 6f 76 65 64 20 | 24 74 6f 70 61 74 68 5d |removed |$topath]|
|000016d0| 20 3c 20 30 7d 20 7b 0d | 09 09 09 20 20 20 20 69 | < 0} {.|...    i|
|000016e0| 66 20 7b 5b 61 73 6b 79 | 65 73 6e 6f 20 22 43 61 |f {[asky|esno "Ca|
|000016f0| 6e 20 49 20 6f 76 65 72 | 77 72 69 74 65 20 74 68 |n I over|write th|
|00001700| 65 20 6f 6c 64 20 63 6f | 70 79 20 6f 66 20 24 66 |e old co|py of $f|
|00001710| 69 6c 65 3f 22 5d 20 3d | 3d 20 22 79 65 73 22 7d |ile?"] =|= "yes"}|
|00001720| 20 7b 0d 09 09 09 09 09 | 6c 61 70 70 65 6e 64 20 | {......|lappend |
|00001730| 73 63 72 69 70 74 20 5b | 6c 69 73 74 20 72 65 6d |script [|list rem|
|00001740| 6f 76 65 46 69 6c 65 20 | 24 74 6f 70 61 74 68 5d |oveFile |$topath]|
|00001750| 0d 09 09 09 09 09 61 70 | 70 65 6e 64 20 72 65 70 |......ap|pend rep|
|00001760| 6f 72 74 20 22 44 65 6c | 65 74 65 64 20 6f 6c 64 |ort "Del|eted old|
|00001770| 20 66 69 6c 65 20 5c 22 | 24 66 69 6c 65 5c 22 20 | file \"|$file\" |
|00001780| 69 6e 20 66 6f 6c 64 65 | 72 20 5c 22 24 64 69 72 |in folde|r \"$dir|
|00001790| 5c 22 5c 6e 22 0d 09 09 | 09 09 09 6c 61 70 70 65 |\"\n"...|...lappe|
|000017a0| 6e 64 20 72 65 6d 6f 76 | 65 64 20 24 74 6f 70 61 |nd remov|ed $topa|
|000017b0| 74 68 0d 09 09 09 09 7d | 20 65 6c 73 65 20 7b 0d |th.....}| else {.|
|000017c0| 09 09 09 09 09 72 65 74 | 75 72 6e 20 30 0d 09 09 |.....ret|urn 0...|
|000017d0| 09 09 7d 0d 09 09 09 7d | 0d 09 09 09 6c 61 70 70 |..}....}|....lapp|
|000017e0| 65 6e 64 20 73 63 72 69 | 70 74 20 5b 6c 69 73 74 |end scri|pt [list|
|000017f0| 20 63 6f 70 79 46 69 6c | 65 20 24 66 72 6f 6d 70 | copyFil|e $fromp|
|00001800| 61 74 68 20 24 74 6f 70 | 61 74 68 5d 0d 09 09 09 |ath $top|ath]....|
|00001810| 61 70 70 65 6e 64 20 72 | 65 70 6f 72 74 20 22 43 |append r|eport "C|
|00001820| 6f 70 69 65 64 20 66 69 | 6c 65 20 5c 22 24 66 69 |opied fi|le \"$fi|
|00001830| 6c 65 5c 22 20 66 72 6f | 6d 20 66 6f 6c 64 65 72 |le\" fro|m folder|
|00001840| 20 5c 22 24 69 6e 73 74 | 61 6c 6c 44 69 72 5c 22 | \"$inst|allDir\"|
|00001850| 20 74 6f 20 5c 22 24 64 | 69 72 5c 22 5c 6e 22 0d | to \"$d|ir\"\n".|
|00001860| 09 09 09 0d 09 09 09 69 | 66 20 7b 5b 66 69 6c 65 |.......i|f {[file|
|00001870| 20 65 78 74 65 6e 73 69 | 6f 6e 20 24 66 69 6c 65 | extensi|on $file|
|00001880| 5d 20 3d 3d 20 22 2e 74 | 63 6c 22 7d 20 7b 0d 09 |] == ".t|cl"} {..|
|00001890| 09 09 09 6c 61 70 70 65 | 6e 64 20 73 63 72 69 70 |...lappe|nd scrip|
|000018a0| 74 32 20 5b 6c 69 73 74 | 20 75 70 6c 65 76 65 6c |t2 [list| uplevel|
|000018b0| 20 7b 23 30 7d 20 5b 6c | 69 73 74 20 73 6f 75 72 | {#0} [l|ist sour|
|000018c0| 63 65 20 24 7b 48 4f 4d | 45 7d 24 74 6f 70 61 74 |ce ${HOM|E}$topat|
|000018d0| 68 5d 5d 0d 09 09 09 09 | 61 70 70 65 6e 64 20 72 |h]].....|append r|
|000018e0| 65 70 6f 72 74 32 20 22 | 4c 6f 61 64 65 64 20 74 |eport2 "|Loaded t|
|000018f0| 68 65 20 6e 65 77 20 66 | 69 6c 65 20 5c 22 24 66 |he new f|ile \"$f|
|00001900| 69 6c 65 5c 22 5c 6e 22 | 0d 09 09 09 7d 0d 09 09 |ile\"\n"|....}...|
|00001910| 7d 20 65 6c 73 65 20 7b | 0d 09 09 09 6d 65 73 73 |} else {|....mess|
|00001920| 61 67 65 20 22 49 6e 73 | 74 61 6c 6c 61 74 69 6f |age "Ins|tallatio|
|00001930| 6e 20 61 62 6f 72 74 65 | 64 20 2d 20 6e 6f 20 66 |n aborte|d - no f|
|00001940| 69 6c 65 73 20 77 65 72 | 65 20 6d 6f 76 65 64 20 |iles wer|e moved |
|00001950| 6f 72 20 64 65 6c 65 74 | 65 64 22 0d 09 09 09 61 |or delet|ed"....a|
|00001960| 6c 65 72 74 6e 6f 74 65 | 20 22 49 6e 73 74 61 6c |lertnote| "Instal|
|00001970| 6c 20 66 69 6c 65 20 5c | 22 24 66 69 6c 65 5c 22 |l file \|"$file\"|
|00001980| 20 69 73 20 6d 69 73 73 | 69 6e 67 22 0d 09 09 09 | is miss|ing"....|
|00001990| 72 65 74 75 72 6e 20 30 | 0d 09 09 7d 0d 09 7d 0d |return 0|...}..}.|
|000019a0| 0d 09 69 66 20 7b 5b 6c | 6c 65 6e 67 74 68 20 24 |..if {[l|length $|
|000019b0| 73 63 72 69 70 74 32 5d | 7d 20 7b 0d 23 20 63 6f |script2]|} {.# co|
|000019c0| 6d 6d 65 6e 74 20 6f 75 | 74 20 74 68 65 73 65 20 |mment ou|t these |
|000019d0| 6c 69 6e 65 73 20 74 6f | 20 73 74 6f 70 20 61 75 |lines to| stop au|
|000019e0| 74 6f 6d 61 74 69 63 20 | 73 6f 75 72 63 69 6e 67 |tomatic |sourcing|
|000019f0| 20 6f 66 20 6e 65 77 6c | 79 20 6c 6f 61 64 65 64 | of newl|y loaded|
|00001a00| 20 2e 74 63 6c 20 66 69 | 6c 65 73 0d 23 20 28 5f | .tcl fi|les.# (_|
|00001a10| 44 6f 6e 27 74 5f 20 63 | 68 61 6e 67 65 20 74 68 |Don't_ c|hange th|
|00001a20| 65 20 6c 69 6e 65 73 20 | 63 72 65 61 74 69 6e 67 |e lines |creating|
|00001a30| 20 24 73 63 72 69 70 74 | 32 2c 20 61 62 6f 76 65 | $script|2, above|
|00001a40| 29 0d 09 09 69 66 20 7b | 24 64 65 6c 65 74 65 42 |)...if {|$deleteB|
|00001a50| 69 6e 64 69 6e 67 73 20 | 21 3d 20 30 7d 20 7b 0d |indings |!= 0} {.|
|00001a60| 09 09 09 6c 61 70 70 65 | 6e 64 20 73 63 72 69 70 |...lappe|nd scrip|
|00001a70| 74 20 5b 6c 69 73 74 20 | 64 65 6c 65 74 65 4d 6f |t [list |deleteMo|
|00001a80| 64 65 42 69 6e 64 69 6e | 67 73 20 24 64 65 6c 65 |deBindin|gs $dele|
|00001a90| 74 65 42 69 6e 64 69 6e | 67 73 5d 0d 09 09 09 61 |teBindin|gs]....a|
|00001aa0| 70 70 65 6e 64 20 72 65 | 70 6f 72 74 20 22 5c 6e |ppend re|port "\n|
|00001ab0| 52 65 6d 6f 76 65 64 20 | 74 68 65 20 6f 6c 64 20 |Removed |the old |
|00001ac0| 24 7b 64 65 6c 65 74 65 | 42 69 6e 64 69 6e 67 73 |${delete|Bindings|
|00001ad0| 7d 2d 6d 6f 64 65 20 6b | 65 79 20 62 69 6e 64 69 |}-mode k|ey bindi|
|00001ae0| 6e 67 73 5c 6e 22 0d 09 | 09 7d 0d 09 09 73 65 74 |ngs\n"..|.}...set|
|00001af0| 20 73 63 72 69 70 74 20 | 5b 63 6f 6e 63 61 74 20 | script |[concat |
|00001b00| 24 73 63 72 69 70 74 20 | 24 73 63 72 69 70 74 32 |$script |$script2|
|00001b10| 5d 0d 09 09 61 70 70 65 | 6e 64 20 72 65 70 6f 72 |]...appe|nd repor|
|00001b20| 74 20 22 5c 6e 22 0d 09 | 09 61 70 70 65 6e 64 20 |t "\n"..|.append |
|00001b30| 72 65 70 6f 72 74 20 24 | 72 65 70 6f 72 74 32 0d |report $|report2.|
|00001b40| 23 0d 09 09 6c 61 70 70 | 65 6e 64 20 73 63 72 69 |#...lapp|end scri|
|00001b50| 70 74 20 5b 6c 69 73 74 | 20 6d 65 73 73 61 67 65 |pt [list| message|
|00001b60| 20 22 42 75 69 6c 64 69 | 6e 67 20 53 79 73 74 65 | "Buildi|ng Syste|
|00001b70| 6d 43 6f 64 65 20 69 6e | 64 65 78 c9 22 5d 0d 09 |mCode in|dex."]..|
|00001b80| 09 6c 61 70 70 65 6e 64 | 20 73 63 72 69 70 74 20 |.lappend| script |
|00001b90| 5b 6c 69 73 74 20 61 75 | 74 6f 5f 6d 6b 69 6e 64 |[list au|to_mkind|
|00001ba0| 65 78 20 3a 54 63 6c 3a | 53 79 73 74 65 6d 43 6f |ex :Tcl:|SystemCo|
|00001bb0| 64 65 20 2a 2e 74 63 6c | 5d 0d 09 09 61 70 70 65 |de *.tcl|]...appe|
|00001bc0| 6e 64 20 72 65 70 6f 72 | 74 20 22 5c 6e 55 70 64 |nd repor|t "\nUpd|
|00001bd0| 61 74 65 64 20 74 68 65 | 20 61 75 74 6f 2d 6c 6f |ated the| auto-lo|
|00001be0| 61 64 65 72 20 69 6e 64 | 65 78 20 66 69 6c 65 73 |ader ind|ex files|
|00001bf0| 5c 6e 22 0d 09 7d 0d 09 | 0d 23 20 23 20 55 6e 63 |\n"..}..|.# # Unc|
|00001c00| 6f 6d 6d 65 6e 74 20 74 | 68 65 73 65 20 6c 69 6e |omment t|hese lin|
|00001c10| 65 73 20 74 6f 20 67 65 | 74 20 61 20 70 6c 61 79 |es to ge|t a play|
|00001c20| 2d 62 79 2d 70 6c 61 79 | 20 6f 66 20 74 68 65 20 |-by-play| of the |
|00001c30| 69 6e 73 74 61 6c 6c 61 | 74 69 6f 6e 20 70 72 6f |installa|tion pro|
|00001c40| 63 65 64 75 72 65 20 0d | 23 20 23 0d 23 09 6e 65 |cedure .|# #.#.ne|
|00001c50| 77 20 2d 6e 20 22 2a 20 | 49 6e 73 74 61 6c 6c 20 |w -n "* |Install |
|00001c60| 53 63 72 69 70 74 20 2a | 22 0d 09 66 6f 72 65 61 |Script *|"..forea|
|00001c70| 63 68 20 69 74 65 6d 20 | 24 73 63 72 69 70 74 20 |ch item |$script |
|00001c80| 7b 0d 23 09 69 6e 73 65 | 72 74 54 65 78 74 20 22 |{.#.inse|rtText "|
|00001c90| 24 69 74 65 6d 5c 6e 22 | 0d 09 09 65 76 61 6c 20 |$item\n"|...eval |
|00001ca0| 24 69 74 65 6d 0d 09 7d | 0d 23 09 63 61 74 63 68 |$item..}|.#.catch|
|00001cb0| 20 7b 73 68 72 69 6e 6b | 57 69 6e 64 6f 77 20 31 | {shrink|Window 1|
|00001cc0| 7d 0d 23 09 73 65 74 57 | 69 6e 49 6e 66 6f 20 64 |}.#.setW|inInfo d|
|00001cd0| 69 72 74 79 20 30 0d 09 | 0d 09 6e 65 77 20 2d 6e |irty 0..|..new -n|
|00001ce0| 20 22 2a 20 49 6e 73 74 | 61 6c 6c 61 74 69 6f 6e | "* Inst|allation|
|00001cf0| 20 52 65 70 6f 72 74 20 | 2a 22 0d 09 69 6e 73 65 | Report |*"..inse|
|00001d00| 72 74 54 65 78 74 20 24 | 72 65 70 6f 72 74 0d 09 |rtText $|report..|
|00001d10| 63 61 74 63 68 20 7b 73 | 68 72 69 6e 6b 57 69 6e |catch {s|hrinkWin|
|00001d20| 64 6f 77 20 31 7d 0d 09 | 73 65 74 57 69 6e 49 6e |dow 1}..|setWinIn|
|00001d30| 66 6f 20 64 69 72 74 79 | 20 30 0d 09 73 65 74 57 |fo dirty| 0..setW|
|00001d40| 69 6e 49 6e 66 6f 20 72 | 65 61 64 2d 6f 6e 6c 79 |inInfo r|ead-only|
|00001d50| 20 31 0d 0d 09 72 65 74 | 75 72 6e 20 24 72 65 70 | 1...ret|urn $rep|
|00001d60| 6f 72 74 0d 7d 0d 0d 70 | 72 6f 63 20 63 6c 6f 73 |ort.}..p|roc clos|
|00001d70| 65 49 6e 73 74 61 6c 6c | 46 69 6c 65 20 7b 66 69 |eInstall|File {fi|
|00001d80| 6c 65 7d 20 7b 0d 09 69 | 66 20 7b 5b 6c 73 65 61 |le} {..i|f {[lsea|
|00001d90| 72 63 68 20 2d 65 78 61 | 63 74 20 5b 77 69 6e 4e |rch -exa|ct [winN|
|00001da0| 61 6d 65 73 5d 20 24 66 | 69 6c 65 5d 20 3e 3d 20 |ames] $f|ile] >= |
|00001db0| 30 7d 20 7b 0d 09 09 73 | 65 74 20 72 65 70 6c 79 |0} {...s|et reply|
|00001dc0| 20 5b 61 73 6b 79 65 73 | 6e 6f 20 2d 63 20 22 43 | [askyes|no -c "C|
|00001dd0| 6c 6f 73 65 20 66 69 6c | 65 20 24 66 69 6c 65 20 |lose fil|e $file |
|00001de0| 62 65 66 6f 72 65 20 69 | 6e 73 74 61 6c 6c 69 6e |before i|nstallin|
|00001df0| 67 3f 22 5d 0d 09 09 69 | 66 20 7b 24 72 65 70 6c |g?"]...i|f {$repl|
|00001e00| 79 20 3d 3d 20 22 79 65 | 73 22 7d 20 7b 0d 09 09 |y == "ye|s"} {...|
|00001e10| 09 62 72 69 6e 67 54 6f | 46 72 6f 6e 74 20 24 66 |.bringTo|Front $f|
|00001e20| 69 6c 65 0d 09 09 09 6b | 69 6c 6c 57 69 6e 64 6f |ile....k|illWindo|
|00001e30| 77 0d 09 09 7d 20 0d 09 | 09 69 66 20 7b 24 72 65 |w...} ..|.if {$re|
|00001e40| 70 6c 79 20 3d 3d 20 22 | 63 61 6e 63 65 6c 22 20 |ply == "|cancel" |
|00001e50| 7c 7c 20 0d 09 09 20 20 | 20 20 28 24 72 65 70 6c ||| ...  |  ($repl|
|00001e60| 79 20 3d 3d 20 22 79 65 | 73 22 20 26 26 20 5b 6c |y == "ye|s" && [l|
|00001e70| 73 65 61 72 63 68 20 2d | 65 78 61 63 74 20 5b 77 |search -|exact [w|
|00001e80| 69 6e 4e 61 6d 65 73 5d | 20 24 66 69 6c 65 5d 20 |inNames]| $file] |
|00001e90| 3e 3d 20 30 29 7d 20 7b | 0d 09 09 09 6d 65 73 73 |>= 0)} {|....mess|
|00001ea0| 61 67 65 20 22 4e 6f 20 | 66 69 6c 65 73 20 77 65 |age "No |files we|
|00001eb0| 72 65 20 6d 6f 76 65 64 | 20 6f 72 20 64 65 6c 65 |re moved| or dele|
|00001ec0| 74 65 64 22 0d 09 09 09 | 72 65 74 75 72 6e 20 22 |ted"....|return "|
|00001ed0| 63 61 6e 63 65 6c 22 0d | 09 20 20 20 20 7d 0d 09 |cancel".|.    }..|
|00001ee0| 7d 0d 09 72 65 74 75 72 | 6e 20 22 22 0d 7d 0d 00 |}..retur|n "".}..|
|00001ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f00| 00 00 01 00 00 00 01 7a | 00 00 00 7a 00 00 00 42 |.......z|...z...B|
|00001f10| 00 03 00 03 00 03 00 03 | 00 03 00 03 00 03 00 03 |........|........|
|00001f20| 00 03 00 03 00 03 00 03 | 00 03 00 03 00 03 00 03 |........|........|
|00001f30| 0d 6c 6f 61 64 4c 61 54 | 65 58 2e 74 63 6c 02 00 |.loadLaT|eX.tcl..|
|00001f40| 00 00 54 45 58 54 41 4c | 46 41 00 00 00 00 00 00 |..TEXTAL|FA......|
|00001f50| 00 00 54 45 58 54 41 4c | 46 41 00 00 00 00 00 00 |..TEXTAL|FA......|
|00001f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f70| 00 00 aa a1 25 ba 00 00 | 1e 6f 00 00 01 bc 00 03 |....%...|.o......|
|00001f80| 00 03 00 03 00 03 00 03 | 00 03 00 03 00 03 00 03 |........|........|
|00001f90| 00 03 00 03 00 03 00 03 | 00 03 00 03 00 03 00 03 |........|........|
|00001fa0| 00 03 00 03 00 03 00 03 | 00 03 00 03 00 03 00 03 |........|........|
|00001fb0| 00 03 00 03 00 03 00 03 | 00 03 00 03 00 03 00 03 |........|........|
|00001fc0| 00 03 00 03 00 03 00 03 | 00 03 00 03 00 03 00 03 |........|........|
|00001fd0| 00 03 00 03 00 03 00 03 | 00 03 00 03 00 03 00 03 |........|........|
|00001fe0| 00 03 00 03 00 03 00 03 | 00 03 00 03 00 03 00 03 |........|........|
|00001ff0| 00 03 00 03 00 03 00 03 | 00 03 00 03 00 03 00 03 |........|........|
|00002000| 00 00 00 2a 00 02 00 00 | 0d 93 00 00 0d 93 0d 69 |...*....|.......i|
|00002010| 6e 73 74 61 6c 6c 46 69 | 6c 65 73 00 00 00 01 51 |nstallFi|les....Q|
|00002020| 00 00 01 51 09 6c 6f 61 | 64 4c 61 54 65 58 00 00 |...Q.loa|dLaTeX..|
|00002030| 00 48 00 09 4d 6f 6e 61 | 63 6f 00 00 00 c7 f5 c8 |.H..Mona|co......|
|00002040| 00 00 00 00 00 e7 36 18 | 00 04 d0 92 03 06 00 cc |......6.|........|
|00002050| d8 0c 00 00 00 04 00 04 | 00 28 00 02 01 cd 02 65 |........|.(.....e|
|00002060| 00 28 00 02 01 cd 02 65 | ac 07 d7 e7 00 00 0c 85 |.(.....e|........|
|00002070| 00 00 0c 85 00 00 1b 77 | 01 00 00 00 01 00 00 00 |.......w|........|
|00002080| 01 7a 00 00 00 7a 00 00 | 00 42 00 c7 f5 c8 12 5e |.z...z..|.B.....^|
|00002090| 00 00 00 1c 00 3e 00 00 | 4d 50 53 52 00 01 00 0a |.....>..|MPSR....|
|000020a0| 03 ef 00 00 00 00 00 00 | 00 00 00 00 03 ed ff ff |........|........|
|000020b0| 00 00 00 2e 00 c8 24 bc | 03 74 61 62 00 00 00 00 |......$.|.tab....|
|000020c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+