tablet.tmpmil

来自「一个内存数据库的源代码这是服务器端还有客户端」· TMPMIL 代码 · 共 30 行

PROC test_tablet() : void := {

	#tablet_debug(1);

	fp := fopen ( "format", "w+" );
	fputs( "key,\",\",str\n", fp);
	fputs( "a_io_test,\"\\n\",dbl\n", fp);
	fclose( fp );

	fp := fopen ( "data", "w+" );
	fputs( "test, 0.12345\n", fp);
	fputs( "second line, 9.0\n", fp);
	fclose( fp );

	bats := load_data(load_format("format"),"data",10);
	bats.print;
	a := bats.find("key").reverse().join( bats.find("a_io_test") );
	a.print;
	dump_data(load_format("format"), bats, "data", -1);

	fp := fopen ( "data", "r" );
	s := fgets( fp ); 
	s.print();
	fclose( fp );
}