21 |
|
#define M_PI 3.14159265358979323846 |
22 |
|
#endif |
23 |
|
|
24 |
+ |
#ifndef MAXCOMP |
25 |
|
#define MAXCOMP MAXCSAMP /* #components we support */ |
26 |
+ |
#endif |
27 |
|
|
28 |
|
/* Unary matrix operation(s) */ |
29 |
|
typedef struct { |
675 |
|
if (!rmx_load_row(mop[i].imx.mtx, &mop[i].imx, mop[i].infp)) { |
676 |
|
if (cur_row > in_nrows) /* unknown #input rows? */ |
677 |
|
break; |
678 |
< |
fprintf(stderr, "%s: parent_loop() load error at row %d\n", |
678 |
> |
fprintf(stderr, "%s: load error at row %d\n", |
679 |
|
mop[i].inspec, cur_row); |
680 |
|
return(0); |
681 |
|
} |
684 |
|
for (i = 0; i < nmats; i++) |
685 |
|
if (writebuf(wfd, mop[i].imx.mtx, rmx_array_size(&mop[i].imx)) |
686 |
|
!= rmx_array_size(&mop[i].imx)) { |
687 |
< |
fprintf(stderr, "%s: parent_loop() write error at row %d\n", |
687 |
> |
fprintf(stderr, "%s: write error at row %d\n", |
688 |
|
mop[i].inspec, cur_row); |
689 |
|
return(0); |
690 |
|
} |
693 |
|
free(cproc); cproc = NULL; nchildren = 0; |
694 |
|
if (i < 0) { |
695 |
|
if (!nowarn) |
696 |
< |
fputs("Warning: lost child in parent_loop()\n", stderr); |
696 |
> |
fputs("Warning: lost child process\n", stderr); |
697 |
|
return(1); |
698 |
|
} |
699 |
|
if (i > 0) { |
739 |
|
if (!rmx_load_row(mop[i].imx.mtx, &mop[i].imx, mop[i].infp)) { |
740 |
|
if (cur_row > in_nrows) /* unknown #input rows? */ |
741 |
|
break; |
742 |
< |
fprintf(stderr, "%s: combine_input() load error at row %d\n", |
742 |
> |
fprintf(stderr, "%s: load error at row %d\n", |
743 |
|
mop[i].inspec, cur_row); |
744 |
|
return(0); |
745 |
|
} |
787 |
|
if (!rmx_write_data(res->rmp->mtx, res->rmp->ncomp, |
788 |
|
res->rmp->ncols, res->rmp->dtype, stdout) || |
789 |
|
(inchild >= 0 && fflush(stdout) == EOF)) { |
790 |
< |
fprintf(stderr, "Conversion/write error at row %d in combine_input()\n", |
790 |
> |
fprintf(stderr, "Conversion/write error at row %d\n", |
791 |
|
cur_row); |
792 |
|
return(0); |
793 |
|
} |
794 |
|
} |
795 |
|
return(inchild >= 0 || fflush(stdout) != EOF); |
796 |
|
multerror: |
797 |
< |
fputs("Unexpected matrix multiply error in combine_input()\n", stderr); |
797 |
> |
fputs("Unexpected matrix multiply error\n", stderr); |
798 |
|
return(0); |
799 |
|
} |
800 |
|
|
823 |
|
if (!rv) /* out of rows? */ |
824 |
|
break; |
825 |
|
if (rv != row_size) { |
826 |
< |
fputs("Read error in output_loop()\n", stderr); |
826 |
> |
fputs("Read error\n", stderr); |
827 |
|
return(0); |
828 |
|
} /* do final conversion */ |
829 |
|
if (!rmx_write_data(mop[nmats].rmp->mtx, mop[nmats].rmp->ncomp, |
830 |
|
mop[nmats].rmp->ncols, mop[nmats].rmp->dtype, stdout)) { |
831 |
< |
fputs("Conversion/write error in output_loop()\n", stderr); |
831 |
> |
fputs("Conversion/write error\n", stderr); |
832 |
|
return(0); |
833 |
|
} |
834 |
|
cur_child++; |