Move the contract profiler to its own collection.

Should become its own package once we split up the collects.

Requested by Eli, to reduce the dependencies of the profiler collection.
This commit is contained in:
Vincent St-Amour 2013-06-07 10:54:35 -04:00
parent 633e4a25e8
commit 3d6776680c
8 changed files with 9 additions and 7 deletions

View File

@ -2,7 +2,7 @@
(require racket/list unstable/list racket/match racket/contract racket/string (require racket/list unstable/list racket/match racket/contract racket/string
racket/set racket/dict racket/set racket/dict
"../structs.rkt" "../utils.rkt" profile/structs profile/utils
"utils.rkt" "dot.rkt") "utils.rkt" "dot.rkt")
(provide boundary-view) (provide boundary-view)

View File

@ -3,9 +3,8 @@
(require racket/list unstable/list racket/match racket/set racket/format (require racket/list unstable/list racket/match racket/set racket/format
racket/contract racket/contract
(only-in racket/contract/private/guts contract-continuation-mark-key) (only-in racket/contract/private/guts contract-continuation-mark-key)
"sampler.rkt" "utils.rkt" "analyzer.rkt" profile/sampler profile/utils profile/analyzer
"contract-profiler/dot.rkt" "contract-profiler/utils.rkt" "dot.rkt" "utils.rkt" "boundary-view.rkt")
"contract-profiler/boundary-view.rkt")
;; (listof (U blame? #f)) profile-samples -> contract-profile struct ;; (listof (U blame? #f)) profile-samples -> contract-profile struct
(define (correlate-contract-samples contract-samples samples*) (define (correlate-contract-samples contract-samples samples*)

View File

@ -1,13 +1,13 @@
#lang scribble/doc #lang scribble/doc
@(require scribble/manual @(require scribble/manual
(for-label racket/base racket/contract profile/analyzer)) (for-label racket/base racket/contract))
@title[#:tag "contract-profiling"]{Contract Profiling} @title[#:tag "contract-profiling"]{Contract Profiling}
@defmodule[profile/contract-profile] @defmodule[profile/contract-profile]
This modules provides experimental support for contract profiling. This module provides experimental support for contract profiling.
@defform[(contract-profile body ...)]{ @defform[(contract-profile body ...)]{

View File

@ -0,0 +1,3 @@
#lang setup/infotab
(define scribblings '(("contract-profile.scrbl" () (tool-library))))

View File

@ -676,6 +676,7 @@ path/s is either such a string or a list of them.
"collects/compiler/demodularizer" responsible (jay) "collects/compiler/demodularizer" responsible (jay)
"collects/compiler/demodularizer/batch.rkt" drdr:command-line #f "collects/compiler/demodularizer/batch.rkt" drdr:command-line #f
"collects/config" responsible (mflatt eli) "collects/config" responsible (mflatt eli)
"collects/contract-profile" responsible (stamourv)
"collects/data" responsible (ryanc samth) "collects/data" responsible (ryanc samth)
"collects/datalog" responsible (jay) "collects/datalog" responsible (jay)
"collects/db" responsible (ryanc) "collects/db" responsible (ryanc)

View File

@ -23,4 +23,3 @@ limits.
@include-section["sampler.scrbl"] @include-section["sampler.scrbl"]
@include-section["analyzer.scrbl"] @include-section["analyzer.scrbl"]
@include-section["renderers.scrbl"] @include-section["renderers.scrbl"]
@include-section["contract-profile.scrbl"]