Working on casts

2022-06-06 13:24:01 +02:00
parent 4f876a36a4
commit 06d6ec7525
8 changed files with 145 additions and 100 deletions
--- a/ccodegen.cpp
+++ b/ccodegen.cpp
@@ -292,99 +292,101 @@ gen_ast(Ast *ast){
    CASE(CONST, Const){
      Sym *sym = resolved_get(node);

-      if(sym->type->kind == TYPE_LAMBDA){
-        if(node->value->kind == AST_LAMBDA){
-          Ast_Lambda *lambda = (Ast_Lambda *)node->value;
-          Ast_Resolved_Type *ret = resolved_type_get(lambda->ret);
-          gen_simple_decl(ret, node->name);
-          gen("(");
-          For(lambda->args){
-            assert(it->kind == AST_LAMBDA_ARG);
-            Ast_Resolved_Type *type = resolved_type_get(it->typespec);
-            gen_simple_decl(type, it->name);
-            if(&it != (lambda->args.end() - 1)) gen(", ");
-          }
-          gen(")");
+      switch(sym->type->kind){
+        CASE_FLOAT:{
+          gen("// F64 %s = ", node->name.str);
+          gen_value(sym->value);
+        } break;
+        CASE_INT:{
+          gen("// constant int %s = ", node->name.str);
+          gen_value(sym->value);
+        }break;
+        CASE_STRING:{
+          gen("// const String %s = ", node->name.str);
+          gen_value(sym->value);
+        }break;
+        CASE_BOOL:{
+          gen("// const Bool %s = ", node->name.str);
+          gen_value(sym->value);
+        }break;

-          if(lambda->block) {
-            gen_block(lambda->block);
-          }
-          else gen(";");
-        }
-        else{
-          gen_simple_decl(sym->type, node->name);
-          gen(" = ");
-          gen_expr((Ast_Expr *)node->value);
-          gen(";");
-        }
-      }
-      else if(sym->type == untyped_float){
-        gen("// F64 %s = ", node->name.str);
-        gen_value(sym->value);
-      }
-      else if(sym->type == untyped_int){
-        gen("// constant int %s = ", node->name.str);
-        gen_value(sym->value);
-      }
-      else if(sym->type == untyped_string){
-        gen("// const String %s = ", node->name.str);
-        gen_value(sym->value);
-      }
-      else if(sym->type == untyped_bool){
-        gen("// const Bool %s = ", node->name.str);
-        gen_value(sym->value);
-      }
-      else if(sym->type == type_type){
-        if(sym->type_val->kind == TYPE_STRUCT){
-          Ast_Struct *agg = (Ast_Struct *)sym->type_val->ast;
-          if(node->value->kind == AST_STRUCT){
-            gen("struct %s{", node->name.str);
-            global_indent++;
-            For(agg->members){
-              genln("");
-              gen_ast(it);
+        case TYPE_LAMBDA:{
+          if(node->value->kind == AST_LAMBDA){
+            Ast_Lambda *lambda = (Ast_Lambda *)node->value;
+            Ast_Resolved_Type *ret = resolved_type_get(lambda->ret);
+            gen_simple_decl(ret, node->name);
+            gen("(");
+            For(lambda->args){
+              assert(it->kind == AST_LAMBDA_ARG);
+              Ast_Resolved_Type *type = resolved_type_get(it->typespec);
+              gen_simple_decl(type, it->name);
+              if(&it != (lambda->args.end() - 1)) gen(", ");
            }
+            gen(")");

-            For(agg->const_members){
-              genln("");
-              gen_ast(it);
+            if(lambda->block) {
+              gen_block(lambda->block);
            }
-            global_indent--;
-            genln("};");
+            else gen(";");
          }
          else{
-            // Type alias
+            gen_simple_decl(sym->type, node->name);
+            gen(" = ");
+            gen_expr((Ast_Expr *)node->value);
+            gen(";");
          }
-        }
-        else if(sym->type_val->kind == TYPE_ENUM){
-          Ast_Enum *enu = (Ast_Enum *)sym->type_val->ast;
-          assert(enu->kind == AST_ENUM);
-          if(node->value->kind == AST_ENUM){
-            gen("/*enum %s{", node->name.str);
-            // @todo add typespec
-            global_indent++;
-            For(enu->members){
-              genln("%s", it->name.str);
-              gen(" = ");
-              Sym *value_sym = resolved_get(it);
-              gen("%d", bigint_as_signed(&value_sym->big_int_val));
-              gen(",");
+        }break;
+
+        case TYPE_TYPE:{
+          if(sym->type_val->kind == TYPE_STRUCT){
+            Ast_Struct *agg = (Ast_Struct *)sym->type_val->ast;
+            if(node->value->kind == AST_STRUCT){
+              gen("struct %s{", node->name.str);
+              global_indent++;
+              For(agg->members){
+                genln("");
+                gen_ast(it);
+              }
+
+              For(agg->const_members){
+                genln("");
+                gen_ast(it);
+              }
+              global_indent--;
+              genln("};");
+            }
+            else{
+              // Type alias
+            }
+          }
+          else if(sym->type_val->kind == TYPE_ENUM){
+            Ast_Enum *enu = (Ast_Enum *)sym->type_val->ast;
+            assert(enu->kind == AST_ENUM);
+            if(node->value->kind == AST_ENUM){
+              gen("/*enum %s{", node->name.str);
+              // @todo add typespec
+              global_indent++;
+              For(enu->members){
+                genln("%s", it->name.str);
+                gen(" = ");
+                Sym *value_sym = resolved_get(it);
+                gen("%d", bigint_as_signed(&value_sym->big_int_val));
+                gen(",");
+              }
+              global_indent--;
+              genln("};*/");
+            }
+            else{
+              // Type alias
            }
-            global_indent--;
-            genln("};*/");
          }
          else{
-            // Type alias
+            gen("// typedef ");
+            gen_simple_decl(sym->type_val, node->name);
+            gen(";");
          }
-        }
-        else{
-          gen("// typedef ");
-          gen_simple_decl(sym->type_val, node->name);
-          gen(";");
-        }
-      }
-      else{
-        parsing_error(node->pos, "C_Codegen: Unhandled type of constant expression");
+        }break;
+        default: parsing_error(node->pos, "C_Codegen: Unhandled type %s of constant expression", docname(sym->type));
      }

      BREAK();