libpurple/plugins/perl/common/Network.xs@e1171eb45f07 (annotated)
libpurple/plugins/perl/common/Network.xs
Tue, 01 May 2007 02:34:22 +0000
- author
- Etan Reisner <deryni@pidgin.im>
- date
- Tue, 01 May 2007 02:34:22 +0000
- changeset 16773
- e1171eb45f07
- parent 15894
- 765ec644ac47
- child 16238
- 33bf2fd32108
- child 18068
- b6554e3c8224
- child 20478
- 46933dc62880
- child 23983
- 586866581434
- permissions
- -rw-r--r--
Remove the const-c and const-xs stuff and replace it with real constants
exposed to perl.
| 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 | |
| 12773 | 21 | 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
|
22 | purple_network_init() |
| 11118 | 23 | |
|
11262
561da6ec5c26
[gaim-migrate @ 13440]
Mark Doliner <markdoliner@pidgin.im>
parents:
11118
diff
changeset
|
24 | 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
|
25 | purple_network_ip_atoi(ip) |
| 11118 | 26 | const char *ip |
| 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::NetworkListenData |
|
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_network_listen(port, socket_type, cb, cb_data) |
| 11118 | 30 | unsigned short port |
|
12730
f64fdbc34677
[gaim-migrate @ 15074]
Daniel Atallah <datallah@pidgin.im>
parents:
11290
diff
changeset
|
31 | 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
|
32 | Purple::NetworkListenCallback cb |
|
12910
e6c3213c28ec
[gaim-migrate @ 15263]
Daniel Atallah <datallah@pidgin.im>
parents:
12773
diff
changeset
|
33 | gpointer cb_data |
| 11118 | 34 | |
|
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::NetworkListenData |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
36 | purple_network_listen_range(start, end, socket_type, cb, cb_data) |
| 11118 | 37 | unsigned short start |
| 38 | unsigned short end | |
|
12730
f64fdbc34677
[gaim-migrate @ 15074]
Daniel Atallah <datallah@pidgin.im>
parents:
11290
diff
changeset
|
39 | 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
|
40 | Purple::NetworkListenCallback cb |
|
12910
e6c3213c28ec
[gaim-migrate @ 15263]
Daniel Atallah <datallah@pidgin.im>
parents:
12773
diff
changeset
|
41 | gpointer cb_data |
| 11118 | 42 | |
| 12773 | 43 | 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
|
44 | purple_network_set_public_ip(ip) |
| 11118 | 45 | const char *ip |
