| 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
|
1 |
2 |
if (strEQ(name, "READONLY")) |
|
978
|
0 |
2 |
if (strEQ(name, "READONLY_FILE")) |
|
984
|
2 |
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
|
6 |
14 |
if ( fptr->is_open ) |
|
1400
|
1 |
5 |
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( |
|
1784
|
0 |
2 |
if (ffinit(&(fptr->fptr),name,&status)) |
|
1802
|
0 |
3 |
if (RETVAL) |
|
1819
|
0 |
0 |
if (RETVAL) |
|
1913
|
0 |
0 |
if (fftplt(&(fptr->fptr),filename,tpltfile,&status)) |
|
1931
|
0 |
0 |
if (RETVAL) |
|
1977
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) { /* caller wants naxes set */ |
|
1986
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),naxis); |
|
1987
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),naxes,naxis,TLONG,fptr->perlyunpacking); |
|
2004
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) { /* caller wants naxes set */ |
|
2013
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),naxis); |
|
2014
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),naxes,naxis,TLONGLONG,fptr->perlyunpacking); |
|
2065
|
0 |
0 |
if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),hdutype); |
|
2237
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
2238
|
0 |
0 |
SvGROW(ST(5),nrows*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(5),nrows*sizeof_datatype(TLOGICAL)); |
|
2239
|
0 |
0 |
RETVAL=fffrow(fptr->fptr,expr,firstrow,nrows,&n_good_rows,(logical*)SvPV(ST(5),PL_na),&status); |
|
2246
|
0 |
0 |
if (ST(4) != &PL_sv_undef) sv_setiv(ST(4), n_good_rows); /* value-added */ |
|
2325
|
5 |
0 |
ttype = (ST(2) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
|
2326
|
5 |
0 |
tunit = (ST(4) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
|
2327
|
5 |
0 |
tform = (ST(5) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
|
2328
|
5 |
0 |
nulstr= (ST(8) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
|
2329
|
5 |
0 |
tdisp = (ST(9) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
|
2331
|
5 |
0 |
if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),tbcol); |
|
2332
|
5 |
0 |
if (ST(6) != &PL_sv_undef) sv_setnv(ST(6),scale); |
|
2333
|
5 |
0 |
if (ST(7) != &PL_sv_undef) sv_setnv(ST(7),zero); |
|
2360
|
10 |
0 |
ttype = (ST(2) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
|
2361
|
10 |
0 |
tunit = (ST(3) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
|
2362
|
10 |
0 |
dtype = (ST(4) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
|
2363
|
10 |
0 |
tdisp = (ST(9) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
|
2365
|
10 |
0 |
if (ST(5) != &PL_sv_undef) sv_setiv(ST(5),repeat); |
|
2366
|
10 |
0 |
if (ST(6) != &PL_sv_undef) sv_setnv(ST(6),scale); |
|
2367
|
10 |
0 |
if (ST(7) != &PL_sv_undef) sv_setnv(ST(7),zero); |
|
2368
|
10 |
0 |
if (ST(8) != &PL_sv_undef) sv_setiv(ST(8),nulval); |
|
2394
|
0 |
0 |
ttype = (ST(2) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
|
2395
|
0 |
0 |
tunit = (ST(3) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
|
2396
|
0 |
0 |
dtype = (ST(4) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
|
2397
|
0 |
0 |
tdisp = (ST(9) != &PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
|
2399
|
0 |
0 |
if (ST(5) != &PL_sv_undef) sv_setiv(ST(5),repeat); |
|
2400
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setnv(ST(6),scale); |
|
2401
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setnv(ST(7),zero); |
|
2402
|
0 |
0 |
if (ST(8) != &PL_sv_undef) sv_setiv(ST(8),nulval); |
|
2422
|
0 |
0 |
if (ST(1) != &PL_sv_undef) sv_setiv(ST(1), datasum); /* value-added */ |
|
2423
|
0 |
0 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2), hdusum); /* value-added */ |
|
2442
|
16 |
0 |
if (ST(4) != &PL_sv_undef) sv_setiv(ST(4),colnum); /* value-added */ |
|
2460
|
2 |
0 |
if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),colnum); |
|
2478
|
15 |
0 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),typecode); |
|
2479
|
15 |
0 |
if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),repeat); |
|
2480
|
15 |
0 |
if (ST(4) != &PL_sv_undef) sv_setiv(ST(4),width); |
|
2498
|
0 |
0 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),typecode); |
|
2499
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),repeat); |
|
2500
|
0 |
0 |
if (ST(4) != &PL_sv_undef) sv_setiv(ST(4),width); |
|
2518
|
0 |
0 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),typecode); |
|
2519
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),repeat); |
|
2520
|
0 |
0 |
if (ST(4) != &PL_sv_undef) sv_setiv(ST(4),width); |
|
2538
|
0 |
0 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),typecode); |
|
2539
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),repeat); |
|
2540
|
0 |
0 |
if (ST(4) != &PL_sv_undef) sv_setiv(ST(4),width); |
|
2579
|
2 |
0 |
if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),keysexist); /* value-added */ |
|
2580
|
2 |
0 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),keynum); /* value-added */ |
|
2596
|
2 |
0 |
if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),keysexist); /* value-added */ |
|
2597
|
2 |
0 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),morekeys); /* value-added */ |
|
2611
|
5 |
0 |
if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),hdunum); |
|
2639
|
0 |
0 |
if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),headstart); |
|
2640
|
0 |
0 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),datastart); |
|
2641
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),dataend); |
|
2658
|
0 |
0 |
if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),headstart); |
|
2659
|
0 |
0 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),datastart); |
|
2660
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),dataend); |
|
2677
|
0 |
0 |
if (ST(1) != &PL_sv_undef) sv_setuv(ST(1),headstart); |
|
2678
|
0 |
0 |
if (ST(2) != &PL_sv_undef) sv_setuv(ST(2),datastart); |
|
2679
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setuv(ST(3),dataend); |
|
2696
|
0 |
3 |
if (ST(2) != &PL_sv_undef) |
|
2775
|
0 |
0 |
if (RETVAL <= 0) { |
|
2797
|
0 |
0 |
if (RETVAL <= 0) { |
|
2912
|
0 |
0 |
if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),timeref); |
|
2932
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),rowlen); /* value-added */ |
|
2948
|
0 |
0 |
if (ST(2)!=&PL_sv_undef) unpack1D(ST(2),naxes,ndim,TLONG,fptr->perlyunpacking); |
|
2960
|
0 |
1 |
if (ST(0) != &PL_sv_undef) sv_setnv(ST(0),version); /* value-added */ |
|
2976
|
0 |
0 |
if (ST(2)!=&PL_sv_undef) unpackScalar(ST(2), header, TSTRING); |
|
2977
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) unpackScalar(ST(3), &nkeys, TINT); |
|
2995
|
0 |
0 |
if (ST(2)!=&PL_sv_undef) unpackScalar(ST(2), header, TSTRING); |
|
2996
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) unpackScalar(ST(3), &nkeys, TINT); |
|
3607
|
0 |
1 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),hdutype); |
|
3636
|
0 |
2 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),hdutype); |
|
3665
|
0 |
5 |
if (!filename) /* undef passed */ |
|
3668
|
1 |
4 |
if (fits_open[ix](&(fptr->fptr),filename,iomode,&status)) |
|
3684
|
0 |
13 |
if (!filename) /* undef passed */ |
|
3688
|
2 |
11 |
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) |
|
3764
|
0 |
0 |
if (!filename) /* undef passed */ |
|
3768
|
0 |
0 |
if (RETVAL) |
|
3786
|
0 |
0 |
if (!filename) /* undef passed */ |
|
3790
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),hdutype); |
|
3791
|
0 |
0 |
if (RETVAL) |
|
3810
|
0 |
0 |
if (RETVAL) |
|
3829
|
0 |
0 |
if (RETVAL) |
|
3953
|
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) { |
|
3964
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),numranges); |
|
3965
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),rangemin,numranges,TLONG,-1); |
|
3966
|
0 |
0 |
if (ST(5)!=&PL_sv_undef) unpack1D(ST(5),rangemax,numranges,TLONG,-1); |
|
3983
|
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) { |
|
3994
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),numranges); |
|
3995
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),rangemin,numranges,TLONGLONG,-1); |
|
3996
|
0 |
0 |
if (ST(5)!=&PL_sv_undef) unpack1D(ST(5),rangemax,numranges,TLONGLONG,-1); |
|
4027
|
0 |
0 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),keytype); |
|
4054
|
0 |
0 |
for (ii=0; ii
|
|
4072
|
0 |
0 |
if (ST(1) != &PL_sv_undef) sv_setpv(ST(1),outrec); |
|
4073
|
0 |
0 |
if (ST(8) != &PL_sv_undef) sv_setiv(ST(8),pat_num); |
|
4074
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),i); |
|
4075
|
0 |
0 |
if (ST(10) != &PL_sv_undef) sv_setiv(ST(10),j); |
|
4076
|
0 |
0 |
if (ST(11) != &PL_sv_undef) sv_setiv(ST(11),m); |
|
4077
|
0 |
0 |
if (ST(12) != &PL_sv_undef) sv_setiv(ST(12),n); |
|
4102
|
0 |
0 |
for (ii=0; ii
|
|
4177
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
4178
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TBYTE)); |
|
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TBYTE)); |
|
4179
|
0 |
0 |
RETVAL=ffg2db(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(byte*)SvPV(ST(6),PL_na),&anynul,&status); |
|
4187
|
0 |
0 |
if (ST(7)!=&PL_sv_undef) sv_setiv(ST(7),anynul); |
|
4209
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
4210
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TSBYTE)); |
|
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TSBYTE)); |
|
4211
|
0 |
0 |
RETVAL=ffg2dsb(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(signed char*)SvPV(ST(6),PL_na),&anynul,&status); |
|
4219
|
0 |
0 |
if (ST(7)!=&PL_sv_undef) sv_setiv(ST(7),anynul); |
|
4241
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
4242
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TUSHORT)); |
|
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TUSHORT)); |
|
4243
|
0 |
0 |
RETVAL=ffg2dui(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(unsigned short*)SvPV(ST(6),PL_na),&anynul,&status); |
|
4251
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
4273
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
4274
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TSHORT)); |
|
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TSHORT)); |
|
4275
|
0 |
0 |
RETVAL=ffg2di(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(short*)SvPV(ST(6),PL_na),&anynul,&status); |
|
4283
|
0 |
0 |
if (ST(7)!=&PL_sv_undef) sv_setiv(ST(7),anynul); |
|
4305
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
4306
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TUINT)); |
|
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TUINT)); |
|
4307
|
0 |
0 |
RETVAL=ffg2duk(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(unsigned int*)SvPV(ST(6),PL_na),&anynul,&status); |
|
4315
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
4337
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
4338
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TINT)); |
|
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TINT)); |
|
4339
|
0 |
0 |
RETVAL=ffg2dk(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(int*)SvPV(ST(6),PL_na),&anynul,&status); |
|
4347
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
4369
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
4370
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TULONG)); |
|
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TULONG)); |
|
4371
|
0 |
0 |
RETVAL=ffg2duj(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(unsigned long*)SvPV(ST(6),PL_na),&anynul,&status); |
|
4379
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
4401
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
4402
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TLONG)); |
|
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TLONG)); |
|
4403
|
0 |
0 |
RETVAL=ffg2dj(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(long*)SvPV(ST(6),PL_na),&anynul,&status); |
|
4411
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
4433
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
4434
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TLONGLONG)); |
|
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TLONGLONG)); |
|
4435
|
0 |
0 |
RETVAL=ffg2djj(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(LONGLONG*)SvPV(ST(6),PL_na),&anynul,&status); |
|
4443
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
4465
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
4466
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TFLOAT)); |
|
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TFLOAT)); |
|
4467
|
0 |
0 |
RETVAL=ffg2de(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(float*)SvPV(ST(6),PL_na),&anynul,&status); |
|
4475
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
4497
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
4498
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TDOUBLE)); |
|
|
0 |
0 |
SvGROW(ST(6),naxis2*dim1*sizeof_datatype(TDOUBLE)); |
|
4499
|
0 |
0 |
RETVAL=ffg2dd(fptr->fptr,group,nulval,dim1,naxis1,naxis2,(double*)SvPV(ST(6),PL_na),&anynul,&status); |
|
4507
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
4531
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
4532
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TBYTE)); |
|
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TBYTE)); |
|
4533
|
0 |
0 |
RETVAL=ffg3db(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(byte*)SvPV(ST(8),PL_na),&anynul,&status); |
|
4541
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
4565
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
4566
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TSBYTE)); |
|
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TSBYTE)); |
|
4567
|
0 |
0 |
RETVAL=ffg3dsb(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(signed char*)SvPV(ST(8),PL_na),&anynul,&status); |
|
4575
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
4599
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
4600
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TUSHORT)); |
|
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TUSHORT)); |
|
4601
|
0 |
0 |
RETVAL=ffg3dui(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(unsigned short*)SvPV(ST(8),PL_na),&anynul,&status); |
|
4609
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
4633
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
4634
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TSHORT)); |
|
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TSHORT)); |
|
4635
|
0 |
0 |
RETVAL=ffg3di(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(short*)SvPV(ST(8),PL_na),&anynul,&status); |
|
4643
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
4667
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
4668
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TUINT)); |
|
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TUINT)); |
|
4669
|
0 |
0 |
RETVAL=ffg3duk(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(unsigned int*)SvPV(ST(8),PL_na),&anynul,&status); |
|
4677
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
4701
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
4702
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TINT)); |
|
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TINT)); |
|
4703
|
0 |
0 |
RETVAL=ffg3dk(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(int*)SvPV(ST(8),PL_na),&anynul,&status); |
|
4711
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
4735
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
4736
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TULONG)); |
|
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TULONG)); |
|
4737
|
0 |
0 |
RETVAL=ffg3duj(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(unsigned long*)SvPV(ST(8),PL_na),&anynul,&status); |
|
4745
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
4769
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
4770
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TLONG)); |
|
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TLONG)); |
|
4771
|
0 |
0 |
RETVAL=ffg3dj(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(long*)SvPV(ST(8),PL_na),&anynul,&status); |
|
4779
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
4803
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
4804
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TLONGLONG)); |
|
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TLONGLONG)); |
|
4805
|
0 |
0 |
RETVAL=ffg3djj(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(LONGLONG*)SvPV(ST(8),PL_na),&anynul,&status); |
|
4813
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
4837
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
4838
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TFLOAT)); |
|
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TFLOAT)); |
|
4839
|
0 |
0 |
RETVAL=ffg3de(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(float*)SvPV(ST(8),PL_na),&anynul,&status); |
|
4847
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
4871
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
4872
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TDOUBLE)); |
|
|
0 |
0 |
SvGROW(ST(8),naxis3*dim2*dim1*sizeof_datatype(TDOUBLE)); |
|
4873
|
0 |
0 |
RETVAL=ffg3dd(fptr->fptr,group,nulval,dim1,dim2,naxis1,naxis2,naxis3,(double*)SvPV(ST(8),PL_na),&anynul,&status); |
|
4881
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
4919
|
1 |
0 |
tbcol = (ST(5)!=&PL_sv_undef) ? get_mortalspace(tfields,TLONG) : NULL; |
|
4920
|
1 |
0 |
extname = (ST(8)!=&PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
|
4921
|
1 |
0 |
if (ST(4)!=&PL_sv_undef) { |
|
4923
|
5 |
1 |
for (i=0; i
|
|
4926
|
1 |
0 |
if (ST(6)!=&PL_sv_undef) { |
|
4928
|
5 |
1 |
for (i=0; i
|
|
4931
|
1 |
0 |
if (ST(7)!=&PL_sv_undef) { |
|
4933
|
5 |
1 |
for (i=0; i
|
|
4938
|
1 |
0 |
if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),rowlen); |
|
4939
|
1 |
0 |
if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),nrows); |
|
4940
|
1 |
0 |
if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),tfields); |
|
4941
|
1 |
0 |
if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),ttype,tfields,TSTRING,fptr->perlyunpacking); |
|
4942
|
1 |
0 |
if (ST(5)!=&PL_sv_undef) unpack1D(ST(5),tbcol,tfields,TLONG,fptr->perlyunpacking); |
|
4943
|
1 |
0 |
if (ST(6)!=&PL_sv_undef) unpack1D(ST(6),tform,tfields,TSTRING,fptr->perlyunpacking); |
|
4944
|
1 |
0 |
if (ST(7)!=&PL_sv_undef) unpack1D(ST(7),tunit,tfields,TSTRING,fptr->perlyunpacking); |
|
4945
|
1 |
0 |
if (ST(8)!=&PL_sv_undef) sv_setpv(ST(8),extname); |
|
4970
|
0 |
0 |
tbcol = (ST(5)!=&PL_sv_undef) ? get_mortalspace(tfields,TLONGLONG) : NULL; |
|
4971
|
0 |
0 |
extname = (ST(8)!=&PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
|
4972
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) { |
|
4974
|
0 |
0 |
for (i=0; i
|
|
4977
|
0 |
0 |
if (ST(6)!=&PL_sv_undef) { |
|
4979
|
0 |
0 |
for (i=0; i
|
|
4982
|
0 |
0 |
if (ST(7)!=&PL_sv_undef) { |
|
4984
|
0 |
0 |
for (i=0; i
|
|
4989
|
0 |
0 |
if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),rowlen); |
|
4990
|
0 |
0 |
if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),nrows); |
|
4991
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),tfields); |
|
4992
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),ttype,tfields,TSTRING,fptr->perlyunpacking); |
|
4993
|
0 |
0 |
if (ST(5)!=&PL_sv_undef) unpack1D(ST(5),tbcol,tfields,TLONGLONG,fptr->perlyunpacking); |
|
4994
|
0 |
0 |
if (ST(6)!=&PL_sv_undef) unpack1D(ST(6),tform,tfields,TSTRING,fptr->perlyunpacking); |
|
4995
|
0 |
0 |
if (ST(7)!=&PL_sv_undef) unpack1D(ST(7),tunit,tfields,TSTRING,fptr->perlyunpacking); |
|
4996
|
0 |
0 |
if (ST(8)!=&PL_sv_undef) sv_setpv(ST(8),extname); |
|
5019
|
1 |
0 |
extname = (ST(7)!=&PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
|
5020
|
1 |
0 |
if (ST(4) != &PL_sv_undef) { |
|
5022
|
10 |
1 |
for (i=0; i
|
|
5025
|
1 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
5027
|
10 |
1 |
for (i=0; i
|
|
5030
|
1 |
0 |
if (ST(6) != &PL_sv_undef) { |
|
5032
|
10 |
1 |
for (i=0; i
|
|
5036
|
1 |
0 |
if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),nrows); |
|
5037
|
1 |
0 |
if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),tfields); |
|
5038
|
1 |
0 |
if (ST(3)!=&PL_sv_undef) unpack1D(ST(3),ttype,tfields,TSTRING,fptr->perlyunpacking); |
|
5039
|
1 |
0 |
if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),tform,tfields,TSTRING,fptr->perlyunpacking); |
|
5040
|
1 |
0 |
if (ST(5)!=&PL_sv_undef) unpack1D(ST(5),tunit,tfields,TSTRING,fptr->perlyunpacking); |
|
5041
|
1 |
0 |
if (ST(6)!=&PL_sv_undef) sv_setpv(ST(6),extname); |
|
5042
|
1 |
0 |
if (ST(7)!=&PL_sv_undef) sv_setiv(ST(7),pcount); |
|
5065
|
0 |
0 |
extname = (ST(7)!=&PL_sv_undef) ? get_mortalspace(FLEN_VALUE,TBYTE) : NULL; |
|
5066
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
|
5068
|
0 |
0 |
for (i=0; i
|
|
5071
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
5073
|
0 |
0 |
for (i=0; i
|
|
5076
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
|
5078
|
0 |
0 |
for (i=0; i
|
|
5082
|
0 |
0 |
if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),nrows); |
|
5083
|
0 |
0 |
if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),tfields); |
|
5084
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) unpack1D(ST(3),ttype,tfields,TSTRING,fptr->perlyunpacking); |
|
5085
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),tform,tfields,TSTRING,fptr->perlyunpacking); |
|
5086
|
0 |
0 |
if (ST(5)!=&PL_sv_undef) unpack1D(ST(5),tunit,tfields,TSTRING,fptr->perlyunpacking); |
|
5087
|
0 |
0 |
if (ST(6)!=&PL_sv_undef) sv_setpv(ST(6),extname); |
|
5088
|
0 |
0 |
if (ST(7)!=&PL_sv_undef) sv_setiv(ST(7),pcount); |
|
5131
|
0 |
0 |
if (datatype == TBIT) |
|
5133
|
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) { |
|
5134
|
0 |
0 |
SvGROW(ST(7),nelements*sizeof_datatype(storage_datatype)); |
|
|
0 |
0 |
SvGROW(ST(7),nelements*sizeof_datatype(storage_datatype)); |
|
5135
|
0 |
0 |
RETVAL=ffgcv(fptr->fptr,datatype,colnum,firstrow,firstelem,nelements,pack1D(nulval,storage_datatype),(void*)SvPV(ST(7),PL_na),&anynul,&status); |
|
5139
|
0 |
0 |
if (datatype == TSTRING) { |
|
5141
|
0 |
0 |
for (i=0;i
|
|
5147
|
0 |
0 |
if (ST(8) != &PL_sv_undef) sv_setiv(ST(8),anynul); |
|
5165
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
5166
|
0 |
0 |
SvGROW(ST(5),nbit*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(5),nbit*sizeof_datatype(TLOGICAL)); |
|
5167
|
0 |
0 |
RETVAL = ffgcx(fptr->fptr,colnum,frow,fbit,nbit,(logical*)SvPV(ST(5),PL_na),&status); |
|
5192
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
5193
|
0 |
0 |
SvGROW(ST(6),nrows*sizeof_datatype(TUSHORT)); |
|
|
0 |
0 |
SvGROW(ST(6),nrows*sizeof_datatype(TUSHORT)); |
|
5194
|
0 |
0 |
RETVAL = ffgcxui(fptr->fptr,colnum,frow,nrows,fbit,nbits,(unsigned short*)SvPV(ST(6),PL_na),&status); |
|
5219
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
5220
|
0 |
0 |
SvGROW(ST(6),nrows*sizeof_datatype(TUINT)); |
|
|
0 |
0 |
SvGROW(ST(6),nrows*sizeof_datatype(TUINT)); |
|
5221
|
0 |
0 |
RETVAL = ffgcxuk(fptr->fptr,colnum,frow,nrows,fbit,nbits,(unsigned int*)SvPV(ST(6),PL_na),&status); |
|
5252
|
83 |
7 |
for (i=0;i
|
|
5256
|
7 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
5276
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
5277
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
5278
|
0 |
0 |
RETVAL=ffgcvl(fptr->fptr,cnum,frow,felem,nelem,nulval,(logical*)SvPV(ST(6),PL_na),&anynul,&status); |
|
5285
|
1 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
5305
|
7 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
7 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
5306
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TBYTE)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TBYTE)); |
|
5307
|
0 |
0 |
RETVAL=ffgcvb(fptr->fptr,cnum,frow,felem,nelem,nulval,(byte*)SvPV(ST(6),PL_na),&anynul,&status); |
|
5314
|
7 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
5334
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
5335
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TSBYTE)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TSBYTE)); |
|
5336
|
0 |
0 |
RETVAL=ffgcvsb(fptr->fptr,cnum,frow,felem,nelem,nulval,(signed char*)SvPV(ST(6),PL_na),&anynul,&status); |
|
5343
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
5363
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
5364
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TUSHORT)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TUSHORT)); |
|
5365
|
0 |
0 |
RETVAL=ffgcvui(fptr->fptr,cnum,frow,felem,nelem,nulval,(unsigned short*)SvPV(ST(6),PL_na),&anynul,&status); |
|
5372
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
5392
|
6 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
6 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
5393
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TSHORT)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TSHORT)); |
|
5394
|
0 |
0 |
RETVAL=ffgcvi(fptr->fptr,cnum,frow,felem,nelem,nulval,(short*)SvPV(ST(6),PL_na),&anynul,&status); |
|
5401
|
6 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
5421
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
5422
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TUINT)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TUINT)); |
|
5423
|
0 |
0 |
RETVAL=ffgcvuk(fptr->fptr,cnum,frow,felem,nelem,nulval,(unsigned int*)SvPV(ST(6),PL_na),&anynul,&status); |
|
5430
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
5450
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
5451
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TINT)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TINT)); |
|
5452
|
0 |
0 |
RETVAL=ffgcvk(fptr->fptr,cnum,frow,felem,nelem,nulval,(int*)SvPV(ST(6),PL_na),&anynul,&status); |
|
5459
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
5479
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
5480
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TULONG)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TULONG)); |
|
5481
|
0 |
0 |
RETVAL=ffgcvuj(fptr->fptr,cnum,frow,felem,nelem,nulval,(unsigned long*)SvPV(ST(6),PL_na),&anynul,&status); |
|
5488
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
5508
|
5 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
5 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
5509
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLONG)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLONG)); |
|
5510
|
0 |
0 |
RETVAL=ffgcvj(fptr->fptr,cnum,frow,felem,nelem,nulval,(long*)SvPV(ST(6),PL_na),&anynul,&status); |
|
5517
|
5 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
5537
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
5538
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLONGLONG)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLONGLONG)); |
|
5539
|
0 |
0 |
RETVAL=ffgcvjj(fptr->fptr,cnum,frow,felem,nelem,nulval,(LONGLONG*)SvPV(ST(6),PL_na),&anynul,&status); |
|
5546
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
5566
|
6 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
6 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
5567
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TFLOAT)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TFLOAT)); |
|
5568
|
0 |
0 |
RETVAL=ffgcve(fptr->fptr,cnum,frow,felem,nelem,nulval,(float*)SvPV(ST(6),PL_na),&anynul,&status); |
|
5575
|
6 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
5595
|
6 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
6 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
5596
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TDOUBLE)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TDOUBLE)); |
|
5597
|
0 |
0 |
RETVAL=ffgcvd(fptr->fptr,cnum,frow,felem,nelem,nulval,(double*)SvPV(ST(6),PL_na),&anynul,&status); |
|
5604
|
6 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
5624
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
5625
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TCOMPLEX)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TCOMPLEX)); |
|
5626
|
0 |
0 |
RETVAL=ffgcvc(fptr->fptr,cnum,frow,felem,nelem,nulval,(float*)SvPV(ST(6),PL_na),&anynul,&status); |
|
5633
|
1 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
5653
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
5654
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TDBLCOMPLEX)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TDBLCOMPLEX)); |
|
5655
|
0 |
0 |
RETVAL=ffgcvm(fptr->fptr,cnum,frow,felem,nelem,nulval,(double*)SvPV(ST(6),PL_na),&anynul,&status); |
|
5662
|
1 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
5686
|
0 |
0 |
if (datatype == TBIT) |
|
5688
|
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) { |
|
5689
|
0 |
0 |
if (ST(6)!=&PL_sv_undef) { |
|
5690
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(storage_datatype)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(storage_datatype)); |
|
5691
|
0 |
0 |
array = (void*)SvPV(ST(6),PL_na); |
|
5695
|
0 |
0 |
if (ST(7) != &PL_sv_undef) { |
|
5696
|
0 |
0 |
SvGROW(ST(7),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(7),nelem*sizeof_datatype(TLOGICAL)); |
|
5697
|
0 |
0 |
nularray = (logical*)SvPV(ST(7),PL_na); |
|
5707
|
0 |
0 |
if (ST(6)!=&PL_sv_undef) |
|
5709
|
0 |
0 |
if (ST(7)!=&PL_sv_undef) |
|
5712
|
0 |
0 |
if (ST(8)!=&PL_sv_undef) |
|
5738
|
0 |
0 |
for (i=0;i
|
|
5740
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
5741
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
|
5742
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
5743
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
|
5753
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
|
5755
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TSTRING,fptr->perlyunpacking); |
|
5756
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
5776
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
5777
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
5778
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
5779
|
0 |
0 |
array = (logical*)SvPV(ST(5),PL_na); |
|
5783
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
|
5784
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
5785
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
|
5795
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TLOGICAL,fptr->perlyunpacking); |
|
5796
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
|
5798
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
5818
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
5819
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
5820
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TBYTE)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TBYTE)); |
|
5821
|
0 |
0 |
array = (byte*)SvPV(ST(5),PL_na); |
|
5825
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
|
5826
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
5827
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
|
5837
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TBYTE,fptr->perlyunpacking); |
|
5838
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
|
5840
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
5860
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
5861
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
5862
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TSBYTE)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TSBYTE)); |
|
5863
|
0 |
0 |
array = (signed char*)SvPV(ST(5),PL_na); |
|
5867
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
|
5868
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
5869
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
|
5879
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TSBYTE,fptr->perlyunpacking); |
|
5880
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
|
5882
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
5902
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
5903
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
5904
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TUSHORT)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TUSHORT)); |
|
5905
|
0 |
0 |
array = (unsigned short*)SvPV(ST(5),PL_na); |
|
5909
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
|
5910
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
5911
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
|
5921
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TUSHORT,fptr->perlyunpacking); |
|
5922
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
|
5924
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
5944
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
5945
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
5946
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TSHORT)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TSHORT)); |
|
5947
|
0 |
0 |
array = (short*)SvPV(ST(5),PL_na); |
|
5951
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
|
5952
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
5953
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
|
5963
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TSHORT,fptr->perlyunpacking); |
|
5964
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
|
5966
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
5986
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
5987
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
5988
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TINT)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TINT)); |
|
5989
|
0 |
0 |
array = (int*)SvPV(ST(5),PL_na); |
|
5993
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
|
5994
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
5995
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
|
6005
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TINT,fptr->perlyunpacking); |
|
6006
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
|
6008
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
6028
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
6029
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
6030
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TUINT)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TUINT)); |
|
6031
|
0 |
0 |
array = (unsigned int*)SvPV(ST(5),PL_na); |
|
6035
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
|
6036
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
6037
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
|
6047
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TUINT,fptr->perlyunpacking); |
|
6048
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
|
6050
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
6070
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
6071
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
6072
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLONG)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLONG)); |
|
6073
|
0 |
0 |
array = (long*)SvPV(ST(5),PL_na); |
|
6077
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
|
6078
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
6079
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
|
6089
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TLONG,fptr->perlyunpacking); |
|
6090
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
|
6092
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
6112
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
6113
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
6114
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLONGLONG)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLONGLONG)); |
|
6115
|
0 |
0 |
array = (LONGLONG*)SvPV(ST(5),PL_na); |
|
6119
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
|
6120
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
6121
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
|
6131
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TLONGLONG,fptr->perlyunpacking); |
|
6132
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
|
6134
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
6154
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
6155
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
6156
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TULONG)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TULONG)); |
|
6157
|
0 |
0 |
array = (unsigned long*)SvPV(ST(5),PL_na); |
|
6161
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
|
6162
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
6163
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
|
6173
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TULONG,fptr->perlyunpacking); |
|
6174
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
|
6176
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
6196
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
6197
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
6198
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TFLOAT)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TFLOAT)); |
|
6199
|
0 |
0 |
array = (float*)SvPV(ST(5),PL_na); |
|
6203
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
|
6204
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
6205
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
|
6215
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TFLOAT,fptr->perlyunpacking); |
|
6216
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
|
6218
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
6238
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
6239
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
6240
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TDOUBLE)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TDOUBLE)); |
|
6241
|
0 |
0 |
array = (double*)SvPV(ST(5),PL_na); |
|
6245
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
|
6246
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
6247
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
|
6257
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TDOUBLE,fptr->perlyunpacking); |
|
6258
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
|
6260
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
6280
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
6281
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
6282
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TCOMPLEX)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TCOMPLEX)); |
|
6283
|
0 |
0 |
array = (float*)SvPV(ST(5),PL_na); |
|
6287
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
|
6288
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
6289
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
|
6299
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TCOMPLEX,fptr->perlyunpacking); |
|
6300
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
|
6302
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
6322
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
6323
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
6324
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TDBLCOMPLEX)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TDBLCOMPLEX)); |
|
6325
|
0 |
0 |
array = (double*)SvPV(ST(5),PL_na); |
|
6329
|
0 |
0 |
if (ST(6) != &PL_sv_undef) { |
|
6330
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(6),nelem*sizeof_datatype(TLOGICAL)); |
|
6331
|
0 |
0 |
nularray = (logical*)SvPV(ST(6),PL_na); |
|
6341
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),array,nelem,TDBLCOMPLEX,fptr->perlyunpacking); |
|
6342
|
0 |
0 |
if (ST(6) != &PL_sv_undef) unpack1D(ST(6),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
|
6344
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setiv(ST(7),anynul); |
|
6362
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),repeat); |
|
6363
|
0 |
0 |
if (ST(4) != &PL_sv_undef) sv_setiv(ST(4),offset); |
|
6381
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),repeat); |
|
6382
|
0 |
0 |
if (ST(4) != &PL_sv_undef) sv_setiv(ST(4),offset); |
|
6400
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
6401
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
|
6402
|
0 |
0 |
SvGROW(ST(4),nrows*sizeof_datatype(TLONG)); |
|
|
0 |
0 |
SvGROW(ST(4),nrows*sizeof_datatype(TLONG)); |
|
6403
|
0 |
0 |
repeat = (long*)SvPV(ST(4),PL_na); |
|
6408
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
6409
|
0 |
0 |
SvGROW(ST(5),nrows*sizeof_datatype(TLONG)); |
|
|
0 |
0 |
SvGROW(ST(5),nrows*sizeof_datatype(TLONG)); |
|
6410
|
0 |
0 |
offset = (long*)SvPV(ST(5),PL_na); |
|
6420
|
0 |
0 |
if (ST(4) != &PL_sv_undef) unpack1D(ST(4),repeat,nrows,TLONG,fptr->perlyunpacking); |
|
6421
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),offset,nrows,TLONG,fptr->perlyunpacking); |
|
6440
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
6441
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
|
6442
|
0 |
0 |
SvGROW(ST(4),nrows*sizeof_datatype(TLONGLONG)); |
|
|
0 |
0 |
SvGROW(ST(4),nrows*sizeof_datatype(TLONGLONG)); |
|
6443
|
0 |
0 |
repeat = (LONGLONG*)SvPV(ST(4),PL_na); |
|
6448
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
6449
|
0 |
0 |
SvGROW(ST(5),nrows*sizeof_datatype(TLONGLONG)); |
|
|
0 |
0 |
SvGROW(ST(5),nrows*sizeof_datatype(TLONGLONG)); |
|
6450
|
0 |
0 |
offset = (LONGLONG*)SvPV(ST(5),PL_na); |
|
6460
|
0 |
0 |
if (ST(4) != &PL_sv_undef) unpack1D(ST(4),repeat,nrows,TLONGLONG,fptr->perlyunpacking); |
|
6461
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),offset,nrows,TLONGLONG,fptr->perlyunpacking); |
|
6491
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
6492
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TBYTE)); |
|
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TBYTE)); |
|
6493
|
0 |
0 |
RETVAL=ffggpb(fptr->fptr,group,felem,nelem,(byte*)SvPV(ST(4),PL_na),&status); |
|
6516
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
6517
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TSBYTE)); |
|
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TSBYTE)); |
|
6518
|
0 |
0 |
RETVAL=ffggpsb(fptr->fptr,group,felem,nelem,(signed char*)SvPV(ST(4),PL_na),&status); |
|
6541
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
6542
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TSHORT)); |
|
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TSHORT)); |
|
6543
|
0 |
0 |
RETVAL=ffggpi(fptr->fptr,group,felem,nelem,(short*)SvPV(ST(4),PL_na),&status); |
|
6566
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
6567
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TUSHORT)); |
|
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TUSHORT)); |
|
6568
|
0 |
0 |
RETVAL=ffggpui(fptr->fptr,group,felem,nelem,(unsigned short*)SvPV(ST(4),PL_na),&status); |
|
6591
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
6592
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TINT)); |
|
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TINT)); |
|
6593
|
0 |
0 |
RETVAL=ffggpk(fptr->fptr,group,felem,nelem,(int*)SvPV(ST(4),PL_na),&status); |
|
6616
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
6617
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TUINT)); |
|
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TUINT)); |
|
6618
|
0 |
0 |
RETVAL=ffggpuk(fptr->fptr,group,felem,nelem,(unsigned int*)SvPV(ST(4),PL_na),&status); |
|
6641
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
6642
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TLONG)); |
|
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TLONG)); |
|
6643
|
0 |
0 |
RETVAL=ffggpj(fptr->fptr,group,felem,nelem,(long*)SvPV(ST(4),PL_na),&status); |
|
6666
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
6667
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TLONGLONG)); |
|
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TLONGLONG)); |
|
6668
|
0 |
0 |
RETVAL=ffggpjj(fptr->fptr,group,felem,nelem,(LONGLONG*)SvPV(ST(4),PL_na),&status); |
|
6691
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
6692
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TULONG)); |
|
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TULONG)); |
|
6693
|
0 |
0 |
RETVAL=ffggpuj(fptr->fptr,group,felem,nelem,(unsigned long*)SvPV(ST(4),PL_na),&status); |
|
6716
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
6717
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TFLOAT)); |
|
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TFLOAT)); |
|
6718
|
0 |
0 |
RETVAL=ffggpe(fptr->fptr,group,felem,nelem,(float*)SvPV(ST(4),PL_na),&status); |
|
6741
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
6742
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TDOUBLE)); |
|
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TDOUBLE)); |
|
6743
|
0 |
0 |
RETVAL=ffggpd(fptr->fptr,group,felem,nelem,(double*)SvPV(ST(4),PL_na),&status); |
|
6768
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
6769
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(datatype)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(datatype)); |
|
6770
|
0 |
0 |
RETVAL=ffgpv(fptr->fptr,datatype,felem,nelem,pack1D(nulval,datatype),(void*)SvPV(ST(5),PL_na),&anynul,&status); |
|
6777
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
|
6800
|
0 |
0 |
if (ST(1) != &PL_sv_undef) sv_setnv(ST(1),xrefval); |
|
6801
|
0 |
0 |
if (ST(2) != &PL_sv_undef) sv_setnv(ST(2),yrefval); |
|
6802
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setnv(ST(3),xrefpix); |
|
6803
|
0 |
0 |
if (ST(4) != &PL_sv_undef) sv_setnv(ST(4),yrefpix); |
|
6804
|
0 |
0 |
if (ST(5) != &PL_sv_undef) sv_setnv(ST(5),xinc); |
|
6805
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setnv(ST(6),yinc); |
|
6806
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setnv(ST(7),rot); |
|
6831
|
0 |
0 |
if (ST(2) != &PL_sv_undef) sv_setnv(ST(2),xrefval); |
|
6832
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setnv(ST(3),yrefval); |
|
6833
|
0 |
0 |
if (ST(4) != &PL_sv_undef) sv_setnv(ST(4),xrefpix); |
|
6834
|
0 |
0 |
if (ST(5) != &PL_sv_undef) sv_setnv(ST(5),yrefpix); |
|
6835
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setnv(ST(6),xinc); |
|
6836
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setnv(ST(7),yinc); |
|
6837
|
0 |
0 |
if (ST(8) != &PL_sv_undef) sv_setnv(ST(8),rot); |
|
6857
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
6858
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TBYTE)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TBYTE)); |
|
6859
|
0 |
0 |
RETVAL=ffgpvb(fptr->fptr,group,felem,nelem,nulval,(byte*)SvPV(ST(5),PL_na),&anynul,&status); |
|
6866
|
1 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
|
6885
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
6886
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TSBYTE)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TSBYTE)); |
|
6887
|
0 |
0 |
RETVAL=ffgpvsb(fptr->fptr,group,felem,nelem,nulval,(signed char*)SvPV(ST(5),PL_na),&anynul,&status); |
|
6894
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
|
6913
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
6914
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TSHORT)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TSHORT)); |
|
6915
|
0 |
0 |
RETVAL=ffgpvi(fptr->fptr,group,felem,nelem,nulval,(short*)SvPV(ST(5),PL_na),&anynul,&status); |
|
6922
|
1 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
|
6941
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
6942
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TUSHORT)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TUSHORT)); |
|
6943
|
0 |
0 |
RETVAL=ffgpvui(fptr->fptr,group,felem,nelem,nulval,(unsigned short*)SvPV(ST(5),PL_na),&anynul,&status); |
|
6950
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
|
6969
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
6970
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TINT)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TINT)); |
|
6971
|
0 |
0 |
RETVAL=ffgpvk(fptr->fptr,group,felem,nelem,nulval,(int*)SvPV(ST(5),PL_na),&anynul,&status); |
|
6978
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
|
6997
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
6998
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TUINT)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TUINT)); |
|
6999
|
0 |
0 |
RETVAL=ffgpvuk(fptr->fptr,group,felem,nelem,nulval,(unsigned int*)SvPV(ST(5),PL_na),&anynul,&status); |
|
7006
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
|
7025
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
7026
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLONG)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLONG)); |
|
7027
|
0 |
0 |
RETVAL=ffgpvj(fptr->fptr,group,felem,nelem,nulval,(long*)SvPV(ST(5),PL_na),&anynul,&status); |
|
7034
|
1 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
|
7053
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
7054
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLONGLONG)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLONGLONG)); |
|
7055
|
0 |
0 |
RETVAL=ffgpvjj(fptr->fptr,group,felem,nelem,nulval,(LONGLONG*)SvPV(ST(5),PL_na),&anynul,&status); |
|
7062
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
|
7081
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
7082
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TULONG)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TULONG)); |
|
7083
|
0 |
0 |
RETVAL=ffgpvuj(fptr->fptr,group,felem,nelem,nulval,(unsigned long*)SvPV(ST(5),PL_na),&anynul,&status); |
|
7090
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
|
7109
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
7110
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TFLOAT)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TFLOAT)); |
|
7111
|
0 |
0 |
RETVAL=ffgpve(fptr->fptr,group,felem,nelem,nulval,(float*)SvPV(ST(5),PL_na),&anynul,&status); |
|
7118
|
1 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
|
7137
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
7138
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TDOUBLE)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TDOUBLE)); |
|
7139
|
0 |
0 |
RETVAL=ffgpvd(fptr->fptr,group,felem,nelem,nulval,(double*)SvPV(ST(5),PL_na),&anynul,&status); |
|
7146
|
1 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
|
7167
|
1 |
0 |
if (ST(4)!=&PL_sv_undef) { /* caller wants naxes to be set */ |
|
7176
|
1 |
0 |
if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),simple); |
|
7177
|
1 |
0 |
if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),bitpix); |
|
7178
|
1 |
0 |
if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),naxis); |
|
7179
|
1 |
0 |
if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),naxes,naxis,TLONG, |
|
7181
|
1 |
0 |
if (ST(5)!=&PL_sv_undef) sv_setiv(ST(5),pcount); |
|
7182
|
1 |
0 |
if (ST(6)!=&PL_sv_undef) sv_setiv(ST(6),gcount); |
|
7183
|
1 |
0 |
if (ST(7)!=&PL_sv_undef) sv_setiv(ST(7),extend); |
|
7204
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) { /* caller wants naxes to be set */ |
|
7213
|
0 |
0 |
if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),simple); |
|
7214
|
0 |
0 |
if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),bitpix); |
|
7215
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),naxis); |
|
7216
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) unpack1D(ST(4),naxes,naxis,TLONGLONG, |
|
7218
|
0 |
0 |
if (ST(5)!=&PL_sv_undef) sv_setiv(ST(5),pcount); |
|
7219
|
0 |
0 |
if (ST(6)!=&PL_sv_undef) sv_setiv(ST(6),gcount); |
|
7220
|
0 |
0 |
if (ST(7)!=&PL_sv_undef) sv_setiv(ST(7),extend); |
|
7239
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
7240
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) { |
|
7241
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(datatype)); |
|
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(datatype)); |
|
7242
|
0 |
0 |
array = (void*)SvPV(ST(4),PL_na); |
|
7246
|
0 |
0 |
if (ST(5)!=&PL_sv_undef) { |
|
7247
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
7248
|
0 |
0 |
nularray = (logical*)SvPV(ST(5),PL_na); |
|
7259
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) |
|
7261
|
0 |
0 |
if (ST(5)!=&PL_sv_undef) |
|
7264
|
0 |
0 |
if (ST(6)!=&PL_sv_undef) sv_setiv(ST(6),anynul); |
|
7283
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
7284
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
|
7285
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TBYTE)); |
|
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TBYTE)); |
|
7286
|
0 |
0 |
array = (byte*)SvPV(ST(4),PL_na); |
|
7290
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
7291
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
7292
|
0 |
0 |
nularray = (logical*)SvPV(ST(5),PL_na); |
|
7302
|
1 |
0 |
if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TBYTE,fptr->perlyunpacking); |
|
7303
|
1 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
|
7305
|
1 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
|
7324
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
7325
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
|
7326
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TSBYTE)); |
|
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TSBYTE)); |
|
7327
|
0 |
0 |
array = (signed char*)SvPV(ST(4),PL_na); |
|
7331
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
7332
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
7333
|
0 |
0 |
nularray = (logical*)SvPV(ST(5),PL_na); |
|
7343
|
0 |
0 |
if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TSBYTE,fptr->perlyunpacking); |
|
7344
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
|
7346
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
|
7365
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
7366
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
|
7367
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TSHORT)); |
|
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TSHORT)); |
|
7368
|
0 |
0 |
array = (short*)SvPV(ST(4),PL_na); |
|
7372
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
7373
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
7374
|
0 |
0 |
nularray = (logical*)SvPV(ST(5),PL_na); |
|
7384
|
1 |
0 |
if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TSHORT,fptr->perlyunpacking); |
|
7385
|
1 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
|
7387
|
1 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
|
7406
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
7407
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
|
7408
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TUSHORT)); |
|
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TUSHORT)); |
|
7409
|
0 |
0 |
array = (unsigned short*)SvPV(ST(4),PL_na); |
|
7413
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
7414
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
7415
|
0 |
0 |
nularray = (logical*)SvPV(ST(5),PL_na); |
|
7425
|
0 |
0 |
if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TUSHORT,fptr->perlyunpacking); |
|
7426
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
|
7428
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
|
7447
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
7448
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
|
7449
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TINT)); |
|
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TINT)); |
|
7450
|
0 |
0 |
array = (int*)SvPV(ST(4),PL_na); |
|
7454
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
7455
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
7456
|
0 |
0 |
nularray = (logical*)SvPV(ST(5),PL_na); |
|
7466
|
0 |
0 |
if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TINT,fptr->perlyunpacking); |
|
7467
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
|
7469
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
|
7488
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
7489
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
|
7490
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TUINT)); |
|
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TUINT)); |
|
7491
|
0 |
0 |
array = (unsigned int*)SvPV(ST(4),PL_na); |
|
7495
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
7496
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
7497
|
0 |
0 |
nularray = (logical*)SvPV(ST(5),PL_na); |
|
7507
|
0 |
0 |
if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TUINT,fptr->perlyunpacking); |
|
7508
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
|
7510
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
|
7529
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
7530
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
|
7531
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TLONG)); |
|
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TLONG)); |
|
7532
|
0 |
0 |
array = (long*)SvPV(ST(4),PL_na); |
|
7536
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
7537
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
7538
|
0 |
0 |
nularray = (logical*)SvPV(ST(5),PL_na); |
|
7548
|
1 |
0 |
if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TLONG,fptr->perlyunpacking); |
|
7549
|
1 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
|
7551
|
1 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
|
7570
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
7571
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
|
7572
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TLONGLONG)); |
|
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TLONGLONG)); |
|
7573
|
0 |
0 |
array = (LONGLONG*)SvPV(ST(4),PL_na); |
|
7577
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
7578
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
7579
|
0 |
0 |
nularray = (logical*)SvPV(ST(5),PL_na); |
|
7589
|
0 |
0 |
if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TLONGLONG,fptr->perlyunpacking); |
|
7590
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
|
7592
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
|
7611
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
7612
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
|
7613
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TULONG)); |
|
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TULONG)); |
|
7614
|
0 |
0 |
array = (unsigned long*)SvPV(ST(4),PL_na); |
|
7618
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
7619
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
7620
|
0 |
0 |
nularray = (logical*)SvPV(ST(5),PL_na); |
|
7630
|
0 |
0 |
if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TBYTE,fptr->perlyunpacking); |
|
7631
|
0 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
|
7633
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
|
7652
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
7653
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
|
7654
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TFLOAT)); |
|
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TFLOAT)); |
|
7655
|
0 |
0 |
array = (float*)SvPV(ST(4),PL_na); |
|
7659
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
7660
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
7661
|
0 |
0 |
nularray = (logical*)SvPV(ST(5),PL_na); |
|
7671
|
1 |
0 |
if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TFLOAT,fptr->perlyunpacking); |
|
7672
|
1 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
|
7674
|
1 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
|
7693
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
7694
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
|
7695
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TDOUBLE)); |
|
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(TDOUBLE)); |
|
7696
|
0 |
0 |
array = (double*)SvPV(ST(4),PL_na); |
|
7700
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
7701
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
7702
|
0 |
0 |
nularray = (logical*)SvPV(ST(5),PL_na); |
|
7712
|
1 |
0 |
if (ST(4) != &PL_sv_undef) unpack1D(ST(4),array,nelem,TDOUBLE,fptr->perlyunpacking); |
|
7713
|
1 |
0 |
if (ST(5) != &PL_sv_undef) unpack1D(ST(5),nularray,nelem,TLOGICAL,fptr->perlyunpacking); |
|
7715
|
1 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),anynul); |
|
7760
|
0 |
0 |
value = (ST(4) != &PL_sv_undef) ? get_mortalspace(maxchar+1,TBYTE) : NULL; |
|
7761
|
0 |
0 |
comm = (ST(6) != &PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL; |
|
7763
|
0 |
0 |
if (ST(5) != &PL_sv_undef) sv_setiv(ST(5),valuelen); |
|
7793
|
8 |
0 |
comment=(ST(4)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL; |
|
7803
|
1 |
7 |
if (datatype == TLOGICAL) |
|
7823
|
1 |
0 |
comment=(ST(4)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL; |
|
7825
|
1 |
0 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),intval); |
|
7826
|
1 |
0 |
if (ST(3) != &PL_sv_undef) sv_setnv(ST(3),frac); |
|
7875
|
1 |
0 |
comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL; |
|
7900
|
0 |
0 |
value = (ST(5) != &PL_sv_undef) ? get_mortalspace(maxchar+1,TBYTE) : NULL; |
|
7901
|
0 |
0 |
comm = (ST(7) != &PL_sv_undef) ? get_mortalspace(maxcomchar+1,TBYTE) : NULL; |
|
7903
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setiv(ST(6),valuelen); |
|
7904
|
0 |
0 |
if (ST(8) != &PL_sv_undef) sv_setiv(ST(8),comlen); |
|
7932
|
2 |
0 |
comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL; |
|
7951
|
1 |
0 |
comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL; |
|
7970
|
1 |
0 |
comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL; |
|
7989
|
0 |
0 |
comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL; |
|
8008
|
1 |
0 |
comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL; |
|
8027
|
4 |
0 |
comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL; |
|
8047
|
2 |
0 |
comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL; |
|
8067
|
2 |
0 |
comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL; |
|
8089
|
1 |
0 |
comment=(ST(4)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL; |
|
8114
|
7 |
2 |
for (i=0; i
|
|
8240
|
1 |
8 |
comment=(ST(3)!=&PL_sv_undef) ? get_mortalspace(FLEN_COMMENT,TBYTE) : NULL; |
|
8284
|
0 |
0 |
if (dtype == TBIT) |
|
8294
|
0 |
0 |
for (i=0; i
|
|
8295
|
0 |
0 |
ndata *= (trc[i]-blc[i]+1)/inc[i] + |
|
8298
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
8299
|
0 |
0 |
SvGROW(ST(6),ndata*sizeof_datatype(storage_dtype)); |
|
|
0 |
0 |
SvGROW(ST(6),ndata*sizeof_datatype(storage_dtype)); |
|
8300
|
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); |
|
8304
|
0 |
0 |
RETVAL=ffgsv(fptr->fptr,dtype,blc,trc,inc,(nulval != &PL_sv_undef ? pack1D(nulval,storage_dtype) : NULL),array,&anynul,&status); |
|
8307
|
0 |
0 |
if (ST(7) != &PL_sv_undef) |
|
8334
|
0 |
0 |
for (i=0; i
|
|
8335
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
|
8337
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
8338
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TBYTE)); |
|
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TBYTE)); |
|
8339
|
0 |
0 |
RETVAL=ffgsvb(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(byte*)SvPV(ST(8),PL_na),&anynul,&status); |
|
8346
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
8372
|
0 |
0 |
for (i=0; i
|
|
8373
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
|
8375
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
8376
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TSBYTE)); |
|
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TSBYTE)); |
|
8377
|
0 |
0 |
RETVAL=ffgsvsb(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(signed char*)SvPV(ST(8),PL_na),&anynul,&status); |
|
8384
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
8410
|
0 |
0 |
for (i=0; i
|
|
8411
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
|
8413
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
8414
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TSHORT)); |
|
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TSHORT)); |
|
8415
|
0 |
0 |
RETVAL=ffgsvi(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(short*)SvPV(ST(8),PL_na),&anynul,&status); |
|
8422
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
8448
|
0 |
0 |
for (i=0; i
|
|
8449
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
|
8451
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
8452
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TUSHORT)); |
|
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TUSHORT)); |
|
8453
|
0 |
0 |
RETVAL=ffgsvui(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(unsigned short*)SvPV(ST(8),PL_na),&anynul,&status); |
|
8460
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
8486
|
0 |
0 |
for (i=0; i
|
|
8487
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
|
8489
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
8490
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TINT)); |
|
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TINT)); |
|
8491
|
0 |
0 |
RETVAL=ffgsvk(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(int*)SvPV(ST(8),PL_na),&anynul,&status); |
|
8498
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
8524
|
0 |
0 |
for (i=0; i
|
|
8525
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
|
8527
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
8528
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TUINT)); |
|
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TUINT)); |
|
8529
|
0 |
0 |
RETVAL=ffgsvuk(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(unsigned int*)SvPV(ST(8),PL_na),&anynul,&status); |
|
8536
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
8562
|
0 |
0 |
for (i=0; i
|
|
8563
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
|
8565
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
8566
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLONG)); |
|
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLONG)); |
|
8567
|
0 |
0 |
RETVAL=ffgsvj(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(long*)SvPV(ST(8),PL_na),&anynul,&status); |
|
8574
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
8600
|
0 |
0 |
for (i=0; i
|
|
8601
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
|
8603
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
8604
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLONGLONG)); |
|
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLONGLONG)); |
|
8605
|
0 |
0 |
RETVAL=ffgsvjj(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(LONGLONG*)SvPV(ST(8),PL_na),&anynul,&status); |
|
8612
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
8638
|
0 |
0 |
for (i=0; i
|
|
8639
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
|
8641
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
8642
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TULONG)); |
|
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TULONG)); |
|
8643
|
0 |
0 |
RETVAL=ffgsvuj(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(unsigned long*)SvPV(ST(8),PL_na),&anynul,&status); |
|
8650
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
8676
|
0 |
0 |
for (i=0; i
|
|
8677
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
|
8679
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
8680
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TFLOAT)); |
|
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TFLOAT)); |
|
8681
|
0 |
0 |
RETVAL=ffgsve(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(float*)SvPV(ST(8),PL_na),&anynul,&status); |
|
8688
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
8714
|
0 |
0 |
for (i=0; i
|
|
8715
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
|
8717
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
8718
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TDOUBLE)); |
|
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TDOUBLE)); |
|
8719
|
0 |
0 |
RETVAL=ffgsvd(fptr->fptr,group,naxis,naxes,fpixels,lpixels,inc,nulval,(double*)SvPV(ST(8),PL_na),&anynul,&status); |
|
8726
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
8752
|
0 |
0 |
for (i=0; i
|
|
8753
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
|
8755
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
8756
|
0 |
0 |
if (ST(7) != &PL_sv_undef) { |
|
8757
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TBYTE)); |
|
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TBYTE)); |
|
8758
|
0 |
0 |
array = (byte*)SvPV(ST(7),PL_na); |
|
8762
|
0 |
0 |
if (ST(8) != &PL_sv_undef) { |
|
8763
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
8764
|
0 |
0 |
nularr = (logical*)SvPV(ST(8),PL_na); |
|
8774
|
0 |
0 |
if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TBYTE,fptr->perlyunpacking); |
|
8775
|
0 |
0 |
if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking); |
|
8777
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
8803
|
0 |
0 |
for (i=0; i
|
|
8804
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
|
8806
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
8807
|
0 |
0 |
if (ST(7) != &PL_sv_undef) { |
|
8808
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TSBYTE)); |
|
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TSBYTE)); |
|
8809
|
0 |
0 |
array = (signed char*)SvPV(ST(7),PL_na); |
|
8813
|
0 |
0 |
if (ST(8) != &PL_sv_undef) { |
|
8814
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
8815
|
0 |
0 |
nularr = (logical*)SvPV(ST(8),PL_na); |
|
8825
|
0 |
0 |
if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TSBYTE,fptr->perlyunpacking); |
|
8826
|
0 |
0 |
if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking); |
|
8828
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
8854
|
0 |
0 |
for (i=0; i
|
|
8855
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
|
8857
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
8858
|
0 |
0 |
if (ST(7) != &PL_sv_undef) { |
|
8859
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TSHORT)); |
|
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TSHORT)); |
|
8860
|
0 |
0 |
array = (short*)SvPV(ST(7),PL_na); |
|
8864
|
0 |
0 |
if (ST(8) != &PL_sv_undef) { |
|
8865
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
8866
|
0 |
0 |
nularr = (logical*)SvPV(ST(8),PL_na); |
|
8876
|
0 |
0 |
if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TSHORT,fptr->perlyunpacking); |
|
8877
|
0 |
0 |
if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking); |
|
8879
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
8905
|
0 |
0 |
for (i=0; i
|
|
8906
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
|
8908
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
8909
|
0 |
0 |
if (ST(7) != &PL_sv_undef) { |
|
8910
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TUSHORT)); |
|
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TUSHORT)); |
|
8911
|
0 |
0 |
array = (unsigned short*)SvPV(ST(7),PL_na); |
|
8915
|
0 |
0 |
if (ST(8) != &PL_sv_undef) { |
|
8916
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
8917
|
0 |
0 |
nularr = (logical*)SvPV(ST(8),PL_na); |
|
8927
|
0 |
0 |
if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TUSHORT,fptr->perlyunpacking); |
|
8928
|
0 |
0 |
if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking); |
|
8930
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
8956
|
0 |
0 |
for (i=0; i
|
|
8957
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
|
8959
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
8960
|
0 |
0 |
if (ST(7) != &PL_sv_undef) { |
|
8961
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TINT)); |
|
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TINT)); |
|
8962
|
0 |
0 |
array = (int*)SvPV(ST(7),PL_na); |
|
8966
|
0 |
0 |
if (ST(8) != &PL_sv_undef) { |
|
8967
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
8968
|
0 |
0 |
nularr = (logical*)SvPV(ST(8),PL_na); |
|
8978
|
0 |
0 |
if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TINT,fptr->perlyunpacking); |
|
8979
|
0 |
0 |
if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking); |
|
8981
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
9007
|
0 |
0 |
for (i=0; i
|
|
9008
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
|
9010
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
9011
|
0 |
0 |
if (ST(7) != &PL_sv_undef) { |
|
9012
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TUINT)); |
|
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TUINT)); |
|
9013
|
0 |
0 |
array = (unsigned int*)SvPV(ST(7),PL_na); |
|
9017
|
0 |
0 |
if (ST(8) != &PL_sv_undef) { |
|
9018
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
9019
|
0 |
0 |
nularr = (logical*)SvPV(ST(8),PL_na); |
|
9029
|
0 |
0 |
if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TUINT,fptr->perlyunpacking); |
|
9030
|
0 |
0 |
if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking); |
|
9032
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
9058
|
0 |
0 |
for (i=0; i
|
|
9059
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
|
9061
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
9062
|
0 |
0 |
if (ST(7) != &PL_sv_undef) { |
|
9063
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TLONG)); |
|
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TLONG)); |
|
9064
|
0 |
0 |
array = (long*)SvPV(ST(7),PL_na); |
|
9068
|
0 |
0 |
if (ST(8) != &PL_sv_undef) { |
|
9069
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
9070
|
0 |
0 |
nularr = (logical*)SvPV(ST(8),PL_na); |
|
9080
|
0 |
0 |
if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TLONG,fptr->perlyunpacking); |
|
9081
|
0 |
0 |
if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking); |
|
9083
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
9109
|
0 |
0 |
for (i=0; i
|
|
9110
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
|
9112
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
9113
|
0 |
0 |
if (ST(7) != &PL_sv_undef) { |
|
9114
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TLONGLONG)); |
|
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TLONGLONG)); |
|
9115
|
0 |
0 |
array = (LONGLONG*)SvPV(ST(7),PL_na); |
|
9119
|
0 |
0 |
if (ST(8) != &PL_sv_undef) { |
|
9120
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
9121
|
0 |
0 |
nularr = (logical*)SvPV(ST(8),PL_na); |
|
9131
|
0 |
0 |
if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TLONGLONG,fptr->perlyunpacking); |
|
9132
|
0 |
0 |
if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking); |
|
9134
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
9160
|
0 |
0 |
for (i=0; i
|
|
9161
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
|
9163
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
9164
|
0 |
0 |
if (ST(7) != &PL_sv_undef) { |
|
9165
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TULONG)); |
|
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TULONG)); |
|
9166
|
0 |
0 |
array = (unsigned long*)SvPV(ST(7),PL_na); |
|
9170
|
0 |
0 |
if (ST(8) != &PL_sv_undef) { |
|
9171
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
9172
|
0 |
0 |
nularr = (logical*)SvPV(ST(8),PL_na); |
|
9182
|
0 |
0 |
if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TULONG,fptr->perlyunpacking); |
|
9183
|
0 |
0 |
if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking); |
|
9185
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
9211
|
0 |
0 |
for (i=0; i
|
|
9212
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
|
9214
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
9215
|
0 |
0 |
if (ST(7) != &PL_sv_undef) { |
|
9216
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TFLOAT)); |
|
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TFLOAT)); |
|
9217
|
0 |
0 |
array = (float*)SvPV(ST(7),PL_na); |
|
9221
|
0 |
0 |
if (ST(8) != &PL_sv_undef) { |
|
9222
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
9223
|
0 |
0 |
nularr = (logical*)SvPV(ST(8),PL_na); |
|
9233
|
0 |
0 |
if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TFLOAT,fptr->perlyunpacking); |
|
9234
|
0 |
0 |
if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking); |
|
9236
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
9262
|
0 |
0 |
for (i=0; i
|
|
9263
|
0 |
0 |
ndata *= (lpixels[i]-fpixels[i]+1)/inc[i] + |
|
9265
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
9266
|
0 |
0 |
if (ST(7) != &PL_sv_undef) { |
|
9267
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TDOUBLE)); |
|
|
0 |
0 |
SvGROW(ST(7),ndata*sizeof_datatype(TDOUBLE)); |
|
9268
|
0 |
0 |
array = (double*)SvPV(ST(7),PL_na); |
|
9272
|
0 |
0 |
if (ST(8) != &PL_sv_undef) { |
|
9273
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(8),ndata*sizeof_datatype(TLOGICAL)); |
|
9274
|
0 |
0 |
nularr = (logical*)SvPV(ST(8),PL_na); |
|
9284
|
0 |
0 |
if (ST(7) != &PL_sv_undef) unpack1D(ST(7),array,ndata,TDOUBLE,fptr->perlyunpacking); |
|
9285
|
0 |
0 |
if (ST(8) != &PL_sv_undef) unpack1D(ST(8),nularr,ndata,TLOGICAL,fptr->perlyunpacking); |
|
9287
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setiv(ST(9),anynul); |
|
9312
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setnv(ST(3),xrefval); /* value-added, all around */ |
|
9313
|
0 |
0 |
if (ST(4) != &PL_sv_undef) sv_setnv(ST(4),yrefval); |
|
9314
|
0 |
0 |
if (ST(5) != &PL_sv_undef) sv_setnv(ST(5),xrefpix); |
|
9315
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setnv(ST(6),yrefpix); |
|
9316
|
0 |
0 |
if (ST(7) != &PL_sv_undef) sv_setnv(ST(7),xinc); |
|
9317
|
0 |
0 |
if (ST(8) != &PL_sv_undef) sv_setnv(ST(8),yinc); |
|
9318
|
0 |
0 |
if (ST(9) != &PL_sv_undef) sv_setnv(ST(9),rot); |
|
9336
|
1 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
1 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
9337
|
0 |
0 |
SvGROW(ST(4),nchars*sizeof_datatype(TBYTE)); |
|
|
0 |
0 |
SvGROW(ST(4),nchars*sizeof_datatype(TBYTE)); |
|
9338
|
0 |
0 |
RETVAL=ffgtbb(fptr->fptr,frow,fchar,nchars,(byte*)SvPV(ST(4),PL_na),&status); |
|
9360
|
1 |
0 |
if (ST(3)!=&PL_sv_undef) { |
|
9369
|
1 |
0 |
if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),naxis); |
|
9370
|
1 |
0 |
if (ST(3)!=&PL_sv_undef) unpack1D(ST(3),naxes,naxis,TLONG,fptr->perlyunpacking); |
|
9386
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) { |
|
9395
|
0 |
0 |
if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),naxis); |
|
9396
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) unpack1D(ST(3),naxes,naxis,TLONGLONG,fptr->perlyunpacking); |
|
9435
|
0 |
0 |
if (RETVAL) |
|
9610
|
0 |
0 |
if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),year); |
|
9611
|
0 |
0 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),month); |
|
9612
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),day); |
|
9631
|
0 |
0 |
if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),year); |
|
9632
|
0 |
0 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),month); |
|
9633
|
0 |
0 |
if (ST(3) != &PL_sv_undef) sv_setiv(ST(3),day); |
|
9634
|
0 |
0 |
if (ST(4) != &PL_sv_undef) sv_setiv(ST(4),hour); |
|
9635
|
0 |
0 |
if (ST(5) != &PL_sv_undef) sv_setiv(ST(5),minute); |
|
9636
|
0 |
0 |
if (ST(6) != &PL_sv_undef) sv_setnv(ST(6),second); |
|
9654
|
0 |
0 |
if (ST(5)!=&PL_sv_undef) { |
|
9663
|
0 |
0 |
if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),datatype); |
|
9664
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) sv_setiv(ST(3),nelem); |
|
9665
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) sv_setiv(ST(4),naxis); |
|
9666
|
0 |
0 |
if (ST(5)!=&PL_sv_undef) unpack1D(ST(5),naxes,naxis,TLONG,fptr->perlyunpacking); |
|
9724
|
0 |
0 |
if (decimals > 0) datestrlen += decimals; |
|
9779
|
0 |
0 |
value = pack1D(ST(3),(datatype == TLOGICAL) ? TINT : datatype); |
|
9984
|
0 |
0 |
if (ST(1) != &PL_sv_undef) sv_setiv(ST(1),dataok); /* value-added */ |
|
9985
|
0 |
0 |
if (ST(2) != &PL_sv_undef) sv_setiv(ST(2),hduok); /* value-added */ |
|
10480
|
0 |
0 |
if (datatype == TBIT) |
|
10745
|
0 |
0 |
if (datatype == TBIT) |
|
10747
|
0 |
0 |
RETVAL=ffpcn( |
|
11612
|
7 |
1 |
value = pack1D(ST(3),(datatype == TLOGICAL) ? TINT : datatype); |
|
12042
|
0 |
0 |
if (dtype == TBIT) |
|
12287
|
0 |
0 |
if (status == 0) { |
|
12288
|
0 |
0 |
if (ST(1) != &PL_sv_undef) |
|
12308
|
0 |
0 |
if (status == 0) { |
|
12309
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) |
|
12328
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) { |
|
12337
|
0 |
0 |
if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),bitpix); |
|
12338
|
0 |
0 |
if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),naxis); |
|
12339
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) unpack1D(ST(3),naxes,naxis,TLONG,fptr->perlyunpacking); |
|
12355
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) { |
|
12364
|
0 |
0 |
if (ST(1)!=&PL_sv_undef) sv_setiv(ST(1),bitpix); |
|
12365
|
0 |
0 |
if (ST(2)!=&PL_sv_undef) sv_setiv(ST(2),naxis); |
|
12366
|
0 |
0 |
if (ST(3)!=&PL_sv_undef) unpack1D(ST(3),naxes,naxis,TLONGLONG,fptr->perlyunpacking); |
|
12396
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
12397
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(dtype)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(dtype)); |
|
12398
|
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); |
|
12405
|
0 |
0 |
if (status == 0) { |
|
12409
|
0 |
0 |
for (i=0; i
|
|
12412
|
0 |
0 |
RETVAL=ffgpxv(fptr->fptr, dtype, fpix, nelem, (nulval!=&PL_sv_undef ? pack1D(nulval, dtype) : NULL), array, &anynul, &status); |
|
12413
|
0 |
0 |
if (status == 0) { |
|
12419
|
0 |
0 |
if (ST(6) != &PL_sv_undef) |
|
12444
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
12445
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(dtype)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(dtype)); |
|
12446
|
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); |
|
12453
|
0 |
0 |
if (status == 0) { |
|
12457
|
0 |
0 |
for (i=0; i
|
|
12460
|
0 |
0 |
RETVAL=ffgpxvll(fptr->fptr, dtype, fpix, nelem, (nulval!=&PL_sv_undef ? pack1D(nulval, dtype) : NULL), array, &anynul, &status); |
|
12461
|
0 |
0 |
if (status == 0) { |
|
12467
|
0 |
0 |
if (ST(6) != &PL_sv_undef) |
|
12492
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
12493
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
|
12494
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(dtype)); |
|
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(dtype)); |
|
12495
|
0 |
0 |
array = (void*)SvPV(ST(4),PL_na); |
|
12499
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
12500
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
12501
|
0 |
0 |
nullarray = (logical*)SvPV(ST(5),PL_na); |
|
12512
|
0 |
0 |
if (status == 0) { |
|
12516
|
0 |
0 |
for (i=0; i
|
|
12521
|
0 |
0 |
if (status == 0) { |
|
12523
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) |
|
12525
|
0 |
0 |
if (ST(5)!=&PL_sv_undef) |
|
12530
|
0 |
0 |
if (ST(6) != &PL_sv_undef) |
|
12555
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
|
0 |
0 |
if (!PERLYUNPACKING(fptr->perlyunpacking)) { |
|
12556
|
0 |
0 |
if (ST(4) != &PL_sv_undef) { |
|
12557
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(dtype)); |
|
|
0 |
0 |
SvGROW(ST(4),nelem*sizeof_datatype(dtype)); |
|
12558
|
0 |
0 |
array = (void*)SvPV(ST(4),PL_na); |
|
12562
|
0 |
0 |
if (ST(5) != &PL_sv_undef) { |
|
12563
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
|
0 |
0 |
SvGROW(ST(5),nelem*sizeof_datatype(TLOGICAL)); |
|
12564
|
0 |
0 |
nullarray = (logical*)SvPV(ST(5),PL_na); |
|
12575
|
0 |
0 |
if (status == 0) { |
|
12579
|
0 |
0 |
for (i=0; i
|
|
12584
|
0 |
0 |
if (status == 0) { |
|
12586
|
0 |
0 |
if (ST(4)!=&PL_sv_undef) |
|
12588
|
0 |
0 |
if (ST(5)!=&PL_sv_undef) |
|
12593
|
0 |
0 |
if (ST(6) != &PL_sv_undef) |
|
12614
|
0 |
0 |
if (dtype == TBIT) |
|
12636
|
0 |
0 |
if (dtype == TBIT) |
|
12659
|
0 |
0 |
if (dtype == TBIT) |
|
12661
|
0 |
0 |
RETVAL = ffppxn(fptr,dtype,fpix,nelem,packND(array,storage_dtype),(nulval!=&PL_sv_undef ? pack1D(nulval,storage_dtype) : NULL), &status); |
|
12682
|
0 |
0 |
if (dtype == TBIT) |
|
12684
|
0 |
0 |
RETVAL = ffppxnll(fptr,dtype,fpix,nelem,packND(array,storage_dtype),(nulval!=&PL_sv_undef ? pack1D(nulval,storage_dtype) : NULL), &status); |