57 |
{ |
{ |
58 |
struct variable **var; /* Variables to transpose. */ |
struct variable **var; /* Variables to transpose. */ |
59 |
int *idx_to_fv; /* var[]->index to compacted sink case fv. */ |
int *idx_to_fv; /* var[]->index to compacted sink case fv. */ |
60 |
int var_cnt; /* Number of elements in `var'. */ |
size_t var_cnt; /* Number of elements in `var'. */ |
61 |
int case_cnt; /* Pre-flip case count. */ |
int case_cnt; /* Pre-flip case count. */ |
62 |
size_t case_size; /* Post-flip bytes per case. */ |
size_t case_size; /* Post-flip bytes per case. */ |
63 |
|
|
124 |
|
|
125 |
if (flip->new_names) |
if (flip->new_names) |
126 |
{ |
{ |
127 |
int i; |
size_t i; |
128 |
|
|
129 |
for (i = 0; i < flip->var_cnt; i++) |
for (i = 0; i < flip->var_cnt; i++) |
130 |
if (flip->var[i] == flip->new_names) |
if (flip->var[i] == flip->new_names) |
282 |
flip_sink_create (struct flip_pgm *flip) |
flip_sink_create (struct flip_pgm *flip) |
283 |
{ |
{ |
284 |
struct flip_sink_info *info = xmalloc (sizeof *info); |
struct flip_sink_info *info = xmalloc (sizeof *info); |
285 |
int i; |
size_t i; |
286 |
|
|
287 |
info->flip = flip; |
info->flip = flip; |
288 |
info->output_buf = xmalloc (sizeof *info->output_buf * flip->var_cnt); |
info->output_buf = xmalloc (sizeof *info->output_buf * flip->var_cnt); |
310 |
{ |
{ |
311 |
struct flip_sink_info *info = sink->aux; |
struct flip_sink_info *info = sink->aux; |
312 |
struct flip_pgm *flip = info->flip; |
struct flip_pgm *flip = info->flip; |
313 |
int i; |
size_t i; |
314 |
|
|
315 |
flip->case_cnt++; |
flip->case_cnt++; |
316 |
|
|
416 |
{ |
{ |
417 |
unsigned long read_cases = min (flip->case_cnt - case_idx, |
unsigned long read_cases = min (flip->case_cnt - case_idx, |
418 |
case_capacity); |
case_capacity); |
419 |
int i; |
size_t i; |
420 |
|
|
421 |
if (read_cases != fread (input_buf, case_bytes, read_cases, input_file)) |
if (read_cases != fread (input_buf, case_bytes, read_cases, input_file)) |
422 |
msg (FE, _("Error reading FLIP file: %s."), strerror (errno)); |
msg (FE, _("Error reading FLIP file: %s."), strerror (errno)); |
497 |
{ |
{ |
498 |
struct flip_pgm *flip = source->aux; |
struct flip_pgm *flip = source->aux; |
499 |
union value *input_buf; |
union value *input_buf; |
500 |
int i; |
size_t i; |
501 |
|
|
502 |
input_buf = xmalloc (sizeof *input_buf * flip->case_cnt); |
input_buf = xmalloc (sizeof *input_buf * flip->case_cnt); |
503 |
for (i = 0; i < flip->var_cnt; i++) |
for (i = 0; i < flip->var_cnt; i++) |