view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

#ifdef PL_numeric_radix_sv
if (PL_numeric_radix_sv && IN_LOCALE) {
STRLEN len;
char* radix = SvPV(PL_numeric_radix_sv, len);
if (*sp + len <= send && memEQ(*sp, radix, len)) {
*sp += len;
return TRUE;
}
}
#else
#include <locale.h>
dTHR;
struct lconv *lc = localeconv();
char *radix = lc->decimal_point;
if (radix && IN_LOCALE) {
STRLEN len = strlen(radix);
if (*sp + len <= send && memEQ(*sp, radix, len)) {
*sp += len;
return TRUE;
}
}
#endif
#endif

ppport.h  view on Meta::CPAN

#if PERL_VERSION_LT(5,19,0)
#undef STORE_LC_NUMERIC_SET_STANDARD
#undef RESTORE_LC_NUMERIC
#undef DECLARATION_FOR_LC_NUMERIC_MANIPULATION
#ifdef USE_LOCALE
#ifndef DECLARATION_FOR_LC_NUMERIC_MANIPULATION
#define DECLARATION_FOR_LC_NUMERIC_MANIPULATION char *LoC_
#endif
#ifndef STORE_NUMERIC_SET_STANDARD
#define STORE_NUMERIC_SET_STANDARD() \
LoC_ = savepv(setlocale(LC_NUMERIC, NULL)); \
SAVEFREEPV(LoC_); \
setlocale(LC_NUMERIC, "C");
#endif
#ifndef RESTORE_LC_NUMERIC
#define RESTORE_LC_NUMERIC() \
setlocale(LC_NUMERIC, LoC_);
#endif
#else
#ifndef DECLARATION_FOR_LC_NUMERIC_MANIPULATION
#define DECLARATION_FOR_LC_NUMERIC_MANIPULATION
#endif
#ifndef STORE_LC_NUMERIC_SET_STANDARD
#define STORE_LC_NUMERIC_SET_STANDARD()
#endif
#ifndef RESTORE_LC_NUMERIC
#define RESTORE_LC_NUMERIC()

ppport.h  view on Meta::CPAN

#endif
#ifndef UNLOCK_NUMERIC_STANDARD
#define UNLOCK_NUMERIC_STANDARD()
#endif
#ifndef LOCK_LC_NUMERIC_STANDARD
#define LOCK_LC_NUMERIC_STANDARD LOCK_NUMERIC_STANDARD
#endif
#ifndef UNLOCK_LC_NUMERIC_STANDARD
#define UNLOCK_LC_NUMERIC_STANDARD UNLOCK_NUMERIC_STANDARD
#endif
#ifndef switch_to_global_locale
#define switch_to_global_locale()
#endif
#ifdef sync_locale
#if (PERL_BCDVERSION < 0x5027009)
#if (PERL_BCDVERSION >= 0x5021003)
#undef sync_locale
#define sync_locale() (Perl_sync_locale(aTHX), 1)
#elif defined(sync_locale)
#undef sync_locale
#define sync_locale() (new_ctype(setlocale(LC_CTYPE, NULL)), \
new_collate(setlocale(LC_COLLATE, NULL)), \
set_numeric_local(), \
new_numeric(setlocale(LC_NUMERIC, NULL)), \
1)
#elif defined(new_ctype) && defined(LC_CTYPE)
#define sync_locale() (new_ctype(setlocale(LC_CTYPE, NULL)), 1)
#endif
#endif
#endif
#ifndef sync_locale
#define sync_locale() 1
#endif
#endif