made PLT archive
svn: r158
This commit is contained in:
parent
fb7e8319bf
commit
cb87da8e26
|
@ -1,6 +1,7 @@
|
||||||
(module info (lib "infotab.ss" "setup")
|
(module info (lib "infotab.ss" "setup")
|
||||||
(define name "Debugger")
|
(define name "Debugger")
|
||||||
(define tools '(("debugger-tool.ss")))
|
(define tools '(("debugger-tool.ss")))
|
||||||
|
(define blurb '("MzTake is a scripted debugger for PLT Scheme."))
|
||||||
(define tool-names '("MzTake Debugger"))
|
(define tool-names '("MzTake Debugger"))
|
||||||
(define tool-icons '(("emblem-ohno.png" "mztake")))
|
(define tool-icons '(("emblem-ohno.png" "mztake")))
|
||||||
)
|
)
|
||||||
|
|
17
collects/mztake/make-plt.ss
Normal file
17
collects/mztake/make-plt.ss
Normal file
|
@ -0,0 +1,17 @@
|
||||||
|
(module make-plt mzscheme
|
||||||
|
|
||||||
|
(require (lib "pack.ss" "setup")
|
||||||
|
(lib "util.ss" "planet"))
|
||||||
|
|
||||||
|
(define (my-filter path)
|
||||||
|
(and (std-filter path)
|
||||||
|
(not (or (regexp-match #rx".svn$" path)
|
||||||
|
(regexp-match #rx".bak$" path)
|
||||||
|
(regexp-match #rx".1$" path)
|
||||||
|
(regexp-match #rx"make" path)))))
|
||||||
|
|
||||||
|
|
||||||
|
(pack-collections "mztake.plt" "MzTake Debugger" '(("mztake")) #t '(("frtime") ("stepper")) my-filter #t))
|
||||||
|
|
||||||
|
; Now, check-out
|
||||||
|
;(make-planet-archive "mztake.plt"))
|
|
@ -1,14 +1,8 @@
|
||||||
(module mztake mzscheme
|
(module mztake mzscheme
|
||||||
|
|
||||||
(define mztake-version "Rev. Wed Aug 5, 2004 - 23:12:00")
|
(define mztake-version "(rev. 8/6/2004)")
|
||||||
|
|
||||||
#| TODO
|
#|:::::::::LOAD/ANNOTATOR BUGS:::::::::::
|
||||||
|
|
||||||
Remove marks.ss from MzTake as soon as the new version of it becomes standard with releases.
|
|
||||||
Search for everywhere marks.ss shows up in mztake and replace
|
|
||||||
(lib "marks.ss" "mztake" "private") with (lib "marks.ss" "stepper" "private")
|
|
||||||
|
|
||||||
:::::::::LOAD/ANNOTATOR BUGS::::::::::::::
|
|
||||||
* catch oops exception
|
* catch oops exception
|
||||||
* catch the other two exceptions that my loaders throw
|
* catch the other two exceptions that my loaders throw
|
||||||
* detect if the source code for a certain module is missing and throw an exception
|
* detect if the source code for a certain module is missing and throw an exception
|
||||||
|
@ -28,8 +22,6 @@ DEMOS---------------------------------------------------------------------------
|
||||||
|
|
||||||
* something with multiple threads doing something and draw the threads in different colors in a window
|
* something with multiple threads doing something and draw the threads in different colors in a window
|
||||||
|
|
||||||
* FIX heap example -- give greg new heap.ss
|
|
||||||
|
|
||||||
|
|
||||||
SCRIPT--------------------------------------------------------------------------------------
|
SCRIPT--------------------------------------------------------------------------------------
|
||||||
* document history-e; provide a variant of history which takes no n, and keeps a complete history
|
* document history-e; provide a variant of history which takes no n, and keeps a complete history
|
||||||
|
@ -58,6 +50,10 @@ OPTIMIZATIONS-------------------------------------------------------------------
|
||||||
|
|
||||||
* improve speed of functions in (run)
|
* improve speed of functions in (run)
|
||||||
|
|
||||||
|
* Remove marks.ss from MzTake as soon as the new version of it becomes standard with releases.
|
||||||
|
Search for everywhere marks.ss shows up in mztake and replace
|
||||||
|
(lib "marks.ss" "mztake" "private") with (lib "marks.ss" "stepper" "private")
|
||||||
|
|
||||||
|
|
||||||
ERROR-CHECKING/HANDLING---------------------------------------------------------------------
|
ERROR-CHECKING/HANDLING---------------------------------------------------------------------
|
||||||
* Make (script-error) map to some exception stream for script errors only.
|
* Make (script-error) map to some exception stream for script errors only.
|
||||||
|
|
Loading…
Reference in New Issue
Block a user