mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
21 lines
356 B
Perl
21 lines
356 B
Perl
struct Range {
|
|
a : int;
|
|
b : int;
|
|
}
|
|
Range.metamethods.__for = function(syms,iter,body)
|
|
return syms, quote
|
|
var it = iter
|
|
for [syms[1]] = it.a,it.b do
|
|
body
|
|
end
|
|
end
|
|
end
|
|
|
|
terra foo()
|
|
var v = Range { 0, 3 }
|
|
var vp = &v
|
|
var i = 0
|
|
for e in vp do i = i + e end
|
|
return i
|
|
end
|
|
assert(3 == foo()) |