radgeRayden

#ifndef WGPU_H
#define WGPU_H
#include "wgpu.h"
#endif

#include "framework.h"
#include <stdio.h>
#include <stdlib.h>

#define WGPU_TARGET_MACOS 1

radgeRayden

# import C functions and sanitize the scope
vvv bind glad
do
    let glad =
        include
            options
                .. "-I" module-dir "/glad/include"
            "glad/src/glad.c"
    do
        using glad.extern

radgeRayden

let number-regexp =
    do
        hex-digit := "[0-9a-fA-F]"
        bin-digit := "[01]"
        oct-digit := "[0-7]"
        fn re-or (...)
            let result =
            .. "("
                va-lifold ""
                    inline (index _. value computed-result)

radgeRayden

using import enum

@@ memo
inline member-typeof (T member)
    let result =
        static-if ((T < Struct) or (T < CStruct))
            field-count := (countof T)
            let result =
                va-lfold none
                    inline (_ignore value computed-result)

radgeRayden

fn test-color (style-kind)
    let style-code = (default-styler style-kind "")
    let styled-name = (default-styler style-kind (style-kind as string))
    let color-code = 
        do
            let code = (lslice style-code ((countof style-code) - (countof "\x1b[0m")))
            match code
            case "\x1b\[30m"
                0
            case "\x1b[31m"

radgeRayden

local filename = arg[1]
local output = 
[[
using import struct
struct FNTCharInfo plain
    id       : i32
    x        : i32
    y        : i32
    width    : i32
    height   : i32

radgeRayden

local field = {}
local field_width = 10
local field_height = 10
local field_position_x = 100
local field_position_y = 100
local n_mines = 15
local size_square = 30
local start_time = 0
local play_time = 0
local is_game_over = false

radgeRayden

#
    in: console VRAM 
        320x240 palletized pixel data
        16-color (subject to change) pallete in RGB 24-bit format

using import glsl
using import glm

#shader constants
let +palette-width+ = 4 

radgeRayden

include 
    (import sokol) 
""""#define SOKOL_NO_ENTRY
    #define SOKOL_IMPL
    #define SOKOL_GLCORE33
    #include "include/sokol/sokol_app.h"
    #include "include/sokol/sokol_gfx.h"

include 
    (import C) 

radgeRayden

#!/usr/bin/lua

expr = io.read()

--tokenize

tokens = {}

local current_number = nil