/* * This will also be re-implemented in Forth, but with nice nesting of * various context variables: radix, first, start/end, etc. */ void muboot_load_file() /* c-string-name */ { int fd; mu_open_file_ro(); fd = TOP; mu_read_file(); start = (char *)ST1; end = (char *)ST1 + TOP; DROP(2); /* wait to reset these until just before we evaluate the new file */ lineno = 1; first = start; muboot_interpret(); PUSH(fd); mu_close_file(); }
/* * usb-close (handle) */ void mu_usb_close() { mu_close_file(); }