+// register_tool(name, {lots of stuff})
+static int l_register_tool(lua_State *L)
+{
+ const char *name = luaL_checkstring(L, 1);
+ infostream<<"register_tool: "<<name<<std::endl;
+ luaL_checktype(L, 2, LUA_TTABLE);
+ int table = 2;
+
+ // Get server from registry
+ lua_getfield(L, LUA_REGISTRYINDEX, "minetest_server");
+ Server *server = (Server*)lua_touserdata(L, -1);
+ // And get the writable tool definition manager from the server
+ IWritableToolDefManager *tooldef =
+ server->getWritableToolDefManager();
+
+ ToolDefinition def;
+
+ lua_getfield(L, table, "image");
+ if(lua_isstring(L, -1))
+ def.imagename = lua_tostring(L, -1);
+ lua_pop(L, 1);
+
+ lua_getfield(L, table, "basetime");
+ def.properties.basetime = lua_tonumber(L, -1);
+ lua_pop(L, 1);
+
+ lua_getfield(L, table, "dt_weight");
+ def.properties.dt_weight = lua_tonumber(L, -1);
+ lua_pop(L, 1);
+
+ lua_getfield(L, table, "dt_crackiness");
+ def.properties.dt_crackiness = lua_tonumber(L, -1);
+ lua_pop(L, 1);
+
+ lua_getfield(L, table, "dt_crumbliness");
+ def.properties.dt_crumbliness = lua_tonumber(L, -1);
+ lua_pop(L, 1);
+
+ lua_getfield(L, table, "dt_cuttability");
+ def.properties.dt_cuttability = lua_tonumber(L, -1);
+ lua_pop(L, 1);
+
+ lua_getfield(L, table, "basedurability");
+ def.properties.basedurability = lua_tonumber(L, -1);
+ lua_pop(L, 1);
+
+ lua_getfield(L, table, "dd_weight");
+ def.properties.dd_weight = lua_tonumber(L, -1);
+ lua_pop(L, 1);
+
+ lua_getfield(L, table, "dd_crackiness");
+ def.properties.dd_crackiness = lua_tonumber(L, -1);
+ lua_pop(L, 1);
+
+ lua_getfield(L, table, "dd_crumbliness");
+ def.properties.dd_crumbliness = lua_tonumber(L, -1);
+ lua_pop(L, 1);
+
+ lua_getfield(L, table, "dd_cuttability");
+ def.properties.dd_cuttability = lua_tonumber(L, -1);
+ lua_pop(L, 1);
+
+ tooldef->registerTool(name, def);
+ return 0; /* number of results */
+}
+
+// register_node(name, {lots of stuff})
+static int l_register_node(lua_State *L)
+{
+ const char *name = luaL_checkstring(L, 1);
+ infostream<<"register_node: "<<name<<std::endl;
+ luaL_checktype(L, 2, LUA_TTABLE);
+ int table0 = 2;
+
+ // Get server from registry
+ lua_getfield(L, LUA_REGISTRYINDEX, "minetest_server");
+ Server *server = (Server*)lua_touserdata(L, -1);
+ // And get the writable node definition manager from the server
+ IWritableNodeDefManager *nodedef =
+ server->getWritableNodeDefManager();
+
+ ContentFeatures f;
+ f.name = name;
+
+ lua_getfield(L, table0, "tile_images");
+ if(lua_istable(L, -1)){
+ int table = lua_gettop(L);
+ lua_pushnil(L);
+ int i = 0;
+ while(lua_next(L, table) != 0){
+ // key at index -2 and value at index -1
+ if(lua_isstring(L, -1))
+ f.tname_tiles[i] = lua_tostring(L, -1);
+ else
+ f.tname_tiles[i] = "";
+ // removes value, keeps key for next iteration
+ lua_pop(L, 1);
+ i++;
+ if(i==6){
+ lua_pop(L, 1);
+ break;
+ }
+ }
+ }
+ lua_pop(L, 1);
+
+ lua_getfield(L, table0, "inventory_image");
+ if(lua_isstring(L, -1))
+ f.tname_inventory = lua_tostring(L, -1);
+ lua_pop(L, 1);
+
+ // TODO: Replace with actual parameter reading
+ // Temporarily set some sane parameters to allow digging
+ f.material.diggability = DIGGABLE_NORMAL;
+ f.material.weight = 0;
+ f.material.crackiness = 0;
+ f.material.crumbliness = 0;
+ f.material.cuttability = 0;
+ f.dug_item = std::string("NodeItem \"")+name+"\" 1";
+
+ nodedef->set(name, f);
+ return 0; /* number of results */
+}
+
+// register_craft({output=item, recipe={{item00,item10},{item01,item11}})
+static int l_register_craft(lua_State *L)
+{
+ infostream<<"register_craft"<<std::endl;
+ luaL_checktype(L, 1, LUA_TTABLE);
+ int table0 = 1;
+
+ // Get server from registry
+ lua_getfield(L, LUA_REGISTRYINDEX, "minetest_server");
+ Server *server = (Server*)lua_touserdata(L, -1);
+ // And get the writable craft definition manager from the server
+ IWritableCraftDefManager *craftdef =
+ server->getWritableCraftDefManager();
+
+ std::string output;
+ int width = 0;
+ std::vector<std::string> input;
+
+ lua_getfield(L, table0, "output");
+ luaL_checktype(L, -1, LUA_TSTRING);
+ if(lua_isstring(L, -1))
+ output = lua_tostring(L, -1);
+ lua_pop(L, 1);
+
+ lua_getfield(L, table0, "recipe");
+ luaL_checktype(L, -1, LUA_TTABLE);
+ if(lua_istable(L, -1)){
+ int table1 = lua_gettop(L);
+ lua_pushnil(L);
+ int rowcount = 0;
+ while(lua_next(L, table1) != 0){
+ int colcount = 0;
+ // key at index -2 and value at index -1
+ luaL_checktype(L, -1, LUA_TTABLE);
+ if(lua_istable(L, -1)){
+ int table2 = lua_gettop(L);
+ lua_pushnil(L);
+ while(lua_next(L, table2) != 0){
+ // key at index -2 and value at index -1
+ luaL_checktype(L, -1, LUA_TSTRING);
+ input.push_back(lua_tostring(L, -1));
+ // removes value, keeps key for next iteration
+ lua_pop(L, 1);
+ colcount++;
+ }
+ }
+ if(rowcount == 0){
+ width = colcount;
+ } else {
+ if(colcount != width){
+ script_error(L, "error: %s\n", "Invalid crafting recipe");
+ }
+ }
+ // removes value, keeps key for next iteration
+ lua_pop(L, 1);
+ rowcount++;
+ }
+ }
+ lua_pop(L, 1);
+
+ CraftDefinition def(output, width, input);
+ craftdef->registerCraft(def);
+
+ return 0; /* number of results */
+}
+
+// Register a global step function
+// register_globalstep(function)
+static int l_register_globalstep(lua_State *L)
+{
+ luaL_checktype(L, 1, LUA_TFUNCTION);
+ infostream<<"register_globalstep"<<std::endl;
+
+ lua_getglobal(L, "table");
+ lua_getfield(L, -1, "insert");
+ int table_insert = lua_gettop(L);
+ // Get minetest.registered_globalsteps
+ lua_getglobal(L, "minetest");
+ lua_getfield(L, -1, "registered_globalsteps");
+ luaL_checktype(L, -1, LUA_TTABLE);
+ int registered_globalsteps = lua_gettop(L);
+ // table.insert(registered_globalsteps, func)
+ lua_pushvalue(L, table_insert);
+ lua_pushvalue(L, registered_globalsteps);
+ lua_pushvalue(L, 1); // push function from argument 1
+ // Call insert
+ if(lua_pcall(L, 2, 0, 0))
+ script_error(L, "error: %s\n", lua_tostring(L, -1));
+
+ return 0; /* number of results */
+}
+
+// register_on_placenode(function)
+static int l_register_on_placenode(lua_State *L)
+{
+ luaL_checktype(L, 1, LUA_TFUNCTION);
+ infostream<<"register_on_placenode"<<std::endl;
+
+ lua_getglobal(L, "table");
+ lua_getfield(L, -1, "insert");
+ int table_insert = lua_gettop(L);
+ // Get minetest.registered_on_placenodes
+ lua_getglobal(L, "minetest");
+ lua_getfield(L, -1, "registered_on_placenodes");
+ luaL_checktype(L, -1, LUA_TTABLE);
+ int registered_on_placenodes = lua_gettop(L);
+ // table.insert(registered_on_placenodes, func)
+ lua_pushvalue(L, table_insert);
+ lua_pushvalue(L, registered_on_placenodes);
+ lua_pushvalue(L, 1); // push function from argument 1
+ // Call insert
+ if(lua_pcall(L, 2, 0, 0))
+ script_error(L, "error: %s\n", lua_tostring(L, -1));
+
+ return 0; /* number of results */
+}
+
+// register_on_dignode(function)
+static int l_register_on_dignode(lua_State *L)
+{
+ luaL_checktype(L, 1, LUA_TFUNCTION);
+ infostream<<"register_on_dignode"<<std::endl;
+
+ lua_getglobal(L, "table");
+ lua_getfield(L, -1, "insert");
+ int table_insert = lua_gettop(L);
+ // Get minetest.registered_on_dignodes
+ lua_getglobal(L, "minetest");
+ lua_getfield(L, -1, "registered_on_dignodes");
+ luaL_checktype(L, -1, LUA_TTABLE);
+ int registered_on_dignodes = lua_gettop(L);
+ // table.insert(registered_on_dignodes, func)
+ lua_pushvalue(L, table_insert);
+ lua_pushvalue(L, registered_on_dignodes);
+ lua_pushvalue(L, 1); // push function from argument 1
+ // Call insert
+ if(lua_pcall(L, 2, 0, 0))
+ script_error(L, "error: %s\n", lua_tostring(L, -1));
+
+ return 0; /* number of results */
+}
+