Remove old Lua development playground

2 files changed, 0 insertions, 599 deletions

diff --git a/tools/luadevel/devel.cc b/tools/luadevel/devel.cc
deleted file mode 100644
index 92539881ec..0000000000
--- a/tools/luadevel/devel.cc
+++ /dev/null
@@ -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);
-}
diff --git a/tools/luadevel/wscript b/tools/luadevel/wscript
index c3c4d90aa6..6fe8aac057 100755
--- a/tools/luadevel/wscript
+++ b/tools/luadevel/wscript
@@ -34,16 +34,6 @@ def build(bld):
     if bld.is_defined('WINDOWS_VST_SUPPORT') and bld.env['build_target'] != 'mingw':
         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
     if bld.env['build_target'] != 'mingw':
         obj              = bld(features = 'subst')