1 ;; run-mars: command-line utility for running redcode programs
5 (chicken process-context)
7 mars visualizer parser)
9 (define (make-color-map progs colors)
10 (let loop ((entries '())
13 (if (null? progs-left)
15 (if (null? colors-left)
16 (error "Not enough colours in colour map!")
17 (let ((this-prog (car progs-left))
18 (this-col (car colors-left)))
19 (loop (cons (cons (prog-name this-prog) this-col) entries)
21 (cdr colors-left)))))))
23 (define (mars-runner files iters core-size visualization)
24 (print "Iters: " iters ", core size: " core-size)
27 (string->prog (with-input-from-file fname read-string)))
29 (core (if visualization
30 (let* ((colors '("red" "blue" "green" "magenta" "cyan"))
31 (color-map (make-color-map progs colors))
32 (vis (make-vis 640 480 core-size color-map)))
33 (make-core 8000 (lambda (i n)
34 (vis 'update-owner i n))))
36 (queues (run-mars core (install-progs core progs) iters)))
39 (print "Final queue for " (queue-owner q) ":")
43 (print* "Press enter to finish...")
47 (print "Usage: run-mars [-h|--help]\n"
48 " run-mars [-c|--core size]\n"
49 " [-i|--iterations iters]\n"
50 " [-n|--no-visualization]\n"
51 " warrior1.red [warrior2.red [...]]"))
54 (let loop ((args (cdr (argv)))
59 ((or () ((or "-h" "--help")))
61 (((or "-i" "--iterations") istr rest ...)
62 (loop rest (string->number istr) core-size visualization))
63 (((or "-c" "--core-size") cstr rest ...)
64 (loop rest iters (string->number cstr) visualization))
65 (((or "-n" "--no-visualization") rest ...)
66 (loop rest iters core-size #f))
68 (mars-runner files iters core-size visualization)))))