nshell/src/main.c

#include <gint/cpu.h>
#include <gint/display.h>
#include <gint/drivers/r61524.h>
#include <gint/gint.h>
#include <gint/keyboard.h>
#include <gint/mpu/power.h>
#include <gint/timer.h>

#include "battery.h"
#include "term.h"
#include "ui.h"

#include <stdio.h>

#include "fe/fe.h"

static char *LOREM_IPSUM =
    "Lorem ipsum dolor sit amet, consectetur adipiscing elit.\nNam vitae purus dolor.\nPraesent in ex tempus, auctor velit at, "
    "vulputate sapien.\nAenean semper, dui vitae iaculis mattis, odio libero aliquet elit, nec tempor nisl turpis vel arcu.\n"
    "Vestibulum eleifend maximus enim at sollicitudin.\nNulla eu commodo justo.\nUt vitae pellentesque erat.\nDuis magna nisl, "
    "eleifend ac massa at, blandit sollicitudin ipsum.\nIntegint_world_swrdum et malesuada fames ac ante ipsum primis in "
    "faucibus.\n"
    "Orci varius natoque penatibus et magnis dis parturient montes, nascetur ridiculus mus.\nUt at libero in turpis porttitor "
    "viverra.\nUt eu pellentesque purus.\nVestibulum aliquet facilisis ante, eget volutpat metus.\nCras semper lacus ac mauris "
    "imperdiet, vel egestas est luctus.\nAliquam elit enim, dignissim nec enim vel, consequat ullamcorper libero.\nPellentesque "
    "at "
    "iaculis lctus.\nPraesent sed velit at tellus hendrerit mattis eu nec velit.\nPhasellus eu quam nec nisi mattis elementum "
    "quis "
    "nec enim.\nNulla efficitur turpis id tempus ultricies.\nPellentesque semper lacinia mi vitae feugiat.\nVestibulum leo nisi, "
    "pretium quis felis non, mattis varius risus.\n"
    "Suspendisse porttitor purus lacinia ante euismod, ut eleifend massa fermentum.\nProin pretium elementum massa, at efficitur "
    "risus iaculis sed.\n";

static volatile int key_poll_timeout;
static int callback_keypoll(void) {
    key_poll_timeout = 0;
    return TIMER_STOP;
}

static char *feprgm = "(myfn)";
static char customfereadfn(fe_Context *ctx, void *udata) {
    static int i = 0;
    char c = feprgm[i];

    if (c != '\0')
        i++;

    return c;
}

static int alive = 0;
static fe_Object *fefn(fe_Context *ctx, fe_Object *arg) {
    alive++;
    return fe_number(ctx, 1);
}

int main(int isappli, int optnum) {
    char febuf[128 * 1024];
    void *femem = (void *)febuf;
    fe_Context *fectx = fe_open(femem, sizeof(febuf));
    fe_set(fectx, fe_symbol(fectx, "myfn"), fe_cfunc(fectx, fefn));
    int fegc = fe_savegc(fectx);
    while (1) {
        fe_Object *feobj = fe_read(fectx, customfereadfn, femem);
        if (!feobj)
            break;

        fe_eval(fectx, feobj);

        fe_restoregc(fectx, fegc);
    }
    // fe_close(fectx);

    int tick_ctr = 0;
    int shift_state = 0;
    int alpha_state = 0;
    int off_state = 0;
    uint16_t backlight_save;

    term_print(LOREM_IPSUM);
    term_print("-----------------------------------------------------------------");
    term_printf("isappli=%d optnum=%d\n", isappli, optnum);

    set_statusbar(tick_ctr, shift_state, alpha_state, get_battery_voltage());
    set_menubar();
    tgrid_display();

    while (1) {
        const int timer = timer_configure(TIMER_ANY, 20000, GINT_CALL(callback_keypoll));
        key_poll_timeout = 1;
        key_event_t kev = getkey_opt(GETKEY_NONE, &key_poll_timeout);
        timer_start(timer);

        if (kev.type == KEYEV_DOWN) {
            if (off_state) {
                if (kev.key == KEY_ACON) {
                    off_state = 0;

                    // reset backlight
                    r61524_set(0x5a1, backlight_save & 0x00ff);
                } else {
                    continue;
                }
            }

            if (kev.key == KEY_SHIFT)
                shift_state = !shift_state;

            if (kev.key == KEY_ALPHA)
                alpha_state = !alpha_state;

            if (kev.key == KEY_ACON && shift_state) {
                off_state = 1;

                // save, then turn backlight level off:
                // force to display something
                dclear(C_WHITE);
                dupdate();
                // store the backlight pwm
                backlight_save = r61524_get(0x5a1) & 0x00ff;
                // force vram clear
                dclear(C_BLACK);
                dupdate();
                dclear(C_BLACK);
                dupdate();
                // force backlight pwm to 0
                r61524_set(0x5a1, 0);

                shift_state = 0;
                alpha_state = 0;

                continue;
            }

            if (kev.key == KEY_MENU && !shift_state && !alpha_state) {
                // TODO: print pause menu
                gint_osmenu();
            }

            if (kev.key == KEY_MENU && shift_state && !alpha_state) {
                return 1;
            }

            term_printf("tick_ctr=%d key=0x%x mod=%d shift=%d alpha=%d\n", tick_ctr, kev.key, kev.mod, kev.shift, kev.alpha);

            set_statusbar(tick_ctr, shift_state, alpha_state, get_battery_voltage());
            set_menubar();

            tgrid_display();

            tick_ctr++;
        }
    }

    return 1;
}