repro3

#lang racket
(define GDB-PROMPT #"(gdb) \n")
(define NEWLINE 10)

(define-values (proc o i e) (subprocess #f #f #f "/usr/bin/gdb" "--interpreter=mi2"))

(file-stream-buffer-mode o 'none)
(file-stream-buffer-mode i 'none)
(file-stream-buffer-mode e 'none)

; read menu (10 lines long)
(read-bytes-line o)
(read-bytes-line o)
(read-bytes-line o)
(read-bytes-line o)
(read-bytes-line o)
(read-bytes-line o)
(read-bytes-line o)
(read-bytes-line o)
(read-bytes-line o)
(read-bytes-line o)

; read (gdb) \n
(read-bytes-line o)

(write-bytes #"-exec-run\n" i)
(flush-output i)
(sleep 1)
(read-bytes-line o)