awk/rawk/scratch/debug_test.rawk


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

BEGIN {
    print "=== Debug Test ==="
}

RAWK {
    $test_func = (x) -> {
        return x * 2;
    };
}

{
    result = test_func(5);
    print "Result:", result;
    print "Test completed";
    exit 0;
}