Thu, 07 Aug 2008 02:48:21 +0000
Some Perl bindings fixes and additions from Zsombor Welker.
Technically some of these change the API, but in those couple cases, the way it
is now is either broken, not usable or pretty unlikely to be used. Feel free
to yell at me and/or revert this if you think this is unacceptable.
Fixes #5912
| 11118 | 1 | #include "module.h" |
| 2 | ||
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
3 | MODULE = Purple::XMLNode PACKAGE = Purple::XMLNode PREFIX = xmlnode_ |
| 11118 | 4 | PROTOTYPES: ENABLE |
| 5 | ||
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
6 | Purple::XMLNode |
| 12364 | 7 | xmlnode_copy(class, src) |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
8 | Purple::XMLNode src |
| 12364 | 9 | C_ARGS: |
| 10 | src | |
| 11118 | 11 | |
| 12773 | 12 | void |
| 11118 | 13 | xmlnode_free(node) |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
14 | Purple::XMLNode node |
| 11118 | 15 | |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
16 | Purple::XMLNode |
| 12364 | 17 | xmlnode_from_str(class, str, size) |
| 11118 | 18 | const char *str |
| 19 | gssize size | |
| 12364 | 20 | C_ARGS: |
| 21 | str, size | |
| 11118 | 22 | |
| 23 | const char * | |
| 24 | xmlnode_get_attrib(node, attr) | |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
25 | Purple::XMLNode node |
| 11118 | 26 | const char *attr |
| 27 | ||
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
28 | Purple::XMLNode |
| 11118 | 29 | xmlnode_get_child(parent, name) |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
30 | Purple::XMLNode parent |
| 11118 | 31 | const char *name |
| 32 | ||
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
33 | Purple::XMLNode |
| 11118 | 34 | xmlnode_get_child_with_namespace(parent, name, xmlns) |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
35 | Purple::XMLNode parent |
| 11118 | 36 | const char *name |
| 37 | const char *xmlns | |
| 38 | ||
|
15165
0ff631dfbbca
[gaim-migrate @ 17889]
Daniel Atallah <datallah@pidgin.im>
parents:
14779
diff
changeset
|
39 | gchar_own * |
| 11118 | 40 | xmlnode_get_data(node) |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
41 | Purple::XMLNode node |
| 11118 | 42 | |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
43 | Purple::XMLNode |
| 11118 | 44 | xmlnode_get_next_twin(node) |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
45 | Purple::XMLNode node |
| 11118 | 46 | |
| 12773 | 47 | void |
| 11118 | 48 | xmlnode_insert_child(parent, child) |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
49 | Purple::XMLNode parent |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
50 | Purple::XMLNode child |
| 11118 | 51 | |
| 12773 | 52 | void |
| 11118 | 53 | xmlnode_insert_data(node, data, size) |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
54 | Purple::XMLNode node |
| 11118 | 55 | const char *data |
| 56 | gssize size | |
| 57 | ||
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
58 | Purple::XMLNode |
| 12364 | 59 | xmlnode_new(class, name) |
| 11118 | 60 | const char *name |
| 12364 | 61 | C_ARGS: |
| 62 | name | |
| 11118 | 63 | |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
64 | Purple::XMLNode |
| 11118 | 65 | xmlnode_new_child(parent, name) |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
66 | Purple::XMLNode parent |
| 11118 | 67 | const char *name |
| 68 | ||
| 12773 | 69 | void |
| 11118 | 70 | xmlnode_remove_attrib(node, attr) |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
71 | Purple::XMLNode node |
| 11118 | 72 | const char *attr |
| 73 | ||
| 12773 | 74 | void |
| 11118 | 75 | xmlnode_set_attrib(node, attr, value) |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
76 | Purple::XMLNode node |
| 11118 | 77 | const char *attr |
| 78 | const char *value | |
| 79 | ||
|
15165
0ff631dfbbca
[gaim-migrate @ 17889]
Daniel Atallah <datallah@pidgin.im>
parents:
14779
diff
changeset
|
80 | gchar_own * |
| 11118 | 81 | xmlnode_to_formatted_str(node, len) |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
82 | Purple::XMLNode node |
| 11118 | 83 | int *len |
| 84 | ||
|
15165
0ff631dfbbca
[gaim-migrate @ 17889]
Daniel Atallah <datallah@pidgin.im>
parents:
14779
diff
changeset
|
85 | gchar_own * |
| 11118 | 86 | xmlnode_to_str(node, len) |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
87 | Purple::XMLNode node |
| 11118 | 88 | int *len |