implement ParsePragma for pragma pack

Author: UplinkCoder

parser/metac_parser.c

@@ -215,39 +215,6 @@ void AddDefine(metac_parser_t* self, metac_token_t* token, uint32_t nParameters)
     }
 }
 */
-/**
- * @param self A pointer to the `metac_parser_t` instance, which holds the current state
- *             of the parser.
- * @param IdentifierKeys An array of uint32_t identifier keys to match against.
- *                       The array must be terminated with a zero (`0`) to indicate its end.
- *                       For example: {0x12345678, 0x87654321, 0xabcdef00, 0}.
- *
- * @return A pointer to the current `metac_token_t` if a match is found. The parser
- *         advances to the next token in this case. Returns `NULL` if no match is found
- *         or if the current token is not an identifier.
- *
- * @note This function only matches tokens of type `tok_identifier`. If the current token
- *       is not of this type, the function will return `NULL`.
- **/
-metac_token_t* MetaCParser_MatchOneOfIdentifierIds(metac_parser_t* self, uint32_t IdentifierKeys[]) {
-    metac_token_t* currentToken = MetaCParser_PeekToken(self, 1);
-
-    if (currentToken && currentToken->TokenType == tok_identifier) {
-    // Retrieve the current token's identifier key
-		uint32_t currentIdentifierKey = currentToken->IdentifierKey;
-
-		// Iterate over the provided keys and check for a match
-		for (uint32_t i = 0; IdentifierKeys[i] != 0; i++) {
-			if (currentIdentifierKey == IdentifierKeys[i]) {
-				// If a match is found, advance the parser to the next token and return the current token
-				MetaCParser_Advance(self);
-				return currentToken;
-			}
-		}
-	}
-    // If no match is found, return NULL
-    return NULL;
-}
 
 /// checks if the next token is expectedType
 /// returns true if it is
@@ -604,6 +571,39 @@ metac_token_t* MetaCParser_NextToken(metac_parser_t* self)
 #undef PeekMatch
 #undef NextToken
 
+/**
+ * @param self A pointer to the `metac_parser_t` instance, which holds the current state
+ *             of the parser.
+ * @param IdentifierKeys An array of uint32_t identifier keys to match against.
+ *                       The array must be terminated with a zero (`0`) to indicate its end.
+ *                       For example: {0x12345678, 0x87654321, 0xabcdef00, 0}.
+ *
+ * @return A pointer to the current `metac_token_t` if a match is found. The parser
+ *         advances to the next token in this case. Returns `NULL` if no match is found
+ *         or if the current token is not an identifier.
+ *
+ * @note This function only matches tokens of type `tok_identifier`. If the current token
+ *       is not of this type, the function will return `NULL`.
+ **/
+metac_token_t* MetaCParser_MatchOneOfIdentifierKeys(metac_parser_t* self, uint32_t IdentifierKeys[]) {
+    metac_token_t* currentToken = MetaCParser_PeekToken(self, 1);
+
+    if (currentToken && currentToken->TokenType == tok_identifier) {
+        uint32_t currentIdentifierKey = currentToken->IdentifierKey;
+
+        // Iterate over the provided keys and check for a match
+        for (uint32_t i = 0; IdentifierKeys[i] != 0; i++) {
+            if (currentIdentifierKey == IdentifierKeys[i]) {
+                // If a match is found, advance the parser to the next token and return the current token
+                MetaCParser_Advance(self);
+                return currentToken;
+            }
+        }
+    }
+    // If no match is found, return NULL
+    return NULL;
+}
+
 uint32_t MetaCParser_HowMuchLookahead(metac_parser_t* self)
 {
     return (self->Lexer->TokenCount - self->CurrentTokenIndex);

parser/metac_preproc.c

@@ -911,7 +911,45 @@ metac_preprocessor_pragma_t MetaCPreProcessor_ParsePragma(metac_preprocessor_t*
     metac_token_t* currentToken = 0;
 
     currentToken = MetaCParser_PeekToken(parser, 1);
-    assert(!"Not Implemented");
+        currentToken = MetaCParser_PeekToken(parser, 1);
+    if (currentToken->TokenType == tok_identifier)
+    {
+        switch (currentToken->IdentifierKey)
+        {
+            case pack_key: {
+                MetaCParser_Match(parser, tok_identifier);
+                MetaCParser_Match(parser, tok_lParen);
+                result.KnownPragma = metac_pragma_pack;
+                result.PragmaPack.Push = false;
+                result.PragmaPack.PackN = -1;
+                uint32_t follow_ids[] = {push_key, pop_key, 0};
+                if (currentToken = MetaCParser_MatchOneOfIdentifierKeys(parser, follow_ids))
+                {
+                    switch (currentToken->IdentifierKey)
+                    {
+                        case push_key: {
+                            result.PragmaPack.Push = true;
+                            if (MetaCParser_PeekMatch(parser, tok_comma, true))
+                            {
+                                MetaCParser_Match(parser, tok_comma);
+                                metac_token_t* packSize = MetaCParser_Match(parser, tok_uint);
+                                result.PragmaPack.PackN = cast(int16_t) packSize->ValueU32;
+                            }
+                        } break;
+                        case pop_key : {
+                        } break;
+                    }
+                } else if (currentToken->TokenType == tok_uint)
+                {
+                    // assert (0);
+                }
+                MetaCParser_Match(parser, tok_rParen);
+            } break;
+        }
+    } else {
+       assert(!"Not Implemented");
+    }
+
 
     return result;
 }

parser/metac_preproc.h

@@ -14,8 +14,9 @@
 #define eval_key    0x45758c
 #define va_args_key 0xbc18fc
 
-#define pack_key 0x4b121c
-#define push_key 0x42c9f9
+#define pack_key    0x4b121c
+#define push_key    0x42c9f9
+#define pop_key     0x352134
 
 #ifndef _METAC_PREPROC_H_
 #define _METAC_PREPROC_H_
@@ -118,10 +119,21 @@ typedef enum metac_preprocessor_pragma_enum_t
 
 #undef WITH_COMMA
 
+typedef struct metac_pragma_pack_t
+{
+    bool Push;      // True if new a align is to be pushed
+    int16_t PackN;  // Positive number new align
+                    // 0 means default
+                    // -1 means pop
+} metac_pragma_pack_t;
 
 typedef struct metac_preprocessor_pragma_t
 {
     metac_preprocessor_pragma_enum_t KnownPragma;
+    union
+    {
+        metac_pragma_pack_t PragmaPack;
+    };
 } metac_preprocessor_pragma_t;
 
 typedef struct metac_preprocessor_define_ptr_t