<span style="font-size:18px;">--[[
lua元表完成
数值和逻辑运算
]]

--[[
Lua不支持函数默认值
所以通过是否为nil来判断
如果是nil的话，not nil为true

Lua支持的元表函数
__add 加
__sub 减
__div 除
__unm 负
__pow 幂

Lua支持的元表逻辑运算
__eq 等于
__lt 小于
__le 小于等于

]]

require("math")


function new_Point(x,y)
	if not x then
		x=0
	end

	if not y then
		y=0
	end

	local Point={_x=x, _y=y}
	Point.mt={}

	setmetatable(Point,Point.mt)

	function Point.add(p1,p2)
		local ret=new_Point()
		ret._x=p1._x+p2._y
		ret._y=p1._y+p2._y
		return ret
	end

	function Point.sub(p1,p2)
		local ret=new_Point()
		ret._x=p1._x-p2._x
		ret._y=p1._y-p2._y
		return ret
	end

	function Point.toString()
		str="x=".. Point._x.." y=".. Point._y
		return str
	end

	function Point.equal(p1,p2)
		if (p1._x == p2._x) and (p1._y==p2._y) then
			return true
		end
		return false
	end

	function Point.less(p1,p2)
		len1=p1.d_getDist()
		len2=p2.d_getDist()

		if len1<len2 then
			return true
		end

		return false
	end

	function Point.lessEqual(p1,p2)
		len1=p1.d_getDist()
		len2=p2.d_getDist()

		if len1<=len2 then
			return true
		end

		return false
	end

	function Point.d_getDist()
		--[[print("------------")
		Point.toString()
		print(Point._x,Point._y)]]

		local v= math.sqrt(Point._x*Point._x + Point._y*Point._y)
		--print("v="..v)
		return v
	end

	--需要先定义函数才能设置元函数
	--如果放在setmetatable后
	--也就是function Point.add前
	--会设置失败，认为Point.add是nil

	Point.mt.__add=Point.add
	Point.mt.__sub=Point.sub
	Point.mt.__tostring=Point.toString

	--逻辑运算
	Point.mt.__eq=Point.equal
	Point.mt.__lt=Point.less
	Point.mt.__le=Point.lessEqual

	return Point
end


do
	--lua调用时如果不给参数则是nil
	local p0 = new_Point()
	--p0.toString()
	print(getmetatable(p0))

	local p1 = new_Point(10,20)
	local p2 = new_Point(30,40)
	print(p1)
	print(p2)

	local p3=p1+p2
	print(p3)

	local p4=p3-new_Point(20,20)
	print(p4)

	--[[
	运行结果
	table: 0072BA08
	x=10 y=20
	x=30 y=40
	x=50 y=60
	x=30 y=40
	]]


	local pp1=new_Point(3,4)
	local pp2=new_Point(3,5)
	local pp3=new_Point(3,4)

	print(pp1.mt.__lt)
	print(pp1.mt.__eq)
	print(pp1.mt.__le)

	print(pp1.mt.__eq(pp1,pp2))
	print(pp1.mt.__eq(pp1,pp3))
	print(pp1.mt.__lt(pp1,pp3))

	print(pp1)
	print(pp2)


	setmetatable(pp1,{__lt,Point.less})
	setmetatable(pp2,{__lt,Point.less})
	cond=pp1<pp2
	print("cond="..cond)

	--print("dist1=".. pp1.d_getDist())
	--print("dist3=".. pp3.d_getDist())

	print(pp1==pp2)
	print(pp1==pp3)

	--print(pp1<pp2)
	--print(pp1<=pp2)

end


</span>

lua-元表【实现类功能的核心】