Mercurial > octave-nkf

comparison src/ls-mat5.cc @ 5949:c7105ffca0b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-08-22 02:37:41 by jwe]
author jwe
date Tue, 22 Aug 2006 02:37:41 +0000
parents 117052c2b53c
children a1754033bc6c
comparison
equal deleted inserted replaced
5948:8b4d38c76bfa 5949:c7105ffca0b6
155 155
156 case miRESERVE2: 156 case miRESERVE2:
157 case miRESERVE3: 157 case miRESERVE3:
158 break; 158 break;
159 159
160 // FIXME -- how are the 64-bit cases supposed to work here?
160 case miINT64: 161 case miINT64:
161 #ifdef int64_t
162 read_doubles (is, data, LS_LONG, count, swap, flt_fmt); 162 read_doubles (is, data, LS_LONG, count, swap, flt_fmt);
163 #endif
164 break; 163 break;
165 164
166 case miUINT64: 165 case miUINT64:
167 #ifdef int64_t
168 read_doubles (is, data, LS_U_LONG, count, swap, flt_fmt); 166 read_doubles (is, data, LS_U_LONG, count, swap, flt_fmt);
169 #endif
170 break; 167 break;
171 168
172 case miMATRIX: 169 case miMATRIX:
173 default: 170 default:
174 break; 171 break;
228 case miRESERVE2: 225 case miRESERVE2:
229 case miRESERVE3: 226 case miRESERVE3:
230 break; 227 break;
231 228
232 case miINT64: 229 case miINT64:
233 #ifdef int64_t
234 READ_INTEGER_DATA (int64_t, swap, m, 8, count, is); 230 READ_INTEGER_DATA (int64_t, swap, m, 8, count, is);
235 #endif
236 break; 231 break;
237 232
238 case miUINT64: 233 case miUINT64:
239 #ifdef int64_t
240 READ_INTEGER_DATA (uint64_t, swap, m, 8, count, is); 234 READ_INTEGER_DATA (uint64_t, swap, m, 8, count, is);
241 #endif
242 break; 235 break;
243 236
244 case miMATRIX: 237 case miMATRIX:
245 default: 238 default:
246 break; 239 break;
1102 1095
1103 case LS_U_INT: 1096 case LS_U_INT:
1104 MAT5_DO_WRITE (uint32_t, data, nel, os); 1097 MAT5_DO_WRITE (uint32_t, data, nel, os);
1105 break; 1098 break;
1106 1099
1107 // provide for 64 bit ints, even though get_save_type does
1108 // not yet implement them
1109 #ifdef int64_t
1110 case LS_U_LONG: 1100 case LS_U_LONG:
1111 MAT5_DO_WRITE (uint64_t, data, nel, os); 1101 MAT5_DO_WRITE (uint64_t, data, nel, os);
1112 break; 1102 break;
1113 #endif
1114 1103
1115 case LS_CHAR: 1104 case LS_CHAR:
1116 MAT5_DO_WRITE (int8_t, data, nel, os); 1105 MAT5_DO_WRITE (int8_t, data, nel, os);
1117 break; 1106 break;
1118 1107
1122 1111
1123 case LS_INT: 1112 case LS_INT:
1124 MAT5_DO_WRITE (int32_t, data, nel, os); 1113 MAT5_DO_WRITE (int32_t, data, nel, os);
1125 break; 1114 break;
1126 1115
1127 #ifdef int64_t
1128 case LS_LONG: 1116 case LS_LONG:
1129 MAT5_DO_WRITE (int64_t, data, nel, os); 1117 MAT5_DO_WRITE (int64_t, data, nel, os);
1130 break; 1118 break;
1131 #endif
1132 1119
1133 case LS_FLOAT: 1120 case LS_FLOAT:
1134 MAT5_DO_WRITE (float, data, nel, os); 1121 MAT5_DO_WRITE (float, data, nel, os);
1135 break; 1122 break;
1136 1123