suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

who the hell cares...

Browse Source 
svn: r171
This commit is contained in:
Jono Spiro 2004-08-10 02:10:49 +00:00
parent eed433e3c4
commit 1cccb1f00d
3 changed files with 52 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
collects/mztake/doc.txt
View File

@ -119,14 +119,18 @@ MzTake requires PLT Scheme v208 and higher.
Demos Demos
You can find demos of a few different uses of MzTake (including If you installed MzTake using the .PLT distritubtion, you can
the "highway.ss" example) in the following directories: find demos of a few different uses of MzTake in the
following directories:
On Linux: On Linux:
$PLTHOME/collects/mztake/demos/ ~/.plt-scheme/208/collects/mztake/demos
On Windows (typically): 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 You should be able to run them in DrScheme by switching to the
"MzTake" language from the "Experimental Languages" section "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 commenting is *exhaustive* so that a FrTime novice can still use
MzTake without ever having written a FrTime script before! 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 ./sine/sine-test.ss - plots values extracted from the
running program running program
./montecarlo/montecarlo-test.ss - visualizes the Monte Carlo ./montecarlo/montecarlo-test.ss - visualizes the Monte Carlo
integration used to derive the integration used to derive the
value of pi value of pi
./random/random-Xs-test.ss - tests the quality of Scheme's random ./random/random-test.ss - tests the quality of Scheme's random
number generator with a histogram 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 ./first-class/first-class-test.ss - demonstrates how you can add multiple
traces to the same variable in a file traces to the same variable in a file
to 'record' its evolution, and how you to 'record' its evolution, and how you
can trace first-class functions, such can trace first-class functions, such
as those passed to map. as those passed to map.
./djikstra/dijkstra-test.ss - debugs a buggy implementation of ./djikstra/dijkstra-test.ss - debugs a buggy implementation of
Dijkstra's algorithm 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 MzTake defines a few functions on time-varying values
that are particularly useful when debugging: that are particularly useful when debugging:
> (history-e stream)
> (history-b stream) > (history-b stream)
Keeps a complete history of all the values seen 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) Use with BINDs: (history-b x-trace)
> (history-e n stream)
> (history-b n stream) > (history-b n stream)
Keeps a list of the last n values of a behavior 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 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. These are provided under the GPL license.
http://jimmac.musichall.cz/ikony.php3 http://jimmac.musichall.cz/ikony.php3

47
collects/mztake/make-plt.ss
View File

@ -1,27 +1,20 @@
(module make-plt mzscheme (module make-plt mzscheme
(require (lib "pack.ss" "setup") (require (lib "pack.ss" "setup")
#;(lib "util.ss" "planet")) #;(lib "util.ss" "planet"))
(define (my-filter path) (define (my-filter path)
(and (std-filter path) (and (std-filter path)
(not (or (regexp-match #rx".svn$" path) (not (or (regexp-match #rx".svn$" path)
(regexp-match #rx".bak$" path) (regexp-match #rx".bak$" path)
(regexp-match #rx".1$" path) (regexp-match #rx".1$" path)
(regexp-match #rx"make" path))))) (regexp-match #rx"-uncommented.ss$" path)
(regexp-match #rx"make" path)))))
;For use with PLaneT
#;(parameterize ((current-directory "."))
(pack "mztake-planet.plt" ;without frtime bundled:
"MzTake Debugger" (pack-collections "mztake-frtime-distro.plt" "MzTake Debugger"
'(".") '(("mztake")) #t '(("frtime")("stepper")) my-filter #f)
'()
my-filter (pack-collections "mztake-distro.plt" "MzTake Debugger"
#t '(("mztake")("frtime")) #t '(("stepper")) my-filter #f))
'file
#f
#f
'(("frtime") ("stepper"))))
; for use not on PLaneT
(pack-collections "mztake-distro.plt" "MzTake Debugger" '(("mztake")("frtime")) #t '(("stepper")) my-filter #f))

5
collects/mztake/makefile
View File

@ -5,7 +5,8 @@ all:
plt: plt:
mred -u make-plt.ss mred -u make-plt.ss
mv *.plt ../../web/files/
clean: clean:
rm -r compiled private/compiled ${RM} -r compiled private/compiled
rm *distro* ${RM} *distro*