mirror of
https://github.com/Ardour/ardour.git
synced 2025-12-07 07:14:56 +01:00
Remove old Lua development playground
This commit is contained in:
Robin Gareus
parent
7d29758ebb
commit
e7cdc91770
2 changed files with 0 additions and 599 deletions
|
|
@ -1,589 +0,0 @@
|
||||||
#include <stdint.h>
|
|
||||||
#include <cstdio>
|
|
||||||
#include <iostream>
|
|
||||||
#include <string>
|
|
||||||
#include <list>
|
|
||||||
#include <vector>
|
|
||||||
|
|
||||||
#define LIBPBD_API
|
|
||||||
#include "../../libs/pbd/pbd/reallocpool.h"
|
|
||||||
#include "../../libs/pbd/reallocpool.cc"
|
|
||||||
|
|
||||||
#include <readline/readline.h>
|
|
||||||
#include <readline/history.h>
|
|
||||||
|
|
||||||
#include "lua/luastate.h"
|
|
||||||
#include "LuaBridge/LuaBridge.h"
|
|
||||||
|
|
||||||
static void my_lua_print (std::string s) {
|
|
||||||
std::cout << s << "\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
luabridge::LuaRef::Proxy&
|
|
||||||
luabridge::LuaRef::Proxy::clone_instance (const void* classkey, void* p) {
|
|
||||||
lua_rawgeti (m_L, LUA_REGISTRYINDEX, m_tableRef);
|
|
||||||
lua_rawgeti (m_L, LUA_REGISTRYINDEX, m_keyRef);
|
|
||||||
|
|
||||||
luabridge::UserdataPtr::push_raw (m_L, p, classkey);
|
|
||||||
|
|
||||||
lua_rawset (m_L, -3);
|
|
||||||
lua_pop (m_L, 1);
|
|
||||||
return *this;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
class A {
|
|
||||||
public:
|
|
||||||
A() { printf ("CTOR %p\n", this); _int = 4; for (int i = 0; i < 256; ++i) {arr[i] = i; ar2[i] = i/256.0; ar3[i] = i;} }
|
|
||||||
~A() { printf ("DTOR\n"); }
|
|
||||||
|
|
||||||
void set_int (int a) { _int = a; }
|
|
||||||
int get_int () const { return _int; }
|
|
||||||
|
|
||||||
int& get_ref () { return _int; }
|
|
||||||
int get_arg (int &a) { printf ("a = %d\n", a); a = _int; printf ("a = %d\n", a); return 1; }
|
|
||||||
void get_arg2 (int &a, int& b) { a = _int; b = 100; }
|
|
||||||
void get_args (std::string &a) { a = "hello"; }
|
|
||||||
void set_ref (int const &a) { _int = a; }
|
|
||||||
|
|
||||||
float * get_arr () { return arr; }
|
|
||||||
float * get_ar2 () { return ar2; }
|
|
||||||
int * get_ar3 () { return ar3; }
|
|
||||||
|
|
||||||
void set_list (std::list<std::string> sl) { _sl = sl; }
|
|
||||||
std::list<std::string>& get_list () { return _sl; }
|
|
||||||
|
|
||||||
uint32_t minone() { return -1; }
|
|
||||||
void pointer (float*f) const { printf ("PTR %p", f); }
|
|
||||||
|
|
||||||
enum EN {
|
|
||||||
RV1 = 1, RV2, RV3
|
|
||||||
};
|
|
||||||
|
|
||||||
enum EN ret_enum () { return _en;}
|
|
||||||
void set_enum (enum EN en) { _en = en; }
|
|
||||||
|
|
||||||
private:
|
|
||||||
std::list<std::string> _sl;
|
|
||||||
int _int;
|
|
||||||
enum EN _en;
|
|
||||||
float arr[256];
|
|
||||||
float ar2[256];
|
|
||||||
int ar3[256];
|
|
||||||
};
|
|
||||||
|
|
||||||
|
|
||||||
class LuaTableRef {
|
|
||||||
public:
|
|
||||||
LuaTableRef () {}
|
|
||||||
~LuaTableRef () {}
|
|
||||||
|
|
||||||
int get (lua_State* L) {
|
|
||||||
luabridge::LuaRef rv (luabridge::newTable (L));
|
|
||||||
for (std::vector<LuaTableEntry>::const_iterator i = _data.begin (); i != _data.end (); ++i) {
|
|
||||||
switch ((*i).keytype) {
|
|
||||||
case LUA_TSTRING:
|
|
||||||
assign(&rv, i->k_s, *i);
|
|
||||||
break;
|
|
||||||
case LUA_TNUMBER:
|
|
||||||
assign(&rv, i->k_n, *i);
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
luabridge::push (L, rv);
|
|
||||||
return 1;
|
|
||||||
}
|
|
||||||
|
|
||||||
int set (lua_State* L) {
|
|
||||||
if (!lua_istable (L, -1)) { return luaL_error (L, "argument is not a table"); }
|
|
||||||
_data.clear ();
|
|
||||||
|
|
||||||
lua_pushvalue (L, -1);
|
|
||||||
lua_pushnil (L);
|
|
||||||
while (lua_next (L, -2)) {
|
|
||||||
lua_pushvalue (L, -2);
|
|
||||||
|
|
||||||
LuaTableEntry s (lua_type(L, -1), lua_type(L, -2));
|
|
||||||
switch (lua_type(L, -1)) {
|
|
||||||
case LUA_TSTRING:
|
|
||||||
s.k_s = luabridge::Stack<std::string>::get (L, -1);
|
|
||||||
break;
|
|
||||||
;
|
|
||||||
case LUA_TNUMBER:
|
|
||||||
s.k_n = luabridge::Stack<unsigned int>::get (L, -1);
|
|
||||||
break;
|
|
||||||
default:
|
|
||||||
// invalid key
|
|
||||||
lua_pop (L, 2);
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
|
|
||||||
switch(lua_type(L, -2)) {
|
|
||||||
case LUA_TSTRING:
|
|
||||||
s.s = luabridge::Stack<std::string>::get (L, -2);
|
|
||||||
break;
|
|
||||||
case LUA_TBOOLEAN:
|
|
||||||
s.b = lua_toboolean (L, -2);
|
|
||||||
break;
|
|
||||||
case LUA_TNUMBER:
|
|
||||||
s.n = lua_tonumber (L, -2);
|
|
||||||
break;
|
|
||||||
case LUA_TUSERDATA:
|
|
||||||
{
|
|
||||||
bool ok = false;
|
|
||||||
lua_getmetatable (L, -2);
|
|
||||||
lua_rawgetp (L, -1, luabridge::getIdentityKey ());
|
|
||||||
if (lua_isboolean (L, -1)) {
|
|
||||||
lua_pop (L, 1);
|
|
||||||
const void* key = lua_topointer (L, -1);
|
|
||||||
lua_pop (L, 1);
|
|
||||||
void const* classkey = findclasskey (L, key);
|
|
||||||
|
|
||||||
if (classkey) {
|
|
||||||
ok = true;
|
|
||||||
s.c = classkey;
|
|
||||||
s.p = luabridge::Userdata::get_ptr (L, -2);
|
|
||||||
}
|
|
||||||
} else {
|
|
||||||
lua_pop (L, 2);
|
|
||||||
}
|
|
||||||
|
|
||||||
if (ok) {
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
// invalid userdata -- fall through
|
|
||||||
}
|
|
||||||
|
|
||||||
/* fallthrough */
|
|
||||||
case LUA_TFUNCTION: // no support -- we could... string.format("%q", string.dump(value, true))
|
|
||||||
case LUA_TTABLE: // no nested tables, sorry.
|
|
||||||
case LUA_TNIL:
|
|
||||||
/* fallthrough */
|
|
||||||
default:
|
|
||||||
// invalid value
|
|
||||||
lua_pop (L, 2);
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
|
|
||||||
_data.push_back(s);
|
|
||||||
lua_pop (L, 2);
|
|
||||||
}
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
static void* findclasskey (lua_State *L, const void* key)
|
|
||||||
{
|
|
||||||
lua_pushvalue(L, LUA_REGISTRYINDEX);
|
|
||||||
lua_pushnil (L);
|
|
||||||
while (lua_next (L, -2)) {
|
|
||||||
lua_pushvalue (L, -2);
|
|
||||||
if (lua_topointer(L, -2) == key) {
|
|
||||||
void* rv = lua_touserdata (L, -1);
|
|
||||||
lua_pop (L, 4);
|
|
||||||
return rv;
|
|
||||||
}
|
|
||||||
lua_pop (L, 2);
|
|
||||||
}
|
|
||||||
lua_pop (L, 1);
|
|
||||||
return NULL;
|
|
||||||
}
|
|
||||||
|
|
||||||
private:
|
|
||||||
struct LuaTableEntry {
|
|
||||||
LuaTableEntry (int kt, int vt)
|
|
||||||
: keytype (kt)
|
|
||||||
, valuetype (vt)
|
|
||||||
{ }
|
|
||||||
|
|
||||||
int keytype;
|
|
||||||
std::string k_s;
|
|
||||||
unsigned int k_n;
|
|
||||||
|
|
||||||
int valuetype;
|
|
||||||
// LUA_TUSERDATA
|
|
||||||
const void* c;
|
|
||||||
void* p;
|
|
||||||
// LUA_TBOOLEAN
|
|
||||||
bool b;
|
|
||||||
// LUA_TSTRING:
|
|
||||||
std::string s;
|
|
||||||
// LUA_TNUMBER:
|
|
||||||
double n;
|
|
||||||
};
|
|
||||||
|
|
||||||
template<typename T>
|
|
||||||
static void assign (luabridge::LuaRef* rv, T key, const LuaTableEntry& s)
|
|
||||||
{
|
|
||||||
switch (s.valuetype) {
|
|
||||||
case LUA_TSTRING:
|
|
||||||
(*rv)[key] = s.s;
|
|
||||||
break;
|
|
||||||
case LUA_TBOOLEAN:
|
|
||||||
(*rv)[key] = s.b;
|
|
||||||
break;
|
|
||||||
case LUA_TNUMBER:
|
|
||||||
(*rv)[key] = s.n;
|
|
||||||
break;
|
|
||||||
case LUA_TUSERDATA:
|
|
||||||
(*rv)[key].clone_instance (s.c, s.p);
|
|
||||||
break;
|
|
||||||
default:
|
|
||||||
assert (0);
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
std::vector<LuaTableEntry> _data;
|
|
||||||
};
|
|
||||||
|
|
||||||
|
|
||||||
#if 0
|
|
||||||
static void* findclasskey (lua_State *L, const void* key)
|
|
||||||
{
|
|
||||||
lua_pushvalue(L, LUA_REGISTRYINDEX);
|
|
||||||
lua_pushnil (L);
|
|
||||||
while (lua_next (L, -2)) {
|
|
||||||
lua_pushvalue (L, -2);
|
|
||||||
if (lua_topointer(L, -2) == key) {
|
|
||||||
void* rv = lua_touserdata (L, -1);
|
|
||||||
lua_pop (L, 4);
|
|
||||||
return rv;
|
|
||||||
}
|
|
||||||
lua_pop (L, 2);
|
|
||||||
}
|
|
||||||
lua_pop (L, 1);
|
|
||||||
return NULL;
|
|
||||||
}
|
|
||||||
|
|
||||||
static int tableSerialize (lua_State *L)
|
|
||||||
{
|
|
||||||
if (!lua_istable (L, -1)) { return luaL_error (L, "argument is not a table"); }
|
|
||||||
|
|
||||||
luabridge::LuaRef rv (luabridge::newTable (L));
|
|
||||||
std::cout << "CLASS A KEY: " << luabridge::ClassInfo <A>::getClassKey () << "\n";
|
|
||||||
lua_rawgetp (L, LUA_REGISTRYINDEX, luabridge::ClassInfo <A>::getClassKey ());
|
|
||||||
std::cout << " CLASS A TABLE PTR=" << lua_topointer (L, -1) << "\n";
|
|
||||||
lua_pop (L, 1);
|
|
||||||
// for k,v in pairs (debug.getregistry ()) do print (k,v) end
|
|
||||||
|
|
||||||
lua_pushvalue (L, -1);
|
|
||||||
lua_pushnil (L);
|
|
||||||
while (lua_next (L, -2)) {
|
|
||||||
lua_pushvalue (L, -2);
|
|
||||||
unsigned int const i = luabridge::Stack<unsigned int>::get (L, -1);
|
|
||||||
int t = lua_type(L, -2);
|
|
||||||
switch(t) {
|
|
||||||
case LUA_TSTRING:
|
|
||||||
std::cout << " " << i << ": '" << lua_tostring(L, -2) << "'\n";
|
|
||||||
rv[i] = lua_tostring(L, -2);
|
|
||||||
break;
|
|
||||||
case LUA_TBOOLEAN:
|
|
||||||
std::cout << " " << i << ": " <<
|
|
||||||
(lua_toboolean(L, -2) ? "true" : "false") << "\n";
|
|
||||||
rv[i] = lua_toboolean(L, -2);
|
|
||||||
break;
|
|
||||||
case LUA_TNUMBER:
|
|
||||||
std::cout << " " << i << ": " << lua_tonumber(L, -2) << "\n";
|
|
||||||
rv[i] = lua_tonumber(L, -2);
|
|
||||||
break;
|
|
||||||
case LUA_TUSERDATA:
|
|
||||||
{
|
|
||||||
lua_getmetatable (L, -2);
|
|
||||||
lua_rawgetp (L, -1, luabridge::getIdentityKey ());
|
|
||||||
if (lua_isboolean (L, -1)) {
|
|
||||||
lua_pop (L, 1);
|
|
||||||
const void* key = lua_topointer (L, -1);
|
|
||||||
lua_pop (L, 1);
|
|
||||||
void const* classkey = findclasskey (L, key);
|
|
||||||
|
|
||||||
if (classkey) {
|
|
||||||
void* p = luabridge::Userdata::get_ptr (L, -2);
|
|
||||||
rv[i].clone_instance (classkey, p);
|
|
||||||
}
|
|
||||||
} else {
|
|
||||||
lua_pop (L, 2);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
case LUA_TNIL:
|
|
||||||
case LUA_TTABLE:
|
|
||||||
case LUA_TFUNCTION:
|
|
||||||
case LUA_TLIGHTUSERDATA:
|
|
||||||
default:
|
|
||||||
std::cout << " " << i << ": TYPE=" << t << ": " << lua_topointer(L, -2)<< "\n";
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
lua_pop (L, 2);
|
|
||||||
}
|
|
||||||
lua_pop (L, 1);
|
|
||||||
lua_pop (L, 2);
|
|
||||||
|
|
||||||
luabridge::push (L, rv);
|
|
||||||
return 1;
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
LuaTableRef globalref;
|
|
||||||
|
|
||||||
int runone (LuaState& lua)
|
|
||||||
{
|
|
||||||
#if 0
|
|
||||||
LuaState lua (*new LuaState);
|
|
||||||
#elif 0
|
|
||||||
PBD::ReallocPool _mempool ("Devel", 1048576);
|
|
||||||
LuaState lua (lua_newstate (&PBD::ReallocPool::lalloc, &_mempool));
|
|
||||||
#endif
|
|
||||||
lua.Print.connect (&my_lua_print);
|
|
||||||
lua_State* L = lua.getState();
|
|
||||||
|
|
||||||
|
|
||||||
#if 1
|
|
||||||
luabridge::getGlobalNamespace (L)
|
|
||||||
.beginNamespace ("Test")
|
|
||||||
.beginStdList <std::string> ("StringList")
|
|
||||||
.endClass ()
|
|
||||||
.endNamespace ();
|
|
||||||
|
|
||||||
luabridge::getGlobalNamespace (L)
|
|
||||||
.beginNamespace ("Test")
|
|
||||||
.beginStdVector <std::string> ("StringVector")
|
|
||||||
.endClass ()
|
|
||||||
.endNamespace ();
|
|
||||||
|
|
||||||
luabridge::getGlobalNamespace (L)
|
|
||||||
.beginNamespace ("Test")
|
|
||||||
.beginStdMap <std::string,std::string> ("StringStringMap")
|
|
||||||
.endClass ()
|
|
||||||
.endNamespace ();
|
|
||||||
|
|
||||||
luabridge::getGlobalNamespace (L)
|
|
||||||
.beginNamespace ("Test")
|
|
||||||
.beginStdSet <std::string> ("StringSet")
|
|
||||||
.endClass ()
|
|
||||||
.endNamespace ();
|
|
||||||
|
|
||||||
|
|
||||||
luabridge::getGlobalNamespace (L)
|
|
||||||
.beginNamespace ("Test")
|
|
||||||
.registerArray <float> ("FloatArray")
|
|
||||||
.registerArray <int> ("IntArray")
|
|
||||||
.beginClass <A> ("A")
|
|
||||||
.addConstructor <void (*) ()> ()
|
|
||||||
.addFunction ("set_int", &A::set_int)
|
|
||||||
.addFunction ("get_int", &A::get_int)
|
|
||||||
.addRefFunction ("get_arg", &A::get_arg)
|
|
||||||
.addRefFunction ("get_arg2", &A::get_arg2)
|
|
||||||
.addRefFunction ("get_args", &A::get_args)
|
|
||||||
.addFunction ("set_ref", &A::set_ref)
|
|
||||||
.addFunction ("get_list", &A::get_list)
|
|
||||||
.addFunction ("set_list", &A::set_list)
|
|
||||||
.addFunction ("ret_enum", &A::ret_enum)
|
|
||||||
.addFunction ("set_enum", &A::set_enum)
|
|
||||||
.addFunction ("get_arr", &A::get_arr)
|
|
||||||
.addFunction ("get_ar2", &A::get_ar2)
|
|
||||||
.addFunction ("get_ar3", &A::get_ar3)
|
|
||||||
.endClass ()
|
|
||||||
.endNamespace ();
|
|
||||||
|
|
||||||
luabridge::getGlobalNamespace (L)
|
|
||||||
.beginNamespace ("Test")
|
|
||||||
.beginClass <A> ("A")
|
|
||||||
.addFunction ("pointer", &A::pointer)
|
|
||||||
.addFunction ("minone", &A::minone)
|
|
||||||
.addConst ("cologne", 4711)
|
|
||||||
.endClass ()
|
|
||||||
.addConst ("koln", 4711)
|
|
||||||
.endNamespace ();
|
|
||||||
#endif
|
|
||||||
luabridge::getGlobalNamespace (L)
|
|
||||||
.beginNamespace ("Dump")
|
|
||||||
|
|
||||||
.beginClass <LuaTableRef> ("TableRef")
|
|
||||||
.addCFunction ("get", &LuaTableRef::get)
|
|
||||||
.addCFunction ("set", &LuaTableRef::set)
|
|
||||||
.endClass ()
|
|
||||||
|
|
||||||
//.addCFunction ("dump", tableSerialize)
|
|
||||||
.endNamespace ();
|
|
||||||
|
|
||||||
luabridge::push <LuaTableRef *> (L, &globalref);
|
|
||||||
lua_setglobal (L, "ref");
|
|
||||||
|
|
||||||
|
|
||||||
#if 0 // session script test
|
|
||||||
lua.do_command (
|
|
||||||
"function ArdourSession ()"
|
|
||||||
" local self = { scripts = {}, instances = {} }"
|
|
||||||
""
|
|
||||||
" local foreach = function (fn)"
|
|
||||||
" for n, s in pairs (self.scripts) do"
|
|
||||||
" fn (n, s)"
|
|
||||||
" end"
|
|
||||||
" end"
|
|
||||||
""
|
|
||||||
" local run = function ()"
|
|
||||||
" for n, s in pairs (self.instances) do"
|
|
||||||
" local status, err = pcall (s)"
|
|
||||||
" if not status then print ('fn \"'.. n .. '\": ', err) end"
|
|
||||||
" end"
|
|
||||||
" collectgarbage()"
|
|
||||||
" end"
|
|
||||||
""
|
|
||||||
" local add = function (n, f, a)"
|
|
||||||
" assert(type(n) == 'string', 'function-name must be string')"
|
|
||||||
" assert(type(f) == 'function', 'Given script is a not a function')"
|
|
||||||
" assert(type(a) == 'table' or type(a) == 'nil', 'Given argument is invalid')"
|
|
||||||
" assert(self.scripts[n] == nil, 'Callback \"'.. n ..'\" already exists.')"
|
|
||||||
" self.scripts[n] = { ['f'] = f, ['a'] = a }"
|
|
||||||
" local env = { print = print, Session = Session, tostring = tostring, assert = assert, ipairs = ipairs, error = error, string = string, type = type, tonumber = tonumber, collectgarbage = collectgarbage, pairs = pairs, math = math, table = table, pcall = pcall }"
|
|
||||||
" self.instances[n] = load (string.dump(f), nil, nil, env)(a)"
|
|
||||||
" end"
|
|
||||||
""
|
|
||||||
" local remove = function (n)"
|
|
||||||
" self.scripts[n] = nil"
|
|
||||||
" end"
|
|
||||||
""
|
|
||||||
" local list = function ()"
|
|
||||||
" local rv = {}"
|
|
||||||
" foreach (function (n) rv[n] = true end)"
|
|
||||||
" return rv"
|
|
||||||
" end"
|
|
||||||
""
|
|
||||||
" local function basic_serialize (o)"
|
|
||||||
" if type(o) == \"number\" then"
|
|
||||||
" return tostring(o)"
|
|
||||||
" else"
|
|
||||||
" return string.format(\"%q\", o)"
|
|
||||||
" end"
|
|
||||||
" end"
|
|
||||||
""
|
|
||||||
" local function serialize (name, value)"
|
|
||||||
" local rv = name .. ' = '"
|
|
||||||
" if type(value) == \"number\" or type(value) == \"string\" or type(value) == \"nil\" then"
|
|
||||||
" return rv .. basic_serialize(value) .. ' '"
|
|
||||||
" elseif type(value) == \"table\" then"
|
|
||||||
" rv = rv .. '{} '"
|
|
||||||
" for k,v in pairs(value) do"
|
|
||||||
" local fieldname = string.format(\"%s[%s]\", name, basic_serialize(k))"
|
|
||||||
" rv = rv .. serialize(fieldname, v) .. ' '"
|
|
||||||
" end"
|
|
||||||
" return rv;"
|
|
||||||
" elseif type(value) == \"function\" then"
|
|
||||||
" return rv .. string.format(\"%q\", string.dump(value))"
|
|
||||||
" else"
|
|
||||||
" error('cannot save a ' .. type(value))"
|
|
||||||
" end"
|
|
||||||
" end"
|
|
||||||
""
|
|
||||||
""
|
|
||||||
" local save = function ()"
|
|
||||||
" return (serialize('scripts', self.scripts))"
|
|
||||||
" end"
|
|
||||||
""
|
|
||||||
" local restore = function (state)"
|
|
||||||
" self.scripts = {}"
|
|
||||||
" load (state)()"
|
|
||||||
" print (scripts)"
|
|
||||||
" for n, s in pairs (scripts) do"
|
|
||||||
" add (n, load(s['f']), s['a'])"
|
|
||||||
" end"
|
|
||||||
" end"
|
|
||||||
""
|
|
||||||
" return { run = run, add = add, remove = remove,"
|
|
||||||
" list = list, foreach = foreach,"
|
|
||||||
" restore = restore, save = save}"
|
|
||||||
" end"
|
|
||||||
" "
|
|
||||||
" sess = ArdourSession ()"
|
|
||||||
" ArdourSession = nil"
|
|
||||||
);
|
|
||||||
|
|
||||||
luabridge::LuaRef *lua_run;
|
|
||||||
luabridge::LuaRef *lua_add;
|
|
||||||
luabridge::LuaRef *lua_del;
|
|
||||||
luabridge::LuaRef *lua_save;
|
|
||||||
luabridge::LuaRef *lua_load;
|
|
||||||
{
|
|
||||||
luabridge::LuaRef lua_sess = luabridge::getGlobal (L, "sess");
|
|
||||||
lua.do_command ("sess = nil"); // hide it.
|
|
||||||
lua.do_command ("collectgarbage()");
|
|
||||||
|
|
||||||
lua_run = new luabridge::LuaRef(lua_sess["run"]);
|
|
||||||
lua_add = new luabridge::LuaRef(lua_sess["add"]);
|
|
||||||
lua_del = new luabridge::LuaRef(lua_sess["remove"]);
|
|
||||||
lua_save = new luabridge::LuaRef(lua_sess["save"]);
|
|
||||||
lua_load = new luabridge::LuaRef(lua_sess["restore"]);
|
|
||||||
}
|
|
||||||
lua.do_command ("collectgarbage()");
|
|
||||||
|
|
||||||
#if 1
|
|
||||||
lua.do_command ("function factory (t) return function () local p = t or { } local a = t[1] or 'Nibor' print ('Hello ' .. a) end end");
|
|
||||||
luabridge::LuaRef lua_fact = luabridge::getGlobal (L, "factory");
|
|
||||||
luabridge::LuaRef tbl_arg (luabridge::newTable(L));
|
|
||||||
//tbl_arg[1] = "Robin";
|
|
||||||
(*lua_add)("t2", lua_fact, tbl_arg);
|
|
||||||
#else
|
|
||||||
lua.do_command ("function factory (t) return function () print ('Boo') end end");
|
|
||||||
luabridge::LuaRef lua_fact = luabridge::getGlobal (L, "factory");
|
|
||||||
(*lua_add)("t2", lua_fact());
|
|
||||||
#endif
|
|
||||||
|
|
||||||
lua.do_command ("function factory (t) return function () print ('Ahoy') end end");
|
|
||||||
luabridge::LuaRef lua_fact2 = luabridge::getGlobal (L, "factory");
|
|
||||||
(*lua_add)("t1", lua_fact2);
|
|
||||||
|
|
||||||
luabridge::LuaRef savedstate ((*lua_save)());
|
|
||||||
std::string saved = savedstate.cast<std::string>();
|
|
||||||
|
|
||||||
(*lua_del)("t2");
|
|
||||||
|
|
||||||
try {
|
|
||||||
(*lua_run)();
|
|
||||||
} catch (luabridge::LuaException const& e) { printf ("LuaException: %s\n", e.what ()); }
|
|
||||||
|
|
||||||
(*lua_load)(saved);
|
|
||||||
|
|
||||||
for (int i = 0; i < 2; ++i) {
|
|
||||||
lua.do_command ("collectgarbage()");
|
|
||||||
lua.collect_garbage ();
|
|
||||||
try {
|
|
||||||
(*lua_run)();
|
|
||||||
} catch (luabridge::LuaException const& e) { printf ("LuaException: %s\n", e.what ()); }
|
|
||||||
}
|
|
||||||
|
|
||||||
#endif
|
|
||||||
|
|
||||||
add_history("a = Test:A() b = 2 c = 3 d = 'a'");
|
|
||||||
add_history("x = a:get_arg(b) y = a:get_arg2(b, c) z = a:get_args(d) ");
|
|
||||||
add_history("for i,n in ipairs(y) do print (i, n); end");
|
|
||||||
add_history("t = {} t[2] = 7; t[3] = Test:A() t[4] = Test:A() ref:set (t); f = ref:get()");
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
char *line;
|
|
||||||
while ((line = readline ("> "))) {
|
|
||||||
if (!strcmp (line, "quit")) {
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
if (strlen(line) == 0) {
|
|
||||||
//lua.do_command("collectgarbage();");
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
if (!lua.do_command (line)) {
|
|
||||||
add_history(line); // OK
|
|
||||||
} else {
|
|
||||||
add_history(line); // :)
|
|
||||||
}
|
|
||||||
}
|
|
||||||
printf("\n");
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
int main (int argc, char **argv)
|
|
||||||
{
|
|
||||||
LuaState lua1;
|
|
||||||
LuaState lua2;
|
|
||||||
runone (lua1);
|
|
||||||
printf ("=====\n");
|
|
||||||
runone (lua2);
|
|
||||||
}
|
|
||||||
|
|
@ -34,16 +34,6 @@ def build(bld):
|
||||||
if bld.is_defined('WINDOWS_VST_SUPPORT') and bld.env['build_target'] != 'mingw':
|
if bld.is_defined('WINDOWS_VST_SUPPORT') and bld.env['build_target'] != 'mingw':
|
||||||
return
|
return
|
||||||
|
|
||||||
if bld.env['build_target'] != 'mingw':
|
|
||||||
# TEST/DEVEL TOOL #######################
|
|
||||||
obj = bld (features = 'cxx c cxxprogram')
|
|
||||||
obj.source = 'devel.cc'
|
|
||||||
obj.target = 'devel'
|
|
||||||
obj.uselib = ['SIGCPP', 'READLINE']
|
|
||||||
obj.use = ['liblua']
|
|
||||||
obj.install_path = None
|
|
||||||
#########################################
|
|
||||||
|
|
||||||
# commandline luasession wrapper script
|
# commandline luasession wrapper script
|
||||||
if bld.env['build_target'] != 'mingw':
|
if bld.env['build_target'] != 'mingw':
|
||||||
obj = bld(features = 'subst')
|
obj = bld(features = 'subst')
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue