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

---
source: src/main.rs
assertion_line: 136
expression: compiled
input_file: test-data/lua5.4-tests/bwcoercion.lua
---
local tonumber, tointeger = tonumber, math.tointeger
local type, getmetatable, rawget, error = type, getmetatable, rawget, error
local strsub = string.sub
local print = print
_ENV = nil
local fn toint(x) {
    x = tonumber(x)
    if !x {
        return false
    }
    return tointeger(x)
}
local fn trymt(x, y, mtname) {
    if type(y) != "string" {
        local mt = getmetatable(y)
        local mm = mt && rawget(mt, mtname)
        if mm {
            return mm(x, y)
        }
    }
    error("attempt to '" .. strsub(mtname, 3) .. "' a " .. type(x) .. " with a " .. type(y), 4);
}
local fn checkargs(x, y, mtname) {
    local xi = toint(x)
    local yi = toint(y)
    if xi && yi {
        return xi, yi
    } else {
        return trymt(x, y, mtname), nil
    }
}
local smt = getmetatable("")
smt.__band = fn (x, y) {
    local x, y = checkargs(x, y, "__band")
    return y && x & y || x
}
smt.__bor = fn (x, y) {
    local x, y = checkargs(x, y, "__bor")
    return y && x | y || x
}
smt.__bxor = fn (x, y) {
    local x, y = checkargs(x, y, "__bxor")
    return y && x ^^ y || x
}
smt.__shl = fn (x, y) {
    local x, y = checkargs(x, y, "__shl")
    return y && x << y || x
}
smt.__shr = fn (x, y) {
    local x, y = checkargs(x, y, "__shr")
    return y && x >> y || x
}
smt.__bnot = fn (x) {
    local x, y = checkargs(x, x, "__bnot")
    return y && ~x || x
}