Merge pull request #166 from kichikuou/vmData

Implement vmData HLL

CMakeLists.txt

@@ -180,6 +180,7 @@ target_sources(xsystem4 PRIVATE
   src/hll/vmCG.c
   src/hll/vmChrLoader.c
   src/hll/vmCursor.c
+  src/hll/vmData.c
   src/hll/vmDialog.c
   src/hll/vmDrawGauge.c
   src/hll/vmDrawMsg.c

src/ffi.c

@@ -376,6 +376,7 @@ extern struct static_library lib_vmArray;
 extern struct static_library lib_vmCG;
 extern struct static_library lib_vmChrLoader;
 extern struct static_library lib_vmCursor;
+extern struct static_library lib_vmData;
 extern struct static_library lib_vmDialog;
 extern struct static_library lib_vmDrawGauge;
 extern struct static_library lib_vmDrawMsg;
@@ -472,6 +473,7 @@ static struct static_library *static_libraries[] = {
 	&lib_vmCG,
 	&lib_vmChrLoader,
 	&lib_vmCursor,
+	&lib_vmData,
 	&lib_vmDialog,
 	&lib_vmDrawGauge,
 	&lib_vmDrawMsg,

src/hll/vmData.c

@@ -0,0 +1,210 @@
+/* Copyright (C) 2024 kichikuou <KichikuouChrome@gmail.com>
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, see <http://gnu.org/licenses/>.
+ */
+
+#include <stdlib.h>
+
+#include "system4/archive.h"
+#include "system4/buffer.h"
+
+#include "asset_manager.h"
+#include "hll.h"
+#include "id_pool.h"
+#include "vm/heap.h"
+#include "vm/page.h"
+
+struct vm_data {
+	struct archive_data *dfile;
+	struct buffer buf;
+};
+
+static struct id_pool pool;
+
+static void vmData_New(void)
+{
+	if (pool.slots)
+		return;  // already initialized
+	id_pool_init(&pool, ID_POOL_HANDLE_BASE);
+}
+
+HLL_QUIET_UNIMPLEMENTED(, void, vmData, SetType, int type);
+
+static int vmData_EnumHandle(void)
+{
+	return id_pool_count(&pool);
+}
+
+static int vmData_Exist(int num)
+{
+	return asset_exists(ASSET_DATA, num);
+}
+
+static int vmData_Load(int num)
+{
+	struct archive_data *dfile = asset_get(ASSET_DATA, num);
+	if (!dfile)
+		return 0;
+
+	int id = id_pool_get_unused(&pool);
+	struct vm_data *obj = xcalloc(1, sizeof(struct vm_data));
+	id_pool_set(&pool, id, obj);
+	obj->dfile = dfile;
+	buffer_init(&obj->buf, dfile->data, dfile->size);
+	return id;
+}
+
+static void vmData_Unload(int id)
+{
+	struct vm_data *obj = id_pool_release(&pool, id);
+	if (!obj)
+		return;
+	archive_free_data(obj->dfile);
+	free(obj);
+}
+
+static int vmData_Release(void)
+{
+	for (int i = id_pool_get_first(&pool); i >= 0; i = id_pool_get_next(&pool, i))
+		vmData_Unload(i);
+	id_pool_delete(&pool);
+	return 1;
+}
+
+static int vmData_ReadArrayChar(int id, struct page **array_)
+{
+	struct vm_data *obj = id_pool_get(&pool, id);
+	if (!obj)
+		return 0;
+
+	struct page *array = *array_;
+	if (array->type != ARRAY_PAGE || array->a_type != AIN_ARRAY_INT || array->array.rank != 1)
+		VM_ERROR("Type error");
+
+	for (int i = 0; i < array->nr_vars; i++) {
+		variable_set(array, i, AIN_INT, vm_int((int8_t)buffer_read_u8(&obj->buf)));
+	}
+	return 1;
+}
+
+static int vmData_ReadArrayShort(int id, struct page **array_)
+{
+	struct vm_data *obj = id_pool_get(&pool, id);
+	if (!obj)
+		return 0;
+
+	struct page *array = *array_;
+	if (array->type != ARRAY_PAGE || array->a_type != AIN_ARRAY_INT || array->array.rank != 1)
+		VM_ERROR("Type error");
+
+	for (int i = 0; i < array->nr_vars; i++) {
+		variable_set(array, i, AIN_INT, vm_int((int16_t)buffer_read_u16(&obj->buf)));
+	}
+	return 1;
+}
+
+static int vmData_ReadArrayInt(int id, struct page **array_)
+{
+	struct vm_data *obj = id_pool_get(&pool, id);
+	if (!obj)
+		return 0;
+
+	struct page *array = *array_;
+	if (array->type != ARRAY_PAGE || array->a_type != AIN_ARRAY_INT || array->array.rank != 1)
+		VM_ERROR("Type error");
+
+	for (int i = 0; i < array->nr_vars; i++) {
+		variable_set(array, i, AIN_INT, vm_int(buffer_read_int32(&obj->buf)));
+	}
+	return 1;
+}
+
+//int vmData_ReadArrayFloat(int id, struct page **pIVMArray);
+
+static int vmData_ReadArrayString(int id, struct page **array_)
+{
+	struct vm_data *obj = id_pool_get(&pool, id);
+	if (!obj)
+		return 0;
+
+	struct page *array = *array_;
+	if (array->type != ARRAY_PAGE || array->a_type != AIN_ARRAY_STRING || array->array.rank != 1)
+		VM_ERROR("Type error");
+
+	for (int i = 0; i < array->nr_vars; i++) {
+		struct string *s = buffer_read_string(&obj->buf);
+		variable_set(array, i, AIN_STRING, vm_int(heap_alloc_string(s)));
+	}
+	return 1;
+}
+
+//int vmData_ReadArrayStruct(int id, struct page **pIVMArray);
+
+static void vmData_SeekChar(int id, int size, int absolute)
+{
+	struct vm_data *obj = id_pool_get(&pool, id);
+	if (!obj)
+		return;
+	if (absolute)
+		buffer_seek(&obj->buf, size);
+	else
+		buffer_skip(&obj->buf, size);
+}
+
+static void vmData_SeekShort(int id, int size, int absolute)
+{
+	vmData_SeekChar(id, size * 2, absolute);
+}
+
+static void vmData_SeekInt(int id, int size, int absolute)
+{
+	vmData_SeekChar(id, size * 4, absolute);
+}
+
+static void vmData_SeekFloat(int id, int size, int absolute)
+{
+	vmData_SeekChar(id, size * 4, absolute);
+}
+
+static void vmData_SeekString(int id, int size, int absolute)
+{
+	struct vm_data *obj = id_pool_get(&pool, id);
+	if (!obj)
+		return;
+	if (absolute)
+		buffer_seek(&obj->buf, 0);
+	while (size-- > 0)
+		buffer_skip_string(&obj->buf);
+}
+
+HLL_LIBRARY(vmData,
+	    HLL_EXPORT(New, vmData_New),
+	    HLL_EXPORT(Release, vmData_Release),
+	    HLL_EXPORT(SetType, vmData_SetType),
+	    HLL_EXPORT(EnumHandle, vmData_EnumHandle),
+	    HLL_EXPORT(Exist, vmData_Exist),
+	    HLL_EXPORT(Load, vmData_Load),
+	    HLL_EXPORT(Unload, vmData_Unload),
+	    HLL_EXPORT(ReadArrayChar, vmData_ReadArrayChar),
+	    HLL_EXPORT(ReadArrayShort, vmData_ReadArrayShort),
+	    HLL_EXPORT(ReadArrayInt, vmData_ReadArrayInt),
+	    HLL_TODO_EXPORT(ReadArrayFloat, vmData_ReadArrayFloat),
+	    HLL_EXPORT(ReadArrayString, vmData_ReadArrayString),
+	    HLL_TODO_EXPORT(ReadArrayStruct, vmData_ReadArrayStruct),
+	    HLL_EXPORT(SeekChar, vmData_SeekChar),
+	    HLL_EXPORT(SeekShort, vmData_SeekShort),
+	    HLL_EXPORT(SeekInt, vmData_SeekInt),
+	    HLL_EXPORT(SeekFloat, vmData_SeekFloat),
+	    HLL_EXPORT(SeekString, vmData_SeekString)
+	    );

src/meson.build

@@ -134,6 +134,7 @@ xsystem4 = [version_h,
             'hll/vmCG.c',
             'hll/vmChrLoader.c',
             'hll/vmCursor.c',
+            'hll/vmData.c',
             'hll/vmDialog.c',
             'hll/vmDrawGauge.c',
             'hll/vmDrawMsg.c',