From f0ecd2f0bcf6c5ddefc9cc1628597781f72e29c5 Mon Sep 17 00:00:00 2001 From: Jono Spiro Date: Tue, 10 Aug 2004 04:08:56 +0000 Subject: [PATCH] svn: r173 --- ...nted.ss => dijkstra-mztake-uncommented.ss} | 0 .../{dijkstra-test.ss => dijkstra-mztake.ss} | 0 ...ted.ss => exception-mztake-uncommented.ss} | 0 ...{exception-test.ss => exception-mztake.ss} | 0 ...d.ss => first-class-mztake-uncommented.ss} | 0 ...st-class-test.ss => first-class-mztake.ss} | 0 ...ented.ss => highway-mztake-uncommented.ss} | 0 .../{highway-test.ss => highway-mztake.ss} | 0 ...ed.ss => montecarlo-mztake-uncommented.ss} | 0 ...ontecarlo-test.ss => montecarlo-mztake.ss} | 0 ...mented.ss => random-mztake-uncommented.ss} | 0 .../{random-test.ss => random-mztake.ss} | 0 ...ommented.ss => sine-mztake-uncommented.ss} | 0 .../sine/{sine-test.ss => sine-mztake.ss} | 0 collects/mztake/doc.txt | 66 ++++++++++--------- collects/mztake/make-plt.ss | 4 +- 16 files changed, 38 insertions(+), 32 deletions(-) rename collects/mztake/demos/dijkstra/{dijkstra-test-uncommented.ss => dijkstra-mztake-uncommented.ss} (100%) rename collects/mztake/demos/dijkstra/{dijkstra-test.ss => dijkstra-mztake.ss} (100%) rename collects/mztake/demos/exception/{exception-test-uncommented.ss => exception-mztake-uncommented.ss} (100%) rename collects/mztake/demos/exception/{exception-test.ss => exception-mztake.ss} (100%) rename collects/mztake/demos/first-class/{first-class-test-uncommented.ss => first-class-mztake-uncommented.ss} (100%) rename collects/mztake/demos/first-class/{first-class-test.ss => first-class-mztake.ss} (100%) rename collects/mztake/demos/highway/{highway-test-uncommented.ss => highway-mztake-uncommented.ss} (100%) rename collects/mztake/demos/highway/{highway-test.ss => highway-mztake.ss} (100%) rename collects/mztake/demos/montecarlo/{montecarlo-test-uncommented.ss => montecarlo-mztake-uncommented.ss} (100%) rename collects/mztake/demos/montecarlo/{montecarlo-test.ss => montecarlo-mztake.ss} (100%) rename collects/mztake/demos/random/{random-test-uncommented.ss => random-mztake-uncommented.ss} (100%) rename collects/mztake/demos/random/{random-test.ss => random-mztake.ss} (100%) rename collects/mztake/demos/sine/{sine-test-uncommented.ss => sine-mztake-uncommented.ss} (100%) rename collects/mztake/demos/sine/{sine-test.ss => sine-mztake.ss} (100%) diff --git a/collects/mztake/demos/dijkstra/dijkstra-test-uncommented.ss b/collects/mztake/demos/dijkstra/dijkstra-mztake-uncommented.ss similarity index 100% rename from collects/mztake/demos/dijkstra/dijkstra-test-uncommented.ss rename to collects/mztake/demos/dijkstra/dijkstra-mztake-uncommented.ss diff --git a/collects/mztake/demos/dijkstra/dijkstra-test.ss b/collects/mztake/demos/dijkstra/dijkstra-mztake.ss similarity index 100% rename from collects/mztake/demos/dijkstra/dijkstra-test.ss rename to collects/mztake/demos/dijkstra/dijkstra-mztake.ss diff --git a/collects/mztake/demos/exception/exception-test-uncommented.ss b/collects/mztake/demos/exception/exception-mztake-uncommented.ss similarity index 100% rename from collects/mztake/demos/exception/exception-test-uncommented.ss rename to collects/mztake/demos/exception/exception-mztake-uncommented.ss diff --git a/collects/mztake/demos/exception/exception-test.ss b/collects/mztake/demos/exception/exception-mztake.ss similarity index 100% rename from collects/mztake/demos/exception/exception-test.ss rename to collects/mztake/demos/exception/exception-mztake.ss diff --git a/collects/mztake/demos/first-class/first-class-test-uncommented.ss b/collects/mztake/demos/first-class/first-class-mztake-uncommented.ss similarity index 100% rename from collects/mztake/demos/first-class/first-class-test-uncommented.ss rename to collects/mztake/demos/first-class/first-class-mztake-uncommented.ss diff --git a/collects/mztake/demos/first-class/first-class-test.ss b/collects/mztake/demos/first-class/first-class-mztake.ss similarity index 100% rename from collects/mztake/demos/first-class/first-class-test.ss rename to collects/mztake/demos/first-class/first-class-mztake.ss diff --git a/collects/mztake/demos/highway/highway-test-uncommented.ss b/collects/mztake/demos/highway/highway-mztake-uncommented.ss similarity index 100% rename from collects/mztake/demos/highway/highway-test-uncommented.ss rename to collects/mztake/demos/highway/highway-mztake-uncommented.ss diff --git a/collects/mztake/demos/highway/highway-test.ss b/collects/mztake/demos/highway/highway-mztake.ss similarity index 100% rename from collects/mztake/demos/highway/highway-test.ss rename to collects/mztake/demos/highway/highway-mztake.ss diff --git a/collects/mztake/demos/montecarlo/montecarlo-test-uncommented.ss b/collects/mztake/demos/montecarlo/montecarlo-mztake-uncommented.ss similarity index 100% rename from collects/mztake/demos/montecarlo/montecarlo-test-uncommented.ss rename to collects/mztake/demos/montecarlo/montecarlo-mztake-uncommented.ss diff --git a/collects/mztake/demos/montecarlo/montecarlo-test.ss b/collects/mztake/demos/montecarlo/montecarlo-mztake.ss similarity index 100% rename from collects/mztake/demos/montecarlo/montecarlo-test.ss rename to collects/mztake/demos/montecarlo/montecarlo-mztake.ss diff --git a/collects/mztake/demos/random/random-test-uncommented.ss b/collects/mztake/demos/random/random-mztake-uncommented.ss similarity index 100% rename from collects/mztake/demos/random/random-test-uncommented.ss rename to collects/mztake/demos/random/random-mztake-uncommented.ss diff --git a/collects/mztake/demos/random/random-test.ss b/collects/mztake/demos/random/random-mztake.ss similarity index 100% rename from collects/mztake/demos/random/random-test.ss rename to collects/mztake/demos/random/random-mztake.ss diff --git a/collects/mztake/demos/sine/sine-test-uncommented.ss b/collects/mztake/demos/sine/sine-mztake-uncommented.ss similarity index 100% rename from collects/mztake/demos/sine/sine-test-uncommented.ss rename to collects/mztake/demos/sine/sine-mztake-uncommented.ss diff --git a/collects/mztake/demos/sine/sine-test.ss b/collects/mztake/demos/sine/sine-mztake.ss similarity index 100% rename from collects/mztake/demos/sine/sine-test.ss rename to collects/mztake/demos/sine/sine-mztake.ss diff --git a/collects/mztake/doc.txt b/collects/mztake/doc.txt index 2c30a7cc5b..da71604b7d 100644 --- a/collects/mztake/doc.txt +++ b/collects/mztake/doc.txt @@ -119,51 +119,57 @@ MzTake requires PLT Scheme v208 and higher. Demos -If you installed MzTake using the .PLT distritubtion, you can -find demos of a few different uses of MzTake in the -following directories: +If you installed MzTake using the .PLT distribution, you can +find the demos in the following directories: On Linux: ~/.plt-scheme/208/collects/mztake/demos On Windows (typically): - C:\Documents and Settings\Jono\Application Data\PLT Scheme\208\collects\mztake + C:\Documents and Settings\Jono\Application Data\PLT Scheme\208\collects\mztake\demos -Where "Jono" is your username, and "208" is the version of +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 -of DrScheme's language dialog, and then selecting "Run" -(or "Execute") from the DrScheme tool bar. +The demos directory contains a sub-directory for each of the demos. +For instance, the highway directory contains "highway.ss" and +"highway-test.ss". To run this demo, switch to the "MzTake" language +level from the "Experimental Languages" section of DrScheme's language +dialog, load "highway-test.ss", and click "Run". What you see is +generated by the debugging script. Each demo directory contains +the following two files: one is the program being debugged +(named after the directory), and the other is a file ending +in "...-mztake.ss" (the MzTake script). -The demos are listed in order of complexity. When you open them -in DrScheme, don't let the amount of text overwhelm you -- the -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! +The demos are in order of increasing complexity. When you open +them in DrScheme, don't let the amount of text overwhelm you -- +the scripts themselves are only a few lines of code. However, the +commenting is *extensive* to aid even a FrTime novice who has never +written a FrTime script before! - ./highway/highway-test.ss - a small MzTake example, shown above + ./highway/highway-mztake.ss - The program simulates a very simple + speedometer, and the MzTake script + monitors it. - ./sine/sine-test.ss - plots values extracted from the - running program + ./sine/sine-mztake.ss - Plots values extracted from a program + which generates coordinates for a + single sine wave. - ./montecarlo/montecarlo-test.ss - visualizes the Monte Carlo - integration used to derive the - value of pi + ./montecarlo/montecarlo-mztake.ss - Visualizes the Monte Carlo integration + ("throwing darts at a dartboard") used + to derive the value of pi. - ./random/random-test.ss - tests the quality of Scheme's random - number generator with a histogram + ./random/random-mztake.ss - Tests the quality of Scheme's random + number generator with a histogram. - ./exception/exception-test.ss - demonstrates how MzTake catches exceptions + ./exception/exception-mztake.ss - Demonstrates how MzTake catches exceptions. - ./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. + ./first-class/first-class-mztake.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 + ./djikstra/dijkstra-mztake.ss - Debugs a buggy implementation of Dijkstra's algorithm @@ -642,7 +648,7 @@ Tips and Tricks * You can trace the *same* file in different ways by using multiple processes on the same file, under different contexts, and compare results. For example, in - "demos/misc/first-class-test.ss": + "demos/misc/first-class-mztake.ss": (define-mztake-process p ("first-class.ss" [x-before-let 3 29 bind 'x] [x-in-let 4 25 bind 'x] diff --git a/collects/mztake/make-plt.ss b/collects/mztake/make-plt.ss index 0b452e3788..c789712a35 100644 --- a/collects/mztake/make-plt.ss +++ b/collects/mztake/make-plt.ss @@ -13,8 +13,8 @@ ;without frtime bundled: - (pack-collections "mztake-distro.plt" "MzTake Debugger" + (pack-collections "mztake-208.plt" "MzTake Debugger" '(("mztake")) #t '(("frtime")("stepper")) my-filter #f) - (pack-collections "mztake-frtime-distro.plt" "MzTake Debugger" + (pack-collections "mztake-frtime-pre-208.plt" "MzTake Debugger" '(("mztake")("frtime")) #t '(("stepper")) my-filter #f))