local _class={}
 
function class(super)
 local class_type={}
 class_type.ctor=false
 class_type.super=super
 class_type.new=function(...)
   local obj={}
   do
    local create
    create = function(c,...)
     if c.super then
      create(c.super,...)
     end
     if c.ctor then
      c.ctor(obj,...)
     end
    end
 
    create(class_type,...)
   end
   setmetatable(obj,{ __index=_class[class_type] })
   return obj
  end
 local vtbl={}
 _class[class_type]=vtbl
 
 setmetatable(class_type,{__newindex=
  function(t,k,v)
   vtbl[k]=v
  end
 })
 
 if super then
  setmetatable(vtbl,{__index=
   function(t,k)
    local ret=_class[super][k]
    vtbl[k]=ret
    return ret
   end
  })
 end
 
 return class_type
end

function base_type:ctor(x) -- 定義 base_type 的構(gòu)造函數(shù)
 print("base_type ctor")
 self.x=x
end
 
function base_type:print_x() -- 定義一個成員函數(shù) base_type:print_x
 print(self.x)
end
 
function base_type:hello() -- 定義另一個成員函數(shù) base_type:hello
 print("hello base_type")
end

test=class(base_type) -- 定義一個類 test 繼承于 base_type
 
function test:ctor() -- 定義 test 的構(gòu)造函數(shù)
 print("test ctor")
end
 
function test:hello() -- 重載 base_type:hello 為 test:hello
 print("hello test")
end

a=test.new(1) -- 輸出兩行，base_type ctor 和 test ctor 。這個對象被正確的構(gòu)造了。
a:print_x() -- 輸出 1 ，這個是基類 base_type 中的成員函數(shù)。
a:hello() -- 輸出 hello test ，這個函數(shù)被重載了。

base_type=class()       -- 定義一個基類 base_type

function base_type:ctor(x)  -- 定義 base_type 的構(gòu)造函數(shù)
    print("base_type ctor")
    self.x=x
end

function base_type:print_x()    -- 定義一個成員函數(shù) base_type:print_x
    print(self.x)
end

function base_type:hello()  -- 定義另一個成員函數(shù) base_type:hello
    print("hello base_type")
end

function test:ctor()    -- 定義 test 的構(gòu)造函數(shù)
    print("test ctor")
end

function test:hello()   -- 重載 base_type:hello 為 test:hello
    print("hello test")
end

a=test.new(1)   -- 輸出兩行，base_type ctor 和 test ctor 。這個對象被正確的構(gòu)造了。
a:print_x() -- 輸出 1 ，這個是基類 base_type 中的成員函數(shù)。
a:hello()   -- 輸出 hello test ，這個函數(shù)被重載了。