holey-bytes/depell/wasm-hbc/src/lib.rs

#![feature(alloc_error_handler)]
#![feature(slice_take)]
#![no_std]

use {
    alloc::{string::String, vec::Vec},
    core::ffi::CStr,
    hblang::{
        backend::hbvm::HbvmBackend,
        son::{Codegen, CodegenCtx},
        ty::Module,
        Ent,
    },
};

extern crate alloc;

const ARENA_CAP: usize = 128 * 16 * 1024;
wasm_rt::decl_runtime!(ARENA_CAP, 1024 * 4);

const MAX_INPUT_SIZE: usize = 32 * 4 * 1024;
wasm_rt::decl_buffer!(MAX_INPUT_SIZE, MAX_INPUT, INPUT, INPUT_LEN);

#[no_mangle]
unsafe fn compile_and_run(mut fuel: usize) {
    ALLOCATOR.reset();

    _ = log::set_logger(&wasm_rt::Logger);
    log::set_max_level(log::LevelFilter::Error);

    struct File<'a> {
        path: &'a str,
        code: &'a mut str,
    }

    let mut root = 0;

    let files = {
        let mut input_bytes =
            core::slice::from_raw_parts_mut(core::ptr::addr_of_mut!(INPUT).cast::<u8>(), INPUT_LEN);

        let mut files = Vec::with_capacity(32);
        while let Some((&mut path_len, rest)) = input_bytes.split_first_chunk_mut() {
            let (path, rest) = rest.split_at_mut(u16::from_le_bytes(path_len) as usize);
            let (&mut code_len, rest) = rest.split_first_chunk_mut().unwrap();
            let (code, rest) = rest.split_at_mut(u16::from_le_bytes(code_len) as usize);
            files.push(File {
                path: core::str::from_utf8_unchecked(path),
                code: core::str::from_utf8_unchecked_mut(code),
            });
            input_bytes = rest;
        }

        let root_path = files[root].path;
        hblang::quad_sort(&mut files, |a, b| a.path.cmp(b.path));
        root = files.binary_search_by_key(&root_path, |p| p.path).unwrap();

        files
    };

    let mut ctx = CodegenCtx::default();

    let files = {
        let paths = files.iter().map(|f| f.path).collect::<Vec<_>>();
        let mut loader = |path: &str, _: &str, kind| match kind {
            hblang::parser::FileKind::Module => Ok(paths.binary_search(&path).unwrap()),
            hblang::parser::FileKind::Embed => Err("embeds are not supported".into()),
        };
        files
            .into_iter()
            .map(|f| {
                hblang::parser::Ast::new(
                    f.path,
                    // since 'free' does nothing this is fine
                    String::from_raw_parts(f.code.as_mut_ptr(), f.code.len(), f.code.len()),
                    &mut ctx.parser,
                    &mut loader,
                )
            })
            .collect::<Vec<_>>()
    };

    let mut ct = {
        let mut backend = HbvmBackend::default();
        Codegen::new(&mut backend, &files, &mut ctx).generate(Module::new(root));

        if !ctx.parser.errors.borrow().is_empty() {
            log::error!("{}", ctx.parser.errors.borrow());
            return;
        }

        let mut c = Codegen::new(&mut backend, &files, &mut ctx);
        c.assemble_comptime()
    };

    while fuel != 0 {
        match ct.vm.run() {
            Ok(hbvm::VmRunOk::End) => {
                log::error!("exit code: {}", ct.vm.read_reg(1).0 as i64);
                break;
            }
            Ok(hbvm::VmRunOk::Ecall) => {
                let kind = ct.vm.read_reg(2).0;
                match kind {
                    0 => {
                        let str = ct.vm.read_reg(3).0;
                        let str = unsafe { CStr::from_ptr(str as _) };
                        log::error!("{}", str.to_str().unwrap());
                    }
                    unknown => log::error!("unknown ecall: {unknown}"),
                }
            }
            Ok(hbvm::VmRunOk::Timer) => {
                fuel -= 1;
                if fuel == 0 {
                    log::error!("program timed out");
                }
            }
            Ok(hbvm::VmRunOk::Breakpoint) => todo!(),
            Err(e) => {
                log::error!("vm error: {e}");
                break;
            }
        }
    }

    //log::error!("memory consumption: {}b / {}b", ALLOCATOR.used(), ARENA_CAP);
}