ps
/
Lumenarium
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Began parsing function pointer typedefs in the meta layer. Some of them are working now, but not all.

This commit is contained in:
Peter Slattery 2020-01-18 22:51:15 -08:00
parent b11d9da9e4
commit 9d0e4149d9
3 changed files with 127 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

145
meta/foldhaus_meta.cpp
View File

@ -167,7 +167,6 @@ FileAlreadyInSource(string Path, gs_bucket<source_code_file> SourceFiles)
if (StringsEqual(File->Path, Path)) if (StringsEqual(File->Path, Path))
{ {
Result = true; Result = true;
printf("-- File already in source: %.*s\n", StringExpand(Path));
break; break;
} }
} }
@ -648,9 +647,10 @@ ParsePointer (token_iter* Iter)
} }
internal b32 internal b32
ParseStructMember(token_iter* Iter, gs_bucket<token*>* TagList, struct_member_decl* MemberDecl, type_table* TypeTable) ParseVariableDecl(token_iter* Iter, gs_bucket<token*>* TagList, variable_decl* VarDecl, type_table* TypeTable)
{ {
b32 Result = false; b32 Result = false;
*VarDecl = {0};
PushSnapshot(Iter); PushSnapshot(Iter);
s32 TypeIndex = -1; s32 TypeIndex = -1;
@ -663,13 +663,13 @@ ParseStructMember(token_iter* Iter, gs_bucket<token*>* TagList, struct_member_de
NextToken(Iter); NextToken(Iter);
} }
MemberDecl->Pointer = ParsePointer(Iter); VarDecl->Pointer = ParsePointer(Iter);
if (Iter->TokenAt->Type == Token_Identifier) if (Iter->TokenAt->Type == Token_Identifier)
{ {
MemberDecl->TypeIndex = TypeIndex; VarDecl->TypeIndex = TypeIndex;
MemberDecl->Identifier = Iter->TokenAt->Text; VarDecl->Identifier = Iter->TokenAt->Text;
CopyMetaTagsAndClear(TagList, &MemberDecl->MetaTags); CopyMetaTagsAndClear(TagList, &VarDecl->MetaTags);
NextToken(Iter); NextToken(Iter);
@ -686,7 +686,7 @@ ParseStructMember(token_iter* Iter, gs_bucket<token*>* TagList, struct_member_de
if (Iter->TokenAt->Type == Token_Number) if (Iter->TokenAt->Type == Token_Number)
{ {
parse_result ArrayCount = ParseUnsignedInt(StringExpand(Iter->TokenAt->Text)); parse_result ArrayCount = ParseUnsignedInt(StringExpand(Iter->TokenAt->Text));
MemberDecl->ArrayCount = ArrayCount.UnsignedIntValue; VarDecl->ArrayCount = ArrayCount.UnsignedIntValue;
NextToken(Iter); NextToken(Iter);
if (TokenAtEquals(Iter, "]")) if (TokenAtEquals(Iter, "]"))
@ -698,7 +698,8 @@ ParseStructMember(token_iter* Iter, gs_bucket<token*>* TagList, struct_member_de
// TODO(Peter): Handle comma separated members // TODO(Peter): Handle comma separated members
// ie. r32 x, y, z; // ie. r32 x, y, z;
if (TokenAtEquals(Iter, ";") && ArrayParseSuccess)
if (ArrayParseSuccess)
{ {
Result = true; Result = true;
} }
@ -755,14 +756,17 @@ ParseStruct(token_iter* Iter, s32* StructTypeIndexOut, gs_bucket<token*>* TagLis
while (!TokenAtEquals(Iter, "}")) while (!TokenAtEquals(Iter, "}"))
{ {
s32 MemberStructTypeIndex = {}; s32 MemberStructTypeIndex = {};
struct_member_decl MemberDecl = {}; variable_decl MemberDecl = {};
if (ParseMetaTag(Iter, TagList)) if (ParseMetaTag(Iter, TagList))
{ {
} }
else if (ParseStructMember(Iter, TagList, &MemberDecl, TypeTable)) else if (ParseVariableDecl(Iter, TagList, &MemberDecl, TypeTable))
{ {
StructDecl.Struct.MemberDecls.PushElementOnBucket(MemberDecl); if (TokenAtEquals(Iter, ";"))
{
StructDecl.Struct.MemberDecls.PushElementOnBucket(MemberDecl);
}
} }
else if (ParseStruct(Iter, &MemberStructTypeIndex, TagList, TypeTable)) else if (ParseStruct(Iter, &MemberStructTypeIndex, TagList, TypeTable))
{ {
@ -795,34 +799,80 @@ ParseStruct(token_iter* Iter, s32* StructTypeIndexOut, gs_bucket<token*>* TagLis
return Result; return Result;
} }
// ( type *? identifier, ... )
internal b32
ParseFunctionParameterList (token_iter* Iter, type_definition* FunctionPtrDecl, gs_bucket<token*>* TagList, type_table* TypeTable)
{
b32 Result = false;
PushSnapshot(Iter);
if (TokenAtEquals(Iter, "("))
{
Result = true;
while(!StringsEqual(Iter->TokenAt->Text, MakeStringLiteral(")")))
{
variable_decl ParameterDecl = {};
if (ParseVariableDecl(Iter, TagList, &ParameterDecl, TypeTable))
{
FunctionPtrDecl->FunctionPtr.Parameters.PushElementOnBucket(ParameterDecl);
if (Iter->TokenAt->Type == Token_Comma)
{
NextToken(Iter);
}
else if (!StringsEqual(Iter->TokenAt->Text, MakeStringLiteral(")")))
{
Result = false;
break;
}
}
}
if (TokenAtEquals(Iter, ")"))
{
Result = true;
}
}
ApplySnapshotIfNotParsedAndPop(Result, Iter);
return Result;
}
internal b32 internal b32
ParseFunctionDeclaration (token_iter* Iter, token* Identifier, gs_bucket<token*>* TagList, type_table* TypeTable) ParseFunctionDeclaration (token_iter* Iter, token* Identifier, gs_bucket<token*>* TagList, type_table* TypeTable)
{ {
b32 Result = false; b32 Result = false;
PushSnapshot(Iter); PushSnapshot(Iter);
s32 TypeIndex = -1; s32 ReturnTypeIndex = -1;
if (ParseType(Iter, TypeTable, &TypeIndex)) if (ParseType(Iter, TypeTable, &ReturnTypeIndex))
{ {
if (TypeIndex < 0) { NextToken(Iter); } if (ReturnTypeIndex < 0)
{
ReturnTypeIndex = PushUndeclaredType(Iter->TokenAt->Text, TypeTable);
NextToken(Iter);
}
b32 IsPointer = ParsePointer(Iter); b32 IsPointer = ParsePointer(Iter);
if (Iter->TokenAt->Type == Token_Identifier) if (Iter->TokenAt->Type == Token_Identifier)
{ {
type_definition FunctionPtr = {};
FunctionPtr.Identifier = Iter->TokenAt->Text;
FunctionPtr.Size = sizeof(void*);
CopyMetaTagsAndClear(TagList, &FunctionPtr.MetaTags);
FunctionPtr.Type = TypeDef_FunctionPointer;
FunctionPtr.Pointer = true;
FunctionPtr.FunctionPtr.ReturnTypeIndex = ReturnTypeIndex;
*Identifier = *Iter->TokenAt; *Identifier = *Iter->TokenAt;
NextToken(Iter); NextToken(Iter);
if (TokenAtEquals(Iter, "(")) if (ParseFunctionParameterList(Iter, &FunctionPtr, TagList, TypeTable))
{ {
while(!TokenAtEquals(Iter, ")"))
{
// TODO(Peter): parse function params
NextToken(Iter);
}
if (TokenAtEquals(Iter, ";")) if (TokenAtEquals(Iter, ";"))
{ {
Result = true; Result = true;
TypeTable->Types.PushElementOnBucket(FunctionPtr);
} }
} }
} }
@ -854,8 +904,6 @@ ParseTypedef(token_iter* Iter, gs_bucket<token*>* TagList, type_table* TypeTable
else if (ParseFunctionDeclaration(Iter, &TypeToken, TagList, TypeTable)) else if (ParseFunctionDeclaration(Iter, &TypeToken, TagList, TypeTable))
{ {
Result = true; Result = true;
printf("New Function Type: %.*s\n", StringExpand(TypeToken.Text));
} }
else if (ParseType(Iter, TypeTable, &TypeIndex)) else if (ParseType(Iter, TypeTable, &TypeIndex))
{ {
@ -885,8 +933,6 @@ ParseTypedef(token_iter* Iter, gs_bucket<token*>* TagList, type_table* TypeTable
NewType.Identifier = Iter->TokenAt->Text; NewType.Identifier = Iter->TokenAt->Text;
NextToken(Iter); NextToken(Iter);
printf("New Type: %.*s\n", StringExpand(NewType.Identifier));
Result = true; Result = true;
s32 ExistingUndeclaredTypeIndex = GetIndexOfType(NewType.Identifier, *TypeTable); s32 ExistingUndeclaredTypeIndex = GetIndexOfType(NewType.Identifier, *TypeTable);
@ -930,7 +976,7 @@ PrintIndent (u32 Indent)
internal void PrintStructDecl (type_definition* StructDecl, type_table TypeTable, u32 Indent); internal void PrintStructDecl (type_definition* StructDecl, type_table TypeTable, u32 Indent);
internal void internal void
PrintStructMember (struct_member_decl Member, type_table TypeTable, u32 Indent = 0) PrintVariableDecl (variable_decl Member, type_table TypeTable, u32 Indent = 0)
{ {
type_definition* MemberTypeDef = TypeTable.Types.GetElementAtIndex(Member.TypeIndex); type_definition* MemberTypeDef = TypeTable.Types.GetElementAtIndex(Member.TypeIndex);
if ((MemberTypeDef->Type == TypeDef_Struct || MemberTypeDef->Type == TypeDef_Union) if ((MemberTypeDef->Type == TypeDef_Struct || MemberTypeDef->Type == TypeDef_Union)
@ -959,8 +1005,6 @@ PrintStructMember (struct_member_decl Member, type_table TypeTable, u32 Indent =
{ {
printf("[%d]", Member.ArrayCount); printf("[%d]", Member.ArrayCount);
} }
printf(";");
} }
internal void internal void
@ -988,14 +1032,36 @@ PrintStructDecl (type_definition* StructDecl, type_table TypeTable, u32 Indent =
for (u32 MemberIndex = 0; MemberIndex < StructDecl->Struct.MemberDecls.Used; MemberIndex++) for (u32 MemberIndex = 0; MemberIndex < StructDecl->Struct.MemberDecls.Used; MemberIndex++)
{ {
struct_member_decl* Member = StructDecl->Struct.MemberDecls.GetElementAtIndex(MemberIndex); variable_decl* Member = StructDecl->Struct.MemberDecls.GetElementAtIndex(MemberIndex);
PrintStructMember(*Member, TypeTable, Indent + 1); PrintVariableDecl(*Member, TypeTable, Indent + 1);
printf("\n"); printf(";\n");
} }
PrintIndent(Indent); PrintIndent(Indent);
printf("} ( size = %d ) ", StructDecl->Size); printf("} ( size = %d ) ", StructDecl->Size);
} }
internal void
PrintFunctionPtrDecl (type_definition* FnPtrDecl, type_table TypeTable)
{
type_definition* ReturnType = TypeTable.Types.GetElementAtIndex(FnPtrDecl->FunctionPtr.ReturnTypeIndex);
printf("%.*s ", StringExpand(ReturnType->Identifier));
if (FnPtrDecl->Identifier.Length > 0)
{
printf("%.*s ", StringExpand(FnPtrDecl->Identifier));
}
printf("(");
for (u32 MemberIndex = 0; MemberIndex < FnPtrDecl->FunctionPtr.Parameters.Used; MemberIndex++)
{
variable_decl* Param = FnPtrDecl->FunctionPtr.Parameters.GetElementAtIndex(MemberIndex);
PrintVariableDecl(*Param, TypeTable, 0);
printf(", ");
}
printf(");");
}
// Step 1: Get All Tokens, for every file // Step 1: Get All Tokens, for every file
// Step 2: Identify all preprocessor directives // Step 2: Identify all preprocessor directives
// Step 3: Apply Preprocessor Directives && Generate Code // Step 3: Apply Preprocessor Directives && Generate Code
@ -1049,12 +1115,6 @@ int main(int ArgCount, char** ArgV)
type_table TypeTable = {0}; type_table TypeTable = {0};
PopulateTableWithDefaultCPPTypes(&TypeTable); PopulateTableWithDefaultCPPTypes(&TypeTable);
for (u32 i = 0; i < TypeTable.Types.Used; i++)
{
type_definition* TypeDefinition = TypeTable.Types.GetElementAtIndex(i);
printf("%.*s\n", StringExpand(TypeDefinition->Identifier));
}
s32 NodeProcCount = 0; s32 NodeProcCount = 0;
for (u32 SourceFileIdx = 0; SourceFileIdx < SourceFiles.Used; SourceFileIdx++) for (u32 SourceFileIdx = 0; SourceFileIdx < SourceFiles.Used; SourceFileIdx++)
{ {
@ -1138,17 +1198,26 @@ int main(int ArgCount, char** ArgV)
} }
} }
// Print All Structs
for (u32 i = 0; i < TypeTable.Types.Used; i++) for (u32 i = 0; i < TypeTable.Types.Used; i++)
{ {
type_definition* TypeDef = TypeTable.Types.GetElementAtIndex(i); type_definition* TypeDef = TypeTable.Types.GetElementAtIndex(i);
#if 0
if ((TypeDef->Type == TypeDef_Struct || TypeDef->Type == TypeDef_Union) && TypeDef->Identifier.Length > 0) if ((TypeDef->Type == TypeDef_Struct || TypeDef->Type == TypeDef_Union) && TypeDef->Identifier.Length > 0)
{ {
PrintStructDecl(TypeDef, TypeTable); PrintStructDecl(TypeDef, TypeTable);
printf("\n\n"); printf("\n\n");
} }
#endif
if (TypeDef->Type == TypeDef_FunctionPointer)
{
PrintFunctionPtrDecl(TypeDef, TypeTable);
printf("\n\n");
}
} }
s64 Cycles_Preprocess = GetWallClock(); s64 Cycles_Preprocess = GetWallClock();
MakeStringBuffer(Buffer, 256); MakeStringBuffer(Buffer, 256);

32
meta/foldhaus_meta_type_table.h
View File

@ -9,7 +9,8 @@ enum type_definition_type
{ {
TypeDef_Invalid, TypeDef_Invalid,
TypeDef_Unknown, // NOTE(Peter): these require fixup later // NOTE(Peter): tokens with this type require fixup later
TypeDef_Unknown,
TypeDef_Struct, TypeDef_Struct,
TypeDef_Union, TypeDef_Union,
TypeDef_BasicType, TypeDef_BasicType,
@ -23,7 +24,7 @@ struct meta_tag
string Identifier; string Identifier;
}; };
struct struct_member_decl struct variable_decl
{ {
// NOTE(Peter): Because of the way the tokenizer works, we don't lex and parse // NOTE(Peter): Because of the way the tokenizer works, we don't lex and parse
// at the same time. This means that not all types will be able to be matched // at the same time. This means that not all types will be able to be matched
@ -41,13 +42,19 @@ struct struct_member_decl
gs_bucket<meta_tag> MetaTags; gs_bucket<meta_tag> MetaTags;
}; };
// TODO(Peter): This is just a struct_decl
struct struct_decl struct struct_decl
{ {
// TODO(Peter): Lots of tiny arrays everywhere! Pull these into a central allocation // TODO(Peter): Lots of tiny arrays everywhere! Pull these into a central allocation
// buffer somewhere // buffer somewhere
// :SmallAllocationsAllOver // :SmallAllocationsAllOver
gs_bucket<struct_member_decl> MemberDecls; gs_bucket<variable_decl> MemberDecls;
};
struct function_pointer_decl
{
s32 ReturnTypeIndex;
// :SmallAllocationsAllOver
gs_bucket<variable_decl> Parameters;
}; };
struct type_definition struct type_definition
@ -61,6 +68,7 @@ struct type_definition
union union
{ {
struct_decl Struct; struct_decl Struct;
function_pointer_decl FunctionPtr;
}; };
b32 Pointer; b32 Pointer;
}; };
@ -165,7 +173,7 @@ GetSizeOfType (string Identifier, type_table TypeTable)
} }
internal b32 internal b32
StructMembersEqual (struct_member_decl A, struct_member_decl B) VariableDeclsEqual (variable_decl A, variable_decl B)
{ {
b32 Result = false; b32 Result = false;
if (A.TypeIndex == B.TypeIndex && if (A.TypeIndex == B.TypeIndex &&
@ -192,10 +200,10 @@ StructOrUnionsEqual (type_definition A, type_definition B)
Result = true; Result = true;
for (u32 i = 0; i < A.Struct.MemberDecls.Used; i++) for (u32 i = 0; i < A.Struct.MemberDecls.Used; i++)
{ {
struct_member_decl* AMember = A.Struct.MemberDecls.GetElementAtIndex(i); variable_decl* AMember = A.Struct.MemberDecls.GetElementAtIndex(i);
struct_member_decl* BMember = A.Struct.MemberDecls.GetElementAtIndex(i); variable_decl* BMember = A.Struct.MemberDecls.GetElementAtIndex(i);
if (!StructMembersEqual(*AMember, *BMember)) if (!VariableDeclsEqual(*AMember, *BMember))
{ {
Result = false; Result = false;
break; break;
@ -237,7 +245,7 @@ internal void FixUpStructSize (type_definition* Struct, type_table TypeTable);
internal void FixUpUnionSize (type_definition* Union, type_table TypeTable); internal void FixUpUnionSize (type_definition* Union, type_table TypeTable);
internal void internal void
FixupMemberType (struct_member_decl* Member, type_table TypeTable) FixupMemberType (variable_decl* Member, type_table TypeTable)
{ {
if (Member->TypeIndex == -1) if (Member->TypeIndex == -1)
{ {
@ -247,7 +255,7 @@ FixupMemberType (struct_member_decl* Member, type_table TypeTable)
} }
internal s32 internal s32
CalculateStructMemberSize (struct_member_decl Member, type_definition MemberType) CalculateStructMemberSize (variable_decl Member, type_definition MemberType)
{ {
Assert(Member.TypeIndex >= 0); Assert(Member.TypeIndex >= 0);
// TODO(Peter): Assert(MemberType.Size != 0); // TODO(Peter): Assert(MemberType.Size != 0);
@ -274,7 +282,7 @@ FixUpStructSize (type_definition* Struct, type_table TypeTable)
s32 SizeAcc = 0; s32 SizeAcc = 0;
for (u32 j = 0; j < Struct->Struct.MemberDecls.Used; j++) for (u32 j = 0; j < Struct->Struct.MemberDecls.Used; j++)
{ {
struct_member_decl* Member = Struct->Struct.MemberDecls.GetElementAtIndex(j); variable_decl* Member = Struct->Struct.MemberDecls.GetElementAtIndex(j);
FixupMemberType(Member, TypeTable); FixupMemberType(Member, TypeTable);
if (Member->TypeIndex >= 0) if (Member->TypeIndex >= 0)
@ -332,7 +340,7 @@ FixUpUnionSize (type_definition* Union, type_table TypeTable)
s32 BiggestMemberSize = 0; s32 BiggestMemberSize = 0;
for (u32 j = 0; j < Union->Struct.MemberDecls.Used; j++) for (u32 j = 0; j < Union->Struct.MemberDecls.Used; j++)
{ {
struct_member_decl* Member = Union->Struct.MemberDecls.GetElementAtIndex(j); variable_decl* Member = Union->Struct.MemberDecls.GetElementAtIndex(j);
FixupMemberType(Member, TypeTable); FixupMemberType(Member, TypeTable);
if (Member->TypeIndex >= 0) if (Member->TypeIndex >= 0)

2
src/foldhaus_app.cpp
View File

@ -1,5 +1,3 @@
typedef INITIALIZE_APPLICATION(initialize_application);
// //
// File: foldhaus_app.cpp // File: foldhaus_app.cpp
// Author: Peter Slattery // Author: Peter Slattery