dellingr 0.1.0

An embeddable, pure-Rust Lua VM with precise instruction-cost accounting
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
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132

-- Metatables and Metamethods Examples
-- Demonstrates all supported metamethods: __index, __newindex, __tostring, __call, __len

print("=== Metatables Demo ===")
print("")

-- 1. __index: Default values and inheritance
print("1. __index: Default values")
local defaults = { x = 0, y = 0, name = "unnamed" }
local point = setmetatable({ x = 10 }, { __index = defaults })
print("point.x = " .. tostring(point.x))  -- 10 (from point itself)
print("point.y = " .. tostring(point.y))  -- 0 (from defaults)
print("point.name = " .. point.name)       -- "unnamed" (from defaults)
print("")

-- 2. __index with function: computed properties
print("2. __index with function")
local computed = setmetatable({ radius = 5 }, {
    __index = function(t, k)
        if k == "diameter" then
            return t.radius * 2
        elseif k == "circumference" then
            return t.radius * 2 * 3.14159
        end
        return nil
    end
})
print("radius = " .. tostring(computed.radius))
print("diameter = " .. tostring(computed.diameter))
print("circumference = " .. tostring(computed.circumference))
print("")

-- 3. __newindex: Proxy tables and logging
print("3. __newindex: Proxy pattern")
local storage = {}
local proxy = setmetatable({}, {
    __index = storage,
    __newindex = function(t, k, v)
        print("  Setting " .. tostring(k) .. " = " .. tostring(v))
        storage[k] = v
    end
})
proxy.a = 1
proxy.b = 2
print("storage.a = " .. tostring(storage.a))
print("proxy.a = " .. tostring(proxy.a))  -- reads from storage via __index
print("")

-- 4. __tostring: Custom string representation
print("4. __tostring: Custom printing")
local person = setmetatable({ name = "Alice", age = 30 }, {
    __tostring = function(t)
        return "Person(" .. t.name .. ", age " .. tostring(t.age) .. ")"
    end
})
print("person = " .. tostring(person))
print(person)  -- print also uses __tostring
print("")

-- 5. __call: Callable tables
print("5. __call: Callable tables")
local adder = setmetatable({ base = 100 }, {
    __call = function(self, x, y)
        return self.base + x + (y or 0)
    end
})
print("adder(5) = " .. tostring(adder(5)))
print("adder(10, 20) = " .. tostring(adder(10, 20)))
print("")

-- 6. __len: Custom length
print("6. __len: Custom length operator")
local container = setmetatable({
    items = { "a", "b", "c" },
    capacity = 10
}, {
    __len = function(t)
        return t.capacity  -- return capacity instead of array length
    end
})
print("container capacity (#container) = " .. tostring(#container))
print("")

-- 7. Object-Oriented Programming pattern
print("7. OOP pattern with __index and __call")

local Vector = {}
Vector.__index = Vector

setmetatable(Vector, {
    __call = function(cls, x, y)
        local self = setmetatable({}, cls)
        self.x = x or 0
        self.y = y or 0
        return self
    end
})

Vector.length = function(self)
    return math.sqrt(self.x * self.x + self.y * self.y)
end

Vector.add = function(self, other)
    return Vector(self.x + other.x, self.y + other.y)
end

setmetatable(Vector, {
    __call = function(cls, x, y)
        local self = setmetatable({}, { __index = cls })
        self.x = x or 0
        self.y = y or 0
        return self
    end
})

local v1 = Vector(3, 4)
local v2 = Vector(1, 2)
print("v1 = (" .. tostring(v1.x) .. ", " .. tostring(v1.y) .. ")")
print("v1:length() = " .. tostring(v1:length()))
local v3 = v1:add(v2)
print("v1:add(v2) = (" .. tostring(v3.x) .. ", " .. tostring(v3.y) .. ")")
print("")

-- 8. String methods (str:method() syntax)
print("8. String methods")
local s = "hello world"
print("s:upper() = " .. s:upper())
print("s:sub(1, 5) = " .. s:sub(1, 5))
print("s:reverse() = " .. s:reverse())
print("")

print("=== All metatable tests passed! ===")