Sat, 22 Jun 2013 15:58:44 +0530
Added ciphers and hashes _new functions to .xs files
| 6508 | 1 | #include "module.h" |
|
34040
f5417957a1bc
Fix Perl compile. This probably doesn't work. I just copy and pasted
Elliott Sales de Andrade <qulogic@pidgin.im>
parents:
32318
diff
changeset
|
2 | #include "../perl-handlers.h" |
| 6508 | 3 | |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
4 | MODULE = Purple::Account PACKAGE = Purple::Account PREFIX = purple_account_ |
| 11290 | 5 | PROTOTYPES: ENABLE |
| 11118 | 6 | |
|
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::Presence |
|
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_account_get_presence(account) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
9 | Purple::Account account |
| 11118 | 10 | |
|
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::Account |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
12 | purple_account_new(class, username, protocol_id) |
|
14702
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
13 | const char * username |
|
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
14 | const char * protocol_id |
| 12364 | 15 | C_ARGS: |
|
14702
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
16 | username, protocol_id |
| 11118 | 17 | |
| 12784 | 18 | 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
|
19 | purple_account_connect(account) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
20 | Purple::Account account |
|
10437
80a61d4c9a61
[gaim-migrate @ 11694]
Balwinder S Dheeman <bsd@rubyforge.org>
parents:
10404
diff
changeset
|
21 | |
| 12784 | 22 | 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
|
23 | purple_account_register(account) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
24 | Purple::Account account |
| 11118 | 25 | |
| 12784 | 26 | 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
|
27 | purple_account_disconnect(account) |
|
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::Account account |
| 6508 | 29 | |
| 12784 | 30 | 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
|
31 | purple_account_request_change_password(account) |
|
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::Account account |
| 11118 | 33 | |
| 12784 | 34 | 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
|
35 | purple_account_request_change_user_info(account) |
|
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::Account account |
| 11118 | 37 | |
| 12784 | 38 | 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
|
39 | purple_account_set_username(account, username) |
|
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::Account account |
|
14702
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
41 | const char * username |
| 6508 | 42 | |
| 12784 | 43 | void |
|
34040
f5417957a1bc
Fix Perl compile. This probably doesn't work. I just copy and pasted
Elliott Sales de Andrade <qulogic@pidgin.im>
parents:
32318
diff
changeset
|
44 | purple_account_set_password(account, password, func, data = 0) |
|
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::Account account |
|
14702
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
46 | const char * password |
|
34040
f5417957a1bc
Fix Perl compile. This probably doesn't work. I just copy and pasted
Elliott Sales de Andrade <qulogic@pidgin.im>
parents:
32318
diff
changeset
|
47 | SV *func |
|
f5417957a1bc
Fix Perl compile. This probably doesn't work. I just copy and pasted
Elliott Sales de Andrade <qulogic@pidgin.im>
parents:
32318
diff
changeset
|
48 | SV *data |
|
f5417957a1bc
Fix Perl compile. This probably doesn't work. I just copy and pasted
Elliott Sales de Andrade <qulogic@pidgin.im>
parents:
32318
diff
changeset
|
49 | CODE: |
|
34198
89549a1875e0
Fix perl handlers for password access routines
Tomasz Wasilczyk <tomkiewicz@cpw.pidgin.im>
parents:
34040
diff
changeset
|
50 | purple_perl_account_set_password(account, password, func, data); |
| 6508 | 51 | |
| 12784 | 52 | void |
|
34589
428e92c79631
Renamed purple_account_[get,set]_alias to purple_account[get,set]_private_alias.
Ankit Vani <a@nevitus.org>
parents:
34588
diff
changeset
|
53 | purple_account_set_private_alias(account, alias) |
|
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::Account account |
|
14702
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
55 | const char * alias |
| 6508 | 56 | |
| 12784 | 57 | 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
|
58 | purple_account_set_user_info(account, user_info) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
59 | Purple::Account account |
|
14702
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
60 | const char *user_info |
| 6508 | 61 | |
| 12784 | 62 | void |
|
16550
3254ec9f73af
Fix perl compile.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
15894
diff
changeset
|
63 | purple_account_set_buddy_icon_path(account, icon) |
|
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::Account account |
|
14702
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
65 | const char *icon |
| 6508 | 66 | |
| 12784 | 67 | 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
|
68 | purple_account_set_connection(account, gc) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
69 | Purple::Account account |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
70 | Purple::Connection gc |
| 6508 | 71 | |
| 12784 | 72 | 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
|
73 | purple_account_set_remember_password(account, value) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
74 | Purple::Account account |
|
14702
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
75 | gboolean value |
| 6508 | 76 | |
| 12784 | 77 | 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
|
78 | purple_account_set_check_mail(account, value) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
79 | Purple::Account account |
|
14702
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
80 | gboolean value |
| 6508 | 81 | |
|
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 | void purple_account_set_enabled(account, ui, value) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
83 | Purple::Account account |
|
15127
5fc0e97f117d
[gaim-migrate @ 17849]
Daniel Atallah <datallah@pidgin.im>
parents:
15123
diff
changeset
|
84 | const char *ui |
|
5fc0e97f117d
[gaim-migrate @ 17849]
Daniel Atallah <datallah@pidgin.im>
parents:
15123
diff
changeset
|
85 | gboolean value |
|
5fc0e97f117d
[gaim-migrate @ 17849]
Daniel Atallah <datallah@pidgin.im>
parents:
15123
diff
changeset
|
86 | |
| 12784 | 87 | 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
|
88 | purple_account_set_proxy_info(account, info) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
89 | Purple::Account account |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
90 | Purple::ProxyInfo info |
| 11118 | 91 | |
|
10504
eae130eefbfe
[gaim-migrate @ 11796]
Stu Tomlinson <nosnilmot@pidgin.im>
parents:
10437
diff
changeset
|
92 | 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
|
93 | purple_account_set_status(account, status_id, active) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
94 | Purple::Account account |
|
14702
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
95 | const char *status_id |
|
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
96 | gboolean active |
| 11118 | 97 | CODE: |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
98 | purple_account_set_status(account, status_id, active, NULL); |
| 11118 | 99 | |
| 12784 | 100 | 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
|
101 | purple_account_set_status_types(account, status_types) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
102 | Purple::Account account |
|
14702
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
103 | SV * status_types |
| 11118 | 104 | PREINIT: |
|
14702
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
105 | GList *t_GL; |
|
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
106 | int i, t_len; |
| 11118 | 107 | PPCODE: |
|
14702
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
108 | t_GL = NULL; |
|
25112
4e9dba9e28e6
disapproval of revision '2d9389f32256ca757b17d7cabe9d9beebce0d311'
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
25106
diff
changeset
|
109 | t_len = av_len((AV *)SvRV(status_types)); |
|
10504
eae130eefbfe
[gaim-migrate @ 11796]
Stu Tomlinson <nosnilmot@pidgin.im>
parents:
10437
diff
changeset
|
110 | |
|
25107
bd102c539600
Tweak a few for loop conditions in the Perl bindings per Etan's suggestion.
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
25106
diff
changeset
|
111 | for (i = 0; i <= t_len; i++) |
|
23980
a38cbb35eecf
Some cleanup and a couple leak fixes.
Daniel Atallah <datallah@pidgin.im>
parents:
18933
diff
changeset
|
112 | t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(status_types), i, 0))); |
|
a38cbb35eecf
Some cleanup and a couple leak fixes.
Daniel Atallah <datallah@pidgin.im>
parents:
18933
diff
changeset
|
113 | |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
114 | purple_account_set_status_types(account, t_GL); |
| 11118 | 115 | |
| 12784 | 116 | 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
|
117 | purple_account_clear_settings(account) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
118 | Purple::Account account |
| 11118 | 119 | |
| 12784 | 120 | 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
|
121 | purple_account_set_int(account, name, value) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
122 | Purple::Account account |
|
14702
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
123 | const char *name |
|
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
124 | int value |
| 11118 | 125 | |
| 12784 | 126 | gboolean |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
127 | purple_account_is_connected(account) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
128 | Purple::Account account |
| 6508 | 129 | |
| 130 | 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
|
131 | purple_account_get_username(account) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
132 | Purple::Account account |
| 6508 | 133 | |
|
34040
f5417957a1bc
Fix Perl compile. This probably doesn't work. I just copy and pasted
Elliott Sales de Andrade <qulogic@pidgin.im>
parents:
32318
diff
changeset
|
134 | void |
|
f5417957a1bc
Fix Perl compile. This probably doesn't work. I just copy and pasted
Elliott Sales de Andrade <qulogic@pidgin.im>
parents:
32318
diff
changeset
|
135 | purple_account_get_password(account, func, data = 0) |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
136 | Purple::Account account |
|
34040
f5417957a1bc
Fix Perl compile. This probably doesn't work. I just copy and pasted
Elliott Sales de Andrade <qulogic@pidgin.im>
parents:
32318
diff
changeset
|
137 | SV *func |
|
f5417957a1bc
Fix Perl compile. This probably doesn't work. I just copy and pasted
Elliott Sales de Andrade <qulogic@pidgin.im>
parents:
32318
diff
changeset
|
138 | SV *data |
|
f5417957a1bc
Fix Perl compile. This probably doesn't work. I just copy and pasted
Elliott Sales de Andrade <qulogic@pidgin.im>
parents:
32318
diff
changeset
|
139 | CODE: |
|
34198
89549a1875e0
Fix perl handlers for password access routines
Tomasz Wasilczyk <tomkiewicz@cpw.pidgin.im>
parents:
34040
diff
changeset
|
140 | purple_perl_account_get_password(account, func, data); |
| 6508 | 141 | |
| 142 | const char * | |
|
34589
428e92c79631
Renamed purple_account_[get,set]_alias to purple_account[get,set]_private_alias.
Ankit Vani <a@nevitus.org>
parents:
34588
diff
changeset
|
143 | purple_account_get_private_alias(account) |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
144 | Purple::Account account |
| 6508 | 145 | |
| 146 | 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
|
147 | purple_account_get_user_info(account) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
148 | Purple::Account account |
| 6508 | 149 | |
| 150 | const char * | |
|
16550
3254ec9f73af
Fix perl compile.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
15894
diff
changeset
|
151 | purple_account_get_buddy_icon_path(account) |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
152 | Purple::Account account |
| 6508 | 153 | |
| 154 | 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
|
155 | purple_account_get_protocol_id(account) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
156 | Purple::Account account |
| 6508 | 157 | |
| 11118 | 158 | 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
|
159 | purple_account_get_protocol_name(account) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
160 | Purple::Account account |
| 11118 | 161 | |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
162 | Purple::Connection |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
163 | purple_account_get_connection(account) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
164 | Purple::Account account |
| 6508 | 165 | |
| 12784 | 166 | gboolean |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
167 | purple_account_get_remember_password(account) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
168 | Purple::Account account |
| 6508 | 169 | |
| 12784 | 170 | gboolean |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
171 | purple_account_get_check_mail(account) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
172 | Purple::Account account |
| 6508 | 173 | |
|
15127
5fc0e97f117d
[gaim-migrate @ 17849]
Daniel Atallah <datallah@pidgin.im>
parents:
15123
diff
changeset
|
174 | gboolean |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
175 | purple_account_get_enabled(account, ui) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
176 | Purple::Account account |
|
15127
5fc0e97f117d
[gaim-migrate @ 17849]
Daniel Atallah <datallah@pidgin.im>
parents:
15123
diff
changeset
|
177 | const char *ui |
|
5fc0e97f117d
[gaim-migrate @ 17849]
Daniel Atallah <datallah@pidgin.im>
parents:
15123
diff
changeset
|
178 | |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
179 | Purple::ProxyInfo |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
180 | purple_account_get_proxy_info(account) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
181 | Purple::Account account |
| 11118 | 182 | |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
183 | Purple::Status |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
184 | purple_account_get_active_status(account) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
185 | Purple::Account account |
| 11118 | 186 | |
| 187 | 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
|
188 | purple_account_get_status_types(account) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
189 | Purple::Account account |
| 11118 | 190 | PREINIT: |
|
18190
bcf28ef7e8ff
Re-fix the DBus list handling code by killing const GList* / const GSList*
Richard Laager <rlaager@pidgin.im>
parents:
18122
diff
changeset
|
191 | GList *l; |
| 11118 | 192 | PPCODE: |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
193 | for (l = purple_account_get_status_types(account); l != NULL; l = l->next) { |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
194 | XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::StatusType"))); |
|
14702
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
195 | } |
| 11118 | 196 | |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
197 | Purple::Log |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
198 | purple_account_get_log(account, create) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
199 | Purple::Account account |
|
14702
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
200 | gboolean create |
| 11118 | 201 | |
| 12784 | 202 | 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
|
203 | purple_account_destroy_log(account) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
204 | Purple::Account account |
| 11118 | 205 | |
| 12784 | 206 | void |
|
32318
a337b83f8335
Fix Perl bindings, which apparently were missing the _with_invite
Elliott Sales de Andrade <qulogic@pidgin.im>
parents:
25122
diff
changeset
|
207 | purple_account_add_buddies(account, list, message) |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
208 | Purple::Account account |
|
14702
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
209 | SV * list |
|
32318
a337b83f8335
Fix Perl bindings, which apparently were missing the _with_invite
Elliott Sales de Andrade <qulogic@pidgin.im>
parents:
25122
diff
changeset
|
210 | const char *message |
|
11643
f04408721780
[gaim-migrate @ 13920]
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
11318
diff
changeset
|
211 | PREINIT: |
|
14702
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
212 | GList *t_GL; |
|
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
213 | int i, t_len; |
|
11643
f04408721780
[gaim-migrate @ 13920]
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
11318
diff
changeset
|
214 | PPCODE: |
|
14702
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
215 | t_GL = NULL; |
|
25112
4e9dba9e28e6
disapproval of revision '2d9389f32256ca757b17d7cabe9d9beebce0d311'
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
25106
diff
changeset
|
216 | t_len = av_len((AV *)SvRV(list)); |
|
11643
f04408721780
[gaim-migrate @ 13920]
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
11318
diff
changeset
|
217 | |
|
25107
bd102c539600
Tweak a few for loop conditions in the Perl bindings per Etan's suggestion.
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
25106
diff
changeset
|
218 | for (i = 0; i <= t_len; i++) |
|
23980
a38cbb35eecf
Some cleanup and a couple leak fixes.
Daniel Atallah <datallah@pidgin.im>
parents:
18933
diff
changeset
|
219 | t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(list), i, 0))); |
|
a38cbb35eecf
Some cleanup and a couple leak fixes.
Daniel Atallah <datallah@pidgin.im>
parents:
18933
diff
changeset
|
220 | |
|
32318
a337b83f8335
Fix Perl bindings, which apparently were missing the _with_invite
Elliott Sales de Andrade <qulogic@pidgin.im>
parents:
25122
diff
changeset
|
221 | purple_account_add_buddies(account, t_GL, message); |
|
17283
ceb0e3374ddf
Plug a few more memory leaks for some perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
16550
diff
changeset
|
222 | g_list_free(t_GL); |
| 12784 | 223 | |
| 224 | void | |
|
32318
a337b83f8335
Fix Perl bindings, which apparently were missing the _with_invite
Elliott Sales de Andrade <qulogic@pidgin.im>
parents:
25122
diff
changeset
|
225 | purple_account_add_buddy(account, buddy, message) |
|
a337b83f8335
Fix Perl bindings, which apparently were missing the _with_invite
Elliott Sales de Andrade <qulogic@pidgin.im>
parents:
25122
diff
changeset
|
226 | Purple::Account account |
|
a337b83f8335
Fix Perl bindings, which apparently were missing the _with_invite
Elliott Sales de Andrade <qulogic@pidgin.im>
parents:
25122
diff
changeset
|
227 | Purple::BuddyList::Buddy buddy |
|
a337b83f8335
Fix Perl bindings, which apparently were missing the _with_invite
Elliott Sales de Andrade <qulogic@pidgin.im>
parents:
25122
diff
changeset
|
228 | const char * message |
|
11643
f04408721780
[gaim-migrate @ 13920]
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
11318
diff
changeset
|
229 | |
| 12784 | 230 | 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
|
231 | purple_account_change_password(account, a, b) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
232 | Purple::Account account |
|
14702
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
233 | const char * a |
|
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
234 | const char * b |
|
11643
f04408721780
[gaim-migrate @ 13920]
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
11318
diff
changeset
|
235 | |
| 12784 | 236 | 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
|
237 | purple_account_remove_buddies(account, A, B) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
238 | Purple::Account account |
|
14702
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
239 | SV * A |
|
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
240 | SV * B |
|
11643
f04408721780
[gaim-migrate @ 13920]
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
11318
diff
changeset
|
241 | PREINIT: |
|
14702
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
242 | GList *t_GL1, *t_GL2; |
|
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
243 | int i, t_len; |
|
11643
f04408721780
[gaim-migrate @ 13920]
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
11318
diff
changeset
|
244 | PPCODE: |
|
14702
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
245 | t_GL1 = NULL; |
|
25112
4e9dba9e28e6
disapproval of revision '2d9389f32256ca757b17d7cabe9d9beebce0d311'
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
25106
diff
changeset
|
246 | t_len = av_len((AV *)SvRV(A)); |
|
11643
f04408721780
[gaim-migrate @ 13920]
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
11318
diff
changeset
|
247 | |
|
25107
bd102c539600
Tweak a few for loop conditions in the Perl bindings per Etan's suggestion.
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
25106
diff
changeset
|
248 | for (i = 0; i <= t_len; i++) |
|
23980
a38cbb35eecf
Some cleanup and a couple leak fixes.
Daniel Atallah <datallah@pidgin.im>
parents:
18933
diff
changeset
|
249 | t_GL1 = g_list_append(t_GL1, SvPVutf8_nolen(*av_fetch((AV *)SvRV(A), i, 0))); |
| 12784 | 250 | |
|
14702
0305942c27d8
[gaim-migrate @ 17386]
Daniel Atallah <datallah@pidgin.im>
parents:
14254
diff
changeset
|
251 | t_GL2 = NULL; |
|
25112
4e9dba9e28e6
disapproval of revision '2d9389f32256ca757b17d7cabe9d9beebce0d311'
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
25106
diff
changeset
|
252 | t_len = av_len((AV *)SvRV(B)); |
|
11643
f04408721780
[gaim-migrate @ 13920]
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
11318
diff
changeset
|
253 | |
|
25107
bd102c539600
Tweak a few for loop conditions in the Perl bindings per Etan's suggestion.
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
25106
diff
changeset
|
254 | for (i = 0; i <= t_len; i++) |
|
23980
a38cbb35eecf
Some cleanup and a couple leak fixes.
Daniel Atallah <datallah@pidgin.im>
parents:
18933
diff
changeset
|
255 | t_GL2 = g_list_append(t_GL2, SvPVutf8_nolen(*av_fetch((AV *)SvRV(B), i, 0))); |
|
a38cbb35eecf
Some cleanup and a couple leak fixes.
Daniel Atallah <datallah@pidgin.im>
parents:
18933
diff
changeset
|
256 | |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
257 | purple_account_remove_buddies(account, t_GL1, t_GL2); |
|
17283
ceb0e3374ddf
Plug a few more memory leaks for some perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
16550
diff
changeset
|
258 | g_list_free(t_GL1); |
|
ceb0e3374ddf
Plug a few more memory leaks for some perl plugins.
Sadrul Habib Chowdhury <sadrul@pidgin.im>
parents:
16550
diff
changeset
|
259 | g_list_free(t_GL2); |
|
11643
f04408721780
[gaim-migrate @ 13920]
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
11318
diff
changeset
|
260 | |
| 12784 | 261 | 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
|
262 | purple_account_remove_buddy(account, buddy, group) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
263 | Purple::Account account |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
264 | Purple::BuddyList::Buddy buddy |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
265 | Purple::BuddyList::Group group |
|
11643
f04408721780
[gaim-migrate @ 13920]
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
11318
diff
changeset
|
266 | |
| 12784 | 267 | 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
|
268 | purple_account_remove_group(account, group) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
269 | Purple::Account account |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
270 | Purple::BuddyList::Group group |
|
11643
f04408721780
[gaim-migrate @ 13920]
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
11318
diff
changeset
|
271 | |
|
34575
e08f2d070470
Refactored libpurple/plugins according to changes to PurpleAccount
Ankit Vani <a@nevitus.org>
parents:
34198
diff
changeset
|
272 | MODULE = Purple::Account PACKAGE = Purple::Account::Privacy PREFIX = purple_account_privacy_ |
| 11118 | 273 | PROTOTYPES: ENABLE |
| 6508 | 274 | |
|
34575
e08f2d070470
Refactored libpurple/plugins according to changes to PurpleAccount
Ankit Vani <a@nevitus.org>
parents:
34198
diff
changeset
|
275 | gboolean |
|
e08f2d070470
Refactored libpurple/plugins according to changes to PurpleAccount
Ankit Vani <a@nevitus.org>
parents:
34198
diff
changeset
|
276 | purple_account_privacy_permit_add(account, name, local_only) |
|
e08f2d070470
Refactored libpurple/plugins according to changes to PurpleAccount
Ankit Vani <a@nevitus.org>
parents:
34198
diff
changeset
|
277 | Purple::Account account |
|
e08f2d070470
Refactored libpurple/plugins according to changes to PurpleAccount
Ankit Vani <a@nevitus.org>
parents:
34198
diff
changeset
|
278 | const char * name |
|
e08f2d070470
Refactored libpurple/plugins according to changes to PurpleAccount
Ankit Vani <a@nevitus.org>
parents:
34198
diff
changeset
|
279 | gboolean local_only |
| 6508 | 280 | |
|
34575
e08f2d070470
Refactored libpurple/plugins according to changes to PurpleAccount
Ankit Vani <a@nevitus.org>
parents:
34198
diff
changeset
|
281 | gboolean |
|
e08f2d070470
Refactored libpurple/plugins according to changes to PurpleAccount
Ankit Vani <a@nevitus.org>
parents:
34198
diff
changeset
|
282 | purple_account_privacy_permit_remove(account, name, local_only) |
|
e08f2d070470
Refactored libpurple/plugins according to changes to PurpleAccount
Ankit Vani <a@nevitus.org>
parents:
34198
diff
changeset
|
283 | Purple::Account account |
|
e08f2d070470
Refactored libpurple/plugins according to changes to PurpleAccount
Ankit Vani <a@nevitus.org>
parents:
34198
diff
changeset
|
284 | const char * name |
|
e08f2d070470
Refactored libpurple/plugins according to changes to PurpleAccount
Ankit Vani <a@nevitus.org>
parents:
34198
diff
changeset
|
285 | gboolean local_only |
| 6508 | 286 | |
|
34575
e08f2d070470
Refactored libpurple/plugins according to changes to PurpleAccount
Ankit Vani <a@nevitus.org>
parents:
34198
diff
changeset
|
287 | gboolean |
|
e08f2d070470
Refactored libpurple/plugins according to changes to PurpleAccount
Ankit Vani <a@nevitus.org>
parents:
34198
diff
changeset
|
288 | purple_account_privacy_deny_add(account, name, local_only) |
|
e08f2d070470
Refactored libpurple/plugins according to changes to PurpleAccount
Ankit Vani <a@nevitus.org>
parents:
34198
diff
changeset
|
289 | Purple::Account account |
|
e08f2d070470
Refactored libpurple/plugins according to changes to PurpleAccount
Ankit Vani <a@nevitus.org>
parents:
34198
diff
changeset
|
290 | const char * name |
|
e08f2d070470
Refactored libpurple/plugins according to changes to PurpleAccount
Ankit Vani <a@nevitus.org>
parents:
34198
diff
changeset
|
291 | gboolean local_only |
| 11118 | 292 | |
|
34575
e08f2d070470
Refactored libpurple/plugins according to changes to PurpleAccount
Ankit Vani <a@nevitus.org>
parents:
34198
diff
changeset
|
293 | gboolean |
|
e08f2d070470
Refactored libpurple/plugins according to changes to PurpleAccount
Ankit Vani <a@nevitus.org>
parents:
34198
diff
changeset
|
294 | purple_account_privacy_deny_remove(account, name, local_only) |
|
e08f2d070470
Refactored libpurple/plugins according to changes to PurpleAccount
Ankit Vani <a@nevitus.org>
parents:
34198
diff
changeset
|
295 | Purple::Account account |
|
e08f2d070470
Refactored libpurple/plugins according to changes to PurpleAccount
Ankit Vani <a@nevitus.org>
parents:
34198
diff
changeset
|
296 | const char * name |
|
e08f2d070470
Refactored libpurple/plugins according to changes to PurpleAccount
Ankit Vani <a@nevitus.org>
parents:
34198
diff
changeset
|
297 | gboolean local_only |
| 6508 | 298 | |
|
34575
e08f2d070470
Refactored libpurple/plugins according to changes to PurpleAccount
Ankit Vani <a@nevitus.org>
parents:
34198
diff
changeset
|
299 | gboolean |
|
e08f2d070470
Refactored libpurple/plugins according to changes to PurpleAccount
Ankit Vani <a@nevitus.org>
parents:
34198
diff
changeset
|
300 | purple_account_privacy_check(account, who) |
|
e08f2d070470
Refactored libpurple/plugins according to changes to PurpleAccount
Ankit Vani <a@nevitus.org>
parents:
34198
diff
changeset
|
301 | Purple::Account account |
|
e08f2d070470
Refactored libpurple/plugins according to changes to PurpleAccount
Ankit Vani <a@nevitus.org>
parents:
34198
diff
changeset
|
302 | const char * who |