plugins/perl/common/Prefs.xs

Mon, 16 Apr 2007 00:43:53 +0000

author
Richard Laager <rlaager@pidgin.im>
date
Mon, 16 Apr 2007 00:43:53 +0000
changeset 13071
b98e72d4089a
parent 12780
09514852c086
permissions
-rw-r--r--

Commit a proper copy of this binary file. The old one was corrupted,
probably due to missing SVN attributes.

This was retrieved from the following URL, though we may have it in CVS:
http://dev.openwengo.com/trac/openwengo/trac.cgi/browser/vendors/gaim/trunk/doc/oscar/On_Sending_Files_via_OSCAR.odt?rev=4273

11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
1 #include "module.h"
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
2
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
3 MODULE = Gaim::Prefs PACKAGE = Gaim::Prefs PREFIX = gaim_prefs_
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
4 PROTOTYPES: ENABLE
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
5
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
6 void
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
7 gaim_prefs_add_bool(name, value)
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
8 const char *name
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
9 gboolean value
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
10
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
11 void
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
12 gaim_prefs_add_int(name, value)
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
13 const char *name
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
14 int value
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
15
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
16 void
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
17 gaim_prefs_add_none(name)
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
18 const char *name
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
19
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
20 void
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
21 gaim_prefs_add_string(name, value)
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
22 const char *name
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
23 const char *value
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
24
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
25 void
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
26 gaim_prefs_add_string_list(name, value)
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
27 const char *name
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
28 SV *value
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
29 PREINIT:
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
30 GList *t_GL;
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
31 int i, t_len;
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
32 PPCODE:
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
33 t_GL = NULL;
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
34 t_len = av_len((AV *)SvRV(value));
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
35
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
36 for (i = 0; i < t_len; i++) {
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
37 STRLEN t_sl;
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
38 t_GL = g_list_append(t_GL, SvPV(*av_fetch((AV *)SvRV(value), i, 0), t_sl));
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
39 }
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
40 gaim_prefs_add_string_list(name, t_GL);
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
41
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
42 void
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
43 gaim_prefs_destroy()
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
44
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
45 void
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
46 gaim_prefs_disconnect_by_handle(handle)
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
47 void * handle
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
48
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
49 void
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
50 gaim_prefs_disconnect_callback(callback_id)
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
51 guint callback_id
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
52
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
53 gboolean
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
54 gaim_prefs_exists(name)
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
55 const char *name
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
56
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
57 gboolean
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
58 gaim_prefs_get_bool(name)
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
59 const char *name
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
60
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
61 void *
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
62 gaim_prefs_get_handle()
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
63
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
64 int
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
65 gaim_prefs_get_int(name)
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
66 const char *name
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
67
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
68 const char *
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
69 gaim_prefs_get_string(name)
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
70 const char *name
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
71
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
72 void
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
73 gaim_prefs_get_string_list(name)
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
74 const char *name
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
75 PREINIT:
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
76 GList *l;
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
77 PPCODE:
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
78 for (l = gaim_prefs_get_string_list(name); l != NULL; l = l->next) {
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
79 XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::PrefValue")));
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
80 }
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
81
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
82 Gaim::PrefType
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
83 gaim_prefs_get_type(name)
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
84 const char *name
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
85
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
86 void
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
87 gaim_prefs_init()
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
88
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
89 gboolean
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
90 gaim_prefs_load()
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
91
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
92 void
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
93 gaim_prefs_remove(name)
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
94 const char *name
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
95
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
96 void
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
97 gaim_prefs_rename(oldname, newname)
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
98 const char *oldname
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
99 const char *newname
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
100
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
101 void
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
102 gaim_prefs_rename_boolean_toggle(oldname, newname)
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
103 const char *oldname
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
104 const char *newname
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
105
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
106 void
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
107 gaim_prefs_set_bool(name, value)
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
108 const char *name
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
109 gboolean value
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
110
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
111 void
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
112 gaim_prefs_set_generic(name, value)
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
113 const char *name
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
114 gpointer value
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
115
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
116 void
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
117 gaim_prefs_set_int(name, value)
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
118 const char *name
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
119 int value
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
120
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
121 void
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
122 gaim_prefs_set_string(name, value)
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
123 const char *name
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
124 const char *value
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
125
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
126 void
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
127 gaim_prefs_set_string_list(name, value)
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
128 const char *name
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
129 SV *value
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
130 PREINIT:
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
131 GList *t_GL;
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
132 int i, t_len;
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
133 PPCODE:
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
134 t_GL = NULL;
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
135 t_len = av_len((AV *)SvRV(value));
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
136
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
137 for (i = 0; i < t_len; i++) {
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
138 STRLEN t_sl;
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
139 t_GL = g_list_append(t_GL, SvPV(*av_fetch((AV *)SvRV(value), i, 0), t_sl));
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
140 }
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
141 gaim_prefs_set_string_list(name, t_GL);
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
142
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
143 void
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
144 gaim_prefs_trigger_callback(name)
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
145 const char *name
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
146
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
147 void
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
148 gaim_prefs_uninit()
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
149
12780
09514852c086 [gaim-migrate @ 15127]
Etan Reisner <deryni@pidgin.im>
parents: 11290
diff changeset
150 void
11118
36db35a9da56 [gaim-migrate @ 13174]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
151 gaim_prefs_update_old()

mercurial