#include "master.hpp"
-namespace factor
-{
+namespace factor {
-#define PRIMITIVE_FORWARD(name) extern "C" void primitive_##name(factor_vm *parent) \
-{ \
- parent->primitive_##name(); \
-}
+#define PRIMITIVE(name) \
+ VM_C_API void primitive_##name(factor_vm * parent) { \
+ parent->primitive_##name(); \
+ }
-PRIMITIVE_FORWARD(alien_address)
-PRIMITIVE_FORWARD(all_instances)
-PRIMITIVE_FORWARD(array)
-PRIMITIVE_FORWARD(array_to_quotation)
-PRIMITIVE_FORWARD(become)
-PRIMITIVE_FORWARD(bignum_add)
-PRIMITIVE_FORWARD(bignum_and)
-PRIMITIVE_FORWARD(bignum_bitp)
-PRIMITIVE_FORWARD(bignum_divint)
-PRIMITIVE_FORWARD(bignum_divmod)
-PRIMITIVE_FORWARD(bignum_eq)
-PRIMITIVE_FORWARD(bignum_greater)
-PRIMITIVE_FORWARD(bignum_greatereq)
-PRIMITIVE_FORWARD(bignum_less)
-PRIMITIVE_FORWARD(bignum_lesseq)
-PRIMITIVE_FORWARD(bignum_log2)
-PRIMITIVE_FORWARD(bignum_mod)
-PRIMITIVE_FORWARD(bignum_multiply)
-PRIMITIVE_FORWARD(bignum_not)
-PRIMITIVE_FORWARD(bignum_or)
-PRIMITIVE_FORWARD(bignum_shift)
-PRIMITIVE_FORWARD(bignum_subtract)
-PRIMITIVE_FORWARD(bignum_to_fixnum)
-PRIMITIVE_FORWARD(bignum_to_float)
-PRIMITIVE_FORWARD(bignum_xor)
-PRIMITIVE_FORWARD(bits_double)
-PRIMITIVE_FORWARD(bits_float)
-PRIMITIVE_FORWARD(byte_array)
-PRIMITIVE_FORWARD(byte_array_to_bignum)
-PRIMITIVE_FORWARD(call_clear)
-PRIMITIVE_FORWARD(callback)
-PRIMITIVE_FORWARD(callstack)
-PRIMITIVE_FORWARD(callstack_to_array)
-PRIMITIVE_FORWARD(check_datastack)
-PRIMITIVE_FORWARD(clone)
-PRIMITIVE_FORWARD(code_room)
-PRIMITIVE_FORWARD(compact_gc)
-PRIMITIVE_FORWARD(compute_identity_hashcode)
-PRIMITIVE_FORWARD(data_room)
-PRIMITIVE_FORWARD(datastack)
-PRIMITIVE_FORWARD(die)
-PRIMITIVE_FORWARD(disable_gc_events)
-PRIMITIVE_FORWARD(dispatch_stats)
-PRIMITIVE_FORWARD(displaced_alien)
-PRIMITIVE_FORWARD(dlclose)
-PRIMITIVE_FORWARD(dll_validp)
-PRIMITIVE_FORWARD(dlopen)
-PRIMITIVE_FORWARD(dlsym)
-PRIMITIVE_FORWARD(double_bits)
-PRIMITIVE_FORWARD(enable_gc_events)
-PRIMITIVE_FORWARD(existsp)
-PRIMITIVE_FORWARD(exit)
-PRIMITIVE_FORWARD(fclose)
-PRIMITIVE_FORWARD(fflush)
-PRIMITIVE_FORWARD(fgetc)
-PRIMITIVE_FORWARD(fixnum_divint)
-PRIMITIVE_FORWARD(fixnum_divmod)
-PRIMITIVE_FORWARD(fixnum_shift)
-PRIMITIVE_FORWARD(fixnum_to_bignum)
-PRIMITIVE_FORWARD(fixnum_to_float)
-PRIMITIVE_FORWARD(float_add)
-PRIMITIVE_FORWARD(float_bits)
-PRIMITIVE_FORWARD(float_divfloat)
-PRIMITIVE_FORWARD(float_eq)
-PRIMITIVE_FORWARD(float_greater)
-PRIMITIVE_FORWARD(float_greatereq)
-PRIMITIVE_FORWARD(float_less)
-PRIMITIVE_FORWARD(float_lesseq)
-PRIMITIVE_FORWARD(float_mod)
-PRIMITIVE_FORWARD(float_multiply)
-PRIMITIVE_FORWARD(float_subtract)
-PRIMITIVE_FORWARD(float_to_bignum)
-PRIMITIVE_FORWARD(float_to_fixnum)
-PRIMITIVE_FORWARD(float_to_str)
-PRIMITIVE_FORWARD(fopen)
-PRIMITIVE_FORWARD(fputc)
-PRIMITIVE_FORWARD(fread)
-PRIMITIVE_FORWARD(fseek)
-PRIMITIVE_FORWARD(ftell)
-PRIMITIVE_FORWARD(full_gc)
-PRIMITIVE_FORWARD(fwrite)
-PRIMITIVE_FORWARD(identity_hashcode)
-PRIMITIVE_FORWARD(innermost_stack_frame_executing)
-PRIMITIVE_FORWARD(innermost_stack_frame_scan)
-PRIMITIVE_FORWARD(jit_compile)
-PRIMITIVE_FORWARD(load_locals)
-PRIMITIVE_FORWARD(lookup_method)
-PRIMITIVE_FORWARD(mega_cache_miss)
-PRIMITIVE_FORWARD(minor_gc)
-PRIMITIVE_FORWARD(modify_code_heap)
-PRIMITIVE_FORWARD(nano_count)
-PRIMITIVE_FORWARD(optimized_p)
-PRIMITIVE_FORWARD(profiling)
-PRIMITIVE_FORWARD(quot_compiled_p)
-PRIMITIVE_FORWARD(quotation_code)
-PRIMITIVE_FORWARD(reset_dispatch_stats)
-PRIMITIVE_FORWARD(resize_array)
-PRIMITIVE_FORWARD(resize_byte_array)
-PRIMITIVE_FORWARD(resize_string)
-PRIMITIVE_FORWARD(retainstack)
-PRIMITIVE_FORWARD(save_image)
-PRIMITIVE_FORWARD(save_image_and_exit)
-PRIMITIVE_FORWARD(set_datastack)
-PRIMITIVE_FORWARD(set_innermost_stack_frame_quot)
-PRIMITIVE_FORWARD(set_retainstack)
-PRIMITIVE_FORWARD(set_slot)
-PRIMITIVE_FORWARD(set_special_object)
-PRIMITIVE_FORWARD(set_string_nth_fast)
-PRIMITIVE_FORWARD(set_string_nth_slow)
-PRIMITIVE_FORWARD(size)
-PRIMITIVE_FORWARD(sleep)
-PRIMITIVE_FORWARD(special_object)
-PRIMITIVE_FORWARD(str_to_float)
-PRIMITIVE_FORWARD(string)
-PRIMITIVE_FORWARD(string_nth)
-PRIMITIVE_FORWARD(strip_stack_traces)
-PRIMITIVE_FORWARD(system_micros)
-PRIMITIVE_FORWARD(tuple)
-PRIMITIVE_FORWARD(tuple_boa)
-PRIMITIVE_FORWARD(unimplemented)
-PRIMITIVE_FORWARD(uninitialized_byte_array)
-PRIMITIVE_FORWARD(vm_ptr)
-PRIMITIVE_FORWARD(word)
-PRIMITIVE_FORWARD(word_code)
-PRIMITIVE_FORWARD(wrapper)
+EACH_PRIMITIVE(PRIMITIVE)
}