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

".ss" -> ".rkt" scan done.

Browse Source 
original commit: 3157955d40f89d83fb3d5fa7a2f20639cda69579
This commit is contained in:
Eli Barzilay 2011-07-02 10:37:53 -04:00
parent 72180b7748
commit 5861d07330
7 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/profile/analyzer.rkt
View File

@ -4,7 +4,7 @@
(provide analyze-samples) (provide analyze-samples)
(require "structs.ss" "utils.ss" scheme/list) (require "structs.rkt" "utils.rkt" scheme/list)
(define-syntax-rule (with-hash <hash> <key> <expr>) (define-syntax-rule (with-hash <hash> <key> <expr>)
(hash-ref! <hash> <key> (lambda () <expr>))) (hash-ref! <hash> <key> (lambda () <expr>)))

6
collects/profile/main.rkt
View File

@ -2,8 +2,8 @@
(provide profile-thunk profile) (provide profile-thunk profile)
(require "sampler.ss" "analyzer.ss" (require "sampler.rkt" "analyzer.rkt"
(prefix-in text: "render-text.ss") (prefix-in text: "render-text.rkt")
(for-syntax scheme/base)) (for-syntax scheme/base))
(define (profile-thunk thunk (define (profile-thunk thunk
@ -74,7 +74,7 @@
(thread bg-fib) (thread bg-fib)
(list (fibs n) (channel-get ch))) (list (fibs n) (channel-get ch)))
(require "render-graphviz.ss") (require "render-graphviz.rkt")
(profile ;(fibs 40) (profile ;(fibs 40)
;(dynamic-require '(lib "scribblings/reference/reference.scrbl") #f) ;(dynamic-require '(lib "scribblings/reference/reference.scrbl") #f)

2
collects/profile/render-graphviz.rkt
View File

@ -2,7 +2,7 @@
(provide render) (provide render)
(require "structs.ss" "analyzer.ss" "utils.ss") (require "structs.rkt" "analyzer.rkt" "utils.rkt")
(define (render profile (define (render profile
#:hide-self [hide-self% 1/100] #:hide-self [hide-self% 1/100]

2
collects/profile/render-text.rkt
View File

@ -2,7 +2,7 @@
(provide render) (provide render)
(require "structs.ss" "analyzer.ss" "utils.ss" scheme/list) (require "structs.rkt" "analyzer.rkt" "utils.rkt" scheme/list)
(define (f:msec msec) (define (f:msec msec)
(number->string (round (inexact->exact msec)))) (number->string (round (inexact->exact msec))))

2
collects/profile/utils.rkt
View File

@ -1,6 +1,6 @@
#lang scheme/base #lang scheme/base
(require "structs.ss" scheme/list scheme/nest) (require "structs.rkt" scheme/list scheme/nest)
;; Format a percent number, possibly doing the division too. If we do the ;; Format a percent number, possibly doing the division too. If we do the
;; division, then be careful: if we're dividing by zero, then make the result ;; division, then be careful: if we're dividing by zero, then make the result

2
collects/tests/profile/main.rkt
View File

@ -1,7 +1,7 @@
#lang scheme/base #lang scheme/base
(require tests/eli-tester profile/structs profile/analyzer (require tests/eli-tester profile/structs profile/analyzer
scheme/match scheme/list "topsort.ss") scheme/match scheme/list "topsort.rkt")
(define A '(A . #f)) (define A '(A . #f))
(define B '(B . #f)) (define B '(B . #f))

2
collects/tests/profile/topsort.rkt
View File

@ -96,7 +96,7 @@
'((A) (B))) '((A) (B)))
;; this is an example using the actual times for the A->B->A case that is ;; this is an example using the actual times for the A->B->A case that is
;; tested in main.ss ;; tested in main.rkt
(same-levels '(* 2->1 A 1->2 B 2->1 A 1->2 *) (same-levels '(* 2->1 A 1->2 B 2->1 A 1->2 *)
'((A) (B))) '((A) (B)))