libpurple/plugins/perl/common/XMLNode.xs

changeset 28393
1f319c8ff5cb
parent 28224
315ba0216ae0
child 34935
686fa55b0deb
equal deleted inserted replaced
28392:4f4042de6782 28393:1f319c8ff5cb
30 30
31 Purple::XMLNode 31 Purple::XMLNode
32 xmlnode_get_child(parent, name) 32 xmlnode_get_child(parent, name)
33 Purple::XMLNode parent 33 Purple::XMLNode parent
34 const char *name 34 const char *name
35 PREINIT:
36 xmlnode *tmp;
37 CODE:
38 if (!name || *name == '\0') {
39 tmp = parent->child;
40 while (tmp && tmp->type != XMLNODE_TYPE_TAG)
41 tmp = tmp->next;
42 RETVAL = tmp;
43 } else
44 RETVAL = xmlnode_get_child(parent, name);
45 OUTPUT:
46 RETVAL
35 47
36 Purple::XMLNode 48 Purple::XMLNode
37 xmlnode_get_child_with_namespace(parent, name, xmlns) 49 xmlnode_get_child_with_namespace(parent, name, xmlns)
38 Purple::XMLNode parent 50 Purple::XMLNode parent
39 const char *name 51 const char *name
40 const char *xmlns 52 const char *xmlns
41 53
42 gchar_own * 54 gchar_own *
43 xmlnode_get_data(node) 55 xmlnode_get_data(node)
44 Purple::XMLNode node 56 Purple::XMLNode node
57
58 Purple::XMLNode
59 xmlnode_get_next(node)
60 Purple::XMLNode node
61 PREINIT:
62 xmlnode *tmp;
63 CODE:
64 tmp = node->next;
65 while (tmp && tmp->type != XMLNODE_TYPE_TAG)
66 tmp = tmp->next;
67 RETVAL = tmp;
68 OUTPUT:
69 RETVAL
45 70
46 Purple::XMLNode 71 Purple::XMLNode
47 xmlnode_get_next_twin(node) 72 xmlnode_get_next_twin(node)
48 Purple::XMLNode node 73 Purple::XMLNode node
49 74

mercurial