Introduce bgen

Author: rexim

Makefile

@@ -27,11 +27,7 @@ RSS=\
 	$(SRC)/time.rs \
 	$(SRC)/jim.rs \
 	$(SRC)/jimp.rs \
-	$(SRC)/codegen/gas_aarch64.rs \
-	$(SRC)/codegen/gas_x86_64.rs \
-	$(SRC)/codegen/mos6502.rs \
-	$(SRC)/codegen/uxn.rs \
-	$(SRC)/codegen/mod.rs \
+
 
 POSIX_OBJS=\
 	$(BUILD)/nob.posix.o \
@@ -65,21 +61,32 @@ test: $(BUILD)/b $(BUILD)/btest
 .PHONY: mingw32-all
 mingw32-all: $(BUILD)/b.exe $(BUILD)/btest.exe
 
-$(BUILD)/b: $(RSS) $(POSIX_OBJS) | $(BUILD)
-	rustc $(CRUST_FLAGS) -C link-args="$(POSIX_OBJS) $(LDFLAGS)" $(SRC)/b.rs -o $(BUILD)/b
+$(BUILD)/b: $(RSS) $(POSIX_OBJS) $(SRC)/codegen/.INDEX.rs | $(BUILD)
+	rustc $(CRUST_FLAGS) -L $(BUILD) -C link-args="$(POSIX_OBJS) $(LDFLAGS)" $(SRC)/b.rs -o $(BUILD)/b
 
-$(BUILD)/btest: $(SRC)/btest.rs $(RSS) $(POSIX_OBJS) | $(BUILD)
+$(BUILD)/btest: $(SRC)/btest.rs $(RSS) $(POSIX_OBJS) $(SRC)/codegen/.INDEX.rs | $(BUILD)
 	rustc $(CRUST_FLAGS) -C link-args="$(POSIX_OBJS) $(LDFLAGS)" $(SRC)/btest.rs -o $(BUILD)/btest
 
+ifneq ($(OS),Windows_NT)
+$(SRC)/codegen/.INDEX.rs: $(BUILD)/bgen
+	$(BUILD)/bgen
+else
+$(SRC)/codegen/.INDEX.rs: $(BUILD)/bgen.exe
+	$(BUILD)/bgen.exe
+endif
+
+$(BUILD)/bgen: $(SRC)/bgen.rs $(RSS) $(POSIX_OBJS) | $(BUILD)
+	rustc $(CRUST_FLAGS) -C link-args="$(POSIX_OBJS) $(LDFLAGS)" $(SRC)/bgen.rs -o $(BUILD)/bgen
+
 $(BUILD)/%.posix.o: ./thirdparty/%.c | $(BUILD)
 	$(CC) -fPIC -g -c $< -o $@ $(LDFLAGS)
 
 # Cross-compilation on POSIX to Windows using mingw32-w64
 # Invoked on demand by `make ./build/b.exe`
-$(BUILD)/b.exe: $(RSS) $(MINGW32_OBJS) | $(BUILD)
+$(BUILD)/b.exe: $(RSS) $(MINGW32_OBJS) $(SRC)/codegen/.INDEX.rs | $(BUILD)
 	rustc $(CRUST_FLAGS) --target x86_64-pc-windows-gnu -C link-args="$(MINGW32_OBJS) -lmingwex -lmsvcrt -lkernel32" $(SRC)/b.rs -o $(BUILD)/b.exe
 
-$(BUILD)/btest.exe: $(SRC)/btest.rs $(RSS) $(MINGW32_OBJS) | $(BUILD)
+$(BUILD)/btest.exe: $(SRC)/btest.rs $(RSS) $(MINGW32_OBJS) $(SRC)/codegen/.INDEX.rs | $(BUILD)
 	rustc $(CRUST_FLAGS) --target x86_64-pc-windows-gnu -C link-args="$(MINGW32_OBJS) -lmingwex -lmsvcrt -lkernel32" $(SRC)/btest.rs -o $(BUILD)/btest.exe
 
 $(BUILD)/%.mingw32.o: ./thirdparty/%.c | $(BUILD)

src/bgen.rs

@@ -0,0 +1,36 @@
+#![no_main]
+#![no_std]
+#![allow(non_upper_case_globals)]
+#![allow(non_camel_case_types)]
+#![allow(unused_macros)]
+
+#[macro_use]
+pub mod crust;
+pub mod nob;
+
+use core::ffi::*;
+use core::mem::zeroed;
+use nob::*;
+use crust::libc::*;
+use crust::*;
+
+pub unsafe fn main(mut _argc: i32, mut _argv: *mut*mut c_char) -> Option<()> {
+    let parent = c!("./src/codegen");
+    let mut children: File_Paths = zeroed();
+    if !read_entire_dir(parent, &mut children) {todo!();}
+    qsort(children.items as *mut c_void, children.count, size_of::<*const c_char>(), compar_cstr);
+    let mut sb: String_Builder = zeroed();
+    sb_appendf(&mut sb, c!("codegens! {\n"));
+    for i in 0..children.count {
+        let child = *children.items.add(i);
+        if *child == '.' as c_char { continue; }
+        if strcmp(child, c!("mod.rs")) == 0 { continue; }
+        let child = temp_strip_suffix(child, c!(".rs")).unwrap_or(child);
+        sb_appendf(&mut sb, c!("    %s,\n"), child);
+    }
+    sb_appendf(&mut sb, c!("}\n"));
+    let output_path = temp_sprintf(c!("%s/.INDEX.rs"), parent);
+    write_entire_file(output_path, sb.items as _, sb.count)?;
+    log(Log_Level::INFO, c!("Generated %s"), output_path);
+    Some(())
+}

src/btest.rs

@@ -32,6 +32,7 @@ use flag::*;
 use glob::*;
 use jim::*;
 use jimp::*;
+use crust::compar_cstr;
 
 const GARBAGE_FOLDER: *const c_char = c!("./build/tests/");
 
@@ -197,10 +198,6 @@ pub unsafe fn usage() {
     flag_print_options(stderr());
 }
 
-pub unsafe extern "C" fn compar_cstr(a: *const c_void, b: *const c_void) -> c_int {
-    strcmp(*(a as *const *const c_char), *(b as *const *const c_char))
-}
-
 #[derive(Clone, Copy)]
 pub struct ReportStats {
     entries: [usize; REPORT_STATUS_ORDER.len()]

src/codegen/.gitignore

@@ -0,0 +1 @@
+.INDEX.rs

src/codegen/mod.rs

@@ -24,12 +24,6 @@ macro_rules! codegens {
     };
 }
 
-codegens! {
-    // TODO: maybe instead of gas_ the prefix should be gnu_, 'cause that makes more sense.
-    gas_x86_64,
-    gas_aarch64,
-    uxn,
-    mos6502,
-    ilasm_mono,
-    noop,
-}
+// TODO: maybe instead of gas_ the prefix should be gnu_, 'cause that makes more sense.
+
+include!(".INDEX.rs");             // Generated by bgen

src/crust.rs

@@ -3,14 +3,14 @@ use crate::crust::libc::*;
 use core::panic::PanicInfo;
 use core::ffi::*;
 
-#[macro_export]
+// #[macro_export]
 macro_rules! c {
     ($l:expr) => {
         concat!($l, "\0").as_ptr() as *const c_char
     }
 }
 
-#[macro_export]
+// #[macro_export]
 macro_rules! enum_with_order {
     (
         #[derive($($traits:tt)*)]
@@ -134,6 +134,10 @@ pub mod libc {
     }
 }
 
+pub unsafe extern "C" fn compar_cstr(a: *const c_void, b: *const c_void) -> c_int {
+    strcmp(*(a as *const *const c_char), *(b as *const *const c_char))
+}
+
 #[panic_handler]
 pub unsafe fn panic_handler(info: &PanicInfo) -> ! {
     // TODO: What's the best way to implement the panic handler within the Crust spirit

src/nob.rs

@@ -62,7 +62,7 @@ pub unsafe fn da_append_many<T: Clone + Copy>(xs: *mut Array<T>, items: *const [
     }
 }
 
-#[macro_export]
+// #[macro_export]
 macro_rules! shift {
     ($ptr:ident, $len:ident) => {{
         let result = *$ptr;
@@ -74,7 +74,7 @@ macro_rules! shift {
 
 pub type Cmd = Array<*const c_char>;
 
-#[macro_export]
+// #[macro_export]
 macro_rules! cmd_append {
     ($cmd:expr, $($arg:expr),+ $(,)?) => {
         $(da_append($cmd, $arg);)+