なんか揺れて起きてしまった…
0.3
0.3
配列実装、関数呼び出しまわりが腐ってたのを修正、あと、なんか色々。投げやりなREADMEとか。
全然テストしてません。自己責任で。
昨日言ってた配列を実装。
field nanika_array: int [] def start() -> void : nanika_array[0] = 4 nanika_array[1] = 255 yield nanika_array[1] = 8 yield nanika_array[0] = 9 yield
こんなふうにしといて、
#include "loader.h" #include "vm.h" #include <stdio.h> static a24z_value a24z_field[8]; enum { FIELD_NANIKA_ARRAY, }; int main( ) { struct a24z_program *prog; struct a24z_vm *vm; struct a24z_native_funcs natives; a24z_value buf[4]; natives.func_table = NULL; natives.method_table = NULL; prog = a24z_load_file( "test.a24zc", &natives, NULL ); if ( prog == NULL ) return 1; /* ここで nanika_array の配列を指定 */ POINTER_VALUE(a24z_field[FIELD_NANIKA_ARRAY]) = buf; vm = new_a24z_vm( prog, a24z_field ); a24z_vm_run( vm ); printf("nanika_array[0]=%d, nanika_array[1]=%d\n", INT_VALUE(buf[0]), INT_VALUE(buf[1])); a24z_vm_run( vm ); printf("nanika_array[0]=%d, nanika_array[1]=%d\n", INT_VALUE(buf[0]), INT_VALUE(buf[1])); a24z_vm_run( vm ); printf("nanika_array[0]=%d, nanika_array[1]=%d\n", INT_VALUE(buf[0]), INT_VALUE(buf[1])); a24z_unload_program( prog ); return 0; }
こーすれば、
nanika_array[0]=4, nanika_array[1]=255 nanika_array[0]=4, nanika_array[1]=8 nanika_array[0]=9, nanika_array[1]=8
こんな感じに。実行時に配列を作る方法は無いけど、mallocとかを呼べるようにしてやれば一応可能。
Cの関数を呼ぶ方法は、func_tableに関数を入れておいて、プログラムのほうでexternしておけば使える。
field nanika_array: int[] extern new_array( size:int ) -> int [] extern delete_array( ptr: int [] ) -> void def start() -> void : nanika_array = new_array( 8 ) nanika_array[0] = 4 nanika_array[1] = 255 yield delete_array( nanika_array )
こんなふうにしておいて、
#include "loader.h" #include "vm.h" #include <stdio.h> #include <stdlib.h> enum { FIELD_NANIKA_ARRAY, }; static a24z_value new_array( a24z_value *sp ) { int size = INT_VALUE(sp[0]); a24z_value v; POINTER_VALUE(v) = malloc( size * sizeof(a24z_value) ); puts("new"); return v; } static a24z_value delete_array( a24z_value *sp ) { a24z_value *ptr = POINTER_VALUE( sp[0] ); a24z_value v; free( ptr ); puts("delete"); return v; } static a24z_native_func func_table[] = { new_array, delete_array, }; int main( ) { struct a24z_program *prog; struct a24z_vm *vm; struct a24z_native_funcs natives; a24z_value field[8]; /* ここで呼び出す関数を指定 */ natives.func_table = func_table; natives.method_table = NULL; prog = a24z_load_file( "test.a24zc", &natives, field ); if ( prog == NULL ) return 1; vm = new_a24z_vm( prog, field ); a24z_vm_run( vm ); printf("nanika_array[0]=%d, nanika_array[1]=%d\n", INT_VALUE( POINTER_VALUE(field[FIELD_NANIKA_ARRAY])[0] ), INT_VALUE( POINTER_VALUE(field[FIELD_NANIKA_ARRAY])[1] ) ); a24z_vm_run( vm ); a24z_unload_program( prog ); return 0; }
こんな感じ。関数もfieldと一緒で、上から順番にインデックスが付けられていく。
これで、とりあえず欲しいと思ってた機能はひととおり揃ったはず。
あとは、start以外の関数を呼べるようにするとかだろうか。でも、それは、また、インターフェースどうするかがわかんないんだよな…実装は簡単なんだけど。
で、えーと、面倒になってきたので、最適化の話は明日にでも。