wip

generates a parser specs passing
2023-08-20 21:22:34 -04:00 · 2023-08-20 21:19:34 -04:00 · 2023-08-20 20:49:24 -04:00 · 2023-08-20 18:43:33 -04:00 · 2023-08-20 17:25:48 -04:00 · 2023-08-20 16:58:02 -04:00
50 changed files with 3368 additions and 1150 deletions
@@ -2,26 +2,26 @@ GEM
  remote: https://rubygems.org/
  specs:
    diff-lcs (1.5.0)
-    psych (5.0.1)
+    psych (5.1.0)
      stringio
    rake (13.0.6)
    rdoc (6.5.0)
      psych (>= 4.0.0)
-    redcarpet (3.5.1)
-    rspec (3.11.0)
-      rspec-core (~> 3.11.0)
-      rspec-expectations (~> 3.11.0)
-      rspec-mocks (~> 3.11.0)
-    rspec-core (3.11.0)
-      rspec-support (~> 3.11.0)
-    rspec-expectations (3.11.0)
+    redcarpet (3.6.0)
+    rspec (3.12.0)
+      rspec-core (~> 3.12.0)
+      rspec-expectations (~> 3.12.0)
+      rspec-mocks (~> 3.12.0)
+    rspec-core (3.12.2)
+      rspec-support (~> 3.12.0)
+    rspec-expectations (3.12.3)
      diff-lcs (>= 1.2.0, < 2.0)
-      rspec-support (~> 3.11.0)
-    rspec-mocks (3.11.1)
+      rspec-support (~> 3.12.0)
+    rspec-mocks (3.12.6)
      diff-lcs (>= 1.2.0, < 2.0)
-      rspec-support (~> 3.11.0)
-    rspec-support (3.11.0)
-    stringio (3.0.4)
+      rspec-support (~> 3.12.0)
+    rspec-support (3.12.1)
+    stringio (3.0.7)
    syntax (1.2.2)

 PLATFORMS
@@ -0,0 +1,938 @@
+#include "<%= File.basename(output_file).sub(%r{\.[a-z]+$}, "") %>.h"
+#include <stdbool.h>
+#include <stdlib.h>
+#include <string.h>
+
+/**************************************************************************
+ * User code blocks
+ *************************************************************************/
+
+<% @grammar.code_blocks.each do |code| %>
+<%= code %>
+<% end %>
+
+/**************************************************************************
+ * Private types
+ *************************************************************************/
+
+<% if @grammar.prefix.upcase != "P_" %>
+/* Result codes. */
+#define P_SUCCESS 0u
+#define P_DECODE_ERROR 1u
+#define P_UNEXPECTED_INPUT 2u
+#define P_UNEXPECTED_TOKEN 3u
+#define P_DROP 4u
+#define P_EOF 5u
+<% end %>
+
+/* An invalid ID value. */
+#define INVALID_ID ((size_t)-1)
+
+/**************************************************************************
+ * State initialization
+ *************************************************************************/
+
+/**
+ * Initialize lexer/parser context structure.
+ *
+ * @param[out] context
+ *   Lexer/parser context structure.
+ * @param input
+ *   Text input.
+ * @param input_length
+ *   Text input length.
+ */
+void <%= @grammar.prefix %>context_init(<%= @grammar.prefix %>context_t * context, uint8_t const * input, size_t input_length)
+{
+    /* New default-initialized context structure. */
+    <%= @grammar.prefix %>context_t newcontext = {0};
+
+    /* Lexer initialization. */
+    newcontext.input = input;
+    newcontext.input_length = input_length;
+    newcontext.mode = <%= @lexer.mode_id("default") %>;
+
+    /* Copy to the user's context structure. */
+    *context = newcontext;
+}
+
+/**************************************************************************
+ * Decoder
+ *************************************************************************/
+
+/**
+ * Decode a UTF-8 code point.
+ *
+ * @param input
+ *   Text input to decode.
+ * @param input_length
+ *   Input text length.
+ * @param[out] out_code_point
+ *   The decoded code point is stored here if the return value is P_SUCCESS.
+ * @param[out] out_code_point_length
+ *   The number of bytes the code point used is stored here if the return value
+ *   is P_SUCCESS.
+ *
+ * @retval P_SUCCESS on a successful code point decode
+ * @retval P_DECODE_ERROR when an encoding error is observed
+ * @retval P_EOF when the end of the text input is reached
+ */
+size_t <%= @grammar.prefix %>decode_code_point(uint8_t const * input, size_t input_length,
+    <%= @grammar.prefix %>code_point_t * out_code_point, uint8_t * out_code_point_length)
+{
+    if (input_length == 0u)
+    {
+        return P_EOF;
+    }
+    char c = input[0];
+    <%= @grammar.prefix %>code_point_t code_point;
+    uint8_t code_point_length;
+    if ((c & 0x80u) == 0u)
+    {
+        code_point = c;
+        code_point_length = 1u;
+    }
+    else
+    {
+        uint8_t following_bytes;
+        if ((c & 0xE0u) == 0xC0u)
+        {
+            code_point = c & 0x1Fu;
+            following_bytes = 1u;
+        }
+        else if ((c & 0xF0u) == 0xE0u)
+        {
+            code_point = c & 0x0Fu;
+            following_bytes = 2u;
+        }
+        else if ((c & 0xF8u) == 0xF0u)
+        {
+            code_point = c & 0x07u;
+            following_bytes = 3u;
+        }
+        else if ((c & 0xFCu) == 0xF8u)
+        {
+            code_point = c & 0x03u;
+            following_bytes = 4u;
+        }
+        else if ((c & 0xFEu) == 0xFCu)
+        {
+            code_point = c & 0x01u;
+            following_bytes = 5u;
+        }
+        else
+        {
+            return P_DECODE_ERROR;
+        }
+        if (input_length <= following_bytes)
+        {
+            return P_DECODE_ERROR;
+        }
+        code_point_length = (uint8_t)(following_bytes + 1u);
+        for (size_t i = 0u; i < following_bytes; i++)
+        {
+            char b = input[i + 1u];
+            if ((b & 0xC0u) != 0x80u)
+            {
+                return P_DECODE_ERROR;
+            }
+            code_point = (code_point << 6u) | (b & 0x3Fu);
+        }
+    }
+    *out_code_point = code_point;
+    *out_code_point_length = code_point_length;
+    return P_SUCCESS;
+}
+
+/**************************************************************************
+ * Lexer
+ *************************************************************************/
+
+/** Lexer state ID type. */
+typedef <%= get_type_for(@lexer.state_table.size) %> lexer_state_id_t;
+
+/** Invalid lexer state ID. */
+#define INVALID_LEXER_STATE_ID <%= @lexer.state_table.size %>u
+
+/** Lexer user code ID type. */
+<% user_code_id_count = (@grammar.patterns.map(&:code_id).compact.max || 0) + 1 %>
+typedef <%= get_type_for(user_code_id_count) %> lexer_user_code_id_t;
+
+/** Invalid lexer user code ID. */
+#define INVALID_USER_CODE_ID <%= user_code_id_count %>u
+
+/**
+ * Lexer transition table entry.
+ *
+ * An incoming code point matching the range for a transition entry will cause
+ * the lexer to progress to the destination state.
+ */
+typedef struct
+{
+    /** First code point in the range for this transition. */
+    <%= @grammar.prefix %>code_point_t first;
+
+    /** Last code point in the range for this transition. */
+    <%= @grammar.prefix %>code_point_t last;
+
+    /** Destination lexer state ID for this transition. */
+    lexer_state_id_t destination_state;
+} lexer_transition_t;
+
+/** Lexer state table entry. */
+typedef struct
+{
+    /** Index to the transition table for this state. */
+    <%= get_type_for(@lexer.transition_table.size - 1) %> transition_table_index;
+
+    /** Number of transition table entries for this state. */
+    <%= get_type_for(@lexer.state_table.map {|ste| ste[:n_transitions]}.max) %> n_transitions;
+
+    /** Lexer token formed at this state. */
+    <%= @grammar.prefix %>token_t token;
+
+    /** Lexer user code ID to execute at this state. */
+    lexer_user_code_id_t code_id;
+
+    /** Whether this state matches a lexer pattern. */
+    bool accepts;
+} lexer_state_t;
+
+/** Lexer mode table entry. */
+typedef struct
+{
+    /** Offset in the state table to be used for this mode. */
+    uint32_t state_table_offset;
+} lexer_mode_t;
+
+/**
+ * Lexer match info structure.
+ *
+ * This structure holds output values from the lexer upon a successful pattern
+ * match.
+ */
+typedef struct
+{
+    /** Number of bytes of input text used to match. */
+    size_t length;
+
+    /** Input text position delta. */
+    <%= @grammar.prefix %>position_t delta_position;
+
+    /** Accepting lexer state from the match. */
+    lexer_state_t const * accepting_state;
+} lexer_match_info_t;
+
+/** Lexer transition table. */
+static lexer_transition_t lexer_transition_table[] = {
+<% @lexer.transition_table.each do |transition_table_entry| %>
+    {<%= transition_table_entry[:first] %>u, <%= transition_table_entry[:last] %>u, <%= transition_table_entry[:destination] %>u},
+<% end %>
+};
+
+/** Lexer state table. */
+static lexer_state_t lexer_state_table[] = {
+<% @lexer.state_table.each do |state_table_entry| %>
+    {<%= state_table_entry[:transition_table_index] %>u, <%= state_table_entry[:n_transitions] %>u, <%= state_table_entry[:token] || "INVALID_TOKEN_ID" %>, <%= state_table_entry[:code_id] || "INVALID_USER_CODE_ID" %>, <%= state_table_entry[:accepts] %>},
+<% end %>
+};
+
+/** Lexer mode table. */
+static lexer_mode_t lexer_mode_table[] = {
+<% @lexer.mode_table.each do |mode_table_entry| %>
+    {<%= mode_table_entry[:state_table_offset] %>},
+<% end %>
+};
+
+/**
+ * Execute user code associated with a lexer pattern.
+ *
+ * @param context
+ *   Lexer/parser context structure.
+ * @param code_id
+ *   The ID of the user code block to execute.
+ * @param match
+ *   Matched text for this pattern.
+ * @param match_length
+ *   Matched text length.
+ * @param out_token_info
+ *   Lexer token info in progress.
+ *
+ * @return Token to accept, or invalid token if the user code does
+ *   not explicitly return a token.
+ */
+static <%= @grammar.prefix %>token_t lexer_user_code(<%= @grammar.prefix %>context_t * context,
+    lexer_user_code_id_t code_id, uint8_t const * match,
+    size_t match_length, <%= @grammar.prefix %>token_info_t * out_token_info)
+{
+    switch (code_id)
+    {
+<% @grammar.patterns.each do |pattern| %>
+<%   if pattern.code_id %>
+    case <%= pattern.code_id %>u: {
+<%= expand_code(pattern.code, false, nil, pattern) %>
+    } break;
+<%   end %>
+<% end %>
+    default: break;
+    }
+
+    return INVALID_TOKEN_ID;
+}
+
+/**
+ * Check if there is a transition from the current lexer state to another
+ * based on the given input code point.
+ *
+ * @param current_state
+ *   Current lexer state.
+ * @param code_point
+ *   Input code point.
+ *
+ * @return Lexer state to transition to, or INVALID_LEXER_STATE_ID if none.
+ */
+static lexer_state_id_t check_lexer_transition(uint32_t current_state, uint32_t code_point)
+{
+    uint32_t transition_table_index = lexer_state_table[current_state].transition_table_index;
+    for (uint32_t i = 0u; i < lexer_state_table[current_state].n_transitions; i++)
+    {
+        if ((lexer_transition_table[transition_table_index + i].first <= code_point) &&
+            (code_point <= lexer_transition_table[transition_table_index + i].last))
+        {
+            return lexer_transition_table[transition_table_index + i].destination_state;
+        }
+    }
+    return INVALID_LEXER_STATE_ID;
+}
+
+/**
+ * Find the longest lexer pattern match at the current position.
+ *
+ * @param context
+ *   Lexer/parser context structure.
+ * @param[out] out_token_info
+ *   The lexed token information is stored here if the return value is
+ *   P_SUCCESS.
+ *
+ * @reval P_SUCCESS
+ *   A token was successfully lexed.
+ * @reval P_DECODE_ERROR
+ *   The decoder encountered invalid text encoding.
+ * @reval P_UNEXPECTED_INPUT
+ *   Input text does not match any lexer pattern.
+ * @retval P_EOF
+ *   The end of the text input was reached.
+ */
+static size_t find_longest_match(<%= @grammar.prefix %>context_t * context,
+    lexer_match_info_t * out_match_info, size_t * out_unexpected_input_length)
+{
+    lexer_match_info_t longest_match = {0};
+    lexer_match_info_t attempt_match = {0};
+    *out_match_info = longest_match;
+    uint32_t current_state = lexer_mode_table[context->mode].state_table_offset;
+    for (;;)
+    {
+        size_t const input_index = context->input_index + attempt_match.length;
+        uint8_t const * input = &context->input[input_index];
+        size_t input_length = context->input_length - input_index;
+        <%= @grammar.prefix %>code_point_t code_point;
+        uint8_t code_point_length;
+        size_t result = <%= @grammar.prefix %>decode_code_point(input, input_length, &code_point, &code_point_length);
+        switch (result)
+        {
+        case P_SUCCESS:
+            lexer_state_id_t transition_state = check_lexer_transition(current_state, code_point);
+            if (transition_state != INVALID_LEXER_STATE_ID)
+            {
+                attempt_match.length += code_point_length;
+                if (code_point == '\n')
+                {
+                    attempt_match.delta_position.row++;
+                    attempt_match.delta_position.col = 0u;
+                }
+                else
+                {
+                    attempt_match.delta_position.col++;
+                }
+                current_state = transition_state;
+                if (lexer_state_table[current_state].accepts)
+                {
+                    attempt_match.accepting_state = &lexer_state_table[current_state];
+                    longest_match = attempt_match;
+                }
+            }
+            else if (longest_match.length > 0)
+            {
+                *out_match_info = longest_match;
+                return P_SUCCESS;
+            }
+            else
+            {
+                *out_unexpected_input_length = attempt_match.length + code_point_length;
+                return P_UNEXPECTED_INPUT;
+            }
+            break;
+
+        case P_EOF:
+            /* We hit EOF. */
+            if (longest_match.length > 0)
+            {
+                /* We have a match, so use it. */
+                *out_match_info = longest_match;
+                return P_SUCCESS;
+            }
+            else if (attempt_match.length != 0)
+            {
+                /* There is a partial match - error! */
+                *out_unexpected_input_length = attempt_match.length;
+                return P_UNEXPECTED_INPUT;
+            }
+            else
+            {
+                /* Valid EOF return. */
+                return P_EOF;
+            }
+            break;
+
+        case P_DECODE_ERROR:
+            /* If we see a decode error, we may be partially in the middle of
+             * matching a pattern, so return the attempted match info so that
+             * the input text position can be updated. */
+            *out_match_info = attempt_match;
+            return result;
+
+        default:
+            return result;
+        }
+    }
+}
+
+/**
+ * Attempt to lex the next token in the input stream.
+ *
+ * @param context
+ *   Lexer/parser context structure.
+ * @param[out] out_token_info
+ *   The lexed token information is stored here if the return value is
+ *   P_SUCCESS.
+ *
+ * @reval P_SUCCESS
+ *   A token was successfully lexed.
+ * @reval P_DECODE_ERROR
+ *   The decoder encountered invalid text encoding.
+ * @reval P_UNEXPECTED_INPUT
+ *   Input text does not match any lexer pattern.
+ * @retval P_DROP
+ *   A drop pattern was matched so the lexer should continue.
+ */
+static size_t attempt_lex_token(<%= @grammar.prefix %>context_t * context, <%= @grammar.prefix %>token_info_t * out_token_info)
+{
+    <%= @grammar.prefix %>token_info_t token_info = {0};
+    token_info.position = context->text_position;
+    token_info.token = INVALID_TOKEN_ID;
+    *out_token_info = token_info; // TODO: remove
+    lexer_match_info_t match_info;
+    size_t unexpected_input_length;
+    size_t result = find_longest_match(context, &match_info, &unexpected_input_length);
+    switch (result)
+    {
+    case P_SUCCESS:
+        <%= @grammar.prefix %>token_t token_to_accept = match_info.accepting_state->token;
+        if (match_info.accepting_state->code_id != INVALID_USER_CODE_ID)
+        {
+            uint8_t const * match = &context->input[context->input_index];
+            <%= @grammar.prefix %>token_t user_code_token = lexer_user_code(context,
+                match_info.accepting_state->code_id, match, match_info.length, &token_info);
+            /* An invalid token returned from lexer_user_code() means that the
+             * user code did not explicitly return a token. So only override
+             * the token to return if the user code does explicitly return a
+             * token. */
+            if (user_code_token != INVALID_TOKEN_ID)
+            {
+                token_to_accept = user_code_token;
+            }
+        }
+
+        /* Update the input position tracking. */
+        context->input_index += match_info.length;
+        context->text_position.row += match_info.delta_position.row;
+        if (match_info.delta_position.row != 0u)
+        {
+            context->text_position.col = match_info.delta_position.col;
+        }
+        else
+        {
+            context->text_position.col += match_info.delta_position.col;
+        }
+
+        if (token_to_accept == INVALID_TOKEN_ID)
+        {
+            return P_DROP;
+        }
+        token_info.token = token_to_accept;
+        token_info.length = match_info.length;
+        *out_token_info = token_info;
+        return P_SUCCESS;
+
+    case P_EOF:
+        token_info.token = TOKEN___EOF;
+        *out_token_info = token_info;
+        return P_SUCCESS;
+
+    case P_DECODE_ERROR:
+        /* Update the input position tracking. */
+        context->input_index += match_info.length;
+        context->text_position.row += match_info.delta_position.row;
+        if (match_info.delta_position.row != 0u)
+        {
+            context->text_position.col = match_info.delta_position.col;
+        }
+        else
+        {
+            context->text_position.col += match_info.delta_position.col;
+        }
+        return result;
+
+    default:
+        return result;
+    }
+}
+
+/**
+ * Lex the next token in the input stream.
+ *
+ * @param context
+ *   Lexer/parser context structure.
+ * @param[out] out_token_info
+ *   The lexed token information is stored here if the return value is
+ *   P_SUCCESS.
+ *
+ * @reval P_SUCCESS
+ *   A token was successfully lexed.
+ * @reval P_DECODE_ERROR
+ *   The decoder encountered invalid text encoding.
+ * @reval P_UNEXPECTED_INPUT
+ *   Input text does not match any lexer pattern.
+ */
+size_t <%= @grammar.prefix %>lex(<%= @grammar.prefix %>context_t * context, <%= @grammar.prefix %>token_info_t * out_token_info)
+{
+    for (;;)
+    {
+        size_t result = attempt_lex_token(context, out_token_info);
+        if (result != P_DROP)
+        {
+            return result;
+        }
+    }
+}
+
+/**************************************************************************
+ * Parser
+ *************************************************************************/
+
+/** Reduce ID type. */
+typedef <%= get_type_for(@parser.reduce_table.size) %> reduce_id_t;
+
+/**
+ * A symbol ID can hold either a token ID or a rule set ID.
+ *
+ * Token IDs and rule set IDs share the same namespace, with rule set IDs
+ * beginning after token IDs end.
+ */
+typedef <%= get_type_for(@parser.rule_sets.map(&:last).map(&:id).max) %> symbol_id_t;
+
+/** Parser state ID type. */
+typedef <%= get_type_for(@parser.state_table.size) %> parser_state_id_t;
+
+/** Parser rule ID type. */
+typedef <%= get_type_for(@grammar.rules.size) %> rule_id_t;
+
+/** Parser shift ID type. */
+typedef <%= get_type_for(@parser.shift_table.size) %> shift_id_t;
+
+/** Shift table entry. */
+typedef struct
+{
+    /** Token or rule set ID. */
+    symbol_id_t symbol_id;
+
+    /** Parser state to shift to. */
+    parser_state_id_t state_id;
+} shift_t;
+
+/** Reduce table entry. */
+typedef struct
+{
+    /** Lookahead token. */
+    <%= @grammar.prefix %>token_t token;
+
+    /**
+     * Rule ID.
+     *
+     * This is used to execute the parser user code block associated with a
+     * grammar rule.
+     */
+    rule_id_t rule;
+
+    /**
+     * Rule set ID.
+     *
+     * This is used as the new top symbol ID of the parse stack after this
+     * reduce action.
+     */
+    symbol_id_t rule_set;
+
+    /**
+     * Number of states leading to this reduce action.
+     *
+     * This is the number of entries popped from the parse stack after this
+     * reduce action.
+     */
+    parser_state_id_t n_states;
+} reduce_t;
+
+/** Parser state entry. */
+typedef struct
+{
+    /** First shift table entry for this parser state. */
+    shift_id_t shift_table_index;
+
+    /** Number of shift table entries for this parser state. */
+    shift_id_t n_shift_entries;
+
+    /** First reduce table entry for this parser state. */
+    reduce_id_t reduce_table_index;
+
+    /** Number of reduce table entries for this parser state. */
+    reduce_id_t n_reduce_entries;
+} parser_state_t;
+
+/**
+ * Structure to hold a state ID and value pair.
+ *
+ * A stack of these structures makes up the parse stack.
+ */
+typedef struct
+{
+    /** Parser state ID. */
+    size_t state_id;
+
+    /** Parser value from this state. */
+    <%= @grammar.prefix %>value_t pvalue;
+} state_value_t;
+
+/** Parser shift table. */
+static const shift_t parser_shift_table[] = {
+<%   @parser.shift_table.each do |shift| %>
+    {<%= shift[:symbol_id] %>u, <%= shift[:state_id] %>u},
+<%   end %>
+};
+
+/** Parser reduce table. */
+static const reduce_t parser_reduce_table[] = {
+<%   @parser.reduce_table.each do |reduce| %>
+    {<%= reduce[:token_id] %>u, <%= reduce[:rule_id] %>u, <%= reduce[:rule_set_id] %>u, <%= reduce[:n_states] %>u},
+<%   end %>
+};
+
+/** Parser state table. */
+static const parser_state_t parser_state_table[] = {
+<%   @parser.state_table.each do |state| %>
+    {<%= state[:shift_index] %>u, <%= state[:n_shifts] %>u, <%= state[:reduce_index] %>u, <%= state[:n_reduces] %>u},
+<%   end %>
+};
+
+/* state_values stack functionality */
+
+/** state_values stack type. */
+typedef struct
+{
+    size_t length;
+    size_t capacity;
+    state_value_t * entries;
+} state_values_stack_t;
+
+/**
+ * Initialize state_values stack structure.
+ *
+ * @param stack
+ *   state_values stack structure.
+ */
+static void state_values_stack_init(state_values_stack_t * stack)
+{
+    const size_t initial_capacity = 10u;
+    stack->length = 0u;
+    stack->capacity = initial_capacity;
+    stack->entries = (state_value_t *)malloc(initial_capacity * sizeof(state_value_t));
+}
+
+/**
+ * Index a state_values stack.
+ *
+ * @param stack
+ *   state_values stack structure.
+ * @param index
+ *   Index to the stack.
+ *
+ * @return Pointer to the state value structure at the given index.
+ */
+static state_value_t * state_values_stack_index(state_values_stack_t * stack, int index)
+{
+    if (index >= 0)
+    {
+        return &stack->entries[index];
+    }
+    else
+    {
+        return &stack->entries[stack->length - (size_t)(unsigned int)(-index)];
+    }
+}
+
+/**
+ * Push a new state_value to the state_values stack.
+ *
+ * @param stack
+ *   state_values stack structure.
+ */
+static void state_values_stack_push(state_values_stack_t * stack)
+{
+    size_t const current_capacity = stack->capacity;
+    size_t const current_length = stack->length;
+    if (current_length >= current_capacity)
+    {
+        size_t const new_capacity = current_capacity * 2u;
+        state_value_t * new_entries = malloc(new_capacity * sizeof(state_value_t));
+        memcpy(new_entries, stack->entries, current_length * sizeof(state_value_t));
+        free(stack->entries);
+        stack->capacity = new_capacity;
+        stack->entries = new_entries;
+    }
+    memset(&stack->entries[current_length], 0, sizeof(state_value_t));
+    stack->length = current_length + 1u;
+}
+
+/**
+ * Pop entries from a state_values stack.
+ *
+ * @param stack
+ *   state_values stack structure.
+ * @param n
+ *   Number of states to pop.
+ */
+static void state_values_stack_pop(state_values_stack_t * stack, size_t n)
+{
+    stack->length -= n;
+}
+
+/**
+ * Free memory for a state_values stack structure.
+ *
+ * @param stack
+ *   state_values stack structure.
+ */
+static void state_values_stack_free(state_values_stack_t * stack)
+{
+     free(stack->entries);
+}
+
+/**
+ * Execute user code associated with a parser rule.
+ *
+ * @param rule The ID of the rule.
+ *
+ * @return Parse value.
+ */
+static <%= @grammar.prefix %>value_t parser_user_code(uint32_t rule, state_values_stack_t * statevalues, uint32_t n_states)
+{
+    <%= @grammar.prefix %>value_t _pvalue = {0};
+
+    switch (rule)
+    {
+<% @grammar.rules.each do |rule| %>
+<%   if rule.code %>
+    case <%= rule.id %>u: {
+<%= expand_code(rule.code, true, rule, nil) %>
+    } break;
+<%   end %>
+<% end %>
+    default: break;
+    }
+
+    return _pvalue;
+}
+
+/**
+ * Check if the parser should shift to a new state.
+ *
+ * @param state_id
+ *   Parser state ID.
+ * @param symbol_id
+ *   Incoming token/rule set ID.
+ *
+ * @return State to shift to, or INVALID_ID if none.
+ */
+static size_t check_shift(size_t state_id, size_t symbol_id)
+{
+    uint32_t start = parser_state_table[state_id].shift_table_index;
+    uint32_t end = start + parser_state_table[state_id].n_shift_entries;
+    for (uint32_t i = start; i < end; i++)
+    {
+        if (parser_shift_table[i].symbol_id == symbol_id)
+        {
+            return parser_shift_table[i].state_id;
+        }
+    }
+    return INVALID_ID;
+}
+
+/**
+ * Check if the parser should reduce to a new state.
+ *
+ * @param state_id
+ *   Parser state ID.
+ * @param token
+ *   Incoming token.
+ *
+ * @return State to reduce to, or INVALID_ID if none.
+ */
+static size_t check_reduce(size_t state_id, <%= @grammar.prefix %>token_t token)
+{
+    size_t start = parser_state_table[state_id].reduce_table_index;
+    size_t end = start + parser_state_table[state_id].n_reduce_entries;
+    for (size_t i = start; i < end; i++)
+    {
+        if ((parser_reduce_table[i].token == token) ||
+            (parser_reduce_table[i].token == INVALID_TOKEN_ID))
+        {
+            return i;
+        }
+    }
+    return INVALID_ID;
+}
+
+/**
+ * Run the parser.
+ *
+ * @param context
+ *   Lexer/parser context structure.
+ *
+ * @retval P_SUCCESS
+ *   The parser successfully matched the input text. The parse result value
+ *   can be accessed with <%= @grammar.prefix %>result().
+ * @retval P_UNEXPECTED_TOKEN
+ *   An unexpected token was encountered that does not match any grammar rule.
+ *   The value context->token holds the unexpected token.
+ * @reval P_DECODE_ERROR
+ *   The decoder encountered invalid text encoding.
+ * @reval P_UNEXPECTED_INPUT
+ *   Input text does not match any lexer pattern.
+ */
+size_t <%= @grammar.prefix %>parse(<%= @grammar.prefix %>context_t * context)
+{
+    <%= @grammar.prefix %>token_info_t token_info;
+    <%= @grammar.prefix %>token_t token = INVALID_TOKEN_ID;
+    state_values_stack_t statevalues;
+    size_t reduced_rule_set = INVALID_ID;
+    <%= @grammar.prefix %>value_t reduced_parser_value;
+    state_values_stack_init(&statevalues);
+    state_values_stack_push(&statevalues);
+    size_t result;
+    for (;;)
+    {
+        if (token == INVALID_TOKEN_ID)
+        {
+            size_t lexer_result = <%= @grammar.prefix %>lex(context, &token_info);
+            if (lexer_result != P_SUCCESS)
+            {
+                result = lexer_result;
+                break;
+            }
+            token = token_info.token;
+        }
+        size_t shift_state = INVALID_ID;
+        if (reduced_rule_set != INVALID_ID)
+        {
+            shift_state = check_shift(state_values_stack_index(&statevalues, -1)->state_id, reduced_rule_set);
+        }
+        if (shift_state == INVALID_ID)
+        {
+            shift_state = check_shift(state_values_stack_index(&statevalues, -1)->state_id, token);
+            if ((shift_state != INVALID_ID) && (token == TOKEN___EOF))
+            {
+                /* Successful parse. */
+                context->parse_result = state_values_stack_index(&statevalues, -1)->pvalue;
+                result = P_SUCCESS;
+                break;
+            }
+        }
+        if (shift_state != INVALID_ID)
+        {
+            /* We have something to shift. */
+            state_values_stack_push(&statevalues);
+            state_values_stack_index(&statevalues, -1)->state_id = shift_state;
+            if (reduced_rule_set == INVALID_ID)
+            {
+                /* We shifted a token, mark it consumed. */
+                token = INVALID_TOKEN_ID;
+                state_values_stack_index(&statevalues, -1)->pvalue = token_info.pvalue;
+            }
+            else
+            {
+                /* We shifted a RuleSet. */
+                state_values_stack_index(&statevalues, -1)->pvalue = reduced_parser_value;
+                <%= @grammar.prefix %>value_t new_parse_result = {0};
+                reduced_parser_value = new_parse_result;
+                reduced_rule_set = INVALID_ID;
+            }
+            continue;
+        }
+
+        size_t reduce_index = check_reduce(state_values_stack_index(&statevalues, -1)->state_id, token);
+        if (reduce_index != INVALID_ID)
+        {
+            /* We have something to reduce. */
+            reduced_parser_value = parser_user_code(parser_reduce_table[reduce_index].rule, &statevalues, parser_reduce_table[reduce_index].n_states);
+            reduced_rule_set = parser_reduce_table[reduce_index].rule_set;
+            state_values_stack_pop(&statevalues, parser_reduce_table[reduce_index].n_states);
+            continue;
+        }
+
+        /* A token was successfully lexed, so the input text position was
+         * advanced. However, this is an unexpected token, so we want to reset
+         * the context text position to point to the token rather than the text
+         * after it, so that if the caller wants to report the error position,
+         * it will point to the correct position of the unexpected token. */
+        context->text_position = token_info.position;
+        context->token = token;
+        result = P_UNEXPECTED_TOKEN;
+        break;
+    }
+    state_values_stack_free(&statevalues);
+    return result;
+}
+
+/**
+ * Get the parse result value.
+ *
+ * @param context
+ *   Lexer/parser context structure.
+ *
+ * @return Parse result value.
+ */
+<%= start_rule_type[1] %> <%= @grammar.prefix %>result(<%= @grammar.prefix %>context_t * context)
+{
+    return context->parse_result.v_<%= start_rule_type[0] %>;
+}
+
+/**
+ * Get the current text input position.
+ *
+ * @param context
+ *   Lexer/parser context structure.
+ *
+ * @return Current text position.
+ */
+<%= @grammar.prefix %>position_t <%= @grammar.prefix %>position(<%= @grammar.prefix %>context_t * context)
+{
+    return context->text_position;
+}
@@ -0,0 +1,122 @@
+/**
+ * @file
+ *
+ * This file is generated by Propane.
+ */
+
+#pragma once
+
+#include <stdint.h>
+#include <stddef.h>
+
+/**************************************************************************
+ * Public types
+ *************************************************************************/
+
+/* Result codes. */
+#define <%= @grammar.prefix.upcase %>SUCCESS 0u
+#define <%= @grammar.prefix.upcase %>DECODE_ERROR 1u
+#define <%= @grammar.prefix.upcase %>UNEXPECTED_INPUT 2u
+#define <%= @grammar.prefix.upcase %>UNEXPECTED_TOKEN 3u
+#define <%= @grammar.prefix.upcase %>DROP 4u
+#define <%= @grammar.prefix.upcase %>EOF 5u
+
+/** Token type. */
+typedef <%= get_type_for(@grammar.invalid_token_id) %> <%= @grammar.prefix %>token_t;
+
+/** Token IDs. */
+<% @grammar.tokens.each_with_index do |token, index| %>
+#define TOKEN_<%= token.code_name %> <%= index %>u
+<%   unless token.id == index %>
+<%     raise "Token ID (#{token.id}) does not match index (#{index}) for token #{token.name}!" %>
+<%   end %>
+<% end %>
+#define INVALID_TOKEN_ID <%= @grammar.invalid_token_id %>u
+
+/** Code point type. */
+typedef uint32_t <%= @grammar.prefix %>code_point_t;
+
+/** Parser values type(s). */
+typedef union
+{
+<% @grammar.ptypes.each do |name, typestring| %>
+    <%= typestring %> v_<%= name %>;
+<% end %>
+} <%= @grammar.prefix %>value_t;
+
+/**
+ * A structure to keep track of parser position.
+ *
+ * This is useful for reporting errors, etc...
+ */
+typedef struct
+{
+    /** Input text row (0-based). */
+    uint32_t row;
+
+    /** Input text column (0-based). */
+    uint32_t col;
+} <%= @grammar.prefix %>position_t;
+
+/** Lexed token information. */
+typedef struct
+{
+    /** Text position where the token was found. */
+    <%= @grammar.prefix %>position_t position;
+
+    /** Number of input bytes used by the token. */
+    size_t length;
+
+    /** Token that was lexed. */
+    <%= @grammar.prefix %>token_t token;
+
+    /** Parser value associated with the token. */
+    <%= @grammar.prefix %>value_t pvalue;
+} <%= @grammar.prefix %>token_info_t;
+
+/**
+ * Lexer and parser context.
+ *
+ * The user must allocate an instance of this structure and pass it to any
+ * public API function.
+ */
+typedef struct
+{
+    /* Lexer context data. */
+
+    /** Input text. */
+    uint8_t const * input;
+
+    /** Input text length. */
+    size_t input_length;
+
+    /** Input text index (byte offset). */
+    size_t input_index;
+
+    /** Input text position (row/column). */
+    <%= @grammar.prefix %>position_t text_position;
+
+    /** Current lexer mode. */
+    size_t mode;
+
+    /* Parser context data. */
+
+    /** Parse result value. */
+    <%= @grammar.prefix %>value_t parse_result;
+
+    /** Unexpected token received. */
+    <%= @grammar.prefix %>token_t token;
+} <%= @grammar.prefix %>context_t;
+
+void <%= @grammar.prefix %>context_init(<%= @grammar.prefix %>context_t * context, uint8_t const * input, size_t input_length);
+
+size_t <%= @grammar.prefix %>decode_code_point(uint8_t const * input, size_t input_length,
+        <%= @grammar.prefix %>code_point_t * out_code_point, uint8_t * out_code_point_length);
+
+size_t <%= @grammar.prefix %>lex(<%= @grammar.prefix %>context_t * context, <%= @grammar.prefix %>token_info_t * out_token_info);
+
+size_t <%= @grammar.prefix %>parse(<%= @grammar.prefix %>context_t * context);
+
+<%= start_rule_type[1] %> <%= @grammar.prefix %>result(<%= @grammar.prefix %>context_t * context);
+
+<%= @grammar.prefix %>position_t <%= @grammar.prefix %>position(<%= @grammar.prefix %>context_t * context);
@@ -49,6 +49,60 @@ detailed information about the parser states and transitions.
 A Propane grammar file provides Propane with the patterns, tokens, grammar
 rules, and user code blocks from which to build the generated lexer and parser.

+Example grammar file:
+
+```
+<<
+import std.math;
+>>
+
+ptype ulong;
+
+token plus /\\+/;
+token times /\\*/;
+token power /\\*\\*/;
+token integer /\\d+/ <<
+  ulong v;
+  foreach (c; match)
+  {
+    v *= 10;
+    v += (c - '0');
+  }
+  $$ = v;
+>>
+token lparen /\\(/;
+token rparen /\\)/;
+drop /\\s+/;
+
+Start -> E1 <<
+  $$ = $1;
+>>
+E1 -> E2 <<
+  $$ = $1;
+>>
+E1 -> E1 plus E2 <<
+  $$ = $1 + $3;
+>>
+E2 -> E3 <<
+  $$ = $1;
+>>
+E2 -> E2 times E3 <<
+  $$ = $1 * $3;
+>>
+E3 -> E4 <<
+  $$ = $1;
+>>
+E3 -> E3 power E4 <<
+  $$ = pow($1, $3);
+>>
+E4 -> integer <<
+  $$ = $1;
+>>
+E4 -> lparen E1 rparen <<
+  $$ = $2;
+>>
+```
+
 #> License

 Propane is licensed under the terms of the MIT License:
@@ -11,14 +11,27 @@ class Propane
        @log = StringIO.new
      end
      @classname = @grammar.classname || File.basename(output_file).sub(%r{[^a-zA-Z0-9].*}, "").capitalize
+      @language =
+        if output_file =~ /\.([a-z]+)$/
+          $1
+        else
+          "d"
+        end
      process_grammar!
    end

    def generate
-      erb = ERB.new(File.read(File.join(File.dirname(File.expand_path(__FILE__)), "../../assets/parser.d.erb")), trim_mode: "<>")
-      result = erb.result(binding.clone)
-      File.open(@output_file, "wb") do |fh|
-        fh.write(result)
+      extensions = [@language]
+      if @language == "c"
+        extensions += %w[h]
+      end
+      extensions.each do |extension|
+        erb = ERB.new(File.read(File.join(File.dirname(File.expand_path(__FILE__)), "../../assets/parser.#{extension}.erb")), trim_mode: "<>")
+        output_file = @output_file.sub(%r{\.[a-z]+$}, ".#{extension}")
+        result = erb.result(binding.clone)
+        File.open(output_file, "wb") do |fh|
+          fh.write(result)
+        end
      end
      @log.close
    end
@@ -183,7 +196,7 @@ class Propane
    #   Expanded user code block.
    def expand_code(code, parser, rule, pattern)
      code = code.gsub(/\$token\(([$\w]+)\)/) do |match|
-        "Token(TOKEN_#{Token.code_name($1)})"
+        "TOKEN_#{Token.code_name($1)}"
      end
      if parser
        code = code.gsub(/\$\$/) do |match|
@@ -191,11 +204,21 @@ class Propane
        end
        code = code.gsub(/\$(\d+)/) do |match|
          index = $1.to_i
-          "statevalues[$-1-n_states+#{index}].pvalue.v_#{rule.components[index - 1].ptypename}"
+          case @language
+          when "c"
+            "state_values_stack_index(statevalues, -1 - (int)n_states + #{index})->pvalue.v_#{rule.components[index - 1].ptypename}"
+          when "d"
+            "statevalues[$-1-n_states+#{index}].pvalue.v_#{rule.components[index - 1].ptypename}"
+          end
        end
      else
        code = code.gsub(/\$\$/) do |match|
-          "result.pvalue.v_#{pattern.ptypename}"
+          case @language
+          when "c"
+            "out_token_info->pvalue.v_#{pattern.ptypename}"
+          when "d"
+            "out_token_info.pvalue.v_#{pattern.ptypename}"
+          end
        end
        code = code.gsub(/\$mode\(([a-zA-Z_][a-zA-Z_0-9]*)\)/) do |match|
          mode_name = $1
@@ -203,7 +226,12 @@ class Propane
          unless mode_id
            raise Error.new("Lexer mode '#{mode_name}' not found")
          end
-          "m_mode = #{mode_id}u"
+          case @language
+          when "c"
+            "context->mode = #{mode_id}u"
+          when "d"
+            "context.mode = #{mode_id}u"
+          end
        end
      end
      code
@@ -220,6 +248,38 @@ class Propane
      [start_rule.ptypename, @grammar.ptypes[start_rule.ptypename]]
    end

+    # Get an unsigned integer type that can hold the given maximum value.
+    #
+    # @param max [Integer]
+    #   Maximum value to store.
+    #
+    # @return [String]
+    #   Type.
+    def get_type_for(max)
+      if max <= 0xFF
+        case @language
+        when "c"
+          "uint8_t"
+        when "d"
+          "ubyte"
+        end
+      elsif max <= 0xFFFF
+        case @language
+        when "c"
+          "uint16_t"
+        when "d"
+          "ushort"
+        end
+      else
+        case @language
+        when "c"
+          "uint32_t"
+        else
+          "uint"
+        end
+      end
+    end
+
  end

 end
@@ -12,6 +12,7 @@ class Propane
    attr_reader :tokens
    attr_reader :code_blocks
    attr_reader :ptypes
+    attr_reader :prefix

    def initialize(input)
      @patterns = []
@@ -23,6 +24,7 @@ class Propane
      @mode = nil
      @input = input.gsub("\r\n", "\n")
      @ptypes = {"default" => "void *"}
+      @prefix = "p_"
      parse_grammar!
    end

@@ -30,6 +32,10 @@ class Propane
      @ptypes["default"]
    end

+    def invalid_token_id
+      @tokens.size
+    end
+
    private

    def parse_grammar!
@@ -51,6 +57,7 @@ class Propane
      elsif parse_drop_statement!
      elsif parse_rule_statement!
      elsif parse_code_block_statement!
+      elsif parse_prefix_statement!
      else
        if @input.size > 25
          @input = @input.slice(0..20) + "..."
@@ -148,7 +155,7 @@ class Propane
        end
        consume!(/\s+/)
        consume!(/;/, "expected `;'")
-        @patterns << Pattern.new(pattern: pattern, line_number: @line_number, drop: true, mode: @mode)
+        @patterns << Pattern.new(pattern: pattern, line_number: @line_number, mode: @mode)
        @mode = nil
        true
      end
@@ -191,6 +198,13 @@ class Propane
      end
    end

+    def parse_prefix_statement!
+      if md = consume!(/prefix\s+(#{IDENTIFIER_REGEX})\s*;/)
+        @prefix = md[1]
+        true
+      end
+    end
+
    def parse_pattern!
      if md = consume!(%r{/})
        pattern = ""
@@ -1,55 +1,13 @@
 class Propane
  class Lexer

+    attr_reader :state_table
+    attr_reader :transition_table
+    attr_reader :mode_table
+
    def initialize(grammar)
      @grammar = grammar
-    end
-
-    def build_tables
-      @modes = @grammar.patterns.group_by do |pattern|
-        pattern.mode
-      end.transform_values do |patterns|
-        {dfa: DFA.new(patterns)}
-      end
-      @modes.each_with_index do |(mode_name, mode_info), index|
-        mode_info[:id] = index
-      end
-      transition_table = []
-      state_table = []
-      mode_table = []
-      @modes.each do |mode_name, mode_info|
-        state_table_offset = state_table.size
-        mode_table << {
-          state_table_offset: state_table_offset,
-        }
-        states = mode_info[:dfa].enumerate
-        states.each do |state, id|
-          drop = state.accepts && state.accepts.drop?
-          token =
-            if state.accepts && state.accepts.token
-              state.accepts.token.id
-            end
-          code_id =
-            if state.accepts && state.accepts.code_id
-              state.accepts.code_id
-            end
-          state_table << {
-            transition_table_index: transition_table.size,
-            n_transitions: state.transitions.size,
-            drop: drop,
-            token: token,
-            code_id: code_id,
-          }
-          state.transitions.each do |transition|
-            transition_table << {
-              first: transition.code_point_range.first,
-              last: transition.code_point_range.last,
-              destination: states[transition.destination] + state_table_offset,
-            }
-          end
-        end
-      end
-      [transition_table, state_table, mode_table]
+      build_tables!
    end

    # Get ID for a mode.
@@ -65,5 +23,46 @@ class Propane
      end
    end

+    private
+
+    def build_tables!
+      @modes = @grammar.patterns.group_by do |pattern|
+        pattern.mode
+      end.transform_values do |patterns|
+        {dfa: DFA.new(patterns)}
+      end
+      @modes.each_with_index do |(mode_name, mode_info), index|
+        mode_info[:id] = index
+      end
+      @state_table = []
+      @transition_table = []
+      @mode_table = []
+      @modes.each do |mode_name, mode_info|
+        state_table_offset = @state_table.size
+        @mode_table << {
+          state_table_offset: state_table_offset,
+        }
+        states = mode_info[:dfa].enumerate
+        states.each do |state, id|
+          token = state.accepts && state.accepts.token && state.accepts.token.id
+          code_id = state.accepts && state.accepts.code_id && state.accepts.code_id
+          @state_table << {
+            transition_table_index: @transition_table.size,
+            n_transitions: state.transitions.size,
+            accepts: !!state.accepts,
+            token: token,
+            code_id: code_id,
+          }
+          state.transitions.each do |transition|
+            @transition_table << {
+              first: transition.code_point_range.first,
+              last: transition.code_point_range.last,
+              destination: states[transition.destination] + state_table_offset,
+            }
+          end
+        end
+      end
+    end
+
  end
 end
@@ -2,6 +2,11 @@ class Propane

  class Parser

+    attr_reader :state_table
+    attr_reader :shift_table
+    attr_reader :reduce_table
+    attr_reader :rule_sets
+
    def initialize(grammar, rule_sets, log)
      @grammar = grammar
      @rule_sets = rule_sets
@@ -33,12 +38,15 @@ class Propane

      build_reduce_actions!
      write_log!
+      build_tables!
    end

-    def build_tables
-      shift_table = []
-      state_table = []
-      reduce_table = []
+    private
+
+    def build_tables!
+      @state_table = []
+      @shift_table = []
+      @reduce_table = []
      @item_sets.each do |item_set|
        shift_entries = item_set.following_symbols.map do |following_symbol|
          state_id =
@@ -48,14 +56,14 @@ class Propane
              item_set.following_item_set[following_symbol].id
            end
          {
-            token_id: following_symbol.id,
+            symbol_id: following_symbol.id,
            state_id: state_id,
          }
        end
        reduce_entries =
          case ra = item_set.reduce_actions
          when Rule
-            [{token_id: @grammar.tokens.size, rule_id: ra.id,
+            [{token_id: @grammar.invalid_token_id, rule_id: ra.id,
              rule_set_id: ra.rule_set.id, n_states: ra.components.size}]
          when Hash
            ra.map do |token, rule|
@@ -65,20 +73,17 @@ class Propane
          else
            []
          end
-        state_table << {
-          shift_index: shift_table.size,
+        @state_table << {
+          shift_index: @shift_table.size,
          n_shifts: shift_entries.size,
-          reduce_index: reduce_table.size,
+          reduce_index: @reduce_table.size,
          n_reduces: reduce_entries.size,
        }
-        shift_table += shift_entries
-        reduce_table += reduce_entries
+        @shift_table += shift_entries
+        @reduce_table += reduce_entries
      end
-      [state_table, shift_table, reduce_table]
    end

-    private
-
    def process_item_set(item_set)
      item_set.following_symbols.each do |following_symbol|
        unless following_symbol.name == "$EOF"
@@ -242,7 +247,7 @@ class Propane
        @log.puts "  Reduce actions:"
        case item_set.reduce_actions
        when Rule
-          @log.puts "    * => #{item_set.reduce_actions.id} (#{item_set.reduce_actions.name})"
+          @log.puts "    * => rule #{item_set.reduce_actions.id}, rule set #{@rule_sets[item_set.reduce_actions.name].id} (#{item_set.reduce_actions.name})"
        when Hash
          item_set.reduce_actions.each do |token, rule|
            @log.puts "    lookahead #{token.name} => #{rule.name} (#{rule.id}), rule set ##{rule.rule_set.id}"
@@ -40,8 +40,6 @@ class Propane
    #   Optional parameters.
    # @option options [String, nil] :code
    #   Code block to execute when the pattern is matched.
-    # @option options [Boolean] :drop
-    #   Whether this is a drop pattern.
    # @option options [String, nil] :pattern
    #   Pattern.
    # @option options [Token, nil] :token
@@ -52,7 +50,6 @@ class Propane
    #   Lexer mode for this pattern.
    def initialize(options)
      @code = options[:code]
-      @drop = options[:drop]
      @pattern = options[:pattern]
      @token = options[:token]
      @line_number = options[:line_number]
@@ -63,14 +60,6 @@ class Propane
      @nfa = regex.nfa
    end

-    # Whether the pattern is a drop pattern.
-    #
-    # @return [Boolean]
-    #   Whether the pattern is a drop pattern.
-    def drop?
-      @drop
-    end
-
  end

 end
@@ -4,7 +4,7 @@ class Propane

    # @return [Integer]
    #   ID of the RuleSet.
-    attr_accessor :id
+    attr_reader :id

    # @return [String]
    #   Name of the RuleSet.
@@ -34,6 +34,7 @@ EOF
      expect(grammar.modulename).to eq "a.b"
      expect(grammar.ptype).to eq "XYZ  *"
      expect(grammar.ptypes).to eq("default" => "XYZ  *")
+      expect(grammar.prefix).to eq "p_"

      o = grammar.tokens.find {|token| token.name == "while"}
      expect(o).to_not be_nil
@@ -111,8 +112,11 @@ token code2 <<
 >>

 tokenid token_with_no_pattern;
+
+prefix myparser_;
 EOF
      grammar = Grammar.new(input)
+      expect(grammar.prefix).to eq "myparser_"

      o = grammar.tokens.find {|token| token.name == "code1"}
      expect(o).to_not be_nil
@@ -4,12 +4,14 @@ require "open3"
 Results = Struct.new(:stdout, :stderr, :status)

 describe Propane do
-  def write_grammar(grammar)
-    File.write("spec/run/testparser.propane", grammar)
+  def write_grammar(grammar, options = {})
+    options[:name] ||= ""
+    File.write("spec/run/testparser#{options[:name]}.propane", grammar)
  end

  def build_parser(options = {})
-    command = %w[./propane.sh spec/run/testparser.propane spec/run/testparser.d --log spec/run/testparser.log]
+    options[:name] ||= ""
+    command = %W[./propane.sh spec/run/testparser#{options[:name]}.propane spec/run/testparser#{options[:name]}.#{options[:language]} --log spec/run/testparser#{options[:name]}.log]
    if (options[:capture])
      stdout, stderr, status = Open3.capture3(*command)
      Results.new(stdout, stderr, status)
@@ -19,8 +21,18 @@ describe Propane do
    end
  end

-  def compile(*test_files)
-    result = system(*%w[ldc2 --unittest -of spec/run/testparser spec/run/testparser.d -Ispec], *test_files)
+  def compile(test_files, options = {})
+    test_files = Array(test_files)
+    options[:parsers] ||= [""]
+    parsers = options[:parsers].map do |name|
+      "spec/run/testparser#{name}.#{options[:language]}"
+    end
+    case options[:language]
+    when "c"
+      result = system(*%w[gcc -Wall -o spec/run/testparser -Ispec -Ispec/run], *parsers, *test_files, "spec/testutils.c", "-lm")
+    when "d"
+      result = system(*%w[ldc2 --unittest -of spec/run/testparser -Ispec], *parsers, *test_files, "spec/testutils.d")
+    end
    expect(result).to be_truthy
  end

@@ -62,8 +74,12 @@ describe Propane do
    FileUtils.mkdir_p("spec/run")
  end

-  it "generates a D lexer" do
-    write_grammar <<EOF
+  %w[d c].each do |language|
+
+    context "#{language.upcase} language" do
+
+      it "generates a lexer" do
+        write_grammar <<EOF
 token int /\\d+/;
 token plus /\\+/;
 token times /\\*/;
@@ -74,15 +90,57 @@ Foo -> int <<
 Foo -> plus <<
 >>
 EOF
-    build_parser
-    compile("spec/test_d_lexer.d")
-    results = run
-    expect(results.stderr).to eq ""
-    expect(results.status).to eq 0
-  end
+        build_parser(language: language)
+        compile("spec/test_lexer.#{language}", language: language)
+        results = run
+        expect(results.stderr).to eq ""
+        expect(results.status).to eq 0
+      end

-  it "generates a parser" do
-    write_grammar <<EOF
+      it "detects a lexer error when an unknown character is seen" do
+        case language
+        when "c"
+          write_grammar <<EOF
+ptype int;
+token int /\\d+/ <<
+  int v = 0;
+  for (size_t i = 0u; i < match_length; i++)
+  {
+    v *= 10;
+    v += (match[i] - '0');
+  }
+  $$ = v;
+>>
+Start -> int <<
+  $$ = $1;
+>>
+EOF
+        when "d"
+          write_grammar <<EOF
+ptype int;
+token int /\\d+/ <<
+  int v;
+  foreach (c; match)
+  {
+    v *= 10;
+    v += (c - '0');
+  }
+  $$ = v;
+>>
+Start -> int <<
+  $$ = $1;
+>>
+EOF
+        end
+        build_parser(language: language)
+        compile("spec/test_lexer_unknown_character.#{language}", language: language)
+        results = run
+        expect(results.stderr).to eq ""
+        expect(results.status).to eq 0
+      end
+
+      it "generates a parser" do
+        write_grammar <<EOF
 token plus /\\+/;
 token times /\\*/;
 token zero /0/;
@@ -94,21 +152,135 @@ E -> B;
 B -> zero;
 B -> one;
 EOF
-    build_parser
-  end
+        build_parser(language: language)
+      end

-  it "generates an SLR parser" do
-    write_grammar <<EOF
+      it "generates a parser that does basic math - user guide example" do
+        case language
+        when "c"
+          write_grammar <<EOF
+<<
+#include <math.h>
+>>
+
+ptype size_t;
+
+token plus /\\+/;
+token times /\\*/;
+token power /\\*\\*/;
+token integer /\\d+/ <<
+  size_t v = 0u;
+  for (size_t i = 0u; i < match_length; i++)
+  {
+    v *= 10;
+    v += (match[i] - '0');
+  }
+  $$ = v;
+>>
+token lparen /\\(/;
+token rparen /\\)/;
+drop /\\s+/;
+
+Start -> E1 <<
+  $$ = $1;
+>>
+E1 -> E2 <<
+  $$ = $1;
+>>
+E1 -> E1 plus E2 <<
+  $$ = $1 + $3;
+>>
+E2 -> E3 <<
+  $$ = $1;
+>>
+E2 -> E2 times E3 <<
+  $$ = $1 * $3;
+>>
+E3 -> E4 <<
+  $$ = $1;
+>>
+E3 -> E3 power E4 <<
+  $$ = (size_t)pow($1, $3);
+>>
+E4 -> integer <<
+  $$ = $1;
+>>
+E4 -> lparen E1 rparen <<
+  $$ = $2;
+>>
+EOF
+        when "d"
+          write_grammar <<EOF
+<<
+import std.math;
+>>
+
+ptype ulong;
+
+token plus /\\+/;
+token times /\\*/;
+token power /\\*\\*/;
+token integer /\\d+/ <<
+  ulong v;
+  foreach (c; match)
+  {
+    v *= 10;
+    v += (c - '0');
+  }
+  $$ = v;
+>>
+token lparen /\\(/;
+token rparen /\\)/;
+drop /\\s+/;
+
+Start -> E1 <<
+  $$ = $1;
+>>
+E1 -> E2 <<
+  $$ = $1;
+>>
+E1 -> E1 plus E2 <<
+  $$ = $1 + $3;
+>>
+E2 -> E3 <<
+  $$ = $1;
+>>
+E2 -> E2 times E3 <<
+  $$ = $1 * $3;
+>>
+E3 -> E4 <<
+  $$ = $1;
+>>
+E3 -> E3 power E4 <<
+  $$ = pow($1, $3);
+>>
+E4 -> integer <<
+  $$ = $1;
+>>
+E4 -> lparen E1 rparen <<
+  $$ = $2;
+>>
+EOF
+        end
+        build_parser(language: language)
+        compile("spec/test_basic_math_grammar.#{language}", language: language)
+        results = run
+        expect(results.stderr).to eq ""
+        expect(results.status).to eq 0
+      end
+
+      it "generates an SLR parser" do
+        write_grammar <<EOF
 token one /1/;
 Start -> E;
 E -> one E;
 E -> one;
 EOF
-    build_parser
-  end
+        build_parser(language: language)
+      end

-  it "distinguishes between multiple identical rules with lookahead symbol" do
-    write_grammar <<EOF
+      it "distinguishes between multiple identical rules with lookahead symbol" do
+        write_grammar <<EOF
 token a;
 token b;
 Start -> R1 a;
@@ -116,14 +288,14 @@ Start -> R2 b;
 R1 -> a b;
 R2 -> a b;
 EOF
-    build_parser
-    compile("spec/test_d_parser_identical_rules_lookahead.d")
-    results = run
-    expect(results.status).to eq 0
-  end
+        build_parser(language: language)
+        compile("spec/test_parser_identical_rules_lookahead.#{language}", language: language)
+        results = run
+        expect(results.status).to eq 0
+      end

-  it "handles reducing a rule that could be arrived at from multiple states" do
-    write_grammar <<EOF
+      it "handles reducing a rule that could be arrived at from multiple states" do
+        write_grammar <<EOF
 token a;
 token b;
 drop /\\s+/;
@@ -131,14 +303,32 @@ Start -> a R1;
 Start -> b R1;
 R1 -> b;
 EOF
-    build_parser
-    compile("spec/test_d_parser_rule_from_multiple_states.d")
-    results = run
-    expect(results.status).to eq 0
-  end
+        build_parser(language: language)
+        compile("spec/test_parser_rule_from_multiple_states.#{language}", language: language)
+        results = run
+        expect(results.status).to eq 0
+      end

-  it "executes user code when matching lexer token" do
-    write_grammar <<EOF
+      it "executes user code when matching lexer token" do
+        case language
+        when "c"
+          write_grammar <<EOF
+<<
+#include <stdio.h>
+>>
+token abc <<
+  printf("abc!\\n");
+>>
+token def;
+Start -> Abcs def;
+Abcs -> ;
+Abcs -> abc Abcs;
+EOF
+        when "d"
+          write_grammar <<EOF
+<<
+import std.stdio;
+>>
 token abc <<
  writeln("abc!");
 >>
@@ -147,42 +337,80 @@ Start -> Abcs def;
 Abcs -> ;
 Abcs -> abc Abcs;
 EOF
-    build_parser
-    compile("spec/test_user_code.d")
-    results = run
-    expect(results.status).to eq 0
-    verify_lines(results.stdout, [
-      "abc!",
-      "pass1",
-      "abc!",
-      "abc!",
-      "pass2",
-    ])
-  end
+        end
+        build_parser(language: language)
+        compile("spec/test_user_code.#{language}", language: language)
+        results = run
+        expect(results.status).to eq 0
+        verify_lines(results.stdout, [
+          "abc!",
+          "pass1",
+          "abc!",
+          "abc!",
+          "pass2",
+        ])
+      end

-  it "supports a pattern statement" do
-    write_grammar <<EOF
+      it "supports a pattern statement" do
+        case language
+        when "c"
+          write_grammar <<EOF
+<<
+#include <stdio.h>
+>>
+token abc;
+/def/ <<
+  printf("def!\\n");
+>>
+Start -> abc;
+EOF
+        when "d"
+          write_grammar <<EOF
+<<
+import std.stdio;
+>>
 token abc;
 /def/ <<
  writeln("def!");
 >>
 Start -> abc;
 EOF
-    build_parser
-    compile("spec/test_pattern.d")
-    results = run
-    expect(results.status).to eq 0
-    verify_lines(results.stdout, [
-      "def!",
-      "pass1",
-      "def!",
-      "def!",
-      "pass2",
-    ])
-  end
+        end
+        build_parser(language: language)
+        compile("spec/test_pattern.#{language}", language: language)
+        results = run
+        expect(results.status).to eq 0
+        verify_lines(results.stdout, [
+          "def!",
+          "pass1",
+          "def!",
+          "def!",
+          "pass2",
+        ])
+      end

-  it "supports returning tokens from pattern code blocks" do
-    write_grammar <<EOF
+      it "supports returning tokens from pattern code blocks" do
+        case language
+        when "c"
+          write_grammar <<EOF
+<<
+#include <stdio.h>
+>>
+token abc;
+/def/ <<
+  printf("def!\\n");
+>>
+/ghi/ <<
+  printf("ghi!\\n");
+  return $token(abc);
+>>
+Start -> abc;
+EOF
+        when "d"
+          write_grammar <<EOF
+<<
+import std.stdio;
+>>
 token abc;
 /def/ <<
  writeln("def!");
@@ -193,19 +421,47 @@ token abc;
 >>
 Start -> abc;
 EOF
-    build_parser
-    compile("spec/test_return_token_from_pattern.d")
-    results = run
-    expect(results.status).to eq 0
-    verify_lines(results.stdout, [
-      "def!",
-      "ghi!",
-      "def!",
-    ])
-  end
+        end
+        build_parser(language: language)
+        compile("spec/test_return_token_from_pattern.#{language}", language: language)
+        results = run
+        expect(results.status).to eq 0
+        verify_lines(results.stdout, [
+          "def!",
+          "ghi!",
+          "def!",
+        ])
+      end

-  it "supports lexer modes" do
-    write_grammar <<EOF
+      it "supports lexer modes" do
+        case language
+        when "c"
+          write_grammar <<EOF
+<<
+#include <stdio.h>
+>>
+token abc;
+token def;
+tokenid string;
+drop /\\s+/;
+/"/ <<
+  printf("begin string mode\\n");
+  $mode(string);
+>>
+string: /[^"]+/ <<
+  printf("captured string\\n");
+>>
+string: /"/ <<
+  $mode(default);
+  return $token(string);
+>>
+Start -> abc string def;
+EOF
+        when "d"
+          write_grammar <<EOF
+<<
+import std.stdio;
+>>
 token abc;
 token def;
 tokenid string;
@@ -223,22 +479,45 @@ string: /"/ <<
 >>
 Start -> abc string def;
 EOF
-    build_parser
-    compile("spec/test_lexer_modes.d")
-    results = run
-    expect(results.status).to eq 0
-    verify_lines(results.stdout, [
-      "begin string mode",
-      "captured string",
-      "pass1",
-      "begin string mode",
-      "captured string",
-      "pass2",
-    ])
-  end
+        end
+        build_parser(language: language)
+        compile("spec/test_lexer_modes.#{language}", language: language)
+        results = run
+        expect(results.status).to eq 0
+        verify_lines(results.stdout, [
+          "begin string mode",
+          "captured string",
+          "pass1",
+          "begin string mode",
+          "captured string",
+          "pass2",
+        ])
+      end

-  it "executes user code associated with a parser rule" do
-    write_grammar <<EOF
+      it "executes user code associated with a parser rule" do
+        case language
+        when "c"
+          write_grammar <<EOF
+<<
+#include <stdio.h>
+>>
+token a;
+token b;
+Start -> A B <<
+  printf("Start!\\n");
+>>
+A -> a <<
+  printf("A!\\n");
+>>
+B -> b <<
+  printf("B!\\n");
+>>
+EOF
+        when "d"
+          write_grammar <<EOF
+<<
+import std.stdio;
+>>
 token a;
 token b;
 Start -> A B <<
@@ -251,20 +530,21 @@ B -> b <<
  writeln("B!");
 >>
 EOF
-    build_parser
-    compile("spec/test_parser_rule_user_code.d")
-    results = run
-    expect(results.status).to eq 0
-    verify_lines(results.stdout, [
-      "A!",
-      "B!",
-      "Start!",
-    ])
-  end
+        end
+        build_parser(language: language)
+        compile("spec/test_parser_rule_user_code.#{language}", language: language)
+        results = run
+        expect(results.status).to eq 0
+        verify_lines(results.stdout, [
+          "A!",
+          "B!",
+          "Start!",
+        ])
+      end

-  it "parses lists" do
-    write_grammar <<EOF
-ptype uint;
+      it "parses lists" do
+        write_grammar <<EOF
+ptype #{language == "c" ? "uint32_t" : "uint"};
 token a;
 Start -> As <<
  $$ = $1;
@@ -276,15 +556,15 @@ As -> As a <<
  $$ = $1 + 1u;
 >>
 EOF
-    build_parser
-    compile("spec/test_parsing_lists.d")
-    results = run
-    expect(results.status).to eq 0
-    expect(results.stderr).to eq ""
-  end
+        build_parser(language: language)
+        compile("spec/test_parsing_lists.#{language}", language: language)
+        results = run
+        expect(results.status).to eq 0
+        expect(results.stderr).to eq ""
+      end

-  it "fails to generate a parser for a LR(1) grammar that is not LALR" do
-    write_grammar <<EOF
+      it "fails to generate a parser for a LR(1) grammar that is not LALR" do
+        write_grammar <<EOF
 token a;
 token b;
 token c;
@@ -297,30 +577,62 @@ Start -> b E d;
 E -> e;
 F -> e;
 EOF
-    results = build_parser(capture: true)
-    expect(results.status).to_not eq 0
-    expect(results.stderr).to match %r{reduce/reduce conflict.*\(E\).*\(F\)}
-  end
+        results = build_parser(capture: true, language: language)
+        expect(results.status).to_not eq 0
+        expect(results.stderr).to match %r{reduce/reduce conflict.*\(E\).*\(F\)}
+      end

-  it "provides matched text to user code blocks" do
-    write_grammar <<EOF
+      it "provides matched text to user code blocks" do
+        case language
+        when "c"
+          write_grammar <<EOF
+<<
+#include <stdio.h>
+#include <stdlib.h>
+>>
+token id /[a-zA-Z_][a-zA-Z0-9_]*/ <<
+  char * t = malloc(match_length + 1);
+  strncpy(t, (char *)match, match_length);
+  printf("Matched token is %s\\n", t);
+  free(t);
+>>
+Start -> id;
+EOF
+        when "d"
+          write_grammar <<EOF
+<<
+import std.stdio;
+>>
 token id /[a-zA-Z_][a-zA-Z0-9_]*/ <<
  writeln("Matched token is ", match);
 >>
 Start -> id;
 EOF
-    build_parser
-    compile("spec/test_lexer_match_text.d")
-    results = run
-    expect(results.status).to eq 0
-    verify_lines(results.stdout, [
-      "Matched token is identifier_123",
-      "pass1",
-    ])
-  end
+        end
+        build_parser(language: language)
+        compile("spec/test_lexer_match_text.#{language}", language: language)
+        results = run
+        expect(results.status).to eq 0
+        verify_lines(results.stdout, [
+          "Matched token is identifier_123",
+          "pass1",
+        ])
+      end

-  it "allows storing a result value for the lexer" do
-    write_grammar <<EOF
+      it "allows storing a result value for the lexer" do
+        case language
+        when "c"
+          write_grammar <<EOF
+ptype uint64_t;
+token word /[a-z]+/ <<
+  $$ = match_length;
+>>
+Start -> word <<
+  $$ = $1;
+>>
+EOF
+        when "d"
+          write_grammar <<EOF
 ptype ulong;
 token word /[a-z]+/ <<
  $$ = match.length;
@@ -329,16 +641,56 @@ Start -> word <<
  $$ = $1;
 >>
 EOF
-    build_parser
-    compile("spec/test_lexer_result_value.d")
-    results = run
-    expect(results.stderr).to eq ""
-    expect(results.status).to eq 0
-  end
+        end
+        build_parser(language: language)
+        compile("spec/test_lexer_result_value.#{language}", language: language)
+        results = run
+        expect(results.stderr).to eq ""
+        expect(results.status).to eq 0
+      end

-  it "allows creating a JSON parser" do
-    write_grammar(File.read("spec/json_parser.propane"))
-    build_parser
-    compile("spec/test_parsing_json.d", "spec/json_types.d")
+      it "tracks position of parser errors" do
+        write_grammar <<EOF
+token a;
+token num /\\d+/;
+drop /\\s+/;
+Start -> a num Start;
+Start -> a num;
+EOF
+        build_parser(language: language)
+        compile("spec/test_error_positions.#{language}", language: language)
+        results = run
+        expect(results.stderr).to eq ""
+        expect(results.status).to eq 0
+      end
+
+      it "allows creating a JSON parser" do
+        write_grammar(File.read("spec/json_parser.propane"))
+        build_parser(language: language)
+        compile(["spec/test_parsing_json.#{language}", "spec/json_types.#{language}"], language: language)
+      end
+
+      it "allows generating multiple parsers in the same program" do
+        write_grammar(<<EOF, name: "myp1")
+prefix myp1_;
+token a;
+token num /\\d+/;
+drop /\\s+/;
+Start -> a num;
+EOF
+        build_parser(name: "myp1", language: language)
+        write_grammar(<<EOF, name: "myp2")
+prefix myp2_;
+token b;
+token c;
+Start -> b c b;
+EOF
+        build_parser(name: "myp2", language: language)
+        compile("spec/test_multiple_parsers.#{language}", parsers: %w[myp1 myp2], language: language)
+        results = run
+        expect(results.stderr).to eq ""
+        expect(results.status).to eq 0
+      end
+    end
  end
 end
@@ -0,0 +1,29 @@
+#include "testparser.h"
+#include "testutils.h"
+#include <string.h>
+
+int main()
+{
+    char const * input = "1 + 2 * 3 + 4";
+    p_context_t context;
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert_eq(P_SUCCESS, p_parse(&context));
+    assert_eq(11, p_result(&context));
+
+    input = "1 * 2 ** 4 * 3";
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert_eq(P_SUCCESS, p_parse(&context));
+    assert_eq(48, p_result(&context));
+
+    input = "(1 + 2) * 3 + 4";
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert_eq(P_SUCCESS, p_parse(&context));
+    assert_eq(13, p_result(&context));
+
+    input = "(2 * 2) ** 3 + 4 + 5";
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert_eq(P_SUCCESS, p_parse(&context));
+    assert_eq(73, p_result(&context));
+
+    return 0;
+}
@@ -0,0 +1,32 @@
+import testparser;
+import std.stdio;
+import testutils;
+
+int main()
+{
+    return 0;
+}
+
+unittest
+{
+    string input = "1 + 2 * 3 + 4";
+    p_context_t context;
+    p_context_init(&context, input);
+    assert_eq(P_SUCCESS, p_parse(&context));
+    assert_eq(11, p_result(&context));
+
+    input = "1 * 2 ** 4 * 3";
+    p_context_init(&context, input);
+    assert_eq(P_SUCCESS, p_parse(&context));
+    assert_eq(48, p_result(&context));
+
+    input = "(1 + 2) * 3 + 4";
+    p_context_init(&context, input);
+    assert_eq(P_SUCCESS, p_parse(&context));
+    assert_eq(13, p_result(&context));
+
+    input = "(2 * 2) ** 3 + 4 + 5";
+    p_context_init(&context, input);
+    assert_eq(P_SUCCESS, p_parse(&context));
+    assert_eq(73, p_result(&context));
+}
@@ -1,52 +0,0 @@
-import testparser;
-import std.stdio;
-
-int main()
-{
-    return 0;
-}
-
-unittest
-{
-    alias Result = Testparser.Decoder.Result;
-    Result result;
-
-    result = Testparser.Decoder.decode_code_point("5");
-    assert(result == Result.success('5', 1u));
-
-    result = Testparser.Decoder.decode_code_point("");
-    assert(result == Result.eof());
-
-    result = Testparser.Decoder.decode_code_point("\xC2\xA9");
-    assert(result == Result.success(0xA9u, 2u));
-
-    result = Testparser.Decoder.decode_code_point("\xf0\x9f\xa7\xa1");
-    assert(result == Result.success(0x1F9E1, 4u));
-
-    result = Testparser.Decoder.decode_code_point("\xf0\x9f\x27");
-    assert(result == Result.decode_error());
-
-    result = Testparser.Decoder.decode_code_point("\xf0\x9f\xa7\xFF");
-    assert(result == Result.decode_error());
-
-    result = Testparser.Decoder.decode_code_point("\xfe");
-    assert(result == Result.decode_error());
-}
-
-unittest
-{
-    alias Result = Testparser.Lexer.Result;
-    string input = "5 + 4 * \n677 + 567";
-    Testparser.Lexer lexer = new Testparser.Lexer(input);
-    assert(lexer.lex_token() == Result(Result.Type.TOKEN, 0, 0, 1, Testparser.TOKEN_int));
-    assert(lexer.lex_token() == Result(Result.Type.TOKEN, 0, 2, 1, Testparser.TOKEN_plus));
-    assert(lexer.lex_token() == Result(Result.Type.TOKEN, 0, 4, 1, Testparser.TOKEN_int));
-    assert(lexer.lex_token() == Result(Result.Type.TOKEN, 0, 6, 1, Testparser.TOKEN_times));
-    assert(lexer.lex_token() == Result(Result.Type.TOKEN, 1, 0, 3, Testparser.TOKEN_int));
-    assert(lexer.lex_token() == Result(Result.Type.TOKEN, 1, 4, 1, Testparser.TOKEN_plus));
-    assert(lexer.lex_token() == Result(Result.Type.TOKEN, 1, 6, 3, Testparser.TOKEN_int));
-    assert(lexer.lex_token() == Result(Result.Type.TOKEN, 1, 9, 0, Testparser.TOKEN___EOF));
-
-    lexer = new Testparser.Lexer("");
-    assert(lexer.lex_token() == Result(Result.Type.TOKEN, 0, 0, 0, Testparser.TOKEN___EOF));
-}
@@ -1,18 +0,0 @@
-import testparser;
-import std.stdio;
-
-int main()
-{
-    return 0;
-}
-
-unittest
-{
-    string input = "aba";
-    auto parser = new Testparser.Parser(input);
-    assert(parser.parse() == true);
-
-    input = "abb";
-    parser = new Testparser.Parser(input);
-    assert(parser.parse() == true);
-}
@@ -1,22 +0,0 @@
-import testparser;
-import std.stdio;
-
-int main()
-{
-    return 0;
-}
-
-unittest
-{
-    string input = "a";
-    auto parser = new Testparser.Parser(input);
-    assert(parser.parse() == false);
-
-    input = "a b";
-    parser = new Testparser.Parser(input);
-    assert(parser.parse() == true);
-
-    input = "bb";
-    parser = new Testparser.Parser(input);
-    assert(parser.parse() == true);
-}
@@ -0,0 +1,39 @@
+#include "testparser.h"
+#include <assert.h>
+#include <string.h>
+
+int main()
+{
+    char const * input = "a 42";
+    p_context_t context;
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert(p_parse(&context) == P_SUCCESS);
+
+    input = "a\n123\na  a";
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert(p_parse(&context) == P_UNEXPECTED_TOKEN);
+    assert(p_position(&context).row == 2);
+    assert(p_position(&context).col == 3);
+    assert(context.token == TOKEN_a);
+
+    input = "12";
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert(p_parse(&context) == P_UNEXPECTED_TOKEN);
+    assert(p_position(&context).row == 0);
+    assert(p_position(&context).col == 0);
+    assert(context.token == TOKEN_num);
+
+    input = "a 12\n\nab";
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert(p_parse(&context) == P_UNEXPECTED_INPUT);
+    assert(p_position(&context).row == 2);
+    assert(p_position(&context).col == 1);
+
+    input = "a 12\n\na\n\n77\na   \xAA";
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert(p_parse(&context) == P_DECODE_ERROR);
+    assert(p_position(&context).row == 5);
+    assert(p_position(&context).col == 4);
+
+    return 0;
+}
@@ -0,0 +1,37 @@
+import testparser;
+import std.stdio;
+
+int main()
+{
+    return 0;
+}
+
+unittest
+{
+    string input = "a 42";
+    p_context_t context;
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_SUCCESS);
+
+    input = "a\n123\na  a";
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_UNEXPECTED_TOKEN);
+    assert(p_position(&context) == p_position_t(2, 3));
+    assert(context.token == TOKEN_a);
+
+    input = "12";
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_UNEXPECTED_TOKEN);
+    assert(p_position(&context) == p_position_t(0, 0));
+    assert(context.token == TOKEN_num);
+
+    input = "a 12\n\nab";
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_UNEXPECTED_INPUT);
+    assert(p_position(&context) == p_position_t(2, 1));
+
+    input = "a 12\n\na\n\n77\na   \xAA";
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_DECODE_ERROR);
+    assert(p_position(&context) == p_position_t(5, 4));
+}
@@ -0,0 +1,92 @@
+#include "testparser.h"
+#include <assert.h>
+#include <string.h>
+
+int main()
+{
+    size_t result;
+    p_code_point_t code_point;
+    uint8_t code_point_length;
+
+    result = p_decode_code_point((uint8_t const *)"5", 1u, &code_point, &code_point_length);
+    assert(result == P_SUCCESS);
+    assert(code_point == '5');
+    assert(code_point_length == 1u);
+
+    result = p_decode_code_point((uint8_t const *)"", 0u, &code_point, &code_point_length);
+    assert(result == P_EOF);
+
+    result = p_decode_code_point((uint8_t const *)"\xC2\xA9", 2u, &code_point, &code_point_length);
+    assert(result == P_SUCCESS);
+    assert(code_point == 0xA9u);
+    assert(code_point_length == 2u);
+
+    result = p_decode_code_point((uint8_t const *)"\xf0\x9f\xa7\xa1", 4u, &code_point, &code_point_length);
+    assert(result == P_SUCCESS);
+    assert(code_point == 0x1F9E1u);
+    assert(code_point_length == 4u);
+
+    result = p_decode_code_point((uint8_t const *)"\xf0\x9f\x27", 3u, &code_point, &code_point_length);
+    assert(result == P_DECODE_ERROR);
+
+    result = p_decode_code_point((uint8_t const *)"\xf0\x9f\xa7\xFF", 4u, &code_point, &code_point_length);
+    assert(result == P_DECODE_ERROR);
+
+    result = p_decode_code_point((uint8_t const *)"\xfe", 1u, &code_point, &code_point_length);
+    assert(result == P_DECODE_ERROR);
+
+
+    p_token_info_t token_info;
+    char const * input = "5 + 4 * \n677 + 567";
+    p_context_t context;
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert(p_lex(&context, &token_info) == P_SUCCESS);
+    assert(token_info.position.row == 0u);
+    assert(token_info.position.col == 0u);
+    assert(token_info.length == 1u);
+    assert(token_info.token == TOKEN_int);
+    assert(p_lex(&context, &token_info) == P_SUCCESS);
+    assert(token_info.position.row == 0u);
+    assert(token_info.position.col == 2u);
+    assert(token_info.length == 1u);
+    assert(token_info.token == TOKEN_plus);
+    assert(p_lex(&context, &token_info) == P_SUCCESS);
+    assert(token_info.position.row == 0u);
+    assert(token_info.position.col == 4u);
+    assert(token_info.length == 1u);
+    assert(token_info.token == TOKEN_int);
+    assert(p_lex(&context, &token_info) == P_SUCCESS);
+    assert(token_info.position.row == 0u);
+    assert(token_info.position.col == 6u);
+    assert(token_info.length == 1u);
+    assert(token_info.token == TOKEN_times);
+    assert(p_lex(&context, &token_info) == P_SUCCESS);
+    assert(token_info.position.row == 1u);
+    assert(token_info.position.col == 0u);
+    assert(token_info.length == 3u);
+    assert(token_info.token == TOKEN_int);
+    assert(p_lex(&context, &token_info) == P_SUCCESS);
+    assert(token_info.position.row == 1u);
+    assert(token_info.position.col == 4u);
+    assert(token_info.length == 1u);
+    assert(token_info.token == TOKEN_plus);
+    assert(p_lex(&context, &token_info) == P_SUCCESS);
+    assert(token_info.position.row == 1u);
+    assert(token_info.position.col == 6u);
+    assert(token_info.length == 3u);
+    assert(token_info.token == TOKEN_int);
+    assert(p_lex(&context, &token_info) == P_SUCCESS);
+    assert(token_info.position.row == 1u);
+    assert(token_info.position.col == 9u);
+    assert(token_info.length == 0u);
+    assert(token_info.token == TOKEN___EOF);
+
+    p_context_init(&context, (uint8_t const *)"", 0u);
+    assert(p_lex(&context, &token_info) == P_SUCCESS);
+    assert(token_info.position.row == 0u);
+    assert(token_info.position.col == 0u);
+    assert(token_info.length == 0u);
+    assert(token_info.token == TOKEN___EOF);
+
+    return 0;
+}
@@ -0,0 +1,69 @@
+import testparser;
+import std.stdio;
+
+int main()
+{
+    return 0;
+}
+
+unittest
+{
+    size_t result;
+    p_code_point_t code_point;
+    ubyte code_point_length;
+
+    result = p_decode_code_point("5", &code_point, &code_point_length);
+    assert(result == P_SUCCESS);
+    assert(code_point == '5');
+    assert(code_point_length == 1u);
+
+    result = p_decode_code_point("", &code_point, &code_point_length);
+    assert(result == P_EOF);
+
+    result = p_decode_code_point("\xC2\xA9", &code_point, &code_point_length);
+    assert(result == P_SUCCESS);
+    assert(code_point == 0xA9u);
+    assert(code_point_length == 2u);
+
+    result = p_decode_code_point("\xf0\x9f\xa7\xa1", &code_point, &code_point_length);
+    assert(result == P_SUCCESS);
+    assert(code_point == 0x1F9E1u);
+    assert(code_point_length == 4u);
+
+    result = p_decode_code_point("\xf0\x9f\x27", &code_point, &code_point_length);
+    assert(result == P_DECODE_ERROR);
+
+    result = p_decode_code_point("\xf0\x9f\xa7\xFF", &code_point, &code_point_length);
+    assert(result == P_DECODE_ERROR);
+
+    result = p_decode_code_point("\xfe", &code_point, &code_point_length);
+    assert(result == P_DECODE_ERROR);
+}
+
+unittest
+{
+    p_token_info_t token_info;
+    string input = "5 + 4 * \n677 + 567";
+    p_context_t context;
+    p_context_init(&context, input);
+    assert(p_lex(&context, &token_info) == P_SUCCESS);
+    assert(token_info == p_token_info_t(p_position_t(0, 0), 1, TOKEN_int));
+    assert(p_lex(&context, &token_info) == P_SUCCESS);
+    assert(token_info == p_token_info_t(p_position_t(0, 2), 1, TOKEN_plus));
+    assert(p_lex(&context, &token_info) == P_SUCCESS);
+    assert(token_info == p_token_info_t(p_position_t(0, 4), 1, TOKEN_int));
+    assert(p_lex(&context, &token_info) == P_SUCCESS);
+    assert(token_info == p_token_info_t(p_position_t(0, 6), 1, TOKEN_times));
+    assert(p_lex(&context, &token_info) == P_SUCCESS);
+    assert(token_info == p_token_info_t(p_position_t(1, 0), 3, TOKEN_int));
+    assert(p_lex(&context, &token_info) == P_SUCCESS);
+    assert(token_info == p_token_info_t(p_position_t(1, 4), 1, TOKEN_plus));
+    assert(p_lex(&context, &token_info) == P_SUCCESS);
+    assert(token_info == p_token_info_t(p_position_t(1, 6), 3, TOKEN_int));
+    assert(p_lex(&context, &token_info) == P_SUCCESS);
+    assert(token_info == p_token_info_t(p_position_t(1, 9), 0, TOKEN___EOF));
+
+    p_context_init(&context, "");
+    assert(p_lex(&context, &token_info) == P_SUCCESS);
+    assert(token_info == p_token_info_t(p_position_t(0, 0), 0, TOKEN___EOF));
+}
@@ -0,0 +1,15 @@
+#include "testparser.h"
+#include <assert.h>
+#include <string.h>
+#include <stdio.h>
+
+int main()
+{
+    char const * input = "identifier_123";
+    p_context_t context;
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert(p_parse(&context) == P_SUCCESS);
+    printf("pass1\n");
+
+    return 0;
+}
@@ -9,7 +9,8 @@ int main()
 unittest
 {
    string input = `identifier_123`;
-    auto parser = new Testparser.Parser(input);
-    assert(parser.parse() == true);
+    p_context_t context;
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_SUCCESS);
    writeln("pass1");
 }
@@ -0,0 +1,20 @@
+#include "testparser.h"
+#include <assert.h>
+#include <string.h>
+#include <stdio.h>
+
+int main()
+{
+    char const * input = "abc \"a string\" def";
+    p_context_t context;
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert(p_parse(&context) == P_SUCCESS);
+    printf("pass1\n");
+
+    input = "abc \"abc def\" def";
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert(p_parse(&context) == P_SUCCESS);
+    printf("pass2\n");
+
+    return 0;
+}
@@ -9,12 +9,13 @@ int main()
 unittest
 {
    string input = `abc "a string" def`;
-    auto parser = new Testparser.Parser(input);
-    assert(parser.parse() == true);
+    p_context_t context;
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_SUCCESS);
    writeln("pass1");

    input = `abc "abc def" def`;
-    parser = new Testparser.Parser(input);
-    assert(parser.parse() == true);
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_SUCCESS);
    writeln("pass2");
 }
@@ -0,0 +1,19 @@
+#include "testparser.h"
+#include <assert.h>
+#include <string.h>
+
+int main()
+{
+    char const * input = "x";
+    p_context_t context;
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert(p_parse(&context) == P_SUCCESS);
+    assert(p_result(&context) == 1u);
+
+    input = "fabulous";
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert(p_parse(&context) == P_SUCCESS);
+    assert(p_result(&context) == 8u);
+
+    return 0;
+}
@@ -9,12 +9,13 @@ int main()
 unittest
 {
    string input = `x`;
-    auto parser = new Testparser.Parser(input);
-    assert(parser.parse() == true);
-    assert(parser.result == 1u);
+    p_context_t context;
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_SUCCESS);
+    assert(p_result(&context) == 1u);

    input = `fabulous`;
-    parser = new Testparser.Parser(input);
-    assert(parser.parse() == true);
-    assert(parser.result == 8u);
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_SUCCESS);
+    assert(p_result(&context) == 8u);
 }
@@ -0,0 +1,18 @@
+#include "testparser.h"
+#include <assert.h>
+#include <string.h>
+
+int main()
+{
+    char const * input = "x";
+    p_context_t context;
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert(p_parse(&context) == P_UNEXPECTED_INPUT);
+
+    input = "123";
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert(p_parse(&context) == P_SUCCESS);
+    assert(p_result(&context) == 123u);
+
+    return 0;
+}
@@ -0,0 +1,20 @@
+import testparser;
+import std.stdio;
+
+int main()
+{
+    return 0;
+}
+
+unittest
+{
+    string input = `x`;
+    p_context_t context;
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_UNEXPECTED_INPUT);
+
+    input = `123`;
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_SUCCESS);
+    assert(p_result(&context) == 123u);
+}
@@ -0,0 +1,19 @@
+#include "testparsermyp1.h"
+#include "testparsermyp2.h"
+#include <assert.h>
+#include <string.h>
+
+int main()
+{
+    char const * input1 = "a\n1";
+    myp1_context_t context1;
+    myp1_context_init(&context1, (uint8_t const *)input1, strlen(input1));
+    assert(myp1_parse(&context1) == MYP1_SUCCESS);
+
+    char const * input2 = "bcb";
+    myp2_context_t context2;
+    myp2_context_init(&context2, (uint8_t const *)input2, strlen(input2));
+    assert(myp2_parse(&context2) == MYP2_SUCCESS);
+
+    return 0;
+}
@@ -0,0 +1,21 @@
+import testparsermyp1;
+import testparsermyp2;
+import std.stdio;
+
+int main()
+{
+    return 0;
+}
+
+unittest
+{
+    string input1 = "a\n1";
+    myp1_context_t context1;
+    myp1_context_init(&context1, input1);
+    assert(myp1_parse(&context1) == MYP1_SUCCESS);
+
+    string input2 = "bcb";
+    myp2_context_t context2;
+    myp2_context_init(&context2, input2);
+    assert(myp2_parse(&context2) == MYP2_SUCCESS);
+}
@@ -0,0 +1,17 @@
+#include "testparser.h"
+#include <string.h>
+#include <assert.h>
+
+int main()
+{
+    char const * input = "aba";
+    p_context_t context;
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert(p_parse(&context) == P_SUCCESS);
+
+    input = "abb";
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert(p_parse(&context) == P_SUCCESS);
+
+    return 0;
+}
@@ -0,0 +1,19 @@
+import testparser;
+import std.stdio;
+
+int main()
+{
+    return 0;
+}
+
+unittest
+{
+    string input = "aba";
+    p_context_t context;
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_SUCCESS);
+
+    input = "abb";
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_SUCCESS);
+}
@@ -0,0 +1,24 @@
+#include "testparser.h"
+#include <assert.h>
+#include <string.h>
+
+int main()
+{
+    char const * input = "a";
+    p_context_t context;
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert(p_parse(&context) == P_UNEXPECTED_TOKEN);
+    assert(p_position(&context).row == 0);
+    assert(p_position(&context).col == 1);
+    assert(context.token == TOKEN___EOF);
+
+    input = "a b";
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert(p_parse(&context) == P_SUCCESS);
+
+    input = "bb";
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert(p_parse(&context) == P_SUCCESS);
+
+    return 0;
+}
@@ -0,0 +1,25 @@
+import testparser;
+import std.stdio;
+
+int main()
+{
+    return 0;
+}
+
+unittest
+{
+    string input = "a";
+    p_context_t context;
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_UNEXPECTED_TOKEN);
+    assert(p_position(&context) == p_position_t(0, 1));
+    assert(context.token == TOKEN___EOF);
+
+    input = "a b";
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_SUCCESS);
+
+    input = "bb";
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_SUCCESS);
+}
@@ -0,0 +1,13 @@
+#include "testparser.h"
+#include <assert.h>
+#include <string.h>
+
+int main()
+{
+    char const * input = "ab";
+    p_context_t context;
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert(p_parse(&context) == P_SUCCESS);
+
+    return 0;
+}
@@ -9,6 +9,7 @@ int main()
 unittest
 {
    string input = "ab";
-    auto parser = new Testparser.Parser(input);
-    assert(parser.parse() == true);
+    p_context_t context;
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_SUCCESS);
 }
@@ -10,44 +10,45 @@ int main()
 unittest
 {
    string input = ``;
-    auto parser = new Testparser.Parser(input);
-    assert(parser.parse());
+    p_context_t context;
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_SUCCESS);

    input = `{}`;
-    parser = new Testparser.Parser(input);
-    assert(parser.parse());
-    assert(cast(JSONObject)parser.result);
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_SUCCESS);
+    assert(cast(JSONObject)p_result(&context));

    input = `[]`;
-    parser = new Testparser.Parser(input);
-    assert(parser.parse());
-    assert(cast(JSONArray)parser.result);
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_SUCCESS);
+    assert(cast(JSONArray)p_result(&context));

    input = `-45.6`;
-    parser = new Testparser.Parser(input);
-    assert(parser.parse());
-    assert(cast(JSONNumber)parser.result);
-    assert((cast(JSONNumber)parser.result).value == -45.6);
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_SUCCESS);
+    assert(cast(JSONNumber)p_result(&context));
+    assert((cast(JSONNumber)p_result(&context)).value == -45.6);

    input = `2E-2`;
-    parser = new Testparser.Parser(input);
-    assert(parser.parse());
-    assert(cast(JSONNumber)parser.result);
-    assert((cast(JSONNumber)parser.result).value == 0.02);
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_SUCCESS);
+    assert(cast(JSONNumber)p_result(&context));
+    assert((cast(JSONNumber)p_result(&context)).value == 0.02);

    input = `{"hi":true}`;
-    parser = new Testparser.Parser(input);
-    assert(parser.parse());
-    assert(cast(JSONObject)parser.result);
-    JSONObject o = cast(JSONObject)parser.result;
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_SUCCESS);
+    assert(cast(JSONObject)p_result(&context));
+    JSONObject o = cast(JSONObject)p_result(&context);
    assert(o.value["hi"]);
    assert(cast(JSONTrue)o.value["hi"]);

    input = `{"ff": false, "nn": null}`;
-    parser = new Testparser.Parser(input);
-    assert(parser.parse());
-    assert(cast(JSONObject)parser.result);
-    o = cast(JSONObject)parser.result;
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_SUCCESS);
+    assert(cast(JSONObject)p_result(&context));
+    o = cast(JSONObject)p_result(&context);
    assert(o.value["ff"]);
    assert(cast(JSONFalse)o.value["ff"]);
    assert(o.value["nn"]);
@@ -0,0 +1,24 @@
+#include "testparser.h"
+#include <assert.h>
+#include <string.h>
+
+int main()
+{
+    char const * input = "a";
+    p_context_t context;
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert(p_parse(&context) == P_SUCCESS);
+    assert(p_result(&context) == 1u);
+
+    input = "";
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert(p_parse(&context) == P_SUCCESS);
+    assert(p_result(&context) == 0u);
+
+    input = "aaaaaaaaaaaaaaaa";
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert(p_parse(&context) == P_SUCCESS);
+    assert(p_result(&context) == 16u);
+
+    return 0;
+}
@@ -9,17 +9,18 @@ int main()
 unittest
 {
    string input = "a";
-    auto parser = new Testparser.Parser(input);
-    assert(parser.parse() == true);
-    assert(parser.result == 1u);
+    p_context_t context;
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_SUCCESS);
+    assert(p_result(&context) == 1u);

    input = "";
-    parser = new Testparser.Parser(input);
-    assert(parser.parse() == true);
-    assert(parser.result == 0u);
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_SUCCESS);
+    assert(p_result(&context) == 0u);

    input = "aaaaaaaaaaaaaaaa";
-    parser = new Testparser.Parser(input);
-    assert(parser.parse() == true);
-    assert(parser.result == 16u);
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_SUCCESS);
+    assert(p_result(&context) == 16u);
 }
@@ -0,0 +1,20 @@
+#include "testparser.h"
+#include <stdio.h>
+#include <assert.h>
+#include <string.h>
+
+int main()
+{
+    char const * input = "abcdef";
+    p_context_t context;
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert(p_parse(&context) == P_SUCCESS);
+    printf("pass1\n");
+
+    input = "defabcdef";
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert(p_parse(&context) == P_SUCCESS);
+    printf("pass2\n");
+
+    return 0;
+}
@@ -9,12 +9,13 @@ int main()
 unittest
 {
    string input = "abcdef";
-    auto parser = new Testparser.Parser(input);
-    assert(parser.parse() == true);
+    p_context_t context;
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_SUCCESS);
    writeln("pass1");

    input = "defabcdef";
-    parser = new Testparser.Parser(input);
-    assert(parser.parse() == true);
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_SUCCESS);
    writeln("pass2");
 }
@@ -0,0 +1,13 @@
+#include "testparser.h"
+#include <assert.h>
+#include <string.h>
+
+int main()
+{
+    char const * input = "defghidef";
+    p_context_t context;
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert(p_parse(&context) == P_SUCCESS);
+
+    return 0;
+}
@@ -9,6 +9,7 @@ int main()
 unittest
 {
    string input = "defghidef";
-    auto parser = new Testparser.Parser(input);
-    assert(parser.parse() == true);
+    p_context_t context;
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_SUCCESS);
 }
@@ -0,0 +1,20 @@
+#include "testparser.h"
+#include <assert.h>
+#include <stdio.h>
+#include <string.h>
+
+int main()
+{
+    char const * input = "abcdef";
+    p_context_t context;
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert(p_parse(&context) == P_SUCCESS);
+    printf("pass1\n");
+
+    input = "abcabcdef";
+    p_context_init(&context, (uint8_t const *)input, strlen(input));
+    assert(p_parse(&context) == P_SUCCESS);
+    printf("pass2\n");
+
+    return 0;
+}
@@ -9,12 +9,13 @@ int main()
 unittest
 {
    string input = "abcdef";
-    auto parser = new Testparser.Parser(input);
-    assert(parser.parse() == true);
+    p_context_t context;
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_SUCCESS);
    writeln("pass1");

    input = "abcabcdef";
-    parser = new Testparser.Parser(input);
-    assert(parser.parse() == true);
+    p_context_init(&context, input);
+    assert(p_parse(&context) == P_SUCCESS);
    writeln("pass2");
 }
@@ -0,0 +1,12 @@
+#include <stdio.h>
+#include <assert.h>
+#include <stdbool.h>
+
+void assert_eq_size_t_i(size_t expected, size_t actual, char const * file, size_t line)
+{
+    if (expected != actual)
+    {
+        fprintf(stderr, "%s:%lu: expected %lu, got %lu\n", file, line, expected, actual);
+        assert(false);
+    }
+}
@@ -0,0 +1,10 @@
+import std.stdio;
+
+void assert_eq(T)(T expected, T actual, string file = __FILE__, size_t line = __LINE__)
+{
+    if (expected != actual)
+    {
+        stderr.writeln(file, ":", line, ": expected ", expected, ", got ", actual);
+        assert(false);
+    }
+}
@@ -0,0 +1,7 @@
+#pragma once
+
+void assert_eq_size_t_i(size_t expected, size_t actual, char const * file, size_t line);
+
+#define assert_eq(expected, actual) \
+    assert_eq_size_t_i(expected, actual, __FILE__, __LINE__)
+
Author	SHA1	Message	Date
josh	06af7fbe3b	wip	2023-08-20 21:22:34 -04:00
josh	9760da4df4	wip	2023-08-20 21:19:34 -04:00
josh	35acdde09f	generates a parser specs passing	2023-08-20 20:49:24 -04:00
josh	aef5367378	Get test_lexer_unknown_character working for C	2023-08-20 18:43:33 -04:00
josh	36213d9e9c	wip	2023-08-20 17:25:48 -04:00
josh	7b1d903b00	wip	2023-08-20 16:58:02 -04:00
josh	59e8e0a095	wip	2023-08-20 16:56:00 -04:00
josh	dace12310a	wip	2023-08-20 16:53:54 -04:00
josh	c7185edef0	Add spec support for C tests	2023-08-20 16:38:35 -04:00
josh	9d2b3be20b	Determine output language by output file extension	2023-08-20 16:27:58 -04:00
josh	2b515e1a7a	wip	2023-08-20 16:13:18 -04:00
josh	4ffdea07bb	wip	2023-08-08 22:43:46 -04:00
josh	cdb6294f1f	wip	2023-08-06 11:49:26 -04:00
josh	48b4033ef2	wip	2023-08-02 21:36:43 -04:00
josh	fff9700f91	Report the unexpected token for P_UNEXPECTED_TOKEN returns - close #11	2023-07-28 15:42:18 -04:00
josh	fa7a781a5d	Update gems	2023-07-26 11:39:36 -04:00
josh	c4bcb465da	Remove std.stdio import and printing of unexpected tokens	2023-07-17 21:57:31 -04:00
josh	d39fa61af0	Remove D language reference from test names	2023-07-15 14:19:30 -04:00
josh	6333762414	Add user guide math expression example	2023-07-14 20:32:50 -04:00
josh	4942c76551	Show rule ID and rule set ID in reduce actions log section	2023-07-14 16:52:00 -04:00
josh	653b4e00f6	Add testutils module with assert_eq()	2023-07-14 15:48:44 -04:00
josh	5ce562cbc3	Allow configuring API prefix - close #9	2023-07-13 18:06:24 -04:00
josh	7d7929a358	Compact some of the table output	2023-07-12 19:51:35 -04:00
josh	424ddfe55a	Output position info for various error return codes - close #10	2023-07-12 19:22:44 -04:00
josh	ce22e3465b	Use consistent styling Prefix public symbols with "p_". User lowercase for all type aliases. Clean up some comments.	2023-07-12 16:45:59 -04:00
josh	c7bca74d3e	Use symbol_id instead of token_id for shift table entries	2023-07-12 15:51:07 -04:00
josh	7a1b4064c1	Switch to new API - close #8 The new API is more C-like and will allow consistency across all future supported language targets.	2023-07-12 15:46:13 -04:00
josh	e0e5e87338	Move public types to the top	2023-07-12 13:52:24 -04:00
josh	779ba052c1	Use P_SUCCESS instead of P_TOKEN	2023-07-11 15:43:15 -04:00
josh	eee6513384	Remove outer namespacing class	2023-07-10 22:54:33 -04:00
josh	78ce7fb77a	Replace 'ref' arguments with plain pointers	2023-07-10 22:40:03 -04:00
josh	ad768711ff	Use size_t to hold runtime object IDs and INVALID_ID	2023-07-10 22:32:33 -04:00
josh	a2338a8fca	Add ShiftID	2023-07-10 22:28:48 -04:00
josh	612eb12545	Add RuleID	2023-07-10 22:27:53 -04:00
josh	ef7488747c	Add StateID	2023-07-10 22:25:28 -04:00
josh	950fafc872	Add SymbolID	2023-07-10 22:17:54 -04:00
josh	9dbae78724	Add ReduceID type	2023-07-10 21:55:49 -04:00
josh	f973e9dc2c	Rename lexer and parser State structs to avoid conflicts	2023-07-10 11:21:45 -04:00
josh	1c50d37a3e	Add Position struct to track text positions	2023-07-10 11:18:57 -04:00
josh	80ac6c17f0	Replace Token struct with integer type Replace _TOKEN_COUNT with INVALID_TOKEN_ID.	2023-07-09 22:35:02 -04:00
josh	6327bd1e96	Use plain integer type for UserCodeID	2023-07-08 17:01:54 -04:00
josh	36ad6e0d1b	Build Lexer and Parser tables upon construction	2023-07-08 16:52:58 -04:00
josh	ffd02c16d1	Add StateID; remove TransitionResult	2023-07-08 16:46:38 -04:00
josh	0a7938038b	Make RuleSet#id read-only	2023-07-08 11:17:11 -04:00
josh	6daca1e73f	Add INVALID_ID	2023-07-08 10:49:56 -04:00
josh	83a4037740	Return a lexer error on unexpected input - close #3	2023-07-08 10:36:58 -04:00
josh	ecef933255	Consolidate return codes	2023-07-08 09:23:31 -04:00
josh	0232b204c6	Return integer result code from Parser.parse()	2023-07-08 08:52:21 -04:00
josh	c88338698a	Store whether a state accepts, not whether it drops	2023-07-08 08:29:33 -04:00
josh	8a377b4950	Just return integer result code from Lexer.lex_token()	2023-07-08 08:08:36 -04:00
josh	0d0da49cd5	Just return integer result code from Lexer.find_longest_match()	2023-07-05 17:07:48 -04:00
josh	d56cc2deeb	Just return integer result code from Decoder.decode_code_point()	2023-07-05 16:54:52 -04:00
josh	9e33a32930	Store code_point_length in a ubyte	2023-07-05 16:45:03 -04:00
josh	02d99082b2	Allow switching on Decoder.Result	2023-07-04 12:49:54 -04:00