miloignis/kraken
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Finish up c extern functions for bytecode

Browse Source
This commit is contained in:
Nathan Braswell
2018-03-26 01:25:15 -04:00
parent 1c94cd2f03
commit 804f98f9cf
1 changed files with 40 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
stdlib/bytecode_generator.krak
View File

@@ -619,7 +619,13 @@ obj bytecode_generator (Object) {
return emit_imm((node->value.string_value.toCharArray()) cast long)
else if (node->value.value_type->base == base_type::character() && node->value.value_type->indirection == 0)
return emit_imm((node->value.string_value[0]) cast long)
else
else if (node->value.value_type->base == base_type::floating() && node->value.value_type->indirection == 0) {
var double_temp: double = ((string_to_double(node->value.string_value)) cast float)
return emit_imm(*(&double_temp) cast *long)
} else if (node->value.value_type->base == base_type::double_precision() && node->value.value_type->indirection == 0) {
var double_temp: double = string_to_double(node->value.string_value)
return emit_imm(*(&double_temp) cast *long)
} else
return emit_imm(string_to_num<int>(node->value.string_value))
}
fun generate_code_block(node: *ast_node): int {
@@ -1164,8 +1170,41 @@ obj bytecode_generator (Object) {
registers[2] = (fgets( *(registers[0]) cast **char,
*(registers[0] + #sizeof<*char>) cast *int,
*(registers[0] + #sizeof<*char> + #sizeof<int>) cast **void)) cast long
else if (func_start == fopen_addr)
registers[2] = (fopen( *(registers[0]) cast **char,
*(registers[0] + #sizeof<*char>) cast **char)) cast long
else if (func_start == fclose_addr)
registers[2] = (fclose( *(registers[0]) cast **void)) cast long
else if (func_start == ftell_addr)
registers[2] = (ftell( *(registers[0]) cast **void)) cast long
else if (func_start == fseek_addr)
registers[2] = (fseek( *(registers[0]) cast **void,
*(registers[0] + #sizeof<*void>) cast *long,
*(registers[0] + #sizeof<*void> + #sizeof<long>) cast *int)) cast long
else if (func_start == fread_addr)
registers[2] = (fread( *(registers[0]) cast **void,
*(registers[0] + #sizeof<*void>) cast *ulong,
*(registers[0] + #sizeof<*void> + #sizeof<ulong>) cast *ulong,
*(registers[0] + #sizeof<*void>+2*#sizeof<ulong>) cast **void)) cast long
else if (func_start == fwrite_addr)
registers[2] = (fwrite( *(registers[0]) cast **void,
*(registers[0] + #sizeof<*void>) cast *ulong,
*(registers[0] + #sizeof<*void> + #sizeof<ulong>) cast *ulong,
*(registers[0] + #sizeof<*void>+2*#sizeof<ulong>) cast **void)) cast long
else if (func_start == system_addr)
registers[2] = (system( *(registers[0]) cast **char)) cast long
else if (func_start == exit_addr)
exit(*(registers[0]) cast *int)
else if (func_start == popen_addr)
registers[2] = (popen( *(registers[0]) cast **char,
*(registers[0] + #sizeof<*char>) cast **char)) cast long
else if (func_start == pclose_addr)
registers[2] = (pclose( *(registers[0]) cast **void)) cast long
else if (func_start == snprintf_addr)
registers[2] =(snprintf(*(registers[0]) cast **char,
*(registers[0] + #sizeof<*char>) cast *ulong,
*(registers[0] + #sizeof<*char> + #sizeof<ulong>) cast **char,
*(registers[0] + #sizeof<*char> + #sizeof<ulong> + #sizeof<*char>) cast *double)) cast long
else
error(string("bad extern call number") + func_start)
} else {