libpurple/plugins/perl/common/Network.xs@5dbd0617a27d (annotated)
libpurple/plugins/perl/common/Network.xs
Thu, 30 Oct 2008 22:40:49 +0000
- author
- Richard Laager <rlaager@pidgin.im>
- date
- Thu, 30 Oct 2008 22:40:49 +0000
- changeset 24569
- 5dbd0617a27d
- parent 23983
- 586866581434
- child 32438
- dc8991868906
- child 32592
- 165f4c5cd716
- child 33897
- f7d55c9c57d3
- permissions
- -rw-r--r--
Build everything with the *_DISABLE_DEPRECATED flags set. This allows us
to detect when we're still using deprecated functions internally (and by
extension, when we've deprecated something we shouldn't have). In the
course of developing this changeset, I fixed a few such cases.
Given that the plan is to switch from PURPLE_HIDE_STRUCTS to
PURPLE_DISABLE_DEPRECATED as each struct is fully dealt with, this will
also ensure we have no regressions on the struct hiding work.
Deprecated functions are still available to the respective .c file, to
avoid missing prototype errors. Also, Perl and DBus undef the
*_DISABLE_DEPRECATED defines as appropriate so that deprecated functions
will still be exported to Perl plugins and via DBus. (Otherwise, we'd
be breaking backwards compatibility.)
| 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::Network PACKAGE = Purple::Network PREFIX = purple_network_ |
| 11118 | 4 | PROTOTYPES: ENABLE |
| 5 | ||
| 6 | const char * | |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
7 | purple_network_get_local_system_ip(fd) |
| 11118 | 8 | int fd |
| 9 | ||
| 10 | const char * | |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
11 | purple_network_get_my_ip(fd) |
| 11118 | 12 | int fd |
| 13 | ||
| 12773 | 14 | unsigned short |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
15 | purple_network_get_port_from_fd(fd) |
| 11118 | 16 | int fd |
| 17 | ||
| 18 | const char * | |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
19 | purple_network_get_public_ip() |
| 11118 | 20 | |
|
11262
561da6ec5c26
[gaim-migrate @ 13440]
Mark Doliner <markdoliner@pidgin.im>
parents:
11118
diff
changeset
|
21 | const unsigned char * |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
22 | purple_network_ip_atoi(ip) |
| 11118 | 23 | const char *ip |
| 24 | ||
|
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::NetworkListenData |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
26 | purple_network_listen(port, socket_type, cb, cb_data) |
| 11118 | 27 | unsigned short port |
|
12730
f64fdbc34677
[gaim-migrate @ 15074]
Daniel Atallah <datallah@pidgin.im>
parents:
11290
diff
changeset
|
28 | int socket_type |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
29 | Purple::NetworkListenCallback cb |
|
12910
e6c3213c28ec
[gaim-migrate @ 15263]
Daniel Atallah <datallah@pidgin.im>
parents:
12773
diff
changeset
|
30 | gpointer cb_data |
| 11118 | 31 | |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
32 | Purple::NetworkListenData |
|
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_network_listen_range(start, end, socket_type, cb, cb_data) |
| 11118 | 34 | unsigned short start |
| 35 | unsigned short end | |
|
12730
f64fdbc34677
[gaim-migrate @ 15074]
Daniel Atallah <datallah@pidgin.im>
parents:
11290
diff
changeset
|
36 | int socket_type |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
37 | Purple::NetworkListenCallback cb |
|
12910
e6c3213c28ec
[gaim-migrate @ 15263]
Daniel Atallah <datallah@pidgin.im>
parents:
12773
diff
changeset
|
38 | gpointer cb_data |
| 11118 | 39 | |
| 12773 | 40 | void |
|
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_network_set_public_ip(ip) |
| 11118 | 42 | const char *ip |
