#include "duffle.amd64.win32.h"
#include <stdio.h>

// Semantic Tags (The "Colors" of ColorForth)
#define TAG_DEFINE  0x0  // RED: New word definition
#define TAG_CALL    0x1  // GREEN: Call/Compile word
#define TAG_DATA    0x2  // CYAN: Variable or Literal Address
#define TAG_IMM     0x3  // YELLOW: Immediate value/Execute
#define TAG_COMMENT 0x4  // WHITE: Ignored by compiler

// Token Packing: 28 bits payload | 4 bits tag
#define PACK_TOKEN(tag, val) (((U4)(tag) << 28) | ((U4)(val) & 0x0FFFFFFF))
#define UNPACK_TAG(token)    (((token) >> 28) & 0x0F)
#define UNPACK_VAL(token)    ((token) & 0x0FFFFFFF)

// The Tape Drive (Memory Arena)
global U4* tape;
global U8  tape_pos = 0;

internal void scatter(U4 token) {
    tape[tape_pos++] = token;
}

int main() {
    // 1. Initialize the Sourceless Memory Arena (Win32 VirtualAlloc)
    // We'll allocate 64KB for our initial "tape drive".
    tape = (U4*)VirtualAlloc(NULL, 64 * 1024, MEM_COMMIT | MEM_RESERVE, PAGE_READWRITE);
    if (!tape) return 1;

    // 2. "Bootstrap" the content (Preemptive Scatter)
    // Here we manually define a word: :SQUARE ( x -- x*x )
    // In a real editor, these are written directly by the UI to memory.
    scatter(PACK_TOKEN(TAG_DEFINE,  0x51415245)); // ":SQUARE" (Encoded name or index)
    scatter(PACK_TOKEN(TAG_CALL,    0x00000001)); // DUP
    scatter(PACK_TOKEN(TAG_CALL,    0x00000002)); // *
    scatter(PACK_TOKEN(TAG_CALL,    0x00000003)); // ; (Return)
    
    // Now a comment
    scatter(PACK_TOKEN(TAG_COMMENT, 0x4E4F5445)); // "NOTE"
    
    // Now an execution block: 5 SQUARE
    scatter(PACK_TOKEN(TAG_DATA,    5));          // The number 5
    scatter(PACK_TOKEN(TAG_IMM,     0x51415245)); // EXECUTE SQUARE

    // 3. The Visual "Interpreter" Loop
    // This simulates the editor/decompiler reading the raw memory.
    printf("--- Sourceless Tape Drive Visualization ---
");
    for (U8 i = 0; i < tape_pos; i++) {
        U4 t = tape[i];
        U4 tag = UNPACK_TAG(t);
        U4 val = UNPACK_VAL(t);

        switch (tag) {
            case TAG_DEFINE:  printf("[RED]    Define : 0x%07X
", val); break;
            case TAG_CALL:    printf("[GREEN]  Call   : 0x%07X
", val); break;
            case TAG_DATA:    printf("[CYAN]   Data   : %u
", val);       break;
            case TAG_IMM:     printf("[YELLOW] Execute: 0x%07X
", val); break;
            case TAG_COMMENT: printf("[WHITE]  Note   : 0x%07X
", val); break;
            default:          printf("[ERROR]  Unknown: 0x%08X
", t);   break;
        }
    }

    return 0;
}