1 #ifndef PL_PERL_HELPERS_H 2 #define PL_PERL_HELPERS_H 71 (SvTYPE(sv) > SVt_PVLV && SvTYPE(sv) != SVt_PVFM))
90 val = SvPVutf8(sv, len);
117 return newSVpv(str, 0);
121 sv = newSVpv(utf8_str, 0);
143 croak_sv(sv_2mortal(
cstr2sv(str)));
153 SV *errsv =
get_sv(
"@", GV_ADD);
157 ssv = mess(
"%s", utf8_str);
162 sv_setsv(errsv, ssv);
char * pstrdup(const char *in)
static char * utf_u2e(char *utf8_str, size_t len)
char * pg_server_to_any(const char *s, int len, int encoding)
void pfree(void *pointer)
static char * utf_e2u(const char *str)
#define SvREFCNT_inc_simple_void(sv)
int GetDatabaseEncoding(void)
static void croak_cstr(const char *str)
static SV * cstr2sv(const char *str)
char * pg_any_to_server(const char *s, int len, int encoding)
static char * sv2cstr(SV *sv)