Planet
navi homePPSaboutscreenshotsdownloaddevelopmentforum

source: code/branches/netp6/src/tolua/tolua_push.c @ 3382

Last change on this file since 3382 was 2710, checked in by rgrieder, 16 years ago

Merged buildsystem3 containing buildsystem2 containing Adi's buildsystem branch back to the trunk.
Please update the media directory if you were not using buildsystem3 before.

  • Property svn:eol-style set to native
File size: 4.7 KB
Line 
1/* tolua: functions to push C values.
2** Support code for Lua bindings.
3** Written by Waldemar Celes
4** TeCGraf/PUC-Rio
5** Apr 2003
6** $Id: $
7*/
8
9/* This code is free software; you can redistribute it and/or modify it.
10** The software provided hereunder is on an "as is" basis, and
11** the author has no obligation to provide maintenance, support, updates,
12** enhancements, or modifications.
13*/
14
15#include "tolua++.h"
16#include "lauxlib.h"
17
18#include <stdlib.h>
19
20TOLUA_API void tolua_pushvalue (lua_State* L, int lo)
21{
22 lua_pushvalue(L,lo);
23}
24
25TOLUA_API void tolua_pushboolean (lua_State* L, int value)
26{
27 lua_pushboolean(L,value);
28}
29
30TOLUA_API void tolua_pushnumber (lua_State* L, double value)
31{
32 lua_pushnumber(L,value);
33}
34
35TOLUA_API void tolua_pushstring (lua_State* L, const char* value)
36{
37 if (value == NULL)
38  lua_pushnil(L);
39 else
40  lua_pushstring(L,value);
41}
42
43TOLUA_API void tolua_pushuserdata (lua_State* L, void* value)
44{
45 if (value == NULL)
46  lua_pushnil(L);
47 else
48  lua_pushlightuserdata(L,value);
49}
50
51TOLUA_API void tolua_pushusertype (lua_State* L, void* value, const char* type)
52{
53 if (value == NULL)
54  lua_pushnil(L);
55 else
56 {
57  luaL_getmetatable(L, type);
58  lua_pushstring(L,"tolua_ubox");
59  lua_rawget(L,-2);        /* stack: mt ubox */
60  if (lua_isnil(L, -1)) {
61          lua_pop(L, 1);
62          lua_pushstring(L, "tolua_ubox");
63          lua_rawget(L, LUA_REGISTRYINDEX);
64  };
65  lua_pushlightuserdata(L,value);
66  lua_rawget(L,-2);                       /* stack: mt ubox ubox[u] */
67  if (lua_isnil(L,-1))
68  {
69   lua_pop(L,1);                          /* stack: mt ubox */
70   lua_pushlightuserdata(L,value);
71   *(void**)lua_newuserdata(L,sizeof(void *)) = value;   /* stack: mt ubox u newud */
72   lua_pushvalue(L,-1);                   /* stack: mt ubox u newud newud */
73   lua_insert(L,-4);                      /* stack: mt newud ubox u newud */
74   lua_rawset(L,-3);                      /* stack: mt newud ubox */
75   lua_pop(L,1);                          /* stack: mt newud */
76   /*luaL_getmetatable(L,type);*/
77   lua_pushvalue(L, -2);                        /* stack: mt newud mt */
78   lua_setmetatable(L,-2);                      /* stack: mt newud */
79
80   #ifdef LUA_VERSION_NUM
81   lua_pushvalue(L, TOLUA_NOPEER);
82   lua_setfenv(L, -2);
83   #endif
84  }
85  else
86  {
87   /* check the need of updating the metatable to a more specialized class */
88   lua_insert(L,-2);                       /* stack: mt ubox[u] ubox */
89   lua_pop(L,1);                           /* stack: mt ubox[u] */
90   lua_pushstring(L,"tolua_super");
91   lua_rawget(L,LUA_REGISTRYINDEX);        /* stack: mt ubox[u] super */
92   lua_getmetatable(L,-2);                 /* stack: mt ubox[u] super mt */
93   lua_rawget(L,-2);                       /* stack: mt ubox[u] super super[mt] */
94                        if (lua_istable(L,-1))
95                        {
96                                lua_pushstring(L,type);                 /* stack: mt ubox[u] super super[mt] type */
97                                lua_rawget(L,-2);                       /* stack: mt ubox[u] super super[mt] flag */
98                                if (lua_toboolean(L,-1) == 1)   /* if true */
99                                {
100                                        lua_pop(L,3);   /* mt ubox[u]*/
101                                        lua_remove(L, -2);
102                                        return;
103                                }
104                        }
105                        /* type represents a more specilized type */
106                        /*luaL_getmetatable(L,type);             // stack: mt ubox[u] super super[mt] flag mt */
107                        lua_pushvalue(L, -5);                                   /* stack: mt ubox[u] super super[mt] flag mt */
108                        lua_setmetatable(L,-5);                /* stack: mt ubox[u] super super[mt] flag */
109                        lua_pop(L,3);                          /* stack: mt ubox[u] */
110  }
111  lua_remove(L, -2);    /* stack: ubox[u]*/
112 }
113}
114
115TOLUA_API void tolua_pushusertype_and_takeownership (lua_State* L, void* value, const char* type)
116{
117        tolua_pushusertype(L,value,type);
118        tolua_register_gc(L,lua_gettop(L));
119}
120
121TOLUA_API void tolua_pushfieldvalue (lua_State* L, int lo, int index, int v)
122{
123 lua_pushnumber(L,index);
124 lua_pushvalue(L,v);
125 lua_settable(L,lo);
126}
127
128TOLUA_API void tolua_pushfieldboolean (lua_State* L, int lo, int index, int v)
129{
130 lua_pushnumber(L,index);
131 lua_pushboolean(L,v);
132 lua_settable(L,lo);
133}
134
135
136TOLUA_API void tolua_pushfieldnumber (lua_State* L, int lo, int index, double v)
137{
138 lua_pushnumber(L,index);
139 tolua_pushnumber(L,v);
140 lua_settable(L,lo);
141}
142
143TOLUA_API void tolua_pushfieldstring (lua_State* L, int lo, int index, const char* v)
144{
145 lua_pushnumber(L,index);
146 tolua_pushstring(L,v);
147 lua_settable(L,lo);
148}
149
150TOLUA_API void tolua_pushfielduserdata (lua_State* L, int lo, int index, void* v)
151{
152 lua_pushnumber(L,index);
153 tolua_pushuserdata(L,v);
154 lua_settable(L,lo);
155}
156
157TOLUA_API void tolua_pushfieldusertype (lua_State* L, int lo, int index, void* v, const char* type)
158{
159 lua_pushnumber(L,index);
160 tolua_pushusertype(L,v,type);
161 lua_settable(L,lo);
162}
163
164TOLUA_API void tolua_pushfieldusertype_and_takeownership (lua_State* L, int lo, int index, void* v, const char* type)
165{
166 lua_pushnumber(L,index);
167 tolua_pushusertype(L,v,type);
168        tolua_register_gc(L,lua_gettop(L));
169 lua_settable(L,lo);
170}
171
Note: See TracBrowser for help on using the repository browser.