Create new "future-visualizer-pict" package.

This will help reduce the dependencies of the "racket-doc" package. Related to racket/racket#3215.
racket · Jun 9, 2020 · eb036c8 · eb036c8
1 parent 075f5f5
commit eb036c8
Show file tree

Hide file tree

Showing 13 changed files with 27 additions and 14 deletions.
diff --git a/...r/future-visualizer/private/constants.rkt → ...t/future-visualizer/private/constants.rkt b/...r/future-visualizer/private/constants.rkt → ...t/future-visualizer/private/constants.rkt
diff --git a/...zer/future-visualizer/private/display.rkt → ...ict/future-visualizer/private/display.rkt b/...zer/future-visualizer/private/display.rkt → ...ict/future-visualizer/private/display.rkt
diff --git a/...re-visualizer/private/drawing-helpers.rkt → ...re-visualizer/private/drawing-helpers.rkt b/...re-visualizer/private/drawing-helpers.rkt → ...re-visualizer/private/drawing-helpers.rkt
diff --git a/...ture-visualizer/private/graph-drawing.rkt → ...ture-visualizer/private/graph-drawing.rkt b/...ture-visualizer/private/graph-drawing.rkt → ...ture-visualizer/private/graph-drawing.rkt
diff --git a/...re-visualizer/private/visualizer-data.rkt → ...re-visualizer/private/visualizer-data.rkt b/...re-visualizer/private/visualizer-data.rkt → ...re-visualizer/private/visualizer-data.rkt
diff --git a/...visualizer/private/visualizer-drawing.rkt → ...visualizer/private/visualizer-drawing.rkt b/...visualizer/private/visualizer-drawing.rkt → ...visualizer/private/visualizer-drawing.rkt
diff --git a/...re-visualizer/future-visualizer/trace.rkt → ...sualizer-pict/future-visualizer/trace.rkt b/...re-visualizer/future-visualizer/trace.rkt → ...sualizer-pict/future-visualizer/trace.rkt
@@ -1,6 +1,6 @@
 #lang racket/base
 (require racket/contract
-         "private/visualizer-data.rkt")
+         future-visualizer/private/visualizer-data)
 (provide (struct-out future-event)
          (struct-out gc-info)
          (struct-out indexed-future-event)

diff --git a/future-visualizer-pict/info.rkt b/future-visualizer-pict/info.rkt
@@ -0,0 +1,12 @@
+#lang info
+
+(define collection 'multi)
+
+(define deps '("base"
+               "data-lib"
+               "draw-lib"
+               "pict-lib"))
+
+(define pkg-desc "Graphical performance tools for using futures")
+
+(define pkg-authors '(jamesswaine))
diff --git a/future-visualizer/future-visualizer/main.rkt b/future-visualizer/future-visualizer/main.rkt
@@ -4,7 +4,7 @@
          racket/bool 
          future-visualizer/trace
          "private/visualizer-gui.rkt"  
-         "private/visualizer-drawing.rkt") 
+         future-visualizer/private/visualizer-drawing) 
 
 (provide visualize-futures 
          (contract-out 

diff --git a/future-visualizer/future-visualizer/private/gui-helpers.rkt b/future-visualizer/future-visualizer/private/gui-helpers.rkt
@@ -1,9 +1,9 @@
 #lang racket/gui
 (require framework 
          pict
-         "display.rkt" 
-         "constants.rkt" 
-         "pict-canvas.rkt") 
+         future-visualizer/private/display 
+         future-visualizer/private/constants 
+         future-visualizer/private/pict-canvas) 
 (provide label 
          mt-label 
          bold-label 

diff --git a/future-visualizer/future-visualizer/private/pict-canvas.rkt b/future-visualizer/future-visualizer/private/pict-canvas.rkt
@@ -1,7 +1,7 @@
 #lang racket/gui
 (require framework 
          pict 
-         "display.rkt") 
+         future-visualizer/private/display) 
 (provide pict-canvas%) 
 
 

diff --git a/future-visualizer/future-visualizer/private/visualizer-gui.rkt b/future-visualizer/future-visualizer/private/visualizer-gui.rkt
@@ -2,13 +2,13 @@
 (require framework 
          data/interval-map 
          mrlib/hierlist
-         "visualizer-drawing.rkt" 
-         "visualizer-data.rkt" 
-         "gui-helpers.rkt" 
-         "graph-drawing.rkt"
-         "display.rkt" 
-         "constants.rkt" 
-         "pict-canvas.rkt")    
+         future-visualizer/private/visualizer-drawing 
+         future-visualizer/private/visualizer-data 
+         future-visualizer/private/gui-helpers 
+         future-visualizer/private/graph-drawing
+         future-visualizer/private/display 
+         future-visualizer/private/constants 
+         future-visualizer/private/pict-canvas)    
 
 (provide show-visualizer) 
 

diff --git a/future-visualizer/info.rkt b/future-visualizer/info.rkt
@@ -6,7 +6,8 @@
                "data-lib"
                "draw-lib"
                "pict-lib"
-               "gui-lib"))
+               "gui-lib"
+               "future-visualizer-pict"))
 (define build-deps '("scheme-lib"
                      "scribble-lib"
                      "racket-doc"