#lang racket
(require setup/getinfo)
(require syntax/location)
(provide info-look-up
coverage-suffix
tool-name
button-label
open-with-label)
(define package-dir
(let* ([rel-dirs (find-relevant-directories '(multi-file-code-coverage-info-file))])
(if (> (length rel-dirs) 0)
(first rel-dirs)
(current-directory)))
)
(define info-proc (get-info/full package-dir))
(define (info-look-up name) (if info-proc
(info-proc name (λ () (symbol->string name)))
(symbol->string name)))
(define coverage-suffix (info-look-up 'coverage-suffix))
(define tool-name (info-look-up 'tool-name))
(define button-label (info-look-up 'button-label))
(define open-with-label (info-look-up 'open-with-label))