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:
parent
633e4a25e8
commit
3d6776680c
|
@ -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)
|
|
@ -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*)
|
|
@ -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 ...)]{
|
||||||
|
|
3
collects/contract-profile/scribblings/info.rkt
Normal file
3
collects/contract-profile/scribblings/info.rkt
Normal file
|
@ -0,0 +1,3 @@
|
||||||
|
#lang setup/infotab
|
||||||
|
|
||||||
|
(define scribblings '(("contract-profile.scrbl" () (tool-library))))
|
|
@ -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)
|
||||||
|
|
|
@ -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"]
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user