mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
20 lines
263 B
Perl
20 lines
263 B
Perl
|
|
|
|
struct A {
|
|
a : int
|
|
}
|
|
|
|
A.metamethods.__unm = terra(self : &A)
|
|
return A { -self.a }
|
|
end
|
|
|
|
A.metamethods.__sub = terra(self : &A, rhs : &A)
|
|
return A { self.a - rhs.a }
|
|
end
|
|
|
|
terra doit()
|
|
var a,b = A { 1 } , A { 2 }
|
|
return (-(a - b)).a
|
|
end
|
|
|
|
assert(doit() == 1) |