haxe version

import haxe.macro.Type;
import haxe.macro.Expr;
import haxe.macro.Context;
import haxe.io.Bytes;
import sys.io.File;

class Parser
{
    var data : haxe.io.Bytes;
    var at : Int = 0;

    static public function expr2name(name : Expr) : String
    {
        return switch (name.expr)
        {
            case EConst(cdata): switch (cdata) { case CIdent(id): id; default: "<ERROR>"; }
            default: "<ERROR>";
        };
    }
    macro static public function READ(name : Expr, type : Expr, size : Int = 4) : Expr
    {
        var nameStr = expr2name(name);
        var typeStr = expr2name(type);
        switch (typeStr)
        {
        case "Int32":
            return macro
            {
                var $nameStr : Int = data.getInt32(at);
                at += 4;
                trace($v{nameStr + " = "} + $i{nameStr});
            };
        case "Str":
            return macro
            {
                var $nameStr : String = data.getString(at, $v{size});
                at += $v{size};
                trace($v{nameStr + " = "} + $i{nameStr});
            };
        default:
            return macro {};
        }
    }

    function new()
    {
        data = sys.io.File.getBytes("loop.wav");
        READ(magic, Str, 4);
        READ(size, Int32);
    }
    static public function main():Void
    {
        var parser = new Parser();
        trace("Hello World");
    }
}