Artifact e805eb920349531ebe4e44c588d424dee4c0e816:

• File pkgIndex.tcl — part of check-in [0a35f2eba3] at 2003-05-30 16:38:47 on branch trunk — Changes for version 3.0 (user: ramsan size: 670)

0000: 0a 73 65 74 20 56 65 72 73 69 6f 6e 20 33 2e 30  .set Version 3.0
0010: 0a 0a 70 72 6f 63 20 4c 6f 61 64 52 61 6d 44 65  ..proc LoadRamDe
0020: 62 75 67 67 65 72 20 7b 20 64 69 72 20 7d 20 7b  bugger { dir } {
0030: 0a 0a 20 20 20 20 69 66 20 7b 20 5b 69 6e 74 65  ..    if { [inte
0040: 72 70 20 65 78 69 73 74 73 20 72 61 6d 64 65 62  rp exists ramdeb
0050: 75 67 67 65 72 5d 20 7d 20 7b 20 69 6e 74 65 72  ugger] } { inter
0060: 70 20 64 65 6c 65 74 65 20 72 61 6d 64 65 62 75  p delete ramdebu
0070: 67 67 65 72 20 7d 0a 20 20 20 20 69 6e 74 65 72  gger }.    inter
0080: 70 20 63 72 65 61 74 65 20 72 61 6d 64 65 62 75  p create ramdebu
0090: 67 67 65 72 0a 20 20 20 20 69 6e 74 65 72 70 20  gger.    interp 
00a0: 61 6c 69 61 73 20 72 61 6d 64 65 62 75 67 67 65  alias ramdebugge
00b0: 72 20 6d 61 73 74 65 72 20 22 22 20 65 76 61 6c  r master "" eval
00c0: 0a 20 20 20 20 72 61 6d 64 65 62 75 67 67 65 72  .    ramdebugger
00d0: 20 65 76 61 6c 20 5b 6c 69 73 74 20 6c 6f 61 64   eval [list load
00e0: 20 7b 7d 20 54 6b 5d 0a 20 20 20 20 72 61 6d 64   {} Tk].    ramd
00f0: 65 62 75 67 67 65 72 20 65 76 61 6c 20 7b 20 73  ebugger eval { s
0100: 65 74 20 61 72 67 63 20 30 20 3b 20 73 65 74 20  et argc 0 ; set 
0110: 61 72 67 76 20 22 22 20 7d 0a 20 20 20 20 72 61  argv "" }.    ra
0120: 6d 64 65 62 75 67 67 65 72 20 65 76 61 6c 20 5b  mdebugger eval [
0130: 6c 69 73 74 20 73 65 74 20 61 75 74 6f 5f 70 61  list set auto_pa
0140: 74 68 20 24 3a 3a 61 75 74 6f 5f 70 61 74 68 5d  th $::auto_path]
0150: 0a 20 20 20 20 72 61 6d 64 65 62 75 67 67 65 72  .    ramdebugger
0160: 20 65 76 61 6c 20 5b 6c 69 73 74 20 73 65 74 20   eval [list set 
0170: 61 72 67 76 30 20 5b 66 69 6c 65 20 6a 6f 69 6e  argv0 [file join
0180: 20 24 64 69 72 20 52 61 6d 44 65 62 75 67 67 65   $dir RamDebugge
0190: 72 2e 74 63 6c 5d 5d 0a 20 20 20 20 72 61 6d 64  r.tcl]].    ramd
01a0: 65 62 75 67 67 65 72 20 65 76 61 6c 20 5b 6c 69  ebugger eval [li
01b0: 73 74 20 73 6f 75 72 63 65 20 5b 66 69 6c 65 20  st source [file 
01c0: 6a 6f 69 6e 20 24 64 69 72 20 52 61 6d 44 65 62  join $dir RamDeb
01d0: 75 67 67 65 72 2e 74 63 6c 5d 5d 0a 20 20 20 20  ugger.tcl]].    
01e0: 70 61 63 6b 61 67 65 20 70 72 6f 76 69 64 65 20  package provide 
01f0: 52 61 6d 44 65 62 75 67 67 65 72 20 24 3a 3a 56  RamDebugger $::V
0200: 65 72 73 69 6f 6e 0a 20 20 20 20 75 70 64 61 74  ersion.    updat
0210: 65 20 69 64 6c 65 74 61 73 6b 73 0a 7d 0a 69 66  e idletasks.}.if
0220: 20 7b 21 5b 70 61 63 6b 61 67 65 20 76 73 61 74   {![package vsat
0230: 69 73 66 69 65 73 20 5b 70 61 63 6b 61 67 65 20  isfies [package 
0240: 70 72 6f 76 69 64 65 20 54 63 6c 5d 20 38 2e 33  provide Tcl] 8.3
0250: 5d 7d 20 7b 72 65 74 75 72 6e 7d 0a 70 61 63 6b  ]} {return}.pack
0260: 61 67 65 20 69 66 6e 65 65 64 65 64 20 52 61 6d  age ifneeded Ram
0270: 44 65 62 75 67 67 65 72 20 24 56 65 72 73 69 6f  Debugger $Versio
0280: 6e 20 5b 6c 69 73 74 20 4c 6f 61 64 52 61 6d 44  n [list LoadRamD
0290: 65 62 75 67 67 65 72 20 24 64 69 72 5d 0a        ebugger $dir].