1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
#ifndef EASYXS_NUMERIC_H
#define EASYXS_NUMERIC_H 1
#include "init.h"
UV _easyxs_SvUV (pTHX_ SV* sv) {
if (!SvOK(sv)) _EASYXS_CROAK_UNDEF("unsigned integer");
if (SvROK(sv)) _EASYXS_CROAK_STRINGIFY_REFERENCE(sv);
if (SvUOK(sv)) return SvUV(sv);
if (SvIOK(sv)) {
IV myiv = SvIV(sv);
if (myiv >= 0) return myiv;
}
else {
STRLEN pvlen;
const char* pv = SvPVbyte(sv, pvlen);
UV myuv;
int grokked = grok_number(pv, pvlen, &myuv);
if (grokked & (IS_NUMBER_IN_UV | !IS_NUMBER_NEG)) {
const char* uvstr = form("%" UVuf, myuv);
if (strlen(uvstr) == pvlen && strEQ(uvstr, pv)) return myuv;
}
}
croak("`%" SVf "` given where unsigned integer expected!", sv);
}
#define exs_SvUV(sv) _easyxs_SvUV(aTHX_ sv)
UV _easyxs_SvIV (pTHX_ SV* sv) {
if (!SvOK(sv)) _EASYXS_CROAK_UNDEF("integer");
if (SvROK(sv)) _EASYXS_CROAK_STRINGIFY_REFERENCE(sv);
if (SvIOK(sv)) return SvIV(sv);
STRLEN pvlen;
const char* pv = SvPVbyte(sv, pvlen);
IV myiv;
int grokked = grok_number(pv, pvlen, (UV*) &myiv);
if (!(grokked & IS_NUMBER_NOT_INT) && !(grokked & IS_NUMBER_IN_UV)) {
const char* ivstr = form("%" IVdf, myiv);
if (strlen(ivstr) == pvlen && strEQ(ivstr, pv)) return myiv;
}
croak("`%" SVf "` given where integer expected!", sv);
}
#define exs_SvIV(sv) _easyxs_SvIV(aTHX_ sv)
#endif
|
