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

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 70 61 74 68 73 2e | 74 63 6c 00 00 00 00 00 |..paths.|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 08 06 00 | 00 01 7e ac 2d 70 b5 ac |........|..~.-p..|
|00000060| 2d 70 b5 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |-p......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 81 71 00 00 |........|.....q..|
|00000080| 0d 23 20 41 6e 79 20 64 | 69 72 65 63 74 6f 72 79 |.# Any d|irectory|
|00000090| 20 6d 75 73 74 20 68 61 | 76 65 20 27 66 6f 6c 64 | must ha|ve 'fold|
|000000a0| 65 72 27 20 73 6f 6d 65 | 77 68 65 72 65 20 69 6e |er' some|where in|
|000000b0| 20 74 68 65 20 63 6f 6d | 6d 65 6e 74 2e 0d 73 65 | the com|ment..se|
|000000c0| 74 20 70 61 74 68 43 6f | 6d 6d 65 6e 74 73 28 74 |t pathCo|mments(t|
|000000d0| 65 78 50 61 74 68 29 09 | 09 22 54 65 58 20 61 70 |exPath).|."TeX ap|
|000000e0| 70 6c 69 63 61 74 69 6f | 6e 22 0d 73 65 74 20 70 |plicatio|n".set p|
|000000f0| 61 74 68 43 6f 6d 6d 65 | 6e 74 73 28 54 65 58 49 |athComme|nts(TeXI|
|00000100| 6e 70 75 74 73 29 09 09 | 22 54 65 58 20 49 6e 70 |nputs)..|"TeX Inp|
|00000110| 75 74 73 20 66 6f 6c 64 | 65 72 22 0d 73 65 74 20 |uts fold|er".set |
|00000120| 70 61 74 68 43 6f 6d 6d | 65 6e 74 73 28 62 69 62 |pathComm|ents(bib|
|00000130| 74 65 78 50 61 74 68 29 | 09 22 42 69 62 54 65 58 |texPath)|."BibTeX|
|00000140| 22 0d 73 65 74 20 70 61 | 74 68 43 6f 6d 6d 65 6e |".set pa|thCommen|
|00000150| 74 73 28 63 64 50 61 74 | 68 29 09 09 22 43 6f 64 |ts(cdPat|h).."Cod|
|00000160| 65 57 61 72 72 69 6f 72 | 20 44 65 62 75 67 67 65 |eWarrior| Debugge|
|00000170| 72 22 0d 73 65 74 20 70 | 61 74 68 53 69 67 28 63 |r".set p|athSig(c|
|00000180| 64 50 61 74 68 29 09 09 | 09 09 22 63 77 64 53 69 |dPath)..|.."cwdSi|
|00000190| 67 22 0d 73 65 74 20 70 | 61 74 68 43 6f 6d 6d 65 |g".set p|athComme|
|000001a0| 6e 74 73 28 63 77 50 61 | 74 68 29 09 09 22 43 6f |nts(cwPa|th).."Co|
|000001b0| 64 65 57 61 72 72 69 6f | 72 20 43 6f 6d 70 69 6c |deWarrio|r Compil|
|000001c0| 65 72 22 0d 73 65 74 20 | 70 61 74 68 53 69 67 28 |er".set |pathSig(|
|000001d0| 63 77 50 61 74 68 29 09 | 09 09 09 22 63 77 53 69 |cwPath).|..."cwSi|
|000001e0| 67 22 0d 73 65 74 20 70 | 61 74 68 43 6f 6d 6d 65 |g".set p|athComme|
|000001f0| 6e 74 73 28 65 78 63 61 | 6c 69 62 75 72 50 61 74 |nts(exca|liburPat|
|00000200| 68 29 09 22 45 78 63 61 | 6c 69 62 75 72 20 53 70 |h)."Exca|libur Sp|
|00000210| 65 6c 6c 63 68 65 63 6b | 65 72 22 0d 73 65 74 20 |ellcheck|er".set |
|00000220| 70 61 74 68 43 6f 6d 6d | 65 6e 74 73 28 6d 61 63 |pathComm|ents(mac|
|00000230| 70 65 72 6c 50 61 74 68 | 29 09 22 4d 61 63 50 65 |perlPath|)."MacPe|
|00000240| 72 6c 22 0d 73 65 74 20 | 70 61 74 68 43 6f 6d 6d |rl".set |pathComm|
|00000250| 65 6e 74 73 28 70 65 72 | 6c 46 69 6c 74 65 72 50 |ents(per|lFilterP|
|00000260| 61 74 68 29 20 09 22 4d | 61 63 50 65 72 6c 20 54 |ath) ."M|acPerl T|
|00000270| 65 78 74 20 46 69 6c 74 | 65 72 73 20 66 6f 6c 64 |ext Filt|ers fold|
|00000280| 65 72 22 0d 73 65 74 20 | 70 61 74 68 43 6f 6d 6d |er".set |pathComm|
|00000290| 65 6e 74 73 28 70 65 72 | 6c 4c 69 62 29 20 09 09 |ents(per|lLib) ..|
|000002a0| 22 4d 61 63 50 65 72 6c | 20 6c 69 62 20 66 6f 6c |"MacPerl| lib fol|
|000002b0| 64 65 72 22 0d 73 65 74 | 20 70 61 74 68 43 6f 6d |der".set| pathCom|
|000002c0| 6d 65 6e 74 73 28 72 65 | 66 65 72 65 6e 63 65 50 |ments(re|ferenceP|
|000002d0| 61 74 68 29 09 22 54 68 | 69 6e 6b 20 52 65 66 65 |ath)."Th|ink Refe|
|000002e0| 72 65 6e 63 65 22 0d 73 | 65 74 20 70 61 74 68 43 |rence".s|et pathC|
|000002f0| 6f 6d 6d 65 6e 74 73 28 | 74 61 73 73 50 61 74 68 |omments(|tassPath|
|00000300| 29 09 09 22 54 6f 6f 6c | 62 6f 78 20 41 73 73 69 |).."Tool|box Assi|
|00000310| 73 74 61 6e 74 22 0d 73 | 65 74 20 70 61 74 68 43 |stant".s|et pathC|
|00000320| 6f 6d 6d 65 6e 74 73 28 | 6b 6f 64 65 78 50 61 74 |omments(|kodexPat|
|00000330| 68 29 09 09 22 4b 6f 64 | 65 78 20 43 20 50 72 65 |h).."Kod|ex C Pre|
|00000340| 74 74 79 20 50 72 69 6e | 74 65 72 22 0d 73 65 74 |tty Prin|ter".set|
|00000350| 20 70 61 74 68 43 6f 6d | 6d 65 6e 74 73 28 65 6e | pathCom|ments(en|
|00000360| 73 63 72 69 70 74 6f 72 | 50 61 74 68 29 20 22 45 |scriptor|Path) "E|
|00000370| 6e 73 63 72 69 70 74 6f | 72 20 46 61 6e 63 79 20 |nscripto|r Fancy |
|00000380| 50 72 69 6e 74 65 72 22 | 0d 73 65 74 20 70 61 74 |Printer"|.set pat|
|00000390| 68 43 6f 6d 6d 65 6e 74 | 73 28 64 72 6f 70 70 73 |hComment|s(dropps|
|000003a0| 50 61 74 68 29 09 22 44 | 72 6f 70 a5 50 53 22 0d |Path)."D|rop.PS".|
|000003b0| 73 65 74 20 70 61 74 68 | 43 6f 6d 6d 65 6e 74 73 |set path|Comments|
|000003c0| 28 73 79 6d 50 61 74 68 | 29 09 09 22 53 79 6d 61 |(symPath|).."Syma|
|000003d0| 6e 74 65 63 20 50 72 6f | 6a 65 63 74 20 4d 61 6e |ntec Pro|ject Man|
|000003e0| 61 67 65 72 22 0d 73 65 | 74 20 70 61 74 68 43 6f |ager".se|t pathCo|
|000003f0| 6d 6d 65 6e 74 73 28 73 | 79 6d 44 62 67 50 61 74 |mments(s|ymDbgPat|
|00000400| 68 29 09 22 53 79 6d 61 | 6e 74 65 63 20 44 65 62 |h)."Syma|ntec Deb|
|00000410| 75 67 67 65 72 22 0d 0d | 0d 0d 73 65 74 20 74 6d |ugger"..|..set tm|
|00000420| 70 20 7b 7d 0d 66 6f 72 | 65 61 63 68 20 6e 20 5b |p {}.for|each n [|
|00000430| 61 72 72 61 79 20 6e 61 | 6d 65 73 20 70 61 74 68 |array na|mes path|
|00000440| 43 6f 6d 6d 65 6e 74 73 | 5d 20 7b 0d 09 6c 61 70 |Comments|] {..lap|
|00000450| 70 65 6e 64 20 74 6d 70 | 20 24 70 61 74 68 43 6f |pend tmp| $pathCo|
|00000460| 6d 6d 65 6e 74 73 28 24 | 6e 29 0d 7d 0d 6d 65 6e |mments($|n).}.men|
|00000470| 75 20 2d 6e 20 61 70 70 | 50 61 74 68 73 20 2d 6d |u -n app|Paths -m|
|00000480| 20 2d 70 20 70 61 74 68 | 50 72 6f 63 20 5b 6c 73 | -p path|Proc [ls|
|00000490| 6f 72 74 20 24 74 6d 70 | 5d 0d 75 6e 73 65 74 20 |ort $tmp|].unset |
|000004a0| 74 6d 70 0d 0d 0d 23 3d | 3d 3d 3d 3d 3d 3d 3d 3d |tmp...#=|========|
|000004b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000004c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000004d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000004e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000004f0| 3d 3d 3d 3d 3d 3d 0d 0d | 70 72 6f 63 20 70 61 74 |======..|proc pat|
|00000500| 68 50 72 6f 63 20 7b 6d | 65 6e 75 20 63 6f 6d 6d |hProc {m|enu comm|
|00000510| 65 6e 74 7d 20 7b 0d 09 | 67 6c 6f 62 61 6c 20 70 |ent} {..|global p|
|00000520| 61 74 68 43 6f 6d 6d 65 | 6e 74 73 20 6d 6f 64 69 |athComme|nts modi|
|00000530| 66 69 65 64 56 61 72 73 | 20 70 61 74 68 53 69 67 |fiedVars| pathSig|
|00000540| 0d 0d 09 66 6f 72 65 61 | 63 68 20 70 61 74 68 20 |...forea|ch path |
|00000550| 5b 61 72 72 61 79 20 6e | 61 6d 65 73 20 70 61 74 |[array n|ames pat|
|00000560| 68 43 6f 6d 6d 65 6e 74 | 73 5d 20 7b 0d 09 09 69 |hComment|s] {...i|
|00000570| 66 20 7b 24 70 61 74 68 | 43 6f 6d 6d 65 6e 74 73 |f {$path|Comments|
|00000580| 28 24 70 61 74 68 29 20 | 3d 3d 20 24 63 6f 6d 6d |($path) |== $comm|
|00000590| 65 6e 74 7d 20 7b 0d 09 | 09 09 67 6c 6f 62 61 6c |ent} {..|..global|
|000005a0| 20 24 70 61 74 68 09 09 | 09 09 0d 09 09 09 69 66 | $path..|......if|
|000005b0| 20 7b 5b 69 6e 66 6f 20 | 65 78 69 73 74 73 20 24 | {[info |exists $|
|000005c0| 70 61 74 68 5d 7d 20 7b | 0d 09 09 09 09 73 65 74 |path]} {|.....set|
|000005d0| 20 72 65 73 20 5b 62 75 | 74 74 6f 6e 41 6c 65 72 | res [bu|ttonAler|
|000005e0| 74 20 22 24 70 61 74 68 | 43 6f 6d 6d 65 6e 74 73 |t "$path|Comments|
|000005f0| 28 24 70 61 74 68 29 3a | 5c 72 5b 73 65 74 20 24 |($path):|\r[set $|
|00000600| 70 61 74 68 5d 22 20 4f | 4b 20 43 68 61 6e 67 65 |path]" O|K Change|
|00000610| 20 52 65 6d 6f 76 65 5d | 0d 09 09 09 7d 20 65 6c | Remove]|....} el|
|00000620| 73 65 20 7b 0d 09 09 09 | 09 73 65 74 20 72 65 73 |se {....|.set res|
|00000630| 20 5b 62 75 74 74 6f 6e | 41 6c 65 72 74 20 22 27 | [button|Alert "'|
|00000640| 24 70 61 74 68 27 20 6e | 6f 74 20 73 65 74 3a 22 |$path' n|ot set:"|
|00000650| 20 4f 4b 20 53 65 74 20 | 52 65 6d 6f 76 65 5d 0d | OK Set |Remove].|
|00000660| 09 09 09 7d 0d 09 09 09 | 73 77 69 74 63 68 20 24 |...}....|switch $|
|00000670| 72 65 73 20 7b 0d 09 09 | 09 09 22 53 65 74 22 09 |res {...|.."Set".|
|00000680| 09 22 2d 22 0d 09 09 09 | 09 22 43 68 61 6e 67 65 |."-"....|."Change|
|00000690| 22 20 09 7b 20 09 69 66 | 20 7b 5b 72 65 67 65 78 |" .{ .if| {[regex|
|000006a0| 70 20 2d 6e 6f 63 61 73 | 65 20 7b 2e 2a 66 6f 6c |p -nocas|e {.*fol|
|000006b0| 64 65 72 2e 2a 7d 20 24 | 70 61 74 68 43 6f 6d 6d |der.*} $|pathComm|
|000006c0| 65 6e 74 73 28 24 70 61 | 74 68 29 5d 7d 20 7b 0d |ents($pa|th)]} {.|
|000006d0| 09 09 09 09 09 09 09 09 | 09 73 65 74 20 24 70 61 |........|.set $pa|
|000006e0| 74 68 20 5b 67 65 74 5f | 64 69 72 65 63 74 6f 72 |th [get_|director|
|000006f0| 79 20 2d 70 20 22 53 65 | 6c 65 63 74 20 24 70 61 |y -p "Se|lect $pa|
|00000700| 74 68 43 6f 6d 6d 65 6e | 74 73 28 24 70 61 74 68 |thCommen|ts($path|
|00000710| 29 3a 22 5d 0d 09 09 09 | 09 09 09 09 09 7d 20 65 |):"]....|.....} e|
|00000720| 6c 73 65 20 7b 0d 09 09 | 09 09 09 09 09 09 09 73 |lse {...|.......s|
|00000730| 65 74 20 24 70 61 74 68 | 20 5b 67 65 74 66 69 6c |et $path| [getfil|
|00000740| 65 20 22 53 65 6c 65 63 | 74 20 24 70 61 74 68 43 |e "Selec|t $pathC|
|00000750| 6f 6d 6d 65 6e 74 73 28 | 24 70 61 74 68 29 3a 22 |omments(|$path):"|
|00000760| 5d 0d 09 09 09 09 09 09 | 09 09 7d 0d 09 09 09 09 |].......|..}.....|
|00000770| 0d 09 09 09 09 09 09 09 | 09 6c 61 70 70 65 6e 64 |........|.lappend|
|00000780| 20 6d 6f 64 69 66 69 65 | 64 56 61 72 73 20 24 70 | modifie|dVars $p|
|00000790| 61 74 68 0d 09 09 09 09 | 09 09 09 09 69 66 20 7b |ath.....|....if {|
|000007a0| 5b 69 6e 66 6f 20 65 78 | 69 73 74 73 20 70 61 74 |[info ex|ists pat|
|000007b0| 68 53 69 67 28 24 70 61 | 74 68 29 5d 7d 20 7b 0d |hSig($pa|th)]} {.|
|000007c0| 09 09 09 09 09 09 09 09 | 67 6c 6f 62 61 6c 20 24 |........|global $|
|000007d0| 70 61 74 68 53 69 67 28 | 24 70 61 74 68 29 0d 09 |pathSig(|$path)..|
|000007e0| 09 09 09 09 09 09 09 73 | 65 74 20 24 70 61 74 68 |.......s|et $path|
|000007f0| 53 69 67 28 24 70 61 74 | 68 29 20 5b 67 65 74 46 |Sig($pat|h) [getF|
|00000800| 69 6c 65 53 69 67 20 5b | 73 65 74 20 24 70 61 74 |ileSig [|set $pat|
|00000810| 68 5d 5d 0d 09 09 09 09 | 09 09 09 09 6c 61 70 70 |h]].....|....lapp|
|00000820| 65 6e 64 20 6d 6f 64 69 | 66 69 65 64 56 61 72 73 |end modi|fiedVars|
|00000830| 20 24 70 61 74 68 53 69 | 67 28 24 70 61 74 68 29 | $pathSi|g($path)|
|00000840| 0d 09 09 09 09 09 09 09 | 7d 0d 09 09 09 09 7d 0d |........|}.....}.|
|00000850| 09 09 09 09 22 52 65 6d | 6f 76 65 22 09 7b 20 73 |...."Rem|ove".{ s|
|00000860| 65 74 20 24 70 61 74 68 | 20 7b 7d 20 7d 0d 09 09 |et $path| {} }...|
|00000870| 09 7d 0d 09 09 09 72 65 | 74 75 72 6e 0d 09 09 7d |.}....re|turn...}|
|00000880| 0d 09 7d 0d 7d 0d 00 00 | 00 00 00 00 00 00 00 00 |..}.}...|........|
|00000890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000900| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000910| 70 65 63 69 61 6c 56 61 | 72 73 20 24 74 65 78 74 |pecialVa|rs $text|
|00000920| 5d 20 3e 3d 20 30 7d 20 | 7b 0d 09 09 69 66 20 7b |] >= 0} |{...if {|
|00000930| 09 70 61 74 68 73 2e 74 | 63 6c 02 00 00 00 54 45 |.paths.t|cl....TE|
|00000940| 58 54 41 4c 46 41 00 00 | 00 00 00 00 00 00 00 01 |XTALFA..|........|
|00000950| 00 00 54 45 58 54 41 4c | 46 41 00 00 00 00 00 00 |..TEXTAL|FA......|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 ac 2d 38 74 00 00 | 08 06 00 00 01 7e 61 6e |...-8t..|.....~an|
|00000980| 64 73 22 0d 09 09 7d 20 | 65 6c 73 65 20 7b 0d 09 |ds"...} |else {..|
|00000990| 09 09 65 64 69 74 20 22 | 24 48 4f 4d 45 3a 48 65 |..edit "|$HOME:He|
|000009a0| 6c 70 3a 50 65 72 6c 20 | 43 6f 6d 6d 61 6e 64 73 |lp:Perl |Commands|
|000009b0| 22 0d 09 09 7d 0d 09 09 | 69 66 20 7b 21 5b 63 61 |"...}...|if {![ca|
|000009c0| 74 63 68 20 7b 73 65 61 | 72 63 68 20 2d 66 20 30 |tch {sea|rch -f 0|
|000009d0| 20 2d 72 20 30 20 2d 6d | 20 30 20 2d 69 20 30 20 | -r 0 -m| 0 -i 0 |
|000009e0| 2d 73 20 22 20 20 20 20 | 20 24 74 65 78 74 20 20 |-s "    | $text  |
|000009f0| 22 20 5b 6d 61 78 50 6f | 73 5d 7d 20 6d 74 63 68 |" [maxPo|s]} mtch|
|00000a00| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 f4 80 |...H..Mo|naco....|
|00000a10| 00 00 14 f0 00 f8 fd 7c | 01 17 a2 e0 24 00 04 44 |.......||....$..D|
|00000a20| 01 5c 9d 00 ff fc 00 04 | 00 04 00 28 00 02 02 5c |.\......|...(...\|
|00000a30| 03 1a 00 28 00 02 02 5c | 03 1a ac 2d 38 77 00 00 |...(...\|...-8w..|
|00000a40| 00 01 00 00 00 01 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|00000a50| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 f7 73 08 |...L...L|...2..s.|
|00000a60| 14 f0 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00000a70| 00 0a 03 ed ff ff 00 00 | 00 00 01 00 f6 2c 00 00 |........|.....,..|
+--------+-------------------------+-------------------------+--------+--------+