ogl_beamforming

build.c (177146B)

---

 /* See LICENSE for license details. */
 /* NOTE: inspired by nob: https://github.com/tsoding/nob.h */
 
 /* TODO(rnp):
  * [ ]: refactor: allow @Expand to come before the table definition
  * [ ]: cross compile/override baked compiler
  * [ ]: msvc build doesn't detect out of date files correctly
  * [ ]: seperate dwarf debug info
  */
 
 #define BEAMFORMER_IMPORT function
 #define BASE_EXPORT       function
 #define BASE_IMPORT       function
 
 #include "util.h"
 
 #define BUILD_DEPS_LIST \
 	X("base_compiler.h") \
 	X("base_linux.c") \
 	X("base_platform.h") \
 	X("base_types.h") \
 	X("base_win32.c") \
 	X("meta.h") \
 	X("util.c") \
 	X("util.h") \
 
 #include <stdarg.h>
 #include <setjmp.h>
 #include <stdio.h>
 
 global char *g_argv0;
 
 #define META_NAMESPACE_UPPER "Beamformer"
 #define META_NAMESPACE_LOWER "beamformer"
 
 #define OUTDIR    "out"
 #define OUTPUT(s) OUTDIR OS_PATH_SEPARATOR s
 
 #if COMPILER_MSVC
   #define COMMON_CFLAGS    "-std:c11"
   #define COMMON_FLAGS     "-nologo", "-Fo:" OUTDIR "\\", "-Z7", "-Zo"
   #define DEBUG_FLAGS      "-Od", "-D_DEBUG"
   #define OPTIMIZED_FLAGS  "-O2"
   #define EXTRA_FLAGS      ""
 #else
   #define COMMON_CFLAGS    "-std=c11"
   #define COMMON_FLAGS     "-pipe", "-Wall"
   #define DEBUG_FLAGS      "-O0", "-D_DEBUG", "-Wno-unused-function"
   #define OPTIMIZED_FLAGS  "-O3"
   #define EXTRA_FLAGS_BASE "-Werror", "-Wextra", "-Wno-unused-parameter", \
                            "-Wno-error=unused-function", "-fno-builtin"
   #if COMPILER_GCC
     #define EXTRA_FLAGS EXTRA_FLAGS_BASE, "-Wno-unused-variable"
   #else
     #define EXTRA_FLAGS EXTRA_FLAGS_BASE
   #endif
 #endif
 
 #define is_aarch64 ARCH_ARM64
 #define is_amd64   ARCH_X64
 #define is_unix    OS_LINUX
 #define is_w32     OS_WINDOWS
 #define is_clang   COMPILER_CLANG
 #define is_gcc     COMPILER_GCC
 #define is_msvc    COMPILER_MSVC
 
 #if OS_LINUX
 
   #include <dirent.h>
   #include <errno.h>
   #include <string.h>
   #include <sys/select.h>
   #include <sys/wait.h>
 
   #include "base_linux.c"
 
   #define W32_DECL(x)
 
   #define OS_SHARED_LINK_LIB(s) "lib" s ".so"
   #define OS_SHARED_LIB(s)      s ".so"
   #define OS_STATIC_LIB(s)      s ".a"
   #define OS_MAIN "main_linux.c"
 
 #elif OS_WINDOWS
 
   #include <string.h>
 
   #include "base_win32.c"
 
   #define W32_DECL(x) x
 
   #define OS_SHARED_LINK_LIB(s) s ".dll"
   #define OS_SHARED_LIB(s)      s ".dll"
   #define OS_STATIC_LIB(s)      s ".lib"
   #define OS_MAIN "main_w32.c"
 
 #else
   #error Unsupported Platform
 #endif
 
 #if COMPILER_CLANG
   #define COMPILER     "clang"
   #define CPP_COMPILER "clang++"
   #define PREPROCESSOR "clang", "-E", "-P"
 #elif COMPILER_MSVC
   #define COMPILER     "cl"
   #define CPP_COMPILER "cl"
   #define PREPROCESSOR "cl", "/EP"
 #else
   #define COMPILER     "cc"
   #define CPP_COMPILER "c++"
   #define PREPROCESSOR "cc", "-E", "-P"
 #endif
 
 #if COMPILER_MSVC
   #define LINK_LIB(name)             name ".lib"
   #define OBJECT(name)               name ".obj"
   #define OUTPUT_DLL(name)           "/LD", "/Fe:", name
   #define OUTPUT_LIB(name)           "/out:" OUTPUT(name)
   #define OUTPUT_EXE(name)           "/Fe:", name
   #define COMPILER_OUTPUT            "/Fo:"
   #define STATIC_LIBRARY_BEGIN(name) "lib", "/nologo", name
 #else
   #define LINK_LIB(name)             "-l" name
   #define OBJECT(name)               name ".o"
   #define OUTPUT_DLL(name)           "-fPIC", "-shared", "-o", name
   #define OUTPUT_LIB(name)           OUTPUT(name)
   #define OUTPUT_EXE(name)           "-o", name
   #define COMPILER_OUTPUT            "-o"
   #define STATIC_LIBRARY_BEGIN(name) "ar", "rc", name
 #endif
 
 #define shift(list, count) ((count)--, *(list)++)
 
 #define cmd_append_count da_append_count
 #define cmd_append(a, s, ...) da_append_count(a, s, ((char *[]){__VA_ARGS__}), \
                                               (i64)(sizeof((char *[]){__VA_ARGS__}) / sizeof(char *)))
 
 DA_STRUCT(char *, Command);
 
 typedef struct {
 	b32   bake_shaders;
 	b32   debug;
 	b32   generic;
 	b32   sanitize;
 	b32   tests;
 	b32   time;
 } Config;
 global Config config;
 
 read_only global str8 c_file_header = str8_comp(""
 	"/* See LICENSE for license details. */\n\n"
 	"// GENERATED CODE\n\n"
 );
 
 #define BUILD_LOG_KINDS \
 	X(Error,    "\x1B[31m[ERROR]\x1B[0m    ") \
 	X(Warning,  "\x1B[33m[WARNING]\x1B[0m  ") \
 	X(Generate, "\x1B[32m[GENERATE]\x1B[0m ") \
 	X(Info,     "\x1B[33m[INFO]\x1B[0m     ") \
 	X(Command,  "\x1B[36m[COMMAND]\x1B[0m  ")
 #define X(t, ...) BuildLogKind_##t,
 typedef enum {BUILD_LOG_KINDS BuildLogKind_Count} BuildLogKind;
 #undef X
 
 function void
 build_log_base(BuildLogKind kind, char *format, va_list args)
 {
 	#define X(t, pre) pre,
 	read_only local_persist char *prefixes[BuildLogKind_Count + 1] = {BUILD_LOG_KINDS "[INVALID] "};
 	#undef X
 	FILE *out = kind == BuildLogKind_Error? stderr : stdout;
 	fputs(prefixes[Min(kind, BuildLogKind_Count)], out);
 	vfprintf(out, format, args);
 	fputc('\n', out);
 }
 
 #define build_log_failure(format, ...) build_log(BuildLogKind_Error, \
                                                  "failed to build: " format, ##__VA_ARGS__)
 #define build_log_error(...)    build_log(BuildLogKind_Error,    ##__VA_ARGS__)
 #define build_log_generate(...) build_log(BuildLogKind_Generate, ##__VA_ARGS__)
 #define build_log_info(...)     build_log(BuildLogKind_Info,     ##__VA_ARGS__)
 #define build_log_command(...)  build_log(BuildLogKind_Command,  ##__VA_ARGS__)
 #define build_log_warning(...)  build_log(BuildLogKind_Warning,  ##__VA_ARGS__)
 
 function print_format(2, 3) void
 build_log(BuildLogKind kind, char *format, ...)
 {
 	va_list ap;
 	va_start(ap, format);
 	build_log_base(kind, format, ap);
 	va_end(ap);
 }
 
 #define build_fatal(fmt, ...) build_fatal_("%s: " fmt, __FUNCTION__, ##__VA_ARGS__)
 function no_return print_format(1, 2) void
 build_fatal_(char *format, ...)
 {
 	va_list ap;
 	va_start(ap, format);
 	build_log_base(BuildLogKind_Error, format, ap);
 	va_end(ap);
 	os_exit(1);
 }
 
 function b32
 str8_contains(str8 s, u8 byte)
 {
 	b32 result = 0;
 	for (i64 i = 0 ; !result && i < s.length; i++)
 		result |= s.data[i] == byte;
 	return result;
 }
 
 function void
 stream_push_command(Stream *s, CommandList *c)
 {
 	if (!s->errors) {
 		for (i64 i = 0; i < c->count; i++) {
 			str8 item = str8_from_c_str(c->data[i]);
 			if (item.length) {
 				b32 escape = str8_contains(item, ' ') || str8_contains(item, '"');
 				if (escape) stream_append_byte(s, '\'');
 				stream_append_str8(s, item);
 				if (escape) stream_append_byte(s, '\'');
 				if (i != c->count - 1) stream_append_byte(s, ' ');
 			}
 		}
 	}
 }
 
 function print_format(1, 2) char *
 temp_sprintf(char *format, ...)
 {
 	local_persist char buffer[4096];
 	va_list ap;
 	va_start(ap, format);
 	vsnprintf(buffer, countof(buffer), format, ap);
 	va_end(ap);
 	return buffer;
 }
 
 #if OS_LINUX
 
 function b32
 os_rename_file(char *name, char *new)
 {
 	b32 result = rename(name, new) != -1;
 	return result;
 }
 
 function b32
 os_remove_file(char *name)
 {
 	b32 result = remove(name) != -1;
 	return result;
 }
 
 function void
 os_make_directory(char *name)
 {
 	mkdir(name, 0770);
 }
 
 #define os_remove_directory(f) os_remove_directory_(AT_FDCWD, (f))
 function b32
 os_remove_directory_(i32 base_fd, char *name)
 {
 	/* POSix sucks */
 	#ifndef DT_DIR
 	enum {DT_DIR = 4, DT_REG = 8, DT_LNK = 10};
 	#endif
 
 	i32 dir_fd = openat(base_fd, name, O_DIRECTORY);
 	b32 result = dir_fd != -1 || errno == ENOTDIR || errno == ENOENT;
 	DIR *dir;
 	if (dir_fd != -1 && (dir = fdopendir(dir_fd))) {
 		struct dirent *dp;
 		while ((dp = readdir(dir))) {
 			switch (dp->d_type) {
 			case DT_LNK:
 			case DT_REG:
 			{
 				unlinkat(dir_fd, dp->d_name, 0);
 			}break;
 			case DT_DIR:{
 				str8 dir_name = str8_from_c_str(dp->d_name);
 				if (!str8_equal(str8("."), dir_name) && !str8_equal(str8(".."), dir_name))
 					os_remove_directory_(dir_fd, dp->d_name);
 			}break;
 			default:{
 				build_log_warning("\"%s\": unknown directory entry kind: %d", dp->d_name, dp->d_type);
 			}break;
 			}
 		}
 
 		closedir(dir);
 		result = unlinkat(base_fd, name, AT_REMOVEDIR) == 0;
 	}
 	return result;
 }
 
 function str8
 os_read_file_into_arena(const char *name, Arena *arena)
 {
 	str8 result = {0};
 	struct stat sb;
 	i32 fd = open(name, O_RDONLY);
 	if (fd >= 0 && fstat(fd, &sb) >= 0) {
 		result.data   = push_array_no_zero(arena, u8, sb.st_size);
 		result.length = sb.st_size;
 		i64 total_read = 0;
 		do {
 			i64 rlen = read(fd, (u8 *)result.data + total_read, (u64)(result.length - total_read));
 			if (rlen > 0) total_read += rlen;
 		} while (total_read != result.length && errno != EINTR);
 
 		if (total_read != result.length) {
 			arena_pop(arena, result.length);
 			result = (str8){0};
 		}
 	}
 	if (fd >= 0) close(fd);
 
 	return result;
 }
 
 function u64
 os_get_filetime(char *file)
 {
 	struct stat sb;
 	u64 result = (u64)-1;
 	if (stat(file, &sb) != -1)
 		result = (u64)sb.st_mtim.tv_sec;
 	return result;
 }
 
 function iptr
 os_spawn_process(CommandList *cmd, Stream sb)
 {
 	pid_t result = fork();
 	switch (result) {
 	case -1: build_fatal("failed to fork command: %s: %s", cmd->data[0], strerror(errno)); break;
 	case  0: {
 		if (execvp(cmd->data[0], cmd->data) == -1)
 			build_fatal("failed to exec command: %s: %s", cmd->data[0], strerror(errno));
 		unreachable();
 	} break;
 	}
 	return (iptr)result;
 }
 
 function b32
 os_wait_close_process(iptr handle)
 {
 	b32 result = 0;
 	for (;;) {
 		i32   status;
 		iptr wait_pid = (iptr)waitpid((i32)handle, &status, 0);
 		if (wait_pid == -1)
 			build_fatal("failed to wait on child process: %s", strerror(errno));
 		if (wait_pid == handle) {
 			if (WIFEXITED(status)) {
 				status = WEXITSTATUS(status);
 				/* TODO(rnp): logging */
 				result = status == 0;
 				break;
 			}
 			if (WIFSIGNALED(status)) {
 				/* TODO(rnp): logging */
 				result = 0;
 				break;
 			}
 		} else {
 			/* TODO(rnp): handle multiple children */
 			InvalidCodePath;
 		}
 	}
 	return result;
 }
 
 #elif OS_WINDOWS
 
 enum {
 	MOVEFILE_REPLACE_EXISTING = 0x01,
 
 	FILE_ATTRIBUTE_DIRECTORY  = 0x10,
 
 	ERROR_FILE_NOT_FOUND = 0x02,
 	ERROR_PATH_NOT_FOUND = 0x03,
 };
 
 #pragma pack(push, 1)
 typedef struct {
   u32 file_attributes;
   u64 creation_time;
   u64 last_access_time;
   u64 last_write_time;
   u64 file_size;
   u64 reserved;
   c8  file_name[260];
   c8  alternate_file_name[14];
   u32 file_type;
   u32 creator_type;
   u16 finder_flag;
 } w32_find_data;
 #pragma pack(pop)
 
 W32(b32)  CreateDirectoryA(c8 *, void *);
 W32(b32)  CreateProcessA(u8 *, u8 *, iptr, iptr, b32, u32, iptr, u8 *, iptr, iptr);
 W32(b32)  FindClose(iptr);
 W32(iptr) FindFirstFileA(c8 *, w32_find_data *);
 W32(b32)  FindNextFileA(iptr, w32_find_data *);
 W32(b32)  GetExitCodeProcess(iptr, u32 *);
 W32(b32)  GetFileTime(iptr, iptr, iptr, iptr);
 W32(b32)  MoveFileExA(c8 *, c8 *, u32);
 W32(b32)  RemoveDirectoryA(c8 *);
 
 function void
 os_make_directory(char *name)
 {
 	CreateDirectoryA(name, 0);
 }
 
 function str8
 os_read_file_into_arena(const char *name, Arena *arena)
 {
 	str8 result = {0};
 	w32_file_info fileinfo;
 	iptr h = CreateFileA((c8 *)name, GENERIC_READ, 0, 0, OPEN_EXISTING, 0, 0);
 	if (h >= 0 && GetFileInformationByHandle(h, &fileinfo)) {
 		u64 filesize  = (i64)fileinfo.nFileSizeHigh << 32;
 		filesize     |= (i64)fileinfo.nFileSizeLow;
 		if (filesize <= S32_MAX) {
 			result.data   = push_array_no_zero(arena, u8, filesize);
 			result.length = filesize;
 			i32 rlen = 0;
 			if (!ReadFile(h, result.data, (i32)filesize, &rlen, 0) || rlen != filesize) {
 				arena_pop(arena, filesize);
 				result = (str8){0};
 			}
 		}
 	}
 	if (h >= 0) CloseHandle(h);
 
 	return result;
 }
 
 function b32
 os_remove_directory(char *name)
 {
 	w32_find_data find_data[1];
 	char *search = temp_sprintf(".\\%s\\*", name);
 	iptr  handle = FindFirstFileA(search, find_data);
 	b32   result = 1;
 	if (handle != INVALID_FILE) {
 		do {
 			str8 file_name = str8_from_c_str(find_data->file_name);
 			if (!str8_equal(str8("."), file_name) && !str8_equal(str8(".."), file_name)) {
 				char *full_path = temp_sprintf("%s" OS_PATH_SEPARATOR "%s", name, find_data->file_name);
 				if (find_data->file_attributes & FILE_ATTRIBUTE_DIRECTORY) {
 					char *wow_w32_is_even_worse_than_POSix = strdup(full_path);
 					os_remove_directory(wow_w32_is_even_worse_than_POSix);
 					free(wow_w32_is_even_worse_than_POSix);
 				} else {
 					DeleteFileA(full_path);
 				}
 			}
 		} while (FindNextFileA(handle, find_data));
 		FindClose(handle);
 	} else {
 		i32 error = GetLastError();
 		result = error == ERROR_FILE_NOT_FOUND || error == ERROR_PATH_NOT_FOUND;
 	}
 	RemoveDirectoryA(name);
 	return result;
 }
 
 function b32
 os_rename_file(char *name, char *new)
 {
 	b32 result = MoveFileExA(name, new, MOVEFILE_REPLACE_EXISTING) != 0;
 	return result;
 }
 
 function b32
 os_remove_file(char *name)
 {
 	b32 result = DeleteFileA(name);
 	return result;
 }
 
 function u64
 os_get_filetime(char *file)
 {
 	u64 result = (u64)-1;
 	iptr h = CreateFileA(file, 0, 0, 0, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0);
 	if (h != INVALID_FILE) {
 		union { struct { u32 low, high; }; u64 U64; } w32_filetime;
 		GetFileTime(h, 0, 0, (iptr)&w32_filetime);
 		result = w32_filetime.U64;
 		CloseHandle(h);
 	}
 	return result;
 }
 
 function iptr
 os_spawn_process(CommandList *cmd, Stream sb)
 {
 	struct {
 		u32 cb;
 		u8 *reserved, *desktop, *title;
 		u32 x, y, x_size, y_size, x_count_chars, y_count_chars;
 		u32 fill_attr, flags;
 		u16 show_window, reserved_2;
 		u8 *reserved_3;
 		iptr std_input, std_output, std_error;
 	} w32_startup_info = {
 		.cb = sizeof(w32_startup_info),
 		.flags = 0x100,
 		.std_input  = GetStdHandle(STD_INPUT_HANDLE),
 		.std_output = GetStdHandle(STD_OUTPUT_HANDLE),
 		.std_error  = GetStdHandle(STD_ERROR_HANDLE),
 	};
 
 	struct {
 		iptr phandle, thandle;
 		u32  pid, tid;
 	} w32_process_info = {0};
 
 	/* TODO(rnp): warn if we need to clamp last string */
 	sb.widx = Min(sb.widx, (i32)(KB(32) - 1));
 	if (sb.widx < sb.cap) sb.data[sb.widx]     = 0;
 	else                  sb.data[sb.widx - 1] = 0;
 
 	iptr result = INVALID_FILE;
 	if (CreateProcessA(0, sb.data, 0, 0, 1, 0, 0, 0, (iptr)&w32_startup_info,
 	                   (iptr)&w32_process_info))
 	{
 		CloseHandle(w32_process_info.thandle);
 		result = w32_process_info.phandle;
 	}
 	return result;
 }
 
 function b32
 os_wait_close_process(iptr handle)
 {
 	b32 result = WaitForSingleObject(handle, (u32)-1) != 0xFFFFFFFFUL;
 	if (result) {
 		u32 status;
 		GetExitCodeProcess(handle, &status);
 		result = status == 0;
 	}
 	CloseHandle(handle);
 	return result;
 }
 
 #endif
 
 #define needs_rebuild(b, ...) needs_rebuild_(b, ((char *[]){__VA_ARGS__}), \
                                              (sizeof((char *[]){__VA_ARGS__}) / sizeof(char *)))
 function b32
 needs_rebuild_(char *binary, char *deps[], i64 deps_count)
 {
 	u64 binary_filetime = os_get_filetime(binary);
 	u64 argv0_filetime  = os_get_filetime(g_argv0);
 	b32 result = (binary_filetime == (u64)-1) | (argv0_filetime > binary_filetime);
 	for (i64 i = 0; i < deps_count; i++) {
 		u64 filetime = os_get_filetime(deps[i]);
 		result |= (filetime == (u64)-1) | (filetime > binary_filetime);
 	}
 	return result;
 }
 
 function b32
 run_synchronous(Arena *a, CommandList *command)
 {
 	Stream sb = arena_stream(a);
 	stream_push_command(&sb, command);
 	build_log_command("%.*s", (i32)sb.widx, sb.data);
 	return os_wait_close_process(os_spawn_process(command, sb));
 }
 
 function b32
 use_sanitization(void)
 {
 	return config.sanitize && !is_msvc && !(is_w32 && is_gcc);
 }
 
 function void
 cmd_base(Arena *a, CommandList *c, b32 cpp, b32 debug)
 {
 	Config *o = &config;
 
 	cmd_append(a, c, cpp ? CPP_COMPILER : COMPILER);
 
 	if (!is_msvc) {
 		/* TODO(rnp): support cross compiling with clang */
 		if (!o->generic)     cmd_append(a, c, "-march=native");
 		else if (is_amd64)   cmd_append(a, c, "-march=x86-64-v3", "-msse4.1");
 		else if (is_aarch64) cmd_append(a, c, "-march=armv8");
 	}
 
 	if (!cpp) cmd_append(a, c, COMMON_CFLAGS);
 	cmd_append(a, c, COMMON_FLAGS);
 	if (debug) cmd_append(a, c, DEBUG_FLAGS);
 	else       cmd_append(a, c, OPTIMIZED_FLAGS);
 
 	/* NOTE: ancient gcc bug: https://gcc.gnu.org/bugzilla/show_bug.cgi?id=80454 */
 	if (is_gcc) cmd_append(a, c, "-Wno-missing-braces");
 
 	if (!is_msvc) cmd_append(a, c, "-fms-extensions");
 
 	if (debug && is_unix) cmd_append(a, c, "-gdwarf-4");
 
 	/* NOTE(rnp): need to avoid w32-gcc for ci */
 	b32 sanitize = use_sanitization();
 	if (sanitize) cmd_append(a, c, "-fsanitize=address,undefined");
 	if (!sanitize && o->sanitize) build_log_warning("santizers not supported with this compiler");
 }
 
 function void
 check_rebuild_self(Arena *arena, i32 argc, char *argv[])
 {
 	char *binary = shift(argv, argc);
 	#define X(file, ...) file,
 	char *deps[] = {__FILE__, BUILD_DEPS_LIST};
 	#undef X
 	if (needs_rebuild_(binary, deps, countof(deps))) {
 		Stream name_buffer = arena_stream(arena);
 		stream_append_str8s(&name_buffer, str8_from_c_str(binary), str8(".old"));
 		char *old_name = (char *)arena_stream_commit_zero(arena, &name_buffer).data;
 
 		if (!os_rename_file(binary, old_name))
 			build_fatal("failed to move: %s -> %s", binary, old_name);
 
 		CommandList c = {0};
 		cmd_base(arena, &c, 0, 0);
 		cmd_append(arena, &c, EXTRA_FLAGS);
 		if (!is_msvc) cmd_append(arena, &c, "-Wno-unused-function");
 		cmd_append(arena, &c, __FILE__, OUTPUT_EXE(binary));
 		if (is_msvc) cmd_append(arena, &c, "/link", "-incremental:no", "-opt:ref");
 		cmd_append(arena, &c, (void *)0);
 		if (!run_synchronous(arena, &c)) {
 			os_rename_file(old_name, binary);
 			build_fatal("failed to rebuild self");
 		}
 		os_remove_file(old_name);
 
 		c.count = 0;
 		cmd_append(arena, &c, binary);
 		cmd_append_count(arena, &c, argv, argc);
 		cmd_append(arena, &c, (void *)0);
 		if (!run_synchronous(arena, &c))
 			os_exit(1);
 
 		os_exit(0);
 	}
 }
 
 function void
 usage(char *argv0)
 {
 	printf("%s [--bake-shaders] [--debug] [--sanitize] [--time]\n"
 	       "    --debug:       dynamically link and build with debug symbols\n"
 	       "    --generic:     compile for a generic target (x86-64-v3 or armv8 with NEON)\n"
 	       "    --sanitize:    build with ASAN and UBSAN\n"
 	       "    --tests:       also build programs in tests/\n"
 	       "    --time:        print build time\n"
 	       , argv0);
 	os_exit(0);
 }
 
 function void
 parse_config(i32 argc, char *argv[])
 {
 	char *argv0 = shift(argv, argc);
 	while (argc > 0) {
 		char *arg = shift(argv, argc);
 		str8 str   = str8_from_c_str(arg);
 		if (str8_equal(str, str8("--bake-shaders"))) {
 			config.bake_shaders = 1;
 		} else if (str8_equal(str, str8("--debug"))) {
 			config.debug = 1;
 		} else if (str8_equal(str, str8("--generic"))) {
 			config.generic = 1;
 		} else if (str8_equal(str, str8("--sanitize"))) {
 			config.sanitize = 1;
 		} else if (str8_equal(str, str8("--tests"))) {
 			config.tests = 1;
 		} else if (str8_equal(str, str8("--time"))) {
 			config.time = 1;
 		} else {
 			usage(argv0);
 		}
 	}
 }
 
 /* NOTE(rnp): produce pdbs on w32 */
 function void
 cmd_pdb(Arena *a, CommandList *cmd, char *name)
 {
 	if (is_w32 && is_clang) {
 		cmd_append(a, cmd, "-fuse-ld=lld", "-g", "-gcodeview", "-Wl,--pdb=");
 	} else if (is_msvc) {
 		Stream sb = arena_stream(a);
 		stream_append_str8s(&sb, str8("-PDB:"), str8_from_c_str(name), str8(".pdb"));
 		char *pdb = (char *)arena_stream_commit_zero(a, &sb).data;
 		cmd_append(a, cmd, "/link", "-incremental:no", "-opt:ref", "-DEBUG", pdb);
 	}
 }
 
 function void
 git_submodule_update(Arena *a, char *name)
 {
 	Stream sb = arena_stream(a);
 	stream_append_str8s(&sb, str8_from_c_str(name), str8(OS_PATH_SEPARATOR), str8(".git"));
 	arena_stream_commit_zero(a, &sb);
 
 	CommandList git = {0};
 	/* NOTE(rnp): cryptic bs needed to get a simple exit code if name is dirty */
 	cmd_append(a, &git, "git", "diff-index", "--quiet", "HEAD", "--", name, (void *)0);
 	if (!os_file_exists((c8 *)sb.data) || !run_synchronous(a, &git)) {
 		git.count = 1;
 		cmd_append(a, &git, "submodule", "update", "--init", "--depth=1", name, (void *)0);
 		if (!run_synchronous(a, &git))
 			build_fatal("failed to clone required module: %s", name);
 	}
 }
 
 function b32
 build_shared_library(Arena *a, CommandList cc, char *name, char *output, char **libs, i64 libs_count, char **srcs, i64 srcs_count)
 {
 	cmd_append_count(a, &cc, srcs, srcs_count);
 	cmd_append(a, &cc, OUTPUT_DLL(output));
 	cmd_pdb(a, &cc, name);
 	cmd_append_count(a, &cc, libs, libs_count);
 	cmd_append(a, &cc, (void *)0);
 	b32 result = run_synchronous(a, &cc);
 	if (!result) build_log_failure("%s", output);
 	return result;
 }
 
 function b32
 cc_single_file(Arena *a, CommandList cc, char *exe, char *src, char *dest, char **tail, i64 tail_count)
 {
 	char *executable[] = {src, is_msvc? "/Fe:" : "-o", dest};
 	char *object[]     = {is_msvc? "/c" : "-c", src, is_msvc? "/Fo:" : "-o", dest};
 
 	cmd_append_count(a, &cc, exe? executable : object,
 	                 exe? countof(executable) : countof(object));
 	if (exe) cmd_pdb(a, &cc, exe);
 	cmd_append_count(a, &cc, tail, tail_count);
 	cmd_append(a, &cc, (void *)0);
 	b32 result = run_synchronous(a, &cc);
 	if (!result) build_log_failure("%s", dest);
 	return result;
 }
 
 function b32
 build_static_library_from_objects(Arena *a, char *name, char **flags, i64 flags_count, char **objects, i64 count)
 {
 	CommandList ar = {0};
 	cmd_append(a, &ar, STATIC_LIBRARY_BEGIN(name));
 	cmd_append_count(a, &ar, flags, flags_count);
 	cmd_append_count(a, &ar, objects, count);
 	cmd_append(a, &ar, (void *)0);
 	b32 result = run_synchronous(a, &ar);
 	if (!result) build_log_failure("%s", name);
 	return result;
 }
 
 function b32
 build_static_library(Arena *a, CommandList cc, char *name, char **deps, char **outputs, i64 count)
 {
 	/* TODO(rnp): refactor to not need outputs */
 	b32 result = 1;
 	for (i64 i = 0; i < count; i++)
 		result &= cc_single_file(a, cc, 0, deps[i], outputs[i], 0, 0);
 	if (result) result = build_static_library_from_objects(a, name, 0, 0, outputs, count);
 	return result;
 }
 
 function b32
 build_raylib(Arena *a)
 {
 	b32 result = 1, shared = config.debug;
 	char *libraylib = shared ? OS_SHARED_LINK_LIB("raylib") : OUTPUT_LIB(OS_STATIC_LIB("raylib"));
 	if (needs_rebuild(libraylib, "external/raylib")) {
 		git_submodule_update(a, "external/raylib");
 
 		CommandList cc = {0};
 		cmd_base(a, &cc, 0, config.debug);
 		if (is_unix) cmd_append(a, &cc, "-D_GLFW_X11");
 		cmd_append(a, &cc, "-DPLATFORM_DESKTOP_GLFW");
 		if (!is_msvc) cmd_append(a, &cc, "-Wno-unused-but-set-variable");
 		cmd_append(a, &cc, "-Iexternal/include", "-Iexternal/raylib/src", "-Iexternal/raylib/src/external/glfw/include");
 		#define RAYLIB_SOURCES \
 			X(rglfw)     \
 			X(rshapes)   \
 			X(rtext)     \
 			X(rtextures) \
 			X(utils)
 		#define X(name) "external/raylib/src/" #name ".c",
 		char *srcs[] = {"external/rcore_extended.c", RAYLIB_SOURCES};
 		#undef X
 		#define X(name) OUTPUT(OBJECT(#name)),
 		char *outs[] = {OUTPUT(OBJECT("rcore_extended")), RAYLIB_SOURCES};
 		#undef X
 
 		if (shared) {
 			char *libs[] = {LINK_LIB("user32"), LINK_LIB("shell32"), LINK_LIB("gdi32"), LINK_LIB("winmm")};
 			i64 libs_count = is_w32 ? countof(libs) : 0;
 			cmd_append(a, &cc, "-DBUILD_LIBTYPE_SHARED", "-D_GLFW_BUILD_DLL");
 			result = build_shared_library(a, cc, "raylib", libraylib, libs, libs_count, srcs, countof(srcs));
 		} else {
 			result = build_static_library(a, cc, libraylib, srcs, outs, countof(srcs));
 		}
 	}
 	return result;
 }
 
 function b32
 build_glslang(Arena *a)
 {
 	b32 result = 1;
 	char *lib = OUTPUT_LIB(OS_STATIC_LIB("glslang"));
 	if (needs_rebuild(lib, "external/glslang", "external/glslang_local/glslang.cpp")) {
 		git_submodule_update(a, "external/glslang");
 
 		// NOTE(rnp): do not build this with debug symbols. The size explodes because c++
 		CommandList cc = {0};
 		cmd_base(a, &cc, 1, 0);
 		cmd_append(a, &cc, "-std=c++17", "-fno-rtti", "-fno-exceptions", "-Wno-unused-but-set-variable");
 		cmd_append(a, &cc, "-Iexternal/glslang_local", "-Iexternal/glslang");
 
 		#if OS_WINDOWS
 		  #define GLSLANG_SOURCES_OS X(ossource, "glslang/glslang/OSDependent/Windows/")
 		#else
 		  #define GLSLANG_SOURCES_OS
 		#endif
 
 		#define GLSLANG_SOURCES_COMMON \
 			X(glslang,           "glslang_local/") \
 			X(spirv_c_interface, "glslang/SPIRV/CInterface/") \
 
 		#define GLSLANG_SOURCES \
 			GLSLANG_SOURCES_COMMON \
 			GLSLANG_SOURCES_OS \
 
 		#define X(name, extra) "external/" extra #name ".cpp",
 		char *srcs[] = {GLSLANG_SOURCES};
 		#undef X
 		#define X(name, ...) OUTPUT(OBJECT(#name)),
 		char *outs[] = {GLSLANG_SOURCES};
 		#undef X
 
 		result = build_static_library(a, cc, lib, srcs, outs, countof(srcs));
 	}
 	return result;
 }
 
 function b32
 build_helper_library(Arena *arena)
 {
 	CommandList cc = {0};
 	cmd_base(arena, &cc, 0, 0);
 	cmd_append(arena, &cc, EXTRA_FLAGS);
 
 	/////////////
 	// library
 	char *library = OUTPUT(OS_SHARED_LIB("ogl_beamformer_lib"));
 	char *libs[]  = {LINK_LIB("Synchronization")};
 	i64 libs_count = is_w32 ? countof(libs) : 0;
 
 	if (!is_msvc) cmd_append(arena, &cc, "-Wno-unused-function");
 	b32 result = build_shared_library(arena, cc, "ogl_beamformer_lib", library,
 	                                  libs, libs_count, (char *[]){"lib/ogl_beamformer_lib.c"}, 1);
 	return result;
 }
 
 function void
 cmd_beamformer_base(Arena *a, CommandList *c)
 {
 	cmd_base(a, c, 0, config.debug);
 	cmd_append(a, c, "-Iexternal/include");
 	cmd_append(a, c, EXTRA_FLAGS);
 	cmd_append(a, c, config.bake_shaders? "-DBakeShaders=1" : "-DBakeShaders=0");
 	if (config.debug) cmd_append(a, c, "-DBEAMFORMER_DEBUG", "-DBEAMFORMER_RENDERDOC_HOOKS");
 
 	/* NOTE(rnp): impossible to autodetect on GCC versions < 14 (ci has 13) */
 	cmd_append(a, c, use_sanitization() ? "-DASAN_ACTIVE=1" : "-DASAN_ACTIVE=0");
 }
 
 function b32
 build_beamformer_main(Arena *arena)
 {
 	CommandList c = {0};
 	cmd_beamformer_base(arena, &c);
 
 	cmd_append(arena, &c, OS_MAIN, OUTPUT_EXE("ogl"));
 	cmd_pdb(arena, &c, "ogl");
 	if (config.debug) {
 		if (!is_w32)  cmd_append(arena, &c, "-Wl,--export-dynamic", "-Wl,-rpath,.");
 		if (!is_msvc) cmd_append(arena, &c, "-L.");
 		cmd_append(arena, &c, LINK_LIB("raylib"));
 	} else {
 		if (!is_msvc) cmd_append(arena, &c, "-flto");
 		cmd_append(arena, &c, OUTPUT(OS_STATIC_LIB("raylib")));
 	}
 	// TODO(rnp): not sure how to do this with msvc. we don't want a runtime dependence on libc++
 	cmd_append(arena, &c, OUTPUT(OS_STATIC_LIB("glslang")), "-Wl,-Bstatic", "-lstdc++", "-Wl,-Bdynamic");
 
 	if (!is_msvc) cmd_append(arena, &c, "-lm");
 	if (is_unix)  cmd_append(arena, &c, "-lGL");
 
 	if (is_w32) {
 		cmd_append(arena, &c, LINK_LIB("user32"), LINK_LIB("shell32"), LINK_LIB("gdi32"),
 		           LINK_LIB("opengl32"), LINK_LIB("winmm"), LINK_LIB("Synchronization"));
 		if (!is_msvc) cmd_append(arena, &c, "-Wl,--out-implib," OUTPUT(OS_STATIC_LIB("main")));
 	}
 
 	cmd_append(arena, &c, (void *)0);
 
 	return run_synchronous(arena, &c);
 }
 
 function b32
 build_beamformer_as_library(Arena *arena)
 {
 	CommandList cc = {0};
 	cmd_beamformer_base(arena, &cc);
 
 	if (is_msvc) {
 		build_static_library_from_objects(arena, OUTPUT_LIB(OS_STATIC_LIB("main")),
 		                                  arg_list(char *, "/def", "/name:ogl.exe"),
 		                                  arg_list(char *, OUTPUT(OBJECT("main_w32"))));
 	}
 
 	char *library = OS_SHARED_LIB("beamformer");
 	char *libs[]  = {!is_msvc? "-L." : "", LINK_LIB("raylib"), LINK_LIB("gdi32"),
 	                 LINK_LIB("shell32"), LINK_LIB("user32"), LINK_LIB("opengl32"),
 	                 LINK_LIB("winmm"), LINK_LIB("Synchronization"), OUTPUT("main.lib")};
 	i64 libs_count = is_w32 ? countof(libs) : 0;
 	cmd_append(arena, &cc, "-D_BEAMFORMER_DLL");
 	b32 result = build_shared_library(arena, cc, "beamformer", library,
 	                                  libs, libs_count, arg_list(char *, "beamformer_core.c"));
 	return result;
 }
 
 function b32
 build_tests(Arena *arena)
 {
 	CommandList cc = {0};
 	cmd_base(arena, &cc, 0, config.debug);
 	cmd_append(arena, &cc, EXTRA_FLAGS);
 
 	#define TEST_PROGRAMS \
 		X("throughput", LINK_LIB("m"), LINK_LIB("zstd"), W32_DECL(LINK_LIB("Synchronization"))) \
 		X("decode", LINK_LIB("m"), W32_DECL(LINK_LIB("Synchronization"))) \
 
 	os_make_directory(OUTPUT("tests"));
 	if (!is_msvc) cmd_append(arena, &cc, "-Wno-unused-function");
 	cmd_append(arena, &cc, "-I.", "-Ilib");
 
 	b32 result = 1;
 	i64 cc_count = cc.count;
 	#define X(prog, ...) \
 		result &= cc_single_file(arena, cc, prog, "tests" OS_PATH_SEPARATOR prog ".c", \
 		                         OUTPUT("tests" OS_PATH_SEPARATOR prog), \
 		                         arg_list(char *, ##__VA_ARGS__)); \
 		cc.count = cc_count;
 	TEST_PROGRAMS
 	#undef X
 	return result;
 }
 
 typedef struct {
 	str8     *data;
 	da_count  count;
 	da_count  capacity;
 } str8_list;
 
 function str8
 str8_chop(str8 *in, i64 count)
 {
 	count = Clamp(count, 0, in->length);
 	str8 result = {.data = in->data, .length = count};
 	in->data   += count;
 	in->length -= count;
 	return result;
 }
 
 function void
 str8_split(str8 str, str8 *left, str8 *right, u8 byte)
 {
 	i64 i;
 	for (i = 0; i < str.length; i++) if (str.data[i] == byte) break;
 
 	if (left) *left = (str8){.data = str.data, .length = i};
 	if (right) {
 		right->data   = str.data + i + 1;
 		right->length = Max(0, str.length - (i + 1));
 	}
 }
 
 function str8
 str8_trim(str8 in)
 {
 	str8 result = in;
 	for (i64 i = 0; i < in.length && *result.data == ' '; i++) result.data++;
 	result.length -= result.data - in.data;
 	for (; result.length > 0 && result.data[result.length - 1] == ' '; result.length--);
 	return result;
 }
 
 typedef struct {
 	Stream  stream;
 	Arena  *scratch;
 	i32     indentation_level;
 } MetaprogramContext;
 
 function b32
 meta_write_and_reset(MetaprogramContext *m, char *file)
 {
 	b32 result = os_write_new_file(file, stream_to_str8(&m->stream));
 	if (!result) build_log_failure("%s", file);
 	m->stream.widx       = 0;
 	m->indentation_level = 0;
 	return result;
 }
 
 #define meta_push(m, ...) meta_push_(m, arg_list(str8, __VA_ARGS__))
 function void
 meta_push_(MetaprogramContext *m, str8 *items, i64 count)
 {
 	stream_append_str8s_(&m->stream, items, count);
 }
 
 #define meta_pad(m, b, n)                stream_pad(&(m)->stream, (b), (n))
 #define meta_indent(m)                   meta_pad((m), '\t', (m)->indentation_level)
 #define meta_begin_line(m, ...)          meta_indent(m), meta_push(m, __VA_ARGS__)
 #define meta_end_line(m, ...)                            meta_push(m, ##__VA_ARGS__, str8("\n"))
 #define meta_push_line(m, ...)           meta_indent(m), meta_push(m, ##__VA_ARGS__, str8("\n"))
 #define meta_begin_scope(m, ...)         meta_push_line(m, __VA_ARGS__), (m)->indentation_level++
 #define meta_end_scope(m, ...)           (m)->indentation_level--, meta_push_line(m, __VA_ARGS__)
 #define meta_push_f64(m, n)              stream_append_f64(&(m)->stream, (n), 1000000)
 #define meta_push_u64(m, n)              stream_append_u64(&(m)->stream, (n))
 #define meta_push_i64(m, n)              stream_append_i64(&(m)->stream, (n))
 #define meta_push_u64_hex(m, n)          stream_append_hex_u64(&(m)->stream, (n))
 #define meta_push_u64_hex_width(m, n, w) stream_append_hex_u64_width(&(m)->stream, (n), (w))
 
 #define MATLAB_NAMESPACE "OGL"
 
 #define meta_begin_matlab_class_cracker(_1, _2, FN, ...) FN
 #define meta_begin_matlab_class_1(m, name) meta_begin_scope(m, str8("classdef " name))
 #define meta_begin_matlab_class_2(m, name, type) \
   meta_begin_scope(m, str8("classdef " name " < " type))
 
 #define meta_begin_matlab_class(m, ...) \
   meta_begin_matlab_class_cracker(__VA_ARGS__, \
                                   meta_begin_matlab_class_2, \
                                   meta_begin_matlab_class_1)(m, __VA_ARGS__)
 
 function b32
 meta_end_and_write_matlab(MetaprogramContext *m, char *path)
 {
 	while (m->indentation_level > 0) meta_end_scope(m, str8("end"));
 	b32 result = meta_write_and_reset(m, path);
 	return result;
 }
 
 #define META_ENTRY_KIND_LIST \
 	X(Invalid) \
 	X(Array) \
 	X(Bake) \
 	X(BeginScope) \
 	X(Constant) \
 	X(Embed) \
 	X(Emit) \
 	X(EndScope) \
 	X(Enumeration) \
 	X(Expand) \
 	X(Flags) \
 	X(FragmentShader) \
 	X(Library) \
 	X(MATLAB) \
 	X(PushConstants) \
 	X(RenderShader) \
 	X(Shader) \
 	X(ShaderAlias) \
 	X(ShaderGroup) \
 	X(String) \
 	X(Struct) \
 	X(Table) \
 	X(Union) \
 	X(VertexShader) \
 
 typedef enum {
 	#define X(k, ...) MetaEntryKind_## k,
 	META_ENTRY_KIND_LIST
 	#undef X
 	MetaEntryKind_Count,
 } MetaEntryKind;
 
 #define X(k, ...) #k,
 read_only global char *meta_entry_kind_strings[] = {META_ENTRY_KIND_LIST};
 #undef X
 
 #define META_EMIT_LANG_LIST \
 	X(C)        \
 	X(CLibrary) \
 	X(MATLAB)
 
 typedef enum {
 	#define X(k, ...) MetaEmitLang_## k,
 	META_EMIT_LANG_LIST
 	#undef X
 	MetaEmitLang_Count,
 } MetaEmitLang;
 
 read_only global u8 meta_kind_elements[] = {
 	#define X(_k, _c, _g, _b, _m, _by, elements, ...) elements,
 	META_KIND_LIST
 	#undef X
 };
 
 read_only global str8 meta_kind_meta_types[] = {
 	#define X(k, ...) str8_comp(#k),
 	META_KIND_LIST
 	#undef X
 };
 
 read_only global str8 meta_kind_matlab_types[] = {
 	#define X(_k, _c, _g, _b, m, ...) str8_comp(#m),
 	META_KIND_LIST
 	#undef X
 };
 
 read_only global str8 meta_kind_base_c_types[] = {
 	#define X(_k, _c, _g, base, ...) str8_comp(#base),
 	META_KIND_LIST
 	#undef X
 };
 
 read_only global str8 meta_kind_c_types[] = {
 	#define X(_k, c, ...) str8_comp(#c),
 	META_KIND_LIST
 	#undef X
 };
 
 #define META_CURRENT_LOCATION (MetaLocation){__LINE__, 0}
 typedef struct { u32 line, column; } MetaLocation;
 
 #define META_ENTRY_ARGUMENT_KIND_LIST \
 	X(None)   \
 	X(String) \
 	X(Array)
 
 #define X(k, ...) MetaEntryArgumentKind_## k,
 typedef enum {META_ENTRY_ARGUMENT_KIND_LIST} MetaEntryArgumentKind;
 #undef X
 
 typedef struct {
 	MetaEntryArgumentKind kind;
 	MetaLocation          location;
 	union {
 		str8 string;
 		struct {
 			str8 *strings;
 			u64   count;
 		};
 	};
 } MetaEntryArgument;
 
 typedef struct {
 	MetaEntryKind      kind;
 	u32                argument_count;
 	MetaEntryArgument *arguments;
 	str8               name;
 	MetaLocation       location;
 } MetaEntry;
 
 typedef struct {
 	MetaEntry *data;
 	da_count   count;
 	da_count   capacity;
 	str8       raw;
 } MetaEntryStack;
 
 #define META_PARSE_TOKEN_LIST \
 	X('@', Entry)      \
 	X('`', RawString)  \
 	X('(', BeginArgs)  \
 	X(')', EndArgs)    \
 	X('[', BeginArray) \
 	X(']', EndArray)   \
 	X('{', BeginScope) \
 	X('}', EndScope)
 
 typedef enum {
 	MetaParseToken_EOF,
 	MetaParseToken_String,
 	#define X(__1, kind, ...) MetaParseToken_## kind,
 	META_PARSE_TOKEN_LIST
 	#undef X
 	MetaParseToken_Count,
 } MetaParseToken;
 
 typedef union {
 	MetaEntryKind kind;
 	str8          string;
 } MetaParseUnion;
 
 typedef struct {
 	str8 s;
 	MetaLocation location;
 } MetaParsePoint;
 
 typedef struct {
 	MetaParsePoint p;
 	MetaParseUnion u;
 	MetaParsePoint save_point;
 } MetaParser;
 
 global char    *compiler_file;
 global jmp_buf  compiler_jmp_buf;
 
 #define meta_parser_save(v)    (v)->save_point = (v)->p
 #define meta_parser_restore(v) swap((v)->p, (v)->save_point)
 #define meta_parser_commit(v)  meta_parser_restore(v)
 
 #define meta_compiler_message(format, ...) \
 	fprintf(stderr, format, ##__VA_ARGS__)
 
 #define meta_compiler_error_message(loc, format, ...) \
 	fprintf(stderr, "%s:%u:%u: error: "format, compiler_file, \
 	        loc.line + 1, loc.column + 1, ##__VA_ARGS__)
 
 #define meta_compiler_error(loc, format, ...) do { \
 	meta_compiler_error_message(loc, format, ##__VA_ARGS__); \
 	meta_error(); \
 } while (0)
 
 #define meta_entry_error(e, ...) meta_entry_error_column((e), (i32)(e)->location.column, __VA_ARGS__)
 #define meta_entry_error_column(e, column, ...) do { \
 	meta_compiler_error_message((e)->location, __VA_ARGS__); \
 	meta_entry_print((e), 2 * (column), 0); \
 	meta_error(); \
 } while(0)
 
 #define meta_entry_pair_error(e, prefix, base_kind) \
 	meta_entry_error(e, prefix"@%s() in @%s()\n", \
 	                 meta_entry_kind_strings[(e)->kind], \
 	                 meta_entry_kind_strings[(base_kind)])
 
 #define meta_entry_nesting_error(e, base_kind) meta_entry_pair_error(e, "invalid nesting: ", base_kind)
 
 #define meta_entry_error_location(e, loc, ...) do { \
 	meta_compiler_error_message((loc), __VA_ARGS__); \
 	meta_entry_print((e), 1, (i32)(loc).column); \
 	meta_error(); \
 } while (0)
 
 function no_return void
 meta_error(void)
 {
 	assert(0);
 	longjmp(compiler_jmp_buf, 1);
 }
 
 function void
 meta_entry_print(MetaEntry *e, i32 indent, i32 caret)
 {
 	char *kind = meta_entry_kind_strings[e->kind];
 	if (e->kind == MetaEntryKind_BeginScope) kind = "{";
 	if (e->kind == MetaEntryKind_EndScope)   kind = "}";
 
 	fprintf(stderr, "%*s@%s", indent, "", kind);
 
 	if (e->argument_count) {
 		fprintf(stderr, "(");
 		for (u32 i = 0; i < e->argument_count; i++) {
 			MetaEntryArgument *a = e->arguments + i;
 			if (i != 0) fprintf(stderr, " ");
 			if (a->kind == MetaEntryArgumentKind_Array) {
 				fprintf(stderr, "[");
 				for (u64 j = 0; j < a->count; j++) {
 					if (j != 0) fprintf(stderr, " ");
 					fprintf(stderr, "%.*s", (i32)a->strings[j].length, a->strings[j].data);
 				}
 				fprintf(stderr, "]");
 			} else {
 				fprintf(stderr, "%.*s", (i32)a->string.length, a->string.data);
 			}
 		}
 		fprintf(stderr, ")");
 	}
 	if (e->name.length) fprintf(stderr, " %.*s", (i32)e->name.length, e->name.data);
 
 	if (caret >= 0) fprintf(stderr, "\n%*s^", indent + caret, "");
 
 	fprintf(stderr, "\n");
 }
 
 function i64
 meta_lookup_string_slow(str8 *strings, i64 string_count, str8 s)
 {
 	// TODO(rnp): obviously this is slow
 	i64 result = -1;
 	for (i64 i = 0; i < string_count; i++) {
 		if (str8_equal(s, strings[i])) {
 			result = i;
 			break;
 		}
 	}
 	return result;
 }
 
 function MetaEntryKind
 meta_entry_kind_from_string(str8 s)
 {
 	#define X(k, ...) str8_comp(#k),
 	read_only local_persist str8 kinds[] = {META_ENTRY_KIND_LIST};
 	#undef X
 	MetaEntryKind result = MetaEntryKind_Invalid;
 	i64 id = meta_lookup_string_slow(kinds + 1, countof(kinds) - 1, s);
 	if (id > 0) result = (MetaEntryKind)(id + 1);
 	return result;
 }
 
 function void
 meta_parser_trim(MetaParser *p)
 {
 	u8 *s, *end = p->p.s.data + p->p.s.length;
 	b32 done    = 0;
 	b32 comment = 0;
 	for (s = p->p.s.data; !done && s != end;) {
 		switch (*s) {
 		case '\r': case '\t': case ' ':
 		{
 			p->p.location.column++;
 		}break;
 		case '\n':{ p->p.location.line++; p->p.location.column = 0; comment = 0; }break;
 		case '/':{
 			comment |= ((s + 1) != end && s[1] == '/');
 			if (comment) s++;
 		} /* FALLTHROUGH */
 		default:{done = !comment;}break;
 		}
 		if (!done) s++;
 	}
 	p->p.s.data   = s;
 	p->p.s.length = end - s;
 }
 
 function str8
 meta_parser_extract_raw_string(MetaParser *p)
 {
 	str8 result = {.data = p->p.s.data};
 	for (; result.length < p->p.s.length; result.length++) {
 		u8 byte = p->p.s.data[result.length];
 		p->p.location.column++;
 		if (byte == '`') {
 			break;
 		} else if (byte == '\n') {
 			p->p.location.column = 0;
 			p->p.location.line++;
 		}
 	}
 	p->p.s.data   += (result.length + 1);
 	p->p.s.length -= (result.length + 1);
 	return result;
 }
 
 function str8
 meta_parser_extract_string(MetaParser *p)
 {
 	str8 result = {.data = p->p.s.data};
 	for (; result.length < p->p.s.length; result.length++) {
 		b32 done = 0;
 		switch (p->p.s.data[result.length]) {
 		#define X(t, ...) case t:
 		META_PARSE_TOKEN_LIST
 		#undef X
 		case ' ': case '\n': case '\r': case '\t':
 		{done = 1;}break;
 		case '/':{
 			done = (result.length + 1 < p->p.s.length) && (p->p.s.data[result.length + 1] == '/');
 		}break;
 		default:{}break;
 		}
 		if (done) break;
 	}
 	p->p.location.column += (u32)result.length;
 	p->p.s.data          += result.length;
 	p->p.s.length        -= result.length;
 	return result;
 }
 
 function str8
 meta_parser_token_name(MetaParser *p, MetaParseToken t)
 {
 	str8 result = str8("\"invalid\"");
 	read_only local_persist str8 names[MetaParseToken_Count] = {
 		[MetaParseToken_EOF] = str8_comp("\"EOF\""),
 		#define X(k, v, ...) [MetaParseToken_## v] = str8_comp(#k),
 		META_PARSE_TOKEN_LIST
 		#undef X
 	};
 	if (t >= 0 && t < countof(names))  result = names[t];
 	if (t == MetaParseToken_String)    result = p->u.string;
 	if (t == MetaParseToken_RawString) result = (str8){.data = p->u.string.data - 1, .length = p->u.string.length + 1};
 	return result;
 }
 
 function MetaParseToken
 meta_parser_token(MetaParser *p)
 {
 	MetaParseToken result = MetaParseToken_EOF;
 	meta_parser_save(p);
 	if (p->p.s.length > 0) {
 		b32 chop = 1;
 		switch (p->p.s.data[0]) {
 		#define X(t, kind, ...) case t:{ result = MetaParseToken_## kind; }break;
 		META_PARSE_TOKEN_LIST
 		#undef X
 		default:{ result = MetaParseToken_String; chop = 0; }break;
 		}
 		if (chop) { str8_chop(&p->p.s, 1); p->p.location.column++; }
 
 		if (result != MetaParseToken_RawString) meta_parser_trim(p);
 		switch (result) {
 		case MetaParseToken_RawString:{ p->u.string = meta_parser_extract_raw_string(p); }break;
 		case MetaParseToken_String:{    p->u.string = meta_parser_extract_string(p);     }break;
 
 		/* NOTE(rnp): '{' and '}' are shorthand for @BeginScope and @EndScope */
 		case MetaParseToken_BeginScope:{ p->u.kind = MetaEntryKind_BeginScope; }break;
 		case MetaParseToken_EndScope:{   p->u.kind = MetaEntryKind_EndScope;   }break;
 
 		/* NOTE(rnp): loose '[' implies implicit @Array() */
 		case MetaParseToken_BeginArray:{ p->u.kind = MetaEntryKind_Array; }break;
 
 		case MetaParseToken_Entry:{
 			str8 kind = meta_parser_extract_string(p);
 			p->u.kind = meta_entry_kind_from_string(kind);
 			if (p->u.kind == MetaEntryKind_Invalid) {
 				meta_compiler_error(p->p.location, "invalid keyword: @%.*s\n", (i32)kind.length, kind.data);
 			}
 		}break;
 		default:{}break;
 		}
 		meta_parser_trim(p);
 	}
 
 	return result;
 }
 
 function MetaParseToken
 meta_parser_peek_token(MetaParser *p)
 {
 	MetaParseToken result = meta_parser_token(p);
 	meta_parser_restore(p);
 	return result;
 }
 
 function void
 meta_parser_unexpected_token(MetaParser *p, MetaParseToken t)
 {
 	meta_parser_restore(p);
 	str8 token_name = meta_parser_token_name(p, t);
 	meta_compiler_error(p->p.location, "unexpected token: %.*s\n", (i32)token_name.length, token_name.data);
 }
 
 function void
 meta_parser_fill_argument_array(MetaParser *p, MetaEntryArgument *array, Arena *arena)
 {
 	str8_list strings = {0};
 	array->kind     = MetaEntryArgumentKind_Array;
 	array->location = p->p.location;
 	for (MetaParseToken token = meta_parser_token(p);
 	     token != MetaParseToken_EndArray;
 	     token = meta_parser_token(p))
 	{
 		switch (token) {
 		case MetaParseToken_RawString:
 		case MetaParseToken_String:
 		{
 			*da_push(arena, &strings) = p->u.string;
 		}break;
 		default:{ meta_parser_unexpected_token(p, token); }break;
 		}
 	}
 	array->strings = strings.data;
 	array->count   = strings.count;
 	arena_pop(arena, (strings.capacity - strings.count) * sizeof(*strings.data));
 }
 
 function void
 meta_parser_arguments(MetaParser *p, MetaEntry *e, Arena *arena)
 {
 	if (meta_parser_peek_token(p) == MetaParseToken_BeginArgs) {
 		meta_parser_commit(p);
 
 		struct {
 			MetaEntryArgument *data;
 			da_count count;
 			da_count capacity;
 		} arguments = {0};
 
 		for (MetaParseToken token = meta_parser_token(p);
 		     token != MetaParseToken_EndArgs;
 		     token = meta_parser_token(p))
 		{
 			MetaEntryArgument *arg = da_push(arena, &arguments);
 			switch (token) {
 			case MetaParseToken_RawString:
 			case MetaParseToken_String:
 			{
 				arg->kind     = MetaEntryArgumentKind_String;
 				arg->string   = p->u.string;
 				arg->location = p->p.location;
 			}break;
 			case MetaParseToken_BeginArray:{
 				meta_parser_fill_argument_array(p, arg, arena);
 			}break;
 			default:{ meta_parser_unexpected_token(p, token); }break;
 			}
 		}
 		e->arguments      = arguments.data;
 		e->argument_count = arguments.count;
 		// TODO(rnp): we should count arguments first so that we don't need to leave a hole
 		//arena_pop(arena, (arguments.capacity - arguments.count) * sizeof(*arguments.data));
 	}
 }
 
 typedef struct {
 	MetaEntry *start;
 	MetaEntry *one_past_last;
 	i64 consumed;
 } MetaEntryScope;
 
 function MetaEntryScope
 meta_entry_extract_scope(MetaEntry *base, i64 entry_count)
 {
 	assert(base->kind != MetaEntryKind_BeginScope && base->kind != MetaEntryKind_EndScope);
 	assert(entry_count > 0);
 
 	MetaEntryScope result = {.start = base + 1, .consumed = 1};
 	i64 sub_scope = 0;
 	for (MetaEntry *e = result.start; result.consumed < entry_count; result.consumed++, e++) {
 		switch (e->kind) {
 		case MetaEntryKind_BeginScope:{ sub_scope++; }break;
 		case MetaEntryKind_EndScope:{   sub_scope--; }break;
 		default:{}break;
 		}
 		if (sub_scope == 0) break;
 	}
 
 	if (sub_scope != 0)
 		meta_entry_error(base, "unclosed scope for entry\n");
 
 	result.one_past_last = base + result.consumed;
 	if (result.start->kind == MetaEntryKind_BeginScope) result.start++;
 	if (result.one_past_last == result.start) result.one_past_last++;
 
 	return result;
 }
 
 function MetaEntryStack
 meta_entry_stack_from_file(Arena *arena, char *file)
 {
 	MetaParser     parser = {.p.s = os_read_entire_file(arena, file)};
 	MetaEntryStack result = {.raw = parser.p.s};
 
 	compiler_file = file;
 
 	meta_parser_trim(&parser);
 
 	for (MetaParseToken token = meta_parser_token(&parser);
 	     token != MetaParseToken_EOF;
 	     token = meta_parser_token(&parser))
 	{
 		MetaEntry *e = da_push(arena, &result);
 		switch (token) {
 		case MetaParseToken_String:
 		case MetaParseToken_RawString:
 		{
 			e->kind     = MetaEntryKind_String;
 			e->location = parser.save_point.location;
 			e->name     = parser.u.string;
 		}break;
 
 		case MetaParseToken_BeginScope:
 		case MetaParseToken_EndScope:
 		{
 			e->kind     = parser.u.kind;
 			e->location = parser.save_point.location;
 		}break;
 
 		case MetaParseToken_BeginArray:
 		case MetaParseToken_Entry:
 		{
 			e->kind     = parser.u.kind;
 			e->location = parser.save_point.location;
 
 			if (token == MetaParseToken_Entry)
 				meta_parser_arguments(&parser, e, arena);
 
 			if (token == MetaParseToken_BeginArray) {
 				MetaEntryArgument *a = e->arguments = push_struct(arena, MetaEntryArgument);
 				e->argument_count = 1;
 				meta_parser_fill_argument_array(&parser, a, arena);
 			}
 
 			if (meta_parser_peek_token(&parser) == MetaParseToken_String) {
 				meta_parser_commit(&parser);
 				e->name = parser.u.string;
 			}
 		}break;
 
 		default:{ meta_parser_unexpected_token(&parser, token); }break;
 		}
 	}
 
 	return result;
 }
 
 #define meta_entry_argument_expected(e, ...) \
 	meta_entry_argument_expected_((e), arg_list(str8, __VA_ARGS__))
 function void
 meta_entry_argument_expected_(MetaEntry *e, str8 *args, u64 count)
 {
 	if (e->argument_count != count) {
 		meta_compiler_error_message(e->location, "incorrect argument count for entry %s() got: %u expected: %u\n",
 		                            meta_entry_kind_strings[e->kind], e->argument_count, (u32)count);
 		fprintf(stderr, "  format: @%s(", meta_entry_kind_strings[e->kind]);
 		for EachIndex(count, it) {
 			if (it != 0) fprintf(stderr, ", ");
 			fprintf(stderr, "%.*s", (i32)args[it].length, args[it].data);
 		}
 		fprintf(stderr, ")\n");
 		meta_error();
 	}
 }
 
 function MetaEntryArgument
 meta_entry_argument_expect(MetaEntry *e, u32 index, MetaEntryArgumentKind kind)
 {
 	#define X(k, ...) #k,
 	read_only local_persist char *kinds[] = {META_ENTRY_ARGUMENT_KIND_LIST};
 	#undef X
 
 	assert(e->argument_count > index);
 	MetaEntryArgument result = e->arguments[index];
 
 	if (result.kind != kind) {
 		meta_entry_error_location(e, result.location, "unexpected argument kind: expected %s but got: %s\n",
 		                          kinds[kind], kinds[result.kind]);
 	}
 
 	if (kind == MetaEntryArgumentKind_Array && result.count == 0)
 		meta_entry_error_location(e, result.location, "array arguments must have at least 1 element\n");
 
 	return result;
 }
 
 typedef struct { da_count value; } MetaEntityID;
 
 typedef struct {
 	da_count *data;
 	da_count  count;
 	da_count  capacity;
 } MetaIDList;
 
 typedef enum {
 	MetaExpansionPartKind_Alignment,
 	MetaExpansionPartKind_Conditional,
 	MetaExpansionPartKind_EvalKind,
 	MetaExpansionPartKind_EvalKindCount,
 	MetaExpansionPartKind_Reference,
 	MetaExpansionPartKind_String,
 } MetaExpansionPartKind;
 
 typedef enum {
 	MetaExpansionConditionalArgumentKind_Invalid,
 	MetaExpansionConditionalArgumentKind_Number,
 	MetaExpansionConditionalArgumentKind_Evaluation,
 	MetaExpansionConditionalArgumentKind_Reference,
 } MetaExpansionConditionalArgumentKind;
 
 typedef struct {
 	MetaExpansionConditionalArgumentKind kind;
 	union {
 		str8 *strings;
 		i64 number;
 	};
 } MetaExpansionConditionalArgument;
 
 typedef enum {
 	MetaExpansionOperation_Invalid,
 	MetaExpansionOperation_LessThan,
 	MetaExpansionOperation_GreaterThan,
 } MetaExpansionOperation;
 
 typedef struct {
 	MetaExpansionConditionalArgument lhs;
 	MetaExpansionConditionalArgument rhs;
 	MetaExpansionOperation           op;
 	u32 instruction_skip;
 } MetaExpansionConditional;
 
 typedef struct {
 	MetaExpansionPartKind kind;
 	union {
 		str8  string;
 		str8 *strings;
 		MetaExpansionConditional conditional;
 	};
 } MetaExpansionPart;
 DA_STRUCT(MetaExpansionPart, MetaExpansionPart);
 
 typedef enum {
 	MetaEmitOperationKind_Expand,
 	MetaEmitOperationKind_FileBytes,
 	MetaEmitOperationKind_String,
 } MetaEmitOperationKind;
 
 typedef struct {
 	MetaExpansionPart *parts;
 	u32      part_count;
 	da_count table_entity_id;
 } MetaEmitOperationExpansion;
 
 typedef struct {
 	union {
 		str8 string;
 		MetaEmitOperationExpansion expansion_operation;
 	};
 	MetaEmitOperationKind kind;
 	MetaLocation          location;
 } MetaEmitOperation;
 
 typedef struct {
 	MetaEmitOperation *data;
 	da_count count;
 	da_count capacity;
 
 	str8 filename;
 } MetaEmitOperationList;
 
 typedef struct {
 	MetaEmitOperationList *data;
 	da_count count;
 	da_count capacity;
 } MetaEmitOperationListSet;
 
 typedef enum {
 	MetaShaderKind_Alias,
 	MetaShaderKind_Compute,
 	MetaShaderKind_Render,
 	MetaShaderKind_Count,
 } MetaShaderKind;
 
 typedef enum {
 	MetaShaderPrimitiveKind_Mesh,
 	MetaShaderPrimitiveKind_Vertex,
 	MetaShaderPrimitiveKind_Count,
 } MetaShaderPrimitiveKind;
 
 typedef struct {
 	MetaShaderPrimitiveKind kind;
 } MetaRenderShader;
 
 typedef struct {
 	MetaShaderKind kind;
 	MetaIDList     entity_reference_ids;
 	str8           files[2];
 	union {
 		MetaEntityID      alias_parent_id;
 		MetaRenderShader  render;
 	};
 } MetaShader;
 
 #define META_STRUCT_FIELDS \
 	X(Name,     name) \
 	X(Type,     type) \
 	X(Elements, elements) \
 
 #define X(id, ...) MetaStructField_##id,
 typedef enum {META_STRUCT_FIELDS} MetaStructFields;
 #undef X
 
 typedef struct {
 	str8  *fields;
 	str8 **entries;
 	u32    field_count;
 	u32    entry_count;
 	union {
 		i32 struct_info_id;
 	};
 } MetaTable;
 
 typedef enum {
 	MetaConstantKind_Integer,
 	MetaConstantKind_Float,
 	MetaConstantKind_Count,
 } MetaConstantKind;
 
 typedef struct {
 	MetaConstantKind kind;
 	u32 name_id;
 	union {
 		u64 U64;
 		f64 F64;
 	};
 } MetaConstant;
 
 typedef struct {
 	str8         reference_name;
 	MetaEntityID resolved_id;
 	da_count     reference_count;
 
 	// NOTE: only used for namespacing MATLAB unions
 	str8         scope_name;
 } MetaEntityReference;
 
 // X(name, is_table, is_struct, struct_reference_target)
 #define META_ENTITY_KIND_LIST \
 	X(Nil,                0, 0, 0) \
 	X(List,               0, 0, 0) \
 	X(BakeParameters,     1, 1, 0) \
 	X(Constant,           0, 0, 0) \
 	X(Enumeration,        1, 0, 1) \
 	X(Flags,              1, 0, 1) \
 	X(PushConstants,      1, 1, 0) \
 	X(Reference,          0, 0, 0) \
 	X(ReferenceReference, 0, 0, 0) \
 	X(Shader,             0, 0, 0) \
 	X(ShaderGroup,        0, 0, 0) \
 	X(Struct,             1, 1, 1) \
 	X(Table,              1, 0, 0) \
 	X(Union,              1, 1, 1) \
 
 // X(EntityKind, AllowReferences, Emit)
 #define META_STRUCT_MAP_LIST \
 	X(BakeParameters, 0, 1) \
 	X(PushConstants,  0, 1) \
 	X(Struct,         1, 1) \
 	X(Union,          1, 0) \
 
 
 typedef enum {
 	#define X(name, ...) MetaEntityKind_ ##name,
 	META_ENTITY_KIND_LIST
 	#undef X
 	MetaEntityKind_Count,
 } MetaEntityKind;
 
 typedef struct {
 	MetaEntityKind kind;
 	MetaEntityID   parent;
 	MetaEntityID   first_child;
 	MetaEntityID   next_sibling;
 	MetaEntityID   previous_sibling;
 	MetaLocation   location;
 	union {
 		MetaConstant        constant;
 		MetaEntityReference reference;
 		MetaShader          shader;
 		MetaTable           table;
 	};
 } MetaEntity;
 DA_STRUCT(MetaEntity, MetaEntity);
 
 #define X(name, ...) str8_comp(#name),
 read_only global str8 meta_entity_kind_names[] = {META_ENTITY_KIND_LIST};
 #undef X
 #define X(_n, table, ...) table,
 read_only global b8 meta_entity_kind_is_table[] = {META_ENTITY_KIND_LIST};
 #undef X
 #define X(_n, _t, s, ...) s,
 read_only global b8 meta_entity_kind_is_struct[] = {META_ENTITY_KIND_LIST};
 #undef X
 #define X(_n, _t, _s, srt, ...) srt,
 read_only global b8 meta_entity_kind_struct_reference_target[] = {META_ENTITY_KIND_LIST};
 #undef X
 
 #define X(k, ...) MetaEntityKind_##k,
 read_only global MetaEntityKind meta_struct_entity_kinds[] = {META_STRUCT_MAP_LIST};
 #undef X
 #define X(_k, allow, ...) allow,
 read_only global b8 meta_struct_allow_references[] = {META_STRUCT_MAP_LIST};
 #undef X
 #define X(_k, _a, emit, ...) emit,
 read_only global b8 meta_struct_emit[] = {META_STRUCT_MAP_LIST};
 #undef X
 
 typedef enum {
 	MetaBuildStructMemberFlag_ReferenceType     = 1 << 0,
 	MetaBuildStructMemberFlag_ReferenceElements = 1 << 1,
 	MetaBuildStructMemberFlag_EnumerationCount  = 1 << 2,
 } MetaBuildStructMemberFlags;
 
 typedef struct {
 	MetaStructInfo info;
 
 	str8 *members;
 	i32  *type_ids;
 	i32  *elements;
 
 	MetaBuildStructMemberFlags *member_flags;
 
 	MetaEntityID entity;
 	MetaLocation location;
 } MetaStruct;
 
 typedef struct {
 	Arena *arena, *scratch;
 
 	str8 filename;
 	str8 directory;
 	str8 fullpath;
 
 	MetaEntityID                 library_entity;
 	MetaEntityID                 matlab_entity;
 
 	// NOTE(rnp): arrays of entity ids sorted by kind and counted by entity_kind_counts
 	da_count                    *entity_kind_ids[MetaEntityKind_Count];
 
 	da_count                     entity_kind_counts[MetaEntityKind_Count];
 	str8_list                    entity_names;
 	MetaEntityList               entities;
 
 	// NOTE(rnp): list of all entities referenced by shaders. needed for header string baking
 	MetaIDList                   shader_entity_references;
 
 	// NOTE(rnp): fully resolved structs
 	MetaStruct                  *struct_infos;
 	u32                          struct_infos_count;
 
 	// NOTE(rnp): dumb jank to support treating CudaHilbert/CudaDecode as shaders and
 	// allowing shader names to alias.
 	da_count                     base_shader_count;
 	da_count                    *base_shader_ids;
 	// NOTE(rnp): map index in the entity_kind_ids[MetaEntityKind_Shader] to base_shader_ids index
 	da_count                    *base_shader_id_map;
 
 
 	MetaEmitOperationListSet     emit_sets[MetaEmitLang_Count];
 } MetaContext;
 
 function da_count
 meta_lookup_id_slow(da_count *v, da_count count, da_count id)
 {
 	// TODO(rnp): obviously this is slow
 	da_count result = -1;
 	for (da_count i = 0; i < count; i++) {
 		if (id == v[i]) {
 			result = i;
 			break;
 		}
 	}
 	return result;
 }
 
 function da_count
 meta_intern_string(MetaContext *ctx, str8_list *sv, str8 s)
 {
 	da_count result = meta_lookup_string_slow(sv->data, sv->count, s);
 	if (result < 0) {
 		*da_push(ctx->arena, sv) = s;
 		result = sv->count - 1;
 	}
 	return result;
 }
 
 function da_count
 meta_intern_id(MetaContext *ctx, MetaIDList *v, da_count id)
 {
 	da_count result = meta_lookup_id_slow(v->data, v->count, id);
 	if (result < 0) {
 		*da_push(ctx->arena, v) = id;
 		result = v->count - 1;
 	}
 	return result;
 }
 
 function da_count
 meta_entity_children_count(MetaContext *ctx, MetaEntityID entity_id)
 {
 	MetaEntityID child = ctx->entities.data[entity_id.value].first_child;
 	da_count result = 0;
 	if (child.value != 0) {
 		do {
 			result++;
 			child = ctx->entities.data[child.value].next_sibling;
 		} while (child.value != ctx->entities.data[entity_id.value].first_child.value);
 	}
 	return result;
 }
 
 function da_count *
 meta_entity_extract_children(MetaContext *ctx, MetaEntityID entity_id, da_count *children_count, Arena *arena)
 {
 	*children_count  = meta_entity_children_count(ctx, entity_id);
 	da_count *result = push_array_no_zero(arena, da_count, *children_count);
 
 	// NOTE(rnp): children are pushed in LIFO order
 	MetaEntity *e = ctx->entities.data + entity_id.value;
 	da_count index = 0;
 	MetaEntityID child = e->first_child;
 	do {
 		child = ctx->entities.data[child.value].previous_sibling;
 		result[index++] = child.value;
 	} while (child.value != e->first_child.value);
 
 	return result;
 }
 
 function MetaEntity *
 meta_entity(MetaContext *ctx, MetaEntityID id)
 {
 	assert(id.value != 0 && id.value < ctx->entities.count);
 	MetaEntity *result = ctx->entities.data + id.value;
 	return result;
 }
 
 function MetaEntityID
 meta_root_entity_id(MetaContext *ctx)
 {
 	MetaEntityID result = {0};
 	return result;
 }
 
 function MetaEntityID
 meta_intern_entity(MetaContext *ctx, str8 name, MetaEntityKind kind, MetaEntityID parent,
                    MetaLocation location, b32 allow_existing)
 {
 	MetaEntityID result = {0};
 	assert(ctx->entities.data[0].kind == MetaEntityKind_Nil);
 	assert(Between(kind, MetaEntityKind_Nil + 1, MetaEntityKind_Count - 1));
 
 	da_count name_id = meta_intern_string(ctx, &ctx->entity_names, name);
 	if (name_id < ctx->entities.count && ctx->entities.data[name_id].kind != kind) {
 		str8 old_kind = meta_entity_kind_names[ctx->entities.data[name_id].kind];
 		str8 new_kind = meta_entity_kind_names[kind];
 		meta_compiler_error_message(location, "attempting to redefine %.*s as kind %.*s\n",
 		                            (i32)name.length, name.data, (i32)new_kind.length, new_kind.data);
 		meta_compiler_error_message(ctx->entities.data[name_id].location, "previously defined as kind %.*s\n",
 		                            (i32)old_kind.length, old_kind.data);
 		meta_error();
 	} else if (name_id < ctx->entities.count && !allow_existing) {
 		meta_compiler_error_message(location, "redefinition of %.*s\n", (i32)name.length, name.data);
 		meta_compiler_error_message(ctx->entities.data[name_id].location, "previously defined here\n");
 		meta_error();
 	} else {
 		if (name_id < ctx->entities.count) {
 			result.value = name_id;
 		} else {
 			ctx->entity_kind_counts[kind]++;
 			MetaEntity *new = da_push(ctx->arena, &ctx->entities);
 			new->location = location;
 			result.value = da_index(new, &ctx->entities);
 		}
 
 		MetaEntity *e = ctx->entities.data + result.value;
 		e->kind       = kind;
 		e->parent     = parent;
 
 		MetaEntity *p = ctx->entities.data + parent.value;
 		e->next_sibling = p->first_child;
 		p->first_child = result;
 
 		if (e->next_sibling.value == 0)
 			e->next_sibling = p->first_child;
 
 		e->previous_sibling = ctx->entities.data[e->next_sibling.value].previous_sibling;
 		ctx->entities.data[e->next_sibling.value].previous_sibling = result;
 		ctx->entities.data[e->previous_sibling.value].next_sibling = result;
 	}
 
 	return result;
 }
 
 function MetaEntityID
 meta_entity_reference(MetaContext *ctx, str8 name, MetaLocation location)
 {
 	MetaEntityID result = {0};
 	Temp scratch;
 	DeferLoop(scratch = temp_begin(ctx->scratch), temp_end(scratch)) {
 		str8 ref_name = push_str8_from_parts(ctx->scratch, str8(""), str8("R"), name);
 		result = meta_intern_entity(ctx, ref_name, MetaEntityKind_Reference,
 		                            meta_root_entity_id(ctx), location, 1);
 		MetaEntity *r = meta_entity(ctx, result);
 		if (r->reference.reference_count == 0)
 			ctx->entity_names.data[result.value] = push_str8(ctx->arena, ref_name);
 		r->reference.reference_count++;
 		r->reference.reference_name = name;
 	}
 	return result;
 }
 
 function MetaEntityID
 meta_entity_reference_reference(MetaContext *ctx, str8 name, str8 scope_name, MetaLocation location,
                                 MetaEntityID parent, str8 prefix)
 {
 	MetaEntityID result = {0};
 	// NOTE(rnp): base reference
 	MetaEntityID ref_id = meta_entity_reference(ctx, name, location);
 
 	Temp scratch;
 	DeferLoop(scratch = temp_begin(ctx->scratch), temp_end(scratch)) {
 		str8 refref_name = push_str8_from_parts(ctx->scratch, str8(""), prefix, str8("RR"), name);
 		result = meta_intern_entity(ctx, refref_name, MetaEntityKind_ReferenceReference,
 		                            parent, location, 1);
 
 		MetaEntity *rr = meta_entity(ctx, result);
 		if (rr->reference.reference_count == 0)
 			ctx->entity_names.data[result.value] = push_str8(ctx->arena, refref_name);
 		rr->reference.reference_count++;
 		rr->reference.reference_name = name;
 		rr->reference.resolved_id    = ref_id;
 		rr->reference.scope_name     = scope_name;
 	}
 	return result;
 }
 
 function MetaEntityID
 meta_entity_first_child_of_kind(MetaContext *ctx, MetaEntity *e, MetaEntityKind kind)
 {
 	MetaEntityID result = {0};
 	MetaEntityID child  = e->first_child;
 	if (child.value) do {
 		if (ctx->entities.data[child.value].kind == kind) {
 			result = child;
 			break;
 		}
 		child = ctx->entities.data[child.value].next_sibling;
 	} while (child.value != e->first_child.value);
 	return result;
 }
 
 function void
 meta_expansion_string_split(str8 string, str8 *left, str8 *inner, str8 *remainder, MetaLocation loc)
 {
 	b32 found = 0;
 	for (u8 *s = string.data, *e = s + string.length; (s + 1) != e; s++) {
 		u32 val  = (u32)'$'  << 8u | (u32)'(';
 		u32 test = (u32)s[0] << 8u | s[1];
 		if (test == val) {
 			if (left) {
 				left->data   = string.data;
 				left->length = s - string.data;
 			}
 
 			u8 *start = s + 2;
 			while (s != e && *s != ')') s++;
 			if (s == e) {
 				meta_compiler_error_message(loc, "unterminated expansion in raw string:\n  %.*s\n",
 				                            (i32)string.length, string.data);
 				fprintf(stderr, "  %.*s^\n", (i32)(start - string.data), "");
 				meta_error();
 			}
 
 			if (inner) {
 				inner->data   = start;
 				inner->length = s - start;
 			}
 
 			if (remainder) {
 				remainder->data   = s + 1;
 				remainder->length = string.length - (remainder->data - string.data);
 			}
 			found = 1;
 			break;
 		}
 	}
 	if (!found) {
 		if (left)      *left      = string;
 		if (inner)     *inner     = (str8){0};
 		if (remainder) *remainder = (str8){0};
 	}
 }
 
 function MetaExpansionPart *
 meta_push_expansion_part(MetaContext *ctx, Arena *arena, MetaExpansionPartList *parts,
                          MetaExpansionPartKind kind, str8 string, MetaEntity *table, MetaLocation loc)
 {
 	MetaExpansionPart *result = da_push(arena, parts);
 
 	result->kind = kind;
 	switch (kind) {
 	case MetaExpansionPartKind_Alignment:
 	case MetaExpansionPartKind_Conditional:
 	{}break;
 
 	case MetaExpansionPartKind_EvalKind:
 	case MetaExpansionPartKind_EvalKindCount:
 	case MetaExpansionPartKind_Reference:
 	{
 		assert(meta_entity_kind_is_table[table->kind]);
 		MetaTable *t = &table->table;
 
 		da_count index = meta_lookup_string_slow(t->fields, t->field_count, string);
 		result->strings = t->entries[index];
 		if (index < 0) {
 			/* TODO(rnp): fix this location to point directly at the field in the string */
 			str8 table_name = ctx->entity_names.data[da_index(table, &ctx->entities)];
 			meta_compiler_error(loc, "table \"%.*s\" does not contain member: %.*s\n",
 			                    (i32)table_name.length, table_name.data, (i32)string.length, string.data);
 		}
 	}break;
 
 	case MetaExpansionPartKind_String:{ result->string = string; }break;
 	InvalidDefaultCase;
 	}
 	return result;
 }
 
 #define META_EXPANSION_TOKEN_LIST \
 	X('|', Alignment) \
 	X('%', TypeEval) \
 	X('#', TypeEvalElements) \
 	X('"', Quote) \
 	X('-', Dash) \
 	X('>', GreaterThan) \
 	X('<', LessThan) \
 
 typedef enum {
 	MetaExpansionToken_EOF,
 	MetaExpansionToken_Identifier,
 	MetaExpansionToken_Number,
 	MetaExpansionToken_String,
 	#define X(__1, kind, ...) MetaExpansionToken_## kind,
 	META_EXPANSION_TOKEN_LIST
 	#undef X
 	MetaExpansionToken_Count,
 } MetaExpansionToken;
 
 read_only global str8 meta_expansion_token_strings[] = {
 	str8_comp("EOF"),
 	str8_comp("Indentifier"),
 	str8_comp("Number"),
 	str8_comp("String"),
 	#define X(s, kind, ...) str8_comp(#s),
 	META_EXPANSION_TOKEN_LIST
 	#undef X
 };
 
 typedef	struct {
 	str8 s;
 	union {
 		i64  number;
 		str8 string;
 	};
 	str8 save;
 	MetaLocation loc;
 } MetaExpansionParser;
 
 #define meta_expansion_save(v)    (v)->save = (v)->s
 #define meta_expansion_restore(v) swap((v)->s, (v)->save)
 #define meta_expansion_commit(v)  meta_expansion_restore(v)
 
 #define meta_expansion_expected(loc, e, g) \
 	meta_compiler_error(loc, "invalid expansion string: expected %.*s after %.*s\n", \
 	                    (i32)meta_expansion_token_strings[e].length, meta_expansion_token_strings[e].data, \
 	                    (i32)meta_expansion_token_strings[g].length, meta_expansion_token_strings[g].data)
 
 function str8
 meta_expansion_extract_string(MetaExpansionParser *p)
 {
 	str8 result = {.data = p->s.data};
 	for (; result.length < p->s.length; result.length++) {
 		b32 done = 0;
 		switch (p->s.data[result.length]) {
 		#define X(t, ...) case t:
 		META_EXPANSION_TOKEN_LIST
 		#undef X
 		case ' ':
 		{done = 1;}break;
 		default:{}break;
 		}
 		if (done) break;
 	}
 	p->s.data   += result.length;
 	p->s.length -= result.length;
 	return result;
 }
 
 function MetaExpansionToken
 meta_expansion_token(MetaExpansionParser *p)
 {
 	MetaExpansionToken result = MetaExpansionToken_EOF;
 	meta_expansion_save(p);
 	if (p->s.length > 0) {
 		b32 chop = 1;
 		switch (p->s.data[0]) {
 		#define X(t, kind, ...) case t:{ result = MetaExpansionToken_## kind; }break;
 		META_EXPANSION_TOKEN_LIST
 		#undef X
 		default:{
 			chop = 0;
 			if (Between(p->s.data[0], '0', '9')) result = MetaExpansionToken_Number;
 			else                                 result = MetaExpansionToken_Identifier;
 		}break;
 		}
 		if (chop) {
 			str8_chop(&p->s, 1);
 			p->s = str8_trim(p->s);
 		}
 
 		switch (result) {
 		case MetaExpansionToken_Number:{
 			NumberConversion integer = integer_from_str8(p->s);
 			if (integer.result != NumberConversionResult_Success) {
 				/* TODO(rnp): point at start */
 				meta_compiler_error(p->loc, "invalid integer in expansion string\n");
 			}
 			p->number = integer.S64;
 			p->s      = integer.unparsed;
 		}break;
 		case MetaExpansionToken_Identifier:{ p->string = meta_expansion_extract_string(p); }break;
 		default:{}break;
 		}
 		p->s = str8_trim(p->s);
 	}
 	return result;
 }
 
 function MetaExpansionPart *
 meta_expansion_start_conditional(MetaContext *ctx, Arena *arena, MetaExpansionPartList *ops,
                                  MetaExpansionParser *p, MetaExpansionToken token, b32 negate)
 {
 	MetaExpansionPart *result = meta_push_expansion_part(ctx, arena, ops, MetaExpansionPartKind_Conditional,
 	                                                     str8(""), 0, p->loc);
 	switch (token) {
 	case MetaExpansionToken_Number:{
 		result->conditional.lhs.kind   = MetaExpansionConditionalArgumentKind_Number;
 		result->conditional.lhs.number = negate ? -p->number : p->number;
 	}break;
 	default:{}break;
 	}
 	return result;
 }
 
 function void
 meta_expansion_end_conditional(MetaExpansionPart *ep, MetaExpansionParser *p, MetaExpansionToken token, b32 negate)
 {
 	if (ep->conditional.rhs.kind != MetaExpansionConditionalArgumentKind_Invalid) {
 		meta_compiler_error(p->loc, "invalid expansion conditional: duplicate right hand expression: '%.*s'\n",
 		                    (i32)p->save.length, p->save.data);
 	}
 	switch (token) {
 	case MetaExpansionToken_Number:{
 		ep->conditional.rhs.kind   = MetaExpansionConditionalArgumentKind_Number;
 		ep->conditional.rhs.number = negate ? -p->number : p->number;
 	}break;
 	default:{}break;
 	}
 }
 
 function MetaExpansionPartList
 meta_generate_expansion_set(MetaContext *ctx, Arena *arena, str8 expansion_string, MetaEntity *table, MetaLocation loc)
 {
 	MetaExpansionPartList result = {0};
 	str8 left = {0}, inner, remainder = expansion_string;
 	do {
 		meta_expansion_string_split(remainder, &left, &inner, &remainder, loc);
 		if (left.length)  meta_push_expansion_part(ctx, arena, &result, MetaExpansionPartKind_String, left, table, loc);
 		if (inner.length) {
 			MetaExpansionParser p[1] = {{.s = inner, .loc = loc}};
 
 			MetaExpansionPart *test_part = 0;
 			b32 count_test_parts = 0;
 
 			for (MetaExpansionToken token = meta_expansion_token(p);
 			     token != MetaExpansionToken_EOF;
 			     token = meta_expansion_token(p))
 			{
 				if (count_test_parts) test_part->conditional.instruction_skip++;
 				switch (token) {
 				case MetaExpansionToken_Alignment:{
 					meta_push_expansion_part(ctx, arena, &result, MetaExpansionPartKind_Alignment, p->s, table, loc);
 				}break;
 
 				case MetaExpansionToken_Identifier:{
 					meta_push_expansion_part(ctx, arena, &result, MetaExpansionPartKind_Reference, p->string, table, loc);
 				}break;
 
 				case MetaExpansionToken_TypeEval:
 				case MetaExpansionToken_TypeEvalElements:
 				{
 					if (meta_expansion_token(p) != MetaExpansionToken_Identifier) {
 						loc.column += (u32)(p->save.data - expansion_string.data);
 						meta_expansion_expected(loc, MetaExpansionToken_Identifier, token);
 					}
 					MetaExpansionPartKind kind = token == MetaExpansionToken_TypeEval ?
 					                                      MetaExpansionPartKind_EvalKind :
 					                                      MetaExpansionPartKind_EvalKindCount;
 					meta_push_expansion_part(ctx, arena, &result, kind, p->string, table, loc);
 				}break;
 
 				case MetaExpansionToken_Quote:{
 					u8 *point = p->s.data;
 					str8 string = meta_expansion_extract_string(p);
 					token = meta_expansion_token(p);
 					if (token != MetaExpansionToken_Quote) {
 						loc.column += (u32)(point - expansion_string.data);
 						/* TODO(rnp): point at start */
 						meta_compiler_error(loc, "unterminated string in expansion\n");
 					}
 					meta_push_expansion_part(ctx, arena, &result, MetaExpansionPartKind_String, string, table, loc);
 				}break;
 
 				case MetaExpansionToken_Dash:{
 					token = meta_expansion_token(p);
 					switch (token) {
 					case MetaExpansionToken_GreaterThan:{
 						if (!test_part) goto error;
 						if (test_part->conditional.lhs.kind == MetaExpansionConditionalArgumentKind_Invalid ||
 						    test_part->conditional.rhs.kind == MetaExpansionConditionalArgumentKind_Invalid)
 						{
 							b32 lhs = test_part->conditional.lhs.kind == MetaExpansionConditionalArgumentKind_Invalid;
 							b32 rhs = test_part->conditional.rhs.kind == MetaExpansionConditionalArgumentKind_Invalid;
 							if (lhs && rhs)
 								meta_compiler_error(loc, "expansion string test terminated without arguments\n");
 							meta_compiler_error(loc, "expansion string test terminated without %s argument\n",
 							                    lhs? "left" : "right");
 						}
 						count_test_parts = 1;
 					}break;
 					case MetaExpansionToken_Number:{
 						if (test_part) meta_expansion_end_conditional(test_part, p, token, 1);
 						else           test_part = meta_expansion_start_conditional(ctx, arena, &result, p, token, 1);
 					}break;
 					default:{ goto error; }break;
 					}
 				}break;
 
 				case MetaExpansionToken_Number:{
 					if (test_part) meta_expansion_end_conditional(test_part, p, token, 0);
 					else           test_part = meta_expansion_start_conditional(ctx, arena, &result, p, token, 0);
 				}break;
 
 				case MetaExpansionToken_GreaterThan:
 				case MetaExpansionToken_LessThan:
 				{
 					if (test_part && test_part->conditional.op != MetaExpansionOperation_Invalid) goto error;
 					if (!test_part) {
 						if (result.count == 0) {
 							meta_compiler_error(p->loc, "invalid expansion conditional: missing left hand side\n");
 						}
 
 						str8 *strings = result.data[result.count - 1].strings;
 						MetaExpansionPartKind last_kind = result.data[result.count - 1].kind;
 						if (last_kind != MetaExpansionPartKind_EvalKindCount &&
 						    last_kind != MetaExpansionPartKind_Reference)
 						{
 							meta_compiler_error(p->loc, "invalid expansion conditional: left hand side not numeric\n");
 						}
 						result.count--;
 						test_part = meta_expansion_start_conditional(ctx, arena, &result, p, token, 0);
 						if (last_kind == MetaExpansionPartKind_EvalKindCount) {
 							test_part->conditional.lhs.kind = MetaExpansionConditionalArgumentKind_Evaluation;
 						} else {
 							test_part->conditional.lhs.kind = MetaExpansionConditionalArgumentKind_Reference;
 						}
 						test_part->conditional.lhs.strings = strings;
 					}
 					test_part->conditional.op = token == MetaExpansionToken_LessThan ?
 					                                     MetaExpansionOperation_LessThan :
 					                                     MetaExpansionOperation_GreaterThan;
 				}break;
 
 				error:
 				default:
 				{
 					meta_compiler_error(loc, "invalid nested %.*s in expansion string\n",
 					                    (i32)meta_expansion_token_strings[token].length,
 					                    meta_expansion_token_strings[token].data);
 				}break;
 				}
 			}
 		}
 	} while (remainder.length);
 	return result;
 }
 
 function da_count
 meta_expand_table_entity_id(MetaContext *ctx, MetaEntry *e)
 {
 	assert(e->kind == MetaEntryKind_Expand);
 
 	/* TODO(rnp): for now this requires that the @Table came first */
 	meta_entry_argument_expected(e, str8("table_name"));
 	str8 table_name = meta_entry_argument_expect(e, 0, MetaEntryArgumentKind_String).string;
 
 	da_count result = meta_lookup_string_slow(ctx->entity_names.data, ctx->entity_names.count, table_name);
 
 	if (result < 0) meta_entry_error(e, "undefined table %.*s\n", (i32)table_name.length, table_name.data);
 
 	MetaEntity *table = ctx->entities.data + result;
 	if (!meta_entity_kind_is_table[table->kind]) {
 		str8 old_kind    = meta_entity_kind_names[table->kind];
 		str8 wanted_kind = meta_entity_kind_names[MetaEntityKind_Table];
 		meta_entry_error(e, "%.*s previously defined as %.*s but should be %.*s\n",
 		                 (i32)table_name.length,  table_name.data,
 		                 (i32)old_kind.length,    old_kind.data,
 		                 (i32)wanted_kind.length, wanted_kind.data);
 	}
 
 	return result;
 }
 
 function str8
 meta_expand_parts_to_str8_at_index(MetaContext *ctx, u64 table_index, MetaExpansionPartList parts)
 {
 	Stream sb = arena_stream(ctx->arena);
 	for EachIndex((u64)parts.count, part) {
 		MetaExpansionPart *p = parts.data + part;
 		u32 index = 0;
 		if (p->kind == MetaExpansionPartKind_Reference) index = table_index;
 		stream_append_str8(&sb, p->strings[index]);
 	}
 	str8 result = arena_stream_commit(ctx->arena, &sb);
 	return result;
 }
 
 function void
 meta_pack_table_begin(MetaEntry *e, MetaTable *t)
 {
 	switch (e->kind) {
 
 	case MetaEntryKind_Enumeration:
 	case MetaEntryKind_Flags:
 	{
 		read_only local_persist str8 enumeration_fields[] = {str8_comp("name")};
 		t->fields      = enumeration_fields;
 		t->field_count = countof(enumeration_fields);
 	}break;
 
 	case MetaEntryKind_Bake:
 	case MetaEntryKind_PushConstants:
 	case MetaEntryKind_Struct:
 	case MetaEntryKind_Union:
 	{
 		meta_entry_argument_expected_(e, 0, 0);
 		#define X(_i, name, ...) str8_comp(#name),
 		read_only local_persist str8 struct_fields[] = {META_STRUCT_FIELDS};
 		#undef X
 		t->fields      = struct_fields;
 		t->field_count = countof(struct_fields);
 	}break;
 
 	case MetaEntryKind_Table:{
 		meta_entry_argument_expected(e, str8("[field ...]"));
 		MetaEntryArgument fields = meta_entry_argument_expect(e, 0, MetaEntryArgumentKind_Array);
 		t->fields      = fields.strings;
 		t->field_count = (u32)fields.count;
 	}break;
 
 	InvalidDefaultCase;
 	}
 }
 
 function i64
 meta_pack_table_entity(MetaContext *ctx, MetaEntry *e, i64 entry_count, str8 name, MetaEntityID parent)
 {
 	MetaEntityKind entity_kind = MetaEntityKind_Nil;
 	switch (e->kind) {
 	case MetaEntryKind_Bake:{         entity_kind = MetaEntityKind_BakeParameters;}break;
 	case MetaEntryKind_Enumeration:{  entity_kind = MetaEntityKind_Enumeration;   }break;
 	case MetaEntryKind_Flags:{        entity_kind = MetaEntityKind_Flags;         }break;
 	case MetaEntryKind_PushConstants:{entity_kind = MetaEntityKind_PushConstants; }break;
 	case MetaEntryKind_Struct:{       entity_kind = MetaEntityKind_Struct;        }break;
 	case MetaEntryKind_Table:{        entity_kind = MetaEntityKind_Table;         }break;
 	case MetaEntryKind_Union:{        entity_kind = MetaEntityKind_Union;         }break;
 	InvalidDefaultCase;
 	}
 
 	MetaEntityID entity_id = meta_intern_entity(ctx, name, entity_kind, parent, e->location, 0);
 
 	MetaTable table = {0}, *t = &table;
 	meta_pack_table_begin(e, t);
 
 	b32 structure = e->kind == MetaEntryKind_Struct ||
 	                e->kind == MetaEntryKind_Bake ||
 	                e->kind == MetaEntryKind_PushConstants ||
 	                e->kind == MetaEntryKind_Union;
 
 	MetaEntryScope scope = meta_entry_extract_scope(e, entry_count);
 	Temp scratch;
 	if (scope.consumed > 1)
 	DeferLoop(scratch = temp_begin(ctx->scratch), temp_end(scratch))
 	{
 		// NOTE(rnp): count expands
 		i64 expand_count = 0;
 		for (MetaEntry *row = scope.start; row != scope.one_past_last; row++)
 			if (row->kind == MetaEntryKind_Expand)
 				expand_count++;
 
 		// NOTE(rnp): extract expand tables
 		da_count *table_ids = 0;
 		i64 table_id_index = 0;
 		if (expand_count > 0) {
 			table_ids = push_array(ctx->scratch, da_count, expand_count);
 			for (MetaEntry *row = scope.start; row != scope.one_past_last; row++)
 				if (row->kind == MetaEntryKind_Expand)
 					table_ids[table_id_index++] = meta_expand_table_entity_id(ctx, row);
 		}
 
 		table_id_index = 0;
 		for (MetaEntry *row = scope.start; row != scope.one_past_last; row++) {
 			if (row->kind != MetaEntryKind_Array &&
 			    row->kind != MetaEntryKind_Expand &&
 			    row->kind != MetaEntryKind_String)
 			{
 				meta_entry_nesting_error(row, e->kind);
 			}
 
 			MetaEntryArgument entries = {.count = 1};
 
 			if (row->kind == MetaEntryKind_Expand) {
 				if (row + 1 == scope.one_past_last || (
 				    row[1].kind != MetaEntryKind_Array &&
 				    row[1].kind != MetaEntryKind_String))
 				{
 					meta_entry_nesting_error(row + 1, row->kind);
 				}
 
 				if (row[1].kind == MetaEntryKind_Array)
 					entries.count = meta_entry_argument_expect(row + 1, 0, MetaEntryArgumentKind_Array).count;
 			}
 
 			if (row->kind == MetaEntryKind_Array)
 				entries.count = meta_entry_argument_expect(row, 0, MetaEntryArgumentKind_Array).count;
 
 			if (structure && entries.count != 2 && entries.count != 3) {
 				meta_compiler_error(row->location, "incorrect field count for @%s entry got: %zu expected: "
 				                    "[name type (elements)]\n", meta_entry_kind_strings[e->kind],
 				                    (size_t)entries.count);
 			} else if (!structure && entries.count != t->field_count) {
 				meta_compiler_error_message(row->location, "incorrect field count for @%s entry got: %zu expected: %u\n",
 				                            meta_entry_kind_strings[e->kind], (size_t)entries.count, t->field_count);
 				fprintf(stderr, "  fields: [");
 				for (u64 i = 0; i < t->field_count; i++) {
 					if (i != 0) fprintf(stderr, " ");
 					fprintf(stderr, "%.*s", (i32)t->fields[i].length, t->fields[i].data);
 				}
 				fprintf(stderr, "]\n");
 				meta_error();
 			}
 
 			if (row->kind == MetaEntryKind_Expand) {
 				t->entry_count += ctx->entities.data[table_ids[table_id_index++]].table.entry_count;
 				// NOTE(rnp): skip expand argument
 				row++;
 			} else {
 				t->entry_count++;
 			}
 		}
 
 		t->entries = push_array(ctx->arena, str8 *, t->field_count);
 		for (u32 field = 0; field < t->field_count; field++)
 			t->entries[field] = push_array(ctx->arena, str8, t->entry_count);
 
 		u32 row_index = 0;
 		table_id_index = 0;
 		for (MetaEntry *row = scope.start; row != scope.one_past_last; row++) {
 			u64 argument_count = row->arguments ? row->arguments->count : 1;
 			if (row->kind == MetaEntryKind_Expand) {
 				row++;
 				argument_count = row->arguments ? row->arguments->count : 1;
 
 				MetaEntity *table = ctx->entities.data + table_ids[table_id_index++];
 
 				u32 working_row_index = row_index;
 				for EachIndex(argument_count, it) {
 					working_row_index = row_index;
 					str8 expand = row->arguments ? row->arguments->strings[it] : row->name;
 					MetaExpansionPartList parts = meta_generate_expansion_set(ctx, ctx->scratch, expand, table, row->location);
 					for EachIndex(table->table.entry_count, entry_index)
 						t->entries[it][working_row_index++] = meta_expand_parts_to_str8_at_index(ctx, entry_index, parts);
 				}
 
 				for (; row_index < working_row_index; row_index++)
 					if (structure && argument_count == 2)
 						t->entries[2][row_index] = str8("1");
 
 			} else {
 				str8 *fs = &row->name;
 				if (row->arguments)
 					fs = row->arguments->strings;
 
 				for (u32 field = 0; field < t->field_count; field++)
 					t->entries[field][row_index] = fs[field];
 
 				// NOTE(rnp): if we are filling out a struct the array element count is optional
 				// and defaults to 1. fill this out here for uniformity elsewhere in the code
 				if (structure && argument_count == 2)
 					t->entries[2][row_index] = str8("1");
 				row_index++;
 			}
 		}
 	}
 
 	MetaEntity *entity = meta_entity(ctx, entity_id);
 	entity->table = table;
 
 	switch (e->kind) {
 	case MetaEntryKind_Bake:
 	case MetaEntryKind_Enumeration:
 	case MetaEntryKind_Flags:
 	case MetaEntryKind_PushConstants:
 	case MetaEntryKind_Struct:
 	case MetaEntryKind_Table:
 	case MetaEntryKind_Union:
 	{}break;
 
 	InvalidDefaultCase;
 	}
 
 	return scope.consumed;
 }
 
 function i64
 meta_pack_shader_common(MetaContext *ctx, MetaEntityID shader_id, MetaEntry *e, i64 entry_count, MetaEntityID group_entity_id)
 {
 	assert(ctx->entities.data[shader_id.value].kind == MetaEntityKind_Shader);
 	i64 result = 0;
 
 	switch(e->kind) {
 
 	case MetaEntryKind_Bake:{
 		e->name = push_str8_from_parts(ctx->arena, str8(""), ctx->entity_names.data[shader_id.value], str8("BakeParameters"));
 		result  = meta_pack_table_entity(ctx, e, entry_count, e->name, shader_id);
 	}break;
 
 	case MetaEntryKind_Flags:{
 		e->name = push_str8_from_parts(ctx->arena, str8(""), ctx->entity_names.data[shader_id.value], str8("CompileFlags"));
 		result  = meta_pack_table_entity(ctx, e, entry_count, e->name, shader_id);
 		goto reference;
 	}break;
 
 	case MetaEntryKind_PushConstants:{
 		e->name = push_str8_from_parts(ctx->arena, str8(""), ctx->entity_names.data[shader_id.value], str8("PushConstants"));
 		result  = meta_pack_table_entity(ctx, e, entry_count, e->name, shader_id);
 		goto reference;
 	}break;
 
 	case MetaEntryKind_ShaderAlias:{
 		MetaEntityID alias_id = meta_intern_entity(ctx, e->name, MetaEntityKind_Shader, group_entity_id,
 		                                           e->location, 0);
 		meta_entity(ctx, alias_id)->shader.kind            = MetaShaderKind_Alias;
 		meta_entity(ctx, alias_id)->shader.alias_parent_id = shader_id;
 	}break;
 
 	case MetaEntryKind_Enumeration:
 	case MetaEntryKind_Constant:
 	case MetaEntryKind_Struct:
 	reference:
 	{
 		meta_entry_argument_expected(e);
 		// TODO(rnp): MetaIDList.data should be of type MetaEntityID
 		MetaEntityID  ref_id = meta_entity_reference(ctx, e->name, e->location);
 		meta_intern_id(ctx, &meta_entity(ctx, shader_id)->shader.entity_reference_ids, ref_id.value);
 	}break;
 
 	default:{ meta_entry_nesting_error(e, MetaEntryKind_Shader); }break;
 	}
 
 	return result;
 }
 
 function i64
 meta_pack_render_shader(MetaContext *ctx, MetaEntry *entries, i64 entry_count, MetaEntityID group_entity_id)
 {
 	assert(entries[0].kind == MetaEntryKind_RenderShader);
 
 	MetaEntityID entity_id = meta_intern_entity(ctx, entries->name, MetaEntityKind_Shader,
 	                                            group_entity_id, entries->location, 0);
 	meta_entity(ctx, entity_id)->shader.kind = MetaShaderKind_Render;
 
 	meta_entry_argument_expected(entries);
 
 	MetaEntryScope scope = meta_entry_extract_scope(entries, entry_count);
 	if (scope.consumed > 1) {
 		for (MetaEntry *e = scope.start; e < scope.one_past_last; e++) {
 			switch (e->kind) {
 
 			case MetaEntryKind_VertexShader:{
 				if (meta_entity(ctx, entity_id)->shader.files[0].length)
 					meta_entry_error(e, "primitive shader file redefined\n");
 				meta_entity(ctx, entity_id)->shader.files[0] = meta_entry_argument_expect(e, 0, MetaEntryArgumentKind_String).string;
 				meta_entity(ctx, entity_id)->shader.render.kind = MetaShaderPrimitiveKind_Vertex;
 			}break;
 
 			case MetaEntryKind_FragmentShader:{
 				if (meta_entity(ctx, entity_id)->shader.files[1].length)
 					meta_entry_error(e, "fragment shader file redefined\n");
 				meta_entity(ctx, entity_id)->shader.files[1] = meta_entry_argument_expect(e, 0, MetaEntryArgumentKind_String).string;
 			}break;
 
 			default:{
 				e += meta_pack_shader_common(ctx, entity_id, e, scope.one_past_last - e, group_entity_id);
 			}break;
 			}
 		}
 	}
 	return scope.consumed;
 }
 
 function i64
 meta_pack_compute_shader(MetaContext *ctx, MetaEntry *entries, i64 entry_count, MetaEntityID group_entity_id)
 {
 	assert(entries[0].kind == MetaEntryKind_Shader);
 
 	MetaEntityID entity_id = meta_intern_entity(ctx, entries->name, MetaEntityKind_Shader, group_entity_id,
 	                                        entries->location, 0);
 	meta_entity(ctx, entity_id)->shader.kind = MetaShaderKind_Compute;
 
 	if (entries->argument_count > 1) {
 		meta_entry_argument_expected(entries, str8("[file_name]"));
 	} else if (entries->argument_count == 1) {
 		str8 shader_file = meta_entry_argument_expect(entries, 0, MetaEntryArgumentKind_String).string;
 		meta_entity(ctx, entity_id)->shader.files[0] = shader_file;
 	}
 
 	MetaEntryScope scope = meta_entry_extract_scope(entries, entry_count);
 	if (scope.consumed > 1) {
 		for (MetaEntry *e = scope.start; e < scope.one_past_last; e++)
 			e += meta_pack_shader_common(ctx, entity_id, e, scope.one_past_last - e, group_entity_id);
 	} else {
 		assert(scope.consumed == 1);
 		// TODO(rnp): some functions (@Expand) expect no scope and that the next entry
 		// is treated as in scope; here we do not want that behaviour.
 		scope.consumed = 0;
 	}
 	return scope.consumed;
 }
 
 function i64
 meta_pack_shader_group(MetaContext *ctx, MetaEntry *entries, i64 entry_count)
 {
 	assert(entries->kind == MetaEntryKind_ShaderGroup);
 
 	MetaEntityID entity_id = meta_intern_entity(ctx, entries->name, MetaEntityKind_ShaderGroup,
 	                                            meta_root_entity_id(ctx), entries->location, 0);
 
 	MetaEntryScope scope = meta_entry_extract_scope(entries, entry_count);
 	if (scope.consumed > 1) {
 		for (MetaEntry *e = scope.start; e < scope.one_past_last; e++) {
 			switch (e->kind) {
 			case MetaEntryKind_RenderShader:{
 				e += meta_pack_render_shader(ctx, e, scope.one_past_last - e, entity_id);
 			}break;
 			case MetaEntryKind_Shader:{
 				e += meta_pack_compute_shader(ctx, e, scope.one_past_last - e, entity_id);
 			}break;
 			default:{meta_entry_nesting_error(e, MetaEntryKind_ShaderGroup);}break;
 			}
 		}
 	}
 	return scope.consumed;
 }
 
 function i64
 meta_pack_references(MetaContext *ctx, MetaEntry *entries, i64 entry_count, MetaEntityID parent,
                      str8 scope_name, str8 prefix)
 {
 	MetaEntryScope scope = meta_entry_extract_scope(entries, entry_count);
 	for (MetaEntry *e = scope.start; e < scope.one_past_last; e++) {
 		switch (e->kind) {
 		case MetaEntryKind_Struct:
 		case MetaEntryKind_Union:
 		{
 			meta_entity_reference_reference(ctx, e->name, scope_name, e->location, parent, prefix);
 		}break;
 		default:{meta_entry_nesting_error(e, entries->kind);}break;
 		}
 	}
 	return scope.consumed;
 }
 
 function str8 *
 meta_expand_to_str8_array(MetaContext *ctx, str8 expand, MetaEntity *table, MetaLocation location)
 {
 	str8 *result = 0;
 	Temp scratch;
 	DeferLoop(scratch = temp_begin(ctx->scratch), temp_end(scratch))
 	{
 		MetaExpansionPartList parts = meta_generate_expansion_set(ctx, ctx->scratch, expand, table, location);
 		result = push_array(ctx->arena, str8, table->table.entry_count);
 		for EachIndex(table->table.entry_count, expansion)
 			result[expansion] = meta_expand_parts_to_str8_at_index(ctx, expansion, parts);
 	}
 	return result;
 }
 
 function i64
 meta_expand(MetaContext *ctx, MetaEntry *e, i64 entry_count, MetaEmitOperationList *ops)
 {
 	assert(e->kind == MetaEntryKind_Expand);
 
 	MetaEntity *table = ctx->entities.data + meta_expand_table_entity_id(ctx, e);
 	str8 table_name = ctx->entity_names.data[da_index(table, &ctx->entities)];
 
 	MetaEntryScope scope = meta_entry_extract_scope(e, entry_count);
 	for (MetaEntry *row = scope.start; row != scope.one_past_last; row++) {
 		switch (row->kind) {
 		case MetaEntryKind_String:{
 			if (!ops) goto error;
 
 			MetaExpansionPartList parts = meta_generate_expansion_set(ctx, ctx->arena, row->name, table, row->location);
 
 			MetaEmitOperation *op = da_push(ctx->arena, ops);
 			op->kind     = MetaEmitOperationKind_Expand;
 			op->location = row->location;
 			op->expansion_operation.parts           = parts.data;
 			op->expansion_operation.part_count      = (u32)parts.count;
 			op->expansion_operation.table_entity_id = da_index(table, &ctx->entities);
 		}break;
 
 		case MetaEntryKind_Enumeration:
 		case MetaEntryKind_Flags:
 		{
 			if (ops) meta_entry_nesting_error(row, MetaEntryKind_Emit);
 
 			meta_entry_argument_expected(row, str8("`raw_string`"));
 			str8 expand = meta_entry_argument_expect(row, 0, MetaEntryArgumentKind_String).string;
 
 			MetaEntityKind entity_kind = row->kind == MetaEntryKind_Flags ? MetaEntityKind_Flags : MetaEntityKind_Enumeration;
 			MetaEntityID entity_id = meta_intern_entity(ctx, row->name, entity_kind, meta_root_entity_id(ctx),
 			                                            row->location, 0);
 			MetaEntry entry = {.kind = row->kind};
 			MetaEntity *new = ctx->entities.data + entity_id.value;
 			meta_pack_table_begin(&entry, &new->table);
 			new->table.entries     = push_array(ctx->arena, str8 *, new->table.field_count);
 			new->table.entry_count = table->table.entry_count;
 			new->table.entries[0]  = meta_expand_to_str8_array(ctx, expand, table, row->location);
 		}break;
 
 		case MetaEntryKind_Struct:
 		case MetaEntryKind_Union:
 		{
 			if (ops) meta_entry_nesting_error(row, MetaEntryKind_Emit);
 			MetaEntryArgument fields = meta_entry_argument_expect(row, 0, MetaEntryArgumentKind_Array);
 			if (fields.count != 2 && fields.count != 3) {
 				meta_compiler_error(row->location, "Invalid arguments in table expansion: '%.*s'\n"
 				                                   "Union expansion requires field names for member names, type names, "
 				                                   "and optionally element counts.\n", (i32)table_name.length, table_name.data);
 			}
 
 			MetaEntityKind entity_kind = row->kind == MetaEntryKind_Struct ? MetaEntityKind_Struct : MetaEntityKind_Union;
 			MetaEntityID   entity_id   = meta_intern_entity(ctx, row->name, entity_kind,
 			                                                meta_root_entity_id(ctx), row->location, 0);
 			MetaEntry entry = {.kind = row->kind};
 			MetaEntity *new = ctx->entities.data + entity_id.value;
 			meta_pack_table_begin(&entry, &new->table);
 			new->table.entries     = push_array(ctx->arena, str8 *, new->table.field_count);
 			new->table.entry_count = table->table.entry_count;
 			new->table.entries[MetaStructField_Name] = meta_expand_to_str8_array(ctx, fields.strings[0],
 			                                                                     table, row->location);
 			new->table.entries[MetaStructField_Type] = meta_expand_to_str8_array(ctx, fields.strings[1],
 			                                                                     table, row->location);
 			if (fields.count == 3) {
 				new->table.entries[MetaStructField_Elements] = meta_expand_to_str8_array(ctx, fields.strings[2],
 				                                                                         table, row->location);
 			} else {
 				new->table.entries[MetaStructField_Elements] = push_array(ctx->arena, str8, table->table.entry_count);
 				for EachIndex(new->table.entry_count, entry)
 					new->table.entries[MetaStructField_Elements][entry] = str8("1");
 			}
 		}break;
 
 		error:
 		default:
 		{
 			meta_entry_nesting_error(row, MetaEntryKind_Expand);
 		}break;
 		}
 	}
 	return scope.consumed;
 }
 
 function void
 meta_embed(MetaContext *ctx, MetaEntry *e, i64 entry_count)
 {
 	assert(e->kind == MetaEntryKind_Embed);
 
 	meta_entry_argument_expected(e, str8("filename"));
 	str8 filename = meta_entry_argument_expect(e, 0, MetaEntryArgumentKind_String).string;
 
 	MetaEmitOperationList *ops = da_push(ctx->arena, ctx->emit_sets + MetaEmitLang_C);
 	if (e->name.length == 0) meta_entry_error(e, "name must be provided for output array");
 
 	MetaEmitOperation *op;
 	op = da_push(ctx->arena, ops);
 	op->kind   = MetaEmitOperationKind_String;
 	op->string = push_str8_from_parts(ctx->arena, str8(""), str8("read_only global u8 "), e->name, str8("[] = {"));
 
 	op = da_push(ctx->arena, ops);
 	op->kind   = MetaEmitOperationKind_FileBytes;
 	op->string = filename;
 
 	op = da_push(ctx->arena, ops);
 	op->kind   = MetaEmitOperationKind_String;
 	op->string = str8("};");
 }
 
 function MetaKind
 meta_map_kind(str8 kind, str8 table_name, MetaLocation location)
 {
 	i64 id = meta_lookup_string_slow(meta_kind_meta_types, MetaKind_Count, kind);
 	if (id < 0) {
 		meta_compiler_error(location, "Invalid Kind in '%.*s' table expansion: %.*s\n",
 		                    (i32)table_name.length, table_name.data, (i32)kind.length, kind.data);
 	}
 	MetaKind result = (MetaKind)id;
 	return result;
 }
 
 function MetaEmitLang
 meta_map_emit_lang(str8 lang, MetaEntry *e)
 {
 	#define X(k, ...) str8_comp(#k),
 	read_only local_persist str8 meta_lang_strings[] = {META_EMIT_LANG_LIST};
 	#undef X
 
 	i64 id = meta_lookup_string_slow(meta_lang_strings, MetaEmitLang_Count, lang);
 	if (id < 0) {
 		#define X(k, ...) #k ", "
 		meta_entry_error(e, "Unknown Emit Language: '%.*s'\nPossible Values: "
 		                 META_EMIT_LANG_LIST "\n", (i32)lang.length, lang.data);
 		#undef X
 	}
 	MetaEmitLang result = (MetaEmitLang)id;
 	return result;
 }
 
 function void
 meta_pack_constant(MetaContext *ctx, MetaEntry *e)
 {
 	assert(e->kind == MetaEntryKind_Constant);
 
 	MetaEntityID entity_id = meta_intern_entity(ctx, e->name, MetaEntityKind_Constant,
 	                                            meta_root_entity_id(ctx), e->location, 0);
 
 	meta_entry_argument_expected(e, str8("value"));
 	str8 value = meta_entry_argument_expect(e, 0, MetaEntryArgumentKind_String).string;
 
 	NumberConversion number = number_from_str8(value);
 	if (number.result != NumberConversionResult_Success || number.unparsed.length != 0) {
 		meta_compiler_error(e->location, "Invalid integer in definition of Constant '%.*s': %.*s\n",
 		                    (i32)e->name.length, e->name.data, (i32)value.length, value.data);
 	}
 
 	MetaEntity *entity = meta_entity(ctx, entity_id);
 	if (number.kind == NumberConversionKind_Float) {
 		entity->constant.kind = MetaConstantKind_Float;
 		entity->constant.F64  = number.F64;
 	} else {
 		entity->constant.kind = MetaConstantKind_Integer;
 		entity->constant.U64  = number.U64;
 	}
 }
 
 function i64
 meta_pack_emit(MetaContext *ctx, MetaEntry *e, i64 entry_count)
 {
 	assert(e->kind == MetaEntryKind_Emit);
 
 	MetaEmitLang lang = MetaEmitLang_C;
 	if (e->argument_count) {
 		meta_entry_argument_expected(e, str8("emit_language"));
 		str8 name = meta_entry_argument_expect(e, 0, MetaEntryArgumentKind_String).string;
 		lang = meta_map_emit_lang(name, e);
 	}
 
 	MetaEmitOperationList *ops = da_push(ctx->arena, ctx->emit_sets + lang);
 	/* TODO(rnp): probably we should check this is unique */
 	ops->filename = e->name;
 
 	MetaEntryScope scope = meta_entry_extract_scope(e, entry_count);
 	for (MetaEntry *row = scope.start; row != scope.one_past_last; row++) {
 		switch (row->kind) {
 		case MetaEntryKind_String:{
 			MetaEmitOperation *op = da_push(ctx->arena, ops);
 			op->kind     = MetaEmitOperationKind_String;
 			op->string   = row->name;
 			op->location = row->location;
 		}break;
 		case MetaEntryKind_Expand:{
 			row += meta_expand(ctx, row, entry_count - (row - e), ops);
 		}break;
 		default:{ meta_entry_nesting_error(row, MetaEntryKind_Emit); }break;
 		}
 	}
 	return scope.consumed;
 }
 
 function CommandList
 meta_extract_emit_file_dependencies(MetaContext *ctx, Arena *arena)
 {
 	CommandList result = {0};
 	for (i64 set = 0; set < ctx->emit_sets[MetaEmitLang_C].count; set++) {
 		MetaEmitOperationList *ops = ctx->emit_sets[MetaEmitLang_C].data + set;
 		for (i64 opcode = 0; opcode < ops->count; opcode++) {
 			MetaEmitOperation *op = ops->data + opcode;
 			switch (op->kind) {
 			case MetaEmitOperationKind_FileBytes:{
 				str8 filename = push_str8_from_parts(arena, str8(OS_PATH_SEPARATOR), ctx->directory, op->string);
 				*da_push(arena, &result) = (c8 *)filename.data;
 			}break;
 			default:{}break;
 			}
 		}
 	}
 	return result;
 }
 
 function void
 metagen_push_byte_array(MetaprogramContext *m, str8 bytes)
 {
 	for (i64 i = 0; i < bytes.length; i++) {
 		b32 end_line = (i != 0) && (i % 16) == 0;
 		if (i != 0) meta_push(m, end_line ? str8(",") : str8(", "));
 		if (end_line) meta_end_line(m);
 		if ((i % 16) == 0) meta_indent(m);
 		meta_push(m, str8("0x"));
 		meta_push_u64_hex(m, bytes.data[i]);
 	}
 	meta_end_line(m);
 }
 
 function void
 metagen_push_table(MetaprogramContext *m, str8 row_start, str8 row_end, str8 **column_strings, u64 rows, u64 columns)
 {
 	Temp scratch;
 	DeferLoop(scratch = temp_begin(m->scratch), temp_end(scratch))
 	{
 		u32 *column_widths = 0;
 		if (columns > 1) {
 			column_widths = push_array(m->scratch, u32, columns - 1);
 			for (u64 column = 0; column < columns - 1; column++) {
 				str8 *strings = column_strings[column];
 				for (u64 row = 0; row < rows; row++)
 					column_widths[column] = Max(column_widths[column], (u32)strings[row].length);
 			}
 		}
 
 		for (u64 row = 0; row < rows; row++) {
 			meta_begin_line(m, row_start);
 			for (u64 column = 0; column < columns; column++) {
 				str8 text = column_strings[column][row];
 				meta_push(m, text);
 				i32 pad = columns > 1 ? 1 : 0;
 				if (column_widths && column < columns - 1)
 					pad += (i32)column_widths[column] - (i32)text.length;
 				if (column < columns - 1) meta_pad(m, ' ', pad);
 			}
 			meta_end_line(m, row_end);
 		}
 	}
 }
 
 function i64
 meta_expansion_part_conditional_argument(MetaExpansionConditionalArgument a, u32 entry,
                                          str8 table_name, MetaLocation loc)
 {
 	i64 result = 0;
 	switch (a.kind) {
 	case MetaExpansionConditionalArgumentKind_Number:{
 		result = a.number;
 	}break;
 
 	case MetaExpansionConditionalArgumentKind_Evaluation:
 	{
 		str8 string   = a.strings[entry];
 		MetaKind kind = meta_map_kind(string, table_name, loc);
 		result        = meta_kind_elements[kind];
 	}break;
 
 	case MetaExpansionConditionalArgumentKind_Reference:{
 		str8 string = a.strings[entry];
 		NumberConversion integer = integer_from_str8(string);
 		if (integer.result != NumberConversionResult_Success) {
 			meta_compiler_error(loc, "Invalid integer in '%.*s' table expansion: %.*s\n",
 			                    (i32)table_name.length, table_name.data, (i32)string.length, string.data);
 		}
 		result = integer.S64;
 	}break;
 
 	InvalidDefaultCase;
 	}
 
 	return result;
 }
 
 function b32
 meta_expansion_part_conditional(MetaExpansionPart *p, u32 entry, str8 table_name, MetaLocation loc)
 {
 	assert(p->kind == MetaExpansionPartKind_Conditional);
 	b32 result = 0;
 	i64 lhs = meta_expansion_part_conditional_argument(p->conditional.lhs, entry, table_name, loc);
 	i64 rhs = meta_expansion_part_conditional_argument(p->conditional.rhs, entry, table_name, loc);
 	switch (p->conditional.op) {
 	case MetaExpansionOperation_LessThan:{    result = lhs < rhs; }break;
 	case MetaExpansionOperation_GreaterThan:{ result = lhs > rhs; }break;
 	InvalidDefaultCase;
 	}
 	return result;
 }
 
 function void
 metagen_run_emit(MetaprogramContext *m, MetaContext *ctx, MetaEmitOperationList *ops, str8 *evaluation_table)
 {
 	for (i64 opcode = 0; opcode < ops->count; opcode++) {
 		MetaEmitOperation *op = ops->data + opcode;
 		switch (op->kind) {
 		case MetaEmitOperationKind_String:{ meta_push_line(m, op->string); }break;
 		case MetaEmitOperationKind_FileBytes:{
 			Temp scratch;
 			DeferLoop(scratch = temp_begin(m->scratch), temp_end(scratch))
 			{
 				str8 filename = push_str8_from_parts(m->scratch, str8(OS_PATH_SEPARATOR), ctx->directory, op->string);
 				str8 file     = os_read_entire_file(m->scratch, (c8 *)filename.data);
 				m->indentation_level++;
 				metagen_push_byte_array(m, file);
 				m->indentation_level--;
 			}
 		}break;
 		case MetaEmitOperationKind_Expand:{
 			Temp scratch;
 			DeferLoop(scratch = temp_begin(m->scratch), temp_end(scratch))
 			{
 				MetaEmitOperationExpansion *eop = &op->expansion_operation;
 				MetaTable *t = &ctx->entities.data[eop->table_entity_id].table;
 				str8 table_name = ctx->entity_names.data[eop->table_entity_id];
 
 				u32 alignment_count  = 1;
 				u32 evaluation_count = 0;
 				for (u32 part = 0; part < eop->part_count; part++) {
 					if (eop->parts[part].kind == MetaExpansionPartKind_Alignment)
 						alignment_count++;
 					if (eop->parts[part].kind == MetaExpansionPartKind_EvalKind ||
 					    eop->parts[part].kind == MetaExpansionPartKind_EvalKindCount)
 						evaluation_count++;
 				}
 
 				MetaKind **evaluation_columns = push_array(m->scratch, MetaKind *, evaluation_count);
 				for (u32 column = 0; column < evaluation_count; column++)
 					evaluation_columns[column] = push_array(m->scratch, MetaKind, t->entry_count);
 
 				for (u32 part = 0; part < eop->part_count; part++) {
 					u32 eval_column = 0;
 					MetaExpansionPart *p = eop->parts + part;
 					if (p->kind == MetaExpansionPartKind_EvalKind) {
 						for (u32 entry = 0; entry < t->entry_count; entry++) {
 							evaluation_columns[eval_column][entry] = meta_map_kind(p->strings[entry],
 							                                                       table_name, op->location);
 						}
 						eval_column++;
 					}
 				}
 
 				str8 **columns = push_array(m->scratch, str8 *, alignment_count);
 				for (u32 column = 0; column < alignment_count; column++)
 					columns[column] = push_array(m->scratch, str8, t->entry_count);
 
 				Stream sb = arena_stream(m->scratch);
 				for (u32 entry = 0; entry < t->entry_count; entry++) {
 					u32 column      = 0;
 					u32 eval_column = 0;
 					for (u32 part = 0; part < eop->part_count; part++) {
 						MetaExpansionPart *p = eop->parts + part;
 						switch (p->kind) {
 						case MetaExpansionPartKind_Alignment:{
 							columns[column][entry] = arena_stream_commit_and_reset(m->scratch, &sb);
 							column++;
 						}break;
 
 						case MetaExpansionPartKind_Conditional:{
 							if (!meta_expansion_part_conditional(p, entry, table_name, op->location))
 								part += p->conditional.instruction_skip;
 						}break;
 
 						case MetaExpansionPartKind_EvalKind:{
 							str8 kind = evaluation_table[evaluation_columns[eval_column][entry]];
 							stream_append_str8(&sb, kind);
 						}break;
 
 						case MetaExpansionPartKind_EvalKindCount:{
 							stream_append_u64(&sb, meta_kind_elements[evaluation_columns[eval_column][entry]]);
 						}break;
 
 						case MetaExpansionPartKind_Reference:
 						case MetaExpansionPartKind_String:
 						{
 							str8 string = p->kind == MetaExpansionPartKind_Reference ? p->strings[entry] : p->string;
 							stream_append_str8(&sb, string);
 						}break;
 						}
 					}
 
 					columns[column][entry] = arena_stream_commit_and_reset(m->scratch, &sb);
 				}
 				metagen_push_table(m, str8(""), str8(""), columns, t->entry_count, alignment_count);
 			}
 		}break;
 		InvalidDefaultCase;
 		}
 	}
 	meta_end_line(m);
 }
 
 function void
 metagen_run_emit_set(MetaprogramContext *m, MetaContext *ctx, MetaEmitOperationListSet *emit_set,
                      str8 *evaluation_table)
 {
 	for (i64 set = 0; set < emit_set->count; set++) {
 		MetaEmitOperationList *ops = emit_set->data + set;
 		metagen_run_emit(m, ctx, ops, evaluation_table);
 	}
 }
 
 function i32
 meta_struct_member_elements(MetaContext *ctx, MetaStruct *s, u32 member)
 {
 	assert(member < s->info.member_count);
 	i32 result = s->elements[member];
 	if (s->member_flags[member] & MetaBuildStructMemberFlag_ReferenceElements)
 		result = (i32)meta_entity(ctx, (MetaEntityID){result})->constant.U64;
 	if (s->member_flags[member] & MetaBuildStructMemberFlag_EnumerationCount)
 		result = (i32)meta_entity(ctx, (MetaEntityID){result})->table.entry_count;
 	return result;
 }
 
 function void
 metagen_push_counted_enum_body(MetaprogramContext *m, str8 kind, str8 prefix, str8 mid, str8 suffix,
                                str8 *ids, i64 ids_count)
 {
 	i64 max_id_length = 0;
 	for (i64 id = 0; id < ids_count; id++)
 		max_id_length = Max(max_id_length, ids[id].length);
 
 	for (i64 id = 0; id < ids_count; id++) {
 		meta_begin_line(m, prefix, kind, ids[id]);
 		meta_pad(m, ' ', 1 + (i32)(max_id_length - ids[id].length));
 		meta_push(m, mid);
 		meta_push_u64(m, (u64)id);
 		meta_end_line(m, suffix);
 	}
 }
 
 function void
 metagen_push_counted_enum_body_from_ids(MetaprogramContext *m, str8 kind, str8 prefix, str8 mid, str8 suffix,
                                         da_count *ids, str8 *id_names, da_count ids_count)
 {
 	i64 max_id_length = 0;
 	for (i64 id = 0; id < ids_count; id++)
 		max_id_length = Max(max_id_length, id_names[ids[id]].length);
 
 	for (i64 id = 0; id < ids_count; id++) {
 		meta_begin_line(m, prefix, kind, id_names[ids[id]]);
 		meta_pad(m, ' ', 1 + (i32)(max_id_length - id_names[ids[id]].length));
 		meta_push(m, mid);
 		meta_push_i64(m, id);
 		meta_end_line(m, suffix);
 	}
 }
 
 function void
 metagen_push_c_enum(MetaprogramContext *m, str8 kind, b32 flags, str8 *ids, i64 ids_count)
 {
 	str8 kind_full = push_str8_from_parts(m->scratch, str8(""), kind, str8("_"));
 	meta_begin_scope(m, str8("typedef enum {"));
 	metagen_push_counted_enum_body(m, kind_full, str8(""), flags ? str8("= 1 << ") : str8("= "), str8(","), ids, ids_count);
 	if (!flags) meta_push_line(m, kind_full, str8("Count,"));
 	meta_end_scope(m, str8("} "), kind, str8(";\n"));
 }
 
 typedef enum {
 	MetaPushStructStyle_C,
 	MetaPushStructStyle_MATLAB,
 	MetaPushStructStyle_Count,
 } MetaPushStructStyle;
 
 typedef struct {
 	MetaPushStructStyle layout_style;
 	MetaPushStructStyle union_style;
 	MetaPushStructStyle element_count_style;
 	str8 *base_types;
 	u8   *base_type_element_count_scales;
 	str8  prefix;
 	str8  suffix;
 	str8  str_element_prefix;
 } MetaPushStructParameters;
 
 function void
 meta_push_struct_body(MetaContext *ctx, MetaprogramContext *m, MetaEntity *struct_entity,
                       MetaPushStructParameters p)
 {
 	struct stack_item {MetaEntity *se; u32 member_offset;} init[16];
 	struct {
 		struct stack_item *data;
 		da_count count;
 		da_count capacity;
 	} stack = {init, 0, countof(init)};
 
 	Temp scratch = temp_begin(m->scratch);
 
 	u32 flattened_member_count = 0;
 
 	*da_push(m->scratch, &stack) = (struct stack_item){struct_entity, 0};
 	while (stack.count > 0) {
 		stack.count--;
 		MetaEntity *se = stack.data[stack.count].se;
 		MetaStruct *s  = ctx->struct_infos + se->table.struct_info_id;
 		u32 member     = stack.data[stack.count].member_offset;
 		while (member < s->info.member_count) {
 			if (s->members[member].length == 0) {
 				assert(s->member_flags[member] & MetaStructMemberFlag_ReferenceType);
 				MetaStruct *ss = ctx->struct_infos + ctx->entities.data[s->type_ids[member]].table.struct_info_id;
 				if (ss->info.flags & MetaStructFlag_Union) {
 					member++;
 					flattened_member_count++;
 				} else {
 					*da_push(ctx->scratch, &stack) = (struct stack_item){se, member + 1};
 					*da_push(ctx->scratch, &stack) = (struct stack_item){ctx->entities.data + s->type_ids[member], 0};
 					break;
 				}
 			} else {
 				member++;
 				flattened_member_count++;
 			}
 		}
 	}
 
 	str8 *columns[2];
 	columns[0] = push_array(m->scratch, str8, flattened_member_count);
 	columns[1] = push_array(m->scratch, str8, flattened_member_count);
 
 	u32 row = 0, scope = 0;
 	*da_push(m->scratch, &stack) = (struct stack_item){struct_entity, 0};
 	while (stack.count > 0) {
 		stack.count--;
 		MetaEntity *se = stack.data[stack.count].se;
 		MetaStruct *s  = ctx->struct_infos + se->table.struct_info_id;
 		u32 member     = stack.data[stack.count].member_offset;
 
 		while (member < s->info.member_count) {
 			b32  type_reference = (s->member_flags[member] & MetaStructMemberFlag_ReferenceType) != 0;
 			i32  type_id        = s->type_ids[member];
 			str8 member_name    = s->members[member];
 
 			assert(member_name.length != 0 || type_reference);
 
 			if (s->members[member].length == 0 &&
 			    (p.union_style != MetaPushStructStyle_MATLAB || ctx->entities.data[type_id].kind != MetaEntityKind_Union))
 			{
 				*da_push(m->scratch, &stack) = (struct stack_item){se, member + 1};
 				*da_push(m->scratch, &stack) = (struct stack_item){ctx->entities.data + type_id, 0};
 
 				MetaStruct *ss = ctx->struct_infos + ctx->entities.data[type_id].table.struct_info_id;
 				if (p.layout_style == MetaPushStructStyle_C && ss->info.flags & MetaStructFlag_Union) {
 					metagen_push_table(m, p.prefix, p.suffix, columns, row, 2);
 					meta_begin_scope(m, str8("union {"));
 					row = 0;
 					scope++;
 				}
 
 				break;
 			} else {
 				Stream sb = arena_stream(m->scratch);
 
 				b32 enum_count         = (s->member_flags[member] & MetaBuildStructMemberFlag_EnumerationCount) != 0;
 				b32 elements_reference = enum_count || (s->member_flags[member] & MetaBuildStructMemberFlag_ReferenceElements) != 0;
 				// NOTE(rnp): member name column
 				{
 					read_only local_persist str8 elements_count_open[MetaPushStructStyle_Count] = {
 						[MetaPushStructStyle_C]      = str8_comp("["),
 						[MetaPushStructStyle_MATLAB] = str8_comp("("),
 					};
 					read_only local_persist str8 elements_count_close[MetaPushStructStyle_Count] = {
 						[MetaPushStructStyle_C]      = str8_comp("]"),
 						[MetaPushStructStyle_MATLAB] = str8_comp(")"),
 					};
 					read_only local_persist i32 name_column[MetaPushStructStyle_Count] = {
 						[MetaPushStructStyle_C]      = 1,
 						[MetaPushStructStyle_MATLAB] = 0,
 					};
 
 					u32 resolved_element_count = meta_struct_member_elements(ctx, s, member);
 
 					if (type_reference && p.union_style == MetaPushStructStyle_MATLAB) {
 						MetaEntity *re = ctx->entities.data + type_id;
 						MetaStruct *rs = ctx->struct_infos + re->table.struct_info_id;
 						if (member_name.length == 0) {
 							assert(rs->info.flags & MetaStructFlag_Union);
 							member_name = str8("data");
 						}
 						if (rs->info.flags & MetaStructFlag_Union)
 							resolved_element_count *= rs->info.size;
 					} else if (!type_reference && p.base_type_element_count_scales) {
 						resolved_element_count *= p.base_type_element_count_scales[type_id];
 					}
 
 					if (resolved_element_count > 1 || p.element_count_style == MetaPushStructStyle_MATLAB) {
 						stream_append_str8s(&sb, member_name, elements_count_open[p.layout_style]);
 						if (elements_reference && p.element_count_style != MetaPushStructStyle_MATLAB) {
 							stream_append_str8s(&sb, p.str_element_prefix, ctx->entity_names.data[s->elements[member]]);
 							if (enum_count) stream_append_str8(&sb, str8("_Count"));
 						} else {
 							if (p.element_count_style == MetaPushStructStyle_MATLAB)
 								stream_append_str8(&sb, str8("1, "));
 							stream_append_u64(&sb, resolved_element_count);
 						}
 						stream_append_str8(&sb, elements_count_close[p.layout_style]);
 						columns[name_column[p.layout_style]][row] = arena_stream_commit_and_reset(m->scratch, &sb);
 					} else {
 						columns[name_column[p.layout_style]][row] = member_name;
 					}
 				}
 
 				// NOTE(rnp): type column
 				{
 					read_only local_persist i32 type_column[MetaPushStructStyle_Count] = {
 						[MetaPushStructStyle_C]      = 0,
 						[MetaPushStructStyle_MATLAB] = 1,
 					};
 
 					if (type_reference) {
 						MetaEntity *re = ctx->entities.data + type_id;
 						MetaStruct *rs = 0;
 
 						if (meta_entity_kind_is_struct[re->kind])
 							rs = ctx->struct_infos + re->table.struct_info_id;
 
 						if (rs && rs->info.flags & MetaStructFlag_Union && p.union_style == MetaPushStructStyle_MATLAB) {
 							stream_append_str8(&sb, p.base_types[MetaKind_U8]);
 							if (p.layout_style == MetaPushStructStyle_MATLAB)
 								stream_append_str8(&sb, str8("  % +"));
 						} else if (re->kind == MetaEntityKind_Enumeration && p.layout_style == MetaPushStructStyle_MATLAB) {
 							// NOTE(rnp): matlab enumerations are int32 if we make this uint32
 							// MATLAB won't fuck up the type when the field is assigned
 							stream_append_str8(&sb, p.base_types[MetaKind_U32]);
 							if (p.layout_style == MetaPushStructStyle_MATLAB)
 								stream_append_str8(&sb, str8(" % "));
 						} else {
 							if (p.layout_style == MetaPushStructStyle_MATLAB) {
 								// NOTE(rnp): matlab has really broken requirements around sub structures
 								// we can only use an opaque struct here
 								stream_append_str8(&sb, str8("struct % "));
 							} else {
 								str8 name = rs ? rs->info.name : ctx->entity_names.data[type_id];
 								stream_append_str8s(&sb, p.str_element_prefix, name);
 							}
 						}
 
 						if (p.layout_style == MetaPushStructStyle_MATLAB) {
 							stream_append_str8s(&sb, p.str_element_prefix,
 							                    rs ? rs->info.name : ctx->entity_names.data[type_id]);
 						}
 
 						columns[type_column[p.layout_style]][row] = arena_stream_commit_and_reset(m->scratch, &sb);
 					} else {
 						columns[type_column[p.layout_style]][row] = p.base_types[type_id];
 					}
 				}
 
 				row++;
 				member++;
 			}
 		}
 
 		if (member == s->info.member_count && s->info.flags & MetaStructFlag_Union && p.layout_style == MetaPushStructStyle_C) {
 			metagen_push_table(m, p.prefix, p.suffix, columns, row, 2);
 			while (scope > 0) {
 				meta_end_scope(m, str8("};"));
 				scope--;
 			}
 			row = 0;
 		}
 	}
 	metagen_push_table(m, p.prefix, p.suffix, columns, row, 2);
 
 	temp_end(scratch);
 }
 
 function void
 meta_push_matlab_properties(MetaprogramContext *m, MetaContext *ctx, MetaStruct *meta_struct)
 {
 
 	DeferLoop(meta_begin_scope(m, str8("properties")), meta_end_scope(m, str8("end")))
 	{
 		meta_push_struct_body(ctx, m, meta_entity(ctx, meta_struct->entity), (MetaPushStructParameters){
 			.layout_style        = MetaPushStructStyle_MATLAB,
 			.union_style         = MetaPushStructStyle_MATLAB,
 			.element_count_style = MetaPushStructStyle_MATLAB,
 			.base_types          = meta_kind_matlab_types,
 			.suffix              = str8(""),
 			.str_element_prefix  = str8(MATLAB_NAMESPACE META_NAMESPACE_UPPER),
 			.base_type_element_count_scales = meta_kind_elements,
 		});
 	}
 }
 
 
 function void
 meta_push_shader_reload_info(MetaprogramContext *m, MetaContext *ctx)
 {
 	if (!ctx->base_shader_count)
 		return;
 
 	///////////////////////////////
 	// NOTE(rnp): reloadable infos
 	meta_begin_scope(m, str8("read_only global " META_NAMESPACE_UPPER "ShaderKind " META_NAMESPACE_LOWER "_reloadable_shader_kinds[] = {"));
 	{
 		for (da_count shader = 0; shader < ctx->base_shader_count; shader++) {
 			da_count id = ctx->base_shader_ids[shader];
 			meta_push_line(m, str8(META_NAMESPACE_UPPER "ShaderKind_"), ctx->entity_names.data[id], str8(","));
 		}
 	} meta_end_scope(m, str8("};\n"));
 
 	meta_begin_scope(m, str8("read_only global str8 *" META_NAMESPACE_LOWER "_reloadable_shader_files[] = {"));
 	{
 		for (da_count shader = 0; shader < ctx->base_shader_count; shader++) {
 			da_count    id = ctx->base_shader_ids[shader];
 			MetaShader *s  = &ctx->entities.data[id].shader;
 			meta_begin_line(m, str8("(str8 []){str8_comp(\""), s->files[0], str8("\")"));
 			if (s->files[1].length)
 				meta_push(m, str8(", str8_comp(\""), s->files[1], str8("\")"));
 			meta_end_line(m, str8("},"));
 		}
 	} meta_end_scope(m, str8("};\n"));
 
 	meta_begin_scope(m, str8("read_only global i32 " META_NAMESPACE_LOWER "_shader_reloadable_index_by_shader[] = {"));
 	{
 		for (da_count shader = 0; shader < ctx->entity_kind_counts[MetaEntityKind_Shader]; shader++) {
 			meta_indent(m);
 			meta_push_i64(m, ctx->base_shader_id_map[shader]);
 			meta_end_line(m, str8(","));
 		}
 	} meta_end_scope(m, str8("};\n"));
 
 	{
 		u32 info_index = 0;
 		for (da_count group = 0; group < ctx->entity_kind_counts[MetaEntityKind_ShaderGroup]; group++) {
 			da_count id   = ctx->entity_kind_ids[MetaEntityKind_ShaderGroup][group];
 			str8     name = ctx->entity_names.data[id];
 			meta_begin_line(m, str8("read_only global i32 " META_NAMESPACE_LOWER "_reloadable"));
 			for (i64 i = 0; i < name.length; i++) {
 				if IsUpper(name.data[i])
 					stream_append_byte(&m->stream, '_');
 				stream_append_byte(&m->stream, ToLower(name.data[i]));
 			}
 
 			meta_begin_scope(m, str8("_shader_info_indices[] = {")); {
 				MetaEntityID child = ctx->entities.data[id].first_child;
 				do {
 					/* TODO(rnp): store base shader list in a better format */
 					for (da_count bs = 0; bs < ctx->base_shader_count; bs++) {
 						if (ctx->base_shader_ids[bs] == child.value) {
 							meta_indent(m);
 							meta_push_u64(m, info_index++);
 							meta_end_line(m, str8(","));
 							break;
 						}
 					}
 					child = ctx->entities.data[child.value].next_sibling;
 				} while (child.value != ctx->entities.data[id].first_child.value);
 			} meta_end_scope(m, str8("};\n"));
 		}
 	}
 
 	////////////////////////////////////
 	// NOTE(rnp): shader header strings
 	Temp scratch;
 	DeferLoop(scratch = temp_begin(m->scratch), temp_end(scratch))
 	DeferLoop(meta_begin_scope(m, str8("read_only global str8 " META_NAMESPACE_LOWER
 	                                   "_shader_global_header_strings[] = {")),
 	          meta_end_scope(m, str8("};\n")))
 	{
 		for (da_count ref = 0; ref < ctx->shader_entity_references.count; ref++) {
 			da_count    entity_id   = ctx->shader_entity_references.data[ref];
 			str8        entity_name = ctx->entity_names.data[entity_id];
 			MetaEntity *e           = ctx->entities.data + entity_id;
 
 			switch (e->kind) {
 
 			case MetaEntityKind_Constant:{
 				meta_begin_line(m, str8("str8_comp(\"#define "), entity_name, str8(" ("));
 				switch(e->constant.kind) {
 				case MetaConstantKind_Integer:{ meta_push_u64(m, e->constant.U64); }break;
 				case MetaConstantKind_Float:{   meta_push_f64(m, e->constant.F64); }break;
 				InvalidDefaultCase;
 				}
 				meta_end_line(m, str8(")\\n\\n\"),"));
 			}break;
 
 			case MetaEntityKind_Struct:{
 				meta_push_line(m, str8("str8_comp(\"\""));
 				meta_push_line(m, str8("\"struct "), entity_name, str8(" {\\n\""));
 				meta_push_struct_body(ctx, m, e, (MetaPushStructParameters){
 					.layout_style        = MetaPushStructStyle_C,
 					.union_style         = MetaPushStructStyle_C,
 					.element_count_style = MetaPushStructStyle_C,
 					.base_types          = meta_kind_glsl_types,
 					.prefix              = str8("\"  "),
 					.suffix              = str8(";\\n\""),
 				});
 				meta_push_line(m, str8("\"};\\n\""));
 				meta_push_line(m, str8("\"layout(std430, buffer_reference) buffer "), entity_name, str8("Reference {\\n\""));
 				meta_push_struct_body(ctx, m, e, (MetaPushStructParameters){
 					.layout_style        = MetaPushStructStyle_C,
 					.union_style         = MetaPushStructStyle_C,
 					.element_count_style = MetaPushStructStyle_C,
 					.base_types          = meta_kind_glsl_types,
 					.prefix              = str8("\"  "),
 					.suffix              = str8(";\\n\""),
 				});
 				meta_push_line(m, str8("\"};\\n\""));
 				meta_push_line(m, str8("\"\\n\"),"));
 			}break;
 
 			case MetaEntityKind_PushConstants:{
 				meta_push_line(m, str8("str8_comp(\"\""));
 				meta_push_line(m, str8("\"layout(push_constant, std430) uniform PushConstants {\\n\""));
 				meta_push_struct_body(ctx, m, e, (MetaPushStructParameters){
 					.layout_style        = MetaPushStructStyle_C,
 					.union_style         = MetaPushStructStyle_C,
 					.element_count_style = MetaPushStructStyle_C,
 					.base_types          = meta_kind_glsl_types,
 					.prefix              = str8("\"  "),
 					.suffix              = str8(";\\n\""),
 				});
 				meta_push_line(m, str8("\"};\\n\""));
 				meta_push_line(m, str8("\"\\n\"),"));
 			}break;
 
 			case MetaEntityKind_Flags:{
 				meta_push_line(m, str8("str8_comp(\"\""));
 				metagen_push_counted_enum_body(m, str8(""), str8("\"#define "), str8("((CompileFlags & (1 << "),
 				                               str8(")) != 0)\\n\""), e->table.entries[0], e->table.entry_count);
 				meta_push_line(m, str8("\"\\n\"),"));
 			}break;
 
 			case MetaEntityKind_Enumeration:{
 				str8 kind_name = push_str8_from_parts(m->scratch, str8(""), entity_name, str8("_"));
 				meta_push_line(m, str8("str8_comp(\"\""));
 				metagen_push_counted_enum_body(m, kind_name, str8("\"#define "), str8(""), str8("\\n\""),
 				                               e->table.entries[0], e->table.entry_count);
 				meta_push_line(m, str8("\"\\n\"),"));
 			}break;
 
 			InvalidDefaultCase;
 			}
 		}
 	}
 
 	meta_begin_scope(m, str8("read_only global b8 " META_NAMESPACE_LOWER "_shader_has_primitive[] = {"));
 	for (da_count bs = 0; bs < ctx->base_shader_count; bs++) {
 		MetaShader *s = &ctx->entities.data[ctx->base_shader_ids[bs]].shader;
 		meta_push_line(m, s->kind == MetaShaderKind_Render ? str8("1,") : str8("0,"));
 	}
 	meta_end_scope(m, str8("};\n"));
 
 	meta_begin_scope(m, str8("read_only global b8 " META_NAMESPACE_LOWER "_shader_primitive_is_vertex[] = {"));
 	for (da_count bs = 0; bs < ctx->base_shader_count; bs++) {
 		MetaShader *s = &ctx->entities.data[ctx->base_shader_ids[bs]].shader;
 		b8 vertex = s->kind == MetaShaderKind_Render && s->render.kind == MetaShaderPrimitiveKind_Vertex;
 		meta_push_line(m, vertex ? str8("1,") : str8("0,"));
 	}
 	meta_end_scope(m, str8("};\n"));
 }
 
 function void
 meta_push_shader_bake(MetaprogramContext *m, MetaContext *ctx)
 {
 	for (da_count bs = 0; bs < ctx->base_shader_count; bs++) {
 		MetaShader *s = &ctx->entities.data[ctx->base_shader_ids[bs]].shader;
 
 		str8 shader_name = ctx->entity_names.data[ctx->base_shader_ids[bs]];
 
 		for EachElement(s->files, it) {
 			if (s->files[it].length > 0) {
 				meta_begin_line(m, str8("read_only global u8 " META_NAMESPACE_LOWER  "_shader_"));
 				for (i64 i = 0; i < shader_name.length; i++)
 					stream_append_byte(&m->stream, ToLower(shader_name.data[i]));
 
 				if (s->kind == MetaShaderKind_Render)
 					meta_push(m, it == 0 ? str8("_primitive") : str8("_fragment"));
 
 				Temp scratch;
 				DeferLoop(meta_begin_scope(m, str8("_bytes[] = {")), meta_end_scope(m, str8("};\n")))
 				DeferLoop(scratch = temp_begin(m->scratch), temp_end(scratch))
 				{
 					str8 filename = push_str8_from_parts(m->scratch, str8(OS_PATH_SEPARATOR), str8("shaders"), s->files[it]);
 					str8 file     = os_read_entire_file(m->scratch, (c8 *)filename.data);
 					metagen_push_byte_array(m, file);
 				}
 			}
 		}
 	}
 
 	meta_begin_scope(m, str8("read_only global str8 *" META_NAMESPACE_LOWER "_shader_data[] = {")); {
 		for (da_count bs = 0; bs < ctx->base_shader_count; bs++) {
 			MetaShader *s = &ctx->entities.data[ctx->base_shader_ids[bs]].shader;
 
 			str8 shader_name = ctx->entity_names.data[ctx->base_shader_ids[bs]];
 
 			if (s->kind == MetaShaderKind_Render) {
 				meta_begin_scope(m, str8("(str8 []){"));
 				meta_indent(m);
 			} else {
 				meta_begin_line(m,  str8("(str8 []){"));
 			}
 
 			meta_push(m, str8("{.data = " META_NAMESPACE_LOWER "_shader_"));
 			for (i64 i = 0; i < shader_name.length; i++)
 				stream_append_byte(&m->stream, ToLower(shader_name.data[i]));
 
 			if (s->kind == MetaShaderKind_Render)
 				meta_push(m, str8("_primitive"));
 
 			meta_push(m, str8("_bytes, .length = countof(" META_NAMESPACE_LOWER "_shader_"));
 			for (i64 i = 0; i < shader_name.length; i++)
 				stream_append_byte(&m->stream, ToLower(shader_name.data[i]));
 
 			if (s->kind == MetaShaderKind_Render)
 				meta_push(m, str8("_primitive"));
 			meta_push(m, str8("_bytes)}"));
 
 			if (s->kind == MetaShaderKind_Render) {
 				meta_end_line(m, str8(","));
 				meta_begin_line(m, str8("{.data = " META_NAMESPACE_LOWER "_shader_"));
 				for (i64 i = 0; i < shader_name.length; i++)
 					stream_append_byte(&m->stream, ToLower(shader_name.data[i]));
 
 				meta_push(m, str8("_fragment_bytes, .length = countof(" META_NAMESPACE_LOWER "_shader_"));
 				for (i64 i = 0; i < shader_name.length; i++)
 					stream_append_byte(&m->stream, ToLower(shader_name.data[i]));
 				meta_end_line(m, str8("_fragment_bytes)}"));
 			}
 
 			if (s->kind == MetaShaderKind_Render) meta_end_scope(m, str8("},"));
 			else                                  meta_end_line(m,  str8("},"));
 		}
 	} meta_end_scope(m, str8("};\n"));
 }
 
 function void
 metagen_emit_c_str8_list(MetaprogramContext *m, str8 *strs, u32 count)
 {
 	meta_begin_scope(m, str8("(str8 []){"));
 	for (u32 index = 0; index < count; index++)
 		meta_push_line(m, str8("str8_comp(\""), strs[index], str8("\"),"));
 	meta_end_scope(m, str8("},"));
 }
 
 function b32
 metagen_emit_c_code(MetaContext *ctx, Arena *arena)
 {
 	b32 result = 1;
 	char *out, *out_shaders;
 	{
 		str8 basename;
 		str8_split(ctx->filename, &basename, 0, '.');
 
 		Stream sb = arena_stream(arena);
 		stream_append_str8s(&sb, ctx->directory, str8(OS_PATH_SEPARATOR), str8("generated"));
 		stream_append_byte(&sb, 0);
 		os_make_directory((c8 *)sb.data);
 		stream_reset(&sb, sb.widx - 1);
 
 		stream_append_str8s(&sb, str8(OS_PATH_SEPARATOR), basename, str8(".c"));
 		stream_append_byte(&sb, 0);
 
 		out = (c8 *)arena_stream_commit_and_reset(arena, &sb).data;
 
 		stream_append_str8s(&sb, ctx->directory, str8(OS_PATH_SEPARATOR), str8("generated"));
 		stream_append_str8s(&sb, str8(OS_PATH_SEPARATOR), basename, str8("_shader_data.c"));
 		stream_append_byte(&sb, 0);
 
 		out_shaders = (c8 *)arena_stream_commit_zero(arena, &sb).data;
 	}
 
 	MetaprogramContext m[1] = {{.stream = arena_stream(arena), .scratch = ctx->scratch}};
 
 	arena_clear(m->scratch);
 
 	if (setjmp(compiler_jmp_buf)) {
 		build_fatal("Failed to generate C Code");
 	}
 
 	////////////////////////////
 	// NOTE(rnp): shader baking
 	if (ctx->base_shader_count) {
 		char **deps = push_array(m->scratch, char *, 2 * ctx->base_shader_count);
 		u32 dep_count = 0;
 		for (da_count bs = 0; bs < ctx->base_shader_count; bs++) {
 			MetaShader *s = &ctx->entities.data[ctx->base_shader_ids[bs]].shader;
 			deps[dep_count++] = (c8 *)push_str8_from_parts(m->scratch, str8(OS_PATH_SEPARATOR),
 			                                               str8("shaders"), s->files[0]).data;
 			if (s->files[1].length > 0)
 				deps[dep_count++] = (c8 *)push_str8_from_parts(m->scratch, str8(OS_PATH_SEPARATOR),
 				                                               str8("shaders"), s->files[1]).data;
 		}
 
 		if (needs_rebuild_(out_shaders, deps, dep_count)) {
 			build_log_generate("%.*s: baking shaders", (i32)ctx->filename.length, ctx->filename.data);
 			meta_push(m, c_file_header);
 			meta_push_shader_bake(m, ctx);
 			result &= meta_write_and_reset(m, out_shaders);
 		}
 	}
 
 	arena_clear(m->scratch);
 
 	{
 		CommandList deps = meta_extract_emit_file_dependencies(ctx, m->scratch);
 		*da_push(m->scratch, &deps) = (c8 *)ctx->fullpath.data;
 		if (!needs_rebuild_(out, deps.data, deps.count))
 			return result;
 	}
 
 	arena_clear(m->scratch);
 
 	build_log_generate("%.*s: C Code", (i32)ctx->filename.length, ctx->filename.data);
 
 	meta_push(m, c_file_header);
 
 	/////////////////////////
 	// NOTE(rnp): constants
 	{
 		u32 integers = 0;
 		u32 floats   = 0;
 
 		for (da_count constant = 0; constant < ctx->entity_kind_counts[MetaEntityKind_Constant]; constant++) {
 			da_count    id = ctx->entity_kind_ids[MetaEntityKind_Constant][constant];
 			MetaEntity *e  = ctx->entities.data + id;
 			if (e->constant.kind == MetaConstantKind_Integer) integers++;
 			if (e->constant.kind == MetaConstantKind_Float)   floats++;
 		}
 
 		u32 row_alloc_count = Max(integers, floats);
 		str8 *columns[2];
 		columns[0] = push_array(m->scratch, str8, row_alloc_count);
 		columns[1] = push_array(m->scratch, str8, row_alloc_count);
 
 		u32 row_count;
 
 		row_count = 0;
 		if (integers) meta_push_line(m, str8("// NOTE: Constants (Integer)"));
 		for (da_count constant = 0; constant < ctx->entity_kind_counts[MetaEntityKind_Constant]; constant++) {
 			da_count    id = ctx->entity_kind_ids[MetaEntityKind_Constant][constant];
 			MetaEntity *e  = ctx->entities.data + id;
 			if (e->constant.kind == MetaConstantKind_Integer) {
 				Stream sb = arena_stream(m->scratch);
 				stream_append_str8(&sb, str8("("));
 				stream_append_u64(&sb, e->constant.U64);
 				columns[0][row_count] = ctx->entity_names.data[id];
 				columns[1][row_count] = arena_stream_commit(m->scratch, &sb);
 				row_count++;
 			}
 		}
 		metagen_push_table(m, str8("#define " META_NAMESPACE_UPPER), str8(")"), columns, row_count, 2);
 
 		row_count = 0;
 		if (floats) meta_push_line(m, str8("\n// NOTE: Constants (Float)"));
 		for (da_count constant = 0; constant < ctx->entity_kind_counts[MetaEntityKind_Constant]; constant++) {
 			da_count    id = ctx->entity_kind_ids[MetaEntityKind_Constant][constant];
 			MetaEntity *e  = ctx->entities.data + id;
 			if (e->constant.kind == MetaConstantKind_Float) {
 				Stream sb = arena_stream(m->scratch);
 				stream_append_str8(&sb, str8("("));
 				stream_append_f64(&sb, e->constant.F64, 1000000);
 				columns[0][row_count] = ctx->entity_names.data[id];
 				columns[1][row_count] = arena_stream_commit(m->scratch, &sb);
 				row_count++;
 			}
 		}
 		metagen_push_table(m, str8("#define " META_NAMESPACE_UPPER), str8(")"), columns, row_count, 2);
 
 		if (integers || floats) meta_push(m, str8("\n"));
 	}
 
 	arena_clear(m->scratch);
 
 	/////////////////////////
 	// NOTE(rnp): enumerants
 	struct {MetaEntityKind kind; b32 flags;} enums[] = {
 		{MetaEntityKind_Enumeration, 0},
 		{MetaEntityKind_Flags,       1},
 	};
 	for EachElement(enums, it) {
 		for (da_count kind = 0; kind < ctx->entity_kind_counts[enums[it].kind]; kind++) {
 			da_count    id = ctx->entity_kind_ids[enums[it].kind][kind];
 			MetaEntity *e  = ctx->entities.data + id;
 
 			str8 enum_name = push_str8_from_parts(m->scratch, str8(""), str8(META_NAMESPACE_UPPER),
 			                                      ctx->entity_names.data[id]);
 			metagen_push_c_enum(m, enum_name, enums[it].flags, e->table.entries[0], e->table.entry_count);
 		}
 	}
 
 	arena_clear(m->scratch);
 
 	// TODO(rnp): technically this needs to be namespaced to the file they are coming from
 	if (ctx->entity_kind_counts[MetaEntityKind_Shader]) {
 		str8 kind      = str8(META_NAMESPACE_UPPER "ShaderKind");
 		str8 kind_full = str8(META_NAMESPACE_UPPER "ShaderKind_");
 		meta_begin_scope(m, str8("typedef enum {"));
 		metagen_push_counted_enum_body_from_ids(m, kind_full, str8(""), str8("= "), str8(","),
 		                                        ctx->entity_kind_ids[MetaEntityKind_Shader], ctx->entity_names.data,
 		                                        ctx->entity_kind_counts[MetaEntityKind_Shader]);
 		meta_push_line(m, kind_full, str8("Count,\n"));
 
 		str8 *columns[2];
 		columns[0] = push_array(m->scratch, str8, ctx->entity_kind_counts[MetaEntityKind_ShaderGroup] * 3);
 		columns[1] = push_array(m->scratch, str8, ctx->entity_kind_counts[MetaEntityKind_ShaderGroup] * 3);
 
 		u32 rows = 0;
 		for (da_count group = 0; group < ctx->entity_kind_counts[MetaEntityKind_ShaderGroup]; group++) {
 			da_count     id    = ctx->entity_kind_ids[MetaEntityKind_ShaderGroup][group];
 			MetaEntityID child = ctx->entities.data[id].first_child;
 			str8         name  = ctx->entity_names.data[id];
 
 			da_count shader_count = meta_entity_children_count(ctx, (MetaEntityID){.value = id});
 
 			if (child.value != 0) {
 				// NOTE(rnp): childen pushed in LIFO order
 				str8 first_name = ctx->entity_names.data[ctx->entities.data[child.value].previous_sibling.value];
 				str8 last_name  = ctx->entity_names.data[child.value];
 
 				columns[0][3 * group + 0] = push_str8_from_parts(m->scratch, str8(""), kind, str8("_"), name, str8("First"));
 				columns[1][3 * group + 0] = push_str8_from_parts(m->scratch, str8(""), str8("= "), kind, str8("_"), first_name);
 
 				columns[0][3 * group + 1] = push_str8_from_parts(m->scratch, str8(""), kind, str8("_"), name, str8("Last"));
 				columns[1][3 * group + 1] = push_str8_from_parts(m->scratch, str8(""),str8("= "), kind, str8("_"), last_name);
 
 				columns[0][3 * group + 2] = push_str8_from_parts(m->scratch, str8(""), kind, str8("_"), name, str8("Count"));
 				Stream sb = arena_stream(m->scratch);
 				stream_append_str8(&sb, str8("= "));
 				stream_append_i64(&sb, shader_count);
 				columns[1][3 * group + 2] = arena_stream_commit(m->scratch, &sb);
 
 				rows += 3;
 			}
 		}
 		metagen_push_table(m, str8(""), str8(","), columns, rows, 2);
 
 		meta_end_scope(m, str8("} "), kind, str8(";\n"));
 	}
 
 	arena_clear(m->scratch);
 
 	//////////////////////
 	// NOTE(rnp): structs
 	{
 		for EachElement(meta_struct_entity_kinds, kind_it) {
 			if (meta_struct_emit[kind_it]) {
 				for (da_count it = 0; it < ctx->entity_kind_counts[meta_struct_entity_kinds[kind_it]]; it++) {
 					da_count entity = ctx->entity_kind_ids[meta_struct_entity_kinds[kind_it]][it];
 
 					meta_begin_scope(m, str8("typedef struct {")); {
 						meta_push_struct_body(ctx, m, ctx->entities.data + entity, (MetaPushStructParameters){
 							.layout_style        = MetaPushStructStyle_C,
 							.union_style         = MetaPushStructStyle_C,
 							.element_count_style = MetaPushStructStyle_C,
 							.base_types          = meta_kind_c_types,
 							.suffix              = str8(";"),
 							.str_element_prefix  = str8(META_NAMESPACE_UPPER),
 						});
 					} meta_end_scope(m, str8("} " META_NAMESPACE_UPPER), ctx->entity_names.data[entity], str8(";"));
 					meta_push(m, str8("\n"));
 				}
 			}
 		}
 	}
 
 	// NOTE: shader bake parameter union
 	if (ctx->entity_kind_counts[MetaEntityKind_BakeParameters])
 	DeferLoop(meta_begin_scope(m, str8("typedef union {")),
 	          meta_end_scope(m, str8("} " META_NAMESPACE_UPPER "ShaderBakeParameters;\n")))
 	{
 		str8 *columns[2];
 		columns[0] = push_array(m->scratch, str8, ctx->entity_kind_counts[MetaEntityKind_BakeParameters]);
 		columns[1] = push_array(m->scratch, str8, ctx->entity_kind_counts[MetaEntityKind_BakeParameters]);
 
 		for (da_count bake = 0; bake < ctx->entity_kind_counts[MetaEntityKind_BakeParameters]; bake++) {
 			da_count id = ctx->entity_kind_ids[MetaEntityKind_BakeParameters][bake];
 
 			str8 bake_name   = ctx->entity_names.data[id];
 			str8 shader_name = {.data = bake_name.data, .length = bake_name.length - str8("BakeParameters").length};
 
 			columns[0][bake] = push_str8_from_parts(m->scratch, str8(""), str8(META_NAMESPACE_UPPER), bake_name);
 			columns[1][bake] = shader_name;
 		}
 		metagen_push_table(m, str8(""), str8(";"), columns,
 		                   ctx->entity_kind_counts[MetaEntityKind_BakeParameters], 2);
 
 		arena_clear(m->scratch);
 	}
 
 	metagen_run_emit_set(m, ctx, ctx->emit_sets + MetaEmitLang_C, meta_kind_c_types);
 
 	// TODO(rnp): we may want this to include more than just the bake structs
 	if (ctx->base_shader_count)
 	DeferLoop(meta_begin_scope(m, str8("typedef enum {")),
 	          meta_end_scope(m, str8("} " META_NAMESPACE_UPPER "StructKind;\n")))
 	{
 		str8 kind_full = str8(META_NAMESPACE_UPPER "StructKind_");
 		metagen_push_counted_enum_body_from_ids(m, kind_full, str8(""), str8("= "), str8(","),
 		                                        ctx->entity_kind_ids[MetaEntityKind_BakeParameters],
 		                                        ctx->entity_names.data,
 		                                        ctx->entity_kind_counts[MetaEntityKind_BakeParameters]);
 		meta_push_line(m, kind_full, str8("Count,"));
 	}
 
 	// TODO(rnp): we may want this to include more than just the bake structs
 	if (ctx->base_shader_count)
 	DeferLoop(meta_begin_scope(m, str8("read_only global MetaStructMember *meta_struct_members_by_id[] = {")),
 	          meta_end_scope(m, str8("};\n")))
 	{
 		for EachIndex((u64)ctx->entity_kind_counts[MetaEntityKind_BakeParameters], id) {
 			MetaTable  *t = &ctx->entities.data[ctx->entity_kind_ids[MetaEntityKind_BakeParameters][id]].table;
 			MetaStruct *s = ctx->struct_infos + t->struct_info_id;
 
 			str8 *columns[4];
 			for EachElement(columns, it)
 				columns[it] = push_array(m->scratch, str8, s->info.member_count);
 
 			u32 offset = 0;
 			for EachIndex((u64)s->info.member_count, member) {
 				// TODO(rnp): for now we only handle bake structs which must only have base types
 				assert((s->member_flags[member] & MetaStructMemberFlag_ReferenceType) == 0);
 
 				Stream sb = arena_stream(m->scratch);
 				stream_append_u64(&sb, s->type_ids[member]); stream_append_byte(&sb, ',');
 				columns[0][member] = arena_stream_commit_and_reset(m->scratch, &sb);
 
 				stream_append_u64(&sb, offset); stream_append_byte(&sb, ',');
 				columns[1][member] = arena_stream_commit_and_reset(m->scratch, &sb);
 
 				stream_append_u64(&sb, s->elements[member]); stream_append_byte(&sb, ',');
 				columns[2][member] = arena_stream_commit_and_reset(m->scratch, &sb);
 
 				columns[3][member] = str8("0"); // TODO(rnp): reference type flag
 
 				offset += meta_kind_byte_sizes[s->type_ids[member]];
 			}
 
 			DeferLoop(meta_begin_scope(m, str8("(MetaStructMember []){")), meta_end_scope(m, str8("},")))
 				metagen_push_table(m, str8("{"), str8("},"), columns, s->info.member_count, countof(columns));
 
 			arena_clear(m->scratch);
 		}
 	}
 
 	if (ctx->base_shader_count)
 	DeferLoop(meta_begin_scope(m, str8("read_only global str8 *meta_struct_member_names_by_id[] = {")),
 	          meta_end_scope(m, str8("};\n")))
 	{
 		for EachIndex((u64)ctx->entity_kind_counts[MetaEntityKind_BakeParameters], id) {
 			MetaTable  *t = &ctx->entities.data[ctx->entity_kind_ids[MetaEntityKind_BakeParameters][id]].table;
 			MetaStruct *s = ctx->struct_infos + t->struct_info_id;
 
 			DeferLoop(meta_begin_scope(m, str8("(str8 []){")), meta_end_scope(m, str8("},")))
 			for EachIndex((u64)s->info.member_count, member)
 				meta_push_line(m, str8("str8_comp(\""), s->members[member], str8("\"),"));
 		}
 	}
 
 	if (ctx->base_shader_count)
 	DeferLoop(meta_begin_scope(m, str8("read_only global MetaStructInfo meta_struct_info_by_id[] = {")),
 	          meta_end_scope(m, str8("};\n")))
 	{
 		str8 *columns[4];
 		for EachElement(columns, it)
 			columns[it] = push_array(m->scratch, str8, ctx->entity_kind_counts[MetaEntityKind_BakeParameters]);
 
 		for EachIndex((u64)ctx->entity_kind_counts[MetaEntityKind_BakeParameters], id) {
 			da_count entity = ctx->entity_kind_ids[MetaEntityKind_BakeParameters][id];
 			MetaTable  *t = &ctx->entities.data[entity].table;
 			MetaStruct *s = ctx->struct_infos + t->struct_info_id;
 
 			columns[0][id] = push_str8_from_parts(m->scratch, str8(""), ctx->entity_names.data[entity], str8("\"),"));
 
 			Stream sb = arena_stream(m->scratch);
 			stream_append_u64(&sb, s->info.member_count); stream_append_byte(&sb, ',');
 			columns[1][id] = arena_stream_commit_and_reset(m->scratch, &sb);
 
 			stream_append_u64(&sb, s->info.size); stream_append_byte(&sb, ',');
 			columns[2][id] = arena_stream_commit_and_reset(m->scratch, &sb);
 
 			columns[3][id] = str8("0"); // TODO(rnp): union flags
 		}
 
 		metagen_push_table(m, str8("{str8_comp(\""), str8("},"), columns,
 		                   ctx->entity_kind_counts[MetaEntityKind_BakeParameters], countof(columns));
 
 		arena_clear(m->scratch);
 	}
 
 	/////////////////////////////////
 	// NOTE(rnp): shader info tables
 	if (ctx->entity_kind_counts[MetaEntityKind_Shader])
 	DeferLoop(meta_begin_scope(m, str8("read_only global str8 " META_NAMESPACE_LOWER "_shader_names[] = {")),
 	          meta_end_scope(m, str8("};\n")))
 	{
 		for (da_count shader = 0; shader < ctx->entity_kind_counts[MetaEntityKind_Shader]; shader++) {
 			da_count id = ctx->entity_kind_ids[MetaEntityKind_Shader][shader];
 			meta_push_line(m, str8("str8_comp(\""), ctx->entity_names.data[id], str8("\"),"));
 		}
 	}
 
 	meta_push_shader_reload_info(m, ctx);
 
 	if (ctx->base_shader_count)
 	DeferLoop(meta_begin_scope(m, str8("read_only global i32 *" META_NAMESPACE_LOWER "_shader_header_vectors[] = {")),
 	          meta_end_scope(m, str8("};\n")))
 	{
 		for (da_count bs = 0; bs < ctx->base_shader_count; bs++) {
 			da_count    id = ctx->base_shader_ids[bs];
 			MetaShader *s  = &ctx->entities.data[id].shader;
 			if (s->entity_reference_ids.count) {
 				meta_begin_line(m, str8("(i32 []){"));
 				for (da_count ref_id = 0; ref_id < s->entity_reference_ids.count; ref_id++) {
 					if (ref_id != 0) meta_push(m, str8(", "));
 					MetaEntityReference *r = &ctx->entities.data[s->entity_reference_ids.data[ref_id]].reference;
 					meta_push_i64(m, meta_lookup_id_slow(ctx->shader_entity_references.data,
 					                                     ctx->shader_entity_references.count,
 					                                     r->resolved_id.value));
 				}
 				meta_end_line(m, str8("},"));
 			} else {
 				meta_push_line(m, str8("0,"));
 			}
 		}
 	}
 
 	if (ctx->base_shader_count)
 	DeferLoop(meta_begin_scope(m, str8("read_only global i32 " META_NAMESPACE_LOWER "_shader_header_vector_lengths[] = {")),
 	          meta_end_scope(m, str8("};\n")))
 	{
 		for (da_count bs= 0; bs < ctx->base_shader_count; bs++) {
 			da_count    id = ctx->base_shader_ids[bs];
 			MetaShader *s  = &ctx->entities.data[id].shader;
 			meta_indent(m);
 			meta_push_i64(m, s->entity_reference_ids.count);
 			meta_end_line(m, str8(","));
 		}
 	}
 
 	if (ctx->base_shader_count)
 	DeferLoop(meta_begin_scope(m, str8("read_only global str8 *" META_NAMESPACE_LOWER "_shader_compile_flag_names[] = {")),
 	          meta_end_scope(m, str8("};\n")))
 	{
 		for (da_count bs = 0; bs < ctx->base_shader_count; bs++) {
 			da_count    id = ctx->base_shader_ids[bs];
 			MetaEntity *e  = ctx->entities.data + id;
 			MetaEntityID fid = meta_entity_first_child_of_kind(ctx, e, MetaEntityKind_Flags);
 			if (fid.value != 0) {
 				MetaEntity *flags = meta_entity(ctx, fid);
 				metagen_emit_c_str8_list(m, flags->table.entries[MetaStructField_Name], flags->table.entry_count);
 			} else {
 				meta_push_line(m, str8("0,"));
 			}
 		}
 	}
 
 	if (ctx->base_shader_count)
 	DeferLoop(meta_begin_scope(m, str8("read_only global u8 " META_NAMESPACE_LOWER "_shader_compile_flag_counts[] = {")),
 	          meta_end_scope(m, str8("};\n")))
 	{
 		for (da_count bs = 0; bs < ctx->base_shader_count; bs++) {
 			da_count    id = ctx->base_shader_ids[bs];
 			MetaEntity *e  = ctx->entities.data + id;
 			MetaEntityID fid = meta_entity_first_child_of_kind(ctx, e, MetaEntityKind_Flags);
 			meta_indent(m);
 			meta_push_u64(m, ctx->entities.data[fid.value].table.entry_count);
 			meta_end_line(m, str8(","));
 		}
 	}
 
 	if (ctx->base_shader_count)
 	DeferLoop(meta_begin_scope(m, str8("read_only global i32 "
 	                                   META_NAMESPACE_LOWER "_base_shader_to_bake_struct_id[] = {")),
 	          meta_end_scope(m, str8("};\n")))
 	{
 		for (da_count bs = 0; bs < ctx->base_shader_count; bs++) {
 			da_count    id = ctx->base_shader_ids[bs];
 			MetaEntity *e  = ctx->entities.data + id;
 			MetaEntityID bp_id = meta_entity_first_child_of_kind(ctx, e, MetaEntityKind_BakeParameters);
 			i64 index = meta_lookup_id_slow(ctx->entity_kind_ids[MetaEntityKind_BakeParameters],
 			                                ctx->entity_kind_counts[MetaEntityKind_BakeParameters],
 			                                bp_id.value);
 			meta_indent(m); meta_push_i64(m, index); meta_end_line(m, str8(","));
 		}
 	}
 
 	if (ctx->base_shader_count)
 	DeferLoop(meta_begin_scope(m, str8("read_only global u8 " META_NAMESPACE_LOWER "_shader_push_constant_sizes[] = {")),
 	          meta_end_scope(m, str8("};\n")))
 	{
 		for (da_count bs = 0; bs < ctx->base_shader_count; bs++) {
 			da_count    id = ctx->base_shader_ids[bs];
 			MetaEntity *e  = ctx->entities.data + id;
 			MetaEntityID pc_id = meta_entity_first_child_of_kind(ctx, e, MetaEntityKind_PushConstants);
 			if (pc_id.value != 0) {
 				meta_push_line(m, str8("sizeof(" META_NAMESPACE_UPPER), ctx->entity_names.data[id], str8("PushConstants),"));
 			} else {
 				meta_push_line(m, str8("0,"));
 			}
 		}
 	}
 
 	result = meta_write_and_reset(m, out);
 
 	arena_clear(m->scratch);
 
 	return result;
 }
 
 function b32
 metagen_matlab_union(MetaprogramContext *m, MetaContext *ctx, MetaStruct *u, str8 outdir, str8 namespace)
 {
 	b32 result = 1;
 
 	Temp scratch;
 	DeferLoop(scratch = temp_begin(m->scratch), temp_end(scratch))
 	{
 		str8 outfile = push_str8_from_parts(m->scratch, str8(OS_PATH_SEPARATOR), outdir, str8("Base.m"));
 		meta_begin_scope(m, str8("classdef Base"));
 		{
 			meta_begin_scope(m, str8("properties (Constant)"));
 			{
 				meta_begin_line(m, str8("byteSize(1,1) uint32 = "));
 				meta_push_u64(m, u->info.size);
 				meta_end_line(m);
 			} meta_end_scope(m, str8("end"));
 		} meta_end_scope(m, str8("end"));
 		result &= meta_end_and_write_matlab(m, (c8 *)outfile.data);
 	}
 
 	for EachIndex(u->info.member_count, union_member) {
 		if ((u->member_flags[union_member] & MetaStructMemberFlag_ReferenceType) == 0) {
 			str8 type_name = meta_kind_c_types[u->type_ids[union_member]];
 			str8 name      = u->members[union_member];
 			build_log_failure("%.*s:%u:%u: error: base type in MATLAB union:\n"
 			                  "%.*s %.*s\n"
 			                  "MATLAB unions only support Struct and Union members\n",
 			                  (i32)ctx->filename.length, ctx->filename.data, u->location.line, u->location.column,
 			                  (i32)name.length, name.data, (i32)type_name.length, type_name.data);
 			result = 0;
 			break;
 		}
 
 		DeferLoop(scratch = temp_begin(m->scratch), temp_end(scratch))
 		{
 			MetaStruct *s = ctx->struct_infos + ctx->entities.data[u->type_ids[union_member]].table.struct_info_id;
 			str8 sub_name = u->members[union_member];
 			str8 outfile  = push_str8_from_parts(m->scratch, str8(""), outdir, str8(OS_PATH_SEPARATOR), sub_name, str8(".m"));
 			DeferLoop(meta_begin_scope(m, str8("classdef "), sub_name, str8(" < " MATLAB_NAMESPACE META_NAMESPACE_UPPER),
 			                           namespace, str8(".Base")),
 			          meta_end_scope(m, str8("end")))
 			{
 				meta_push_matlab_properties(m, ctx, s);
 
 				meta_push(m, str8("\n"));
 
 				DeferLoop(meta_begin_scope(m, str8("methods")), meta_end_scope(m, str8("end")))
 				{
 					DeferLoop(meta_begin_scope(m, str8("function bytes = toBytes(obj)")),
 					          meta_end_scope(m, str8("end")))
 					{
 						meta_begin_scope(m, str8("arguments (Output)"));
 						{
 							meta_push_line(m, str8("bytes uint8"));
 						} meta_end_scope(m, str8("end"));
 						meta_push_line(m, str8("bytes = zeros(1, obj.byteSize, 'uint8');"));
 
 						str8 *columns[3];
 						columns[0] = push_array(m->scratch, str8, s->info.member_count);
 						columns[1] = push_array(m->scratch, str8, s->info.member_count);
 						columns[2] = push_array(m->scratch, str8, s->info.member_count);
 
 						u32 offset = 1;
 						for EachIndex(s->info.member_count, member) {
 							Stream sb = arena_stream(m->scratch);
 
 							i32 type_id = s->type_ids[member];
 
 							u32 member_size = 0;
 							if (s->member_flags[member] & MetaStructMemberFlag_ReferenceType) {
 								MetaStruct *ref = ctx->struct_infos + ctx->entities.data[type_id].table.struct_info_id;
 								member_size = ref->info.size;
 								// TODO(rnp): arrays of structs
 								// - calculate member count with element count multiplied in for struct members
 								// - do a sub loop for struct arrays calling toBytes method on each struct array element
 								if (meta_struct_member_elements(ctx, s, member) != 1) {
 									str8 name = s->members[member];
 									build_log_failure("%.*s:%u:%u: error: array of structs present in struct referenced by MATLAB union:\n"
 									                  "%.*s %.*s\n"
 									                  "MATLAB unions do not currently support array of structs\n",
 									                  (i32)ctx->filename.length, ctx->filename.data, u->location.line, u->location.column,
 									                  (i32)name.length, name.data, (i32)ref->info.name.length, ref->info.name.data);
 								}
 							} else {
 								member_size = meta_kind_byte_sizes[type_id];
 							}
 
 							stream_append_u64(&sb, offset);
 							stream_append_byte(&sb, ':');
 							stream_append_u64(&sb, offset - 1 + member_size);
 							stream_append_byte(&sb, ')');
 							offset += member_size;
 
 							columns[0][member] = arena_stream_commit_and_reset(m->scratch, &sb);
 
 							stream_append_str8s(&sb, str8("= typecast(obj."), s->members[member]);
 							if (s->member_flags[member] & MetaStructMemberFlag_ReferenceType) {
 								// TODO(rnp): arrays of structs
 								// - calculate member count with element count multiplied in for struct members
 								// - do a sub loop for struct arrays calling toBytes method on each struct array element
 								// lookup subtype, if union replace with byte array, else reference sub type
 								MetaStruct *ref = ctx->struct_infos + ctx->entities.data[type_id].table.struct_info_id;
 								if ((ref->info.flags & MetaStructFlag_Union) == 0) {
 									stream_append_str8(&sb, str8(".toBytes()"));
 								}
 							} else {
 								stream_append_str8(&sb, str8("(:)"));
 							}
 							stream_append_byte(&sb, ',');
 
 							columns[1][member] = arena_stream_commit_and_reset(m->scratch, &sb);
 							columns[2][member] = str8("'uint8');");
 						}
 
 						metagen_push_table(m, str8("bytes("), str8(""), columns, s->info.member_count, 3);
 					}
 				}
 			}
 			result &= meta_end_and_write_matlab(m, (c8 *)outfile.data);
 		}
 	}
 
 	return result;
 }
 
 function b32
 metagen_emit_matlab_code(MetaContext *ctx, Arena *arena)
 {
 	b32 result = 1;
 	if (!needs_rebuild(OUTPUT("matlab/OGLBeamformerShaderStage.m"), "beamformer.meta"))
 		return result;
 
 	build_log_generate("MATLAB Bindings");
 	char *base_directory = OUTPUT("matlab");
 	if (!os_remove_directory(base_directory))
 		build_fatal("failed to remove directory: %s", base_directory);
 
 	if (setjmp(compiler_jmp_buf)) {
 		os_remove_directory(base_directory);
 		build_log_error("Failed to generate MATLAB Bindings");
 		return 0;
 	}
 
 	os_make_directory(base_directory);
 
 	MetaprogramContext m[1] = {{.stream = arena_stream(arena), .scratch = ctx->scratch}};
 
 	arena_clear(m->scratch);
 
 	meta_begin_matlab_class(m, "OGLBeamformerShaderStage", "int32");
 	meta_begin_scope(m, str8("enumeration"));
 	{
 		da_count group_id = -1;
 		for (da_count group = 0; group < ctx->entity_kind_counts[MetaEntityKind_ShaderGroup]; group++) {
 			da_count id = ctx->entity_kind_ids[MetaEntityKind_ShaderGroup][group];
 			str8 group_name = ctx->entity_names.data[id];
 			if (str8_equal(group_name, str8("Compute"))) {
 				group_id = id;
 				break;
 			}
 		}
 		if (group_id != -1) {
 			da_count children;
 			da_count *ids = meta_entity_extract_children(ctx, (MetaEntityID){.value = group_id},
 			                                             &children, m->scratch);
 			if (children > 0) {
 				metagen_push_counted_enum_body_from_ids(m, str8(""), str8(""), str8("("), str8(")"), ids,
 				                                        ctx->entity_names.data, children);
 			}
 			arena_clear(m->scratch);
 		} else {
 			build_log_failure("failed to find Compute shader group in meta info\n");
 		}
 		result &= group_id != -1;
 	}
 	result &= meta_end_and_write_matlab(m, OUTPUT("matlab/OGLBeamformerShaderStage.m"));
 
 	for (da_count kind = 0; kind < ctx->entity_kind_counts[MetaEntityKind_Enumeration]; kind++) {
 		da_count id = ctx->entity_kind_ids[MetaEntityKind_Enumeration][kind];
 		str8 name   = ctx->entity_names.data[id];
 		str8 output = push_str8_from_parts(m->scratch, str8(""), str8(OUTPUT("matlab/OGLBeamformer")), name, str8(".m"));
 
 		MetaTable *etable = &ctx->entities.data[id].table;
 		str8 *kinds = etable->entries[0];
 		meta_begin_scope(m, str8("classdef OGLBeamformer"), name, str8(" < int32"));
 		meta_begin_scope(m, str8("enumeration"));
 		str8 prefix = str8("");
 		if (etable->entry_count > 0 && IsDigit(kinds[0].data[0])) prefix = str8("m");
 		metagen_push_counted_enum_body(m, str8(""), prefix, str8("("), str8(")"), kinds, etable->entry_count);
 		result &= meta_end_and_write_matlab(m, (c8 *)output.data);
 
 		arena_clear(m->scratch);
 	}
 
 	////////////////////
 	// NOTE: emit files
 	{
 		MetaEmitOperationListSet *emit_set = ctx->emit_sets + MetaEmitLang_MATLAB;
 		for (da_count list = 0; list < emit_set->count; list++) {
 			MetaEmitOperationList *ops = emit_set->data + list;
 			str8 output = push_str8_from_parts(m->scratch, str8(""),
 			                                   str8(OUTPUT("matlab") OS_PATH_SEPARATOR "OGLBeamformer"),
 			                                   ops->filename, str8(".m"));
 			meta_push_line(m, str8("% GENERATED CODE"));
 			metagen_run_emit(m, ctx, ops, meta_kind_matlab_types);
 			result &= meta_write_and_reset(m, (c8 *)output.data);
 
 			arena_clear(m->scratch);
 		}
 	}
 
 	/////////////////////////
 	// NOTE(rnp): entities marked @MATLAB
 	{
 		da_count  children;
 		da_count *ids = meta_entity_extract_children(ctx, ctx->matlab_entity, &children, m->scratch);
 
 		for EachIndex((u64)children, it) {
 			MetaEntity *rr  = ctx->entities.data + ids[it];
 			da_count ref_id = ctx->entities.data[rr->reference.resolved_id.value].reference.resolved_id.value;
 			MetaEntity *re  = ctx->entities.data + ref_id;
 
 			switch (re->kind) {
 			InvalidDefaultCase;
 			case MetaEntityKind_Union:{
 				Temp scratch;
 				DeferLoop(scratch = temp_begin(m->scratch), temp_end(scratch))
 				{
 					MetaStruct *s = ctx->struct_infos + re->table.struct_info_id;
 					str8 name   = (rr->reference.scope_name.length > 0) ? rr->reference.scope_name : s->info.name;
 					str8 outdir = push_str8_from_parts(m->scratch, str8(""), str8(OUTPUT("matlab") OS_PATH_SEPARATOR),
 					                                   str8("+" MATLAB_NAMESPACE META_NAMESPACE_UPPER), name);
 					os_make_directory((c8 *)outdir.data);
 					result &= metagen_matlab_union(m, ctx, s, outdir, name);
 				}
 			}break;
 
 			case MetaEntityKind_Struct:{
 				MetaStruct *s = ctx->struct_infos + re->table.struct_info_id;
 				str8 name    = (rr->reference.scope_name.length > 0) ? rr->reference.scope_name : s->info.name;
 				str8 outfile = push_str8_from_parts(m->scratch, str8(""), str8(OUTPUT("matlab") OS_PATH_SEPARATOR),
 				                                    str8(MATLAB_NAMESPACE META_NAMESPACE_UPPER), name, str8(".m"));
 				meta_begin_scope(m, str8("classdef " MATLAB_NAMESPACE META_NAMESPACE_UPPER), name);
 				{
 					meta_push_matlab_properties(m, ctx, s);
 				} meta_end_scope(m, str8("end"));
 				result &= meta_end_and_write_matlab(m, (c8 *)outfile.data);
 			}break;
 
 			}
 		}
 	}
 
 	arena_clear(m->scratch);
 
 	return result;
 }
 
 function void
 meta_push_helper_library_header_base(MetaprogramContext *m, MetaContext *ctx)
 {
 	meta_push(m, c_file_header);
 	meta_push_line(m, str8("#include <stdint.h>\n"));
 
 	/////////////////////////
 	// NOTE(rnp): Constants
 	{
 		u32 integers = 0;
 		for (da_count constant = 0; constant < ctx->entity_kind_counts[MetaEntityKind_Constant]; constant++) {
 			da_count    id = ctx->entity_kind_ids[MetaEntityKind_Constant][constant];
 			MetaEntity *e  = ctx->entities.data + id;
 			if (e->constant.kind == MetaConstantKind_Integer) integers++;
 		}
 
 		str8 *columns[2];
 		columns[0] = push_array(m->scratch, str8, integers);
 		columns[1] = push_array(m->scratch, str8, integers);
 
 		u32 row_count = 0;
 		meta_push_line(m, str8("// NOTE: Constants (Integer)"));
 		for (da_count constant = 0; constant < ctx->entity_kind_counts[MetaEntityKind_Constant]; constant++) {
 			da_count    id = ctx->entity_kind_ids[MetaEntityKind_Constant][constant];
 			MetaEntity *e  = ctx->entities.data + id;
 			if (e->constant.kind == MetaConstantKind_Integer) {
 				Stream sb = arena_stream(m->scratch);
 				stream_append_str8(&sb, str8("("));
 				stream_append_u64(&sb, e->constant.U64);
 				columns[0][row_count] = ctx->entity_names.data[id];
 				columns[1][row_count] = arena_stream_commit(m->scratch, &sb);
 				row_count++;
 			}
 		}
 		metagen_push_table(m, str8("#define " META_NAMESPACE_UPPER), str8(")"), columns, row_count, 2);
 		meta_push(m, str8("\n"));
 	}
 
 	arena_clear(m->scratch);
 
 	/////////////////////////
 	// NOTE(rnp): enumerants
 	for (da_count kind = 0; kind < ctx->entity_kind_counts[MetaEntityKind_Enumeration]; kind++) {
 		da_count    id = ctx->entity_kind_ids[MetaEntityKind_Enumeration][kind];
 		MetaEntity *e  = ctx->entities.data + id;
 
 		str8 enum_name = push_str8_from_parts(m->scratch, str8(""), str8(META_NAMESPACE_UPPER),
 		                                      ctx->entity_names.data[id]);
 		metagen_push_c_enum(m, enum_name, 0, e->table.entries[0], e->table.entry_count);
 
 		arena_clear(m->scratch);
 	}
 
 	{
 		da_count group_id = -1;
 		for (da_count group = 0; group < ctx->entity_kind_counts[MetaEntityKind_ShaderGroup]; group++) {
 			da_count id = ctx->entity_kind_ids[MetaEntityKind_ShaderGroup][group];
 			str8 group_name = ctx->entity_names.data[id];
 			if (str8_equal(group_name, str8("Compute"))) {
 				group_id = id;
 				break;
 			}
 		}
 
 		if (group_id != -1) {
 			da_count children;
 			da_count *ids = meta_entity_extract_children(ctx, (MetaEntityID){.value = group_id},
 			                                             &children, m->scratch);
 			if (children > 0) {
 				str8 kind      = str8(META_NAMESPACE_UPPER "ShaderKind");
 				str8 kind_full = str8(META_NAMESPACE_UPPER "ShaderKind_");
 				meta_begin_scope(m, str8("typedef enum {"));
 				{
 					metagen_push_counted_enum_body_from_ids(m, kind_full, str8(""), str8("= "), str8(","), ids,
 					                                        ctx->entity_names.data, children);
 					meta_push_line(m, kind_full, str8("Count,"));
 				} meta_end_scope(m, str8("} "), kind, str8(";\n"));
 
 				meta_begin_line(m, str8("#define "), kind_full, str8("ComputeCount ("));
 				meta_push_i64(m, children);
 				meta_end_line(m, str8(")\n"));
 			}
 
 			arena_clear(m->scratch);
 		} else {
 			build_log_failure("failed to find Compute shader group in meta info\n");
 		}
 	}
 }
 
 function void
 meta_entity_resolve_references(MetaContext *ctx, da_count *ids, u64 id_count)
 {
 	for EachIndex(id_count, it) {
 		MetaEntity *e = meta_entity(ctx, (MetaEntityID){ids[it]});
 		switch (e->kind) {
 		InvalidDefaultCase;
 		case MetaEntityKind_ReferenceReference:{
 			MetaEntity *r = meta_entity(ctx, e->reference.resolved_id);
 			ids[it] = r->reference.resolved_id.value;
 		}break;
 		}
 	}
 }
 
 function b32
 metagen_emit_helper_library_header(MetaContext *ctx, Arena *arena)
 {
 	b32 result = 1;
 	char *out = OUTPUT("ogl_beamformer_lib.h");
 	if (!needs_rebuild(out, "lib/ogl_beamformer_lib_base.h", "beamformer.meta"))
 		return result;
 
 	build_log_generate("Library Header");
 
 	str8 base_header = os_read_entire_file(arena, "lib/ogl_beamformer_lib_base.h");
 
 	MetaprogramContext m[1] = {{.stream = arena_stream(arena), .scratch = ctx->scratch}};
 
 	meta_push_helper_library_header_base(m, ctx);
 
 	arena_clear(m->scratch);
 	/////////////////////////
 	// NOTE(rnp): entities marked @Library
 	{
 		da_count  children;
 		da_count *ids = meta_entity_extract_children(ctx, ctx->library_entity, &children, m->scratch);
 
 		meta_entity_resolve_references(ctx, ids, children);
 
 		for EachIndex((u64)children, it) {
 			MetaEntity *e = ctx->entities.data + ids[it];
 			switch (e->kind) {
 			InvalidDefaultCase;
 
 			case MetaEntityKind_Struct:{
 				meta_begin_scope(m, str8("typedef struct {")); {
 					meta_push_struct_body(ctx, m, e, (MetaPushStructParameters){
 						.layout_style        = MetaPushStructStyle_C,
 						.union_style         = MetaPushStructStyle_C,
 						.element_count_style = MetaPushStructStyle_C,
 						.base_types          = meta_kind_base_c_types,
 						.suffix              = str8(";"),
 						.str_element_prefix  = str8(META_NAMESPACE_UPPER),
 						.base_type_element_count_scales = meta_kind_elements,
 					});
 				} meta_end_scope(m, str8("} " META_NAMESPACE_UPPER), ctx->entity_names.data[ids[it]], str8(";\n"));
 			}break;
 
 			case MetaEntityKind_Union:{
 			}break;
 
 			}
 		}
 
 		arena_clear(m->scratch);
 	}
 
 	metagen_run_emit_set(m, ctx, ctx->emit_sets + MetaEmitLang_CLibrary, meta_kind_base_c_types);
 
 	meta_push_line(m, str8("// END GENERATED CODE\n"));
 
 	meta_push(m, base_header);
 	result &= meta_write_and_reset(m, out);
 
 	// NOTE(rnp): matlab compatible header
 	{
 		meta_push_helper_library_header_base(m, ctx);
 		/////////////////////////
 		// NOTE(rnp): entities marked @Library
 		{
 			da_count  children;
 			da_count *ids = meta_entity_extract_children(ctx, ctx->library_entity, &children, m->scratch);
 
 			meta_entity_resolve_references(ctx, ids, children);
 
 			for EachIndex((u64)children, it) {
 				MetaEntity *e = ctx->entities.data + ids[it];
 				switch (e->kind) {
 				InvalidDefaultCase;
 				case MetaEntityKind_Struct:{
 					meta_begin_scope(m, str8("typedef struct {"));
 					{
 						meta_push_struct_body(ctx, m, e, (MetaPushStructParameters){
 							.layout_style        = MetaPushStructStyle_C,
 							.union_style         = MetaPushStructStyle_MATLAB,
 							.element_count_style = MetaPushStructStyle_C,
 							.base_types          = meta_kind_base_c_types,
 							.suffix              = str8(";"),
 							.str_element_prefix  = str8(META_NAMESPACE_UPPER),
 							.base_type_element_count_scales = meta_kind_elements,
 						});
 					} meta_end_scope(m, str8("} " META_NAMESPACE_UPPER), ctx->entity_names.data[ids[it]], str8(";\n"));
 				}break;
 				case MetaEntityKind_Union:{}break;
 				}
 			}
 		}
 
 		arena_clear(m->scratch);
 
 		metagen_run_emit_set(m, ctx, ctx->emit_sets + MetaEmitLang_CLibrary, meta_kind_base_c_types);
 
 		meta_push_line(m, str8("// END GENERATED CODE\n"));
 
 		meta_push(m, base_header);
 		result &= meta_write_and_reset(m, OUTPUT("ogl_beamformer_lib_matlab.h"));
 	}
 
 	CommandList cpp = {0};
 	cmd_append(m->scratch, &cpp, PREPROCESSOR, out, COMPILER_OUTPUT, OUTPUT("ogl_beamformer_lib_python_ffi.h"));
 	result &= run_synchronous(m->scratch, &cpp);
 
 	arena_clear(m->scratch);
 
 	return result;
 }
 
 function MetaContext *
 metagen_load_context(Arena *arena, char *filename)
 {
 	if (setjmp(compiler_jmp_buf)) {
 		/* NOTE(rnp): compiler error */
 		return 0;
 	}
 
 	MetaContext *ctx = push_struct(arena, MetaContext);
 	ctx->scratch     = arena_create(.commit_size = MB(1));
 	ctx->arena       = arena;
 
 	// NOTE(rnp): nil entity
 	*da_push(ctx->arena, &ctx->entity_names) = str8("Nil");
 	da_push(ctx->arena, &ctx->entities);
 
 	MetaContext *result = ctx;
 
 	ctx->filename  = push_str8(ctx->arena, str8_from_c_str(filename));
 	ctx->directory = str8_chop(&ctx->filename, str8_scan_backwards(ctx->filename, OS_PATH_SEPARATOR_CHAR));
 	ctx->fullpath  = str8_from_c_str((c8 *)ctx->directory.data);
 	if (ctx->directory.length > 0) str8_chop(&ctx->filename, 1);
 	if (ctx->directory.length <= 0) {
 		ctx->directory = str8(".");
 		ctx->fullpath = push_str8_from_parts(ctx->arena, str8(""), ctx->directory,
 		                                     str8(OS_PATH_SEPARATOR), ctx->filename);
 	}
 
 	MetaEntryStack entries = meta_entry_stack_from_file(ctx->arena, filename);
 
 	for (i64 i = 0; i < entries.count; i++) {
 		MetaEntry *e = entries.data + i;
 
 		switch (e->kind) {
 		case MetaEntryKind_Constant:{
 			meta_pack_constant(ctx, e);
 		}break;
 
 		case MetaEntryKind_Emit:{
 			i += meta_pack_emit(ctx, e, entries.count - i);
 		}break;
 
 		case MetaEntryKind_Embed:{
 			meta_embed(ctx, e, entries.count - i);
 		}break;
 
 		case MetaEntryKind_Expand:{
 			i += meta_expand(ctx, e, entries.count - i, 0);
 		}break;
 
 		case MetaEntryKind_Library:
 		case MetaEntryKind_MATLAB:
 		{
 			if (e->kind == MetaEntryKind_Library && ctx->library_entity.value == 0) {
 				ctx->library_entity = meta_intern_entity(ctx, str8("LibraryEntity"), MetaEntityKind_List,
 				                                         meta_root_entity_id(ctx), (MetaLocation){0}, 0);
 			}
 
 			if (e->kind == MetaEntryKind_MATLAB && ctx->matlab_entity.value == 0) {
 				ctx->matlab_entity = meta_intern_entity(ctx, str8("MATLABEntity"), MetaEntityKind_List,
 				                                        meta_root_entity_id(ctx), (MetaLocation){0}, 0);
 			}
 
 			MetaEntityID parent = e->kind == MetaEntryKind_Library ? ctx->library_entity : ctx->matlab_entity;
 			str8 prefix     = e->kind == MetaEntryKind_Library ? str8("Library") : str8("MATLAB");
 			str8 scope_name = str8("");
 			if (e->argument_count > 0)
 				scope_name = meta_entry_argument_expect(e, 0, MetaEntryArgumentKind_String).string;
 			i += meta_pack_references(ctx, e, entries.count - i, parent, scope_name, prefix);
 		}break;
 
 		case MetaEntryKind_ShaderGroup:{
 			i += meta_pack_shader_group(ctx, e, entries.count - i);
 		}break;
 
 		case MetaEntryKind_Enumeration:
 		case MetaEntryKind_Flags:
 		case MetaEntryKind_Struct:
 		case MetaEntryKind_Table:
 		case MetaEntryKind_Union:
 		{
 			i += meta_pack_table_entity(ctx, e, entries.count - i, e->name, meta_root_entity_id(ctx));
 		}break;
 
 		default:
 		{
 			meta_entry_error(e, "invalid @%s() in global scope\n", meta_entry_kind_strings[e->kind]);
 		}break;
 		}
 	}
 
 	// NOTE(rnp): sort enitity ids into sub arrays
 	{
 		assert(ctx->entity_kind_counts[MetaEntityKind_Nil] == 0);
 
 		for EachNonZeroEnumValue(MetaEntityKind, it) {
 			if (ctx->entity_kind_counts[it]) {
 				ctx->entity_kind_ids[it] = push_array(ctx->arena, typeof(*ctx->entity_kind_ids[it]), ctx->entity_kind_counts[it]);
 			}
 		}
 
 		da_count entity_counts[MetaEntityKind_Count] = {0};
 		for (da_count entity = 1; entity < ctx->entities.count; entity++) {
 			MetaEntity *e = ctx->entities.data + entity;
 			da_count index = entity_counts[e->kind]++;
 			ctx->entity_kind_ids[e->kind][index] = da_index(e, &ctx->entities);
 		}
 	}
 
 	// NOTE(rnp): resolve reference entities
 	{
 		for (da_count entity = 0; entity < ctx->entity_kind_counts[MetaEntityKind_Reference]; entity++) {
 			MetaEntity *e = ctx->entities.data + ctx->entity_kind_ids[MetaEntityKind_Reference][entity];
 			da_count reference_id = meta_lookup_string_slow(ctx->entity_names.data, ctx->entity_names.count, e->reference.reference_name);
 			if (reference_id >= 0)
 				e->reference.resolved_id.value = reference_id;
 		}
 
 		b32 error = 0;
 		for (da_count entity = 0; entity < ctx->entity_kind_counts[MetaEntityKind_Reference]; entity++) {
 			MetaEntity          *e = ctx->entities.data + ctx->entity_kind_ids[MetaEntityKind_Reference][entity];
 			MetaEntityReference *r = &e->reference;
 			if (e->reference.resolved_id.value == 0) {
 				meta_compiler_error_message(e->location, "undefined reference%s to '%.*s'\n",
 				                            r->reference_count > 1? "s" : "",
 				                            (i32)r->reference_name.length, r->reference_name.data);
 				if (r->reference_count > 1)
 					meta_compiler_message("  referenced in %d other places\n", r->reference_count - 1);
 				error = 1;
 			}
 		}
 		if (error) meta_error();
 	}
 
 	// NOTE(rnp): extract entities referenced by shaders
 	{
 		for (da_count shader = 0; shader < ctx->entity_kind_counts[MetaEntityKind_Shader]; shader++) {
 			da_count    id = ctx->entity_kind_ids[MetaEntityKind_Shader][shader];
 			MetaShader *s  = &ctx->entities.data[id].shader;
 			for (da_count ref = 0; ref < s->entity_reference_ids.count; ref++) {
 				MetaEntityReference *r = &ctx->entities.data[s->entity_reference_ids.data[ref]].reference;
 				meta_intern_id(ctx, &ctx->shader_entity_references, r->resolved_id.value);
 			}
 		}
 	}
 
 	// NOTE(rnp): finalize struct info
 	{
 		da_count struct_infos_count = 0;
 		for EachElement(meta_struct_entity_kinds, kind_it)
 			struct_infos_count += ctx->entity_kind_counts[meta_struct_entity_kinds[kind_it]];
 
 		ctx->struct_infos_count = struct_infos_count;
 		ctx->struct_infos       = push_array(ctx->arena, MetaStruct, struct_infos_count);
 
 		da_count struct_info_index = 0;
 		for EachElement(meta_struct_entity_kinds, kind_it) {
 			for (da_count it = 0; it < ctx->entity_kind_counts[meta_struct_entity_kinds[kind_it]]; it++) {
 				da_count entity = ctx->entity_kind_ids[meta_struct_entity_kinds[kind_it]][it];
 				MetaEntity *e = ctx->entities.data + entity;
 				e->table.struct_info_id = struct_info_index++;
 
 				MetaStruct *s        = ctx->struct_infos + e->table.struct_info_id;
 				s->info.name         = ctx->entity_names.data[entity];
 				s->info.member_count = e->table.entry_count;
 				s->info.size         = (u32)-1;
 				s->members           = e->table.entries[MetaStructField_Name];
 				s->location          = e->location;
 				s->entity            = (MetaEntityID){entity};
 				if (meta_struct_entity_kinds[kind_it] == MetaEntityKind_Union)
 					s->info.flags = MetaStructFlag_Union;
 
 				s->member_flags = push_array(ctx->arena, MetaBuildStructMemberFlags, s->info.member_count);
 				s->elements     = push_array_no_zero(ctx->arena, i32, s->info.member_count);
 				s->type_ids     = push_array_no_zero(ctx->arena, i32, s->info.member_count);
 				memory_clear(s->type_ids, -1, sizeof(*s->type_ids) * s->info.member_count);
 				memory_clear(s->elements, -1, sizeof(*s->elements) * s->info.member_count);
 			}
 		}
 
 		// NOTE(rnp): resolve types
 		for EachElement(meta_struct_entity_kinds, kind_it) {
 			for (da_count it = 0; it < ctx->entity_kind_counts[meta_struct_entity_kinds[kind_it]]; it++) {
 				da_count entity = ctx->entity_kind_ids[meta_struct_entity_kinds[kind_it]][it];
 				MetaEntity *e = ctx->entities.data + entity;
 				MetaStruct *s = ctx->struct_infos + e->table.struct_info_id;
 
 				str8 *types = e->table.entries[MetaStructField_Type];
 				for EachIndex(s->info.member_count, member) {
 					s->type_ids[member] = meta_lookup_string_slow(meta_kind_meta_types, MetaKind_Count, types[member]);
 
 					if (s->type_ids[member] == -1 && meta_struct_allow_references[kind_it]) {
 						s->member_flags[member] = MetaBuildStructMemberFlag_ReferenceType;
 						i64 id = meta_lookup_string_slow(ctx->entity_names.data, ctx->entity_names.count, types[member]);
 						if (id >= 0) {
 							MetaEntityKind kind = ctx->entities.data[id].kind;
 							if (!meta_entity_kind_struct_reference_target[kind]) {
 								meta_compiler_error(e->location, "struct '%.*s' references entity '%.*s' which is not a valid struct member\n",
 								                    (i32)s->info.name.length, s->info.name.data, (i32)types[member].length, types[member].data);
 							}
 							if (ctx->entities.data[id].kind == MetaEntityKind_Union)
 								s->info.flags |= MetaStructFlag_ContainsUnion;
 							s->type_ids[member] = id;
 						}
 					}
 
 					if (s->type_ids[member] == -1) {
 						meta_compiler_error(e->location, "struct '%.*s' references undefined type '%.*s'\n",
 						                    (i32)s->info.name.length, s->info.name.data, (i32)types[member].length, types[member].data);
 					}
 				}
 			}
 		}
 
 		// NOTE(rnp): resolve element counts
 		for EachElement(meta_struct_entity_kinds, kind_it) {
 			for (da_count it = 0; it < ctx->entity_kind_counts[meta_struct_entity_kinds[kind_it]]; it++) {
 				da_count entity = ctx->entity_kind_ids[meta_struct_entity_kinds[kind_it]][it];
 				MetaEntity *e = ctx->entities.data + entity;
 				MetaStruct *s = ctx->struct_infos + e->table.struct_info_id;
 
 				str8 *elements = e->table.entries[MetaStructField_Elements];
 				for EachIndex(s->info.member_count, member) {
 					NumberConversion integer = integer_from_str8(elements[member]);
 					if (integer.result == NumberConversionResult_Success) {
 						s->elements[member] = integer.U64;
 					} else {
 						str8 ref_name = elements[member];
 						if (ref_name.data[0] == '#') {
 							s->member_flags[member] |= MetaBuildStructMemberFlag_EnumerationCount;
 							str8_chop(&ref_name, 1);
 						} else {
 							s->member_flags[member] |= MetaBuildStructMemberFlag_ReferenceElements;
 						}
 
 						i64 id = meta_lookup_string_slow(ctx->entity_names.data, ctx->entity_names.count, ref_name);
 						if (id >= 0) {
 							MetaEntity *ee = ctx->entities.data + id;
 							b32 valid = ee->kind == MetaEntityKind_Enumeration ||
 							           (ee->kind == MetaEntityKind_Constant && ee->constant.kind == MetaConstantKind_Integer);
 							if (!valid) {
 								// TODO(rnp): point at correct member
 								meta_compiler_error(e->location, "struct '%.*s': element count for field '%.*s'"
 								                                 "references '%.*s' which is not an integer constant\n",
 								                    (i32)s->info.name.length, s->info.name.data,
 								                    (i32)s->members[member].length, s->members[member].data,
 								                    (i32)elements[member].length, elements[member].data);
 							}
 							s->elements[member] = id;
 						}
 					}
 
 					if (s->elements[member] == -1) {
 						meta_compiler_error(e->location, "struct '%.*s': element count for field '%.*s' could not be determined\n",
 						                    (i32)s->info.name.length, s->info.name.data,
 						                    (i32)s->members[member].length, s->members[member].data);
 					}
 				}
 			}
 		}
 
 		// NOTE(rnp): resolve size
 		// TODO(rnp): depth could be predetermined
 		b32 all_done = 0;
 		for (u32 iterations = 0; !all_done && iterations < 16; iterations++) {
 			for EachIndex(ctx->struct_infos_count, structure) {
 				MetaStruct *s = ctx->struct_infos + structure;
 				u32 size = 0;
 				b32 is_union = (s->info.flags & MetaStructFlag_Union) != 0;
 				for EachIndex(s->info.member_count, member) {
 					b32 type_reference = (s->member_flags[member] & MetaStructMemberFlag_ReferenceType) != 0;
 					u32 elements       = meta_struct_member_elements(ctx, s, member);
 
 					u32 member_size = 0;
 					if (type_reference) {
 						MetaEntity *ref = ctx->entities.data + s->type_ids[member];
 						if (ref->kind == MetaEntityKind_Enumeration || ref->kind == MetaEntityKind_Flags) {
 							i64 limit = ref->kind == MetaEntityKind_Flags ? 32 : U32_MAX;
 							if (ref->table.entry_count < limit) member_size = sizeof(u32);
 							else                                member_size = sizeof(u64);
 						} else {
 							MetaStruct *sub_struct = ctx->struct_infos + ref->table.struct_info_id;
 							if (sub_struct->info.size != (u32)-1) {
 								member_size = sub_struct->info.size * elements;
 							} else {
 								size = (u32)-1;
 								break;
 							}
 						}
 					} else {
 						member_size = meta_kind_byte_sizes[s->type_ids[member]] * elements;
 					}
 					size = is_union ? Max(size, member_size) : size + member_size;
 				}
 				if (size != (u32)-1)
 					s->info.size = size;
 			}
 
 			all_done = 1;
 			for EachIndex(ctx->struct_infos_count, structure)
 				all_done &= ctx->struct_infos[structure].info.size != (u32)-1;
 		}
 
 		if (!all_done) {
 			for EachIndex(ctx->struct_infos_count, structure) {
 				MetaStruct *s = ctx->struct_infos + structure;
 				if (s->info.size == (u32)-1) {
 					meta_compiler_error(s->location, "storage size for struct '%.*s' could not be determined\n",
 					                    (i32)s->info.name.length, s->info.name.data);
 				}
 			}
 		}
 	}
 
 	// NOTE(rnp): finalize base shader nonsense
 	{
 		for (da_count shader = 0; shader < ctx->entity_kind_counts[MetaEntityKind_Shader]; shader++) {
 			MetaEntity *e = ctx->entities.data + ctx->entity_kind_ids[MetaEntityKind_Shader][shader];
 			if (e->shader.files[0].length > 0)
 				ctx->base_shader_count++;
 		}
 
 		ctx->base_shader_ids    = push_array(ctx->arena, da_count, ctx->base_shader_count);
 		ctx->base_shader_id_map = push_array(ctx->arena, da_count, ctx->entity_kind_counts[MetaEntityKind_Shader]);
 
 		da_count base_shader_ids_index = 0;
 		for (da_count shader = 0; shader < ctx->entity_kind_counts[MetaEntityKind_Shader]; shader++) {
 			da_count id = ctx->entity_kind_ids[MetaEntityKind_Shader][shader];
 			if (ctx->entities.data[id].shader.files[0].length > 0)
 				ctx->base_shader_ids[base_shader_ids_index++] = id;
 		}
 
 		// NOTE(rnp): first pass to resolve real shaders
 		for (da_count shader = 0; shader < ctx->entity_kind_counts[MetaEntityKind_Shader]; shader++) {
 			da_count id = ctx->entity_kind_ids[MetaEntityKind_Shader][shader];
 			if (ctx->entities.data[id].shader.files[0].length > 0) {
 				ctx->base_shader_id_map[shader] = meta_lookup_id_slow(ctx->base_shader_ids,
 				                                                      ctx->base_shader_count,
 				                                                      id);
 			} else {
 				ctx->base_shader_id_map[shader] = -1;
 			}
 		}
 
 		// NOTE(rnp): second pass to resolve aliases
 		for (da_count shader = 0; shader < ctx->entity_kind_counts[MetaEntityKind_Shader]; shader++) {
 			da_count id = ctx->entity_kind_ids[MetaEntityKind_Shader][shader];
 			if (ctx->base_shader_id_map[shader] == -1) {
 				if (ctx->entities.data[id].shader.kind == MetaShaderKind_Alias) {
 					ctx->base_shader_id_map[shader] = meta_lookup_id_slow(ctx->base_shader_ids,
 					                                                      ctx->base_shader_count,
 					                                                      ctx->entities.data[id].shader.alias_parent_id.value);
 					assert(ctx->base_shader_id_map[shader] != -1);
 				}
 			}
 		}
 	}
 
 	arena_clear(ctx->scratch);
 	result->arena = 0;
 	return result;
 }
 
 function b32
 metagen_file_direct(Arena *arena, char *filename)
 {
 	MetaContext *ctx = metagen_load_context(arena, filename);
 	b32 result = ctx && metagen_emit_c_code(ctx, arena);
 	return result;
 }
 
 BASE_IMPORT void
 entry_point(i32 argc, char *argv[])
 {
 	u64 start_time = os_timer_count();
 	g_argv0 = argv[0];
 
 	b32 result  = 1;
 	Arena *arena = arena_create(.commit_size = MB(8));
 
 	check_rebuild_self(arena, argc, argv);
 	arena_clear(arena);
 
 	os_make_directory(OUTDIR);
 
 	result &= metagen_file_direct(arena, "assets" OS_PATH_SEPARATOR "assets.meta");
 	arena_clear(arena);
 
 	result &= metagen_file_direct(arena, "beamformer_core.meta");
 	arena_clear(arena);
 
 	MetaContext *meta = metagen_load_context(arena, "beamformer.meta");
 	if (!meta) os_exit(1);
 
 	Temp scratch;
 	DeferLoop(scratch = temp_begin(arena), temp_end(scratch))
 		result &= metagen_emit_c_code(meta, arena);
 	DeferLoop(scratch = temp_begin(arena), temp_end(scratch))
 		result &= metagen_emit_helper_library_header(meta, arena);
 	DeferLoop(scratch = temp_begin(arena), temp_end(scratch))
 		result &= metagen_emit_matlab_code(meta, arena);
 
 	arena_clear(arena);
 
 	parse_config(argc, argv);
 
 	if (!build_raylib(arena))  os_exit(1);
 	if (!build_glslang(arena)) os_exit(1);
 
 	/////////////////
 	// lib/tests
 	result &= build_helper_library(arena);
 	if (config.tests) result &= build_tests(arena);
 
 	//////////////////
 	// static portion
 	result &= build_beamformer_main(arena);
 
 	/////////////////////////
 	// hot reloadable portion
 	//
 	// NOTE: this is built after main because on w32 we need to export
 	// gl function pointers for the reloadable portion to import
 	if (config.debug) result &= build_beamformer_as_library(arena);
 
 	if (config.time) {
 		f64 seconds = (f64)(os_timer_count() - start_time) / (f64)os_timer_frequency();
 		build_log_info("took %0.03f [s]", seconds);
 	}
 
 	os_exit(result != 1);
 }