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

added current-trace-results

Browse Source
This commit is contained in:
Robby Findler 2010-11-07 14:32:06 -06:00
parent 96018f258c
commit a63bbf82ab
2 changed files with 49 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

71
collects/racket/trace.rkt
View File

@ -4,7 +4,9 @@
(for-syntax scheme/base))
(provide trace untrace
current-trace-print-args trace-call
current-trace-print-results
current-trace-print-args
trace-call
current-trace-notify
current-prefix-out current-prefix-in)
@ -108,42 +110,43 @@
(lambda (name results level)
(as-trace-notify
(lambda ()
(trace-print-results name results level)))))
((current-trace-print-results) name results level)))))
(define trace-print-results
(lambda (name results level)
(let-values (((first rest)
(build-prefixes level (current-prefix-out))))
(parameterize ((pretty-print-print-line
(lambda (n port offset width)
(display
(define current-trace-print-results
(make-parameter
(lambda (name results level)
(let-values (((first rest)
(build-prefixes level (current-prefix-out))))
(parameterize ((pretty-print-print-line
(lambda (n port offset width)
(display
(if n
(if (zero? n) first (format "\n~a" rest))
"\n")
port)
(if n
(if (zero? n) first (format "\n~a" rest))
"\n")
port)
(if n
(if (zero? n)
(string-length first)
(string-length rest))
0))))
(cond
((null? results)
(pretty-display "*** no values ***"))
((null? (cdr results))
(pretty-print (car results)))
(else
(pretty-print (car results))
(parameterize ((pretty-print-print-line
(lambda (n port offset width)
(display
(if (zero? n)
(string-length first)
(string-length rest))
0))))
(cond
((null? results)
(pretty-display "*** no values ***"))
((null? (cdr results))
(pretty-print (car results)))
(else
(pretty-print (car results))
(parameterize ((pretty-print-print-line
(lambda (n port offset width)
(display
(if n
(if (zero? n) rest (format "\n~a" rest))
"\n")
port)
(if n
(if (zero? n) rest (format "\n~a" rest))
"\n")
port)
(if n
(string-length rest)
0))))
(for-each pretty-print (cdr results)))))))))
(string-length rest)
0))))
(for-each pretty-print (cdr results))))))))))
;; A traced-proc struct instance acts like a procedure,

12
collects/scribblings/reference/trace.scrbl
View File

@ -92,3 +92,15 @@ ordinary arguments, its keywords, the values of the keywords, and a
number indicating the depth of the call.
}
@defparam[current-trace-results trace-print-results
(-> symbol?
list?
number?
any)]{
The value of this parameter is invoked to print out the results of a
traced call. It receives the name of the function, the function's
results, and a number indicating the depth of the call.
}