Mercurial > love-experiments
annotate src/common/Reference.cpp @ 1448:108ee2e81f65 default tip
Fix a case typo, imageData.h -> ImageData.h
| author | Radomir Dopieralski <sheep-devel@sheep.art.pl> |
|---|---|
| date | Sat, 18 Jan 2014 13:57:44 +0100 |
| parents | b7f097053d74 |
| children |
| rev | line source |
|---|---|
| 1096 | 1 /** |
|
1282
b7f097053d74
Updated copyright text for the new year
Alex Szpakowski <slime73@gmail.com>
parents:
1096
diff
changeset
|
2 * Copyright (c) 2006-2013 LOVE Development Team |
| 1096 | 3 * |
| 4 * This software is provided 'as-is', without any express or implied | |
| 5 * warranty. In no event will the authors be held liable for any damages | |
| 6 * arising from the use of this software. | |
| 7 * | |
| 8 * Permission is granted to anyone to use this software for any purpose, | |
| 9 * including commercial applications, and to alter it and redistribute it | |
| 10 * freely, subject to the following restrictions: | |
| 11 * | |
| 12 * 1. The origin of this software must not be misrepresented; you must not | |
| 13 * claim that you wrote the original software. If you use this software | |
| 14 * in a product, an acknowledgment in the product documentation would be | |
| 15 * appreciated but is not required. | |
| 16 * 2. Altered source versions must be plainly marked as such, and must not be | |
| 17 * misrepresented as being the original software. | |
| 18 * 3. This notice may not be removed or altered from any source distribution. | |
| 19 **/ | |
| 20 | |
| 21 #include "Reference.h" | |
| 22 | |
| 23 namespace love | |
| 24 { | |
| 25 | |
| 26 const char REFERENCE_TABLE_NAME[] = "love-references"; | |
| 27 | |
| 28 Reference::Reference() | |
| 29 : L(0), idx(LUA_REFNIL) | |
| 30 { | |
| 31 } | |
| 32 | |
| 33 Reference::Reference(lua_State *L) | |
| 34 : L(0), idx(LUA_REFNIL) | |
| 35 { | |
| 36 ref(L); | |
| 37 } | |
| 38 | |
| 39 Reference::~Reference() | |
| 40 { | |
| 41 unref(); | |
| 42 } | |
| 43 | |
| 44 void Reference::ref(lua_State *L) | |
| 45 { | |
| 46 unref(); // Just to be safe. | |
| 47 this->L = L; | |
| 48 luax_insist(L, LUA_REGISTRYINDEX, REFERENCE_TABLE_NAME); | |
| 49 lua_insert(L, -2); // Move reference table behind value. | |
| 50 idx = luaL_ref(L, -2); | |
| 51 lua_pop(L, 1); | |
| 52 } | |
| 53 | |
| 54 void Reference::unref() | |
| 55 { | |
| 56 if (idx != LUA_REFNIL) | |
| 57 { | |
| 58 luax_insist(L, LUA_REGISTRYINDEX, REFERENCE_TABLE_NAME); | |
| 59 luaL_unref(L, -1, idx); | |
| 60 lua_pop(L, 1); | |
| 61 idx = LUA_REFNIL; | |
| 62 } | |
| 63 } | |
| 64 | |
| 65 void Reference::push() | |
| 66 { | |
| 67 if (idx != LUA_REFNIL) | |
| 68 { | |
| 69 luax_insist(L, LUA_REGISTRYINDEX, REFERENCE_TABLE_NAME); | |
| 70 lua_rawgeti(L, -1, idx); | |
| 71 lua_remove(L, -2); | |
| 72 } | |
| 73 else | |
| 74 lua_pushnil(L); | |
| 75 } | |
| 76 | |
| 77 lua_State *Reference::getL() | |
| 78 { | |
| 79 return L; | |
| 80 } | |
| 81 | |
| 82 } // love |