all repos — hex @ 1937c9760ea99c6b1df88eb2e56c47748eabbcc1

A tiny, minimalist, slightly-esoteric concatenative programming lannguage.

src/stacktrace.c

 1
 2
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 
#ifndef HEX_H
#include "hex.h"
#endif

////////////////////////////////////////
// Stack trace implementation         //
////////////////////////////////////////

// Add an entry to the circular stack trace
void add_to_stack_trace(hex_context_t *ctx, hex_token_t *token)
{
    int index = (ctx->stack_trace.start + ctx->stack_trace.size) % HEX_STACK_TRACE_SIZE;

    if (ctx->stack_trace.size < HEX_STACK_TRACE_SIZE)
    {
        // Buffer is not full; add item
        ctx->stack_trace.entries[index] = *token;
        ctx->stack_trace.size++;
    }
    else
    {
        // Buffer is full; overwrite the oldest item
        ctx->stack_trace.entries[index] = *token;
        ctx->stack_trace.start = (ctx->stack_trace.start + 1) % HEX_STACK_TRACE_SIZE;
    }
}

// Print the stack trace
void print_stack_trace(hex_context_t *ctx)
{
    if (!ctx->settings.stack_trace_enabled || !ctx->settings.errors_enabled || ctx->stack_trace.size <= 0)
    {
        return;
    }
    fprintf(stderr, "[stack trace] (most recent symbol first):\n");

    for (size_t i = 0; i < ctx->stack_trace.size; i++)
    {
        int index = (ctx->stack_trace.start + ctx->stack_trace.size - 1 - i) % HEX_STACK_TRACE_SIZE;
        hex_token_t token = ctx->stack_trace.entries[index];
        fprintf(stderr, "  %s (%s:%d:%d)\n", token.data.value, token.position.filename, token.position.line, token.position.column);
    }
}