- Timestamp:
- May 3, 2010, 8:41:49 AM (16 years ago)
- Location:
- branches/tap_branches
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/tap_branches
- Property svn:mergeinfo changed
-
branches/tap_branches/Ohana
-
Property svn:mergeinfo
set to (toggle deleted branches)
/trunk/Ohana merged eligible /branches/eam_branches/Ohana.20100407 27635-27772 /branches/pap_delete/Ohana 27530-27595
-
Property svn:mergeinfo
set to (toggle deleted branches)
-
branches/tap_branches/Ohana/src/libfits/table/F_table_row.c
r15487 r27838 3 3 4 4 /*********************** fits table column ****************************/ 5 int gfits_add_rows (FTable *table, char *data, int Nrow, int Nbytes) {5 int gfits_add_rows (FTable *table, char *data, off_t Nrow, off_t Nbytes) { 6 6 7 int Nx, Ny;8 int nbytes, Nstart;7 off_t Nx, Ny; 8 off_t nbytes, Nstart; 9 9 Header *header; 10 10 11 11 header = table[0].header; 12 12 13 gfits_scan (header, "NAXIS1", "% d", 1,&Nx);14 gfits_scan (header, "NAXIS2", "% d", 1,&Ny);13 gfits_scan (header, "NAXIS1", "%lld", 1, (long long *) &Nx); 14 gfits_scan (header, "NAXIS2", "%lld", 1, (long long *) &Ny); 15 15 16 16 if (header[0].Naxis[1] != Ny) return (FALSE); … … 23 23 Ny += Nrow; 24 24 header[0].Naxis[1] = Ny; 25 gfits_modify (header, "NAXIS2", "% d", 1,Ny);25 gfits_modify (header, "NAXIS2", "%lld", 1, (long long) Ny); 26 26 27 27 nbytes = gfits_data_size (header); 28 28 REALLOCATE (table[0].buffer, char, MAX (nbytes, 1)); 29 table[0]. size = nbytes;29 table[0].datasize = nbytes; 30 30 31 31 memcpy (&table[0].buffer[Nstart], data, Nbytes*Nrow); … … 35 35 36 36 /*********************** fits add (real) rows to virtual table ****************************/ 37 int gfits_vadd_rows (VTable *table, char *data, int Nrow, int Nbytes) {37 int gfits_vadd_rows (VTable *table, char *data, off_t Nrow, off_t Nbytes) { 38 38 39 int i, Nx, Ny;40 int Nstart;39 off_t i, Nx, Ny; 40 off_t Nstart; 41 41 Header *header; 42 42 43 43 header = table[0].header; 44 44 45 gfits_scan (header, "NAXIS1", "% d", 1,&Nx);46 gfits_scan (header, "NAXIS2", "% d", 1,&Ny);45 gfits_scan (header, "NAXIS1", "%lld", 1, (long long *) &Nx); 46 gfits_scan (header, "NAXIS2", "%lld", 1, (long long *) &Ny); 47 47 48 48 if (header[0].Naxis[1] != Ny) return (FALSE); … … 54 54 table[0].Nrow += Nrow; 55 55 REALLOCATE (table[0].buffer, char *, table[0].Nrow); 56 REALLOCATE (table[0].row, int, table[0].Nrow);56 REALLOCATE (table[0].row, off_t, table[0].Nrow); 57 57 for (i = 0; i < Nrow; i++) { 58 58 ALLOCATE (table[0].buffer[Nstart+i], char, MAX (1, Nx)); … … 64 64 Ny += Nrow; 65 65 header[0].Naxis[1] = Ny; 66 gfits_modify (header, "NAXIS2", "%d", 1,Ny);66 gfits_modify (header, "NAXIS2", "%lld", 1, (long long) Ny); 67 67 68 table[0]. size= gfits_data_size (table[0].header);69 table[0].pad = table[0].size - Nx*Ny;68 table[0].datasize = gfits_data_size (table[0].header); 69 table[0].pad = table[0].datasize - Nx*Ny; 70 70 71 71 return (TRUE); … … 73 73 74 74 /*********************** fits table column ****************************/ 75 int gfits_delete_rows (FTable *table, int Nstart, int Nrow) {75 int gfits_delete_rows (FTable *table, off_t Nstart, off_t Nrow) { 76 76 77 int Nx, Ny, N0, N1, N2;78 int nbytes;77 off_t Nx, Ny, N0, N1, N2; 78 off_t nbytes; 79 79 Header *header; 80 80 81 81 header = table[0].header; 82 82 83 gfits_scan (header, "NAXIS1", "% d", 1,&Nx);84 gfits_scan (header, "NAXIS2", "% d", 1,&Ny);83 gfits_scan (header, "NAXIS1", "%lld", 1, (long long *) &Nx); 84 gfits_scan (header, "NAXIS2", "%lld", 1, (long long *) &Ny); 85 85 86 86 if (header[0].Naxis[1] != Ny) return (FALSE); … … 97 97 Ny -= Nrow; 98 98 header[0].Naxis[1] = Ny; 99 gfits_modify (header, "NAXIS2", "%d", 1,Ny);99 gfits_modify (header, "NAXIS2", "%lld", 1, (long long) Ny); 100 100 101 101 nbytes = gfits_data_size (header); 102 102 REALLOCATE (table[0].buffer, char, MAX (nbytes, 1)); 103 table[0]. size = nbytes;103 table[0].datasize = nbytes; 104 104 return (TRUE); 105 105 }
Note:
See TracChangeset
for help on using the changeset viewer.
