cluna 1.1.0

Tool to convert Lua code into Clue code Made by MarkosTh09
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102

---
source: src/main.rs
expression: compiled
input_file: test-data/lua5.1-tests/verybig.lua
---
if rawget(_G, "_soft") {
    return 10
}
print("testing large programs (>64k)");
prog = `$

local a,b

b = {$1$
  b30009 = 65534,
  b30010 = 65535,
  b30011 = 65536,
  b30012 = 65537,
  b30013 = 16777214,
  b30014 = 16777215,
  b30015 = 16777216,
  b30016 = 16777217,
  b30017 = 4294967294,
  b30018 = 4294967295,
  b30019 = 4294967296,
  b30020 = 4294967297,
  b30021 = -65534,
  b30022 = -65535,
  b30023 = -65536,
  b30024 = -4294967297,
  b30025 = 15012.5,
  $2$
};

assert(b.a50008 == 25004 and b["a11"] == 5.5)
assert(b.a33007 == 16503.5 and b.a50009 == 25004.5)
assert(b["b"..30024] == -4294967297)

function b:xxx (a,b) return a+b end
assert(b:xxx(10, 12) == 22)   -- pushself with non-constant index
b.xxx = nil

s = 0; n=0
for a,b in pairs(b) do s=s+b; n=n+1 end
assert(s==13977183656.5  and n==70001)

require "checktable"
stat(b)

a = nil; b = nil
print'+'

function f(x) b=x end

a = f{$3$} or 10

assert(a==10)
assert(b[1] == "a10" and b[2] == 5 and b[table.getn(b)-1] == "a50009")


function xxxx (x) return b[x] end

assert(xxxx(3) == "a11")

a = nil; b=nil
xxxx = nil

return 10

`
F = {
    fn () {
        for i = 10, 50009 {
            io.write('a', i, ' = ', 5 + ((i - 10) / 2), ',\n');
        }
    }, 
    fn () {
        for i = 30026, 50009 {
            io.write('b', i, ' = ', 15013 + ((i - 30026) / 2), ',\n');
        }
    }, 
    fn () {
        for i = 10, 50009 {
            io.write('"a', i, '", ', 5 + ((i - 10) / 2), ',\n');
        }
    }
}
file = os.tmpname()
io.output(file);
for s with string.gmatch(prog, "$([^$]+)") {
    local n = tonumber(s)
    if !n {
        io.write(s);
    } else {
        F[(n)]();
    }
}
io.close();
result = dofile(file)
assert(os.remove(file));
print('OK');
return result