Ruby
2.4.2p198(2017-09-14revision59899)
|
#include "internal.h"
#include <ctype.h>
#include <stdio.h>
#include <errno.h>
#include <math.h>
#include <float.h>
#include "ruby/util.h"
#include <sys/types.h>
#include <sys/stat.h>
#include "stdlib.h"
#include "string.h"
Go to the source code of this file.
Data Structures | |
struct | stack_node |
union | U |
struct | Bigint |
Macros | |
#define | hexdigit ruby_hexdigits |
#define | S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR) |
#define | mmtype long |
#define | mmcount (16 / SIZEOF_LONG) |
#define | A ((mmtype*)a) |
#define | B ((mmtype*)b) |
#define | C ((mmtype*)c) |
#define | D ((mmtype*)d) |
#define | mmstep (sizeof(mmtype) * mmcount) |
#define | mmprepare(base, size) |
#define | mmarg mmkind, size, high, low |
#define | mmargdecl int mmkind, size_t size, size_t high, size_t low |
#define | mmswap(a, b) mmswap_((a),(b),mmarg) |
#define | mmrot3(a, b, c) mmrot3_((a),(b),(c),mmarg) |
#define | PUSH(ll, rr) do { top->LL = (ll); top->RR = (rr); ++top; } while (0) /* Push L,l,R,r */ |
#define | POP(ll, rr) do { --top; (ll) = top->LL; (rr) = top->RR; } while (0) /* Pop L,l,R,r */ |
#define | med3(a, b, c) |
#define | PATH_MAX 8192 |
#define | IEEE_LITTLE_ENDIAN |
#define | MALLOC xmalloc |
#define | FREE xfree |
#define | PRIVATE_MEM 2304 |
#define | PRIVATE_mem ((PRIVATE_MEM+sizeof(double)-1)/sizeof(double)) |
#define | IEEE_Arith |
#define | word0(x) ((x).L[1]) |
#define | word1(x) ((x).L[0]) |
#define | dval(x) ((x).d) |
#define | Storeinc(a, b, c) |
#define | Exp_shift 20 |
#define | Exp_shift1 20 |
#define | Exp_msk1 0x100000 |
#define | Exp_msk11 0x100000 |
#define | Exp_mask 0x7ff00000 |
#define | P 53 |
#define | Bias 1023 |
#define | Emin (-1022) |
#define | Exp_1 0x3ff00000 |
#define | Exp_11 0x3ff00000 |
#define | Ebits 11 |
#define | Frac_mask 0xfffff |
#define | Frac_mask1 0xfffff |
#define | Ten_pmax 22 |
#define | Bletch 0x10 |
#define | Bndry_mask 0xfffff |
#define | Bndry_mask1 0xfffff |
#define | LSB 1 |
#define | Sign_bit 0x80000000 |
#define | Log2P 1 |
#define | Tiny0 0 |
#define | Tiny1 1 |
#define | Quick_max 14 |
#define | Int_max 14 |
#define | Avoid_Underflow |
#define | Flt_Rounds 1 |
#define | Rounding Flt_Rounds |
#define | rounded_product(a, b) ((a) *= (b)) |
#define | rounded_quotient(a, b) ((a) /= (b)) |
#define | Big0 (Frac_mask1 | Exp_msk1*(DBL_MAX_EXP+Bias-1)) |
#define | Big1 0xffffffff |
#define | Pack_32 |
#define | FFFFFFFF 0xffffffffUL |
#define | Llong long long |
#define | ULLong unsigned Llong |
#define | MULTIPLE_THREADS 1 |
#define | ACQUIRE_DTOA_LOCK(n) /*unused right now*/ |
#define | FREE_DTOA_LOCK(n) /*unused right now*/ |
#define | Kmax 15 |
#define | Bcopy(x, y) |
#define | d0 word0(d) |
#define | d1 word1(d) |
#define | d0 word0(d) |
#define | d1 word1(d) |
#define | Scale_Bit 0x10 |
#define | n_bigtens 5 |
#define | rv_alloc(i) xmalloc(i) |
#define | rv_strdup(s, rve) nrv_alloc((s), (rve), strlen(s)+1) |
#define | DBL_MANH_SIZE 20 |
#define | DBL_MANL_SIZE 32 |
#define | DBL_ADJ (DBL_MAX_EXP - 2) |
#define | SIGFIGS ((DBL_MANT_DIG + 3) / 4 + 1) |
#define | dexp_get(u) ((int)(word0(u) >> Exp_shift) & ~Exp_msk1) |
#define | dexp_set(u, v) (word0(u) = (((int)(word0(u)) & ~Exp_mask) | ((v) << Exp_shift))) |
#define | dmanh_get(u) ((uint32_t)(word0(u) & Frac_mask)) |
#define | dmanl_get(u) ((uint32_t)word1(u)) |
Typedefs | |
typedef int() | cmpfunc_t(const void *, const void *, void *) |
typedef U | double_u |
typedef struct Bigint | Bigint |
Functions | |
unsigned long | ruby_scan_oct (const char *start, size_t len, size_t *retlen) |
unsigned long | ruby_scan_hex (const char *start, size_t len, size_t *retlen) |
unsigned long | ruby_scan_digits (const char *str, ssize_t len, int base, size_t *retlen, int *overflow) |
unsigned long | ruby_strtoul (const char *str, char **endptr, int base) |
static void | mmswap_ (register char *a, register char *b, mmargdecl) |
static void | mmrot3_ (register char *a, register char *b, register char *c, mmargdecl) |
void | ruby_qsort (void *base, const size_t nel, const size_t size, cmpfunc_t *cmp, void *d) |
char * | ruby_strdup (const char *str) |
char * | ruby_getcwd (void) |
static Bigint * | Balloc (int k) |
static void | Bfree (Bigint *v) |
static Bigint * | multadd (Bigint *b, int m, int a) |
static Bigint * | s2b (const char *s, int nd0, int nd, ULong y9) |
static int | hi0bits (register ULong x) |
static int | lo0bits (ULong *y) |
static Bigint * | i2b (int i) |
static Bigint * | mult (Bigint *a, Bigint *b) |
static Bigint * | pow5mult (Bigint *b, int k) |
static Bigint * | lshift (Bigint *b, int k) |
static int | cmp (Bigint *a, Bigint *b) |
static Bigint * | diff (Bigint *a, Bigint *b) |
static double | ulp (double x_) |
static double | b2d (Bigint *a, int *e) |
static Bigint * | d2b (double d_, int *e, int *bits) |
static double | ratio (Bigint *a, Bigint *b) |
double | ruby_strtod (const char *s00, char **se) |
static int | quorem (Bigint *b, Bigint *S) |
static char * | nrv_alloc (const char *s, char **rve, size_t n) |
char * | ruby_dtoa (double d_, int mode, int ndigits, int *decpt, int *sign, char **rve) |
void | ruby_each_words (const char *str, void(*func)(const char *, int, void *), void *arg) |
char * | ruby_hdtoa (double d, const char *xdigs, int ndigits, int *decpt, int *sign, char **rve) |
Variables | |
const char | ruby_hexdigits [] = "0123456789abcdef0123456789ABCDEF" |
const signed char | ruby_digit36_to_number_table [] |
static double | private_mem [PRIVATE_mem] |
static double * | pmem_next = private_mem |
static Bigint * | freelist [Kmax+1] |
static Bigint * | p5s |
static const double | tens [] |
static const double | bigtens [] = { 1e16, 1e32, 1e64, 1e128, 1e256 } |
static const double | tinytens [] |
static const char | INFSTR [] = "Infinity" |
static const char | NANSTR [] = "NaN" |
static const char | ZEROSTR [] = "0" |
#define ACQUIRE_DTOA_LOCK | ( | n | ) | /*unused right now*/ |
Definition at line 1031 of file util.c.
Referenced by Balloc(), Bfree(), and pow5mult().
#define Avoid_Underflow |
Definition at line 901 of file util.c.
Referenced by ruby_strtod().
Definition at line 232 of file util.c.
Referenced by des_cipher_r().
#define Bcopy | ( | x, | |
y | |||
) |
Definition at line 1097 of file util.c.
Referenced by multadd(), ruby_dtoa(), and ruby_strtod().
#define Bias 1023 |
Definition at line 882 of file util.c.
Referenced by d2b(), ruby_dtoa(), and ruby_strtod().
#define Big0 (Frac_mask1 | Exp_msk1*(DBL_MAX_EXP+Bias-1)) |
Definition at line 997 of file util.c.
Referenced by ruby_strtod().
#define Big1 0xffffffff |
Definition at line 998 of file util.c.
Referenced by ruby_strtod().
#define Bletch 0x10 |
Definition at line 890 of file util.c.
Referenced by ruby_dtoa().
#define Bndry_mask 0xfffff |
Definition at line 891 of file util.c.
Referenced by ruby_dtoa(), and ruby_strtod().
#define Bndry_mask1 0xfffff |
Definition at line 892 of file util.c.
Referenced by ruby_strtod().
#define d0 word0(d) |
#define d1 word1(d) |
Referenced by b2d(), d2b(), inet_pton(), main(), rb_free_method_entry(), and vm_base_ptr().
#define d1 word1(d) |
#define DBL_ADJ (DBL_MAX_EXP - 2) |
Definition at line 3858 of file util.c.
Referenced by ruby_hdtoa().
#define DBL_MANH_SIZE 20 |
Definition at line 3856 of file util.c.
Referenced by ruby_hdtoa().
#define DBL_MANL_SIZE 32 |
Definition at line 3857 of file util.c.
Referenced by ruby_hdtoa().
Definition at line 3860 of file util.c.
Referenced by ruby_hdtoa().
Definition at line 3861 of file util.c.
Referenced by ruby_hdtoa().
Definition at line 3862 of file util.c.
Referenced by ruby_hdtoa().
Definition at line 3863 of file util.c.
Referenced by ruby_hdtoa().
#define dval | ( | x | ) | ((x).d) |
Definition at line 854 of file util.c.
Referenced by b2d(), d2b(), ratio(), ruby_dtoa(), ruby_strtod(), and ulp().
#define Emin (-1022) |
Definition at line 883 of file util.c.
Referenced by ruby_strtod().
#define Exp_1 0x3ff00000 |
Definition at line 884 of file util.c.
Referenced by b2d(), ruby_dtoa(), and ruby_strtod().
#define Exp_11 0x3ff00000 |
Definition at line 885 of file util.c.
Referenced by ruby_dtoa().
#define Exp_mask 0x7ff00000 |
Definition at line 880 of file util.c.
Referenced by ruby_dtoa(), ruby_strtod(), and ulp().
#define Exp_msk1 0x100000 |
Definition at line 878 of file util.c.
Referenced by d2b(), ratio(), ruby_dtoa(), ruby_strtod(), and ulp().
#define Exp_shift 20 |
Definition at line 876 of file util.c.
Referenced by d2b(), ruby_dtoa(), ruby_strtod(), and ulp().
#define Exp_shift1 20 |
Definition at line 877 of file util.c.
Referenced by ruby_dtoa().
#define FFFFFFFF 0xffffffffUL |
#define Flt_Rounds 1 |
Definition at line 911 of file util.c.
Referenced by ruby_dtoa(), and ruby_strtod().
#define Frac_mask 0xfffff |
Definition at line 887 of file util.c.
Referenced by d2b(), ruby_dtoa(), and ruby_strtod().
#define Frac_mask1 0xfffff |
Definition at line 888 of file util.c.
Referenced by ruby_dtoa().
#define FREE_DTOA_LOCK | ( | n | ) | /*unused right now*/ |
Definition at line 1032 of file util.c.
Referenced by Balloc(), Bfree(), and pow5mult().
#define hexdigit ruby_hexdigits |
Definition at line 31 of file util.c.
Referenced by ruby_scan_hex(), and ruby_strtod().
#define IEEE_Arith |
Definition at line 782 of file util.c.
Referenced by ruby_strtod().
#define Int_max 14 |
Definition at line 899 of file util.c.
Referenced by ruby_dtoa().
#define Log2P 1 |
Definition at line 895 of file util.c.
Referenced by ruby_dtoa(), and ruby_strtod().
#define LSB 1 |
Definition at line 893 of file util.c.
Referenced by ruby_strtod().
#define med3 | ( | a, | |
b, | |||
c | |||
) |
Definition at line 338 of file util.c.
Referenced by ruby_qsort().
#define mmargdecl int mmkind, size_t size, size_t high, size_t low |
#define mmprepare | ( | base, | |
size | |||
) |
Definition at line 237 of file util.c.
Referenced by ruby_qsort().
Definition at line 323 of file util.c.
Referenced by ruby_qsort().
Definition at line 285 of file util.c.
Referenced by ruby_qsort().
#define n_bigtens 5 |
Definition at line 1892 of file util.c.
Referenced by ruby_dtoa(), and ruby_strtod().
#define P 53 |
Definition at line 881 of file util.c.
Referenced by d2b(), ruby_dtoa(), ruby_strtod(), and ulp().
#define PATH_MAX 8192 |
Referenced by check_valid_dir(), cmdglob(), open_dir_handle(), rb_w32_special_folder(), ruby_getcwd(), w32_aspawn_flags(), w32_spawn(), and winnt_stat().
Definition at line 336 of file util.c.
Referenced by ruby_qsort().
#define PRIVATE_mem ((PRIVATE_MEM+sizeof(double)-1)/sizeof(double)) |
Definition at line 335 of file util.c.
Referenced by ruby_qsort().
#define Quick_max 14 |
Definition at line 898 of file util.c.
Referenced by ruby_dtoa().
#define rounded_product | ( | a, | |
b | |||
) | ((a) *= (b)) |
Definition at line 993 of file util.c.
Referenced by ruby_strtod().
#define rounded_quotient | ( | a, | |
b | |||
) | ((a) /= (b)) |
Definition at line 994 of file util.c.
Referenced by ruby_strtod().
#define Rounding Flt_Rounds |
Definition at line 920 of file util.c.
Referenced by ruby_dtoa(), and ruby_strtod().
#define rv_alloc | ( | i | ) | xmalloc(i) |
Definition at line 3066 of file util.c.
Referenced by nrv_alloc(), quorem(), ruby_dtoa(), and ruby_hdtoa().
Definition at line 3081 of file util.c.
Referenced by ruby_dtoa(), and ruby_hdtoa().
#define Scale_Bit 0x10 |
Definition at line 1891 of file util.c.
Referenced by ruby_strtod().
#define SIGFIGS ((DBL_MANT_DIG + 3) / 4 + 1) |
Definition at line 3859 of file util.c.
Referenced by ruby_hdtoa().
#define Sign_bit 0x80000000 |
Definition at line 894 of file util.c.
Referenced by ruby_dtoa(), and ruby_hdtoa().
#define Storeinc | ( | a, | |
b, | |||
c | |||
) |
#define Ten_pmax 22 |
Definition at line 889 of file util.c.
Referenced by ruby_dtoa(), and ruby_strtod().
#define Tiny0 0 |
Definition at line 896 of file util.c.
Referenced by ruby_strtod().
#define Tiny1 1 |
Definition at line 897 of file util.c.
Referenced by ruby_strtod().
#define ULLong unsigned Llong |
#define word0 | ( | x | ) | ((x).L[1]) |
Definition at line 848 of file util.c.
Referenced by b2d(), d2b(), ratio(), ruby_dtoa(), ruby_hdtoa(), ruby_strtod(), and ulp().
#define word1 | ( | x | ) | ((x).L[0]) |
Definition at line 849 of file util.c.
Referenced by b2d(), d2b(), ruby_dtoa(), ruby_strtod(), and ulp().
|
static |
|
static |
Definition at line 1048 of file util.c.
References ACQUIRE_DTOA_LOCK, FREE_DTOA_LOCK, Bigint::k, Kmax, len, MALLOC, Bigint::maxwds, Bigint::next, pmem_next, PRIVATE_mem, private_mem, Bigint::sign, Bigint::wds, and Bigint::x.
Referenced by d2b(), diff(), i2b(), lshift(), mult(), multadd(), ruby_dtoa(), ruby_strtod(), and s2b().
|
static |
Definition at line 1083 of file util.c.
References ACQUIRE_DTOA_LOCK, FREE, FREE_DTOA_LOCK, Bigint::k, Kmax, and Bigint::next.
Referenced by lshift(), multadd(), pow5mult(), ruby_dtoa(), and ruby_strtod().
Definition at line 1478 of file util.c.
References Bigint::wds, and Bigint::x.
Referenced by diff(), quorem(), ruby_dtoa(), and ruby_strtod().
|
static |
Definition at line 1507 of file util.c.
References Balloc(), cmp(), FFFFFFFF, Bigint::k, Bigint::sign, Storeinc, ULLong, Bigint::wds, and Bigint::x.
Referenced by enc_strlen(), num_step(), pair_byte_cmp(), rb_enc_strlen_cr(), rb_fiddle_ptr_cmp(), rb_szqueue_max_set(), ruby_dtoa(), ruby_num_interval_step_size(), and ruby_strtod().
|
static |
|
static |
Definition at line 1258 of file util.c.
References Balloc(), Bigint::wds, and Bigint::x.
Referenced by pow5mult(), ruby_dtoa(), and ruby_strtod().
|
static |
Definition at line 1424 of file util.c.
References Balloc(), Bfree(), Bigint::k, Bigint::maxwds, Bigint::wds, and Bigint::x.
Referenced by ruby_dtoa(), and ruby_strtod().
|
static |
|
static |
Definition at line 1269 of file util.c.
References Balloc(), FFFFFFFF, Bigint::k, Bigint::maxwds, Storeinc, ULLong, Bigint::wds, and Bigint::x.
Referenced by iseq_specialized_instruction(), pow5mult(), ruby_dtoa(), and ruby_strtod().
Definition at line 1101 of file util.c.
References Balloc(), Bcopy, Bfree(), FFFFFFFF, Bigint::k, Bigint::maxwds, ULLong, Bigint::wds, and Bigint::x.
Referenced by pow5mult(), ruby_dtoa(), and s2b().
|
static |
Definition at line 1372 of file util.c.
References ACQUIRE_DTOA_LOCK, Bfree(), FREE_DTOA_LOCK, i2b(), mult(), multadd(), and Bigint::next.
Referenced by ruby_dtoa(), and ruby_strtod().
Definition at line 1833 of file util.c.
References b2d(), dval, Exp_msk1, Bigint::k, Bigint::wds, and word0.
Referenced by ruby_strtod().
char* ruby_dtoa | ( | double | d_, |
int | mode, | ||
int | ndigits, | ||
int * | decpt, | ||
int * | sign, | ||
char ** | rve | ||
) |
Definition at line 3136 of file util.c.
References Balloc(), Bcopy, Bfree(), Bias, bigtens, Bletch, Bndry_mask, cmp(), d2b(), diff(), dval, Exp_1, Exp_11, Exp_mask, Exp_msk1, Exp_shift, Exp_shift1, Flt_Rounds, Frac_mask, Frac_mask1, hi0bits(), i2b(), INFSTR, Int_max, Bigint::k, L, Log2P, lshift(), mult(), multadd(), n_bigtens, NANSTR, no_digits, P, pow5mult(), Quick_max, quorem(), Rounding, rv_alloc, rv_strdup, S, Bigint::sign, Sign_bit, Ten_pmax, tens, Bigint::wds, word0, word1, Bigint::x, and ZEROSTR.
Referenced by flo_to_s(), and w_float().
Definition at line 3814 of file util.c.
Referenced by proc_options(), and ruby_set_debug_option().
char* ruby_getcwd | ( | void | ) |
Definition at line 508 of file util.c.
References buf, errno, free(), NULL, PATH_MAX, rb_sys_fail(), rb_syserr_fail(), ruby_strdup(), size, xfree(), xmalloc, and xrealloc.
char* ruby_hdtoa | ( | double | d, |
const char * | xdigs, | ||
int | ndigits, | ||
int * | decpt, | ||
int * | sign, | ||
char ** | rve | ||
) |
unsigned long ruby_scan_digits | ( | const char * | str, |
ssize_t | len, | ||
int | base, | ||
size_t * | retlen, | ||
int * | overflow | ||
) |
Definition at line 84 of file util.c.
References ruby_digit36_to_number_table.
Referenced by date_zone_to_diff(), optimized_unescape_html(), parse_numvar(), rb_cstr_parse_inum(), rb_strftime_with_timespec(), and ruby_strtoul().
unsigned long ruby_scan_hex | ( | const char * | start, |
size_t | len, | ||
size_t * | retlen | ||
) |
Definition at line 48 of file util.c.
References hexdigit, and strchr().
Referenced by unescape_unicode_bmp(), and unescape_unicode_list().
unsigned long ruby_scan_oct | ( | const char * | start, |
size_t | len, | ||
size_t * | retlen | ||
) |
Definition at line 34 of file util.c.
Referenced by parser_tokadd_escape(), and unescape_nonascii().
char* ruby_strdup | ( | const char * | str | ) |
Definition at line 496 of file util.c.
References len, memcpy, strlen(), and xmalloc.
Referenced by argf_initialize_copy(), compat_init_setproctitle(), features_index_add_single(), getifaddrs(), load_lock(), register_init_ext(), ruby_getcwd(), and ruby_setenv().
double ruby_strtod | ( | const char * | s00, |
char ** | se | ||
) |
Definition at line 1986 of file util.c.
References Avoid_Underflow, Balloc(), Bcopy, Bfree(), Bias, Big0, Big1, bigtens, Bndry_mask, Bndry_mask1, cmp(), d2b(), DBL_DIG, DBL_MAX_10_EXP, DBL_MAX_EXP, diff(), dval, Emin, errno, Exp_1, Exp_mask, Exp_msk1, Exp_shift, FLT_RADIX, Flt_Rounds, Frac_mask, hexdigit, i2b(), IEEE_Arith, ISDIGIT, Bigint::k, L, Log2P, LSB, lshift(), match(), mult(), n_bigtens, NULL, P, pow5mult(), ratio(), rounded_product, rounded_quotient, Rounding, s2b(), Scale_Bit, Bigint::sign, strchr(), Ten_pmax, tens, Tiny0, Tiny1, tinytens, ulp(), Bigint::wds, word0, word1, and Bigint::x.
unsigned long ruby_strtoul | ( | const char * | str, |
char ** | endptr, | ||
int | base | ||
) |
Definition at line 1152 of file util.c.
References Balloc(), Bigint::k, multadd(), Bigint::wds, and Bigint::x.
Referenced by ruby_strtod().
|
static |
|
static |
Definition at line 1880 of file util.c.
Referenced by ruby_dtoa(), and ruby_strtod().
|
static |
Definition at line 3097 of file util.c.
Referenced by ruby_dtoa(), and ruby_hdtoa().
|
static |
Definition at line 3098 of file util.c.
Referenced by ruby_dtoa(), and ruby_hdtoa().
|
static |
|
static |
const signed char ruby_digit36_to_number_table[] |
Definition at line 63 of file util.c.
Referenced by ruby_scan_digits().
const char ruby_hexdigits[] = "0123456789abcdef0123456789ABCDEF" |
|
static |
Definition at line 1869 of file util.c.
Referenced by ruby_dtoa(), and ruby_strtod().
|
static |
Definition at line 1881 of file util.c.
Referenced by ruby_strtod().
|
static |
Definition at line 3099 of file util.c.
Referenced by ruby_dtoa(), and ruby_hdtoa().