int main(int argc, char *argv[])
{
strcpy(ASM_DESCR.format, "scf");
char *i_file = NULL, *o_file = NULL;
unsigned i, flags = 0;
if (argc > 1) {
for (i = 1; i < argc; i++) {
if (strcmp(argv[i], "-i") == 0 && i < argc - 1) i_file = argv[i + 1];
else if (strcmp(argv[i], "-o") == 0 && i < argc - 1) o_file = argv[i + 1];
else if ((strcmp(argv[i], "-f") == 0 || strcmp(argv[i], "--format") == 0) && i < argc - 1) {
strncpy(ASM_DESCR.format, argv[i + 1], 3);
ASM_DESCR.format[3] = '\0';
}
else if (strcmp(argv[i], "-h") == 0 || strcmp(argv[i], "--help") == 0) flags |= help();
else if (strcmp(argv[i], "--about") == 0) flags |= about();
}
if (i_file != NULL && o_file != NULL) {
assembler_init(i_file);
assembler_run(o_file);
} else if (flags == 0) {
printf("Usage: ./sasm -i [input file] -o [output file] [...]\n");
return 1;
}
return 0;
}
printf("Usage: ./sasm [arguments]\n");
return 1;
}
// Returns the code that implements the given method object.
static value_t compile_method(runtime_t *runtime, value_t method) {
value_t method_ast = get_method_syntax(method);
value_t fragment = get_method_module_fragment(method);
assembler_t assm;
TRY(assembler_init(&assm, runtime, fragment, scope_get_bottom()));
E_BEGIN_TRY_FINALLY();
E_TRY_DEF(code, compile_method_body(&assm, method_ast));
E_RETURN(code);
E_FINALLY();
assembler_dispose(&assm);
E_END_TRY_FINALLY();
}
TEST(syntax, emitting) {
CREATE_RUNTIME();
value_t ast = new_heap_literal_ast(runtime, yes());
assembler_t assm;
ASSERT_SUCCESS(assembler_init(&assm, runtime, nothing(), scope_get_bottom()));
ASSERT_SUCCESS(emit_value(ast, &assm));
assembler_emit_return(&assm);
value_t code = assembler_flush(&assm);
ASSERT_SUCCESS(code);
value_t result = run_code_block_until_condition(ambience, code);
ASSERT_VALEQ(yes(), result);
assembler_dispose(&assm);
DISPOSE_RUNTIME();
}
int main(int argc, char** argv) {
if(argc != 2 && argc != 3) {
c_print_format("Usage: %s FILE [cartridge/folder]\n", argv[0]);
return 0;
}
Arena arena = arena_create(MB(512));
String cartridge_folder_path_name = (argc > 2)
? string_from_c_string(argv[2])
: L("SuperMarioWorld.sfc");
Path cartridge_folder_path;
path_init(&cartridge_folder_path, cartridge_folder_path_name);
Path manifest_path;
path_init_from_c(&manifest_path, &cartridge_folder_path, "manifest.bml");
Buffer manifest_buffer = path_read_file(&manifest_path, &arena);
Wdc65816MapperBuilder rom_builder = { };
char name[256];
Buffer name_buffer = buffer(name, 256);
Buffer rom_buffer;
for(Wdc65816RomLoader loader = wdc65816_rom_loader_begin(&rom_builder,
string_from_buffer(manifest_buffer));
wdc65816_rom_loader_end(&loader);
wdc65816_rom_loader_next(&loader)) {
Wdc65816MemoryBufferRequest request = wdc65816_rom_loader_get_buffer_request(&loader,
name_buffer);
Buffer file_buffer = buffer(arena_alloc_array(&arena, request.size, u8), request.size);
if(string_equal(request.name, L("program.rom")) &&
request.type == WDC65816_MEMORY_ROM) {
rom_buffer = file_buffer;
}
wdc65816_rom_loader_set_buffer(&loader, file_buffer);
}
uint mapper_buffer_size = wdc65816_mapper_get_buffer_size();
u8* work_buffer = arena_alloc_array(&arena, mapper_buffer_size, u8);
Wdc65816Mapper rom;
wdc65816_mapper_init(&rom, &rom_builder, (u8**)work_buffer);
nuts_global_init();
Path working_dir;
path_init_working_directory(&working_dir);
FreeList sentinel;
free_list_init(&sentinel);
ErrorList error_list;
error_list_init(&error_list, arena_subarena(&arena, MB(10)));
AST ast;
ast_init(&ast, &arena);
String file_name = string_from_c_string(argv[1]);
/* struct timespec lex_start, lex_end, lex_time = { 0 }; */
/* struct timespec parse_start, parse_end, parse_time = { 0 }; */
/* struct timespec assemble_start, assemble_end, assemble_time = { 0 }; */
/* struct timespec all_start, all_end, all_time; */
/* clock_gettime(CLOCK_REALTIME, &all_start); */
Parser parser;
parser_init(&parser, &arena, &sentinel, &error_list, &ast);
int error_num = 0;
while(1) {
Path file;
path_init(&file, file_name);
Buffer file_buffer = path_read_file(&file, &arena);
TokenList token_list;
//c_print_format("read %.*s\n", file_name.length, file_name.data);
Text file_text = {
.buffer = file_buffer,
.name = file_name
};
/* clock_gettime(CLOCK_REALTIME, &lex_start); */
Result result = lex(file_text, &token_list, &arena, &error_list, &ast.identifier_map);
if(result == RESULT_ERROR) {
for(;error_num < error_list.length; error_num++) {
describe_error(error_list.errors[error_num]);
}
}
/* clock_gettime(CLOCK_REALTIME, &lex_end); */
/* lex_time = timespec_add(lex_time, timespec_sub(lex_start, lex_end)); */
/* clock_gettime(CLOCK_REALTIME, &parse_start); */
/* result = parse(&parser, token_list); */
/* clock_gettime(CLOCK_REALTIME, &parse_end); */
/* parse_time = timespec_add(parse_time, timespec_sub(parse_start, parse_end)); */
if(result == RESULT_NEED_TOKEN_STREAM) {
file_name = parser.needed_token_stream_file_name;
continue;
} else if(result == RESULT_OK) {
break;
} else if(result == RESULT_ERROR) {
for(;error_num < error_list.length; error_num++) {
describe_error(error_list.errors[error_num]);
}
return 1;
} else {
invalid_code_path;
}
}
/* clock_gettime(CLOCK_REALTIME, &assemble_start); */
Assembler assembler;
assembler_init(&assembler, &error_list, &ast, &rom);
Result result = RESULT_ERROR;
while(result != RESULT_OK) {
result = assemble(&assembler);
if(result == RESULT_NEED_FILE) {
String file_name = assembler_get_file_name(&assembler);
Path file;
path_init(&file, file_name);
Buffer file_buffer = path_read_file(&file, &arena);
assembler_give_buffer(&assembler, file_buffer);
} else if(result == RESULT_ERROR) {
break;
}
}
/* clock_gettime(CLOCK_REALTIME, &assemble_end); */
/* assemble_time = timespec_add(assemble_time, timespec_sub(assemble_start, assemble_end)); */
for(int i = 0; i < error_list.length; i++) {
describe_error(error_list.errors[i]);
}
/* parser_deinit(&parser); */
/* clock_gettime(CLOCK_REALTIME, &all_end); */
/* all_time = timespec_sub(all_start, all_end); */
/* c_print_format("Lex: %li.%06lims\n", lex_time.tv_sec * 1000 + lex_time.tv_nsec / 1000000, lex_time.tv_nsec % 1000000); */
/* c_print_format("Parse: %li.%06lims\n", parse_time.tv_sec * 1000 + parse_time.tv_nsec / 1000000, parse_time.tv_nsec % 1000000); */
/* c_print_format("Assemble: %li.%06lims\n", assemble_time.tv_sec * 1000 + assemble_time.tv_nsec / 1000000, assemble_time.tv_nsec % 1000000); */
/* c_print_format("All: %li.%06lims\n", all_time.tv_sec * 1000 + all_time.tv_nsec / 1000000, all_time.tv_nsec % 1000000); */
Path rom_path;
path_create_from(&rom_path, &cartridge_folder_path, L("program.rom"));
path_write_file(&rom_path, rom_buffer);
return 0;
}
