Wed, 17 Apr 2013 23:55:31 +0200
Make Purple::Network::ip_atoi actually working
| 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 |
|
33897
f7d55c9c57d3
Make Purple::Network::ip_atoi actually working
Tomasz Wasilczyk <tomkiewicz@cpw.pidgin.im>
parents:
23983
diff
changeset
|
24 | PPCODE: |
|
f7d55c9c57d3
Make Purple::Network::ip_atoi actually working
Tomasz Wasilczyk <tomkiewicz@cpw.pidgin.im>
parents:
23983
diff
changeset
|
25 | RETVAL = purple_network_ip_atoi(ip); |
|
f7d55c9c57d3
Make Purple::Network::ip_atoi actually working
Tomasz Wasilczyk <tomkiewicz@cpw.pidgin.im>
parents:
23983
diff
changeset
|
26 | sv_setpvn(TARG, (const char *)RETVAL, 4); |
|
f7d55c9c57d3
Make Purple::Network::ip_atoi actually working
Tomasz Wasilczyk <tomkiewicz@cpw.pidgin.im>
parents:
23983
diff
changeset
|
27 | XSprePUSH; |
|
f7d55c9c57d3
Make Purple::Network::ip_atoi actually working
Tomasz Wasilczyk <tomkiewicz@cpw.pidgin.im>
parents:
23983
diff
changeset
|
28 | PUSHTARG; |
| 11118 | 29 | |
|
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::NetworkListenData |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
31 | purple_network_listen(port, socket_type, cb, cb_data) |
| 11118 | 32 | unsigned short port |
|
12730
f64fdbc34677
[gaim-migrate @ 15074]
Daniel Atallah <datallah@pidgin.im>
parents:
11290
diff
changeset
|
33 | 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
|
34 | Purple::NetworkListenCallback cb |
|
12910
e6c3213c28ec
[gaim-migrate @ 15263]
Daniel Atallah <datallah@pidgin.im>
parents:
12773
diff
changeset
|
35 | gpointer cb_data |
| 11118 | 36 | |
|
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::NetworkListenData |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
38 | purple_network_listen_range(start, end, socket_type, cb, cb_data) |
| 11118 | 39 | unsigned short start |
| 40 | unsigned short end | |
|
12730
f64fdbc34677
[gaim-migrate @ 15074]
Daniel Atallah <datallah@pidgin.im>
parents:
11290
diff
changeset
|
41 | 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
|
42 | Purple::NetworkListenCallback cb |
|
12910
e6c3213c28ec
[gaim-migrate @ 15263]
Daniel Atallah <datallah@pidgin.im>
parents:
12773
diff
changeset
|
43 | gpointer cb_data |
| 11118 | 44 | |
| 12773 | 45 | 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
|
46 | purple_network_set_public_ip(ip) |
| 11118 | 47 | const char *ip |