2 * Copyright (C) 2012 Toni Gundogdu <legatvs@gmail.com>
4 * This file is part of libquvi <http://quvi.sourceforge.net/>.
6 * This library is free software: you can redistribute it and/or
7 * modify it under the terms of the GNU Affero General Public
8 * License as published by the Free Software Foundation, either
9 * version 3 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU Affero General Public License for more details.
16 * You should have received a copy of the GNU Affero General
17 * Public License along with this library. If not, see
18 * <http://www.gnu.org/licenses/>.
30 /* Append a new path to the "package.path" string. */
31 void l_modify_pkgpath(_quvi_t q
, const gchar
*path
)
33 lua_State
*l
= q
->handle
.lua
;
35 lua_getglobal(l
, "package");
36 lua_getfield(l
, -1, "path");
38 GString
*s
= g_string_new(lua_tostring(l
, -1));
39 g_string_append_printf(s
, ";%s/?.lua", path
);
42 lua_pushstring(l
, s
->str
);
43 lua_setfield(l
, -2, "path");
46 g_string_free(s
, TRUE
);
51 /* vim: set ts=2 sw=2 tw=72 expandtab: */