130 lines
3.3 KiB
C
130 lines
3.3 KiB
C
//---------------------------------------------------------------------------//
|
|
// ____ PythonExtra //
|
|
//.-'`_ o `;__, A community port of MicroPython for CASIO calculators. //
|
|
//.-'` `---` ' License: MIT (except some files; see LICENSE) //
|
|
//---------------------------------------------------------------------------//
|
|
|
|
#include "py/compile.h"
|
|
#include "py/gc.h"
|
|
#include "py/stackctrl.h"
|
|
#include "py/builtin.h"
|
|
#include "shared/runtime/gchelper.h"
|
|
#include "shared/runtime/pyexec.h"
|
|
|
|
#include <gint/display.h>
|
|
#include <gint/keyboard.h>
|
|
#include <gint/fs.h>
|
|
#include <sys/stat.h>
|
|
#include <unistd.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
|
|
#include "console.h"
|
|
#include "shell.h"
|
|
|
|
static ssize_t stdouterr_write(void *data, void const *buf, size_t size)
|
|
{
|
|
console_t *cons = data;
|
|
console_write_at_cursor(cons, buf, size);
|
|
return size;
|
|
}
|
|
|
|
fs_descriptor_type_t stdouterr_type = {
|
|
.read = NULL,
|
|
.write = stdouterr_write,
|
|
.lseek = NULL,
|
|
.close = NULL,
|
|
};
|
|
|
|
int main(int argc, char **argv)
|
|
{
|
|
pe_shell_init();
|
|
|
|
/* Set up standard streams */
|
|
close(STDOUT_FILENO);
|
|
close(STDERR_FILENO);
|
|
open_generic(&stdouterr_type, pe_shell_console, STDOUT_FILENO);
|
|
open_generic(&stdouterr_type, pe_shell_console, STDERR_FILENO);
|
|
|
|
/* Initialize MicroPython */
|
|
#define HEAP_SIZE 32768
|
|
void *heap = malloc(32768);
|
|
if(!heap) {
|
|
dclear(C_WHITE);
|
|
dtext(1, 1, C_BLACK, "No heap!");
|
|
getkey();
|
|
return 1;
|
|
}
|
|
|
|
mp_stack_ctrl_init();
|
|
gc_init(heap, heap + HEAP_SIZE);
|
|
// TODO: gc_add(start, end) for each area we want to allocate to
|
|
// fx-9860G III:
|
|
// * (nothing? x_x)
|
|
// fx-CG 50:
|
|
// * The entirety of _uram
|
|
// * The entirety of the extra VRAM
|
|
// * Possibly memory past 2M
|
|
// * (keep the OS heap for normal malloc())
|
|
mp_init();
|
|
|
|
// Start a normal REPL; will exit when ctrl-D is entered on a blank line.
|
|
pyexec_friendly_repl();
|
|
|
|
// Deinitialise the runtime.
|
|
gc_sweep_all();
|
|
mp_deinit();
|
|
pe_shell_deinit();
|
|
return 0;
|
|
}
|
|
|
|
/* Handle uncaught exceptions (normally unreachable). */
|
|
void nlr_jump_fail(void *val)
|
|
{
|
|
dclear(C_BLACK);
|
|
dtext(2, 2, C_WHITE, "nlr_jump_fail!");
|
|
dprint(2, 2, C_WHITE, "val = %p", val);
|
|
dupdate();
|
|
while(1)
|
|
getkey();
|
|
}
|
|
|
|
/* Do a garbage collection cycle. */
|
|
void gc_collect(void)
|
|
{
|
|
gc_collect_start();
|
|
gc_helper_collect_regs_and_stack();
|
|
gc_collect_end();
|
|
}
|
|
|
|
mp_import_stat_t mp_import_stat(const char *path)
|
|
{
|
|
struct stat st;
|
|
int rc = stat(path, &st);
|
|
if(rc < 0)
|
|
return MP_IMPORT_STAT_NO_EXIST;
|
|
|
|
if(S_ISDIR(st.st_mode))
|
|
return MP_IMPORT_STAT_DIR;
|
|
else
|
|
return MP_IMPORT_STAT_FILE;
|
|
}
|
|
|
|
// TODO: See branch 'posix-open' for a relevant attempt at using the POSIX API
|
|
mp_obj_t mp_builtin_open(size_t n_args, const mp_obj_t *args, mp_map_t *kwargs)
|
|
{
|
|
mp_obj_t *args_items;
|
|
size_t len;
|
|
mp_obj_get_array(*args, &len, &args_items);
|
|
printf("%d %p\n", (int)len, args_items);
|
|
if(len != 2)
|
|
return mp_const_none;
|
|
|
|
char const *path = mp_obj_str_get_str(args_items[0]);
|
|
char const *mode = mp_obj_str_get_str(args_items[1]);
|
|
printf("'%s' '%s'\n", path, mode);
|
|
|
|
return mp_const_none;
|
|
}
|
|
MP_DEFINE_CONST_FUN_OBJ_KW(mp_builtin_open_obj, 1, mp_builtin_open);
|