22 lines
398 B
Racket
22 lines
398 B
Racket
#lang racket
|
|
(require "replay.rkt"
|
|
"cache.rkt"
|
|
"status.rkt")
|
|
|
|
; XXX Rewrite to work with logs in dbm
|
|
|
|
(define the-log-file
|
|
(command-line
|
|
#:program "replay-log"
|
|
#:args (filename)
|
|
filename))
|
|
|
|
(define the-log
|
|
(read-cache the-log-file))
|
|
|
|
(unless (status? the-log)
|
|
(error 'replay-log "Not an output log: ~e" the-log))
|
|
|
|
(replay-status the-log)
|
|
(replay-exit-code the-log)
|