用lua4.0模仿c++的指针和类

 1.用lua模仿c++的指针：
     很简单，c++里的指针的内容就是内存地址。用lua进行模仿，只要用一个全局table模拟内存空间，然后将table下标作为指针地址就行了。
    请看代码：

1. _g_pz = {};--模拟内存空间
4. function _new(something, somem_type)--新建指针
5.     something = {};
6.     m_type = "m_type";
7.     something[m_type] = somem_type;
8.     if something.m_type == nil then
9.         print("Cannot assign the point's type!");
10.         return -1;
11.     end;
12.     if type(_g_pz[something.m_type]) ~= "table" then
13.         _g_pz[something.m_type] = {};
14.     end;
15.     _g_pz[something.m_type][something] = {};
16.     
17.     return something;--返回地址
18. end;
20. function _delete(something)--删除指针
21.     if something.m_type == nil then
22.         print("Cannot get the point's m_type!");
23.         return -1;
24.     end;
25.     tremove(_g_pz[something.m_type], something);
26. end;
28. function _delete_by_type(something)--删除某一类型的所有指针
29.     if something.m_type == nil then
30.         print("Cannot get the point's m_type!");
31.         return -1;
32.     end;
33.     tremove(_g_pz, something.m_type);
34. end;
36. function _pz_assignment(something, value)--给指针赋值
37.     _g_pz[something.m_type][something] = value;
38. end;
40. function _pz_get_value(something)--获取指针的值
41.     return _g_pz[something.m_type][something];
42. end;
44. function _pz_get_type(something)--获取指针类型
45.     return something.m_type;
46. end;

           2.进行指针测试：

1. --======================模仿指针操作=================
2. cTest = _new(cTest, "classtype1");
3. --print(cTest[m_type]);
4. _pz_assignment(cTest, "2222");
6. cTest2 = _new(cTest2, "classtype1");
7. _pz_assignment(cTest2, "2222333");
9. print(type(_pz_get_type(cTest)).."/ntype = ".._pz_get_type(cTest));
10. print(_pz_get_value(cTest));
12. print(type(_pz_get_type(cTest2)).."/ntype = ".._pz_get_type(cTest2));
13. print(_pz_get_value(cTest2));
14. --====================以上===========================

3.用lua模仿类，并且能够继承重载

代码如下：

1. function class(typename, base_type)
2.     --m_base_type = "m_base_type";
3.     local classtype = _new(classtype, typename);
4.     local classtemp = {}
5.     classtemp.m_base_type = base_type;
6.     classtemp.ctor = 0;--构造函数
7.     classtemp.dector = 0;--析构函数
8.     classtemp.quote = 0;
9.     
10.     
11.     --m_class = {}
12.     
13.     classtemp.new = function(self, ...)
14.         m_class = _new(m_class, _pz_get_value(%classtype));
15.         local m_class_type_temp = %classtype;
16.         self = _pz_get_value(m_class);
17.         local foo = function(t,i)
18.             return _pz_get_value(%m_class_type_temp)[i];
19.         end;
20.         --settag(_pz_get_value(m_class),newtag());
21.         --settagmethod(tag(_pz_get_value(m_class)), "index", foo);
22.         settag(self,newtag());
23.         settagmethod(tag(self), "index", foo);
25.         
26.         function _ctor(ctype, self, arg)
27.             if ctype.m_base_type ~= nil then
28.                 _ctor(ctype.m_base_type, self, arg);
29.             end;
30.             ctype.ctor(self, arg);
31.         end;
32.         
33.         
34.         
35.         _ctor(%classtemp, self, arg);
37.         _pz_assignment(m_class, self);
38.         
39.         return self;
40.     end;
41.     
42.     classtemp.dctor = function()
43.         
44.         %classtype.dector();
45.         
46.         if %classtype.m_base_type ~= nil then
47.             %classtype.m_base_type.dctor();
48.         end;
49.         
50.     end;
51.     
52.     if classtemp.m_base_type ~= nil then
53.         local foo3 = function(t, i)
54.             return %base_type[i];
55.         end;
56.         settag(classtemp,newtag());
57.         settagmethod(tag(classtemp), "index", foo3);
58.     end;
59.     
60.     _pz_assignment(classtype,classtemp);
61.     
62.     return _pz_get_value(classtype);
63. end;

4.进行类测试的代码

1. --=============================类测试============================
2. base_type=class("type1")        -- 定义一个基类 base_type
4. base_type.x = 0;
5.  
6. function base_type:ctor(self)   -- 定义 base_type 的构造函数
7.     print("base_type ctor")
8.     self.x = 55;
9. end
11. --base_type.ctor = function(x)
12. --  print("base_type ctor")
13. --  self.x=x
14. --end
15. function base_type:set_x(self, x)
16.     self.x = x;
17. end;
18. function base_type:print_x(self)    -- 定义一个成员函数 base_type:print_x
19.     print(self.x)
20. end
21.  
22. function base_type:hello()  -- 定义另一个成员函数 base_type:hello
23.     print("hello base_type")
24. end
26. test=class("type2", base_type)  -- 定义一个类 test 继承于 base_type
27.  
28. function test:ctor(self)    -- 定义 test 的构造函数
29.     print("test ctor")
30. end
31.  
32. function test:hello()   -- 重载 base_type:hello 为 test:hello
33.     print("hello test")
34. end
36. a = base_type.new(a);
37. b = base_type.new(b);
38. b:set_x(b, 2);
39. --a:set_x(a, 1);
40. a:print_x(a);
41. b:print_x(b);
42. a:hello()
44. c = test.new(c);
46. c:set_x(c, 1);
47. c:print_x(c);
49. --b=test.new(1) 
50. --b:print_x()   
51. --b:hello()
52. --================以上============================

结果：
C:/Users/Administrator>f:

F:/>cd/new

F:/new>lua.exe new.lua
base_type ctor
base_type ctor
0
2
hello base_type
base_type ctor
test ctor
1

F:/new>



具体脚本文件以及lua编译器下载链接如下：
该死的csdn抽风了
http://download.csdn.net/source/822003
这个链接说我上传资源没了……orz

请大家到这里下载吧……orz
http://hanjiangtian.ys168.com/