editing.lua

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
classes_editable = setmetatable({}, {__mode = "v", __index = function (t, k) return GetEditableClass(k) or {}; end, __newindex = function (t, k, v) return SaveEditableClass(k, v); end });
moobox = moobox or {};

--Load it from file
function GetEditableClass(name)
	local subenv = { classes = { } }
	local classdefinition = loadfile("objects/"..param..".lua");
	setfenv(classdefinition, subenv);
	local success, message = pcall(classdefinition);
	if not success then return message or "Unkown error reading class"
	else return subenv.class; end
end

--Save it to file
function SaveEditableClass(name, t)
	function writetable(filename, t)
		local f = io.open(filename, "w+");
		if not f then return nil; end
		for k, v in pairs(t) do
			if type(v) == "string" then
				f:write(string.format("class[\"%s\"] = \"%s\";\n", k, v));
			end
		end
	end
	
	local success, message = pcall(writetable, string.format("editor/%s.dat", name), t);
	if not success then return message; end
	return nil;
end

--Compile (and the compiled class goes to classes[name]
function CompileEditableClass(t)
	if not t then return "Error compiling... no (or invalid) class specified"; end
	local compiled = {};
	for k, v in pairs(t) do
		local success, compiledverb = pcall(loadstring, v);
		if not success then return "Error compiling verb '"..k.."': "..(compiledverb or "Unkown error"); end
		compiled[k] = (compiledverb and setfenv(compiledverb, verbbox)) or nil;
	end
	return compiled;
end