Mercurial > pidgin
annotate libpurple/plugins/perl/common/Prefs.xs @ 31107:4f89666c8d81
Make perl bindings respect LDFLAGS. Fixes #12638.
committer: John Bailey <rekkanoryo@rekkanoryo.org>
author | pva@gentoo.org |
---|---|
date | Sat, 08 Jan 2011 02:34:47 +0000 |
parents | 34b02adafd9b |
children |
rev | line source |
---|---|
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
1 #include "module.h" |
23618
fb86dbeb2b15
Add support to the Perl plugin loader for listing for pref changes.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22692
diff
changeset
|
2 #include "../perl-handlers.h" |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
3 |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
4 MODULE = Purple::Prefs PACKAGE = Purple::Prefs PREFIX = purple_prefs_ |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
5 PROTOTYPES: ENABLE |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
6 |
16739
39c7bb133a9f
Remove the const-c and const-xs stuff and replace it with real constants
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
7 BOOT: |
39c7bb133a9f
Remove the const-c and const-xs stuff and replace it with real constants
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
8 { |
39c7bb133a9f
Remove the const-c and const-xs stuff and replace it with real constants
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
9 HV *stash = gv_stashpv("Purple::Pref::Type", 1); |
39c7bb133a9f
Remove the const-c and const-xs stuff and replace it with real constants
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
10 |
39c7bb133a9f
Remove the const-c and const-xs stuff and replace it with real constants
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
11 static const constiv *civ, const_iv[] = { |
39c7bb133a9f
Remove the const-c and const-xs stuff and replace it with real constants
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
12 #define const_iv(name) {#name, (IV)PURPLE_PREF_##name} |
39c7bb133a9f
Remove the const-c and const-xs stuff and replace it with real constants
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
13 const_iv(NONE), |
39c7bb133a9f
Remove the const-c and const-xs stuff and replace it with real constants
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
14 const_iv(BOOLEAN), |
39c7bb133a9f
Remove the const-c and const-xs stuff and replace it with real constants
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
15 const_iv(INT), |
39c7bb133a9f
Remove the const-c and const-xs stuff and replace it with real constants
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
16 const_iv(STRING), |
39c7bb133a9f
Remove the const-c and const-xs stuff and replace it with real constants
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
17 const_iv(STRING_LIST), |
39c7bb133a9f
Remove the const-c and const-xs stuff and replace it with real constants
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
18 const_iv(PATH), |
39c7bb133a9f
Remove the const-c and const-xs stuff and replace it with real constants
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
19 const_iv(PATH_LIST), |
39c7bb133a9f
Remove the const-c and const-xs stuff and replace it with real constants
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
20 }; |
39c7bb133a9f
Remove the const-c and const-xs stuff and replace it with real constants
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
21 |
39c7bb133a9f
Remove the const-c and const-xs stuff and replace it with real constants
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
22 for (civ = const_iv + sizeof(const_iv) / sizeof(const_iv[0]); civ-- > const_iv; ) |
39c7bb133a9f
Remove the const-c and const-xs stuff and replace it with real constants
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
23 newCONSTSUB(stash, (char *)civ->name, newSViv(civ->iv)); |
39c7bb133a9f
Remove the const-c and const-xs stuff and replace it with real constants
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
24 } |
39c7bb133a9f
Remove the const-c and const-xs stuff and replace it with real constants
Etan Reisner <pidgin@unreliablesource.net>
parents:
15833
diff
changeset
|
25 |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
26 void |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
27 purple_prefs_add_bool(name, value) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
28 const char *name |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
29 gboolean value |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
30 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
31 void |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
32 purple_prefs_add_int(name, value) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
33 const char *name |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
34 int value |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
35 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
36 void |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
37 purple_prefs_add_none(name) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
38 const char *name |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
39 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
40 void |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
41 purple_prefs_add_string(name, value) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
42 const char *name |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
43 const char *value |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
44 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
45 void |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
46 purple_prefs_add_string_list(name, value) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
47 const char *name |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
48 SV *value |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
49 PREINIT: |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
50 GList *t_GL; |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
51 int i, t_len; |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
52 PPCODE: |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
53 t_GL = NULL; |
24689
7fd6e5a72bf1
disapproval of revision '0538a6873b4fbb3c72cc0b6fc4d8b690d467686d'
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
24688
diff
changeset
|
54 t_len = av_len((AV *)SvRV(value)); |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
55 |
24690
68a90c95b722
Tweak a few for loop conditions in the Perl bindings per Etan's suggestion.
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
24688
diff
changeset
|
56 for (i = 0; i <= t_len; i++) |
23653
6f47135f5378
Some cleanup and a couple leak fixes.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23618
diff
changeset
|
57 t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(value), i, 0))); |
6f47135f5378
Some cleanup and a couple leak fixes.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23618
diff
changeset
|
58 |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
59 purple_prefs_add_string_list(name, t_GL); |
21775
4dc66862203f
This should plug some leaks related to not having freed GList:s and GSList:s
Etan Reisner <pidgin@unreliablesource.net>
parents:
17742
diff
changeset
|
60 g_list_free(t_GL); |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
61 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
62 void |
23657
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
63 purple_prefs_add_path(name, value) |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
64 const char *name |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
65 const char *value |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
66 |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
67 void |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
68 purple_prefs_add_path_list(name, value) |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
69 const char *name |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
70 SV *value |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
71 PREINIT: |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
72 GList *t_GL; |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
73 int i, t_len; |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
74 PPCODE: |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
75 t_GL = NULL; |
24689
7fd6e5a72bf1
disapproval of revision '0538a6873b4fbb3c72cc0b6fc4d8b690d467686d'
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
24688
diff
changeset
|
76 t_len = av_len((AV *)SvRV(value)); |
23657
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
77 |
24690
68a90c95b722
Tweak a few for loop conditions in the Perl bindings per Etan's suggestion.
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
24688
diff
changeset
|
78 for (i = 0; i <= t_len; i++) |
23657
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
79 t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(value), i, 0))); |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
80 |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
81 purple_prefs_add_path_list(name, t_GL); |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
82 g_list_free(t_GL); |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
83 |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
84 void |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
85 purple_prefs_destroy() |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
86 |
23618
fb86dbeb2b15
Add support to the Perl plugin loader for listing for pref changes.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22692
diff
changeset
|
87 guint |
fb86dbeb2b15
Add support to the Perl plugin loader for listing for pref changes.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22692
diff
changeset
|
88 purple_prefs_connect_callback(plugin, name, callback, data = 0); |
fb86dbeb2b15
Add support to the Perl plugin loader for listing for pref changes.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22692
diff
changeset
|
89 Purple::Plugin plugin |
fb86dbeb2b15
Add support to the Perl plugin loader for listing for pref changes.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22692
diff
changeset
|
90 const char *name |
fb86dbeb2b15
Add support to the Perl plugin loader for listing for pref changes.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22692
diff
changeset
|
91 SV *callback |
fb86dbeb2b15
Add support to the Perl plugin loader for listing for pref changes.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22692
diff
changeset
|
92 SV *data |
fb86dbeb2b15
Add support to the Perl plugin loader for listing for pref changes.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22692
diff
changeset
|
93 CODE: |
fb86dbeb2b15
Add support to the Perl plugin loader for listing for pref changes.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22692
diff
changeset
|
94 RETVAL = purple_perl_prefs_connect_callback(plugin, name, callback, data); |
fb86dbeb2b15
Add support to the Perl plugin loader for listing for pref changes.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22692
diff
changeset
|
95 OUTPUT: |
fb86dbeb2b15
Add support to the Perl plugin loader for listing for pref changes.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22692
diff
changeset
|
96 RETVAL |
fb86dbeb2b15
Add support to the Perl plugin loader for listing for pref changes.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22692
diff
changeset
|
97 |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
98 void |
23618
fb86dbeb2b15
Add support to the Perl plugin loader for listing for pref changes.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22692
diff
changeset
|
99 purple_prefs_disconnect_by_handle(plugin) |
fb86dbeb2b15
Add support to the Perl plugin loader for listing for pref changes.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22692
diff
changeset
|
100 Purple::Plugin plugin |
fb86dbeb2b15
Add support to the Perl plugin loader for listing for pref changes.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22692
diff
changeset
|
101 CODE: |
fb86dbeb2b15
Add support to the Perl plugin loader for listing for pref changes.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22692
diff
changeset
|
102 purple_perl_pref_cb_clear_for_plugin(plugin); |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
103 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
104 void |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
105 purple_prefs_disconnect_callback(callback_id) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
106 guint callback_id |
23618
fb86dbeb2b15
Add support to the Perl plugin loader for listing for pref changes.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22692
diff
changeset
|
107 CODE: |
fb86dbeb2b15
Add support to the Perl plugin loader for listing for pref changes.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
22692
diff
changeset
|
108 purple_perl_prefs_disconnect_callback(callback_id); |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
109 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
110 gboolean |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
111 purple_prefs_exists(name) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
112 const char *name |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
113 |
23657
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
114 const char * |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
115 purple_prefs_get_path(name) |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
116 const char *name |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
117 |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
118 void |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
119 purple_prefs_get_path_list(name) |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
120 const char *name |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
121 PREINIT: |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
122 GList *l; |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
123 PPCODE: |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
124 for (l = purple_prefs_get_path_list(name); l != NULL; l = g_list_delete_link(l, l)) { |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
125 XPUSHs(sv_2mortal(newSVpv(l->data, 0))); |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
126 g_free(l->data); |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
127 } |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
128 |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
129 gboolean |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
130 purple_prefs_get_bool(name) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
131 const char *name |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
132 |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
133 Purple::Handle |
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
134 purple_prefs_get_handle() |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
135 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
136 int |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
137 purple_prefs_get_int(name) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
138 const char *name |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
139 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
140 const char * |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
141 purple_prefs_get_string(name) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
142 const char *name |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
143 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
144 void |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
145 purple_prefs_get_string_list(name) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
146 const char *name |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
147 PREINIT: |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
148 GList *l; |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
149 PPCODE: |
17742
ee58212687bb
Plug a few more memory leaks for some perl plugins.
Sadrul Habib Chowdhury <imadil@gmail.com>
parents:
17741
diff
changeset
|
150 for (l = purple_prefs_get_string_list(name); l != NULL; l = g_list_delete_link(l, l)) { |
17741
b61baeefbe38
Fix _prefs_get_string_list for perl.
Sadrul Habib Chowdhury <imadil@gmail.com>
parents:
16739
diff
changeset
|
151 XPUSHs(sv_2mortal(newSVpv(l->data, 0))); |
17742
ee58212687bb
Plug a few more memory leaks for some perl plugins.
Sadrul Habib Chowdhury <imadil@gmail.com>
parents:
17741
diff
changeset
|
152 g_free(l->data); |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
153 } |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
154 |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
155 Purple::PrefType |
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
156 purple_prefs_get_type(name) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
157 const char *name |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
158 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
159 gboolean |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
160 purple_prefs_load() |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
161 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
162 void |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
163 purple_prefs_remove(name) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
164 const char *name |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
165 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
166 void |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
167 purple_prefs_rename(oldname, newname) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
168 const char *oldname |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
169 const char *newname |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
170 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
171 void |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
172 purple_prefs_rename_boolean_toggle(oldname, newname) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
173 const char *oldname |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
174 const char *newname |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
175 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
176 void |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
177 purple_prefs_set_bool(name, value) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
178 const char *name |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
179 gboolean value |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
180 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
181 void |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
182 purple_prefs_set_generic(name, value) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
183 const char *name |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
184 gpointer value |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
185 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
186 void |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
187 purple_prefs_set_int(name, value) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
188 const char *name |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
189 int value |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
190 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
191 void |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
192 purple_prefs_set_string(name, value) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
193 const char *name |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
194 const char *value |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
195 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
196 void |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
197 purple_prefs_set_string_list(name, value) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
198 const char *name |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
199 SV *value |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
200 PREINIT: |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
201 GList *t_GL; |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
202 int i, t_len; |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
203 PPCODE: |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
204 t_GL = NULL; |
24689
7fd6e5a72bf1
disapproval of revision '0538a6873b4fbb3c72cc0b6fc4d8b690d467686d'
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
24688
diff
changeset
|
205 t_len = av_len((AV *)SvRV(value)); |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
206 |
24690
68a90c95b722
Tweak a few for loop conditions in the Perl bindings per Etan's suggestion.
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
24688
diff
changeset
|
207 for (i = 0; i <= t_len; i++) |
23653
6f47135f5378
Some cleanup and a couple leak fixes.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23618
diff
changeset
|
208 t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(value), i, 0))); |
6f47135f5378
Some cleanup and a couple leak fixes.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23618
diff
changeset
|
209 |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
210 purple_prefs_set_string_list(name, t_GL); |
21775
4dc66862203f
This should plug some leaks related to not having freed GList:s and GSList:s
Etan Reisner <pidgin@unreliablesource.net>
parents:
17742
diff
changeset
|
211 g_list_free(t_GL); |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
212 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
213 void |
23657
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
214 purple_prefs_set_path(name, value) |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
215 const char *name |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
216 const char *value |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
217 |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
218 void |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
219 purple_prefs_set_path_list(name, value) |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
220 const char *name |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
221 SV *value |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
222 PREINIT: |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
223 GList *t_GL; |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
224 int i, t_len; |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
225 PPCODE: |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
226 t_GL = NULL; |
24689
7fd6e5a72bf1
disapproval of revision '0538a6873b4fbb3c72cc0b6fc4d8b690d467686d'
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
24688
diff
changeset
|
227 t_len = av_len((AV *)SvRV(value)); |
23657
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
228 |
24690
68a90c95b722
Tweak a few for loop conditions in the Perl bindings per Etan's suggestion.
John Bailey <rekkanoryo@rekkanoryo.org>
parents:
24688
diff
changeset
|
229 for (i = 0; i <= t_len; i++) |
23657
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
230 t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(value), i, 0))); |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
231 |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
232 purple_prefs_set_path_list(name, t_GL); |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
233 g_list_free(t_GL); |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
234 |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
235 |
ae3263bfd3f5
Another Perl loader patch from Zsombor Welker, this one adds some missing pref
Daniel Atallah <daniel.atallah@gmail.com>
parents:
23656
diff
changeset
|
236 void |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
237 purple_prefs_trigger_callback(name) |
15373
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
238 const char *name |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
239 |
5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff
changeset
|
240 void |
22692
f35a57b8f4ce
Expose Purple::Prefs::get_children_names to perl plugins.
Sadrul Habib Chowdhury <imadil@gmail.com>
parents:
21775
diff
changeset
|
241 purple_prefs_get_children_names(name) |
f35a57b8f4ce
Expose Purple::Prefs::get_children_names to perl plugins.
Sadrul Habib Chowdhury <imadil@gmail.com>
parents:
21775
diff
changeset
|
242 const char *name |
f35a57b8f4ce
Expose Purple::Prefs::get_children_names to perl plugins.
Sadrul Habib Chowdhury <imadil@gmail.com>
parents:
21775
diff
changeset
|
243 PREINIT: |
f35a57b8f4ce
Expose Purple::Prefs::get_children_names to perl plugins.
Sadrul Habib Chowdhury <imadil@gmail.com>
parents:
21775
diff
changeset
|
244 GList *l; |
f35a57b8f4ce
Expose Purple::Prefs::get_children_names to perl plugins.
Sadrul Habib Chowdhury <imadil@gmail.com>
parents:
21775
diff
changeset
|
245 PPCODE: |
f35a57b8f4ce
Expose Purple::Prefs::get_children_names to perl plugins.
Sadrul Habib Chowdhury <imadil@gmail.com>
parents:
21775
diff
changeset
|
246 for (l = purple_prefs_get_children_names(name); l != NULL; l = g_list_delete_link(l, l)) { |
f35a57b8f4ce
Expose Purple::Prefs::get_children_names to perl plugins.
Sadrul Habib Chowdhury <imadil@gmail.com>
parents:
21775
diff
changeset
|
247 XPUSHs(sv_2mortal(newSVpv(l->data, 0))); |
f35a57b8f4ce
Expose Purple::Prefs::get_children_names to perl plugins.
Sadrul Habib Chowdhury <imadil@gmail.com>
parents:
21775
diff
changeset
|
248 g_free(l->data); |
f35a57b8f4ce
Expose Purple::Prefs::get_children_names to perl plugins.
Sadrul Habib Chowdhury <imadil@gmail.com>
parents:
21775
diff
changeset
|
249 } |
f35a57b8f4ce
Expose Purple::Prefs::get_children_names to perl plugins.
Sadrul Habib Chowdhury <imadil@gmail.com>
parents:
21775
diff
changeset
|
250 |
f35a57b8f4ce
Expose Purple::Prefs::get_children_names to perl plugins.
Sadrul Habib Chowdhury <imadil@gmail.com>
parents:
21775
diff
changeset
|
251 void |
15833
2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <daniel.atallah@gmail.com>
parents:
15373
diff
changeset
|
252 purple_prefs_update_old() |