diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-06-27 13:49:31 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-06-27 13:49:31 +0000 |
| commit | 4f4e629e089f1120f8e94984281df06ac4f885c5 (patch) | |
| tree | cc7f066c9893e0db84c4c487c16bb7dff5e029d6 /perl.h | |
| parent | d0334bed0b5f8315518daa5bbcd832e006b78148 (diff) | |
| parent | d43ce814c3413c5d667db1dd8ade5d571ac81c1f (diff) | |
| download | perl-4f4e629e089f1120f8e94984281df06ac4f885c5.tar.gz | |
integrate cfgperl changes into mainline
p4raw-id: //depot/perl@3552
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 16 |
1 files changed, 14 insertions, 2 deletions
@@ -2817,10 +2817,22 @@ typedef struct am_table_short AMTS; set_numeric_local(); \ } STMT_END +#define IS_NUMERIC_RADIX(c) \ + ((PL_hints & HINT_LOCALE) && \ + PL_numeric_radix && (c) == PL_numeric_radix) + +#define RESTORE_NUMERIC_LOCAL() if ((PL_hints & HINT_LOCALE) && PL_numeric_standard) SET_NUMERIC_LOCAL() +#define RESTORE_NUMERIC_STANDARD() if ((PL_hints & HINT_LOCALE) && PL_numeric_local) SET_NUMERIC_STANDARD() +#define Atof(s) Perl_my_atof(s) + #else /* !USE_LOCALE_NUMERIC */ -#define SET_NUMERIC_STANDARD() /**/ -#define SET_NUMERIC_LOCAL() /**/ +#define SET_NUMERIC_STANDARD() /**/ +#define SET_NUMERIC_LOCAL() /**/ +#define IS_NUMERIC_RADIX(c) (0) +#define RESTORE_NUMERIC_LOCAL() /**/ +#define RESTORE_NUMERIC_STANDARD() /**/ +#define Atof(s) atof(s) #endif /* !USE_LOCALE_NUMERIC */ |