function Decl *
decl_new(Parser *p, Decl_Kind kind, Token *token, Intern_String name){
  Decl *result = arena_push_struct(&p->main_arena, Decl);
  
  result->token = token;
  result->kind = kind;
  result->name = name;
  return result;
}

function Decl_Enum_Child *
decl_enum_child(Parser *p, Token *token, Expr *expr){
  Decl_Enum_Child *result = arena_push_struct(&p->main_arena, Decl_Enum_Child);
  result->expr = expr;
  result->token = token;
  return result;
}

function Decl *
decl_variable(Parser *p, Token *token, Type *type, Expr *expr){
  Decl *result = decl_new(p, DK_Variable, token, token->intern_val);
  result->var_val.expr = expr;
  result->var_val.type = type;
  return result;
}

function Decl *
decl_function(Parser *p, Token *token, Type *return_type){
  Decl *result = decl_new(p, DK_Function, token, token->intern_val);
  result->func_val.return_type = return_type;
  return result;
}

function Decl *
decl_type(Parser *p, Token *token, Type *type, Intern_String name){
  Decl *result = decl_new(p, DK_Typedef, token, name);
  result->typedef_val.type = type;
  return result;
}

function Decl *
decl_enum(Parser *p, Token *token, Intern_String name){
  Decl *result = decl_new(p, DK_Enum, token, name);
  return result;
}

function Decl *
decl_struct(Parser *p, Token *token, Intern_String name){
  Decl *result = decl_new(p, DK_Struct, token, name);
  return result;
}
function Decl *
decl_union(Parser *p, Token *token, Intern_String name){
  Decl *result = decl_new(p, DK_Union, token, name);
  return result;
}

function void
decl_aggregate_push(Decl *a, Decl *b){
  SLLQueuePush(a->aggregate_val.first, a->aggregate_val.last, b);
}
function void
decl_function_push(Decl *a, Decl *b){
  SLLQueuePush(a->func_val.first, a->func_val.last, b);
}
function void
decl_enum_push(Decl *a, Decl_Enum_Child *b){
  SLLQueuePush(a->enum_val.first, a->enum_val.last, b);
}