| 846 | } |
| 847 | |
| 848 | char * iiStringMatrix(matrix im, int dim, const ring r, char ch) |
| 849 | { |
| 850 | int i,ii = MATROWS(im); |
| 851 | int j,jj = MATCOLS(im); |
| 852 | poly *pp = im->m; |
| 853 | char ch_s[2]; |
| 854 | ch_s[0]=ch; |
| 855 | ch_s[1]='\0'; |
| 856 | |
| 857 | StringSetS(""); |
| 858 | |
| 859 | for (i=0; i<ii; i++) |
| 860 | { |
| 861 | for (j=0; j<jj; j++) |
| 862 | { |
| 863 | p_String0(*pp++, r); |
| 864 | StringAppendS(ch_s); |
| 865 | if (dim > 1) StringAppendS("\n"); |
| 866 | } |
| 867 | } |
| 868 | char *s=StringEndS(); |
| 869 | s[strlen(s)- (dim > 1 ? 2 : 1)]='\0'; |
| 870 | return s; |
| 871 | } |
| 872 | |
| 873 | void mp_Delete(matrix* a, const ring r) |
| 874 | { |
no test coverage detected