d6
/
uxn-scm
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

parameterize emulator

This commit is contained in:
~d6 2025-02-03 23:25:42 -05:00
parent f7812bb19d
commit bd510a228e
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
test.scm
View File

@ -21,10 +21,13 @@
(let ((s (read-string #f port))) (let ((s (read-string #f port)))
(if (eq? s #!eof) "" s))) (if (eq? s #!eof) "" s)))
(define emulator "./vm")
;(define emulator "uxncli")
(define (run-rom prog-text emu-args input-text) (define (run-rom prog-text emu-args input-text)
(let*-values (((rom-path) (create-rom prog-text)) (let*-values (((rom-path) (create-rom prog-text))
((args) (cons rom-path emu-args)) ((args) (cons rom-path emu-args))
((c-out c-in c-pid c-err) (process* "./vm" args))) ((c-out c-in c-pid c-err) (process* emulator args)))
(display input-text c-in) (display input-text c-in)
(close-output-port c-in) (close-output-port c-in)
(let*-values (((out-text) (read-output c-out)) (let*-values (((out-text) (read-output c-out))