From 147e0f0269440fce15d6b88a8a90627f3a3b2df2 Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Wed, 5 Mar 2025 18:20:54 -0500 Subject: Overhaul of constructors, making it more consistent and correct. Also changed T(), T, T_t, T_s type names to T(), T$$info, T$$type, T$$struct for unambiguity --- structs.c | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) (limited to 'structs.c') diff --git a/structs.c b/structs.c index f4361148..ed0a0f7f 100644 --- a/structs.c +++ b/structs.c @@ -27,7 +27,7 @@ CORD compile_struct_typeinfo(env_t *env, ast_t *ast) short_name = strrchr(short_name, '$') + 1; const char *metamethods = is_packed_data(t) ? "PackedData$metamethods" : "Struct$metamethods"; - CORD typeinfo = CORD_asprintf("public const TypeInfo_t %r = {.size=%zu, .align=%zu, .metamethods=%s, " + CORD typeinfo = CORD_asprintf("public const TypeInfo_t %r$$info = {.size=%zu, .align=%zu, .metamethods=%s, " ".tag=StructInfo, .StructInfo.name=\"%s\"%s, " ".StructInfo.num_fields=%ld", full_name, type_size(t), type_align(t), metamethods, short_name, def->secret ? ", .StructInfo.is_secret=true" : "", @@ -55,23 +55,26 @@ CORD compile_struct_header(env_t *env, ast_t *ast) CORD type_code = compile_type(field_t); fields = CORD_all(fields, type_code, " $", field->name, field_t->tag == BoolType ? ":1" : CORD_EMPTY, ";\n"); } - CORD struct_code = CORD_all("struct ", full_name, "_s {\n"); + CORD struct_code = CORD_all("struct ", full_name, "$$struct {\n"); struct_code = CORD_all(struct_code, "};\n"); type_t *t = Table$str_get(*env->types, def->name); return CORD_all( - "struct ", full_name, "_s {\n", + "struct ", full_name, "$$struct {\n", fields, "};\n", "typedef struct {\n", "union {\n", - full_name, "_t value;\n" + full_name, "$$type value;\n" "struct {\n" "char _padding[", heap_strf("%zu", unpadded_struct_size(t)), "];\n", "Bool_t is_none:1;\n" "};\n" "};\n" - "} ", namespace_prefix(env, env->namespace), "$Optional", def->name, "_t;\n" - "extern const TypeInfo_t ", full_name, ";\n"); + "} ", namespace_prefix(env, env->namespace), "$Optional", def->name, "$$type;\n" + // Constructor macro: + "#define ", namespace_prefix(env, env->namespace), def->name, + "(...) ((", namespace_prefix(env, env->namespace), def->name, "$$type){__VA_ARGS__})\n" + "extern const TypeInfo_t ", full_name, "$$info;\n"); } // vim: ts=4 sw=0 et cino=L2,l1,(0,W4,m1,\:0 -- cgit v1.2.3