From 1cccb1f00d7271ea81df23b46d46fcd26ae4269a Mon Sep 17 00:00:00 2001 From: Jono Spiro Date: Tue, 10 Aug 2004 02:10:49 +0000 Subject: [PATCH] who the hell cares... svn: r171 --- collects/mztake/doc.txt | 50 +++++++++++++++++++++---------------- collects/mztake/make-plt.ss | 47 +++++++++++++++------------------- collects/mztake/makefile | 5 ++-- 3 files changed, 52 insertions(+), 50 deletions(-) diff --git a/collects/mztake/doc.txt b/collects/mztake/doc.txt index e6bd97b6e8..f61b64ecf4 100644 --- a/collects/mztake/doc.txt +++ b/collects/mztake/doc.txt @@ -119,14 +119,18 @@ MzTake requires PLT Scheme v208 and higher. Demos -You can find demos of a few different uses of MzTake (including -the "highway.ss" example) in the following directories: +If you installed MzTake using the .PLT distritubtion, you can +find demos of a few different uses of MzTake in the +following directories: On Linux: - $PLTHOME/collects/mztake/demos/ + ~/.plt-scheme/208/collects/mztake/demos On Windows (typically): - c:\Program Files\PLT\collects\mztake\demos\ + C:\Documents and Settings\Jono\Application Data\PLT Scheme\208\collects\mztake + +Where "Jono" is your username, and "208" is the version of +DrScheme you are running. You should be able to run them in DrScheme by switching to the "MzTake" language from the "Experimental Languages" section @@ -139,28 +143,28 @@ scripts themselves are only a few lines of code. However, the commenting is *exhaustive* so that a FrTime novice can still use MzTake without ever having written a FrTime script before! - ./highway/highway-test.ss - a small MzTake example, shown above + ./highway/highway-test.ss - a small MzTake example, shown above - ./sine/sine-test.ss - plots values extracted from the - running program + ./sine/sine-test.ss - plots values extracted from the + running program - ./montecarlo/montecarlo-test.ss - visualizes the Monte Carlo - integration used to derive the - value of pi + ./montecarlo/montecarlo-test.ss - visualizes the Monte Carlo + integration used to derive the + value of pi - ./random/random-Xs-test.ss - tests the quality of Scheme's random - number generator with a histogram + ./random/random-test.ss - tests the quality of Scheme's random + number generator with a histogram - ./misc/exception-test.ss - demonstrates how MzTake catches exceptions + ./exception/exception-test.ss - demonstrates how MzTake catches exceptions - ./misc/first-class-test.ss - demonstrates how you can add multiple - traces to the same variable in a file - to 'record' its evolution, and how you - can trace first-class functions, such - as those passed to map. + ./first-class/first-class-test.ss - demonstrates how you can add multiple + traces to the same variable in a file + to 'record' its evolution, and how you + can trace first-class functions, such + as those passed to map. - ./djikstra/dijkstra-test.ss - debugs a buggy implementation of - Dijkstra's algorithm + ./djikstra/dijkstra-test.ss - debugs a buggy implementation of + Dijkstra's algorithm ============================================================ @@ -448,6 +452,8 @@ Tips: When you have a behavior that you want to turn into MzTake defines a few functions on time-varying values that are particularly useful when debugging: +> (history-e stream) + > (history-b stream) Keeps a complete history of all the values seen @@ -455,6 +461,8 @@ that are particularly useful when debugging: Use with BINDs: (history-b x-trace) +> (history-e n stream) + > (history-b n stream) Keeps a list of the last n values of a behavior @@ -701,6 +709,6 @@ We are eager to hear about how you are using MzTake! Shriram Krishnamurthi --- -Icons for MzTake come from the Gnome Project: Nautilus Emblems +Icons for MzTake come from the Gnome Project: Nautilus Emblems. These are provided under the GPL license. http://jimmac.musichall.cz/ikony.php3 diff --git a/collects/mztake/make-plt.ss b/collects/mztake/make-plt.ss index 1ff498de33..4437cdc244 100644 --- a/collects/mztake/make-plt.ss +++ b/collects/mztake/make-plt.ss @@ -1,27 +1,20 @@ -(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))))) - - ;For use with PLaneT - #;(parameterize ((current-directory ".")) - (pack "mztake-planet.plt" - "MzTake Debugger" - '(".") - '() - my-filter - #t - 'file - #f - #f - '(("frtime") ("stepper")))) - - ; for use not on PLaneT - (pack-collections "mztake-distro.plt" "MzTake Debugger" '(("mztake")("frtime")) #t '(("stepper")) my-filter #f)) +(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"-uncommented.ss$" path) + (regexp-match #rx"make" path))))) + + + ;without frtime bundled: + (pack-collections "mztake-frtime-distro.plt" "MzTake Debugger" + '(("mztake")) #t '(("frtime")("stepper")) my-filter #f) + + (pack-collections "mztake-distro.plt" "MzTake Debugger" + '(("mztake")("frtime")) #t '(("stepper")) my-filter #f)) diff --git a/collects/mztake/makefile b/collects/mztake/makefile index d61fae4fbd..75f8c7b007 100644 --- a/collects/mztake/makefile +++ b/collects/mztake/makefile @@ -5,7 +5,8 @@ all: plt: mred -u make-plt.ss + mv *.plt ../../web/files/ clean: - rm -r compiled private/compiled - rm *distro* + ${RM} -r compiled private/compiled + ${RM} *distro*