line |
true |
false |
branch |
38
|
0 |
0 |
if (strEQ(name, "ANGLE_TOO_BIG")) |
44
|
0 |
0 |
if (strEQ(name, "ANY_HDU")) |
50
|
0 |
0 |
if (strEQ(name, "ARRAY_TOO_BIG")) |
56
|
0 |
0 |
if (strEQ(name, "ASCII_TBL")) |
64
|
0 |
0 |
if (strEQ(name, "BAD_ATABLE_FORMAT")) |
70
|
0 |
0 |
if (strEQ(name, "BAD_BITPIX")) |
76
|
0 |
0 |
if (strEQ(name, "BAD_BTABLE_FORMAT")) |
82
|
0 |
0 |
if (strEQ(name, "BAD_C2D")) |
88
|
0 |
0 |
if (strEQ(name, "BAD_C2F")) |
94
|
0 |
0 |
if (strEQ(name, "BAD_C2I")) |
100
|
0 |
0 |
if (strEQ(name, "BAD_COL_NUM")) |
106
|
0 |
0 |
if (strEQ(name, "BAD_DATATYPE")) |
112
|
0 |
0 |
if (strEQ(name, "BAD_DATA_FILL")) |
118
|
0 |
0 |
if (strEQ(name, "BAD_DATE")) |
124
|
0 |
0 |
if (strEQ(name, "BAD_DECIM")) |
130
|
0 |
0 |
if (strEQ(name, "BAD_DIMEN")) |
136
|
0 |
0 |
if (strEQ(name, "BAD_DOUBLEKEY")) |
142
|
0 |
0 |
if (strEQ(name, "BAD_ELEM_NUM")) |
148
|
0 |
0 |
if (strEQ(name, "BAD_F2C")) |
154
|
0 |
0 |
if (strEQ(name, "BAD_FILEPTR")) |
160
|
0 |
0 |
if (strEQ(name, "BAD_FLOATKEY")) |
166
|
0 |
0 |
if (strEQ(name, "BAD_GCOUNT")) |
172
|
0 |
0 |
if (strEQ(name, "BAD_GROUP_ID")) |
178
|
0 |
0 |
if (strEQ(name, "BAD_HDU_NUM")) |
184
|
0 |
0 |
if (strEQ(name, "BAD_HEADER_FILL")) |
190
|
0 |
0 |
if (strEQ(name, "BAD_I2C")) |
196
|
0 |
0 |
if (strEQ(name, "BAD_INTKEY")) |
202
|
0 |
0 |
if (strEQ(name, "BAD_KEYCHAR")) |
208
|
0 |
0 |
if (strEQ(name, "BAD_LOGICALKEY")) |
214
|
0 |
0 |
if (strEQ(name, "BAD_NAXES")) |
220
|
0 |
0 |
if (strEQ(name, "BAD_NAXIS")) |
226
|
0 |
0 |
if (strEQ(name, "BAD_OPTION")) |
232
|
0 |
0 |
if (strEQ(name, "BAD_ORDER")) |
238
|
0 |
0 |
if (strEQ(name, "BAD_PCOUNT")) |
244
|
0 |
0 |
if (strEQ(name, "BAD_PIX_NUM")) |
250
|
0 |
0 |
if (strEQ(name, "BAD_ROW_NUM")) |
256
|
0 |
0 |
if (strEQ(name, "BAD_ROW_WIDTH")) |
262
|
0 |
0 |
if (strEQ(name, "BAD_SIMPLE")) |
268
|
0 |
0 |
if (strEQ(name, "BAD_TBCOL")) |
274
|
0 |
0 |
if (strEQ(name, "BAD_TDIM")) |
280
|
0 |
0 |
if (strEQ(name, "BAD_TFIELDS")) |
286
|
0 |
0 |
if (strEQ(name, "BAD_TFORM")) |
292
|
0 |
0 |
if (strEQ(name, "BAD_TFORM_DTYPE")) |
298
|
0 |
0 |
if (strEQ(name, "BAD_URL_PREFIX")) |
304
|
0 |
0 |
if (strEQ(name, "BAD_WCS_PROJ")) |
310
|
0 |
0 |
if (strEQ(name, "BAD_WCS_VAL")) |
316
|
0 |
0 |
if (strEQ(name, "BINARY_TBL")) |
322
|
0 |
0 |
if (strEQ(name, "BYTE_IMG")) |
330
|
0 |
1 |
if (strEQ(name, "CASEINSEN")) |
336
|
0 |
1 |
if (strEQ(name, "CASESEN")) |
342
|
0 |
1 |
if (strEQ(name, "CFITSIO_MAJOR")) |
348
|
0 |
1 |
if (strEQ(name, "CFITSIO_MINOR")) |
354
|
1 |
0 |
if (strEQ(name, "COL_NOT_FOUND")) |
360
|
0 |
0 |
if (strEQ(name, "COL_NOT_UNIQUE")) |
366
|
0 |
0 |
if (strEQ(name, "COL_TOO_WIDE")) |
374
|
0 |
0 |
if (strEQ(name, "DOUBLENULLVALUE")) |
380
|
0 |
0 |
if (strEQ(name, "DOUBLE_IMG")) |
386
|
0 |
0 |
if (strEQ(name, "DRIVER_INIT_FAILED")) |
394
|
0 |
0 |
if (strEQ(name, "END_JUNK")) |
400
|
0 |
0 |
if (strEQ(name, "END_OF_FILE")) |
408
|
0 |
0 |
if (strEQ(name, "FALSE")) |
414
|
0 |
0 |
if (strEQ(name, "FILE_NOT_CLOSED")) |
420
|
0 |
0 |
if (strEQ(name, "FILE_NOT_CREATED")) |
426
|
0 |
0 |
if (strEQ(name, "FILE_NOT_OPENED")) |
432
|
0 |
0 |
if (strEQ(name, "FLEN_CARD")) |
438
|
0 |
0 |
if (strEQ(name, "FLEN_COMMENT")) |
444
|
0 |
0 |
if (strEQ(name, "FLEN_ERRMSG")) |
450
|
0 |
0 |
if (strEQ(name, "FLEN_FILENAME")) |
456
|
0 |
0 |
if (strEQ(name, "FLEN_KEYWORD")) |
462
|
0 |
0 |
if (strEQ(name, "FLEN_STATUS")) |
468
|
0 |
0 |
if (strEQ(name, "FLEN_VALUE")) |
474
|
0 |
0 |
if (strEQ(name, "FLOATNULLVALUE")) |
480
|
0 |
0 |
if (strEQ(name, "FLOAT_IMG")) |
488
|
0 |
0 |
if (strEQ(name, "GROUP_NOT_FOUND")) |
494
|
0 |
0 |
if (strEQ(name, "GT_ID_ALL")) |
500
|
0 |
0 |
if (strEQ(name, "GT_ID_ALL_URI")) |
506
|
0 |
0 |
if (strEQ(name, "GT_ID_POS")) |
512
|
0 |
0 |
if (strEQ(name, "GT_ID_POS_URI")) |
518
|
0 |
0 |
if (strEQ(name, "GT_ID_REF")) |
524
|
0 |
0 |
if (strEQ(name, "GT_ID_REF_URI")) |
530
|
0 |
0 |
if (strEQ(name, "GZIP_1")) |
538
|
0 |
0 |
if (strEQ(name, "HDU_ALREADY_MEMBER")) |
544
|
0 |
0 |
if (strEQ(name, "HDU_ALREADY_TRACKED")) |
550
|
0 |
0 |
if (strEQ(name, "HEADER_NOT_EMPTY")) |
558
|
0 |
0 |
if (strEQ(name, "IDENTICAL_POINTERS")) |
564
|
0 |
0 |
if (strEQ(name, "IMAGE_HDU")) |
570
|
0 |
0 |
if (strEQ(name, "InputCol")) |
576
|
0 |
0 |
if (strEQ(name, "InputOutputCol")) |
586
|
0 |
0 |
if (strEQ(name, "KEY_NO_EXIST")) |
592
|
0 |
0 |
if (strEQ(name, "KEY_OUT_BOUNDS")) |
600
|
0 |
0 |
if (strEQ(name, "LONG_IMG")) |
606
|
0 |
0 |
if (strEQ(name, "LONGLONG_IMG")) |
614
|
0 |
0 |
if (strEQ(name, "MAXHDU")) |
620
|
0 |
0 |
if (strEQ(name, "MEMBER_NOT_FOUND")) |
626
|
0 |
0 |
if (strEQ(name, "MEMORY_ALLOCATION")) |
634
|
0 |
1 |
if (strEQ(name, "NEG_AXIS")) |
640
|
0 |
1 |
if (strEQ(name, "NEG_BYTES")) |
646
|
0 |
1 |
if (strEQ(name, "NEG_FILE_POS")) |
652
|
0 |
1 |
if (strEQ(name, "NEG_ROWS")) |
658
|
0 |
1 |
if (strEQ(name, "NEG_WIDTH")) |
664
|
0 |
1 |
if (strEQ(name, "NOT_ASCII_COL")) |
670
|
0 |
1 |
if (strEQ(name, "NOT_ATABLE")) |
676
|
0 |
1 |
if (strEQ(name, "NOT_BTABLE")) |
682
|
0 |
1 |
if (strEQ(name, "NOT_GROUP_TABLE")) |
688
|
0 |
1 |
if (strEQ(name, "NOT_IMAGE")) |
694
|
0 |
1 |
if (strEQ(name, "NOT_LOGICAL_COL")) |
700
|
0 |
1 |
if (strEQ(name, "NOT_POS_INT")) |
706
|
0 |
1 |
if (strEQ(name, "NOT_TABLE")) |
712
|
0 |
1 |
if (strEQ(name, "NOT_VARI_LEN")) |
718
|
0 |
1 |
if (strEQ(name, "NO_BITPIX")) |
724
|
0 |
1 |
if (strEQ(name, "NO_END")) |
730
|
0 |
1 |
if (strEQ(name, "NO_GCOUNT")) |
736
|
0 |
1 |
if (strEQ(name, "NO_MATCHING_DRIVER")) |
742
|
0 |
1 |
if (strEQ(name, "NO_NAXES")) |
748
|
0 |
1 |
if (strEQ(name, "NO_NAXIS")) |
754
|
0 |
1 |
if (strEQ(name, "NO_NULL")) |
760
|
0 |
1 |
if (strEQ(name, "NO_PCOUNT")) |
766
|
0 |
1 |
if (strEQ(name, "NO_QUOTE")) |
772
|
0 |
1 |
if (strEQ(name, "NO_SIMPLE")) |
778
|
0 |
1 |
if (strEQ(name, "NO_TBCOL")) |
784
|
0 |
1 |
if (strEQ(name, "NO_TFIELDS")) |
790
|
0 |
1 |
if (strEQ(name, "NO_TFORM")) |
796
|
0 |
1 |
if (strEQ(name, "NO_WCS_KEY")) |
802
|
0 |
1 |
if (strEQ(name, "NO_XTENSION")) |
808
|
0 |
1 |
if (strEQ(name, "NULL_INPUT_PTR")) |
814
|
1 |
0 |
if (strEQ(name, "NUM_OVERFLOW")) |
822
|
0 |
0 |
if (strEQ(name, "OPT_CMT_MBR")) |
828
|
0 |
0 |
if (strEQ(name, "OPT_CMT_MBR_DEL")) |
834
|
0 |
0 |
if (strEQ(name, "OPT_GCP_ALL")) |
840
|
0 |
0 |
if (strEQ(name, "OPT_GCP_GPT")) |
846
|
0 |
0 |
if (strEQ(name, "OPT_GCP_MBR")) |
852
|
0 |
0 |
if (strEQ(name, "OPT_MCP_ADD")) |
858
|
0 |
0 |
if (strEQ(name, "OPT_MCP_MOV")) |
864
|
0 |
0 |
if (strEQ(name, "OPT_MCP_NADD")) |
870
|
0 |
0 |
if (strEQ(name, "OPT_MCP_REPL")) |
876
|
0 |
0 |
if (strEQ(name, "OPT_MRG_COPY")) |
882
|
0 |
0 |
if (strEQ(name, "OPT_MRG_MOV")) |
888
|
0 |
0 |
if (strEQ(name, "OPT_RM_ALL")) |
894
|
0 |
0 |
if (strEQ(name, "OPT_RM_ENTRY")) |
900
|
0 |
0 |
if (strEQ(name, "OPT_RM_GPT")) |
906
|
0 |
0 |
if (strEQ(name, "OPT_RM_MBR")) |
912
|
0 |
0 |
if (strEQ(name, "OVERFLOW_ERR")) |
918
|
0 |
0 |
if (strEQ(name, "OutputCol")) |
926
|
0 |
0 |
if (strEQ(name, "PARSE_BAD_COL")) |
932
|
0 |
0 |
if (strEQ(name, "PARSE_BAD_OUTPUT")) |
938
|
0 |
0 |
if (strEQ(name, "PARSE_BAD_TYPE")) |
944
|
0 |
0 |
if (strEQ(name, "PARSE_LRG_VECTOR")) |
950
|
0 |
0 |
if (strEQ(name, "PARSE_NO_OUTPUT")) |
956
|
0 |
0 |
if (strEQ(name, "PARSE_SYNTAX_ERR")) |
962
|
0 |
0 |
if (strEQ(name, "PLIO_1")) |
972
|
0 |
1 |
if (strEQ(name, "READONLY")) |
978
|
0 |
1 |
if (strEQ(name, "READONLY_FILE")) |
984
|
1 |
0 |
if (strEQ(name, "READWRITE")) |
990
|
0 |
0 |
if (strEQ(name, "READ_ERROR")) |
996
|
0 |
0 |
if (strEQ(name, "RICE_1")) |
1004
|
0 |
0 |
if (strEQ(name, "SAME_FILE")) |
1010
|
0 |
0 |
if (strEQ(name, "SEEK_ERROR")) |
1016
|
0 |
0 |
if (strEQ(name, "SHORT_IMG")) |
1024
|
0 |
9 |
if (strEQ(name, "TBIT")) |
1030
|
1 |
8 |
if (strEQ(name, "TBYTE")) |
1036
|
0 |
8 |
if (strEQ(name, "TSBYTE")) |
1042
|
0 |
8 |
if (strEQ(name, "TCOMPLEX")) |
1048
|
0 |
8 |
if (strEQ(name, "TDBLCOMPLEX")) |
1054
|
1 |
7 |
if (strEQ(name, "TDOUBLE")) |
1060
|
1 |
6 |
if (strEQ(name, "TFLOAT")) |
1066
|
1 |
5 |
if (strEQ(name, "TINT")) |
1072
|
1 |
4 |
if (strEQ(name, "TLOGICAL")) |
1078
|
1 |
3 |
if (strEQ(name, "TLONG")) |
1084
|
0 |
3 |
if (strEQ(name, "TLONGLONG")) |
1090
|
0 |
3 |
if (strEQ(name, "TOO_MANY_DRIVERS")) |
1096
|
0 |
3 |
if (strEQ(name, "TOO_MANY_FILES")) |
1102
|
0 |
3 |
if (strEQ(name, "TOO_MANY_HDUS_TRACKED")) |
1108
|
1 |
2 |
if (strEQ(name, "TRUE")) |
1114
|
1 |
1 |
if (strEQ(name, "TSHORT")) |
1120
|
1 |
0 |
if (strEQ(name, "TSTRING")) |
1126
|
0 |
0 |
if (strEQ(name, "TUINT")) |
1132
|
0 |
0 |
if (strEQ(name, "TULONG")) |
1138
|
0 |
0 |
if (strEQ(name, "TUSHORT")) |
1144
|
0 |
0 |
if (strEQ(name, "TYP_STRUC_KEY")) |
1150
|
0 |
0 |
if (strEQ(name, "TYP_CMPRS_KEY")) |
1156
|
0 |
0 |
if (strEQ(name, "TYP_SCAL_KEY")) |
1162
|
0 |
0 |
if (strEQ(name, "TYP_NULL_KEY")) |
1168
|
0 |
0 |
if (strEQ(name, "TYP_DIM_KEY")) |
1174
|
0 |
0 |
if (strEQ(name, "TYP_RANG_KEY")) |
1180
|
0 |
0 |
if (strEQ(name, "TYP_UNIT_KEY")) |
1186
|
0 |
0 |
if (strEQ(name, "TYP_DISP_KEY")) |
1192
|
0 |
0 |
if (strEQ(name, "TYP_HDUID_KEY")) |
1198
|
0 |
0 |
if (strEQ(name, "TYP_CKSUM_KEY")) |
1204
|
0 |
0 |
if (strEQ(name, "TYP_WCS_KEY")) |
1210
|
0 |
0 |
if (strEQ(name, "TYP_REFSYS_KEY")) |
1216
|
0 |
0 |
if (strEQ(name, "TYP_COMM_KEY")) |
1222
|
0 |
0 |
if (strEQ(name, "TYP_CONT_KEY")) |
1228
|
0 |
0 |
if (strEQ(name, "TYP_USER_KEY")) |
1236
|
0 |
0 |
if (strEQ(name, "ULONG_IMG")) |
1242
|
0 |
0 |
if (strEQ(name, "UNKNOWN_EXT")) |
1248
|
0 |
0 |
if (strEQ(name, "UNKNOWN_REC")) |
1254
|
0 |
0 |
if (strEQ(name, "URL_PARSE_ERROR")) |
1260
|
0 |
0 |
if (strEQ(name, "USE_MEM_BUFF")) |
1266
|
0 |
0 |
if (strEQ(name, "USHORT_IMG")) |
1274
|
0 |
0 |
if (strEQ(name, "VALIDSTRUC")) |
1280
|
0 |
0 |
if (strEQ(name, "VALUE_UNDEFINED")) |
1288
|
0 |
0 |
if (strEQ(name, "WCS_ERROR")) |
1294
|
0 |
0 |
if (strEQ(name, "WRITE_ERROR")) |
1306
|
0 |
0 |
if (strEQ(name, "ZERO_SCALE")) |
1351
|
4 |
3 |
RETVAL = PerlyUnpacking( items > 0 ? SvIV((ST(0))) : -1 ); |
|
4 |
0 |
RETVAL = PerlyUnpacking( items > 0 ? SvIV((ST(0))) : -1 ); |
1361
|
3 |
4 |
if( items > 1 ) |
1362
|
3 |
0 |
fptr->perlyunpacking = SvIV((ST(1))); |
1373
|
0 |
3 |
if( items > 1 ) |
1374
|
0 |
0 |
fptr->is_open = SvIV((ST(1))); |
1385
|
2 |
2 |
RETVAL = PERLYUNPACKING(fptr->perlyunpacking); |
1397
|
1 |
12 |
if ( fptr->is_open ) |
1400
|
0 |
1 |
if ( status ) |
1424
|
0 |
0 |
if (ST(1)==&PL_sv_undef) |
1426
|
0 |
0 |
else if (sv_derived_from(ST(1),"fitsfilePtr")) |
1427
|
0 |
0 |
mfptr = fitsfileSV(ST(1)); |
1446
|
0 |
0 |
if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),typecode); |
1447
|
0 |
0 |
if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),width); |
1448
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),decimals); |
1464
|
0 |
0 |
if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),typecode); |
1465
|
0 |
0 |
if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),repeat); |
1466
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),width); |
1482
|
0 |
0 |
if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),typecode); |
1483
|
0 |
0 |
if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),repeat); |
1484
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),width); |
1505
|
0 |
0 |
RETVAL=ffcrow( |
1770
|
0 |
0 |
if (ffinit(&(fptr->fptr),name,&status)) |
1788
|
0 |
2 |
if (RETVAL) |
1805
|
0 |
0 |
if (RETVAL) |
1899
|
0 |
0 |
if (fftplt(&(fptr->fptr),filename,tpltfile,&status)) |
1917
|
0 |
0 |
if (RETVAL) |
1963
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) { /* caller wants naxes set */ |
1972
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),naxis); |
1973
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),naxes,naxis,TLONG,fptr->perlyunpacking); |
1990
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) { /* caller wants naxes set */ |
1999
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),naxis); |
2000
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),naxes,naxis,TLONGLONG,fptr->perlyunpacking); |
2051
|
0 |
0 |
if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),hdutype); |
2223
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
2224
|
0 |
0 |
SvGROW(ST(5),nrows*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(5),nrows*sizeof_datatype(TLOGICAL)); |
2225
|
0 |
0 |
RETVAL=fffrow(fptr->fptr,expr,firstrow,nrows,&n_good_rows,(logical*)SvPV(ST(5),PL_na),&status); |
2232
|
0 |
0 |
if (ST(4) != &PL_sv_undef) sv_setiv(ST(4), n_good_rows); /* value-added */ |
2311
|
5 |
0 |
ttype = (ST(2) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
2312
|
5 |
0 |
tunit = (ST(4) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
2313
|
5 |
0 |
tform = (ST(5) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
2314
|
5 |
0 |
nulstr= (ST(8) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
2315
|
5 |
0 |
tdisp = (ST(9) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
2317
|
5 |
0 |
if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),tbcol); |
2318
|
5 |
0 |
if (ST(6) != &PL_sv_undef) sv_setnv(ST(6),scale); |
2319
|
5 |
0 |
if (ST(7) != &PL_sv_undef) sv_setnv(ST(7),zero); |
2346
|
10 |
0 |
ttype = (ST(2) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
2347
|
10 |
0 |
tunit = (ST(3) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
2348
|
10 |
0 |
dtype = (ST(4) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
2349
|
10 |
0 |
tdisp = (ST(9) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
2351
|
10 |
0 |
if (ST(5) != &PL_sv_undef) sv_setiv(ST(5),repeat); |
2352
|
10 |
0 |
if (ST(6) != &PL_sv_undef) sv_setnv(ST(6),scale); |
2353
|
10 |
0 |
if (ST(7) != &PL_sv_undef) sv_setnv(ST(7),zero); |
2354
|
10 |
0 |
if (ST(8) != &PL_sv_undef) sv_setiv(ST(8),nulval); |
2380
|
0 |
0 |
ttype = (ST(2) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
2381
|
0 |
0 |
tunit = (ST(3) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
2382
|
0 |
0 |
dtype = (ST(4) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
2383
|
0 |
0 |
tdisp = (ST(9) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
2385
|
0 |
0 |
if (ST(5) != &PL_sv_undef) sv_setiv(ST(5),repeat); |
2386
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setnv(ST(6),scale); |
2387
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setnv(ST(7),zero); |
2388
|
0 |
0 |
if (ST(8) != &PL_sv_undef) sv_setiv(ST(8),nulval); |
2408
|
0 |
0 |
if (ST(1) != &PL_sv_undef) sv_setiv(ST(1), datasum); /* value-added */ |
2409
|
0 |
0 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2), hdusum); /* value-added */ |
2428
|
16 |
0 |
if (ST(4) != &PL_sv_undef) sv_setiv(ST(4),colnum); /* value-added */ |
2446
|
2 |
0 |
if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),colnum); |
2464
|
15 |
0 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),typecode); |
2465
|
15 |
0 |
if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),repeat); |
2466
|
15 |
0 |
if (ST(4) != &PL_sv_undef) sv_setiv(ST(4),width); |
2484
|
0 |
0 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),typecode); |
2485
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),repeat); |
2486
|
0 |
0 |
if (ST(4) != &PL_sv_undef) sv_setiv(ST(4),width); |
2504
|
0 |
0 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),typecode); |
2505
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),repeat); |
2506
|
0 |
0 |
if (ST(4) != &PL_sv_undef) sv_setiv(ST(4),width); |
2524
|
0 |
0 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),typecode); |
2525
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),repeat); |
2526
|
0 |
0 |
if (ST(4) != &PL_sv_undef) sv_setiv(ST(4),width); |
2565
|
2 |
0 |
if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),keysexist); /* value-added */ |
2566
|
2 |
0 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),keynum); /* value-added */ |
2582
|
2 |
0 |
if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),keysexist); /* value-added */ |
2583
|
2 |
0 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),morekeys); /* value-added */ |
2597
|
5 |
0 |
if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),hdunum); |
2625
|
0 |
0 |
if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),headstart); |
2626
|
0 |
0 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),datastart); |
2627
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),dataend); |
2644
|
0 |
0 |
if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),headstart); |
2645
|
0 |
0 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),datastart); |
2646
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),dataend); |
2663
|
0 |
0 |
if (ST(1) != &PL_sv_undef) sv_setuv(ST(1),headstart); |
2664
|
0 |
0 |
if (ST(2) != &PL_sv_undef) sv_setuv(ST(2),datastart); |
2665
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setuv(ST(3),dataend); |
2682
|
0 |
1 |
if (ST(2) != &PL_sv_undef) |
2761
|
0 |
0 |
if (RETVAL <= 0) { |
2783
|
0 |
0 |
if (RETVAL <= 0) { |
2898
|
0 |
0 |
if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),timeref); |
2918
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),rowlen); /* value-added */ |
2934
|
0 |
0 |
if (ST(2)!=&PL_sv_undef) unpack1D(ST(2),naxes,ndim,TLONG,fptr->perlyunpacking); |
2946
|
0 |
1 |
if (ST(0) != &PL_sv_undef) sv_setnv(ST(0),version); /* value-added */ |
2962
|
0 |
0 |
if (ST(2)!=&PL_sv_undef) unpackScalar(ST(2), header, TSTRING); |
2963
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) unpackScalar(ST(3), &nkeys, TINT); |
2981
|
0 |
0 |
if (ST(2)!=&PL_sv_undef) unpackScalar(ST(2), header, TSTRING); |
2982
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) unpackScalar(ST(3), &nkeys, TINT); |
3593
|
0 |
1 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),hdutype); |
3622
|
0 |
2 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),hdutype); |
3645
|
0 |
0 |
if (!filename) /* undef passed */ |
3648
|
0 |
0 |
if (ffopen(&(fptr->fptr),filename,iomode,&status)) |
3664
|
0 |
12 |
if (!filename) /* undef passed */ |
3668
|
1 |
11 |
if (RETVAL) |
3684
|
0 |
0 |
if (!filename) /* undef passed */ |
3688
|
0 |
0 |
if (RETVAL) |
3704
|
0 |
0 |
if (!filename) /* undef passed */ |
3708
|
0 |
0 |
if (RETVAL) |
3724
|
0 |
0 |
if (!filename) /* undef passed */ |
3728
|
0 |
0 |
if (RETVAL) |
3744
|
0 |
0 |
if (!filename) /* undef passed */ |
3748
|
0 |
0 |
if (RETVAL) |
3766
|
0 |
0 |
if (!filename) /* undef passed */ |
3770
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),hdutype); |
3771
|
0 |
0 |
if (RETVAL) |
3790
|
0 |
0 |
if (RETVAL) |
3809
|
0 |
0 |
if (RETVAL) |
3933
|
0 |
0 |
if (ST(4)!=&PL_sv_undef || ST(5)!=&PL_sv_undef) { |
|
0 |
0 |
if (ST(4)!=&PL_sv_undef || ST(5)!=&PL_sv_undef) { |
3944
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),numranges); |
3945
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),rangemin,numranges,TLONG,-1); |
3946
|
0 |
0 |
if (ST(5)!=&PL_sv_undef) unpack1D(ST(5),rangemax,numranges,TLONG,-1); |
3963
|
0 |
0 |
if (ST(4)!=&PL_sv_undef || ST(5)!=&PL_sv_undef) { |
|
0 |
0 |
if (ST(4)!=&PL_sv_undef || ST(5)!=&PL_sv_undef) { |
3974
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),numranges); |
3975
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),rangemin,numranges,TLONGLONG,-1); |
3976
|
0 |
0 |
if (ST(5)!=&PL_sv_undef) unpack1D(ST(5),rangemax,numranges,TLONGLONG,-1); |
4007
|
0 |
0 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),keytype); |
4034
|
0 |
0 |
for (ii=0; ii
|
4052
|
0 |
0 |
if (ST(1) != &PL_sv_undef) sv_setpv(ST(1),outrec); |
4053
|
0 |
0 |
if (ST(8) != &PL_sv_undef) sv_setiv(ST(8),pat_num); |
4054
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),i); |
4055
|
0 |
0 |
if (ST(10) != &PL_sv_undef) sv_setiv(ST(10),j); |
4056
|
0 |
0 |
if (ST(11) != &PL_sv_undef) sv_setiv(ST(11),m); |
4057
|
0 |
0 |
if (ST(12) != &PL_sv_undef) sv_setiv(ST(12),n); |
4082
|
0 |
0 |
for (ii=0; ii
|
4157
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
4158
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TBYTE)); |
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TBYTE)); |
4159
|
0 |
0 |
RETVAL=ffg2db(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(byte*)SvPV(ST(6),PL_na),&anynul,&status); |
4167
|
0 |
0 |
if (ST(7)!=&PL_sv_undef) sv_setiv(ST(7),anynul); |
4189
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
4190
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TSBYTE)); |
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TSBYTE)); |
4191
|
0 |
0 |
RETVAL=ffg2dsb(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(signed char*)SvPV(ST(6),PL_na),&anynul,&status); |
4199
|
0 |
0 |
if (ST(7)!=&PL_sv_undef) sv_setiv(ST(7),anynul); |
4221
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
4222
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TUSHORT)); |
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TUSHORT)); |
4223
|
0 |
0 |
RETVAL=ffg2dui(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(unsigned short*)SvPV(ST(6),PL_na),&anynul,&status); |
4231
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
4253
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
4254
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TSHORT)); |
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TSHORT)); |
4255
|
0 |
0 |
RETVAL=ffg2di(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(short*)SvPV(ST(6),PL_na),&anynul,&status); |
4263
|
0 |
0 |
if (ST(7)!=&PL_sv_undef) sv_setiv(ST(7),anynul); |
4285
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
4286
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TUINT)); |
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TUINT)); |
4287
|
0 |
0 |
RETVAL=ffg2duk(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(unsigned int*)SvPV(ST(6),PL_na),&anynul,&status); |
4295
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
4317
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
4318
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TINT)); |
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TINT)); |
4319
|
0 |
0 |
RETVAL=ffg2dk(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(int*)SvPV(ST(6),PL_na),&anynul,&status); |
4327
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
4349
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
4350
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TULONG)); |
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TULONG)); |
4351
|
0 |
0 |
RETVAL=ffg2duj(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(unsigned long*)SvPV(ST(6),PL_na),&anynul,&status); |
4359
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
4381
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
4382
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TLONG)); |
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TLONG)); |
4383
|
0 |
0 |
RETVAL=ffg2dj(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(long*)SvPV(ST(6),PL_na),&anynul,&status); |
4391
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
4413
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
4414
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TLONGLONG)); |
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TLONGLONG)); |
4415
|
0 |
0 |
RETVAL=ffg2djj(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(LONGLONG*)SvPV(ST(6),PL_na),&anynul,&status); |
4423
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
4445
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
4446
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TFLOAT)); |
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TFLOAT)); |
4447
|
0 |
0 |
RETVAL=ffg2de(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(float*)SvPV(ST(6),PL_na),&anynul,&status); |
4455
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
4477
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
4478
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TDOUBLE)); |
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TDOUBLE)); |
4479
|
0 |
0 |
RETVAL=ffg2dd(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(double*)SvPV(ST(6),PL_na),&anynul,&status); |
4487
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
4511
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
4512
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TBYTE)); |
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TBYTE)); |
4513
|
0 |
0 |
RETVAL=ffg3db(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(byte*)SvPV(ST(8),PL_na),&anynul,&status); |
4521
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
4545
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
4546
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TSBYTE)); |
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TSBYTE)); |
4547
|
0 |
0 |
RETVAL=ffg3dsb(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(signed char*)SvPV(ST(8),PL_na),&anynul,&status); |
4555
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
4579
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
4580
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TUSHORT)); |
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TUSHORT)); |
4581
|
0 |
0 |
RETVAL=ffg3dui(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(unsigned short*)SvPV(ST(8),PL_na),&anynul,&status); |
4589
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
4613
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
4614
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TSHORT)); |
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TSHORT)); |
4615
|
0 |
0 |
RETVAL=ffg3di(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(short*)SvPV(ST(8),PL_na),&anynul,&status); |
4623
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
4647
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
4648
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TUINT)); |
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TUINT)); |
4649
|
0 |
0 |
RETVAL=ffg3duk(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(unsigned int*)SvPV(ST(8),PL_na),&anynul,&status); |
4657
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
4681
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
4682
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TINT)); |
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TINT)); |
4683
|
0 |
0 |
RETVAL=ffg3dk(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(int*)SvPV(ST(8),PL_na),&anynul,&status); |
4691
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
4715
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
4716
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TULONG)); |
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TULONG)); |
4717
|
0 |
0 |
RETVAL=ffg3duj(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(unsigned long*)SvPV(ST(8),PL_na),&anynul,&status); |
4725
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
4749
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
4750
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TLONG)); |
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TLONG)); |
4751
|
0 |
0 |
RETVAL=ffg3dj(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(long*)SvPV(ST(8),PL_na),&anynul,&status); |
4759
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
4783
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
4784
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TLONGLONG)); |
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TLONGLONG)); |
4785
|
0 |
0 |
RETVAL=ffg3djj(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(LONGLONG*)SvPV(ST(8),PL_na),&anynul,&status); |
4793
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
4817
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
4818
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TFLOAT)); |
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TFLOAT)); |
4819
|
0 |
0 |
RETVAL=ffg3de(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(float*)SvPV(ST(8),PL_na),&anynul,&status); |
4827
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
4851
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
4852
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TDOUBLE)); |
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TDOUBLE)); |
4853
|
0 |
0 |
RETVAL=ffg3dd(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(double*)SvPV(ST(8),PL_na),&anynul,&status); |
4861
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
4899
|
1 |
0 |
tbcol = (ST(5)!=&PL_sv_undef) ? get_mortalspace(tfields,TLONG) : NULL; |
4900
|
1 |
0 |
extname = (ST(8)!=&PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
4901
|
1 |
0 |
if (ST(4)!=&PL_sv_undef) { |
4903
|
5 |
1 |
for (i=0; i
|
4906
|
1 |
0 |
if (ST(6)!=&PL_sv_undef) { |
4908
|
5 |
1 |
for (i=0; i
|
4911
|
1 |
0 |
if (ST(7)!=&PL_sv_undef) { |
4913
|
5 |
1 |
for (i=0; i
|
4918
|
1 |
0 |
if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),rowlen); |
4919
|
1 |
0 |
if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),nrows); |
4920
|
1 |
0 |
if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),tfields); |
4921
|
1 |
0 |
if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),ttype,tfields,TSTRING,fptr->perlyunpacking); |
4922
|
1 |
0 |
if (ST(5)!=&PL_sv_undef) unpack1D(ST(5),tbcol,tfields,TLONG,fptr->perlyunpacking); |
4923
|
1 |
0 |
if (ST(6)!=&PL_sv_undef) unpack1D(ST(6),tform,tfields,TSTRING,fptr->perlyunpacking); |
4924
|
1 |
0 |
if (ST(7)!=&PL_sv_undef) unpack1D(ST(7),tunit,tfields,TSTRING,fptr->perlyunpacking); |
4925
|
1 |
0 |
if (ST(8)!=&PL_sv_undef) sv_setpv(ST(8),extname); |
4950
|
0 |
0 |
tbcol = (ST(5)!=&PL_sv_undef) ? get_mortalspace(tfields,TLONGLONG) : NULL; |
4951
|
0 |
0 |
extname = (ST(8)!=&PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
4952
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) { |
4954
|
0 |
0 |
for (i=0; i
|
4957
|
0 |
0 |
if (ST(6)!=&PL_sv_undef) { |
4959
|
0 |
0 |
for (i=0; i
|
4962
|
0 |
0 |
if (ST(7)!=&PL_sv_undef) { |
4964
|
0 |
0 |
for (i=0; i
|
4969
|
0 |
0 |
if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),rowlen); |
4970
|
0 |
0 |
if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),nrows); |
4971
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),tfields); |
4972
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),ttype,tfields,TSTRING,fptr->perlyunpacking); |
4973
|
0 |
0 |
if (ST(5)!=&PL_sv_undef) unpack1D(ST(5),tbcol,tfields,TLONGLONG,fptr->perlyunpacking); |
4974
|
0 |
0 |
if (ST(6)!=&PL_sv_undef) unpack1D(ST(6),tform,tfields,TSTRING,fptr->perlyunpacking); |
4975
|
0 |
0 |
if (ST(7)!=&PL_sv_undef) unpack1D(ST(7),tunit,tfields,TSTRING,fptr->perlyunpacking); |
4976
|
0 |
0 |
if (ST(8)!=&PL_sv_undef) sv_setpv(ST(8),extname); |
4999
|
1 |
0 |
extname = (ST(7)!=&PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
5000
|
1 |
0 |
if (ST(4) != &PL_sv_undef) { |
5002
|
10 |
1 |
for (i=0; i
|
5005
|
1 |
0 |
if (ST(5) != &PL_sv_undef) { |
5007
|
10 |
1 |
for (i=0; i
|
5010
|
1 |
0 |
if (ST(6) != &PL_sv_undef) { |
5012
|
10 |
1 |
for (i=0; i
|
5016
|
1 |
0 |
if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),nrows); |
5017
|
1 |
0 |
if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),tfields); |
5018
|
1 |
0 |
if (ST(3)!=&PL_sv_undef) unpack1D(ST(3),ttype,tfields,TSTRING,fptr->perlyunpacking); |
5019
|
1 |
0 |
if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),tform,tfields,TSTRING,fptr->perlyunpacking); |
5020
|
1 |
0 |
if (ST(5)!=&PL_sv_undef) unpack1D(ST(5),tunit,tfields,TSTRING,fptr->perlyunpacking); |
5021
|
1 |
0 |
if (ST(6)!=&PL_sv_undef) sv_setpv(ST(6),extname); |
5022
|
1 |
0 |
if (ST(7)!=&PL_sv_undef) sv_setiv(ST(7),pcount); |
5045
|
0 |
0 |
extname = (ST(7)!=&PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
5046
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
5048
|
0 |
0 |
for (i=0; i
|
5051
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
5053
|
0 |
0 |
for (i=0; i
|
5056
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
5058
|
0 |
0 |
for (i=0; i
|
5062
|
0 |
0 |
if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),nrows); |
5063
|
0 |
0 |
if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),tfields); |
5064
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) unpack1D(ST(3),ttype,tfields,TSTRING,fptr->perlyunpacking); |
5065
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),tform,tfields,TSTRING,fptr->perlyunpacking); |
5066
|
0 |
0 |
if (ST(5)!=&PL_sv_undef) unpack1D(ST(5),tunit,tfields,TSTRING,fptr->perlyunpacking); |
5067
|
0 |
0 |
if (ST(6)!=&PL_sv_undef) sv_setpv(ST(6),extname); |
5068
|
0 |
0 |
if (ST(7)!=&PL_sv_undef) sv_setiv(ST(7),pcount); |
5111
|
0 |
0 |
if (datatype == TBIT) |
5113
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking) && datatype != TSTRING) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking) && datatype != TSTRING) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking) && datatype != TSTRING) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking) && datatype != TSTRING) { |
5114
|
0 |
0 |
SvGROW(ST(7),nelements*sizeof_datatype(storage_datatype)); |
|
0 |
0 |
SvGROW(ST(7),nelements*sizeof_datatype(storage_datatype)); |
5115
|
0 |
0 |
RETVAL=ffgcv(fptr->fptr,datatype,colnum,firstrow,firstelem,nelements,pack1D(nulval,storage_datatype),(void*)SvPV(ST(7),PL_na),&anynul,&status); |
5119
|
0 |
0 |
if (datatype == TSTRING) { |
5121
|
0 |
0 |
for (i=0;i
|
5127
|
0 |
0 |
if (ST(8) != &PL_sv_undef) sv_setiv(ST(8),anynul); |
5145
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
5146
|
0 |
0 |
SvGROW(ST(5),nbit*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(5),nbit*sizeof_datatype(TLOGICAL)); |
5147
|
0 |
0 |
RETVAL = ffgcx(fptr->fptr,colnum,frow,fbit,nbit,(logical*)SvPV(ST(5),PL_na),&status); |
5172
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
5173
|
0 |
0 |
SvGROW(ST(6),nrows*sizeof_datatype(TUSHORT)); |
|
0 |
0 |
SvGROW(ST(6),nrows*sizeof_datatype(TUSHORT)); |
5174
|
0 |
0 |
RETVAL = ffgcxui(fptr->fptr,colnum,frow,nrows,fbit,nbits,(unsigned short*)SvPV(ST(6),PL_na),&status); |
5199
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
5200
|
0 |
0 |
SvGROW(ST(6),nrows*sizeof_datatype(TUINT)); |
|
0 |
0 |
SvGROW(ST(6),nrows*sizeof_datatype(TUINT)); |
5201
|
0 |
0 |
RETVAL = ffgcxuk(fptr->fptr,colnum,frow,nrows,fbit,nbits,(unsigned int*)SvPV(ST(6),PL_na),&status); |
5232
|
83 |
7 |
for (i=0;i
|
5236
|
7 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
5256
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
5257
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
5258
|
0 |
0 |
RETVAL=ffgcvl(fptr->fptr,cnum,frow,felem,nelem,nulval,(logical*)SvPV(ST(6),PL_na),&anynul,&status); |
5265
|
1 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
5285
|
7 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
7 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
5286
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TBYTE)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TBYTE)); |
5287
|
0 |
0 |
RETVAL=ffgcvb(fptr->fptr,cnum,frow,felem,nelem,nulval,(byte*)SvPV(ST(6),PL_na),&anynul,&status); |
5294
|
7 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
5314
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
5315
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TSBYTE)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TSBYTE)); |
5316
|
0 |
0 |
RETVAL=ffgcvsb(fptr->fptr,cnum,frow,felem,nelem,nulval,(signed char*)SvPV(ST(6),PL_na),&anynul,&status); |
5323
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
5343
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
5344
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TUSHORT)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TUSHORT)); |
5345
|
0 |
0 |
RETVAL=ffgcvui(fptr->fptr,cnum,frow,felem,nelem,nulval,(unsigned short*)SvPV(ST(6),PL_na),&anynul,&status); |
5352
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
5372
|
6 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
6 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
5373
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TSHORT)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TSHORT)); |
5374
|
0 |
0 |
RETVAL=ffgcvi(fptr->fptr,cnum,frow,felem,nelem,nulval,(short*)SvPV(ST(6),PL_na),&anynul,&status); |
5381
|
6 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
5401
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
5402
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TUINT)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TUINT)); |
5403
|
0 |
0 |
RETVAL=ffgcvuk(fptr->fptr,cnum,frow,felem,nelem,nulval,(unsigned int*)SvPV(ST(6),PL_na),&anynul,&status); |
5410
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
5430
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
5431
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TINT)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TINT)); |
5432
|
0 |
0 |
RETVAL=ffgcvk(fptr->fptr,cnum,frow,felem,nelem,nulval,(int*)SvPV(ST(6),PL_na),&anynul,&status); |
5439
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
5459
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
5460
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TULONG)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TULONG)); |
5461
|
0 |
0 |
RETVAL=ffgcvuj(fptr->fptr,cnum,frow,felem,nelem,nulval,(unsigned long*)SvPV(ST(6),PL_na),&anynul,&status); |
5468
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
5488
|
5 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
5 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
5489
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLONG)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLONG)); |
5490
|
0 |
0 |
RETVAL=ffgcvj(fptr->fptr,cnum,frow,felem,nelem,nulval,(long*)SvPV(ST(6),PL_na),&anynul,&status); |
5497
|
5 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
5517
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
5518
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLONGLONG)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLONGLONG)); |
5519
|
0 |
0 |
RETVAL=ffgcvjj(fptr->fptr,cnum,frow,felem,nelem,nulval,(LONGLONG*)SvPV(ST(6),PL_na),&anynul,&status); |
5526
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
5546
|
6 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
6 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
5547
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TFLOAT)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TFLOAT)); |
5548
|
0 |
0 |
RETVAL=ffgcve(fptr->fptr,cnum,frow,felem,nelem,nulval,(float*)SvPV(ST(6),PL_na),&anynul,&status); |
5555
|
6 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
5575
|
6 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
6 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
5576
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TDOUBLE)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TDOUBLE)); |
5577
|
0 |
0 |
RETVAL=ffgcvd(fptr->fptr,cnum,frow,felem,nelem,nulval,(double*)SvPV(ST(6),PL_na),&anynul,&status); |
5584
|
6 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
5604
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
5605
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TCOMPLEX)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TCOMPLEX)); |
5606
|
0 |
0 |
RETVAL=ffgcvc(fptr->fptr,cnum,frow,felem,nelem,nulval,(float*)SvPV(ST(6),PL_na),&anynul,&status); |
5613
|
1 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
5633
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
5634
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TDBLCOMPLEX)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TDBLCOMPLEX)); |
5635
|
0 |
0 |
RETVAL=ffgcvm(fptr->fptr,cnum,frow,felem,nelem,nulval,(double*)SvPV(ST(6),PL_na),&anynul,&status); |
5642
|
1 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
5666
|
0 |
0 |
if (datatype == TBIT) |
5668
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking) && datatype != TSTRING) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking) && datatype != TSTRING) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking) && datatype != TSTRING) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking) && datatype != TSTRING) { |
5669
|
0 |
0 |
if (ST(6)!=&PL_sv_undef) { |
5670
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(storage_datatype)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(storage_datatype)); |
5671
|
0 |
0 |
array = (void*)SvPV(ST(6),PL_na); |
5675
|
0 |
0 |
if (ST(7) != &PL_sv_undef) { |
5676
|
0 |
0 |
SvGROW(ST(7),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(7),nelem*sizeof_datatype(TLOGICAL)); |
5677
|
0 |
0 |
nularray = (logical*)SvPV(ST(7),PL_na); |
5687
|
0 |
0 |
if (ST(6)!=&PL_sv_undef) |
5689
|
0 |
0 |
if (ST(7)!=&PL_sv_undef) |
5692
|
0 |
0 |
if (ST(8)!=&PL_sv_undef) |
5718
|
0 |
0 |
for (i=0;i
|
5720
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
5721
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
5722
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
5723
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
5733
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
5735
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TSTRING,fptr->perlyunpacking); |
5736
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
5756
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
5757
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
5758
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
5759
|
0 |
0 |
array = (logical*)SvPV(ST(5),PL_na); |
5763
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
5764
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
5765
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
5775
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TLOGICAL,fptr->perlyunpacking); |
5776
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
5778
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
5798
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
5799
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
5800
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TBYTE)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TBYTE)); |
5801
|
0 |
0 |
array = (byte*)SvPV(ST(5),PL_na); |
5805
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
5806
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
5807
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
5817
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TBYTE,fptr->perlyunpacking); |
5818
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
5820
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
5840
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
5841
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
5842
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TSBYTE)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TSBYTE)); |
5843
|
0 |
0 |
array = (signed char*)SvPV(ST(5),PL_na); |
5847
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
5848
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
5849
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
5859
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TSBYTE,fptr->perlyunpacking); |
5860
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
5862
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
5882
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
5883
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
5884
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TUSHORT)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TUSHORT)); |
5885
|
0 |
0 |
array = (unsigned short*)SvPV(ST(5),PL_na); |
5889
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
5890
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
5891
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
5901
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TUSHORT,fptr->perlyunpacking); |
5902
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
5904
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
5924
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
5925
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
5926
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TSHORT)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TSHORT)); |
5927
|
0 |
0 |
array = (short*)SvPV(ST(5),PL_na); |
5931
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
5932
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
5933
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
5943
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TSHORT,fptr->perlyunpacking); |
5944
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
5946
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
5966
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
5967
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
5968
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TINT)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TINT)); |
5969
|
0 |
0 |
array = (int*)SvPV(ST(5),PL_na); |
5973
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
5974
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
5975
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
5985
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TINT,fptr->perlyunpacking); |
5986
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
5988
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
6008
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
6009
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
6010
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TUINT)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TUINT)); |
6011
|
0 |
0 |
array = (unsigned int*)SvPV(ST(5),PL_na); |
6015
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
6016
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
6017
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
6027
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TUINT,fptr->perlyunpacking); |
6028
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
6030
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
6050
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
6051
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
6052
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLONG)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLONG)); |
6053
|
0 |
0 |
array = (long*)SvPV(ST(5),PL_na); |
6057
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
6058
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
6059
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
6069
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TLONG,fptr->perlyunpacking); |
6070
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
6072
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
6092
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
6093
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
6094
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLONGLONG)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLONGLONG)); |
6095
|
0 |
0 |
array = (LONGLONG*)SvPV(ST(5),PL_na); |
6099
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
6100
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
6101
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
6111
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TLONGLONG,fptr->perlyunpacking); |
6112
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
6114
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
6134
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
6135
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
6136
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TULONG)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TULONG)); |
6137
|
0 |
0 |
array = (unsigned long*)SvPV(ST(5),PL_na); |
6141
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
6142
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
6143
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
6153
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TULONG,fptr->perlyunpacking); |
6154
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
6156
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
6176
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
6177
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
6178
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TFLOAT)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TFLOAT)); |
6179
|
0 |
0 |
array = (float*)SvPV(ST(5),PL_na); |
6183
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
6184
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
6185
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
6195
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TFLOAT,fptr->perlyunpacking); |
6196
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
6198
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
6218
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
6219
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
6220
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TDOUBLE)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TDOUBLE)); |
6221
|
0 |
0 |
array = (double*)SvPV(ST(5),PL_na); |
6225
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
6226
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
6227
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
6237
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TDOUBLE,fptr->perlyunpacking); |
6238
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
6240
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
6260
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
6261
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
6262
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TCOMPLEX)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TCOMPLEX)); |
6263
|
0 |
0 |
array = (float*)SvPV(ST(5),PL_na); |
6267
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
6268
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
6269
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
6279
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TCOMPLEX,fptr->perlyunpacking); |
6280
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
6282
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
6302
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
6303
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
6304
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TDBLCOMPLEX)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TDBLCOMPLEX)); |
6305
|
0 |
0 |
array = (double*)SvPV(ST(5),PL_na); |
6309
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
6310
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
6311
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
6321
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TDBLCOMPLEX,fptr->perlyunpacking); |
6322
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
6324
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
6342
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),repeat); |
6343
|
0 |
0 |
if (ST(4) != &PL_sv_undef) sv_setiv(ST(4),offset); |
6361
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),repeat); |
6362
|
0 |
0 |
if (ST(4) != &PL_sv_undef) sv_setiv(ST(4),offset); |
6380
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
6381
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
6382
|
0 |
0 |
SvGROW(ST(4),nrows*sizeof_datatype(TLONG)); |
|
0 |
0 |
SvGROW(ST(4),nrows*sizeof_datatype(TLONG)); |
6383
|
0 |
0 |
repeat = (long*)SvPV(ST(4),PL_na); |
6388
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
6389
|
0 |
0 |
SvGROW(ST(5),nrows*sizeof_datatype(TLONG)); |
|
0 |
0 |
SvGROW(ST(5),nrows*sizeof_datatype(TLONG)); |
6390
|
0 |
0 |
offset = (long*)SvPV(ST(5),PL_na); |
6400
|
0 |
0 |
if (ST(4) != &PL_sv_undef) unpack1D(ST(4),repeat,nrows,TLONG,fptr->perlyunpacking); |
6401
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),offset,nrows,TLONG,fptr->perlyunpacking); |
6420
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
6421
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
6422
|
0 |
0 |
SvGROW(ST(4),nrows*sizeof_datatype(TLONGLONG)); |
|
0 |
0 |
SvGROW(ST(4),nrows*sizeof_datatype(TLONGLONG)); |
6423
|
0 |
0 |
repeat = (LONGLONG*)SvPV(ST(4),PL_na); |
6428
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
6429
|
0 |
0 |
SvGROW(ST(5),nrows*sizeof_datatype(TLONGLONG)); |
|
0 |
0 |
SvGROW(ST(5),nrows*sizeof_datatype(TLONGLONG)); |
6430
|
0 |
0 |
offset = (LONGLONG*)SvPV(ST(5),PL_na); |
6440
|
0 |
0 |
if (ST(4) != &PL_sv_undef) unpack1D(ST(4),repeat,nrows,TLONGLONG,fptr->perlyunpacking); |
6441
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),offset,nrows,TLONGLONG,fptr->perlyunpacking); |
6471
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
6472
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TBYTE)); |
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TBYTE)); |
6473
|
0 |
0 |
RETVAL=ffggpb(fptr->fptr,group,felem,nelem,(byte*)SvPV(ST(4),PL_na),&status); |
6496
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
6497
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TSBYTE)); |
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TSBYTE)); |
6498
|
0 |
0 |
RETVAL=ffggpsb(fptr->fptr,group,felem,nelem,(signed char*)SvPV(ST(4),PL_na),&status); |
6521
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
6522
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TSHORT)); |
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TSHORT)); |
6523
|
0 |
0 |
RETVAL=ffggpi(fptr->fptr,group,felem,nelem,(short*)SvPV(ST(4),PL_na),&status); |
6546
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
6547
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TUSHORT)); |
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TUSHORT)); |
6548
|
0 |
0 |
RETVAL=ffggpui(fptr->fptr,group,felem,nelem,(unsigned short*)SvPV(ST(4),PL_na),&status); |
6571
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
6572
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TINT)); |
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TINT)); |
6573
|
0 |
0 |
RETVAL=ffggpk(fptr->fptr,group,felem,nelem,(int*)SvPV(ST(4),PL_na),&status); |
6596
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
6597
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TUINT)); |
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TUINT)); |
6598
|
0 |
0 |
RETVAL=ffggpuk(fptr->fptr,group,felem,nelem,(unsigned int*)SvPV(ST(4),PL_na),&status); |
6621
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
6622
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TLONG)); |
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TLONG)); |
6623
|
0 |
0 |
RETVAL=ffggpj(fptr->fptr,group,felem,nelem,(long*)SvPV(ST(4),PL_na),&status); |
6646
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
6647
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TLONGLONG)); |
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TLONGLONG)); |
6648
|
0 |
0 |
RETVAL=ffggpjj(fptr->fptr,group,felem,nelem,(LONGLONG*)SvPV(ST(4),PL_na),&status); |
6671
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
6672
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TULONG)); |
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TULONG)); |
6673
|
0 |
0 |
RETVAL=ffggpuj(fptr->fptr,group,felem,nelem,(unsigned long*)SvPV(ST(4),PL_na),&status); |
6696
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
6697
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TFLOAT)); |
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TFLOAT)); |
6698
|
0 |
0 |
RETVAL=ffggpe(fptr->fptr,group,felem,nelem,(float*)SvPV(ST(4),PL_na),&status); |
6721
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
6722
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TDOUBLE)); |
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TDOUBLE)); |
6723
|
0 |
0 |
RETVAL=ffggpd(fptr->fptr,group,felem,nelem,(double*)SvPV(ST(4),PL_na),&status); |
6748
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
6749
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(datatype)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(datatype)); |
6750
|
0 |
0 |
RETVAL=ffgpv(fptr->fptr,datatype,felem,nelem,pack1D(nulval,datatype),(void*)SvPV(ST(5),PL_na),&anynul,&status); |
6757
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
6780
|
0 |
0 |
if (ST(1) != &PL_sv_undef) sv_setnv(ST(1),xrefval); |
6781
|
0 |
0 |
if (ST(2) != &PL_sv_undef) sv_setnv(ST(2),yrefval); |
6782
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setnv(ST(3),xrefpix); |
6783
|
0 |
0 |
if (ST(4) != &PL_sv_undef) sv_setnv(ST(4),yrefpix); |
6784
|
0 |
0 |
if (ST(5) != &PL_sv_undef) sv_setnv(ST(5),xinc); |
6785
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setnv(ST(6),yinc); |
6786
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setnv(ST(7),rot); |
6811
|
0 |
0 |
if (ST(2) != &PL_sv_undef) sv_setnv(ST(2),xrefval); |
6812
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setnv(ST(3),yrefval); |
6813
|
0 |
0 |
if (ST(4) != &PL_sv_undef) sv_setnv(ST(4),xrefpix); |
6814
|
0 |
0 |
if (ST(5) != &PL_sv_undef) sv_setnv(ST(5),yrefpix); |
6815
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setnv(ST(6),xinc); |
6816
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setnv(ST(7),yinc); |
6817
|
0 |
0 |
if (ST(8) != &PL_sv_undef) sv_setnv(ST(8),rot); |
6837
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
6838
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TBYTE)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TBYTE)); |
6839
|
0 |
0 |
RETVAL=ffgpvb(fptr->fptr,group,felem,nelem,nulval,(byte*)SvPV(ST(5),PL_na),&anynul,&status); |
6846
|
1 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
6865
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
6866
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TSBYTE)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TSBYTE)); |
6867
|
0 |
0 |
RETVAL=ffgpvsb(fptr->fptr,group,felem,nelem,nulval,(signed char*)SvPV(ST(5),PL_na),&anynul,&status); |
6874
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
6893
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
6894
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TSHORT)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TSHORT)); |
6895
|
0 |
0 |
RETVAL=ffgpvi(fptr->fptr,group,felem,nelem,nulval,(short*)SvPV(ST(5),PL_na),&anynul,&status); |
6902
|
1 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
6921
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
6922
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TUSHORT)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TUSHORT)); |
6923
|
0 |
0 |
RETVAL=ffgpvui(fptr->fptr,group,felem,nelem,nulval,(unsigned short*)SvPV(ST(5),PL_na),&anynul,&status); |
6930
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
6949
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
6950
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TINT)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TINT)); |
6951
|
0 |
0 |
RETVAL=ffgpvk(fptr->fptr,group,felem,nelem,nulval,(int*)SvPV(ST(5),PL_na),&anynul,&status); |
6958
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
6977
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
6978
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TUINT)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TUINT)); |
6979
|
0 |
0 |
RETVAL=ffgpvuk(fptr->fptr,group,felem,nelem,nulval,(unsigned int*)SvPV(ST(5),PL_na),&anynul,&status); |
6986
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
7005
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
7006
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLONG)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLONG)); |
7007
|
0 |
0 |
RETVAL=ffgpvj(fptr->fptr,group,felem,nelem,nulval,(long*)SvPV(ST(5),PL_na),&anynul,&status); |
7014
|
1 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
7033
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
7034
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLONGLONG)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLONGLONG)); |
7035
|
0 |
0 |
RETVAL=ffgpvjj(fptr->fptr,group,felem,nelem,nulval,(LONGLONG*)SvPV(ST(5),PL_na),&anynul,&status); |
7042
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
7061
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
7062
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TULONG)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TULONG)); |
7063
|
0 |
0 |
RETVAL=ffgpvuj(fptr->fptr,group,felem,nelem,nulval,(unsigned long*)SvPV(ST(5),PL_na),&anynul,&status); |
7070
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
7089
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
7090
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TFLOAT)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TFLOAT)); |
7091
|
0 |
0 |
RETVAL=ffgpve(fptr->fptr,group,felem,nelem,nulval,(float*)SvPV(ST(5),PL_na),&anynul,&status); |
7098
|
1 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
7117
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
7118
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TDOUBLE)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TDOUBLE)); |
7119
|
0 |
0 |
RETVAL=ffgpvd(fptr->fptr,group,felem,nelem,nulval,(double*)SvPV(ST(5),PL_na),&anynul,&status); |
7126
|
1 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
7147
|
1 |
0 |
if (ST(4)!=&PL_sv_undef) { /* caller wants naxes to be set */ |
7156
|
1 |
0 |
if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),simple); |
7157
|
1 |
0 |
if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),bitpix); |
7158
|
1 |
0 |
if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),naxis); |
7159
|
1 |
0 |
if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),naxes,naxis,TLONG, |
7161
|
1 |
0 |
if (ST(5)!=&PL_sv_undef) sv_setiv(ST(5),pcount); |
7162
|
1 |
0 |
if (ST(6)!=&PL_sv_undef) sv_setiv(ST(6),gcount); |
7163
|
1 |
0 |
if (ST(7)!=&PL_sv_undef) sv_setiv(ST(7),extend); |
7184
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) { /* caller wants naxes to be set */ |
7193
|
0 |
0 |
if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),simple); |
7194
|
0 |
0 |
if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),bitpix); |
7195
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),naxis); |
7196
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),naxes,naxis,TLONGLONG, |
7198
|
0 |
0 |
if (ST(5)!=&PL_sv_undef) sv_setiv(ST(5),pcount); |
7199
|
0 |
0 |
if (ST(6)!=&PL_sv_undef) sv_setiv(ST(6),gcount); |
7200
|
0 |
0 |
if (ST(7)!=&PL_sv_undef) sv_setiv(ST(7),extend); |
7219
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
7220
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) { |
7221
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(datatype)); |
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(datatype)); |
7222
|
0 |
0 |
array = (void*)SvPV(ST(4),PL_na); |
7226
|
0 |
0 |
if (ST(5)!=&PL_sv_undef) { |
7227
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
7228
|
0 |
0 |
nularray = (logical*)SvPV(ST(5),PL_na); |
7239
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) |
7241
|
0 |
0 |
if (ST(5)!=&PL_sv_undef) |
7244
|
0 |
0 |
if (ST(6)!=&PL_sv_undef) sv_setiv(ST(6),anynul); |
7263
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
7264
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
7265
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TBYTE)); |
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TBYTE)); |
7266
|
0 |
0 |
array = (byte*)SvPV(ST(4),PL_na); |
7270
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
7271
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
7272
|
0 |
0 |
nularray = (logical*)SvPV(ST(5),PL_na); |
7282
|
1 |
0 |
if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TBYTE,fptr->perlyunpacking); |
7283
|
1 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
7285
|
1 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
7304
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
7305
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
7306
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TSBYTE)); |
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TSBYTE)); |
7307
|
0 |
0 |
array = (signed char*)SvPV(ST(4),PL_na); |
7311
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
7312
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
7313
|
0 |
0 |
nularray = (logical*)SvPV(ST(5),PL_na); |
7323
|
0 |
0 |
if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TSBYTE,fptr->perlyunpacking); |
7324
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
7326
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
7345
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
7346
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
7347
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TSHORT)); |
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TSHORT)); |
7348
|
0 |
0 |
array = (short*)SvPV(ST(4),PL_na); |
7352
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
7353
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
7354
|
0 |
0 |
nularray = (logical*)SvPV(ST(5),PL_na); |
7364
|
1 |
0 |
if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TSHORT,fptr->perlyunpacking); |
7365
|
1 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
7367
|
1 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
7386
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
7387
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
7388
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TUSHORT)); |
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TUSHORT)); |
7389
|
0 |
0 |
array = (unsigned short*)SvPV(ST(4),PL_na); |
7393
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
7394
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
7395
|
0 |
0 |
nularray = (logical*)SvPV(ST(5),PL_na); |
7405
|
0 |
0 |
if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TUSHORT,fptr->perlyunpacking); |
7406
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
7408
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
7427
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
7428
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
7429
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TINT)); |
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TINT)); |
7430
|
0 |
0 |
array = (int*)SvPV(ST(4),PL_na); |
7434
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
7435
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
7436
|
0 |
0 |
nularray = (logical*)SvPV(ST(5),PL_na); |
7446
|
0 |
0 |
if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TINT,fptr->perlyunpacking); |
7447
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
7449
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
7468
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
7469
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
7470
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TUINT)); |
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TUINT)); |
7471
|
0 |
0 |
array = (unsigned int*)SvPV(ST(4),PL_na); |
7475
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
7476
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
7477
|
0 |
0 |
nularray = (logical*)SvPV(ST(5),PL_na); |
7487
|
0 |
0 |
if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TUINT,fptr->perlyunpacking); |
7488
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
7490
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
7509
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
7510
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
7511
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TLONG)); |
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TLONG)); |
7512
|
0 |
0 |
array = (long*)SvPV(ST(4),PL_na); |
7516
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
7517
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
7518
|
0 |
0 |
nularray = (logical*)SvPV(ST(5),PL_na); |
7528
|
1 |
0 |
if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TLONG,fptr->perlyunpacking); |
7529
|
1 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
7531
|
1 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
7550
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
7551
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
7552
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TLONGLONG)); |
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TLONGLONG)); |
7553
|
0 |
0 |
array = (LONGLONG*)SvPV(ST(4),PL_na); |
7557
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
7558
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
7559
|
0 |
0 |
nularray = (logical*)SvPV(ST(5),PL_na); |
7569
|
0 |
0 |
if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TLONGLONG,fptr->perlyunpacking); |
7570
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
7572
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
7591
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
7592
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
7593
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TULONG)); |
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TULONG)); |
7594
|
0 |
0 |
array = (unsigned long*)SvPV(ST(4),PL_na); |
7598
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
7599
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
7600
|
0 |
0 |
nularray = (logical*)SvPV(ST(5),PL_na); |
7610
|
0 |
0 |
if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TBYTE,fptr->perlyunpacking); |
7611
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
7613
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
7632
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
7633
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
7634
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TFLOAT)); |
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TFLOAT)); |
7635
|
0 |
0 |
array = (float*)SvPV(ST(4),PL_na); |
7639
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
7640
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
7641
|
0 |
0 |
nularray = (logical*)SvPV(ST(5),PL_na); |
7651
|
1 |
0 |
if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TFLOAT,fptr->perlyunpacking); |
7652
|
1 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
7654
|
1 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
7673
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
7674
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
7675
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TDOUBLE)); |
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TDOUBLE)); |
7676
|
0 |
0 |
array = (double*)SvPV(ST(4),PL_na); |
7680
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
7681
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
7682
|
0 |
0 |
nularray = (logical*)SvPV(ST(5),PL_na); |
7692
|
1 |
0 |
if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TDOUBLE,fptr->perlyunpacking); |
7693
|
1 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
7695
|
1 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
7740
|
0 |
0 |
value = (ST(4) != &PL_sv_undef) ? get_mortalspace(maxchar+1,TBYTE) : NULL; |
7741
|
0 |
0 |
comm = (ST(6) != &PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL; |
7743
|
0 |
0 |
if (ST(5) != &PL_sv_undef) sv_setiv(ST(5),valuelen); |
7772
|
8 |
0 |
comment=(ST(4)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL; |
7782
|
1 |
7 |
if (datatype == TLOGICAL) |
7802
|
1 |
0 |
comment=(ST(4)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL; |
7804
|
1 |
0 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),intval); |
7805
|
1 |
0 |
if (ST(3) != &PL_sv_undef) sv_setnv(ST(3),frac); |
7839
|
1 |
0 |
comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL; |
7870
|
2 |
0 |
comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL; |
7889
|
1 |
0 |
comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL; |
7908
|
1 |
0 |
comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL; |
7927
|
0 |
0 |
comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL; |
7946
|
1 |
0 |
comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL; |
7965
|
4 |
0 |
comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL; |
7985
|
2 |
0 |
comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL; |
8005
|
2 |
0 |
comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL; |
8027
|
1 |
0 |
comment=(ST(4)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL; |
8052
|
7 |
2 |
for (i=0; i
|
8178
|
1 |
4 |
comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL; |
8222
|
0 |
0 |
if (dtype == TBIT) |
8232
|
0 |
0 |
for (i=0; i
|
8233
|
0 |
0 |
ndata *= (trc[i]-blc[i]+1)/inc[i] + |
8236
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
8237
|
0 |
0 |
SvGROW(ST(6),ndata*sizeof_datatype(storage_dtype)); |
|
0 |
0 |
SvGROW(ST(6),ndata*sizeof_datatype(storage_dtype)); |
8238
|
0 |
0 |
RETVAL=ffgsv(fptr->fptr,dtype,blc,trc,inc,(nulval!=&PL_sv_undef ? pack1D(nulval,storage_dtype) : NULL),(void*)SvPV(ST(6),PL_na),&anynul,&status); |
|
0 |
0 |
RETVAL=ffgsv(fptr->fptr,dtype,blc,trc,inc,(nulval!=&PL_sv_undef ? pack1D(nulval,storage_dtype) : NULL),(void*)SvPV(ST(6),PL_na),&anynul,&status); |
8242
|
0 |
0 |
RETVAL=ffgsv(fptr->fptr,dtype,blc,trc,inc,(nulval != &PL_sv_undef ? pack1D(nulval,storage_dtype) : NULL),array,&anynul,&status); |
8245
|
0 |
0 |
if (ST(7) != &PL_sv_undef) |
8272
|
0 |
0 |
for (i=0; i
|
8273
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
8275
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
8276
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TBYTE)); |
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TBYTE)); |
8277
|
0 |
0 |
RETVAL=ffgsvb(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(byte*)SvPV(ST(8),PL_na),&anynul,&status); |
8284
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
8310
|
0 |
0 |
for (i=0; i
|
8311
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
8313
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
8314
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TSBYTE)); |
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TSBYTE)); |
8315
|
0 |
0 |
RETVAL=ffgsvsb(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(signed char*)SvPV(ST(8),PL_na),&anynul,&status); |
8322
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
8348
|
0 |
0 |
for (i=0; i
|
8349
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
8351
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
8352
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TSHORT)); |
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TSHORT)); |
8353
|
0 |
0 |
RETVAL=ffgsvi(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(short*)SvPV(ST(8),PL_na),&anynul,&status); |
8360
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
8386
|
0 |
0 |
for (i=0; i
|
8387
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
8389
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
8390
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TUSHORT)); |
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TUSHORT)); |
8391
|
0 |
0 |
RETVAL=ffgsvui(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(unsigned short*)SvPV(ST(8),PL_na),&anynul,&status); |
8398
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
8424
|
0 |
0 |
for (i=0; i
|
8425
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
8427
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
8428
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TINT)); |
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TINT)); |
8429
|
0 |
0 |
RETVAL=ffgsvk(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(int*)SvPV(ST(8),PL_na),&anynul,&status); |
8436
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
8462
|
0 |
0 |
for (i=0; i
|
8463
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
8465
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
8466
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TUINT)); |
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TUINT)); |
8467
|
0 |
0 |
RETVAL=ffgsvuk(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(unsigned int*)SvPV(ST(8),PL_na),&anynul,&status); |
8474
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
8500
|
0 |
0 |
for (i=0; i
|
8501
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
8503
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
8504
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLONG)); |
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLONG)); |
8505
|
0 |
0 |
RETVAL=ffgsvj(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(long*)SvPV(ST(8),PL_na),&anynul,&status); |
8512
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
8538
|
0 |
0 |
for (i=0; i
|
8539
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
8541
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
8542
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLONGLONG)); |
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLONGLONG)); |
8543
|
0 |
0 |
RETVAL=ffgsvjj(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(LONGLONG*)SvPV(ST(8),PL_na),&anynul,&status); |
8550
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
8576
|
0 |
0 |
for (i=0; i
|
8577
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
8579
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
8580
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TULONG)); |
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TULONG)); |
8581
|
0 |
0 |
RETVAL=ffgsvuj(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(unsigned long*)SvPV(ST(8),PL_na),&anynul,&status); |
8588
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
8614
|
0 |
0 |
for (i=0; i
|
8615
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
8617
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
8618
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TFLOAT)); |
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TFLOAT)); |
8619
|
0 |
0 |
RETVAL=ffgsve(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(float*)SvPV(ST(8),PL_na),&anynul,&status); |
8626
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
8652
|
0 |
0 |
for (i=0; i
|
8653
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
8655
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
8656
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TDOUBLE)); |
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TDOUBLE)); |
8657
|
0 |
0 |
RETVAL=ffgsvd(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(double*)SvPV(ST(8),PL_na),&anynul,&status); |
8664
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
8690
|
0 |
0 |
for (i=0; i
|
8691
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
8693
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
8694
|
0 |
0 |
if (ST(7) != &PL_sv_undef) { |
8695
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TBYTE)); |
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TBYTE)); |
8696
|
0 |
0 |
array = (byte*)SvPV(ST(7),PL_na); |
8700
|
0 |
0 |
if (ST(8) != &PL_sv_undef) { |
8701
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
8702
|
0 |
0 |
nularr = (logical*)SvPV(ST(8),PL_na); |
8712
|
0 |
0 |
if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TBYTE,fptr->perlyunpacking); |
8713
|
0 |
0 |
if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking); |
8715
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
8741
|
0 |
0 |
for (i=0; i
|
8742
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
8744
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
8745
|
0 |
0 |
if (ST(7) != &PL_sv_undef) { |
8746
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TSBYTE)); |
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TSBYTE)); |
8747
|
0 |
0 |
array = (signed char*)SvPV(ST(7),PL_na); |
8751
|
0 |
0 |
if (ST(8) != &PL_sv_undef) { |
8752
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
8753
|
0 |
0 |
nularr = (logical*)SvPV(ST(8),PL_na); |
8763
|
0 |
0 |
if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TSBYTE,fptr->perlyunpacking); |
8764
|
0 |
0 |
if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking); |
8766
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
8792
|
0 |
0 |
for (i=0; i
|
8793
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
8795
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
8796
|
0 |
0 |
if (ST(7) != &PL_sv_undef) { |
8797
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TSHORT)); |
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TSHORT)); |
8798
|
0 |
0 |
array = (short*)SvPV(ST(7),PL_na); |
8802
|
0 |
0 |
if (ST(8) != &PL_sv_undef) { |
8803
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
8804
|
0 |
0 |
nularr = (logical*)SvPV(ST(8),PL_na); |
8814
|
0 |
0 |
if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TSHORT,fptr->perlyunpacking); |
8815
|
0 |
0 |
if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking); |
8817
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
8843
|
0 |
0 |
for (i=0; i
|
8844
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
8846
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
8847
|
0 |
0 |
if (ST(7) != &PL_sv_undef) { |
8848
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TUSHORT)); |
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TUSHORT)); |
8849
|
0 |
0 |
array = (unsigned short*)SvPV(ST(7),PL_na); |
8853
|
0 |
0 |
if (ST(8) != &PL_sv_undef) { |
8854
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
8855
|
0 |
0 |
nularr = (logical*)SvPV(ST(8),PL_na); |
8865
|
0 |
0 |
if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TUSHORT,fptr->perlyunpacking); |
8866
|
0 |
0 |
if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking); |
8868
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
8894
|
0 |
0 |
for (i=0; i
|
8895
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
8897
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
8898
|
0 |
0 |
if (ST(7) != &PL_sv_undef) { |
8899
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TINT)); |
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TINT)); |
8900
|
0 |
0 |
array = (int*)SvPV(ST(7),PL_na); |
8904
|
0 |
0 |
if (ST(8) != &PL_sv_undef) { |
8905
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
8906
|
0 |
0 |
nularr = (logical*)SvPV(ST(8),PL_na); |
8916
|
0 |
0 |
if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TINT,fptr->perlyunpacking); |
8917
|
0 |
0 |
if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking); |
8919
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
8945
|
0 |
0 |
for (i=0; i
|
8946
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
8948
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
8949
|
0 |
0 |
if (ST(7) != &PL_sv_undef) { |
8950
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TUINT)); |
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TUINT)); |
8951
|
0 |
0 |
array = (unsigned int*)SvPV(ST(7),PL_na); |
8955
|
0 |
0 |
if (ST(8) != &PL_sv_undef) { |
8956
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
8957
|
0 |
0 |
nularr = (logical*)SvPV(ST(8),PL_na); |
8967
|
0 |
0 |
if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TUINT,fptr->perlyunpacking); |
8968
|
0 |
0 |
if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking); |
8970
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
8996
|
0 |
0 |
for (i=0; i
|
8997
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
8999
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
9000
|
0 |
0 |
if (ST(7) != &PL_sv_undef) { |
9001
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TLONG)); |
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TLONG)); |
9002
|
0 |
0 |
array = (long*)SvPV(ST(7),PL_na); |
9006
|
0 |
0 |
if (ST(8) != &PL_sv_undef) { |
9007
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
9008
|
0 |
0 |
nularr = (logical*)SvPV(ST(8),PL_na); |
9018
|
0 |
0 |
if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TLONG,fptr->perlyunpacking); |
9019
|
0 |
0 |
if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking); |
9021
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
9047
|
0 |
0 |
for (i=0; i
|
9048
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
9050
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
9051
|
0 |
0 |
if (ST(7) != &PL_sv_undef) { |
9052
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TLONGLONG)); |
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TLONGLONG)); |
9053
|
0 |
0 |
array = (LONGLONG*)SvPV(ST(7),PL_na); |
9057
|
0 |
0 |
if (ST(8) != &PL_sv_undef) { |
9058
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
9059
|
0 |
0 |
nularr = (logical*)SvPV(ST(8),PL_na); |
9069
|
0 |
0 |
if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TLONGLONG,fptr->perlyunpacking); |
9070
|
0 |
0 |
if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking); |
9072
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
9098
|
0 |
0 |
for (i=0; i
|
9099
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
9101
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
9102
|
0 |
0 |
if (ST(7) != &PL_sv_undef) { |
9103
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TULONG)); |
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TULONG)); |
9104
|
0 |
0 |
array = (unsigned long*)SvPV(ST(7),PL_na); |
9108
|
0 |
0 |
if (ST(8) != &PL_sv_undef) { |
9109
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
9110
|
0 |
0 |
nularr = (logical*)SvPV(ST(8),PL_na); |
9120
|
0 |
0 |
if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TULONG,fptr->perlyunpacking); |
9121
|
0 |
0 |
if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking); |
9123
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
9149
|
0 |
0 |
for (i=0; i
|
9150
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
9152
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
9153
|
0 |
0 |
if (ST(7) != &PL_sv_undef) { |
9154
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TFLOAT)); |
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TFLOAT)); |
9155
|
0 |
0 |
array = (float*)SvPV(ST(7),PL_na); |
9159
|
0 |
0 |
if (ST(8) != &PL_sv_undef) { |
9160
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
9161
|
0 |
0 |
nularr = (logical*)SvPV(ST(8),PL_na); |
9171
|
0 |
0 |
if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TFLOAT,fptr->perlyunpacking); |
9172
|
0 |
0 |
if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking); |
9174
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
9200
|
0 |
0 |
for (i=0; i
|
9201
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
9203
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
9204
|
0 |
0 |
if (ST(7) != &PL_sv_undef) { |
9205
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TDOUBLE)); |
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TDOUBLE)); |
9206
|
0 |
0 |
array = (double*)SvPV(ST(7),PL_na); |
9210
|
0 |
0 |
if (ST(8) != &PL_sv_undef) { |
9211
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
9212
|
0 |
0 |
nularr = (logical*)SvPV(ST(8),PL_na); |
9222
|
0 |
0 |
if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TDOUBLE,fptr->perlyunpacking); |
9223
|
0 |
0 |
if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking); |
9225
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
9250
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setnv(ST(3),xrefval); /* value-added, all around */ |
9251
|
0 |
0 |
if (ST(4) != &PL_sv_undef) sv_setnv(ST(4),yrefval); |
9252
|
0 |
0 |
if (ST(5) != &PL_sv_undef) sv_setnv(ST(5),xrefpix); |
9253
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setnv(ST(6),yrefpix); |
9254
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setnv(ST(7),xinc); |
9255
|
0 |
0 |
if (ST(8) != &PL_sv_undef) sv_setnv(ST(8),yinc); |
9256
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setnv(ST(9),rot); |
9274
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
9275
|
0 |
0 |
SvGROW(ST(4),nchars*sizeof_datatype(TBYTE)); |
|
0 |
0 |
SvGROW(ST(4),nchars*sizeof_datatype(TBYTE)); |
9276
|
0 |
0 |
RETVAL=ffgtbb(fptr->fptr,frow,fchar,nchars,(byte*)SvPV(ST(4),PL_na),&status); |
9298
|
1 |
0 |
if (ST(3)!=&PL_sv_undef) { |
9307
|
1 |
0 |
if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),naxis); |
9308
|
1 |
0 |
if (ST(3)!=&PL_sv_undef) unpack1D(ST(3),naxes,naxis,TLONG,fptr->perlyunpacking); |
9324
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) { |
9333
|
0 |
0 |
if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),naxis); |
9334
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) unpack1D(ST(3),naxes,naxis,TLONGLONG,fptr->perlyunpacking); |
9373
|
0 |
0 |
if (RETVAL) |
9548
|
0 |
0 |
if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),year); |
9549
|
0 |
0 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),month); |
9550
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),day); |
9569
|
0 |
0 |
if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),year); |
9570
|
0 |
0 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),month); |
9571
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),day); |
9572
|
0 |
0 |
if (ST(4) != &PL_sv_undef) sv_setiv(ST(4),hour); |
9573
|
0 |
0 |
if (ST(5) != &PL_sv_undef) sv_setiv(ST(5),minute); |
9574
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setnv(ST(6),second); |
9592
|
0 |
0 |
if (ST(5)!=&PL_sv_undef) { |
9601
|
0 |
0 |
if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),datatype); |
9602
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),nelem); |
9603
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) sv_setiv(ST(4),naxis); |
9604
|
0 |
0 |
if (ST(5)!=&PL_sv_undef) unpack1D(ST(5),naxes,naxis,TLONG,fptr->perlyunpacking); |
9662
|
0 |
0 |
if (decimals > 0) datestrlen += decimals; |
9717
|
0 |
0 |
value = pack1D(ST(3),(datatype == TLOGICAL) ? TINT : datatype); |
9922
|
0 |
0 |
if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),dataok); /* value-added */ |
9923
|
0 |
0 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),hduok); /* value-added */ |
10418
|
0 |
0 |
if (datatype == TBIT) |
10683
|
0 |
0 |
if (datatype == TBIT) |
10685
|
0 |
0 |
RETVAL=ffpcn( |
11550
|
7 |
1 |
value = pack1D(ST(3),(datatype == TLOGICAL) ? TINT : datatype); |
11980
|
0 |
0 |
if (dtype == TBIT) |
12225
|
0 |
0 |
if (status == 0) { |
12226
|
0 |
0 |
if (ST(1) != &PL_sv_undef) |
12246
|
0 |
0 |
if (status == 0) { |
12247
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) |
12266
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) { |
12275
|
0 |
0 |
if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),bitpix); |
12276
|
0 |
0 |
if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),naxis); |
12277
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) unpack1D(ST(3),naxes,naxis,TLONG,fptr->perlyunpacking); |
12293
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) { |
12302
|
0 |
0 |
if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),bitpix); |
12303
|
0 |
0 |
if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),naxis); |
12304
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) unpack1D(ST(3),naxes,naxis,TLONGLONG,fptr->perlyunpacking); |
12334
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
12335
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(dtype)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(dtype)); |
12336
|
0 |
0 |
RETVAL = ffgpxv(fptr->fptr, dtype, fpix, nelem, (nulval!=&PL_sv_undef ? pack1D(nulval, dtype) : NULL), (void*)SvPV(ST(5),PL_na), &anynul, &status); |
|
0 |
0 |
RETVAL = ffgpxv(fptr->fptr, dtype, fpix, nelem, (nulval!=&PL_sv_undef ? pack1D(nulval, dtype) : NULL), (void*)SvPV(ST(5),PL_na), &anynul, &status); |
12343
|
0 |
0 |
if (status == 0) { |
12347
|
0 |
0 |
for (i=0; i
|
12350
|
0 |
0 |
RETVAL=ffgpxv(fptr->fptr, dtype, fpix, nelem, (nulval!=&PL_sv_undef ? pack1D(nulval, dtype) : NULL), array, &anynul, &status); |
12351
|
0 |
0 |
if (status == 0) { |
12357
|
0 |
0 |
if (ST(6) != &PL_sv_undef) |
12382
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
12383
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(dtype)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(dtype)); |
12384
|
0 |
0 |
RETVAL = ffgpxvll(fptr->fptr, dtype, fpix, nelem, (nulval!=&PL_sv_undef ? pack1D(nulval, dtype) : NULL), (void*)SvPV(ST(5),PL_na), &anynul, &status); |
|
0 |
0 |
RETVAL = ffgpxvll(fptr->fptr, dtype, fpix, nelem, (nulval!=&PL_sv_undef ? pack1D(nulval, dtype) : NULL), (void*)SvPV(ST(5),PL_na), &anynul, &status); |
12391
|
0 |
0 |
if (status == 0) { |
12395
|
0 |
0 |
for (i=0; i
|
12398
|
0 |
0 |
RETVAL=ffgpxvll(fptr->fptr, dtype, fpix, nelem, (nulval!=&PL_sv_undef ? pack1D(nulval, dtype) : NULL), array, &anynul, &status); |
12399
|
0 |
0 |
if (status == 0) { |
12405
|
0 |
0 |
if (ST(6) != &PL_sv_undef) |
12430
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
12431
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
12432
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(dtype)); |
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(dtype)); |
12433
|
0 |
0 |
array = (void*)SvPV(ST(4),PL_na); |
12437
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
12438
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
12439
|
0 |
0 |
nullarray = (logical*)SvPV(ST(5),PL_na); |
12450
|
0 |
0 |
if (status == 0) { |
12454
|
0 |
0 |
for (i=0; i
|
12459
|
0 |
0 |
if (status == 0) { |
12461
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) |
12463
|
0 |
0 |
if (ST(5)!=&PL_sv_undef) |
12468
|
0 |
0 |
if (ST(6) != &PL_sv_undef) |
12493
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
12494
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
12495
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(dtype)); |
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(dtype)); |
12496
|
0 |
0 |
array = (void*)SvPV(ST(4),PL_na); |
12500
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
12501
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
12502
|
0 |
0 |
nullarray = (logical*)SvPV(ST(5),PL_na); |
12513
|
0 |
0 |
if (status == 0) { |
12517
|
0 |
0 |
for (i=0; i
|
12522
|
0 |
0 |
if (status == 0) { |
12524
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) |
12526
|
0 |
0 |
if (ST(5)!=&PL_sv_undef) |
12531
|
0 |
0 |
if (ST(6) != &PL_sv_undef) |
12552
|
0 |
0 |
if (dtype == TBIT) |
12574
|
0 |
0 |
if (dtype == TBIT) |
12597
|
0 |
0 |
if (dtype == TBIT) |
12599
|
0 |
0 |
RETVAL = ffppxn(fptr,dtype,fpix,nelem,packND(array,storage_dtype),(nulval!=&PL_sv_undef ? pack1D(nulval,storage_dtype) : NULL), &status); |
12620
|
0 |
0 |
if (dtype == TBIT) |
12622
|
0 |
0 |
RETVAL = ffppxnll(fptr,dtype,fpix,nelem,packND(array,storage_dtype),(nulval!=&PL_sv_undef ? pack1D(nulval,storage_dtype) : NULL), &status); |