25 lines
680 B
C
25 lines
680 B
C
SWITCH_BEGIN_EXTERN_C void mod_perl_conjure_event(PerlInterpreter * my_perl, switch_event_t *event, const char *name)
|
|
{
|
|
Event *result = 0;
|
|
SV *sv;
|
|
PERL_SET_CONTEXT(my_perl);
|
|
sv = sv_2mortal(get_sv(name, TRUE));
|
|
result = (Event *) new Event(event);
|
|
SWIG_Perl_MakePtr(sv, result, SWIGTYPE_p_Event, SWIG_OWNER | SWIG_SHADOW);
|
|
}
|
|
|
|
|
|
void mod_perl_conjure_stream(PerlInterpreter * my_perl, switch_stream_handle_t *stream, const char *name)
|
|
{
|
|
Stream *result = 0;
|
|
SV *sv;
|
|
PERL_SET_CONTEXT(my_perl);
|
|
sv = sv_2mortal(get_sv(name, TRUE));
|
|
result = (Stream *) new Stream(stream);
|
|
SWIG_Perl_MakePtr(sv, result, SWIGTYPE_p_Stream, SWIG_OWNER | SWIG_SHADOW);
|
|
}
|
|
|
|
|
|
|
|
SWITCH_END_EXTERN_C
|