#lang racket
(require racket/system
         "config.rkt"
         "path-utils.rkt"
         "dirstruct.rkt")

(define rebaser
  (rebase-path (plt-data-directory) "/data"))

(define (main filename)
  (define prefix
    (path-timing-png-prefix filename))
  (system*/exit-code
   (path->string
    (build-path (plt-directory) "plt" "bin" "gracket-text"))
   "-t"
   (path->string (build-path (drdr-directory) "graphs" "build-graph.rkt"))
   "--"
   "-l" (string-append "http://drdr.racket-lang.org/~a/" (path->string* filename)) ; XXX
   "--image-loc" "/graph-images/"
   (path->string (path-timing-log filename))
   (path->string prefix)
   (path->string (rebaser prefix))
   (path->string (path-timing-html filename))))

(provide main)