C++ (Cpp) mu_close_file Examples

Example #1

File: interpret.c Project: dram/muforth

/*
 * 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();
}

Example #2

File: usb-netbsd.c Project: nimblemachines/muforth

/*
 * usb-close (handle)
 */
void mu_usb_close()
{
    mu_close_file();
}