krzosa/corelang
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixing generated names

Browse Source
This commit is contained in:
Krzosa Karol
2022-06-13 20:55:49 +02:00
parent 30f448a490
commit 3bbe5e5c2b
2 changed files with 86 additions and 121 deletions
Download Patch File Download Diff File Expand all files Collapse all files

84
ccodegen.cpp
View File

@@ -34,17 +34,18 @@ gen_scope_name(Ast_Scope *scope){
// 4 Add type name on the left side // 4 Add type name on the left side
function void function void
gen_simple_decl_prefix(Ast_Type *ast){ gen_simple_decl_prefix(Ast_Type *ast, bool scope_names){
switch(ast->kind){ switch(ast->kind){
case TYPE_POINTER: gen_simple_decl_prefix(ast->base); gen("*"); break; case TYPE_POINTER: gen_simple_decl_prefix(ast->base, scope_names); gen("*"); break;
case TYPE_ARRAY: gen_simple_decl_prefix(ast->base); break; case TYPE_ARRAY: gen_simple_decl_prefix(ast->base, scope_names); break;
case TYPE_LAMBDA:break; case TYPE_LAMBDA:break;
case TYPE_ENUM:{ case TYPE_ENUM:{
gen_simple_decl_prefix(ast->base); break; gen_simple_decl_prefix(ast->base, scope_names); break;
}break; }break;
case TYPE_STRUCT: { case TYPE_STRUCT: {
auto constant = (Ast_Decl *)ast->ast; auto constant = (Ast_Decl *)ast->ast;
auto name = constant->name; auto name = constant->name;
if(scope_names) gen_scope_name(constant->parent_scope);
gen("%s ", name.str); gen("%s ", name.str);
}break; }break;
default: { default: {
@@ -54,15 +55,15 @@ gen_simple_decl_prefix(Ast_Type *ast){
} }
function void function void
gen_simple_decl_postfix(Ast_Type *ast){ gen_simple_decl_postfix(Ast_Type *ast, bool scope_names){
switch(ast->kind){ switch(ast->kind){
case TYPE_POINTER: gen_simple_decl_postfix(ast->base); break; case TYPE_POINTER: gen_simple_decl_postfix(ast->base, scope_names); break;
case TYPE_ARRAY: case TYPE_ARRAY:
gen("["); gen("[");
if(ast->arr.size != ARRAY_SIZE_INFERRED) if(ast->arr.size != ARRAY_SIZE_INFERRED)
gen("%d", (int)ast->arr.size); gen("%d", (int)ast->arr.size);
gen("]"); gen("]");
gen_simple_decl_postfix(ast->arr.base); break; gen_simple_decl_postfix(ast->arr.base, scope_names); break;
case TYPE_LAMBDA:break; case TYPE_LAMBDA:break;
case TYPE_ENUM: case TYPE_STRUCT:break; case TYPE_ENUM: case TYPE_STRUCT:break;
default: name(ast); default: name(ast);
@@ -70,23 +71,23 @@ gen_simple_decl_postfix(Ast_Type *ast){
} }
function void function void
gen_simple_decl(Ast_Type *ast, Intern_String name = {}, Ast_Scope *scope = 0){ gen_simple_decl(Ast_Type *ast, Intern_String name = {}, Ast_Scope *scope = 0, bool scope_names = true){
if(ast->kind == TYPE_LAMBDA) { if(ast->kind == TYPE_LAMBDA) {
gen_simple_decl_prefix(ast->func.ret); gen_simple_decl_prefix(ast->func.ret, scope_names);
gen("(*%s)(", name.str); gen("(*%s)(", name.str);
For(ast->func.args){ For(ast->func.args){
gen_simple_decl_prefix(it); gen_simple_decl_prefix(it, scope_names);
if(&it != ast->func.args.end() - 1) gen(", "); if(&it != ast->func.args.end() - 1) gen(", ");
} }
gen(")"); gen(")");
} }
else{ else{
gen_simple_decl_prefix(ast); gen_simple_decl_prefix(ast, scope_names);
if(name.len) { if(name.len) {
if(scope) gen_scope_name(scope); if(scope && scope_names) gen_scope_name(scope);
gen("%s", name.str); gen("%s", name.str);
} }
gen_simple_decl_postfix(ast); gen_simple_decl_postfix(ast, scope_names);
} }
} }
@@ -133,8 +134,8 @@ enum {
}; };
function void function void
gen_var(Ast_Decl *decl, B32 emit_value){ gen_var(Ast_Decl *decl, B32 emit_value, B32 scope_names){
gen_simple_decl(decl->type, decl->name, decl->parent_scope); gen_simple_decl(decl->type, decl->name, decl->parent_scope, scope_names);
if(emit_value == DONT_EMIT_VALUE){ if(emit_value == DONT_EMIT_VALUE){
return; return;
@@ -154,15 +155,16 @@ gen_var(Ast_Decl *decl, B32 emit_value){
function void function void
gen_lambda(Intern_String name, Ast_Lambda *lambda){ gen_lambda(Intern_String name, Ast_Lambda *lambda){
gen_simple_decl(lambda->type->func.ret, name, lambda->parent_scope); bool is_foreign = is_flag_set(lambda->flags, AST_FOREIGN);
gen_simple_decl(lambda->type->func.ret, name, lambda->parent_scope, !is_foreign);
gen("("); gen("(");
For(lambda->args){ For(lambda->args){
gen_var(it, DONT_EMIT_VALUE); gen_var(it, DONT_EMIT_VALUE, true);
if(&it != (lambda->args.end() - 1)) gen(", "); if(&it != (lambda->args.end() - 1)) gen(", ");
} }
gen(")"); gen(")");
if(lambda->scope) { if(lambda->scope){
gen_stmt_scope(lambda->scope); gen_stmt_scope(lambda->scope);
} }
else gen(";"); else gen(";");
@@ -172,7 +174,12 @@ function void
gen_expr(Ast_Expr *ast){ gen_expr(Ast_Expr *ast){
switch(ast->kind){ switch(ast->kind){
CASE(IDENT, Atom){ CASE(IDENT, Atom){
gen_scope_name(node->resolved_decl->parent_scope); B32 print_scope = true;
if(node->resolved_decl->lambda){
if(is_flag_set(node->resolved_decl->lambda->flags, AST_FOREIGN))
print_scope = false;
}
if(print_scope) gen_scope_name(node->resolved_decl->parent_scope);
gen("%s", node->intern_val.str); gen("%s", node->intern_val.str);
BREAK(); BREAK();
} }
@@ -286,7 +293,7 @@ gen_ast(Ast *ast){
} }
CASE(VAR, Decl){ CASE(VAR, Decl){
gen_var(node, is_inside_struct ? DONT_EMIT_VALUE : ALWAYS_EMIT_VALUE); gen_var(node, is_inside_struct ? DONT_EMIT_VALUE : ALWAYS_EMIT_VALUE, true);
if(!is_flag_set(ast->flags, AST_EXPR)) gen(";"); if(!is_flag_set(ast->flags, AST_EXPR)) gen(";");
BREAK(); BREAK();
} }
@@ -557,24 +564,6 @@ global F64 generating_time_end;
function String function String
end_compilation(){ end_compilation(){
generating_time_begin = os_time(); generating_time_begin = os_time();
For(pctx->ordered_decls){
genln("");
gen_ast(it);
}
exp_destroy(pctx->heap);
String string_result = string_flatten(pctx->perm, &pctx->gen);
generating_time_end = os_time();
return string_result;
}
#if 0
F64 parse_end = os_time();
For(pctx->packages){
resolve_package(it);
}
#if 0 #if 0
gen(R"==( gen(R"==(
@@ -598,6 +587,8 @@ typedef S64 SizeS;
typedef float F32; typedef float F32;
typedef double F64; typedef double F64;
typedef S32 Bool; typedef S32 Bool;
#define true 1
#define false 0
typedef struct Slice{ typedef struct Slice{
S64 len; S64 len;
@@ -622,19 +613,8 @@ int main(){
gen_ast(it); gen_ast(it);
} }
exp_destroy(&heap); exp_destroy(pctx->heap);
String string_result = string_flatten(pctx->perm, &pctx->gen);
generating_time_end = os_time();
F64 flattening_begin = os_time();
String string_result = string_flatten(scratch, &pctx->gen);
F64 flattening_end = os_time();
printf("\n//-------------------------------");
printf("\n// Parse : %f", parse_end - parse_begin);
printf("\n// Flattening : %f", flattening_end - flattening_begin);
printf("\n// Total : %f", flattening_end - total_time);
printf("\n//-------------------------------");
return string_result; return string_result;
} }
#endif

121
program.c
View File

@@ -1,6 +1,7 @@
#include <stdint.h> #include <stdint.h>
#include <stdio.h> #include <stdio.h>
#include <math.h>
typedef int8_t S8; typedef int8_t S8;
typedef int16_t S16; typedef int16_t S16;
typedef int32_t S32; typedef int32_t S32;
@@ -18,6 +19,8 @@ typedef S64 SizeS;
typedef float F32; typedef float F32;
typedef double F64; typedef double F64;
typedef S32 Bool; typedef S32 Bool;
#define true 1
#define false 0
typedef struct Slice{ typedef struct Slice{
S64 len; S64 len;
@@ -35,78 +38,60 @@ int main(){
entry(); entry();
} }
#line 0 "program.kl"
#line 1
#line 3 // Type SizeU = base_
typedef struct Token{ // constant int OS_PAGE_SIZE = 4096
U8 kind; typedef struct base_OS_Memory{
U8 *str; U64 base_commit;
S64 len; U64 base_reserve;
/*enum Kind{ U8 *base_data;
Number = 0, }base_OS_Memory;
};*/ typedef struct base_Arena{
}Token; base_OS_Memory base_memory;
#line 12 U64 base_alignment;
String kind_name(U8 kind){ U64 base_len;
#line 15 }base_Arena;
if((kind==0)){ U64 base_get_align_offset(U64 base_size, U64 base_align){
#line 14 U64 base_mask = (base_align-1);
return LIT("<Number>"); U64 base_val = (base_size&base_mask);
} if((base_val!=0)){
else{ base_val=(base_align-base_val);
#line 16
return LIT("<Unknown>");
} }
return base_val;
} }
#line 18 U64 base_align_up(U64 base_size, U64 base_align){
Bool is_numeric(U8 c){ U64 base_result = (base_size+base_get_align_offset(base_size, base_align));
#line 19 return base_result;
Bool result = ((c>=48)&&(c<=57));
#line 20
return result;
} }
#line 22 // Type LPVOID = (*Windows_▬)
void print_tokens(Slice tokens){ // Type SIZE_T = Windows_
#line 23 // Type DWORD = Windows_♫
for(S64 i = 0;(i<tokens.len);(i++)){ /*foreign*/void *VirtualAlloc(void *Windows_lpAddress, U64 Windows_dwSize, U32 Windows_flAllocationType, U32 Windows_flProtect);
#line 24 // constant int MEM_RESERVE = 2
Token *t = (&(((Token *)tokens.data)[i])); // constant int PAGE_READWRITE = 4
#line 25 base_OS_Memory base_reserve(U64 base_size){
printf("%d. %.*s", i, ((S32 )t->len), t->str); base_OS_Memory base_result = (base_OS_Memory ){base_align_up(base_size, 4096)};
} base_result.base_data=((U8 *)VirtualAlloc(0, base_result.base_reserve, 2, 4));
return base_result;
} }
#line 27 U64 base_clamp_top_sizeu(U64 base_val, U64 base_max){
void entry(){ if((base_val>base_max)){
#line 28 return base_max;
String string_to_lex = LIT("Identifier 2425525 Not_Number");
#line 29
Slice token_array = (Slice){32, (Token [32]){}};
#line 30
S64 token_count = 0;
#line 32
Token t = {};
#line 33
for(S64 i = 0;(i<string_to_lex.len);i+=1){
#line 34
if(is_numeric((string_to_lex.str[i]))){
#line 35
t.kind=0;
#line 36
t.str=(&(string_to_lex.str[i]));
#line 37
t.len=i;
#line 38
for(;is_numeric((string_to_lex.str[i]));){
#line 39
i+=1;
} }
#line 40 return base_val;
t.len=(i-t.len); }
#line 41 // Type BOOL = Windows_♂
(((Token *)token_array.data)[(token_count++)])=t; /*foreign*/int VirtualFree(void *Windows_lpAddress, U64 Windows_dwSize, U32 Windows_dwFreeType);
} // constant int MEM_RELEASE = 6
} Bool base_commit(base_OS_Memory *base_m, U64 base_size){
#line 42 U64 base_commit_size = base_align_up(base_size, 4096);
print_tokens(token_array); U64 base_total_commit = (base_m->base_commit+base_commit_size);
U64 base_clamped_commit = base_clamp_top_sizeu(base_total_commit, base_m->base_reserve);
U64 base_adjusted_commit = (base_clamped_commit-base_m->base_commit);
if((base_adjusted_commit!=0)){
int base_result = VirtualFree(((void *)base_m->base_data), 0, 6);
base_m->base_commit+=base_adjusted_commit;
return true;
}
return false;
} }