1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "xmms/configfile.h"
typedef ConfigFile * Xmms__Config;
#define xmms_cfg_DESTROY xmms_cfg_free
#define xmms_cfg_write xmms_cfg_write_string
MODULE = Xmms::Config PACKAGE = Xmms::Config PREFIX = xmms_cfg_
PROTOTYPES: disable
SV *
xmms_cfg_file(self)
SV *self
CODE:
RETVAL = newSV(0);
sv_setpvf(RETVAL, "%s/.xmms/config", g_get_home_dir());
OUTPUT:
RETVAL
SV *
xmms_cfg_perlfile(self)
SV *self
CODE:
RETVAL = newSV(0);
sv_setpvf(RETVAL, "%s/.xmms/config.perl", g_get_home_dir());
OUTPUT:
RETVAL
Xmms::Config
xmms_cfg_new(svclass, filename=NULL)
SV *svclass
gchar *filename
CODE:
RETVAL = NULL;
if (filename) {
RETVAL = xmms_cfg_open_file(filename);
}
if (!RETVAL) {
RETVAL = xmms_cfg_new();
}
OUTPUT:
RETVAL
void
xmms_cfg_DESTROY(cfg)
Xmms::Config cfg
gboolean
xmms_cfg_write_file(cfg, filename)
Xmms::Config cfg
gchar *filename
void
xmms_cfg_remove_key(cfg, section, key)
Xmms::Config cfg
gchar *section
gchar *key
SV *
xmms_cfg_read(cfg, section, key)
Xmms::Config cfg
gchar *section
gchar *key
PREINIT:
gchar *value;
CODE:
if (!xmms_cfg_read_string(cfg, section, key, &value)) {
XSRETURN_UNDEF;
}
RETVAL = newSV(0);
sv_setpv(RETVAL, value);
g_free(value);
OUTPUT:
RETVAL
void
xmms_cfg_write(cfg, section, key, value)
Xmms::Config cfg
gchar *section
gchar *key
gchar *value
|
