| line |
true |
false |
branch |
|
62
|
0 |
2 |
if(x < 1)croak("1st arg (precision) to l_set_prec must be at least 1"); |
|
71
|
34 |
36 |
if(x == x) return 0; |
|
76
|
0 |
30 |
if(x == 0) return 0; |
|
77
|
12 |
18 |
if(_is_nan(x)) return 0; |
|
78
|
10 |
8 |
if(x / x == x / x) return 0; |
|
79
|
4 |
4 |
if(x < 0) return -1; |
|
104
|
0 |
62 |
if(pc == NULL) croak("Failed to allocate memory in create_cl function"); |
|
121
|
0 |
65 |
if(SvUOK(d1)) { |
|
125
|
35 |
30 |
if(SvIOK(d1)) { |
|
129
|
18 |
12 |
if(SvNOK(d1)) { |
|
133
|
12 |
0 |
if(SvPOK(d1)) { |
|
134
|
1 |
11 |
if(!looks_like_number(d1)) nnum++; |
|
135
|
12 |
0 |
_d1 = strtold(SvPV_nolen(d1), NULL); |
|
138
|
0 |
0 |
if(sv_isobject(d1)) { |
|
139
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d1))); |
|
140
|
0 |
0 |
if(strEQ(h, "Math::LongDouble")) |
|
152
|
0 |
65 |
if(SvUOK(d2)) { |
|
156
|
31 |
34 |
if(SvIOK(d2)) { |
|
160
|
23 |
11 |
if(SvNOK(d2)) { |
|
164
|
11 |
0 |
if(SvPOK(d2)) { |
|
165
|
1 |
10 |
if(!looks_like_number(d2)) nnum++; |
|
166
|
11 |
0 |
_d2 = strtold(SvPV_nolen(d2), NULL) ; |
|
169
|
0 |
0 |
if(sv_isobject(d2)) { |
|
170
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d2))); |
|
171
|
0 |
0 |
if(strEQ(h, "Math::LongDouble")) |
|
190
|
1 |
3 |
if(SvUOK(d1)) { |
|
194
|
0 |
3 |
if(SvIOK(d1)) { |
|
198
|
2 |
1 |
if(SvNOK(d1)) { |
|
202
|
1 |
0 |
if(SvPOK(d1)) { |
|
203
|
0 |
1 |
if(!looks_like_number(d1)) nnum++; |
|
204
|
1 |
0 |
_d1 = strtold(SvPV_nolen(d1), NULL) ; |
|
207
|
0 |
0 |
if(sv_isobject(d1)) { |
|
208
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d1))); |
|
209
|
0 |
0 |
if(strEQ(h, "Math::LongDouble")) |
|
227
|
0 |
4 |
if(SvUOK(d2)) { |
|
231
|
3 |
1 |
if(SvIOK(d2)) { |
|
235
|
0 |
1 |
if(SvNOK(d2)) { |
|
239
|
1 |
0 |
if(SvPOK(d2)) { |
|
240
|
0 |
1 |
if(!looks_like_number(d2)) nnum++; |
|
241
|
1 |
0 |
_d2 = strtold(SvPV_nolen(d2), NULL) ; |
|
244
|
0 |
0 |
if(sv_isobject(d2)) { |
|
245
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d2))); |
|
246
|
0 |
0 |
if(strEQ(h, "Math::LongDouble")) |
|
265
|
0 |
0 |
if(sv_isobject(d1) && sv_isobject(d2)) { |
|
|
0 |
0 |
if(sv_isobject(d1) && sv_isobject(d2)) { |
|
266
|
0 |
0 |
const char *h1 = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h1 = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h1 = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h1 = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h1 = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h1 = HvNAME(SvSTASH(SvRV(d1))); |
|
267
|
0 |
0 |
const char *h2 = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h2 = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h2 = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h2 = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h2 = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h2 = HvNAME(SvSTASH(SvRV(d2))); |
|
268
|
0 |
0 |
if(strEQ(h1, "Math::LongDouble") && |
|
|
0 |
0 |
if(strEQ(h1, "Math::LongDouble") && |
|
283
|
0 |
0 |
if(sv_isobject(rop1)) { |
|
284
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(rop1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(rop1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(rop1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(rop1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(rop1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(rop1))); |
|
285
|
0 |
0 |
if(strEQ(h, "Math::LongDouble")) { |
|
292
|
0 |
0 |
if(sv_isobject(rop2)) { |
|
293
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(rop2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(rop2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(rop2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(rop2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(rop2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(rop2))); |
|
294
|
0 |
0 |
if(strEQ(h, "Math::LongDouble")) { |
|
309
|
1 |
0 |
(long double)SvNV(op2); |
|
314
|
1 |
0 |
(long double)SvIV(op2); |
|
319
|
0 |
1 |
(long double)SvUV(op2); |
|
324
|
1 |
0 |
strtold(SvPV_nolen(op2), NULL); |
|
334
|
1 |
0 |
(long double)SvNV(op2); |
|
339
|
1 |
0 |
(long double)SvIV(op2); |
|
344
|
0 |
1 |
(long double)SvUV(op2); |
|
349
|
1 |
0 |
strtold(SvPV_nolen(op2), NULL); |
|
359
|
1 |
0 |
(long double)SvNV(op2); |
|
364
|
1 |
0 |
(long double)SvIV(op2); |
|
369
|
0 |
1 |
(long double)SvUV(op2); |
|
374
|
1 |
0 |
strtold(SvPV_nolen(op2), NULL); |
|
384
|
1 |
0 |
(long double)SvNV(op2); |
|
389
|
1 |
0 |
(long double)SvIV(op2); |
|
394
|
0 |
1 |
(long double)SvUV(op2); |
|
399
|
1 |
0 |
strtold(SvPV_nolen(op2), NULL); |
|
425
|
0 |
0 |
if(f == NULL) croak("Failed to allocate memory in real_cl2LD function"); |
|
442
|
1 |
0 |
if(sv_isobject(op)) { |
|
443
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
444
|
1 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
445
|
0 |
1 |
EXTEND(SP, 1); |
|
449
|
0 |
1 |
if(buffer == NULL) croak("Failed to allocate memory in real_cl2str"); |
|
479
|
0 |
0 |
if(f == NULL) croak("Failed to allocate memory in imag_cl2LD function"); |
|
496
|
1 |
0 |
if(sv_isobject(op)) { |
|
497
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
498
|
1 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
499
|
0 |
1 |
EXTEND(SP, 1); |
|
503
|
0 |
1 |
if(buffer == NULL) croak("Failed to allocate memory in imag_cl2str"); |
|
523
|
0 |
0 |
if(f == NULL) croak("Failed to allocate memory in arg_cl2LD function"); |
|
540
|
1 |
0 |
if(sv_isobject(op)) { |
|
541
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
542
|
1 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
543
|
0 |
1 |
EXTEND(SP, 1); |
|
547
|
0 |
1 |
if(buffer == NULL) croak("Failed to allocate memory in arg_cl2str"); |
|
567
|
0 |
0 |
if(f == NULL) croak("Failed to allocate memory in cabs_cl2LD function"); |
|
584
|
1 |
0 |
if(sv_isobject(op)) { |
|
585
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
586
|
1 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
587
|
0 |
1 |
EXTEND(SP, 1); |
|
591
|
0 |
1 |
if(buffer == NULL) croak("Failed to allocate memory in arg_cl2str"); |
|
678
|
0 |
2 |
if(creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(rop))))) || |
|
|
0 |
0 |
if(creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(rop))))) || |
|
686
|
0 |
4 |
if(creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(rop))))) || |
|
|
0 |
0 |
if(creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(rop))))) || |
|
692
|
1 |
36 |
if(SvUOK(b)) { |
|
693
|
1 |
0 |
if((long double)SvUVX(b) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
1 |
0 |
if((long double)SvUVX(b) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
697
|
0 |
36 |
if(SvIOK(b)) { |
|
698
|
0 |
0 |
if((long double)SvIVX(b) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
0 |
0 |
if((long double)SvIVX(b) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
702
|
0 |
36 |
if(SvNOK(b)) { |
|
703
|
0 |
0 |
if((long double)SvNVX(b) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
0 |
0 |
if((long double)SvNVX(b) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
708
|
2 |
34 |
if(SvPOK(b)) { |
|
709
|
0 |
2 |
if(!looks_like_number(b)) nnum++; |
|
710
|
2 |
0 |
if(strtold(SvPV_nolen(b), NULL) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
1 |
1 |
if(strtold(SvPV_nolen(b), NULL) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
1 |
0 |
if(strtold(SvPV_nolen(b), NULL) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
715
|
34 |
0 |
if(sv_isobject(b)) { |
|
716
|
34 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
34 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
34 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
34 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
34 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
717
|
34 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
718
|
33 |
1 |
if(creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(b))))) && |
|
|
33 |
0 |
if(creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(b))))) && |
|
729
|
0 |
7 |
if(SvUOK(b)) { |
|
730
|
0 |
0 |
if((long double)SvUVX(b) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
0 |
0 |
if((long double)SvUVX(b) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
734
|
0 |
7 |
if(SvIOK(b)) { |
|
735
|
0 |
0 |
if((long double)SvIVX(b) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
0 |
0 |
if((long double)SvIVX(b) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
739
|
0 |
7 |
if(SvNOK(b)) { |
|
740
|
0 |
0 |
if((long double)SvNVX(b) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
0 |
0 |
if((long double)SvNVX(b) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
744
|
2 |
5 |
if(SvPOK(b)) { |
|
745
|
0 |
2 |
if(!looks_like_number(b)) nnum++; |
|
746
|
2 |
0 |
if(strtold(SvPV_nolen(b), NULL) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
1 |
1 |
if(strtold(SvPV_nolen(b), NULL) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
1 |
0 |
if(strtold(SvPV_nolen(b), NULL) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
750
|
5 |
0 |
if(sv_isobject(b)) { |
|
751
|
5 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
5 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
5 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
5 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
5 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
752
|
5 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
753
|
0 |
5 |
if(creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(b))))) && |
|
|
0 |
0 |
if(creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(b))))) && |
|
769
|
0 |
5 |
if(pc == NULL) croak("Failed to allocate memory in _overload_pow function"); |
|
776
|
0 |
5 |
if(SvUOK(b)) { |
|
782
|
3 |
2 |
if(SvIOK(b)) { |
|
788
|
1 |
1 |
if(SvNOK(b)) { |
|
794
|
0 |
1 |
if(SvPOK(b)) { |
|
795
|
0 |
0 |
if(!looks_like_number(b)) nnum++; |
|
796
|
0 |
0 |
__real__ t = strtold(SvPV_nolen(b), NULL); |
|
801
|
1 |
0 |
else if(sv_isobject(b)) { |
|
802
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
803
|
1 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
816
|
0 |
5 |
if(pc == NULL) croak("Failed to allocate memory in _overload_mul function"); |
|
824
|
0 |
5 |
if(SvUOK(b)) { |
|
829
|
2 |
3 |
if(SvIOK(b)) { |
|
834
|
1 |
2 |
if(SvNOK(b)) { |
|
838
|
1 |
1 |
if(SvPOK(b)) { |
|
839
|
0 |
1 |
if(!looks_like_number(b)) nnum++; |
|
840
|
1 |
0 |
*pc = *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) * strtold(SvPV_nolen(b), NULL); |
|
843
|
1 |
0 |
if(sv_isobject(b)) { |
|
844
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
845
|
1 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
859
|
0 |
5 |
if(pc == NULL) croak("Failed to allocate memory in _overload_add function"); |
|
867
|
0 |
5 |
if(SvUOK(b)) { |
|
872
|
2 |
3 |
if(SvIOK(b)) { |
|
877
|
1 |
2 |
if(SvNOK(b)) { |
|
881
|
1 |
1 |
if(SvPOK(b)) { |
|
882
|
0 |
1 |
if(!looks_like_number(b)) nnum++; |
|
883
|
1 |
0 |
*pc = *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) + strtold(SvPV_nolen(b), NULL); |
|
886
|
1 |
0 |
if(sv_isobject(b)) { |
|
887
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
888
|
1 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
902
|
0 |
7 |
if(pc == NULL) croak("Failed to allocate memory in _overload_div function"); |
|
910
|
0 |
7 |
if(SvUOK(b)) { |
|
911
|
0 |
0 |
if(third == &PL_sv_yes) *pc = (long double)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
916
|
2 |
5 |
if(SvIOK(b)) { |
|
917
|
0 |
2 |
if(third == &PL_sv_yes) *pc = (long double)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
922
|
1 |
4 |
if(SvNOK(b)) { |
|
923
|
0 |
1 |
if(third == &PL_sv_yes) *pc = (long double)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
927
|
2 |
2 |
if(SvPOK(b)) { |
|
928
|
0 |
2 |
if(!looks_like_number(b)) nnum++; |
|
929
|
1 |
1 |
if(third == &PL_sv_yes) *pc = strtold(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(third == &PL_sv_yes) *pc = strtold(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
930
|
1 |
0 |
else *pc = *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) / strtold(SvPV_nolen(b), NULL); |
|
933
|
2 |
0 |
if(sv_isobject(b)) { |
|
934
|
2 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
2 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
2 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
2 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
2 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
935
|
2 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
949
|
0 |
6 |
if(pc == NULL) croak("Failed to allocate memory in _overload_sub function"); |
|
957
|
0 |
6 |
if(SvUOK(b)) { |
|
958
|
0 |
0 |
if(third == &PL_sv_yes) *pc = (long double)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
963
|
2 |
4 |
if(SvIOK(b)) { |
|
964
|
0 |
2 |
if(third == &PL_sv_yes) *pc = (long double)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
969
|
1 |
3 |
if(SvNOK(b)) { |
|
970
|
0 |
1 |
if(third == &PL_sv_yes) *pc = (long double)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
974
|
2 |
1 |
if(SvPOK(b)) { |
|
975
|
0 |
2 |
if(!looks_like_number(b)) nnum++; |
|
976
|
1 |
1 |
if(third == &PL_sv_yes) *pc = strtold(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(third == &PL_sv_yes) *pc = strtold(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
977
|
1 |
0 |
else *pc = *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) - strtold(SvPV_nolen(b), NULL); |
|
980
|
1 |
0 |
if(sv_isobject(b)) { |
|
981
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
982
|
1 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
996
|
0 |
1 |
if(pc == NULL) croak("Failed to allocate memory in _overload_sqrt function"); |
|
1012
|
0 |
4 |
if(SvUOK(b)) { |
|
1018
|
3 |
1 |
if(SvIOK(b)) { |
|
1024
|
1 |
0 |
if(SvNOK(b)) { |
|
1030
|
0 |
0 |
if(SvPOK(b)) { |
|
1031
|
0 |
0 |
if(!looks_like_number(b)) nnum++; |
|
1032
|
0 |
0 |
__real__ t = strtold(SvPV_nolen(b), NULL); |
|
1037
|
0 |
0 |
if(sv_isobject(b)) { |
|
1038
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
1039
|
0 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
1052
|
0 |
7 |
if(SvUOK(b)) { |
|
1057
|
2 |
5 |
if(SvIOK(b)) { |
|
1062
|
1 |
4 |
if(SvNOK(b)) { |
|
1067
|
2 |
2 |
if(SvPOK(b)) { |
|
1068
|
1 |
1 |
if(!looks_like_number(b)) nnum++; |
|
1069
|
2 |
0 |
*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) *= strtold(SvPV_nolen(b), NULL); |
|
1073
|
2 |
0 |
if(sv_isobject(b)) { |
|
1074
|
2 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
2 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
2 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
2 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
2 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
1075
|
2 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
1088
|
0 |
6 |
if(SvUOK(b)) { |
|
1093
|
2 |
4 |
if(SvIOK(b)) { |
|
1098
|
1 |
3 |
if(SvNOK(b)) { |
|
1103
|
1 |
2 |
if(SvPOK(b)) { |
|
1104
|
0 |
1 |
if(!looks_like_number(b)) nnum++; |
|
1105
|
1 |
0 |
*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) += strtold(SvPV_nolen(b), NULL); |
|
1109
|
2 |
0 |
if(sv_isobject(b)) { |
|
1110
|
2 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
2 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
2 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
2 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
2 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
1111
|
2 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
1124
|
0 |
5 |
if(SvUOK(b)) { |
|
1129
|
2 |
3 |
if(SvIOK(b)) { |
|
1134
|
1 |
2 |
if(SvNOK(b)) { |
|
1139
|
1 |
1 |
if(SvPOK(b)) { |
|
1140
|
0 |
1 |
if(!looks_like_number(b)) nnum++; |
|
1141
|
1 |
0 |
*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) /= strtold(SvPV_nolen(b), NULL); |
|
1145
|
1 |
0 |
if(sv_isobject(b)) { |
|
1146
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
1147
|
1 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
1160
|
0 |
5 |
if(SvUOK(b)) { |
|
1165
|
2 |
3 |
if(SvIOK(b)) { |
|
1170
|
1 |
2 |
if(SvNOK(b)) { |
|
1175
|
1 |
1 |
if(SvPOK(b)) { |
|
1176
|
0 |
1 |
if(!looks_like_number(b)) nnum++; |
|
1177
|
1 |
0 |
*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) -= strtold(SvPV_nolen(b), NULL); |
|
1181
|
1 |
0 |
if(sv_isobject(b)) { |
|
1182
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
1183
|
1 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
1199
|
0 |
4 |
if(pc == NULL) croak("Failed to allocate memory in _overload_copy function"); |
|
1222
|
0 |
1 |
if(pc == NULL) croak("Failed to allocate memory in _overload_exp function"); |
|
1239
|
0 |
1 |
if(pc == NULL) croak("Failed to allocate memory in _overload_log function"); |
|
1256
|
0 |
1 |
if(pc == NULL) croak("Failed to allocate memory in _overload_sin function"); |
|
1273
|
0 |
1 |
if(pc == NULL) croak("Failed to allocate memory in _overload_cos function"); |
|
1290
|
0 |
1 |
if(pc == NULL) croak("Failed to allocate memory in _overload_atan2 function"); |
|
1326
|
1 |
0 |
if(SvNV(a) == SvNV(a)) return newSVuv(0); |
|
|
1 |
0 |
if(SvNV(a) == SvNV(a)) return newSVuv(0); |
|
|
0 |
1 |
if(SvNV(a) == SvNV(a)) return newSVuv(0); |
|
1331
|
6 |
0 |
if(SvNV(a) == 0) return newSVuv(0); |
|
|
0 |
6 |
if(SvNV(a) == 0) return newSVuv(0); |
|
1332
|
6 |
0 |
if(SvNV(a) != SvNV(a)) return newSVuv(0); |
|
|
6 |
0 |
if(SvNV(a) != SvNV(a)) return newSVuv(0); |
|
|
0 |
6 |
if(SvNV(a) != SvNV(a)) return newSVuv(0); |
|
1333
|
6 |
0 |
if(SvNV(a) / SvNV(a) == SvNV(a) / SvNV(a)) return newSVuv(0); |
|
|
6 |
0 |
if(SvNV(a) / SvNV(a) == SvNV(a) / SvNV(a)) return newSVuv(0); |
|
|
6 |
0 |
if(SvNV(a) / SvNV(a) == SvNV(a) / SvNV(a)) return newSVuv(0); |
|
|
6 |
0 |
if(SvNV(a) / SvNV(a) == SvNV(a) / SvNV(a)) return newSVuv(0); |
|
|
0 |
6 |
if(SvNV(a) / SvNV(a) == SvNV(a) / SvNV(a)) return newSVuv(0); |
|
1334
|
6 |
0 |
if(SvNV(a) < 0) return newSViv(-1); |
|
|
0 |
6 |
if(SvNV(a) < 0) return newSViv(-1); |
|
1347
|
0 |
0 |
return newSVnv(SvNV(x)); |
|
1351
|
0 |
0 |
if(sv_isobject(b)) return newSVpv(HvNAME(SvSTASH(SvRV(b))), 0); |
|
|
0 |
0 |
if(sv_isobject(b)) return newSVpv(HvNAME(SvSTASH(SvRV(b))), 0); |
|
|
0 |
0 |
if(sv_isobject(b)) return newSVpv(HvNAME(SvSTASH(SvRV(b))), 0); |
|
|
0 |
0 |
if(sv_isobject(b)) return newSVpv(HvNAME(SvSTASH(SvRV(b))), 0); |
|
|
0 |
0 |
if(sv_isobject(b)) return newSVpv(HvNAME(SvSTASH(SvRV(b))), 0); |
|
|
0 |
0 |
if(sv_isobject(b)) return newSVpv(HvNAME(SvSTASH(SvRV(b))), 0); |
|
|
0 |
0 |
if(sv_isobject(b)) return newSVpv(HvNAME(SvSTASH(SvRV(b))), 0); |
|
1390
|
12 |
0 |
if(sv_isobject(ld)) { |
|
1391
|
12 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
12 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
0 |
12 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
12 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
0 |
12 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
1392
|
12 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
1393
|
0 |
12 |
EXTEND(SP, 2); |
|
1398
|
0 |
12 |
if(rbuffer == NULL) croak("Failed to allocate memory in l_to_str"); |
|
1401
|
10 |
2 |
if(query || _is_nan(__real__ t)) |
|
|
5 |
5 |
if(query || _is_nan(__real__ t)) |
|
1402
|
2 |
5 |
sprintf(rbuffer, "%s", query ? query > 0 ? "inf" |
|
1403
|
1 |
1 |
: "-inf" |
|
1411
|
10 |
2 |
if(query || _is_nan(__imag__ t)) |
|
|
5 |
5 |
if(query || _is_nan(__imag__ t)) |
|
1412
|
2 |
5 |
sprintf(rbuffer, "%s", query ? query > 0 ? "inf" |
|
1413
|
1 |
1 |
: "-inf" |
|
1434
|
0 |
3 |
if(decimal_prec < 1)croak("2nd arg (precision) to _l_to_strp must be at least 1"); |
|
1436
|
3 |
0 |
if(sv_isobject(ld)) { |
|
1437
|
3 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
3 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
0 |
3 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
3 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
0 |
3 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
1438
|
3 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
1439
|
0 |
3 |
EXTEND(SP, 2); |
|
1443
|
0 |
3 |
if(rbuffer == NULL) croak("Failed to allocate memory in l_to_strp"); |
|
1446
|
1 |
2 |
if(query || _is_nan(__real__ t)) |
|
|
1 |
0 |
if(query || _is_nan(__real__ t)) |
|
1447
|
2 |
1 |
sprintf(rbuffer, "%s", query ? query > 0 ? "inf" |
|
1448
|
1 |
1 |
: "-inf" |
|
1456
|
1 |
2 |
if(query || _is_nan(__imag__ t)) |
|
|
1 |
0 |
if(query || _is_nan(__imag__ t)) |
|
1457
|
2 |
1 |
sprintf(rbuffer, "%s", query ? query > 0 ? "inf" |
|
1458
|
1 |
1 |
: "-inf" |
|
1494
|
0 |
9 |
if(SvUOK(a)) return newSVuv(1); |
|
1495
|
0 |
9 |
if(SvIOK(a)) return newSVuv(2); |
|
1496
|
5 |
4 |
if(SvNOK(a)) return newSVuv(3); |
|
1497
|
4 |
0 |
if(SvPOK(a)) return newSVuv(4); |
|
1498
|
0 |
0 |
if(sv_isobject(a)) { |
|
1499
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(a))); |
|
1500
|
0 |
0 |
if(strEQ(h, "Math::LongDouble")) return newSVuv(96); |
|
1501
|
0 |
0 |
if(strEQ(h, "Math::Float128")) return newSVuv(113); |
|
1502
|
0 |
0 |
if(strEQ(h, "Math::Complex_C::L")) return newSVuv(226); |
|
1520
|
0 |
0 |
if(looks_like_number(x)) return 1; |
|
1539
|
2 |
0 |
if (PL_markstack_ptr != temp) { |
|
1568
|
65 |
0 |
if (PL_markstack_ptr != temp) { |
|
1585
|
4 |
0 |
if (PL_markstack_ptr != temp) { |
|
1602
|
4 |
0 |
if (PL_markstack_ptr != temp) { |
|
1620
|
0 |
0 |
if (PL_markstack_ptr != temp) { |
|
1638
|
0 |
0 |
if (PL_markstack_ptr != temp) { |
|
1656
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1674
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1692
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1710
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1728
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1746
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1764
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1782
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1800
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1818
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1836
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1854
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1872
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1890
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1908
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1926
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1944
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1962
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1980
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1998
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2014
|
100 |
0 |
if (PL_markstack_ptr != temp) { |
|
2044
|
0 |
1 |
if (PL_markstack_ptr != temp) { |
|
2074
|
0 |
1 |
if (PL_markstack_ptr != temp) { |
|
2104
|
0 |
1 |
if (PL_markstack_ptr != temp) { |
|
2134
|
0 |
1 |
if (PL_markstack_ptr != temp) { |
|
2151
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2168
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2185
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2202
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2219
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2236
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2253
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2270
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2287
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2304
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2321
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2338
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2355
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2372
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2389
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2406
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2423
|
6 |
0 |
if (PL_markstack_ptr != temp) { |
|
2441
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2767
|
0 |
12 |
if (PL_markstack_ptr != temp) { |
|
2784
|
0 |
3 |
if (PL_markstack_ptr != temp) { |
|
2832
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2848
|
1 |
0 |
if (PL_markstack_ptr != temp) { |