<commit_before>#include <stdlib.h>
#include <stdio.h>

#include <kernel/tty.h>
#include <kernel/system.h>

#include <primitives.h>
#include <stack_machine/common.h>
#include <stack_machine/context.h>
#include <stack_machine/entry.h>
#include <stack_machine/error.h>

state_t __DOT(context_t *ctx)
{
    int num;
    if (popnum(ctx->ds, &num))
    {
        printnum(num, ctx->base);
        return OK;
    }
    else
    {
        return stack_underflow(ctx);
    }
}


state_t __UDOT(context_t *ctx)
{
    int num;
    if (popnum(ctx->ds, &num))
    {
        printnum(num < 0 ? num + 0x80000000 : num, ctx->base);
        return OK;
    }
    else
    {
        return stack_underflow(ctx);
    }
}


state_t __DOT_S(context_t *ctx)
{
    dlist_elem_t *element = dlist_tail(ctx->ds);
    while (element != NULL)
    {
        int *num = dlist_data(element);

        printnum(*num, ctx->base);
        element = dlist_prev(element);
    }

    return OK;
}


state_t __EMIT(context_t *ctx)
{
    int num;
    if (popnum(ctx->ds, &num))
    {
        putchar(num);
        return OK;
    }
    else
    {
        return stack_underflow(ctx);
    }
}


state_t __KEY(context_t *ctx)
{
    pushnum(ctx->ds, getchar());
    return OK;
}


state_t __CR(context_t *ctx)
{
    putchar('\n');
    return OK;
}


state_t __SPACE(context_t *ctx)
{
    putchar(' ');
    return OK;
}


state_t __SPACES(context_t *ctx)
{
    int num;
    if (popnum(ctx->ds, &num))
    {
        for (int i = 0; i < num; i++)
            putchar(' ');

        return OK;
    }
    else
    {
        return stack_underflow(ctx);
    }
}



state_t __CLS(context_t *ctx)
{
    terminal_clear();
    return OK;
}


state_t __TYPE(context_t *ctx)
{
    addr_t addr;
    int num;
    if (popnum(ctx->ds, &num) && popnum(ctx->ds, &addr))<commit_msg>Fix warning<commit_after>#include <stdlib.h>
#include <stdio.h>

#include <kernel/tty.h>
#include <kernel/system.h>

#include <primitives.h>
#include <stack_machine/common.h>
#include <stack_machine/context.h>
#include <stack_machine/entry.h>
#include <stack_machine/error.h>

state_t __DOT(context_t *ctx)
{
    int num;
    if (popnum(ctx->ds, &num))
    {
        printnum(num, ctx->base);
        return OK;
    }
    else
    {
        return stack_underflow(ctx);
    }
}


state_t __UDOT(context_t *ctx)
{
    int num;
    if (popnum(ctx->ds, &num))
    {
        printnum(num < 0 ? num + 0x80000000 : num, ctx->base);
        return OK;
    }
    else
    {
        return stack_underflow(ctx);
    }
}


state_t __DOT_S(context_t *ctx)
{
    dlist_elem_t *element = dlist_tail(ctx->ds);
    while (element != NULL)
    {
        int *num = dlist_data(element);

        printnum(*num, ctx->base);
        element = dlist_prev(element);
    }

    return OK;
}


state_t __EMIT(context_t *ctx)
{
    int num;
    if (popnum(ctx->ds, &num))
    {
        putchar(num);
        return OK;
    }
    else
    {
        return stack_underflow(ctx);
    }
}


state_t __KEY(context_t *ctx)
{
    pushnum(ctx->ds, getchar());
    return OK;
}


state_t __CR(context_t *ctx)
{
    putchar('\n');
    return OK;
}


state_t __SPACE(context_t *ctx)
{
    putchar(' ');
    return OK;
}


state_t __SPACES(context_t *ctx)
{
    int num;
    if (popnum(ctx->ds, &num))
    {
        for (int i = 0; i < num; i++)
            putchar(' ');

        return OK;
    }
    else
    {
        return stack_underflow(ctx);
    }
}



state_t __CLS(context_t *ctx)
{
    terminal_clear();
    return OK;
}


state_t __TYPE(context_t *ctx)
{
    addr_t addr;
    int num;
    if (popnum(ctx->ds, &num) && popnum(ctx->ds, (int)&addr))
{'fraction_non_alphanumeric': 0.14776160395495744, 'fraction_numerical': 0.006042296072507553, 'mean_word_length': 2.2989130434782608, 'pattern_counts': {'":': 0, '<': 25, '<?xml version=': 0, '>': 43, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 2, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '1042299', 'n_tokens_mistral': 1470, 'n_tokens_neox': 1427, 'n_words': 284}