| 214 | } |
| 215 | |
| 216 | int vl_initvectorlib(lua_State *L) |
| 217 | { |
| 218 | g_vectortag=lua_newtype(L,"vector",LUA_TUSERDATA); |
| 219 | |
| 220 | lua_pushcclosure(L,vector_set, 0); |
| 221 | lua_settagmethod(L, g_vectortag, "settable"); |
| 222 | lua_pushcclosure(L,vector_get, 0); |
| 223 | lua_settagmethod(L, g_vectortag, "gettable"); |
| 224 | lua_pushcclosure(L,vector_mul, 0); |
| 225 | lua_settagmethod(L, g_vectortag, "mul"); |
| 226 | lua_pushcclosure(L,vector_div, 0); |
| 227 | lua_settagmethod(L, g_vectortag, "div"); |
| 228 | lua_pushcclosure(L,vector_add, 0); |
| 229 | lua_settagmethod(L, g_vectortag, "add"); |
| 230 | lua_pushcclosure(L,vector_sub, 0); |
| 231 | lua_settagmethod(L, g_vectortag, "sub"); |
| 232 | lua_pushcclosure(L,vector_unm, 0); |
| 233 | lua_settagmethod(L, g_vectortag, "unm"); |
| 234 | lua_pushcclosure(L,vector_pow, 0); |
| 235 | lua_settagmethod(L, g_vectortag, "pow"); |
| 236 | lua_pushcclosure(L,vl_newvector, 0); |
| 237 | lua_setglobal(L,"vector"); |
| 238 | return 0; |
| 239 | } |
| 240 |
no test coverage detected