25 lines
663 B
C
25 lines
663 B
C
/* Copyright (c), Niclas Meyer <niclas@countingsort.com>
|
|
*
|
|
* This Source Code Form is subject to the terms of the Mozilla Public
|
|
* License, v. 2.0. If a copy of the MPL was not distributed with this file,
|
|
* You can obtain one at https://mozilla.org/MPL/2.0/.
|
|
*/
|
|
|
|
#include "luak/lua_compat.h"
|
|
|
|
#include <stdlib.h>
|
|
|
|
void
|
|
luaC_setfuncs(lua_State *L, const luaL_Reg *l, int nup)
|
|
{
|
|
luaL_checkstack(L, nup, "too many upvalues");
|
|
for (; l->name; ++l) {
|
|
for (int i = 0; i < nup; ++i) {
|
|
lua_pushvalue(L, -nup);
|
|
}
|
|
lua_pushcclosure(L, l->func, nup);
|
|
lua_setfield(L, -(nup + 2), l->name);
|
|
}
|
|
lua_pop(L, nup);
|
|
}
|