lua-lm: comparison lm_message

equal deleted inserted replaced

-:5db1448eb857
+:951f92c66821
 	LmMessageNode *node = luaL_checkLmMessageNode (L, 1);
 	lua_pushstring (L, lm_message_node_to_string (node));
 	return 1;
 }
+/// message_node:path
+/// Returns node with specified path to it.
+/// If any element in a path cannot be found, it returns nil.
+/// A: string (node name), ...
+/// R: lm message node object or nil
+int llm_message_node_path (lua_State *L)
+{
+	LmMessageNode *node = luaL_checkLmMessageNode (L, 1);
+	int i = 1;
+	while (i++ < lua_gettop (L)) {
+		node = lm_message_node_get_child (node, luaL_checkstring (L, i));
+		if (node == NULL) {
+			lua_pushnil (L);
+			return 1;
+		}
+	}
+	llm_message_node_bless (L, node);
+	// XXX lm_message_node_unref (child);
+	return 1;
+}
 /// message_node:pointer
 /// Returns pointer to underlying C structure.
 /// R: lightuserdata
 static int llm_message_node_pointer (lua_State *L)
 {
 	{ "child",      llm_message_node_child      },
 	{ "find_child", llm_message_node_find_child },
 	{ "attribute",  llm_message_node_attribute  },
 	{ "raw",        llm_message_node_raw        },
 	{ "xml",        llm_message_node_xml        },
+	{ "path",       llm_message_node_path       },
 	{ "pointer",    llm_message_node_pointer    },
 	{ "__gc",       llm_message_node_gc         },
 	{ NULL,         NULL                        },
 };