From 6c9c0cfc494e5bf538ed8449bd730d529e2b184f Mon Sep 17 00:00:00 2001 From: Mustafa Date: Tue, 4 Mar 2014 12:19:23 -0800 Subject: [PATCH] tried to generate call-graph --- sosc/sosc.rkt | 18 ++++++++++++++++++ sosc/transport.rkt | 2 +- 2 files changed, 19 insertions(+), 1 deletion(-) diff --git a/sosc/sosc.rkt b/sosc/sosc.rkt index 5efd182..0f600e4 100644 --- a/sosc/sosc.rkt +++ b/sosc/sosc.rkt @@ -520,3 +520,21 @@ (lambda (p) (or (verify-message p) (verify-bundle p)))) + + + + +#| + +(define m1 (encode-osc (message "/a/b" (list 257)))) + + + +;; try to create a call graph +(require profile) +(require profile/render-graphviz) + +(profile-thunk trace-encode + #:render render + #:use-errortrace? #t) +|# \ No newline at end of file diff --git a/sosc/transport.rkt b/sosc/transport.rkt index a6c9873..7f8d879 100644 --- a/sosc/transport.rkt +++ b/sosc/transport.rkt @@ -3,7 +3,7 @@ ;; from transport.scm ;;;;;;; (require rnrs - "bytevector.rkt" + "bytevector.rkt" "sosc.rkt" "ip.rkt")