From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

REHSACK / Lib-Log4cplus-0.001 / Log4cplus.xs 

            

              
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
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197

              
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "ppport.h"
#include <log4cplus/clogger.h>
#include "LLCconfig.h"
#include "const-c.inc"
#define MY_CXT_KEY "Lib::Log4cplus::_guts" XS_VERSION
typedef struct {
    int count;
    SV *initializer;
} my_cxt_t;
START_MY_CXT
MODULE = Lib::Log4cplus::Initializer            PACKAGE = Lib::Log4cplus::Initializer
void
DESTROY(initializer)
    void *initializer;
CODE:
    if(initializer)
        log4cplus_deinitialize(initializer);
MODULE = Lib::Log4cplus         PACKAGE = Lib::Log4cplus
INCLUDE: const-xs.inc
BOOT:
{
    MY_CXT_INIT;
    MY_CXT.count = 0;
    MY_CXT.initializer = newSV(0);
    sv_setref_pv(MY_CXT.initializer, "Lib::Log4cplus::Initializer", log4cplus_initialize());
#if defined(HAVE_LOG4CPLUS_ADD_LOG_LEVEL) && defined(HAVE_LOG4CPLUS_REMOVE_LOG_LEVEL)
    log4cplus_add_log_level(CRITICAL_LOG_LEVEL, "CRIT");
    log4cplus_add_log_level(NOTICE_LOG_LEVEL, "NOTICE");
    log4cplus_add_log_level(BASIC_LOG_LEVEL, "BASIC");
#endif
}
void
CLONE(...)
CODE:
{
    MY_CXT_CLONE;
    MY_CXT.initializer = newSV(0);
    sv_setref_pv(MY_CXT.initializer, "Lib::Log4cplus::Initializer", log4cplus_initialize());
}
void
file_configure (pathname)
        const char *pathname;
PROTOTYPE:
        $
CODE:
{
    int ret_code;
    if(NULL == pathname)
        XSRETURN_UNDEF;
#ifdef HAVE_LOG4CPLUS_FILE_RECONFIGURE
    ret_code = log4cplus_file_reconfigure(pathname);
#else
    ret_code = log4cplus_file_configure(pathname);
#endif
    ST(0) = sv_2mortal(newSViv(ret_code));
    XSRETURN(1);
}
void
static_configure (configuration)
        const char *configuration;
PROTOTYPE:
        $
CODE:
{
    int ret_code;
    if(NULL == configuration)
        XSRETURN_UNDEF;
#ifdef HAVE_LOG4CPLUS_STR_RECONFIGURE
    ret_code = log4cplus_str_reconfigure(configuration);
#else
    ret_code = log4cplus_str_configure(configuration);
#endif
    ST(0) = sv_2mortal(newSViv(ret_code));
    XSRETURN(1);
}
void
basic_configure (out_to_stderr)
        int out_to_stderr;
PROTOTYPE:
CODE:
{
#ifdef HAVE_LOG4CPLUS_BASIC_RECONFIGURE
    int ret_code = log4cplus_basic_reconfigure(out_to_stderr);
#else
    int ret_code = log4cplus_basic_configure();
#endif
    ST(0) = sv_2mortal(newSViv(ret_code));
    XSRETURN(1);
}
void
logger_exists (category)
        const char *category;
PROTOTYPE:
        $
CODE:
{
    int exists = NULL != category ? log4cplus_logger_exists(category) : 1;
    if(exists)
        XSRETURN_YES;
    else
        XSRETURN_NO;
}
void
logger_is_enabled_for (category, log_level)
        const char *category;
        int log_level;
PROTOTYPE:
        $$
CODE:
{
    int is_enabled = log4cplus_logger_is_enabled_for(category, log_level);
    if(is_enabled)
        XSRETURN_YES;
    else
        XSRETURN_NO;
}
void
logger_log (category, log_level, message)
        const char *category;
        int log_level;
        const char *message;
PROTOTYPE:
        $$$
CODE:
{
    int ret_code = NULL != message ? log4cplus_logger_log_str(category, log_level, message) : EINVAL;
    ST(0) = sv_2mortal(newSViv(ret_code));
    XSRETURN(1);
}
void
logger_force_log (category, log_level, message)
        const char *category;
        int log_level;
        const char *message;
PROTOTYPE:
        $$$
CODE:
{
    int ret_code = NULL != message ? log4cplus_logger_force_log_str(category, log_level, message) : EINVAL;
    ST(0) = sv_2mortal(newSViv(ret_code));
    XSRETURN(1);
}
void
log4cplus_add_log_level(loglevel, loglevel_name)
        unsigned int loglevel;
        const char *loglevel_name;
PROTOTYPE:
        $$
CODE:
{
#ifdef HAVE_LOG4CPLUS_ADD_LOG_LEVEL
    int ret_code = log4cplus_add_log_level(loglevel, loglevel_name);
    ST(0) = sv_2mortal(newSViv(ret_code));
#else
    ST(0) = sv_2mortal(newSViv(ENOTSUP));
#endif
    XSRETURN(1);
}
void
log4cplus_remove_log_level(loglevel, loglevel_name)
        unsigned int loglevel;
        const char *loglevel_name;
PROTOTYPE:
        $$
CODE:
{
#ifdef HAVE_LOG4CPLUS_REMOVE_LOG_LEVEL
    int ret_code = log4cplus_remove_log_level(loglevel, loglevel_name);
    ST(0) = sv_2mortal(newSViv(ret_code));
#else
    ST(0) = sv_2mortal(newSViv(ENOTSUP));
#endif
    XSRETURN(1);
}