lua-lm: comparison lm_message

equal deleted inserted replaced

-:aed141accdd9
+:a8c6460d612b
 /// lm.message_node.bless
 /// Blesses given pointer to lm message node object.
 /// A: lightuserdata (C lm message node object)
 /// R: lm message node object
-static int llm_message_node_bless_lua (lua_State *L)
+static int bless_lua_lm_node (lua_State *L)
 {
 	luaL_argcheck (L, lua_islightuserdata (L, 1), 1, "loudmouth message node lightuserdata expected");
-	llm_message_node_bless (L, lua_touserdata (L, 1));
+	bless_lm_node (L, lua_touserdata (L, 1));
 	return 1;
 }
 /// message_node:name
 /// Gets a name of message node.
 /// R: string
-int llm_message_node_name (lua_State *L)
+int name_lm_node (lua_State *L)
 {
 	LmMessageNode *node = luaL_checkLmMessageNode (L, 1);
 	lua_pushstring (L, node->name);
 	return 1;
 }
 /// message_node:next
 /// Gets next message node.
 /// R: lm message node object or nil
-int llm_message_node_next (lua_State *L)
+int next_lm_node (lua_State *L)
 {
 	LmMessageNode *node = luaL_checkLmMessageNode (L, 1);
 	LmMessageNode *next = node->next;
 	if (next)
-		llm_message_node_bless (L, next);
+		bless_lm_node (L, next);
 	else
 		lua_pushnil (L);
 	return 1;
 }
 /// message_node:prev
 /// Gets previous message node.
 /// R: lm message node object or nil
-int llm_message_node_prev (lua_State *L)
+int prev_lm_node (lua_State *L)
 {
 	LmMessageNode *node = luaL_checkLmMessageNode (L, 1);
 	LmMessageNode *prev = node->prev;
 	if (prev)
-		llm_message_node_bless (L, prev);
+		bless_lm_node (L, prev);
 	else
 		lua_pushnil (L);
 	return 1;
 }
 /// message_node:children
 /// Gets first child node (raw access used).
 /// R: lm message node object or nil
-int llm_message_node_children (lua_State *L)
+int children_lm_node (lua_State *L)
 {
 	LmMessageNode *node = luaL_checkLmMessageNode (L, 1);
 	LmMessageNode *child = node->children;
 	if (child)
-		llm_message_node_bless (L, child);
+		bless_lm_node (L, child);
 	else
 		lua_pushnil (L);
 	return 1;
 }
 /// message_node:parent
 /// Gets parent message node.
 /// R: lm message node object or nil
-int llm_message_node_parent (lua_State *L)
+int parent_lm_node (lua_State *L)
 {
 	LmMessageNode *node = luaL_checkLmMessageNode (L, 1);
 	LmMessageNode *parent = node->parent;
 	if (parent)
-		llm_message_node_bless (L, parent);
+		bless_lm_node (L, parent);
 	else
 		lua_pushnil (L);
 	return 1;
 }
 /// message_node:value
 /// Gets or sets a value of message node.
 /// A: string (optional value)
 /// R: string (if called without arguments) or lm message node object
-int llm_message_node_value (lua_State *L)
+int value_lm_node (lua_State *L)
 {
 	LmMessageNode *node = luaL_checkLmMessageNode (L, 1);
 	if (lua_gettop (L) > 1) { // Set
 		const char *value = luaL_checkstring (L, 2);
 		lm_message_node_set_value (node, value);
 /// message_node:child
 /// Gets or creates child node object with given name.
 /// A: string (name), string (optional value)
 /// R: lm message node object or nil
-int llm_message_node_child (lua_State *L)
+int child_lm_node (lua_State *L)
 {
 	LmMessageNode *node = luaL_checkLmMessageNode (L, 1);
 	const char *name = luaL_checkstring (L, 2);
 	LmMessageNode *child;
 		if (!child) {
 			lua_pushnil (L);
 			return 1;
 		}
 	}
-	llm_message_node_bless (L, child);
+	bless_lm_node (L, child);
 	// XXX lm_message_node_unref (child);
 	return 1;
 }
 /// message_node:find_child
 /// Searches for node with a given name over all node subtree.
 /// A: string (name)
 /// R: lm message node object or nil
-int llm_message_node_find_child (lua_State *L)
+int find_child_lm_node (lua_State *L)
 {
 	LmMessageNode *node = luaL_checkLmMessageNode (L, 1);
 	const char *name = luaL_checkstring (L, 2);
 	LmMessageNode *child;
 	child = lm_message_node_get_child (node, name);
 	if (!child)
 		lua_pushnil (L);
 	else {
-		llm_message_node_bless (L, child);
+		bless_lm_node (L, child);
 		// XXX lm_message_node_unref (child);
 	}
 	return 1;
 }
 /// message_node:raw
 /// Gets or sets raw mode flag for node.
 /// When set, value of node will not be escaped.
 /// A: boolean (optional)
 /// V: boolean (if called with no apguments) or lm message node object
-int llm_message_node_raw (lua_State *L)
+int raw_lm_node (lua_State *L)
 {
 	LmMessageNode *node = luaL_checkLmMessageNode (L, 1);
 	if (lua_gettop (L) > 1) { // Set
 		luaL_checktype (L, 2, LUA_TBOOLEAN);
 		lm_message_node_set_raw_mode (node, lua_toboolean (L, 2));
 /// message_node:attribute
 /// Gets or sets value of node attribute with a given name.
 /// A: string (name), string (optional value)
 /// R: string (when called with one aprgument) or lm message node object
-int llm_message_node_attribute (lua_State *L)
+int attribute_lm_node (lua_State *L)
 {
 	LmMessageNode *node = luaL_checkLmMessageNode (L, 1);
 	const char *name = luaL_checkstring (L, 2);
 	if (lua_gettop (L) > 2) { // Set
 		lm_message_node_set_attribute (node, name, luaL_checkstring (L, 3));
 }
 /// message_node:xml
 /// Returns node representation in xml.
 /// R: string
-int llm_message_node_xml (lua_State *L)
+int xml_lm_node (lua_State *L)
 {
 	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)
+int path_lm_node (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);
+	bless_lm_node (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)
+static int pointer_lm_node (lua_State *L)
 {
-	llm_message_node_t *object = luaL_checklm_message_node (L, 1);
+	llm_node_t *object = luaL_checklm_node (L, 1);
-	lua_pushlightuserdata (L, object->message_node);
+	lua_pushlightuserdata (L, object->node);
 	return 1;
 }
-static int llm_message_node_gc (lua_State *L)
+static int gc_lm_node (lua_State *L)
 {
-	llm_message_node_t *object = luaL_checklm_message_node (L, 1);
+	llm_node_t *object = luaL_checklm_node (L, 1);
 	D ("Message node %X gc called", (int) object);
-	lm_message_node_unref (object->message_node);
+	lm_message_node_unref (object->node);
 	return 0;
 }
-static const luaL_Reg llm_message_node_reg_f[] = {
+static const luaL_Reg reg_f_lm_node[] = {
-	{ "bless", llm_message_node_bless_lua },
+	{ "bless", bless_lua_lm_node },
 	{ NULL,    NULL                       },
 };
-static const luaL_Reg llm_message_node_reg_m[] = {
+static const luaL_Reg reg_m_lm_node[] = {
-	{ "name",       llm_message_node_name       },
+	{ "name",       name_lm_node       },
-	{ "next",       llm_message_node_next       },
+	{ "next",       next_lm_node       },
-	{ "prev",       llm_message_node_prev       },
+	{ "prev",       prev_lm_node       },
-	{ "children",   llm_message_node_children   },
+	{ "children",   children_lm_node   },
-	{ "parent",     llm_message_node_parent     },
+	{ "parent",     parent_lm_node     },
-	{ "value",      llm_message_node_value      },
+	{ "value",      value_lm_node      },
-	{ "child",      llm_message_node_child      },
+	{ "child",      child_lm_node      },
-	{ "find_child", llm_message_node_find_child },
+	{ "find_child", find_child_lm_node },
-	{ "attribute",  llm_message_node_attribute  },
+	{ "attribute",  attribute_lm_node  },
-	{ "raw",        llm_message_node_raw        },
+	{ "raw",        raw_lm_node        },
-	{ "xml",        llm_message_node_xml        },
+	{ "xml",        xml_lm_node        },
-	{ "path",       llm_message_node_path       },
+	{ "path",       path_lm_node       },
-	{ "pointer",    llm_message_node_pointer    },
+	{ "pointer",    pointer_lm_node    },
-	{ "__gc",       llm_message_node_gc         },
+	{ "__gc",       gc_lm_node         },
 	{ NULL,         NULL                        },
 };
 int luaopen_lm_message_node (lua_State *L)
 {
 	luaL_newmetatable (L, "loudmouth.message_node");
 	lua_pushstring (L, "__index");
 	lua_pushvalue (L, -2);
 	lua_settable (L, -3);
-	luaL_register (L, NULL, llm_message_node_reg_m);
+	luaL_register (L, NULL, reg_m_lm_node);
 	lua_pop (L, 1);
-	luaL_register (L, "lm.message_node", llm_message_node_reg_f);
+	luaL_register (L, "lm.message_node", reg_f_lm_node);
 	return 1;
 }

changeset 11	a8c6460d612b
parent 8	951f92c66821
child 12	63f06a23c235